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 + + +