NAME

ztrans - transpose and scale source matrix

SUBROUTINE ZTRANS(PLACE, SCALE, SOURCE, N1, N2, DEST)

CHARACTER∗1 PLACE

INTEGER     N1, N2

COMPLEX∗16  SCALE, SOURCE(N1, N2), DEST(N2, N1)

#include <sunperf.h>

void ztrans(char place, doublecomplex ∗scale, doublecomplex ∗source, int n1, int n2, 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) CHARACTER∗1
Type of transpose.  ’I’ or ’i’ for in-place, ’O’ or ’o’ for out-of-place.

SCALE (input) COMPLEX∗16
Scale factor on the SOURCE matrix.

SOURCE (input/output) COMPLEX∗16 array of dimension (N1, N2)
on input.  COMPLEX∗16 array of (N2, N1) on output if in-place transpose.

N1 (input) INTEGER
Number of rows in the SOURCE matrix on input.

N2 (input) INTEGER
Number of columns in the SOURCE matrix on input.

DEST (output) COMPLEX∗16 array of dimension (N2, N1). 
Scaled and transposed SOURCE matrix if out-of-place transpose. Not referenced if in-place transpose.

Sun, Inc.  —  Last change: 23 Mar 1998