Lines Matching refs:wght
467 subroutine ramg_initheap(heap,invMap,wght,nheaps,ilen) argument
471 real(kind=8),dimension(0:ilen-1),intent(in) :: wght local
482 do while ( ( k.gt.0 ).and.(wght(heap(k)).gt.wght(heap(j))) )
497 subroutine ramg_popheap(heap,invmap,wght,nheaps,popid,ilen) argument
501 real(kind=8),dimension(0:ilen-1),intent(in) :: wght local
508 call ramg_adjheap(heap,invmap,wght,nheaps,popid,ilen)
512 subroutine ramg_adjheap(heap,invmap,wght,nheaps,popid,ilen) argument
516 real(kind=8),dimension(0:ilen-1),intent(in) :: wght local
523 do while ( (i.gt.0).and.(wght(heap(j)).lt.wght(heap(i))))
536 if ((j.lt.(nheaps-1)).and.(wght(heap(j)).lt.wght(heap(j+1))))
540 if (wght(heap(i)).gt.wght(heap(j))) then