Lines Matching refs:pp
72 allocate(sub_map%pp(numtask))
73 allocate(sub_revmap%pp(numtask))
74 allocate(sub_colm%pp(numtask))
75 allocate(sub_colm2%pp(numtask))
76 allocate(sub_rowp%pp(numtask))
77 allocate(sub_rowp2%pp(numtask))
78 allocate(sub_rowpmap%pp(numtask))
79 allocate(sub_mtx%pp(numtask))
80 allocate(sub_mtx2%pp(numtask))
99 allocate(sub_map%pp(i)%p(numseg))
100 allocate(sub_revmap%pp(i)%p(nshg))
102 sub_map%pp(i)%p = 0
103 sub_revmap%pp(i)%p = 0
108 sub_map%pp(i)%p(j) = k
109 sub_revmap%pp(i)%p(k) = j
115 allocate(sub_colm%pp(i)%p(numseg+1))
116 allocate(sub_colm2%pp(i)%p(numseg+1))
121 sub_colm%pp(i)%p(j) = sub_nnz%p(i) + 1
122 ki = sub_map%pp(i)%p(j)
125 if (sub_revmap%pp(i)%p(krowp).ne.0) then
138 sub_colm%pp(i)%p(numseg+1) = sub_nnz%p(i) + 1
141 call MPI_ISEND(sub_colm%pp(i)%p(1),numseg+1,MPI_INTEGER,
143 call MPI_IRECV(sub_colm2%pp(i)%p(1),numseg+1,MPI_INTEGER,
147 call MPI_IRECV(sub_colm2%pp(i)%p(1),numseg+1,MPI_INTEGER,
149 call MPI_ISEND(sub_colm%pp(i)%p(1),numseg+1,MPI_INTEGER,
164 sub_nnz2%p(i) = sub_colm2%pp(i)%p(sub_nshg%p(i)+1)-1
181 allocate(sub_rowp%pp(i)%p(sub_nnz%p(i)))
182 allocate(sub_rowp2%pp(i)%p(sub_nnz2%p(i)))
183 allocate(sub_rowpmap%pp(i)%p(sub_nnz%p(i)))
184 allocate(sub_mtx%pp(i)%p(redun,sub_nnz%p(i)))
185 allocate(sub_mtx2%pp(i)%p(redun,sub_nnz2%p(i)))
190 ki = sub_map%pp(i)%p(j)
193 if (sub_revmap%pp(i)%p(krowp).ne.0) then
195 sub_rowp%pp(i)%p(k) = sub_revmap%pp(i)%p(krowp)
196 sub_rowpmap%pp(i)%p(k) = kj
198 sub_mtx%pp(i)%p(p,k) = alhsP(p,kj)
205 call MPI_ISEND(sub_rowp%pp(i)%p(1),sub_nnz%p(i),MPI_INTEGER,
207 call MPI_IRECV(sub_rowp2%pp(i)%p(1),sub_nnz2%p(i),MPI_INTEGER,
211 call MPI_IRECV(sub_rowp2%pp(i)%p(1),sub_nnz2%p(i),MPI_INTEGER,
213 call MPI_ISEND(sub_rowp%pp(i)%p(1),sub_nnz%p(i),MPI_INTEGER,
218 call MPI_ISEND(sub_mtx%pp(i)%p(1,1),redun*sub_nnz%p(i),
221 call MPI_IRECV(sub_mtx2%pp(i)%p(1,1),redun*sub_nnz2%p(i),
226 call MPI_IRECV(sub_mtx2%pp(i)%p(1,1),redun*sub_nnz2%p(i),
229 call MPI_ISEND(sub_mtx%pp(i)%p(1,1),redun*sub_nnz%p(i),
267 allocate(Prowp%pp(nshg))
268 allocate(Pmtx%pp(nshg))
280 ki = sub_map%pp(i)%p(j)
293 kj = Prowp%pp(ki)%p(k)
296 tmp_rmtx(:,kj) = Pmtx%pp(ki)%p(:,k)
299 deallocate(Prowp%pp(ki)%p)
300 deallocate(Pmtx%pp(ki)%p)
304 do ki = sub_colm2%pp(i)%p(j),sub_colm2%pp(i)%p(j+1)-1
306 krowp = sub_rowp2%pp(i)%p(ki)
307 kj = sub_map%pp(i)%p(krowp)
321 tmp_rmtx(p,kj) = tmp_rmtx(p,kj)+sub_mtx2%pp(i)%p(p,ki)
326 ki = sub_map%pp(i)%p(j)
328 allocate(Prowp%pp(ki)%p(rownnz))
329 allocate(Pmtx%pp(ki)%p(redun,rownnz))
332 Prowp%pp(ki)%p(k) = kj
333 Pmtx%pp(ki)%p(:,k) = tmp_rmtx(:,kj)
345 if (Prowp%pp(ki)%p(gi).gt.Prowp%pp(ki)%p(gj)) then
346 gk = Prowp%pp(ki)%p(gj)
347 Prowp%pp(ki)%p(gj) = Prowp%pp(ki)%p(gi)
348 Prowp%pp(ki)%p(gi) = gk
349 swaptemp(:) = Pmtx%pp(ki)%p(:,gj)
350 Pmtx%pp(ki)%p(:,gj) = Pmtx%pp(ki)%p(:,gi)
351 Pmtx%pp(ki)%p(:,gi) = swaptemp(:)
391 lhsGProwp%p(rownnz) = Prowp%pp(i)%p(j)
392 lhsGP%p(:,rownnz) = Pmtx%pp(i)%p(:,j)
443 deallocate(Prowp%pp(i)%p)
444 deallocate(Pmtx%pp(i)%p)
449 deallocate(Prowp%pp)
450 deallocate(Pmtx%pp)
454 deallocate(sub_map%pp(i)%p)
455 deallocate(sub_revmap%pp(i)%p)
456 deallocate(sub_colm%pp(i)%p)
457 deallocate(sub_colm2%pp(i)%p)
458 deallocate(sub_rowp%pp(i)%p)
459 deallocate(sub_rowp2%pp(i)%p)
460 deallocate(sub_rowpmap%pp(i)%p)
461 deallocate(sub_mtx%pp(i)%p)
462 deallocate(sub_mtx2%pp(i)%p)
466 deallocate(sub_map%pp)
467 deallocate(sub_revmap%pp)
468 deallocate(sub_rowpmap%pp)
472 deallocate(sub_colm%pp)
473 deallocate(sub_colm2%pp)
474 deallocate(sub_rowp%pp)
475 deallocate(sub_rowp2%pp)
476 deallocate(sub_mtx%pp)
477 deallocate(sub_mtx2%pp)