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

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

 21: #define PEP type(tPEP)

 23: #define PEPType            character*(80)
 24: #define PEPProblemType     PetscEnum
 25: #define PEPWhich           PetscEnum
 26: #define PEPBasis           PetscEnum
 27: #define PEPScale           PetscEnum
 28: #define PEPRefine          PetscEnum
 29: #define PEPRefineScheme    PetscEnum
 30: #define PEPExtract         PetscEnum
 31: #define PEPConv            PetscEnum
 32: #define PEPStop            PetscEnum
 33: #define PEPErrorType       PetscEnum
 34: #define PEPConvergedReason PetscEnum
 35: #define PEPJDProjection    PetscEnum
 36: #define PEPCISSExtraction  PetscEnum

 38: #define PEPLINEAR    'linear'
 39: #define PEPQARNOLDI  'qarnoldi'
 40: #define PEPTOAR      'toar'
 41: #define PEPSTOAR     'stoar'
 42: #define PEPJD        'jd'
 43: #define PEPCISS      'ciss'

 45: #endif