12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
###############################################################
## Version control history
###############################################################
## $Id$
##
## $Log$
## Revision 1.11 1997/12/16 18:05:03 peterg
## Increased size of structure vector by on to include unknown_inputs as
## 6th element
##
## Revision 1.10 1997/04/15 09:18:26 peterg
## Added structure file
##
|
>
>
>
|
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
###############################################################
## Version control history
###############################################################
## $Id$
##
## $Log$
## 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
##
## Revision 1.10 1997/04/15 09:18:26 peterg
## Added structure file
##
|
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
infofile='mtt_info.txt';
structurefile="$1_struc.txt";
eqnfile="$1_ese.r";
deffile="$1_def.r";
# Remove the old log file
rm -f cbg2ese_m.log
rm -f $1_ese.r
#Inform user
echo Creating $eqnfile
echo Creating $deffile
echo Creating $structurefile
# Use matrix manipulation to accomplish the transformation
|
>
>
|
|
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
infofile='mtt_info.txt';
structurefile="$1_struc.txt";
eqnfile="$1_ese.r";
deffile="$1_def.r";
# Remove the old log file
rm -f cbg2ese_m.log
# Remove relevent ese files
rm -f $1_ese.r $1_*_ese.r
#Inform user
echo Creating $eqnfile
echo Creating $deffile
echo Creating $structurefile
# Use matrix manipulation to accomplish the transformation
|
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
1, structure, structurefilenum, infofilenum);
makedef(structure,deffilenum);
EOF
cat $infofile
cat $1*ese.r - > $1_ese.tmp 2>> mtt_error.txt <<EOF
END;
EOF
mv $1_ese.tmp $1_ese.r
# Sort the struc file
mv $structurefile junk
sort -k 1,1 -k 2,2n junk >$structurefile
# Now invoke the standard error handling.
mtt_error mtt_error.txt
|
>
|
|
<
>
>
>
|
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
1, structure, structurefilenum, infofilenum);
makedef(structure,deffilenum);
EOF
cat $infofile
# 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
rm -f $1_*_ese.r
# Sort the struc file
mv $structurefile junk
sort -k 1,1 -k 2,2n junk >$structurefile
# Now invoke the standard error handling.
mtt_error mtt_error.txt
|