Actual source code: slepcsys.h

      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