CSCAL(3f)

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