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