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