1:       Interface
  2:        subroutine DMGetStratumIS(d,str,v,i,ierr)
  3:           use petscdmdef
  4:           use petscisdef
  5:           type(tDM),      intent(in)  :: d
  6:           character(*),   intent(in)  :: str
  7:           PetscInt,       intent(in)  :: v
  8:           type(tIS),      intent(out) :: i
  9:           PetscErrorCode, intent(out) :: ierr
 10:        end Subroutine DMGetStratumIS
 11:        subroutine DMGetStratumSize(d,str,v,s,ierr)
 12:           use petscdmdef
 13:           type(tDM),      intent(in)  :: d
 14:           character(*),   intent(in)  :: str
 15:           PetscInt,       intent(in)  :: v
 16:           PetscInt,       intent(out) :: s
 17:           PetscErrorCode, intent(out) :: ierr
 18:        end Subroutine DMGetStratumSize
 19:       end Interface