subroutine dostat (lab)
      integer lab
      call indent (-1)
      call outcon (lab)
      call outcon (lab + 1)
      return
      end