zdotci - Compute the complex conjugated indexed dot product.
DOUBLE COMPLEX FUNCTION ZDOTCI(NZ, X, INDX, Y) DOUBLE COMPLEX X(*), Y(*) INTEGER NZ INTEGER INDX(*) DOUBLE COMPLEX FUNCTION ZDOTCI_64(NZ, X, INDX, Y) DOUBLE COMPLEX X(*), Y(*) INTEGER*8 NZ INTEGER*8 INDX(*) F95 INTERFACE COMPLEX FUNCTION DOTCI(NZ, X, INDX, Y) COMPLEX(8), DIMENSION(:) :: X, Y INTEGER :: NZ INTEGER, DIMENSION(:) :: INDX COMPLEX(8) FUNCTION DOTCI_64(NZ, X, INDX, Y) COMPLEX(8), DIMENSION(:) :: X, Y INTEGER(8) :: NZ INTEGER(8), DIMENSION(:) :: INDX C INTERFACE #include <sunperf.h> doublecomplex zdotci (const int nz, const doublecomplex* x, const int* indx, const doublecomplex* y); doublecomplex zdotci_64 (const long nz, const doublecomplex* x, const long* indx, const doublecomplex* y);
Oracle Solaris Studio Performance Library zdotci(3P) NAME zdotci - Compute the complex conjugated indexed dot product. SYNOPSIS DOUBLE COMPLEX FUNCTION ZDOTCI(NZ, X, INDX, Y) DOUBLE COMPLEX X(*), Y(*) INTEGER NZ INTEGER INDX(*) DOUBLE COMPLEX FUNCTION ZDOTCI_64(NZ, X, INDX, Y) DOUBLE COMPLEX X(*), Y(*) INTEGER*8 NZ INTEGER*8 INDX(*) F95 INTERFACE COMPLEX FUNCTION DOTCI(NZ, X, INDX, Y) COMPLEX(8), DIMENSION(:) :: X, Y INTEGER :: NZ INTEGER, DIMENSION(:) :: INDX COMPLEX(8) FUNCTION DOTCI_64(NZ, X, INDX, Y) COMPLEX(8), DIMENSION(:) :: X, Y INTEGER(8) :: NZ INTEGER(8), DIMENSION(:) :: INDX C INTERFACE #include <sunperf.h> doublecomplex zdotci (const int nz, const doublecomplex* x, const int* indx, const doublecomplex* y); doublecomplex zdotci_64 (const long nz, const doublecomplex* x, const long* indx, const doublecomplex* y); PURPOSE ZDOTCI 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 zdotci(3P)