12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
+
+
+
|
###############################################################
## Version control history
###############################################################
## $Id$
##
## $Log$
## Revision 1.13 1998/05/12 14:49:10 peterg
## Don't write END; any more - ese-tidy does this now!
##
## Revision 1.12 1998/01/23 13:30:46 peterg
## $RMATRIX --> $MATRIX
##
## Revision 1.11 1997/12/16 18:05:03 peterg
## Increased size of structure vector by on to include unknown_inputs as
## 6th element
##
|
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
+
+
+
+
+
+
+
+
+
+
+
|
## Revision 1.2 1996/08/08 18:08:37 peter
## Sorted out file naming scheme.
##
## Revision 1.1 1996/08/08 15:57:15 peter
## Initial revision
##
###############################################################
while [ -n "`echo $1 | grep '^-'`" ]; do
case $1 in
-I )
info=info;;
*)
echo "$1 is an invalid argument - ignoring" ;;
esac
shift
done
infofile='mtt_info.txt';
structurefile="$1_struc.txt";
eqnfile="$1_ese.r";
deffile="$1_def.r";
# Remove the old log file
|
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
+
+
-
+
+
|
structure = cbg2ese(system_name, system_type, system_cr, ...
system_args, full_name, full_name_repetition, ...
1, structure, structurefilenum, infofilenum);
makedef(structure,deffilenum);
EOF
if [ "$info" = "info" ]; then
cat $infofile
cat $infofile
fi
# Create the composite ese file
cat $1_ese.r $1_*_ese.r > $1_ese.tmp 2>> /dev/null
mv $1_ese.tmp $1_ese.r
# Zap the sub ese files
|