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.7 2000/09/01 13:34:15 peterg
## Exit on option error
##
## Revision 1.6 2000/09/01 13:30:32 peterg
## Added -partition switch
##
## Revision 1.5 2000/09/01 12:14:57 peterg
## Added connecti9ng inputs
##
## Revision 1.4 1998/04/07 15:06:46 peterg
|
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
|
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
|
-
+
|
EOF
if [ -n "$partition" ]; then
rm -f mtt_junk
# Now for the subsystems
# Find subsystems
subsystems=`sh rc2_type.sh 'echo ' ' ' | awk '{if (NR>1) print $2}'`
subsystems=`mtt_get_subsystems $1`
for subsystem in $subsystems; do
echo Doing $subsystem
ucname="MTT_"$subsystem"_uc"
Nu=`mtt_getsize -internal $subsystem"_1" u`
echo Nu $Nu
|
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
|
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
|
+
+
|
MTT_Matrix_m := 1$
Reduce_Matrix()$
shut "mtt_junk";
EOF
echo >> $1_rdae.r
echo %Connections for subsystem $subsystem >> $1_rdae.r
echo >> $1_rdae.r
cat mtt_junk >> $1_rdae.r
rm -rf mtt_junk
done
fi
echo "END;" >> $1_rdae.r
# Now invoke the standard error handling.
mtt_error_r $logname
|