Index: mttroot/mtt/bin/trans/mtt_m2p
==================================================================
--- mttroot/mtt/bin/trans/mtt_m2p
+++ mttroot/mtt/bin/trans/mtt_m2p
@@ -13,10 +13,14 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.31  1999/08/02 13:40:03  peterg
+## Added zero-state and zero_input to include list
+## Removed zero_matrix
+##
 ## Revision 1.30  1999/04/20 06:16:46  peterg
 ## Removed calls to _switch.m
 ##
 ## Revision 1.29  1999/04/02 06:27:55  peterg
 ## Modified for new implicit method with swoitches
@@ -162,10 +166,12 @@
 	echo "                   VAR mttu       : InputVector;"
 	echo "                       mttdt      : REAL);"
 	;;
     ode2odes)
 	echo "PROGRAM $Sys_rep;"
+	echo "CONST"
+	echo "    MTT_MaxParameters = 100;"
 	echo "TYPE"
 	echo "    StateVector  = ARRAY[1..$Nx] OF REAL;"
 	echo "    InputVector  = ARRAY[1..$Nu] OF REAL;"
 	echo "    OutputVector = ARRAY[1..$Ny] OF REAL;"
 	echo "    StateMatrix  = ARRAY[1..$Nx,1..$Nx] OF REAL;"
@@ -181,13 +187,16 @@
         echo "    MTTWMIN,mttWMAX             : REAL;"
 	echo "    mttx,mttdx,mttxx,mttAAx     : StateVector;"
 	echo "    mttu                        : InputVector;"
 	echo "    mtty                        : OutputVector;"
 	echo "    mttAA                       : StateMatrix;"
-	echo "    MTTi,MTTj,MTTit,MTTjt,MTTiLast,mttSTEPFACTOR,mttWSTEPS,mttSTEPS,mttINPUT : INTEGER;"
+	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"
@@ -280,10 +289,11 @@
           printf("{%s $MTTPATH/trans/p/mtt_euler.p}\n",inc)
           printf("{%s $MTTPATH/trans/p/mtt_implicit.p}\n",inc)
           # printf("{%s $MTTPATH/trans/p/zero_matrix.p}\n",inc)
           printf("{%s $MTTPATH/trans/p/zero_input.p}\n",inc)
           printf("{%s $MTTPATH/trans/p/zero_state.p}\n",inc)
+          printf("{%s $MTTPATH/trans/p/mtt_getargs.p}\n",inc)
           printf("{%s %s_simpar.p}\n",inc,Sys) 
           printf("{%s %s_numpar.p}\n",inc,Sys)
           printf("{%s %s_state.p}\n",inc,Sys)
           printf("{%s %s_input.p}\n",inc,Sys)
           printf("{%s %s_ode.p}\n",inc,Sys)