9 #ifndef __CFORTRAN_LOADED
15 //----------------------------------------------------------------
17 COMMON/CONS/PI,PI2,SPI,DR,W
20 typedef struct //FSI_CONS
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
29 #define FSI_CONS COMMON_BLOCK(FSI_CONS,fsi_cons)
30 COMMON_BLOCK_DEF(HBTWLedCONSCommon, FSI_CONS);
31 //----------------------------------------------------------------
33 COMMON/LEDWEIGHT/WEIF,WEI,WEIN,ITEST,IRANPOS
38 typedef struct //LEDWEIGHT
47 #define LEDWEIGHT COMMON_BLOCK(LEDWEIGHT,ledweight)
48 COMMON_BLOCK_DEF(HBTLEDWEIGHTCommon, LEDWEIGHT);
50 //-----------------------------------------------------------------
51 /* COMMON/MOMLAB/AM1,PXP1,PYP1,PZP1,AM2,PXP2,PYP2,PZP2
52 REAL*8 AM1,PXP1,PYP1,PZP1,AM2,PXP2,PYP2,PZP2
56 typedef struct //MOMLAB
69 #define MOMLAB COMMON_BLOCK(MOMLAB,momlab)
71 COMMON_BLOCK_DEF(HBTWLedMOMLABCommon, MOMLAB);
73 //---------------------------------------------------------------------------
74 /* COMMON/FSI_MOM/P1X,P1Y,P1Z,E1,P1, ! particle momenta in the
75 // rest frame of effective nucleu
78 typedef struct //FSI_MOM
80 Double_t P1X; // [GeV/c]
90 }HBTWLedFSI_MOMCommon;
92 #define FSI_MOM COMMON_BLOCK(FSI_MOM,fsi_mom)
93 COMMON_BLOCK_DEF(HBTWLedFSI_MOMCommon, FSI_MOM);
95 //---------------------------------------------------------------------------
96 /* COMMON/FSI_NS/LL,NS,ICH,ISI,IQS,I3C,I3S
97 INTEGER LL,NS,ICH,ISI,IQS,I3C,I3S
100 typedef struct //FSI_NS
109 }HBTWLedFSI_NSCommon;
111 #define FSI_NS COMMON_BLOCK(FSI_NS,fsi_ns)
112 COMMON_BLOCK_DEF(HBTWLedFSI_NSCommon, FSI_NS);
114 //---------------------------------------------------------------------------
117 //-----------------------------------------------------------------------
119 typedef struct //FSI_COOR
131 }HBTWLedFSI_COORCommon;
133 #define FSI_COOR COMMON_BLOCK(FSI_COOR,fsi_coor)
134 COMMON_BLOCK_DEF(HBTWLedFSI_COORCommon, FSI_COOR);
135 //-------------------------------------------------------------------
137 //---------------------------------------------------------------------------
138 /* COMMON/FSI_POC/AMN,AM1,AM2,CN,C1,C2,AC1,AC2
140 typedef struct //FSI_POC
142 Double_t AMN; //mass of the effective nucleus [GeV/c**2]
145 Double_t CN; //charge of the effective nucleus [elem. charge units]
150 }HBTWLedFSI_POCCommon;
152 #define FSI_POC COMMON_BLOCK(FSI_POC,fsi_poc)
153 COMMON_BLOCK_DEF(HBTWLedFSI_POCCommon, FSI_POC);
155 //--------------------------------------------
156 //---------------------------------------------------------------------------
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)
162 typedef struct //FSI_PRF
175 }HBTWLedFSI_PRFCommon;
177 #define FSI_PRF COMMON_BLOCK(FSI_PRF,fsi_prf)
178 COMMON_BLOCK_DEF(HBTWLedFSI_PRFCommon, FSI_PRF);
179 //-----------------------------------------------------------------------
187 /************************************************************************************************/