/[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.20 by mocchiut, Tue Aug 4 14:01:35 2009 UTC
# Line 87  c      parameter (inf=1.e8)      !just a Line 87  c      parameter (inf=1.e8)      !just a
87           goto 880               !fill ntp and go to next event               goto 880               !fill ntp and go to next event    
88        endif        endif
89    
90  *     -------------------------------------  *     ----------------------------------------------------
91  *     fill hough output variables only for the first searc  *     fill hough output variables only for the first searc
92  *     -------------------------------------  *     ----------------------------------------------------
93        if(.not.SECOND_SEARCH)call fill_hough        if(.not.SECOND_SEARCH)call fill_hough
94    
95        iflag=0        iflag=0
# Line 285  cc      if(.true.)then Line 285  cc      if(.true.)then
285       $     .true.)then       $     .true.)then
286    
287           SECOND_SEARCH=.true.           SECOND_SEARCH=.true.
288           RECOVER_SINGLETS=.true.  c         RECOVER_SINGLETS=.true.      !OPTIMIZATION  
289           ntrk_old=ntrk           ntrk_old=ntrk
290    
291           if(DEBUG.EQ.1)           if(DEBUG.EQ.1)
# Line 319  cc         if(.true.) Line 319  cc         if(.true.)
319           ngood = ngood + good1(iv)           ngood = ngood + good1(iv)
320        enddo        enddo
321                
322   8800 continue  c 8800 continue
323          continue
324                
325                
326  *     ///////////////////////////////////////////////  *     ///////////////////////////////////////////////
327  *     \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\  *     \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
328    
329   100  continue  c 100  continue
330          continue
331                
332        return        return
333        end        end
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.23