[ новости /+++ | форум | теги | ]

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 tran-
               spose.

Партнёры:

Хостинг: