Searched refs:lhsGPcolm (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,
132 do m=lhsGPcolm%p(i),lhsGPcolm%p(i+1)-1
159 do m = lhsGPcolm%p(i),lhsGPcolm%p(i+1)-1
161 do j = lhsGPcolm%p(k),lhsGPcolm%p(k+1)-1
208 do m = lhsGPcolm%p(i),lhsGPcolm%p(i+1)-1
210 do n = lhsGPcolm%p(j),lhsGPcolm%p(j+1)-1
269 ki = lhsGPcolm%p(i)
270 ni = lhsGPcolm%p(i+1)
271 kj = lhsGPcolm%p(j)
[all …]
|
| H A D | ramg_paratools.f | 9 & lhsGPcolm,lhsGProwp,lhsGP, argument
26 type(i1d),intent(inout) :: lhsGProwp,lhsGPcolm local
59 allocate(lhsGPcolm%p(nshg+1))
62 lhsGPcolm%p(:) = acolm(:)
359 allocate(lhsGPcolm%p(nshg+1))
363 lhsGPcolm%p(1) = 1
372 lhsGPcolm%p(i+1)=rownnz+1
401 gi = lhsGPcolm%p(i)
403 do j=gi+1,lhsGPcolm%p(i+1)-1
422 do j=lhsGPcolm%p(i),lhsGPcolm%p(i+1)-1
|