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


Man(1) output converted with man2html