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 struct dcpx {double dr,di;};
10 int const NMXHEP = 2000;
17 int JMOHEP[NMXHEP][2];
18 int JDAHEP[NMXHEP][2];
19 double PHEP[NMXHEP][5];
20 double VHEP[NMXHEP][4];
133 int const NMXPAR = 500;
140 int JMOPAR[NMXPAR][2];
141 int JDAPAR[NMXPAR][2];
142 double PPAR[NMXPAR][5];
143 double VPAR[NMXPAR][4];
147 double DECPAR[NMXPAR][2];
148 double PHIPAR[NMXPAR][2];
149 double RHOPAR[NMXPAR][2];
153 int const MODMAX = 5;
160 double RHOHEP[NMXHEP][3];
166 int JCOPAR[NMXPAR][4];
272 int const NMXRES = 500;
275 double RLTIM[NMXRES+1];
276 double RMASS[NMXRES+1];
277 double RSPIN[NMXRES+1];
282 int VTOCDK[NMXRES+1];
283 int VTORDK[NMXRES+1];
284 int QORQQB[NMXRES+1];
285 int QBORQQ[NMXRES+1];
289 char RNAME[NMXRES+1][8];
290 char TXNAME[NMXRES+1][2][37];
293 int const NMXDKS = 4000;
294 int const NMXMOD = 200;
297 double BRFRAC[NMXDKS];
298 double CMMOM[NMXDKS];
299 double DKLTM[NMXRES];
301 int IDKPRD[NMXDKS][5];
313 double REPWT[5][4][4];
318 double SWTEF[NMXRES];
321 int const NMXCDK = 4000;
324 double CLDKWT[NMXCDK];
325 double CTHRPW[12][12];
355 double VTXQDK[NMXQDK][4];
361 int const NMXSUD = 1024;
365 double QEV[6][NMXSUD];
366 double SUD[6][NMXSUD];
395 double QMIXSS[2][2][6];
396 double LMIXSS[2][2][6];
410 double GHSQSS[2][2][6][4];
420 double LAMDA1[3][3][3];
421 double LAMDA2[3][3][3];
422 double LAMDA3[3][3][3];
441 int const NMXCL = 500;
444 double PPCL[NMXCL][5];
479 int const IMAXCH = 20;
483 double CHNPRB[IMAXCH];
491 int const NXMRS = 49;
492 int const NQMRS = 37;
496 double FMRS[NQMRS+1][NXMRS][NPMRS][3];
507 int const NCFMAX = 3;
508 int const NMODE2 = 500;
509 int const NMODE3 = 500;
510 int const NDIAGR = 8;
511 int const NMODEB = 50;
512 int const NMODE4 = 4;
515 double ABMODE[NMODEB][2];
516 double BBMODE[NMODEB][12][2];
517 double PBMODE[NMODEB][12];
518 double WTBMAX[NMODEB][12];
526 double A2MODE[NMODE2][2];
527 double P2MODE[NMODE2];
528 double WT2MAX[NMODE2];
535 double A3MODE[NMODE3][NDIAGR][2];
536 double B3MODE[NMODE3][NDIAGR][2];
537 double P3MODE[NMODE3];
538 double WT3MAX[NMODE3];
539 double SPN3CF[NMODE3][NCFMAX][NCFMAX];
541 int I3MODE[NMODE3][NDIAGR];
542 int I3DRTP[NMODE3][NDIAGR];
546 int I3DRCF[NMODE3][NDIAGR];
550 double A4MODE[NMODE4][12][2];
551 double B4MODE[NMODE4][12][2];
552 double P4MODE[NMODE4][12][12];
553 double WT4MAX[NMODE4][12][12];
555 int I4MODE[NMODE4][2];
570 int const NMXSPN = 50;
573 dcpx MESPN[NMXSPN][NCFMAX][2][2][2][2];
574 dcpx RHOSPN[NMXSPN][2][2];
575 double SPNCFC[NMXSPN][NCFMAX][NCFMAX];
578 int JDASPN[NMXSPN][2];
594 int const MAXHRP = 100;
597 double LHWGT[MAXHRP];
598 double LHWGTS[MAXHRP];
599 double LHXSCT[MAXHRP];
600 double LHXERR[MAXHRP];
601 double LHXMAX[MAXHRP];
628 void hwusta_(char * name, int);
643 // subroutines to be call by JIMMY