Actual source code: petscdmmod.F
petsc-3.10.3 2018-12-18
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 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