10 |
REAL CLUS2(2,2,NCHA) |
REAL CLUS2(2,2,NCHA) |
11 |
INTEGER NCL2(2,2) |
INTEGER NCL2(2,2) |
12 |
INTEGER SELFTRIGGER |
INTEGER SELFTRIGGER |
13 |
|
INTEGER FMODE(2) |
14 |
C |
C |
15 |
c integer obt,pkt_num,pro_num |
c integer obt,pkt_num,pro_num |
16 |
real nstrip, qtot, ncore, qcore, impx, impy, tanx, tany |
real nstrip, qtot, ncore, qcore, impx, impy, tanx, tany |
17 |
real noint, trigty |
real noint, trigty, wartrig |
18 |
REAL ncyl, qcyl, qtrack, qmax, nx22, qx22 |
REAL ncyl, qcyl, qtrack, qmax, nx22, qx22 |
19 |
real qq(4) |
real qq(4) |
20 |
REAL QTRACKX, QTRACKY, DXTRACK, DYTRACK, QLAST, NLAST, QPRE, NPRE |
REAL QTRACKX, QTRACKY, DXTRACK, DYTRACK, QLAST, NLAST, QPRE, NPRE |
35 |
INTEGER good2, trkchi2 |
INTEGER good2, trkchi2 |
36 |
REAL estrip(2,22,96), emin |
REAL estrip(2,22,96), emin |
37 |
real zalig, xalig, yalig |
real zalig, xalig, yalig |
38 |
REAL DX0L |
REAL DX0L, RIGINPUT |
39 |
|
INTEGER HZN |
40 |
C |
C |
41 |
COMMON / clevel1 / al_pp,estrip, good2, |
COMMON / clevel1 / al_pp,estrip, good2, |
42 |
& trkchi2, xalig, yalig, zalig, emin |
& trkchi2, xalig, yalig, zalig, emin, |
43 |
|
& riginput,hzn |
44 |
SAVE / clevel1 / |
SAVE / clevel1 / |
45 |
C |
C |
46 |
COMMON / clevel2 / trigty,good,perr(4) |
COMMON / clevel2 / fmode,wartrig,trigty,good,perr(4) |
47 |
& ,swerr(4),crc(4),selftrigger, |
& ,swerr(4),crc(4),selftrigger, |
48 |
& nstrip, qtot, ncore, qcore, impx, impy, |
& nstrip, qtot, ncore, qcore, impx, impy, |
49 |
& tanx, tany, noint, ncyl, qcyl, qtrack, qmax, nx22, |
& tanx, tany, noint, ncyl, qcyl, qtrack, qmax, nx22, |