Lines Matching refs:amg_CF
561 subroutine ramg_CFsplit(amg_CF,amg_S,anshg,annz,acolm,arowp, argument
572 integer,intent(inout),dimension(anshg) :: amg_CF local
612 amg_CF(i) = 0
676 amg_CF(i) = 2 ! mark fine ! NO, should mark isolated coarse
678 amg_CF(i) = 1 ! last coarse ! everybody coarse
685 if (amg_CF(i).eq.2) then
697 if (amg_CF(i).eq.0) then
704 if (amg_CF(k).eq.0) then ! undecided
706 else if (amg_CF(k).eq.2) then ! free
733 if (amg_CF(m).ne.0) then
743 amg_CF(m) = 1
745 amg_CF(m) = 2
755 amg_CF(m) = 1 ! mark coarse
764 if (amg_CF(k).eq.0) then !not defined yet !if A
766 amg_CF(k) = 2 ! mark fine
774 & (amg_CF(n).eq.0)) then
788 if (amg_CF(k).eq.0) then
803 if (amg_CF(i).eq.2) then
816 if (amg_CF(i).eq.0) then
817 amg_CF(i) = 1 ! Mark every node coarse if isolated
820 if (amg_CF(i).eq.1) then
828 if (amg_CF(i).eq.1) then
832 if (amg_CF(m).eq.1) then ! two coarse connected
851 subroutine ramg_update_cfmap(amg_CF,slevel) argument
854 integer,intent(in),dimension(amg_nshg(slevel)) :: amg_CF local
867 if (amg_CF(i).eq.1) then
874 subroutine ramg_readin_cfmap(amg_CF,slevel) argument
877 integer,intent(inout),dimension(amg_nshg(slevel)) :: amg_CF local
883 amg_CF(j) = 2 ! fine
886 amg_CF(j) = 1 ! coarse