1: ! 2: ! Include file for Fortran use of the PEP object in SLEPc 3: ! 4: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 5: ! SLEPc - Scalable Library for Eigenvalue Problem Computations 6: ! Copyright (c) 2002-2016, Universitat Politecnica de Valencia, Spain 7: ! 8: ! This file is part of SLEPc. 9: ! 10: ! SLEPc is free software: you can redistribute it and/or modify it under the 11: ! terms of version 3 of the GNU Lesser General Public License as published by 12: ! the Free Software Foundation. 13: ! 14: ! SLEPc is distributed in the hope that it will be useful, but WITHOUT ANY 15: ! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS 16: ! FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for 17: ! more details. 18: ! 19: ! You should have received a copy of the GNU Lesser General Public License 20: ! along with SLEPc. If not, see <http://www.gnu.org/licenses/>. 21: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 22: ! 26: #include slepc/finclude/slepcbvdef.h 27: #include slepc/finclude/slepcstdef.h 28: #include slepc/finclude/slepcdsdef.h 29: #include slepc/finclude/slepcrgdef.h 30: #include slepc/finclude/slepcepsdef.h 32: #if !defined(PETSC_USE_FORTRAN_DATATYPES) 33: #define PEP PetscFortranAddr 34: #endif 36: #define PEPType character*(80) 37: #define PEPProblemType PetscEnum 38: #define PEPWhich PetscEnum 39: #define PEPBasis PetscEnum 40: #define PEPScale PetscEnum 41: #define PEPRefine PetscEnum 42: #define PEPRefineScheme PetscEnum 43: #define PEPExtract PetscEnum 44: #define PEPConv PetscEnum 45: #define PEPStop PetscEnum 46: #define PEPErrorType PetscEnum 47: #define PEPConvergedReason PetscEnum 49: #define PEPLINEAR 'linear' 50: #define PEPQARNOLDI 'qarnoldi' 51: #define PEPTOAR 'toar' 52: #define PEPSTOAR 'stoar' 53: #define PEPJD 'jd' 55: #endif