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: !  Include file for Fortran use of the MFN object in SLEPc
 11: !
 12: #if !defined(SLEPCMFNDEF_H)
 13: #define SLEPCMFNDEF_H

 15: #include "petsc/finclude/petscmat.h"
 16: #include "slepc/finclude/slepcfn.h"
 17: #include "slepc/finclude/slepcbv.h"

 19: #define MFN type(tMFN)

 21: #define MFNType            character*(80)
 22: #define MFNConvergedReason PetscEnum

 24: #define MFNKRYLOV      'krylov'
 25: #define MFNEXPOKIT     'expokit'

 27: #endif