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 / trigty,good,perr(4) |