11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# Copyright (c) P.J.Gawthrop, 1997.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.5 1997/06/13 09:42:25 peterg
## Auto change of () to []
##
# Revision 1.4 1997/05/15 08:33:07 peterg
# Declare state array (x).
#
# Revision 1.3 1997/05/03 15:01:42 peterg
|
>
>
>
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# Copyright (c) P.J.Gawthrop, 1997.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.6 2000/12/28 12:52:13 peterg
## *** empty log message ***
##
## Revision 1.5 1997/06/13 09:42:25 peterg
## Auto change of () to []
##
# Revision 1.4 1997/05/15 08:33:07 peterg
# Declare state array (x).
#
# Revision 1.3 1997/05/03 15:01:42 peterg
|
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
echo "extern double x[MTTNX1];" >> $1_numpar.c
echo "#include \"$1_sympar.c\"" >> $1_numpar.c
echo "$1_numpar()" >> $1_numpar.c
echo '{' >> $1_numpar.c
#Write out the variables in c format.
sed 's/#C-CODE //'< $1_numpar.txt |\
awk -F# '{
if (NF<2) print $1
if (NF>1) print $1 "/* " $2 " */"
}' | sed 's/(\([0-9]*\))/[\1]/' >> $1_numpar.c
echo '}' >> $1_numpar.c
|
|
|
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
echo "extern double x[MTTNX1];" >> $1_numpar.c
echo "#include \"$1_sympar.c\"" >> $1_numpar.c
echo "$1_numpar()" >> $1_numpar.c
echo '{' >> $1_numpar.c
#Write out the variables in c format.
sed 's/#C-CODE //'< $1_numpar.txt |\
gawk -F# '{
if (NF<2) print $1
if (NF>1) print $1 "/* " $2 " */"
}' | sed 's/(\([0-9]*\))/[\1]/' >> $1_numpar.c
echo '}' >> $1_numpar.c
|