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 |
43 |
& riginput,hzn |
& riginput,hzn |
44 |
SAVE / clevel1 / |
SAVE / clevel1 / |
45 |
C |
C |
46 |
COMMON / clevel2 / wartrig,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, |