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.10  1998/04/14 07:25:02  peterg
+## _input now has arguments (x,t)
+##
 ## Revision 1.9  1998/03/30 14:18:07  peterg
 ## Removed NERO command
 ##
 ## Revision 1.8  1998/02/25 18:03:49  peterg
 ## Removed the argument reading bits.
@@ -129,12 +132,25 @@
 cardno!* := 1$
 fortwidth!* := 10000$
 OFF period$
 
 MTTdx := MTTdx;
+
 
 SHUT "$1_ode.m";
+
+OUT "$1_odea.m";
+write "function zero = $1_odea(x,t);";
+write "% zero = $1_odea(x,t);";
+write "%Algebraic equations in octave form for system $1;;";
+write "%File $1_odea.m;;";
+write "%Generated by MTT;;";
+
+%Write algebraic equations if any ...
+zero := MTTYz;
+SHUT "$1_odea.m";
+
 OFF fort;
 % Now do the y = g(x,t) function.
 OUT "$1_odeo.m";
   
 write "function mtty = $1_odeo(x,t);";