integer
     $      id_tuple,                            ! ntuple ID number
     $      ltuple,                              ! length of ntuple
     $      current_run                          ! current run number

       parameter(
     $      id_tuple = 2,
     $        ltuple = 7)

       character*8
     $      tags_tuple(ltuple)                   ! ntuple varable names
       real
     $      tuple(ltuple)                        ! storage for ntuple entries
       
       data tags_tuple 
     $      /'run', 'endx', 'lay', 'sec', 
     $       'nm',  'tm',   'etm'/

      integer
     $     mlay,                ! maximum number of layers
     $     msec,                ! maximum number of sectors
     $     mlen                 ! total dimension

      parameter(
     $     mlay = 19,           ! maximum number of layers
     $     msec = 24,           ! maximum number of sectors
     $	   mlen = 2*mlay*msec)  ! total dimension

      real
     $      nm(2,mlay,msec),    ! number of entries
     $      tm(2,mlay,msec),    ! average time
     $     etm(2,mlay,msec)     ! average time**2

	common /user_twalk/
     $     tuple, 
     $     current_run,
     $     nm, tm, etm