HP MLIB User's Guide Vol. 1 7th Ed.

Chapter 3 Basic Matrix Operations 241
In-place transpose of a general square matrix SGETRA/DGETRA/CGETRA/ZGETRA
Name SGETRA/DGETRA/CGETRA/ZGETRA
In-place transpose of a general square matrix
Purpose These subprograms overwrite an n by n matrix A with its transpose.
Usage VECLIB:
INTEGER*4 n, lda
REAL*4 a(lda, n)
CALL SGETRA(n, a, lda)
INTEGER*4 n, lda
REAL*8 a(lda, n)
CALL DGETRA(n, a, lda)
CHARACTER*1 trans
INTEGER*4 n, lda
COMPLEX*8 a(lda, n)
CALL CGETRA(trans, n, a, lda)
CHARACTER*1 trans
INTEGER*4 n, lda
COMPLEX*16 a(lda, n)
CALL ZGETRA(trans, n, a, lda)
VECLIB8:
INTEGER*8 n, lda
REAL*4 a(lda, n)
CALL SGETRA(n, a, lda)
INTEGER*8 n, lda
REAL*8 a(lda, n)
CALL DGETRA(n, a, lda)
CHARACTER*1 trans
INTEGER*8 n, lda
COMPLEX*8 a(lda, n)
CALL CGETRA(trans, n, a, lda)
CHARACTER*1 trans
INTEGER*8 n, lda
COMPLEX*16 a(lda, n)
CALL ZGETRA(trans, n, a, lda)
Input trans Transposition option for A: