Lines Matching refs:k
17 PetscInt i__2, i__3, kp1, nm1, j, k, l, ll, kn, knp1, jn1; in PetscLINPACKgefa() local
30 for (k = 1; k <= nm1; ++k) { in PetscLINPACKgefa()
31 kp1 = k + 1; in PetscLINPACKgefa()
32 kn = k * n; in PetscLINPACKgefa()
33 knp1 = k * n + k; in PetscLINPACKgefa()
37 i__2 = n - k + 1; in PetscLINPACKgefa()
48 l += k - 1; in PetscLINPACKgefa()
49 ipvt[k] = l; in PetscLINPACKgefa()
52 …(allowzeropivot, PETSC_COMM_SELF, PETSC_ERR_MAT_LU_ZRPVT, "Zero pivot, row %" PetscInt_FMT, k - 1); in PetscLINPACKgefa()
53 PetscCall(PetscInfo(NULL, "Zero pivot, row %" PetscInt_FMT "\n", k - 1)); in PetscLINPACKgefa()
58 if (l != k) { in PetscLINPACKgefa()
66 i__2 = n - k; in PetscLINPACKgefa()
75 if (l != k) { in PetscLINPACKgefa()
76 a[l + jn1] = a[k + jn1]; in PetscLINPACKgefa()
77 a[k + jn1] = t; in PetscLINPACKgefa()
80 i__3 = n - k; in PetscLINPACKgefa()
81 ay = &a[1 + k + jn1]; in PetscLINPACKgefa()