heapsort Subroutine

public subroutine heapsort(n, array)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n
integer,	intent(inout)			::	array(1:n)