zsctr - Scatters elements from x into y
SUBROUTINE ZSCTR(NZ, X, INDX, Y) DOUBLE COMPLEX X(*), Y(*) INTEGER NZ INTEGER INDX(*) SUBROUTINE ZSCTR_64(NZ, X, INDX, Y) DOUBLE COMPLEX X(*), Y(*) INTEGER*8 NZ INTEGER*8 INDX(*) F95 INTERFACE SUBROUTINE SCTR(NZ, X, INDX, Y) COMPLEX(8), DIMENSION(:) :: X, Y INTEGER :: NZ INTEGER, DIMENSION(:) :: INDX SUBROUTINE SCTR_64(NZ, X, INDX, Y) COMPLEX(8), DIMENSION(:) :: X, Y INTEGER(8) :: NZ INTEGER(8), DIMENSION(:) :: INDX C INTERFACE #include <sunperf.h> void zsctr (const int nz, const doublecomplex* x, const int* indx, dou- blecomplex* y); void zsctr_64 (const long nz, const doublecomplex* x, const long* indx, doublecomplex* y);
Oracle Solaris Studio Performance Library zsctr(3P) NAME zsctr - Scatters elements from x into y SYNOPSIS SUBROUTINE ZSCTR(NZ, X, INDX, Y) DOUBLE COMPLEX X(*), Y(*) INTEGER NZ INTEGER INDX(*) SUBROUTINE ZSCTR_64(NZ, X, INDX, Y) DOUBLE COMPLEX X(*), Y(*) INTEGER*8 NZ INTEGER*8 INDX(*) F95 INTERFACE SUBROUTINE SCTR(NZ, X, INDX, Y) COMPLEX(8), DIMENSION(:) :: X, Y INTEGER :: NZ INTEGER, DIMENSION(:) :: INDX SUBROUTINE SCTR_64(NZ, X, INDX, Y) COMPLEX(8), DIMENSION(:) :: X, Y INTEGER(8) :: NZ INTEGER(8), DIMENSION(:) :: INDX C INTERFACE #include <sunperf.h> void zsctr (const int nz, const doublecomplex* x, const int* indx, dou- blecomplex* y); void zsctr_64 (const long nz, const doublecomplex* x, const long* indx, doublecomplex* y); PURPOSE ZSCTR - Scatters the components of a sparse vector x stored in com- pressed form into specified components of a vector y in full storage form. do i = 1, n y(indx(i)) = x(i) enddo ARGUMENTS NZ (input) - INTEGER Number of elements in the compressed form. Unchanged on exit. X (input) Vector containing the values to be scattered from compressed form into full storage form. Unchanged on exit. INDX (input) - INTEGER Vector containing the indices of the compressed form. It is assumed that the elements in INDX are distinct and greater than zero. Unchanged on exit. Y (output) Vector whose elements specified by indx have been set to the corresponding entries of x. Only the elements corresponding to the indices in indx have been modified. 3rd Berkeley Distribution 7 Nov 2015 zsctr(3P)