Actual source code: zpythonpf.c

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