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 | ||||
| |||||
| 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