--- DarthVader/TrackerLevel2/inc/F77/level2.f	2006/09/05 12:52:20	1.2
+++ 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                  !*
@@ -45,7 +48,8 @@
       integer clsy              !cluster ID (to associate level2 and level1)
 
       common/level2event/
-     $      good2,crc(12)
+c     $      good2,crc(12)
+     $      good2(12)
      $     ,nclsx,planex(NSINGMAX),xs(2,NSINGMAX),sgnlxs(NSINGMAX)
      $     ,clsx(NSINGMAX) 
      $     ,nclsy,planey(NSINGMAX),ys(2,NSINGMAX),sgnlys(NSINGMAX)
@@ -60,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)