Searched refs:amg_F (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_coarse.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
[all …]
|
| H A D | ramg_tools.f | 343 subroutine ramg_freeBC(amg_F,ilwork,BC,iBC,iper) argument
348 integer,intent(inout),dimension(nshg) :: amg_F local
373 amg_F(p) = 2
378 tmpout(:,2) = amg_F
|