SUBROUTINE CTRANS( PLACE, SCALE, SOURCE, M, N, DEST) CHARACTER * 1 PLACE COMPLEX SCALE COMPLEX SOURCE(*), DEST(*) INTEGER M, N SUBROUTINE CTRANS_64( PLACE, SCALE, SOURCE, M, N, DEST) CHARACTER * 1 PLACE COMPLEX SCALE COMPLEX SOURCE(*), DEST(*) INTEGER*8 M, N
SUBROUTINE TRANS( [PLACE], SCALE, SOURCE, M, N, DEST) CHARACTER(LEN=1) :: PLACE COMPLEX :: SCALE COMPLEX, DIMENSION(:) :: SOURCE, DEST INTEGER :: M, N SUBROUTINE TRANS_64( [PLACE], SCALE, SOURCE, M, N, DEST) CHARACTER(LEN=1) :: PLACE COMPLEX :: SCALE COMPLEX, DIMENSION(:) :: SOURCE, DEST INTEGER(8) :: M, N
void ctrans(char place, complex scale, complex *source, int m, int n, complex *dest);
void ctrans_64(char place, complex scale, complex *source, long m, long n, complex *dest);
PLACE = 'I' or 'i': SOURCE = SCALE * SOURCE' PLACE = 'O' or 'o': DEST = SCALE * SOURCE'