Actual source code: petscmod.F
1: #define PETSC_USE_FORTRAN_MODULES
3: #include "finclude/petscalldef.h"
5: module petscdef
6: #if defined(PETSC_HAVE_MPI_F90MODULE)
7: use mpi
8: #define PETSC_AVOID_MPIF_H
9: #endif
10: #include "finclude/petsc.h"
11: #include "finclude/petscviewer.h"
12: #include "finclude/ftn-custom/petscviewerdef.h90"
13: #include "finclude/petscdraw.h"
14: #include "finclude/petsclog.h"
15: end module
17: module petsc
18: use petscdef
19: #include "finclude/petscviewer.h90"
20: end module
22: module petscsys
23: use petsc
24: #include "finclude/petscsys.h"
25: end module
27: module petscisdef
28: use petsc
29: #include "finclude/petscis.h"
30: #include "finclude/ftn-custom/petscisdef.h90"
31: end module
33: module petscis
34: use petscisdef
35: #include "finclude/petscis.h90"
36: end module
38: module petscvecdef
39: use petscis
40: #include "finclude/petscvec.h"
41: #include "finclude/ftn-custom/petscvecdef.h90"
42: end module
44: module petscvec
45: use petscvecdef
46: #include "finclude/petscvec.h90"
47: end module
49: module petscmatdef
50: use petscvec
51: #include "finclude/petscmat.h"
52: #include "finclude/ftn-custom/petscmatdef.h90"
53: end module
55: module petscmat
56: use petscmatdef
57: #include "finclude/petscmat.h90"
58: end module
60: module petscao
61: use petscmat
62: #include "finclude/petscao.h"
63: end module
65: module petscpcdef
66: use petscmat
67: #include "finclude/petscpc.h"
68: #include "finclude/ftn-custom/petscpcdef.h90"
69: end module
71: module petscpc
72: use petscpcdef
73: #include "finclude/petscpc.h90"
74: end module
76: module petsckspdef
77: use petscpc
78: #include "finclude/petscksp.h"
79: #include "finclude/ftn-custom/petsckspdef.h90"
80: end module
82: module petscksp
83: use petsckspdef
84: #include "finclude/petscksp.h90"
85: end module
87: module petscmgdef
88: use petscksp
89: #include "finclude/petscmg.h"
90: end module
92: module petscmg
93: use petscmgdef
94: end module
96: module petscdadef
97: use petscksp
98: #include "finclude/petscda.h"
99: #include "finclude/ftn-custom/petscdadef.h90"
100: end module
102: module petscda
103: use petscdadef
104: #include "finclude/petscda.h90"
105: end module
108: module petscsnesdef
109: use petscksp
110: #include "finclude/petscsnes.h"
111: #include "finclude/ftn-custom/petscsnesdef.h90"
112: end module
114: module petscsnes
115: use petscsnesdef
116: #include "finclude/petscsnes.h90"
117: end module
119: module petsctsdef
120: use petscsnes
121: #include "finclude/petscts.h"
122: #include "finclude/ftn-custom/petsctsdef.h90"
123: end module
125: module petscts
126: use petsctsdef
127: #include "finclude/petscts.h90"
128: end module