Subversion Repositories slepc-dev

Rev

Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1672 slepc 1 
!  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2 
!  SLEPc - Scalable Library for Eigenvalue Problem Computations
3 
!  Copyright (c) 2002-2009, Universidad 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 
!  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
19 
 
1553 slepc 20 
#define PETSC_USE_FORTRAN_MODULES
21 
 
1564 slepc 22 
#include "finclude/petscalldef.h"
1553 slepc 23 
#include "finclude/slepcalldef.h"
24 
 
25 
        module slepcstdef
26 
        use petscksp
27 
#include "finclude/slepcst.h"
28 
#include "finclude/ftn-custom/slepcstdef.h90"
29 
        end module
30 
 
31 
        module slepcst
32 
        use slepcstdef
33 
#include "finclude/slepcst.h90"
34 
        end module
35 
 
36 
        module slepcipdef
37 
        use petsc
38 
#include "finclude/slepcip.h"
39 
#include "finclude/ftn-custom/slepcipdef.h90"
40 
        end module
41 
 
42 
        module slepcip
43 
        use slepcipdef
44 
#include "finclude/slepcip.h90"
45 
        end module
46 
 
47 
        module slepcepsdef
48 
        use slepcst
49 
        use slepcip
50 
#include "finclude/slepceps.h"
51 
#include "finclude/ftn-custom/slepcepsdef.h90"
52 
        end module
53 
 
54 
        module slepceps
55 
        use slepcepsdef
56 
#include "finclude/slepceps.h90"
57 
        end module
58 
 
59 
        module slepcsvddef
60 
        use slepcip
61 
        use slepceps
62 
#include "finclude/slepcsvd.h"
63 
#include "finclude/ftn-custom/slepcsvddef.h90"
64 
        end module
65 
 
66 
        module slepcsvd
67 
        use slepcsvddef
68 
#include "finclude/slepcsvd.h90"
69 
        end module