Calorimeter measurement of the track (seen values)

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