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