[u/mrichter/AliRoot.git] / THbtp / common_correlations.inc

CCC   common/correlations/
C
C     This common block includes the following data:
C
C          o Two-Body Correlation Arrays for the following cases:
C            - c2mod*  =  Model
C            - c2fit*  =  Fitted
C            - c2err*  =  Errors for fitted
C
C            Where (*) denotes the following cases:
C                      Like Pairs,   1D dist
C                      Unlike Pairs, 1D dist
C                      Like Pairs,   3D dist, Fine Mesh
C                      Unlike Pairs, 3D dist, Fine Mesh
C                      Like Pairs,   3D dist, Coarse Mesh
C                      Unlike Pairs, 3D dist, Coarse Mesh

      integer*4 max_c2_1d, max_c2_3d
      parameter (max_c2_1d = 100)
      parameter (max_c2_3d =  10)

      common/correlations/
     1  c2mod_like_1d(max_c2_1d), c2mod_unlike_1d(max_c2_1d),
     2  c2fit_like_1d(max_c2_1d), c2fit_unlike_1d(max_c2_1d),
     3  c2err_like_1d(max_c2_1d), c2err_unlike_1d(max_c2_1d),
     4  c2mod_like_3d_fine(max_c2_3d,max_c2_3d,max_c2_3d),
     5  c2mod_unlike_3d_fine(max_c2_3d,max_c2_3d,max_c2_3d),
     6  c2mod_like_3d_coarse(max_c2_3d,max_c2_3d,max_c2_3d),
     7  c2mod_unlike_3d_coarse(max_c2_3d,max_c2_3d,max_c2_3d),
     4  c2fit_like_3d_fine(max_c2_3d,max_c2_3d,max_c2_3d),
     5  c2fit_unlike_3d_fine(max_c2_3d,max_c2_3d,max_c2_3d),
     6  c2fit_like_3d_coarse(max_c2_3d,max_c2_3d,max_c2_3d),
     7  c2fit_unlike_3d_coarse(max_c2_3d,max_c2_3d,max_c2_3d),
     4  c2err_like_3d_fine(max_c2_3d,max_c2_3d,max_c2_3d),
     5  c2err_unlike_3d_fine(max_c2_3d,max_c2_3d,max_c2_3d),
     6  c2err_like_3d_coarse(max_c2_3d,max_c2_3d,max_c2_3d),
     7  c2err_unlike_3d_coarse(max_c2_3d,max_c2_3d,max_c2_3d)

CCC   Variable Type Declarations:

CCC   One-dimensional Functions:

      real*4 c2mod_like_1d, c2mod_unlike_1d
      real*4 c2fit_like_1d, c2fit_unlike_1d
      real*4 c2err_like_1d, c2err_unlike_1d

CCC   Three-dimensional Functions:

      real*4 c2mod_like_3d_fine,   c2mod_unlike_3d_fine
      real*4 c2mod_like_3d_coarse, c2mod_unlike_3d_coarse
      real*4 c2fit_like_3d_fine,   c2fit_unlike_3d_fine
      real*4 c2fit_like_3d_coarse, c2fit_unlike_3d_coarse
      real*4 c2err_like_3d_fine,   c2err_unlike_3d_fine
      real*4 c2err_like_3d_coarse, c2err_unlike_3d_coarse

CCC   END common/correlations/
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/