Actual source code: zpythonf.c

  1: #include "private/fortranimpl.h"

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



 14: 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) )
 15: {
 16:   char *t1,*t2;
 17:   FIXCHAR(n1,l1,t1);
 18:   FIXCHAR(n2,l2,t2);
 19:   *PetscPythonInitialize(t1,t2);if (*ierr) return;
 20:   FREECHAR(n1,t1);
 21:   FREECHAR(n2,t2);
 22: }

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