Actual source code: slepcds.h
1: !
2: ! Include file for Fortran use of the DS 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/slepcdsdef.h
26: PetscEnum DS_STATE_RAW
27: PetscEnum DS_STATE_INTERMEDIATE
28: PetscEnum DS_STATE_CONDENSED
29: PetscEnum DS_STATE_TRUNCATED
30:
31: parameter (DS_STATE_RAW = 0)
32: parameter (DS_STATE_INTERMEDIATE = 1)
33: parameter (DS_STATE_CONDENSED = 2)
34: parameter (DS_STATE_TRUNCATED = 3)
36: PetscEnum DS_MAT_A
37: PetscEnum DS_MAT_B
38: PetscEnum DS_MAT_C
39: PetscEnum DS_MAT_T
40: PetscEnum DS_MAT_D
41: PetscEnum DS_MAT_Q
42: PetscEnum DS_MAT_Z
43: PetscEnum DS_MAT_X
44: PetscEnum DS_MAT_Y
45: PetscEnum DS_MAT_U
46: PetscEnum DS_MAT_VT
47: PetscEnum DS_MAT_W
48: PetscEnum DS_NUM_MAT
50: parameter (DS_MAT_A = 0)
51: parameter (DS_MAT_B = 1)
52: parameter (DS_MAT_C = 2)
53: parameter (DS_MAT_T = 3)
54: parameter (DS_MAT_D = 4)
55: parameter (DS_MAT_Q = 5)
56: parameter (DS_MAT_Z = 6)
57: parameter (DS_MAT_X = 7)
58: parameter (DS_MAT_Y = 8)
59: parameter (DS_MAT_U = 9)
60: parameter (DS_MAT_VT = 10)
61: parameter (DS_MAT_W = 11)
62: parameter (DS_NUM_MAT = 12)
64: !
65: ! End of Fortran include file for the DS package in SLEPc
66: !