| 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 |
git://git.uio.no / u / mrichter / AliRoot.git / blame