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