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

170 HP MLIB User’s Guide
F_SDOT/F_DDOT/F_CDOT/F_ZDOT Add scaled dot product
INTEGER*8 CONJ, INCX, INCY, N
REAL*8 ALPHA, BETA, R, X( * ), Y( * )
SUBROUTINE F_DDOT (CONJ, N, ALPHA, X, INCX, BETA, Y, INCY, R)
INTEGER*8 CONJ, INCX, INCY, N
COMPLEX*8 ALPHA, BETA, R, X( * ), Y( * )
SUBROUTINE F_CDOT (CONJ, N, ALPHA, X, INCX, BETA, Y, INCY, R)
INTEGER*8 CONJ, INCX, INCY, N
COMPLEX*16 ALPHA, BETA, R, X( * ), Y( * )
SUBROUTINE F_ZDOT (CONJ, N, ALPHA, X, INCX, BETA, Y, INCY, R)