1 #include <petsc/private/fortranimpl.h> 2 #include <petscsnes.h> 3 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define sneslinesearchshellsetuserfunc_ SNESLINESEARCHSHELLSETUSERFUNC 6 #define sneslinesearchshellgetuserfunc_ SNESLINESEARCHSHELLGETUSERFUNC 7 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8 #define sneslinesearchshellsetuserfunc_ sneslinesearchshellsetuserfunc 9 #define sneslinesearchshellgetuserfunc_ sneslinesearchshellgetuserfunc 10 #endif 11 12 static PetscErrorCode oursneslinesearchshellfunction(SNESLineSearch linesearch, void *ctx) 13 { 14 PetscFunctionBegin; 15 PetscCallFortranVoidFunction((*(void (*)(SNESLineSearch *, void *, PetscErrorCode *))(((PetscObject)linesearch)->fortran_func_pointers[0]))(&linesearch, ctx, &ierr)); 16 PetscFunctionReturn(PETSC_SUCCESS); 17 } 18 19 PETSC_EXTERN void sneslinesearchshellsetuserfunc_(SNESLineSearch *linesearch, void (*func)(SNESLineSearch *, void *, PetscErrorCode *), void *ctx, PetscErrorCode *ierr) 20 { 21 PetscObjectAllocateFortranPointers(*linesearch, 3); 22 ((PetscObject)*linesearch)->fortran_func_pointers[0] = (PetscVoidFunction)func; 23 24 *ierr = SNESLineSearchShellSetUserFunc(*linesearch, oursneslinesearchshellfunction, ctx); 25 } 26 27 PETSC_EXTERN void sneslinesearchshellgetuserfunc_(SNESLineSearch *linesearch, void *func, void **ctx, PetscErrorCode *ierr) 28 { 29 CHKFORTRANNULLINTEGER(ctx); 30 *ierr = SNESLineSearchShellGetUserFunc(*linesearch, NULL, ctx); 31 } 32