--- DarthVader/TrackerLevel2/src/F77/analysisflight.f 2006/05/19 13:15:54 1.1 +++ DarthVader/TrackerLevel2/src/F77/analysisflight.f 2006/09/28 14:04:40 1.3 @@ -17,12 +17,6 @@ include 'level1.f' include 'level2.f' -c include 'momanhough_init.f' - -* flag to set debug mode - logical DEBUG - common/dbg/DEBUG - * flag to chose PFA character*10 PFA common/FINALPFA/PFA @@ -33,7 +27,6 @@ external npl external acoordsi,coordsi,nld,coord,dcoord - DEBUG=.false.!.true.! ************************************************************ ************************************************************ ************************************************************ @@ -47,16 +40,16 @@ if(DEBUG)then print*,'----------------------------------' - print*,'START... ',good1,nclstr1,nclstrmax_level2 +c print*,'START... ',good1,nclstr1,nclstrmax_level2 endif *------------------------------------------------------ * LEVEL2 N-TUPLE INITIALIZATIONS call init_level2 c if(.not.good1)then - if(good1.eq.0)then - goto 8800 !fill nt-uple and go to next event - endif +c if(good1.eq.0)then +c goto 8800 !fill nt-uple and go to next event +c endif *------------------------------------------------------ *------------------------------------------------------ @@ -127,6 +120,3 @@ ************************************************************ -c# include "momanhough-subroutines.f" - -