NAME

dtrans - transpose and scale source matrix

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

CHARACTER∗1       PLACE

INTEGER           N1, N2

DOUBLE PRECISION  SCALE, SOURCE(N1, N2), DEST(N2, N1)

#include <sunperf.h>

void dtrans(char place, double scale, double ∗source, int n1, int n2, double ∗dest) ;

PURPOSE

DTRANS 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) DOUBLE PRECISION
Scale factor on the SOURCE matrix.

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