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 NEP object in SLEPc
 11: !
 12: #if !defined(SLEPCNEPDEF_H)
 13: #define SLEPCNEPDEF_H

 15: #include "slepc/finclude/slepcbv.h"
 16: #include "slepc/finclude/slepcds.h"
 17: #include "slepc/finclude/slepcrg.h"
 18: #include "slepc/finclude/slepcfn.h"
 19: #include "slepc/finclude/slepceps.h"
 20: #include "slepc/finclude/slepcpep.h"

 22: #define NEP type(tNEP)

 24: #define NEPType            character*(80)
 25: #define NEPProblemType     PetscEnum
 26: #define NEPConvergedReason PetscEnum
 27: #define NEPErrorType       PetscEnum
 28: #define NEPWhich           PetscEnum
 29: #define NEPConv            PetscEnum
 30: #define NEPStop            PetscEnum
 31: #define NEPRefine          PetscEnum
 32: #define NEPRefineScheme    PetscEnum
 33: #define NEPCISSExtraction  PetscEnum

 35: #define NEPRII       'rii'
 36: #define NEPSLP       'slp'
 37: #define NEPNARNOLDI  'narnoldi'
 38: #define NEPCISS      'ciss'
 39: #define NEPINTERPOL  'interpol'
 40: #define NEPNLEIGS    'nleigs'

 42: #endif