1: #include "private/fortranimpl.h"
2: #include "petscpc.h"
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define pcpythonsettype_ PCPYTHONSETTYPE
6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
7: #define pcpythonsettype_ pcpythonsettype
8: #endif
13: void PETSC_STDCALL pcpythonsettype_(PC *pc, CHAR name PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len) )
14: {
15: char *t;
16: FIXCHAR(name,len,t);
17: *PCPythonSetType(*pc,t);
18: FREECHAR(name,t);
19: }