dgthr - Gathers specified elements from y into x.
SUBROUTINE DGTHR(NZ, Y, X, INDX) DOUBLE PRECISION Y(*), X(*) INTEGER NZ INTEGER INDX(*) SUBROUTINE DGTHR_64(NZ, Y, X, INDX) DOUBLE PRECISION Y(*), X(*) INTEGER*8 NZ INTEGER*8 INDX(*) F95 INTERFACE SUBROUTINE GTHR(NZ, Y, X, INDX) REAL(8), DIMENSION(:) :: Y, X INTEGER :: NZ INTEGER, DIMENSION(:) :: INDX SUBROUTINE GTHR_64(NZ, Y, X, INDX) REAL(8), DIMENSION(:) :: Y, X INTEGER(8) :: NZ INTEGER(8), DIMENSION(:) :: INDX C INTERFACE #include <sunperf.h> void dgthr (const int nz, const double* y, double* x, const int* indx); void dgthr_64 (const long nz, const double* y, double* x, const long* indx);
Oracle Solaris Studio Performance Library dgthr(3P) NAME dgthr - Gathers specified elements from y into x. SYNOPSIS SUBROUTINE DGTHR(NZ, Y, X, INDX) DOUBLE PRECISION Y(*), X(*) INTEGER NZ INTEGER INDX(*) SUBROUTINE DGTHR_64(NZ, Y, X, INDX) DOUBLE PRECISION Y(*), X(*) INTEGER*8 NZ INTEGER*8 INDX(*) F95 INTERFACE SUBROUTINE GTHR(NZ, Y, X, INDX) REAL(8), DIMENSION(:) :: Y, X INTEGER :: NZ INTEGER, DIMENSION(:) :: INDX SUBROUTINE GTHR_64(NZ, Y, X, INDX) REAL(8), DIMENSION(:) :: Y, X INTEGER(8) :: NZ INTEGER(8), DIMENSION(:) :: INDX C INTERFACE #include <sunperf.h> void dgthr (const int nz, const double* y, double* x, const int* indx); void dgthr_64 (const long nz, const double* y, double* x, const long* indx); PURPOSE DGTHR - Gathers the specified elements from a vector y in full storage form into a vector x in compressed form. Only the elements of y whose indices are listed in indx are referenced. do i = 1, n x(i) = y(indx(i)) enddo ARGUMENTS NZ (input) - INTEGER Number of elements in the compressed form. Unchanged on exit. Y (input) Vector in full storage form. Unchanged on exit. 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 dgthr(3P)