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