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