cdotci
cdotci, cdotui, ddoti, sdoti, zdotci, zdotui - Compute the dot product of two vectors x and y
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(*)
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
cdotci Compute the dot product of a real
sparse vector x stored in compressed form with
a real vector y in full storage form.
dot = 0
do 10, i = 1, n
dot = dot + x(i) * y(indx(i))
10 continue
-
* 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.