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 LME object in SLEPc 11: ! 12: #include "slepc/finclude/slepcsys.h" 13: #include "slepc/finclude/slepclme.h" 15: type tLME 16: PetscFortranAddr:: v PETSC_FORTRAN_TYPE_INITIALIZE 17: end type tLME 19: LME, parameter :: SLEPC_NULL_LME = tLME(0) 21: PetscEnum LME_CONVERGED_TOL 22: PetscEnum LME_DIVERGED_ITS 23: PetscEnum LME_DIVERGED_BREAKDOWN 24: PetscEnum LME_CONVERGED_ITERATING 26: parameter (LME_CONVERGED_TOL = 1) 27: parameter (LME_DIVERGED_ITS = -1) 28: parameter (LME_DIVERGED_BREAKDOWN = -2) 29: parameter (LME_CONVERGED_ITERATING = 0) 31: PetscEnum LME_LYAPUNOV 32: PetscEnum LME_SYLVESTER 33: PetscEnum LME_GEN_LYAPUNOV 34: PetscEnum LME_GEN_SYLVESTER 35: PetscEnum LME_DT_LYAPUNOV 36: PetscEnum LME_STEIN 38: parameter (LME_LYAPUNOV = 0) 39: parameter (LME_SYLVESTER = 1) 40: parameter (LME_GEN_LYAPUNOV = 2) 41: parameter (LME_GEN_SYLVESTER = 3) 42: parameter (LME_DT_LYAPUNOV = 4) 43: parameter (LME_STEIN = 5) 45: ! 46: ! Possible arguments to LMEMonitorSet() 47: ! 48: external LMEMONITORDEFAULT 49: external LMEMONITORLG 51: ! 52: ! End of Fortran include file for the LME package in SLEPc 53: !