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

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

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

revision 1.18 by pam-fi, Tue Dec 23 11:28:36 2008 UTC revision 1.22 by mocchiut, Mon Feb 15 20:47:11 2010 UTC
# Line 65  c      parameter (inf=1.e8)      !just a Line 65  c      parameter (inf=1.e8)      !just a
65                
66        ntrk_old = 0        ntrk_old = 0
67    
68          dedx_x_min = dedx_x_min_mip !mip search
69          dedx_y_min = dedx_y_min_mip !
70    
71    c 887  continue ! Emiliano, fix compilation warning (gcc 4.1), Label 887 defined but not used
72    
73    *------------------------------------------------------
74        do i=1,nclstr1        do i=1,nclstr1
75           cl_used(i)=0           !init mask of clusters associated to a track           cl_used(i)=0           !init mask of clusters associated to a track
76        enddo        enddo
77        dedx_x_min = dedx_x_min_mip  
       dedx_y_min = dedx_y_min_mip  
 *------------------------------------------------------  
78        call init_level2        call init_level2
79        call init_hough              call init_hough      
80  *------------------------------------------------------  *------------------------------------------------------
# Line 87  c      parameter (inf=1.e8)      !just a Line 91  c      parameter (inf=1.e8)      !just a
91           goto 880               !fill ntp and go to next event               goto 880               !fill ntp and go to next event    
92        endif        endif
93    
94  *     -------------------------------------  *     ----------------------------------------------------
95  *     fill hough output variables only for the first searc  *     fill hough output variables only for the first searc
96  *     -------------------------------------  *     ----------------------------------------------------
97        if(.not.SECOND_SEARCH)call fill_hough        if(.not.SECOND_SEARCH)call fill_hough
98    
99        iflag=0        iflag=0
# Line 319  cc         if(.true.) Line 323  cc         if(.true.)
323           ngood = ngood + good1(iv)           ngood = ngood + good1(iv)
324        enddo        enddo
325                
326   8800 continue  c 8800 continue
327          continue
328                
329                
330  *     ///////////////////////////////////////////////  *     ///////////////////////////////////////////////
331  *     \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\  *     \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
332    
333   100  continue  c 100  continue
334          continue
335                
336        return        return
337        end        end
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.23