--- DarthVader/TrackerLevel2/inc/F77/level1.f	2006/09/05 12:52:20	1.3
+++ DarthVader/TrackerLevel2/inc/F77/level1.f	2006/09/28 14:04:39	1.4
@@ -22,7 +22,8 @@
       parameter (nclstrp        = 19)  ! 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