Overlaps corrected, new shape of sectors
[u/mrichter/AliRoot.git] / THbtp / common_parameters.inc
CommitLineData
18448239 1CCC common/parameters/
2C
3C This common block includes the following data:
4C
5C o Run control switches
6C o Correlation model selection switches
7C o Correlation model parameters
8C o Numbers of particles and pairs of particles
9C o Track momentum adjustment parameters
10C 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
30CCC Variable Type Declarations:
31
32CCC 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
36CCC calculation and return to calling
37CCC program.
38CCC 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
53CCC 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
79CCC 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
83CCC ! line counter
84
85CCC 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
96CCC ! Coul radius for Pratt finite src (fm)
97
98CCC 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
104CCC 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
115CCC Particle Masses:
116
117 real*4 mass1, mass2 ! Particle ID# 1 and 2 masses (GeV)
118
119CCC 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
124C parameter (pi = 3.141592654)
125C parameter (hbc = 0.19732891)
126
127CCC Random Track Selection Fraction, for low multiplicity particles
128
129 real*4 trk_accep ! ranges from 0.0 -> 1.0
130
131CCC END common/parameters/
132