Index: mttroot/mtt/bin/trans/ode_r2c ================================================================== --- mttroot/mtt/bin/trans/ode_r2c +++ mttroot/mtt/bin/trans/ode_r2c @@ -18,10 +18,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.1 1997/01/21 10:52:23 peterg +## Initial revision +## ############################################################### # Inform user echo Creating $1_ode.c @@ -67,20 +70,21 @@ write " "$ %Function heading - c style -write "void $1_ode("$ -write " float *y, /* $1_ode output */"$ -write " float *dx, /* $1_ode state derivative */"$ -write " float *x, /* $1_ode state */"$ -write " float *u /* $1_ode input */"$ -write " )"$ +write "void $1_ode()"$ write " "$ write "{"$ +write "/* Declare standard arrays */"$ +write " extern float y[", MTTNy+1, "]; /* $1_ode output */"$ +write " extern float dx[", MTTNx+1, "]; /* $1_ode state derivative */"$ +write " extern float x[", MTTNx+1, "]; /* $1_ode state */"$ +write " extern float u[", MTTNu+1, "]; /* $1_ode input */"$ + %External (global) variable list write "/* External (global) variable list */ "$ IF MTTNvar>0 THEN BEGIN FOR i := 1:MTTNvar DO Index: mttroot/mtt/bin/trans/sympar2numpar_r2c ================================================================== --- mttroot/mtt/bin/trans/sympar2numpar_r2c +++ mttroot/mtt/bin/trans/sympar2numpar_r2c @@ -12,10 +12,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.1 1997/01/21 11:36:26 peterg +## Initial revision +## ############################################################### # Inform user echo Creating $1_numpar.c @@ -73,12 +76,13 @@ echo "/*" > $1_numpar.c echo "%% Numerical parameter file ($1_numpar.c)" >> $1_numpar.c echo "%% Generated by MTT at `date`" >> $1_numpar.c echo "*/" >> $1_numpar.c -echo "void $1_ode()" >> $1_numpar.c +echo "$1_numpar()" >> $1_numpar.c echo "{" >> $1_numpar.c +echo " extern $1_params();" >> $1_numpar.c cat $1_numpar1.c >> $1_numpar.c echo "/*" >> $1_numpar.c echo '%% Input the user-defined parameters' >> $1_numpar.c @@ -89,24 +93,5 @@ rm $1_numpar1.c # Now invoke the standard error handling. mtt_error_r sympar2numpar_r2c.log - - - - - - - - - - - - - - - - - - -