/[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.6 by pam-fi, Wed Nov 8 10:12:01 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
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.23