/[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.14 by pam-fi, Wed Mar 28 09:07:26 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)
# Line 755  c         ZM_B(IP) = 0 Line 755  c         ZM_B(IP) = 0
755           RESY(IP) = 1000.       !12.d-4           RESY(IP) = 1000.       !12.d-4
756           XGOOD(IP) = 0           XGOOD(IP) = 0
757           YGOOD(IP) = 0           YGOOD(IP) = 0
758             DEDXTRK_X(IP) = 0
759             DEDXTRK_Y(IP) = 0
760             AXV(IP) = 0
761             AYV(IP) = 0
762             XV(IP) = -100
763             YV(IP) = -100
764        enddo        enddo
765    
766        return        return
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.23