82 COMPLEX*16 FUNCTION zdotc(N,ZX,INCX,ZY,INCY)
92 COMPLEX*16 zx(*),zy(*)
104 ztemp = (0.0d0,0.0d0)
105 zdotc = (0.0d0,0.0d0)
107 IF (incx.EQ.1 .AND. incy.EQ.1)
THEN
112 ztemp = ztemp + dconjg(zx(i))*zy(i)
121 IF (incx.LT.0) ix = (-n+1)*incx + 1
122 IF (incy.LT.0) iy = (-n+1)*incy + 1
124 ztemp = ztemp + dconjg(zx(ix))*zy(iy)
complex *16 function zdotc(n, zx, incx, zy, incy)
ZDOTC