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

190 HP MLIB User’s Guide
F_SRSCALE/F_DRSCALE/F_CRSCALE/F_ZRSCALE Reciprocal Scale
Name F_SRSCALE/F_DRSCALE/F_CRSCALE/F_ZRSCALE
Reciprocal Scale
Purpose F_xRSCALE scales the entries of a vector x by the real scalar 1/α. The scalar α
is always real and should be nonzero. Scaling is done without overflow or
underflow as long as the result, x/α, does not overflow or underflow. If n is less
than or equal to zero, this routine returns immediately.
Usage VECLIB:
INTEGER*4 INCX, N
REAL*4 ALPHA, X( * )
SUBROUTINE F_SRSCALE (N, ALPHA, X, INCX)
INTEGER*4 INCX, N
REAL*8 ALPHA, X( * )
SUBROUTINE F_DRSCALE (N, ALPHA, X, INCX)
INTEGER*4 INCX, N
REAL*4 ALPHA
COMPLEX*8 X( * )
SUBROUTINE F_CRSCALE (N, ALPHA, X, INCX)
INTEGER*4 INCX, N
REAL*4 ALPHA
COMPLEX*8 X( * )
SUBROUTINE F_ZRSCALE (N, ALPHA, X, INCX)
VECLIB8:
INTEGER*8 INCX, N
REAL*4 ALPHA, X( * )
SUBROUTINE F_SRSCALE (N, ALPHA, X, INCX)
INTEGER*8 INCX, N
REAL*8 ALPHA, X( * )
SUBROUTINE F_DRSCALE (N, ALPHA, X, INCX)
INTEGER*8 INCX, N
REAL*4 ALPHA
COMPLEX*8 X( * )
SUBROUTINE F_CRSCALE (N, ALPHA, X, INCX)
xxα⁄←