]>
Commit | Line | Data |
---|---|---|
d50c231e | 1 | #ifndef HBTWLedCOMMON |
2 | #define HBTWLedCOMMON | |
3 | ||
4 | extern "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) | |
30 | COMMON_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) | |
48 | COMMON_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 | ||
71 | COMMON_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) | |
93 | COMMON_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) | |
112 | COMMON_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) | |
134 | COMMON_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) | |
153 | COMMON_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 | ||
162 | typedef 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) | |
178 | COMMON_BLOCK_DEF(HBTWLedFSI_PRFCommon, FSI_PRF); | |
179 | //----------------------------------------------------------------------- | |
180 | ||
181 | ||
182 | ||
183 | ||
184 | ||
185 | ||
186 | ||
187 | /************************************************************************************************/ | |
188 | ||
189 | #endif | |
190 | ||
191 | } | |
192 | ||
193 | ||
194 | #endif |