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.40 2000/04/07 19:09:04 peterg
## New smxa and smxax reps
##
## Revision 1.39 2000/04/07 13:38:13 peterg
## New mtt_getsize to replace bc
##
## Revision 1.38 2000/04/07 13:24:41 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.41 2000/04/18 10:13:43 peterg
## Getargs now after numpar file
##
## Revision 1.40 2000/04/07 19:09:04 peterg
## New smxa and smxax reps
##
## Revision 1.39 2000/04/07 13:38:13 peterg
## New mtt_getsize to replace bc
##
## Revision 1.38 2000/04/07 13:24:41 peterg
|
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
|
echo " mtty : OutputVector;"
echo " mttpar : ParameterVector;"
echo " mttAA, mttE : StateMatrix;"
echo " MTTi,MTTj,MTTit,MTTjt,MTTiLast: INTEGER;"
echo " mttSTEPFACTOR,mttWSTEPS,mttSTEPS,mttINPUT : INTEGER;"
## echo " mttMETHOD : IntegrationMethod;"
echo " MTTopen : StateVector;"
echo " mtt_parameters : ARRAY[1..MTT_MaxParameters] OF REAL;"
echo " mtt_n_parameters : INTEGER;"
echo ""
;;
switchopen)
echo "PROCEDURE $Sys_rep(VAR open : StateVector; mttx : StateVector);"
echo "VAR"
echo " MTTi,MTTj : INTEGER;"
;;
|
|
|
|
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
|
echo " mtty : OutputVector;"
echo " mttpar : ParameterVector;"
echo " mttAA, mttE : StateMatrix;"
echo " MTTi,MTTj,MTTit,MTTjt,MTTiLast: INTEGER;"
echo " mttSTEPFACTOR,mttWSTEPS,mttSTEPS,mttINPUT : INTEGER;"
## echo " mttMETHOD : IntegrationMethod;"
echo " MTTopen : StateVector;"
echo " mttpar : ARRAY[1..MTT_MaxParameters] OF REAL;"
echo " mttnpar : INTEGER;"
echo ""
;;
switchopen)
echo "PROCEDURE $Sys_rep(VAR open : StateVector; mttx : StateVector);"
echo "VAR"
echo " MTTi,MTTj : INTEGER;"
;;
|