467       subroutine ramg_initheap(heap,invMap,wght,nheaps,ilen)  argument
469       integer :: nheaps,ilen  local
470       integer,dimension(0:ilen-1),intent(inout) :: heap,invMap
471       real(kind=8),dimension(0:ilen-1),intent(in)    :: wght
497       subroutine ramg_popheap(heap,invmap,wght,nheaps,popid,ilen)  argument
500       integer,intent(in)    :: popid,ilen  local
501       real(kind=8),dimension(0:ilen-1),intent(in) :: wght
502       integer,dimension(0:ilen-1),intent(inout) :: heap,invmap
508       call ramg_adjheap(heap,invmap,wght,nheaps,popid,ilen)
512       subroutine ramg_adjheap(heap,invmap,wght,nheaps,popid,ilen)  argument
514       integer,intent(in) :: nheaps,ilen  local
515       integer,dimension(0:ilen-1),intent(inout) :: heap,invmap
516       real(kind=8),dimension(0:ilen-1),intent(in)    :: wght