SUBROUTINE CCOPY(N,CX,INCX,CY,INCY)
 
copies one vector to another, CY:=CX.
 
N      Input, INTEGER N, number of elements in the vectors.
 
CX     Input, COMPLEX CX(N), vector to be copied.
 
INCX   Input, INTEGER INCX, increment between elements of CX.  For contiguous
       elements, INCX = 1.
 
CY     Output, COMPLEX CY(N), result vector.
 
INCY   Input, INTEGER INCY, increment between elements of CY.  For contiguous
       elements, INCY = 1.