--- DarthVader/CalorimeterLevel2/inc/INTEST.TXT 2007/07/20 08:24:51 1.5 +++ DarthVader/CalorimeterLevel2/inc/INTEST.TXT 2007/09/03 08:42:12 1.7 @@ -36,6 +36,10 @@ C INTEGER NPLA, REVERSE C + REAL CLUS4(2,4,NCHA) + INTEGER NCL4(2,4) + INTEGER SELFDELAY(7,4) +C COMMON / clevel1 / al_pp,estrip, good2, & trkchi2, xalig, yalig, zalig, emin, & riginput,hzn,NPLA,REVERSE @@ -50,7 +54,7 @@ & planetot, qmean, PLANEMAX, DX0L, varcfit, npcfit, $ cibar, tibar, $ cbar, tbar, - $ ELEN, SELEN + $ ELEN, SELEN, selfdelay SAVE / clevel2 / C COMMON / EVENTI / DEXY @@ -61,3 +65,7 @@ C COMMON / GRUPPO2 / CLUS2, NCL2 SAVE / GRUPPO2 / + +C + COMMON / GRUPPO4 / CLUS4,NCL4 + SAVE / GRUPPO4 /