SUBROUTINE ZDSCAL(N,SA,CX,INCX)
 
scales a complex*16 vector by multiplying it by a real*8 number.
 
N      Input, INTEGER N, number of elements in vector.
 
SA     Input, DOUBLE PRECISION SA, 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.