--- DarthVader/TrackerLevel2/inc/F77/level2.f	2006/05/19 13:15:53	1.1.1.1
+++ DarthVader/TrackerLevel2/inc/F77/level2.f	2006/10/27 16:08:18	1.4
@@ -7,10 +7,12 @@
 *************************************************************************
 
       PARAMETER (NTRKMAX=10)    !
-      PARAMETER (NSINGMAX=100)
+c      PARAMETER (NSINGMAX=100)
+      PARAMETER (NSINGMAX=nclstrmax)
 
-      integer good2             !flag to mark good or noise events
-      integer crc               !DSP crc controll
+c      integer good2             !flag to mark good or noise events
+c      integer crc               !DSP crc controll
+      integer good2
       integer ntrk              !# identified tracks
       integer image             !flag to tag track-images
       real al_nt                !track state vector
@@ -23,6 +25,7 @@
       real resx_nt                 !spatial resolution
       real resy_nt                 !*
       real chi2_nt                 !chi2
+      integer nstep_nt             !chi2
       real xv_nt                   !calculated points
       real yv_nt                  !*
       real zv_nt                  !*
@@ -30,20 +33,27 @@
       real ayv_nt                  !*
       real dedx_x               !signal in MIP scaled to 300 micrometer
       real dedx_y               !signal in MIP scaled to 300 micrometer
-      real bdl
+      integer cltrx             !cluster ID (to associate level2 and level1)
+      integer cltry             !cluster ID (to associate level2 and level1)
+c      real bdl
       integer nclsx             !# unassociated clusters  X views
       integer planex            !plane of single x
       real xs                   !center coord of single x
       real sgnlxs               !signal in MIP of single x
+      integer clsx              !cluster ID (to associate level2 and level1)
       integer nclsy             !     "            "      Y views
       integer planey            !plane of single y
       real ys                   !center coord of single y
       real sgnlys               !signal in MIP of single y
+      integer clsy              !cluster ID (to associate level2 and level1)
 
       common/level2event/
-     $      good2,crc(12)
-     $     ,nclsx,planex(NSINGMAX),xs(2,NSINGMAX),sgnlxs(NSINGMAX) !(2)
-     $     ,nclsy,planey(NSINGMAX),ys(2,NSINGMAX),sgnlys(NSINGMAX) !(2)
+c     $      good2,crc(12)
+     $      good2(12)
+     $     ,nclsx,planex(NSINGMAX),xs(2,NSINGMAX),sgnlxs(NSINGMAX)
+     $     ,clsx(NSINGMAX) 
+     $     ,nclsy,planey(NSINGMAX),ys(2,NSINGMAX),sgnlys(NSINGMAX)
+     $     ,clsy(NSINGMAX) 
      $     ,ntrk
      $     ,image(NTRKMAX)
      $     ,xm_nt(nplanes,NTRKMAX)
@@ -54,6 +64,7 @@
      $     ,al_nt(5,NTRKMAX)
      $     ,coval(5,5,NTRKMAX)
      $     ,chi2_nt(NTRKMAX)
+     $     ,nstep_nt(NTRKMAX)
      $     ,xgood_nt(nplanes,NTRKMAX)
      $     ,ygood_nt(nplanes,NTRKMAX)
      $     ,xv_nt(nplanes,NTRKMAX)
@@ -63,7 +74,9 @@
      $     ,ayv_nt(nplanes,NTRKMAX)
      $     ,dedx_x(nplanes,NTRKMAX)
      $     ,dedx_y(nplanes,NTRKMAX)
-     $     ,bdl(NTRKMAX)
+     $     ,cltrx(nplanes,NTRKMAX)
+     $     ,cltry(nplanes,NTRKMAX)
+c     $     ,bdl(NTRKMAX)
 
       SAVE/level2event/
 *********************************************************