C**************************************************************    
C*                                                            *    
C*             C C A L _ C L U S T . C D E                    *
C*                                                            *    
C**************************************************************    
C--- This file contains common blocks related to the CCAL 
C--- clustering algorithm
C--- 
C--- NCENTER         Number of CCAL local energy maxima
C--- CENTERS(i,j)    Ring (j=1) or Wedge (j=2) of ith center
C---
C--- THRESH1         Seed threshold in GeV
C--- THRESH2         Cluster threshold in GeV
C--- THRESH3         Split threshold in GeV for cluster mass
C---
C--- ENINE(i)        Total energy deposit for 9 counters
C---                 about the ith center
C---
C--- CFLAG(i)        Flag for whether cluster has shared/
C---                 split energy
C--- SPFLAG(i)       Flag indicating type of ith cluster:
C---                        1 == splitting has been done
C---                        0 == isolated cluster
C---                       -1 == energy sharing has been done
C--- CLUSTMASS(i)    Cluster mass for ith cluster PRIOR to
C---                 splitting for SPFLAG=1,0; for SPFLAG=-1
C---                 cluster mass NOT accounting for nearby cluster.
C---                 Negative value is for smaller cluster of the
C---                 split clusters.


      INTEGER NCENTER,CENTERS
      REAL THRESH1,THRESH2,THRESH3,ENINE,CFLAG,CLUSTMASS,SPFLAG

      COMMON /THRESHOLDS/ THRESH1,THRESH2,THRESH3

      COMMON /CCALCLUSTR/ ENINE(NMXCL),CFLAG(NMXCL),
     &                    CLUSTMASS(NMXCL),SPFLAG(NMXCL)
      COMMON /CCALCLUSTI/ NCENTER,CENTERS(NMXCL,2)