/[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.5 by pam-fi, Tue Nov 7 15:55:11 2006 UTC revision 1.8 by pam-fi, Wed Nov 15 17:55:51 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    c      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    c      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 104  c$$$      endif Line 107  c$$$      endif
107        do iv = 1,nviews        do iv = 1,nviews
108           ngood = ngood + good1(iv)           ngood = ngood + good1(iv)
109        enddo        enddo
110        if(ngood.ne.0)print*,'* WARNING * Event '  c$$$      if(ngood.ne.0)print*,'* WARNING * Event '
111       $     ,':LEVEL2 event status: '  c$$$     $     ,':LEVEL2 event status: '
112       $     ,(good2(i),i=1,nviews)  c$$$     $     ,(good2(i),i=1,nviews)
113                
114   8800 continue   8800 continue
115                
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.23