--- DarthVader/TrackerLevel2/src/F77/analysissubroutines.f 2009/08/04 14:01:35 1.40 +++ DarthVader/TrackerLevel2/src/F77/analysissubroutines.f 2009/08/11 12:58:24 1.41 @@ -303,7 +303,7 @@ * 1st) decreasing n.points * 2nd) increasing chi**2 * ------------------------------------------------------- - rchi2best=1000000000. + rchi2best=1000000000. ndofbest=0 do i=1,ntracks ndof=0 @@ -706,7 +706,8 @@ stripx = stripx + corr resxPAM = res - 10 endif + 10 continue + endif * ----------------- * CLUSTER Y @@ -752,7 +753,8 @@ stripy = stripy + corr resyPAM = res - 20 endif + 20 continue + endif c===========================================================