Searched refs:lhsGProwp (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_extract.f | 36 type(i1d) :: lhsGProwp,lhsGPcolm
121 & lhsGPcolm,lhsGProwp,lhsGP,4,
133 k = lhsGProwp%p(m)
160 k = lhsGProwp%p(m)
162 p = lhsGProwp%p(j)
209 j = lhsGProwp%p(m)
211 k = lhsGProwp%p(n)
278 & (lhsGProwp%p(ki).lt.lhsGProwp%p(kj)) )
283 & (lhsGProwp%p(kj).lt.lhsGProwp%p(ki)) )
287 p = lhsGProwp%p(ki)
[all …]
|
| H A D | ramg_paratools.f | 9 & lhsGPcolm,lhsGProwp,lhsGP, argument
26 type(i1d),intent(inout) :: lhsGProwp,lhsGPcolm local
58 allocate(lhsGProwp%p(annz_tot))
61 lhsGProwp%p(:) = arowp(:)
377 allocate(lhsGProwp%p(rownnz))
385 lhsGProwp%p(rownnz) = arowp(j)
391 lhsGProwp%p(rownnz) = Prowp%pp(i)%p(j)
402 if (lhsGProwp%p(gi).ne.i) then
404 k = lhsGProwp%p(j)
407 lhsGProwp%p(j) = lhsGProwp%p(gi)
[all …]
|