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