Reciprocal Scale

 

F_SRSCALE/F_DRSCALE/F_CRSCALE/F_ZRSCALE

 

INTEGER*8

INCX, N

 

REAL*4

ALPHA

 

COMPLEX*8

X( * )

 

SUBROUTINE F_ZRSCALE (N, ALPHA, X, INCX)

Input

N

Number of elements of vector x.

 

ALPHA

The scalar ALPHA.

 

X

REAL or COMPLEX array, minimum length

 

 

(N - 1) x incx + 1.

 

INCX

Increment for the array x. A vector x having component

 

 

xi, i = 1,..., n, is stored in an array X() with increment

 

 

argument incx. If incx > 0 then xi is stored in

 

 

X (1 + (i - 1) x incx). If incx < 0 then xi is stored in

 

 

X (1 + (N - i) x incx). incx = 0 is an illegal value.

Output

X

The scaled array replaces the input.

Chapter 2 Basic Vector Operations 191