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.12  1997/05/15  08:39:56  peterg
+# Don't initialise states - now done in numpar file.
+#
 # Revision 1.11  1997/05/12  16:00:54  peterg
 # Removed itime again.,
 #
 # Revision 1.10  1997/05/10  10:05:15  peterg
 # Put _input in inner loop in front of call to _ode
@@ -182,20 +185,20 @@
 write "  while (time<LAST)"$
 write "  {"$
 
 %Write to output to file
 write "/* Write to output file */"$
-write "    fprintf(fpso, ""%5.4f "",time);"$
+write "    fprintf(fpso, ""%5.4g "",time);"$
 write "    for (i=1; i<=MTTNY; i++)"$
-write "      fprintf(fpso, ""%5.4f "", y[i]);"$
+write "      fprintf(fpso, ""%5.4g "", y[i]);"$
 write "    fprintf(fpso, ""\n"");"$
 
 %Write to state to file
 write "/* Write to state file */"$
-write "    fprintf(fps, ""%5.4f "",time);"$
+write "    fprintf(fps, ""%5.4g "",time);"$
 write "    for (i=1; i<=MTTNX; i++)"$
-write "      fprintf(fps, ""%5.4f "", x[i]);"$
+write "      fprintf(fps, ""%5.4g "", x[i]);"$
 write "    fprintf(fps, ""\n"");"$
 
 
 write "/* Inner integration loop */"$
 write "    for (k=1; k<=STEPFACTOR; k++)"$
@@ -213,20 +216,20 @@
 write "  }"$
 
 %Write to files
 %Write to output to file
 write "/* Write to output file */"$
-write "    fprintf(fpso, ""%5.4f "",time);"$
+write "    fprintf(fpso, ""%5.4g "",time);"$
 write "    for (i=1; i<=MTTNY; i++)"$
-write "      fprintf(fpso, ""%5.4f "", y[i]);"$
+write "      fprintf(fpso, ""%5.4g "", y[i]);"$
 write "    fprintf(fpso, ""\n"");"$
 
 %Write to state to file
 write "/* Write to state file */"$
-write "    fprintf(fps, ""%5.4f "",time);"$
+write "    fprintf(fps, ""%5.4g "",time);"$
 write "    for (i=1; i<=MTTNX; i++)"$
-write "      fprintf(fps, ""%5.4f "", x[i]);"$
+write "      fprintf(fps, ""%5.4g "", x[i]);"$
 write "    fprintf(fps, ""\n"");"$
 
 
 write "  fprintf(fps, ""];\n"");"$
 write "  fprintf(fpso, ""];\n"");"$