THbtp/common_parameters.inc

   1 CCC   common/parameters/
   2 C
   3 C     This common block includes the following data:
   4 C
   5 C          o Run control switches
   6 C          o Correlation model selection switches
   7 C          o Correlation model parameters
   8 C          o Numbers of particles and pairs of particles
   9 C          o Track momentum adjustment parameters
  10 C          o Constants and Chi-Square values
  11
  12       common/parameters/
  13      1   ALICE,errorcode,
  14      2   ref_control,print_full,print_sector_data,n_pid_types,pid(2),
  15      3   n_events,switch_1d,switch_3d,switch_type,switch_coherence,
  16      4   switch_coulomb,switch_fermi_bose,n_part_1_trk,n_part_2_trk,
  17      5   n_part_tot_trk,n_part_1_trk2,n_part_2_trk2,n_part_tot_trk2,
  18      6   n_part_used_1_trk,n_part_used_2_trk,n_part_used_1_trk2,
  19      7   n_part_used_2_trk2,n_part_used_1_ref,n_part_used_2_ref,
  20      8   n_part_used_1_inc,n_part_used_2_inc,num_pairs_like,
  21      9   num_pairs_unlike,num_pairs_like_ref,num_pairs_unlike_ref,
  22      1   num_pairs_like_inc,num_pairs_unlike_inc,event_line_counter,
  23      2   maxit,irand,file10_line_counter,
  24      3   lambda,R_1d,Rside,Rout,Rlong,Rperp,Rparallel,R0,Q0,deltap,
  25      4   delchi,pi,rad,hbc,chisq_wt_like_1d,chisq_wt_unlike_1d,
  26      5   chisq_wt_like_3d_fine,chisq_wt_unlike_3d_fine,
  27      6   chisq_wt_like_3d_coarse,chisq_wt_unlike_3d_coarse,
  28      7   chisq_wt_hist1_1,chisq_wt_hist1_2,mass1,mass2,trk_accep
  29
  30 CCC   Variable Type Declarations:
  31
  32 CCC   ALICE specific variables, DATA I/O option and return error code
  33
  34       integer*4 ALICE                  ! To I/O from files or AliRoot strucs
  35       integer*4 errorcode              ! Processor error code to stop
  36 CCC                                      calculation and return to calling
  37 CCC                                      program.
  38 CCC   Run Control and Model Switches:
  39
  40       integer*4 ref_control            ! Select Reference Histograms
  41       integer*4 print_full             ! Full print out option - each event
  42       integer*4 print_sector_data      ! Print sector overflow diagnostics
  43       integer*4 n_pid_types            ! # particle ID types to correlate
  44       integer*4 pid                    ! Geant particle ID #s, max of 2 types
  45       integer*4 n_events               ! # events in input event text file
  46       integer*4 switch_1d              ! Include 1D correlations
  47       integer*4 switch_3d              ! Include 3D correlations
  48       integer*4 switch_type            ! For like, unlike or both PID pairs
  49       integer*4 switch_coherence       ! To include incoh/coher mixed source
  50       integer*4 switch_coulomb         ! Coulomb correction selection options
  51       integer*4 switch_fermi_bose      ! For fermions or bosons
  52
  53 CCC   Numbers of particles and pairs:
  54
  55       integer*4 n_part_1_trk           ! Total # PID #1 in 'trk', all flags
  56       integer*4 n_part_2_trk           ! Total # PID #2 in 'trk', all flags
  57       integer*4 n_part_tot_trk         ! Total # all part. in 'trk', all flgs
  58       integer*4 n_part_used_1_trk      ! # PID#1, used (flag=0) in 'trk'
  59       integer*4 n_part_used_2_trk      ! # PID#2, used (flag=0) in 'trk'
  60
  61       integer*4 n_part_1_trk2          ! Total # PID #1 in 'trk2', all flags
  62       integer*4 n_part_2_trk2          ! Total # PID #2 in 'trk2', all flags
  63       integer*4 n_part_tot_trk2        ! Total # all part. in 'trk2', all flgs
  64       integer*4 n_part_used_1_trk2     ! # PID#1, used (flag=0) in 'trk2'
  65       integer*4 n_part_used_2_trk2     ! # PID#2, used (flag=0) in 'trk2'
  66
  67       integer*4 n_part_used_1_ref      ! # PID#1, used (flag=0) in Reference
  68       integer*4 n_part_used_2_ref      ! # PID#2, used (flag=0) in Reference
  69       integer*4 n_part_used_1_inc      ! # PID#1, used (flag=0) in Inclusive
  70       integer*4 n_part_used_2_inc      ! # PID#2, used (flag=0) in Inclusive
  71
  72       integer*4 num_pairs_like         ! # like pairs used (flag=0) in fit
  73       integer*4 num_pairs_unlike       ! # unlike pairs used (flag=0) in fit
  74       integer*4 num_pairs_like_ref     ! # like pairs used (flag=0) in Ref.
  75       integer*4 num_pairs_unlike_ref   ! # unlike pairs used (flag=0) in Ref.
  76       integer*4 num_pairs_like_inc     ! # like pairs used (flag=0) in Incl.
  77       integer*4 num_pairs_unlike_inc   ! # unlike pairs used (flag=0) in Incl.
  78
  79 CCC   Counters:
  80
  81       integer*4 event_line_counter     ! Input event text file line counter
  82       integer*4 file10_line_counter    ! Output, correlated event text file
  83 CCC                                    !    line counter
  84
  85 CCC   Correlation Model Parameters:
  86
  87       real*4    lambda                 ! Chaoticity parameter
  88       real*4    R_1d                   ! Spherical source radius (fm)
  89       real*4    Rside                  ! 3D Bertsch-Pratt source 'side' R (fm)
  90       real*4    Rout                   ! 3D Bertsch-Pratt source 'out'  R (fm)
  91       real*4    Rlong                  ! 3D Bertsch-Pratt source 'long' R (fm)
  92       real*4    Rperp                  ! 3D YKP source transverse radius  (fm)
  93       real*4    Rparallel              ! 3D YKP source longitudinal radius(fm)
  94       real*4    R0                     ! 3D YKP source emission time durat(fm)
  95       real*4    Q0                     ! NA35 Coulomb parameter (GeV/c) or
  96 CCC                                    ! Coul radius for Pratt finite src (fm)
  97
  98 CCC   Search Control Parameters:
  99
 100       integer*4 maxit                  ! Max # iterations in track adjustment
 101       real*4    deltap                 ! Max limit for x,y,z momt shifts(GeV/c)
 102       real*4    delchi                 ! Min% change in Chi-Sq to stop iterat.
 103
 104 CCC   Chi-Square Values:
 105
 106       real*4    chisq_wt_like_1d          ! 1D, Like pairs
 107       real*4    chisq_wt_unlike_1d        ! 1D, Unlike pairs
 108       real*4    chisq_wt_like_3d_fine     ! 3D, Like pairs, Fine Mesh
 109       real*4    chisq_wt_unlike_3d_fine   ! 3D, Unlike pairs, Fine Mesh
 110       real*4    chisq_wt_like_3d_coarse   ! 3D, Like pairs, Coarse Mesh
 111       real*4    chisq_wt_unlike_3d_coarse ! 3D, Unlike pairs, Coarse Mesh
 112       real*4    chisq_wt_hist1_1          ! One-body, particle ID type #1
 113       real*4    chisq_wt_hist1_2          ! One-body, particle ID type #2
 114
 115 CCC   Particle Masses:
 116
 117       real*4    mass1, mass2           ! Particle ID# 1 and 2 masses (GeV)
 118
 119 CCC   Constants:
 120
 121       integer*4 irand                  ! Random # starting seed (Def=12345)
 122       real*4    pi, hbc                ! PI and h-bar-c (GeV*fm)
 123       real*4    rad                    ! radian = 180.0/pi
 124 C     parameter (pi = 3.141592654)
 125 C     parameter (hbc = 0.19732891)
 126
 127 CCC  Random Track Selection Fraction, for low multiplicity particles
 128
 129       real*4 trk_accep                 ! ranges from 0.0 -> 1.0
 130
 131 CCC   END common/parameters/
 132