/[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.22 by mocchiut, Mon Feb 15 20:47:11 2010 UTC revision 1.23 by pam-ts, Wed Jun 4 07:57:04 2014 UTC
# Line 131  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 224  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  *     /////////////////////////////////////////////////////  *     /////////////////////////////////////////////////////
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.23