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