1: !
2: ! Basic include file for Fortran use of the SLEPc package
3: !
4: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
5: ! SLEPc - Scalable Library for Eigenvalue Problem Computations
6: ! Copyright (c) 2002-2016, Universitat Politecnica de Valencia, Spain
7: !
8: ! This file is part of SLEPc.
9: !
10: ! SLEPc is free software: you can redistribute it and/or modify it under the
11: ! terms of version 3 of the GNU Lesser General Public License as published by
12: ! the Free Software Foundation.
13: !
14: ! SLEPc is distributed in the hope that it will be useful, but WITHOUT ANY
15: ! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
16: ! FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for
17: ! more details.
18: !
19: ! You should have received a copy of the GNU Lesser General Public License
20: ! along with SLEPc. If not, see <http://www.gnu.org/licenses/>.
21: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
22: !
24: #include "petscconf.h"
25: #include "petsc/finclude/petscdef.h"
26: #include slepcversion.h 27: #include slepc/finclude/slepcsysdef.h 29: #if !defined(PETSC_USE_FORTRAN_DATATYPES)
30: external SlepcConvMonitorDestroy 31: #endif
33: ! Default tolerance for the different solvers, depending on the precision
35: PetscReal SLEPC_DEFAULT_TOL
36: #if defined(PETSC_USE_REAL_SINGLE)
37: parameter(SLEPC_DEFAULT_TOL = 1e-6)
38: #elif defined(PETSC_USE_REAL_DOUBLE)
39: parameter(SLEPC_DEFAULT_TOL = 1e-8)
40: #elif defined(PETSC_USE_REAL___FLOAT128)
41: parameter(SLEPC_DEFAULT_TOL = 1e-16)
42: #else
43: parameter(SLEPC_DEFAULT_TOL = 1e-7)
44: #endif