--- DarthVader/TrackerLevel2/inc/F77/level2.f	2006/10/27 16:08:18	1.4
+++ DarthVader/TrackerLevel2/inc/F77/level2.f	2007/08/31 14:56:51	1.6
@@ -7,23 +7,26 @@
 *************************************************************************
 
       PARAMETER (NTRKMAX=10)    !
-c      PARAMETER (NSINGMAX=100)
       PARAMETER (NSINGMAX=nclstrmax)
 
-c      integer good2             !flag to mark good or noise events
-c      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
@@ -35,7 +38,6 @@
       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
@@ -46,10 +48,16 @@
       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 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/
-c     $      good2,crc(12)
      $      good2(12)
+     $     ,vkflag(12,24)
      $     ,nclsx,planex(NSINGMAX),xs(2,NSINGMAX),sgnlxs(NSINGMAX)
      $     ,clsx(NSINGMAX) 
      $     ,nclsy,planey(NSINGMAX),ys(2,NSINGMAX),sgnlys(NSINGMAX)
@@ -61,12 +69,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)
@@ -76,7 +89,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/
 *********************************************************