--- DarthVader/TrackerLevel2/src/F77/mini.f 2007/06/01 15:01:19 1.18 +++ DarthVader/TrackerLevel2/src/F77/mini.f 2007/06/06 09:26:09 1.19 @@ -146,7 +146,7 @@ * **** Chi2+gaussian minimization * ------------------------------- - IF(.NOT.STUDENT.OR.FIRSTSTEPS) THEN + IF((.NOT.STUDENT).OR.FIRSTSTEPS) THEN IF(ISTEP.GE.3) FIRSTSTEPS = .false. @@ -296,7 +296,10 @@ FC = CHI2 EC = 0. + ICOUNT = 0 100 CONTINUE + ICOUNT = ICOUNT+1 + DO I=1,5 AL0(I)=AL(I) ENDDO @@ -340,6 +343,7 @@ ENDIF c$$$ E = BETA*E ENDIF + IF(ICOUNT.GT.20) GOTO 101 GOTO 100 101 CONTINUE