--- DarthVader/TrackerLevel2/inc/F77/level1.f	2007/01/11 10:20:57	1.8
+++ DarthVader/TrackerLevel2/inc/F77/level1.f	2007/04/27 10:39:57	1.10
@@ -4,17 +4,6 @@
 *     
 *     contains LEVEL1 ntuple variables definitions
 *     
-*     to be included in:
-*     - ../reduction/reduction.f
-*     - ../analysis/analysis.f
-*     - !???
-*     
-*     parameters:
-*     - nclstrmax
-*     - nclstrp
-*    
-*     11/9/2005 modified by david fedele to include general variables
-*     **/8/2006 modified to store info about CN computation and "showers"
 *************************************************************************
 
       parameter (nclstrmax_view = 200) ! maximum number of clusters per view
@@ -22,7 +11,6 @@
       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:
@@ -32,17 +20,15 @@
                                 ! value belongs to
       integer maxs(nclstrmax)   !cluster strip carrying the largest signal value
       integer mult(nclstrmax)   !cluster multiplicity
-      real dedx(nclstrmax)      !cluster multiplicity
+      real    sgnl(nclstrmax)   !cluster multiplicity
       integer indstart(nclstrmax) !cluster starting point index in clsignal array
       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)  !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
@@ -51,9 +37,8 @@
 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
+     $     ,mult,sgnl,indstart
      $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad
      $     ,cnev,cnnev,cnrmsev,fshower,whichtrack
-c     $     ,cnev,cnnev,fshower,whichtrack
       
       SAVE/level1event/