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.56 2000/10/14 09:14:24 peterg +## *** empty log message *** +## ## Revision 1.55 2000/10/11 09:06:17 peterg ## New csex rep (uses scope optimisation) ## ## Revision 1.54 2000/09/30 14:10:06 peterg ## Zap lines containing "Remove in mtt_m2p" @@ -238,13 +241,14 @@ simpar) echo "PROCEDURE $Sys_rep(VAR mttsimpar : SimulationParameters);" ;; input) echo "PROCEDURE $Sys_rep(VAR mttu : InputVector;" - echo " mttt : REAL;" echo " mttx : StateVector;" - echo " mtty : OutputVector);" + echo " mtty : OutputVector;" + echo " mttt : REAL;" + echo " mttpar : ParameterVector);" ;; ode) echo "PROCEDURE $Sys_rep(VAR mttdx: StateVector;" echo " mttx : StateVector;" echo " mttu : InputVector;" @@ -335,11 +339,12 @@ ##echo " mttSTEPFACTOR,mttWSTEPS,mttSTEPS,mttINPUT : INTEGER;" ## echo " mttMETHOD : IntegrationMethod;" echo " open_switches : StateVector;" echo " numparfile, statefile, simparfile : TEXT;" echo "" - sympar_txt2declare $Sys p + mtt_txt2declare $Sys sympar p + mtt_txt2declare $Sys struc p ;; switchopen) echo "PROCEDURE $Sys_rep(VAR open : StateVector; mttx : StateVector);" echo "VAR" echo " MTTi,MTTj : INTEGER;" @@ -466,10 +471,11 @@ printf("%s : REAL;\n", global[i]) printvar("x",Nx); printvar("u",Nu); printvar("y",Ny); printvar("_tmp",N_tmp); + printvar("_s",N_tmp); printf("VAR mtt_i, mtt_j : INTEGER;\n"); #if ( (rep=="smxa")||(rep=="smxax") ) { # printvar("_t",Nt); #} printf("\nBEGIN{%s}\n", Sys_rep)