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