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 PEP object in SLEPc 11: ! 12: #include "slepc/finclude/slepcpep.h" 14: type tPEP 15: PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE 16: end type tPEP 18: PEP, parameter :: SLEPC_NULL_PEP = tPEP(0) 20: ! Convergence flags. 21: ! They should match the flags in $SLEPC_DIR/include/slepcpep.h 23: PetscEnum PEP_CONVERGED_TOL 24: PetscEnum PEP_CONVERGED_USER 25: PetscEnum PEP_DIVERGED_ITS 26: PetscEnum PEP_DIVERGED_BREAKDOWN 27: PetscEnum PEP_DIVERGED_SYMMETRY_LOST 28: PetscEnum PEP_CONVERGED_ITERATING 30: parameter (PEP_CONVERGED_TOL = 1) 31: parameter (PEP_CONVERGED_USER = 2) 32: parameter (PEP_DIVERGED_ITS = -1) 33: parameter (PEP_DIVERGED_BREAKDOWN = -2) 34: parameter (PEP_DIVERGED_SYMMETRY_LOST = -3) 35: parameter (PEP_CONVERGED_ITERATING = 0) 37: PetscEnum PEP_GENERAL 38: PetscEnum PEP_HERMITIAN 39: PetscEnum PEP_HYPERBOLIC 40: PetscEnum PEP_GYROSCOPIC 42: parameter (PEP_GENERAL = 1) 43: parameter (PEP_HERMITIAN = 2) 44: parameter (PEP_HYPERBOLIC = 3) 45: parameter (PEP_GYROSCOPIC = 4) 47: PetscEnum PEP_LARGEST_MAGNITUDE 48: PetscEnum PEP_SMALLEST_MAGNITUDE 49: PetscEnum PEP_LARGEST_REAL 50: PetscEnum PEP_SMALLEST_REAL 51: PetscEnum PEP_LARGEST_IMAGINARY 52: PetscEnum PEP_SMALLEST_IMAGINARY 53: PetscEnum PEP_TARGET_MAGNITUDE 54: PetscEnum PEP_TARGET_REAL 55: PetscEnum PEP_TARGET_IMAGINARY 56: PetscEnum PEP_WHICH_USER 58: parameter (PEP_LARGEST_MAGNITUDE = 1) 59: parameter (PEP_SMALLEST_MAGNITUDE = 2) 60: parameter (PEP_LARGEST_REAL = 3) 61: parameter (PEP_SMALLEST_REAL = 4) 62: parameter (PEP_LARGEST_IMAGINARY = 5) 63: parameter (PEP_SMALLEST_IMAGINARY = 6) 64: parameter (PEP_TARGET_MAGNITUDE = 7) 65: parameter (PEP_TARGET_REAL = 8) 66: parameter (PEP_TARGET_IMAGINARY = 9) 67: parameter (PEP_WHICH_USER = 10) 69: PetscEnum PEP_BASIS_MONOMIAL 70: PetscEnum PEP_BASIS_CHEBYSHEV1 71: PetscEnum PEP_BASIS_CHEBYSHEV2 72: PetscEnum PEP_BASIS_LEGENDRE 73: PetscEnum PEP_BASIS_LAGUERRE 74: PetscEnum PEP_BASIS_HERMITE 76: parameter (PEP_BASIS_MONOMIAL = 0) 77: parameter (PEP_BASIS_CHEBYSHEV1 = 1) 78: parameter (PEP_BASIS_CHEBYSHEV2 = 2) 79: parameter (PEP_BASIS_LEGENDRE = 3) 80: parameter (PEP_BASIS_LAGUERRE = 4) 81: parameter (PEP_BASIS_HERMITE = 5) 83: PetscEnum PEP_SCALE_NONE 84: PetscEnum PEP_SCALE_SCALAR 85: PetscEnum PEP_SCALE_DIAGONAL 86: PetscEnum PEP_SCALE_BOTH 88: parameter (PEP_SCALE_NONE = 0) 89: parameter (PEP_SCALE_SCALAR = 1) 90: parameter (PEP_SCALE_DIAGONAL = 2) 91: parameter (PEP_SCALE_BOTH = 3) 93: PetscEnum PEP_REFINE_NONE 94: PetscEnum PEP_REFINE_SIMPLE 95: PetscEnum PEP_REFINE_MULTIPLE 97: parameter (PEP_REFINE_NONE = 0) 98: parameter (PEP_REFINE_SIMPLE = 1) 99: parameter (PEP_REFINE_MULTIPLE = 2) 101: PetscEnum PEP_REFINE_SCHEME_SCHUR 102: PetscEnum PEP_REFINE_SCHEME_MBE 103: PetscEnum PEP_REFINE_SCHEME_EXPLICIT 105: parameter (PEP_REFINE_SCHEME_SCHUR = 1) 106: parameter (PEP_REFINE_SCHEME_MBE = 2) 107: parameter (PEP_REFINE_SCHEME_EXPLICIT = 3) 109: PetscEnum PEP_EXTRACT_NONE 110: PetscEnum PEP_EXTRACT_NORM 111: PetscEnum PEP_EXTRACT_RESIDUAL 112: PetscEnum PEP_EXTRACT_STRUCTURED 114: parameter (PEP_EXTRACT_NONE = 1) 115: parameter (PEP_EXTRACT_NORM = 2) 116: parameter (PEP_EXTRACT_RESIDUAL = 3) 117: parameter (PEP_EXTRACT_STRUCTURED = 4) 119: PetscEnum PEP_ERROR_ABSOLUTE 120: PetscEnum PEP_ERROR_RELATIVE 121: PetscEnum PEP_ERROR_BACKWARD 123: parameter (PEP_ERROR_ABSOLUTE = 0) 124: parameter (PEP_ERROR_RELATIVE = 1) 125: parameter (PEP_ERROR_BACKWARD = 2) 127: PetscEnum PEP_CONV_ABS 128: PetscEnum PEP_CONV_REL 129: PetscEnum PEP_CONV_NORM 130: PetscEnum PEP_CONV_USER 132: parameter (PEP_CONV_ABS = 0) 133: parameter (PEP_CONV_REL = 1) 134: parameter (PEP_CONV_NORM = 2) 135: parameter (PEP_CONV_USER = 3) 137: PetscEnum PEP_STOP_BASIC 138: PetscEnum PEP_STOP_USER 140: parameter (PEP_STOP_BASIC = 0) 141: parameter (PEP_STOP_USER = 1) 143: ! 144: ! Possible arguments to PEPMonitorSet() 145: ! 146: external PEPMONITORALL 147: external PEPMONITORLG 148: external PEPMONITORLGALL 149: external PEPMONITORCONVERGED 150: external PEPMONITORFIRST 152: ! 153: ! End of Fortran include file for the PEP package in SLEPc 154: !