/[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.17 by pam-fi, Fri Dec 5 08:26:47 2008 UTC revision 1.21 by pamelats, Wed Dec 30 14:22:22 2009 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     887  continue
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 285  cc      if(.true.)then Line 289  cc      if(.true.)then
289       $     .true.)then       $     .true.)then
290    
291           SECOND_SEARCH=.true.           SECOND_SEARCH=.true.
292           RECOVER_SINGLETS=.true.  c         RECOVER_SINGLETS=.true.      !OPTIMIZATION  
293           ntrk_old=ntrk           ntrk_old=ntrk
294    
295           if(DEBUG.EQ.1)           if(DEBUG.EQ.1)
# 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.17  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.23