Lines Matching refs:k
72 PetscInt prow, k, nz, n, repl, *j, *col, *row, m, *icol, nnz, *jj, kk; in MatReorderForNonzeroDiagonal_SeqAIJ() local
87 for (k = 0; k < nz; k++) { in MatReorderForNonzeroDiagonal_SeqAIJ()
88 if (icol[j[k]] == prow) break; in MatReorderForNonzeroDiagonal_SeqAIJ()
90 if (k >= nz || PetscAbsScalar(v[k]) <= abstol) { in MatReorderForNonzeroDiagonal_SeqAIJ()
92 repla = (k >= nz) ? 0.0 : PetscAbsScalar(v[k]); in MatReorderForNonzeroDiagonal_SeqAIJ()
96 for (k = 0; k < nz; k++) { in MatReorderForNonzeroDiagonal_SeqAIJ()
97 if (icol[j[k]] > prow && PetscAbsScalar(v[k]) > repla) { in MatReorderForNonzeroDiagonal_SeqAIJ()
99 repl = icol[j[k]]; in MatReorderForNonzeroDiagonal_SeqAIJ()
110 for (k = 0; k < nz; k++) { in MatReorderForNonzeroDiagonal_SeqAIJ()
111 if (icol[j[k]] < prow && PetscAbsScalar(v[k]) > repla) { in MatReorderForNonzeroDiagonal_SeqAIJ()
113 repl = icol[j[k]]; in MatReorderForNonzeroDiagonal_SeqAIJ()
130 for (k = prow + 1; k < n; k++) { in MatReorderForNonzeroDiagonal_SeqAIJ()
131 PetscCall(MatGetRow_SeqAIJ(mat, row[k], &nnz, &jj, &vv)); in MatReorderForNonzeroDiagonal_SeqAIJ()
135 SWAP(row[prow], row[k]); in MatReorderForNonzeroDiagonal_SeqAIJ()
139 PetscCall(MatRestoreRow_SeqAIJ(mat, row[k], &nnz, &jj, &vv)); in MatReorderForNonzeroDiagonal_SeqAIJ()