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