Actual source code: zpythontf.c

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