/[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.5 by pam-fi, Wed Mar 28 09:05:08 2007 UTC revision 1.6 by pam-fi, Fri Apr 27 10:39:57 2007 UTC
# Line 46  c      PARAMETER (PIGR=3.141592654)!???? Line 46  c      PARAMETER (PIGR=3.141592654)!????
46        REAL*8 XM_B,YM_B!,ZM_B        REAL*8 XM_B,YM_B!,ZM_B
47        REAL*8 RESX,RESY        REAL*8 RESX,RESY
48        REAL*8 XGOOD,YGOOD        REAL*8 XGOOD,YGOOD
49  c     REAL*8 DEDXTRK            !(1)        REAL*8 DEDXTRK_X          
50        REAL*8 DEDXTRK_X          !(1)        REAL*8 DEDXTRK_Y        
       REAL*8 DEDXTRK_Y          !(1)  
51        REAL*8 ZINI     ! ***PP***        REAL*8 ZINI     ! ***PP***
52        REAL*8 PFIXED   ! ***PP***        REAL*8 PFIXED   ! ***PP***
53        REAL*8 CHI2        REAL*8 CHI2
# Line 57  c     REAL*8 DEDXTRK            !(1) Line 56  c     REAL*8 DEDXTRK            !(1)
56        REAL*8 COV        REAL*8 COV
57        REAL*8 FACT        REAL*8 FACT
58        INTEGER NSTEP        INTEGER NSTEP
59        INTEGER IDCAND            !(2)        INTEGER IDCAND            
60        INTEGER TRACKMODE        INTEGER TRACKMODE
61        INTEGER ISTEPMIN        INTEGER ISTEPMIN
62        COMMON/TRACK/        COMMON/TRACK/
# Line 68  c     REAL*8 DEDXTRK            !(1) Line 67  c     REAL*8 DEDXTRK            !(1)
67       $     ,RESX(NPLANES),RESY(NPLANES)                !spatial resolution       $     ,RESX(NPLANES),RESY(NPLANES)                !spatial resolution
68       $     ,XGOOD(NPLANES),YGOOD(NPLANES)              !mask of included views       $     ,XGOOD(NPLANES),YGOOD(NPLANES)              !mask of included views
69  c     $     ,DEDXTRK(NPLANES)                           !energy release  c     $     ,DEDXTRK(NPLANES)                           !energy release
70       $     ,DEDXTRK_X(NPLANES),DEDXTRK_Y(NPLANES) !(1)       $     ,DEDXTRK_X(NPLANES),DEDXTRK_Y(NPLANES)
71       $     ,ZINI       $     ,ZINI
72       $     ,PFIXED       $     ,PFIXED
73       $     ,CHI2       $     ,CHI2
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.23