Lines Matching refs:gi
32 integer :: gi,gj,gk local
343 do gi=1,rownnz
344 do gj=gi+1,rownnz
345 if (Prowp%pp(ki)%p(gi).gt.Prowp%pp(ki)%p(gj)) then
347 Prowp%pp(ki)%p(gj) = Prowp%pp(ki)%p(gi)
348 Prowp%pp(ki)%p(gi) = gk
350 Pmtx%pp(ki)%p(:,gj) = Pmtx%pp(ki)%p(:,gi)
351 Pmtx%pp(ki)%p(:,gi) = swaptemp(:)
401 gi = lhsGPcolm%p(i)
402 if (lhsGProwp%p(gi).ne.i) then
403 do j=gi+1,lhsGPcolm%p(i+1)-1
407 lhsGProwp%p(j) = lhsGProwp%p(gi)
408 lhsGProwp%p(gi) = i
410 swaptemp(:) = lhsGP%p(:,gi)
411 lhsGP%p(:,gi) = lhsGP%p(:,j)
424 gi = amg_paramap(1)%p(i)
426 if ((gi.eq.gk).and.(gi.lt.0) ) then