--- DarthVader/TrackerLevel2/inc/F77/level2.f 2007/08/31 14:56:51 1.6 +++ DarthVader/TrackerLevel2/inc/F77/level2.f 2008/03/05 17:00:18 1.7 @@ -43,11 +43,15 @@ real xs !center coord of single x real sgnlxs !signal in MIP of single x integer clsx !cluster ID (to associate level2 and level1) + integer sxbad !number of bad strips (x-singlets) + integer multmaxsx !cluster multiplicity and max strip integer nclsy ! " " Y views integer planey !plane of single y real ys !center coord of single y real sgnlys !signal in MIP of single y integer clsy !cluster ID (to associate level2 and level1) + integer sybad !number of bad strips (x-singlets) + integer multmaxsy !cluster multiplicity and max strip integer multmaxx !cluster multiplicity and max strip integer multmaxy !cluster multiplicity and max strip real seedx !cluster seed @@ -60,8 +64,12 @@ $ ,vkflag(12,24) $ ,nclsx,planex(NSINGMAX),xs(2,NSINGMAX),sgnlxs(NSINGMAX) $ ,clsx(NSINGMAX) + $ ,sxbad(NSINGMAX) + $ ,multmaxsx(NSINGMAX) $ ,nclsy,planey(NSINGMAX),ys(2,NSINGMAX),sgnlys(NSINGMAX) $ ,clsy(NSINGMAX) + $ ,sybad(NSINGMAX) + $ ,multmaxsy(NSINGMAX) $ ,ntrk $ ,image(NTRKMAX) $ ,xm_nt(nplanes,NTRKMAX)