3:         module petscdmdefdummy
  4:         use petscmatdef
  5: #include <../src/dm/f90-mod/petscdm.h>
  6:         end module

  8:         module petscdmlabeldef
  9:         use petscmatdef
 10: #include <../src/dm/f90-mod/petscdmlabel.h>
 11:         end module

 13:         module petscdmdef
 14:         use petscdmdefdummy
 15:         use petscdmlabeldef
 16:         interface operator(.ne.)
 17:           function dmnotequal(A,B)
 18:             use petscdmdefdummy
 19:             logical dmnotequal
 20:             type(tDM), intent(in) :: A,B
 21:           end function
 22:         end interface operator (.ne.)
 23:         interface operator(.eq.)
 24:           function dmequals(A,B)
 25:             use petscdmdefdummy
 26:             logical dmequals
 27:             type(tDM), intent(in) :: A,B
 28:           end function
 29:         end interface operator (.eq.)
 30:         end module

 32:         function dmnotequal(A,B)
 33:           use petscdmdefdummy
 34:           logical dmnotequal
 35:           type(tDM), intent(in) :: A,B
 36:           dmnotequal = (A%v .ne. B%v)
 37:         end function

 39:         function dmequals(A,B)
 40:           use petscdmdefdummy
 41:           logical dmequals
 42:           type(tDM), intent(in) :: A,B
 43:           dmequals = (A%v .eq. B%v)
 44:         end function

 46:         module petscdmdadef
 47:         use petscdmdef
 48: #include <../src/dm/f90-mod/petscdmda.h>
 49:         end module

 51:         module petscdmpatchdef
 52:         use petscdmdef
 53:         end module

 55:         module petscdmforestdef
 56:         use petscdmdef
 57:         end module


 60:         module petscdmlabel
 61:         use petscdmlabeldef
 62: #include <../src/dm/f90-mod/petscdmlabel.h90>
 63:         interface
 64: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdmlabel.h90>
 65:         end interface
 66:         end module

 68:         module petscdm
 69:         use petscdmdef
 70:         use petscmat
 71: #include <../src/dm/f90-mod/petscdm.h90>
 72:         interface
 73: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdm.h90>
 74:         end interface
 75:         end module

 77:         module petscdmda
 78:         use petscdmdadef
 79:         use petscdm
 80: #include <../src/dm/f90-mod/petscdmda.h90>
 81:         interface
 82: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdmda.h90>
 83:         end interface
 84:         end module

 86:         module petscdmpatch
 87:         use petscdmpatchdef
 88: #include <../src/dm/f90-mod/petscdmpatch.h90>
 89:         interface
 90: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdmpatch.h90>
 91:         end interface
 92:         end module

 94:         module petscdmforest
 95:         use petscdmforestdef
 96: #include <../src/dm/f90-mod/petscdmforest.h90>
 97:         interface
 98: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdmforest.h90>
 99:         end interface
100:         end module


103:         module petscdt
104:         use petscdmdef
105: #include <../src/dm/f90-mod/petscdt.h90>
106:         interface
107: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdt.h90>
108:         end interface
109:         end module