1: #include <petsc/private/fortranimpl.h> 2: #include <petscts.h> 3: #include <petsc/private/f90impl.h> 5: #if defined(PETSC_HAVE_FORTRAN_CAPS) 6: #define tsrksettype_ TSRKSETTYPE 7: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8: #define tsrksettype_ tsrksettype 9: #endif 11: PETSC_EXTERN void tsrksettype_(TS *ts, char *type, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len) 12: { 13: char *t; 15: FIXCHAR(type, len, t); 16: *ierr = TSRKSetType(*ts, t); 17: if (*ierr) return; 18: FREECHAR(type, t); 19: }