/[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.13 by pam-fi, Thu Nov 23 18:51:45 2006 UTC revision 1.16 by pam-fi, Fri Feb 16 14:56:02 2007 UTC
# Line 168  C===  > X view Line 168  C===  > X view
168             call save_cluster(iv)             call save_cluster(iv)
169          else          else
170             fshower(iv) = 1             fshower(iv) = 1
171             GOOD1(DSPnumber(iv)) = 11  c           GOOD1(DSPnumber(iv)) = 11 !AHAHAHAHA ORRORE!!
172               GOOD1(iv) = 11
173          endif          endif
174        enddo                     ! end loop on views        enddo                     ! end loop on views
175        do iv=1,nviews        do iv=1,nviews
# Line 231  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           whichtrack(ic) = 0     !assigned @ level2
237    
238        enddo        enddo
239        do id=1,maxlength         !???        do id=1,maxlength         !???
# Line 542  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 558  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.13  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.23