11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
+
+
+
|
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% Version control history
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% $Id$
# %% $Log$
# %% Revision 1.11 1998/08/14 10:43:44 peterg
# %% Added ImplicitS - sparse integration
# %%
# %% Revision 1.10 1998/08/11 13:27:51 peterg
# %% Lowercase mttLAST etc
# %%
# %% Revision 1.9 1998/07/30 15:07:17 peterg
# %% Added _ to the disallowed chars around t
# %%
# %% Revision 1.8 1998/07/30 12:52:38 peterg
|
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
-
-
+
+
|
sub(/^WMIN/, "mttWMIN", LHS);
sub(/^WMAX/, "mttWMAX", LHS);
sub(/^WSTEPS/, "mttWSTEPS", LHS);
LHS = tolower(LHS);
RHS = tolower(RHS);
sub(/["]*euler["]*/, 1, RHS);
sub(/["]*implicitl["]*/, 2, RHS);
sub(/["]*implicit["]*/, 3, RHS);
sub(/["]*implicits["]*/, 4, RHS);
sub(/["]*implicits["]*/, 4, RHS);
sub(/["]*implicit["]*/, 3, RHS);
statement = sprintf("%s= %s",LHS,RHS);
if ( (match(statement,";")==0)&&\
((match(statement,"if ")==0))&&\
((match(statement,"for ")==0)) )
statement = sprintf("%s;", statement);
}
else
|