Searched refs:corr_ctx (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcnullspace.c | 8 NullSpaceCorrection_ctx corr_ctx = (NullSpaceCorrection_ctx)ctx; in PCBDDCNullSpaceCorrPreSolve() local
12 PetscCall(PetscLogEventBegin(corr_ctx->evapply, ksp, 0, 0, 0)); in PCBDDCNullSpaceCorrPreSolve()
13 PetscCall(MatMultTranspose(corr_ctx->basis_mat, y, corr_ctx->sw[0])); in PCBDDCNullSpaceCorrPreSolve()
14 if (corr_ctx->symm) { in PCBDDCNullSpaceCorrPreSolve()
15 PetscCall(MatMult(corr_ctx->inv_smat, corr_ctx->sw[0], corr_ctx->sw[1])); in PCBDDCNullSpaceCorrPreSolve()
17 PetscCall(MatMultTranspose(corr_ctx->inv_smat, corr_ctx->sw[0], corr_ctx->sw[1])); in PCBDDCNullSpaceCorrPreSolve()
19 PetscCall(VecScale(corr_ctx->sw[1], -1.0)); in PCBDDCNullSpaceCorrPreSolve()
20 PetscCall(MatMult(corr_ctx->basis_mat, corr_ctx->sw[1], corr_ctx->fw[0])); in PCBDDCNullSpaceCorrPreSolve()
21 PetscCall(VecScale(corr_ctx->sw[1], -1.0)); in PCBDDCNullSpaceCorrPreSolve()
23 PetscCall(MatMultAdd(K, corr_ctx->fw[0], y, y)); in PCBDDCNullSpaceCorrPreSolve()
[all …]
|