- Setting Z positions of the tracking chamber to values given in Alain TOURNAIRE...
[u/mrichter/AliRoot.git] / HBTAN / WLedCOMMONS.h
CommitLineData
d50c231e 1#ifndef HBTWLedCOMMON
2#define HBTWLedCOMMON
3
4extern "C" {
5
6
7#ifndef __CINT__
8#define f2cFortran
9#ifndef __CFORTRAN_LOADED
10#include "cfortran.h"
11#endif
12#endif
13
14#ifndef __CINT__
15//----------------------------------------------------------------
16/*
17 COMMON/CONS/PI,PI2,SPI,DR,W
18*/
19
20 typedef struct //FSI_CONS
21 {
22 Double_t PI; // 3.141592654
23 Double_t PI2; // PI2=2*PI
24 Double_t SPI; // SPI=DSQRT(PI)
25 Double_t DR; // DR=180.D0/PI from radian to degree
26 Double_t W; // W=1/.1973D0 from fm to 1/GeV
27 }HBTWLedCONSCommon;
28
29#define FSI_CONS COMMON_BLOCK(FSI_CONS,fsi_cons)
30COMMON_BLOCK_DEF(HBTWLedCONSCommon, FSI_CONS);
31//----------------------------------------------------------------
32/*
33 COMMON/LEDWEIGHT/WEIF,WEI,WEIN,ITEST,IRANPOS
34*/
35
36
37
38 typedef struct //LEDWEIGHT
39 {
40 Double_t WEIF;
41 Double_t WEI;
42 Double_t WEIN;
43 Int_t ITEST;
44 Int_t IRANPOS;
45 }HBTLEDWEIGHTCommon;
46
47#define LEDWEIGHT COMMON_BLOCK(LEDWEIGHT,ledweight)
48COMMON_BLOCK_DEF(HBTLEDWEIGHTCommon, LEDWEIGHT);
49
50//-----------------------------------------------------------------
51/* COMMON/MOMLAB/AM1,PXP1,PYP1,PZP1,AM2,PXP2,PYP2,PZP2
52 REAL*8 AM1,PXP1,PYP1,PZP1,AM2,PXP2,PYP2,PZP2
53*/
54
55
56 typedef struct //MOMLAB
57 {
58 Double_t AM1;
59 Double_t PXP1;
60 Double_t PYP1;
61 Double_t PZP1;
62 Double_t AM2;
63 Double_t PXP2;
64 Double_t PYP2;
65 Double_t PZP2;
66
67 }HBTWLedMOMLABCommon;
68
69#define MOMLAB COMMON_BLOCK(MOMLAB,momlab)
70
71COMMON_BLOCK_DEF(HBTWLedMOMLABCommon, MOMLAB);
72
73//---------------------------------------------------------------------------
74/* COMMON/FSI_MOM/P1X,P1Y,P1Z,E1,P1, ! particle momenta in the
75// rest frame of effective nucleu
76 1 P2X,P2Y,P2Z,E2,P2
77 */
78 typedef struct //FSI_MOM
79 {
80 Double_t P1X; // [GeV/c]
81 Double_t P1Y;
82 Double_t P1Z;
83 Double_t E1;
84 Double_t P1;
85 Double_t P2X;
86 Double_t P2Y;
87 Double_t P2Z;
88 Double_t E2;
89 Double_t P2;
90 }HBTWLedFSI_MOMCommon;
91
92#define FSI_MOM COMMON_BLOCK(FSI_MOM,fsi_mom)
93COMMON_BLOCK_DEF(HBTWLedFSI_MOMCommon, FSI_MOM);
94
95//---------------------------------------------------------------------------
96/* COMMON/FSI_NS/LL,NS,ICH,ISI,IQS,I3C,I3S
97 INTEGER LL,NS,ICH,ISI,IQS,I3C,I3S
98*/
99
100 typedef struct //FSI_NS
101 {
102 Int_t LL; // [GeV/c]
103 Int_t NS;
104 Int_t ICH;
105 Int_t ISI;
106 Int_t IQS;
107 Int_t I3C;
108 Int_t I3S;
109 }HBTWLedFSI_NSCommon;
110
111#define FSI_NS COMMON_BLOCK(FSI_NS,fsi_ns)
112COMMON_BLOCK_DEF(HBTWLedFSI_NSCommon, FSI_NS);
113
114//---------------------------------------------------------------------------
115
116
117//-----------------------------------------------------------------------
118
119 typedef struct //FSI_COOR
120 {
121 Double_t X1;
122 Double_t Y1;
123 Double_t Z1;
124 Double_t T1;
125 Double_t R1;
126 Double_t X2;
127 Double_t Y2;
128 Double_t Z2;
129 Double_t T2;
130 Double_t R2;
131 }HBTWLedFSI_COORCommon;
132
133#define FSI_COOR COMMON_BLOCK(FSI_COOR,fsi_coor)
134COMMON_BLOCK_DEF(HBTWLedFSI_COORCommon, FSI_COOR);
135//-------------------------------------------------------------------
136
137//---------------------------------------------------------------------------
138/* COMMON/FSI_POC/AMN,AM1,AM2,CN,C1,C2,AC1,AC2
139*/
140 typedef struct //FSI_POC
141 {
142 Double_t AMN; //mass of the effective nucleus [GeV/c**2]
143 Double_t AM1;
144 Double_t AM2;
145 Double_t CN; //charge of the effective nucleus [elem. charge units]
146 Double_t C1;
147 Double_t C2;
148 Double_t AC1;
149 Double_t AC2;
150 }HBTWLedFSI_POCCommon;
151
152#define FSI_POC COMMON_BLOCK(FSI_POC,fsi_poc)
153COMMON_BLOCK_DEF(HBTWLedFSI_POCCommon, FSI_POC);
154
155//--------------------------------------------
156//---------------------------------------------------------------------------
157
158/* COMMON/FSI_PRF/PPX,PPY,PPZ,AK,AKS, ! k*=(p1-p2)/2 and x1-x2
159 X,Y,Z,T,RP,RPS ! in pair rest frame (PRF)
160 */
161
162typedef struct //FSI_PRF
163 {
164 Double_t PPX;
165 Double_t PPY;
166 Double_t PPZ;
167 Double_t AK;
168 Double_t AKS;
169 Double_t X;
170 Double_t Y;
171 Double_t Z;
172 Double_t T;
173 Double_t RP;
174 Double_t RPS;
175 }HBTWLedFSI_PRFCommon;
176
177#define FSI_PRF COMMON_BLOCK(FSI_PRF,fsi_prf)
178COMMON_BLOCK_DEF(HBTWLedFSI_PRFCommon, FSI_PRF);
179//-----------------------------------------------------------------------
180
181
182
183
184
185
186
187/************************************************************************************************/
188
189#endif
190
191}
192
193
194#endif