Lines Matching refs:nheaps
467 subroutine ramg_initheap(heap,invMap,wght,nheaps,ilen) argument
469 integer :: nheaps,ilen local
475 do i=0,nheaps-1
479 do i=1,nheaps-1
491 do i=0,nheaps-1
497 subroutine ramg_popheap(heap,invmap,wght,nheaps,popid,ilen) argument
499 integer,intent(inout) :: nheaps local
505 nheaps = nheaps-1
506 heap(popid) = heap(nheaps)
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
534 do while (i.lt.(nheaps/2))
536 if ((j.lt.(nheaps-1)).and.(wght(heap(j)).lt.wght(heap(j+1))))
595 integer :: flagS,nheaps,cfilter local
727 nheaps = anshg
728 call ramg_initheap(aheap,ainvheap,amg_L,nheaps,anshg)
731 do while (nheaps.gt.0)
735 call ramg_popheap(aheap,ainvheap,amg_L,nheaps,
750 call ramg_popheap(aheap,ainvheap,amg_L,nheaps,
757 call ramg_popheap(aheap,ainvheap,amg_L,nheaps,ainvheap(m),
768 call ramg_popheap(aheap,ainvheap,amg_L,nheaps,ainvheap(k),
781 call ramg_adjheap(aheap,ainvheap,amg_L,nheaps,ainvheap(n),
794 call ramg_adjheap(aheap,ainvheap,amg_L,nheaps,ainvheap(k),