[u/mrichter/AliRoot.git] / HBTP / common_mesh.inc

CCC   common/mesh/
C
C     This common block includes the following data:
C
C          o Mesh Bin Definitions for the following:
C            i) One-Body distributions in {pt,phi,eta}
C           ii) Two-Body Histograms and Correlations for 1D and 3D
C          iii) Momentum space sectors for track sorting in {px,py,pz}

      integer*4 max_trk_save
      parameter (max_trk_save = 150)

      common/mesh/
     1   n_pt_bins,n_phi_bins,n_eta_bins,
     2   n_1d_fine,n_1d_coarse,n_1d_total,
     3   n_3d_fine,n_3d_coarse,n_3d_total,n_3d_fine_project,
     4   n_px_bins,n_py_bins,n_pz_bins,n_sectors,
     5   old_sec_ntrk,old_sec_flag,old_sec_trkid(max_trk_save),
     6   new_sec_ntrk,new_sec_flag,new_sec_trkid(max_trk_save),
     7   new_sec_save,old_sec_save,
     8   pt_bin_size,pt_min,pt_max,
     9   phi_bin_size,phi_min,phi_max,
     1   eta_bin_size,eta_min,eta_max,
     2   binsize_1d_fine,binsize_1d_coarse,qmid_1d,qmax_1d,
     3   binsize_3d_fine,binsize_3d_coarse,qmid_3d,qmax_3d,
     4   px_min,px_max,delpx,
     5   py_min,py_max,delpy,
     6   pz_min,pz_max,delpz

CCC   Variable Type Declarations:

CCC   One-Body Mesh:

      integer*4 n_pt_bins             ! # one-body pt bins
      integer*4 n_phi_bins            ! # one-body phi bins
      integer*4 n_eta_bins            ! # one-body eta bins
      real*4    pt_bin_size           ! One-body pt bin size in (GeV/c)
      real*4    phi_bin_size          ! One-body phi bin size in (degrees)
      real*4    eta_bin_size          ! One-body eta bin size
      real*4    pt_min, pt_max        ! One-body pt min/max in (GeV/c)
      real*4    phi_min, phi_max      ! One-body phi min/max in (degrees)
      real*4    eta_min, eta_max      ! One-body eta min/max

CCC   Two-Body Histograms and Correlation Mesh for 1D and 3D distributions:

      integer*4 n_1d_fine             ! # bins for 1D, Fine Mesh
      integer*4 n_1d_coarse           ! # bins for 1D, Coarse Mesh
      integer*4 n_1d_total            ! Total # bins for 1D
      integer*4 n_3d_fine             ! # bins for 3D, Fine Mesh
      integer*4 n_3d_coarse           ! # bins for 3D, Coarse Mesh
      integer*4 n_3d_total            ! Total # bins for 3D
      integer*4 n_3d_fine_project     ! # 3D fine mesh bins to sum over for
C                                     ! projections onto single axis.

      real*4    binsize_1d_fine       ! Bin Size - 1D, Fine Mesh in (GeV/c)
      real*4    binsize_1d_coarse     ! Bin Size - 1D, Coarse Mesh in (GeV/c)
      real*4    qmid_1d               ! q (GeV/c) at fine-coarse mesh boundary
      real*4    qmax_1d               ! Max q (GeV/c) for 1D distributions
      real*4    binsize_3d_fine       ! Bin Size - 3D, Fine Mesh in (GeV/c)
      real*4    binsize_3d_coarse     ! Bin Size - 3D, Coarse Mesh in (GeV/c)
      real*4    qmid_3d               ! q (GeV/c) at fine-coarse mesh boundary
      real*4    qmax_3d               ! Max q (GeV/c) for 3D distributions

CCC   Momentum Space Sectors for Track Sorting:

      integer*4 n_px_bins             ! # sector bins in px
      integer*4 n_py_bins             ! # sector bins in py
      integer*4 n_pz_bins             ! # sector bins in pz
      integer*4 n_sectors             ! Total # sectors in 3D momentum space

      real*4    delpx                 ! Mom. space sector cell size - px(GeV/c)
      real*4    delpy                 ! Mom. space sector cell size - py(GeV/c)
      real*4    delpz                 ! Mom. space sector cell size - pz(GeV/c)
      real*4    px_min, px_max        ! Sector range in px in GeV/c
      real*4    py_min, py_max        ! Sector range in py in GeV/c
      real*4    pz_min, pz_max        ! Sector range in pz in GeV/c

CCC   Temporary Momentum Space Sector information storage during trk adjust.

      integer*4 old_sec_ntrk          ! Old sector # tracks
      integer*4 old_sec_flag          ! Old sector flag value
      integer*4 old_sec_trkid         ! Old sector track id array
      integer*4 old_sec_save          ! Old sector ID value
      integer*4 new_sec_ntrk          ! New sector # tracks
      integer*4 new_sec_flag          ! New sector flag value
      integer*4 new_sec_trkid         ! New sector track id array
      integer*4 new_sec_save          ! New sector ID value

CCC   End common/mesh/
Commit	Line	Data
18448239	1	CCC common/mesh/
	2	C
	3	C This common block includes the following data:
	4	C
	5	C o Mesh Bin Definitions for the following:
	6	C i) One-Body distributions in {pt,phi,eta}
	7	C ii) Two-Body Histograms and Correlations for 1D and 3D
	8	C iii) Momentum space sectors for track sorting in {px,py,pz}
	9
	10	integer*4 max_trk_save
	11	parameter (max_trk_save = 150)
	12
	13	common/mesh/
	14	1 n_pt_bins,n_phi_bins,n_eta_bins,
	15	2 n_1d_fine,n_1d_coarse,n_1d_total,
	16	3 n_3d_fine,n_3d_coarse,n_3d_total,n_3d_fine_project,
	17	4 n_px_bins,n_py_bins,n_pz_bins,n_sectors,
	18	5 old_sec_ntrk,old_sec_flag,old_sec_trkid(max_trk_save),
	19	6 new_sec_ntrk,new_sec_flag,new_sec_trkid(max_trk_save),
	20	7 new_sec_save,old_sec_save,
	21	8 pt_bin_size,pt_min,pt_max,
	22	9 phi_bin_size,phi_min,phi_max,
	23	1 eta_bin_size,eta_min,eta_max,
	24	2 binsize_1d_fine,binsize_1d_coarse,qmid_1d,qmax_1d,
	25	3 binsize_3d_fine,binsize_3d_coarse,qmid_3d,qmax_3d,
	26	4 px_min,px_max,delpx,
	27	5 py_min,py_max,delpy,
	28	6 pz_min,pz_max,delpz
	29
	30	CCC Variable Type Declarations:
	31
	32	CCC One-Body Mesh:
	33
	34	integer*4 n_pt_bins ! # one-body pt bins
	35	integer*4 n_phi_bins ! # one-body phi bins
	36	integer*4 n_eta_bins ! # one-body eta bins
	37	real*4 pt_bin_size ! One-body pt bin size in (GeV/c)
	38	real*4 phi_bin_size ! One-body phi bin size in (degrees)
	39	real*4 eta_bin_size ! One-body eta bin size
	40	real*4 pt_min, pt_max ! One-body pt min/max in (GeV/c)
	41	real*4 phi_min, phi_max ! One-body phi min/max in (degrees)
	42	real*4 eta_min, eta_max ! One-body eta min/max
	43
	44	CCC Two-Body Histograms and Correlation Mesh for 1D and 3D distributions:
	45
	46	integer*4 n_1d_fine ! # bins for 1D, Fine Mesh
	47	integer*4 n_1d_coarse ! # bins for 1D, Coarse Mesh
	48	integer*4 n_1d_total ! Total # bins for 1D
	49	integer*4 n_3d_fine ! # bins for 3D, Fine Mesh
	50	integer*4 n_3d_coarse ! # bins for 3D, Coarse Mesh
	51	integer*4 n_3d_total ! Total # bins for 3D
	52	integer*4 n_3d_fine_project ! # 3D fine mesh bins to sum over for
	53	C ! projections onto single axis.
	54
	55	real*4 binsize_1d_fine ! Bin Size - 1D, Fine Mesh in (GeV/c)
	56	real*4 binsize_1d_coarse ! Bin Size - 1D, Coarse Mesh in (GeV/c)
	57	real*4 qmid_1d ! q (GeV/c) at fine-coarse mesh boundary
	58	real*4 qmax_1d ! Max q (GeV/c) for 1D distributions
	59	real*4 binsize_3d_fine ! Bin Size - 3D, Fine Mesh in (GeV/c)
	60	real*4 binsize_3d_coarse ! Bin Size - 3D, Coarse Mesh in (GeV/c)
	61	real*4 qmid_3d ! q (GeV/c) at fine-coarse mesh boundary
	62	real*4 qmax_3d ! Max q (GeV/c) for 3D distributions
	63
	64	CCC Momentum Space Sectors for Track Sorting:
65
66	integer*4 n_px_bins ! # sector bins in px
67	integer*4 n_py_bins ! # sector bins in py
68	integer*4 n_pz_bins ! # sector bins in pz
69	integer*4 n_sectors ! Total # sectors in 3D momentum space
70
71	real*4 delpx ! Mom. space sector cell size - px(GeV/c)
72	real*4 delpy ! Mom. space sector cell size - py(GeV/c)
73	real*4 delpz ! Mom. space sector cell size - pz(GeV/c)
74	real*4 px_min, px_max ! Sector range in px in GeV/c
75	real*4 py_min, py_max ! Sector range in py in GeV/c
76	real*4 pz_min, pz_max ! Sector range in pz in GeV/c
77
78	CCC Temporary Momentum Space Sector information storage during trk adjust.
79
80	integer*4 old_sec_ntrk ! Old sector # tracks
81	integer*4 old_sec_flag ! Old sector flag value
82	integer*4 old_sec_trkid ! Old sector track id array
83	integer*4 old_sec_save ! Old sector ID value
84	integer*4 new_sec_ntrk ! New sector # tracks
85	integer*4 new_sec_flag ! New sector flag value
86	integer*4 new_sec_trkid ! New sector track id array
87	integer*4 new_sec_save ! New sector ID value
88
89	CCC End common/mesh/