C**************************************************************    
C*                                                            *    
C*                B U F F E R S . C D E                       *
C*                                                            *    
C**************************************************************    
C---             
C--- This file contains the common block receiving the event
C--- raw data information.
C---
C===============================================  Raw data buffers
C---
C--- INBUF(i) one event unpacked raw data
C--- LENRC    event length
C--- NHEAD    number of words in the event header
C---
C--- IIBUF    Header or trailer record event buffer
C--- ============================================= Pointers
C---
C---  Pointers to INBUF vector; IEQ is the equipment and IDET is the detector 
C---  index as described in PARDEF.CDE
C---
C--- LPOINT(1,IEQ,IDET) number of blocks for fixed IEQ,IDET 
C---                            (usually 1 and up to 4)
C---       (2,IEQ,IDET) # of words in INBUF describing the 1st block of data
C---       (3,IEQ,IDET) pointer to the 1st word, 1st block in INBUF  
C---                    for IEQ,IDET
C---       i=4,5 as 2,3 but related to the 2nd block of IEQ,IDET
C---       i=6,7 as 2,3 but related to the 3rd block of IEQ,IDET
C---       i=8,9 as 2,3 but related to the 4th block of IEQ,IDET
C---
C---
C--- ICRAPNT(1,j) word count in INBUF for DYCj
C---         2,j  pointer in INBUF to first word of DYCj
C---              (j = 15 ROC, j = 16 Trigger summary)
C---
C---       
C---  
C---  NMXEVL Maximum number of words in event record (INBUF)
C---  NMXHRL Maximum number of words in header record (IIBUF).
C---  NHEAD  Number of event header words

      INTEGER NMXEVL,NMXHRL,NHEAD
      PARAMETER (NMXEVL=5000,NMXHRL=100,NHEAD=8)
C
      INTEGER*2 LENRC, INBUF(NMXEVL), IIBUF(NMXHRL)
C
      COMMON /BUFFERS/INBUF, IIBUF
C
C---> to be defined on new Event record
      EQUIVALENCE    (INBUF(1),LENRC)
C==========================================================================
C---  NMXBL Maximum number of words for block pointers
      INTEGER NMXBL
      PARAMETER (NMXBL=9)
      INTEGER LPOINT(NMXBL,NMXEQP,NMXDET),ICRAPNT(2,16)
C
      COMMON/BLOCKS/LPOINT,ICRAPNT
C====================================================