11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# Copyright (c) P.J.Gawthrop 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.26 1999/02/16 21:43:54 peterg
## Revises smx generation.
##
## Revision 1.25 1999/02/16 04:38:09 peterg
## Now forces creation of _smx file if METHOD=IMPLICIT in simpar.txt
##
## Revision 1.24 1998/11/18 16:56:15 peterg
|
>
>
>
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# Copyright (c) P.J.Gawthrop 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.27 1999/02/16 21:56:52 peterg
## Now gets standard include files directly from source,
##
## Revision 1.26 1999/02/16 21:43:54 peterg
## Revises smx generation.
##
## Revision 1.25 1999/02/16 04:38:09 peterg
## Now forces creation of _smx file if METHOD=IMPLICIT in simpar.txt
##
## Revision 1.24 1998/11/18 16:56:15 peterg
|
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
# Find system constants
Nx=`grep "MTTNx " <$Sys\_def.r | awk '{print $3}' | sed 's/;//'`
Nu=`grep "MTTNu " <$Sys\_def.r | awk '{print $3}' | sed 's/;//'`
Ny=`grep "MTTNy " <$Sys\_def.r | awk '{print $3}' | sed 's/;//'`
if [ "$rep" = "simpar" ]; then
mtt $Sys smx p
fi
# Heading
(case $rep in
state)
echo "PROCEDURE $Sys_rep(VAR mttx : StateVector);"
;;
|
|
|
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
# Find system constants
Nx=`grep "MTTNx " <$Sys\_def.r | awk '{print $3}' | sed 's/;//'`
Nu=`grep "MTTNu " <$Sys\_def.r | awk '{print $3}' | sed 's/;//'`
Ny=`grep "MTTNy " <$Sys\_def.r | awk '{print $3}' | sed 's/;//'`
if [ "$rep" = "simpar" ]; then
mtt -q $Sys smx p
fi
# Heading
(case $rep in
state)
echo "PROCEDURE $Sys_rep(VAR mttx : StateVector);"
;;
|