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

130 HP MLIB User’s Guide
SRSCL/DRSCL/CRSCL/CSRSCL/ZRSCL/ZDRSCL Scale vector
Name SRSCL/DRSCL/CRSCL/CSRSCL/ZRSCL/ZDRSCL
Scale vector
Purpose Given a real or complex scalar a and a real or complex vector x of length n,
these subprograms perform the reciprocal vector scaling operation
The vector can be stored in a one-dimensional array or in either a row or a
column of a two-dimensional array.
Usage VECLIB:
INTEGER*4 n, incx
REAL*4 a, x(lenx)
CALL SRSCL(n, a, x, incx)
INTEGER*4 n, incx
REAL*8 a, x(lenx)
CALL DRSCL(n, a, x, incx)
INTEGER*4 n, incx
COMPLEX*8 a, x(lenx)
CALL CRSCL(n, a, x, incx)
INTEGER*4 n, incx
REAL*4 a
COMPLEX*8 x(lenx)
CALL CSRSCL(n, a, x, incx)
INTEGER*4 n, incx
COMPLEX*16 a, x(lenx)
CALL ZRSCL(n, a, x, incx)
INTEGER*4 n, incx
REAL*8 a
COMPLEX*16 x(lenx)
CALL ZDRSCL(n, a, x, incx)
VECLIB8:
INTEGER*8 n, incx
REAL*4 a, x(lenx)
CALL SRSCL(n, a, x, incx)
xxa÷←