DifferentialWeight: dbook.inc

File dbook.inc, 1.7 KB (added by anonymous, 6 years ago)
Line 
1C
2C     Global
3C
4      integer NHistoVar,NHistobyvar,NHistobin
5C
6C========================== PART TO DEFINE ==========================================
7      parameter (NHistoVar=3)      ! Number of differential weight to compute
8      parameter (NHistobyvar=200)  ! This number should be 200 if you use this module
9      parameter (NHistobin=50)     ! Maximum binning in a histogram
10C========================= END PART TO DEFINE =======================================
11
12         
13      REAL*8 HIST(-1d0*Nhistobyvar:Nhistobyvar,NHistobin,NHistovar)
14     &      ,XHIS(-1d0*Nhistobyvar:Nhistobyvar,NHistobin,NHistovar)
15     &      ,HDEL(-1d0*Nhistobyvar:Nhistobyvar,NHistovar)
16     &      ,HMIN(-1d0*Nhistobyvar:Nhistobyvar,NHistovar)
17     &      ,HMAX(-1d0*Nhistobyvar:Nhistobyvar,NHistovar)
18     &      ,USCORE(-1d0*Nhistobyvar:Nhistobyvar,NHistovar)
19     &      ,OSCORE(-1d0*Nhistobyvar:Nhistobyvar,NHistovar)
20     &      ,HAVG(-1d0*Nhistobyvar:Nhistobyvar,NHistovar)
21     &      ,HINT(-1d0*Nhistobyvar:Nhistobyvar,NHistovar)
22     &      ,HSIG(-1d0*Nhistobyvar:Nhistobyvar,NHistovar)
23
24      INTEGER NBIN(-1d0*Nhistobyvar:Nhistobyvar,NHistovar)
25     &       ,IHIS(-1d0*Nhistobyvar:Nhistobyvar,NHistobin,NHistovar)
26     &       ,IUSCORE(-1d0*Nhistobyvar:Nhistobyvar,NHistovar)
27     &       ,IOSCORE(-1d0*Nhistobyvar:Nhistobyvar,NHistovar)
28     &       ,IENT(-1d0*Nhistobyvar:Nhistobyvar,NHistovar)
29     &       ,NHIST(NHistoVar)
30
31      CHARACTER*3  BOOK(-1d0*Nhistobyvar:Nhistobyvar,NHistovar)
32      CHARACTER*20 TITLE(-1d0*Nhistobyvar:Nhistobyvar,NHistovar)
33c   
34      COMMON/HISTO/HIST,XHIS,HDEL,HMIN,HMAX,USCORE,OSCORE
35     &            ,HAVG,HINT,HSIG,NBIN,IHIS,IUSCORE,IOSCORE,IENT,NHIST
36     &            ,BOOK,TITLE