Searched refs:amg_CF (Results 1 – 1 of 1) sorted by relevance
561 subroutine ramg_CFsplit(amg_CF,amg_S,anshg,annz,acolm,arowp, argument572 integer,intent(inout),dimension(anshg) :: amg_CF local612 amg_CF(i) = 0676 amg_CF(i) = 2 ! mark fine ! NO, should mark isolated coarse678 amg_CF(i) = 1 ! last coarse ! everybody coarse685 if (amg_CF(i).eq.2) then 697 if (amg_CF(i).eq.0) then 704 if (amg_CF(k).eq.0) then ! undecided706 else if (amg_CF(k).eq.2) then ! free733 if (amg_CF(m).ne.0) then[all …]