Index: mttroot/mtt/bin/trans/dae2cse_r ================================================================== --- mttroot/mtt/bin/trans/dae2cse_r +++ mttroot/mtt/bin/trans/dae2cse_r @@ -13,10 +13,15 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.8 1998/11/10 08:54:34 peterg +## Put in "IF MTTNx>0 THEN" to prevent probs when Nx=0 +## -- still a couple of apparent error messages - but answers now +## correct +## ## Revision 1.7 1998/10/05 10:46:15 peterg ## Commented out redundant MTTY := MTTY + MTTEyx*MTTEdX; ## ## Revision 1.6 1998/07/19 12:44:35 peterg ## Set MTTYz := 0 if the array is empty - avoids irritating error @@ -238,11 +243,12 @@ IF MTTNx>0 THEN BEGIN write "matrix MTTEdX(", MTTNx, ",1)"; END; -MTTEdX := MTTEdX; +IF MTTNx>0 THEN + MTTEdX := MTTEdX; IF MTTNy>0 THEN BEGIN write "matrix MTTY(", MTTNy, ",1)"; END; @@ -258,18 +264,21 @@ IF MTTNx>0 THEN BEGIN write "matrix MTTE(", MTTNx, ",", MTTNx, ")"; END; -MTTE := MTTE; +IF MTTNx>0 THEN + MTTE := MTTE; IF MTTNz>0 THEN BEGIN IF MTTNx>0 THEN IF MTTNy>0 THEN BEGIN write "matrix MTTEyx(", MTTNy, ",", MTTNx, ")"; END; + +IF MTTNx>0 THEN MTTEyx := MTTEyx; %%%%% MTTdU := MTTdU; END; IF MTTNyz>0 THEN