Searched refs:amg_paraext (Results 1 – 5 of 5) sorted by relevance
76 allocate(amg_paraext(1)%p(nshg))127 amg_paraext(1)%p = amg_paramap(1)%p134 if (amg_paraext(1)%p(k).eq.(myrank+1)) then136 amg_paraext(1)%p(k)=amg_paramap(1)%p(i)
64 type(i1d),dimension(MAXAMGLVL) :: amg_paraext variable
188 allocate(amg_paraext(level2)%p(amg_nshg(level2)))193 amg_paraext(level2)%p(j) = amg_paraext(level1)%p(i)
228 mk = amg_paraext(level)%p(i)669 if (associated(amg_paraext(level)%p)) then670 deallocate(amg_paraext(level)%p,
144 p = amg_paraext(clevel)%p(i)