127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
|
}
{
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/, "MTTsimpar.LAST", LHS);
sub(/^[ ]*DT/, "MTTsimpar.DT", LHS);
sub(/^[ ]*STEPFACTOR/, "MTTsimpar.STEPFACTOR", LHS);
sub(/^[ ]*METHOD/, "MTTsimpar.METHOD", LHS);
sub(/^[ ]*WMIN/, "MTTsimpar.WMIN", LHS);
sub(/^[ ]*WMAX/, "MTTsimpar.WMAX", LHS);
sub(/^[ ]*WSTEPS/, "MTTsimpar.WSTEPS", LHS);
sub(/^[ ]*INPUT/, "MTTsimpar.input", 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))&&\
|