Merging THbtp and HBTP in one library. Comiplation on Windows/Cygwin
[u/mrichter/AliRoot.git] / THbtp / common_correlations.inc
1 CCC   common/correlations/
2 C
3 C     This common block includes the following data:
4 C
5 C          o Two-Body Correlation Arrays for the following cases:
6 C            - c2mod*  =  Model
7 C            - c2fit*  =  Fitted
8 C            - c2err*  =  Errors for fitted
9 C
10 C            Where (*) denotes the following cases:
11 C                      Like Pairs,   1D dist
12 C                      Unlike Pairs, 1D dist
13 C                      Like Pairs,   3D dist, Fine Mesh
14 C                      Unlike Pairs, 3D dist, Fine Mesh
15 C                      Like Pairs,   3D dist, Coarse Mesh
16 C                      Unlike Pairs, 3D dist, Coarse Mesh
17
18       integer*4 max_c2_1d, max_c2_3d
19       parameter (max_c2_1d = 100)
20       parameter (max_c2_3d =  10)
21
22       common/correlations/
23      1  c2mod_like_1d(max_c2_1d), c2mod_unlike_1d(max_c2_1d),
24      2  c2fit_like_1d(max_c2_1d), c2fit_unlike_1d(max_c2_1d),
25      3  c2err_like_1d(max_c2_1d), c2err_unlike_1d(max_c2_1d),
26      4  c2mod_like_3d_fine(max_c2_3d,max_c2_3d,max_c2_3d),
27      5  c2mod_unlike_3d_fine(max_c2_3d,max_c2_3d,max_c2_3d),
28      6  c2mod_like_3d_coarse(max_c2_3d,max_c2_3d,max_c2_3d),
29      7  c2mod_unlike_3d_coarse(max_c2_3d,max_c2_3d,max_c2_3d),
30      4  c2fit_like_3d_fine(max_c2_3d,max_c2_3d,max_c2_3d),
31      5  c2fit_unlike_3d_fine(max_c2_3d,max_c2_3d,max_c2_3d),
32      6  c2fit_like_3d_coarse(max_c2_3d,max_c2_3d,max_c2_3d),
33      7  c2fit_unlike_3d_coarse(max_c2_3d,max_c2_3d,max_c2_3d),
34      4  c2err_like_3d_fine(max_c2_3d,max_c2_3d,max_c2_3d),
35      5  c2err_unlike_3d_fine(max_c2_3d,max_c2_3d,max_c2_3d),
36      6  c2err_like_3d_coarse(max_c2_3d,max_c2_3d,max_c2_3d),
37      7  c2err_unlike_3d_coarse(max_c2_3d,max_c2_3d,max_c2_3d)
38
39 CCC   Variable Type Declarations:
40
41 CCC   One-dimensional Functions:
42
43       real*4 c2mod_like_1d, c2mod_unlike_1d
44       real*4 c2fit_like_1d, c2fit_unlike_1d
45       real*4 c2err_like_1d, c2err_unlike_1d
46
47 CCC   Three-dimensional Functions:
48
49       real*4 c2mod_like_3d_fine,   c2mod_unlike_3d_fine
50       real*4 c2mod_like_3d_coarse, c2mod_unlike_3d_coarse
51       real*4 c2fit_like_3d_fine,   c2fit_unlike_3d_fine
52       real*4 c2fit_like_3d_coarse, c2fit_unlike_3d_coarse
53       real*4 c2err_like_3d_fine,   c2err_unlike_3d_fine
54       real*4 c2err_like_3d_coarse, c2err_unlike_3d_coarse
55
56 CCC   END common/correlations/