Lines Matching refs:ki
31 integer :: numtask,i,j,k,m,p,ki,kj,krowp,ierr local
122 ki = sub_map%pp(i)%p(j)
123 do kj = acolm(ki),acolm(ki+1)-1
190 ki = sub_map%pp(i)%p(j)
191 do kj = acolm(ki),acolm(ki+1)-1
280 ki = sub_map%pp(i)%p(j)
281 if (Pflag(ki).eq.0) then ! a new line
282 Pflag(ki) = 1
283 do k=acolm(ki),acolm(ki+1)-1
285 tmp_rowmap(kj) = k-acolm(ki)+1
286 tmp_revrmap(k-acolm(ki)+1)=kj
289 rownnz = rownnz+acolm(ki+1)-acolm(ki)
292 do k=1,Pcolm(ki)
293 kj = Prowp%pp(ki)%p(k)
296 tmp_rmtx(:,kj) = Pmtx%pp(ki)%p(:,k)
298 rownnz = rownnz+Pcolm(ki)
299 deallocate(Prowp%pp(ki)%p)
300 deallocate(Pmtx%pp(ki)%p)
304 do ki = sub_colm2%pp(i)%p(j),sub_colm2%pp(i)%p(j+1)-1
306 krowp = sub_rowp2%pp(i)%p(ki)
321 tmp_rmtx(p,kj) = tmp_rmtx(p,kj)+sub_mtx2%pp(i)%p(p,ki)
326 ki = sub_map%pp(i)%p(j)
327 Pcolm(ki) = rownnz
328 allocate(Prowp%pp(ki)%p(rownnz))
329 allocate(Pmtx%pp(ki)%p(redun,rownnz))
332 Prowp%pp(ki)%p(k) = kj
333 Pmtx%pp(ki)%p(:,k) = tmp_rmtx(:,kj)
345 if (Prowp%pp(ki)%p(gi).gt.Prowp%pp(ki)%p(gj)) then
346 gk = Prowp%pp(ki)%p(gj)
347 Prowp%pp(ki)%p(gj) = Prowp%pp(ki)%p(gi)
348 Prowp%pp(ki)%p(gi) = gk
349 swaptemp(:) = Pmtx%pp(ki)%p(:,gj)
350 Pmtx%pp(ki)%p(:,gj) = Pmtx%pp(ki)%p(:,gi)
351 Pmtx%pp(ki)%p(:,gi) = swaptemp(:)