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 - - - - - - - - - - - - - - - - - - -