Actual source code: petscdmmod.F
petsc-3.10.5 2019-03-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