Searched refs:invmap (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | sonfath.f | 13 integer, allocatable :: imap(:),invmap(:) local
15 allocate (invmap(numnp))
35 invmap(iorig+1)=i ! invmap takes arguemnt of new and returns original
|
| /phasta/phSolver/AMG/ |
| H A D | ramg_coarse.f | 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
[all …]
|