Dot product

 

SDOT/DDOT/CDOTC/CDOTU/ZDOTC/ZDOTU

 

INTEGER*8

n, incx, incy

 

REAL*8

s, DDOT, x(lenx), y(leny)

 

s = DDOT(n, x, incx, y, incy)

 

INTEGER*8

n, incx, incy

 

COMPLEX*8

s, CDOTC, x(lenx), y(leny)

 

s = CDOTC(n, x, incx, y, incy)

 

INTEGER*8

n, incx, incy

 

COMPLEX*8

s, CDOTU, x(lenx), y(leny)

 

s = CDOTU(n, x, incx, y, incy)

 

INTEGER*8

n, incx, incy

 

COMPLEX*16

s, ZDOTC, x(lenx), y(leny)

 

s = ZDOTC(n, x, incx, y, incy)

 

INTEGER*8

n, incx, incy

 

COMPLEX*16

s, ZDOTU, x(lenx), y(leny)

 

s = ZDOTU(n, x, incx, y, incy)

 

INTELCOMP:

 

 

INTEGER*4

n, incx, incy

 

INTEGER*8

n, incx, incy

 

COMPLEX*8

s, CDOTC, x(lenx), y(leny), res

 

s = CDOTC(n, x, incx, y, incy, res)

 

INTEGER*4

n, incx, incy

 

INTEGER*8

n, incx, incy

 

COMPLEX*8

s, CDOTU, x(lenx), y(leny), res

 

s = CDOTU(n, x, incx, y, incy, res)

 

INTEGER*4

n, incx, incy

 

INTEGER*8

n, incx, incy

 

COMPLEX*16

s, ZDOTC, x(lenx), y(leny), res

 

s = ZDOTC(n, x, incx, y, incy, res)

 

INTEGER*4

n, incx, incy

 

INTEGER*8

n, incx, incy

 

COMPLEX*16

s, ZDOTU, x(lenx), y(leny), res

 

s = ZDOTU(n, x, incx, y, incy, res)

Input

n

Number of elements of vectors x and y to be used in the

 

 

dot product. If n ≤ 0, the subprograms do not reference

x or y.

Chapter 2 Basic Vector Operations 85