Searched refs:popid (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_coarse.f | 497 subroutine ramg_popheap(heap,invmap,wght,nheaps,popid,ilen) argument
500 integer,intent(in) :: popid,ilen local
506 heap(popid) = heap(nheaps)
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
517 integer,intent(in) :: popid local
521 i = popid
533 i = popid
|