Index: mttroot/mtt/bin/trans/def2write_r
==================================================================
--- mttroot/mtt/bin/trans/def2write_r
+++ mttroot/mtt/bin/trans/def2write_r
@@ -11,10 +11,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.3  2000/10/11 09:07:17  peterg
+## Added csex rep (cse without E)
+##
 ## Revision 1.2  2000/10/10 21:02:17  peterg
 ## Added cse reps
 ##
 ## Revision 1.1  2000/10/10 09:07:32  peterg
 ## Initial revision
@@ -73,21 +76,21 @@
         exit
 esac
 
 # Write out the code
 echo 'off echo$ load scope$'                    >$1_$2_write.r
-echo 'optimize'                      >>$1_$2_write.r
 for matrix in $matrices; do
     n=`first "$ns"`; ns=`rest "$ns"` 
     m=`first "$ms"`; ms=`rest "$ms"`
     is=`n2m 1 $n`; 
     js=`n2m 1 $m`; 
     for i in $is; do
       for j in $js; do
+        echo 'optimize'                      >>$1_$2_write.r
         name=`echo MTT$matrix'('$i','$j')'`
         echo '  '$comma$name ':=:' $name >>$1_$2_write.r
-        comma=', '
+        echo 'INAME mtt_tmp$'                 >>$1_$2_write.r
+        comma=''
       done
     done
 done
-echo 'INAME mtt_tmp$'                 >>$1_$2_write.r
 echo 'END$'                           >>$1_$2_write.r