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.
c
code for increment not equal to 1
if(incx.lt.0)ix
= (-n+1)*incx + 1
c
code for increment equal to 1
PURPOSE