Home
last modified time | relevance | path

Searched refs:PetscFortranCallbackFn (Results 1 – 25 of 35) sorted by relevance

12

/petsc/src/mat/impls/shell/ftn-custom/
H A Dzshellf.c215 ((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_MULT] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
219 … ((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_MULT_ADD] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
223 …tscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_MULT_TRANSPOSE] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
227 ((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_MULT_HT] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
231 …bject)*mat)->fortran_func_pointers[FORTRAN_MATOP_MULT_TRANSPOSE_ADD] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
235 …((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_MULT_HT_ADD] = (PetscFortranCallbackFn *)… in matshellsetoperation_()
239 ((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_SOR] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
243 … ((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_TRANSPOSE] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
247 …PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_GET_DIAGONAL] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
251 …tscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_DIAGONAL_SCALE] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
[all …]
/petsc/src/ksp/ksp/interface/ftn-custom/
H A Dzitfuncf.c96 if ((PetscFortranCallbackFn *)monitor == (PetscFortranCallbackFn *)kspmonitorresidual_) { in kspmonitorset_()
98 } else if ((PetscFortranCallbackFn *)monitor == (PetscFortranCallbackFn *)kspmonitorsolution_) { in kspmonitorset_()
100 …} else if ((PetscFortranCallbackFn *)monitor == (PetscFortranCallbackFn *)kspmonitortrueresidual_)… in kspmonitorset_()
102 …} else if ((PetscFortranCallbackFn *)monitor == (PetscFortranCallbackFn *)kspmonitorsingularvalue_… in kspmonitorset_()
104 …} else if ((PetscFortranCallbackFn *)monitor == (PetscFortranCallbackFn *)kspgmresmonitorkrylov_) { in kspmonitorset_()
107 …((PetscObject)*ksp, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.monitor, (PetscFortranCallbackFn *)monitor,… in kspmonitorset_()
109 …Object)*ksp, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.monitordestroy, (PetscFortranCallbackFn *)monitord… in kspmonitorset_()
127 …ack((PetscObject)*ksp, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.test, (PetscFortranCallbackFn *)converge… in kspsetconvergencetest_()
129 …tscObject)*ksp, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.testdestroy, (PetscFortranCallbackFn *)destroy,… in kspsetconvergencetest_()
H A Dzdmkspf.c54 kdm->fortran_func_pointers[0] = (PetscFortranCallbackFn *)func; in dmkspsetcomputerhs_()
64 kdm->fortran_func_pointers[2] = (PetscFortranCallbackFn *)func; in dmkspsetcomputeinitialguess_()
75 kdm->fortran_func_pointers[1] = (PetscFortranCallbackFn *)func; in dmkspsetcomputeoperators_()
/petsc/src/snes/utils/ftn-custom/
H A Dzdmdasnesf.c29 …ack((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lj1d, (PetscFortranCallbackFn **)&func, … in sourlj1d()
41 …ack((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lj2d, (PetscFortranCallbackFn **)&func, … in sourlj2d()
53 …ack((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lj2d, (PetscFortranCallbackFn **)&func, … in sourlj3d()
68 …ck((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.lj2d, (PetscFortranCallbackFn *)jac, ctx… in dmdasnessetjacobianlocal_()
72 …ck((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.lj3d, (PetscFortranCallbackFn *)jac, ctx… in dmdasnessetjacobianlocal_()
76 …ck((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.lj1d, (PetscFortranCallbackFn *)jac, ctx… in dmdasnessetjacobianlocal_()
91 …ack((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lf1d, (PetscFortranCallbackFn **)&func, … in sourlf1d()
103 …ack((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lf2d, (PetscFortranCallbackFn **)&func, … in sourlf2d()
115 …ack((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lf3d, (PetscFortranCallbackFn **)&func, … in sourlf3d()
130 …ck((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.lf2d, (PetscFortranCallbackFn *)func, ct… in dmdasnessetfunctionlocal_()
[all …]
H A Dzdmlocalsnesf.c23 …lback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lj, (PetscFortranCallbackFn **)&func, … in sourlj()
34 …back((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.lj, (PetscFortranCallbackFn *)jac, ctx… in dmsnessetjacobianlocal_()
46 …lback((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.lf, (PetscFortranCallbackFn **)&func, … in sourlf()
57 …back((PetscObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.lf, (PetscFortranCallbackFn *)func, ct… in dmsnessetfunctionlocal_()
H A Dzdmsnesf.c25 …scObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.snesjacobian, (PetscFortranCallbackFn **)&func, … in ourj()
36 …cObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.snesjacobian, (PetscFortranCallbackFn *)jac, ctx… in dmsnessetjacobian_()
50 …scObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, _cb.snesfunction, (PetscFortranCallbackFn **)&func, … in ourf()
61 …cObject)sdm, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.snesfunction, (PetscFortranCallbackFn *)func, ct… in dmsnessetfunction_()
/petsc/src/ksp/pc/impls/shell/ftn-custom/
H A Dzshellpcf.c117 ((PetscObject)*pc)->fortran_func_pointers[0] = (PetscFortranCallbackFn *)apply; in pcshellsetapply_()
125 ((PetscObject)*pc)->fortran_func_pointers[9] = (PetscFortranCallbackFn *)apply; in pcshellsetapplysymmetricleft_()
133 ((PetscObject)*pc)->fortran_func_pointers[10] = (PetscFortranCallbackFn *)apply; in pcshellsetapplysymmetricright_()
141 ((PetscObject)*pc)->fortran_func_pointers[0] = (PetscFortranCallbackFn *)apply; in pcshellsetapplyctx_()
149 ((PetscObject)*pc)->fortran_func_pointers[1] = (PetscFortranCallbackFn *)apply; in pcshellsetapplyba_()
157 ((PetscObject)*pc)->fortran_func_pointers[2] = (PetscFortranCallbackFn *)apply; in pcshellsetapplyrichardson_()
164 ((PetscObject)*pc)->fortran_func_pointers[3] = (PetscFortranCallbackFn *)applytranspose; in pcshellsetapplytranspose_()
172 ((PetscObject)*pc)->fortran_func_pointers[4] = (PetscFortranCallbackFn *)setup; in pcshellsetsetupctx_()
180 ((PetscObject)*pc)->fortran_func_pointers[4] = (PetscFortranCallbackFn *)setup; in pcshellsetsetup_()
188 ((PetscObject)*pc)->fortran_func_pointers[5] = (PetscFortranCallbackFn *)setup; in pcshellsetdestroy_()
[all …]
/petsc/src/snes/interface/ftn-custom/
H A Dzsnesf.c97 …tscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trprecheck, (PetscFortranCallbackFn *)func, ct… in snesnewtontrsetprecheck_()
108 …tscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trprecheck, (PetscFortranCallbackFn *)func, ct… in snesnewtontrdcsetprecheck_()
128 …scObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trpostcheck, (PetscFortranCallbackFn *)func, ct… in snesnewtontrsetpostcheck_()
139 …scObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trpostcheck, (PetscFortranCallbackFn *)func, ct… in snesnewtontrdcsetpostcheck_()
217 …PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.jacobian, (PetscFortranCallbackFn *)func, ct… in snessetjacobian_()
261 …PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.function, (PetscFortranCallbackFn *)func, ct… in snessetpicard_()
266 …(PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.jacobian, (PetscFortranCallbackFn *)J, ctx); in snessetpicard_()
277 …PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.function, (PetscFortranCallbackFn *)func, ct… in snessetfunction_()
293 …etscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.objective, (PetscFortranCallbackFn *)func, ct… in snessetobjective_()
309 …ack((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.ngs, (PetscFortranCallbackFn *)func, ct… in snessetngs_()
[all …]
/petsc/src/tao/interface/ftn-custom/
H A Dztaosolverf.c169 …back((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.obj, (PetscFortranCallbackFn *)func, ct… in taosetobjective_()
176 …ack((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.grad, (PetscFortranCallbackFn *)func, ct… in taosetgradient_()
183 …((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.objgrad, (PetscFortranCallbackFn *)func, ct… in taosetobjectiveandgradient_()
190 …ack((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.hess, (PetscFortranCallbackFn *)func, ct… in taosethessian_()
197 …ck((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.lsres, (PetscFortranCallbackFn *)func, ct… in taosetresidualroutine_()
204 …ck((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.lsjac, (PetscFortranCallbackFn *)func, ct… in taosetjacobianresidualroutine_()
211 …back((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.jac, (PetscFortranCallbackFn *)func, ct… in taosetjacobianroutine_()
218 …(PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.jacstate, (PetscFortranCallbackFn *)func, ct… in taosetjacobianstateroutine_()
225 …(PetscObject)tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.jacdesign, (PetscFortranCallbackFn *)func, ct… in taosetjacobiandesignroutine_()
232 …k((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.bounds, (PetscFortranCallbackFn *)func, ct… in taosetvariableboundsroutine_()
[all …]
/petsc/src/ts/interface/ftn-custom/
H A Dztsf.c159 …((PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.transform, (PetscFortranCallbackFn *)f, ctx); in tsmonitorlgsettransform_()
166 …k((PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.prestep, (PetscFortranCallbackFn *)f, NULL); in tssetprestep_()
173 …((PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.poststep, (PetscFortranCallbackFn *)f, NULL); in tssetpoststep_()
187 …(PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.rhsfunction, (PetscFortranCallbackFn *)f, fP); in tssetrhsfunction_()
209 …k((PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.ifunction, (PetscFortranCallbackFn *)f, fP); in tssetifunction_()
228 …(PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.rhsjacobian, (PetscFortranCallbackFn *)f, fP); in tssetrhsjacobian_()
241 …k((PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.ijacobian, (PetscFortranCallbackFn *)f, fP); in tssetijacobian_()
255 …((PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.ijacobianp, (PetscFortranCallbackFn *)f, fP); in tssetijacobianp_()
267 …PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.rhsjacobianp, (PetscFortranCallbackFn *)f, fP); in tssetrhsjacobianp_()
284 if ((PetscFortranCallbackFn *)func == (PetscFortranCallbackFn *)tsmonitordefault_) { in tsmonitorset_()
[all …]
/petsc/src/tao/constrained/impls/admm/ftn-custom/
H A Dzadmmf.c62 …cObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.misfitobjgrad, (PetscFortranCallbackFn *)func, ct… in taoadmmsetmisfitobjectiveandgradientroutine_()
69 …etscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.misfithess, (PetscFortranCallbackFn *)func, ct… in taoadmmsetmisfithessianroutine_()
76 …Object)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.misfitjacobian, (PetscFortranCallbackFn *)func, ct… in taoadmmsetmisfitconstraintjacobian_()
83 …etscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.regobjgrad, (PetscFortranCallbackFn *)func, ct… in taoadmmsetregularizerobjectiveandgradientroutine_()
90 …((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.reghess, (PetscFortranCallbackFn *)func, ct… in taoadmmsetregularizerhessianroutine_()
97 …Object)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.misfitjacobian, (PetscFortranCallbackFn *)func, ct… in taoadmmsetregularizerconstraintjacobian_()
/petsc/src/ksp/pc/impls/hpddm/ftn-custom/
H A Dzpchpddmf.c12 if ((PetscFortranCallbackFn *)setup != (PetscFortranCallbackFn *)PETSC_NULL_FUNCTION_Fortran) { in pchpddmsetauxiliarymat_()
/petsc/src/tao/linesearch/interface/ftn-custom/
H A Dztaolinesearchf.c52 ((PetscObject)*ls)->fortran_func_pointers[OBJ] = (PetscFortranCallbackFn *)func; in taolinesearchsetobjectiveroutine_()
63 ((PetscObject)*ls)->fortran_func_pointers[GRAD] = (PetscFortranCallbackFn *)func; in taolinesearchsetgradientroutine_()
74 ((PetscObject)*ls)->fortran_func_pointers[OBJGRAD] = (PetscFortranCallbackFn *)func; in taolinesearchsetobjectiveandgradientroutine_()
85 ((PetscObject)*ls)->fortran_func_pointers[OBJGTS] = (PetscFortranCallbackFn *)func; in taolinesearchsetobjectiveandgtsroutine_()
/petsc/src/mat/impls/mffd/ftn-custom/
H A Dzmffdf.c22 ((PetscObject)*mat)->fortran_func_pointers[0] = (PetscFortranCallbackFn *)func; in matmffdsetfunction_()
23 ((PetscObject)*mat)->fortran_func_pointers[1] = (PetscFortranCallbackFn *)(PETSC_UINTPTR_T)ctx; in matmffdsetfunction_()
/petsc/src/dm/dt/interface/ftn-custom/
H A Dzdsf.c18 …((PetscObject)ctx, PETSC_FORTRAN_CALLBACK_CLASS, riemannsolver, (PetscFortranCallbackFn **)&func, … in ourriemannsolver()
24 …etscObject)*prob, PETSC_FORTRAN_CALLBACK_CLASS, &riemannsolver, (PetscFortranCallbackFn *)rs, NULL… in petscdssetriemannsolver_()
/petsc/src/tao/leastsquares/impls/brgn/ftn-custom/
H A Dzbrgnf.c30 …((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.objgrad, (PetscFortranCallbackFn *)func, ct… in taobrgnsetregularizerobjectiveandgradientroutine_()
37 …ack((PetscObject)*tao, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.hess, (PetscFortranCallbackFn *)func, ct… in taobrgnsetregularizerhessianroutine_()
/petsc/src/snes/linesearch/interface/ftn-custom/
H A Dzlinesearchf.c35 ((PetscObject)*linesearch)->fortran_func_pointers[1] = (PetscFortranCallbackFn *)func; in sneslinesearchsetprecheck_()
43 ((PetscObject)*linesearch)->fortran_func_pointers[2] = (PetscFortranCallbackFn *)func; in sneslinesearchsetpostcheck_()
/petsc/src/ksp/ksp/impls/gmres/fgmres/ftn-custom/
H A Dzmodpcff.c41 …(PetscObject)*ksp, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.modify, (PetscFortranCallbackFn *)fcn, ctx… in kspflexiblesetmodifypc_()
43 …(PetscObject)*ksp, PETSC_FORTRAN_CALLBACK_SUBTYPE, &_cb.destroy, (PetscFortranCallbackFn *)d, ctx); in kspflexiblesetmodifypc_()
/petsc/src/sys/objects/ftn-custom/
H A Dzinheritf.c41 …((PetscObject)*obj, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.handler, (PetscFortranCallbackFn *)handle, … in petscobjectaddoptionshandler_()
47 …((PetscObject)*obj, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.destroy, (PetscFortranCallbackFn *)destroy,… in petscobjectaddoptionshandler_()
H A Dzstartf.c15 …ll_double, void *fnull_real, void *fnull_bool, void *fnull_enum, PetscFortranCallbackFn *fnull_fun… in petscsetfortranbasepointers_()
/petsc/src/mat/matfd/ftn-custom/
H A Dzfdmatrixf.c58 (*fd)->ftn_func_pointer = (PetscFortranCallbackFn *)f; in matfdcoloringsetfunctionts_()
66 (*fd)->ftn_func_pointer = (PetscFortranCallbackFn *)f; in matfdcoloringsetfunction_()
/petsc/src/sys/classes/draw/utils/ftn-custom/
H A Dzzoomf.c23 ((PetscObject)*draw)->fortran_func_pointers[0] = (PetscFortranCallbackFn *)f; in petscdrawzoom_()
/petsc/src/snes/linesearch/impls/shell/ftn-custom/
H A Dzlinesearchshellf.c22 ((PetscObject)*linesearch)->fortran_func_pointers[0] = (PetscFortranCallbackFn *)func; in sneslinesearchshellsetapply_()
/petsc/include/petsc/private/
H A Dftnimpl.h25 PETSC_EXTERN PetscFortranCallbackFn *PETSC_NULL_FUNCTION_Fortran;
85 #define FORTRANNULLFUNCTION(a) (((PetscFortranCallbackFn *)(PETSC_UINTPTR_T)a) == PETSC_NULL_…
357 …*ierr = PetscCalloc((N) * sizeof(PetscFortranCallbackFn *), &((PetscObject)(obj))->fortran_func_po…
376 …cObjectGetFortranCallback((PetscObject)(obj), (cbclass), (cid), (PetscFortranCallbackFn **)&func, …
/petsc/src/ksp/ksp/impls/gmres/ftn-custom/
H A Dzgmres2f.c33 …k((PetscObject)*ksp, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.orthog, (PetscFortranCallbackFn *)orthog, … in kspgmressetorthogonalization_()

12