SUBROUTINE CAXPY(N,CA,CX,INCX,CY,INCY)
 
CAXPY adds a scalar multiple CA of one vector CX to another vector CY.
CY:=CY+CA*CX.
 
N      Input, INTEGER N, number of elements in the vectors.
 
CA     Input, COMPLEX CA, scalar multiplier.
 
CX     Input, COMPLEX CX(N), vector to be added.
 
INCX   Input, INTEGER INCX, increment between elements of CX.  For contiguous
       elements, INCX = 1.
 
CY     Input/output, COMPLEX CY(N), vector to which CA*CX is to be
       added.
 
INCY   Input, INTEGER INCY, increment between elements of CY.  For contiguous
       elements, INCY = 1.