1: ! 2: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 3: ! SLEPc - Scalable Library for Eigenvalue Problem Computations 4: ! Copyright (c) 2002-2017, 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_GYROSCOPIC 39: parameter (PEP_GENERAL = 1) 40: parameter (PEP_HERMITIAN = 2) 41: parameter (PEP_GYROSCOPIC = 3) 43: PetscEnum PEP_LARGEST_MAGNITUDE 44: PetscEnum PEP_SMALLEST_MAGNITUDE 45: PetscEnum PEP_LARGEST_REAL 46: PetscEnum PEP_SMALLEST_REAL 47: PetscEnum PEP_LARGEST_IMAGINARY 48: PetscEnum PEP_SMALLEST_IMAGINARY 49: PetscEnum PEP_TARGET_MAGNITUDE 50: PetscEnum PEP_TARGET_REAL 51: PetscEnum PEP_TARGET_IMAGINARY 52: PetscEnum PEP_WHICH_USER 54: parameter (PEP_LARGEST_MAGNITUDE = 1) 55: parameter (PEP_SMALLEST_MAGNITUDE = 2) 56: parameter (PEP_LARGEST_REAL = 3) 57: parameter (PEP_SMALLEST_REAL = 4) 58: parameter (PEP_LARGEST_IMAGINARY = 5) 59: parameter (PEP_SMALLEST_IMAGINARY = 6) 60: parameter (PEP_TARGET_MAGNITUDE = 7) 61: parameter (PEP_TARGET_REAL = 8) 62: parameter (PEP_TARGET_IMAGINARY = 9) 63: parameter (PEP_WHICH_USER = 10) 65: PetscEnum PEP_BASIS_MONOMIAL 66: PetscEnum PEP_BASIS_CHEBYSHEV1 67: PetscEnum PEP_BASIS_CHEBYSHEV2 68: PetscEnum PEP_BASIS_LEGENDRE 69: PetscEnum PEP_BASIS_LAGUERRE 70: PetscEnum PEP_BASIS_HERMITE 72: parameter (PEP_BASIS_MONOMIAL = 0) 73: parameter (PEP_BASIS_CHEBYSHEV1 = 1) 74: parameter (PEP_BASIS_CHEBYSHEV2 = 2) 75: parameter (PEP_BASIS_LEGENDRE = 3) 76: parameter (PEP_BASIS_LAGUERRE = 4) 77: parameter (PEP_BASIS_HERMITE = 5) 79: PetscEnum PEP_SCALE_NONE 80: PetscEnum PEP_SCALE_SCALAR 81: PetscEnum PEP_SCALE_DIAGONAL 82: PetscEnum PEP_SCALE_BOTH 84: parameter (PEP_SCALE_NONE = 0) 85: parameter (PEP_SCALE_SCALAR = 1) 86: parameter (PEP_SCALE_DIAGONAL = 2) 87: parameter (PEP_SCALE_BOTH = 3) 89: PetscEnum PEP_REFINE_NONE 90: PetscEnum PEP_REFINE_SIMPLE 91: PetscEnum PEP_REFINE_MULTIPLE 93: parameter (PEP_REFINE_NONE = 0) 94: parameter (PEP_REFINE_SIMPLE = 1) 95: parameter (PEP_REFINE_MULTIPLE = 2) 97: PetscEnum PEP_REFINE_SCHEME_SCHUR 98: PetscEnum PEP_REFINE_SCHEME_MBE 99: PetscEnum PEP_REFINE_SCHEME_EXPLICIT 101: parameter (PEP_REFINE_SCHEME_SCHUR = 1) 102: parameter (PEP_REFINE_SCHEME_MBE = 2) 103: parameter (PEP_REFINE_SCHEME_EXPLICIT = 3) 105: PetscEnum PEP_EXTRACT_NONE 106: PetscEnum PEP_EXTRACT_NORM 107: PetscEnum PEP_EXTRACT_RESIDUAL 108: PetscEnum PEP_EXTRACT_STRUCTURED 110: parameter (PEP_EXTRACT_NONE = 1) 111: parameter (PEP_EXTRACT_NORM = 2) 112: parameter (PEP_EXTRACT_RESIDUAL = 3) 113: parameter (PEP_EXTRACT_STRUCTURED = 4) 115: PetscEnum PEP_ERROR_ABSOLUTE 116: PetscEnum PEP_ERROR_RELATIVE 117: PetscEnum PEP_ERROR_BACKWARD 119: parameter (PEP_ERROR_ABSOLUTE = 0) 120: parameter (PEP_ERROR_RELATIVE = 1) 121: parameter (PEP_ERROR_BACKWARD = 2) 123: PetscEnum PEP_CONV_ABS 124: PetscEnum PEP_CONV_REL 125: PetscEnum PEP_CONV_NORM 126: PetscEnum PEP_CONV_USER 128: parameter (PEP_CONV_ABS = 0) 129: parameter (PEP_CONV_REL = 1) 130: parameter (PEP_CONV_NORM = 2) 131: parameter (PEP_CONV_USER = 3) 133: PetscEnum PEP_STOP_BASIC 134: PetscEnum PEP_STOP_USER 136: parameter (PEP_STOP_BASIC = 0) 137: parameter (PEP_STOP_USER = 1) 139: ! 140: ! Possible arguments to PEPMonitorSet() 141: ! 142: external PEPMONITORALL 143: external PEPMONITORLG 144: external PEPMONITORLGALL 145: external PEPMONITORCONVERGED 146: external PEPMONITORFIRST 148: ! 149: ! End of Fortran include file for the PEP package in SLEPc 150: !