Actual source code: zversionf.c
1: #include <petscsys.h>
2: #include <petsc/private/fortranimpl.h>
4: #ifdef PETSC_HAVE_FORTRAN_CAPS
5: #define petscgetversion_ PETSCGETVERSION
6: #define petscgetversionnumber_ PETSCGETVERSIONNUMBER
7: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
8: #define petscgetversion_ petscgetversion
9: #define petscgetversionnumber_ petscgetversionnumber
10: #endif
12: /* Definitions of Fortran Wrapper routines */
13: #if defined(__cplusplus)
14: extern "C" {
15: #endif
17: PETSC_EXTERN void petscgetversion_(char *version, int *ierr, PETSC_FORTRAN_CHARLEN_T len1)
18: {
19: *ierr = PetscGetVersion(version, len1);
20: FIXRETURNCHAR(PETSC_TRUE, version, len1);
21: }
23: PETSC_EXTERN void petscgetversionnumber_(PetscInt *major, PetscInt *minor, PetscInt *subminor, PetscInt *release, int *ierr)
24: {
25: CHKFORTRANNULLINTEGER(major);
26: CHKFORTRANNULLINTEGER(minor);
27: CHKFORTRANNULLINTEGER(subminor);
28: CHKFORTRANNULLINTEGER(release);
29: *ierr = PetscGetVersionNumber(major, minor, subminor, release);
30: }
32: #if defined(__cplusplus)
33: }
34: #endif