492         invmap(heap(i)) = i
497       subroutine ramg_popheap(heap,invmap,wght,nheaps,popid,ilen)  argument
502       integer,dimension(0:ilen-1),intent(inout) :: heap,invmap  local
507       invmap(heap(popid)) = popid
508       call ramg_adjheap(heap,invmap,wght,nheaps,popid,ilen)
512       subroutine ramg_adjheap(heap,invmap,wght,nheaps,popid,ilen)  argument
515       integer,dimension(0:ilen-1),intent(inout) :: heap,invmap  local
527         invmap(heap(i)) = i
528         invmap(heap(j)) = j
546       invmap(heap(i)) = i
547       invmap(heap(j)) = j