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.4  1997/05/01  13:43:44  peterg
+# Changed double to float.
+#
 # 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
@@ -77,14 +80,14 @@
 %External (global) variable list
 write "#include ""$1_sympar.h"" "$
 
 
 write "/* Declare standard arrays */"$
-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 "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 "/* Files */ "$
 write "  FILE *fopen(), *fps, *fpso;"$
 
@@ -93,12 +96,12 @@
 write "{"$
 
 
 
 write "/* Counters etc*/ "$
-write "  float time;"$
-write "  float dt;"$
+write "  double time;"$
+write "  double 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.4  1997/05/01  13:44:19  peterg
+# Changed double to float.
+#
 # 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.
@@ -83,34 +86,34 @@
 
 write "  "$
 write "{"$
 
 write "/* Declare standard arrays */"$
-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 */"$
+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 */"$
 
 %Declare the dummy variables t0--t9
 write "/* Dummy variable list */ "$
-write "  float t0;"$
+write "  double t0;"$
 FOR i := 1:9 DO
 BEGIN
-  write "  float t", i, ";"$
+  write "  double t", i, ";"$
 END$
 
 %Declarations$
 write "/* State variable list */ "$
 FOR i := 1:MTTNx DO
 BEGIN
-  write "  float mttx", i, ";"$
+  write "  double mttx", i, ";"$
 END$
 
 write "/* Input variable list */ "$
 FOR i := 1:MTTNu DO
 BEGIN
-  write "  float mttu", i, ";"$
+  write "  double mttu", i, ";"$
 END$
 
 write "/* Counter */ "$
 write "  int i;"$
 

Index: mttroot/mtt/bin/trans/sympar_txt2h
==================================================================
--- mttroot/mtt/bin/trans/sympar_txt2h
+++ mttroot/mtt/bin/trans/sympar_txt2h
@@ -13,10 +13,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+# Revision 1.3  1997/05/01  13:42:43  peterg
+# Chaged double to float
+#
 # Revision 1.2  1997/03/20  15:14:25  peterg
 # Lower case conversion.
 #
 # Revision 1.1  1997/03/20  14:52:41  peterg
 # Initial revision
@@ -37,11 +40,11 @@
 echo '*/' >> $1_sympar.h
 echo  >> $1_sympar.h
 
 
 #Write out the variables in c format.
-awk '{i++; print "float", tolower($1) ";"}' $1_sympar.txt  >> $1_sympar.h
+awk '{i++; print "double", tolower($1) ";"}' $1_sympar.txt  >> $1_sympar.h
 
 # Now invoke the standard error handling.
 # mtt_error mtt_error.txt