/[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.7 by pam-fi, Fri Nov 10 11:38:44 2006 UTC
# Line 45  c         print*,'START... ',good1,nclst Line 45  c         print*,'START... ',good1,nclst
45    
46  *------------------------------------------------------  *------------------------------------------------------
47        call init_level2        call init_level2
48          call init_hough
49  *------------------------------------------------------  *------------------------------------------------------
50                
51  *------------------------------------------------------  *------------------------------------------------------
# Line 72  c$$$      endif Line 73  c$$$      endif
73           goto 880               !fill ntp and go to next event               goto 880               !fill ntp and go to next event    
74        endif        endif
75    
76          call fill_hough
77    
78        iflag=0        iflag=0
79        call track_fitting(iflag)        call track_fitting(iflag)
80        if(iflag.eq.1)then        !bad event        if(iflag.eq.1)then        !bad event
# Line 99  c$$$      endif Line 102  c$$$      endif
102           print*,''           print*,''
103           print*,''           print*,''
104        endif        endif
105    
106          ngood = 0
107          do iv = 1,nviews
108             ngood = ngood + good1(iv)
109          enddo
110    c$$$      if(ngood.ne.0)print*,'* WARNING * Event '
111    c$$$     $     ,':LEVEL2 event status: '
112    c$$$     $     ,(good2(i),i=1,nviews)
113                
114   8800 continue   8800 continue
115                
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.23