Actual source code: zpythonf.c
1: #include <petsc/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
11: PETSC_EXTERN void petscpythoninitialize_(char *n1, char *n2, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T l1, PETSC_FORTRAN_CHARLEN_T l2)
12: {
13: char *t1, *t2;
14: FIXCHAR(n1, l1, t1);
15: FIXCHAR(n2, l2, t2);
16: *ierr = PetscPythonInitialize(t1, t2);
17: if (*ierr) return;
18: FREECHAR(n1, t1);
19: FREECHAR(n2, t2);
20: }
22: PETSC_EXTERN void petscpythonfinalize_(PetscErrorCode *ierr)
23: {
24: *ierr = PetscPythonFinalize();
25: }