Trailing-Edge
-
PDP-10 Archives
-
decus_20tap2_198111
-
decus/20-0026/mtra.doc
There are 2 other files named mtra.doc in the archive. Click here to see a list.
SUBROUTINE MTRA
PURPOSE
TRANSPOSE A MATRIX
USAGE
CALL MTRA(A,R,N,M,MS)
DESCRIPTION OF PARAMETERS
A - NAME OF MATRIX TO BE TRANSPOSED
R - NAME OF OUTPUT MATRIX
N - NUMBER OF ROWS OF A AND COLUMNS OF R
M - NUMBER OF COLUMNS OF A AND ROWS OF R
MS - ONE DIGIT NUMBER FOR STORAGE MODE OF MATRIX A (AND R)
0 - GENERAL
1 - SYMMETRIC
2 - DIAGONAL
REMARKS
MATRIX R CANNOT BE IN THE SAME LOCATION AS MATRIX A
SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
MCPY
METHOD
TRANSPOSE N BY M MATRIX A TO FORM M BY N MATRIX R BY MOVING
EACH ROW OF A INTO THE CORRESPONDING COLUMN OF R. IF MATRIX
A IS SYMMETRIC OR DIAGONAL, MATRIX R IS THE SAME AS A.