NAME

ctrans - transpose and scale source matrix

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

CHARACTER∗1 PLACE

INTEGER     N1, N2

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

#include <sunperf.h>

void ctrans(char place, complex ∗scale, complex ∗source, int n1, int n2, complex ∗dest) ;

PURPOSE

CTRANS 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
Scale factor on the SOURCE matrix.

SOURCE (input/output) COMPLEX array of dimension (N1, N2)
on input.  COMPLEX 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 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