Searched refs:CAdiaginv (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/pc/impls/lsc/ |
| H A D | lsc.c | 76 Mat CAdiaginv; in PCSetUp_LSC() local
77 PetscCall(MatDuplicate(C, MAT_COPY_VALUES, &CAdiaginv)); in PCSetUp_LSC()
78 PetscCall(MatDiagonalScale(CAdiaginv, NULL, lsc->scale)); in PCSetUp_LSC()
79 … if (!lsc->L) PetscCall(MatMatMult(CAdiaginv, B, MAT_INITIAL_MATRIX, PETSC_CURRENT, &lsc->L)); in PCSetUp_LSC()
80 else PetscCall(MatMatMult(CAdiaginv, B, MAT_REUSE_MATRIX, PETSC_CURRENT, &lsc->L)); in PCSetUp_LSC()
81 PetscCall(MatDestroy(&CAdiaginv)); in PCSetUp_LSC()
|