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.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 ....
 % %%   1. Impose external causality onto all port bonds
 % %%   2. Set C_cause.m so that it DOESN'T set causality
 % %%       -- I_cause is already ok !
@@ -216,11 +219,11 @@
       mtt_info(sprintf("Flip port %i",i),infofile);
       % Flip direction at port
       components(i,1) = - components(i,1);
       % and at the other end
       for j=n_ports+1:n_components
-	for k=1:columns
+	for k=1:m_components
 	  if (abs(components(j,k))==port_bond_index(i))
 	    components(j,k) = - components(j,k);
 	  end
 	end
       end;
@@ -385,12 +388,13 @@
     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
+
 % Print final causality
-status
 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.', ...
       full_name, final_done, pc), infofile);
@@ -428,13 +432,12 @@
 fclose(cbgfilenum);
 
 % Return the port bonds - arrow orientated causality - and the direction 
 if ~at_top_level % Not at top level
   port_bonds = bonds(port_bond_index,:) # Return port bonds
-  status(1:n_ports) = zeros(1:n_ports); # Port status not relevant
 end;
 
 disp('====================================');
 disp(['END: ', full_name, ' (', fun_name, ')']);
 disp('====================================');