1: #include "private/fortranimpl.h"
2: #include "petscts.h"
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define tspythonsettype_ TSPYTHONSETTYPE
6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
7: #define tspythonsettype_ tspythonsettype
8: #endif
13: void PETSC_STDCALL tspythonsettype_(TS *ts, CHAR name PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len) )
14: {
15: char *t;
16: FIXCHAR(name,len,t);
17: *TSPythonSetType(*ts,t);
18: FREECHAR(name,t);
19: }