| /petsc/src/ksp/pc/impls/is/ |
| H A D | pcis.c | 263 PetscCall(MatDestroy(&pcis->A_II)); in PCISSetUp()
275 … PetscCall(MatCreateSubMatrix(amatis->A, pcis->is_I_local, pcis->is_I_local, reuse, &pcis->A_II)); in PCISSetUp()
278 PetscCall(MatDestroy(&pcis->A_II)); in PCISSetUp()
279 pcis->A_II = pcis->pA_II; in PCISSetUp()
281 PetscCall(MatSetBlockSize(pcis->A_II, bs == ibs ? bs : 1)); in PCISSetUp()
336 PetscCall(KSPSetOperators(pcis->ksp_D, pcis->A_II, pcis->A_II)); in PCISSetUp()
428 PetscCall(MatDestroy(&pcis->A_II)); in PCISReset()
|
| /petsc/include/petsc/private/ |
| H A D | pcisimpl.h | 28 Mat A_II, A_IB, /* local (sequential) submatrices */ member
|
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcfetidp.c | 768 Mat A_II, A_IB, A_BI; in PCBDDCSetupFETIDPPCContext() local
795 PetscCall(ISCreateStride(PetscObjectComm((PetscObject)pcis->A_II), nb, 0, 1, &aB)); in PCBDDCSetupFETIDPPCContext()
796 PetscCall(MatCreateSubMatrix(pcis->A_II, iV, iV, MAT_INITIAL_MATRIX, &A_II)); in PCBDDCSetupFETIDPPCContext()
803 PetscCall(PetscObjectReference((PetscObject)pcis->A_II)); in PCBDDCSetupFETIDPPCContext()
804 A_II = pcis->A_II; in PCBDDCSetupFETIDPPCContext()
806 PetscCall(MatCreateSchurComplement(A_II, A_II, A_IB, A_BI, pcis->A_BB, &fetidppc_ctx->S_j)); in PCBDDCSetupFETIDPPCContext()
827 PetscCall(MatDestroy(&A_II)); in PCBDDCSetupFETIDPPCContext()
839 …PetscCall(MatCreateSchurComplement(pcis->A_II, pcis->A_II, pcis->A_IB, pcis->A_BI, pcis->A_BB, &fe… in PCBDDCSetupFETIDPPCContext()
|
| H A D | bddcschurs.c | 383 Mat F, A_II, A_IB, A_BI, A_BB, AE_II; in PCBDDCSubSchursSetUp() local
480 PetscCall(MatSchurComplementGetSubMatrices(sub_schurs->S, &A_II, NULL, &tA_IB, &tA_BI, &tA_BB)); in PCBDDCSubSchursSetUp()
495 A_II = NULL; in PCBDDCSubSchursSetUp()
550 PetscCall(MatCreateSubMatrix(A_II, is_I, is_I, MAT_INITIAL_MATRIX, &AE_II)); in PCBDDCSubSchursSetUp()
565 PetscCall(PetscObjectReference((PetscObject)A_II)); in PCBDDCSubSchursSetUp()
566 AE_II = A_II; in PCBDDCSubSchursSetUp()
785 if (AE_II == A_II) { /* we can reuse the same ksp */ in PCBDDCSubSchursSetUp()
1341 Mat A_II, pA_II, Afake; in PCBDDCSubSchursSetUp() local
1352 PetscCall(MatSchurComplementGetSubMatrices(sub_schurs->S, &A_II, &pA_II, NULL, NULL, NULL)); in PCBDDCSubSchursSetUp()
1369 PetscCall(PCCreate(PetscObjectComm((PetscObject)A_II), &msolv_ctx->interior_solver)); in PCBDDCSubSchursSetUp()
[all …]
|
| H A D | bddcprivate.c | 5258 Mat A_II, A_BB, A_IB, A_BI; in PCBDDCSetUpCorrection() local
5268 … PetscCall(MatCreateSubMatrix(A, pcis->is_I_local, pcis->is_I_local, MAT_INITIAL_MATRIX, &A_II)); in PCBDDCSetUpCorrection()
5274 PetscCall(MatConvert(pcis->A_II, checkmattype, MAT_INITIAL_MATRIX, &A_II)); in PCBDDCSetUpCorrection()
5289 PetscCall(MatMatMult(A_II, coarse_phi_D, MAT_INITIAL_MATRIX, 1.0, &AUXMAT)); in PCBDDCSetUpCorrection()
5302 PetscCall(MatPtAP(A_II, coarse_phi_D, MAT_INITIAL_MATRIX, 1.0, &TM1)); in PCBDDCSetUpCorrection()
5376 PetscCall(MatDestroy(&A_II)); in PCBDDCSetUpCorrection()
5996 PetscCall(MatDestroy(&pcis->A_II)); in PCBDDCSetUpLocalSolvers()
5997 pcis->A_II = A_IIn; in PCBDDCSetUpLocalSolvers()
6001 if (isset) PetscCall(MatSetOption(pcis->A_II, MAT_SYMMETRIC, issym)); in PCBDDCSetUpLocalSolvers()
6025 PetscCall(KSPSetOperators(pcbddc->ksp_D, pcis->A_II, pcis->pA_II)); in PCBDDCSetUpLocalSolvers()
[all …]
|
| /petsc/src/ksp/pc/impls/mg/ |
| H A D | gdsw.c | 90 PetscCall(KSPCreate(PetscObjectComm((PetscObject)ipcis->A_II), &sksp[0])); in PCMGGDSWSetUp()
92 PetscCall(KSPSetOperators(sksp[0], ipcis->A_II, ipcis->pA_II)); in PCMGGDSWSetUp()
154 …PetscCall(MatCreateSchurComplement(ipcis->A_II, ipcis->pA_II, ipcis->A_IB, ipcis->A_BI, ipcis->A_B… in PCMGGDSWSetUp()
|