Actual source code: zpythonf.c

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

  4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
  5: #define petscpythoninitialize_ PETSCPYTHONINITIALIZE
  6: #define petscpythonfinalize_   PETSCPYTHONFINALIZE
  7: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
  8: #define petscpythoninitialize_ petscpythoninitialize
  9: #define petscpythonfinalize_   petscpythonfinalize
 10: #endif



 15: void PETSC_STDCALL  petscpythoninitialize_(CHAR n1 PETSC_MIXED_LEN(l1),CHAR n2 PETSC_MIXED_LEN(l2), PetscErrorCode *ierr PETSC_END_LEN(l1) PETSC_END_LEN(l2) )
 16: {
 17:   char *t1,*t2;
 18:   FIXCHAR(n1,l1,t1);
 19:   FIXCHAR(n2,l2,t2);
 20:   *PetscPythonInitialize(t1,t2);if (*ierr) return;
 21:   FREECHAR(n1,t1);
 22:   FREECHAR(n2,t2);
 23: }

 25: void PETSC_STDCALL  petscpythonfinalize_(PetscErrorCode *ierr)
 26: {
 27:   *PetscPythonFinalize();
 28: }