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)

170HP MLIB User’s Guide