REAL,ALLOCATABLE ::& pvecsn(:,:,:),& ! 4-momentum & mass of shower if any. ! 1-3 : p ! 4 : E ! 5 : m ! If the track was not seen by the ! tracking detectors,& ! PVECSN(1:5,TRACK,MESHOW(TRACK)) ! will be copied to PVEC(1:5,TRACK,SEEN),& ! PVEC(7,TRACK,SEEN) = 0.0, and ! CD(TRACK,SEEN) = ! CDCALN(TRACK,MESHOW(TRACK)) ) shoaxn(:,:,:),& ! Shower axis & start point, if any. ! 1 : Rphi of shower start-point (barrel), or ! x " " " (forward) ! 2 : z of shower start-point (barrel), or ! y " " " (forward) ! 3 : Theta of shower axis ! 4 : Phi " " " ctypn(:,:) ! Number of the calorimeter seeing the ! shower. CTYPN > 0 for barrel calorimeters,& ! < 0 for forward ones. CHARACTER (LEN=14),ALLOCATABLE ::& calnam(:,:) ! Name of the calorimeter seeing the ! shower. INTEGER,ALLOCATABLE ::& nshow(:),& ! Number of showers nclus(:),& ! Number of clusters meshow(:),& ! Number of the most energetic shower cdcaln(:,:) ! result of particle id in calorimeter ! (as LUND code). The default assignment ! is as follows : ! ! EM calorimeter Had. calorimeter ! shower shower ! ! part. ! SEEN by ! tracking e+- pi+- ! system ! ! part. ! NOT seen ! by tracking gamma K0_L ! system ! REAL,ALLOCATABLE :: pvecsh(:,:), shoax(:,:), ctyp(:) INTEGER,ALLOCATABLE :: cdcal(:)
cross-references