4 #ifndef __CFORTRAN_LOADED
12 /*========================================================================*/
13 /* COMMON/DYLIM/QMIN,QMAX,QTMIN,QTMAX,YWMIN,YWMAX,XWMIN,XWMAX,THWMIN, */
14 /* & THWMAX,PHWMIN,PHWMAX,SETLMQ(12) */
15 /*------------------------------------------------------------------------*/
34 #define DYLIM COMMON_BLOCK(DYLIM, dylim)
35 COMMON_BLOCK_DEF(DylimCommon,DYLIM);
37 /**************************************************************************/
38 /* D E S C R I P T I O N : */
39 /*------------------------------------------------------------------------*/
40 /* qmin, qmax : Mass limits for W */
41 /* qtmin, qtmax : q-subscript-t limits for W */
42 /* ywmin, ywmax : Y limits for W. Cannot be set simultaneously with */
44 /* xwmin, xwmax : Feynman x limit for W */
45 /* thwmin, thwmax : Theta limits for W. Cannot be set simultaneously */
46 /* with ywmin, ywmax. */
47 /* phwmin, phwmax : Phi limits for W */
49 /* ywset, thwset : Logical flags internal to the interface. */
50 /**************************************************************************/
54 /*========================================================================*/
55 /* COMMON/EEPAR/SGMXEE,PLEP,PLEM,RSHMIN,RSHMAX,UPSLON,SIGZ,IBREM,IBEAM */
56 /*------------------------------------------------------------------------*/
69 #define EEPAR COMMON_BLOCK(EEPAR, eepar)
70 COMMON_BLOCK_DEF(EeparCommon,EEPAR);
72 /**************************************************************************/
73 /* D E S C R I P T I O N : */
74 /*------------------------------------------------------------------------*/
76 /* plep : Polarisation of positron beam (P-subscript-L of e-superscript-+ */
77 /* plem : Polarisation of electron beam (P-subscript-L of e-superscript-- */
79 /* Brem- and beam-strahlung parameters */
80 /* rshmin : minimum subprocess energy (root-s-hyphen-subscript-min) */
81 /* rshmax : maximum subprocess energy (root-s-hyphen-subscript-max) */
82 /* upslon : beamstrahlung parameter (UPSILON) */
83 /* sigz : Longitudinal beam size in mm (sigma-subscript-z) */
84 /* ibrem : True if EEBREM used */
85 /* ibeam : True if EEBEAM used */
86 /**************************************************************************/
90 /*========================================================================*/
91 /* COMMON/FORCE/NFORCE,IFORCE(MXFORC),MFORCE(5,MXFORC),LOOK2(2,MXFORC), */
92 /* & LOOKST(MXFORC),MEFORC(MXFORC) */
93 /*------------------------------------------------------------------------*/
95 static const Int_t mxforc = 40;
98 Int_t mforce[mxforc][5];
99 Int_t look2[mxforc][2];
100 Int_t lookst[mxforc];
101 Int_t meforc[mxforc];
104 #define FORCE COMMON_BLOCK(FORCE, force)
105 COMMON_BLOCK_DEF(ForceCommon,FORCE);
107 /**************************************************************************/
108 /* D E S C R I P T I O N : */
109 /*------------------------------------------------------------------------*/
110 /* mxforce : Size of forced-decay array */
111 /* nforce : Number of forced decay paths */
112 /* iforce : ID code for particle of forced decay */
113 /* mforce : Mode(s) of forced decay */
116 /* meforc : Matrix element of the forced decay */
117 /**************************************************************************/
121 /*========================================================================*/
122 /* COMMON/FRGPAR/PUD,PBARY,SIGQT,PEND,XGEN(8),PSPIN1(8),PMIX1(3,2), */
123 /* & PMIX2(3,2),XGENSS(9) */
124 /*------------------------------------------------------------------------*/
140 #define FRGPAR COMMON_BLOCK(FRGPAR, frgpar)
141 COMMON_BLOCK_DEF(FrgparCommon,FRGPAR);
143 /**************************************************************************/
144 /* D E S C R I P T I O N : */
145 /*------------------------------------------------------------------------*/
146 /* Fragmentation parameters : */
149 /* sigqt : Internal k-subscript-t parameter for jet fragmentation (sigma) */
151 /* xgen : Jet fragmentation, Peterson with epsilon = a(n) / m, n = 4-8 */
155 /* xgenss : Fragmentation of GLSS, UPSS etc with epsilon = a(n)/m-squared */
156 /**************************************************************************/
160 /*========================================================================*/
161 /* COMMON/HCON/ANWWWW(4,4,4),ADWWWW(2,4),AIWWWW(4),HMASS,HGAM,HGAMS(29), */
162 /* & ETAHGG,MATCHH(29),ZSTARS(4,2),IHTYPE,HGAMSS(85,85) */
163 /*------------------------------------------------------------------------*/
165 Float_t anwwww[4][4][4];
166 Float_t adwwww[4][2];
173 Float_t zstars[2][4];
175 Float_t hgamss[85][85];
178 #define HCON COMMON_BLOCK(HCON, hcon)
179 COMMON_BLOCK_DEF(HconCommon,HCON);
181 /**************************************************************************/
182 /* D E S C R I P T I O N : */
183 /*------------------------------------------------------------------------*/
193 /* ihtype : MSSM Higgs type, either HL0, HH0 or HA0 */
195 /**************************************************************************/
199 /*========================================================================*/
200 /* COMMON/JETLIM/PMIN(MXLIM),PMAX(MXLIM),PTMIN(MXLIM),PTMAX(MXLIM), */
201 /* & YJMIN(MXLIM),YJMAX(MXLIM),PHIMIN(MXLIM),PHIMAX(MXLIM), */
202 /* & XJMIN(MXLIM),XJMAX(MXLIM),THMIN(MXLIM),THMAX(MXLIM), */
203 /* & SETLMJ(12*MXLIM) */
204 /*------------------------------------------------------------------------*/
206 static const Int_t mxlim = 8;
209 Float_t ptmin[mxlim];
210 Float_t ptmax[mxlim];
211 Float_t yjmin[mxlim];
212 Float_t yjmax[mxlim];
213 Float_t phimin[mxlim];
214 Float_t phimax[mxlim];
215 Float_t xjmin[mxlim];
216 Float_t xjmax[mxlim];
217 Float_t thmin[mxlim];
218 Float_t thmax[mxlim];
219 Bool_t setlmj[12*mxlim];
222 #define JETLIM COMMON_BLOCK(JETLIM, jetlim)
223 COMMON_BLOCK_DEF(JetlimCommon,JETLIM);
225 /**************************************************************************/
226 /* D E S C R I P T I O N : */
227 /*------------------------------------------------------------------------*/
228 /* Changes to mxlim should be echoed in MGLIMS and some of its access */
230 /* pmin, pmax : Momentum limits for jets. */
231 /* ptmin, ptmax : p-subscript-t limits for jets. */
232 /* yjmin, yjmax : Y limits for each jet; not simultaneous to thmin, thmax.*/
233 /* phimin, phimax : Phi limits for jets. */
234 /* xjmin, xjmax : Feynman x limits for jets. */
235 /* thmin, thmax : Theta limits for jets, not simultaneous with yjmin, */
238 /* yjset, thset : Logical flags internal to the interface. */
239 /**************************************************************************/
243 /*========================================================================*/
244 /* COMMON/JETPAR/P(3),PT(3),YJ(3),PHI(3),XJ(3),TH(3),CTH(3),STH(3), */
245 /* & JETTYP(3),SHAT,THAT,QSQ,X1,X2,PBEAM(2), */
246 /* & QMW,QW,QTW,YW,XW,THW,QTMW,PHIW,SHAT1,THAT1,UHAT1,JWTYP, */
247 /* & INITYP(2),ISIGS,PBEAMS(5) */
248 /*------------------------------------------------------------------------*/
287 #define JETPAR COMMON_BLOCK(JETPAR, jetpar)
288 COMMON_BLOCK_DEF(JetparCommon,JETPAR);
291 /**************************************************************************/
292 /* D E S C R I P T I O N : */
293 /*------------------------------------------------------------------------*/
294 /* jwtyp : W type, either W+-, Z0 or GM. */
295 /**************************************************************************/
299 /*========================================================================*/
300 /* COMMON/KEYS/IKEY, KEYON, KEYS(MXKEYS) */
301 /*------------------------------------------------------------------------*/
304 static const Int_t mxkeys = 20;
311 #define KEYS COMMON_BLOCK(KEYS, keys)
312 COMMON_BLOCK_DEF(KeysCommon,KEYS);
314 /**************************************************************************/
315 /* D E S C R I P T I O N : */
316 /*------------------------------------------------------------------------*/
317 /* keys : Flag for process type. */
318 /**************************************************************************/
322 /*========================================================================*/
323 /* COMMON/KKGRAV/NEXTRAD,MASSD,KKGSD,SURFD,UVCUT */
324 /*------------------------------------------------------------------------*/
334 #define KKGRAV COMMON_BLOCK(KKGRAV, kkgrav)
335 COMMON_BLOCK_DEF(KkgravCommon,KKGRAV);
337 /**************************************************************************/
338 /* D E S C R I P T I O N : */
339 /*------------------------------------------------------------------------*/
340 /* EXTRADIM process parameters : */
341 /* nextrad : delta */
342 /* massd : M-subscript-D */
343 /* uvcut : Logical flag */
347 /**************************************************************************/
351 /*========================================================================*/
352 /* COMMON/MBGEN/POMWT(LIMPOM),POMGEN(LIMPOM),MNPOM,MXPOM,PDIFFR,NPOM, */
353 /* & XBARY(2),DXBARY(2),XPOM(LIMPOM,2) */
354 /*------------------------------------------------------------------------*/
356 static const Int_t limpom = 20;
357 Float_t pomwt[limpom];
358 Float_t pomgen[limpom];
365 Float_t xpom[2][limpom];
368 #define MBGEN COMMON_BLOCK(MBGEN, mbgen)
369 COMMON_BLOCK_DEF(MbgenCommon,MBGEN);
371 /**************************************************************************/
372 /* D E S C R I P T I O N : */
373 /*------------------------------------------------------------------------*/
376 /* mnpom, mxpom : Min and max number of cut pomerons. */
382 /**************************************************************************/
386 /*========================================================================*/
387 /* COMMON/MGLIMS/EHMGMN,EHMGMX,YHMGMN,YHMGMX,AMIJMN(MXLIM,MXLIM), */
388 /* & AMIJMX(MXLIM,MXLIM),FIXMIJ(MXLIM,MXLIM) */
389 /*------------------------------------------------------------------------*/
391 static const Int_t mxlim = 8;
396 Float_t amijmn[mxlim][mxlim];
397 Float_t amijmx[mxlim][mxlim];
398 Bool_t fixmij[mxlim][mxlim];
401 #define MGLIMS COMMON_BLOCK(MGLIMS, mglims)
402 COMMON_BLOCK_DEF(MglimsCommon,MGLIMS);
404 /**************************************************************************/
405 /* D E S C R I P T I O N : */
406 /*------------------------------------------------------------------------*/
407 /* Changes in mxlim should be echoed in JETLIM and in access routines for */
408 /* amijmn and amijmx. */
409 /* Limits for MadGraph multiparton processes */
410 /* ehmgmn, ehmgmx : Mass range */
411 /* yhmgmn, yhmgmx : */
412 /* amijmn, amijmx : Multimet mass limits */
414 /**************************************************************************/
418 /*========================================================================*/
419 /* COMMON/NODCAY/NODCAY,NOETA,NOPI0,NONUNU,NOEVOL,NOHADR,NOGRAV */
420 /*------------------------------------------------------------------------*/
431 #define NODCAY COMMON_BLOCK(NODCAY, nodcay)
432 COMMON_BLOCK_DEF(NodcayCommon,NODCAY);
434 /**************************************************************************/
435 /* D E S C R I P T I O N : */
436 /*------------------------------------------------------------------------*/
437 /* Booleans used to forbid decay channels. */
438 /* nodcay : Suppress all decays */
439 /* noeta : Suppress eta decays */
440 /* nopi0 : Suppress pi-zero decays */
441 /* nonunu : Suppess Z-zero neutrino decays */
442 /* noevol : Suppress QCD evolution and hadronisation */
443 /* nohadr : Suppress hadronisation of jets and beam jets */
444 /* nograv : Suppress gravitino decays in GMSB model */
445 /**************************************************************************/
449 /*========================================================================*/
450 /* COMMON/PARTCL/NPTCL,PPTCL(5, MXPTCL),IORIG(MXPTCL),IDENT(MXPTCL), */
451 /* & IDCAY(MXPTCL) */
452 /*------------------------------------------------------------------------*/
454 static const Int_t mxptcl = 4000;
455 static const Int_t ipack = 10000;
457 Float_t pptcl[mxptcl][5];
463 #define PARTCL COMMON_BLOCK(PARTCL, partcl)
464 COMMON_BLOCK_DEF(PartclCommon,PARTCL);
466 /**************************************************************************/
467 /* D E S C R I P T I O N : */
468 /*------------------------------------------------------------------------*/
469 /* Stores HEPEVT data. */
470 /* nptcl : Number of particles. */
471 /* pptcl : x, y, z, and 0 momentum of particles, and mass. */
472 /* iorig : origin of particles. */
473 /* ident : ID code. */
474 /* idcay : ID of decay products. */
475 /* mxptcl : Max number of particles. */
476 /* ipack : Packing integer, used in decoding idcay. */
477 /**************************************************************************/
481 /*========================================================================*/
482 /* COMMON/PRIMAR/NJET,SCM,HALFE,ECM,IDIN(2),NEVENT,NTRIES,NSIGMA */
483 /*------------------------------------------------------------------------*/
495 #define PRIMAR COMMON_BLOCK(PRIMAR, primar)
496 COMMON_BLOCK_DEF(PrimarCommon,PRIMAR);
498 /**************************************************************************/
499 /* D E S C R I P T I O N : */
500 /*------------------------------------------------------------------------*/
502 /* scm : Square of the center-of-mass energy. */
503 /* halfe : Half the center-of-mass energy. */
504 /* ecm : Center-of-mass energy. */
505 /* idin : Beam types 1 and 2. */
506 /* nevent : Number of events to build. */
507 /* ntries : Maximum number of tries to find a good event. */
508 /* nsigma : Number of unevolved events for SIGF calculation. */
509 /**************************************************************************/
513 /*========================================================================*/
514 /* COMMON/PRTOUT/NEVPRT,NJUMP */
515 /*------------------------------------------------------------------------*/
521 #define PRTOUT COMMON_BLOCK(PRTOUT, prtout)
522 COMMON_BLOCK_DEF(PrtoutCommon,PRTOUT);
524 /**************************************************************************/
525 /* D E S C R I P T I O N : */
526 /*------------------------------------------------------------------------*/
527 /* nevprt : Number of events to print */
528 /* njump : Print every njump events. */
529 /**************************************************************************/
533 /*========================================================================*/
534 /* COMMON/QCDPAR/ALAM,ALAM2,CUTJET,ISTRUC */
535 /*------------------------------------------------------------------------*/
543 #define QCDPAR COMMON_BLOCK(QCDPAR, qcdpar)
544 COMMON_BLOCK_DEF(QcdparCommon,QCDPAR);
546 /**************************************************************************/
547 /* D E S C R I P T I O N : */
548 /*------------------------------------------------------------------------*/
549 /* alam : QCD scale (LAMBDA) */
550 /* alam2 : Square of alam */
551 /* cutjet : Cutoff mass for QCD jet evolution (mu-subscript-c) */
552 /* istruc : Structure functions CTEQ3L, CTEQ2L, EHLQ or DO. */
553 /**************************************************************************/
557 /*========================================================================*/
558 /* COMMON/QLMASS/AMLEP(100),NQLEP,NMES,NBARY */
559 /*------------------------------------------------------------------------*/
561 static const Int_t nqlep = 61;
562 static const Int_t nmes = 2;
563 static const Int_t nbary = 2;
567 #define QLMASS COMMON_BLOCK(QLMASS, qlmass)
568 COMMON_BLOCK_DEF(QlmassCommon,QLMASS);
570 /**************************************************************************/
571 /* D E S C R I P T I O N : */
572 /*------------------------------------------------------------------------*/
573 /* amlep : (C++ indices, Fortran is one greater) */
574 /* [5-7] : t, y and x quark mass (m-subscript-t, -y, -x) */
575 /* [21-26] : Masses of u, d, s, c, b and t, all -tilde */
576 /* [29] : g-tilde mass */
577 /* [30] : gamma-tilde mass */
578 /* [31-36] : Masses for nu-e, e, nu-mu, mu, nu-tau and tau, all -tilde */
579 /* [39] : W-plus-tilde mass */
580 /* [40] : Z-zero-tilde mass */
581 /* [63-71] : Higgs meson masses, charges 0,0,0,0,0,1,1,2,2 */
582 /**************************************************************************/
586 /*========================================================================*/
587 /* COMMON/SEED/XSEED */
588 /*------------------------------------------------------------------------*/
593 #define SEED COMMON_BLOCK(SEED, seed)
594 COMMON_BLOCK_DEF(SeedCommon,SEED);
596 /**************************************************************************/
597 /* D E S C R I P T I O N : */
598 /*------------------------------------------------------------------------*/
599 /* Random number seed */
600 /**************************************************************************/
604 /*========================================================================*/
605 /* COMMON/SUGNU/XNUSUG(18) */
606 /*------------------------------------------------------------------------*/
611 #define SUGNU COMMON_BLOCK(SUGNU, sugnu)
612 COMMON_BLOCK_DEF(SugnuCommon,SUGNU);
614 /**************************************************************************/
615 /* D E S C R I P T I O N : */
616 /*------------------------------------------------------------------------*/
617 /* Non-universal SUGRA terms : (C++ indexes again) */
618 /* xnusug[0-2] : Gaugino masses */
619 /* [3-5] : A terms (A-subscript-tau, -b, -t) */
620 /* [6-7] : Higgs masses (M-subscript-H-subscript-d, -u) */
621 /* [8-12] : 1st / 2nd generation masses (M-subscript-eR, -eL, -dR, */
623 /* [13-17] : 3rd generation masses (M-subscript-tau R, -tau L, -bR, */
625 /**************************************************************************/
629 /*========================================================================*/
630 /* COMMON/TCPAR/TCMRHO,TCGRHO */
631 /*------------------------------------------------------------------------*/
637 #define TCPAR COMMON_BLOCK(TCPAR, tcpar)
638 COMMON_BLOCK_DEF(TcparCommon,TCPAR);
640 /**************************************************************************/
641 /* D E S C R I P T I O N : */
642 /*------------------------------------------------------------------------*/
643 /* tcmrho : Technicolor mass */
644 /* tcgrho : Technicolor width */
645 /**************************************************************************/
649 /*========================================================================*/
650 /* COMMON/TYPES/LOC(100),NTYP,NJTTYP,NWWTYP(2),NWMODE(3) */
651 /*------------------------------------------------------------------------*/
653 static const Int_t mxtype = 8;
656 Int_t njttyp[mxtype];
661 #define TYPES COMMON_BLOCK(TYPES, types)
662 COMMON_BLOCK_DEF(TypesCommon,TYPES);
664 /**************************************************************************/
665 /* D E S C R I P T I O N : */
666 /*------------------------------------------------------------------------*/
667 /* Note : Any change in mxtype should be copied in xtypes. */
670 /* njttyp : Number of jet types in jet [index]. */
673 /**************************************************************************/
677 /*========================================================================*/
678 /* COMMON/XMSSM/GOMSSM,GOSUG,GOGMSB,GOAMSB,AL3UNI, */
679 /* & XGLSS,XMUSS,XHASS,XTBSS, */
680 /* & XQ1SS,XDRSS,XURSS,XL1SS,XERSS, */
681 /* & XQ2SS,XSRSS,XCRSS,XL2SS,XMRSS, */
682 /* & XQ3SS,XBRSS,XTRSS,XL3SS,XTARSS,XATSS,XABSS,XATASS, */
683 /* & XM1SS,XM2SS,XM0SU,XMHSU,XA0SU,XTGBSU,XSMUSU, */
684 /* & XLAMGM,XMESGM,XN5GM,XCMGV,XMGVTO, */
685 /* & XRSLGM,XDHDGM,XDHUGM,XDYGM,XN51GM,XN52GM,XN53GM, */
686 /* & XMN3NR,XMAJNR,XANSS,XNRSS,XSBCS */
687 /*------------------------------------------------------------------------*/
744 #define XMSSM COMMON_BLOCK(XMSSM, xmssm)
745 COMMON_BLOCK_DEF(XmssmCommon,XMSSM);
747 /**************************************************************************/
748 /* D E S C R I P T I O N : */
749 /*------------------------------------------------------------------------*/
750 /* Keyword flags : */
751 /* gomssm : True if any of the MSSM* keywords or SUGRA, GMSB or AMSB have */
753 /* gosug : True if SUGRA has been used. */
754 /* gogmsb : True if GMSB has been used. */
755 /* goamsb : True if AMSB has been used. */
756 /* al3uni : True if AL3UNI has been used. */
758 /* MSSM parameters : */
759 /* xglss : Gluino mass */
762 /* xtbss : tan beta */
764 /* MSSM first generation : */
765 /* xq1ss : q-subscript-1 mass */
766 /* xdrss : d-subscript-r mass */
767 /* xurss : u-subscript-r mass */
768 /* xl1ss : l-subscript-1 mass */
769 /* xerss : e-subscript-1 mass */
771 /* MSSM second generation : */
772 /* xq2ss : q-subscript-2 mass */
773 /* xsrss : s-subscript-r mass */
774 /* xcrss : c-subscript-r mass */
775 /* xl2ss : l-subscript-2 mass */
776 /* xmrss : mu-subscript-r mass */
778 /* MSSM third generation : */
779 /* xq3ss : q-subscript-3 mass */
780 /* xbrss : b-subscript-r mass */
781 /* xtrss : t-subscript-r mass */
782 /* xl3ss : l-subscript-3 mass */
783 /* xtarss : tau-subscript-r mass */
784 /* xatss, xabss, xatass : A-subscript-t, -b, -tau mixings. */
786 /* MSSM gaugino masses */
787 /* xm1ss, xm2ss : M-subscript-1, -2 */
789 /* Anomaly-mediated SUSY breaking / Minimal supergravity parameters : */
790 /* xm0su : scalar mass (m-subscript-0) */
791 /* xmhsu : gravitino mass (m-subscript-three halves) */
792 /* xa0su : trilinear breaking term (A-subscript-0) */
793 /* xtgbsu : VEV ratio (tan beta) */
794 /* xsmusu : sign (sgn mu) */
796 /* GMSB messinger SUSY breaking */
797 /* xlamgm : mass (LAMBDA-subscript-m) */
799 /* xn5gm : number of 5 + 5-bar (M-subscript-m) */
800 /* xcmgv : gravitino scale (C-subscript-gr) */
802 /* Non-minimal GMSB parameters */
803 /* xrslgm : gaugino mass multiplier (R-slash) */
804 /* xdhdgm : Higgs mass shift (delta M-squared-subscript-Hd) */
805 /* xdhugm : Higgs mass shift (delta M-squared-subscript-Hu) */
806 /* xdygm : D-term mass-squared (D-subscript-Y of M) */
807 /* xn51gm, xn52gm, xn53gm : independent gauge group messengers */
808 /* (N-subscript-5-subscript-1, -2, -3) */
809 /* SUGRA see-saw nu-effect */
810 /* xmn3nr : nu-mass (m-subscript-nu-subscript-tau) */
811 /* xmajnr : int. scale (M-subscript-N) */
812 /* xanss : GUT scale (A-subscript-n) */
813 /* xnrss : nu SSB terms (m-subscript-nu-tilde-subscript-R) */
818 /* xmgvto : gravitino mass (M-subscript-gravitino) */
819 /**************************************************************************/
823 /*========================================================================*/
824 /* COMMON/XTYPES/PARTYP(40),TITLE(10),JETYP(30,MXTYPE),WWTYP(30,2), */
826 /*------------------------------------------------------------------------*/
828 static const Int_t mxtype = 8;
831 Char_t* jetyp[mxtype][30];
832 Char_t* wwtyp[2][30];
833 Char_t* wmodes[3][30];
836 #define XTYPES COMMON_BLOCK(XTYPES, xtypes)
837 COMMON_BLOCK_DEF(XtypesCommon,XTYPES);
839 /**************************************************************************/
840 /* D E S C R I P T I O N : */
841 /*------------------------------------------------------------------------*/
842 /* Note : Any change in mxtype should be copied in types. */
846 /* wwtyp : Decay modes for WPAIR */
847 /* wmodes : Decay modes for weak force carriers */
848 /**************************************************************************/
852 /*========================================================================*/
853 /* COMMON/WCON/SIN2W,WMASS(4),WGAM(4),AQ(12,4),BQ(12,4),COUT(4), */
854 /* & MATCH(25,4),WCBR(25,4),CUTOFF,CUTPOW,TBRWW(4,2), */
855 /* & RBRWW(12,4,2),EZ,AQDP(12,4),BQDP(12,4),EZDP,WFUDGE */
856 /*------------------------------------------------------------------------*/
870 Float_t rbrww[2][4][12];
878 #define WCON COMMON_BLOCK(WCON, wcon)
879 COMMON_BLOCK_DEF(WconCommon, WCON);
881 /**************************************************************************/
882 /* D E S C R I P T I O N : */
883 /*------------------------------------------------------------------------*/
884 /* sin2w : Weinberg angle (sin-squared(theta-subscript-W)) */
885 /* wmass : W and Z masses */
892 /* cutoff, cutpow : mu-square and nu, respectively, in formula */
893 /* cutoff q*t-square = mu-square*Q-power-nu */
894 /* for DRELLYAN events. */
901 /* wfudge : Fudge factor for DRELLYAN evolution scale */
902 /**************************************************************************/