Actual source code: petsctsmod.F90
2: module petsctsdefdummy
3: use petscsnesdef
4: #include <../src/ts/f90-mod/petscts.h>
5: end module petsctsdefdummy
7: module petsctsdef
8: use petsctsdefdummy
9: interface operator(.ne.)
10: function tsnotequal(A,B)
11: import tTS
12: logical tsnotequal
13: type(tTS), intent(in) :: A,B
14: end function
15: function tsadaptnotequal(A,B)
16: import tTSAdapt
17: logical tsadaptnotequal
18: type(tTSAdapt), intent(in) :: A,B
19: end function
20: function tstrajectorynotequal(A,B)
21: import tTSTrajectory
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: import tTS
29: logical tsequals
30: type(tTS), intent(in) :: A,B
31: end function
32: function tsadaptequals(A,B)
33: import tTSAdapt
34: logical tsadaptequals
35: type(tTSAdapt), intent(in) :: A,B
36: end function
37: function tstrajectoryequals(A,B)
38: import tTSTrajectory
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, only: tTS
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, only: tTS
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, only: tTSAdapt
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, only: tTSAdapt
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, only: tTSTrajectory
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, only: tTSTrajectory
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: #include <../src/ts/f90-mod/ftn-auto-interfaces/petscsensitivity.h90>
94: end interface
95: end module