Home
last modified time | relevance | path

Searched refs:fortran_func_pointers (Results 1 – 18 of 18) sorted by relevance

/petsc/src/mat/impls/shell/ftn-custom/
H A Dzshellf.c48 …d (*)(Mat *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MA… in ourmult()
54 …at *, Vec *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MA… in ourmultadd()
60 …d (*)(Mat *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MA… in ourmulttranspose()
66 …d (*)(Mat *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MA… in ourmulthermitiantranspose()
72 …at *, Vec *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MA… in ourmulttransposeadd()
78 …at *, Vec *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MA… in ourmulthermitiantransposeadd()
86 …cInt *, PetscInt *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MA… in oursor()
95 …(Mat *, MatReuse *, Mat *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MA… in ourtranspose()
101 …((*(void (*)(Mat *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MA… in ourgetdiagonal()
111 …d (*)(Mat *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MA… in ourdiagonalscale()
[all …]
/petsc/src/ksp/pc/impls/shell/ftn-custom/
H A Dzshellpcf.c34 …oid (*)(PC *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)pc)->fortran_func_pointers[0]))(&pc, … in ourshellapply()
40 …oid (*)(PC *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)pc)->fortran_func_pointers[9]))(&pc, … in ourshellapplysymmetricleft()
46 …oid (*)(PC *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)pc)->fortran_func_pointers[10]))(&pc,… in ourshellapplysymmetricright()
54 …PC *, void *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)pc)->fortran_func_pointers[0]))(&pc, … in ourshellapplyctx()
60 …ide *, Vec *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)pc)->fortran_func_pointers[1]))(&pc, … in ourshellapplyba()
66 …ichardsonConvergedReason *, PetscErrorCode *))(((PetscObject)pc)->fortran_func_pointers[2]))(&pc, … in ourapplyrichardson()
72 …d (*)(void *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)pc)->fortran_func_pointers[3]))(&pc, … in ourshellapplytranspose()
78 …dFunction((*(void (*)(PC *, PetscErrorCode *))(((PetscObject)pc)->fortran_func_pointers[4]))(&pc, … in ourshellsetup()
86 …n((*(void (*)(PC *, void *, PetscErrorCode *))(((PetscObject)pc)->fortran_func_pointers[4]))(&pc, … in ourshellsetupctx()
92 …unction((*(void (*)(void *, PetscErrorCode *))(((PetscObject)pc)->fortran_func_pointers[5]))(&pc, … in ourshelldestroy()
[all …]
/petsc/src/tao/linesearch/interface/ftn-custom/
H A Dztaolinesearchf.c24 …Vec *, PetscReal *, void *, PetscErrorCode *))(((PetscObject)ls)->fortran_func_pointers[OBJ]))(&ls… in ourtaolinesearchobjectiveroutine()
30 …ch *, Vec *, Vec *, void *, PetscErrorCode *))(((PetscObject)ls)->fortran_func_pointers[GRAD]))(&l… in ourtaolinesearchgradientroutine()
36 …PetscReal *, Vec *, void *, PetscErrorCode *))(((PetscObject)ls)->fortran_func_pointers[OBJGRAD]))… in ourtaolinesearchobjectiveandgradientroutine()
42 …eal *, PetscReal *, void *, PetscErrorCode *))(((PetscObject)ls)->fortran_func_pointers[OBJGTS]))(… in ourtaolinesearchobjectiveandgtsroutine()
52 ((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/ksp/ksp/interface/ftn-custom/
H A Dzdmkspf.c20 …Function((*(void (*)(KSP *, Vec *, void *, PetscErrorCode *))kdm->fortran_func_pointers[0])(&ksp, … in ourkspcomputerhs()
30 …Function((*(void (*)(KSP *, Vec *, void *, PetscErrorCode *))kdm->fortran_func_pointers[2])(&ksp, … in ourkspcomputeinitialguess()
40 …n((*(void (*)(KSP *, Mat *, Mat *, void *, PetscErrorCode *))kdm->fortran_func_pointers[1])(&ksp, … in ourkspcomputeoperators()
54 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/mat/impls/mffd/ftn-custom/
H A Dzmffdf.c15 …rCode *))(((PetscObject)mat)->fortran_func_pointers[0]))((void *)(PETSC_UINTPTR_T)((PetscObject)ma… in ourmatmffdfunction()
22 ((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/snes/linesearch/interface/ftn-custom/
H A Dzlinesearchf.c21 …etscBool *, void *, PetscErrorCode *))(((PetscObject)linesearch)->fortran_func_pointers[1]))(&line… in oursneslinesearchprecheck()
28 …etscBool *, void *, PetscErrorCode *))(((PetscObject)linesearch)->fortran_func_pointers[2]))(&line… in oursneslinesearchpostcheck()
35 ((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/interface/
H A Ddmksp.c77 nkdm->fortran_func_pointers[0] = kdm->fortran_func_pointers[0]; in DMKSPCopy()
78 nkdm->fortran_func_pointers[1] = kdm->fortran_func_pointers[1]; in DMKSPCopy()
79 nkdm->fortran_func_pointers[2] = kdm->fortran_func_pointers[2]; in DMKSPCopy()
/petsc/src/sys/classes/draw/utils/ftn-custom/
H A Dzzoomf.c16 …(*(void (*)(PetscDraw *, void *, PetscErrorCode *))(((PetscObject)draw)->fortran_func_pointers[0])… in ourdrawzoom()
23 ((PetscObject)*draw)->fortran_func_pointers[0] = (PetscFortranCallbackFn *)f; in petscdrawzoom_()
/petsc/src/snes/linesearch/impls/shell/ftn-custom/
H A Dzlinesearchshellf.c15 …neSearch *, void *, PetscErrorCode *))(((PetscObject)linesearch)->fortran_func_pointers[0]))(&line… in oursneslinesearchshellfunction()
22 ((PetscObject)*linesearch)->fortran_func_pointers[0] = (PetscFortranCallbackFn *)func; in sneslinesearchshellsetapply_()
/petsc/src/ksp/pc/impls/mg/ftn-custom/
H A Dzmgfuncf.c16 …at *, Vec *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[0]))(&mat,… in ourresidualfunction()
29 ((PetscObject)*mat)->fortran_func_pointers[0] = (PetscFortranCallbackFn *)residual; in pcmgsetresidual_()
/petsc/src/mat/interface/ftn-custom/
H A Dzmatrixf.c23 …NullSpace *, Vec *, void *, PetscErrorCode *))(((PetscObject)sp)->fortran_func_pointers[0]))(&sp, … in ournullfunction()
30 ((PetscObject)*sp)->fortran_func_pointers[0] = (PetscFortranCallbackFn *)rem; in matnullspacesetfunction_()
/petsc/src/sys/objects/
H A Dinherit.c141 PetscCall(PetscArrayzero(obj->fortran_func_pointers, obj->num_fortran_func_pointers)); in PetscHeaderDestroy_Private()
153 PetscCall(PetscFree(obj->fortran_func_pointers)); in PetscHeaderDestroy_Private()
229 PetscCall(PetscFree(dest->fortran_func_pointers)); in PetscObjectCopyFortranFunctionPointers()
230 …(src->num_fortran_func_pointers * sizeof(PetscFortranCallbackFn *), &dest->fortran_func_pointers)); in PetscObjectCopyFortranFunctionPointers()
231 …PetscCall(PetscArraycpy(dest->fortran_func_pointers, src->fortran_func_pointers, src->num_fortran_… in PetscObjectCopyFortranFunctionPointers()
/petsc/include/petsc/private/
H A Dftnimpl.h356 if (!((PetscObject)(obj))->fortran_func_pointers) { \
357 …etscCalloc((N) * sizeof(PetscFortranCallbackFn *), &((PetscObject)(obj))->fortran_func_pointers); \
H A Dkspimpl.h336 …void (*fortran_func_pointers[3])(void); /* Store our own function pointers so they are associated … member
H A Dpetscimpl.h139 …PetscFortranCallbackFn **fortran_func_pointers; /* used by Fortran interface functions to stas… member
/petsc/doc/developers/
H A Dcallbacks.md78 …void (*fortran_func_pointers[3])(void); /* Store our own function pointers so they are associated …
H A Dobjects.md112 void **fortran_func_pointers;
162 void **fortran_func_pointers;
/petsc/src/ts/interface/
H A Dts.c5780 if (((PetscObject)tsin)->fortran_func_pointers) { in TSClone()
5782 …ll(PetscMalloc((10) * sizeof(PetscFortranCallbackFn *), &((PetscObject)t)->fortran_func_pointers)); in TSClone()
5783 …or (i = 0; i < 10; i++) ((PetscObject)t)->fortran_func_pointers[i] = ((PetscObject)tsin)->fortran_… in TSClone()