Lines Matching refs:Prowp
51 type(i2dd) :: Prowp local
267 allocate(Prowp%pp(nshg))
293 kj = Prowp%pp(ki)%p(k)
299 deallocate(Prowp%pp(ki)%p)
328 allocate(Prowp%pp(ki)%p(rownnz))
332 Prowp%pp(ki)%p(k) = 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
391 lhsGProwp%p(rownnz) = Prowp%pp(i)%p(j)
443 deallocate(Prowp%pp(i)%p)
449 deallocate(Prowp%pp)