%macro mat_transpose(input=, transpose=);
/********************************************************/
/* This macro computes the transpose of a matrix */
/* */
/* Arguments: */
/* INPUT - name of a matrix to be transposed */
/* TRANSPOSE - transposed matrix name */
/* */
/* Author: Dale McLerran */
/* Fred Hutchinson Cancer Research Center */
/* */
/********************************************************/

_n_rows = dim(&input,1);
_n_cols = dim(&input,2);

do _i_row=1 to _n_rows;
do _i_col=1 to _n_cols;
&transpose{_i_col,_i_row} = &input{_i_row,_i_col};
end;
end;

%mend;