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 1997
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.12 1998/08/10 14:29:05 peterg
## Removed -s (switches) stuff
##
## Revision 1.11 1998/08/10 14:23:58 peterg
## Added -ss option
##
## Revision 1.10 1998/07/27 11:10:38 peterg
## Put in octave-mode line for Emacs
##
## Revision 1.9 1998/07/25 20:10:37 peterg
|
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
-
+
|
esac
shift
done
#Create the input file complete with headers.
echo '# -*-octave-*- Put Emacs into octave-mode' > $1_input.txt
echo "# Numerical parameter file ($1_input.txt)" >> $1_input.txt
echo "# Input specification ($1_input.txt)" >> $1_input.txt
echo "# Generated by MTT at `date`" >> $1_input.txt
cat $MTTPATH/trans/rcs_header.sh >> $1_input.txt
echo "# Set the inputs" >> $1_input.txt
if [ -n "$steadystate_computation" ]; then
# Compute inputs from ss.r file
# Inform user
|
103
104
105
106
107
108
109
110
111
112
113
|
106
107
108
109
110
111
112
113
114
115
116
|
-
+
|
}' Nu=$Nu <$1_struc.txt >> $1_input.txt
fi
#Set some switches
echo >> $1_input.txt
echo "# Set the switches" >> $1_input.txt
strip_comments<$1_switch.txt |\
awk '{if (length($1)>0) print tolower($1) "= (t>=0);"}'
awk '{if (length($1)>0) print tolower($1) "= (t>=0);"}' >> $1_input.txt
|