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 struct dcpx {double dr,di;};
13 int const NMXHEP = 4000;
20 int JMOHEP[NMXHEP][2];
21 int JDAHEP[NMXHEP][2];
22 double PHEP[NMXHEP][5];
23 double VHEP[NMXHEP][4];
136 int const NMXPAR = 500;
143 int JMOPAR[NMXPAR][2];
144 int JDAPAR[NMXPAR][2];
145 double PPAR[NMXPAR][5];
146 double VPAR[NMXPAR][4];
150 double DECPAR[NMXPAR][2];
151 double PHIPAR[NMXPAR][2];
152 double RHOPAR[NMXPAR][2];
156 int const MODMAX = 50;
163 double RHOHEP[NMXHEP][3];
169 int JCOPAR[NMXPAR][4];
275 int const NMXRES = 500;
278 double RLTIM[NMXRES+1];
279 double RMASS[NMXRES+1];
280 double RSPIN[NMXRES+1];
285 int VTOCDK[NMXRES+1];
286 int VTORDK[NMXRES+1];
287 int QORQQB[NMXRES+1];
288 int QBORQQ[NMXRES+1];
292 char RNAME[NMXRES+1][8];
293 char TXNAME[NMXRES+1][2][37];
296 int const NMXDKS = 4000;
297 int const NMXMOD = 200;
300 double BRFRAC[NMXDKS];
301 double CMMOM[NMXDKS];
302 double DKLTM[NMXRES];
304 int IDKPRD[NMXDKS][5];
316 double REPWT[5][4][4];
321 double SWTEF[NMXRES];
324 int const NMXCDK = 4000;
327 double CLDKWT[NMXCDK];
328 double CTHRPW[12][12];
358 double VTXQDK[NMXQDK][4];
364 int const NMXSUD = 1024;
368 double QEV[6][NMXSUD];
369 double SUD[6][NMXSUD];
398 double QMIXSS[2][2][6];
399 double LMIXSS[2][2][6];
413 double GHSQSS[2][2][6][4];
423 double LAMDA1[3][3][3];
424 double LAMDA2[3][3][3];
425 double LAMDA3[3][3][3];
444 int const NMXCL = 500;
447 double PPCL[NMXCL][5];
482 int const IMAXCH = 20;
486 double CHNPRB[IMAXCH];
494 int const NXMRS = 49;
495 int const NQMRS = 37;
499 double FMRS[NQMRS+1][NXMRS][NPMRS][3];
510 int const NCFMAX = 3;
511 int const NMODE2 = 500;
512 int const NMODE3 = 500;
513 int const NDIAGR = 8;
514 int const NMODEB = 50;
515 int const NMODE4 = 4;
518 double ABMODE[NMODEB][2];
519 double BBMODE[NMODEB][12][2];
520 double PBMODE[NMODEB][12];
521 double WTBMAX[NMODEB][12];
529 double A2MODE[NMODE2][2];
530 double P2MODE[NMODE2];
531 double WT2MAX[NMODE2];
538 double A3MODE[NMODE3][NDIAGR][2];
539 double B3MODE[NMODE3][NDIAGR][2];
540 double P3MODE[NMODE3];
541 double WT3MAX[NMODE3];
542 double SPN3CF[NMODE3][NCFMAX][NCFMAX];
544 int I3MODE[NDIAGR][NMODE3];
545 int I3DRTP[NDIAGR][NMODE3];
549 int I3DRCF[NDIAGR][NMODE3];
553 double A4MODE[NMODE4][12][2];
554 double B4MODE[NMODE4][12][2];
555 double P4MODE[NMODE4][12][12];
556 double WT4MAX[NMODE4][12][12];
558 int I4MODE[NMODE4][2];
573 int const NMXSPN = 50;
576 dcpx MESPN[NMXSPN][NCFMAX][2][2][2][2];
577 dcpx RHOSPN[NMXSPN][2][2];
578 double SPNCFC[NMXSPN][NCFMAX][NCFMAX];
581 int JDASPN[NMXSPN][2];
597 int const MAXHRP = 100;
600 double LHWGT[MAXHRP];
601 double LHWGTS[MAXHRP];
602 double LHXSCT[MAXHRP];
603 double LHXERR[MAXHRP];
604 double LHXMAX[MAXHRP];
631 void hwusta_(char * name, int);