]>
Commit | Line | Data |
---|---|---|
18448239 | 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/ |