1b45d2f2cSJed Brown #include <petsc-private/fortranimpl.h> 2ea5d4fccSPeter Brune #include <petscsnes.h> 3ea5d4fccSPeter Brune 4ea5d4fccSPeter Brune #if defined(PETSC_HAVE_FORTRAN_CAPS) 5f1c6b773SPeter Brune #define sneslinesearchshellsetuserfunc_ SNESLINESEARCHSHELLSETUSERFUNC 6f1c6b773SPeter Brune #define sneslinesearchshellgetuserfunc_ SNESLINESEARCHSHELLGETUSERFUNC 7ea5d4fccSPeter Brune #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8f1c6b773SPeter Brune #define sneslinesearchshellsetuserfunc_ sneslinesearchshellsetuserfunc 9f1c6b773SPeter Brune #define sneslinesearchshellgetuserfunc_ sneslinesearchshellgetuserfunc 10ea5d4fccSPeter Brune #endif 11ea5d4fccSPeter Brune 12f1c6b773SPeter Brune static PetscErrorCode oursneslinesearchshellfunction(SNESLineSearch linesearch, void *ctx) 13ea5d4fccSPeter Brune { 14ea5d4fccSPeter Brune PetscErrorCode ierr = 0; 15f1c6b773SPeter Brune (*(void (PETSC_STDCALL*)(SNESLineSearch*,void*,PetscErrorCode*))(((PetscObject)linesearch)->fortran_func_pointers[0]))(&linesearch,ctx,&ierr);CHKERRQ(ierr); 16ea5d4fccSPeter Brune return 0; 17ea5d4fccSPeter Brune } 18ea5d4fccSPeter Brune 19ea5d4fccSPeter Brune EXTERN_C_BEGIN 20ea5d4fccSPeter Brune 21*f5af7f23SKarl Rupp void PETSC_STDCALL sneslinesearchshellsetuserfunc_(SNESLineSearch *linesearch,void (PETSC_STDCALL*func)(SNESLineSearch*,void*,PetscErrorCode*),void *ctx,PetscErrorCode *ierr) 22ea5d4fccSPeter Brune { 23c87759e9SPeter Brune PetscObjectAllocateFortranPointers(*linesearch,3); 24ea5d4fccSPeter Brune ((PetscObject)*linesearch)->fortran_func_pointers[0] = (PetscVoidFunction)func; 25*f5af7f23SKarl Rupp 26f1c6b773SPeter Brune *ierr = SNESLineSearchShellSetUserFunc(*linesearch,oursneslinesearchshellfunction,ctx); 27ea5d4fccSPeter Brune } 28ea5d4fccSPeter Brune 29f1c6b773SPeter Brune void PETSC_STDCALL sneslinesearchshellgetuserfunc_(SNESLineSearch *linesearch, void * func, void **ctx,PetscErrorCode *ierr) 30ea5d4fccSPeter Brune { 31ea5d4fccSPeter Brune 32ea5d4fccSPeter Brune CHKFORTRANNULLINTEGER(ctx); 33f1c6b773SPeter Brune *ierr = SNESLineSearchShellGetUserFunc(*linesearch,PETSC_NULL,ctx); 34ea5d4fccSPeter Brune } 35ea5d4fccSPeter Brune EXTERN_C_END 36