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 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
      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, 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
      SAVE / clevel2 /
C
      COMMON / EVENTI / DEXY
      SAVE / EVENTI /
C
      COMMON / GRUPPO / CLUS, NCL
      SAVE / GRUPPO /
C
      COMMON / GRUPPO2 / CLUS2, NCL2
      SAVE / GRUPPO2 / 
1	INTEGER NPLAV, NCHA, LENSEV
2	PARAMETER (NPLAV=22,NCHA=96,LENSEV=NPLAV*NCHA)
3	REAL ADIST, AA
4	PARAMETER( ADIST=80.5,AA=0.96)
5	REAL DEXY(2,NPLAV,NCHA)
6	REAL CLUS(2,NPLAV,NCHA)
7	INTEGER NCL(2,NPLAV)
8	REAL CLUS2(2,2,NCHA)
9	INTEGER NCL2(2,2)
10	INTEGER SELFTRIGGER
11	INTEGER FMODE(2)
12	C
13	real nstrip, qtot, ncore, qcore, impx, impy, tanx, tany
14	real noint, trigty, wartrig
15	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	INTEGER CIBAR(2,NPLAV)
20	INTEGER TIBAR(2,NPLAV)
21	REAL CBAR(2,NPLAV)
22	REAL TBAR(2,NPLAV)
23	REAL PLANETOT, QMEAN
24	REAL VARCFIT(2)
25	REAL ELEN, SELEN
26	INTEGER NPCFIT(2), PLANEMAX(2)
27	C
28	integer perr, swerr, crc,good
29	c
30	double precision al_pp(2,5)
31	INTEGER good2, trkchi2
32	REAL estrip(2,22,96), emin
33	real zalig, xalig, yalig
34	REAL DX0L, RIGINPUT
35	INTEGER HZN
36	C
37	INTEGER NPLA, REVERSE
38	C
39	COMMON / clevel1 / al_pp,estrip, good2,
40	& trkchi2, xalig, yalig, zalig, emin,
41	& riginput,hzn,NPLA,REVERSE
42	SAVE / clevel1 /
43	C
44	COMMON / clevel2 / fmode,wartrig,trigty,good,perr(4)
45	& ,swerr(4),crc(4),selftrigger,
46	& nstrip, qtot, ncore, qcore, impx, impy,
47	& tanx, tany, noint, ncyl, qcyl, qtrack, qmax, nx22,
48	& qx22, qq, qtrackx, qtracky, dxtrack, dytrack, qlast, nlast,
49	& qpre, npre, qpresh, npresh, qlow, nlow, qtr, ntr,
50	& planetot, qmean, PLANEMAX, DX0L, varcfit, npcfit,
51	$ cibar, tibar,
52	$ cbar, tbar,
53	$ ELEN, SELEN
54	SAVE / clevel2 /
55	C
56	COMMON / EVENTI / DEXY
57	SAVE / EVENTI /
58	C
59	COMMON / GRUPPO / CLUS, NCL
60	SAVE / GRUPPO /
61	C
62	COMMON / GRUPPO2 / CLUS2, NCL2
63	SAVE / GRUPPO2 /