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