Actual source code: slepceps.h
2: !
3: ! Include file for Fortran use of the EPS object in SLEPc
4: !
8: #define EPS PetscFortranAddr
9: #define EPSType character*(80)
10: #define EPSConvergedReason integer
12: #define EPSPOWER 'power'
13: #define EPSSUBSPACE 'subspace'
14: #define EPSARNOLDI 'arnoldi'
15: #define EPSLAPACK 'lapack'
16: #define EPSARPACK 'arpack'
17: #define EPSBLZPACK 'blzpack'
18: #define EPSPLANSO 'planso'
19: #define EPSTRLAN 'trlan'
21: ! Convergence flags.
22: ! They sould match the flags in $SLEPC_DIR/include/slepceps.h
24: integer EPS_CONVERGED_TOL
25: integer EPS_DIVERGED_ITS
26: integer EPS_DIVERGED_BREAKDOWN
27: integer EPS_DIVERGED_NONSYMMETRIC
28: integer EPS_CONVERGED_ITERATING
30: parameter (EPS_CONVERGED_TOL = 2)
31: parameter (EPS_DIVERGED_ITS = -3)
32: parameter (EPS_DIVERGED_BREAKDOWN = -4)
33: parameter (EPS_DIVERGED_NONSYMMETRIC = -5)
34: parameter (EPS_CONVERGED_ITERATING = 0)
36: integer EPS_HEP
37: integer EPS_GHEP
38: integer EPS_NHEP
39: integer EPS_GNHEP
41: parameter (EPS_HEP = 1)
42: parameter (EPS_GHEP = 2)
43: parameter (EPS_NHEP = 3)
44: parameter (EPS_GNHEP = 4)
45:
46: integer EPS_LARGEST_MAGNITUDE
47: integer EPS_SMALLEST_MAGNITUDE
48: integer EPS_LARGEST_REAL
49: integer EPS_SMALLEST_REAL
50: integer EPS_LARGEST_IMAGINARY
51: integer EPS_SMALLEST_IMAGINARY
53: parameter (EPS_LARGEST_MAGNITUDE = 0)
54: parameter (EPS_SMALLEST_MAGNITUDE = 1)
55: parameter (EPS_LARGEST_REAL = 2)
56: parameter (EPS_SMALLEST_REAL = 3)
57: parameter (EPS_LARGEST_IMAGINARY = 4)
58: parameter (EPS_SMALLEST_IMAGINARY = 5)
60: integer EPS_MGS_ORTH
61: integer EPS_CGS_ORTH
62:
63: parameter (EPS_MGS_ORTH = 0)
64: parameter (EPS_CGS_ORTH = 1)
66: integer EPS_ORTH_REFINE_NEVER
67: integer EPS_ORTH_REFINE_IFNEEDED
68: integer EPS_ORTH_REFINE_ALWAYS
70: parameter (EPS_ORTH_REFINE_NEVER = 0)
71: parameter (EPS_ORTH_REFINE_IFNEEDED = 1)
72: parameter (EPS_ORTH_REFINE_ALWAYS = 2)
73:
74: integer EPSPOWER_SHIFT_CONSTANT
75: integer EPSPOWER_SHIFT_RAYLEIGH
76: integer EPSPOWER_SHIFT_WILKINSON
78: parameter (EPSPOWER_SHIFT_CONSTANT = 0)
79: parameter (EPSPOWER_SHIFT_RAYLEIGH = 1)
80: parameter (EPSPOWER_SHIFT_WILKINSON = 2)
82: #endif