1:       Interface
  2:        subroutine DMGetLabel(d,str,l,ierr)
  3:           use petscdmdef
  4:           DM,             intent(in)  :: d
  5:           character(*),   intent(in)  :: str
  6:           DMLabel,        intent(out) :: l
  7:           PetscErrorCode, intent(out) :: ierr
  8:        end Subroutine DMGetLabel
  9:       end Interface
 10:       Interface
 11:        subroutine DMGetLabelSize(d,str,l,ierr)
 12:           use petscdmdef
 13:           DM,             intent(in)  :: d
 14:           character(*),   intent(in)  :: str
 15:           PetscInt,       intent(out) :: l
 16:           PetscErrorCode, intent(out) :: ierr
 17:        end Subroutine DMGetLabelSize
 18:       end Interface
 19:       Interface
 20:        subroutine DMGetLabelValue(d,str,p,v,ierr)
 21:           use petscdmdef
 22:           DM,             intent(in)  :: d
 23:           character(*),   intent(in)  :: str
 24:           PetscInt,       intent(in)  :: p
 25:           PetscInt,       intent(out) :: v
 26:           PetscErrorCode, intent(out) :: ierr
 27:        end Subroutine DMGetLabelValue
 28:       end Interface
 29:       Interface
 30:        subroutine DMGetLabelIdIS(d,str,i,ierr)
 31:           use petscdmdef
 32:           use petscisdef
 33:           DM,             intent(in)  :: d
 34:           character(*),   intent(in)  :: str
 35:           IS,             intent(out) :: i
 36:           PetscErrorCode, intent(out) :: ierr
 37:        end Subroutine DMGetLabelIdIS
 38:       end Interface
 39:       Interface
 40:        subroutine DMSetLabelValue(d,str,p,v,ierr)
 41:           use petscdmdef
 42:           DM,             intent(in)  :: d
 43:           character(*),   intent(in)  :: str
 44:           PetscInt,       intent(in)  :: p,v
 45:           PetscErrorCode, intent(out) :: ierr
 46:        end Subroutine DMSetLabelValue
 47:       end Interface