Index: mttroot/mtt/bin/trans/mtt_m2p ================================================================== --- mttroot/mtt/bin/trans/mtt_m2p +++ mttroot/mtt/bin/trans/mtt_m2p @@ -13,10 +13,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.46 2000/05/16 11:59:01 peterg +## Updated for new data file parameter/state update +## ## Revision 1.45 2000/05/13 13:16:52 peterg ## Matrix initialisation for smxa ## ## Revision 1.44 2000/05/13 11:52:16 peterg ## A now matrix in smxa rep @@ -344,10 +347,11 @@ if (NF>1) printf("{* %s *}", $2) printf("\n") }' |\ sed "s/$space\[\($non_space\)\]$spaces=$spaces\($fun_name\)(\($args\))/\2(\1,\3)/" |\ sed "s/$space\[\($non_space\)\]$spaces=$spaces\($mttfun_name\)(\($args\))/\2(\1,\3)/" |\ +sed "s/$space\[\($non_space\)\]$spaces=$spaces\($mttfun_name\)/\2(\1)/" |\ sed "s/$space\[\($non_space\)\]$spaces=$spaces\(zeros\)(\($args\))/\2(\1,\3)/" |\ sed "s/$space\[\($non_space\)\]$spaces=$spaces\($fun_name\)/\2(\1)/" |\ sed "s/$space\($non_space\)$spaces=$spaces\($fun_name\)(\($args\))/\2(\1,\3)/" |\ sed "s/$space\($non_space\)$spaces=$spaces\($fun_name\)/\2(\1)/" |\ awk ' @@ -417,10 +421,11 @@ for (k=1;k<=j;k++) printf("%s\n", comment[k]) printf("\n") printf("\nBEGIN{%s}\n", Sys_rep) printf(" open(statefile,\"%s_state.dat\");\n", Sys) + printf(" open(simparfile,\"%s_simpar.dat\");\n", Sys) printf(" open(numparfile,\"%s_numpar.dat\");\n", Sys) } else{ for (k=1;k<=j;k++) printf("%s\n", comment[k]) printf("\n") @@ -462,12 +467,12 @@ else { if ((match($1,"mtt_write")>0)&&(length(Stdin)>0)) { sub(/mtt_write/, "if NOT eof THEN mtt_write"); } if ($1=="for"){ - if (($2=="MTTit")&&(length(Stdin)>0)){ - printf("WHILE NOT eof DO BEGIN {Integration loop}") + if (($2=="it")&&(length(Stdin)>0)){ + printf("WHILE NOT eof DO BEGIN {Integration loop}\n") } else { sub(/:/," TO ",$0) sub(/=/,":=",$0) printf("%s DO BEGIN\n", $0)