Adding FORTRAN file
[u/mrichter/AliRoot.git] / THbtp / common_track2.inc
CommitLineData
18448239 1CCC common/track2/
2C
3CCC Second Track Data Structure:
4CCC (This one is needed to build the reference spectrum from
5CCC the event text input file.)
6CCC (Converted to common block for ALICE application, 12/1/2000)
7
8 Integer*4 trk2_maxlen
9 Parameter (trk2_maxlen = 25000)
10
11 common/track2/
12 1 trk2_id(trk2_maxlen),
13 2 trk2_px_sec(trk2_maxlen),
14 3 trk2_py_sec(trk2_maxlen),
15 4 trk2_pz_sec(trk2_maxlen),
16 5 trk2_sector(trk2_maxlen),
17 6 trk2_flag(trk2_maxlen),
18 7 trk2_out_flag(trk2_maxlen),
19 8 trk2_merge_flag(trk2_maxlen),
20 9 trk2_ge_pid(trk2_maxlen),
21 1 trk2_start_vertex(trk2_maxlen),
22 2 trk2_stop_vertex(trk2_maxlen),
23 3 trk2_event_line(trk2_maxlen),
24 4 trk2_px(trk2_maxlen),
25 5 trk2_py(trk2_maxlen),
26 6 trk2_pz(trk2_maxlen),
27 7 trk2_E(trk2_maxlen),
28 8 trk2_pt(trk2_maxlen),
29 9 trk2_phi(trk2_maxlen),
30 1 trk2_eta(trk2_maxlen)
31
32CCC Variable Type Declarations:
33
34 Integer*4 trk2_id ! Track ID number
35 Integer*4 trk2_px_sec ! px sector number
36 Integer*4 trk2_py_sec ! py sector number
37 Integer*4 trk2_pz_sec ! pz sector number
38 Integer*4 trk2_sector ! unique sector ID number
39 Integer*4 trk2_flag ! normally=0,if 1 indicates track assigned
40CCC ! to sector with too many tracks, if = 1
41CCC ! then track is not used. See /sec_trk2_map/
42 Integer*4 trk2_out_flag ! flag indicating track in/out of accept.
43CCC ! non-zero for track pushed out of accept.
44 Integer*4 trk2_merge_flag ! flag indicating track is merged (not used)
45 Integer*4 trk2_ge_pid ! Geant particle ID code number
46 Integer*4 trk2_start_vertex ! From input event file - track's start vrtx
47 Integer*4 trk2_stop_vertex ! From input event file - track's stop vrtx
48 Integer*4 trk2_event_line ! Line # of track in input event text file
49
50 Real*4 trk2_px ! x component of track momentum in GeV/c
51 Real*4 trk2_py ! y component of track momentum in GeV/c
52 Real*4 trk2_pz ! z component of track momentum in GeV/c
53 Real*4 trk2_E ! Total energy of track in GeV
54 Real*4 trk2_pt ! pt of track momentum in GeV/c
55 Real*4 trk2_phi ! azimuthal angle of track in degrees
56 Real*4 trk2_eta ! pseudorapidity of track
57
58CCC END common/track2/