/[PAMELA software]/DarthVader/TrackerLevel2/src/F77/mini.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/src/F77/mini.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by pam-fi, Fri Apr 27 10:39:58 2007 UTC revision 1.16 by pam-fi, Mon May 14 11:03:06 2007 UTC
# Line 445  c$$$      ENDDO Line 445  c$$$      ENDDO
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)

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

  ViewVC Help
Powered by ViewVC 1.1.23