/[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.19 by pam-fi, Mon Jan 26 14:01:31 2009 UTC revision 1.23 by pam-ts, Wed Jun 4 07:57:04 2014 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 127  cc         if(.true.) Line 131  cc         if(.true.)
131        endif        endif
132    
133    
134    *     @~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@
135    *
136    *     EV may 2014 ==> SKIP NUCLEI PATCH
137    *     (done differently...)
138    *
139    *     @~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@
140          goto 7575
141    
142    
143  *     ////////////////////////////////////////////////  *     ////////////////////////////////////////////////
144  *     PATCH to recover nuclei  *     PATCH to recover nuclei
145  *     ////////////////////////////////////////////////  *     ////////////////////////////////////////////////
# Line 220  cc         if(.true.) Line 233  cc         if(.true.)
233           RECOVER_NUCLEI   = .false.               RECOVER_NUCLEI   = .false.    
234        endif        endif
235    
236    *     @~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@
237     7575 continue
238    *     @~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@
239    
240        if(ntrk.eq.0)goto 880        if(ntrk.eq.0)goto 880
241    
242  *     /////////////////////////////////////////////////////  *     /////////////////////////////////////////////////////
# Line 319  cc         if(.true.) Line 336  cc         if(.true.)
336           ngood = ngood + good1(iv)           ngood = ngood + good1(iv)
337        enddo        enddo
338                
339   8800 continue  c 8800 continue
340          continue
341                
342                
343  *     ///////////////////////////////////////////////  *     ///////////////////////////////////////////////
344  *     \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\  *     \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
345    
346   100  continue  c 100  continue
347          continue
348                
349        return        return
350        end        end
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.23