| /petsc/src/tao/interface/ftn-custom/ |
| H A D | ztaosolverf.c | 74 …k(tao, _cb.obj, (Tao *, Vec *, PetscReal *, void *, PetscErrorCode *), (&tao, &x, f, _ctx, &ierr)); in ourtaoobjectiveroutine()
79 …lback(tao, _cb.grad, (Tao *, Vec *, Vec *, void *, PetscErrorCode *), (&tao, &x, &g, _ctx, &ierr)); in ourtaogradientroutine()
84 …rad, (Tao *, Vec *, PetscReal *, Vec *, void *, PetscErrorCode *), (&tao, &x, f, &g, _ctx, &ierr)); in ourtaoobjectiveandgradientroutine()
89 ….hess, (Tao *, Vec *, Mat *, Mat *, void *, PetscErrorCode *), (&tao, &x, &H, &Hpre, _ctx, &ierr)); in ourtaohessianroutine()
94 …b.jac, (Tao *, Vec *, Mat *, Mat *, void *, PetscErrorCode *), (&tao, &x, &H, &Hpre, _ctx, &ierr)); in ourtaojacobianroutine()
99 … Vec *, Mat *, Mat *, Mat *, void *, PetscErrorCode *), (&tao, &x, &H, &Hpre, &Hinv, _ctx, &ierr)); in ourtaojacobianstateroutine()
104 …(tao, _cb.jacdesign, (Tao *, Vec *, Mat *, void *, PetscErrorCode *), (&tao, &x, &H, _ctx, &ierr)); in ourtaojacobiandesignroutine()
109 …k(tao, _cb.bounds, (Tao *, Vec *, Vec *, void *, PetscErrorCode *), (&tao, &xl, &xu, _ctx, &ierr)); in ourtaoboundsroutine()
113 …back(tao, _cb.lsres, (Tao *, Vec *, Vec *, void *, PetscErrorCode *), (&tao, &x, &f, _ctx, &ierr)); in ourtaoresidualroutine()
118 …lsjac, (Tao *, Vec *, Mat *, Mat *, void *, PetscErrorCode *), (&tao, &x, &J, &Jpre, _ctx, &ierr)); in ourtaojacobianresidualroutine()
[all …]
|
| /petsc/src/tao/tutorials/ |
| H A D | ex4.c | 176 static PetscErrorCode ObjectiveMisfit(Tao tao, Vec x, PetscReal *J, void *_ctx) in ObjectiveMisfit() argument
178 UserCtx ctx = (UserCtx)_ctx; in ObjectiveMisfit()
191 static PetscErrorCode GradientMisfit(Tao tao, Vec x, Vec V, void *_ctx) in GradientMisfit() argument
193 UserCtx ctx = (UserCtx)_ctx; in GradientMisfit()
207 static PetscErrorCode HessianMisfit(Tao tao, Vec x, Mat H, Mat Hpre, void *_ctx) in HessianMisfit() argument
209 UserCtx ctx = (UserCtx)_ctx; in HessianMisfit()
219 static PetscErrorCode ObjectiveMisfitADMM(Tao tao, Vec x, PetscReal *J, void *_ctx) in ObjectiveMisfitADMM() argument
221 UserCtx ctx = (UserCtx)_ctx; in ObjectiveMisfitADMM()
231 PetscCall(ObjectiveMisfit(tao, x, &misfit, _ctx)); in ObjectiveMisfitADMM()
243 static PetscErrorCode GradientMisfitADMM(Tao tao, Vec x, Vec V, void *_ctx) in GradientMisfitADMM() argument
[all …]
|
| /petsc/src/dm/dt/interface/ftn-custom/ |
| H A D | zdsf.c | 17 void *_ctx; in ourriemannsolver() local
18 …Object)ctx, PETSC_FORTRAN_CALLBACK_CLASS, riemannsolver, (PetscFortranCallbackFn **)&func, &_ctx)); in ourriemannsolver()
19 if (func) (*func)(&dim, &Nf, x, n, uL, uR, &numConstants, constants, flux, _ctx); in ourriemannsolver()
|
| /petsc/src/tao/constrained/impls/admm/ftn-custom/ |
| H A D | zadmmf.c | 31 …rad, (Tao *, Vec *, PetscReal *, Vec *, void *, PetscErrorCode *), (&tao, &x, f, &g, _ctx, &ierr)); in ourtaoadmmmisfitobjgradroutine()
36 …thess, (Tao *, Vec *, Mat *, Mat *, void *, PetscErrorCode *), (&tao, &x, &H, &Hpre, _ctx, &ierr)); in ourtaoadmmmisfithessroutine()
41 …obian, (Tao *, Vec *, Mat *, Mat *, void *, PetscErrorCode *), (&tao, &x, &J, &Jpre, _ctx, &ierr)); in ourtaoadmmmisfitconstraintjacobian()
46 …rad, (Tao *, Vec *, PetscReal *, Vec *, void *, PetscErrorCode *), (&tao, &x, f, &g, _ctx, &ierr)); in ourtaoadmmregularizerobjgradroutine()
51 …ghess, (Tao *, Vec *, Mat *, Mat *, void *, PetscErrorCode *), (&tao, &x, &H, &Hpre, _ctx, &ierr)); in ourtaoadmmregularizerhessroutine()
56 …obian, (Tao *, Vec *, Mat *, Mat *, void *, PetscErrorCode *), (&tao, &x, &J, &Jpre, _ctx, &ierr)); in ourtaoadmmregularizerconstraintjacobian()
|
| /petsc/src/snes/interface/ftn-custom/ |
| H A D | zsnesf.c | 92 …, PetscErrorCode *PETSC_F90_2PTR_PROTO_NOVAR), (&snes, &x, &y, changed_y, _ctx, &ierr PETSC_F90_2P… in ourtrprecheckfunction()
123 …e *PETSC_F90_2PTR_PROTO_NOVAR), (&snes, &x, &y, &w, changed_y, changed_w, _ctx, &ierr PETSC_F90_2P… in ourtrpostcheckfunction()
154 …c *, void *, PetscErrorCode *PETSC_F90_2PTR_PROTO_NOVAR), (&snes, &x, &f, _ctx, &ierr PETSC_F90_2P… in oursnesfunction()
163 …al *, void *, PetscErrorCode *PETSC_F90_2PTR_PROTO_NOVAR), (&snes, &x, v, _ctx, &ierr PETSC_F90_2P… in oursnesobjective()
168 …, SNESConvergedReason *, void *, PetscErrorCode *), (&snes, &it, &a, &d, &c, reason, _ctx, &ierr)); in oursnestest()
173 PetscObjectUseFortranCallback(ctx, _cb.destroy, (void *, PetscErrorCode *), (_ctx, &ierr)); in ourdestroy()
178 …cobian, (SNES *, Vec *, Mat *, Mat *, void *, PetscErrorCode *), (&snes, &x, &m, &p, _ctx, &ierr)); in oursnesjacobian()
187 …ack(snes, _cb.ngs, (SNES *, Vec *, Vec *, void *, PetscErrorCode *), (&snes, &x, &b, _ctx, &ierr)); in oursnesngs()
191 …onitor, (SNES *, PetscInt *, PetscReal *, void *, PetscErrorCode *), (&snes, &i, &d, _ctx, &ierr)); in oursnesmonitor()
196 PetscObjectUseFortranCallback(snes, _cb.mondestroy, (void *, PetscErrorCode *), (_ctx, &ierr)); in ourmondestroy()
[all …]
|
| /petsc/src/ts/interface/ftn-custom/ |
| H A D | ztsf.c | 90 … *, PetscErrorCode * /* PETSC_F90_2PTR_PROTO_NOVAR */), (&ts, &d, &x, &f, _ctx, &ierr /* PETSC_F90… in ourrhsfunction()
98 …scErrorCode * /* PETSC_F90_2PTR_PROTO_NOVAR */), (&ts, &d, &x, &xdot, &f, _ctx, &ierr /* PETSC_F90… in ourifunction()
106 …PetscErrorCode * /* PETSC_F90_2PTR_PROTO_NOVAR */), (&ts, &d, &x, &m, &p, _ctx, &ierr /* PETSC_F90… in ourrhsjacobian()
114 …* /* PETSC_F90_2PTR_PROTO_NOVAR */), (&ts, &d, &x, &xdot, &shift, &m, &p, _ctx, &ierr /* PETSC_F90… in ourijacobian()
122 …ode * /* PETSC_F90_2PTR_PROTO_NOVAR */), (&ts, &d, &x, &xdot, &shift, &m, _ctx, &ierr /* PETSC_F90… in ourijacobianp()
130 … *, PetscErrorCode * /* PETSC_F90_2PTR_PROTO_NOVAR */), (&ts, &d, &x, &m, _ctx, &ierr /* PETSC_F90… in ourrhsjacobianp()
136 PetscObjectUseFortranCallback(ts, _cb.mondestroy, (void *, PetscErrorCode *), (_ctx, &ierr)); in ourmonitordestroy()
144 … (TS *, PetscInt *, PetscReal *, Vec *, void *, PetscErrorCode *), (&ts, &i, &d, &v, _ctx, &ierr)); in ourmonitor()
152 …allback((TS)ctx, _cb.transform, (void *, Vec *, Vec *, PetscErrorCode *), (_ctx, &x, xout, &ierr)); in ourtransform()
|
| /petsc/src/tao/leastsquares/impls/brgn/ftn-custom/ |
| H A D | zbrgnf.c | 19 …rad, (Tao *, Vec *, PetscReal *, Vec *, void *, PetscErrorCode *), (&tao, &x, f, &g, _ctx, &ierr)); in ourtaobrgnregobjgradroutine()
24 …lback(tao, _cb.hess, (Tao *, Vec *, Mat *, void *, PetscErrorCode *), (&tao, &x, &H, _ctx, &ierr)); in ourtaobrgnreghessroutine()
|
| /petsc/src/ksp/ksp/impls/gmres/fgmres/ftn-custom/ |
| H A D | zmodpcff.c | 21 … PetscInt *, PetscInt *, PetscReal *, void *, PetscErrorCode *), (&ksp, &i, &i2, &d, _ctx, &ierr)); in ourmodify()
27 PetscObjectUseFortranCallbackSubType(ksp, _cb.destroy, (void *, PetscErrorCode *), (_ctx, &ierr)); in ourmoddestroy()
|
| /petsc/src/sys/objects/ftn-custom/ |
| H A D | zinheritf.c | 27 … *, PetscCtx, PetscErrorCode *PETSC_F90_2PTR_PROTO_NOVAR), (&obj, &items, _ctx, &ierr PETSC_F90_2P… in ourhandler()
36 …scObject *, PetscCtx, PetscErrorCode *PETSC_F90_2PTR_PROTO_NOVAR), (&obj, _ctx, &ierr PETSC_F90_2P… in ourdestroy()
|
| /petsc/src/ksp/ksp/interface/ftn-custom/ |
| H A D | zitfuncf.c | 68 ….monitor, (KSP *, PetscInt *, PetscReal *, void *, PetscErrorCode *), (&ksp, &i, &d, _ctx, &ierr)); in ourmonitor()
74 PetscObjectUseFortranCallback(ksp, _cb.monitordestroy, (void *, PetscErrorCode *), (_ctx, &ierr)); in ourdestroy()
80 …PetscReal *, KSPConvergedReason *, void *, PetscErrorCode *), (&ksp, &i, &d, reason, _ctx, &ierr)); in ourtest()
86 PetscObjectUseFortranCallback(ksp, _cb.testdestroy, (void **, PetscErrorCode *), (&_ctx, &ierr)); in ourtestdestroy()
|
| /petsc/src/tao/unconstrained/impls/lmvm/tests/ |
| H A D | ex1.c | 12 static PetscErrorCode LSObjAndGrad(Tao tao, Vec x, PetscReal *obj, Vec g, void *_ctx) in LSObjAndGrad() argument
15 AppCtx *ctx = (AppCtx *)_ctx; in LSObjAndGrad()
|
| /petsc/src/dm/impls/swarm/ |
| H A D | swarmpic_sort.c | 26 static PetscErrorCode DMSwarmSortCreate(DMSwarmSort *_ctx) in DMSwarmSortCreate() argument
37 *_ctx = ctx; in DMSwarmSortCreate()
|
| /petsc/include/petsc/private/ |
| H A D | ftnimpl.h | 374 void(*func) types, *_ctx; \
376 …tFortranCallback((PetscObject)(obj), (cbclass), (cid), (PetscFortranCallbackFn **)&func, &_ctx)); \
|