Lines Matching refs:lhsGPcolm
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)
272 nj = lhsGPcolm%p(j+1)
313 mloop: do m=lhsGPcolm%p(i),lhsGPcolm%p(i+1)-1
344 deallocate(lhsGPcolm%p)
350 & lhsGPcolm,lhsGProwp,lhsGP,1,
353 amg_A_colm(1)%p = lhsGPcolm%p
354 amg_nnz(1) = lhsGPcolm%p(amg_nshg(1)+1)-1
363 deallocate(lhsGPcolm%p)