Actual source code: zpgnamef.c

      1: #include <petsc/private/fortranimpl.h>

      3: #if defined(PETSC_HAVE_FORTRAN_CAPS)
      4:   #define petscgetversion_ PETSCGETVERSION
      5: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
      6:   #define petscgetversion_ petscgetversion
      7: #endif

      9: PETSC_EXTERN void petscgetversion_(char *version, int *ierr, PETSC_FORTRAN_CHARLEN_T len1)
     10: {
     11:   *ierr = PetscGetVersion(version, len1);
     12:   FIXRETURNCHAR(PETSC_TRUE, version, len1);
     13: }