Index: mttroot/mtt/bin/trans/dae2dm_r
==================================================================
--- mttroot/mtt/bin/trans/dae2dm_r
+++ mttroot/mtt/bin/trans/dae2dm_r
@@ -12,10 +12,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.3  1998/07/27 20:25:36  peterg
+## *** empty log message ***
+##
 # Revision 1.2  1996/08/25  09:53:35  peter
 # Error handling added.
 #
 ## Revision 1.1  1996/08/18 20:03:51  peter
 ## Initial revision
@@ -57,15 +60,15 @@
   IF MTTNz>0 THEN 
      FOR j := 1:MTTNz DO
       MTTE(j+MTTNx, j+MTTNx) := 1;
 
 % Find MTTA : the A matrix
-matrix MTTA(MTTN,MTTN);
 
 % First row partition: x
 IF MTTNx>0 THEN 
   BEGIN
+  matrix MTTA(MTTN,MTTN);
   FOR j := 1:MTTNx DO
     BEGIN
     xj := MTTX(j,1);
     FOR i := 1:MTTNx DO
       MTTA(i,j) := df(MTTdX(i,1), xj, 1);
@@ -151,14 +154,14 @@
          MTTA(i+MTTNx+2*MTTNz, j+MTTNx+2*MTTNz) := df(MTTYz(i,1), uij, 1);
        END;
   END;
 
 % Find MTTB : the B matrix
-matrix MTTB(MTTN,MTTNu);
 
 IF MTTNu>0 THEN
 BEGIN
+matrix MTTB(MTTN,MTTNu);
 
 % First row partition
 IF MTTNx>0 THEN 
   BEGIN
   FOR j := 1:MTTNu DO
@@ -192,13 +195,13 @@
   END;
 
 END;
 
 % Find MTTC : the C matrix
-matrix MTTC(MTTNy,MTTN);
 IF MTTNy>0 THEN
 BEGIN
+matrix MTTC(MTTNy,MTTN);
 
 % First column partition
 IF MTTNx>0 THEN 
   BEGIN
   FOR i := 1:MTTNy DO
@@ -233,14 +236,14 @@
 
 END;
 END; %of MTTN>0
 
 % Find MTTD : the D matrix
-matrix MTTD(MTTNy,MTTNu);
 IF MTTNy>0 THEN
 IF MTTNu>0 THEN
 BEGIN
+  matrix MTTD(MTTNy,MTTNu);
   FOR i := 1:MTTNy DO
     FOR j := 1:MTTNu DO
     BEGIN
       uj := MTTU(j,1);
       MTTD(i,j) := df(MTTY(i,1), uj, 1);