NAME

strans - transpose and scale source matrix

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

CHARACTER∗1     PLACE

INTEGER         N1, N2

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

#include <sunperf.h>

void strans(char place, float scale, float ∗source, int n1, int n2, float ∗dest) ;

PURPOSE

STRANS 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) REAL
Scale factor on the SOURCE matrix.

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