53 COMPLEX*16 FUNCTION zdotc(N,ZX,INCX,ZY,INCY)
64 COMPLEX*16 ZX(*),ZY(*)
79 IF (incx.EQ.1 .AND. incy.EQ.1)
THEN
84 ztemp = ztemp + dconjg(zx(i))*zy(i)
93 IF (incx.LT.0) ix = (-n+1)*incx + 1
94 IF (incy.LT.0) iy = (-n+1)*incy + 1
96 ztemp = ztemp + dconjg(zx(ix))*zy(iy)
complex *16 function zdotc(N, ZX, INCX, ZY, INCY)
ZDOTC