Contents


NAME

     ztrans - transpose and scale source matrix

SYNOPSIS

     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);

PURPOSE

     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'

ARGUMENTS

     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.