Searched refs:nheaps (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_coarse.f | 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)
[all …]
|