Actual source code: petscsnesmod.F90

  1:         module petscsnesdefdummy
  2:         use petsckspdef
  3: #include <../src/snes/f90-mod/petscsnes.h>
  4: #include <../src/snes/f90-mod/petscsnesfas.h>
  5:         end module petscsnesdefdummy

  7:         module petscsnesdef
  8:         use petscsnesdefdummy
  9:         interface operator(.ne.)
 10:           function snesnotequal(A,B)
 11:             import tSNES
 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:             import tSNES
 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, only: tSNES
 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, only: tSNES
 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