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.9  1997/05/10 09:54:34  peterg
+## Moved _input call to after the inner integration loop.
+##
 ## Revision 1.8  1997/05/10 08:12:23  peterg
 ## Put second argument into _input.
 ##
 ## Revision 1.7  1997/05/10 07:01:15  peterg
 ## _input called in outer loop only.
@@ -193,15 +196,16 @@
 write "/* Inner integration loop */"$
 write "    for (k=1; k<=STEPFACTOR; k++)"$
 write "    {"$
 write "      for (i=1; i<=MTTNX; i++)"$
 write "        x[i] = x[i] + dx[i]*dt;"$
+
+write "      /* Set up system inputs */"$
+write "      $1_input(time,itime);"$
 write "      $1_ode();"$
 write "    }"$
 
-write "    /* Set up system inputs */"$
-write "    $1_input(time,itime);"$
 
 write "      time = time + DT;"$
 write "      itime = itime + 1;"$
 write "  }"$