--- DarthVader/CalorimeterLevel2/inc/INTEST.TXT	2006/05/19 13:15:49	1.1.1.1
+++ DarthVader/CalorimeterLevel2/inc/INTEST.TXT	2007/11/29 14:20:27	1.8
@@ -1,55 +1,61 @@
-      INTEGER NPLA, NCHA, LENSEV
-      PARAMETER (NPLA=22,NCHA=96,LENSEV=NPLA*NCHA)
+      INTEGER NPLAV, NCHA, LENSEV
+      PARAMETER (NPLAV=22,NCHA=96,LENSEV=NPLAV*NCHA)
       REAL ADIST, AA
       PARAMETER( ADIST=80.5,AA=0.96)
-c      REAL PIANO(22)
-C      PARAMETER (PIANO=8.59)
-      REAL DEXY(2,NPLA,NCHA)
-      REAL CLUS(2,NPLA,NCHA)
-      INTEGER NCL(2,NPLA)
+      REAL DEXY(2,NPLAV,NCHA)
+      REAL CLUS(2,NPLAV,NCHA)
+      INTEGER NCL(2,NPLAV)
       REAL CLUS2(2,2,NCHA)
       INTEGER NCL2(2,2)
       INTEGER SELFTRIGGER
+      INTEGER FMODE(2)
 C
-c      integer obt,pkt_num,pro_num
       real nstrip, qtot, ncore, qcore, impx, impy, tanx, tany
-      real noint, trigty
+      real noint, trigty, wartrig
       REAL ncyl, qcyl, qtrack, qmax, nx22, qx22
       real qq(4)
       REAL QTRACKX, QTRACKY, DXTRACK, DYTRACK, QLAST, NLAST, QPRE, NPRE
       REAL QPRESH,NPRESH,QLOW,NLOW,QTR,NTR
-      INTEGER CIBAR(2,NPLA)
-      INTEGER TIBAR(2,NPLA)
-      REAL CBAR(2,NPLA)
-      REAL TBAR(2,NPLA)
+      INTEGER CIBAR(2,NPLAV)
+      INTEGER TIBAR(2,NPLAV)
+      REAL CBAR(2,NPLAV)
+      REAL TBAR(2,NPLAV)
       REAL PLANETOT, QMEAN
       REAL VARCFIT(2)
+      REAL NSATSTRIP
       REAL ELEN, SELEN
       INTEGER NPCFIT(2), PLANEMAX(2)
 C
-C	      logical perr(4), swerr(4), crc(4),good
       integer perr, swerr, crc,good
 c
       double precision al_pp(2,5)
       INTEGER good2, trkchi2
       REAL estrip(2,22,96), emin
       real zalig, xalig, yalig
-      REAL DX0L
+      REAL DX0L, RIGINPUT
+      INTEGER HZN
+C
+      INTEGER NPLA, REVERSE
+C
+      REAL CLUS4(2,4,NCHA)
+      INTEGER NCL4(2,4)
+      INTEGER SELFDELAY(7,4)
 C
       COMMON / clevel1 / al_pp,estrip, good2,
-     &     trkchi2, xalig, yalig, zalig, emin
+     &     trkchi2, xalig, yalig, zalig, emin,
+     &     riginput,hzn,NPLA,REVERSE
       SAVE / clevel1 /
 C
-      COMMON / clevel2 / trigty,good,perr(4)
+      COMMON / clevel2 / fmode,wartrig,trigty,good,perr(4)
      &     ,swerr(4),crc(4),selftrigger,
-     &     nstrip, qtot, ncore, qcore, impx, impy, 
+     &     nstrip, nsatstrip, qtot, ncore, qcore, impx, impy, 
      &     tanx, tany, noint, ncyl, qcyl, qtrack, qmax, nx22, 
      &     qx22, qq, qtrackx, qtracky, dxtrack, dytrack, qlast, nlast,
      &     qpre, npre, qpresh, npresh, qlow, nlow, qtr, ntr,
      &     planetot, qmean, PLANEMAX, DX0L, varcfit, npcfit,
      $     cibar, tibar,
      $     cbar, tbar,
-     $     ELEN, SELEN
+     $     ELEN, SELEN, selfdelay
       SAVE / clevel2 /
 C
       COMMON / EVENTI / DEXY
@@ -60,3 +66,7 @@
 C
       COMMON / GRUPPO2 / CLUS2, NCL2
       SAVE / GRUPPO2 / 
+
+C
+      COMMON / GRUPPO4 / CLUS4,NCL4
+      SAVE / GRUPPO4 /