1: !
  2: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  3: !  SLEPc - Scalable Library for Eigenvalue Problem Computations
  4: !  Copyright (c) 2002-, Universitat Politecnica de Valencia, Spain
  5: !
  6: !  This file is part of SLEPc.
  7: !  SLEPc is distributed under a 2-clause BSD license (see LICENSE).
  8: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  9: !
 10: !  Used by slepcsysmod.F90 to create Fortran module file
 11: !

 13: #include "slepc/finclude/slepcsys.h"

 15:       type tSlepcSC
 16:         PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE
 17:       end type tSlepcSC

 19: ! Default tolerance for the different solvers, depending on the precision

 21: #if defined(PETSC_USE_REAL_SINGLE)
 22:       PetscReal, parameter :: SLEPC_DEFAULT_TOL =  1e-5
 23: #elif defined(PETSC_USE_REAL_DOUBLE)
 24:       PetscReal, parameter :: SLEPC_DEFAULT_TOL =  1e-8
 25: #elif defined(PETSC_USE_REAL___FLOAT128)
 26:       PetscReal, parameter :: SLEPC_DEFAULT_TOL = 1e-16
 27: #elif defined(PETSC_USE_REAL___FP16)
 28:       PetscReal, parameter :: SLEPC_DEFAULT_TOL =  1e-2
 29: #endif