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: }