Index: mttroot/mtt/bin/trans/mtt_r2m
==================================================================
--- mttroot/mtt/bin/trans/mtt_r2m
+++ mttroot/mtt/bin/trans/mtt_r2m
@@ -14,10 +14,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.10  1999/10/27 07:38:30  peterg
+## Now does cse version -- but not needed now exept for Euler integration
+##
 ## Revision 1.9  1999/10/26 23:47:58  peterg
 ## Now does cse.m file
 ##
 ## Revision 1.8  1999/07/26 06:07:19  peterg
 ## Reinstated removal of the odeo.p file
@@ -142,11 +145,11 @@
     
 END;;
 
 EOF
   else
-## cse represnetation
+## cse representation
 echo doing cse
 $SYMBOLIC  > mtt_r2m.log <<EOF
   %Set up the code generator
   in"mtt_setreduce.r";
       
@@ -156,40 +159,33 @@
     mtt_matrix_n := MTTNx$
     mtt_matrix_m := 1$
     lang_matrix();
     GENTRANSHUT "mtt_ode";
     
-    GENTRANOUT "mtt_odee";
-    mtt_matrix := MTTE$
-    mtt_matrix_n := MTTNx$
-    mtt_matrix_m := MTTNx$
-    lang_matrix();
-    GENTRANSHUT "mtt_odee";
+%    GENTRANOUT "mtt_odee";
+%    mtt_matrix := MTTE$
+%    mtt_matrix_n := MTTNx$
+%    mtt_matrix_m := MTTNx$
+%    lang_matrix();
+%    GENTRANSHUT "mtt_odee";
 
 END;;
 
 EOF
 
   fi
 
-if [ "$rep" = "cse" ]; then
-touch mtt_odee
-  touch mtt_odee
-fi
+#if [ "$rep" = "ode" ]; then
+#  touch mtt_odee
+#fi
 
 sed 's/mtt_matrix/mttdx/' <mtt_ode  >> $1_$2.p
-sed 's/mtt_matrix/mtte/'  <mtt_odee >> $1_$2.p
+#sed 's/mtt_matrix/mtte/'  <mtt_odee >> $1_$2.p
 sed 's/mtt_matrix/mtty/'  <mtt_odeo >> $1_$2o.p
 
-if [ "$rep" = "cse" ]; then
-cat <<EOF >>$1_$2.p
-   ## Solve E dx = dxe;;
-   mtt_solve(mttdx,mttE,mttdx,$Nx);; 
-EOF
-fi
-
-rm -f mtt_odeo mtt_ode mtt_odee
+
+rm -f mtt_odeo mtt_ode #mtt_odee
 
 # Convert from Pascal syntax to Octave syntax 
  mtt_p2m<$1_$2o.p > $1_$2o.m 
 
  rm -f    $1_odeo.p