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.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.
 ## time updated in outer loop only.
 ## Integer time (itime) introduced and updated in outer loop - maybe
 ## useful for discrete events.
@@ -184,20 +187,21 @@
 write "    fprintf(fps, ""%5.4f "",time);"$
 write "    for (i=1; i<=MTTNX; i++)"$
 write "      fprintf(fps, ""%5.4f "", x[i]);"$
 write "    fprintf(fps, ""\n"");"$
 
-write "    /* Set up system inputs */"$
-write "    $1_input(time,itime);"$
 
 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 "      $1_ode();"$
 write "    }"$
+
+write "    /* Set up system inputs */"$
+write "    $1_input(time,itime);"$
 
 write "      time = time + DT;"$
 write "      itime = itime + 1;"$
 write "  }"$