Actual source code: petscdmmod.F
petsc-3.9.1 2018-04-29
3: module petscdmdefdummy
4: use petscmatdef
5: #include <../src/dm/f90-mod/petscdm.h>
6: end module
8: module petscdmlabeldef
9: use petscmatdef
10: #include <../src/dm/f90-mod/petscdmlabel.h>
11: end module
13: module petscdmdef
14: use petscdmdefdummy
15: use petscdmlabeldef
16: interface operator(.ne.)
17: function dmnotequal(A,B)
18: use petscdmdefdummy
19: logical dmnotequal
20: type(tDM), intent(in) :: A,B
21: end function
22: end interface operator (.ne.)
23: interface operator(.eq.)
24: function dmequals(A,B)
25: use petscdmdefdummy
26: logical dmequals
27: type(tDM), intent(in) :: A,B
28: end function
29: end interface operator (.eq.)
30: end module
32: function dmnotequal(A,B)
33: use petscdmdefdummy
34: logical dmnotequal
35: type(tDM), intent(in) :: A,B
36: dmnotequal = (A%v .ne. B%v)
37: end function
39: function dmequals(A,B)
40: use petscdmdefdummy
41: logical dmequals
42: type(tDM), intent(in) :: A,B
43: dmequals = (A%v .eq. B%v)
44: end function
46: module petscdmdadef
47: use petscdmdef
48: #include <../src/dm/f90-mod/petscdmda.h>
49: end module
51: module petscdmpatchdef
52: use petscdmdef
53: end module
55: module petscdmforestdef
56: use petscdmdef
57: end module
59: module petscdmplexdef
60: use petscdmdef
61: #include <../src/dm/f90-mod/petscdmplex.h>
62: end module
64: module petscdmnetworkdef
65: use petscdmplexdef
66: #include <../src/dm/f90-mod/petscdmnetwork.h>
67: end module
69: module petscdmlabel
70: use petscdmlabeldef
71: #include <../src/dm/f90-mod/petscdmlabel.h90>
72: interface
73: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdmlabel.h90>
74: end interface
75: end module
77: module petscdm
78: use petscdmdef
79: use petscmat
80: #include <../src/dm/f90-mod/petscdm.h90>
81: interface
82: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdm.h90>
83: end interface
84: end module
86: module petscdmda
87: use petscdmdadef
88: use petscdm
89: #include <../src/dm/f90-mod/petscdmda.h90>
90: interface
91: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdmda.h90>
92: end interface
93: end module
95: module petscdmpatch
96: use petscdmpatchdef
97: #include <../src/dm/f90-mod/petscdmpatch.h90>
98: interface
99: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdmpatch.h90>
100: end interface
101: end module
103: module petscdmforest
104: use petscdmforestdef
105: #include <../src/dm/f90-mod/petscdmforest.h90>
106: interface
107: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdmforest.h90>
108: end interface
109: end module
111: module petscdmplex
112: use petscdmlabel
113: use petscdmplexdef
114: #include <../src/dm/f90-mod/petscdmplex.h90>
115: interface
116: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdmplex.h90>
117: end interface
118: end module
120: module petscdmnetwork
121: use petscdmplex
122: #include <../src/dm/f90-mod/petscdmnetwork.h90>
123: interface
124: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdmnetwork.h90>
125: end interface
126: end module
128: module petscdt
129: use petscdmdef
130: #include <../src/dm/f90-mod/petscdt.h90>
131: interface
132: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdt.h90>
133: end interface
134: end module