--- DarthVader/TrackerLevel2/src/F77/analysisflight.f 2006/09/28 14:04:40 1.3 +++ DarthVader/TrackerLevel2/src/F77/analysisflight.f 2006/10/27 16:08:19 1.4 @@ -9,12 +9,12 @@ subroutine analysisflight include 'commontracker.f' + include 'level1.f' include 'common_momanhough.f' include 'common_mech.f' include 'common_xyzPAM.f' include 'common_mini_2.f' include 'calib.f' - include 'level1.f' include 'level2.f' * flag to chose PFA @@ -44,20 +44,15 @@ endif *------------------------------------------------------ -* LEVEL2 N-TUPLE INITIALIZATIONS call init_level2 -c if(.not.good1)then -c if(good1.eq.0)then -c goto 8800 !fill nt-uple and go to next event -c endif *------------------------------------------------------ *------------------------------------------------------ * cut on maximum number of clusters *------------------------------------------------------ - if(nclstr1.gt.nclstrmax_level2)then - goto 8800 !fill nt-uple and go to next event - endif +c$$$ if(nclstr1.gt.nclstrmax_level2)then +c$$$ goto 8800 !fill nt-uple and go to next event +c$$$ endif do i=1,nclstr1 cl_used(i)=0 !init mask of clusters associated to a track