Searched refs:gj (Results 1 – 1 of 1) sorted by relevance
32 integer :: gi,gj,gk local344 do gj=gi+1,rownnz345 if (Prowp%pp(ki)%p(gi).gt.Prowp%pp(ki)%p(gj)) then346 gk = Prowp%pp(ki)%p(gj)347 Prowp%pp(ki)%p(gj) = Prowp%pp(ki)%p(gi)349 swaptemp(:) = Pmtx%pp(ki)%p(:,gj)350 Pmtx%pp(ki)%p(:,gj) = Pmtx%pp(ki)%p(:,gi)