1: ! 2: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 3: ! SLEPc - Scalable Library for Eigenvalue Problem Computations 4: ! Copyright (c) 2002-2018, 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 16: end type tNEP 18: ! Convergence flags. 19: ! They should match the flags in $SLEPC_DIR/include/slepcnep.h 21: PetscEnum NEP_REFINE_NONE 22: PetscEnum NEP_REFINE_SIMPLE 23: PetscEnum NEP_REFINE_MULTIPLE 25: parameter (NEP_REFINE_NONE = 0) 26: parameter (NEP_REFINE_SIMPLE = 1) 27: parameter (NEP_REFINE_MULTIPLE = 2) 29: PetscEnum NEP_REFINE_SCHEME_SCHUR 30: PetscEnum NEP_REFINE_SCHEME_MBE 31: PetscEnum NEP_REFINE_SCHEME_EXPLICIT 33: parameter (NEP_REFINE_SCHEME_SCHUR = 1) 34: parameter (NEP_REFINE_SCHEME_MBE = 2) 35: parameter (NEP_REFINE_SCHEME_EXPLICIT = 3) 37: PetscEnum NEP_CONV_ABS 38: PetscEnum NEP_CONV_REL 39: PetscEnum NEP_CONV_NORM 40: PetscEnum NEP_CONV_USER 42: parameter (NEP_CONV_ABS = 0) 43: parameter (NEP_CONV_REL = 1) 44: parameter (NEP_CONV_NORM = 2) 45: parameter (NEP_CONV_USER = 3) 47: PetscEnum NEP_STOP_BASIC 48: PetscEnum NEP_STOP_USER 50: parameter (NEP_STOP_BASIC = 0) 51: parameter (NEP_STOP_USER = 1) 53: PetscEnum NEP_CONVERGED_TOL 54: PetscEnum NEP_CONVERGED_USER 55: PetscEnum NEP_DIVERGED_ITS 56: PetscEnum NEP_DIVERGED_BREAKDOWN 57: PetscEnum NEP_DIVERGED_LINEAR_SOLVE 58: PetscEnum NEP_CONVERGED_ITERATING 60: parameter (NEP_CONVERGED_TOL = 1) 61: parameter (NEP_CONVERGED_USER = 2) 62: parameter (NEP_DIVERGED_ITS = -1) 63: parameter (NEP_DIVERGED_BREAKDOWN = -2) 64: parameter (NEP_DIVERGED_LINEAR_SOLVE = -4) 65: parameter (NEP_CONVERGED_ITERATING = 0) 67: PetscEnum NEP_GENERAL 68: PetscEnum NEP_RATIONAL 70: parameter (NEP_GENERAL = 1) 71: parameter (NEP_RATIONAL = 2) 73: PetscEnum NEP_LARGEST_MAGNITUDE 74: PetscEnum NEP_SMALLEST_MAGNITUDE 75: PetscEnum NEP_LARGEST_REAL 76: PetscEnum NEP_SMALLEST_REAL 77: PetscEnum NEP_LARGEST_IMAGINARY 78: PetscEnum NEP_SMALLEST_IMAGINARY 79: PetscEnum NEP_TARGET_MAGNITUDE 80: PetscEnum NEP_TARGET_REAL 81: PetscEnum NEP_TARGET_IMAGINARY 82: PetscEnum NEP_ALL 83: PetscEnum NEP_WHICH_USER 85: parameter (NEP_LARGEST_MAGNITUDE = 1) 86: parameter (NEP_SMALLEST_MAGNITUDE = 2) 87: parameter (NEP_LARGEST_REAL = 3) 88: parameter (NEP_SMALLEST_REAL = 4) 89: parameter (NEP_LARGEST_IMAGINARY = 5) 90: parameter (NEP_SMALLEST_IMAGINARY = 6) 91: parameter (NEP_TARGET_MAGNITUDE = 7) 92: parameter (NEP_TARGET_REAL = 8) 93: parameter (NEP_TARGET_IMAGINARY = 9) 94: parameter (NEP_ALL = 10) 95: parameter (NEP_WHICH_USER = 11) 97: PetscEnum NEP_ERROR_ABSOLUTE 98: PetscEnum NEP_ERROR_RELATIVE 99: PetscEnum NEP_ERROR_BACKWARD 101: parameter (NEP_ERROR_ABSOLUTE = 0) 102: parameter (NEP_ERROR_RELATIVE = 1) 103: parameter (NEP_ERROR_BACKWARD = 2) 105: ! 106: ! Possible arguments to NEPMonitorSet() 107: ! 108: external NEPMONITORALL 109: external NEPMONITORLG 110: external NEPMONITORLGALL 111: external NEPMONITORCONVERGED 112: external NEPMONITORFIRST 114: ! 115: ! End of Fortran include file for the NEP package in SLEPc 116: !