Searched refs:amg_S (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_coarse.f | 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
[all …]
|