idamaxsub()

subroutine idamaxsub	(	integer	n,
		double precision, dimension(*)	x,
		integer	incx,
		integer	iamax
	)