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

 

n

 

n

 

s = ∑ wi xi yi

and

s = ∑ wi

x

i yi

 

i = 1

 

i = 1

 

where x 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:

Chapter 2 Basic Vector Operations 145