| 1 | C
|
|---|
| 2 | C Global
|
|---|
| 3 | C
|
|---|
| 4 | integer NHistoVar,NHistobyvar,NHistobin
|
|---|
| 5 | C
|
|---|
| 6 | C========================== 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
|
|---|
| 10 | C========================= 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)
|
|---|
| 33 | c
|
|---|
| 34 | COMMON/HISTO/HIST,XHIS,HDEL,HMIN,HMAX,USCORE,OSCORE
|
|---|
| 35 | & ,HAVG,HINT,HSIG,NBIN,IHIS,IUSCORE,IOSCORE,IENT,NHIST
|
|---|
| 36 | & ,BOOK,TITLE
|
|---|
