cdotci (3p)

Name

cdotci - Compute the complex conjugated indexed dot product.

Synopsis

COMPLEX FUNCTION CDOTCI(NZ, X, INDX, Y)

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

COMPLEX FUNCTION CDOTCI_64(NZ, X, INDX, Y)

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


F95 INTERFACE
COMPLEX FUNCTION DOTCI(NZ, X, INDX, Y)

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

COMPLEX FUNCTION DOTCI_64(NZ, X, INDX, Y)

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





C INTERFACE
#include <sunperf.h>

floatcomplex cdotci (const int nz, const floatcomplex* x, const int*
indx, const floatcomplex* y);

floatcomplex cdotci_64 (const long nz, const floatcomplex* x, const
long* indx, const floatcomplex* y);

Description

Oracle Solaris Studio Performance Library                           cdotci(3P)



NAME
       cdotci - Compute the complex conjugated indexed dot product.

SYNOPSIS
        COMPLEX FUNCTION CDOTCI(NZ, X, INDX, Y)

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

        COMPLEX FUNCTION CDOTCI_64(NZ, X, INDX, Y)

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


   F95 INTERFACE
        COMPLEX FUNCTION DOTCI(NZ, X, INDX, Y)

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

        COMPLEX FUNCTION DOTCI_64(NZ, X, INDX, Y)

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





   C INTERFACE
       #include <sunperf.h>

       floatcomplex cdotci (const int nz, const floatcomplex* x, const int*
                 indx, const floatcomplex* y);

       floatcomplex cdotci_64 (const long nz, const floatcomplex* x, const
                 long* indx, const floatcomplex* y);




PURPOSE
       CDOTCI Compute the complex conjugated indexed dot product of a complex
       sparse vector x stored in compressed form with a complex vector y in
       full storage form.

        dot = 0
        do i = 1, n
          dot = dot + conjg(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                        cdotci(3P)