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)

146HP MLIB User’s Guide