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

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

Партнёры:

Хостинг: