Lines Matching refs:lhsGProwp
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)
408 lhsGProwp%p(gi) = i
423 k = lhsGProwp%p(j)