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