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 PEP object in SLEPc 11: ! 12: #include "slepc/finclude/slepcpep.h" 14: type tPEP 15: PetscFortranAddr:: v 16: end type tPEP 18: ! Convergence flags. 19: ! They should match the flags in $SLEPC_DIR/include/slepcpep.h 21: PetscEnum PEP_CONVERGED_TOL 22: PetscEnum PEP_CONVERGED_USER 23: PetscEnum PEP_DIVERGED_ITS 24: PetscEnum PEP_DIVERGED_BREAKDOWN 25: PetscEnum PEP_DIVERGED_SYMMETRY_LOST 26: PetscEnum PEP_CONVERGED_ITERATING 28: parameter (PEP_CONVERGED_TOL = 1) 29: parameter (PEP_CONVERGED_USER = 2) 30: parameter (PEP_DIVERGED_ITS = -1) 31: parameter (PEP_DIVERGED_BREAKDOWN = -2) 32: parameter (PEP_DIVERGED_SYMMETRY_LOST = -3) 33: parameter (PEP_CONVERGED_ITERATING = 0) 35: PetscEnum PEP_GENERAL 36: PetscEnum PEP_HERMITIAN 37: PetscEnum PEP_HYPERBOLIC 38: PetscEnum PEP_GYROSCOPIC 40: parameter (PEP_GENERAL = 1) 41: parameter (PEP_HERMITIAN = 2) 42: parameter (PEP_HYPERBOLIC = 3) 43: parameter (PEP_GYROSCOPIC = 4) 45: PetscEnum PEP_LARGEST_MAGNITUDE 46: PetscEnum PEP_SMALLEST_MAGNITUDE 47: PetscEnum PEP_LARGEST_REAL 48: PetscEnum PEP_SMALLEST_REAL 49: PetscEnum PEP_LARGEST_IMAGINARY 50: PetscEnum PEP_SMALLEST_IMAGINARY 51: PetscEnum PEP_TARGET_MAGNITUDE 52: PetscEnum PEP_TARGET_REAL 53: PetscEnum PEP_TARGET_IMAGINARY 54: PetscEnum PEP_WHICH_USER 56: parameter (PEP_LARGEST_MAGNITUDE = 1) 57: parameter (PEP_SMALLEST_MAGNITUDE = 2) 58: parameter (PEP_LARGEST_REAL = 3) 59: parameter (PEP_SMALLEST_REAL = 4) 60: parameter (PEP_LARGEST_IMAGINARY = 5) 61: parameter (PEP_SMALLEST_IMAGINARY = 6) 62: parameter (PEP_TARGET_MAGNITUDE = 7) 63: parameter (PEP_TARGET_REAL = 8) 64: parameter (PEP_TARGET_IMAGINARY = 9) 65: parameter (PEP_WHICH_USER = 10) 67: PetscEnum PEP_BASIS_MONOMIAL 68: PetscEnum PEP_BASIS_CHEBYSHEV1 69: PetscEnum PEP_BASIS_CHEBYSHEV2 70: PetscEnum PEP_BASIS_LEGENDRE 71: PetscEnum PEP_BASIS_LAGUERRE 72: PetscEnum PEP_BASIS_HERMITE 74: parameter (PEP_BASIS_MONOMIAL = 0) 75: parameter (PEP_BASIS_CHEBYSHEV1 = 1) 76: parameter (PEP_BASIS_CHEBYSHEV2 = 2) 77: parameter (PEP_BASIS_LEGENDRE = 3) 78: parameter (PEP_BASIS_LAGUERRE = 4) 79: parameter (PEP_BASIS_HERMITE = 5) 81: PetscEnum PEP_SCALE_NONE 82: PetscEnum PEP_SCALE_SCALAR 83: PetscEnum PEP_SCALE_DIAGONAL 84: PetscEnum PEP_SCALE_BOTH 86: parameter (PEP_SCALE_NONE = 0) 87: parameter (PEP_SCALE_SCALAR = 1) 88: parameter (PEP_SCALE_DIAGONAL = 2) 89: parameter (PEP_SCALE_BOTH = 3) 91: PetscEnum PEP_REFINE_NONE 92: PetscEnum PEP_REFINE_SIMPLE 93: PetscEnum PEP_REFINE_MULTIPLE 95: parameter (PEP_REFINE_NONE = 0) 96: parameter (PEP_REFINE_SIMPLE = 1) 97: parameter (PEP_REFINE_MULTIPLE = 2) 99: PetscEnum PEP_REFINE_SCHEME_SCHUR 100: PetscEnum PEP_REFINE_SCHEME_MBE 101: PetscEnum PEP_REFINE_SCHEME_EXPLICIT 103: parameter (PEP_REFINE_SCHEME_SCHUR = 1) 104: parameter (PEP_REFINE_SCHEME_MBE = 2) 105: parameter (PEP_REFINE_SCHEME_EXPLICIT = 3) 107: PetscEnum PEP_EXTRACT_NONE 108: PetscEnum PEP_EXTRACT_NORM 109: PetscEnum PEP_EXTRACT_RESIDUAL 110: PetscEnum PEP_EXTRACT_STRUCTURED 112: parameter (PEP_EXTRACT_NONE = 1) 113: parameter (PEP_EXTRACT_NORM = 2) 114: parameter (PEP_EXTRACT_RESIDUAL = 3) 115: parameter (PEP_EXTRACT_STRUCTURED = 4) 117: PetscEnum PEP_ERROR_ABSOLUTE 118: PetscEnum PEP_ERROR_RELATIVE 119: PetscEnum PEP_ERROR_BACKWARD 121: parameter (PEP_ERROR_ABSOLUTE = 0) 122: parameter (PEP_ERROR_RELATIVE = 1) 123: parameter (PEP_ERROR_BACKWARD = 2) 125: PetscEnum PEP_CONV_ABS 126: PetscEnum PEP_CONV_REL 127: PetscEnum PEP_CONV_NORM 128: PetscEnum PEP_CONV_USER 130: parameter (PEP_CONV_ABS = 0) 131: parameter (PEP_CONV_REL = 1) 132: parameter (PEP_CONV_NORM = 2) 133: parameter (PEP_CONV_USER = 3) 135: PetscEnum PEP_STOP_BASIC 136: PetscEnum PEP_STOP_USER 138: parameter (PEP_STOP_BASIC = 0) 139: parameter (PEP_STOP_USER = 1) 141: ! 142: ! Possible arguments to PEPMonitorSet() 143: ! 144: external PEPMONITORALL 145: external PEPMONITORLG 146: external PEPMONITORLGALL 147: external PEPMONITORCONVERGED 148: external PEPMONITORFIRST 150: ! 151: ! End of Fortran include file for the PEP package in SLEPc 152: !