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

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

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

revision 1.10 by pam-fi, Thu Oct 26 16:22:38 2006 UTC revision 1.11 by pam-fi, Fri Oct 27 16:08:19 2006 UTC
# Line 457  c$$$               if(rmax-lmax+1.gt.25) Line 457  c$$$               if(rmax-lmax+1.gt.25)
457  c$$$     $              print*,'view ',iv  c$$$     $              print*,'view ',iv
458  c$$$     $              ,' cl ',nclstr_view,' mult ',rmax-lmax+1  c$$$     $              ,' cl ',nclstr_view,' mult ',rmax-lmax+1
459  c------------------------------------------------------------------------  c------------------------------------------------------------------------
460  c     search for a dowble peak inside the cluster                                                                                                              c     search for a double peak inside the cluster                                                                                                            
461  c------------------------------------------------------------------------  c------------------------------------------------------------------------
462                 inext = rmax+1   !<< index where to start new-cluster search                 inext = rmax+1   !<< index where to start new-cluster search
463                                
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.23