/[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.4 by pam-fi, Fri Oct 27 16:08:19 2006 UTC revision 1.5 by pam-fi, Tue Nov 7 15:55:11 2006 UTC
# Line 99  c$$$      endif Line 99  c$$$      endif
99           print*,''           print*,''
100           print*,''           print*,''
101        endif        endif
102    
103          ngood = 0
104          do iv = 1,nviews
105             ngood = ngood + good1(iv)
106          enddo
107          if(ngood.ne.0)print*,'* WARNING * Event '
108         $     ,':LEVEL2 event status: '
109         $     ,(good2(i),i=1,nviews)
110                
111   8800 continue   8800 continue
112                
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.23