Overview
| Comment: | Moved _input call to after the inner integration loop. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
2e04639e9233ff686a2eb0bd703e1fcd |
| User & Date: | gawthrop@users.sourceforge.net on 1997-05-10 09:54:34 |
| Other Links: | branch diff | manifest | tags |
Context
|
1997-05-10
| ||
| 10:05:15 | Put _input in inner loop in front of call to _ode check-in: 3abb8bc678 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 09:54:34 | Moved _input call to after the inner integration loop. check-in: 2e04639e92 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 08:12:23 | Put second argument into _input. check-in: f4367ddc0c user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/ode2odes_r2c from [c787bfea9c] to [5abd556ec1].
| ︙ | ︙ | |||
16 17 18 19 20 21 22 23 24 25 26 27 28 29 | # Copyright (c) P.J.Gawthrop 1997. ############################################################### ## 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. ## | > > > | 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | # Copyright (c) P.J.Gawthrop 1997. ############################################################### ## 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. ## Integer time (itime) passed to _input. ## |
| ︙ | ︙ | |||
182 183 184 185 186 187 188 | %Write to state to file write "/* Write to state file */"$ write " fprintf(fps, ""%5.4f "",time);"$ write " for (i=1; i<=MTTNX; i++)"$ write " fprintf(fps, ""%5.4f "", x[i]);"$ write " fprintf(fps, ""\n"");"$ | < < > > > | 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 |
%Write to state to file
write "/* Write to state file */"$
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 "/* 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 " }"$
%Write to files
%Write to output to file
|
| ︙ | ︙ |