Index: mttroot/mtt/bin/trans/mtt_txt2m
==================================================================
--- mttroot/mtt/bin/trans/mtt_txt2m
+++ mttroot/mtt/bin/trans/mtt_txt2m
@@ -13,10 +13,13 @@
 # %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 # %% Version control history
 # %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 # %% $Id$
 # %% $Log$
+# %% Revision 1.1  2000/05/11 10:55:57  peterg
+# %% Initial revision
+# %%
 # %% Revision 1.19  2000/02/11 13:35:16  peterg
 # %% Added the new MTTpar generation
 # %%
 # %% Revision 1.18  1999/11/14 22:22:17  peterg
 # %% Removed checks for implicit - now done at command-line level.
@@ -98,16 +101,11 @@
 echo Creating $1_$2.m
 
 #Create the $2 file complete with headers.
 case $representation in
     simpar)
-      echo "% Script file  $1_$2.m" > $1_$2.m
-      echo "%% $2 file ($1_$2.m)" >> $1_$2.m
-      echo "%% Generated by MTT at `date`" >> $1_$2.m
-      echo '% Dummy globals' >>  $1_$2.m
-      echo 'global ...' >>  $1_$2.m
-      echo 'mtt_dummy_global;' >>  $1_$2.m
+      lang_header -noglobals $1 simpar m '' mttsimpar > $1_simpar.m
       ;;
     numpar)
       lang_header $1 numpar m '' MTTpar > $1_numpar.m
       ;;
     *)
@@ -129,18 +127,18 @@
   N=split($1,a,"=");
   if (N==2) {
     LHS = a[1];
     RHS = a[2];
     gsub(quote, doublequote, RHS);
-    sub(/^[ 	]*LAST/, "mttLAST", LHS);
-    sub(/^[ 	]*DT/, "mttDT", LHS);
-    sub(/^[ 	]*STEPFACTOR/, "mttSTEPFACTOR", LHS);
-    sub(/^[ 	]*METHOD/, "mttMETHOD", LHS);
-    sub(/^[ 	]*WMIN/, "mttWMIN", LHS);
-    sub(/^[ 	]*WMAX/, "mttWMAX", LHS);
-    sub(/^[ 	]*WSTEPS/, "mttWSTEPS", LHS);
-    sub(/^[ 	]*INPUT/, "mttinput", LHS);
+    sub(/^[ 	]*LAST/, "MTTsimpar.LAST", LHS);
+    sub(/^[ 	]*DT/, "MTTsimpar.DT", LHS);
+    sub(/^[ 	]*STEPFACTOR/, "MTTsimpar.STEPFACTOR", LHS);
+    sub(/^[ 	]*METHOD/, "MTTsimpar.METHOD", LHS);
+    sub(/^[ 	]*WMIN/, "MTTsimpar.WMIN", LHS);
+    sub(/^[ 	]*WMAX/, "MTTsimpar.WMAX", LHS);
+    sub(/^[ 	]*WSTEPS/, "MTTsimpar.WSTEPS", LHS);
+    sub(/^[ 	]*INPUT/, "MTTsimpar.input", LHS);
     LHS = tolower(LHS);
     RHS = tolower(RHS);
     sub(/["]*euler["]*/, 1, RHS);   
     sub(/["]*implicit["]*/, 2, RHS);  
     statement = sprintf("%s= %s",LHS,RHS);