Lines Matching refs:dups
477 PetscInt FnzDups = 0, Fdnz = 0, FdnzDups = 0, Fonz = 0, FonzDups = 0; // nz (with or without dups) in F, Fd, Fo
492 PetscInt nz = 0; // nz (with dups) in the current row
508 // Scan column indices (in jbuf[0,nz), might have dups) of this row, and see how many go to Fd and how many go to Fo
512 PetscInt dups = 1;
514 while (cur + dups < nz && jbuf[cur + dups] == curColIdx) dups++;
517 FdnzDups += dups;
520 FonzDups += dups;
522 cur += dups;
557 PetscInt nz = 0; // nz (with dups) in the current row
570 PetscInt dups = 1;
572 while (cur + dups < nz && jbuf[cur + dups] == curColIdx) dups++;
575 Fdjmap[Fdnz + 1] = Fdjmap[Fdnz] + dups;
576 for (PetscInt j = 0; j < dups; j++) Fdjperm[Fdjmap[Fdnz] + j] = recvNzPermSorted[FnzDups + j];
577 FdnzDups += dups;
581 Fojmap[Fonz + 1] = Fojmap[Fonz] + dups;
582 for (PetscInt j = 0; j < dups; j++) Fojperm[Fojmap[Fonz] + j] = recvNzPermSorted[FnzDups + j];
583 FonzDups += dups;
586 cur += dups;
587 FnzDups += dups;