--- DarthVader/TrackerLevel2/src/F77/analysissubroutines.f 2008/12/05 08:26:47 1.37 +++ DarthVader/TrackerLevel2/src/F77/analysissubroutines.f 2008/12/23 11:28:36 1.38 @@ -376,12 +376,13 @@ if(VERBOSE.EQ.1)iprint=1 if(DEBUG.EQ.1)iprint=2 call mini2(jstep,ifail,iprint) - if(ifail.ne.0) then +cc if(ifail.ne.0) then + if(ifail.ne.0.or.CHI2.ne.CHI2) then !new + if(CHI2.ne.CHI2)CHI2=-9999. !new if(VERBOSE.EQ.1)then print *, $ '*** MINIMIZATION FAILURE *** (after refinement) ' $ ,iev - endif endif @@ -3011,6 +3012,8 @@ * ********************************************************** if(chi2.le.0.)goto 666 + if(chi2.ge.1.e08)goto 666 !OPTIMIZATION + if(chi2.ne.chi2)goto 666 !OPTIMIZATION * -------------------------- * STORE candidate TRACK INFO