cdotci

NAME

cdotci, cdotui, ddoti, sdoti, zdotci, zdotui - Compute the dot product of two vectors x and y

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

PURPOSE

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

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.