Lines Matching refs:anshg
561 subroutine ramg_CFsplit(amg_CF,amg_S,anshg,annz,acolm,arowp, argument
571 integer,intent(in) :: anshg,annz local
572 integer,intent(inout),dimension(anshg) :: amg_CF
573 integer,intent(in),dimension(anshg+1) :: acolm
577 integer,intent(in),dimension(anshg) :: afmap
590 integer,dimension(anshg) :: aheap,ainvheap
592 real(kind=8),dimension(anshg) :: amg_L
593 real(kind=8),dimension(anshg) :: rowmax,prowmax
608 MSCALE = 0.1*LSCALE/anshg
610 do i=1,anshg
631 do i=1,anshg
661 do i=1,anshg
684 do i=1,anshg
689 if (k.eq.anshg) then
695 do i=1,anshg
727 nheaps = anshg
728 call ramg_initheap(aheap,ainvheap,amg_L,nheaps,anshg)
736 & ainvheap(m),anshg)
751 & ainvheap(m),anshg)
758 & anshg)
769 & anshg)
782 & anshg)
795 & anshg)
802 do i=1,anshg
807 if (k.eq.anshg) then
815 do i = 1,anshg
827 do i=1,anshg
840 if (k.eq.anshg) then