SUBROUTINE CSSCAL(N,SA,CX,INCX)
 
scales a complex vector by multiplying it by a REAL number.
 
N      Input, INTEGER N, number of elements in vector.
 
SA     Input, REAL SA, 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.