Actual source code: petscsnesmod.F
petsc-3.10.5 2019-03-28
Report Typos and Errors

      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