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