Index: mttroot/mtt/bin/trans/m/rbg2abg.m
==================================================================
--- mttroot/mtt/bin/trans/m/rbg2abg.m
+++ mttroot/mtt/bin/trans/m/rbg2abg.m
@@ -5,10 +5,13 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.36  1998/07/28 10:30:50  peterg
+% %% Implemented vector SS ports.
+% %%
 % %% Revision 1.35  1998/07/08 15:35:15  peterg
 % %% Added errorfile argument
 % %%
 % %% Revision 1.34  1998/07/02 19:41:29  peterg
 % %% Fixed empty port string bug - set to null string.
@@ -360,11 +363,11 @@
 
 bonds = causality;
 
 % Now expand vector ports
 [n_bonds,junk] = size(bonds);
-n_ports=length(port_bond);
+n_ports = length(port_bond);
 n_exp_ports=n_ports;
 exp_port_name="";
 exp_port_bond = [];
 %exp_comps = [];
 for i=1:n_ports
@@ -388,12 +391,12 @@
     else 
       mtt_error(['Vector port ', port_name_i, ' has no matching port'], errorfile);
     end;
     
     if other_bond_index>i %then its not been done yet
-      mtt_info(['Vector port: ', port_name_i],infofile);
-      mtt_info(['matching: ', other_port_name],infofile);
+      mtt_info(["Vector port: ", port_name_i],infofile);
+      mtt_info(["matching: ", other_port_name],infofile);
       % Remove sign info.
       bond_index = abs(signed_bond_index);
       sig = sign(signed_bond_index);
       
       % Put the first element of each port list in the expanded list
@@ -566,11 +569,11 @@
       mtt_error(['Component ', comp_name, ' (', comp_type, ') has no labeled ports'], errorfile); 
     end;
     %Write out the signed bond list in the correct order
 unsorted_port_list
 for j = 1:n_comp_bonds
-      j
+  j
       name_k = unsorted_port_list(j,:)
       k = name_in_list(name_k, port_list);
       % Check that it only appears once in port list
       if length(k)>1
 	mtt_error(['Component ', comp_name, ' (', comp_type, ') has ports with the same name:  ', name_k], errorfile); 
@@ -588,12 +591,23 @@
 	components(i,k) = signed_bond_list(j);     
       end;
     end;
   end;
 end;
+
+
+
+
+
+
+
+
+
+
+