Index: mttroot/mtt/bin/trans/mtt_header ================================================================== --- mttroot/mtt/bin/trans/mtt_header +++ mttroot/mtt/bin/trans/mtt_header @@ -10,10 +10,16 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.34 2001/05/26 18:36:43 gawthrop +## Further modifications. Now works on rcPPP +## -- next jobs: +## add identification to ppp_nlin_sim +## create real-time ppp_nlin_run +## ## Revision 1.33 2001/05/26 15:46:38 gawthrop ## Updated to account for new nonlinear ppp ## ## Revision 1.32 2001/05/24 07:42:12 gawthrop ## Included and updated the missing tf_r2m @@ -185,17 +191,19 @@ states=yes; inputs=yes; parameters=yes; output=mttedx args=$eqnargs + zeromatrices='edx'; ;; cseo) states=yes; inputs=yes; parameters=yes; output=mtty args=$eqnargs + zeromatrices='y'; ;; dm) states=no; inputs=no; parameters=yes; @@ -396,14 +404,29 @@ N=$Ny; M=$Nu ;; e) N=$Nx; M=$Nx ;; + edx) + N=$Nx; M=1 + ;; + y) + N=$Nx; M=1 + ;; *) esac - echo " mtt$name = zeros($N,$M);" + + if [ "${language}" = "oct" ]; then + if [ "$M" = "1" ]; then + echo " mtt$name = zeros($N);" + else + echo " mtt$name = zeros($N,$M);" + fi + else + echo " mtt$name = zeros($N,$M);" + fi done } declare_dummies() { @@ -507,11 +530,10 @@ fi if [ "$declareswitches" = "yes" ]; then declare_switches fi - zero_matrices; }