3 C This common block includes the following data:
5 C o One- and Two-Body Histograms:
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
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
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.
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
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
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
38 integer*4 max_h_1d, max_h_3d
39 parameter (max_h_1d = 100)
40 parameter (max_h_3d = 10 )
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)
72 CCC Variable Type Declarations:
74 CCC One-Body Distributions:
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
85 CCC Two-Body Distributions 1D:
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
92 CCC Two-Body Distributions 3D:
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
111 CCC END common/histograms/