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

NAME
     ztrans - transpose and scale source matrix

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

     CHARACTER*1 PLACE

     INTEGER     N1, N2

     COMPLEX*16  SCALE, SOURCE(N1, N2), DEST(N2, N1)



     #include <sunperf.h>

     void ztrans(char place, doublecomplex *scale,  doublecomplex
               *source, int n1, int n2, doublecomplex *dest) ;

PURPOSE
     ZTRANS 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*16
               Scale factor on the SOURCE matrix.

     SOURCE    (input/output) COMPLEX*16 array of dimension  (N1,
               N2)
               on input.  COMPLEX*16 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*16 array of dimension (N2, N1).
               Scaled and transposed  SOURCE  matrix  if  out-of-
               place transpose.  Not referenced if in-place tran-
               spose.

Партнёры:

Хостинг: