Lines Matching refs:kj

31       integer           :: numtask,i,j,k,m,p,ki,kj,krowp,ierr  local
123             do kj = acolm(ki),acolm(ki+1)-1
124                krowp = arowp(kj)
191             do kj = acolm(ki),acolm(ki+1)-1
192                krowp = arowp(kj)
196                    sub_rowpmap%pp(i)%p(k) = kj
198                       sub_mtx%pp(i)%p(p,k) = alhsP(p,kj)
284                    kj = arowp(k)
285                    tmp_rowmap(kj) = k-acolm(ki)+1
286                    tmp_revrmap(k-acolm(ki)+1)=kj
287                    tmp_rmtx(:,kj) = alhsP(:,k)
293                    kj = Prowp%pp(ki)%p(k)
294                    tmp_rowmap(kj) = k
295                    tmp_revrmap(k) = kj
296                    tmp_rmtx(:,kj) = Pmtx%pp(ki)%p(:,k)
307                kj = sub_map%pp(i)%p(krowp)
308                if (tmp_rowmap(kj).eq.0) then ! not yet occupied
310                tmp_rowmap(kj) = rownnz
311                tmp_revrmap(rownnz) = kj
321                tmp_rmtx(p,kj) = tmp_rmtx(p,kj)+sub_mtx2%pp(i)%p(p,ki)
331                kj = tmp_revrmap(k)
332                Prowp%pp(ki)%p(k) = kj
333                Pmtx%pp(ki)%p(:,k) = tmp_rmtx(:,kj)