Index: mttroot/mtt/bin/trans/mtt_m2p ================================================================== --- mttroot/mtt/bin/trans/mtt_m2p +++ mttroot/mtt/bin/trans/mtt_m2p @@ -13,10 +13,13 @@ ############################################################### ## 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 @@ -269,12 +272,12 @@ 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 " mttpar : ARRAY[1..MTT_MaxParameters] OF REAL;" + echo " mttnpar : INTEGER;" echo "" ;; switchopen) echo "PROCEDURE $Sys_rep(VAR open : StateVector; mttx : StateVector);" echo "VAR"