1 // Translation of Fortran commons from the Herwig6
2 // f77 program into c++ structures to be used in ROOT
3 // and declaration of Fortran functions as extern
4 // C functions to be called from the class Herwig6
5 // author: j. g. contreras jgcn@moni.mda.cinvestav.mx
6 // date: december 22, 2000
8 int const NMXHEP = 2000;
15 int JMOHEP[NMXHEP][2];
16 int JDAHEP[NMXHEP][2];
17 double PHEP[NMXHEP][5];
18 double VHEP[NMXHEP][4];
131 int const NMXPAR = 500;
138 int JMOPAR[NMXPAR][2];
139 int JDAPAR[NMXPAR][2];
140 double PPAR[NMXPAR][5];
141 double VPAR[NMXPAR][4];
145 double DECPAR[NMXPAR][2];
146 double PHIPAR[NMXPAR][2];
147 double RHOPAR[NMXPAR][2];
151 int const MODMAX = 5;
158 double RHOHEP[NMXHEP][3];
164 int JCOPAR[NMXPAR][4];
270 int const NMXRES = 500;
273 double RLTIM[NMXRES+1];
274 double RMASS[NMXRES+1];
275 double RSPIN[NMXRES+1];
280 int VTOCDK[NMXRES+1];
281 int VTORDK[NMXRES+1];
282 int QORQQB[NMXRES+1];
283 int QBORQQ[NMXRES+1];
287 char RNAME[NMXRES+1][8];
288 char TXNAME[NMXRES+1][2][37];
291 int const NMXDKS = 4000;
292 int const NMXMOD = 200;
295 double BRFRAC[NMXDKS];
296 double CMMOM[NMXDKS];
297 double DKLTM[NMXRES];
299 int IDKPRD[NMXDKS][5];
311 double REPWT[5][4][4];
316 double SWTEF[NMXRES];
319 int const NMXCDK = 4000;
322 double CLDKWT[NMXCDK];
323 double CTHRPW[12][12];
353 double VTXQDK[NMXQDK][4];
359 int const NMXSUD = 1024;
363 double QEV[6][NMXSUD];
364 double SUD[6][NMXSUD];
393 double QMIXSS[2][2][6];
394 double LMIXSS[2][2][6];
408 double GHSQSS[2][2][6][4];
418 double LAMDA1[3][3][3];
419 double LAMDA2[3][3][3];
420 double LAMDA3[3][3][3];
439 int const NMXCL = 500;
442 double PPCL[NMXCL][5];
451 void hwusta_(char * name, int);