1: #include <petsc/finclude/petscsys.h>
  2: module ex83f_module
  3:   use PETScSys
  4:   implicit none

  6: contains

  8:   subroutine get_constants(pi, phi, sqrt2, e, max_real, min_real, machine_epsilon, sqrt_machine_epsilon, small, infinity, ninfinity) bind(c)
  9:     PetscReal, intent(out) :: pi, phi, sqrt2, e, max_real, min_real, machine_epsilon, sqrt_machine_epsilon, small, infinity, ninfinity

 11:     pi = PETSC_PI
 12:     phi = PETSC_PHI
 13:     sqrt2 = PETSC_SQRT2
 14:     e = PETSC_E
 15:     max_real = PETSC_MAX_REAL
 16:     min_real = PETSC_MIN_REAL
 17:     machine_epsilon = PETSC_MACHINE_EPSILON
 18:     sqrt_machine_epsilon = PETSC_SQRT_MACHINE_EPSILON
 19:     small = PETSC_SMALL
 20:     infinity = PETSC_INFINITY
 21:     ninfinity = PETSC_NINFINITY
 22:   end subroutine get_constants

 24: end module ex83f_module