|
1 | | -#ifndef HERWIG_INC |
2 | | -#define HERWIG_INC |
| 1 | +#include "HepMC/HerwigWrapper.h" |
3 | 2 |
|
4 | | -//-------------------------HERWIG common block ------------------------------------- |
| 3 | +#ifndef Fpmc_Herwig_h |
| 4 | +#define Fpmc_Herwig_h |
5 | 5 |
|
6 | 6 | static const int nmxres = 500; |
| 7 | + |
| 8 | +extern "C" |
| 9 | +{ |
| 10 | + void hwuidt_( int* iopt, int* ipdg, int* iwig, char nwig[8] ); |
| 11 | + |
| 12 | + extern struct { |
| 13 | + char AUTPDF[2][20]; |
| 14 | + char BDECAY[4]; |
| 15 | + } hwprch_; |
| 16 | + |
| 17 | + //--- arrays for particle properties (NMXRES = max no of particles defined) |
| 18 | + extern struct { |
| 19 | + double RLTIM[nmxres+1], RMASS[nmxres+1], RSPIN[nmxres+1]; |
| 20 | + int ICHRG[nmxres+1], IDPDG[nmxres+1],IFLAV[nmxres+1], NRES; |
| 21 | + int VTOCDK[nmxres+1], VTORDK[nmxres+1], QORQQB[nmxres+1], QBORQQ[nmxres+1]; // starting from 0... |
| 22 | + } hwprop_; |
| 23 | + |
| 24 | + extern struct { |
| 25 | + double ASFIXD, CLQ[6][7], COSS, COSTH, CTMAX; |
| 26 | + double DISF[2][13], EMLST, EMMAX, EMMIN, EMPOW, EMSCA, EPOLN[3]; |
| 27 | + double GCOEF[7], GPOLN; |
| 28 | + double OMEGA0, PHOMAS, PPOLN[3]; |
| 29 | + double PTMAX, PTMIN, PTPOW; |
| 30 | + double Q2MAX, Q2MIN, Q2POW, Q2WWMN, Q2WWMX, QLIM; |
| 31 | + double SINS, THMAX, Y4JT, TMNISR, TQWT, XX[2], XLMIN, XXMIN; |
| 32 | + double YBMAX, YBMIN, YJMAX, YJMIN, YWWMAX, YWWMIN, WHMIN, ZJMAX, ZMXISR; |
| 33 | + int IAPHIG, IBRN[2], IBSH, ICO[10], IDCMF, IDN[10], IFLMAX, IFLMIN, IHPRO, IPRO; |
| 34 | + int MAPQ[6], MAXFL, BGSHAT, COLISR; |
| 35 | + int FSTEVT, FSTWGT, GENEV, HVFCEN, TPOL, DURHAM; |
| 36 | + } hwhard_; |
| 37 | +} |
| 38 | + |
| 39 | +#endif |
| 40 | +/* |
| 41 | +//-------------------------HERWIG common block ------------------------------------- |
| 42 | +
|
7 | 43 | static const int nmxsud = 1024; // max number of entries for Sudakov lookup table |
8 | 44 | static const int nmxcdk = 4000; |
9 | 45 | static const int nmxhep = 4000; |
@@ -60,20 +96,6 @@ extern "C" |
60 | 96 | } hwdspn_t; |
61 | 97 | extern hwdspn_t hwdspn_; |
62 | 98 |
|
63 | | - typedef struct { |
64 | | - char AUTPDF[2][20]; |
65 | | - char BDECAY[4]; |
66 | | - } hwprch_t; |
67 | | - extern hwprch_t hwprch_; |
68 | | - |
69 | | - //--- arrays for particle properties (NMXRES = max no of particles defined) |
70 | | - typedef struct { |
71 | | - double RLTIM[nmxres+1], RMASS[nmxres+1], RSPIN[nmxres+1]; |
72 | | - int ICHRG[nmxres+1], IDPDG[nmxres+1],IFLAV[nmxres+1], NRES; |
73 | | - int VTOCDK[nmxres+1], VTORDK[nmxres+1], QORQQB[nmxres+1], QBORQQ[nmxres+1]; // starting from 0... |
74 | | - } hwprop_t; |
75 | | - extern hwprop_t hwprop_; |
76 | | - |
77 | 99 | typedef struct { |
78 | 100 | unsigned char RNAME[8][nmxres],TXNAME[37][2][nmxres]; |
79 | 101 | } hwunam_t; |
@@ -132,21 +154,6 @@ extern "C" |
132 | 154 | } hwbosc_t; |
133 | 155 | extern hwbosc_t hwbosc_; |
134 | 156 |
|
135 | | - typedef struct { |
136 | | - double ASFIXD, CLQ[6][7], COSS, COSTH, CTMAX; |
137 | | - double DISF[2][13], EMLST, EMMAX, EMMIN, EMPOW, EMSCA, EPOLN[3]; |
138 | | - double GCOEF[7], GPOLN; |
139 | | - double OMEGA0, PHOMAS, PPOLN[3]; |
140 | | - double PTMAX, PTMIN, PTPOW; |
141 | | - double Q2MAX, Q2MIN, Q2POW, Q2WWMN, Q2WWMX, QLIM; |
142 | | - double SINS, THMAX, Y4JT, TMNISR, TQWT, XX[2], XLMIN, XXMIN; |
143 | | - double YBMAX, YBMIN, YJMAX, YJMIN, YWWMAX, YWWMIN, WHMIN, ZJMAX, ZMXISR; |
144 | | - int IAPHIG, IBRN[2], IBSH, ICO[10], IDCMF, IDN[10], IFLMAX, IFLMIN, IHPRO, IPRO; |
145 | | - int MAPQ[6], MAXFL, BGSHAT, COLISR; |
146 | | - int FSTEVT, FSTWGT, GENEV, HVFCEN, TPOL, DURHAM; |
147 | | - } hwhard_t; |
148 | | - extern hwhard_t hwhard_; |
149 | | - |
150 | 157 | //--- other HERWIG branching, event and hard subprocess common blocks |
151 | 158 | typedef struct { |
152 | 159 | double ANOMSC[2][2],HARDST,PTINT[2][3],XFACT; |
@@ -288,4 +295,4 @@ extern "C" |
288 | 295 | #endif |
289 | 296 | //--------------------------------------------------------------- |
290 | 297 |
|
291 | | -#endif |
| 298 | +#endif*/ |
0 commit comments