Actual source code: zpythonsf.c

  1: #include "private/fortranimpl.h"
  2: #include "petscsnes.h"

  4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
  5: #define snespythonsettype_            SNESPYTHONSETTYPE
  6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
  7: #define snespythonsettype_            snespythonsettype
  8: #endif



 13: void PETSC_STDCALL  snespythonsettype_(SNES *snes, CHAR name PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len) )
 14: {
 15:   char *t;
 16:   FIXCHAR(name,len,t);
 17:   *SNESPythonSetType(*snes,t);
 18:   FREECHAR(name,t);
 19: }