      integer
     &    MAXCON,
     &    MAXLAB

      parameter
     &  ( MAXCON =  100,
     &    MAXLAB = 1000 )

      integer
     &    laslab,
     &    laslin,
     &    linlen(MAXCON)

      integer*4
     &    labels(MAXLAB)

      common / rennum / linlen, labels, laslab, laslin

      character
     &    buf(MAXCON)*149	! 132 + 4*4 + 1

      common / renbuf / buf
