1 #ifndef ROOT_Herwig6Calls
2 #define ROOT_Herwig6Calls
4 // Translation of Fortran commons from the Herwig6
5 // f77 program into c++ structures to be used in ROOT
6 // and declaration of Fortran functions as extern
7 // C functions to be called from the class Herwig6
8 // author: j. g. contreras jgcn@moni.mda.cinvestav.mx
9 // date: december 22, 2000
11 int const NMXHEP = 2000;
18 int JMOHEP[NMXHEP][2];
19 int JDAHEP[NMXHEP][2];
20 double PHEP[NMXHEP][5];
21 double VHEP[NMXHEP][4];
134 int const NMXPAR = 500;
141 int JMOPAR[NMXPAR][2];
142 int JDAPAR[NMXPAR][2];
143 double PPAR[NMXPAR][5];
144 double VPAR[NMXPAR][4];
148 double DECPAR[NMXPAR][2];
149 double PHIPAR[NMXPAR][2];
150 double RHOPAR[NMXPAR][2];
154 int const MODMAX = 5;
161 double RHOHEP[NMXHEP][3];
167 int JCOPAR[NMXPAR][4];
273 int const NMXRES = 500;
276 double RLTIM[NMXRES+1];
277 double RMASS[NMXRES+1];
278 double RSPIN[NMXRES+1];
283 int VTOCDK[NMXRES+1];
284 int VTORDK[NMXRES+1];
285 int QORQQB[NMXRES+1];
286 int QBORQQ[NMXRES+1];
290 char RNAME[NMXRES+1][8];
291 char TXNAME[NMXRES+1][2][37];
294 int const NMXDKS = 4000;
295 int const NMXMOD = 200;
298 double BRFRAC[NMXDKS];
299 double CMMOM[NMXDKS];
300 double DKLTM[NMXRES];
302 int IDKPRD[NMXDKS][5];
314 double REPWT[5][4][4];
319 double SWTEF[NMXRES];
322 int const NMXCDK = 4000;
325 double CLDKWT[NMXCDK];
326 double CTHRPW[12][12];
356 double VTXQDK[NMXQDK][4];
362 int const NMXSUD = 1024;
366 double QEV[6][NMXSUD];
367 double SUD[6][NMXSUD];
396 double QMIXSS[2][2][6];
397 double LMIXSS[2][2][6];
411 double GHSQSS[2][2][6][4];
421 double LAMDA1[3][3][3];
422 double LAMDA2[3][3][3];
423 double LAMDA3[3][3][3];
442 int const NMXCL = 500;
445 double PPCL[NMXCL][5];
454 void hwusta_(char * name, int);