52 COMPLEX FUNCTION cdotc(N,CX,INCX,CY,INCY)
78 IF (incx.EQ.1 .AND. incy.EQ.1)
THEN
83 ctemp = ctemp + conjg(cx(i))*cy(i)
92 IF (incx.LT.0) ix = (-n+1)*incx + 1
93 IF (incy.LT.0) iy = (-n+1)*incy + 1
95 ctemp = ctemp + conjg(cx(ix))*cy(iy)
COMPLEX function cdotc(N, CX, INCX, CY, INCY)
CDOTC