cdotci - Compute the complex conjugated indexed dot product.
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);
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)