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(0); 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 30 CHKFORTRANNULLINTEGER(ctx); 31 *ierr = SNESLineSearchShellGetUserFunc(*linesearch,NULL,ctx); 32 } 33