cgthrz - Gather and zero.
SUBROUTINE CGTHRZ(NZ, Y, X, INDX) COMPLEX Y(*), X(*) INTEGER NZ INTEGER INDX(*) SUBROUTINE CGTHRZ_64(NZ, Y, X, INDX) COMPLEX Y(*), X(*) INTEGER*8 NZ INTEGER*8 INDX(*) F95 INTERFACE SUBROUTINE GTHRZ(NZ, Y, X, INDX) COMPLEX, DIMENSION(:) :: Y, X INTEGER :: NZ INTEGER, DIMENSION(:) :: INDX SUBROUTINE GTHRZ_64(NZ, Y, X, INDX) COMPLEX, DIMENSION(:) :: Y, X INTEGER(8) :: NZ INTEGER(8), DIMENSION(:) :: INDX C INTERFACE #include <sunperf.h> void cgthrz (const int nz, floatcomplex* y, floatcomplex* x, const int* indx); void cgthrz_64 (const long nz, floatcomplex* y, floatcomplex* x, const long* indx);
Oracle Solaris Studio Performance Library cgthrz(3P) NAME cgthrz - Gather and zero. SYNOPSIS SUBROUTINE CGTHRZ(NZ, Y, X, INDX) COMPLEX Y(*), X(*) INTEGER NZ INTEGER INDX(*) SUBROUTINE CGTHRZ_64(NZ, Y, X, INDX) COMPLEX Y(*), X(*) INTEGER*8 NZ INTEGER*8 INDX(*) F95 INTERFACE SUBROUTINE GTHRZ(NZ, Y, X, INDX) COMPLEX, DIMENSION(:) :: Y, X INTEGER :: NZ INTEGER, DIMENSION(:) :: INDX SUBROUTINE GTHRZ_64(NZ, Y, X, INDX) COMPLEX, DIMENSION(:) :: Y, X INTEGER(8) :: NZ INTEGER(8), DIMENSION(:) :: INDX C INTERFACE #include <sunperf.h> void cgthrz (const int nz, floatcomplex* y, floatcomplex* x, const int* indx); void cgthrz_64 (const long nz, floatcomplex* y, floatcomplex* x, const long* indx); PURPOSE CGTHRZ - Gathers the specified elements from a vector y in full storage form into a vector x in compressed form. The gathered elements of y are set to zero. Only the elements of y whose indices are listed in indx are referenced. do i = 1, n x(i) = y(indx(i)) y(indx(i)) = 0 enddo ARGUMENTS NZ (input) - INTEGER Number of elements in the compressed form. Unchanged on exit. Y (input/output) Vector in full storage form. Gathered elements are set to zero. X (output) Vector in compressed form. Contains elements of y whose indices are listed in indx 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. 3rd Berkeley Distribution 7 Nov 2015 cgthrz(3P)