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 |
42 |
& riginput,hzn |
& 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, |