--- DarthVader/TrackerLevel2/src/F77/reductionflight.f 2007/01/11 10:20:58 1.15 +++ DarthVader/TrackerLevel2/src/F77/reductionflight.f 2007/02/16 14:56:02 1.16 @@ -232,7 +232,7 @@ indmax(ic) = 0 maxs(ic) = 0 mult(ic) = 0 - dedx(ic) = 0 + sgnl(ic) = 0 whichtrack(ic) = 0 !assigned @ level2 enddo @@ -543,7 +543,7 @@ CLlength = rmax_view(ic) - lmax_view(ic) + 1 !numero di strip salvate totCLlength = totCLlength + CLlength - dedx(nclstr1) = 0 + sgnl(nclstr1) = 0 do j=lmax_view(ic),rmax_view(ic) !stores sequentially cluter strip values in clsignal(ind) = value(j) ! clsignal array @@ -559,11 +559,11 @@ ind=ind+1 c if(value(j).gt.0) if(value(j).gt.clinclcut(j)) - $ dedx(nclstr1) = dedx(nclstr1) + value(j) !cluster charge + $ sgnl(nclstr1) = sgnl(nclstr1) + value(j) !cluster charge enddo c print*,'view ',iv,' -- save_cluster -- nclstr1: ' -c $ ,nclstr1,maxs(nclstr1),mult(nclstr1),dedx(nclstr1) +c $ ,nclstr1,maxs(nclstr1),mult(nclstr1),sgnl(nclstr1) enddo