Index: mttroot/mtt/lib/comp/simple/FMR_eqn.m
==================================================================
--- mttroot/mtt/lib/comp/simple/FMR_eqn.m
+++ mttroot/mtt/lib/comp/simple/FMR_eqn.m
@@ -13,10 +13,13 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.1  1996/08/30 16:38:25  peter
+% %% Initial revision
+% %%
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
 
 % Copyright (c) P.J. Gawthrop, 1996.
 
@@ -43,29 +46,29 @@
   else                                  % Effort out
     op = '/';
   end;
   
   fprintf(eqnfile, '%s := %s%s%s;\n', ...
-      varname(bond_number(1), -e_1), ...
-      varname(bond_number(1), e_1), ...
+      varname(name,bond_number(1), -e_1), ...
+      varname(name,bond_number(1), e_1), ...
       op, ...
-      varname(bond_number(2), -1));
+      varname(name,bond_number(2), -1));
 else 					% Deduce modulation
   
    fprintf(eqnfile, '%s := %s/%s;\n', ...
-      varname(bond_number(2), -1), ...
-      varname(bond_number(1), -1), ...
-      varname(bond_number(1), 1));
+      varname(name,bond_number(2), -1), ...
+      varname(name,bond_number(1), -1), ...
+      varname(name,bond_number(1), 1));
 end;
 
 % Effort on port 2 is always zero
    fprintf(eqnfile, '%s := 0;\n', ...
-      varname(bond_number(2), 1));
+      varname(name,bond_number(2), 1));