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

      2:         module petscpcdefdummy
      3:         use petscdmdef
      4:         use petscmatdef
      5: #include <../src/ksp/f90-mod/petscpc.h>
      6:         end module

      8:         module petscpcdef
      9:         use petscpcdefdummy
     10:         interface operator(.ne.)
     11:           function pcnotequal(A,B)
     12:             use petscpcdefdummy
     13:             logical pcnotequal
     14:             type(tPC), intent(in) :: A,B
     15:           end function
     16:         end interface operator (.ne.)
     17:         interface operator(.eq.)
     18:           function pcequals(A,B)
     19:             use petscpcdefdummy
     20:             logical pcequals
     21:             type(tPC), intent(in) :: A,B
     22:           end function
     23:         end interface operator (.eq.)
     24:         end module

     26:         function pcnotequal(A,B)
     27:           use petscpcdefdummy
     28:           logical pcnotequal
     29:           type(tPC), intent(in) :: A,B
     30:           pcnotequal = (A%v .ne. B%v)
     31:         end function

     33:         function pcequals(A,B)
     34:           use petscpcdefdummy
     35:           logical pcequals
     36:           type(tPC), intent(in) :: A,B
     37:           pcequals = (A%v .eq. B%v)
     38:         end function

     40:         module petsckspdefdummy
     41:         use petscpcdef
     42: #include <../src/ksp/f90-mod/petscksp.h>
     43:         end module

     45:         module petsckspdef
     46:         use petsckspdefdummy
     47:         interface operator(.ne.)
     48:           function kspnotequal(A,B)
     49:             use petsckspdefdummy
     50:             logical kspnotequal
     51:             type(tKSP), intent(in) :: A,B
     52:           end function
     53:         end interface operator (.ne.)
     54:         interface operator(.eq.)
     55:           function kspequals(A,B)
     56:             use petsckspdefdummy
     57:             logical kspequals
     58:             type(tKSP), intent(in) :: A,B
     59:           end function
     60:         end interface operator (.eq.)
     61:         end module

     63:         function kspnotequal(A,B)
     64:           use petsckspdefdummy
     65:           logical kspnotequal
     66:           type(tKSP), intent(in) :: A,B
     67:           kspnotequal = (A%v .ne. B%v)
     68:         end function

     70:         function kspequals(A,B)
     71:           use petsckspdefdummy
     72:           logical kspequals
     73:           type(tKSP), intent(in) :: A,B
     74:           kspequals = (A%v .eq. B%v)
     75:         end function