2:         module petscsysdefdummy
  3: #include <petscconf.h>
  4: #if defined(PETSC_HAVE_MPI_F90MODULE) || defined(PETSC_HAVE_MPIUNI)
  5:         use mpi
  6: #define PETSC_AVOID_MPIF_H
  7: #endif
  8: #include <../src/sys/f90-mod/petscsys.h>
  9: #include <../src/sys/f90-mod/petscdraw.h>
 10: #include <../src/sys/f90-mod/petscviewer.h>
 11:         end module

 13:         module petscsysdef
 14:         use petscsysdefdummy
 15:         interface operator(.ne.)
 16:           function petscviewernotequal(A,B)
 17:             use petscsysdefdummy
 18:             logical petscviewernotequal
 19:             type(tPetscViewer), intent(in) :: A,B
 20:           end function
 21:         end interface operator (.ne.)
 22:         interface operator(.eq.)
 23:           function petscviewerequals(A,B)
 24:             use petscsysdefdummy
 25:             logical petscviewerequals
 26:             type(tPetscViewer), intent(in) :: A,B
 27:           end function
 28:         end interface operator (.eq.)
 29:         end module

 31:         function petscviewernotequal(A,B)
 32:           use petscsysdefdummy
 33:           logical petscviewernotequal
 34:           type(tPetscViewer), intent(in) :: A,B
 35:           petscviewernotequal = (A%v .ne. B%v)
 36:         end function

 38:         function petscviewerequals(A,B)
 39:           use petscsysdefdummy
 40:           logical petscviewerequals
 41:           type(tPetscViewer), intent(in) :: A,B
 42:           petscviewerequals = (A%v .eq. B%v)
 43:         end function

 45:         module petscsys
 46:         use petscsysdef
 47: #include <../src/sys/f90-mod/petscsys.h90>
 48:         interface
 49: #include <../src/sys/f90-mod/ftn-auto-interfaces/petscsys.h90>
 50:         end interface
 51:         end module