***************************************************************
*
*     common for data format
*
**************************************************************

      parameter (max_event_l=20000)
      integer*2 event_buffer(max_event_l)
      integer l_buffer
      common/event/event_buffer,l_buffer



      integer*2 header(16)      !header: 16 2-byte words
      integer*2 trailer(3)      !trailer: 3 2-byte words
      integer checkheader       !header control flag: 
                                ! =1 if some error occurred
                                ! =2 if Acquisition header, 
                                ! =3 if Calibration header 
      common/pkt_structure/header,checkheader,trailer

      integer DAQmode_cal       !
      integer DSPnumber_cal     !view number
      integer dataword
      integer calibrationnumber
      integer nused_event
      integer ped_1,ped_2,ped_3
      integer sig_1,sig_2,sig_3
      integer nbad_1,nbad_2,nbad_3
      integer ff
      integer checksum_cal
      integer DSPbad_o(nviews,nstrips_view) !online bad strips
      real DSPped_o(nviews,nstrips_view) !online pedestal
      real DSPsig_o(nviews,nstrips_view) !online sigma
      
      common/calibration_pkt/DAQmode_cal,DSPnumber_cal
     $     ,dataword,calibrationnumber,
     $     nused_event,
     $     ped_1,ped_2,ped_3,
     $     sig_1,sig_2,sig_3,
     $     nbad_1,nbad_2,nbad_3,
     $     ff,checksum_cal
     $     ,DSPped_o,DSPsig_o,DSPbad_o


      integer DAQmode_dat       !9  = full acquisition mode
                                !10 = compressed acquisition mode
                                !11 = compressed+full acquisition mode
      integer DSPnumber_dat     !view number
      integer DATAlength_dat    !data buffer length
      integer eventn_dat        !DSP event number
      integer nclust_dat!nclust*2+1 = number of strips to be 
      integer cutc_dat          !cut to include strips in a cluster
      integer cutcl_dat         !cut to search for clusters
      integer addrcluster_dat(3) !address of the greatest cluster(view,ladder)
      integer signcluster_dat(3) !signal of the greatest cluster(view,ladder)
      integer fc_dat            !compression flag
      integer compressiontime_dat !DSP program compression time
      integer fl5_dat           !flag
      integer fl4_dat           !flag
      integer fl3_dat           !flag
      integer fl2_dat           !flag
      integer fl1_dat           !flag
      integer fl6_dat           !flag
      integer checksum_dat       !DSP header checksum
      integer*2 b_tra(100000)    !DATA BUFFER

c      common/data_pkt/DAQmode_dat,DSPnumber_dat
c     $     ,eventn_dat,nclust_dat
c     $     ,cutc_dat,cutcl_dat
c     $     ,addrcluster_dat,signcluster_dat
c     $     ,fc_dat,compressiontime_dat
c     $     ,fl5_dat,fl4_dat,fl3_dat,fl2_dat,fl1_dat,fl6_dat
c     $     ,checksum_dat,datalength_dat,b_tra

      integer pnum_dat,cmdnum_dat,bid_dat,alarm_dat,aswr_dat

      common/data_pkt/DAQmode_dat,DSPnumber_dat
     $     ,eventn_dat,nclust_dat
     $     ,cutc_dat,cutcl_dat
     $     ,addrcluster_dat,signcluster_dat
     $     ,fc_dat,compressiontime_dat
     $     ,fl5_dat,fl4_dat,fl3_dat,fl2_dat,fl1_dat,fl6_dat
     $     ,checksum_dat,datalength_dat,b_tra
     $     ,pnum_dat,cmdnum_dat,bid_dat
     &     ,alarm_dat,aswr_dat

      integer TRK_DSP_OK(12)
      common/DSP_OK/TRK_DSP_OK