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

132 HP MLIB User’s Guide
SRSCL/DRSCL/CRSCL/CSRSCL/ZRSCL/ZDRSCL Scale vector
Fortran
Equivalent
SUBROUTINE SRSCL (N,A, X,INCX)
REAL*4 A,X(*)
IF ( N .LE. 0 ) RETURN
IX = 1
INCXA = ABS ( INCX )
DO 10 I = 1, N
X(IX) = X(IX) / A
IX = IX + INCXA
10 CONTINUE
RETURN
END
Example Scale the REAL*8 vector x by dividing by 2, where x is a vector 10 elements
long stored in a one-dimensional array X of dimension 20.
INTEGER*4 N,INCX
REAL*8 A,X(20)
N = 10
INCX = 1
A = 2.0D0
CALL DRSCL (N,A,X,INCX)