Combine AXPY and DOT routines

F_SAXPY_DOT/F_DAXPY_DOT/F_CAXPY_DOT/F_ZAXPY_DOT

 

INTEGER*8

INCW, INCV, INCU, N

 

COMPLEX*16

ALPHA, R, W( * ), V( * ), U( * )

 

SUBROUTINE F_ZAXPY_DOT ( N, ALPHA, W, INCW, V, INCV, U, INCU )

Input

N

Number of elements of vector.

 

ALPHA

The scalar ALPHA.

 

W

REAL or COMPLEX array, minimum length

 

 

(N - 1) x incw + 1.

 

INCW

Increment for the array w. A vector w having

 

 

component wi, i = 1,...,n, is stored in an array

 

 

W() with increment argument incw. If incw > 0 then wi

 

 

is stored in W (1 + (i - 1) x incw). If incw < 0 then wi is

 

 

stored in W(1 + (N - i) x incw).

incw = 0 is an illegal value.

Chapter 2 Basic Vector Operations 165