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.

 

 

x x ⁄ α

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)

190HP MLIB User’s Guide