Lines Matching refs:amg_F
31 integer,dimension(amg_nshg(level1)) :: amg_F,aLoc local
65 amg_F = 0
104 call ramg_CFsplit(amg_F,amg_S,amg_nshg(level1),amg_nnz(level1),
118 call ramg_update_cfmap(amg_F,level1)
122 call ramg_readin_cfmap(amg_F,level1)
131 if (amg_F(i).eq.1) then
151 if (amg_F(i).eq.1) then ! fine/coarse first
158 if (amg_F(i).eq.2) then
180 if (amg_F(i).eq.1) then
191 if (amg_F(i).eq.1) then
218 if (amg_F(i).eq.1) then ! i as a coarse node do trivial work
239 if ( (amg_F(j).eq.1) .and. (mod(amg_S(k),2).eq.1) ) then
254 if ( (amg_F(j).eq.2) .and. (mod(amg_S(k),2).eq.1)) then
271 if ( (amg_F(jj).eq.1) .and. (mod(amg_S(kj),2).eq.1) ) then