Actual source code: slepcmod.F
1: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2: ! SLEPc - Scalable Library for Eigenvalue Problem Computations
3: ! Copyright (c) 2002-2011, 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 slepcepsdef
48: use slepcst
49: use slepcip
50: #include "finclude/slepceps.h"
51: #include "finclude/ftn-custom/slepcepsdef.h90"
52: end module
54: module slepceps
55: use slepcepsdef
56: #include "finclude/slepceps.h90"
57: end module
59: module slepcsvddef
60: use slepcip
61: use slepceps
62: #include "finclude/slepcsvd.h"
63: #include "finclude/ftn-custom/slepcsvddef.h90"
64: end module
66: module slepcsvd
67: use slepcsvddef
68: #include "finclude/slepcsvd.h90"
69: end module
71: module slepcqepdef
72: use slepcip
73: use slepceps
74: #include "finclude/slepcqep.h"
75: #include "finclude/ftn-custom/slepcqepdef.h90"
76: end module
78: module slepcqep
79: use slepcqepdef
80: #include "finclude/slepcqep.h90"
81: end module