Overview
Comment:Various bug fixes.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 23cfc41def2cf8cc09413debed63a03f1afc5782ca4a99f5987b849b29b8701f
User & Date: gawthrop@users.sourceforge.net on 1997-01-21 22:57:17
Other Links: branch diff | manifest | tags
Context
1997-02-04
18:50:07
Initial revision check-in: a3438c015e user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1997-01-21
22:57:17
Various bug fixes. check-in: 23cfc41def user: gawthrop@users.sourceforge.net tags: origin/master, trunk
22:55:59
Minor bug fixes check-in: 97449a85e5 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/ode_r2c from [26a1e07d19] to [b5b6f49694].

︙
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.1  1997/01/21 10:52:23  peterg
## Initial revision
##
###############################################################

# Inform user
echo Creating $1_ode.c

# Remove the old  files
rm -f $1_ode.c1 $1_ode.c2 $1_ode.c3 $1_ode.c
︙
65
66
67
68
69
70
71
72

73
74
75
76
77
78
79
80
81






82
83
84
85
86
87
88

68
69
70
71
72
73
74

75





76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92








-
+
-
-
-
-
-




+
+
+
+
+
+








write "Generated by MTT"$
write "*/"$
write " "$


%Function heading - c style

write "void $1_ode("$
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 "  "$
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
    IF numberp(MTTVar(i,1)) 
      THEN
︙

Modified mttroot/mtt/bin/trans/sympar2numpar_r2c from [e999be1dc4] to [d052149f27].

︙
10
11
12
13
14
15
16



17
18
19
20
21
22
23

10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26








+
+
+








# Copyright (c) P.J.Gawthrop 1996

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.1  1997/01/21 11:36:26  peterg
## Initial revision
##
###############################################################

# Inform user
echo Creating $1_numpar.c

# Remove the old log file
rm -f sympar2numpar_r2c.log
︙
71
72
73
74
75
76
77
78

79

80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112

74
75
76
77
78
79
80

81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97



























-
+

+














-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-


#Create the numpar file complete with headers.
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
echo "*/" >> $1_numpar.c

echo "$1_params;"   >> $1_numpar.c
echo "};" >> $1_numpar.c

rm $1_numpar1.c

# Now invoke the standard error handling.
mtt_error_r sympar2numpar_r2c.log

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