10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# Copyright (c) P.J.Gawthrop, 1991, 1994, 1996
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.4 2000/09/04 08:42:53 peterg
## Put in extra echo to space output
##
## Revision 1.3 2000/09/02 15:55:11 peterg
## Now doesn't include def files in da files
##
## Revision 1.2 2000/09/01 13:36:15 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, 1996
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.5 2000/12/28 12:39:02 peterg
## Put under RCS
##
## Revision 1.4 2000/09/04 08:42:53 peterg
## Put in extra echo to space output
##
## Revision 1.3 2000/09/02 15:55:11 peterg
## Now doesn't include def files in da files
##
## Revision 1.2 2000/09/01 13:36:15 peterg
|
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
OFF Nat;
%Create the output file
OUT "$daename";
%write "in ""$defname""";
write "MTTNx := ", MTTNx;
write "MTTNz := ", MTTNz;
write "MTTNy := ", MTTNy;
write "MTTNyz := ", MTTNyz;
% State
MTT_Matrix := MTTdX$
|
>
|
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
OFF Nat;
%Create the output file
OUT "$daename";
%write "in ""$defname""";
write "MTTNu := ", MTTNu;
write "MTTNx := ", MTTNx;
write "MTTNz := ", MTTNz;
write "MTTNy := ", MTTNy;
write "MTTNyz := ", MTTNyz;
% State
MTT_Matrix := MTTdX$
|