Index: mttroot/mtt/bin/trans/ode2smx_lang ================================================================== --- mttroot/mtt/bin/trans/ode2smx_lang +++ mttroot/mtt/bin/trans/ode2smx_lang @@ -12,10 +12,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.2 1998/07/30 10:49:02 peterg +## Put [] round output of zeros. +## ## Revision 1.1 1998/07/19 16:59:56 peterg ## Initial revision ## ############################################################### @@ -70,18 +73,10 @@ write "matrix mttb(", mttnx, ",", mttnu, ");"; write "matrix mttc(", mttny, ",", mttnx, ");"; write "matrix mttd(", mttny, ",", mttnu, ");"; END; - IF (lang = m) THEN - BEGIN - write "[mtta] = zeros(", mttnx, ",", mttnx, ");"; - write "[mttb] = zeros(", mttnx, ",", mttnu, ");"; - write "[mttc] = zeros(", mttny, ",", mttnx, ");"; - write "[mttd] = zeros(", mttny, ",", mttnu, ");"; - end; - % find MTTA : the A matrix FOR j := 1:MTTNx DO BEGIN