Index: mttroot/mtt/bin/trans/ode2smx_lang
==================================================================
--- mttroot/mtt/bin/trans/ode2smx_lang
+++ mttroot/mtt/bin/trans/ode2smx_lang
@@ -12,10 +12,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.6  1998/08/26 18:25:45  peterg
+## SMX now generates both A and Ax
+##
 ## Revision 1.5  1998/08/15 13:51:56  peterg
 ## smx is now I-Adt NOT A
 ##
 ## Revision 1.4  1998/08/13 09:03:35  peterg
 ## *** empty log message ***
@@ -120,12 +123,12 @@
         aa_ij := -mttdt*a_ij;
         aa_ji := -mttdt*a_ji;
       END;
       IF (aa_ij NEQ 0) THEN
         GENTRAN mtta(i,j) ::=: aa_ij;
-      mttAAx_i := mttAAx_i + aa_ij*mkid(mttxx,j);
-      %%%mttAAtx(i,1) := mttAAtx(i,1) + aa_ji*mkid(mttxx,j);
+      mttAAx_i := mttAAx_i + aa_ij*mkid(mttx,j);
+      %%%mttAAtx(i,1) := mttAAtx(i,1) + aa_ji*mkid(mttx,j);
     END;
     IF (mttAAx_i NEQ 0) THEN
       GENTRAN mttax(i) ::=: mttAAx_i;
   END;
 
@@ -181,11 +184,11 @@
 
 EOF
 
 if [ "$lang" = "m" ]; then
   mv $1_smx.$lang  mtt_junk
-  lang_header $1 smx m 'mttx,mttu,mttdt,mttxx' '[mtta,mttax]' > $1_smx.m
+  lang_header $1 smx m 'mttx,mttu,mttdt' '[mtta,mttax]' > $1_smx.m
   cat mtt_junk | mtt_p2m >> $1_smx.m
   rm -f mtt_junk
 
 #  mv $1_smxx.$lang  mtt_junk
 #  lang_header $1 smxx m 'mttx,mttu,mttxx,mttdt' '[mttax]' > $1_smxx.m