ztrans - transpose and scale source matrix
SUBROUTINE ZTRANS( PLACE, SCALE, SOURCE, M, N, DEST) CHARACTER * 1 PLACE DOUBLE COMPLEX SCALE DOUBLE COMPLEX SOURCE(*), DEST(*) INTEGER M, N
SUBROUTINE ZTRANS_64( PLACE, SCALE, SOURCE, M, N, DEST) CHARACTER * 1 PLACE DOUBLE COMPLEX SCALE DOUBLE COMPLEX SOURCE(*), DEST(*) INTEGER*8 M, N
SUBROUTINE TRANS( [PLACE], SCALE, SOURCE, M, N, DEST) CHARACTER(LEN=1) :: PLACE COMPLEX(8) :: SCALE COMPLEX(8), DIMENSION(:) :: SOURCE, DEST INTEGER :: M, N
SUBROUTINE TRANS_64( [PLACE], SCALE, SOURCE, M, N, DEST) CHARACTER(LEN=1) :: PLACE COMPLEX(8) :: SCALE COMPLEX(8), DIMENSION(:) :: SOURCE, DEST INTEGER(8) :: M, N
#include <sunperf.h>
void ztrans(char place, doublecomplex scale, doublecomplex *source, int m, int n, doublecomplex *dest);
void ztrans_64(char place, doublecomplex scale, doublecomplex *source, long m, long n, doublecomplex *dest);
ztrans scales and transposes the source matrix. The N2 x N1 result is written into SOURCE when PLACE = 'I' or 'i', and DEST when PLACE = 'O' or 'o'.
PLACE = 'I' or 'i': SOURCE = SCALE * SOURCE'
PLACE = 'O' or 'o': DEST = SCALE * SOURCE'