--- DarthVader/TrackerLevel2/inc/F77/level2.f	2006/09/05 12:52:20	1.2
+++ DarthVader/TrackerLevel2/inc/F77/level2.f	2008/03/05 17:00:18	1.7
@@ -7,22 +7,28 @@
 *************************************************************************
 
       PARAMETER (NTRKMAX=10)    !
-      PARAMETER (NSINGMAX=100)
+      PARAMETER (NSINGMAX=nclstrmax)
 
-      integer good2             !flag to mark good or noise events
-      integer crc               !DSP crc controll
+      integer good2
+      integer vkflag            !viking-chip flag (-1:masked 0:CN-failure 1:ok) 
       integer ntrk              !# identified tracks
       integer image             !flag to tag track-images
       real al_nt                !track state vector
       real coval                !covariance matrix
       integer xgood_nt             !mask of used planes
       integer ygood_nt             !*
+      integer ls                   !10*ladder+sensor
+      integer xbad              !number of bad strips
+      integer ybad              !"
       real xm_nt                   !measured points
       real ym_nt                   !*
       real zm_nt                   !*
       real resx_nt                 !spatial resolution
       real resy_nt                 !*
+      real tailx_nt                 !spatial resolution
+      real taily_nt                 !*
       real chi2_nt                 !chi2
+      integer nstep_nt             !chi2
       real xv_nt                   !calculated points
       real yv_nt                  !*
       real zv_nt                  !*
@@ -32,24 +38,38 @@
       real dedx_y               !signal in MIP scaled to 300 micrometer
       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 sxbad             !number of bad strips (x-singlets)
+      integer multmaxsx         !cluster multiplicity and max strip 
       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)
+      integer sybad             !number of bad strips (x-singlets)
+      integer multmaxsy         !cluster multiplicity and max strip 
+      integer multmaxx          !cluster multiplicity and max strip
+      integer multmaxy          !cluster multiplicity and max strip
+      real    seedx             !cluster seed
+      real    seedy             !cluster seed
+      real    xpu               !cluster coordinate in pitch units
+      real    ypu               !cluster coordinate in pitch units
 
       common/level2event/
-     $      good2,crc(12)
+     $      good2(12)
+     $     ,vkflag(12,24)
      $     ,nclsx,planex(NSINGMAX),xs(2,NSINGMAX),sgnlxs(NSINGMAX)
      $     ,clsx(NSINGMAX) 
+     $     ,sxbad(NSINGMAX) 
+     $     ,multmaxsx(NSINGMAX) 
      $     ,nclsy,planey(NSINGMAX),ys(2,NSINGMAX),sgnlys(NSINGMAX)
      $     ,clsy(NSINGMAX) 
+     $     ,sybad(NSINGMAX) 
+     $     ,multmaxsy(NSINGMAX) 
      $     ,ntrk
      $     ,image(NTRKMAX)
      $     ,xm_nt(nplanes,NTRKMAX)
@@ -57,11 +77,17 @@
      $     ,zm_nt(nplanes,NTRKMAX)
      $     ,resx_nt(nplanes,NTRKMAX)
      $     ,resy_nt(nplanes,NTRKMAX)
+     $     ,tailx_nt(nplanes,NTRKMAX)
+     $     ,taily_nt(nplanes,NTRKMAX)
      $     ,al_nt(5,NTRKMAX)
      $     ,coval(5,5,NTRKMAX)
      $     ,chi2_nt(NTRKMAX)
+     $     ,nstep_nt(NTRKMAX)
      $     ,xgood_nt(nplanes,NTRKMAX)
      $     ,ygood_nt(nplanes,NTRKMAX)
+     $     ,ls(nplanes,NTRKMAX)
+     $     ,xbad(nplanes,NTRKMAX)
+     $     ,ybad(nplanes,NTRKMAX)
      $     ,xv_nt(nplanes,NTRKMAX)
      $     ,yv_nt(nplanes,NTRKMAX)
      $     ,zv_nt(nplanes,NTRKMAX)
@@ -71,7 +97,12 @@
      $     ,dedx_y(nplanes,NTRKMAX)
      $     ,cltrx(nplanes,NTRKMAX)
      $     ,cltry(nplanes,NTRKMAX)
-c     $     ,bdl(NTRKMAX)
+     $     ,multmaxx(nplanes,NTRKMAX)
+     $     ,multmaxy(nplanes,NTRKMAX)
+     $     ,seedx(nplanes,NTRKMAX)
+     $     ,seedy(nplanes,NTRKMAX)
+     $     ,xpu(nplanes,NTRKMAX)
+     $     ,ypu(nplanes,NTRKMAX)
 
       SAVE/level2event/
 *********************************************************