Actual source code: petsckspdefmod.F
petsc-3.11.4 2019-09-28
2: module petscpcdefdummy
3: use petscdmdef
4: use petscmatdef
5: #include <../src/ksp/f90-mod/petscpc.h>
6: end module
8: module petscpcdef
9: use petscpcdefdummy
10: interface operator(.ne.)
11: function pcnotequal(A,B)
12: use petscpcdefdummy
13: logical pcnotequal
14: type(tPC), intent(in) :: A,B
15: end function
16: end interface operator (.ne.)
17: interface operator(.eq.)
18: function pcequals(A,B)
19: use petscpcdefdummy
20: logical pcequals
21: type(tPC), intent(in) :: A,B
22: end function
23: end interface operator (.eq.)
24: end module
26: function pcnotequal(A,B)
27: use petscpcdefdummy
28: logical pcnotequal
29: type(tPC), intent(in) :: A,B
30: pcnotequal = (A%v .ne. B%v)
31: end function
33: function pcequals(A,B)
34: use petscpcdefdummy
35: logical pcequals
36: type(tPC), intent(in) :: A,B
37: pcequals = (A%v .eq. B%v)
38: end function
40: module petsckspdefdummy
41: use petscpcdef
42: #include <../src/ksp/f90-mod/petscksp.h>
43: end module
45: module petsckspdef
46: use petsckspdefdummy
47: interface operator(.ne.)
48: function kspnotequal(A,B)
49: use petsckspdefdummy
50: logical kspnotequal
51: type(tKSP), intent(in) :: A,B
52: end function
53: end interface operator (.ne.)
54: interface operator(.eq.)
55: function kspequals(A,B)
56: use petsckspdefdummy
57: logical kspequals
58: type(tKSP), intent(in) :: A,B
59: end function
60: end interface operator (.eq.)
61: end module
63: function kspnotequal(A,B)
64: use petsckspdefdummy
65: logical kspnotequal
66: type(tKSP), intent(in) :: A,B
67: kspnotequal = (A%v .ne. B%v)
68: end function
70: function kspequals(A,B)
71: use petsckspdefdummy
72: logical kspequals
73: type(tKSP), intent(in) :: A,B
74: kspequals = (A%v .eq. B%v)
75: end function