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.5  1996/09/13 19:41:39  peter
+## *** empty log message ***
+##
 ## Revision 1.4  1996/09/12 18:33:32  peter
 ## Put back under rcs
 ##
 ## Revision 1.3  1996/08/30 11:04:28  peter
 ## Changed line length to 500.
@@ -60,14 +63,20 @@
   IF MTTNvar>0 THEN
   BEGIN
     write "% Read in the parameters";
     write "global ...;;";
     FOR i := 1:MTTNvar DO
-    BEGIN
-       IF i<MTTNvar THEN write MTTVar(i,1), " ..."
-                    ELSE write MTTVar(i,1), ";"
-    END;
+    IF numberp(MTTVar(i,1)) 
+      THEN 
+      BEGIN
+      % Do nowt
+      END
+      ELSE  
+      BEGIN
+         IF i<MTTNvar THEN write MTTVar(i,1), " ..."
+                      ELSE write MTTVar(i,1), ";"
+      END;
   END;
   
   write "% Read in the input";
   write "u = $1_input(t)";