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

Chapter 2 Basic Vector Operations 145
Weighted dot product SWDOT/DWDOT/CWDOTC/CWDOTU/ZWDOTC/ZWDOTU
Name SWDOT/DWDOT/CWDOTC/CWDOTU/ZWDOTC/ZWDOTU
Weighted dot product
Purpose Given a real weight vector w and real or complex data vectors x and y, all of
length n, these subprograms compute the weighted dot products
where is the complex conjugate of x. The vectors can be stored in
one-dimensional arrays or in either rows or columns of two-dimensional arrays,
and the indexing through the arrays can be either forward or backward.
Usage VECLIB:
INTEGER*4 n, incw, incx, incy
REAL*4 s, SWDOT, w(lenw), x(lenx), y(leny)
s = SWDOT(n, w, incw, x, incx, y, incy)
INTEGER*4 n, incw, incx, incy
REAL*8 s, DWDOT, w(lenw), x(lenx), y(leny)
s = DWDOT(n, w, incw, x, incx, y, incy)
INTEGER*4 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*4 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*4 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*4 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)
VECLIB8:
sw
i
x
i
y
i
i 1=
n
∑
= and sw
i
x
i
y
i
i 1=
n
∑
=
x