| /petsc/src/dm/impls/shell/ftn-custom/ |
| H A D | zdmshellf.c | 38 } _cb; variable
42 …PetscObjectUseFortranCallbackSubType(dm, _cb.creatematrix, (DM *, Mat *, PetscErrorCode *), (&dm, … in ourcreatematrix()
47 …PetscObjectUseFortranCallbackSubType(dm, _cb.createglobalvector, (DM *, Vec *, PetscErrorCode *), … in ourcreateglobalvector()
52 …PetscObjectUseFortranCallbackSubType(dm, _cb.createlocalvector, (DM *, Vec *, PetscErrorCode *), (… in ourcreatelocalvector()
57 …PetscObjectUseFortranCallbackSubType(dm, _cb.globaltolocalbegin, (DM *, Vec *, InsertMode *, Vec *… in ourglobaltolocalbegin()
62 …PetscObjectUseFortranCallbackSubType(dm, _cb.globaltolocalend, (DM *, Vec *, InsertMode *, Vec *, … in ourglobaltolocalend()
67 …PetscObjectUseFortranCallbackSubType(dm, _cb.localtoglobalbegin, (DM *, Vec *, InsertMode *, Vec *… in ourlocaltoglobalbegin()
72 …PetscObjectUseFortranCallbackSubType(dm, _cb.localtoglobalend, (DM *, Vec *, InsertMode *, Vec *, … in ourlocaltoglobalend()
77 …PetscObjectUseFortranCallbackSubType(dm, _cb.localtolocalbegin, (DM *, Vec *, InsertMode *, Vec *,… in ourlocaltolocalbegin()
82 …PetscObjectUseFortranCallbackSubType(dm, _cb.localtolocalend, (DM *, Vec *, InsertMode *, Vec *, P… in ourlocaltolocalend()
[all …]
|
| /petsc/src/snes/interface/ftn-custom/ |
| H A D | zsnesf.c | 84 } _cb; variable
90 …PetscCall(PetscObjectGetFortranCallback((PetscObject)snes, PETSC_FORTRAN_CALLBACK_CLASS, _cb.trpre… in ourtrprecheckfunction()
92 …PetscObjectUseFortranCallback(snes, _cb.trprecheck, (SNES *, Vec *, Vec *, PetscBool *, void *, Pe… in ourtrprecheckfunction()
97 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trpre… in snesnewtontrsetprecheck_()
100 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trpre… in snesnewtontrsetprecheck_()
108 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trpre… in snesnewtontrdcsetprecheck_()
111 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trpre… in snesnewtontrdcsetprecheck_()
121 …PetscCall(PetscObjectGetFortranCallback((PetscObject)snes, PETSC_FORTRAN_CALLBACK_CLASS, _cb.trpos… in ourtrpostcheckfunction()
123 …PetscObjectUseFortranCallback(snes, _cb.trpostcheck, (SNES *, Vec *, Vec *, Vec *, PetscBool *, Pe… in ourtrpostcheckfunction()
128 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trpos… in snesnewtontrsetpostcheck_()
[all …]
|
| /petsc/src/tao/interface/ftn-custom/ |
| H A D | ztaosolverf.c | 70 } _cb; variable
74 …PetscObjectUseFortranCallback(tao, _cb.obj, (Tao *, Vec *, PetscReal *, void *, PetscErrorCode *),… in ourtaoobjectiveroutine()
79 …PetscObjectUseFortranCallback(tao, _cb.grad, (Tao *, Vec *, Vec *, void *, PetscErrorCode *), (&ta… in ourtaogradientroutine()
84 …PetscObjectUseFortranCallback(tao, _cb.objgrad, (Tao *, Vec *, PetscReal *, Vec *, void *, PetscEr… in ourtaoobjectiveandgradientroutine()
89 …PetscObjectUseFortranCallback(tao, _cb.hess, (Tao *, Vec *, Mat *, Mat *, void *, PetscErrorCode *… in ourtaohessianroutine()
94 …PetscObjectUseFortranCallback(tao, _cb.jac, (Tao *, Vec *, Mat *, Mat *, void *, PetscErrorCode *)… in ourtaojacobianroutine()
99 …PetscObjectUseFortranCallback(tao, _cb.jacstate, (Tao *, Vec *, Mat *, Mat *, Mat *, void *, Petsc… in ourtaojacobianstateroutine()
104 …PetscObjectUseFortranCallback(tao, _cb.jacdesign, (Tao *, Vec *, Mat *, void *, PetscErrorCode *),… in ourtaojacobiandesignroutine()
109 …PetscObjectUseFortranCallback(tao, _cb.bounds, (Tao *, Vec *, Vec *, void *, PetscErrorCode *), (&… in ourtaoboundsroutine()
113 …PetscObjectUseFortranCallback(tao, _cb.lsres, (Tao *, Vec *, Vec *, void *, PetscErrorCode *), (&t… in ourtaoresidualroutine()
[all …]
|
| /petsc/src/sys/objects/ftn-custom/ |
| H A D | zinheritf.c | 19 } _cb; variable
25 …PetscCall(PetscObjectGetFortranCallback((PetscObject)obj, PETSC_FORTRAN_CALLBACK_CLASS, _cb.handle… in ourhandler()
27 …PetscObjectUseFortranCallback(obj, _cb.handler, (PetscObject *, PetscOptionItems *, PetscCtx, Pets… in ourhandler()
34 …PetscCall(PetscObjectGetFortranCallback((PetscObject)obj, PETSC_FORTRAN_CALLBACK_CLASS, _cb.destro… in ourdestroy()
36 …PetscObjectUseFortranCallback(obj, _cb.destroy, (PetscObject *, PetscCtx, PetscErrorCode *PETSC_F9… in ourdestroy()
41 …*ierr = PetscObjectSetFortranCallback((PetscObject)*obj, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.handle… in petscobjectaddoptionshandler_()
44 …*ierr = PetscObjectSetFortranCallback((PetscObject)*obj, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.handle… in petscobjectaddoptionshandler_()
47 …*ierr = PetscObjectSetFortranCallback((PetscObject)*obj, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.destro… in petscobjectaddoptionshandler_()
50 …*ierr = PetscObjectSetFortranCallback((PetscObject)*obj, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.destro… in petscobjectaddoptionshandler_()
|
| /petsc/src/ts/interface/ftn-custom/ |
| H A D | ztsf.c | 66 } _cb; variable
72 …PetscCall(PetscObjectGetFortranCallback((PetscObject)ts, PETSC_FORTRAN_CALLBACK_CLASS, _cb.functio… in ourprestep()
74 …PetscObjectUseFortranCallback(ts, _cb.prestep, (TS *, PetscErrorCode * /* PETSC_F90_2PTR_PROTO_NOV… in ourprestep()
80 …PetscCall(PetscObjectGetFortranCallback((PetscObject)ts, PETSC_FORTRAN_CALLBACK_CLASS, _cb.functio… in ourpoststep()
82 …PetscObjectUseFortranCallback(ts, _cb.poststep, (TS *, PetscErrorCode * /* PETSC_F90_2PTR_PROTO_NO… in ourpoststep()
88 …PetscCall(PetscObjectGetFortranCallback((PetscObject)ts, PETSC_FORTRAN_CALLBACK_CLASS, _cb.functio… in ourrhsfunction()
90 …PetscObjectUseFortranCallback(ts, _cb.rhsfunction, (TS *, PetscReal *, Vec *, Vec *, void *, Petsc… in ourrhsfunction()
96 …PetscCall(PetscObjectGetFortranCallback((PetscObject)ts, PETSC_FORTRAN_CALLBACK_CLASS, _cb.functio… in ourifunction()
98 …PetscObjectUseFortranCallback(ts, _cb.ifunction, (TS *, PetscReal *, Vec *, Vec *, Vec *, void *, … in ourifunction()
104 …PetscCall(PetscObjectGetFortranCallback((PetscObject)ts, PETSC_FORTRAN_CALLBACK_CLASS, _cb.functio… in ourrhsjacobian()
[all …]
|
| /petsc/src/tao/constrained/impls/admm/ftn-custom/ |
| H A D | zadmmf.c | 27 } _cb; variable
31 …PetscObjectUseFortranCallback(tao, _cb.misfitobjgrad, (Tao *, Vec *, PetscReal *, Vec *, void *, P… in ourtaoadmmmisfitobjgradroutine()
36 …PetscObjectUseFortranCallback(tao, _cb.misfithess, (Tao *, Vec *, Mat *, Mat *, void *, PetscError… in ourtaoadmmmisfithessroutine()
41 …PetscObjectUseFortranCallback(tao, _cb.misfitjacobian, (Tao *, Vec *, Mat *, Mat *, void *, PetscE… in ourtaoadmmmisfitconstraintjacobian()
46 …PetscObjectUseFortranCallback(tao, _cb.regobjgrad, (Tao *, Vec *, PetscReal *, Vec *, void *, Pets… in ourtaoadmmregularizerobjgradroutine()
51 …PetscObjectUseFortranCallback(tao, _cb.reghess, (Tao *, Vec *, Mat *, Mat *, void *, PetscErrorCod… in ourtaoadmmregularizerhessroutine()
56 …PetscObjectUseFortranCallback(tao, _cb.regjacobian, (Tao *, Vec *, Mat *, Mat *, void *, PetscErro… in ourtaoadmmregularizerconstraintjacobian()
62 …*ierr = PetscObjectSetFortranCallback((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.misfit… in taoadmmsetmisfitobjectiveandgradientroutine_()
69 …*ierr = PetscObjectSetFortranCallback((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.misfit… in taoadmmsetmisfithessianroutine_()
76 …*ierr = PetscObjectSetFortranCallback((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.misfit… in taoadmmsetmisfitconstraintjacobian_()
[all …]
|
| /petsc/src/snes/utils/ftn-custom/ |
| H A D | zdmdasnesf.c | 19 } _cb; variable
29 …PetscCall(PetscObjectGetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lj1d… in sourlj1d()
41 …PetscCall(PetscObjectGetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lj2d… in sourlj2d()
53 …PetscCall(PetscObjectGetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lj2d… in sourlj3d()
68 …*ierr = PetscObjectSetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.lj2d,… in dmdasnessetjacobianlocal_()
72 …*ierr = PetscObjectSetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.lj3d,… in dmdasnessetjacobianlocal_()
76 …*ierr = PetscObjectSetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.lj1d,… in dmdasnessetjacobianlocal_()
91 …PetscCall(PetscObjectGetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lf1d… in sourlf1d()
103 …PetscCall(PetscObjectGetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lf2d… in sourlf2d()
115 …PetscCall(PetscObjectGetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lf3d… in sourlf3d()
[all …]
|
| H A D | zdmlocalsnesf.c | 14 } _cb; variable
23 …PetscCall(PetscObjectGetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lj, … in sourlj()
34 …*ierr = PetscObjectSetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.lj, (… in dmsnessetjacobianlocal_()
46 …PetscCall(PetscObjectGetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lf, … in sourlf()
57 …*ierr = PetscObjectSetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.lf, (… in dmsnessetfunctionlocal_()
|
| H A D | zdmsnesf.c | 14 } _cb; variable
25 …PetscCall(PetscObjectGetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.snes… in ourj()
36 …*ierr = PetscObjectSetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.snesj… in dmsnessetjacobian_()
50 …PetscCall(PetscObjectGetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.snes… in ourf()
61 …*ierr = PetscObjectSetFortranCallback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.snesf… in dmsnessetfunction_()
|
| /petsc/src/tao/leastsquares/impls/brgn/ftn-custom/ |
| H A D | zbrgnf.c | 15 } _cb; variable
19 …PetscObjectUseFortranCallback(tao, _cb.objgrad, (Tao *, Vec *, PetscReal *, Vec *, void *, PetscEr… in ourtaobrgnregobjgradroutine()
24 …PetscObjectUseFortranCallback(tao, _cb.hess, (Tao *, Vec *, Mat *, void *, PetscErrorCode *), (&ta… in ourtaobrgnreghessroutine()
30 …*ierr = PetscObjectSetFortranCallback((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.objgra… in taobrgnsetregularizerobjectiveandgradientroutine_()
37 …*ierr = PetscObjectSetFortranCallback((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.hess, … in taobrgnsetregularizerhessianroutine_()
|
| /petsc/src/ksp/ksp/impls/gmres/fgmres/ftn-custom/ |
| H A D | zmodpcff.c | 17 } _cb; variable
21 …PetscObjectUseFortranCallbackSubType(ksp, _cb.modify, (KSP *, PetscInt *, PetscInt *, PetscReal *,… in ourmodify()
27 PetscObjectUseFortranCallbackSubType(ksp, _cb.destroy, (void *, PetscErrorCode *), (_ctx, &ierr)); in ourmoddestroy()
41 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ksp, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.modi… in kspflexiblesetmodifypc_()
43 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ksp, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.dest… in kspflexiblesetmodifypc_()
|
| /petsc/src/ksp/ksp/interface/ftn-custom/ |
| H A D | zitfuncf.c | 64 } _cb; variable
68 …PetscObjectUseFortranCallback(ksp, _cb.monitor, (KSP *, PetscInt *, PetscReal *, void *, PetscErro… in ourmonitor()
74 PetscObjectUseFortranCallback(ksp, _cb.monitordestroy, (void *, PetscErrorCode *), (_ctx, &ierr)); in ourdestroy()
80 …PetscObjectUseFortranCallback(ksp, _cb.test, (KSP *, PetscInt *, PetscReal *, KSPConvergedReason *… in ourtest()
86 PetscObjectUseFortranCallback(ksp, _cb.testdestroy, (void **, PetscErrorCode *), (&_ctx, &ierr)); in ourtestdestroy()
107 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ksp, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.monito… in kspmonitorset_()
109 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ksp, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.monito… in kspmonitorset_()
127 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ksp, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.test, … in kspsetconvergencetest_()
129 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ksp, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.testde… in kspsetconvergencetest_()
|
| /petsc/src/ksp/ksp/impls/gmres/ftn-custom/ |
| H A D | zgmres2f.c | 16 } _cb; variable
23 …PetscObjectUseFortranCallback(ksp, _cb.orthog, (KSP *, PetscInt *, PetscErrorCode *), (&ksp, &n, &… in ourorthog()
33 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ksp, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.orthog… in kspgmressetorthogonalization_()
|