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

Chapter 2 Basic Vector Operations 191
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
x
i
, i = 1,..., n, is stored in an array X() with increment
argument incx. If incx > 0 then x
i
is stored in
X (1 + (i - 1) x incx). If incx < 0 then x
i
is stored in
X (1 + (N - i) x |incx|). incx = 0 is an illegal value.
Output X The scaled array replaces the input.