1 double complex function zdotc(n,zx,incx,zy,incy)
7 double complex zx(*),zy(*),ztemp
8 integer i,incx,incy,ix,iy,n
12 if(incx.eq.1.and.incy.eq.1)
go to 20
19 if(incx.lt.0)ix = (-n+1)*incx + 1
20 if(incy.lt.0)iy = (-n+1)*incy + 1
22 ztemp = ztemp + dconjg(zx(ix))*zy(iy)
32 ztemp = ztemp + dconjg(zx(i))*zy(i)
double complex function zdotc(n, zx, incx, zy, incy)