R2917/zdotu_sub.f
38aa3c940a24master

zdotu_sub.f
View Options

			SUBROUTINE zdotu_sub(N,x,incx,y,incy,dotu)
			INTEGER N, incx, incy
			DOUBLE COMPLEX x(), y(), dotu, zdotu
			external zdotu
			dotu=zdotu(N,x,incx,y,incy)
			return
			end