/[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.12 by bongi, Thu Nov 20 15:06:25 2008 UTC revision 1.14 by pam-ts, Wed Jun 4 07:57:03 2014 UTC
# Line 55  c      PARAMETER (PIGR=3.141592654)!???? Line 55  c      PARAMETER (PIGR=3.141592654)!????
55        REAL*8 PFIXED   ! ***PP***        REAL*8 PFIXED   ! ***PP***
56        REAL*8 CHI2        REAL*8 CHI2
57        REAL*8 XV,YV,ZV        REAL*8 XV,YV,ZV
       REAL*8 XV_A,YV_A,ZV_A  
       REAL*8 XV_B,YV_B,ZV_B  
58        REAL*8 AXV,AYV        REAL*8 AXV,AYV
59        REAL*8 COV        REAL*8 COV
60        REAL*8 FACT        REAL*8 FACT
# Line 67  c      PARAMETER (PIGR=3.141592654)!???? Line 65  c      PARAMETER (PIGR=3.141592654)!????
65        COMMON/TRACK/        COMMON/TRACK/
66       $      AL(5)                                      !track parameters       $      AL(5)                                      !track parameters
67       $     ,XM(NPLANES),YM(NPLANES),ZM(NPLANES)        !couple    => xyz point       $     ,XM(NPLANES),YM(NPLANES),ZM(NPLANES)        !couple    => xyz point
68       $     ,XM_A(NPLANES),YM_A(NPLANES),ZM_A(NPLANES) !single cl => segment AB       $     ,XM_A(NPLANES),YM_A(NPLANES),ZM_A(NPLANES)  !single cl => segment AB
69       $     ,XM_B(NPLANES),YM_B(NPLANES),ZM_B(NPLANES) !       $     ,XM_B(NPLANES),YM_B(NPLANES),ZM_B(NPLANES)  !
70       $     ,RESX(NPLANES),RESY(NPLANES)                !spatial resolution       $     ,RESX(NPLANES),RESY(NPLANES)                !spatial resolution
71       $     ,TAILX(NPLANES),TAILY(NPLANES)              !tails in the resolution       $     ,TAILX(NPLANES),TAILY(NPLANES)              !tails in the resolution
72       $     ,XGOOD(NPLANES),YGOOD(NPLANES)              !mask of included views       $     ,XGOOD(NPLANES),YGOOD(NPLANES)              !mask of included views
# Line 78  c     $     ,DEDXTRK(NPLANES)           Line 76  c     $     ,DEDXTRK(NPLANES)          
76       $     ,PFIXED       $     ,PFIXED
77       $     ,CHI2       $     ,CHI2
78       $     ,XV(NPLANES),YV(NPLANES),ZV(NPLANES)       $     ,XV(NPLANES),YV(NPLANES),ZV(NPLANES)
      $     ,XV_A(NPLANES),YV_A(NPLANES),ZV_A(NPLANES)  !single cl => segment AB  
      $     ,XV_B(NPLANES),YV_B(NPLANES),ZV_B(NPLANES)  !  
79       $     ,AXV(NPLANES),AYV(NPLANES)       $     ,AXV(NPLANES),AYV(NPLANES)
80       $     ,COV(5,5)       $     ,COV(5,5)
81       $     ,FACT                ! factor scale for tracking precision       $     ,FACT                ! factor scale for tracking precision
# Line 155  c$$$     $     ,COV(5,5)             Line 151  c$$$     $     ,COV(5,5)            
151    
152  *     -------------------------------------------------------------------------  *     -------------------------------------------------------------------------
153  *     variables for the DeltaB coorection  *     variables for the DeltaB coorection
154        REAL*8 DELTA0,DELTA1,DLT        ! DELTA-DEF = DELTA0 + DELTA1 x Y  c$$$      REAL*8 DELTA0,DELTA1,DLT        ! DELTA-DEF = DELTA0 + DELTA1 x Y
155        COMMON/DELTAB/DELTA0,DELTA1,DLT  c$$$      COMMON/DELTAB/DELTA0,DELTA1,DLT
156            
157            
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.23