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.29  1999/04/02 06:27:55  peterg
+## Modified for new implicit method with swoitches
+##
 ## Revision 1.28  1999/02/17 02:59:54  peterg
 ## Added -q switch to mtt
 ##
 ## Revision 1.27  1999/02/16 21:56:52  peterg
 ## Now gets standard include files directly from source,
@@ -180,15 +183,10 @@
 	echo "    MTTi,MTTj,MTTit,MTTjt,MTTiLast,mttSTEPFACTOR,mttWSTEPS,mttSTEPS,mttINPUT : INTEGER;"
 	echo "    mttMETHOD : IntegrationMethod;"
 	echo "    MTTopen  : StateVector;"
 	echo ""
         ;;
-    switch)
-	echo "PROCEDURE $Sys_rep(VAR mttx : StateVector);"
-	echo "VAR"
-	echo "    MTTi,MTTj :  INTEGER;"
-	;;
     switchopen)
 	echo "PROCEDURE $Sys_rep(VAR open : StateVector; mttx : StateVector);"
 	echo "VAR"
 	echo "    MTTi,MTTj :  INTEGER;"
 	;;
@@ -284,11 +282,10 @@
           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)
           printf("{%s %s_odeo.p}\n",inc,Sys)
-          printf("{%s %s_switch.p}\n\n",inc,Sys)
           printf("{%s %s_switchopen.p}\n\n",inc,Sys)
           printf("\n{%s %s_smx.p}\n",inc,Sys)
 
           for (k=1;k<=j;k++) printf("%s\n", comment[k])
           printf("\n")