C**************************************************************    
C*                                                            *
C*                T R A C K A S S . C D E                     *
C*                                                            *    
C**************************************************************    
C---             
C--- Common block containing the relevant information about
C--- tracks resulting from association of the charged tracking 
C--- detector lines and calorimeter clusters.
C--- 
C--- Angles in radians, Length in cm., Energy in GeV
C--- Track parameters will be stored in:
C--- TRACKPAR(  1,j )     theta (polar angle);
C---            2         phi azimuthal angle ; 
C---            3         Error in theta 
C---            4         Error in phi 
C---            5         Energy (GeV); 
C---            6         Energy error; 
C---            7         opening angle between the charged line and the 
C---                      calorimeter cluster assuming as coming from the same 
C---                      vertex computed using the charged lines;
C---            8         index of the charged line as from common CHLINFIT.CDE
C---            9         index of the central calorimeter cluster
C---           10         index of the forward calorimeter cluster
C---           11         not corrected energy;
C---           12         chi2 contribution from the charged line;
C---           13         as above from the calorimeter cluster
C---           14         # mip HOD1
C---           15         # mip HOD2
C---           16         # mip HODP 
C---           17         # pe Ch (positive for forward mirrors and 
C---                               negative for backward mirrors); 
C---           18         # of Nearest Neighbours
C---           19         H2 element number 
C---           20         Cher element number
C---           21         pile-up flag for the CCAL or FCAL cluster, 
C---                             >0 ON time, <0 out of time,  = 0 no decision 
C---           22         phi line index
C---           23         Theta line index
C---           24         Electron Weight 
C---           25         H1 element number associated to the track,
C---           26         HODP element number 
C---           27         # Phe FIBI
C---           28         # Phe FIBO
C---           29         FIBI Cluster index
C---           30         FIBO Cluster index
C---           31         Cluster time
C---           32         Cherenkov normalized signal
C---           33         EW 2d (only for New calibrations)
C---
C--- NTRKASS: Total number of associated tracks
C--- VERTCRD(i) where i=1,2,3 X,Y,Z; i=4 Sum of the square impacts;
C--- i=5 # of lines contribuiting; i=6,7,8 dX,dY,dZ; i=9...10 not used.
C---
C--- Common block containing reconstructed vertex informations 
C---     XVLW(1-3) = X,Y,Z VERTEX
C---           (4) = SUM IMPACT**2, 
C---           (5) = # LINES
C---         (6-8) = ERROR IN X,Y,Z
C---
C---     XYZL(1-3) = X,Y,Z OF LINE, 
C---         (4-6) = DIRECTION COSINES
C---           (7) = EPS*X,  
C---           (8) = Variable > 0. FOR GOOD TRACK
C
C============================================================================== 
      INTEGER NMXTRKS,NTRKASS
      PARAMETER (NMXTRKS=30)
      REAL TRACKPAR(35,NMXTRKS),VERTCRD(10)

      COMMON/TRACK/NTRKASS,TRACKPAR

      REAL XVLW(10),XYZL(8,10)
C
      COMMON/VERTEX/XVLW,XYZL
c------------------------------------------------------------------------------
      EQUIVALENCE (VERTCRD(1),XVLW(1))
C-------------------------------------------------------------------------------