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.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.
 ##
 ## Revision 1.2  1996/08/24 14:09:41  peter
 ## Global parameter passing.
@@ -46,11 +49,10 @@
 MTTNVar := 0;
 
 %Read the parameter file
 in "$1_sympar.r";
 
-
 ON NERO;        % Suppress zero elements
 
 %Define the common part of the functions.
 
 PROCEDURE common;
@@ -67,10 +69,13 @@
   END;
   
   write "% Read in the input";
   write "u = $1_input(t)";
 
+  write "% Read in the definitions";
+  write "[nx,ny,nu,nz,nyz] = $1_def";
+
   write "% Read in the arguments";
   write "$1_args";
   
   write "% Set up the State variables";
   FOR i := 1:MTTNx DO