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.47  2002/08/27 16:09:01  geraint
+  ## ## Added port_name to error message when multiple bonds are near a port.
+  ## ##
   ## ## Revision 1.46  2000/09/11 08:22:02  peterg
   ## ## Checks for absent port list in subsystem abg file.
   ## ##
   ## ## Revision 1.45  1999/10/19 02:13:31  peterg
   ## ## Now assigns correct bonds to the new junction port names
@@ -230,11 +233,11 @@
 	     port_coord(i,1)/scale,  port_coord(i,2)/scale, deblank(port_name(i,:))));
     endif
     
 
     ##The (signed) bond corresponding to the ith port label
-    port_bond(i) = near_bond(1)*sign(1.5-near_bond(2));
+    port_bond(i,1) = near_bond(1)*sign(1.5-near_bond(2));
   endfor
 
   port_bond
   ##We now have the (signed) bond (port_bond(i)) correponding to the
   ## ith port label within the component 
@@ -446,11 +449,11 @@
   bonds = causality;
 
 
   ## Find number of bonds on each component BEFORE vectorisation
   for i=1:n_components
-    n_vector_bonds(i) = length(nozeros(components(i,:)))
+    n_vector_bonds(i,1) = length(nozeros(components(i,:)))
   endfor
   
   ## Now expand vector ports
   disp("Expanding vector ports");
   [n_bonds,junk] = size(bonds);