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