80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
-
+
-
-
+
+
|
if [ "$representation" = "input" ]; then
name='mttu';
arg='(mttt,mttx,mtty)'
fi
if [ "$representation" = "simpar" ]; then
# Check if implicit method and generate xmx.m if
implicit=`grep -i METHOD $1_simpar.txt | grep -i -c IMPLICIT`
if [ "$implicit" = "1" ]; then
if [ "$implicit" = "0" ]; then
mtt -q $1 smx m
else
|
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
|
}
{
N=split($1,a,"=");
if (N==2) {
LHS = a[1];
RHS = a[2];
gsub(quote, doublequote, RHS);
sub(/^LAST/, "mttLAST", LHS);
sub(/^DT/, "mttDT", LHS);
sub(/^STEPFACTOR/, "mttSTEPFACTOR", LHS);
sub(/^METHOD/, "mttMETHOD", LHS);
sub(/^WMIN/, "mttWMIN", LHS);
sub(/^WMAX/, "mttWMAX", LHS);
sub(/^WSTEPS/, "mttWSTEPS", LHS);
sub(/^INPUT/, "mttinput", LHS);
sub(/^[ ]*LAST/, "mttLAST", LHS);
sub(/^[ ]*DT/, "mttDT", LHS);
sub(/^[ ]*STEPFACTOR/, "mttSTEPFACTOR", LHS);
sub(/^[ ]*METHOD/, "mttMETHOD", LHS);
sub(/^[ ]*WMIN/, "mttWMIN", LHS);
sub(/^[ ]*WMAX/, "mttWMAX", LHS);
sub(/^[ ]*WSTEPS/, "mttWSTEPS", LHS);
sub(/^[ ]*INPUT/, "mttinput", LHS);
LHS = tolower(LHS);
RHS = tolower(RHS);
sub(/["]*euler["]*/, 1, RHS);
sub(/["]*implicit["]*/, 2, RHS);
statement = sprintf("%s= %s",LHS,RHS);
if ( (match(statement,";")==0)&&\
((match(statement,"if ")==0))&&\
|