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

10CONTINUE 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)

132HP MLIB User’s Guide