10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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.2 2000/09/01 13:36:15 peterg
## Added -partition option
##
## Revision 1.1 2000/09/01 12:14:44 peterg
## Initial revision
##
## Revision 1.3 1998/03/07 12:57:19 peterg
## Fixed logname bug
##
## Revision 1.2 1998/03/07 12:51:20 peterg
|
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
-
+
+
+
+
+
+
|
OFF Echo;
OFF Nat;
%Create the output file
OUT "$daename";
write "in ""$defname""";
%write "in ""$defname""";
write "MTTNx := ", MTTNx;
write "MTTNz := ", MTTNz;
write "MTTNy := ", MTTNy;
write "MTTNyz := ", MTTNyz;
% State
MTT_Matrix := MTTdX$
MTT_Matrix_name := "MTTdX"$
MTT_Matrix_n := MTTNx$
MTT_Matrix_m := 1$
Reduce_Matrix()$
|