i4vec_sort_heap_a Subroutine

subroutine i4vec_sort_heap_a(n, a)

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

I4VEC_SORT_HEAP_A ascending sorts an I4VEC using heap sort.

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		::	n1