Searched refs:amg_L (Results 1 – 1 of 1) sorted by relevance
592 real(kind=8),dimension(anshg) :: amg_L local613 amg_L(i) = 0699 amg_L(i) = i*MSCALE+iabs(cfilter)710 amg_L(i) = amg_L(i) + deltal720 if (amg_L(i).gt.Lmax) then721 Lmax = amg_L(i)728 call ramg_initheap(aheap,ainvheap,amg_L,nheaps,anshg)734 amg_L(m) = 0735 call ramg_popheap(aheap,ainvheap,amg_L,nheaps,739 Lmax = amg_L(m)-iabs(afmap(m))-m*MSCALE ! reuse Lmax[all …]