Overview
Comment:Changed arguments to _inout for consistency
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 36aa713d93ca5fa8b3a146e81939f02d3a9105657e554309aeb11eba03103740
User & Date: gawthrop@users.sourceforge.net on 2000-10-14 08:04:40
Other Links: branch diff | manifest | tags
Context
2000-10-14
08:50:07
Use new mtt_header check-in: 0e31cd627c user: gawthrop@users.sourceforge.net tags: origin/master, trunk
08:04:40
Changed arguments to _inout for consistency check-in: 36aa713d93 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
07:58:56
Put in leading spaces to prettify code check-in: 36b44e894f user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/make_ode2odes from [8e1bc6b73a] to [6ea960f185]. 

1
2
3
4
5
6
7
8
9
10
11



12
13
14
15
16
17
18

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21












+
+
+








#! /bin/sh

     ###################################### 
     ##### Model Transformation Tools #####
    ######################################

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.38  2000/10/11 09:08:08  peterg
## cse --> csex
##
## Revision 1.37  2000/08/01 12:25:06  peterg
## Now includes euler
##
## Revision 1.36  2000/05/19 17:48:16  peterg
## Argument to state
##
## Revision 1.35  2000/05/18 18:59:40  peterg
︙
183
184
185
186
187
188
189
190
191


192
193
194
195
196
197
198

186
187
188
189
190
191
192


193
194
195
196
197
198
199
200
201








-
-
+
+








##  [u]  = zero_input($Nu);		# Zero the input
  for MTTi=1:$Nu
    u(MTTi) = 0;
  endfor;

  mttj = 0;
    for it = 1:ilast		#Integration loop
    [y] = $1_$odeo(x,u,t,par);# Output 
    [u] = $1_input(t,x,y);	# Input
    [y] = $1_$odeo(x,u,t,par);  # Output 
    [u] = $1_input(x,y,t,par);	# Input
    if mttj==0
     mtt_write(t,x,y,$Nx,$Ny);   # Write it out
    endif
    [dx] = $1_$ode(x,u,t,par);	# State derivative
EOF

if [ "$method" = "implicit" ]; then
︙

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