Index: mttroot/mtt/bin/trans/m/write_abg.m
==================================================================
--- mttroot/mtt/bin/trans/m/write_abg.m
+++ mttroot/mtt/bin/trans/m/write_abg.m
@@ -3,10 +3,15 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.5  1998/09/02 10:30:30  peterg
+## Now writes out list of ports ans list of subsystems.
+## These ordereded lists determine the order of processing of ports ans
+## subsystems.
+##
 ## Revision 1.4  1998/08/26 12:45:38  peterg
 ## Just prefix ports (comps can't start with numeral)
 ## Prefix with mttp
 ##
 ## Revision 1.3  1998/08/26 12:31:07  peterg
@@ -64,11 +69,11 @@
       	name=["mttp",name];	# prefix by mttp
       endif;
     
       PortList = [PortList; name];
       fprintf(fid,"\n# Port %s\n", name); 
-      fprintf(fid,PIformat,system_name,name,"index",++i_port);
+#      fprintf(fid,PIformat,system_name,name,"index",++i_port);
       fprintf(fid,PSformat,system_name,name,"type",comp_type);
       fprintf(fid,PSformat,system_name,name,"cr",cr);
       fprintf(fid,PSformat,system_name,name,"arg",arg);
       fprintf(fid,PIformat,system_name,name,"repetitions",repetitions);