Lines Matching refs:rownnz
53 integer :: rownnz local
277 rownnz = 0
289 rownnz = rownnz+acolm(ki+1)-acolm(ki)
298 rownnz = rownnz+Pcolm(ki)
309 rownnz = rownnz+1
310 tmp_rowmap(kj) = rownnz
311 tmp_revrmap(rownnz) = kj
327 Pcolm(ki) = rownnz
328 allocate(Prowp%pp(ki)%p(rownnz))
329 allocate(Pmtx%pp(ki)%p(redun,rownnz))
330 do k=1,rownnz
343 do gi=1,rownnz
344 do gj=gi+1,rownnz
361 rownnz = 0
367 rownnz = rownnz+acolm(i+1)-acolm(i)
369 rownnz = rownnz+Pcolm(i)
372 lhsGPcolm%p(i+1)=rownnz+1
377 allocate(lhsGProwp%p(rownnz))
378 allocate(lhsGP%p(redun,rownnz))
380 rownnz = 1
385 lhsGProwp%p(rownnz) = arowp(j)
386 lhsGP%p(:,rownnz) = alhsP(:,j)
387 rownnz = rownnz + 1
391 lhsGProwp%p(rownnz) = Prowp%pp(i)%p(j)
392 lhsGP%p(:,rownnz) = Pmtx%pp(i)%p(:,j)
393 rownnz = rownnz + 1