--- DarthVader/TrackerLevel2/inc/F77/level1.f	2006/05/19 13:15:53	1.1
+++ DarthVader/TrackerLevel2/inc/F77/level1.f	2007/01/11 10:20:57	1.8
@@ -14,21 +14,20 @@
 *     - nclstrp
 *    
 *     11/9/2005 modified by david fedele to include general variables
+*     **/8/2006 modified to store info about CN computation and "showers"
 *************************************************************************
 
-      integer good1             !flag to mark good or noise events
-c$$$      integer nev1              !level1 event number
-c$$$      integer which_calib1       !calibration file identifier. see DW_DATE_NUM_calib.txt file
-c$$$      integer swcode1            !version of the software
-c$$$
-c$$$      integer pkt_type1         !CPU packet type identifier. see http://people.roma2.infn.it/~cpu/HB_list.txt
-c$$$      integer pkt_num1          !CPU packet number
-c$$$      integer obt1              !CPU on-board time
-c$$$      integer cpu_crc1           !CPU crc controll
+      parameter (nclstrmax_view = 200) ! maximum number of clusters per view
+      parameter (nclstrmax      = nclstrmax_view * nviews)
+      parameter (nclstrp        = 20) ! maximum number of stored strips per cluster
+      parameter (maxlength      = nclstrmax * nclstrp) 
+
+c      integer good1             !flag to mark good or noise events
+      integer good1(nviews)
 
 c     CLUSTER block:
       integer nclstr1           !cluster number
-      integer view(nclstrmax)   !view the cluster belongs to
+      integer view(nclstrmax)   !view the cluster belongs to     
       integer ladder(nclstrmax) !ladder the strip carrying the largest signal 
                                 ! value belongs to
       integer maxs(nclstrmax)   !cluster strip carrying the largest signal value
@@ -38,18 +37,23 @@
       integer indmax(nclstrmax) !cluster maximum point index in clsignal array
       integer totCLlength       !sum of all clusters length (to assign
                                 ! dimension to clsignal array)
-      real clsignal(maxlength)  !signal values of all strips belonging to clusters
-
-      real cnev(nviews,nva1_view) !common noise of the event for a certain view and
-                                ! VA1
-c$$$      common/level1general/good1,nev1,which_calib1,swcode1,crc1
-c$$$      common/level1cpu/pkt_type1,pkt_num1,obt1,cpu_crc1
-c$$$      common/level1cluster/nclstr1,view,ladder,maxs,mult,dedx,indstart
-c$$$     $     ,indmax,totCLlength,clsignal,cnev
+      real clsignal(maxlength)  !sgnal values of all strips belonging to clusters
 
+      real clsigma(maxlength)
+      integer cladc(maxlength)
+      integer clbad(maxlength)
+c      real clped(maxlength)
 
+      real    cnev(nviews,nva1_view)     !CN of the event for a certain view and VA1
+      real    cnrmsev(nviews,nva1_view) !RMS of CN
+      integer cnnev(nviews,nva1_view)    !n.strips used for CN computation 
+      integer fshower(nviews)            !flag to tag views with too many clusters
+c                                        !(in this case clusters are not saved)
+      integer whichtrack(nclstrmax)      !flag to tag clusters associated to a track
       common/level1event/good1,nclstr1,view,ladder,maxs
      $     ,mult,dedx,indstart
-     $     ,indmax,totCLlength,clsignal,cnev
+     $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad
+     $     ,cnev,cnnev,cnrmsev,fshower,whichtrack
+c     $     ,cnev,cnnev,fshower,whichtrack
       
       SAVE/level1event/