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