Index: mttroot/mtt/bin/trans/m/write_cbg.m
==================================================================
--- mttroot/mtt/bin/trans/m/write_cbg.m
+++ mttroot/mtt/bin/trans/m/write_cbg.m
@@ -3,10 +3,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.3  1998/08/25 20:05:33  peterg
+## Write flipped port info
+##
 ## Revision 1.2  1998/08/25 06:21:19  peterg
 ## Just writes additional information; basic info from the abg structure.
 ##
 ## Revision 1.1  1998/08/25 05:55:10  peterg
 ## Initial revision
@@ -52,21 +55,21 @@
     fprintf(fid,"\n");
   endfor;
   fprintf(fid,"      ];\n");
 
   [N,M]=size(Flipped.ports);
-  if N>0
+  if (N>0)&&(M>0)		# Flipped ports exist
     fprintf(fid,"\n# Flipped port information\n");
     for i=1:N
       name=deblank(Flipped.ports(i,:));
       eval(["con = system.ports.",name,".connections;"]);
       fprintf(fid,Iformat,system_name,"ports",name,1,con);
     endfor;
   endif;
 
   [N,M]=size(Flipped.subs);
-  if N>0
+  if (N>0)&&(M>0)		# Flipped subs exist
     for i=1:N
       name=deblank(Flipped.subs(i,:));
       k=Flipped.cons(i);
       eval(["con = system.subsystems.",name,".connections(",num2str(k),");"]);
       fprintf(fid,Iformat,system_name,"subsystems",name,k,con);