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 EPSLANCZOS   'lanczos'
 16: #define EPSLAPACK    'lapack'
 17: #define EPSARPACK    'arpack'
 18: #define EPSBLZPACK   'blzpack'
 19: #define EPSPLANSO    'planso'
 20: #define EPSTRLAN     'trlan'
 21: #define EPSLOBPCG    'lobpcg'

 23: !  Convergence flags.
 24: !  They sould match the flags in $SLEPC_DIR/include/slepceps.h

 26:       integer EPS_CONVERGED_TOL
 27:       integer EPS_DIVERGED_ITS
 28:       integer EPS_DIVERGED_BREAKDOWN
 29:       integer EPS_DIVERGED_NONSYMMETRIC
 30:       integer EPS_CONVERGED_ITERATING

 32:       parameter (EPS_CONVERGED_TOL          =  2)
 33:       parameter (EPS_DIVERGED_ITS           = -3)
 34:       parameter (EPS_DIVERGED_BREAKDOWN     = -4)
 35:       parameter (EPS_DIVERGED_NONSYMMETRIC  = -5)
 36:       parameter (EPS_CONVERGED_ITERATING    =  0)

 38:       integer EPS_HEP
 39:       integer EPS_GHEP
 40:       integer EPS_NHEP
 41:       integer EPS_GNHEP

 43:       parameter (EPS_HEP                    =  1)
 44:       parameter (EPS_GHEP                   =  2)
 45:       parameter (EPS_NHEP                   =  3)
 46:       parameter (EPS_GNHEP                  =  4)
 47: 
 48:       integer EPS_LARGEST_MAGNITUDE
 49:       integer EPS_SMALLEST_MAGNITUDE
 50:       integer EPS_LARGEST_REAL
 51:       integer EPS_SMALLEST_REAL
 52:       integer EPS_LARGEST_IMAGINARY
 53:       integer EPS_SMALLEST_IMAGINARY

 55:       parameter (EPS_LARGEST_MAGNITUDE      =  0)
 56:       parameter (EPS_SMALLEST_MAGNITUDE     =  1)
 57:       parameter (EPS_LARGEST_REAL           =  2)
 58:       parameter (EPS_SMALLEST_REAL          =  3)
 59:       parameter (EPS_LARGEST_IMAGINARY      =  4)
 60:       parameter (EPS_SMALLEST_IMAGINARY     =  5)

 62:       integer EPS_MGS_ORTH
 63:       integer EPS_CGS_ORTH
 64: 
 65:       parameter (EPS_MGS_ORTH               =  0)
 66:       parameter (EPS_CGS_ORTH               =  1)

 68:       integer EPS_ORTH_REFINE_NEVER
 69:       integer EPS_ORTH_REFINE_IFNEEDED
 70:       integer EPS_ORTH_REFINE_ALWAYS

 72:       parameter (EPS_ORTH_REFINE_NEVER      =  0)
 73:       parameter (EPS_ORTH_REFINE_IFNEEDED   =  1)
 74:       parameter (EPS_ORTH_REFINE_ALWAYS     =  2)
 75: 
 76:       integer EPSPOWER_SHIFT_CONSTANT
 77:       integer EPSPOWER_SHIFT_RAYLEIGH
 78:       integer EPSPOWER_SHIFT_WILKINSON

 80:       parameter (EPSPOWER_SHIFT_CONSTANT    =  0)
 81:       parameter (EPSPOWER_SHIFT_RAYLEIGH    =  1)
 82:       parameter (EPSPOWER_SHIFT_WILKINSON   =  2)

 84:       integer EPS_ONE_SIDE
 85:       integer EPS_TWO_SIDE

 87:       parameter (EPS_ONE_SIDE               =  0)
 88:       parameter (EPS_TWO_SIDE               =  1)

 90:       integer EPSLANCZOS_REORTHOG_NONE
 91:       integer EPSLANCZOS_REORTHOG_FULL
 92:       integer EPSLANCZOS_REORTHOG_SELECTIVE
 93:       integer EPSLANCZOS_REORTHOG_PERIODIC
 94:       integer EPSLANCZOS_REORTHOG_PARTIAL

 96:       parameter (EPSLANCZOS_REORTHOG_NONE      =  0)
 97:       parameter (EPSLANCZOS_REORTHOG_FULL      =  1)
 98:       parameter (EPSLANCZOS_REORTHOG_SELECTIVE =  2)
 99:       parameter (EPSLANCZOS_REORTHOG_PERIODIC  =  3)
100:       parameter (EPSLANCZOS_REORTHOG_PARTIAL   =  4)

102: #endif