/[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.12 by pam-fi, Wed Nov 8 10:12:01 2006 UTC
# Line 189  C--------------------------------------- Line 189  C---------------------------------------
189        do iv = 1,nviews        do iv = 1,nviews
190           ngood = ngood + good1(iv)           ngood = ngood + good1(iv)
191        enddo        enddo
192        if(ngood.ne.0)print*,'* WARNING * Event ',eventn(1)  c$$$      if(ngood.ne.0)print*,'* WARNING * Event ',eventn(1)
193       $     ,':LEVEL1 event status: '  c$$$     $     ,':LEVEL1 event status: '
194       $     ,(good1(i),i=1,nviews)  c$$$     $     ,(good1(i),i=1,nviews)
195  c------------------------------------------------------------------------  c------------------------------------------------------------------------
196  c  c
197  c     closes files and exits  c     closes files and exits
# 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.12
  ViewVC Help
Powered by ViewVC 1.1.23