1: ! 2: ! Include file for Fortran use of the NEP object in SLEPc 3: ! 4: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 5: ! SLEPc - Scalable Library for Eigenvalue Problem Computations 6: ! Copyright (c) 2002-2015, 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/slepcdsdef.h 28: #include slepc/finclude/slepcrgdef.h 29: #include slepc/finclude/slepcfndef.h 30: #include slepc/finclude/slepcepsdef.h 31: #include slepc/finclude/slepcpepdef.h 33: #if !defined(PETSC_USE_FORTRAN_DATATYPES) 34: #define NEP PetscFortranAddr 35: #endif 37: #define NEPType character*(80) 38: #define NEPConvergedReason PetscEnum 39: #define NEPErrorType PetscEnum 40: #define NEPWhich PetscEnum 41: #define NEPRefine PetscEnum 43: #define NEPRII 'rii' 44: #define NEPSLP 'slp' 45: #define NEPNARNOLDI 'narnoldi' 46: #define NEPCISS 'ciss' 47: #define NEPINTERPOL 'interpol' 48: #endif