--- DarthVader/TrackerLevel2/src/F77/analysisflight.f 2008/12/05 08:26:47 1.17 +++ DarthVader/TrackerLevel2/src/F77/analysisflight.f 2010/02/15 20:47:11 1.22 @@ -65,12 +65,16 @@ ntrk_old = 0 + dedx_x_min = dedx_x_min_mip !mip search + dedx_y_min = dedx_y_min_mip ! + +c 887 continue ! Emiliano, fix compilation warning (gcc 4.1), Label 887 defined but not used + +*------------------------------------------------------ do i=1,nclstr1 cl_used(i)=0 !init mask of clusters associated to a track enddo - dedx_x_min = dedx_x_min_mip - dedx_y_min = dedx_y_min_mip -*------------------------------------------------------ + call init_level2 call init_hough *------------------------------------------------------ @@ -87,9 +91,9 @@ goto 880 !fill ntp and go to next event endif -* ------------------------------------- +* ---------------------------------------------------- * fill hough output variables only for the first searc -* ------------------------------------- +* ---------------------------------------------------- if(.not.SECOND_SEARCH)call fill_hough iflag=0 @@ -285,7 +289,7 @@ $ .true.)then SECOND_SEARCH=.true. - RECOVER_SINGLETS=.true. +c RECOVER_SINGLETS=.true. !OPTIMIZATION ntrk_old=ntrk if(DEBUG.EQ.1) @@ -319,13 +323,15 @@ ngood = ngood + good1(iv) enddo - 8800 continue +c 8800 continue + continue * /////////////////////////////////////////////// * \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - 100 continue +c 100 continue + continue return end