zdotusub()

subroutine zdotusub	(	integer	n,
		double complex, dimension(*)	x,
		integer	incx,
		double complex, dimension(*)	y,
		integer	incy,
		double complex	dotu
	)