CalorimeterLevel2/inc/INTEST.TXT

      INTEGER NPLAV, NCHA, LENSEV
      PARAMETER (NPLAV=22,NCHA=96,LENSEV=NPLAV*NCHA)
      REAL ADIST, AA
      PARAMETER( ADIST=80.5,AA=0.96)
      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
      real nstrip, qtot, ncore, qcore, impx, impy, tanx, tany
      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,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
      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, 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,
     &     riginput,hzn,NPLA,REVERSE
      SAVE / clevel1 /
C
      COMMON / clevel2 / fmode,wartrig,trigty,good,perr(4)
     &     ,swerr(4),crc(4),selftrigger,
     &     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, selfdelay
      SAVE / clevel2 /
C
      COMMON / EVENTI / DEXY
      SAVE / EVENTI /
C
      COMMON / GRUPPO / CLUS, NCL
      SAVE / GRUPPO /
C
      COMMON / GRUPPO2 / CLUS2, NCL2
      SAVE / GRUPPO2 / 

C
      COMMON / GRUPPO4 / CLUS4,NCL4
      SAVE / GRUPPO4 /
1	mocchiut	1.5	INTEGER NPLAV, NCHA, LENSEV
2			PARAMETER (NPLAV=22,NCHA=96,LENSEV=NPLAV*NCHA)
3	mocchiut	1.1	REAL ADIST, AA
4			PARAMETER( ADIST=80.5,AA=0.96)
5	mocchiut	1.5	REAL DEXY(2,NPLAV,NCHA)
6			REAL CLUS(2,NPLAV,NCHA)
7			INTEGER NCL(2,NPLAV)
8	mocchiut	1.1	REAL CLUS2(2,2,NCHA)
9			INTEGER NCL2(2,2)
10			INTEGER SELFTRIGGER
11	mocchiut	1.4	INTEGER FMODE(2)
12	mocchiut	1.1	C
13			real nstrip, qtot, ncore, qcore, impx, impy, tanx, tany
14	mocchiut	1.3	real noint, trigty, wartrig
15	mocchiut	1.1	REAL ncyl, qcyl, qtrack, qmax, nx22, qx22
16			real qq(4)
17			REAL QTRACKX, QTRACKY, DXTRACK, DYTRACK, QLAST, NLAST, QPRE, NPRE
18			REAL QPRESH,NPRESH,QLOW,NLOW,QTR,NTR
19	mocchiut	1.5	INTEGER CIBAR(2,NPLAV)
20			INTEGER TIBAR(2,NPLAV)
21			REAL CBAR(2,NPLAV)
22			REAL TBAR(2,NPLAV)
23	mocchiut	1.1	REAL PLANETOT, QMEAN
24			REAL VARCFIT(2)
25	mocchiut	1.8	REAL NSATSTRIP
26	mocchiut	1.1	REAL ELEN, SELEN
27			INTEGER NPCFIT(2), PLANEMAX(2)
28			C
29			integer perr, swerr, crc,good
30			c
31			double precision al_pp(2,5)
32			INTEGER good2, trkchi2
33			REAL estrip(2,22,96), emin
34			real zalig, xalig, yalig
35	mocchiut	1.2	REAL DX0L, RIGINPUT
36			INTEGER HZN
37	mocchiut	1.1	C
38	mocchiut	1.5	INTEGER NPLA, REVERSE
39			C
40	mocchiut	1.6	REAL CLUS4(2,4,NCHA)
41			INTEGER NCL4(2,4)
42	mocchiut	1.7	INTEGER SELFDELAY(7,4)
43	mocchiut	1.6	C
44	mocchiut	1.1	COMMON / clevel1 / al_pp,estrip, good2,
45	mocchiut	1.2	& trkchi2, xalig, yalig, zalig, emin,
46	mocchiut	1.5	& riginput,hzn,NPLA,REVERSE
47	mocchiut	1.1	SAVE / clevel1 /
48			C
49	mocchiut	1.4	COMMON / clevel2 / fmode,wartrig,trigty,good,perr(4)
50	mocchiut	1.1	& ,swerr(4),crc(4),selftrigger,
51	mocchiut	1.8	& nstrip, nsatstrip, qtot, ncore, qcore, impx, impy,
52	mocchiut	1.1	& tanx, tany, noint, ncyl, qcyl, qtrack, qmax, nx22,
53			& qx22, qq, qtrackx, qtracky, dxtrack, dytrack, qlast, nlast,
54			& qpre, npre, qpresh, npresh, qlow, nlow, qtr, ntr,
55			& planetot, qmean, PLANEMAX, DX0L, varcfit, npcfit,
56			$ cibar, tibar,
57			$ cbar, tbar,
58	mocchiut	1.7	$ ELEN, SELEN, selfdelay
59	mocchiut	1.1	SAVE / clevel2 /
60			C
61			COMMON / EVENTI / DEXY
62			SAVE / EVENTI /
63			C
64			COMMON / GRUPPO / CLUS, NCL
65			SAVE / GRUPPO /
66			C
67			COMMON / GRUPPO2 / CLUS2, NCL2
68			SAVE / GRUPPO2 /
69	mocchiut	1.6
70			C
71			COMMON / GRUPPO4 / CLUS4,NCL4
72			SAVE / GRUPPO4 /