i4vec_heap_d Subroutine

subroutine i4vec_heap_d(n, a)

************80

I4VEC_HEAP_D reorders an I4VEC into an descending heap.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	n
integer(kind=4)				::	a(n)

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=4),	public		::	i
integer(kind=4),	public		::	ifree
integer(kind=4),	public		::	key
integer(kind=4),	public		::	m