/[PAMELA software]/DarthVader/TrackerLevel2/inc/F77/common_mini_2.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/inc/F77/common_mini_2.f

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

revision 1.1 by mocchiut, Fri May 19 13:15:53 2006 UTC revision 1.4 by pam-fi, Mon Feb 19 16:28:39 2007 UTC
# Line 44  c      PARAMETER (PIGR=3.141592654)!???? Line 44  c      PARAMETER (PIGR=3.141592654)!????
44        REAL*8 XM,YM,ZM        REAL*8 XM,YM,ZM
45        REAL*8 XM_A,YM_A!,ZM_A        REAL*8 XM_A,YM_A!,ZM_A
46        REAL*8 XM_B,YM_B!,ZM_B        REAL*8 XM_B,YM_B!,ZM_B
       REAL*8 XGOOD,YGOOD  
47        REAL*8 RESX,RESY        REAL*8 RESX,RESY
48          REAL*8 XGOOD,YGOOD
49  c     REAL*8 DEDXTRK            !(1)  c     REAL*8 DEDXTRK            !(1)
50        REAL*8 DEDXTRK_X          !(1)        REAL*8 DEDXTRK_X          !(1)
51        REAL*8 DEDXTRK_Y          !(1)        REAL*8 DEDXTRK_Y          !(1)
52          REAL*8 ZINI     ! ***PP***
53          REAL*8 PFIXED   ! ***PP***
54          REAL*8 CHI2
55          REAL*8 XV,YV,ZV
56          REAL*8 AXV,AYV
57          REAL*8 COV
58          INTEGER NSTEP
59          INTEGER IDCAND            !(2)
60          INTEGER TRACKMODE
61        COMMON/TRACK/        COMMON/TRACK/
62       $      AL(5)                                      !track parameters       $      AL(5)                                      !track parameters
63       $     ,XM(NPLANES),YM(NPLANES),ZM(NPLANES)        !couple    => xyz point       $     ,XM(NPLANES),YM(NPLANES),ZM(NPLANES)        !couple    => xyz point
# Line 58  c     REAL*8 DEDXTRK            !(1) Line 67  c     REAL*8 DEDXTRK            !(1)
67       $     ,XGOOD(NPLANES),YGOOD(NPLANES)              !mask of included views       $     ,XGOOD(NPLANES),YGOOD(NPLANES)              !mask of included views
68  c     $     ,DEDXTRK(NPLANES)                           !energy release  c     $     ,DEDXTRK(NPLANES)                           !energy release
69       $     ,DEDXTRK_X(NPLANES),DEDXTRK_Y(NPLANES) !(1)       $     ,DEDXTRK_X(NPLANES),DEDXTRK_Y(NPLANES) !(1)
70         $     ,ZINI
71         $     ,PFIXED
72         $     ,CHI2
73         $     ,XV(NPLANES),YV(NPLANES),ZV(NPLANES)
74         $     ,AXV(NPLANES),AYV(NPLANES)
75         $     ,COV(5,5)
76         $     ,NSTEP
77         $     ,IDCAND              !(2) track-candidate ID (to relate some level1 info)
78         $     ,TRACKMODE           ! tracking mode, 0=normal, 1=with bremsstrahlung
79  c******************************************************  c******************************************************
80  cccccc 06/10/2005 modified by elena vannuccini ---> (1)  cccccc 06/10/2005 modified by elena vannuccini ---> (1)
81    cccccc 17/08/2006 modified by elena vannuccini ---> (2)
82  c******************************************************  c******************************************************
83    
84  *     -------------------------------------------------------------------------  *     -------------------------------------------------------------------------
# Line 70  c*************************************** Line 89  c***************************************
89  *     - projected angles  *     - projected angles
90  *     - parameter covariance matrix  *     - parameter covariance matrix
91  *     -------------------------------------------------------------------------  *     -------------------------------------------------------------------------
92        REAL*8 CHI2  c$$$      REAL*8 ZINI     ! ***PP***
93        REAL*8 XV,YV,ZV  c$$$      REAL*8 PFIXED   ! ***PP***
94        REAL*8 AXV,AYV  c$$$      REAL*8 CHI2
95        REAL*8 COV  c$$$      REAL*8 XV,YV,ZV
96        COMMON/FIT_INFO/  c$$$      REAL*8 AXV,AYV
97       $      CHI2  c$$$      REAL*8 COV
98       $     ,XV(NPLANES),YV(NPLANES),ZV(NPLANES)  c$$$      COMMON/FIT_INFO/
99       $     ,AXV(NPLANES),AYV(NPLANES)  c$$$     $      ZINI
100       $     ,COV(5,5)              c$$$     $     ,PFIXED
101    c$$$     $     ,CHI2
102    c$$$     $     ,XV(NPLANES),YV(NPLANES),ZV(NPLANES)
103    c$$$     $     ,AXV(NPLANES),AYV(NPLANES)
104    c$$$     $     ,COV(5,5)            
105    
106    
107    
# Line 91  c*************************************** Line 114  c***************************************
114        REAL*8 CHI2D,CHI2DD       !first and second derivatives of chi^2        REAL*8 CHI2D,CHI2DD       !first and second derivatives of chi^2
115        REAL*8 DXDAL,DYDAL        !first derivatives of x and y on AL-pha        REAL*8 DXDAL,DYDAL        !first derivatives of x and y on AL-pha
116        REAL*8 STEPAL             !        REAL*8 STEPAL             !
117        REAL*8 ZINI               !z coordinate of reference plane  ***PP***      REAL*8 ZINI               !z coordinate of reference plane
118        COMMON/MINICOM/        COMMON/MINICOM/
119       $      CHI2D(5),CHI2DD(5,5)       $      CHI2D(5),CHI2DD(5,5)
120       $     ,DXDAL(NPLANES,5),DYDAL(NPLANES,5)       $     ,DXDAL(NPLANES,5),DYDAL(NPLANES,5)
121       $     ,STEPAL(5)       $     ,STEPAL(5)
122       $     ,ZINI  ***PP***     $     ,ZINI
123  *     -------------------------------------------------------------------------  *     -------------------------------------------------------------------------
124  *     convergence conditions  *     convergence conditions
125        REAL*8 ALTOL              !tolerances on AL-pha parameters        REAL*8 ALTOL              !tolerances on AL-pha parameters
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23