Contents
     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
  F95 INTERFACE
     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
  C INTERFACE
     #include <sunperf.h>
     void ztrans(char place, doublecomplex *scale,  doublecomplex
               *source, int m, int n, doublecomplex *dest);
     void ztrans_64(char place, doublecomplex *scale,  doublecom-
               plex   *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'
     PLACE (input)
               Type of transpose.  'I' or 'i' for  in-place,  'O'
               or 'o' for out-of-place. 'I' is default.
     SCALE (input)
               Scale factor on the SOURCE matrix.
     SOURCE (input/output)
               on input.  Array of (N, M) on output  if  in-place
               transpose.
     M (input)
               Number of rows in the SOURCE matrix on input.
     N (input)
               Number of columns in the SOURCE matrix on input.
     DEST (output)
               Scaled and transposed  SOURCE  matrix  if  out-of-
               place transpose.  Not referenced if in-place tran-
               spose.