zgthrz - Gather and zero.
SUBROUTINE ZGTHRZ(NZ, Y, X, INDX) DOUBLE COMPLEX Y(*), X(*) INTEGER NZ INTEGER INDX(*) SUBROUTINE ZGTHRZ_64(NZ, Y, X, INDX) DOUBLE COMPLEX Y(*), X(*) INTEGER*8 NZ INTEGER*8 INDX(*) F95 INTERFACE SUBROUTINE GTHRZ(NZ, Y, X, INDX) COMPLEX(8), DIMENSION(:) :: Y, X INTEGER :: NZ INTEGER, DIMENSION(:) :: INDX SUBROUTINE GTHRZ_64(NZ, Y, X, INDX) COMPLEX(8), DIMENSION(:) :: Y, X INTEGER(8) :: NZ INTEGER(8), DIMENSION(:) :: INDX C INTERFACE #include <sunperf.h> void zgthrz (const int nz, doublecomplex* y, doublecomplex* x, const int* indx); void zgthrz_64 (const long nz, doublecomplex* y, doublecomplex* x, const long* indx);
Oracle Solaris Studio Performance Library zgthrz(3P) NAME zgthrz - Gather and zero. SYNOPSIS SUBROUTINE ZGTHRZ(NZ, Y, X, INDX) DOUBLE COMPLEX Y(*), X(*) INTEGER NZ INTEGER INDX(*) SUBROUTINE ZGTHRZ_64(NZ, Y, X, INDX) DOUBLE COMPLEX Y(*), X(*) INTEGER*8 NZ INTEGER*8 INDX(*) F95 INTERFACE SUBROUTINE GTHRZ(NZ, Y, X, INDX) COMPLEX(8), DIMENSION(:) :: Y, X INTEGER :: NZ INTEGER, DIMENSION(:) :: INDX SUBROUTINE GTHRZ_64(NZ, Y, X, INDX) COMPLEX(8), DIMENSION(:) :: Y, X INTEGER(8) :: NZ INTEGER(8), DIMENSION(:) :: INDX C INTERFACE #include <sunperf.h> void zgthrz (const int nz, doublecomplex* y, doublecomplex* x, const int* indx); void zgthrz_64 (const long nz, doublecomplex* y, doublecomplex* x, const long* indx); PURPOSE ZGTHRZ - 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 zgthrz(3P)