Searched refs:fk (Results 1 – 3 of 3) sorted by relevance
| /petsc/src/snes/tutorials/ |
| H A D | ex28.c | 71 PetscScalar *fu, *fk; in FormFunction_All() local
96 PetscCall(DMDAVecGetArray(dak, F, &fk)); in FormFunction_All()
97 PetscCall(FormFunctionLocal_K(user, &infok, u, k, fk)); in FormFunction_All()
98 PetscCall(DMDAVecRestoreArray(dak, F, &fk)); in FormFunction_All()
108 PetscCall(DMDAVecGetArray(dak, Fk, &fk)); in FormFunction_All()
110 PetscCall(FormFunctionLocal_K(user, &infok, u, k, fk)); in FormFunction_All()
112 PetscCall(DMDAVecRestoreArray(dak, Fk, &fk)); in FormFunction_All()
|
| /petsc/src/snes/impls/tr/ |
| H A D | tr.c | 491 PetscReal fk, fkp1, deltaqm = 0.0, gTy = 0.0, yTHy = 0.0; in SNESSolve_NEWTONTR() local
561 PetscCall(SNESComputeObjective(snes, X, &fk)); in SNESSolve_NEWTONTR()
562 SNESCheckObjectiveDomainError(snes, fk); in SNESSolve_NEWTONTR()
563 } else fk = 0.5 * PetscSqr(fnorm); /* obj(x) = 0.5 * ||F(x)||^2 */ in SNESSolve_NEWTONTR()
613 PetscCall(SNESComputeObjective(snes, X, &fk)); in SNESSolve_NEWTONTR()
614 SNESCheckObjectiveDomainError(snes, fk); in SNESSolve_NEWTONTR()
615 } else fk = 0.5 * PetscSqr(fnorm); /* obj(x) = 0.5 * ||F(x)||^2 */ in SNESSolve_NEWTONTR()
743 …if (deltaqm > 0.0) rho = (fk - fkp1) / deltaqm; /* actual improvement over predicted improvement */ in SNESSolve_NEWTONTR()
748 …aqm=%g, gTy=%g, yTHy=%g, ynormk=%g\n", (double)rho, (double)delta, (double)fk, (double)fkp1, (doub… in SNESSolve_NEWTONTR()
777 fk = fkp1; in SNESSolve_NEWTONTR()
|
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcprivate.c | 2626 for (PetscInt fk = 0; fk < nf; fk++) in PCBDDCDetectDisconnectedComponents() local
2627 if (f == cfaces[fk]) valid = PETSC_TRUE; in PCBDDCDetectDisconnectedComponents()
|