dEdxSSDAQA added to PilotAnalysis
[u/mrichter/AliRoot.git] / 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