Actual source code: petscsnesmod.F
petsc-3.9.4 2018-09-11
2: module petscsnesdefdummy
3: use petsckspdef
4: #include <../src/snes/f90-mod/petscsnes.h>
5: end module
7: module petscsnesdef
8: use petscsnesdefdummy
9: interface operator(.ne.)
10: function snesnotequal(A,B)
11: use petscsnesdefdummy
12: logical snesnotequal
13: type(tSNES), intent(in) :: A,B
14: end function
15: end interface operator (.ne.)
16: interface operator(.eq.)
17: function snesequals(A,B)
18: use petscsnesdefdummy
19: logical snesequals
20: type(tSNES), intent(in) :: A,B
21: end function
22: end interface operator (.eq.)
23: end module
25: function snesnotequal(A,B)
26: use petscsnesdefdummy
27: logical snesnotequal
28: type(tSNES), intent(in) :: A,B
29: snesnotequal = (A%v .ne. B%v)
30: end function
32: function snesequals(A,B)
33: use petscsnesdefdummy
34: logical snesequals
35: type(tSNES), intent(in) :: A,B
36: snesequals = (A%v .eq. B%v)
37: end function
39: module petscsnes
40: use petscsnesdef
41: use petscksp
42: #include <../src/snes/f90-mod/petscsnes.h90>
43: interface
44: #include <../src/snes/f90-mod/ftn-auto-interfaces/petscsnes.h90>
45: end interface
46: end module