Actual source code: slepcsvd.h
1: !
2: ! Include file for Fortran use of the SVD object in SLEPc
3: !
4: !
5: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
6: ! SLEPc - Scalable Library for Eigenvalue Problem Computations
7: ! Copyright (c) 2002-2012, Universitat Politecnica de Valencia, Spain
8: !
9: ! This file is part of SLEPc.
10: !
11: ! SLEPc is free software: you can redistribute it and/or modify it under the
12: ! terms of version 3 of the GNU Lesser General Public License as published by
13: ! the Free Software Foundation.
14: !
15: ! SLEPc is distributed in the hope that it will be useful, but WITHOUT ANY
16: ! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
17: ! FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for
18: ! more details.
19: !
20: ! You should have received a copy of the GNU Lesser General Public License
21: ! along with SLEPc. If not, see <http://www.gnu.org/licenses/>.
22: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
23: !
24: #include finclude/slepcsvddef.h
26: ! Convergence flags.
27: ! They sould match the flags in $SLEPC_DIR/include/slepcsvd.h
29: PetscEnum SVD_CONVERGED_TOL
30: PetscEnum SVD_DIVERGED_ITS
31: PetscEnum SVD_DIVERGED_BREAKDOWN
32: PetscEnum SVD_CONVERGED_ITERATING
34: parameter (SVD_CONVERGED_TOL = 2)
35: parameter (SVD_DIVERGED_ITS = -3)
36: parameter (SVD_DIVERGED_BREAKDOWN = -4)
37: parameter (SVD_CONVERGED_ITERATING = 0)
39: PetscEnum SVD_TRANSPOSE_EXPLICIT
40: PetscEnum SVD_TRANSPOSE_IMPLICIT
42: parameter (SVD_TRANSPOSE_EXPLICIT = 0)
43: parameter (SVD_TRANSPOSE_IMPLICIT = 1)
44:
45: integer SVD_LARGEST
46: integer SVD_SMALLEST
48: parameter (SVD_LARGEST = 0)
49: parameter (SVD_SMALLEST = 1)
51: !
52: ! Possible arguments to SVDMonitorSet()
53: !
54: external SVDMONITORALL
55: external SVDMONITORLG
56: external SVDMONITORLGALL
57: external SVDMONITORCONVERGED
58: external SVDMONITORFIRST
60: !
61: ! End of Fortran include file for the SVD package in SLEPc
62: !