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.20  1997/08/18  19:39:48  peterg
+% %% Now generates (exampaded) port_bond list correctely
+% %%
 % %% Revision 1.19  1997/08/14  11:59:47  peterg
 % %% Vector ports added!!
 % %%
 % %% Revision 1.18  1997/08/14  11:01:42  peterg
 % %% Reordered algorithms as follows:
@@ -156,12 +159,20 @@
 % of each bond
 
 % Now do a list of the bonds on each component - unsorted at this stage.
 components = [];
 for i = 1:n_components
+  %Get component type
+  eval(['[comp_type, comp_name] = ', name, '_cmp(i)']);
+
   % There are n_comp_bonds bonds on this component with corresponding index
   [index,n_comp_bonds] = getindex(comp_near_bond,i);
+
+  if index(1,1)==0
+    mtt_info(sprintf("Component %s (%s) has no bonds", comp_name,
+    comp_type),infofile);
+  end;
   
   % Create the signed list of bonds on this component
   one = ones(n_comp_bonds,1);
   bond_list = index(:,1); %  bond at component
   bond_end = index(:,2);  % which end of bond at component?