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