Lines Matching refs:amg_S
30 integer,dimension(amg_nnz(level1)) :: amg_S,amg_Ip local
64 amg_S = 0
104 call ramg_CFsplit(amg_F,amg_S,amg_nshg(level1),amg_nnz(level1),
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
561 subroutine ramg_CFsplit(amg_CF,amg_S,anshg,annz,acolm,arowp, argument
575 integer,intent(inout),dimension(annz) :: amg_S local
640 amg_S(j) = amg_S(j) + 1
643 amg_S(j) = amg_S(j) + 2
648 amg_S(j) = amg_S(j) + 1
651 amg_S(j) = amg_S(j) + 2
666 if ((amg_S(j).ne.0).and.(afmap(k).eq.cfilter)) then
702 if ((afmap(k).eq.cfilter).and.(amg_S(j).ge.2)) then ! in S^T
763 if (amg_S(j).ge.2) then ! in m's S^T if !B
773 if (((amg_S(i).eq.1).or.(amg_S(i).eq.3)).and.
787 if (mod(amg_S(j),2).eq.1) then !if B2
833 if (amg_S(j).ge.1) then