1 subroutine zcopy(n,zx,incx,zy,incy)
7 double complex zx(*),zy(*)
8 integer i,incx,incy,ix,iy,n
11 if(incx.eq.1.and.incy.eq.1)
go to 20
18 if(incx.lt.0)ix = (-n+1)*incx + 1
19 if(incy.lt.0)iy = (-n+1)*incy + 1
subroutine zcopy(n, zx, incx, zy, incy)