Lines Matching refs:kspupper

58 …KSP                       kspupper;   /* The solver for A in the upper diagonal part of the factor…  member
232 if (jac->head && jac->kspupper != jac->head->ksp) { in PCView_FieldSplit_Schur()
235 if (jac->kspupper) PetscCall(KSPView(jac->kspupper, viewer)); in PCView_FieldSplit_Schur()
256 if (jac->kspupper != jac->head->ksp) cnt++; in PCView_FieldSplit_Schur()
275 if (jac->kspupper != jac->head->ksp) { in PCView_FieldSplit_Schur()
278 PetscCall(KSPView(jac->kspupper, viewer)); in PCView_FieldSplit_Schur()
860 KSP kspA = jac->head->ksp, kspInner = NULL, kspUpper = jac->kspupper; in PCSetUp_FieldSplit()
883 } else if (jac->schurpre == PC_FIELDSPLIT_SCHUR_PRE_FULL && jac->kspupper != jac->head->ksp) { in PCSetUp_FieldSplit()
980 PetscCall(KSPCreate(PetscObjectComm((PetscObject)pc), &jac->kspupper)); in PCSetUp_FieldSplit()
981 PetscCall(KSPSetNestLevel(jac->kspupper, pc->kspnestlevel)); in PCSetUp_FieldSplit()
982 PetscCall(KSPSetErrorIfNotConverged(jac->kspupper, pc->erroriffailure)); in PCSetUp_FieldSplit()
983 PetscCall(KSPSetOptionsPrefix(jac->kspupper, schurprefix)); in PCSetUp_FieldSplit()
984 PetscCall(PetscObjectIncrementTabLevel((PetscObject)jac->kspupper, (PetscObject)pc, 1)); in PCSetUp_FieldSplit()
985 PetscCall(PetscObjectIncrementTabLevel((PetscObject)jac->kspupper->pc, (PetscObject)pc, 1)); in PCSetUp_FieldSplit()
987 PetscCall(KSPSetDM(jac->kspupper, dmInner)); in PCSetUp_FieldSplit()
988 PetscCall(KSPSetDMActive(jac->kspupper, KSP_DMACTIVE_ALL, PETSC_FALSE)); in PCSetUp_FieldSplit()
989 PetscCall(KSPSetFromOptions(jac->kspupper)); in PCSetUp_FieldSplit()
990 PetscCall(KSPSetOperators(jac->kspupper, jac->mat[0], jac->pmat[0])); in PCSetUp_FieldSplit()
993 jac->kspupper = jac->head->ksp; in PCSetUp_FieldSplit()
1008 …if (jac->schurfactorization != PC_FIELDSPLIT_SCHUR_FACT_FULL || jac->kspupper != jac->head->ksp) P… in PCSetUp_FieldSplit()
1112 KSP kspA = ilinkA->ksp, kspUpper = jac->kspupper; in PCSetUpOnBlocks_FieldSplit_Schur()
1192 KSP kspA = ilinkA->ksp, kspLower = kspA, kspUpper = jac->kspupper; in PCApply_FieldSplit_Schur()
1396 KSP kspA = ilinkA->ksp, kspLower = kspA, kspUpper = jac->kspupper; in PCMatApply_FieldSplit_Schur()
1559 KSP kspA = ilinkA->ksp, kspLower = kspA, kspUpper = jac->kspupper; in PCApplyTranspose_FieldSplit_Schur()
2096 PetscCall(KSPDestroy(&jac->kspupper)); in PCReset_FieldSplit()
2190 if (jac->kspupper && jac->kspupper->totalits > 0) PetscCall(KSPSetFromOptions(jac->kspupper)); in PCSetFromOptions_FieldSplit()
2265 nn = jac->nsplits + (jac->kspupper != jac->head->ksp ? 1 : 0); in PCFieldSplitSchurGetSubKSP_FieldSplit()
2269 if (jac->kspupper != jac->head->ksp) (*subksp)[2] = jac->kspupper; in PCFieldSplitSchurGetSubKSP_FieldSplit()