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);

Description

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)