Index: mttroot/mtt/bin/trans/ode_r2m
==================================================================
--- mttroot/mtt/bin/trans/ode_r2m
+++ mttroot/mtt/bin/trans/ode_r2m
@@ -12,10 +12,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.13  1998/05/21 16:19:54  peterg
+## Modified to include explicit algebraic loop solution
+##
 ## Revision 1.12  1998/05/21 12:55:48  peterg
 ## Put in algebraic equation stuff
 ##
 ## Revision 1.11  1998/05/21 08:05:23  peterg
 ## Back under RCS
@@ -222,11 +225,11 @@
 cat <<EOF >> $1_ode.m
 % Solve the algebraic equations (if any)
 if nyz>0
   global xx tt;
   xx = x; tt=t;
-  mttui = fsolve('$1_odea',mttui);
+  MTTui = fsolve('$1_odea',mttui);
 else
  mttui = [];
 end
 EOF
 
@@ -249,11 +252,11 @@
 cat <<EOF > $1_odea.m
 function mttyz = $1_odea(mttui);
 % mttyz = $1_odea(mttui);
 %Algebraic equations in Octave form for system $1;
 %File $1_odea.m;
-%Generated by MTT on `date`;
+%Generated by mtt on `date`;
 EOF
 
 # Create the globals
 sympar2global_txt2m $1 >> $1_odea.m
 
@@ -279,11 +282,11 @@
 cat <<EOF > $1_odeo.m
 function mtty = $1_odeo(x,t);
 % mtty = $1_odeo(x,t);
 %Algebraic equations in Octave form for system $1;
 %File $1_odeo.m;
-%Generated by MTT on `date`;
+%Generated by MTT  on `date`;
 EOF
 
 # Create the globals
 sympar2global_txt2m $1 >> $1_odeo.m