Actual source code: petscdmmod.F

petsc-3.11.4 2019-09-28
Report Typos and Errors


  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 petscdmpatchdef
 47:         use petscdmdef
 48:         end module

 50:         module petscdmforestdef
 51:         use petscdmdef
 52:         end module


 55:         module petscdmlabel
 56:         use petscdmlabeldef
 57: #include <../src/dm/f90-mod/petscdmlabel.h90>
 58:         interface
 59: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdmlabel.h90>
 60:         end interface
 61:         end module

 63:         module petscdm
 64:         use petscdmdef
 65:         use petscmat
 66: #include <../src/dm/f90-mod/petscdm.h90>
 67:         interface
 68: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdm.h90>
 69:         end interface
 70:         end module

 72:         module petscdmpatch
 73:         use petscdmpatchdef
 74: #include <../src/dm/f90-mod/petscdmpatch.h90>
 75:         interface
 76: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdmpatch.h90>
 77:         end interface
 78:         end module

 80:         module petscdmforest
 81:         use petscdmforestdef
 82: #include <../src/dm/f90-mod/petscdmforest.h90>
 83:         interface
 84: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdmforest.h90>
 85:         end interface
 86:         end module


 89:         module petscdt
 90:         use petscdmdef
 91: #include <../src/dm/f90-mod/petscdt.h90>
 92:         interface
 93: #include <../src/dm/f90-mod/ftn-auto-interfaces/petscdt.h90>
 94:         end interface
 95:         end module