1 #include <petsc-private/fortranimpl.h> 2 #include <petscsnes.h> 3 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define sneslinesearchsettype_ SNESLINESEARCHSETTYPE 6 #define sneslinesearchsetprecheck_ SNESLINESEARCHSETPRECHECK 7 #define sneslinesearchgetprecheck_ SNESLINESEARCHGETPRECHECK 8 #define sneslinesearchsetpostcheck_ SNESLINESEARCHSETPOSTCHECK 9 #define sneslinesearchgetpostcheck_ SNESLINESEARCHGETPOSTCHECK 10 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 11 #define sneslinesearchsettype_ sneslinesearchsettype 12 #define sneslinesearchsetprecheck_ sneslinesearchsetprecheck 13 #define sneslinesearchgetprecheck_ sneslinesearchgetprecheck 14 #define sneslinesearchsetpostcheck_ sneslinesearchsetpostcheck 15 #define sneslinesearchgetpostcheck_ sneslinesearchgetpostcheck 16 17 #endif 18 19 /* fortranpointers go: shell, precheck, postcheck */ 20 21 static PetscErrorCode oursneslinesearchprecheck(SNESLineSearch linesearch, Vec X, Vec Y, PetscBool * changed, void * ctx) 22 { 23 PetscErrorCode ierr = 0; 24 (*(void (PETSC_STDCALL *)(SNESLineSearch*,Vec*, Vec*, PetscBool*,void*,PetscErrorCode*))(((PetscObject)linesearch)->fortran_func_pointers[1]))(&linesearch,&X,&Y,changed,ctx,&ierr);CHKERRQ(ierr); 25 return 0; 26 } 27 28 static PetscErrorCode oursneslinesearchpostcheck(SNESLineSearch linesearch, Vec X, Vec Y, Vec W, PetscBool * changed_Y, PetscBool * changed_W, void * ctx) 29 { 30 PetscErrorCode ierr = 0; 31 (*(void (PETSC_STDCALL *)(SNESLineSearch*,Vec*,Vec*,Vec*,PetscBool*,PetscBool*,void*,PetscErrorCode*)) 32 (((PetscObject)linesearch)->fortran_func_pointers[2]))(&linesearch,&X,&Y,&W,changed_Y,changed_W,ctx,&ierr);CHKERRQ(ierr); 33 return 0; 34 } 35 36 EXTERN_C_BEGIN 37 38 void PETSC_STDCALL sneslinesearchsettype_(SNESLineSearch *linesearch,CHAR type PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len)) 39 { 40 char *t; 41 42 FIXCHAR(type,len,t); 43 *ierr = SNESLineSearchSetType(*linesearch,t); 44 FREECHAR(type,t); 45 } 46 47 48 void PETSC_STDCALL sneslinesearchsetprecheck_(SNESLineSearch *linesearch, 49 void (PETSC_STDCALL *func)(SNESLineSearch*,Vec*,Vec*,PetscBool*,PetscErrorCode*), 50 void *ctx, 51 PetscErrorCode *ierr) 52 { 53 PetscObjectAllocateFortranPointers(*linesearch,3); 54 ((PetscObject)*linesearch)->fortran_func_pointers[1] = (PetscVoidFunction)func; 55 *ierr = SNESLineSearchSetPreCheck(*linesearch,oursneslinesearchprecheck,ctx); 56 } 57 58 void PETSC_STDCALL sneslinesearchsetpostcheck_(SNESLineSearch *linesearch, 59 void (PETSC_STDCALL *func)(SNESLineSearch*,Vec*,Vec*,Vec*,PetscBool*,PetscBool*,PetscErrorCode*,void*), 60 void *ctx, 61 PetscErrorCode *ierr) 62 { 63 PetscObjectAllocateFortranPointers(*linesearch,3); 64 ((PetscObject)*linesearch)->fortran_func_pointers[2] = (PetscVoidFunction)func; 65 *ierr = SNESLineSearchSetPostCheck(*linesearch,oursneslinesearchpostcheck,ctx); 66 } 67 68 69 EXTERN_C_END 70