HBTP/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/