1 #include <private/fortranimpl.h> 2 #include <petscsnes.h> 3 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define petsclinesearchsettype_ PETSCLINESEARCHSETTYPE 6 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 7 #define petsclinesearchsettype_ petsclinesearchsettype 8 #endif 9 10 EXTERN_C_BEGIN 11 12 void PETSC_STDCALL petsclinesearchsettype_(PetscLineSearch *linesearch,CHAR type PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len)) 13 { 14 char *t; 15 16 FIXCHAR(type,len,t); 17 *ierr = PetscLineSearchSetType(*linesearch,t); 18 FREECHAR(type,t); 19 } 20 EXTERN_C_END 21