Actual source code: slepcmod.F
1: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2: ! SLEPc - Scalable Library for Eigenvalue Problem Computations
3: ! Copyright (c) 2002-2013, Universitat Politecnica de Valencia, Spain
4: !
5: ! This file is part of SLEPc.
6: !
7: ! SLEPc is free software: you can redistribute it and/or modify it under the
8: ! terms of version 3 of the GNU Lesser General Public License as published by
9: ! the Free Software Foundation.
10: !
11: ! SLEPc is distributed in the hope that it will be useful, but WITHOUT ANY
12: ! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
13: ! FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for
14: ! more details.
15: !
16: ! You should have received a copy of the GNU Lesser General Public License
17: ! along with SLEPc. If not, see <http://www.gnu.org/licenses/>.
18: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
20: #define PETSC_USE_FORTRAN_MODULES
22: #include "finclude/petscdef.h"
23: #include "finclude/slepcdef.h"
25: module slepcstdef
26: use petscksp
27: #include "finclude/slepcst.h"
28: #include "finclude/ftn-custom/slepcstdef.h90"
29: end module
31: module slepcst
32: use slepcstdef
33: #include "finclude/slepcst.h90"
34: end module
36: module slepcipdef
37: use petscsys
38: #include "finclude/slepcip.h"
39: #include "finclude/ftn-custom/slepcipdef.h90"
40: end module
42: module slepcip
43: use slepcipdef
44: #include "finclude/slepcip.h90"
45: end module
47: module slepcdsdef
48: use petscsys
49: #include "finclude/slepcds.h"
50: #include "finclude/ftn-custom/slepcdsdef.h90"
51: end module
53: module slepcds
54: use slepcdsdef
55: #include "finclude/slepcds.h90"
56: end module
58: module slepcepsdef
59: use slepcst
60: use slepcip
61: use slepcds
62: #include "finclude/slepceps.h"
63: #include "finclude/ftn-custom/slepcepsdef.h90"
64: end module
66: module slepceps
67: use slepcepsdef
68: #include "finclude/slepceps.h90"
69: end module
71: module slepcsvddef
72: use slepcip
73: use slepceps
74: #include "finclude/slepcsvd.h"
75: #include "finclude/ftn-custom/slepcsvddef.h90"
76: end module
78: module slepcsvd
79: use slepcsvddef
80: #include "finclude/slepcsvd.h90"
81: end module
83: module slepcqepdef
84: use slepcip
85: use slepceps
86: #include "finclude/slepcqep.h"
87: #include "finclude/ftn-custom/slepcqepdef.h90"
88: end module
90: module slepcqep
91: use slepcqepdef
92: #include "finclude/slepcqep.h90"
93: end module
95: module slepcnepdef
96: use slepcip
97: use slepceps
98: #include "finclude/slepcnep.h"
99: #include "finclude/ftn-custom/slepcnepdef.h90"
100: end module
102: module slepcnep
103: use slepcnepdef
104: #include "finclude/slepcnep.h90"
105: end module
107: module slepcmfndef
108: use slepcip
109: use slepcds
110: #include "finclude/slepcmfn.h"
111: #include "finclude/ftn-custom/slepcmfndef.h90"
112: end module
114: module slepcmfn
115: use slepcmfndef
116: #include "finclude/slepcmfn.h90"
117: end module