Index: mttroot/mtt/bin/trans/txt2m ================================================================== --- mttroot/mtt/bin/trans/txt2m +++ mttroot/mtt/bin/trans/txt2m @@ -13,10 +13,13 @@ # %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% # %% Version control history # %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% # %% $Id$ # %% $Log$ +# %% Revision 1.16 1999/03/06 02:18:10 peterg +# %% Changed argument list. +# %% # %% Revision 1.15 1999/02/16 21:44:38 peterg # %% Revised smx generation # %% # %% Revision 1.14 1999/02/16 04:38:22 peterg # %% Now forces creation of _smx file if METHOD=IMPLICIT in simpar.txt @@ -82,17 +85,17 @@ arg='(mttt,mttx,mtty)' fi if [ "$representation" = "simpar" ]; then # Check if implicit method and generate xmx.m if implicit=`grep -i METHOD $1_simpar.txt | grep -i -c IMPLICIT` - if [ "$implicit" = "1" ]; then - mtt -q $1 smx m - else + if [ "$implicit" = "0" ]; then echo Creating dummy $1_smx.m cat< $1_smx.m %% No code as implicit method not used here %% EOF + else +# mtt -q $1 smx m fi fi # Inform user echo Creating $1_$2.m @@ -133,18 +136,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/, "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); LHS = tolower(LHS); RHS = tolower(RHS); sub(/["]*euler["]*/, 1, RHS); sub(/["]*implicit["]*/, 2, RHS); statement = sprintf("%s= %s",LHS,RHS);