SUBROUTINE STRANS( PLACE, SCALE, SOURCE, M, N, DEST) CHARACTER * 1 PLACE INTEGER M, N REAL SCALE REAL SOURCE(*), DEST(*) SUBROUTINE STRANS_64( PLACE, SCALE, SOURCE, M, N, DEST) CHARACTER * 1 PLACE INTEGER*8 M, N REAL SCALE REAL SOURCE(*), DEST(*)
SUBROUTINE TRANS( [PLACE], SCALE, SOURCE, M, N, DEST) CHARACTER(LEN=1) :: PLACE INTEGER :: M, N REAL :: SCALE REAL, DIMENSION(:) :: SOURCE, DEST SUBROUTINE TRANS_64( [PLACE], SCALE, SOURCE, M, N, DEST) CHARACTER(LEN=1) :: PLACE INTEGER(8) :: M, N REAL :: SCALE REAL, DIMENSION(:) :: SOURCE, DEST
void strans(char place, float scale, float *source, int m, int n, float *dest);
void strans_64(char place, float scale, float *source, long m, long n, float *dest);
PLACE = 'I' or 'i': SOURCE = SCALE * SOURCE' PLACE = 'O' or 'o': DEST = SCALE * SOURCE'