SRSCL/DRSCL/CRSCL/CSRSCL/ZRSCL/ZDRSCL

Scale vector

Name SRSCL/DRSCL/CRSCL/CSRSCL/ZRSCL/ZDRSCL

Scale vector

Purpose Given a real or complex scalar a and a real or complex vector x of length n, these subprograms perform the reciprocal vector scaling operation

x ← x ⎟ a

The vector can be stored in a one-dimensional array or in either a row or a column of a two-dimensional array.

Usage

VECLIB:

 

 

INTEGER*4

n, incx

 

REAL*4

a, x(lenx)

 

CALL SRSCL(n, a, x, incx)

 

INTEGER*4

n, incx

 

REAL*8

a, x(lenx)

 

CALL DRSCL(n, a, x, incx)

 

INTEGER*4

n, incx

 

COMPLEX*8

a, x(lenx)

 

CALL CRSCL(n, a, x, incx)

 

INTEGER*4

n, incx

 

REAL*4

a

 

COMPLEX*8

x(lenx)

CALL CSRSCL(n, a, x, incx)

INTEGER*4

n, incx

COMPLEX*16

a, x(lenx)

CALL ZRSCL(n, a, x, incx)

INTEGER*4

n, incx

REAL*8

a

COMPLEX*16

x(lenx)

CALL ZDRSCL(n, a, x, incx)

VECLIB8:

INTEGER*8

n, incx

REAL*4

a, x(lenx)

CALL SRSCL(n, a, x, incx)

130HP MLIB User’s Guide