Index: mttroot/mtt/bin/trans/m/abg2cbg.m
==================================================================
--- mttroot/mtt/bin/trans/m/abg2cbg.m
+++ mttroot/mtt/bin/trans/m/abg2cbg.m
@@ -17,10 +17,13 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.32  1998/07/28 19:06:11  peterg
+% %% *** empty log message ***
+% %%
 % %% Revision 1.31  1998/07/28 13:15:10  peterg
 % %% Vector SS ports included.
 % %%
 % %% Revision 1.30  1998/07/27 20:29:49  peterg
 % %% Had another go at causality ....
@@ -388,12 +391,14 @@
     bonds(ci_bond_index,1:2) = prefered*ci_direction'*[1 1];
   end;
   
 end;
 
-status(1:n_ports) = zeros(n_ports,1); # Port status not relevant
-
+if n_ports>0
+  status(1:n_ports) = zeros(n_ports,1); # Port status not relevant
+endif;
+	  
 % Print final causality
 final_done =  (sum(status==zeros(n_components,1))/n_components)*100;
 
 if at_top_level
   mtt_info(sprintf('Final causality of %s is %3.0f%s complete.', ...