Index: mttroot/mtt/bin/trans/m/rbg2abg.m
==================================================================
--- mttroot/mtt/bin/trans/m/rbg2abg.m
+++ mttroot/mtt/bin/trans/m/rbg2abg.m
@@ -3,10 +3,13 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.25  1998/04/12 15:01:04  peterg
+% %% Converted to uniform port notation - always use []
+% %%
 % %% Revision 1.24  1998/02/19 08:57:16  peterg
 % %% Fixed mtt-info bug -- confused filename with number
 % %%
 % %% Revision 1.23  1997/12/04 14:24:22  peterg
 % %% Removed error message about through-pointing arrows
@@ -255,12 +258,11 @@
 exp_port_name="";
 exp_port_bond = [];
 %exp_comps = [];
 for i=1:n_ports
   port_name_i = port_name(i,:)
-  subport = split(port_name_i, ','); % Find the components of the vector port
-  [n_subports,junk] = size(subport);
+  [subport,n_subports] = split_port(port_name_i, ','); % Find the components of the vector port
 
   if n_subports==1 % an ordinary port
     exp_port_name = [exp_port_name; subport(1,:)]; % Write out the only port
     exp_port_bond = [exp_port_bond; port_bond(i)]; % and the port_bond
   else % its a vector port
@@ -268,12 +270,11 @@
     % bond
     signed_bond_index = port_bond(i);
     [other_bond_index,n_other] = getindex(port_bond,-signed_bond_index);
     if n_other == 1
       other_port_name = port_name(other_bond_index,:);
-      other_subport = split(other_port_name, ',');
-      [n_other_subports,junk] = size(other_subport);
+      [other_subport,n_other_subports] = split_port(other_port_name, ',');
       if n_other_subports~=n_subports
 	mtt_info(['Vector ports ', port_name_i, ' and ', other_port_name, 'are not compatible'],fnum);
       end
     else 
       mtt_info(['Vector port ', port_name_i, ' has no matching port'], fnum);