Index: mttroot/mtt/bin/trans/cse2csm_r
==================================================================
--- mttroot/mtt/bin/trans/cse2csm_r
+++ mttroot/mtt/bin/trans/cse2csm_r
@@ -12,10 +12,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.7  2000/04/07 19:11:59  peterg
+## reduce --> $SYMBOLIC
+##
 ## Revision 1.6  2000/04/06 11:27:56  peterg
 ## Removed the in _cr.r
 ##
 ## Revision 1.5  1999/12/08 02:04:46  peterg
 ## Removed bug - uj := MTTU(j,1); not commented out
@@ -64,10 +67,12 @@
 OFF Nat;
 
 % Get rid of the old mttx and u - now use mkid instead
 clear MTTx, MTTu;
 
+IF (MTTNx>0) THEN
+BEGIN
 % Find MTTA : the A matrix
 matrix MTTA(MTTNx,MTTNx);
 
   FOR j := 1:MTTNx DO
     BEGIN
@@ -74,11 +79,14 @@
     %xj := MTTX(j,1);
     xj := mkid(MTTx,j);
     FOR i := 1:MTTNx DO
       MTTA(i,j) := df(MTTEdx(i,1), xj, 1);
     END;
+END;
 
+IF (MTTNx>0) AND (MTTNu>0) THEN
+BEGIN
 % Find MTTB : the B matrix
 matrix MTTB(MTTNx,MTTNu);
 
   FOR j := 1:MTTNu DO
     BEGIN
@@ -85,11 +93,14 @@
     %uj := MTTU(j,1);
     uj := mkid(MTTu,j);
     FOR i := 1:MTTNx DO
       MTTB(i,j) := df(MTTEdx(i,1), uj, 1);
     END;
+END;
 
+IF (MTTNx>0) AND (MTTNy>0) THEN
+BEGIN
 % Find MTTC : the C matrix
 matrix MTTC(MTTNy,MTTNx);
 
   FOR i := 1:MTTNy DO
     FOR j := 1:MTTNx DO
@@ -96,10 +107,14 @@
     BEGIN
       %xj := MTTX(j,1);
       xj := mkid(MTTx,j);
       MTTC(i,j) := df(MTTY(i,1), xj, 1);
     END;
+END;
+
+IF (MTTNy>0) AND (MTTNu>0) THEN
+BEGIN
 
 % Find MTTD : the D matrix
 matrix MTTD(MTTNy,MTTNu);
 
   FOR i := 1:MTTNy DO
@@ -107,10 +122,11 @@
     BEGIN
       %uj := MTTU(j,1);
       uj := mkid(MTTu,j);
       MTTD(i,j) := df(MTTY(i,1), uj, 1);
     END;
+END;
 
 %Substitute the ss values
 in "$1_sspar.r";
 
 %Create the output file
@@ -170,5 +186,8 @@
 
 EOF
 
 # Now invoke the standard error handling.
 mtt_error_r cse2csm_r.log
+
+
+