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: }