Overview
Comment:Don't initialise states - now done in numpar file.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: b91f5e3f604eb0d54100048da2235417b6d092efd0406f63db06b0670e651124
User & Date: gawthrop@users.sourceforge.net on 1997-05-15 08:39:56
Other Links: branch diff | manifest | tags
Context
1997-05-15
09:15:54
Included switch.c in dependancy list for _input.c (when -s switch set) check-in: da1dd1dcc3 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
08:39:56
Don't initialise states - now done in numpar file. check-in: b91f5e3f60 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
08:33:07
Declare state array (x). check-in: e031e694ec user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/ode2odes_r2c from [e440f7df4b] to [f8772c6205].

︙
16
17
18
19
20
21
22



23
24
25
26
27
28
29

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.11  1997/05/12  16:00:54  peterg
# Removed itime again.,
#
# Revision 1.10  1997/05/10  10:05:15  peterg
# Put _input in inner loop in front of call to _ode
#
## 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
︙
150
151
152
153
154
155
156
157
158


159
160
161
162
163
164
165

153
154
155
156
157
158
159


160
161
162
163
164
165
166
167
168








-
-
+
+








write "/* Set up user-defined constants */"$
write "  $1_numpar();"$

%Initialise main (Euler) integration loop
write "/* Initialise main (Euler) integration loop */"$
write "  time = 0.0;"$
write "  dt = DT/STEPFACTOR;"$
write "  for (i=1; i<=MTTNX; i++)"$
write "      x[i] = 0.0;"$
%% write "  for (i=1; i<=MTTNX; i++)"$
%% write "      x[i] = 0.0;"$

%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);"$
︙

MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]