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