--- DarthVader/TrackerLevel2/src/F77/analysissubroutines.f 2006/11/07 15:55:11 1.11 +++ DarthVader/TrackerLevel2/src/F77/analysissubroutines.f 2006/11/08 16:42:28 1.13 @@ -297,7 +297,7 @@ iprint=0 c if(DEBUG)iprint=1 - if(.true.)iprint=1 + if(VERBOSE)iprint=1 call mini2(jstep,ifail,iprint) if(ifail.ne.0) then if(.true.)then @@ -305,12 +305,12 @@ $ '*** MINIMIZATION FAILURE *** (after refinement) ' $ ,iev - print*,'guess: ',(al_guess(i),i=1,5) - print*,'previous: ',(al_store(i,icand),i=1,5) - print*,'result: ',(al(i),i=1,5) - print*,'xgood ',xgood - print*,'ygood ',ygood - print*,'----------------------------------------------' +c$$$ print*,'guess: ',(al_guess(i),i=1,5) +c$$$ print*,'previous: ',(al_store(i,icand),i=1,5) +c$$$ print*,'result: ',(al(i),i=1,5) +c$$$ print*,'xgood ',xgood +c$$$ print*,'ygood ',ygood +c$$$ print*,'----------------------------------------------' endif c chi2=-chi2 endif