1: #define PETSC_USE_FORTRAN_MODULES

  3:         module petscmatdefdummy
  4:         use petscvecdef
  5: #include <../src/mat/f90-mod/petscmat.h>
  6:         end module

  8:         module petscmatdef
  9:         use petscmatdefdummy
 10:         interface operator(.ne.)
 11:           function matnotequal(A,B)
 12:             use petscmatdefdummy
 13:             logical matnotequal
 14:             type(tMat), intent(in) :: A,B
 15:           end function
 16:           function matfdcoloringnotequal(A,B)
 17:             use petscmatdefdummy
 18:             logical matfdcoloringnotequal
 19:             type(tMatFDColoring), intent(in) :: A,B
 20:           end function
 21:         end interface operator (.ne.)
 22:         interface operator(.eq.)
 23:           function matequals(A,B)
 24:             use petscmatdefdummy
 25:             logical matequals
 26:             type(tMat), intent(in) :: A,B
 27:           end function
 28:           function matfdcoloringequals(A,B)
 29:             use petscmatdefdummy
 30:             logical matfdcoloringequals
 31:             type(tMatFDColoring), intent(in) :: A,B
 32:           end function
 33:         end interface operator (.eq.)
 34:         end module

 36:         function matnotequal(A,B)
 37:           use petscmatdefdummy
 38:           logical matnotequal
 39:           type(tMat), intent(in) :: A,B
 40:           matnotequal = (A%v .ne. B%v)
 41:         end function

 43:        function matequals(A,B)
 44:           use petscmatdefdummy
 45:           logical matequals
 46:           type(tMat), intent(in) :: A,B
 47:           matequals = (A%v .eq. B%v)
 48:         end function

 50:         function matfdcoloringnotequal(A,B)
 51:           use petscmatdefdummy
 52:           logical matfdcoloringnotequal
 53:           type(tMatFDColoring), intent(in) :: A,B
 54:           matfdcoloringnotequal = (A%v .ne. B%v)
 55:         end function

 57:         function matfdcoloringequals(A,B)
 58:           use petscmatdefdummy
 59:           logical matfdcoloringequals
 60:           type(tMatFDColoring), intent(in) :: A,B
 61:           matfdcoloringequals = (A%v .eq. B%v)
 62:         end function

 64:         module petscmat
 65:         use petscmatdef
 66:         use petscvec
 67: #include <../src/mat/f90-mod/petscmat.h90>
 68:         interface
 69: #include <../src/mat/f90-mod/ftn-auto-interfaces/petscmat.h90>
 70:         end interface
 71:         end module