HP MLIB User's Guide Vol. 1 7th Ed.

Chapter 2 Basic Vector Operations 85
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.