Lines Matching refs:p
50 call ramg_direct_LU(amg_A_colm(ramg_levelx)%p,
51 & amg_A_rowp(ramg_levelx)%p,
52 & amg_A_lhs(ramg_levelx)%p,amg_nshg(ramg_levelx),
78 integer :: i,p,p2 variable
100 p = 1
101 if (maxstopsign) p = 0
102 call MPI_AllReduce(p,p2,1,MPI_INTEGER,MPI_SUM,
119 deallocate(amg_A_colm(1)%p)
120 deallocate(amg_A_rowp(1)%p)
121 deallocate(amg_A_lhs(1)%p)
124 allocate(CF_map(ramg_levelx)%p(amg_nshg(ramg_levelx)))
125 allocate(CF_revmap(ramg_levelx)%p(amg_nshg(ramg_levelx)))
127 CF_map(ramg_levelx)%p(i) = i
128 CF_revmap(ramg_levelx)%p(i) = i
149 integer :: j,k,p local
195 k = amg_A_rowp(level1)%p(i)
196 p = iabs(amg_paramap(level1)%p(k))
200 p = subcfrev(p)
201 subnnz(p) = subnnz(p) + 1
204 p = iabs(amg_paramap(level1)%p(i))
208 p = subcfrev(p)
209 subcf(p) = subcf(p) + 1
215 p = subnei(i)
216 subneireduce = (p.ne.(myrank+1))
251 p = iabs(amg_paramap(level1)%p(i))
255 p = subcfrev(p)
256 if (subcfstop(p).eq.1) then
257 amg_paramap(level1)%p(i) = -iabs(amg_paramap(level1)%p(i))