| /petsc/lib/petsc/bin/maint/petsclinter/petsclinter/checks/ |
| H A D | _code.py | 26 def check_obj_idx_generic(linter: Linter, func: Cursor, parent: Cursor) -> None: 43 func_args = linter.get_argument_cursors(func) 50 def checkPetscValidHeaderSpecificType(linter: Linter, func: Cursor, parent: Cursor) -> None: 62 func_args = linter.get_argument_cursors(func) 71 def checkPetscValidHeaderSpecific(linter: Linter, func: Cursor, parent: Cursor) -> None: 83 func_args = linter.get_argument_cursors(func) 91 def checkPetscValidHeader(linter: Linter, func: Cursor, parent: Cursor) -> None: 103 func_args = linter.get_argument_cursors(func) 111 def checkPetscValidLogicalCollective(linter: Linter, func: Cursor, parent: Cursor, expected_types: … 127 func_args = linter.get_argument_cursors(func) [all …]
|
| /petsc/src/dm/impls/forest/p4est/ |
| H A D | petsc_p4est_package.h | 15 #define PetscCallP4est(func, args) \ argument 18 …TION_NAME, __FILE__, PETSC_ERR_LIB, PETSC_ERROR_REPEAT, "Error in p4est/libsc call %s()", #func); \ 20 PetscStackPushExternal(#func); \ 21 func args; \ 25 #define PetscCallP4estReturn(ret, func, args) \ argument 28 …TION_NAME, __FILE__, PETSC_ERR_LIB, PETSC_ERROR_REPEAT, "Error in p4est/libsc call %s()", #func); \ 30 PetscStackPushExternal(#func); \ 31 ret = func args; \ 36 #define PetscCallP4est(func, args) \ argument 38 PetscStackPushExternal(#func); \ [all …]
|
| /petsc/src/tao/interface/ftn-custom/ |
| H A D | ztaosolverf.c | 166 PETSC_EXTERN void taosetobjective_(Tao *tao, void (*func)(Tao *, Vec *, PetscReal *, void *, PetscE… in taosetobjective_() 168 CHKFORTRANNULLFUNCTION(func); in taosetobjective_() 169 …ck((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.obj, (PetscFortranCallbackFn *)func, ctx); in taosetobjective_() 173 PETSC_EXTERN void taosetgradient_(Tao *tao, Vec *g, void (*func)(Tao *, Vec *, Vec *, void *, Petsc… in taosetgradient_() 175 CHKFORTRANNULLFUNCTION(func); in taosetgradient_() 176 …k((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.grad, (PetscFortranCallbackFn *)func, ctx); in taosetgradient_() 180 PETSC_EXTERN void taosetobjectiveandgradient_(Tao *tao, Vec *g, void (*func)(Tao *, Vec *, PetscRea… in taosetobjectiveandgradient_() 182 CHKFORTRANNULLFUNCTION(func); in taosetobjectiveandgradient_() 183 …PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.objgrad, (PetscFortranCallbackFn *)func, ctx); in taosetobjectiveandgradient_() 187 PETSC_EXTERN void taosethessian_(Tao *tao, Mat *J, Mat *Jp, void (*func)(Tao *, Vec *, Mat *, Mat *… in taosethessian_() [all …]
|
| /petsc/src/sys/objects/device/impls/cupm/ |
| H A D | cupmthrustutility.hpp | 26 #define PETSC_THRUST_CALL_PAR_ON(func, s, ...) func(thrust::cuda::par_nosync.on(s), __VA_ARGS__) argument 28 #define PETSC_THRUST_CALL_PAR_ON(func, s, ...) func(thrust::cuda::par.on(s), __VA_ARGS__) 36 #define PETSC_THRUST_CALL_PAR_ON(func, s, ...) func(thrust::hip::par_nosync.on(s), __VA_ARGS__) 38 #define PETSC_THRUST_CALL_PAR_ON(func, s, ...) func(thrust::hip::par.on(s), __VA_ARGS__) 41 #define PETSC_THRUST_CALL_PAR_ON(func, s, ...) func(__VA_ARGS__)
|
| /petsc/include/petsc/private/ |
| H A D | viewerhdf5impl.h | 18 #define PetscCallHDF5(func, args) \ argument 21 PetscStackPushExternal(#func); \ 22 _status = func args; \ 24 … >= 0, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in HDF5 call %s() Status %d", #func, (int)_status); \ 27 #define PetscCallHDF5ReturnNoCheck(ret, func, args) \ argument 29 PetscStackPushExternal(#func); \ 30 ret = func args; \ 34 #define PetscCallHDF5Return(ret, func, args) \ argument 36 PetscCallHDF5ReturnNoCheck(ret, func, args); \ 37 …(ret >= 0, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in HDF5 call %s() Status %d", #func, (int)ret); \
|
| /petsc/src/snes/linesearch/impls/shell/ |
| H A D | linesearchshell.c | 5 SNESLineSearchShellApplyFn *func; member 48 …SLineSearchShellSetApply(SNESLineSearch linesearch, SNESLineSearchShellApplyFn *func, PetscCtx ctx) in SNESLineSearchShellSetApply() argument 58 shell->func = func; in SNESLineSearchShellSetApply() 80 …neSearchShellGetApply(SNESLineSearch linesearch, SNESLineSearchShellApplyFn **func, PetscCtxRt ctx) in SNESLineSearchShellGetApply() argument 87 if (func) PetscAssertPointer(func, 2); in SNESLineSearchShellGetApply() 91 if (func) *func = shell->func; in SNESLineSearchShellGetApply() 103 …PetscCheck(shell->func, PetscObjectComm((PetscObject)linesearch), PETSC_ERR_USER, "SNESLineSearchS… in SNESLineSearchApply_Shell() 104 PetscCall((*shell->func)(linesearch, shell->ctx)); in SNESLineSearchApply_Shell()
|
| /petsc/src/snes/utils/ftn-custom/ |
| H A D | zdmdasnesf.c | 24 void (*func)(DMDALocalInfo *, PetscScalar *, Mat *, Mat *, void *, PetscErrorCode *), *ctx; in sourlj1d() local 29 …etscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lj1d, (PetscFortranCallbackFn **)&func, &ctx)); in sourlj1d() 30 PetscCallFortranVoidFunction((*func)(info, &in[info->dof * info->gxs], &A, &m, ctx, &ierr)); in sourlj1d() 36 void (*func)(DMDALocalInfo *, PetscScalar *, Mat *, Mat *, void *, PetscErrorCode *), *ctx; in sourlj2d() local 41 …etscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lj2d, (PetscFortranCallbackFn **)&func, &ctx)); in sourlj2d() 42 …PetscCallFortranVoidFunction((*func)(info, &in[info->gys][info->dof * info->gxs], &A, &m, ctx, &ie… in sourlj2d() 48 void (*func)(DMDALocalInfo *, PetscScalar *, Mat *, Mat *, void *, PetscErrorCode *), *ctx; in sourlj3d() local 53 …etscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lj2d, (PetscFortranCallbackFn **)&func, &ctx)); in sourlj3d() 54 …PetscCallFortranVoidFunction((*func)(info, &in[info->gzs][info->gys][info->dof * info->gxs], &A, &… in sourlj3d() 86 void (*func)(DMDALocalInfo *, PetscScalar *, PetscScalar *, void *, PetscErrorCode *), *ctx; in sourlf1d() local [all …]
|
| H A D | zdmlocalsnesf.c | 18 void (*func)(DM *, Vec *, Mat *, Mat *, void *, PetscErrorCode *), *ctx; in sourlj() local 23 …(PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lj, (PetscFortranCallbackFn **)&func, &ctx)); in sourlj() 24 PetscCallFortranVoidFunction((*func)(&dm, &X, &J, &P, ctx, &ierr)); in sourlj() 41 void (*func)(DM *, Vec *, Vec *, void *, PetscErrorCode *), *ctx; in sourlf() local 46 …(PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lf, (PetscFortranCallbackFn **)&func, &ctx)); in sourlf() 47 PetscCallFortranVoidFunction((*func)(&dm, &X, &F, ctx, &ierr)); in sourlf() 51 PETSC_EXTERN void dmsnessetfunctionlocal_(DM *dm, void (*func)(DM *, Vec *, Vec *, void *, PetscErr… in dmsnessetfunctionlocal_() 57 …ck((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.lf, (PetscFortranCallbackFn *)func, ctx); in dmsnessetfunctionlocal_()
|
| H A D | zdmsnesf.c | 18 void (*func)(SNES *, Vec *, Mat *, Mat *, void *, PetscErrorCode *), *ctx; in ourj() local 25 …ct)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.snesjacobian, (PetscFortranCallbackFn **)&func, &ctx)); in ourj() 26 PetscCallFortranVoidFunction((*func)(&snes, &X, &J, &P, ctx, &ierr)); in ourj() 43 void (*func)(SNES *, Vec *, Vec *, void *, PetscErrorCode *), *ctx; in ourf() local 50 …ct)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.snesfunction, (PetscFortranCallbackFn **)&func, &ctx)); in ourf() 51 PetscCallFortranVoidFunction((*func)(&snes, &X, &F, ctx, &ierr)); in ourf() 55 PETSC_EXTERN void dmsnessetfunction_(DM *dm, void (*func)(SNES *, Vec *, Vec *, void *, PetscErrorC… in dmsnessetfunction_() 61 …bject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.snesfunction, (PetscFortranCallbackFn *)func, ctx); in dmsnessetfunction_()
|
| /petsc/src/tao/constrained/impls/admm/ftn-custom/ |
| H A D | zadmmf.c | 59 PETSC_EXTERN void taoadmmsetmisfitobjectiveandgradientroutine_(Tao *tao, void (*func)(Tao *, Vec *,… in taoadmmsetmisfitobjectiveandgradientroutine_() 61 CHKFORTRANNULLFUNCTION(func); in taoadmmsetmisfitobjectiveandgradientroutine_() 62 …bject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.misfitobjgrad, (PetscFortranCallbackFn *)func, ctx); in taoadmmsetmisfitobjectiveandgradientroutine_() 66 PETSC_EXTERN void taoadmmsetmisfithessianroutine_(Tao *tao, Mat *H, Mat *Hpre, void (*func)(Tao *, … in taoadmmsetmisfithessianroutine_() 68 CHKFORTRANNULLFUNCTION(func); in taoadmmsetmisfithessianroutine_() 69 …scObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.misfithess, (PetscFortranCallbackFn *)func, ctx); in taoadmmsetmisfithessianroutine_() 73 PETSC_EXTERN void taoadmmsetmisfitconstraintjacobian_(Tao *tao, Mat *J, Mat *Jpre, void (*func)(Tao… in taoadmmsetmisfitconstraintjacobian_() 75 CHKFORTRANNULLFUNCTION(func); in taoadmmsetmisfitconstraintjacobian_() 76 …ject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.misfitjacobian, (PetscFortranCallbackFn *)func, ctx); in taoadmmsetmisfitconstraintjacobian_() 80 PETSC_EXTERN void taoadmmsetregularizerobjectiveandgradientroutine_(Tao *tao, void (*func)(Tao *, V… in taoadmmsetregularizerobjectiveandgradientroutine_() [all …]
|
| /petsc/src/snes/interface/ftn-custom/ |
| H A D | zsnesf.c | 95 PETSC_EXTERN void snesnewtontrsetprecheck_(SNES *snes, void (*func)(SNES, Vec, Vec, PetscBool *, vo… in snesnewtontrsetprecheck_() 97 …cObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trprecheck, (PetscFortranCallbackFn *)func, ctx); in snesnewtontrsetprecheck_() 106 PETSC_EXTERN void snesnewtontrdcsetprecheck_(SNES *snes, void (*func)(SNES, Vec, Vec, PetscBool *, … in snesnewtontrdcsetprecheck_() 108 …cObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trprecheck, (PetscFortranCallbackFn *)func, ctx); in snesnewtontrdcsetprecheck_() 126 PETSC_EXTERN void snesnewtontrsetpostcheck_(SNES *snes, void (*func)(SNES, Vec, Vec, Vec, PetscBool… in snesnewtontrsetpostcheck_() 128 …Object)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trpostcheck, (PetscFortranCallbackFn *)func, ctx); in snesnewtontrsetpostcheck_() 137 PETSC_EXTERN void snesnewtontrdcsetpostcheck_(SNES *snes, void (*func)(SNES, Vec, Vec, Vec, PetscBo… in snesnewtontrdcsetpostcheck_() 139 …Object)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trpostcheck, (PetscFortranCallbackFn *)func, ctx); in snesnewtontrdcsetpostcheck_() 203 PETSC_EXTERN void snessetjacobian_(SNES *snes, Mat *A, Mat *B, void (*func)(SNES *, Vec *, Mat *, M… in snessetjacobian_() 205 CHKFORTRANNULLFUNCTION(func); in snessetjacobian_() [all …]
|
| /petsc/src/ksp/ksp/interface/ |
| H A D | dmksp.c | 207 PetscErrorCode DMKSPSetComputeOperators(DM dm, KSPComputeOperatorsFn *func, PetscCtx ctx) in DMKSPSetComputeOperators() argument 214 if (func) kdm->ops->computeoperators = func; in DMKSPSetComputeOperators() 235 PetscErrorCode DMKSPGetComputeOperators(DM dm, KSPComputeOperatorsFn **func, PetscCtx ctx) in DMKSPGetComputeOperators() argument 242 if (func) *func = kdm->ops->computeoperators; in DMKSPGetComputeOperators() 269 PetscErrorCode DMKSPSetComputeRHS(DM dm, KSPComputeRHSFn *func, PetscCtx ctx) in DMKSPSetComputeRHS() argument 276 if (func) kdm->ops->computerhs = func; in DMKSPSetComputeRHS() 299 PetscErrorCode DMKSPSetComputeInitialGuess(DM dm, KSPComputeInitialGuessFn *func, PetscCtx ctx) in DMKSPSetComputeInitialGuess() argument 306 if (func) kdm->ops->computeinitialguess = func; in DMKSPSetComputeInitialGuess() 327 PetscErrorCode DMKSPGetComputeRHS(DM dm, KSPComputeRHSFn **func, PetscCtx ctx) in DMKSPGetComputeRHS() argument 334 if (func) *func = kdm->ops->computerhs; in DMKSPGetComputeRHS() [all …]
|
| /petsc/src/tao/linesearch/interface/ftn-custom/ |
| H A D | ztaolinesearchf.c | 46 PETSC_EXTERN void taolinesearchsetobjectiveroutine_(TaoLineSearch *ls, void (*func)(TaoLineSearch *… in taolinesearchsetobjectiveroutine_() 49 if (!func) { in taolinesearchsetobjectiveroutine_() 52 ((PetscObject)*ls)->fortran_func_pointers[OBJ] = (PetscFortranCallbackFn *)func; in taolinesearchsetobjectiveroutine_() 57 PETSC_EXTERN void taolinesearchsetgradientroutine_(TaoLineSearch *ls, void (*func)(TaoLineSearch *,… in taolinesearchsetgradientroutine_() 60 if (!func) { in taolinesearchsetgradientroutine_() 63 ((PetscObject)*ls)->fortran_func_pointers[GRAD] = (PetscFortranCallbackFn *)func; in taolinesearchsetgradientroutine_() 68 PETSC_EXTERN void taolinesearchsetobjectiveandgradientroutine_(TaoLineSearch *ls, void (*func)(TaoL… in taolinesearchsetobjectiveandgradientroutine_() 71 if (!func) { in taolinesearchsetobjectiveandgradientroutine_() 74 ((PetscObject)*ls)->fortran_func_pointers[OBJGRAD] = (PetscFortranCallbackFn *)func; in taolinesearchsetobjectiveandgradientroutine_() 79 PETSC_EXTERN void taolinesearchsetobjectiveandgtsroutine_(TaoLineSearch *ls, void (*func)(TaoLineSe… in taolinesearchsetobjectiveandgtsroutine_() [all …]
|
| /petsc/src/snes/impls/shell/ftn-custom/ |
| H A D | zsnesshellf.c | 12 void (*func)(SNES *, Vec *, PetscErrorCode *); in oursnesshellsolve() local 13 PetscCall(PetscObjectQueryFunction((PetscObject)snes, "SNESShellSolve_C", &func)); in oursnesshellsolve() 14 …PetscCheck(func, PetscObjectComm((PetscObject)snes), PETSC_ERR_USER, "SNESShellSetSolve() must be … in oursnesshellsolve() 15 PetscCallFortranVoidFunction(func(&snes, &x, &ierr)); in oursnesshellsolve() 19 PETSC_EXTERN void snesshellsetsolve_(SNES *snes, void (*func)(SNES *, Vec *, PetscErrorCode *), Pet… in snesshellsetsolve_() 21 …err = PetscObjectComposeFunction((PetscObject)*snes, "SNESShellSolve_C", (PetscErrorCodeFn *)func); in snesshellsetsolve_()
|
| /petsc/lib/petsc/bin/maint/ |
| H A D | PetscStaticFunctionCandidates.py | 72 for func in function_calling_dict.keys(): 73 if len(function_calling_dict[func]) < 2: 74 static_functions_for_file[function_calling_dict[func].pop()].append(func); 87 for func in static_functions_for_file[filename]: 88 print(" " + func);
|
| /petsc/src/tao/interface/ |
| H A D | taosolver_bounds.c | 56 PetscErrorCode TaoSetVariableBoundsRoutine(Tao tao, PetscErrorCode (*func)(Tao tao, Vec xl, Vec xu,… in TaoSetVariableBoundsRoutine() 61 tao->ops->computebounds = func; in TaoSetVariableBoundsRoutine() 62 tao->bounded = func ? PETSC_TRUE : PETSC_FALSE; in TaoSetVariableBoundsRoutine() 230 PetscErrorCode TaoSetConstraintsRoutine(Tao tao, Vec c, PetscErrorCode (*func)(Tao tao, Vec x, Vec … in TaoSetConstraintsRoutine() 237 tao->constrained = func ? PETSC_TRUE : PETSC_FALSE; in TaoSetConstraintsRoutine() 240 tao->ops->computeconstraints = func; in TaoSetConstraintsRoutine() 329 PetscErrorCode TaoSetEqualityConstraintsRoutine(Tao tao, Vec ce, PetscErrorCode (*func)(Tao tao, Ve… in TaoSetEqualityConstraintsRoutine() 336 tao->eq_constrained = func ? PETSC_TRUE : PETSC_FALSE; in TaoSetEqualityConstraintsRoutine() 339 tao->ops->computeequalityconstraints = func; in TaoSetEqualityConstraintsRoutine() 366 PetscErrorCode TaoGetEqualityConstraintsRoutine(Tao tao, Vec *ci, PetscErrorCode (**func)(Tao tao, … in TaoGetEqualityConstraintsRoutine() [all …]
|
| H A D | taosolver_hj.c | 27 PetscErrorCode TaoSetHessian(Tao tao, Mat H, Mat Hpre, PetscErrorCode (*func)(Tao tao, Vec x, Mat H… in TaoSetHessian() 40 if (func) tao->ops->computehessian = func; in TaoSetHessian() 79 PetscErrorCode TaoGetHessian(Tao tao, Mat *H, Mat *Hpre, PetscErrorCode (**func)(Tao tao, Vec x, Ma… in TaoGetHessian() 86 if (func) *func = tao->ops->computehessian; in TaoGetHessian() 449 PetscErrorCode TaoSetJacobianRoutine(Tao tao, Mat J, Mat Jpre, PetscErrorCode (*func)(Tao tao, Vec … in TaoSetJacobianRoutine() 462 if (func) tao->ops->computejacobian = func; in TaoSetJacobianRoutine() 501 PetscErrorCode TaoSetJacobianResidualRoutine(Tao tao, Mat J, Mat Jpre, PetscErrorCode (*func)(Tao t… in TaoSetJacobianResidualRoutine() 514 if (func) tao->ops->computeresidualjacobian = func; in TaoSetJacobianResidualRoutine() 556 PetscErrorCode TaoSetJacobianStateRoutine(Tao tao, Mat J, Mat Jpre, Mat Jinv, PetscErrorCode (*func… in TaoSetJacobianStateRoutine() 573 if (func) tao->ops->computejacobianstate = func; in TaoSetJacobianStateRoutine() [all …]
|
| H A D | taosolver_fg.c | 279 PetscErrorCode TaoSetObjective(Tao tao, PetscErrorCode (*func)(Tao tao, Vec x, PetscReal *f, PetscC… in TaoSetObjective() 284 if (func) tao->ops->computeobjective = func; in TaoSetObjective() 310 PetscErrorCode TaoGetObjective(Tao tao, PetscErrorCode (**func)(Tao tao, Vec x, PetscReal *f, Petsc… in TaoGetObjective() 314 if (func) *func = tao->ops->computeobjective; in TaoGetObjective() 341 PetscErrorCode TaoSetResidualRoutine(Tao tao, Vec res, PetscErrorCode (*func)(Tao tao, Vec x, Vec r… in TaoSetResidualRoutine() 350 tao->ops->computeresidual = func; in TaoSetResidualRoutine() 467 PetscErrorCode TaoSetGradient(Tao tao, Vec g, PetscErrorCode (*func)(Tao tao, Vec x, Vec g, PetscCt… in TaoSetGradient() 478 if (func) tao->ops->computegradient = func; in TaoSetGradient() 506 PetscErrorCode TaoGetGradient(Tao tao, Vec *g, PetscErrorCode (**func)(Tao tao, Vec x, Vec g, Petsc… in TaoGetGradient() 511 if (func) *func = tao->ops->computegradient; in TaoGetGradient() [all …]
|
| /petsc/lib/petsc/bin/maint/petsclinter/petsclinter/classes/ |
| H A D | _linter.py | 212 for func, scope in function_list: 213 combo: list[str] = [func.displayname] 215 combo.extend(map(Cursor.get_raw_name_from_cursor, func.get_arguments())) 222 seen[combo_tup] = (func, scope) 225 start = func.extent.start 227 tu = func.translation_unit 235 func, Diagnostic(Diagnostic.Kind.ERROR, dup_diag, message, start, patch=patch) 424 def _check_possible_static_function(self, func: Cursor) -> None: 458 if func.kind != clx.CursorKind.FUNCTION_DECL or func.storage_class == clx.StorageClass.STATIC: 462 if cursor_is_public(func): [all …]
|
| /petsc/src/tao/leastsquares/impls/brgn/ftn-custom/ |
| H A D | zbrgnf.c | 27 PETSC_EXTERN void taobrgnsetregularizerobjectiveandgradientroutine_(Tao *tao, void (*func)(Tao *, V… in taobrgnsetregularizerobjectiveandgradientroutine_() 29 CHKFORTRANNULLFUNCTION(func); in taobrgnsetregularizerobjectiveandgradientroutine_() 30 …PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.objgrad, (PetscFortranCallbackFn *)func, ctx); in taobrgnsetregularizerobjectiveandgradientroutine_() 34 PETSC_EXTERN void taobrgnsetregularizerhessianroutine_(Tao *tao, Mat *H, void (*func)(Tao *, Vec *,… in taobrgnsetregularizerhessianroutine_() 36 CHKFORTRANNULLFUNCTION(func); in taobrgnsetregularizerhessianroutine_() 37 …k((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.hess, (PetscFortranCallbackFn *)func, ctx); in taobrgnsetregularizerhessianroutine_()
|
| /petsc/include/ |
| H A D | petscviewersaws.h | 13 #define PetscCallSAWs(func, args) \ argument 16 PetscStackPushExternal(#func); \ 17 _ierr = func args; \ 19 PetscCheck(!_ierr, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in %s() %d", #func, _ierr); \
|
| /petsc/src/snes/utils/ |
| H A D | dmlocalsnes.c | 206 PetscErrorCode DMSNESSetObjectiveLocal(DM dm, PetscErrorCode (*func)(DM, Vec, PetscReal *, void *),… in DMSNESSetObjectiveLocal() 216 dmlocalsnes->objectivelocal = func; in DMSNESSetObjectiveLocal() 245 PetscErrorCode DMSNESSetFunctionLocal(DM dm, PetscErrorCode (*func)(DM dm, Vec x, Vec f, PetscCtx c… in DMSNESSetFunctionLocal() 255 dmlocalsnes->residuallocal = func; in DMSNESSetFunctionLocal() 284 PetscErrorCode DMSNESSetBoundaryLocal(DM dm, PetscErrorCode (*func)(DM dm, Vec X, PetscCtx ctx), Pe… in DMSNESSetBoundaryLocal() 294 dmlocalsnes->boundarylocal = func; in DMSNESSetBoundaryLocal() 320 PetscErrorCode DMSNESSetJacobianLocal(DM dm, PetscErrorCode (*func)(DM dm, Vec X, Mat J, Mat Jp, Pe… in DMSNESSetJacobianLocal() 330 dmlocalsnes->jacobianlocal = func; in DMSNESSetJacobianLocal() 353 PetscErrorCode DMSNESGetObjectiveLocal(DM dm, PetscErrorCode (**func)(DM, Vec, PetscReal *, void *)… in DMSNESGetObjectiveLocal() 362 if (func) *func = dmlocalsnes->objectivelocal; in DMSNESGetObjectiveLocal() [all …]
|
| /petsc/src/ts/utils/ |
| H A D | dmts.c | 374 PetscErrorCode DMTSSetIFunction(DM dm, TSIFunctionFn *func, PetscCtx ctx) in DMTSSetIFunction() argument 381 if (func) tsdm->ops->ifunction = func; in DMTSSetIFunction() 448 PetscErrorCode DMTSGetIFunction(DM dm, TSIFunctionFn **func, PetscCtxRt ctx) in DMTSGetIFunction() argument 455 if (func) *func = tsdm->ops->ifunction; in DMTSGetIFunction() 703 PetscErrorCode DMTSSetRHSFunction(DM dm, TSRHSFunctionFn *func, PetscCtx ctx) in DMTSSetRHSFunction() argument 710 if (func) tsdm->ops->rhsfunction = func; in DMTSSetRHSFunction() 852 PetscErrorCode DMTSGetSolutionFunction(DM dm, TSSolutionFn **func, PetscCtxRt ctx) in DMTSGetSolutionFunction() argument 859 if (func) *func = tsdm->ops->solution; in DMTSGetSolutionFunction() 883 PetscErrorCode DMTSSetSolutionFunction(DM dm, TSSolutionFn *func, PetscCtx ctx) in DMTSSetSolutionFunction() argument 890 if (func) tsdm->ops->solution = func; in DMTSSetSolutionFunction() [all …]
|
| H A D | dmlocalts.c | 217 PetscErrorCode DMTSSetBoundaryLocal(DM dm, PetscErrorCode (*func)(DM, PetscReal, Vec, Vec, void *),… in DMTSSetBoundaryLocal() 227 dmlocalts->boundarylocal = func; in DMTSSetBoundaryLocal() 250 PetscErrorCode DMTSGetIFunctionLocal(DM dm, PetscErrorCode (**func)(DM, PetscReal, Vec, Vec, Vec, v… in DMTSGetIFunctionLocal() 259 if (func) { in DMTSGetIFunctionLocal() 260 PetscAssertPointer(func, 2); in DMTSGetIFunctionLocal() 261 *func = dmlocalts->ifunctionlocal; in DMTSGetIFunctionLocal() 286 PetscErrorCode DMTSSetIFunctionLocal(DM dm, PetscErrorCode (*func)(DM, PetscReal, Vec, Vec, Vec, vo… in DMTSSetIFunctionLocal() 296 dmlocalts->ifunctionlocal = func; in DMTSSetIFunctionLocal() 322 PetscErrorCode DMTSGetIJacobianLocal(DM dm, PetscErrorCode (**func)(DM, PetscReal, Vec, Vec, PetscR… in DMTSGetIJacobianLocal() 331 if (func) { in DMTSGetIJacobianLocal() [all …]
|
| /petsc/src/ksp/ksp/interface/ftn-custom/ |
| H A D | zdmkspf.c | 49 PETSC_EXTERN void dmkspsetcomputerhs_(DM *dm, void (*func)(KSP *, Vec *, void *, PetscErrorCode *),… in dmkspsetcomputerhs_() 54 kdm->fortran_func_pointers[0] = (PetscFortranCallbackFn *)func; in dmkspsetcomputerhs_() 59 PETSC_EXTERN void dmkspsetcomputeinitialguess_(DM *dm, void (*func)(KSP *, Vec *, void *, PetscErro… in dmkspsetcomputeinitialguess_() 64 kdm->fortran_func_pointers[2] = (PetscFortranCallbackFn *)func; in dmkspsetcomputeinitialguess_() 70 PETSC_EXTERN void dmkspsetcomputeoperators_(DM *dm, void (*func)(KSP *, Vec *, void *, PetscErrorCo… in dmkspsetcomputeoperators_() 75 kdm->fortran_func_pointers[1] = (PetscFortranCallbackFn *)func; in dmkspsetcomputeoperators_()
|