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