Note that a summing of energy or momentum in this common and ZATRS will yield double-counting.
This block is filled by a call to ZAUSHO.
INTEGER CLUST ! main pointer (always use it when you loop ! in this common) REAL . PVECLU(5,MAXTRK), ! 4-Momentum of cluster. ! 1-3 : p ! 4 : E ! 5 : m (always =0.0) . CLUAX(4,MAXTRK), ! Cluster axis & start point. ! 1 : Rphi of shower start (barrel), or ! x " " " (forward) ! 2 : z of shower start (barrel), or ! y " " " (forward) ! 3 : Theta of shower axis ! 4 : Phi " " " . CTYPCL(MAXTRK) ! Number of the calorimeter seeing the ! cluster. CTYP > 0 for barrel calorimeters, ! < 0 for forward ones. INTEGER . NSHICL(MAXTRK), ! Number of showers in cluster. . CLUORIN(100,MAXTRK,2),! list of showers in cluster, ! given as the corresponding value(s) ! of TRACK and shower # in /ZATRS/ . TRMAIN(MAXTRK), ! For charged clusters, points to the ! TRACK in /ZATRS/ that has the highest ! momentum of those pointing to the ! cluster (is = 0 for neutral clusters) ! An easy way to avoid double-counting ! of calorimetric energy ,is to assign ! the cluster only to this track, even ! if several charged tracks points to it. . CDCLU(MAXTRK), ! Particle Id code of cluster: ! (as LUND code). The default assignment ! is as follows : ! ! EM calorimeter Had. calorimeter ! shower shower ! ! At least ! one charged ! track points e+- pi+- ! to cluster ! ! No charged ! track points ! to cluster gamma K0_L ! . CHACLU(MAXTRK), ! Charge assignment of cluster: ! 0, if no charged track pointing to it; ! +-1, if at least one charged track is ! pointing to it (if more than one, the ! sign is that of the last one in the ! CLUORI array). . CLUORI(100,MAXTRK),! list of showers in cluster, ! given as the corresponding value(s) ! of TRACKS with their most energetic ! shower in the cluster ! (kept for backward compability. ! will be remoed) . NFCLU, ! number of clusters in the forward ! calorimeters . NBCLU ! number of clusters in the barrel ! calorimeters