--- DarthVader/TrackerLevel2/src/F77/mini.f 2006/11/21 14:00:40 1.8 +++ DarthVader/TrackerLevel2/src/F77/mini.f 2006/11/21 17:12:26 1.9 @@ -799,8 +799,9 @@ ZP(NP)=ZM(I) ENDIF ENDDO + IFLAG=0 !no debug mode CALL TRICIRCLE(NP,XP,ZP,AP,RP,CHI,XC,ZC,RADIUS,IFLAG) - print*,' circle: ',XC,ZC,RADIUS,' --- ',CHI,IFLAG +c print*,' circle: ',XC,ZC,RADIUS,' --- ',CHI,IFLAG IF(IFLAG.NE.0)GOTO 10 !straigth fit if(CHI.gt.100)GOTO 10 !straigth fit ARG = RADIUS**2-(ZINI-ZC)**2