Actual source code: petsctsmod.F
petsc-3.9.4 2018-09-11
2: module petsctsdefdummy
3: use petscsnesdef
4: #include <../src/ts/f90-mod/petscts.h>
5: end module
7: module petsctsdef
8: use petsctsdefdummy
9: interface operator(.ne.)
10: function tsnotequal(A,B)
11: use petsctsdefdummy
12: logical tsnotequal
13: type(tTS), intent(in) :: A,B
14: end function
15: function tsadaptnotequal(A,B)
16: use petsctsdefdummy
17: logical tsadaptnotequal
18: type(tTSAdapt), intent(in) :: A,B
19: end function
20: function tstrajectorynotequal(A,B)
21: use petsctsdefdummy
22: logical tstrajectorynotequal
23: type(tTSTrajectory), intent(in) :: A,B
24: end function
25: end interface operator (.ne.)
26: interface operator(.eq.)
27: function tsequals(A,B)
28: use petsctsdefdummy
29: logical tsequals
30: type(tTS), intent(in) :: A,B
31: end function
32: function tsadaptequals(A,B)
33: use petsctsdefdummy
34: logical tsadaptequals
35: type(tTSAdapt), intent(in) :: A,B
36: end function
37: function tstrajectoryequals(A,B)
38: use petsctsdefdummy
39: logical tstrajectoryequals
40: type(tTSTrajectory), intent(in) :: A,B
41: end function
42: end interface operator (.eq.)
43: end module
45: function tsnotequal(A,B)
46: use petsctsdefdummy
47: logical tsnotequal
48: type(tTS), intent(in) :: A,B
49: tsnotequal = (A%v .ne. B%v)
50: end function
52: function tsequals(A,B)
53: use petsctsdefdummy
54: logical tsequals
55: type(tTS), intent(in) :: A,B
56: tsequals = (A%v .eq. B%v)
57: end function
59: function tsadaptnotequal(A,B)
60: use petsctsdefdummy
61: logical tsadaptnotequal
62: type(tTSAdapt), intent(in) :: A,B
63: tsadaptnotequal = (A%v .ne. B%v)
64: end function
66: function tsadaptequals(A,B)
67: use petsctsdefdummy
68: logical tsadaptequals
69: type(tTSAdapt), intent(in) :: A,B
70: tsadaptequals = (A%v .eq. B%v)
71: end function
73: function tstrajectorynotequal(A,B)
74: use petsctsdefdummy
75: logical tstrajectorynotequal
76: type(tTSTrajectory), intent(in) :: A,B
77: tstrajectorynotequal = (A%v .ne. B%v)
78: end function
80: function tstrajectoryequals(A,B)
81: use petsctsdefdummy
82: logical tstrajectoryequals
83: type(tTSTrajectory), intent(in) :: A,B
84: tstrajectoryequals = (A%v .eq. B%v)
85: end function
87: module petscts
88: use petsctsdef
89: use petscsnes
90: #include <../src/ts/f90-mod/petscts.h90>
91: interface
92: #include <../src/ts/f90-mod/ftn-auto-interfaces/petscts.h90>
93: end interface
94: end module