Index: mttroot/mtt/bin/trans/reduce_matrix.r
==================================================================
--- mttroot/mtt/bin/trans/reduce_matrix.r
+++ mttroot/mtt/bin/trans/reduce_matrix.r
@@ -10,10 +10,13 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % % Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % % $Id$
 % % $Log$
+% % Revision 1.1  1998/01/22 10:39:01  peterg
+% % Initial revision
+% %
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
 
 
 
@@ -20,10 +23,11 @@
 PROCEDURE Reduce_Matrix;
 BEGIN
   IF MTT_Matrix_n>0 THEN
     IF MTT_Matrix_m>0 THEN
     BEGIN
+     write "clear ", MTT_Matrix_name, ";";
      write "MATRIX ", MTT_Matrix_name, "(", MTT_Matrix_n, ",",
                                             MTT_Matrix_m, ");";
     
     FOR i := 1:MTT_Matrix_n DO
       FOR j := 1:MTT_Matrix_m DO IF MTT_Matrix(i,j) NEQ 0 THEN