Lines Matching refs:level2
10 subroutine ramg_coarse_setup(level1,level2,eps_str, argument
21 integer,intent(in) :: level1,level2 local
176 amg_nshg(level2) = 0
181 amg_nshg(level2) = amg_nshg(level2) + 1
187 allocate(amg_paramap(level2)%p(amg_nshg(level2)))
188 allocate(amg_paraext(level2)%p(amg_nshg(level2)))
192 amg_paramap(level2)%p(j) = amg_paramap(level1)%p(i)
193 amg_paraext(level2)%p(j) = amg_paraext(level1)%p(i)
422 allocate(I_fc_colm(level1)%p(amg_nshg(level2)+1),stat=mem_err)
432 I_fc_colm(level1)%p(1:amg_nshg(level2)+1) = 0
438 do i=1,amg_nshg(level2)
443 I_fc_colm(level1)%p(amg_nshg(level2)+1) = mnnz
455 do i=amg_nshg(level2),2,-1