THbtp/common_histograms.inc

   1 CCC   common/histograms/
   2 C
   3 C     This common block includes the following data:
   4 C
   5 C          o One- and Two-Body Histograms:
   6 C
   7 C            One-Body:  hist1* - Originally filled and updated after each
   8 C                                iteration where Chi-Square is improved.
   9 C                       htmp1* - Working copy used within the track adjustment
  10 C                                iteration loop
  11 C                       href1* - Fixed reference distributions obtained from
  12 C                                event text input file for all events.
  13 C                       hinc1* - Inclusive event sum of all final, fitted
  14 C                                one-body distributions
  15 C
  16 C                                (*) denotes pt,phi,eta and PID#1,2
  17 C                                NOTE: The pt,phi,eta distributions are
  18 C                                      projections of the full, 3D dist.
  19 C                                      onto these axes.
  20 C
  21 C            Two-Body:  hist* - Originally filled and updated after each
  22 C                               iteration where Chi-Square is improved.
  23 C                       htmp* - Working copy used within the track adjustment
  24 C                               iteration loop
  25 C                       href* - Fixed reference distributions obtained from
  26 C                               event text input file for all events.
  27 C                       hinc* - Inclusive event sum of all final, fitted
  28 C                               two-body distributions
  29 C
  30 C                               (*) denotes arrays for the following:
  31 C                                   - Like pairs,   1D distributions
  32 C                                   - Unlike pairs, 1D distributions
  33 C                                   - Like pairs,   3D dist., Fine Mesh
  34 C                                   - Unlike pairs, 3D dist., Fine Mesh
  35 C                                   - Like pairs,   3D dist., Coarse Mesh
  36 C                                   - Unlike pairs, 3D dist., Coarse Mesh
  37
  38       integer*4 max_h_1d, max_h_3d
  39       parameter (max_h_1d = 100)
  40       parameter (max_h_3d = 10 )
  41
  42       common/histograms/
  43      1 hist1_pt_1(max_h_1d),hist1_phi_1(max_h_1d),hist1_eta_1(max_h_1d),
  44      2 hist1_pt_2(max_h_1d),hist1_phi_2(max_h_1d),hist1_eta_2(max_h_1d),
  45      3 htmp1_pt_1(max_h_1d),htmp1_phi_1(max_h_1d),htmp1_eta_1(max_h_1d),
  46      4 htmp1_pt_2(max_h_1d),htmp1_phi_2(max_h_1d),htmp1_eta_2(max_h_1d),
  47      5 href1_pt_1(max_h_1d),href1_phi_1(max_h_1d),href1_eta_1(max_h_1d),
  48      6 href1_pt_2(max_h_1d),href1_phi_2(max_h_1d),href1_eta_2(max_h_1d),
  49      7 hinc1_pt_1(max_h_1d),hinc1_phi_1(max_h_1d),hinc1_eta_1(max_h_1d),
  50      8 hinc1_pt_2(max_h_1d),hinc1_phi_2(max_h_1d),hinc1_eta_2(max_h_1d),
  51      9 hist_like_1d(max_h_1d),hist_unlike_1d(max_h_1d),
  52      1 htmp_like_1d(max_h_1d),htmp_unlike_1d(max_h_1d),
  53      2 href_like_1d(max_h_1d),href_unlike_1d(max_h_1d),
  54      3 hinc_like_1d(max_h_1d),hinc_unlike_1d(max_h_1d),
  55      4 hist_like_3d_fine(max_h_3d,max_h_3d,max_h_3d),
  56      5 hist_unlike_3d_fine(max_h_3d,max_h_3d,max_h_3d),
  57      6 hist_like_3d_coarse(max_h_3d,max_h_3d,max_h_3d),
  58      7 hist_unlike_3d_coarse(max_h_3d,max_h_3d,max_h_3d),
  59      4 htmp_like_3d_fine(max_h_3d,max_h_3d,max_h_3d),
  60      5 htmp_unlike_3d_fine(max_h_3d,max_h_3d,max_h_3d),
  61      6 htmp_like_3d_coarse(max_h_3d,max_h_3d,max_h_3d),
  62      7 htmp_unlike_3d_coarse(max_h_3d,max_h_3d,max_h_3d),
  63      4 href_like_3d_fine(max_h_3d,max_h_3d,max_h_3d),
  64      5 href_unlike_3d_fine(max_h_3d,max_h_3d,max_h_3d),
  65      6 href_like_3d_coarse(max_h_3d,max_h_3d,max_h_3d),
  66      7 href_unlike_3d_coarse(max_h_3d,max_h_3d,max_h_3d),
  67      4 hinc_like_3d_fine(max_h_3d,max_h_3d,max_h_3d),
  68      5 hinc_unlike_3d_fine(max_h_3d,max_h_3d,max_h_3d),
  69      6 hinc_like_3d_coarse(max_h_3d,max_h_3d,max_h_3d),
  70      7 hinc_unlike_3d_coarse(max_h_3d,max_h_3d,max_h_3d)
  71
  72 CCC   Variable Type Declarations:
  73
  74 CCC   One-Body Distributions:
  75
  76       integer*4 hist1_pt_1,hist1_phi_1,hist1_eta_1
  77       integer*4 hist1_pt_2,hist1_phi_2,hist1_eta_2
  78       integer*4 htmp1_pt_1,htmp1_phi_1,htmp1_eta_1
  79       integer*4 htmp1_pt_2,htmp1_phi_2,htmp1_eta_2
  80       integer*4 href1_pt_1,href1_phi_1,href1_eta_1
  81       integer*4 href1_pt_2,href1_phi_2,href1_eta_2
  82       integer*4 hinc1_pt_1,hinc1_phi_1,hinc1_eta_1
  83       integer*4 hinc1_pt_2,hinc1_phi_2,hinc1_eta_2
  84
  85 CCC   Two-Body Distributions 1D:
  86
  87       integer*4 hist_like_1d, hist_unlike_1d
  88       integer*4 htmp_like_1d, htmp_unlike_1d
  89       integer*4 href_like_1d, href_unlike_1d
  90       integer*4 hinc_like_1d, hinc_unlike_1d
  91
  92 CCC   Two-Body Distributions 3D:
  93
  94       integer*4 hist_like_3d_fine
  95       integer*4 hist_unlike_3d_fine
  96       integer*4 hist_like_3d_coarse
  97       integer*4 hist_unlike_3d_coarse
  98       integer*4 htmp_like_3d_fine
  99       integer*4 htmp_unlike_3d_fine
 100       integer*4 htmp_like_3d_coarse
 101       integer*4 htmp_unlike_3d_coarse
 102       integer*4 href_like_3d_fine
 103       integer*4 href_unlike_3d_fine
 104       integer*4 href_like_3d_coarse
 105       integer*4 href_unlike_3d_coarse
 106       integer*4 hinc_like_3d_fine
 107       integer*4 hinc_unlike_3d_fine
 108       integer*4 hinc_like_3d_coarse
 109       integer*4 hinc_unlike_3d_coarse
 110
 111 CCC   END common/histograms/