1: #include <petscsys.h>

  3: PETSC_INTERN void get_constants(PetscReal *pi, PetscReal *phi, PetscReal *sqrt2, PetscReal *e, PetscReal *max_real, PetscReal *min_real, PetscReal *machine_epsilon, PetscReal *sqrt_machine_epsilon, PetscReal *small, PetscReal *infinity, PetscReal *ninfinity)
  4: {
  5:   *pi                   = PETSC_PI;
  6:   *phi                  = PETSC_PHI;
  7:   *sqrt2                = PETSC_SQRT2;
  8:   *e                    = PETSC_E;
  9:   *max_real             = PETSC_MAX_REAL;
 10:   *min_real             = PETSC_MIN_REAL;
 11:   *machine_epsilon      = PETSC_MACHINE_EPSILON;
 12:   *sqrt_machine_epsilon = PETSC_SQRT_MACHINE_EPSILON;
 13:   *small                = PETSC_SMALL;
 14:   *infinity             = PETSC_INFINITY;
 15:   *ninfinity            = PETSC_NINFINITY;
 16: }