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.4 1998/04/07 15:06:46 peterg
## Correct log file name
##
## Revision 1.3 1998/03/07 12:57:19 peterg
## Fixed logname bug
##
## Revision 1.2 1998/03/07 12:51:20 peterg
## This is the new version of ese2dae - it does not do the CRs at this
## stage to give reduce an easier time.
##
|
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
+
+
+
+
+
+
+
|
% Zero outputs
MTT_Matrix := MTTYz$
MTT_Matrix_name := "MTTYz"$
MTT_Matrix_n := MTTNyz$
MTT_Matrix_m := 1$
Reduce_Matrix()$
% Connecting inputs
MTT_Matrix := MTTuc$
MTT_Matrix_name := "MTTuc"$
MTT_Matrix_n := MTTNuc$
MTT_Matrix_m := 1$
Reduce_Matrix()$
write ";END;";
SHUT "$daename";
quit;
EOF
# Now invoke the standard error handling.
mtt_error_r $logname
|