Searched refs:gi (Results 1 – 1 of 1) sorted by relevance
32 integer :: gi,gj,gk local343 do gi=1,rownnz344 do gj=gi+1,rownnz345 if (Prowp%pp(ki)%p(gi).gt.Prowp%pp(ki)%p(gj)) then347 Prowp%pp(ki)%p(gj) = Prowp%pp(ki)%p(gi)348 Prowp%pp(ki)%p(gi) = gk350 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[all …]