Actual source code: ztsadaptf.c
1: #include <petsc/private/fortranimpl.h>
2: #include <petscts.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define tsadaptsettype_ TSADAPTSETTYPE
6: #define tsadaptgettype_ TSADAPTGETTYPE
7: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
8: #define tsadaptsettype_ tsadaptsettype
9: #define tsadaptgettype_ tsadaptgettype
10: #endif
12: PETSC_EXTERN void tsadaptsettype_(TSAdapt *tsadapt, char *type, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
13: {
14: char *t;
16: FIXCHAR(type, len, t);
17: *ierr = TSAdaptSetType(*tsadapt, t);
18: if (*ierr) return;
19: FREECHAR(type, t);
20: }
22: PETSC_EXTERN void tsadaptgettype_(TSAdapt *adapt, char *type, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
23: {
24: const char *t;
26: *ierr = TSAdaptGetType(*adapt, &t);
27: *ierr = PetscStrncpy(type, t, len);
28: FIXRETURNCHAR(PETSC_TRUE, type, len);
29: }