Index: mttroot/mtt/bin/trans/lang_matrix.r ================================================================== --- mttroot/mtt/bin/trans/lang_matrix.r +++ mttroot/mtt/bin/trans/lang_matrix.r @@ -11,36 +11,30 @@ % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % $Id$ % % $Log$ +% % Revision 1.2 1998/05/23 15:00:27 peterg +% % Removed the name = matrix statement - now done by sed. +% % % % Revision 1.1 1998/05/23 10:49:25 peterg % % Initial revision % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -PROCEDURE Lang_Matrix; +PROCEDURE Lang_Matrix(); BEGIN ON NERO; - write "mtt_matrix = zeros(", mtt_matrix_n, ",", mtt_matrix_m, ");"; IF MTT_Matrix_n>0 THEN IF MTT_Matrix_m>0 THEN BEGIN FOR i := 1:MTT_Matrix_n DO - IF MTT_Matrix_m>1 THEN - BEGIN - FOR j := 1:MTT_Matrix_m DO - GENTRAN mtt_matrix(i,j) ::=: mtt_matrix(i,j); - END - ELSE - BEGIN - GENTRAN mtt_matrix(i) ::=: mtt_matrix(i,1); - END; - END; -% write MTT_matrix_name, " = mtt_matrix;"; + FOR j := 1:MTT_Matrix_m DO + GENTRAN mtt_matrix(i,j) ::=: mtt_matrix(i,j); + END; END; END;;