1: ! Demonstrates PetscGetVersionNumber(): Fortran Example
  2: #include <petsc/finclude/petscsys.h>
  3: program main
  4:   use petscsys

  6:   implicit none
  7:   PetscErrorCode                    :: ierr
  8:   PetscInt                          :: major, minor, subminor, release
  9:   character(len=PETSC_MAX_PATH_LEN) :: outputString

 11:   ! Every PETSc routine should begin with the PetscInitialize() routine.

 13:   PetscCallA(PetscInitialize(ierr))
 14:   PetscCallA(PetscGetVersionNumber(major, minor, subminor, release, ierr))

 16:   if (major /= PETSC_VERSION_MAJOR) then
 17:     write (outputString, *) 'Library major', major, 'does not equal include', PETSC_VERSION_MAJOR
 18:     SETERRA(PETSC_COMM_SELF, PETSC_ERR_PLIB, trim(outputString))
 19:   end if

 21:   if (minor /= PETSC_VERSION_MINOR) then
 22:     write (outputString, *) 'Library minor', minor, 'does not equal include', PETSC_VERSION_MINOR
 23:     SETERRA(PETSC_COMM_SELF, PETSC_ERR_PLIB, trim(outputString))
 24:   end if

 26:   if (subminor /= PETSC_VERSION_SUBMINOR) then
 27:     write (outputString, *) 'Library subminor', subminor, 'does not equal include', PETSC_VERSION_SUBMINOR
 28:     SETERRA(PETSC_COMM_SELF, PETSC_ERR_PLIB, trim(outputString))
 29:   end if

 31:   PetscCallA(PetscFinalize(ierr))
 32: end program main

 34: !/*TEST
 35: !
 36: !   test:
 37: !     output_file: output/empty.out
 38: !
 39: !TEST*/