--- DarthVader/TrackerLevel2/inc/F77/level2.f 2006/09/28 14:04:39 1.3 +++ DarthVader/TrackerLevel2/inc/F77/level2.f 2008/03/05 17:00:18 1.7 @@ -7,22 +7,26 @@ ************************************************************************* PARAMETER (NTRKMAX=10) ! - PARAMETER (NSINGMAX=100) + PARAMETER (NSINGMAX=nclstrmax) -c integer good2 !flag to mark good or noise events -c integer crc !DSP crc controll integer good2 + integer vkflag !viking-chip flag (-1:masked 0:CN-failure 1:ok) integer ntrk !# identified tracks integer image !flag to tag track-images real al_nt !track state vector real coval !covariance matrix integer xgood_nt !mask of used planes integer ygood_nt !* + integer ls !10*ladder+sensor + integer xbad !number of bad strips + integer ybad !" real xm_nt !measured points real ym_nt !* real zm_nt !* real resx_nt !spatial resolution real resy_nt !* + real tailx_nt !spatial resolution + real taily_nt !* real chi2_nt !chi2 integer nstep_nt !chi2 real xv_nt !calculated points @@ -34,25 +38,38 @@ real dedx_y !signal in MIP scaled to 300 micrometer integer cltrx !cluster ID (to associate level2 and level1) integer cltry !cluster ID (to associate level2 and level1) -c real bdl integer nclsx !# unassociated clusters X views integer planex !plane of single x 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 + real seedy !cluster seed + real xpu !cluster coordinate in pitch units + real ypu !cluster coordinate in pitch units common/level2event/ -c $ good2,crc(12) $ good2(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) @@ -60,12 +77,17 @@ $ ,zm_nt(nplanes,NTRKMAX) $ ,resx_nt(nplanes,NTRKMAX) $ ,resy_nt(nplanes,NTRKMAX) + $ ,tailx_nt(nplanes,NTRKMAX) + $ ,taily_nt(nplanes,NTRKMAX) $ ,al_nt(5,NTRKMAX) $ ,coval(5,5,NTRKMAX) $ ,chi2_nt(NTRKMAX) $ ,nstep_nt(NTRKMAX) $ ,xgood_nt(nplanes,NTRKMAX) $ ,ygood_nt(nplanes,NTRKMAX) + $ ,ls(nplanes,NTRKMAX) + $ ,xbad(nplanes,NTRKMAX) + $ ,ybad(nplanes,NTRKMAX) $ ,xv_nt(nplanes,NTRKMAX) $ ,yv_nt(nplanes,NTRKMAX) $ ,zv_nt(nplanes,NTRKMAX) @@ -75,7 +97,12 @@ $ ,dedx_y(nplanes,NTRKMAX) $ ,cltrx(nplanes,NTRKMAX) $ ,cltry(nplanes,NTRKMAX) -c $ ,bdl(NTRKMAX) + $ ,multmaxx(nplanes,NTRKMAX) + $ ,multmaxy(nplanes,NTRKMAX) + $ ,seedx(nplanes,NTRKMAX) + $ ,seedy(nplanes,NTRKMAX) + $ ,xpu(nplanes,NTRKMAX) + $ ,ypu(nplanes,NTRKMAX) SAVE/level2event/ *********************************************************