--- DarthVader/TrackerLevel2/inc/F77/level1.f	2006/09/05 12:52:20	1.3
+++ DarthVader/TrackerLevel2/inc/F77/level1.f	2006/11/07 15:55:10	1.7
@@ -19,10 +19,11 @@
 
       parameter (nclstrmax_view = 200) ! maximum number of clusters per view
       parameter (nclstrmax      = nclstrmax_view * nviews)
-      parameter (nclstrp        = 19)  ! maximum number of stored strips per cluster
+      parameter (nclstrp        = 20) ! maximum number of stored strips per cluster
       parameter (maxlength      = nclstrmax * nclstrp) 
 
-      integer good1             !flag to mark good or noise events
+c      integer good1             !flag to mark good or noise events
+      integer good1(nviews)
 
 c     CLUSTER block:
       integer nclstr1           !cluster number
@@ -36,7 +37,7 @@
       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 clsignal(maxlength)  !sgnal values of all strips belonging to clusters
 
       real clsigma(maxlength)
       integer cladc(maxlength)
@@ -44,13 +45,15 @@
 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 relate the cluster to the track it belongs to
       common/level1event/good1,nclstr1,view,ladder,maxs
      $     ,mult,dedx,indstart
-     $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad!,clped
-     $     ,cnev,cnnev,fshower,whichtrack
+     $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad
+     $     ,cnev,cnnev,cnrmsev,fshower,whichtrack
+c     $     ,cnev,cnnev,fshower,whichtrack
       
       SAVE/level1event/