THbtp/common_mesh.inc

   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/