--- DarthVader/TrackerLevel2/src/F77/mini.f 2006/11/07 15:55:11 1.4 +++ DarthVader/TrackerLevel2/src/F77/mini.f 2006/11/08 16:42:28 1.5 @@ -120,9 +120,7 @@ ISTEP=0 !num. steps to minimize chi^2 JFAIL=0 !error flag -c elena-------- - CHI2 = 0 -c elena-------- + if(TRKDEBUG) print*,'guess: ',al if(TRKDEBUG) print*,'mini2: step ',istep,chi2,1./AL(5) * @@ -467,6 +465,7 @@ + +((XV(I)-XM(I))**2+(YV(I)-YM(I))**2)/RESY(i)**2 + *( (1-XGOOD(I))*YGOOD(I) ) ENDDO +c print*,'CHISQ ',chi2 * ------------------------------------------------ * * calculation of derivatives (dX/dAL_fa and dY/dAL_fa) @@ -641,6 +640,9 @@ VOUT(6)=-1.*DSQRT(1.-AL_P(3)**2) IF(AL_P(5).NE.0.) VOUT(7)=DABS(1./AL_P(5)) IF(AL_P(5).EQ.0.) VOUT(7)=1.E8 + +c$$$ print*,'POSXY ',vout + DO I=1,nplanes step=vout(3)-zv(i) 10 DO J=1,7