--- DarthVader/TrackerLevel2/src/F77/mini.f 2014/01/17 12:56:51 1.27 +++ DarthVader/TrackerLevel2/src/F77/mini.f 2014/06/04 07:57:04 1.28 @@ -141,8 +141,8 @@ JFAIL=0 !error flag CHI2=0 - if(TRKDEBUG) print*,'guess: ',al - if(TRKDEBUG) print*,'mini2: step ',istep,chi2,AL(5) + if(TRKDEBUG) print*,'mini : guess ',al + if(TRKDEBUG) print*,'mini : step ',istep,chi2,AL(5) * * ----------------------- @@ -252,7 +252,7 @@ ENDDO ENDIF - if(TRKDEBUG) print*,'mini2: step ',istep,chi2,AL(5) + if(TRKDEBUG) print*,'mini : step ',istep,chi2,AL(5) c$$$ PRINT*,'DAL ',(DAL(K),K=1,5) c$$$ PRINT*,'CHI2DOLD ',(CHI2DOLD(K),K=1,5) @@ -563,7 +563,7 @@ 11 CONTINUE - if(TRKDEBUG) print*,'mini2: -ok- ',istep,chi2,AL(5) + if(TRKDEBUG) print*,'mini : -ok- ',istep,chi2,AL(5) NSTEP=ISTEP ! ***PP*** @@ -1142,6 +1142,15 @@ REAL*4 XP(NPLANES),ZP(NPLANES),AP(NPLANES),RP(NPLANES) REAL*4 CHI,XC,ZC,RADIUS + +c$$$ DO I=1,nplanes +c$$$ print *,i,' - ',XGOOD(I),YGOOD(I) +c$$$ print *,i,' - ',xm(i),ym(i),zm(i) +c$$$ print *,i,' A ',xm_a(i),ym_a(i),zm_a(i) +c$$$ print *,i,' B ',xm_b(i),ym_b(i),zm_b(i) +c$$$ enddo + + * ---------------------------------------- * Y view * ----------------------------------------