/[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.4 by pam-fi, Mon Feb 19 16:28:39 2007 UTC revision 1.7 by pam-fi, Mon May 14 11:03:05 2007 UTC
# Line 40  c      PARAMETER (PIGR=3.141592654)!???? Line 40  c      PARAMETER (PIGR=3.141592654)!????
40  *     (All the needed quantities for couples and singlets can be evaluated  *     (All the needed quantities for couples and singlets can be evaluated
41  *     by means of the routine xyz_PAM)  *     by means of the routine xyz_PAM)
42  *     -------------------------------------------------------------------------  *     -------------------------------------------------------------------------
43    
44    
45        REAL*8 AL        REAL*8 AL
46        REAL*8 XM,YM,ZM        REAL*8 XM,YM,ZM
47        REAL*8 XM_A,YM_A!,ZM_A        REAL*8 XM_A,YM_A!,ZM_A
48        REAL*8 XM_B,YM_B!,ZM_B        REAL*8 XM_B,YM_B!,ZM_B
49        REAL*8 RESX,RESY        REAL*8 RESX,RESY
50        REAL*8 XGOOD,YGOOD        REAL*8 XGOOD,YGOOD
51  c     REAL*8 DEDXTRK            !(1)        REAL*8 DEDXTRK_X          
52        REAL*8 DEDXTRK_X          !(1)        REAL*8 DEDXTRK_Y        
       REAL*8 DEDXTRK_Y          !(1)  
53        REAL*8 ZINI     ! ***PP***        REAL*8 ZINI     ! ***PP***
54        REAL*8 PFIXED   ! ***PP***        REAL*8 PFIXED   ! ***PP***
55        REAL*8 CHI2        REAL*8 CHI2
56        REAL*8 XV,YV,ZV        REAL*8 XV,YV,ZV
57        REAL*8 AXV,AYV        REAL*8 AXV,AYV
58        REAL*8 COV        REAL*8 COV
59          REAL*8 FACT
60        INTEGER NSTEP        INTEGER NSTEP
61        INTEGER IDCAND            !(2)        INTEGER IDCAND            
62        INTEGER TRACKMODE        INTEGER TRACKMODE
63          INTEGER ISTEPMIN
64        COMMON/TRACK/        COMMON/TRACK/
65       $      AL(5)                                      !track parameters       $      AL(5)                                      !track parameters
66       $     ,XM(NPLANES),YM(NPLANES),ZM(NPLANES)        !couple    => xyz point       $     ,XM(NPLANES),YM(NPLANES),ZM(NPLANES)        !couple    => xyz point
# Line 66  c     REAL*8 DEDXTRK            !(1) Line 69  c     REAL*8 DEDXTRK            !(1)
69       $     ,RESX(NPLANES),RESY(NPLANES)                !spatial resolution       $     ,RESX(NPLANES),RESY(NPLANES)                !spatial resolution
70       $     ,XGOOD(NPLANES),YGOOD(NPLANES)              !mask of included views       $     ,XGOOD(NPLANES),YGOOD(NPLANES)              !mask of included views
71  c     $     ,DEDXTRK(NPLANES)                           !energy release  c     $     ,DEDXTRK(NPLANES)                           !energy release
72       $     ,DEDXTRK_X(NPLANES),DEDXTRK_Y(NPLANES) !(1)       $     ,DEDXTRK_X(NPLANES),DEDXTRK_Y(NPLANES)
73       $     ,ZINI       $     ,ZINI
74       $     ,PFIXED       $     ,PFIXED
75       $     ,CHI2       $     ,CHI2
76       $     ,XV(NPLANES),YV(NPLANES),ZV(NPLANES)       $     ,XV(NPLANES),YV(NPLANES),ZV(NPLANES)
77       $     ,AXV(NPLANES),AYV(NPLANES)       $     ,AXV(NPLANES),AYV(NPLANES)
78       $     ,COV(5,5)       $     ,COV(5,5)
79         $     ,FACT                ! factor scale for tracking precision
80       $     ,NSTEP       $     ,NSTEP
81       $     ,IDCAND              !(2) track-candidate ID (to relate some level1 info)       $     ,IDCAND              !(2) track-candidate ID (to relate some level1 info)
82       $     ,TRACKMODE           ! tracking mode, 0=normal, 1=with bremsstrahlung       $     ,TRACKMODE           ! tracking mode, 0=normal, 1=with bremsstrahlung
83         $     ,ISTEPMIN            ! minimum number of step during tracking
84  c******************************************************  c******************************************************
85  cccccc 06/10/2005 modified by elena vannuccini ---> (1)  cccccc 06/10/2005 modified by elena vannuccini ---> (1)
86  cccccc 17/08/2006 modified by elena vannuccini ---> (2)  cccccc 17/08/2006 modified by elena vannuccini ---> (2)
87  c******************************************************  c******************************************************
88    
89    
90  *     -------------------------------------------------------------------------  *     -------------------------------------------------------------------------
91  *     The FIT info includes:  *     The FIT info includes:
92  *     - REDUCED chi2  *     - REDUCED chi2
# Line 105  c$$$     $     ,COV(5,5)             Line 111  c$$$     $     ,COV(5,5)            
111    
112    
113    
   
   
114  *     -------------------------------------------------------------------------  *     -------------------------------------------------------------------------
115  *     Other commons needed by the minimization procedures:  *     Other commons needed by the minimization procedures:
116  *     -------------------------------------------------------------------------  *     -------------------------------------------------------------------------
# Line 120  c$$$     $     ,COV(5,5)             Line 124  c$$$     $     ,COV(5,5)            
124       $     ,DXDAL(NPLANES,5),DYDAL(NPLANES,5)       $     ,DXDAL(NPLANES,5),DYDAL(NPLANES,5)
125       $     ,STEPAL(5)       $     ,STEPAL(5)
126  ***PP***     $     ,ZINI  ***PP***     $     ,ZINI
127    
128  *     -------------------------------------------------------------------------  *     -------------------------------------------------------------------------
129  *     convergence conditions  *     convergence conditions
130        REAL*8 ALTOL              !tolerances on AL-pha parameters        REAL*8 ALTOL              !tolerances on AL-pha parameters
# Line 129  c$$$     $     ,COV(5,5)             Line 134  c$$$     $     ,COV(5,5)            
134       $      ALTOL(5)       $      ALTOL(5)
135       $     ,ALMAX(5),ALMIN(5)       $     ,ALMAX(5),ALMIN(5)
136       $     ,ISTEPMAX       $     ,ISTEPMAX
137    
138    
139  *     -------------------------------------------------------------------------  *     -------------------------------------------------------------------------
140  *     variables for the tracking (routine posxy)  *     variables for the tracking (routine posxy)
141        REAL*8 VECT,VECTINI,VOUT  !vectors for Runge-Kutta method        REAL*8 VECT,VECTINI,VOUT  !vectors for Runge-Kutta method
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.23