Google
 

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.