Actual source code: petscdmmod.F
petsc-3.9.4 2018-09-11
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
60: module petscdmlabel
61: use petscdmlabeldef
62: #include <../src/dm/f90-mod/petscdmlabel.h90>
63: interface
64: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdmlabel.h90>
65: end interface
66: end module
68: module petscdm
69: use petscdmdef
70: use petscmat
71: #include <../src/dm/f90-mod/petscdm.h90>
72: interface
73: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdm.h90>
74: end interface
75: end module
77: module petscdmda
78: use petscdmdadef
79: use petscdm
80: #include <../src/dm/f90-mod/petscdmda.h90>
81: interface
82: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdmda.h90>
83: end interface
84: end module
86: module petscdmpatch
87: use petscdmpatchdef
88: #include <../src/dm/f90-mod/petscdmpatch.h90>
89: interface
90: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdmpatch.h90>
91: end interface
92: end module
94: module petscdmforest
95: use petscdmforestdef
96: #include <../src/dm/f90-mod/petscdmforest.h90>
97: interface
98: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdmforest.h90>
99: end interface
100: end module
103: module petscdt
104: use petscdmdef
105: #include <../src/dm/f90-mod/petscdt.h90>
106: interface
107: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdt.h90>
108: end interface
109: end module