Index: mttroot/mtt/bin/trans/ode2odes_r2c
==================================================================
--- mttroot/mtt/bin/trans/ode2odes_r2c
+++ mttroot/mtt/bin/trans/ode2odes_r2c
@@ -18,10 +18,17 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## 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.
+## Integer time (itime) passed to _input.
+##
 ## Revision 1.6  1997/05/06 13:53:32  peterg
 ## Now uses the preprocessor to declare sizes -- MTTNX etc
 ##
 # Revision 1.5  1997/05/01  13:50:11  peterg
 # Replaced float by double.
@@ -146,11 +153,11 @@
 %Set up system inputs
 write "/* Set up system inputs */"$
 write "  for (i=1; i<=", MTTNu, "; i++)"$
 write "      u[i] = 1.0;"$
 
-write "  $1_input(0.0);"$
+write "  $1_input(0.0,0);"$
 
 write "    fprintf(fps, ""function data = ", "$1_odes \n"");"$
 write "    fprintf(fps, ""data = [\n"");"$
 write "    fprintf(fpso, ""function data = ", "$1_odeso \n"");"$
 write "    fprintf(fpso, ""data = [\n"");"$
@@ -178,11 +185,11 @@
 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);"$
+write "    $1_input(time,itime);"$
 
 write "/* Inner integration loop */"$
 write "    for (k=1; k<=STEPFACTOR; k++)"$
 write "    {"$
 write "      for (i=1; i<=MTTNX; i++)"$