4.3.3.6 Calorimeter measurement of the track (seen values)

      REAL
     .     PVECSN(5,MAXTRK,MAXSHO), ! 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(4,MAXTRK,MAXSHO), ! 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(MAXTRK,MAXSHO)  ! Number of the calorimeter seeing the
                                ! shower. CTYPN > 0 for barrel calorimeters,
                                ! < 0 for forward ones.
      CHARACTER*14
     .     CALNAM(MAXTRK,MAXSHO)  ! Name of the calorimeter seeing the
                                ! shower.
      INTEGER
     .     NSHOW(MAXTRK),       ! Number of showers
     .     MESHOW(MAXTRK),      ! Number of the most energetic shower
     .     CDCALN(MAXTRK,MAXSHO) ! 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
                                !

In addition, the following variables are temporarily kept to be backward compatible with versions up to SGV2.10. If more than one shower is associated to the track, the values for the most energetic one are used. These will be supressed in a future release !!!

      REAL PVECSH(5,MAXTRK), SHOAX(4,MAXTRK), CTYP(MAXTRK)
      INTEGER CDCAL(MAXTRK)