Index: mttroot/mtt/bin/trans/dm_r2m ================================================================== --- mttroot/mtt/bin/trans/dm_r2m +++ mttroot/mtt/bin/trans/dm_r2m @@ -12,10 +12,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.1 1996/08/12 19:09:13 peter +## Initial revision +## ############################################################### #Inform user echo Creating $1_dm.m @@ -44,37 +47,30 @@ OUT "$1_dm.m"; %Headings - Matlab style %(Note. The ;; are deleted by for2mat) -IF MTTNvar>0 THEN -BEGIN - write "function [MTTA,MTTB,MTTC,MTTD,MTTE] = $1_dm(..."; - FOR i := 1:MTTNvar DO - BEGIN - IF i0 THEN -BEGIN - write "%function [MTTA,MTTB,MTTC,MTTD,MTTE] = $1_dm(..."; - FOR i := 1:MTTNvar DO - BEGIN - IF i0 THEN +BEGIN + write "% Read in the parameters"; + write "[ ...;;"; + FOR i := 1:MTTNvar DO + BEGIN + IF i