36 |
C |
C |
37 |
INTEGER NPLA, REVERSE |
INTEGER NPLA, REVERSE |
38 |
C |
C |
39 |
|
REAL CLUS4(2,4,NCHA) |
40 |
|
INTEGER NCL4(2,4) |
41 |
|
|
42 |
|
C |
43 |
COMMON / clevel1 / al_pp,estrip, good2, |
COMMON / clevel1 / al_pp,estrip, good2, |
44 |
& trkchi2, xalig, yalig, zalig, emin, |
& trkchi2, xalig, yalig, zalig, emin, |
45 |
& riginput,hzn,NPLA,REVERSE |
& riginput,hzn,NPLA,REVERSE |
65 |
C |
C |
66 |
COMMON / GRUPPO2 / CLUS2, NCL2 |
COMMON / GRUPPO2 / CLUS2, NCL2 |
67 |
SAVE / GRUPPO2 / |
SAVE / GRUPPO2 / |
68 |
|
|
69 |
|
C |
70 |
|
COMMON / GRUPPO4 / CLUS4,NCL4 |
71 |
|
SAVE / GRUPPO4 / |