Lines Matching refs:rp
1678 const PetscInt mbs = a->mbs, *ai = a->i, *aj = a->j, *rp, *vj, *adiag = a->diag; in MatSolve_SeqSBAIJ_1() local
1688 PetscCall(ISGetIndices(isrow, &rp)); in MatSolve_SeqSBAIJ_1()
1691 for (k = 0; k < mbs; k++) t[k] = b[rp[k]]; in MatSolve_SeqSBAIJ_1()
1707 x[rp[k]] = t[k]; in MatSolve_SeqSBAIJ_1()
1710 PetscCall(ISRestoreIndices(isrow, &rp)); in MatSolve_SeqSBAIJ_1()
1721 const PetscInt mbs = a->mbs, *ai = a->i, *aj = a->j, *rp, *vj; in MatSolve_SeqSBAIJ_1_inplace() local
1731 PetscCall(ISGetIndices(isrow, &rp)); in MatSolve_SeqSBAIJ_1_inplace()
1734 for (k = 0; k < mbs; k++) t[k] = b[rp[k]]; in MatSolve_SeqSBAIJ_1_inplace()
1750 x[rp[k]] = t[k]; in MatSolve_SeqSBAIJ_1_inplace()
1753 PetscCall(ISRestoreIndices(isrow, &rp)); in MatSolve_SeqSBAIJ_1_inplace()
1764 const PetscInt mbs = a->mbs, *ai = a->i, *aj = a->j, *rp, *vj, *adiag = a->diag; in MatForwardSolve_SeqSBAIJ_1() local
1775 PetscCall(ISGetIndices(isrow, &rp)); in MatForwardSolve_SeqSBAIJ_1()
1777 for (k = 0; k < mbs; k++) x[k] = b[rp[k]]; in MatForwardSolve_SeqSBAIJ_1()
1789 PetscCall(ISRestoreIndices(isrow, &rp)); in MatForwardSolve_SeqSBAIJ_1()
1800 const PetscInt mbs = a->mbs, *ai = a->i, *aj = a->j, *rp, *vj; in MatForwardSolve_SeqSBAIJ_1_inplace() local
1811 PetscCall(ISGetIndices(isrow, &rp)); in MatForwardSolve_SeqSBAIJ_1_inplace()
1813 for (k = 0; k < mbs; k++) x[k] = b[rp[k]]; in MatForwardSolve_SeqSBAIJ_1_inplace()
1825 PetscCall(ISRestoreIndices(isrow, &rp)); in MatForwardSolve_SeqSBAIJ_1_inplace()
1836 const PetscInt mbs = a->mbs, *ai = a->i, *aj = a->j, *rp, *vj, *adiag = a->diag; in MatBackwardSolve_SeqSBAIJ_1() local
1848 PetscCall(ISGetIndices(isrow, &rp)); in MatBackwardSolve_SeqSBAIJ_1()
1858 x[rp[k]] = t[k]; in MatBackwardSolve_SeqSBAIJ_1()
1860 PetscCall(ISRestoreIndices(isrow, &rp)); in MatBackwardSolve_SeqSBAIJ_1()
1871 const PetscInt mbs = a->mbs, *ai = a->i, *aj = a->j, *rp, *vj; in MatBackwardSolve_SeqSBAIJ_1_inplace() local
1883 PetscCall(ISGetIndices(isrow, &rp)); in MatBackwardSolve_SeqSBAIJ_1_inplace()
1893 x[rp[k]] = t[k]; in MatBackwardSolve_SeqSBAIJ_1_inplace()
1895 PetscCall(ISRestoreIndices(isrow, &rp)); in MatBackwardSolve_SeqSBAIJ_1_inplace()
1911 const PetscInt *vj, mbs = a->mbs, *ai = a->i, *aj = a->j, *rp; in MatSolves_SeqSBAIJ_1() local
1927 PetscCall(ISGetIndices(isrow, &rp)); in MatSolves_SeqSBAIJ_1()
1931 … for (i = 0; i < n; i++) t[n * k + i] = b[rp[k] + i * mbs]; /* values are stored interlaced in t */ in MatSolves_SeqSBAIJ_1()
1955 for (i = 0; i < n; i++) x[rp[k] + i * mbs] = t[n * k + i]; in MatSolves_SeqSBAIJ_1()
1958 PetscCall(ISRestoreIndices(isrow, &rp)); in MatSolves_SeqSBAIJ_1()
1975 const PetscInt *vj, mbs = a->mbs, *ai = a->i, *aj = a->j, *rp; in MatSolves_SeqSBAIJ_1_inplace() local
1991 PetscCall(ISGetIndices(isrow, &rp)); in MatSolves_SeqSBAIJ_1_inplace()
1995 … for (i = 0; i < n; i++) t[n * k + i] = b[rp[k] + i * mbs]; /* values are stored interlaced in t */ in MatSolves_SeqSBAIJ_1_inplace()
2019 for (i = 0; i < n; i++) x[rp[k] + i * mbs] = t[n * k + i]; in MatSolves_SeqSBAIJ_1_inplace()
2022 PetscCall(ISRestoreIndices(isrow, &rp)); in MatSolves_SeqSBAIJ_1_inplace()