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 SVD object in SLEPc 11: ! 12: #include "slepc/finclude/slepcsvd.h" 14: type tSVD 15: PetscFortranAddr:: v 16: end type tSVD 18: PetscEnum SVD_CONVERGED_TOL 19: PetscEnum SVD_CONVERGED_USER 20: PetscEnum SVD_DIVERGED_ITS 21: PetscEnum SVD_DIVERGED_BREAKDOWN 22: PetscEnum SVD_CONVERGED_ITERATING 24: parameter (SVD_CONVERGED_TOL = 1) 25: parameter (SVD_CONVERGED_USER = 2) 26: parameter (SVD_DIVERGED_ITS = -1) 27: parameter (SVD_DIVERGED_BREAKDOWN = -2) 28: parameter (SVD_CONVERGED_ITERATING = 0) 30: integer SVD_LARGEST 31: integer SVD_SMALLEST 33: parameter (SVD_LARGEST = 0) 34: parameter (SVD_SMALLEST = 1) 36: PetscEnum SVD_ERROR_ABSOLUTE 37: PetscEnum SVD_ERROR_RELATIVE 39: parameter (SVD_ERROR_ABSOLUTE = 0) 40: parameter (SVD_ERROR_RELATIVE = 1) 42: PetscEnum SVD_CONV_ABS 43: PetscEnum SVD_CONV_REL 44: PetscEnum SVD_CONV_USER 46: parameter (SVD_CONV_ABS = 0) 47: parameter (SVD_CONV_REL = 1) 48: parameter (SVD_CONV_USER = 2) 50: PetscEnum SVD_STOP_BASIC 51: PetscEnum SVD_STOP_USER 53: parameter (SVD_STOP_BASIC = 0) 54: parameter (SVD_STOP_USER = 1) 56: PetscEnum SVD_PRIMME_HYBRID 57: PetscEnum SVD_PRIMME_NORMALEQUATIONS 58: PetscEnum SVD_PRIMME_AUGMENTED 60: parameter (SVD_PRIMME_HYBRID = 1) 61: parameter (SVD_PRIMME_NORMALEQUATIONS = 2) 62: parameter (SVD_PRIMME_AUGMENTED = 3) 64: ! 65: ! Possible arguments to SVDMonitorSet() 66: ! 67: external SVDMONITORALL 68: external SVDMONITORLG 69: external SVDMONITORLGALL 70: external SVDMONITORCONVERGED 71: external SVDMONITORFIRST 73: ! 74: ! End of Fortran include file for the SVD package in SLEPc 75: !