Index: mttroot/mtt/lib/comp/simple/AE_eqn.m
==================================================================
--- mttroot/mtt/lib/comp/simple/AE_eqn.m
+++ mttroot/mtt/lib/comp/simple/AE_eqn.m
@@ -1,14 +1,17 @@
-function  structure = AE_eqn(bond_number,bonds,direction,cr,args, ...
+function  structure = AE_eqn(name,bond_number,bonds,direction,cr,args, ...
                             structure,eqnfile);
 % AE_eqn. Equation generation for effort amplifier.
 
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.2  1996/08/30 13:23:11  peter
+% %% Added bond number check
+% %%
 % %% Revision 1.1  1996/08/22 13:12:34  peter
 % %% Initial revision
 % %%
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
@@ -28,11 +31,11 @@
 f_2 = bonds(2,2);
 
 
 % Flow on port 1 is always zero
    fprintf(eqnfile, '%s := 0;\n', ...
-      varname(bond_number(1), -1));
+      varname(name,bond_number(1), -1));
   
   
 LHS_cause = 1;
 RHS_cause = 1;
 
@@ -42,11 +45,11 @@
 else 	                                % Bicausal: e_1 := e_2      
   LHS_number = bond_number(1);
   RHS_number = bond_number(2);
 end
 
-oneeqn(LHS_number,LHS_cause,RHS_number,RHS_cause,cr,args,eqnfile);
+oneeqn(name,LHS_number,LHS_cause,RHS_number,RHS_cause,cr,args,eqnfile);