cscal

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