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.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
   ## ##
   ## ## Revision 1.44  1999/10/19 00:05:44  peterg
   ## ## Now defaults junction ports when only one specified (for vector junctions)
@@ -221,12 +224,12 @@
   for i = 1:n_ports
     near_bond = adjbond(port_coord(i,1:2),arrow_end,other_end);
     [rows,cols]=size(near_bond);
     if rows>1
       error(sprintf ...
-	    ("A port is near to more than one bond at coordinates %g,%g\n", ...
-	     port_coord(i,1)/scale,  port_coord(i,2)/scale));
+	    ("A port is near to more than one bond at coordinates %g,%g %s\n", ...
+	     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));
@@ -358,11 +361,11 @@
 	  port_name = [port_name; ["[" port_name_i "]"]];	# add to list
 	  [port_name_index,junk] = size(port_name); # the corresponding
 				# index
 	  port_bond(port_name_index,:) = signed_bond; # add to port bond
 	else  
-	  port_name_i = mtt_strip_name(port_name(port_name_index,:));
+	  port_name_i = mtt_strip_name(port_name(port_name_index,:))
 	  ## port_name_i = deblank(port_name(port_name_index,:));
 	  ## port_name_i = port_name_i(2:length(port_name_i)-1) # strip []
 	endif
 	
 	
@@ -668,24 +671,5 @@
       endfor
     endif
   endfor
 
 endfunction
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-