Searched refs:amg_paramap (Results 1 – 9 of 9) sorted by relevance
75 allocate(amg_paramap(1)%p(nshg))118 call ramg_initBCflag(amg_paramap(1)%p,ilwork,BC,iBC,iper)127 amg_paraext(1)%p = amg_paramap(1)%p129 if (amg_paramap(1)%p(i).ne.(myrank+1)) then136 amg_paraext(1)%p(k)=amg_paramap(1)%p(i)292 cki = amg_paramap(1)%p(i)293 ckj = amg_paramap(1)%p(j)294 ckk = amg_paramap(1)%p(k)316 cki = amg_paramap(1)%p(i)317 ckj = amg_paramap(1)%p(j)[all …]
196 p = iabs(amg_paramap(level1)%p(k))204 p = iabs(amg_paramap(level1)%p(i))251 p = iabs(amg_paramap(level1)%p(i))257 amg_paramap(level1)%p(i) = -iabs(amg_paramap(level1)%p(i))
106 & amg_A_lhs(level1)%p,amg_paramap(level1)%p,128 p = iabs(amg_paramap(level1)%p(i))187 allocate(amg_paramap(level2)%p(amg_nshg(level2)))192 amg_paramap(level2)%p(j) = amg_paramap(level1)%p(i)217 cfilter = amg_paramap(level1)%p(i)237 if (cfilter.eq.amg_paramap(level1)%p(j)) then
171 mi = amg_paramap(level)%p(i)174 mj = amg_paramap(level)%p(j)227 mi = amg_paramap(level)%p(i)232 mj = amg_paramap(level)%p(j)664 if (associated(amg_paramap(level)%p)) then665 deallocate(amg_paramap(level)%p,
63 type(i1d),dimension(MAXAMGLVL) :: amg_paramap variable
249 m = iabs(amg_paramap(level)%p(i))
79 amg_paramap is an array to record "grouping" information for coarsening234 init_bcflag initialize global array amg_paramap. Ignore the first bunch
145 q = amg_paramap(clevel)%p(i)
424 gi = amg_paramap(1)%p(i)425 gk = amg_paramap(1)%p(k)