Lines Matching refs:prow
72 PetscInt prow, k, nz, n, repl, *j, *col, *row, m, *icol, nnz, *jj, kk; in MatReorderForNonzeroDiagonal_SeqAIJ() local
85 for (prow = 0; prow < n; prow++) { in MatReorderForNonzeroDiagonal_SeqAIJ()
86 PetscCall(MatGetRow_SeqAIJ(mat, row[prow], &nz, &j, &v)); in MatReorderForNonzeroDiagonal_SeqAIJ()
88 if (icol[j[k]] == prow) break; in MatReorderForNonzeroDiagonal_SeqAIJ()
97 if (icol[j[k]] > prow && PetscAbsScalar(v[k]) > repla) { in MatReorderForNonzeroDiagonal_SeqAIJ()
100 SWAP(icol[col[prow]], icol[col[repl]]); in MatReorderForNonzeroDiagonal_SeqAIJ()
101 SWAP(col[prow], col[repl]); in MatReorderForNonzeroDiagonal_SeqAIJ()
111 if (icol[j[k]] < prow && PetscAbsScalar(v[k]) > repla) { in MatReorderForNonzeroDiagonal_SeqAIJ()
116 if (icol[jj[kk]] == prow && PetscAbsScalar(vv[kk]) > abstol) { in MatReorderForNonzeroDiagonal_SeqAIJ()
118 SWAP(icol[col[prow]], icol[col[repl]]); in MatReorderForNonzeroDiagonal_SeqAIJ()
119 SWAP(col[prow], col[repl]); in MatReorderForNonzeroDiagonal_SeqAIJ()
130 for (k = prow + 1; k < n; k++) { in MatReorderForNonzeroDiagonal_SeqAIJ()
133 if (icol[jj[kk]] == prow && PetscAbsScalar(vv[kk]) > abstol) { in MatReorderForNonzeroDiagonal_SeqAIJ()
135 SWAP(row[prow], row[k]); in MatReorderForNonzeroDiagonal_SeqAIJ()
144 PetscCall(MatRestoreRow_SeqAIJ(mat, row[prow], &nz, &j, &v)); in MatReorderForNonzeroDiagonal_SeqAIJ()