Index: mttroot/mtt/bin/trans/ode2odes_r2c
==================================================================
--- mttroot/mtt/bin/trans/ode2odes_r2c
+++ mttroot/mtt/bin/trans/ode2odes_r2c
@@ -18,10 +18,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+# Revision 1.3  1997/05/01  11:15:33  peterg
+# Back under RCS
+#
 # Revision 1.2  1997/03/20  14:36:56  peterg
 # Includes the sympar.h file
 #
 ## Revision 1.1  1997/01/21 22:54:54  peterg
 ## Initial revision
@@ -74,14 +77,14 @@
 %External (global) variable list
 write "#include ""$1_sympar.h"" "$
 
 
 write "/* Declare standard arrays */"$
-write "double y[", MTTNy+1, "]; /* $1_ode output */"$
-write "double dx[", MTTNx+1, "]; /* $1_ode state derivative */"$ 
-write "double x[", MTTNx+1, "]; /* $1_ode state */"$ 
-write "double u[", MTTNu+1, "]; /* $1_ode input */"$
+write "float y[", MTTNy+1, "]; /* $1_ode output */"$
+write "float dx[", MTTNx+1, "]; /* $1_ode state derivative */"$ 
+write "float x[", MTTNx+1, "]; /* $1_ode state */"$ 
+write "float u[", MTTNu+1, "]; /* $1_ode input */"$
 
 
 write "/* Files */ "$
 write "  FILE *fopen(), *fps, *fpso;"$
 
@@ -90,12 +93,12 @@
 write "{"$
 
 
 
 write "/* Counters etc*/ "$
-write "  double time;"$
-write "  double dt;"$
+write "  float time;"$
+write "  float dt;"$
 write "  int i;"$
 write "  int k;"$
 
 write "/*functions */ "$
 write "  extern  $1_numpar();"$

Index: mttroot/mtt/bin/trans/ode_r2c
==================================================================
--- mttroot/mtt/bin/trans/ode_r2c
+++ mttroot/mtt/bin/trans/ode_r2c
@@ -18,10 +18,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+# Revision 1.3  1997/03/20  14:51:11  peterg
+# Includes the sympar.c file.
+#
 # Revision 1.2  1997/01/21  22:57:17  peterg
 # Various bug fixes.
 #
 ## Revision 1.1  1997/01/21 10:52:23  peterg
 ## Initial revision
@@ -80,34 +83,34 @@
 
 write "  "$
 write "{"$
 
 write "/* Declare standard arrays */"$
-write "  extern double y[", MTTNy+1, "]; /* $1_ode output */"$
-write "  extern double dx[", MTTNx+1, "]; /* $1_ode state derivative */"$ 
-write "  extern double x[", MTTNx+1, "]; /* $1_ode state */"$ 
-write "  extern double u[", MTTNu+1, "]; /* $1_ode input */"$
+write "  extern float y[", MTTNy+1, "]; /* $1_ode output */"$
+write "  extern float dx[", MTTNx+1, "]; /* $1_ode state derivative */"$ 
+write "  extern float x[", MTTNx+1, "]; /* $1_ode state */"$ 
+write "  extern float u[", MTTNu+1, "]; /* $1_ode input */"$
 
 %Declare the dummy variables t0--t9
 write "/* Dummy variable list */ "$
-write "  double t0;"$
+write "  float t0;"$
 FOR i := 1:9 DO
 BEGIN
-  write "  double t", i, ";"$
+  write "  float t", i, ";"$
 END$
 
 %Declarations$
 write "/* State variable list */ "$
 FOR i := 1:MTTNx DO
 BEGIN
-  write "  double mttx", i, ";"$
+  write "  float mttx", i, ";"$
 END$
 
 write "/* Input variable list */ "$
 FOR i := 1:MTTNu DO
 BEGIN
-  write "  double mttu", i, ";"$
+  write "  float mttu", i, ";"$
 END$
 
 write "/* Counter */ "$
 write "  int i;"$
 
@@ -133,11 +136,11 @@
 
 
 write "  "$
 write "    /*====== Compute the state derivative and output ======*/"$
 
-SHUT $1_ode.c1
+SHUT "$1_ode.c1";
 
 % Load the general translator package
 LOAD GENTRAN;
 GENTRANLANG!* := 'C;
 ON GENTRANSEG;