SetDisplayInfo added
[u/mrichter/AliRoot.git] / HBTAN / WLedCOMMONS.h
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