--- DarthVader/CalorimeterLevel2/inc/INTEST.TXT	2006/05/19 13:15:49	1.1.1.1
+++ DarthVader/CalorimeterLevel2/inc/INTEST.TXT	2007/07/20 08:24:51	1.5
@@ -1,46 +1,47 @@
-      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 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
       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, 
      &     tanx, tany, noint, ncyl, qcyl, qtrack, qmax, nx22,