Index: mttroot/mtt/lib/comp/simple/R_eqn.m
==================================================================
--- mttroot/mtt/lib/comp/simple/R_eqn.m
+++ mttroot/mtt/lib/comp/simple/R_eqn.m
@@ -13,10 +13,13 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.2  1996/09/12 13:12:04  peter
+% %% Removed an fprintf that was a mistake.
+% %%
 % %% Revision 1.1  1996/09/12 11:00:56  peter
 % %% Initial revision
 % %%
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
@@ -33,12 +36,21 @@
 
 
 for outport = 1:ports
   outcause = -bonds(outport,1);
   outnumber = bond_number(outport);
-  incause = bonds(:,1);
+  if length(cr)>0
+    incause = bonds(:,1);
+    inports = 1:ports;
+    inbonds = bond_number;
+  else % default if no cr: unit cr on each port
+    incause = bonds(outport,1);
+    inport = outport;
+    inbond = outnumber;
+  end;
+  
   eqn =  equation(name,cr,args,outnumber,outcause,outport, ...
-                               bond_number,incause,1:ports);
+                               inbond,incause,inport);
   fprintf(eqnfile, '%s',eqn);
 end;