C	BUFF.FOR  COMMON DECKS
          
      PARAMETER (MIA = 1)  
      PARAMETER (MIB = 4096)  
      PARAMETER (MIC = 4096)  
          
      COMMON IA(MIA),IB(MIB),IC(MIC),KBUFF(1000)  
      INTEGER*2 IA,IB,IC

      COMMON /CHANNL/ICHAN
      COMMON /FILES/ FILE,LIST
          
      CHARACTER*80 FILE,LIST   
          
C    IA    - RAW DATA BUFFER, 60 BIT WORD INTERPRETATION    
C    IB    - DATA BLOCK UNPACKED FROM IA, 16 BITS/WORD      
C    IC    - EVENT RECORD UNPACKED FROM IB, ONE EVENT.      
C    KBUFF - WORK BUFFER FOR KIOWA OR HBOOK HISTOGRAM PACKAGE         
          
C    FILE - NAME OF INPUT DATA FILE (DEFAULT TAPE1)         
C    LIST - NAME OF LISTING FILE (DEFAULT OUTPUT) 
          
C     KIOWA BUFFER LENGTH INFORMATION
      COMMON /LENGTH/ LEVENT,LBUF,LSTOR     
          
C    LEVENT - LENGTH OF IA (MIA)  
C    LBUFF  - LENGTH OF IB,IC (MIB+MIC)     
C    LSTOR  - LENGTH OF KBUFF