| /petsc/src/ksp/ksp/impls/gmres/ |
| H A D | gmres2.c | 32 PetscErrorCode KSPGMRESSetOrthogonalization(KSP ksp, PetscErrorCode (*fcn)(KSP ksp, PetscInt it)) in KSPGMRESSetOrthogonalization()
36 …ethod(ksp, "KSPGMRESSetOrthogonalization_C", (KSP, PetscErrorCode (*)(KSP, PetscInt)), (ksp, fcn)); in KSPGMRESSetOrthogonalization()
66 PetscErrorCode KSPGMRESGetOrthogonalization(KSP ksp, PetscErrorCode (**fcn)(KSP ksp, PetscInt it)) in KSPGMRESGetOrthogonalization()
70 …thod(ksp, "KSPGMRESGetOrthogonalization_C", (KSP, PetscErrorCode (**)(KSP, PetscInt)), (ksp, fcn)); in KSPGMRESGetOrthogonalization()
|
| H A D | gmres.c | 606 PetscErrorCode KSPGMRESSetOrthogonalization_GMRES(KSP ksp, FCN fcn) in KSPGMRESSetOrthogonalization_GMRES() argument
609 ((KSP_GMRES *)ksp->data)->orthog = fcn; in KSPGMRESSetOrthogonalization_GMRES()
613 PetscErrorCode KSPGMRESGetOrthogonalization_GMRES(KSP ksp, FCN *fcn) in KSPGMRESGetOrthogonalization_GMRES() argument
616 *fcn = ((KSP_GMRES *)ksp->data)->orthog; in KSPGMRESGetOrthogonalization_GMRES()
|
| /petsc/src/ksp/ksp/impls/gmres/fgmres/ftn-custom/ |
| H A D | zmodpcff.c | 33 PETSC_EXTERN void kspflexiblesetmodifypc_(KSP *ksp, void (*fcn)(KSP *, PetscInt *, PetscInt *, Pets… in kspflexiblesetmodifypc_()
36 if (fcn == kspflexiblemodifypcksp_) { in kspflexiblesetmodifypc_()
38 } else if (fcn == kspflexiblemodifypcnochange_) { in kspflexiblesetmodifypc_()
41 …PetscObject)*ksp, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.modify, (PetscFortranCallbackFn *)fcn, ctx); in kspflexiblesetmodifypc_()
|
| /petsc/src/tao/complementarity/impls/ssls/ |
| H A D | ssls.c | 23 PetscErrorCode Tao_SSLS_Function(TaoLineSearch ls, Vec X, PetscReal *fcn, void *ptr) in Tao_SSLS_Function() argument
32 *fcn = 0.5 * ssls->merit * ssls->merit; in Tao_SSLS_Function()
36 PetscErrorCode Tao_SSLS_FunctionGradient(TaoLineSearch ls, Vec X, PetscReal *fcn, Vec G, void *ptr) in Tao_SSLS_FunctionGradient() argument
45 *fcn = 0.5 * ssls->merit * ssls->merit; in Tao_SSLS_FunctionGradient()
|
| /petsc/src/ksp/ksp/impls/gmres/fgmres/ |
| H A D | modpcf.c | 21 PetscErrorCode KSPFlexibleSetModifyPC(KSP ksp, KSPFlexibleModifyPCFn *fcn, PetscCtx ctx, PetscCtxDe… in KSPFlexibleSetModifyPC() argument
25 …ifyPC_C", (KSP, KSPFlexibleModifyPCFn *, PetscCtx, PetscCtxDestroyFn *), (ksp, fcn, ctx, destroy)); in KSPFlexibleSetModifyPC()
|
| H A D | fgmres.c | 436 static PetscErrorCode KSPFlexibleSetModifyPC_FGMRES(KSP ksp, KSPFlexibleModifyPCFn *fcn, PetscCtx c… in KSPFlexibleSetModifyPC_FGMRES() argument
440 ((KSP_FGMRES *)ksp->data)->modifypc = fcn; in KSPFlexibleSetModifyPC_FGMRES()
|
| /petsc/src/tao/leastsquares/impls/brgn/ |
| H A D | brgn.c | 97 static PetscErrorCode GNObjectiveGradientEval(Tao tao, Vec X, PetscReal *fcn, Vec G, void *ptr) in GNObjectiveGradientEval() argument
108 PetscCall(VecDot(tao->ls_res, tao->ls_res, fcn)); in GNObjectiveGradientEval()
109 *fcn *= 0.5; in GNObjectiveGradientEval()
117 *fcn += gn->lambda * f_reg; in GNObjectiveGradientEval()
123 *fcn += gn->lambda * 0.5 * f_reg; in GNObjectiveGradientEval()
131 *fcn += gn->lambda * 0.5 * f_reg; in GNObjectiveGradientEval()
147 *fcn += gn->lambda * (yESum - K * gn->epsilon); in GNObjectiveGradientEval()
|
| /petsc/src/tao/unconstrained/tutorials/ |
| H A D | minsurf2.c | 161 PetscErrorCode FormFunction(Tao tao, Vec X, PetscReal *fcn, void *userCtx) in FormFunction() argument
274 PetscCallMPI(MPIU_Allreduce(&ft, fcn, 1, MPIU_REAL, MPIU_SUM, MPI_COMM_WORLD)); in FormFunction()
295 PetscErrorCode FormFunctionGradient(Tao tao, Vec X, PetscReal *fcn, Vec G, void *userCtx) in FormFunctionGradient() argument
448 PetscCallMPI(MPIU_Allreduce(&ft, fcn, 1, MPIU_REAL, MPIU_SUM, MPI_COMM_WORLD)); in FormFunctionGradient()
460 PetscReal fcn; in FormGradient() local
463 PetscCall(FormFunctionGradient(tao, X, &fcn, G, userCtx)); in FormGradient()
|
| H A D | minsurf1.c | 124 PetscErrorCode FormFunctionGradient(Tao tao, Vec X, PetscReal *fcn, Vec G, void *userCtx) in FormFunctionGradient() argument
259 (*fcn) = ft * area; in FormFunctionGradient()
|
| /petsc/src/tao/complementarity/impls/asls/ |
| H A D | asils.c | 66 static PetscErrorCode Tao_ASLS_FunctionGradient(TaoLineSearch ls, Vec X, PetscReal *fcn, Vec G, voi… in Tao_ASLS_FunctionGradient() argument
75 *fcn = 0.5 * asls->merit * asls->merit; in Tao_ASLS_FunctionGradient()
|
| H A D | asfls.c | 66 static PetscErrorCode Tao_ASLS_FunctionGradient(TaoLineSearch ls, Vec X, PetscReal *fcn, Vec G, voi… in Tao_ASLS_FunctionGradient() argument
75 *fcn = 0.5 * asls->merit * asls->merit; in Tao_ASLS_FunctionGradient()
|
| /petsc/share/petsc/datafiles/meshes/ |
| H A D | testcase3D.cas | 6101 (udf/wall-nodal-force-fcn "none")
6102 (udf/wall-nodal-disp-fcn "none")
6104 (udf/reacting-channel-bc-fcn ("none"))
6105 (udf/reacting-channel-solver-fcn "none")
6107 (udf/matrix-solver-fcn "none")
6114 (udf/deltat-fcn "none")
6115 (udf/emission-factor-fcn "none")
6120 (udf/dom/source-fcn "none")
6121 (udf/viscous/sbes-bf-fcn "none")
6122 (udf/viscous/kw-geko-bf-fcn "built-in")
[all …]
|
| /petsc/src/tao/bound/tutorials/ |
| H A D | jbearing2.c | 208 PetscErrorCode FormFunctionGradient(Tao tao, Vec X, PetscReal *fcn, Vec G, void *ptr) in FormFunctionGradient() argument
312 *fcn = f1 / 2.0 + f2; in FormFunctionGradient()
|
| H A D | plate2f.F90 | 56 subroutine FormFunctionGradient(ta, X, fcn, G, dummy, ierr)
60 PetscReal fcn
250 PetscCallMPI(MPI_Allreduce(ft, fcn, 1, MPIU_REAL, MPIU_SUM, PETSC_COMM_WORLD, ierr))
|
| H A D | plate2.c | 197 PetscErrorCode FormFunctionGradient(Tao tao, Vec X, PetscReal *fcn, Vec G, void *userCtx) in FormFunctionGradient() argument
359 PetscCallMPI(MPIU_Allreduce(&ft, fcn, 1, MPIU_REAL, MPIU_SUM, MPI_COMM_WORLD)); in FormFunctionGradient()
|