/[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.3 by pam-fi, Thu Sep 28 14:04:40 2006 UTC revision 1.7 by pam-fi, Fri Nov 10 11:38:44 2006 UTC
# Line 9  Line 9 
9        subroutine analysisflight        subroutine analysisflight
10    
11        include 'commontracker.f'        include 'commontracker.f'
12          include 'level1.f'
13        include 'common_momanhough.f'        include 'common_momanhough.f'
14        include 'common_mech.f'        include 'common_mech.f'
15        include 'common_xyzPAM.f'        include 'common_xyzPAM.f'
16        include 'common_mini_2.f'        include 'common_mini_2.f'
17        include 'calib.f'        include 'calib.f'
       include 'level1.f'  
18        include 'level2.f'        include 'level2.f'
19    
20  *     flag to chose PFA  *     flag to chose PFA
# Line 44  c         print*,'START... ',good1,nclst Line 44  c         print*,'START... ',good1,nclst
44        endif        endif
45    
46  *------------------------------------------------------  *------------------------------------------------------
 *     LEVEL2 N-TUPLE INITIALIZATIONS  
47        call init_level2        call init_level2
48  c      if(.not.good1)then        call init_hough
 c      if(good1.eq.0)then  
 c         goto 8800              !fill nt-uple and go to next event  
 c      endif  
49  *------------------------------------------------------  *------------------------------------------------------
50                
51  *------------------------------------------------------  *------------------------------------------------------
52  *     cut on maximum number of clusters  *     cut on maximum number of clusters
53  *------------------------------------------------------  *------------------------------------------------------
54        if(nclstr1.gt.nclstrmax_level2)then  c$$$      if(nclstr1.gt.nclstrmax_level2)then
55           goto 8800              !fill nt-uple and go to next event  c$$$         goto 8800              !fill nt-uple and go to next event
56        endif  c$$$      endif
57                
58        do i=1,nclstr1        do i=1,nclstr1
59           cl_used(i)=0           !init mask of clusters associated to a track           cl_used(i)=0           !init mask of clusters associated to a track
# Line 77  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 104  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.3  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.23