1: ! 2: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 3: ! SLEPc - Scalable Library for Eigenvalue Problem Computations 4: ! Copyright (c) 2002-2019, 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: #include "slepc/finclude/slepcnep.h" 14: type tNEP 15: PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE 16: end type tNEP 18: NEP, parameter :: SLEPC_NULL_NEP = tNEP(0) 20: ! Convergence flags. 21: ! They should match the flags in $SLEPC_DIR/include/slepcnep.h 23: PetscEnum NEP_REFINE_NONE 24: PetscEnum NEP_REFINE_SIMPLE 25: PetscEnum NEP_REFINE_MULTIPLE 27: parameter (NEP_REFINE_NONE = 0) 28: parameter (NEP_REFINE_SIMPLE = 1) 29: parameter (NEP_REFINE_MULTIPLE = 2) 31: PetscEnum NEP_REFINE_SCHEME_SCHUR 32: PetscEnum NEP_REFINE_SCHEME_MBE 33: PetscEnum NEP_REFINE_SCHEME_EXPLICIT 35: parameter (NEP_REFINE_SCHEME_SCHUR = 1) 36: parameter (NEP_REFINE_SCHEME_MBE = 2) 37: parameter (NEP_REFINE_SCHEME_EXPLICIT = 3) 39: PetscEnum NEP_CONV_ABS 40: PetscEnum NEP_CONV_REL 41: PetscEnum NEP_CONV_NORM 42: PetscEnum NEP_CONV_USER 44: parameter (NEP_CONV_ABS = 0) 45: parameter (NEP_CONV_REL = 1) 46: parameter (NEP_CONV_NORM = 2) 47: parameter (NEP_CONV_USER = 3) 49: PetscEnum NEP_STOP_BASIC 50: PetscEnum NEP_STOP_USER 52: parameter (NEP_STOP_BASIC = 0) 53: parameter (NEP_STOP_USER = 1) 55: PetscEnum NEP_CONVERGED_TOL 56: PetscEnum NEP_CONVERGED_USER 57: PetscEnum NEP_DIVERGED_ITS 58: PetscEnum NEP_DIVERGED_BREAKDOWN 59: PetscEnum NEP_DIVERGED_LINEAR_SOLVE 60: PetscEnum NEP_DIVERGED_SUBSPACE_EXHAUSTED 61: PetscEnum NEP_CONVERGED_ITERATING 63: parameter (NEP_CONVERGED_TOL = 1) 64: parameter (NEP_CONVERGED_USER = 2) 65: parameter (NEP_DIVERGED_ITS = -1) 66: parameter (NEP_DIVERGED_BREAKDOWN = -2) 67: parameter (NEP_DIVERGED_LINEAR_SOLVE = -4) 68: parameter (NEP_DIVERGED_SUBSPACE_EXHAUSTED = -5) 69: parameter (NEP_CONVERGED_ITERATING = 0) 71: PetscEnum NEP_GENERAL 72: PetscEnum NEP_RATIONAL 74: parameter (NEP_GENERAL = 1) 75: parameter (NEP_RATIONAL = 2) 77: PetscEnum NEP_LARGEST_MAGNITUDE 78: PetscEnum NEP_SMALLEST_MAGNITUDE 79: PetscEnum NEP_LARGEST_REAL 80: PetscEnum NEP_SMALLEST_REAL 81: PetscEnum NEP_LARGEST_IMAGINARY 82: PetscEnum NEP_SMALLEST_IMAGINARY 83: PetscEnum NEP_TARGET_MAGNITUDE 84: PetscEnum NEP_TARGET_REAL 85: PetscEnum NEP_TARGET_IMAGINARY 86: PetscEnum NEP_ALL 87: PetscEnum NEP_WHICH_USER 89: parameter (NEP_LARGEST_MAGNITUDE = 1) 90: parameter (NEP_SMALLEST_MAGNITUDE = 2) 91: parameter (NEP_LARGEST_REAL = 3) 92: parameter (NEP_SMALLEST_REAL = 4) 93: parameter (NEP_LARGEST_IMAGINARY = 5) 94: parameter (NEP_SMALLEST_IMAGINARY = 6) 95: parameter (NEP_TARGET_MAGNITUDE = 7) 96: parameter (NEP_TARGET_REAL = 8) 97: parameter (NEP_TARGET_IMAGINARY = 9) 98: parameter (NEP_ALL = 10) 99: parameter (NEP_WHICH_USER = 11) 101: PetscEnum NEP_ERROR_ABSOLUTE 102: PetscEnum NEP_ERROR_RELATIVE 103: PetscEnum NEP_ERROR_BACKWARD 105: parameter (NEP_ERROR_ABSOLUTE = 0) 106: parameter (NEP_ERROR_RELATIVE = 1) 107: parameter (NEP_ERROR_BACKWARD = 2) 109: ! 110: ! Possible arguments to NEPMonitorSet() 111: ! 112: external NEPMONITORALL 113: external NEPMONITORLG 114: external NEPMONITORLGALL 115: external NEPMONITORCONVERGED 116: external NEPMONITORFIRST 118: ! 119: ! End of Fortran include file for the NEP package in SLEPc 120: !