Date: 2025-03-28T21:11:07+00:00

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/petscsneslinesearch.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