445 |
* measured position of the cluster. |
* measured position of the cluster. |
446 |
* --------------------------------------------------------- |
* --------------------------------------------------------- |
447 |
CHI2=0. |
CHI2=0. |
448 |
DO I=1,nplanes |
DO I=1,nplanes |
449 |
IF(XGOOD(I).EQ.1.AND.YGOOD(I).EQ.0)THEN !X-cl |
IF(XGOOD(I).EQ.1.AND.YGOOD(I).EQ.0)THEN !X-cl |
450 |
BETA = (XM_B(I)-XM_A(I))/(YM_B(I)-YM_A(I)) |
BETA = (XM_B(I)-XM_A(I))/(YM_B(I)-YM_A(I)) |
451 |
ALFA = XM_A(I) - BETA * YM_A(I) |
ALFA = XM_A(I) - BETA * YM_A(I) |