Searched refs:gkbnu (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/pc/impls/fieldsplit/ |
| H A D | fieldsplit.c | 65 PetscReal gkbnu; /* Parameter for augmented Lagrangian H = A + nu*A01*A01' */ member
552 …c PetscErrorCode MatGolubKahanComputeExplicitOperator(Mat A, Mat B, Mat C, Mat *H, PetscReal gkbnu) in MatGolubKahanComputeExplicitOperator() argument
568 PetscCall(MatAYPX(*H, gkbnu, A, DIFFERENT_NONZERO_PATTERN)); /* H = A00 + nu*A01*A01' */ in MatGolubKahanComputeExplicitOperator()
1054 … PetscCall(MatGolubKahanComputeExplicitOperator(jac->mat[0], jac->B, jac->C, &jac->H, jac->gkbnu)); in PCSetUp_FieldSplit()
1885 if (jac->gkbnu) { in PCApply_FieldSplit_GKB()
1886 nu = jac->gkbnu; in PCApply_FieldSplit_GKB()
1887 PetscCall(VecScale(ilinkD->x, jac->gkbnu)); in PCApply_FieldSplit_GKB()
2170 …er in augmented Lagrangian approach", "PCFieldSplitSetGKBNu", jac->gkbnu, &jac->gkbnu, NULL, 0.0)); in PCSetFromOptions_FieldSplit()
3299 jac->gkbnu = nu; in PCFieldSplitSetGKBNu_FieldSplit()
3704 jac->gkbnu = 1; in PCCreate_FieldSplit()
|