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

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

Партнёры:

Хостинг: