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,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.1  1998/08/25 06:22:02  peterg
+## Initial revision
+##
 ###############################################################
 
 
   fid=fopen([system_name,"_abg.m"], "w");
   [N,M]=size(connections);
@@ -44,14 +47,17 @@
       for j=1:m
       	fprintf(fid,"%i ", c(j));
       endfor;
       fprintf(fid,"];\n");
     else
-      name = strrep(strrep(name,"[",""), "]", "");
+      name=name(2:length(name)-1); # Strip []
       fprintf(fid,"\n# Port %s\n", name); 
       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);
 
       c = nozeros(connections(i,:));# Connections to this component
       m = length(c);		# Number of connections
 
       fprintf(fid,PCformat,system_name,name);