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 DS object in SLEPc 11: ! 12: #if !defined(SLEPCDSDEF_H) 13: #define SLEPCDSDEF_H 15: #include "petsc/finclude/petscmat.h" 16: #include "slepc/finclude/slepcfn.h" 17: #include "slepc/finclude/slepcrg.h" 19: #define DS type(tDS) 21: #define DSType character*(80) 22: #define DSStateType PetscEnum 23: #define DSMatType PetscEnum 24: #define DSParallelType PetscEnum 26: #define DSHEP 'hep' 27: #define DSNHEP 'nhep' 28: #define DSGHEP 'ghep' 29: #define DSGHIEP 'ghiep' 30: #define DSGNHEP 'gnhep' 31: #define DSNHEPTS 'nhepts' 32: #define DSSVD 'svd' 33: #define DSHSVD 'hsvd' 34: #define DSGSVD 'gsvd' 35: #define DSPEP 'pep' 36: #define DSNEP 'nep' 38: #endif