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

146 HP MLIB User’s Guide
SWDOT/DWDOT/CWDOTC/CWDOTU/ZWDOTC/ZWDOTU Weighted dot product
INTEGER*8 n, incw, incx, incy
REAL*4 s, SWDOT, w(lenw), x(lenx), y(leny)
s = SWDOT(n, w, incw, x, incx, y, incy)
INTEGER*8 n, incw, incx, incy
REAL*8 s, DWDOT, w(lenw), x(lenx), y(leny)
s = DWDOT(n, w, incw, x, incx, y, incy)
INTEGER*8 n, incw, incx, incy
REAL*4 w(lenw)
COMPLEX*8 s, CWDOTC, x(lenx), y(leny)
s = CWDOTC(n, w, incw, x, incx, y, incy)
INTEGER*8 n, incw, incx, incy
REAL*4 w(lenw)
COMPLEX*8 s, CWDOTU, x(lenx), y(leny)
s = CWDOTU(n, w, incw, x, incx, y, incy)
INTEGER*8 n, incw, incx, incy
REAL*8 w(lenw)
COMPLEX*16 s, ZWDOTC, x(lenx), y(leny)
s = ZWDOTC(n, w, incw, x, incx, y, incy)
INTEGER*8 n, incw, incx, incy
REAL*8 w(lenw)
COMPLEX*16 s, ZWDOTU, x(lenx), y(leny)
s = ZWDOTU(n, w, incw, x, incx, y, incy)