SUBROUTINE CSCAL(N,CA,CX,INCX)
 
scales a complex vector by multiplying it by a complex number.
 
N      Input, INTEGER N, number of elements in vector.
 
CA     Input, COMPLEX CA, scaling factor.
 
CX     Input/output, COMPLEX CX(N), vector to be scaled.
 
INCX   Input, INTEGER INCX, increment between elements of CX.  For contiguous
       elements, INCX = 1.