CalorimeterLevel2/inc/INTEST.TXT

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