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