NAME¶

CSCAL - scales a vector by a constant.

SYNOPSIS¶

subroutine cscal(n,ca,cx,incx)

c

scales a vector by a constant.

c

jack dongarra, linpack, 3/11/78.

c

modified to correct problem with negative increment, 8/21/90.

complex

ca,cx(1)

integer

i,incx,ix,n

if(n.le.0)return

if(incx.eq.1)go

to 20

c

code for increment not equal to 1

ix

= 1

if(incx.lt.0)ix

= (-n+1)*incx + 1

do

10 i = 1,n

cx(ix)

= ca*cx(ix)

ix

= ix + incx

10

continue

return

c

code for increment equal to 1

20

do 30 i = 1,n

cx(i)

= ca*cx(i)

30

continue

return

end

PURPOSE¶