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