Lines Matching refs:amg_nshg

31       integer,dimension(amg_nshg(level1)) :: amg_F,aLoc
32       real(kind=8),dimension(amg_nshg(level1))  :: amg_la
33       integer,dimension(amg_nshg(level1))       :: amg_Fn,amg_Fp
104       call ramg_CFsplit(amg_F,amg_S,amg_nshg(level1),amg_nnz(level1),
127       do i = 1,amg_nshg(level1)
146       allocate(CF_map(level1)%p(amg_nshg(level1)))
147       allocate(CF_revmap(level1)%p(amg_nshg(level1)))
150       do i=1,amg_nshg(level1)
157       do i=1,amg_nshg(level1)
166       do i=1,amg_nshg(level1)
176       amg_nshg(level2) = 0
179       do i = 1, amg_nshg(level1)
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)))
190       do i=1,amg_nshg(level1)
200       allocate(amg_I_colm%p(amg_nshg(level1)),stat=mem_err)
202       allocate(amg_I_rowp%pp(amg_nshg(level1)),stat=mem_err)
204       allocate(amg_I%pp(amg_nshg(level1)),stat=mem_err)
215       loop_i: do i = 1, amg_nshg(level1)
371       allocate(I_cf_colm(level1)%p(amg_nshg(level1)+1),stat=mem_err)
381       do i=1,amg_nshg(level1)
389       I_cf_colm(level1)%p(amg_nshg(level1)+1) = mnnz+1
400       do i = 1,amg_nshg(level1)
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
445       do i=1,amg_nshg(level1)
455       do i=amg_nshg(level2),2,-1
854       integer,intent(in),dimension(amg_nshg(slevel)) :: amg_CF
856       integer,dimension(amg_nshg(slevel))      :: revmap
860       do i=1,amg_nshg(1)
877       integer,intent(inout),dimension(amg_nshg(slevel)) :: amg_CF
881       do i=1,amg_nshg(1)