/[PAMELA software]/DarthVader/TrackerLevel2/src/F77/reductionflight.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/src/F77/reductionflight.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by pam-fi, Thu Jan 11 10:20:58 2007 UTC revision 1.16 by pam-fi, Fri Feb 16 14:56:02 2007 UTC
# Line 232  c      good1 = 0 Line 232  c      good1 = 0
232           indmax(ic) = 0           indmax(ic) = 0
233           maxs(ic) = 0           maxs(ic) = 0
234           mult(ic) = 0                     mult(ic) = 0          
235           dedx(ic) = 0           sgnl(ic) = 0
236           whichtrack(ic) = 0     !assigned @ level2           whichtrack(ic) = 0     !assigned @ level2
237    
238        enddo        enddo
# Line 543  c        posizione del cluster seed nell Line 543  c        posizione del cluster seed nell
543                    
544           CLlength      = rmax_view(ic) - lmax_view(ic) + 1 !numero di strip salvate           CLlength      = rmax_view(ic) - lmax_view(ic) + 1 !numero di strip salvate
545           totCLlength   = totCLlength + CLlength           totCLlength   = totCLlength + CLlength
546           dedx(nclstr1) = 0           sgnl(nclstr1) = 0
547           do j=lmax_view(ic),rmax_view(ic)         !stores sequentially cluter strip values in           do j=lmax_view(ic),rmax_view(ic)         !stores sequentially cluter strip values in
548    
549              clsignal(ind) = value(j) ! clsignal array              clsignal(ind) = value(j) ! clsignal array
# Line 559  c            clped(ind)   = pedestal(iv, Line 559  c            clped(ind)   = pedestal(iv,
559              ind=ind+1              ind=ind+1
560  c     if(value(j).gt.0)  c     if(value(j).gt.0)
561              if(value(j).gt.clinclcut(j))              if(value(j).gt.clinclcut(j))
562       $           dedx(nclstr1) = dedx(nclstr1) + value(j) !cluster charge       $           sgnl(nclstr1) = sgnl(nclstr1) + value(j) !cluster charge
563           enddo           enddo
564    
565  c         print*,'view ',iv,' -- save_cluster -- nclstr1: '  c         print*,'view ',iv,' -- save_cluster -- nclstr1: '
566  c     $        ,nclstr1,maxs(nclstr1),mult(nclstr1),dedx(nclstr1)  c     $        ,nclstr1,maxs(nclstr1),mult(nclstr1),sgnl(nclstr1)
567                    
568        enddo        enddo
569                
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.23