--- root2paw/inc/COMMON2.TXT	2005/12/05 16:17:38	1.1.1.1
+++ root2paw/inc/COMMON2.TXT	2006/03/09 15:46:24	1.2
@@ -1,14 +1,17 @@
       IMPLICIT NONE	
       
-      INTEGER NPLANES, NTRKMAX
+      INTEGER NPLANES, NTRKMAX, NSNGMAX
 
+      PARAMETER (NSNGMAX=500)    !ncloyz_max*ncloxz_max)
       PARAMETER (NTRKMAX=50)    !ncloyz_max*ncloxz_max)
       PARAMETER (NPLANES=6)    !ncloyz_max*ncloxz_max)
 
 c     EVENT block:
 *     -----------------------------------------------------------
       logical good2             !flag to mark good or noise events
+      logical crc,cpu_crc
       integer nev2              !level2 event number
+      integer swcode
 
 c     CPU block (only for ground data):
 *     -----------------------------------------------------------
@@ -44,22 +47,39 @@
       real zv                !*
       real axv               !calculated angles (deg)
       real ayv               !*
+      real dedx_x
+      real dedx_y
+      real bdl
+
 *     -----------------------------------------------------------
 *     Common to store SINGLET info
 *     (clusters not associated with any track) 
 *     -----------------------------------------------------------
       integer nclsx             !# unassociated clusters per plane X views
+      integer planex
+      real xs
+      real sgnlxs
       integer nclsy             !     "            "      "   "    Y views
+      integer planey
+      real ys
+      real sgnlys
+      integer image
+      real coval
 
       common/trklev2/good2,nev2,      
-     $     pkt_type,pkt_num,obt,which_calib,
+     $     which_calib,
+     $     swcode,
+     $     crc(12),
+     $     pkt_type,pkt_num,obt,cpu_crc,
      $     ntrk
+     $     ,image(ntrkmax)
      $     ,xm(nplanes,NTRKMAX)
      $     ,ym(nplanes,NTRKMAX)
      $     ,zm(nplanes,NTRKMAX)
      $     ,resx(nplanes,NTRKMAX)
      $     ,resy(nplanes,NTRKMAX)
      $     ,al(5,NTRKMAX)
+     $     ,coval(5,5,ntrkmax)
      $     ,chi2(NTRKMAX)
      $     ,xgood(nplanes,NTRKMAX)
      $     ,ygood(nplanes,NTRKMAX)
@@ -68,6 +88,18 @@
      $     ,zv(nplanes,NTRKMAX)
      $     ,axv(nplanes,NTRKMAX)
      $     ,ayv(nplanes,NTRKMAX)
-     $     ,nclsx(nplanes),nclsy(nplanes)
+     $     ,dedx_x(ntrkmax)
+     $     ,dedx_y(ntrkmax)
+     $     ,bdl(ntrkmax)
+     $     ,nclsx
+     $     ,planex(nsngmax)
+     $     ,xs(2,nsngmax)
+     $     ,sgnlxs(nsngmax)
+     $     ,nclsy
+     $     ,planey(nsngmax)
+     $     ,ys(2,nsngmax)
+     $     ,sgnlys(nsngmax)
+      
+
       SAVE /trklev2/