Interface DMCompositeGetEntries
          Subroutine DMCompositeGetEntries1(dm1, d1, ierr)
            use, intrinsic :: ISO_C_binding
            import tDM
            DM dm1
            DM d1
            PetscErrorCode ierr
          End Subroutine

          Subroutine DMCompositeGetEntries2(dm1, d1, d2, ierr)
            use, intrinsic :: ISO_C_binding
            import tDM
            DM dm1
            DM d1, d2
            PetscErrorCode ierr
          End Subroutine

          Subroutine DMCompositeGetEntries3(dm1, d1, d2, d3, ierr)
            use, intrinsic :: ISO_C_binding
            import tDM
            DM dm1
            DM d1, d2, d3
            PetscErrorCode ierr
          End Subroutine

          Subroutine DMCompositeGetEntries4(dm1, d1, d2, d3, d4, ierr)
            use, intrinsic :: ISO_C_binding
            import tDM
            DM dm1
            PetscInt d2, d4
            DM d1, d3
            PetscErrorCode ierr
          End Subroutine
        End Interface

        Interface DMCompositeRestoreGlobalISs
          Subroutine DMCompositeRestoreGlobalISs(dm, iss, ierr)
            use, intrinsic :: ISO_C_binding
            import tDM, tIS
            DM dm
            IS, pointer :: iss(:)
            PetscErrorCode ierr
          End Subroutine
        End Interface

        Interface DMCompositeRestoreLocalISs
          Subroutine DMCompositeRestoreLocalISs(dm, iss, ierr)
            use, intrinsic :: ISO_C_binding
            import tDM, tIS
            DM dm
            IS, pointer :: iss(:)
            PetscErrorCode ierr
          End Subroutine
        End Interface