10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# Copyright (c) P.J.Gawthrop, 1991, 1994, 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.5 1998/08/15 13:51:56 peterg
## smx is now I-Adt NOT A
##
## Revision 1.4 1998/08/13 09:03:35 peterg
## *** empty log message ***
##
## Revision 1.3 1998/07/30 10:49:55 peterg
|
>
>
>
|
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# Copyright (c) P.J.Gawthrop, 1991, 1994, 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.6 1998/08/26 18:25:45 peterg
## SMX now generates both A and Ax
##
## Revision 1.5 1998/08/15 13:51:56 peterg
## smx is now I-Adt NOT A
##
## Revision 1.4 1998/08/13 09:03:35 peterg
## *** empty log message ***
##
## Revision 1.3 1998/07/30 10:49:55 peterg
|
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
ELSE
BEGIN
aa_ij := -mttdt*a_ij;
aa_ji := -mttdt*a_ji;
END;
IF (aa_ij NEQ 0) THEN
GENTRAN mtta(i,j) ::=: aa_ij;
mttAAx_i := mttAAx_i + aa_ij*mkid(mttxx,j);
%%%mttAAtx(i,1) := mttAAtx(i,1) + aa_ji*mkid(mttxx,j);
END;
IF (mttAAx_i NEQ 0) THEN
GENTRAN mttax(i) ::=: mttAAx_i;
END;
|
|
|
|
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
ELSE
BEGIN
aa_ij := -mttdt*a_ij;
aa_ji := -mttdt*a_ji;
END;
IF (aa_ij NEQ 0) THEN
GENTRAN mtta(i,j) ::=: aa_ij;
mttAAx_i := mttAAx_i + aa_ij*mkid(mttx,j);
%%%mttAAtx(i,1) := mttAAtx(i,1) + aa_ji*mkid(mttx,j);
END;
IF (mttAAx_i NEQ 0) THEN
GENTRAN mttax(i) ::=: mttAAx_i;
END;
|
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
%END
%GENTRANSHUT "$1_smxtx.$lang";
EOF
if [ "$lang" = "m" ]; then
mv $1_smx.$lang mtt_junk
lang_header $1 smx m 'mttx,mttu,mttdt,mttxx' '[mtta,mttax]' > $1_smx.m
cat mtt_junk | mtt_p2m >> $1_smx.m
rm -f mtt_junk
# mv $1_smxx.$lang mtt_junk
# lang_header $1 smxx m 'mttx,mttu,mttxx,mttdt' '[mttax]' > $1_smxx.m
# cat mtt_junk | mtt_p2m >> $1_smxx.m
# rm -f mtt_junk
|
|
|
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
|
%END
%GENTRANSHUT "$1_smxtx.$lang";
EOF
if [ "$lang" = "m" ]; then
mv $1_smx.$lang mtt_junk
lang_header $1 smx m 'mttx,mttu,mttdt' '[mtta,mttax]' > $1_smx.m
cat mtt_junk | mtt_p2m >> $1_smx.m
rm -f mtt_junk
# mv $1_smxx.$lang mtt_junk
# lang_header $1 smxx m 'mttx,mttu,mttxx,mttdt' '[mttax]' > $1_smxx.m
# cat mtt_junk | mtt_p2m >> $1_smxx.m
# rm -f mtt_junk
|