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