Home
last modified time | relevance | path

Searched refs:fetidpmat_ctx (Results 1 – 3 of 3) sorted by relevance

/petsc/src/ksp/pc/impls/bddc/
H A Dbddcfetidp.c42 PetscErrorCode PCBDDCCreateFETIDPMatContext(PC pc, FETIDPMat_ctx *fetidpmat_ctx) in PCBDDCCreateFETIDPMatContext() argument
51 *fetidpmat_ctx = newctx; in PCBDDCCreateFETIDPMatContext()
118 PetscErrorCode PCBDDCSetupFETIDPMatContext(FETIDPMat_ctx fetidpmat_ctx) in PCBDDCSetupFETIDPMatContext() argument
120 PC_IS *pcis = (PC_IS *)fetidpmat_ctx->pc->data; in PCBDDCSetupFETIDPMatContext()
121 PC_BDDC *pcbddc = (PC_BDDC *)fetidpmat_ctx->pc->data; in PCBDDCSetupFETIDPMatContext()
123 Mat_IS *matis = (Mat_IS *)fetidpmat_ctx->pc->pmat->data; in PCBDDCSetupFETIDPMatContext()
151 PetscCall(PetscObjectGetComm((PetscObject)fetidpmat_ctx->pc, &comm)); in PCBDDCSetupFETIDPMatContext()
163 PetscCall(PetscObjectQuery((PetscObject)fetidpmat_ctx->pc, "__KSPFETIDP_pP", (PetscObject *)&pP)); in PCBDDCSetupFETIDPMatContext()
166 … PetscCall(PetscObjectQuery((PetscObject)fetidpmat_ctx->pc, "__KSPFETIDP_gP", (PetscObject *)&gP)); in PCBDDCSetupFETIDPMatContext()
169 PetscCall(VecCreate(PETSC_COMM_SELF, &fetidpmat_ctx->vP)); in PCBDDCSetupFETIDPMatContext()
[all …]
H A Dbddc.c2444 FETIDPMat_ctx fetidpmat_ctx; in PCBDDCCreateFETIDPOperators_BDDC() local
2453 PetscCall(PCBDDCCreateFETIDPMatContext(pc, &fetidpmat_ctx)); in PCBDDCCreateFETIDPOperators_BDDC()
2454 fetidpmat_ctx->fully_redundant = fully_redundant; in PCBDDCCreateFETIDPOperators_BDDC()
2455 PetscCall(PCBDDCSetupFETIDPMatContext(fetidpmat_ctx)); in PCBDDCCreateFETIDPOperators_BDDC()
2456 …PetscCall(MatCreateShell(comm, fetidpmat_ctx->n, fetidpmat_ctx->n, fetidpmat_ctx->N, fetidpmat_ctx… in PCBDDCCreateFETIDPOperators_BDDC()
2457 PetscCall(PetscObjectSetName((PetscObject)newmat, !fetidpmat_ctx->l2g_lambda_only ? "F" : "G")); in PCBDDCCreateFETIDPOperators_BDDC()
2463 PC_BDDC *pcbddc = (PC_BDDC *)fetidpmat_ctx->pc->data; in PCBDDCCreateFETIDPOperators_BDDC()
2480 if (!fetidpmat_ctx->l2g_lambda_only) { /* standard FETI-DP */ in PCBDDCCreateFETIDPOperators_BDDC()
2493 PetscCall(ISViewFromOptions(fetidpmat_ctx->lagrange, NULL, "-lag_view")); in PCBDDCCreateFETIDPOperators_BDDC()
2494 PetscCall(ISViewFromOptions(fetidpmat_ctx->pressure, NULL, "-press_view")); in PCBDDCCreateFETIDPOperators_BDDC()
[all …]
/petsc/src/ksp/ksp/impls/fetidp/
H A Dfetidp.c264 FETIDPMat_ctx fetidpmat_ctx; in KSPFETIDPCheckOperators() local
285 PetscCall(MatShellGetContext(F, &fetidpmat_ctx)); in KSPFETIDPCheckOperators()
305 PetscCall(VecDuplicate(fetidpmat_ctx->lambda_local, &test_vec)); in KSPFETIDPCheckOperators()
308 …PetscCall(VecScatterBegin(fetidpmat_ctx->l2g_lambda, fetidp_global, fetidpmat_ctx->lambda_local, I… in KSPFETIDPCheckOperators()
309 …PetscCall(VecScatterEnd(fetidpmat_ctx->l2g_lambda, fetidp_global, fetidpmat_ctx->lambda_local, INS… in KSPFETIDPCheckOperators()
310 if (fetidpmat_ctx->l2g_p) { in KSPFETIDPCheckOperators()
311 PetscCall(VecDuplicate(fetidpmat_ctx->vP, &test_vec_p)); in KSPFETIDPCheckOperators()
313 …PetscCall(VecScatterBegin(fetidpmat_ctx->l2g_p, fetidp_global, fetidpmat_ctx->vP, INSERT_VALUES, S… in KSPFETIDPCheckOperators()
314 …PetscCall(VecScatterEnd(fetidpmat_ctx->l2g_p, fetidp_global, fetidpmat_ctx->vP, INSERT_VALUES, SCA… in KSPFETIDPCheckOperators()
316 PetscCall(VecAXPY(test_vec, -1.0, fetidpmat_ctx->lambda_local)); in KSPFETIDPCheckOperators()
[all …]