11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% Version control history
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% $Id$
# %% $Log$
# %% Revision 1.12 1998/08/14 10:47:31 peterg
# %% Put ImplicitS sub before Implicit!!
# %%
# %% Revision 1.11 1998/08/14 10:43:44 peterg
# %% Added ImplicitS - sparse integration
# %%
# %% Revision 1.10 1998/08/11 13:27:51 peterg
|
>
>
>
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% Version control history
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% $Id$
# %% $Log$
# %% Revision 1.13 1998/08/31 11:43:37 peterg
# %% Now lower cases globals in numpar files
# %%
# %% Revision 1.12 1998/08/14 10:47:31 peterg
# %% Put ImplicitS sub before Implicit!!
# %%
# %% Revision 1.11 1998/08/14 10:43:44 peterg
# %% Added ImplicitS - sparse integration
# %%
# %% Revision 1.10 1998/08/11 13:27:51 peterg
|
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
name='mttx';
arg='';
fi
if [ "$representation" = "input" ]; then
name='mttu';
arg='(mttx,mttt)'
fi
# Inform user
echo Creating $1_$2.m
#Create the $2 file complete with headers.
case $representation in
simpar)
|
>
>
>
>
>
>
>
|
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
name='mttx';
arg='';
fi
if [ "$representation" = "input" ]; then
name='mttu';
arg='(mttx,mttt)'
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
mtt -q $1 smx m
fi
fi
# Inform user
echo Creating $1_$2.m
#Create the $2 file complete with headers.
case $representation in
simpar)
|
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
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);
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))&&\
|
>
|
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
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))&&\
|