zdotui (3p)

Name

zdotui - Compute the complex unconjugated indexed dot product.

Synopsis

DOUBLE COMPLEX FUNCTION CDOTUI(NZ, X, INDX, Y)

DOUBLE COMPLEX X(*), Y(*)
INTEGER NZ
INTEGER INDX(*)

DOUBLE COMPLEX FUNCTION CDOTUI_64(NZ, X, INDX, Y)

DOUBLE COMPLEX X(*), Y(*)
INTEGER*8 NZ
INTEGER*8 INDX(*)


F95 INTERFACE
DOUBLE COMPLEX FUNCTION DOTUI(NZ, X, INDX, Y)

COMPLEX(8), DIMENSION(:) :: X, Y
INTEGER :: NZ
INTEGER, DIMENSION(:) :: INDX

DOUBLE COMPLEX FUNCTION DOTUI_64(NZ, X, INDX, Y)

COMPLEX(8), DIMENSION(:) :: X, Y
INTEGER(8) :: NZ
INTEGER(8), DIMENSION(:) :: INDX





C INTERFACE
#include <sunperf.h>

doublecomplex zdotui (const int nz, const doublecomplex* x, const int*
indx, const doublecomplex* y);

doublecomplex zdotui_64 (const long nz, const doublecomplex* x, const
long* indx, const doublecomplex* y);

Description

Oracle Solaris Studio Performance Library                           zdotui(3P)



NAME
       zdotui - Compute the complex unconjugated indexed dot product.

SYNOPSIS
        DOUBLE COMPLEX FUNCTION CDOTUI(NZ, X, INDX, Y)

        DOUBLE COMPLEX X(*), Y(*)
        INTEGER NZ
        INTEGER INDX(*)

        DOUBLE COMPLEX FUNCTION CDOTUI_64(NZ, X, INDX, Y)

        DOUBLE COMPLEX X(*), Y(*)
        INTEGER*8 NZ
        INTEGER*8 INDX(*)


   F95 INTERFACE
        DOUBLE COMPLEX FUNCTION DOTUI(NZ, X, INDX, Y)

        COMPLEX(8), DIMENSION(:) :: X, Y
        INTEGER :: NZ
        INTEGER, DIMENSION(:) :: INDX

        DOUBLE COMPLEX FUNCTION DOTUI_64(NZ, X, INDX, Y)

        COMPLEX(8), DIMENSION(:) :: X, Y
        INTEGER(8) :: NZ
        INTEGER(8), DIMENSION(:) :: INDX





   C INTERFACE
       #include <sunperf.h>

       doublecomplex zdotui (const int nz, const doublecomplex* x, const int*
                 indx, const doublecomplex* y);

       doublecomplex zdotui_64 (const long nz, const doublecomplex* x, const
                 long* indx, const doublecomplex* y);




PURPOSE
       ZDOTUI Compute the complex unconjugated indexed dot product of a com-
       plex sparse vector x stored in compressed form with a complex vector y
       in full storage form.

        dot = 0
        do i = 1, n
          dot = dot + x(i) * y(indx(i))
        enddo


ARGUMENTS
       NZ (input)
               Number of elements in the compressed form.  Unchanged on exit.

       X (input)
               Vector in compressed form.  Unchanged on exit.

       INDX (input)
               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 (input)
               Vector in full storage form.  Only the elements corresponding
               to the indices in INDX will be accessed.



3rd Berkeley Distribution         7 Nov 2015                        zdotui(3P)