Lines Matching refs:amg_L
592 real(kind=8),dimension(anshg) :: amg_L local
613 amg_L(i) = 0
699 amg_L(i) = i*MSCALE+iabs(cfilter)
710 amg_L(i) = amg_L(i) + deltal
720 if (amg_L(i).gt.Lmax) then
721 Lmax = amg_L(i)
728 call ramg_initheap(aheap,ainvheap,amg_L,nheaps,anshg)
734 amg_L(m) = 0
735 call ramg_popheap(aheap,ainvheap,amg_L,nheaps,
739 Lmax = amg_L(m)-iabs(afmap(m))-m*MSCALE ! reuse Lmax
749 amg_L(m) = 0!afmap(m)+m*MSCALE
750 call ramg_popheap(aheap,ainvheap,amg_L,nheaps,
756 amg_L(m) = 0!afmap(m)+m*MSCALE!0 !floor(amg_L(m))
757 call ramg_popheap(aheap,ainvheap,amg_L,nheaps,ainvheap(m),
767 amg_L(k) = 0!afmap(k)+k*MSCALE!0 !floor(amg_L(k))
768 call ramg_popheap(aheap,ainvheap,amg_L,nheaps,ainvheap(k),
777 amg_L(n) = amg_L(n) + LSCALE
779 amg_L(n) = amg_L(n) - LSCALE
781 call ramg_adjheap(aheap,ainvheap,amg_L,nheaps,ainvheap(n),
790 amg_L(k) = amg_L(k) - LSCALE
792 amg_L(k) = amg_L(k) + LSCALE
794 call ramg_adjheap(aheap,ainvheap,amg_L,nheaps,ainvheap(k),