From 952cc209c09247fd0d38085f4e5d7f967093b9b5 Mon Sep 17 00:00:00 2001 From: hristov Date: Mon, 4 Sep 2000 16:06:33 +0000 Subject: [PATCH] This commit was generated by cvs2svn to compensate for changes in r1831, which included commits to RCS files with non-trunk default branches. --- PYTHIA6/Makefile | 70 + PYTHIA6/dummypythia6.F | 9 + PYTHIA6/main.c | 1 + PYTHIA6/pythia6.inc | 102 + PYTHIA6/pythia6150.f | 51766 +++++++++++++++++++++++ PYTHIA6/pythia6_address.c | 30 + PYTHIA6/pythia6_common_block_address.F | 72 + PYTHIA6/pythia_doc.ps | 48863 +++++++++++++++++++++ PYTHIA6/pythia_doc.update | 3345 ++ PYTHIA6/tpythia6_called_from_cc.F | 20 + 10 files changed, 104278 insertions(+) create mode 100644 PYTHIA6/Makefile create mode 100644 PYTHIA6/dummypythia6.F create mode 100644 PYTHIA6/main.c create mode 100644 PYTHIA6/pythia6.inc create mode 100644 PYTHIA6/pythia6150.f create mode 100644 PYTHIA6/pythia6_address.c create mode 100644 PYTHIA6/pythia6_common_block_address.F create mode 100644 PYTHIA6/pythia_doc.ps create mode 100644 PYTHIA6/pythia_doc.update create mode 100644 PYTHIA6/tpythia6_called_from_cc.F diff --git a/PYTHIA6/Makefile b/PYTHIA6/Makefile new file mode 100644 index 00000000000..c479b4b2ac8 --- /dev/null +++ b/PYTHIA6/Makefile @@ -0,0 +1,70 @@ +############################### PYTHIA6 Makefile ############################### + +# Include machine specific definitions + +include $(ALICE_ROOT)/conf/GeneralDef +include $(ALICE_ROOT)/conf/MachineDef.$(ALICE_TARGET) + +PACKAGE = PYTHIA6 + + +# C sources + +CSRCS = main.c pythia6_address.c + + +# C Objects + +COBJS = $(patsubst %.c,tgt_$(ALICE_TARGET)/%.o,$(CSRCS)) + +##### MACROS ##### + +FSRCS = pythia6150.F pythia6_common_block_address.F \ + tpythia6_called_from_cc.F + +FOBJS = $(patsubst %.F,tgt_$(ALICE_TARGET)/%.o,$(FSRCS)) + +SRCS = $(FSRCS) $(CSRCS) +OBJS = $(FOBJS) $(COBJS) + +DSRCS = dummypythia6.F + +DOBJS = $(patsubst %.F,tgt_$(ALICE_TARGET)/%.o,$(DSRCS)) + +# C++ compilation flags + +CXXFLAGS = $(CXXOPTS) $(CLIBCXXOPTS) $(CLIBDEFS) + +# C compilation flags + +CFLAGS = $(COPT) $(CLIBCOPT) $(CLIBDEFS) + +# FORTRAN compilation flags + +FFLAGS = $(FOPT) $(CLIBFOPT) $(CLIBDEFS) + +##### TARGETS ##### + +# Target + +SLIBRARY = $(LIBDIR)/libpythia6.$(SL) $(LIBDIR)/libdummypythia6.$(SL) +ALIBRARY = $(LIBDIR)/libpythia6.a + +default: $(SLIBRARY) + +$(LIBDIR)/libpythia6.$(SL): $(OBJS) +$(LIBDIR)/libdummypythia6.$(SL): $(DOBJS) + +depend: $(CSRCS) $(DSRCS) + +TOCLEAN = $(OBJS) $(DOBJS) *Cint.cxx *Cint.h + +############################### General Macros ################################ + +include $(ALICE_ROOT)/conf/GeneralMacros + +############################ Dependencies ##################################### + +-include tgt_$(ALICE_TARGET)/Make-depend + + diff --git a/PYTHIA6/dummypythia6.F b/PYTHIA6/dummypythia6.F new file mode 100644 index 00000000000..7b5f40d0190 --- /dev/null +++ b/PYTHIA6/dummypythia6.F @@ -0,0 +1,9 @@ + subroutine dummypythia6 +* common / pythia6_common_block_address / d13 + end + + integer function pythia6_common_block_address(common_block_name) + pythia6_common_block_address=0 + return + end + diff --git a/PYTHIA6/main.c b/PYTHIA6/main.c new file mode 100644 index 00000000000..2fcfee9112e --- /dev/null +++ b/PYTHIA6/main.c @@ -0,0 +1 @@ +void MAIN__() {} diff --git a/PYTHIA6/pythia6.inc b/PYTHIA6/pythia6.inc new file mode 100644 index 00000000000..2d7a4fc5abc --- /dev/null +++ b/PYTHIA6/pythia6.inc @@ -0,0 +1,102 @@ +C...This file contains a complete listing of all PYTHIA +C...commonblocks, and additionally some recommended other +C...declarations. You may copy this to the top of your +C...mina program and then eliminate unnecessary parts. +C Jun 19 1998 P.Murat(CDF): add implicit for integers +C Mar 18 1998 P.Murat: remove implicits, add explicit type definition +c for all the variables +C----------------------------------------------------------------- + +C...All real arithmetic in double precision. +c IMPLICIT DOUBLE PRECISION(A-H, O-Z) +c implicit integer (i-n) +C...Three Pythia functions return integers, so need declaring. + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers +C...(left- and righthanded SUSY, excited fermions). + integer KSUSY1, KSUSY2, KEXCIT + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) + +C...Commonblocks. +C...The event record. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + integer N,NPAD,K + real*8 P,V +C...Parameters. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + integer MSTU, MSTJ + real*8 PARU, PARJ +C...Particle properties + some flavour parameters. + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + integer KCHG + real*8 PMAS, PARF, VCKM +C...Decay information. + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + integer MDCY, MDME, KFDP + real*8 BRAT +C...Particle names + COMMON/PYDAT4/CHAF(500,2) + CHARACTER CHAF*16 +C...Random number generator information. + COMMON/PYDATR/MRPY(6),RRPY(100) + integer MRPY + real*8 RRPY +C...Selection of hard scattering subprocesses. + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + integer MSEL, MSELPD, MSUB, KFIN + real*8 CKIN +C...Parameters. + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + integer MSTP, MSTI + real*8 PARP, PARI +C...Internal variables. + COMMON/PYINT1/MINT(400),VINT(400) + integer mint + real*8 vint +C...Process information. + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + integer ISET, KFPR, ICOL + real*8 COEF +C...Parton distributions and cross sections. + COMMON/PYINT3/XSFX(2,-40:40),ISIG(1000,3),SIGH(1000) + integer ISIG + real*8 XSFX, SIGH +C...Resonance width and secondary decay treatment. + COMMON/PYINT4/MWID(500),WIDS(500,5) + integer MWID + real*8 WIDS +C...Generation and cross section statistics. + COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3) + integer NGENPD, NGEN + real*8 XSEC +C...Process names. + COMMON/PYINT6/PROC(0:500) + CHARACTER PROC*28 +C...Total cross sections. + COMMON/PYINT7/SIGT(0:6,0:6,0:5) + real*8 SIGT +C...Photon parton distributions: total and valence only. + COMMON/PYINT8/XPVMD(-6:6),XPANL(-6:6),XPANH(-6:6),XPBEH(-6:6), + &XPDIR(-6:6) + real*8 XPVMD, XPANL, XPANH, XPBEH, XPDIR + COMMON/PYINT9/VXPVMD(-6:6),VXPANL(-6:6),VXPANH(-6:6),VXPDGM(-6:6) + real*8 VXPVMD, VXPANL, VXPANH, VXPDGM +C...Setting up user-defined processes. + COMMON/PYUPPR/NUP,KUP(20,7),NFUP,IFUP(10,2),PUP(20,5),Q2UP(0:10) + integer NUP, KUP, NFUP, IFUP + real*8 PUP, Q2UP +C...Supersymmetry parameters. + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + integer IMSS + real*8 RMSS +C...Supersymmetry mixing matrices. + COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2), + &SFMIX(16,4) + real*8 ZMIX, UMIX, VMIX, SMZ, SMW, SFMIX +C...Parameters for Gauss integration of supersymmetric widths. + COMMON/PYINTS/XXM(20) + real*8 XXM +C...Histogram information. + COMMON/PYBINS/IHIST(4),INDX(1000),BIN(20000) + integer IHIST, INDX + real*8 BIN diff --git a/PYTHIA6/pythia6150.f b/PYTHIA6/pythia6150.f new file mode 100644 index 00000000000..bd912462b2a --- /dev/null +++ b/PYTHIA6/pythia6150.f @@ -0,0 +1,51766 @@ +C********************************************************************* +C********************************************************************* +C* ** +C* March 1997 ** +C* ** +C* The Lund Monte Carlo for Hadronic Processes ** +C* ** +C* PYTHIA version 6.1 ** +C* ** +C* Torbjorn Sjostrand ** +C* Department of Theoretical Physics 2 ** +C* Lund University ** +C* Solvegatan 14A, S-223 62 Lund, Sweden ** +C* phone +46 - 46 - 222 48 16 ** +C* E-mail torbjorn@thep.lu.se ** +C* ** +C* SUSY parts by ** +C* Stephen Mrenna ** +C* Physics Department, UC Davis ** +C* One Shields Avenue, Davis, CA 95616, USA ** +C* phone + 1 - 530 - 752 - 2661 ** +C* E-mail mrenna@physics.ucdavis.edu ** +C* ** +C* Several parts are written by Hans-Uno Bengtsson ** +C* PYSHOW is written together with Mats Bengtsson ** +C* advanced popcorn baryon production written by Patrik Eden ** +C* code for virtual photons mainly written by Christer Friberg ** +C* code for low-mass strings mainly written by Emanuel Norrbin ** +C* Bose-Einstein code mainly written by Leif Lonnblad ** +C* CTEQ parton distributions are by the CTEQ collaboration ** +C* GRV 94 parton distributions are by Glueck, Reya and Vogt ** +C* SaS photon parton distributions together with Gerhard Schuler ** +C* g + g and q + qbar -> t + tbar + H code by Zoltan Kunszt ** +C* MSSM Higgs mass calculation code by M. Carena, ** +C* J.R. Espinosa, M. Quiros and C.E.M. Wagner ** +C* PYGAUS adapted from CERN library (K.S. Kolbig) ** +C* ** +C* The latest program version and documentation is found on WWW ** +C* http://www.thep.lu.se/~torbjorn/Pythia.html ** +C* ** +C* Copyright Torbjorn Sjostrand, Lund 1997 ** +C* ** +C********************************************************************* +C********************************************************************* +C * +C List of subprograms in order of appearance, with main purpose * +C (S = subroutine, F = function, B = block data) * +C * +C B PYDATA to contain all default values * +C S PYTEST to test the proper functioning of the package * +C S PYHEPC to convert between /PYJETS/ and /HEPEVT/ records * +C * +C S PYINIT to administer the initialization procedure * +C S PYEVNT to administer the generation of an event * +C S PYSTAT to print cross-section and other information * +C S PYINRE to initialize treatment of resonances * +C S PYINBM to read in beam, target and frame choices * +C S PYINKI to initialize kinematics of incoming particles * +C S PYINPR to set up the selection of included processes * +C S PYXTOT to give total, elastic and diffractive cross-sect. * +C S PYMAXI to find differential cross-section maxima * +C S PYPILE to select multiplicity of pileup events * +C S PYSAVE to save alternatives for gamma-p and gamma-gamma * +C S PYGAGA to handle lepton -> lepton + gamma branchings * +C S PYRAND to select subprocess and kinematics for event * +C S PYSCAT to set up kinematics and colour flow of event * +C S PYSSPA to simulate initial state spacelike showers * +C S PYRESD to perform resonance decays * +C S PYMULT to generate multiple interactions * +C S PYREMN to add on target remnants * +C S PYDIFF to set up kinematics for diffractive events * +C S PYDISG to set up kinematics, remnant and showers for DIS * +C S PYDOCU to compute cross-sections and handle documentation * +C S PYFRAM to perform boosts between different frames * +C S PYWIDT to calculate full and partial widths of resonances * +C S PYOFSH to calculate partial width into off-shell channels * +C S PYRECO to handle colour reconnection in W+W- events * +C S PYKLIM to calculate borders of allowed kinematical region * +C S PYKMAP to construct value of kinematical variable * +C S PYSIGH to calculate differential cross-sections * +C S PYPDFU to evaluate parton distributions * +C S PYPDFL to evaluate parton distributions at low x and Q^2 * +C S PYPDEL to evaluate electron parton distributions * +C S PYPDGA to evaluate photon parton distributions (generic) * +C S PYGGAM to evaluate photon parton distributions (SaS sets) * +C S PYGVMD to evaluate VMD part of photon parton distributions * +C S PYGANO to evaluate anomalous part of photon pdf's * +C S PYGBEH to evaluate Bethe-Heitler part of photon pdf's * +C S PYGDIR to evaluate direct contribution to photon pdf's * +C S PYPDPI to evaluate pion parton distributions * +C S PYPDPR to evaluate proton parton distributions * +C F PYCTEQ to evaluate the CTEQ 3 proton parton distributions * +C S PYGRVL to evaluate the GRV 94L proton parton distributions * +C S PYGRVM to evaluate the GRV 94M proton parton distributions * +C S PYGRVD to evaluate the GRV 94D proton parton distributions * +C F PYGRVV auxiliary to the PYGRV* routines * +C F PYGRVW auxiliary to the PYGRV* routines * +C F PYGRVS auxiliary to the PYGRV* routines * +C F PYCT5L to evaluate the CTEQ 5L proton parton distributions * +C F PYCT5M to evaluate the CTEQ 5M1 proton parton distributions * +C S PYPDPO to evaluate old proton parton distributions * +C F PYHFTH to evaluate threshold factor for heavy flavour * +C S PYSPLI to find flavours left in hadron when one removed * +C F PYGAMM to evaluate ordinary Gamma function Gamma(x) * +C S PYWAUX to evaluate auxiliary functions W1(s) and W2(s) * +C S PYI3AU to evaluate auxiliary function I3(s,t,u,v) * +C F PYSPEN to evaluate Spence (dilogarithm) function Sp(x) * +C S PYQQBH to evaluate matrix element for g + g -> Q + Qbar + H * +C * +C S PYMSIN to initialize the supersymmetry simulation * +C S PYAPPS to determine MSSM parameters from SUGRA input * +C F PYRNMQ to determine running quark masses * +C F PYRNMT to determine running top mass * +C S PYTHRG to calculate sfermion third-gen. mass eigenstates * +C S PYINOM to calculate neutralino/chargino mass eigenstates * +C F PYRNM3 to determine running M3, gluino mass * +C S PYEIG4 to calculate eigenvalues and -vectors in 4*4 matrix * +C S PYHGGM to determine Higgs mass spectrum * +C S PYSUBH to determine Higgs masses in the MSSM * +C S PYPOLE to determine Higgs masses in the MSSM * +C S PYVACU to determine Higgs masses in the MSSM * +C S PYRGHM auxiliary to PYVACU * +C S PYGFXX auxiliary to PYRGHM * +C F PYFINT auxiliary to PYVACU * +C F PYFISB auxiliary to PYFINT * +C S PYSFDC to calculate sfermion decay partial widths * +C S PYGLUI to calculate gluino decay partial widths * +C S PYTBBN to calculate 3-body decay of gluino to neutralino * +C S PYTBBC to calculate 3-body decay of gluino to chargino * +C S PYNJDC to calculate neutralino decay partial widths * +C S PYCJDC to calculate chargino decay partial widths * +C F PYXXZ5 auxiliary for neutralino 3-body decay * +C F PYXXW5 auxiliary for ino charge change 3-body decay * +C F PYXXGA auxiliary for ino -> ino + gamma decay * +C F PYX2XG auxiliary for ino -> ino + gauge boson decay * +C F PYX2XH auxiliary for ino -> ino + Higgs decay * +C F PYXXZ2 auxiliary for chargino 3-body decay * +C S PYHEXT to calculate non-SM Higgs decay partial widths * +C F PYH2XX auxiliary for H -> ino + ino decay * +C F PYGAUS to perform Gaussian integration * +C F PYSIMP to perform Simpson integration * +C F PYLAMF to evaluate the lambda kinematics function * +C S PYTBDY to perform 3-body decay of gauginos * +C S PYTECM to calculate techni_rho/omega masses * +C S PYEICG to calculate eigenvalues of a 4*4 complex matrix * +C * +C S PY1ENT to fill one entry (= parton or particle) * +C S PY2ENT to fill two entries * +C S PY3ENT to fill three entries * +C S PY4ENT to fill four entries * +C S PY2FRM to interface to generic two-fermion generator * +C S PY4FRM to interface to generic four-fermion generator * +C S PY6FRM to interface to generic six-fermion generator * +C S PY4JET to generate a shower from a given 4-parton config * +C S PY4JTW to evaluate the weight od a shower history for above * +C S PY4JTS to set up the parton configuration for above * +C S PYJOIN to connect entries with colour flow information * +C S PYGIVE to fill (or query) commonblock variables * +C S PYEXEC to administrate fragmentation and decay chain * +C S PYPREP to rearrange showered partons along strings * +C S PYSTRF to do string fragmentation of jet system * +C S PYINDF to do independent fragmentation of one or many jets * +C S PYDECY to do the decay of a particle * +C S PYDCYK to select parton and hadron flavours in decays * +C S PYKFDI to select parton and hadron flavours in fragm * +C S PYNMES to select number of popcorn mesons * +C S PYKFIN to calculate falvour prod. ratios from input params. * +C S PYPTDI to select transverse momenta in fragm * +C S PYZDIS to select longitudinal scaling variable in fragm * +C S PYSHOW to do timelike parton shower evolution * +C S PYBOEI to include Bose-Einstein effects (crudely) * +C S PYBESQ auxiliary to PYBOEI * +C F PYMASS to give the mass of a particle or parton * +C F PYMRUN to give the running MSbar mass of a quark * +C S PYNAME to give the name of a particle or parton * +C F PYCHGE to give three times the electric charge * +C F PYCOMP to compress standard KF flavour code to internal KC * +C S PYERRM to write error messages and abort faulty run * +C F PYALEM to give the alpha_electromagnetic value * +C F PYALPS to give the alpha_strong value * +C F PYANGL to give the angle from known x and y components * +C F PYR to provide a random number generator * +C S PYRGET to save the state of the random number generator * +C S PYRSET to set the state of the random number generator * +C S PYROBO to rotate and/or boost an event * +C S PYEDIT to remove unwanted entries from record * +C S PYLIST to list event record or particle data * +C S PYLOGO to write a logo * +C S PYUPDA to update particle data * +C F PYK to provide integer-valued event information * +C F PYP to provide real-valued event information * +C S PYSPHE to perform sphericity analysis * +C S PYTHRU to perform thrust analysis * +C S PYCLUS to perform three-dimensional cluster analysis * +C S PYCELL to perform cluster analysis in (eta, phi, E_T) * +C S PYJMAS to give high and low jet mass of event * +C S PYFOWO to give Fox-Wolfram moments * +C S PYTABU to analyze events, with tabular output * +C * +C S PYEEVT to administrate the generation of an e+e- event * +C S PYXTEE to give the total cross-section at given CM energy * +C S PYRADK to generate initial state photon radiation * +C S PYXKFL to select flavour of primary qqbar pair * +C S PYXJET to select (matrix element) jet multiplicity * +C S PYX3JT to select kinematics of three-jet event * +C S PYX4JT to select kinematics of four-jet event * +C S PYXDIF to select angular orientation of event * +C S PYONIA to perform generation of onium decay to gluons * +C * +C S PYBOOK to book a histogram * +C S PYFILL to fill an entry in a histogram * +C S PYFACT to multiply histogram contents by a factor * +C S PYOPER to perform operations between histograms * +C S PYHIST to print and reset all histograms * +C S PYPLOT to print a single histogram * +C S PYNULL to reset contents of a single histogram * +C S PYDUMP to dump histogram contents onto a file * +C * +C S PYKCUT dummy routine for user kinematical cuts * +C S PYEVWT dummy routine for weighting events * +C S PYUPIN dummy routine to initialize a user process * +C S PYUPEV dummy routine to generate a user process event * +C S PDFSET dummy routine to be removed when using PDFLIB * +C S STRUCTM dummy routine to be removed when using PDFLIB * +C S STRUCTP dummy routine to be removed when using PDFLIB * +C S PYTAUD dummy routine for interface to tau decay libraries * +C S PYTIME dummy routine for giving date and time * +C * +C********************************************************************* + +C...PYDATA +C...Default values for switches and parameters, +C...and particle, decay and process data. + + BLOCK DATA PYDATA + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYDAT4/CHAF(500,2) + CHARACTER CHAF*16 + COMMON/PYDATR/MRPY(6),RRPY(100) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + COMMON/PYINT3/XSFX(2,-40:40),ISIG(1000,3),SIGH(1000) + COMMON/PYINT4/MWID(500),WIDS(500,5) + COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3) + COMMON/PYINT6/PROC(0:500) + CHARACTER PROC*28 + COMMON/PYINT7/SIGT(0:6,0:6,0:5) + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2), + &SFMIX(16,4) + COMMON/PYBINS/IHIST(4),INDX(1000),BIN(20000) + SAVE /PYDAT1/,/PYDAT2/,/PYDAT3/,/PYDAT4/,/PYDATR/,/PYSUBS/, + &/PYPARS/,/PYINT1/,/PYINT2/,/PYINT3/,/PYINT4/,/PYINT5/, + &/PYINT6/,/PYINT7/,/PYMSSM/,/PYSSMT/,/PYBINS/ + +C...PYDAT1, containing status codes and most parameters. + DATA MSTU/ + & 0, 0, 0, 4000,10000, 500, 4000, 0, 0, 2, + 1 6, 1, 1, 0, 1, 1, 0, 0, 0, 0, + 2 2, 10, 0, 0, 1, 10, 0, 0, 0, 0, + 3 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 4 2, 2, 1, 4, 2, 1, 1, 0, 0, 0, + 5 25, 24, 0, 1, 0, 0, 0, 0, 0, 0, + 6 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 7 30*0, + 1 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 2 1, 5, 3, 5, 0, 0, 0, 0, 0, 0, + & 80*0/ + DATA (PARU(I),I=1,100)/ + & 3.141592653589793D0, 6.283185307179586D0, + & 0.197327D0, 5.06773D0, 0.389380D0, 2.56819D0, 4*0D0, + 1 0.001D0, 0.09D0, 0.01D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, + 2 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, + 3 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, + 4 2.0D0, 1.0D0, 0.25D0, 2.5D0, 0.05D0, + 4 0D0, 0D0, 0.0001D0, 0D0, 0D0, + 5 2.5D0,1.5D0,7.0D0,1.0D0,0.5D0,2.0D0,3.2D0, 0D0, 0D0, 0D0, + 6 40*0D0/ + DATA (PARU(I),I=101,200)/ + & 0.00729735D0, 0.232D0, 0.007764D0, 1.0D0, 1.16639D-5, + & 0D0, 0D0, 0D0, 0D0, 0D0, + 1 0.20D0, 0.25D0, 1.0D0, 4.0D0, 10D0, 0D0, 0D0, 0D0, 0D0, 0D0, + 2 -0.693D0, -1.0D0, 0.387D0, 1.0D0, -0.08D0, + 2 -1.0D0, 1.0D0, 1.0D0, 1.0D0, 0D0, + 3 1.0D0,-1.0D0, 1.0D0,-1.0D0, 1.0D0, 0D0, 0D0, 0D0, 0D0, 0D0, + 4 5.0D0, 1.0D0, 1.0D0, 0D0, 1.0D0, 1.0D0, 0D0, 0D0, 0D0, 0D0, + 5 1.0D0, 0D0, 0D0, 0D0, 1000D0, 1.0D0, 1.0D0, 1.0D0, 1.0D0,0D0, + 6 1.0D0, 1.0D0, 1.0D0, 1.0D0, 1.0D0, 0D0, 0D0, 0D0, 0D0, 0D0, + 7 1.0D0, 1.0D0, 1.0D0, 1.0D0, 1.0D0, 1.0D0, 1.0D0, 0D0,0D0,0D0, + 8 1.0D0, 1.0D0, 1.0D0, 0.0D0, 0.0D0, 1.0D0, 1.0D0, 0D0,0D0,0D0, + 9 0D0, 0D0, 0D0, 0D0, 1.0D0, 0D0, 0D0, 0D0, 0D0, 0D0/ + DATA MSTJ/ + & 1, 3, 0, 0, 0, 0, 0, 0, 0, 0, + 1 4, 2, 0, 1, 0, 2, 2, 0, 0, 0, + 2 2, 1, 1, 2, 1, 2, 2, 0, 0, 0, + 3 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 4 2, 2, 4, 2, 5, 3, 3, 0, 0, 3, + 5 0, 3, 0, 2, 0, 0, 1, 0, 0, 0, + 6 40*0, + & 5, 2, 7, 5, 1, 1, 0, 2, 0, 2, + 1 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, + 2 80*0/ + DATA PARJ/ + & 0.10D0, 0.30D0, 0.40D0, 0.05D0, 0.50D0, + & 0.50D0, 0.50D0, 0.6D0, 1.2D0, 0.6D0, + 1 0.50D0,0.60D0,0.75D0, 0D0, 0D0, 0D0, 0D0, 1.0D0, 1.0D0, 0D0, + 2 0.36D0, 1.0D0,0.01D0, 2.0D0,1.0D0,0.4D0, 0D0, 0D0, 0D0, 0D0, + 3 0.10D0, 1.0D0, 0.8D0, 1.5D0,0D0,2.0D0,0.2D0, 0D0,0.08D0,0D0, + 4 0.3D0, 0.58D0, 0.5D0, 0.9D0,0.5D0,1.0D0,1.0D0,1.0D0,0D0,0D0, + 5 0.77D0, 0.77D0, 0.77D0, -0.05D0, -0.005D0, + 5 -0.00001D0, -0.00001D0, -0.00001D0, 1.0D0, 0D0, + 6 4.5D0, 0.7D0, 0D0,0.003D0, 0.5D0, 0.5D0, 0D0, 0D0, 0D0, 0D0, + 7 10D0, 1000D0, 100D0, 1000D0, 0D0, 0.7D0,10D0, 0D0, 0D0, 0D0, + 8 0.29D0, 1.0D0, 1.0D0, 0D0, 10D0, 10D0, 0D0, 0D0, 0D0,1D-4, + 9 0.02D0, 1.0D0, 0.2D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, + & 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, + 1 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, + 2 1.0D0, 0.25D0,91.187D0,2.489D0, 0.01D0, + 2 2.0D0, 1.0D0, 0.25D0,0.002D0, 0D0, + 3 0D0, 0D0, 0D0, 0D0, 0.01D0, 0.99D0, 0D0, 0D0, 0.2D0, 0D0, + 4 10*0D0, + 5 10*0D0, + 6 10*0D0, + 7 0D0, 200D0, 200D0, .333D0, .05D0, 0D0, 0D0, 0D0, 0D0, -0.693D0, + 8 -1.0D0, 0.387D0, 1.0D0, -0.08D0, -1.0D0, + 8 1.0D0, 1.0D0, -0.693D0, -1.0D0, 0.387D0, + 9 1.0D0, -0.08D0, -1.0D0, 1.0D0, 1.0D0, + 9 5*0D0/ + +C...PYDAT2, with particle data and flavour treatment parameters. + DATA (KCHG(I,1),I= 1, 500)/-1,2,-1,2,-1,2,-1,2,2*0,-3,0,-3,0, + &-3,0,-3,6*0,3,9*0,3,2*0,3,0,-1,12*0,3,2*0,3,5*0,2*6,3,20*0,2,-1, + &20*0,4*3,8*0,3*3,4*0,3*3,3*0,3*3,7*0,3*3,3*0,3*3,3*0,-2,-3,2*1, + &3*0,4,3*3,6,2*-2,2*-3,0,2*1,2*0,2*3,-2,2*-3,2*0,-3,2*1,2*0,3,0, + &2*4,2*3,2*6,3,2*1,2*0,2*3,2*0,4,2*3,2*6,2*3,6,2*-2,2*-3,0,-3,0, + &2*1,2*0,2*3,0,3,2*-2,2*-3,2*0,2*-3,0,2*1,2*0,2*3,2*0,2*3,-2,2*-3, + &2*0,2*-3,2*0,-3,2*0,2*3,4*0,2*3,2*0,2*3,2*0,2*3,4*0,2*3,2*0,2*3, + &3*0,3,2*0,3,0,3,0,3,2*0,3,0,3,3*0,-1,2,-1,2,-1,2,-3,0,-3,0,-3, + &4*0,3,2*0,3,0,-1,2,-1,2,-1,2,-3,0,-3,0,-3,0,-1,2,-3,164*0/ + DATA (KCHG(I,2),I= 1, 500)/8*1,12*0,2,16*0,2,1,113*0,-1,0,2*-1, + &3*0,-1,4*0,2*-1,3*0,2*-1,4*0,-1,5*0,2*-1,4*0,2*-1,5*0,2*-1,6*0, + &-1,7*0,2*-1,5*0,2*-1,6*0,2*-1,7*0,2*-1,8*0,-1,56*0,6*1,6*0,2,7*0, + &6*1,6*0,2*1,165*0/ + DATA (KCHG(I,3),I= 1, 500)/8*1,2*0,8*1,5*0,1,9*0,1,2*0,1,0,2*1, + &11*0,1,2*0,1,5*0,6*1,15*0,1,0,2*1,20*0,4*1,5*0,6*1,4*0,9*1,4*0, + &12*1,3*0,102*1,2*0,2*1,2*0,4*1,2*0,6*1,2*0,8*1,3*0,1,0,2*1,0,3*1, + &0,4*1,3*0,12*1,3*0,1,2*0,1,0,16*1,163*0/ + DATA (KCHG(I,4),I= 1, 293)/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15, + &16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36, + &37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57, + &58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78, + &79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99, + &100,110,111,113,115,130,210,211,213,215,220,221,223,225,310,311, + &313,315,321,323,325,330,331,333,335,411,413,415,421,423,425,431, + &433,435,440,441,443,445,511,513,515,521,523,525,531,533,535,541, + &543,545,551,553,555,1103,1114,2101,2103,2110,2112,2114,2203,2210, + &2212,2214,2224,3101,3103,3112,3114,3122,3201,3203,3212,3214,3222, + &3224,3303,3312,3314,3322,3324,3334,4101,4103,4112,4114,4122,4132, + &4201,4203,4212,4214,4222,4224,4232,4301,4303,4312,4314,4322,4324, + &4332,4334,4403,4412,4414,4422,4424,4432,4434,4444,5101,5103,5112, + &5114,5122,5132,5142,5201,5203,5212,5214,5222,5224,5232,5242,5301, + &5303,5312,5314,5322,5324,5332,5334,5342,5401,5403,5412,5414,5422, + &5424,5432,5434,5442,5444,5503,5512,5514,5522,5524,5532,5534,5542, + &5544,5554,10111,10113,10211,10213,10221,10223,10311,10313,10321, + &10323,10331,10333,10411,10413,10421,10423,10431,10433,10441, + &10443,10511,10513,10521,10523,10531,10533,10541,10543,10551, + &10553,20113,20213,20223,20313,20323,20333,20413,20423,20433/ + DATA (KCHG(I,4),I= 294, 500)/20443,20513,20523,20533,20543,20553, + &100443,100553,1000001,1000002,1000003,1000004,1000005,1000006, + &1000011,1000012,1000013,1000014,1000015,1000016,1000021,1000022, + &1000023,1000024,1000025,1000035,1000037,1000039,2000001,2000002, + &2000003,2000004,2000005,2000006,2000011,2000012,2000013,2000014, + &2000015,2000016,4000001,4000002,4000011,4000012,163*0/ + DATA (PMAS(I,1),I= 1, 211)/0.33D0,0.33D0,0.50D0,1.50D0, + &4.80D0,175D0,2*400D0,2*0D0,0.00051D0,0D0,0.10566D0,0D0,1.777D0, + &0D0,400D0,5*0D0,91.187D0,80.33D0,80D0,6*0D0,500D0,900D0,500D0, + &3*300D0,350D0,200D0,5000D0,10*0D0,3*110D0,3*210D0,4*0D0,2*200D0, + &4*750D0,16*0D0,1D0,2D0,5D0,16*0D0,0.13498D0,0.7685D0,1.318D0, + &0.49767D0,0D0,0.13957D0,0.7669D0,1.318D0,0D0,0.54745D0,0.78194D0, + &1.275D0,2*0.49767D0,0.8961D0,1.432D0,0.4936D0,0.8916D0,1.425D0, + &0D0,0.95777D0,1.0194D0,1.525D0,1.8693D0,2.01D0,2.46D0,1.8645D0, + &2.0067D0,2.46D0,1.9685D0,2.1124D0,2.5735D0,0D0,2.9798D0, + &3.09688D0,3.5562D0,5.2792D0,5.3248D0,5.83D0,5.2789D0,5.3248D0, + &5.83D0,5.3693D0,5.4163D0,6.07D0,6.594D0,6.602D0,7.35D0,9.4D0, + &9.4603D0,9.9132D0,0.77133D0,1.234D0,0.57933D0,0.77133D0,0D0, + &0.93957D0,1.233D0,0.77133D0,0D0,0.93827D0,1.232D0,1.231D0, + &0.80473D0,0.92953D0,1.19744D0,1.3872D0,1.11568D0,0.80473D0, + &0.92953D0,1.19255D0,1.3837D0,1.18937D0,1.3828D0,1.09361D0, + &1.3213D0,1.535D0,1.3149D0,1.5318D0,1.67245D0,1.96908D0,2.00808D0, + &2.4521D0,2.5D0,2.2849D0,2.4703D0,1.96908D0,2.00808D0,2.4535D0, + &2.5D0,2.4529D0,2.5D0,2.4656D0,2.15432D0,2.17967D0,2.55D0,2.63D0, + &2.55D0,2.63D0,2.704D0,2.8D0,3.27531D0,3.59798D0,3.65648D0, + &3.59798D0,3.65648D0,3.78663D0,3.82466D0,4.91594D0,5.38897D0/ + DATA (PMAS(I,1),I= 212, 500)/5.40145D0,5.8D0,5.81D0,5.641D0, + &5.84D0,7.00575D0,5.38897D0,5.40145D0,5.8D0,5.81D0,5.8D0,5.81D0, + &5.84D0,7.00575D0,5.56725D0,5.57536D0,5.96D0,5.97D0,5.96D0,5.97D0, + &6.12D0,6.13D0,7.19099D0,6.67143D0,6.67397D0,7.03724D0,7.0485D0, + &7.03724D0,7.0485D0,7.21101D0,7.219D0,8.30945D0,8.31325D0, + &10.07354D0,10.42272D0,10.44144D0,10.42272D0,10.44144D0, + &10.60209D0,10.61426D0,11.70767D0,11.71147D0,15.11061D0,0.9835D0, + &1.231D0,0.9835D0,1.231D0,1D0,1.17D0,1.429D0,1.29D0,1.429D0, + &1.29D0,2*1.4D0,2.272D0,2.424D0,2.272D0,2.424D0,2.5D0,2.536D0, + &3.4151D0,3.46D0,5.68D0,5.73D0,5.68D0,5.73D0,5.92D0,5.97D0,7.25D0, + &7.3D0,9.8598D0,9.875D0,2*1.23D0,1.282D0,2*1.402D0,1.427D0, + &2*2.372D0,2.56D0,3.5106D0,2*5.78D0,6.02D0,7.3D0,9.8919D0,3.686D0, + &10.0233D0,32*500D0,4*400D0,163*0D0/ + DATA (PMAS(I,2),I= 1, 500)/5*0D0,1.39883D0,16*0D0,2.48009D0, + &2.07002D0,0.00237D0,6*0D0,14.54848D0,0D0,16.6708D0,8.42842D0, + &4.92026D0,5.75967D0,0.10158D0,0.39162D0,417.4648D0,10*0D0, + &0.04104D0,0.0105D0,0.02807D0,0.82101D0,0.64973D0,0.1575D0,4*0D0, + &0.88161D0,0.88001D0,19.33905D0,39*0D0,0.151D0,0.107D0,3*0D0, + &0.149D0,0.107D0,2*0D0,0.00843D0,0.185D0,2*0D0,0.0505D0,0.109D0, + &0D0,0.0498D0,0.098D0,0D0,0.0002D0,0.00443D0,0.076D0,2*0D0, + &0.023D0,2*0D0,0.023D0,2*0D0,0.015D0,0D0,0.0013D0,0D0,0.002D0, + &2*0D0,0.02D0,2*0D0,0.02D0,2*0D0,0.02D0,2*0D0,0.02D0,4*0D0,0.12D0, + &4*0D0,0.12D0,3*0D0,2*0.12D0,3*0D0,0.0394D0,4*0D0,0.036D0,0D0, + &0.0358D0,2*0D0,0.0099D0,0D0,0.0091D0,74*0D0,0.06D0,0.142D0, + &0.06D0,0.142D0,0D0,0.36D0,0.287D0,0.09D0,0.287D0,0.09D0,0.25D0, + &0.08D0,0.05D0,0.02D0,0.05D0,0.02D0,0.05D0,0D0,0.014D0,0.01D0, + &8*0.05D0,0D0,0.01D0,2*0.4D0,0.025D0,2*0.174D0,0.053D0,3*0.05D0, + &0.0009D0,4*0.05D0,3*0D0,19*1D0,0D0,7*1D0,0D0,1D0,0D0,1D0,0D0, + &2.65171D0,2.65499D0,0.42901D0,0.41917D0,163*0D0/ + DATA (PMAS(I,3),I= 1, 500)/5*0D0,13.98835D0,16*0D0,24.8009D0, + &20.70015D0,0.02369D0,6*0D0,145.48484D0,0D0,166.70801D0, + &84.28416D0,49.20256D0,57.59671D0,1.0158D0,3.91624D0,4174.64797D0, + &10*0D0,0.41042D0,0.10504D0,0.28068D0,8.21005D0,6.49728D0, + &1.57496D0,4*0D0,8.81606D0,8.80013D0,193.39048D0,39*0D0,0.4D0, + &0.25D0,3*0D0,0.4D0,0.25D0,2*0D0,0.1D0,0.17D0,2*0D0,0.2D0,0.12D0, + &0D0,0.2D0,0.12D0,0D0,0.002D0,0.015D0,0.2D0,2*0D0,0.12D0,2*0D0, + &0.12D0,2*0D0,0.05D0,0D0,0.005D0,0D0,0.01D0,2*0D0,0.05D0,2*0D0, + &0.05D0,2*0D0,0.05D0,2*0D0,0.05D0,4*0D0,0.14D0,4*0D0,0.14D0,3*0D0, + &2*0.14D0,3*0D0,0.04D0,4*0D0,0.035D0,0D0,0.035D0,2*0D0,0.05D0,0D0, + &0.05D0,74*0D0,0.05D0,0.25D0,0.05D0,0.25D0,0D0,0.2D0,0.4D0, + &0.005D0,0.4D0,0.01D0,0.35D0,0.001D0,0.1D0,0.08D0,0.1D0,0.08D0, + &0.1D0,0D0,0.05D0,0.02D0,6*0.1D0,0.05D0,0.1D0,0D0,0.02D0,2*0.3D0, + &0.05D0,2*0.3D0,0.02D0,2*0.1D0,0.03D0,0.001D0,4*0.1D0,3*0D0, + &19*10D0,0.00001D0,7*10D0,0.00001D0,10D0,0.00001D0,10D0,0.00001D0, + &26.51715D0,26.54994D0,4.29011D0,4.19173D0,163*0D0/ + DATA (PMAS(I,4),I= 1, 500)/12*0D0,658654D0,0D0,0.0872D0,68*0D0, + &0.1D0,0.387D0,16*0D0,0.00003D0,2*0D0,15500D0,0D0,7804.5D0,6*0D0, + &26.762D0,3*0D0,3709D0,6*0D0,0.317D0,2*0D0,0.1244D0,2*0D0,0.14D0, + &6*0D0,0.468D0,2*0D0,0.462D0,2*0D0,0.483D0,2*0D0,0.15D0,19*0D0, + &44.34D0,0D0,78.88D0,4*0D0,23.96D0,2*0D0,49.1D0,0D0,87.1D0,0D0, + &24.6D0,4*0D0,0.0618D0,0.029D0,6*0D0,0.106D0,6*0D0,0.019D0,2*0D0, + &7*0.1D0,4*0D0,0.342D0,2*0.387D0,6*0D0,2*0.387D0,6*0D0,0.387D0, + &0D0,0.387D0,2*0D0,8*0.387D0,0D0,9*0.387D0,83*0D0,163*0D0/ + DATA PARF/ + & 0.5D0,0.25D0, 0.5D0,0.25D0, 1D0, 0.5D0, 0D0, 0D0, 0D0, 0D0, + 1 0.5D0, 0D0, 0.5D0, 0D0, 1D0, 1D0, 0D0, 0D0, 0D0, 0D0, + 2 0.5D0, 0D0, 0.5D0, 0D0, 1D0, 1D0, 0D0, 0D0, 0D0, 0D0, + 3 0.5D0, 0D0, 0.5D0, 0D0, 1D0, 1D0, 0D0, 0D0, 0D0, 0D0, + 4 0.5D0, 0D0, 0.5D0, 0D0, 1D0, 1D0, 0D0, 0D0, 0D0, 0D0, + 5 0.5D0, 0D0, 0.5D0, 0D0, 1D0, 1D0, 0D0, 0D0, 0D0, 0D0, + 6 0.75D0, 0.5D0, 0D0,0.1667D0,0.0833D0,0.1667D0,0D0,0D0,0D0, 0D0, + 7 0D0, 0D0, 1D0,0.3333D0,0.6667D0,0.3333D0,0D0,0D0,0D0, 0D0, + 8 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, + 9 0.0099D0, 0.0056D0, 0.199D0, 1.35D0, 4.5D0, 5*0D0, + & 0.325D0,0.325D0,0.5D0,1.6D0, 5.0D0, 0D0, 0D0, 0D0, 0D0, 0D0, + 1 0D0,0.11D0,0.16D0,0.048D0,0.50D0,0.45D0,0.55D0,0.60D0,0D0,0D0, + 2 0.2D0, 0.1D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, 0D0, + 3 60*0D0, + 4 0.2D0, 0.5D0, 8*0D0, + 5 1800*0D0/ + DATA ((VCKM(I,J),J=1,4),I=1,4)/ + & 0.95113D0, 0.04884D0, 0.00003D0, 0.00000D0, + & 0.04884D0, 0.94940D0, 0.00176D0, 0.00000D0, + & 0.00003D0, 0.00176D0, 0.99821D0, 0.00000D0, + & 0.00000D0, 0.00000D0, 0.00000D0, 1.00000D0/ + +C...PYDAT3, with particle decay parameters and data. + DATA (MDCY(I,1),I= 1, 500)/5*0,3*1,6*0,1,0,1,5*0,3*1,6*0,1,0, + &7*1,10*0,6*1,4*0,3*1,19*0,3*1,16*0,3*1,3*0,2*1,0,7*1,0,2*1,0, + &12*1,0,18*1,0,1,4*0,1,3*0,2*1,2*0,3*1,2*0,4*1,0,5*1,2*0,4*1,2*0, + &5*1,2*0,6*1,0,7*1,2*0,5*1,2*0,6*1,2*0,7*1,2*0,8*1,0,75*1,0,7*1,0, + &1,0,1,0,4*1,163*0/ + DATA (MDCY(I,2),I= 1, 500)/1,9,17,25,33,41,56,66,2*0,76,80,82, + &87,89,143,145,150,2*0,153,162,174,190,210,6*0,289,0,311,334,416, + &496,523,526,527,10*0,536,544,550,558,582,608,4*0,632,639,646, + &19*0,658,659,663,16*0,672,674,679,688,0,697,699,701,0,708,716, + &722,731,733,735,738,748,754,757,0,768,774,785,791,854,857,865, + &926,928,936,969,971,0,975,976,979,981,1017,1018,1026,1062,1063, + &1071,1110,1111,1115,1146,1147,1151,1152,1161,0,1163,4*0,1164,3*0, + &1167,1170,2*0,1171,1173,1176,2*0,1180,1181,1184,1187,0,1190,1195, + &1197,1200,1202,2*0,1206,1207,1208,1284,2*0,1288,1289,1290,1291, + &1292,2*0,1296,1297,1299,1300,1302,1306,0,1307,1311,1315,1319, + &1323,1327,1331,2*0,1335,1336,1337,1354,1363,2*0,1372,1373,1374, + &1375,1376,1385,2*0,1394,1395,1396,1397,1398,1407,1408,2*0,1417, + &1426,1435,1444,1453,1462,1471,1480,0,1489,1498,1507,1516,1525, + &1534,1543,1552,1561,1570,1571,1572,1573,1574,1579,1582,1584,1589, + &1591,1596,1603,1607,1609,1611,1613,1615,1617,1619,1621,1622,1624, + &1626,1628,1630,1632,1634,1636,1638,1640,1641,1643,1645,1659,1661, + &1663,1667,1669,1671,1673,1675,1677,1679,1681,1683,1685,1696,1710, + &1722,1734,1746,1758,1770,1785,1796,1807,1818,1829,1840,1851,1912, + &1919,2021,2077,2195,2329,0,2400,2416,2432,2448,2464,2480,2496,0, + &2511,0,2526,0,2541,2545,2549,2552,163*0/ + DATA (MDCY(I,3),I= 1, 500)/5*8,15,2*10,2*0,4,2,5,2,54,2,5,3, + &2*0,9,12,16,20,79,6*0,22,0,23,82,80,27,3,1,9,10*0,8,6,8,24,26,24, + &4*0,2*7,12,19*0,1,4,9,16*0,2,5,2*9,0,2*2,7,0,8,6,9,2*2,3,10,6,3, + &11,0,6,11,6,63,3,8,61,2,8,33,2,4,0,1,3,2,36,1,8,36,1,8,39,1,4,31, + &1,4,1,9,2,0,1,4*0,3,3*0,3,1,2*0,2,3,4,2*0,1,3*3,0,5,2,3,2,4,2*0, + &2*1,76,4,2*0,4*1,4,2*0,1,2,1,2,4,1,0,7*4,2*0,2*1,17,2*9,2*0,4*1, + &2*9,2*0,4*1,9,1,9,2*0,8*9,0,9*9,4*1,5,3,2,5,2,5,7,4,7*2,1,9*2,1, + &2*2,14,2*2,4,9*2,11,14,5*12,15,6*11,61,7,102,56,118,134,71,0, + &6*16,15,0,15,0,15,0,2*4,3,2,163*0/ + DATA (MDME(I,1),I= 1,4000)/6*1,-1,7*1,-1,7*1,-1,7*1,-1,7*1,-1, + &7*1,-1,1,7*-1,8*1,2*-1,8*1,2*-1,73*1,-1,2*1,-1,5*1,0,2*-1,6*1,0, + &2*-1, 3*1,-1,6*1,2*-1,6*1,2*-1,3*1,-1,3*1,-1,3*1,5*-1,3*1,-1,6*1, + &2*-1,3*1,-1,5*1,62*1,6*1,2*-1,6*1,8*-1,3*1,-1,3*1,-1,3*1,5*-1,3*1, + &4*-1,6*1,2*-1,3*1,-1,8*1,62*1,6*1,2*-1,3*1,-1,6*1,62*1,3*1,-1, + &3*1,-1,1,18*1,8*1,2*-1,2*1,-1,36*1,2*-1,6*1,2*-1,9*1,-1,3*1,-1, + &3*1,5*-1,3*1,-1,14*1,2*-1,6*1,2*-1,1151*1,2*-1,132*1,2*-1,635*1, + &1447*0/ + DATA (MDME(I,2),I= 1,4000)/43*102,4*0,102,0,6*53,3*102,4*0,102, + &2*0,3*102,4*0,102,2*0,6*102,42,6*102,2*42,2*0,8*41,2*0,36*41, + &8*102,0,102,0,102,2*0,21*102,8*32,8*0,16*32,4*0,8*32,9*0,62*53, + &8*32,14*0,16*32,7*0,8*32,12*0,62*53,8*32,10*0,62*53,4*32,5*0, + &18*53,3*32,0,6*32,3*0,4*32,3*0,4*32,3*0,4*32,3*0,32,8*0,8*32, + &14*0,16*32,12*0,8*32,22*0,9*32,3*0,12,2*42,2*11,9*42,0,2,3,15*0, + &4*42,5*0,3,12*0,2,3*0,1,0,3,16*0,2*3,15*0,2*42,2*3,18*0,2*3,3*0, + &1,11*0,22*42,41*0,2*3,9*0,16*42,45*0,3,10*0,10*42,20*0,2*13,6*0, + &12,2*0,12,0,12,14*42,16*0,48,3*13,2*42,9*0,14*42,16*0,48,3*13, + &2*42,9*0,14*42,19*0,48,3*13,2*42,6*0,2*11,28*42,5*0,32,3*0,4*32, + &2*4,0,32,45*0,14*42,52*0,10*13,2*42,2*11,4*0,2*42,2*11,6*0,2*42, + &2*11,0,2*42,2*11,2*42,2*11,2*42,2*11,2*42,2*11,2*42,2*11,2*42, + &2*11,2*42,2*11,2*0,3*42,8*0,48,3*13,20*42,4*0,18*42,4*0,9*42,0, + &162*42,50*0,2*12,17*0,2*32,33*0,12,9*0,32,2*0,12,11*0,4*32,2*4, + &5*0,832*53,1459*0/ + DATA (BRAT(I) ,I= 1, 348)/43*0D0,0.00003D0,0.001765D0, + &0.998205D0,35*0D0,1D0,6*0D0,0.1783D0,0.1735D0,0.1131D0,0.2494D0, + &0.003D0,0.09D0,0.0027D0,0.01D0,0.0014D0,0.0012D0,2*0.00025D0, + &0.0071D0,0.012D0,0.0004D0,0.00075D0,0.00006D0,2*0.00078D0, + &0.0034D0,0.08D0,0.011D0,0.0191D0,0.00006D0,0.005D0,0.0133D0, + &0.0067D0,0.0005D0,0.0035D0,0.0006D0,0.0015D0,0.00021D0,0.0002D0, + &0.00075D0,0.0001D0,0.0002D0,0.0011D0,3*0.0002D0,0.00022D0, + &0.0004D0,0.0001D0,2*0.00205D0,2*0.00069D0,0.00025D0,0.00051D0, + &0.00025D0,35*0D0,0.154075D0,0.119483D0,0.154072D0,0.119346D0, + &0.152196D0,3*0D0,0.033549D0,0.066752D0,0.033549D0,0.066752D0, + &0.033473D0,0.066752D0,2*0D0,0.321502D0,0.016502D0,2*0D0, + &0.016509D0,0.320778D0,2*0D0,0.00001D0,0.000591D0,6*0D0, + &2*0.108062D0,0.107983D0,0D0,0.000001D0,0D0,0.000327D0,0.053489D0, + &0.852249D0,4*0D0,0.000244D0,0.06883D0,0D0,0.023981D0,0.000879D0, + &65*0D0,0.145869D0,0.113303D0,0.145869D0,0.113298D0,0.14581D0, + &0.049013D0,2*0D0,0.032007D0,0.063606D0,0.032007D0,0.063606D0, + &0.032004D0,0.063606D0,8*0D0,0.251276D0,0.012903D0,0.000006D0,0D0, + &0.012903D0,0.250816D0,0.00038D0,0D0,0.000008D0,0.000465D0, + &0.215459D0,5*0D0,2*0.085262D0,0.08526D0,7*0D0,0.000046D0, + &0.000754D0,5*0D0,0.000074D0,0D0,0.000439D0,0.000015D0,0.000061D0/ + DATA (BRAT(I) ,I= 349, 642)/0.306171D0,0.68864D0,0D0,0.003799D0, + &66*0D0,0.000079D0,0.001292D0,5*0D0,0.000126D0,0D0,0.002256D0, + &0.00001D0,0.000002D0,2*0D0,0.996233D0,63*0D0,0.000013D0, + &0.067484D0,2*0D0,0.00001D0,0.002701D0,0D0,0.929792D0,18*0D0, + &0.452899D0,0D0,0.547101D0,1D0,2*0.215134D0,0.215133D0,0.214738D0, + &2*0D0,2*0.06993D0,0D0,0.000225D0,0.036777D0,0.596654D0,2*0D0, + &0.000177D0,0.050055D0,0.316112D0,0.041762D0,0.90916D0,2*0D0, + &0.000173D0,0.048905D0,0.000328D0,0.053776D0,0.872444D0,2*0D0, + &0.000259D0,0.073192D0,0D0,0.153373D0,2*0.342801D0,0D0,0.086867D0, + &0.03128D0,0.001598D0,0.000768D0,0.004789D0,0.006911D0,0.004789D0, + &0.006911D0,0.004789D0,3*0D0,0.003077D0,0.00103D0,0.003077D0, + &0.00103D0,0.003077D0,0.00103D0,2*0D0,0.138845D0,0.474102D0, + &0.176299D0,0D0,0.109767D0,0.008161D0,0.028584D0,0.001468D0,2*0D0, + &0.001468D0,0.02853D0,0.000007D0,0D0,0.000001D0,0.000053D0, + &0.003735D0,5*0D0,2*0.009661D0,0.00966D0,0D0,0.163019D0, + &0.004003D0,0.45294D0,0.008334D0,2*0.038042D0,0.001999D0,0D0, + &0.017733D0,0.045908D0,0.017733D0,0.045908D0,0.017733D0,3*0D0, + &0.038354D0,0.011181D0,0.038354D0,0.011181D0,0.038354D0, + &0.011181D0,2*0D0,0.090264D0,2*0.001805D0,0.090264D0,0.001805D0, + &0.81225D0,0.001806D0,0.090428D0,0.001809D0,0.001808D0,0.090428D0/ + DATA (BRAT(I) ,I= 643, 803)/0.001808D0,0.81372D0,0D0,0.325914D0, + &0.016735D0,0.000009D0,0.016736D0,0.32532D0,0.000554D0,0.00001D0, + &0.000603D0,0.314118D0,3*0D0,1D0,2*0.08D0,0.76D0,0.08D0,2*0.105D0, + &0.04D0,0.5D0,0.08D0,0.14D0,0.01D0,0.015D0,0.005D0,0.988D0, + &0.012D0,0.998739D0,0.00079D0,0.00038D0,0.000046D0,0.000045D0, + &2*0.34725D0,0.144D0,0.104D0,0.0245D0,2*0.01225D0,0.0028D0, + &0.0057D0,0.2112D0,0.1256D0,2*0.1939D0,2*0.1359D0,0.002D0,0.001D0, + &0.0006D0,0.999877D0,0.000123D0,0.99955D0,0.00045D0,2*0.34725D0, + &0.144D0,0.104D0,0.049D0,0.0028D0,0.0057D0,0.3923D0,0.321D0, + &0.2317D0,0.0478D0,0.0049D0,0.0013D0,0.0003D0,0.0007D0,0.89D0, + &0.08693D0,0.0221D0,0.00083D0,2*0.00007D0,0.564D0,0.282D0,0.072D0, + &0.028D0,0.023D0,2*0.0115D0,0.005D0,0.003D0,0.6861D0,0.3139D0, + &2*0.5D0,0.665D0,0.333D0,0.002D0,0.333D0,0.166D0,0.168D0,0.084D0, + &0.087D0,0.043D0,0.059D0,2*0.029D0,0.002D0,0.6352D0,0.2116D0, + &0.0559D0,0.0173D0,0.0482D0,0.0318D0,0.666D0,0.333D0,0.001D0, + &0.332D0,0.166D0,0.168D0,0.084D0,0.086D0,0.043D0,0.059D0, + &2*0.029D0,2*0.002D0,0.437D0,0.208D0,0.302D0,0.0302D0,0.0212D0, + &0.0016D0,0.48947D0,0.34D0,3*0.043D0,0.027D0,0.0126D0,0.0013D0, + &0.0003D0,0.00025D0,0.00008D0,0.444D0,2*0.222D0,0.104D0,2*0.004D0, + &0.07D0,0.065D0,2*0.005D0,2*0.011D0,5*0.001D0,0.07D0,0.065D0/ + DATA (BRAT(I) ,I= 804, 977)/2*0.005D0,2*0.011D0,5*0.001D0, + &0.026D0,0.019D0,0.066D0,0.041D0,0.045D0,0.076D0,0.0073D0, + &2*0.0047D0,0.026D0,0.001D0,0.0006D0,0.0066D0,0.005D0,2*0.003D0, + &2*0.0006D0,2*0.001D0,0.006D0,0.005D0,0.012D0,0.0057D0,0.067D0, + &0.008D0,0.0022D0,0.027D0,0.004D0,0.019D0,0.012D0,0.002D0,0.009D0, + &0.0218D0,0.001D0,0.022D0,0.087D0,0.001D0,0.0019D0,0.0015D0, + &0.0028D0,0.683D0,0.306D0,0.011D0,0.3D0,0.15D0,0.16D0,0.08D0, + &0.13D0,0.06D0,0.08D0,0.04D0,0.034D0,0.027D0,2*0.002D0,2*0.004D0, + &2*0.002D0,0.034D0,0.027D0,2*0.002D0,2*0.004D0,2*0.002D0,0.0365D0, + &0.045D0,0.073D0,0.062D0,3*0.021D0,0.0061D0,0.015D0,0.025D0, + &0.0088D0,0.074D0,0.0109D0,0.0041D0,0.002D0,0.0035D0,0.0011D0, + &0.001D0,0.0027D0,2*0.0016D0,0.0018D0,0.011D0,0.0063D0,0.0052D0, + &0.018D0,0.016D0,0.0034D0,0.0036D0,0.0009D0,0.0006D0,0.015D0, + &0.0923D0,0.018D0,0.022D0,0.0077D0,0.009D0,0.0075D0,0.024D0, + &0.0085D0,0.067D0,0.0511D0,0.017D0,0.0004D0,0.0028D0,0.619D0, + &0.381D0,0.3D0,0.15D0,0.16D0,0.08D0,0.13D0,0.06D0,0.08D0,0.04D0, + &0.01D0,2*0.02D0,0.03D0,2*0.005D0,2*0.02D0,0.03D0,2*0.005D0, + &0.015D0,0.037D0,0.028D0,0.079D0,0.095D0,0.052D0,0.0078D0, + &4*0.001D0,0.028D0,0.033D0,0.026D0,0.05D0,0.01D0,4*0.005D0,0.25D0, + &0.0952D0,0.94D0,0.06D0,2*0.4D0,2*0.1D0,1D0,0.0602D0,0.0601D0/ + DATA (BRAT(I) ,I= 978,1136)/0.8797D0,0.135D0,0.865D0,0.02D0, + &0.055D0,2*0.005D0,0.008D0,0.012D0,0.02D0,0.055D0,2*0.005D0, + &0.008D0,0.012D0,0.01D0,0.03D0,0.0035D0,0.011D0,0.0055D0,0.0042D0, + &0.009D0,0.018D0,0.015D0,0.0185D0,0.0135D0,0.025D0,0.0004D0, + &0.0007D0,0.0008D0,0.0014D0,0.0019D0,0.0025D0,0.4291D0,0.08D0, + &0.07D0,0.02D0,0.015D0,0.005D0,1D0,0.3D0,0.15D0,0.16D0,0.08D0, + &0.13D0,0.06D0,0.08D0,0.04D0,0.02D0,0.055D0,2*0.005D0,0.008D0, + &0.012D0,0.02D0,0.055D0,2*0.005D0,0.008D0,0.012D0,0.01D0,0.03D0, + &0.0035D0,0.011D0,0.0055D0,0.0042D0,0.009D0,0.018D0,0.015D0, + &0.0185D0,0.0135D0,0.025D0,0.0004D0,0.0007D0,0.0008D0,0.0014D0, + &0.0019D0,0.0025D0,0.4291D0,0.08D0,0.07D0,0.02D0,0.015D0,0.005D0, + &1D0,0.3D0,0.15D0,0.16D0,0.08D0,0.13D0,0.06D0,0.08D0,0.04D0, + &0.02D0,0.055D0,2*0.005D0,0.008D0,0.012D0,0.02D0,0.055D0, + &2*0.005D0,0.008D0,0.012D0,0.01D0,0.03D0,0.0035D0,0.011D0, + &0.0055D0,0.0042D0,0.009D0,0.018D0,0.015D0,0.0185D0,0.0135D0, + &0.025D0,2*0.0002D0,0.0007D0,2*0.0004D0,0.0014D0,0.001D0,0.0009D0, + &0.0025D0,0.4291D0,0.08D0,0.07D0,0.02D0,0.015D0,0.005D0,1D0, + &2*0.3D0,2*0.2D0,0.047D0,0.122D0,0.006D0,0.012D0,0.035D0,0.012D0, + &0.035D0,0.003D0,0.007D0,0.15D0,0.037D0,0.008D0,0.002D0,0.05D0, + &0.015D0,0.003D0,0.001D0,0.014D0,0.042D0,0.014D0,0.042D0,0.24D0/ + DATA (BRAT(I) ,I=1137,1341)/0.065D0,0.012D0,0.003D0,0.001D0, + &0.002D0,0.001D0,0.002D0,0.014D0,0.003D0,1D0,2*0.3D0,2*0.2D0,1D0, + &0.0252D0,0.0248D0,0.0267D0,0.015D0,0.045D0,0.015D0,0.045D0, + &0.7743D0,0.029D0,0.22D0,0.78D0,1D0,0.331D0,0.663D0,0.006D0, + &0.663D0,0.331D0,0.006D0,1D0,0.999D0,0.001D0,0.88D0,2*0.06D0, + &0.639D0,0.358D0,0.002D0,0.001D0,1D0,0.88D0,2*0.06D0,0.516D0, + &0.483D0,0.001D0,0.88D0,2*0.06D0,0.9988D0,0.0001D0,0.0006D0, + &0.0004D0,0.0001D0,0.667D0,0.333D0,0.9954D0,0.0011D0,0.0035D0, + &0.333D0,0.667D0,0.676D0,0.234D0,0.085D0,0.005D0,2*1D0,0.018D0, + &2*0.005D0,0.003D0,0.002D0,2*0.006D0,0.018D0,2*0.005D0,0.003D0, + &0.002D0,2*0.006D0,0.0066D0,0.025D0,0.016D0,0.0088D0,2*0.005D0, + &0.0058D0,0.005D0,0.0055D0,4*0.004D0,2*0.002D0,2*0.004D0,0.003D0, + &0.002D0,2*0.003D0,3*0.002D0,2*0.001D0,0.002D0,2*0.001D0, + &2*0.002D0,0.0013D0,0.0018D0,5*0.001D0,4*0.003D0,2*0.005D0, + &2*0.002D0,2*0.001D0,2*0.002D0,2*0.001D0,0.2432D0,0.057D0, + &2*0.035D0,0.15D0,2*0.075D0,0.03D0,2*0.015D0,2*0.08D0,0.76D0, + &0.08D0,4*1D0,2*0.08D0,0.76D0,0.08D0,1D0,2*0.5D0,1D0,2*0.5D0, + &2*0.08D0,0.76D0,0.08D0,1D0,2*0.08D0,0.76D0,3*0.08D0,0.76D0, + &3*0.08D0,0.76D0,3*0.08D0,0.76D0,3*0.08D0,0.76D0,3*0.08D0,0.76D0, + &3*0.08D0,0.76D0,0.08D0,2*1D0,2*0.105D0,0.04D0,0.0077D0,0.02D0/ + DATA (BRAT(I) ,I=1342,1522)/0.0235D0,0.0285D0,0.0435D0,0.0011D0, + &0.0022D0,0.0044D0,0.4291D0,0.08D0,0.07D0,0.02D0,0.015D0,0.005D0, + &2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0,0.015D0,0.005D0, + &2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0,0.015D0,0.005D0, + &4*1D0,2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0,0.015D0, + &0.005D0,2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0,0.015D0, + &0.005D0,4*1D0,2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0, + &0.015D0,0.005D0,1D0,2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0, + &0.015D0,0.005D0,2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0, + &0.015D0,0.005D0,2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0, + &0.015D0,0.005D0,2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0, + &0.015D0,0.005D0,2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0, + &0.015D0,0.005D0,2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0, + &0.015D0,0.005D0,2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0, + &0.015D0,0.005D0,2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0, + &0.015D0,0.005D0,2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0, + &0.015D0,0.005D0,2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0, + &0.015D0,0.005D0,2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0, + &0.015D0,0.005D0,2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0, + &0.015D0,0.005D0,2*0.105D0,0.04D0,0.5D0,0.08D0,0.14D0,0.01D0/ + DATA (BRAT(I) ,I=1523,2548)/0.015D0,0.005D0,2*0.105D0,0.04D0, + &0.5D0,0.08D0,0.14D0,0.01D0,0.015D0,0.005D0,2*0.105D0,0.04D0, + &0.5D0,0.08D0,0.14D0,0.01D0,0.015D0,0.005D0,2*0.105D0,0.04D0, + &0.5D0,0.08D0,0.14D0,0.01D0,0.015D0,0.005D0,2*0.105D0,0.04D0, + &0.5D0,0.08D0,0.14D0,0.01D0,0.015D0,0.005D0,2*0.105D0,0.04D0, + &0.5D0,0.08D0,0.14D0,0.01D0,0.015D0,0.005D0,4*1D0,0.52D0,0.26D0, + &0.11D0,2*0.055D0,0.333D0,0.334D0,0.333D0,0.667D0,0.333D0,0.28D0, + &0.14D0,0.313D0,0.157D0,0.11D0,0.667D0,0.333D0,0.28D0,0.14D0, + &0.313D0,0.157D0,0.11D0,0.36D0,0.18D0,0.03D0,2*0.015D0,2*0.2D0, + &4*0.25D0,0.667D0,0.333D0,0.667D0,0.333D0,0.667D0,0.333D0,0.667D0, + &0.333D0,4*0.5D0,0.007D0,0.993D0,1D0,0.667D0,0.333D0,0.667D0, + &0.333D0,0.667D0,0.333D0,0.667D0,0.333D0,8*0.5D0,0.02D0,0.98D0, + &1D0,4*0.5D0,3*0.146D0,3*0.05D0,0.15D0,2*0.05D0,4*0.024D0,0.066D0, + &0.667D0,0.333D0,0.667D0,0.333D0,4*0.25D0,0.667D0,0.333D0,0.667D0, + &0.333D0,2*0.5D0,0.273D0,0.727D0,0.667D0,0.333D0,0.667D0,0.333D0, + &4*0.5D0,0.35D0,0.65D0,2*0.0083D0,0.1866D0,0.324D0,0.184D0, + &0.027D0,0.001D0,0.093D0,0.087D0,0.078D0,0.0028D0,3*0.014D0, + &0.008D0,0.024D0,0.008D0,0.024D0,0.425D0,0.02D0,0.185D0,0.088D0, + &0.043D0,0.067D0,0.066D0,831*0D0,0.85422D0,0.005292D0,0.044039D0, + &0.096449D0,0.853165D0,0.021144D0,0.029361D0,0.096329D0/ + DATA (BRAT(I) ,I=2549,4000)/0.294414D0,0.109437D0,0.596149D0, + &0.389861D0,0.610139D0,1447*0D0/ + DATA (KFDP(I,1),I= 1, 374)/21,22,23,4*-24,25,21,22,23,4*24,25, + &21,22,23,4*-24,25,21,22,23,4*24,25,21,22,23,4*-24,25,21,22,23, + &4*24,25,37,1000022,1000023,1000025,1000035,1000021,1000039,21,22, + &23,4*-24,25,2*-37,21,22,23,4*24,25,2*37,22,23,-24,25,23,24,-12, + &22,23,-24,25,23,24,-12,-14,48*16,22,23,-24,25,23,24,22,23,-24,25, + &-37,23,24,37,1,2,3,4,5,6,7,8,21,1,2,3,4,5,6,7,8,11,13,15,17,1,2, + &3,4,5,6,7,8,11,12,13,14,15,16,17,18,4*-1,4*-3,4*-5,4*-7,-11,-13, + &-15,-17,1,2,3,4,5,6,7,8,11,13,15,17,21,2*22,23,24,1000022, + &2*1000023,3*1000025,4*1000035,2*1000024,2*1000037,1000001, + &2000001,1000001,-1000001,1000002,2000002,1000002,-1000002, + &1000003,2000003,1000003,-1000003,1000004,2000004,1000004, + &-1000004,1000005,2000005,1000005,-1000005,1000006,2000006, + &1000006,-1000006,1000011,2000011,1000011,-1000011,1000012, + &2000012,1000012,-1000012,1000013,2000013,1000013,-1000013, + &1000014,2000014,1000014,-1000014,1000015,2000015,1000015, + &-1000015,1000016,2000016,1000016,-1000016,1,2,3,4,5,6,7,8,11,12, + &13,14,15,16,17,18,24,37,2*23,25,35,4*-1,4*-3,4*-5,4*-7,-11,-13, + &-15,-17,3*24,1,2,3,4,5,6,7,8,11,13,15,17,21,2*22,23,24,23,25,36, + &1000022,2*1000023,3*1000025,4*1000035,2*1000024,2*1000037, + &1000001,2000001,1000001,-1000001,1000002,2000002,1000002/ + DATA (KFDP(I,1),I= 375, 587)/-1000002,1000003,2000003,1000003, + &-1000003,1000004,2000004,1000004,-1000004,1000005,2000005, + &1000005,-1000005,1000006,2000006,1000006,-1000006,1000011, + &2000011,1000011,-1000011,1000012,2000012,1000012,-1000012, + &1000013,2000013,1000013,-1000013,1000014,2000014,1000014, + &-1000014,1000015,2000015,1000015,-1000015,1000016,2000016, + &1000016,-1000016,1,2,3,4,5,6,7,8,11,13,15,17,21,2*22,23,24,23, + &1000022,2*1000023,3*1000025,4*1000035,2*1000024,2*1000037, + &1000001,2000001,1000001,-1000001,1000002,2000002,1000002, + &-1000002,1000003,2000003,1000003,-1000003,1000004,2000004, + &1000004,-1000004,1000005,2000005,1000005,-1000005,1000006, + &2000006,1000006,-1000006,1000011,2000011,1000011,-1000011, + &1000012,2000012,1000012,-1000012,1000013,2000013,1000013, + &-1000013,1000014,2000014,1000014,-1000014,1000015,2000015, + &1000015,-1000015,1000016,2000016,1000016,-1000016,-1,-3,-5,-7, + &-11,-13,-15,-17,24,2*1000022,2*1000023,2*1000025,2*1000035, + &1000006,2000006,1000006,2000006,-1000001,-1000003,-1000011, + &-1000013,-1000015,-2000015,5,6,21,2,1,2,3,4,5,6,11,13,15,3,4,5,6, + &11,13,15,21,2*4,24,-11,-13,-15,3,4,5,6,11,13,15,21,2*24,2*52, + &2*22,2*23,1,2,3,4,5,6,7,8,11,12,13,14,15,16,17,18,2*24,3*52,24/ + DATA (KFDP(I,1),I= 588, 979)/4*-1,4*-3,4*-5,4*-7,-11,-13,-15,-17, + &22,23,22,23,24,52,24,52,1,2,3,4,5,6,7,8,11,12,13,14,15,16,17,18, + &3*-11,2*-13,-15,24,3*-11,2*-13,-15,63,3*-1,3*-3,3*-5,-11,-13,-15, + &82,-11,-13,2*2,-12,-14,-16,2*-2,2*-4,-2,-4,2*22,211,111,221,13, + &11,213,-213,221,223,321,130,310,111,331,111,211,-12,12,-14,14, + &211,111,22,-13,-11,2*211,213,113,221,223,321,211,331,22,111,211, + &2*22,211,22,111,211,22,211,221,111,11,211,111,2*211,321,130,310, + &221,111,211,111,130,310,321,2*311,321,311,323,313,323,313,321, + &3*311,-13,3*211,12,14,311,2*321,311,321,313,323,313,323,311, + &4*321,211,111,3*22,111,321,130,-213,113,213,211,22,111,11,13,211, + &321,130,310,221,211,111,11*-11,11*-13,-311,-313,-311,-313,-20313, + &2*-311,-313,-311,-313,2*111,2*221,2*331,2*113,2*223,2*333,-311, + &-313,2*-321,211,-311,-321,333,-311,-313,-321,211,2*-321,2*-311, + &-321,211,113,421,2*411,421,411,423,413,423,413,421,411,8*-11, + &8*-13,-321,-323,-321,-323,-311,2*-313,-311,-313,2*-311,-321, + &-10323,-321,-323,-321,-311,2*-313,211,111,333,3*-321,-311,-313, + &-321,-313,310,333,211,2*-321,-311,-313,-311,211,-321,3*-311,211, + &113,321,2*421,411,421,413,423,413,423,411,421,-15,5*-11,5*-13, + &221,331,333,221,331,333,10221,211,213,211,213,321,323,321,323, + &2212,221,331,333,221,2*2,2*431,421,411,423,413,82,11,13,82,443/ + DATA (KFDP(I,1),I= 980,1419)/82,6*12,6*14,2*16,3*-411,3*-413, + &2*-411,2*-413,2*441,2*443,2*20443,2*2,2*4,2,4,511,521,511,523, + &513,523,513,521,511,6*12,6*14,2*16,3*-421,3*-423,2*-421,2*-423, + &2*441,2*443,2*20443,2*2,2*4,2,4,521,511,521,513,523,513,523,511, + &521,6*12,6*14,2*16,3*-431,3*-433,2*-431,2*-433,3*441,3*443, + &3*20443,2*2,2*4,2,4,531,521,511,523,513,16,2*4,2*12,2*14,2*16, + &4*2,4*4,2*-11,2*-13,2*-1,2*-3,2*-11,2*-13,2*-1,541,511,521,513, + &523,21,11,13,15,1,2,3,4,21,22,553,21,2112,2212,2*2112,2212,2112, + &2*2212,2112,-12,3122,3212,3112,2212,2*2112,-12,2*3122,3222,3112, + &2212,2112,2212,3122,3222,3212,3122,3112,-12,-14,-12,3322,3312, + &2*3122,3212,3322,3312,3122,3322,3312,-12,2*4122,7*-11,7*-13, + &2*2224,2*2212,2*2214,2*3122,2*3212,2*3214,5*3222,4*3224,2*3322, + &3324,2*2224,7*2212,5*2214,2*2112,2*2114,2*3122,2*3212,2*3214, + &2*3222,2*3224,4*2,3,2*2,1,2*2,-11,-13,2*2,4*4122,-11,-13,2*2, + &3*4132,3*4232,-11,-13,2*2,4332,-11,-13,2*2,-11,-13,2*2,-11,-13, + &2*2,-11,-13,2*2,-11,-13,2*2,-11,-13,2*2,-11,-13,2*2,2*5122,-12, + &-14,-16,5*4122,441,443,20443,2*-2,2*-4,-2,-4,-12,-14,-16,2*-2, + &2*-4,-2,-4,-12,-14,-16,2*-2,2*-4,-2,-4,4*5122,-12,-14,-16,2*-2, + &2*-4,-2,-4,-12,-14,-16,2*-2,2*-4,-2,-4,2*5132,2*5232,-12,-14,-16, + &2*-2,2*-4,-2,-4,5332,-12,-14,-16,2*-2,2*-4,-2,-4,-12,-14,-16/ + DATA (KFDP(I,1),I=1420,1739)/2*-2,2*-4,-2,-4,-12,-14,-16,2*-2, + &2*-4,-2,-4,-12,-14,-16,2*-2,2*-4,-2,-4,-12,-14,-16,2*-2,2*-4,-2, + &-4,-12,-14,-16,2*-2,2*-4,-2,-4,-12,-14,-16,2*-2,2*-4,-2,-4,-12, + &-14,-16,2*-2,2*-4,-2,-4,-12,-14,-16,2*-2,2*-4,-2,-4,-12,-14,-16, + &2*-2,2*-4,-2,-4,-12,-14,-16,2*-2,2*-4,-2,-4,-12,-14,-16,2*-2, + &2*-4,-2,-4,-12,-14,-16,2*-2,2*-4,-2,-4,-12,-14,-16,2*-2,2*-4,-2, + &-4,-12,-14,-16,2*-2,2*-4,-2,-4,-12,-14,-16,2*-2,2*-4,-2,-4,-12, + &-14,-16,2*-2,2*-4,-2,-4,-12,-14,-16,2*-2,2*-4,-2,-4,221,223,221, + &223,211,111,321,130,310,213,113,-213,321,311,321,311,323,313, + &2*311,321,311,321,313,323,321,211,111,321,130,310,2*211,313,-313, + &323,-323,421,411,423,413,411,421,413,423,411,421,423,413,443, + &2*82,521,511,523,513,511,521,513,523,521,511,523,513,511,521,513, + &523,553,2*21,213,-213,113,213,10211,10111,-10211,2*221,213,2*113, + &-213,2*321,2*311,113,323,2*313,323,313,-313,323,-323,423,2*413, + &2*423,413,443,82,523,2*513,2*523,2*513,523,553,21,11,13,82,4*443, + &10441,20443,445,441,11,13,15,1,2,3,4,21,22,2*553,10551,20553,555, + &1000039,-1000024,-1000037,1000022,1000023,1000025,1000035, + &1000002,2000002,1000002,2000002,1000021,1000039,1000024,1000037, + &1000022,1000023,1000025,1000035,1000001,2000001,1000001,2000001, + &1000021,1000039,-1000024,-1000037,1000022,1000023,1000025/ + DATA (KFDP(I,1),I=1740,1907)/1000035,1000004,2000004,1000004, + &2000004,1000021,1000039,1000024,1000037,1000022,1000023,1000025, + &1000035,1000003,2000003,1000003,2000003,1000021,1000039,-1000024, + &-1000037,1000022,1000023,1000025,1000035,1000006,2000006,1000006, + &2000006,1000021,1000039,1000024,1000037,1000022,1000023,1000025, + &1000035,1000005,2000005,1000005,2000005,1000021,1000022,1000016, + &-1000015,1000039,-1000024,-1000037,1000022,1000023,1000025, + &1000035,1000012,2000012,1000012,2000012,1000039,1000024,1000037, + &1000022,1000023,1000025,1000035,1000011,2000011,1000011,2000011, + &1000039,-1000024,-1000037,1000022,1000023,1000025,1000035, + &1000014,2000014,1000014,2000014,1000039,1000024,1000037,1000022, + &1000023,1000025,1000035,1000013,2000013,1000013,2000013,1000039, + &-1000024,-1000037,1000022,1000023,1000025,1000035,1000016, + &2000016,1000016,2000016,1000039,1000024,1000037,1000022,1000023, + &1000025,1000035,1000015,2000015,1000015,2000015,1000039,1000001, + &-1000001,2000001,-2000001,1000002,-1000002,2000002,-2000002, + &1000003,-1000003,2000003,-2000003,1000004,-1000004,2000004, + &-2000004,1000005,-1000005,2000005,-2000005,1000006,-1000006, + &2000006,-2000006,6*1000022,6*1000023,6*1000025,6*1000035,1000024, + &-1000024,1000024,-1000024,1000024,-1000024,1000037,-1000037/ + DATA (KFDP(I,1),I=1908,2126)/1000037,-1000037,1000037,-1000037, + &5*1000039,4,1,5*1000039,16*1000022,1000024,-1000024,1000024, + &-1000024,1000024,-1000024,1000024,-1000024,1000024,-1000024, + &1000024,-1000024,1000037,-1000037,1000037,-1000037,1000037, + &-1000037,1000037,-1000037,1000037,-1000037,1000037,-1000037, + &1000024,-1000024,1000037,-1000037,1000001,-1000001,2000001, + &-2000001,1000002,-1000002,2000002,-2000002,1000003,-1000003, + &2000003,-2000003,1000004,-1000004,2000004,-2000004,1000005, + &-1000005,2000005,-2000005,1000006,-1000006,2000006,-2000006, + &1000011,-1000011,2000011,-2000011,1000012,-1000012,2000012, + &-2000012,1000013,-1000013,2000013,-2000013,1000014,-1000014, + &2000014,-2000014,1000015,-1000015,2000015,-2000015,1000016, + &-1000016,2000016,-2000016,5*1000021,2*1000039,6*1000022, + &6*1000023,6*1000025,6*1000035,1000022,1000023,1000025,1000035, + &1000002,2000002,-1000001,-2000001,1000004,2000004,-1000003, + &-2000003,1000006,2000006,-1000005,-2000005,1000012,2000012, + &-1000011,-2000011,1000014,2000014,-1000013,-2000013,1000016, + &2000016,-1000015,-2000015,2*1000021,5*1000039,16*1000022, + &16*1000023,1000024,-1000024,1000024,-1000024,1000024,-1000024, + &1000024,-1000024,1000024,-1000024,1000024,-1000024,1000037/ + DATA (KFDP(I,1),I=2127,2315)/-1000037,1000037,-1000037,1000037, + &-1000037,1000037,-1000037,1000037,-1000037,1000037,-1000037, + &1000024,-1000024,1000037,-1000037,1000001,-1000001,2000001, + &-2000001,1000002,-1000002,2000002,-2000002,1000003,-1000003, + &2000003,-2000003,1000004,-1000004,2000004,-2000004,1000005, + &-1000005,2000005,-2000005,1000006,-1000006,2000006,-2000006, + &1000011,-1000011,2000011,-2000011,1000012,-1000012,2000012, + &-2000012,1000013,-1000013,2000013,-2000013,1000014,-1000014, + &2000014,-2000014,1000015,-1000015,2000015,-2000015,1000016, + &-1000016,2000016,-2000016,5*1000021,5*1000039,16*1000022, + &16*1000023,16*1000025,1000024,-1000024,1000024,-1000024,1000024, + &-1000024,1000024,-1000024,1000024,-1000024,1000024,-1000024, + &1000037,-1000037,1000037,-1000037,1000037,-1000037,1000037, + &-1000037,1000037,-1000037,1000037,-1000037,1000024,-1000024, + &1000037,-1000037,1000001,-1000001,2000001,-2000001,1000002, + &-1000002,2000002,-2000002,1000003,-1000003,2000003,-2000003, + &1000004,-1000004,2000004,-2000004,1000005,-1000005,2000005, + &-2000005,1000006,-1000006,2000006,-2000006,1000011,-1000011, + &2000011,-2000011,1000012,-1000012,2000012,-2000012,1000013, + &-1000013,2000013,-2000013,1000014,-1000014,2000014,-2000014/ + DATA (KFDP(I,1),I=2316,2516)/1000015,-1000015,2000015,-2000015, + &1000016,-1000016,2000016,-2000016,5*1000021,2*1000039,15*1000024, + &6*1000022,6*1000023,6*1000025,6*1000035,1000022,1000023,1000025, + &1000035,1000002,2000002,-1000001,-2000001,1000004,2000004, + &-1000003,-2000003,1000006,2000006,-1000005,-2000005,1000012, + &2000012,-1000011,-2000011,1000014,2000014,-1000013,-2000013, + &1000016,2000016,-1000015,-2000015,2*1000021,1000039,-1000024, + &-1000037,1000022,1000023,1000025,1000035,4*1000001,1000002, + &2000002,1000002,2000002,1000021,1000039,1000024,1000037,1000022, + &1000023,1000025,1000035,4*1000002,1000001,2000001,1000001, + &2000001,1000021,1000039,-1000024,-1000037,1000022,1000023, + &1000025,1000035,4*1000003,1000004,2000004,1000004,2000004, + &1000021,1000039,1000024,1000037,1000022,1000023,1000025,1000035, + &4*1000004,1000003,2000003,1000003,2000003,1000021,1000039, + &-1000024,-1000037,1000022,1000023,1000025,1000035,4*1000005, + &1000006,2000006,1000006,2000006,1000021,1000039,1000024,1000037, + &1000022,1000023,1000025,1000035,4*1000006,1000005,2000005, + &1000005,2000005,1000021,1000039,-1000024,-1000037,1000022, + &1000023,1000025,1000035,4*1000011,1000012,2000012,1000012, + &2000012,1000039,-1000024,-1000037,1000022,1000023,1000025/ + DATA (KFDP(I,1),I=2517,4000)/1000035,4*1000013,1000014,2000014, + &1000014,2000014,1000039,-1000024,-1000037,1000022,1000023, + &1000025,1000035,4*1000015,1000016,2000016,1000016,2000016,21,22, + &23,-24,21,22,23,24,22,23,-24,23,24,1447*0/ + DATA (KFDP(I,2),I= 1, 339)/3*1,2,4,6,8,1,3*2,1,3,5,7,2,3*3,2,4, + &6,8,3,3*4,1,3,5,7,4,3*5,2,4,6,8,5,3*6,1,3,5,7,6,5,6*1000006,3*7, + &2,4,6,8,7,4,6,3*8,1,3,5,7,8,5,7,2*11,12,11,12,2*11,2*13,14,13,14, + &13,11,13,-211,-213,-211,-213,-211,-213,-211,-213,2*-211,-321, + &-323,-321,2*-323,3*-321,4*-211,-213,-211,-213,-211,-213,-211, + &-213,-211,-213,3*-211,-213,4*-211,-323,-321,2*-211,2*-321,3*-211, + &2*15,16,15,16,15,2*17,18,17,2*18,2*17,-1,-2,-3,-4,-5,-6,-7,-8,21, + &-1,-2,-3,-4,-5,-6,-7,-8,-11,-13,-15,-17,-1,-2,-3,-4,-5,-6,-7,-8, + &-11,-12,-13,-14,-15,-16,-17,-18,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8, + &12,14,16,18,-1,-2,-3,-4,-5,-6,-7,-8,-11,-13,-15,-17,21,22,2*23, + &-24,2*1000022,1000023,1000022,1000023,1000025,1000022,1000023, + &1000025,1000035,-1000024,-1000037,-1000024,-1000037,-1000001, + &2*-2000001,2000001,-1000002,2*-2000002,2000002,-1000003, + &2*-2000003,2000003,-1000004,2*-2000004,2000004,-1000005, + &2*-2000005,2000005,-1000006,2*-2000006,2000006,-1000011, + &2*-2000011,2000011,-1000012,2*-2000012,2000012,-1000013, + &2*-2000013,2000013,-1000014,2*-2000014,2000014,-1000015, + &2*-2000015,2000015,-1000016,2*-2000016,2000016,-1,-2,-3,-4,-5,-6, + &-7,-8,-11,-12,-13,-14,-15,-16,-17,-18,-24,-37,22,25,2*36,2,4,6,8, + &2,4,6,8,2,4,6,8,2,4,6,8,12,14,16,18,23,22,25,-1,-2,-3,-4,-5,-6/ + DATA (KFDP(I,2),I= 340, 526)/-7,-8,-11,-13,-15,-17,21,22,2*23, + &-24,2*25,36,2*1000022,1000023,1000022,1000023,1000025,1000022, + &1000023,1000025,1000035,-1000024,-1000037,-1000024,-1000037, + &-1000001,2*-2000001,2000001,-1000002,2*-2000002,2000002,-1000003, + &2*-2000003,2000003,-1000004,2*-2000004,2000004,-1000005, + &2*-2000005,2000005,-1000006,2*-2000006,2000006,-1000011, + &2*-2000011,2000011,-1000012,2*-2000012,2000012,-1000013, + &2*-2000013,2000013,-1000014,2*-2000014,2000014,-1000015, + &2*-2000015,2000015,-1000016,2*-2000016,2000016,-1,-2,-3,-4,-5,-6, + &-7,-8,-11,-13,-15,-17,21,22,2*23,-24,25,2*1000022,1000023, + &1000022,1000023,1000025,1000022,1000023,1000025,1000035,-1000024, + &-1000037,-1000024,-1000037,-1000001,2*-2000001,2000001,-1000002, + &2*-2000002,2000002,-1000003,2*-2000003,2000003,-1000004, + &2*-2000004,2000004,-1000005,2*-2000005,2000005,-1000006, + &2*-2000006,2000006,-1000011,2*-2000011,2000011,-1000012, + &2*-2000012,2000012,-1000013,2*-2000013,2000013,-1000014, + &2*-2000014,2000014,-1000015,2*-2000015,2000015,-1000016, + &2*-2000016,2000016,2,4,6,8,12,14,16,18,25,1000024,1000037, + &1000024,1000037,1000024,1000037,1000024,1000037,2*-1000005, + &2*-2000005,1000002,1000004,1000012,1000014,2*1000016,-5,-6,21,11/ + DATA (KFDP(I,2),I= 527, 931)/-3,-4,-5,-6,-7,-8,-13,-15,-17,-3,-4, + &-5,-6,-11,-13,-15,21,-3,-5,5,12,14,16,-3,-4,-5,-6,-11,-13,-15,21, + &-24,-52,-24,-52,51,53,51,53,-1,-2,-3,-4,-5,-6,-7,-8,-11,-12,-13, + &-14,-15,-16,-17,-18,23,51,23,51,22,53,2,4,6,8,2,4,6,8,2,4,6,8,2, + &4,6,8,12,14,16,18,2*51,2*53,-52,2*-24,-52,-1,-2,-3,-4,-5,-6,-7, + &-8,-11,-12,-13,-14,-15,-16,-17,-18,-11,-13,-15,-13,2*-15,24,-11, + &-13,-15,-13,2*-15,63,2,4,6,2,4,6,2,4,6,64,65,66,-82,12,14,-1,-3, + &11,13,15,1,4,3,4,1,3,22,11,-211,2*22,-13,-11,-211,211,111,211, + &-321,130,310,22,2*111,-211,11,-11,13,-13,-211,111,22,14,12,111, + &22,111,3*211,-311,22,211,22,111,-211,211,11,-211,13,22,-211,111, + &-211,22,111,-11,-211,111,2*-211,-321,130,310,221,111,-211,111, + &2*0,-211,111,22,-211,111,-211,111,-211,211,-213,113,223,221,14, + &111,211,111,-11,-13,211,111,22,211,111,211,111,2*211,213,113,223, + &221,22,-211,111,113,223,22,111,-321,310,211,111,2*-211,221,22, + &-11,-13,-211,-321,130,310,221,-211,111,11*12,11*14,2*211,2*213, + &211,20213,2*321,2*323,211,213,211,213,211,213,211,213,211,213, + &211,213,3*211,213,211,2*321,8*211,2*113,3*211,111,22,211,111,211, + &111,4*211,8*12,8*14,2*211,2*213,2*111,221,2*113,223,333,20213, + &211,2*321,323,2*311,313,-211,111,113,2*211,321,2*211,311,321,310, + &211,-211,4*211,321,4*211,113,2*211,-321,111,22,-211,111,-211,111/ + DATA (KFDP(I,2),I= 932,1317)/-211,211,-211,211,16,5*12,5*14, + &3*211,3*213,211,2*111,2*113,2*-311,2*-313,-2112,3*321,323,2*-1, + &22,111,321,311,321,311,-82,-11,-13,-82,22,-82,6*-11,6*-13,2*-15, + &211,213,20213,211,213,20213,431,433,431,433,311,313,311,313,311, + &313,-1,-4,-3,-4,-1,-3,22,-211,111,-211,111,-211,211,-211,211, + &6*-11,6*-13,2*-15,211,213,20213,211,213,20213,431,433,431,433, + &321,323,321,323,321,323,-1,-4,-3,-4,-1,-3,22,211,111,211,111, + &4*211,6*-11,6*-13,2*-15,211,213,20213,211,213,20213,431,433,431, + &433,221,331,333,221,331,333,221,331,333,-1,-4,-3,-4,-1,-3,22, + &-321,-311,-321,-311,-15,-3,-1,2*-11,2*-13,2*-15,-1,-4,-3,-4,-3, + &-4,-1,-4,2*12,2*14,2,3,2,3,2*12,2*14,2,1,22,411,421,411,421,21, + &-11,-13,-15,-1,-2,-3,-4,2*21,22,21,2*-211,111,22,111,211,22,211, + &-211,11,2*-211,111,-211,111,22,11,22,111,-211,211,111,211,22,211, + &111,211,-211,22,11,13,11,-211,2*111,2*22,111,211,-321,-211,111, + &11,2*-211,7*12,7*14,-321,-323,-311,-313,-311,-313,211,213,211, + &213,211,213,111,221,331,113,223,111,221,113,223,321,323,321,-211, + &-213,111,221,331,113,223,333,10221,111,221,331,113,223,211,213, + &211,213,321,323,321,323,321,323,311,313,311,313,2*-1,-3,-1,2203, + &3201,3203,2203,2101,2103,12,14,-1,-3,2*111,2*211,12,14,-1,-3,22, + &111,2*22,111,22,12,14,-1,-3,22,12,14,-1,-3,12,14,-1,-3,12,14,-1/ + DATA (KFDP(I,2),I=1318,1756)/-3,12,14,-1,-3,12,14,-1,-3,12,14,-1, + &-3,12,14,-1,-3,2*-211,11,13,15,-211,-213,-20213,-431,-433,3*3122, + &1,4,3,4,1,3,11,13,15,1,4,3,4,1,3,11,13,15,1,4,3,4,1,3,2*111, + &2*211,11,13,15,1,4,3,4,1,3,11,13,15,1,4,3,4,1,3,4*22,11,13,15,1, + &4,3,4,1,3,22,11,13,15,1,4,3,4,1,3,11,13,15,1,4,3,4,1,3,11,13,15, + &1,4,3,4,1,3,11,13,15,1,4,3,4,1,3,11,13,15,1,4,3,4,1,3,11,13,15,1, + &4,3,4,1,3,11,13,15,1,4,3,4,1,3,11,13,15,1,4,3,4,1,3,11,13,15,1,4, + &3,4,1,3,11,13,15,1,4,3,4,1,3,11,13,15,1,4,3,4,1,3,11,13,15,1,4,3, + &4,1,3,11,13,15,1,4,3,4,1,3,11,13,15,1,4,3,4,1,3,11,13,15,1,4,3,4, + &1,3,11,13,15,1,4,3,4,1,3,11,13,15,1,4,3,4,1,3,11,13,15,1,4,3,4,1, + &3,2*111,2*211,-211,111,-321,130,310,-211,111,211,-211,111,-213, + &113,-211,111,223,211,111,213,113,211,111,223,-211,111,-321,130, + &310,2*-211,-311,311,-321,321,211,111,211,111,-211,111,-211,111, + &311,2*321,311,22,2*-82,-211,111,-211,111,211,111,211,111,-321, + &-311,-321,-311,411,421,411,421,22,2*21,-211,2*211,111,-211,111, + &2*211,111,-211,211,111,211,-321,2*-311,-321,22,-211,111,211,111, + &-311,311,-321,321,211,111,-211,111,321,311,22,-82,-211,111,211, + &111,-321,-311,411,421,22,21,-11,-13,-82,211,111,221,111,4*22,-11, + &-13,-15,-1,-2,-3,-4,2*21,211,111,3*22,1,2*2,4*1,2*-24,2*-37,1,2, + &2*1,4*2,2*24,2*37,2,3,2*4,4*3,2*-24,2*-37,3,4,2*3,4*4,2*24,2*37/ + DATA (KFDP(I,2),I=1757,2220)/4,5,2*6,4*5,2*-24,2*-37,5,6,2*5,4*6, + &2*24,2*37,6,4,-15,16,11,2*12,4*11,2*-24,2*-37,12,2*11,4*12,2*24, + &2*37,13,2*14,4*13,2*-24,2*-37,14,2*13,4*14,2*24,2*37,15,2*16, + &4*15,2*-24,2*-37,16,2*15,4*16,2*24,2*37,21,-1,1,-1,1,-2,2,-2,2, + &-3,3,-3,3,-4,4,-4,4,-5,5,-5,5,-6,6,-6,6,1,3,5,2,4,6,1,3,5,2,4,6, + &1,3,5,2,4,6,1,3,5,2,4,6,1,-1,3,-3,5,-5,1,-1,3,-3,5,-5,22,23,25, + &35,36,-1,-3,22,23,25,35,36,22,23,11,13,15,12,14,16,1,3,5,2,4,25, + &35,36,-24,24,11,-11,13,-13,15,-15,1,-1,3,-3,-24,24,11,-11,13,-13, + &15,-15,1,-1,3,-3,-37,37,-37,37,-1,1,-1,1,-2,2,-2,2,-3,3,-3,3,-4, + &4,-4,4,-5,5,-5,5,-6,6,-6,6,-11,11,-11,11,-12,12,-12,12,-13,13, + &-13,13,-14,14,-14,14,-15,15,-15,15,-16,16,-16,16,1,3,5,2,4,24,37, + &24,-11,-13,-15,-1,-3,24,-11,-13,-15,-1,-3,24,-11,-13,-15,-1,-3, + &24,-11,-13,-15,-1,-3,4*37,2*-1,2*2,2*-3,2*4,2*-5,2*6,2*-11,2*12, + &2*-13,2*14,2*-15,2*16,-1,-3,22,23,25,35,36,22,23,11,13,15,12,14, + &16,1,3,5,2,4,25,35,36,22,23,11,13,15,12,14,16,1,3,5,2,4,25,35,36, + &-24,24,11,-11,13,-13,15,-15,1,-1,3,-3,-24,24,11,-11,13,-13,15, + &-15,1,-1,3,-3,-37,37,-37,37,-1,1,-1,1,-2,2,-2,2,-3,3,-3,3,-4,4, + &-4,4,-5,5,-5,5,-6,6,-6,6,-11,11,-11,11,-12,12,-12,12,-13,13,-13, + &13,-14,14,-14,14,-15,15,-15,15,-16,16,-16,16,1,3,5,2,4,22,23,25, + &35,36,22,23,11,13,15,12,14,16,1,3,5,2,4,25,35,36,22,23,11,13,15/ + DATA (KFDP(I,2),I=2221,4000)/12,14,16,1,3,5,2,4,25,35,36,22,23, + &11,13,15,12,14,16,1,3,5,2,4,25,35,36,-24,24,11,-11,13,-13,15,-15, + &1,-1,3,-3,-24,24,11,-11,13,-13,15,-15,1,-1,3,-3,-37,37,-37,37,-1, + &1,-1,1,-2,2,-2,2,-3,3,-3,3,-4,4,-4,4,-5,5,-5,5,-6,6,-6,6,-11,11, + &-11,11,-12,12,-12,12,-13,13,-13,13,-14,14,-14,14,-15,15,-15,15, + &-16,16,-16,16,1,3,5,2,4,24,37,23,11,13,15,12,14,16,1,3,5,2,4,25, + &35,36,24,-11,-13,-15,-1,-3,24,-11,-13,-15,-1,-3,24,-11,-13,-15, + &-1,-3,24,-11,-13,-15,-1,-3,4*37,2*-1,2*2,2*-3,2*4,2*-5,2*6,2*-11, + &2*12,2*-13,2*14,2*-15,2*16,-1,-3,1,2*2,4*1,23,25,35,36,2*-24, + &2*-37,1,2,2*1,4*2,23,25,35,36,2*24,2*37,2,3,2*4,4*3,23,25,35,36, + &2*-24,2*-37,3,4,2*3,4*4,23,25,35,36,2*24,2*37,4,5,2*6,4*5,23,25, + &35,36,2*-24,2*-37,5,6,2*5,4*6,23,25,35,36,2*24,2*37,6,11,2*12, + &4*11,23,25,35,36,2*-24,2*-37,13,2*14,4*13,23,25,35,36,2*-24, + &2*-37,15,2*16,4*15,23,25,35,36,2*-24,2*-37,3*1,4*2,1,2*11,2*12, + &11,1447*0/ + DATA (KFDP(I,3),I= 1,1134)/81*0,14,6*0,2*16,2*0,6*111,310,130, + &2*0,3*111,310,130,321,113,211,223,221,2*113,2*211,2*223,2*221, + &2*113,221,2*113,2*213,-213,113,2*111,310,130,310,130,2*310,130, + &407*0,-5,112*0,4*3,4*4,1,4,3,2*2,0,-11,8*0,-211,5*0,2*111,211, + &-211,211,-211,10*0,111,4*0,2*111,-211,-11,11,-13,22,111,3*0,22, + &3*0,111,211,4*0,111,11*0,111,-211,6*0,-211,3*111,7*0,111,-211, + &5*0,2*221,3*0,111,5*0,111,11*0,-311,-313,-311,-321,-313,-323,111, + &221,331,113,223,-311,-313,-311,-321,-313,-323,111,221,331,113, + &223,22*0,111,113,2*211,-211,-311,211,111,3*211,-211,7*211,7*0, + &111,-211,111,-211,-321,-323,-311,-321,-313,-323,-211,-213,-321, + &-323,-311,-321,-313,-323,-211,-213,22*0,111,113,-311,2*-211,211, + &-211,310,-211,2*111,211,2*-211,-321,-211,2*211,-211,111,-211, + &2*211,6*0,111,-211,111,-211,0,221,331,333,321,311,221,331,333, + &321,311,20*0,3,13*0,-411,-413,-10413,-10411,-20413,-415,-411, + &-413,-10413,-10411,-20413,-415,-411,-413,16*0,-4,-1,-4,-3,2*-2, + &5*0,111,-211,111,-211,-421,-423,-10423,-10421,-20423,-425,-421, + &-423,-10423,-10421,-20423,-425,-421,-423,16*0,-4,-1,-4,-3,2*-2, + &5*0,111,-211,111,-211,-431,-433,-10433,-10431,-20433,-435,-431, + &-433,-10433,-10431,-20433,-435,-431,-433,19*0,-4,-1,-4,-3,2*-2, + &8*0,441,443,441,443,441,443,-4,-1,-4,-3,-4,-3,-4,-1,531,533,531/ + DATA (KFDP(I,3),I=1135,2233)/533,3,2,3,2,511,513,511,513,1,2, + &13*0,2*21,11*0,2112,6*0,2212,12*0,2*3122,3212,10*0,3322,2*0,3122, + &3212,3214,2112,2114,2212,2112,3122,3212,3214,2112,2114,2212,2112, + &52*0,3*3,1,6*0,4*3,4*0,4*3,6*0,4*3,0,28*3,2*0,3*4122,8*0,4,1,4,3, + &2*2,4*4,1,4,3,2*2,4*4,1,4,3,2*2,4*0,4*4,1,4,3,2*2,4*4,1,4,3,2*2, + &4*0,4*4,1,4,3,2*2,0,4*4,1,4,3,2*2,4*4,1,4,3,2*2,4*4,1,4,3,2*2, + &4*4,1,4,3,2*2,4*4,1,4,3,2*2,4*4,1,4,3,2*2,4*4,1,4,3,2*2,4*4,1,4, + &3,2*2,4*4,1,4,3,2*2,4*4,1,4,3,2*2,4*4,1,4,3,2*2,4*4,1,4,3,2*2, + &4*4,1,4,3,2*2,4*4,1,4,3,2*2,4*4,1,4,3,2*2,4*4,1,4,3,2*2,4*4,1,4, + &3,2*2,4*4,1,4,3,2*2,31*0,211,111,45*0,-211,2*111,-211,3*111,-211, + &111,211,30*0,-211,111,13*0,2*21,-211,111,76*0,2*5,91*0,-1,-3,-5, + &-2,-4,-6,-1,-3,-5,-2,-4,-6,-1,-3,-5,-2,-4,-6,-1,-3,-5,-2,-4,-6, + &-2,2,-4,4,-6,6,-2,2,-4,4,-6,6,5*0,11,12,7*0,-11,-13,-15,-12,-14, + &-16,-1,-3,-5,-2,-4,5*0,-12,12,-14,14,-16,16,-2,2,-4,4,2*0,-12,12, + &-14,14,-16,16,-2,2,-4,4,52*0,-1,-3,-5,-2,-4,3*0,12,14,16,2,4,0, + &12,14,16,2,4,0,12,14,16,2,4,0,12,14,16,2,4,28*0,2,4,7*0,-11,-13, + &-15,-12,-14,-16,-1,-3,-5,-2,-4,5*0,-11,-13,-15,-12,-14,-16,-1,-3, + &-5,-2,-4,5*0,-12,12,-14,14,-16,16,-2,2,-4,4,2*0,-12,12,-14,14, + &-16,16,-2,2,-4,4,52*0,-1,-3,-5,-2,-4,7*0,-11,-13,-15,-12,-14,-16, + &-1,-3,-5,-2,-4,5*0,-11,-13,-15,-12,-14,-16,-1,-3,-5,-2,-4,5*0/ + DATA (KFDP(I,3),I=2234,4000)/-11,-13,-15,-12,-14,-16,-1,-3,-5,-2, + &-4,5*0,-12,12,-14,14,-16,16,-2,2,-4,4,2*0,-12,12,-14,14,-16,16, + &-2,2,-4,4,52*0,-1,-3,-5,-2,-4,3*0,-11,-13,-15,-12,-14,-16,-1,-3, + &-5,-2,-4,4*0,12,14,16,2,4,0,12,14,16,2,4,0,12,14,16,2,4,0,12,14, + &16,2,4,28*0,2,4,1601*0/ + DATA (KFDP(I,4),I= 1,4000)/94*0,4*111,6*0,111,2*0,-211,0,-211, + &3*0,111,2*-211,0,111,0,2*111,113,221,2*111,-213,-211,211,113, + &6*111,310,2*130,520*0,13*81,41*0,-11,10*0,111,-211,4*0,111,62*0, + &111,211,111,211,7*0,111,211,111,211,35*0,2*-211,2*111,211,111, + &-211,2*211,2*-211,13*0,-211,111,-211,111,4*0,-211,111,-211,111, + &34*0,111,-211,3*111,3*-211,2*111,3*-211,14*0,-321,-311,3*0,-321, + &-311,20*0,-3,43*0,6*1,39*0,6*2,42*0,6*3,14*0,8*4,4*0,4*-5,4*0, + &2*-5,67*0,-211,111,5*0,-211,111,52*0,2101,2103,2*2101,6*0,4*81, + &4*0,4*81,6*0,4*81,0,28*81,13*0,6*2101,18*81,4*0,18*81,4*0,9*81,0, + &162*81,31*0,-211,111,2398*0/ + DATA (KFDP(I,5),I= 1,4000)/96*0,2*111,17*0,111,7*0,2*111,0, + &3*111,0,111,715*0,-211,2*111,-211,111,-211,111,65*0,111,-211, + &3*111,-211,111,3075*0/ + +C...PYDAT4, with particle names (character strings). + DATA (CHAF(I,1),I= 1, 185)/'d','u','s','c','b','t','b''','t''', + &2*' ','e-','nu_e','mu-','nu_mu','tau-','nu_tau','tau''-', + &'nu''_tau',2*' ','g','gamma','Z0','W+','h0',2*' ','reggeon', + &'pomeron',2*' ','Z''0','Z"0','W''+','H0','A0','H+','eta_tech0', + &'LQ_ue','R0',10*' ','pi_tech0','pi_tech+','pi''_tech0', + &'rho_tech0','rho_tech+','omega_tech',4*' ','H_L++','H_R++', + &'W_R+','nu_Re','nu_Rmu','nu_Rtau',14*' ','specflav','rndmflav', + &'phasespa','c-hadron','b-hadron',5*' ','cluster','string', + &'indep.','CMshower','SPHEaxis','THRUaxis','CLUSjet','CELLjet', + &'table',' ','rho_diff0','pi0','rho0','a_20','K_L0','pi_diffr+', + &'pi+','rho+','a_2+','omega_di','eta','omega','f_2','K_S0','K0', + &'K*0','K*_20','K+','K*+','K*_2+','phi_diff','eta''','phi', + &'f''_2','D+','D*+','D*_2+','D0','D*0','D*_20','D_s+','D*_s+', + &'D*_2s+','J/psi_di','eta_c','J/psi','chi_2c','B0','B*0','B*_20', + &'B+','B*+','B*_2+','B_s0','B*_s0','B*_2s0','B_c+','B*_c+', + &'B*_2c+','eta_b','Upsilon','chi_2b','dd_1','Delta-','ud_0', + &'ud_1','n_diffr0','n0','Delta0','uu_1','p_diffr+','p+','Delta+', + &'Delta++','sd_0','sd_1','Sigma-','Sigma*-','Lambda0','su_0', + &'su_1','Sigma0','Sigma*0','Sigma+','Sigma*+','ss_1','Xi-','Xi*-', + &'Xi0','Xi*0','Omega-','cd_0','cd_1','Sigma_c0','Sigma*_c0'/ + DATA (CHAF(I,1),I= 186, 315)/'Lambda_c+','Xi_c0','cu_0','cu_1', + &'Sigma_c+','Sigma*_c+','Sigma_c++','Sigma*_c++','Xi_c+','cs_0', + &'cs_1','Xi''_c0','Xi*_c0','Xi''_c+','Xi*_c+','Omega_c0', + &'Omega*_c0','cc_1','Xi_cc+','Xi*_cc+','Xi_cc++','Xi*_cc++', + &'Omega_cc+','Omega*_cc+','Omega*_ccc++','bd_0','bd_1','Sigma_b-', + &'Sigma*_b-','Lambda_b0','Xi_b-','Xi_bc0','bu_0','bu_1', + &'Sigma_b0','Sigma*_b0','Sigma_b+','Sigma*_b+','Xi_b0','Xi_bc+', + &'bs_0','bs_1','Xi''_b-','Xi*_b-','Xi''_b0','Xi*_b0','Omega_b-', + &'Omega*_b-','Omega_bc0','bc_0','bc_1','Xi''_bc0','Xi*_bc0', + &'Xi''_bc+','Xi*_bc+','Omega''_bc0','Omega*_bc0','Omega_bcc+', + &'Omega*_bcc+','bb_1','Xi_bb-','Xi*_bb-','Xi_bb0','Xi*_bb0', + &'Omega_bb-','Omega*_bb-','Omega_bbc0','Omega*_bbc0', + &'Omega*_bbb-','a_00','b_10','a_0+','b_1+','f_0','h_1','K*_00', + &'K_10','K*_0+','K_1+','f''_0','h''_1','D*_0+','D_1+','D*_00', + &'D_10','D*_0s+','D_1s+','chi_0c','h_1c','B*_00','B_10','B*_0+', + &'B_1+','B*_0s0','B_1s0','B*_0c+','B_1c+','chi_0b','h_1b','a_10', + &'a_1+','f_1','K*_10','K*_1+','f''_1','D*_1+','D*_10','D*_1s+', + &'chi_1c','B*_10','B*_1+','B*_1s0','B*_1c+','chi_1b','psi''', + &'Upsilon''','~d_L','~u_L','~s_L','~c_L','~b_1','~t_1','~e_L-', + &'~nu_eL','~mu_L-','~nu_muL','~tau_1-','~nu_tauL','~g','~chi_10'/ + DATA (CHAF(I,1),I= 316, 500)/'~chi_20','~chi_1+','~chi_30', + &'~chi_40','~chi_2+','~gravitino','~d_R','~u_R','~s_R','~c_R', + &'~b_2','~t_2','~e_R-','~nu_eR','~mu_R-','~nu_muR','~tau_2-', + &'~nu_tauR','d*','u*','e*-','nu*_e0',163*' '/ + DATA (CHAF(I,2),I= 1, 198)/'dbar','ubar','sbar','cbar','bbar', + &'tbar','b''bar','t''bar',2*' ','e+','nu_ebar','mu+','nu_mubar', + &'tau+','nu_taubar','tau''+','nu''_taubar',5*' ','W-',9*' ', + &'W''-',2*' ','H-',' ','LQ_uebar','Rbar0',11*' ','pi_tech-',2*' ', + &'rho_tech-',5*' ','H_L--','H_R--','W_R-','nu_Rebar','nu_Rmubar', + &'nu_Rtaubar',15*' ','rndmflavbar',' ','c-hadronbar', + &'b-hadronbar',20*' ','pi_diffr-','pi-','rho-','a_2-',5*' ', + &'Kbar0','K*bar0','K*_2bar0','K-','K*-','K*_2-',4*' ','D-','D*-', + &'D*_2-','Dbar0','D*bar0','D*_2bar0','D_s-','D*_s-','D*_2s-', + &4*' ','Bbar0','B*bar0','B*_2bar0','B-','B*-','B*_2-','B_sbar0', + &'B*_sbar0','B*_2sbar0','B_c-','B*_c-','B*_2c-',3*' ','dd_1bar', + &'Deltabar+','ud_0bar','ud_1bar','n_diffrbar0','nbar0', + &'Deltabar0','uu_1bar','p_diffrbar-','pbar-','Deltabar-', + &'Deltabar--','sd_0bar','sd_1bar','Sigmabar+','Sigma*bar+', + &'Lambdabar0','su_0bar','su_1bar','Sigmabar0','Sigma*bar0', + &'Sigmabar-','Sigma*bar-','ss_1bar','Xibar+','Xi*bar+','Xibar0', + &'Xi*bar0','Omegabar+','cd_0bar','cd_1bar','Sigma_cbar0', + &'Sigma*_cbar0','Lambda_cbar-','Xi_cbar0','cu_0bar','cu_1bar', + &'Sigma_cbar-','Sigma*_cbar-','Sigma_cbar--','Sigma*_cbar--', + &'Xi_cbar-','cs_0bar','cs_1bar','Xi''_cbar0','Xi*_cbar0'/ + DATA (CHAF(I,2),I= 199, 308)/'Xi''_cbar-','Xi*_cbar-', + &'Omega_cbar0','Omega*_cbar0','cc_1bar','Xi_ccbar-','Xi*_ccbar-', + &'Xi_ccbar--','Xi*_ccbar--','Omega_ccbar-','Omega*_ccbar-', + &'Omega*_cccbar-','bd_0bar','bd_1bar','Sigma_bbar+', + &'Sigma*_bbar+','Lambda_bbar0','Xi_bbar+','Xi_bcbar0','bu_0bar', + &'bu_1bar','Sigma_bbar0','Sigma*_bbar0','Sigma_bbar-', + &'Sigma*_bbar-','Xi_bbar0','Xi_bcbar-','bs_0bar','bs_1bar', + &'Xi''_bbar+','Xi*_bbar+','Xi''_bbar0','Xi*_bbar0','Omega_bbar+', + &'Omega*_bbar+','Omega_bcbar0','bc_0bar','bc_1bar','Xi''_bcbar0', + &'Xi*_bcbar0','Xi''_bcbar-','Xi*_bcbar-','Omega''_bcba', + &'Omega*_bcbar0','Omega_bccbar-','Omega*_bccbar-','bb_1bar', + &'Xi_bbbar+','Xi*_bbbar+','Xi_bbbar0','Xi*_bbbar0','Omega_bbbar+', + &'Omega*_bbbar+','Omega_bbcbar0','Omega*_bbcbar0', + &'Omega*_bbbbar+',2*' ','a_0-','b_1-',2*' ','K*_0bar0','K_1bar0', + &'K*_0-','K_1-',2*' ','D*_0-','D_1-','D*_0bar0','D_1bar0', + &'D*_0s-','D_1s-',2*' ','B*_0bar0','B_1bar0','B*_0-','B_1-', + &'B*_0sbar0','B_1sbar0','B*_0c-','B_1c-',3*' ','a_1-',' ', + &'K*_1bar0','K*_1-',' ','D*_1-','D*_1bar0','D*_1s-',' ', + &'B*_1bar0','B*_1-','B*_1sbar0','B*_1c-',3*' ','~d_Lbar', + &'~u_Lbar','~s_Lbar','~c_Lbar','~b_1bar','~t_1bar','~e_L+'/ + DATA (CHAF(I,2),I= 309, 500)/'~nu_eLbar','~mu_L+','~nu_muLbar', + &'~tau_1+','~nu_tauLbar',3*' ','~chi_1-',2*' ','~chi_2-',' ', + &'~d_Rbar','~u_Rbar','~s_Rbar','~c_Rbar','~b_2bar','~t_2bar', + &'~e_R+','~nu_eRbar','~mu_R+','~nu_muRbar','~tau_2+', + &'~nu_tauRbar','d*bar','u*bar','e*bar+','nu*_ebar0',163*' '/ + +C...PYDATR, with initial values for the random number generator. + DATA MRPY/19780503,0,0,97,33,0/ + +C...Default values for allowed processes and kinematics constraints. + DATA MSEL/1/ + DATA MSUB/500*0/ + DATA ((KFIN(I,J),J=-40,40),I=1,2)/16*0,4*1,4*0,6*1,5*0,5*1,0, + &5*1,5*0,6*1,4*0,4*1,16*0,16*0,4*1,4*0,6*1,5*0,5*1,0,5*1,5*0, + &6*1,4*0,4*1,16*0/ + DATA CKIN/ + & 2.0D0, -1.0D0, 0.0D0, -1.0D0, 1.0D0, + & 1.0D0, -10D0, 10D0, -40D0, 40D0, + 1 -40D0, 40D0, -40D0, 40D0, -40D0, + 1 40D0, -1.0D0, 1.0D0, -1.0D0, 1.0D0, + 2 0.0D0, 1.0D0, 0.0D0, 1.0D0, -1.0D0, + 2 1.0D0, -1.0D0, 1.0D0, 0D0, 0D0, + 3 2.0D0, -1.0D0, 0D0, 0D0, 0.0D0, + 3 -1.0D0, 0.0D0, -1.0D0, 4.0D0, -1.0D0, + 4 12.0D0, -1.0D0, 12.0D0, -1.0D0, 12.0D0, + 4 -1.0D0, 12.0D0, -1.0D0, 0D0, 0D0, + 5 0.0D0, -1.0D0, 0.0D0, -1.0D0, 0.0D0, + 5 -1.0D0, 0D0, 0D0, 0D0, 0D0, + 6 0.0001D0, 0.99D0, 0.0001D0, 0.99D0, 0D0, + 6 -1D0, 0D0, -1D0, 0D0, -1D0, + 7 0D0, -1D0, 0.0001D0, 0.99D0, 0.0001D0, + 7 0.99D0, 2D0, -1D0, 0D0, 0D0, + 8 120*0D0/ + +C...Default values for main switches and parameters. Reset information. + DATA (MSTP(I),I=1,100)/ + & 3, 1, 2, 0, 0, 0, 0, 0, 0, 0, + 1 1, 0, 1, 30, 0, 1, 4, 3, 4, 3, + 2 1, 0, 1, 0, 0, 0, 0, 0, 0, 1, + 3 1, 8, 0, 1, 0, 2, 1, 5, 2, 0, + 4 1, 1, 3, 7, 3, 1, 1, 0, 1, 0, + 5 4, 1, 3, 1, 5, 1, 1, 5, 1, 7, + 6 1, 3, 2, 2, 1, 5, 2, 1, 0, 0, + 7 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 8 1, 1, 100, 0, 0, 2, 0, 0, 0, 0, + 9 1, 3, 1, 3, 0, 0, 0, 0, 0, 0/ + DATA (MSTP(I),I=101,200)/ + & 3, 1, 0, 0, 0, 0, 0, 0, 0, 0, + 1 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, + 2 0, 1, 2, 1, 1, 50, 0, 0, 10, 0, + 3 0, 4, 0, 1, 0, 0, 0, 0, 0, 0, + 4 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 5 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 6 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 7 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, + 8 6, 150, 2000, 06, 30, 0, 0, 0, 0, 0, + 9 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ + DATA (PARP(I),I=1,100)/ + & 0.25D0, 10D0, 8*0D0, + 1 0D0, 0D0, 1.0D0, 0.01D0, 0.5D0, 1.0D0, 1.0D0, 0.4D0, 2*0D0, + 2 10*0D0, + 3 1.5D0,2.0D0,0.075D0,1.0D0,0.2D0,0D0,2.0D0,0.70D0,0.006D0,0D0, + 4 0.02D0,2.0D0,0.10D0,1000D0,2054D0, 123D0, 246D0, 50D0, 2*0D0, + 5 10*0D0, + 6 0.25D0, 1.0D0,0.25D0, 1.0D0, 2.0D0,1D-3, 1.0D0,1D-3,2*0D0, + 7 4.0D0, 0.25D0, 8*0D0, + 8 1.90D0, 2.10D0, 0.5D0, 0.2D0, 0.33D0, + 8 0.66D0, 0.7D0, 0.5D0, 1000D0, 0.16D0, + 9 1.0D0,0.40D0,5.0D0,1.0D0,0D0,3.0D0,1.0D0,0.75D0,1.0D0,5.0D0/ + DATA (PARP(I),I=101,200)/ + & 0.5D0, 0.28D0, 1.0D0, 0.8D0, 6*0D0, + 1 2.0D0, 3*0D0, 1.5D0, 0.5D0, 0.6D0, 2.5D0, 2.0D0, 1.0D0, + 2 1.0D0, 0.4D0, 8*0D0, + 3 0.01D0, 8*0D0, 0D0, + 4 0.33333D0, 82D0, 1.33333D0, 4D0, 1D0, + 4 1D0, .0182D0, 1D0, 0D0, 1.33333D0, + 5 0D0, 0D0, 0D0, 0D0, 6*0D0, + 6 2.20D0, 23.6D0, 18.4D0, 11.5D0, 0.5D0, 0D0, 0D0, 0D0, 2*0D0, + 7 0D0, 0D0, 0D0, 1.0D0, 6*0D0, + 8 0.1D0, 0.01D0, 0.01D0, 0.01D0, 0.1D0, 0.01D0, 0.01D0, 0.01D0, + 8 0.3D0, 0.64D0, + 9 0.64D0, 5.0D0, 8*0D0/ + DATA MSTI/200*0/ + DATA PARI/200*0D0/ + DATA MINT/400*0/ + DATA VINT/400*0D0/ + +C...Constants for the generation of the various processes. + DATA (ISET(I),I=1,100)/ + & 1, 1, 1, -1, 3, -1, -1, 3, -2, 2, + 1 2, 2, 2, 2, 2, 2, -1, 2, 2, 2, + 2 -1, 2, 2, 2, 2, 2, -1, 2, 2, 2, + 3 2, 2, 2, 2, 2, 2, -1, -1, -1, -1, + 4 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 5 -1, -1, 2, 2, -1, -1, -1, 2, -1, -1, + 6 -1, -1, -1, -1, -1, -1, -1, 2, 2, 2, + 7 4, 4, 4, -1, -1, 4, 4, -1, -1, 2, + 8 2, 2, 2, 2, 2, 2, 2, 2, 2, -2, + 9 0, 0, 0, 0, 0, 9, -2, -2, 8, -2/ + DATA (ISET(I),I=101,200)/ + & -1, 1, 1, 1, 1, 2, 2, 2, -2, 2, + 1 2, 2, 2, 2, 2, -1, -1, -1, -2, -2, + 2 5, 5, 5, 5, -2, -2, -2, -2, -2, -2, + 3 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 4 1, 1, 1, 1, 1, 1, 1, 1, 1, -2, + 5 1, 1, 1, -2, -2, 1, 1, 1, -2, -2, + 6 2, 2, 2, 2, 2, 2, 2, 2, 2, -2, + 7 2, 2, 5, 5, -2, 2, 2, 5, 5, -2, + 8 5, 5, -2, -2, -2, 5, 5, -2, -2, -2, + 9 1, 1, 1, 2, 2, -2, -2, -2, -2, -2/ + DATA (ISET(I),I=201,300)/ + & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 1 2, 2, 2, 2, -2, 2, 2, 2, 2, 2, + 2 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 3 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 4 2, 2, 2, 2, -1, 2, 2, 2, 2, 2, + 5 2, 2, 2, 2, -1, 2, -1, 2, 2, -2, + 6 2, 2, 2, 2, 2, -1, -1, -1, -1, -1, + 7 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 8 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 9 2, 2, 2, 2, 2, 2, 2, 2, 2, 2/ + DATA (ISET(I),I=301,500)/ + & 2, 39*-2, + 4 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, + 5 5, 5, -1, -1, -1, -1, -1, -1, -1, -1, + 6 2, 2, 2, 2, 2, 2, 2, 2, -1, 2, + 7 2, 2, 2, 2, 2, 2, 2, -1, -1, -1, + 8 120*-2/ + DATA ((KFPR(I,J),J=1,2),I=1,50)/ + & 23, 0, 24, 0, 25, 0, 24, 0, 25, 0, + & 24, 0, 23, 0, 25, 0, 0, 0, 0, 0, + 1 0, 0, 0, 0, 21, 21, 21, 22, 21, 23, + 1 21, 24, 21, 25, 22, 22, 22, 23, 22, 24, + 2 22, 25, 23, 23, 23, 24, 23, 25, 24, 24, + 2 24, 25, 25, 25, 0, 21, 0, 22, 0, 23, + 3 0, 24, 0, 25, 0, 21, 0, 22, 0, 23, + 3 0, 24, 0, 25, 0, 21, 0, 22, 0, 23, + 4 0, 24, 0, 25, 0, 21, 0, 22, 0, 23, + 4 0, 24, 0, 25, 0, 21, 0, 22, 0, 23/ + DATA ((KFPR(I,J),J=1,2),I=51,100)/ + 5 0, 24, 0, 25, 0, 0, 0, 0, 0, 0, + 5 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 6 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 6 0, 0, 0, 0, 21, 21, 24, 24, 23, 24, + 7 23, 23, 24, 24, 23, 24, 23, 25, 22, 22, + 7 23, 23, 24, 24, 24, 25, 25, 25, 0, 211, + 8 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 8 443, 21,10441, 21,20443, 21, 445, 21, 0, 0, + 9 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 9 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ + DATA ((KFPR(I,J),J=1,2),I=101,150)/ + & 23, 0, 25, 0, 25, 0,10441, 0, 445, 0, + & 443, 22, 443, 21, 443, 22, 0, 0, 22, 25, + 1 21, 25, 0, 25, 21, 25, 22, 22, 21, 22, + 1 22, 23, 23, 23, 24, 24, 0, 0, 0, 0, + 2 25, 6, 25, 6, 25, 0, 25, 0, 0, 0, + 2 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 3 0, 21, 0, 21, 0, 22, 0, 22, 0, 0, + 3 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 4 32, 0, 34, 0, 37, 0, 40, 0, 39, 0, + 4 4000011, 0, 4000001, 0, 4000002, 0, 38, 0, 0, 0/ + DATA ((KFPR(I,J),J=1,2),I=151,200)/ + 5 35, 0, 35, 0, 35, 0, 0, 0, 0, 0, + 5 36, 0, 36, 0, 36, 0, 0, 0, 0, 0, + 6 6, 37, 39, 0, 39, 39, 39, 39, 11, 0, + 6 11, 0, 0, 4000001, 0, 4000002, 0, 4000011, 0, 0, + 7 23, 35, 24, 35, 35, 0, 35, 0, 0, 0, + 7 23, 36, 24, 36, 36, 0, 36, 0, 0, 0, + 8 35, 6, 35, 6, 0, 0, 0, 0, 0, 0, + 8 36, 6, 36, 6, 0, 0, 0, 0, 0, 0, + 9 54, 0, 55, 0, 56, 0, 11, 0, 11, 0, + 9 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ + DATA ((KFPR(I,J),J=1,2),I=201,250)/ + & 1000011, 1000011, 2000011, 2000011, 1000011, + & 2000011, 1000013, 1000013, 2000013, 2000013, + & 1000013, 2000013, 1000015, 1000015, 2000015, + & 2000015, 1000015, 2000015, 1000011, 1000012, + 1 1000015, 1000016, 2000015, 1000016, 1000012, + 1 1000012, 1000016, 1000016, 0, 0, + 1 1000022, 1000022, 1000023, 1000023, 1000025, + 1 1000025, 1000035, 1000035, 1000022, 1000023, + 2 1000022, 1000025, 1000022, 1000035, 1000023, + 2 1000025, 1000023, 1000035, 1000025, 1000035, + 2 1000024, 1000024, 1000037, 1000037, 1000024, + 2 1000037, 1000022, 1000024, 1000023, 1000024, + 3 1000025, 1000024, 1000035, 1000024, 1000022, + 3 1000037, 1000023, 1000037, 1000025, 1000037, + 3 1000035, 1000037, 1000021, 1000022, 1000021, + 3 1000023, 1000021, 1000025, 1000021, 1000035, + 4 1000021, 1000024, 1000021, 1000037, 1000021, + 4 1000021, 1000021, 1000021, 0, 0, + 4 1000002, 1000022, 2000002, 1000022, 1000002, + 4 1000023, 2000002, 1000023, 1000002, 1000025/ + DATA ((KFPR(I,J),J=1,2),I=251,300)/ + 5 2000002, 1000025, 1000002, 1000035, 2000002, + 5 1000035, 1000001, 1000024, 2000005, 1000024, + 5 1000001, 1000037, 2000005, 1000037, 1000002, + 5 1000021, 2000002, 1000021, 0, 0, + 6 1000006, 1000006, 2000006, 2000006, 1000006, + 6 2000006, 1000006, 1000006, 2000006, 2000006, + 6 0, 0, 0, 0, 0, + 6 0, 0, 0, 0, 0, + 7 1000002, 1000002, 2000002, 2000002, 1000002, + 7 2000002, 1000002, 1000002, 2000002, 2000002, + 7 1000002, 2000002, 1000002, 1000002, 2000002, + 7 2000002, 1000002, 1000002, 2000002, 2000002, + 8 1000005, 1000002, 2000005, 2000002, 1000005, + 8 2000002, 1000005, 1000002, 2000005, 2000002, + 8 1000005, 2000002, 1000005, 1000005, 2000005, + 8 2000005, 1000005, 1000005, 2000005, 2000005, + 9 1000005, 1000005, 2000005, 2000005, 1000005, + 9 2000005, 1000005, 1000021, 2000005, 1000021, + 9 1000005, 2000005, 37, 25, 37, + 9 35, 36, 25, 36, 35/ + DATA ((KFPR(I,J),J=1,2),I=301,500)/ + & 37, 37, 78*0, + 4 61, 0, 62, 0, 61, + 4 11, 62, 11, 61, 13, + 4 62, 13, 61, 15, 62, + 4 15, 61, 61, 62, 62, + 5 61, 0, 62, 0, 0, + 5 0, 0, 0, 0, 0, + 5 0, 0, 0, 0, 0, + 5 0, 0, 0, 0, 0, + 6 24, 24, 24, 52, 52, + 6 52, 22, 51, 22, 53, + 6 23, 51, 23, 53, 24, + 6 52, 0, 0, 24, 23, + 7 24, 51, 52, 23, 52, + 7 51, 22, 52, 23, 52, + 7 24, 51, 24, 53, 0, + 7 0, 0, 0, 0, 0, + 8 240*0/ + DATA COEF/10000*0D0/ + DATA (((ICOL(I,J,K),K=1,2),J=1,4),I=1,40)/ + &4,0,3,0,2,0,1,0,3,0,4,0,1,0,2,0,2,0,0,1,4,0,0,3,3,0,0,4,1,0,0,2, + &3,0,0,4,1,4,3,2,4,0,0,3,4,2,1,3,2,0,4,1,4,0,2,3,4,0,3,4,2,0,1,2, + &3,2,1,0,1,4,3,0,4,3,3,0,2,1,1,0,3,2,1,4,1,0,0,2,2,4,3,1,2,0,0,1, + &3,2,1,4,1,4,3,2,4,2,1,3,4,2,1,3,3,4,4,3,1,2,2,1,2,0,3,1,2,0,0,0, + &4,2,1,0,0,0,1,0,3,0,0,3,1,2,0,0,4,0,0,4,0,0,1,2,2,0,0,1,4,4,3,3, + &2,2,1,1,4,4,3,3,3,3,4,4,1,1,2,2,3,2,1,3,1,2,0,0,4,2,1,4,0,0,1,2, + &4,0,0,0,4,0,1,3,0,0,3,0,2,4,3,0,3,4,0,0,1,0,0,1,0,0,3,4,2,0,0,2, + &3,0,0,0,1,0,0,0,0,0,3,0,2,0,0,0,2,0,3,1,2,0,0,0,3,2,1,0,1,0,0,0, + &4,4,3,3,2,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, + &0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0/ + +C...Treatment of resonances. + DATA (MWID(I) ,I= 1, 500)/5*0,3*1,8*0,1,5*0,3*1,6*0,1,0,7*1, + &10*0,6*1,4*0,3*1,238*0,19*2,0,7*2,0,2,0,2,0,4*1,163*0/ + +C...Character constants: name of processes. + DATA PROC(0)/ 'All included subprocesses '/ + DATA (PROC(I),I=1,20)/ + &'f + fbar -> gamma*/Z0 ', 'f + fbar'' -> W+/- ', + &'f + fbar -> h0 ', 'gamma + W+/- -> W+/- ', + &'Z0 + Z0 -> h0 ', 'Z0 + W+/- -> W+/- ', + &' ', 'W+ + W- -> h0 ', + &' ', 'f + f'' -> f + f'' (QFD) ', + 1'f + f'' -> f + f'' (QCD) ','f + fbar -> f'' + fbar'' ', + 1'f + fbar -> g + g ', 'f + fbar -> g + gamma ', + 1'f + fbar -> g + Z0 ', 'f + fbar'' -> g + W+/- ', + 1'f + fbar -> g + h0 ', 'f + fbar -> gamma + gamma ', + 1'f + fbar -> gamma + Z0 ', 'f + fbar'' -> gamma + W+/- '/ + DATA (PROC(I),I=21,40)/ + 2'f + fbar -> gamma + h0 ', 'f + fbar -> Z0 + Z0 ', + 2'f + fbar'' -> Z0 + W+/- ', 'f + fbar -> Z0 + h0 ', + 2'f + fbar -> W+ + W- ', 'f + fbar'' -> W+/- + h0 ', + 2'f + fbar -> h0 + h0 ', 'f + g -> f + g ', + 2'f + g -> f + gamma ', 'f + g -> f + Z0 ', + 3'f + g -> f'' + W+/- ', 'f + g -> f + h0 ', + 3'f + gamma -> f + g ', 'f + gamma -> f + gamma ', + 3'f + gamma -> f + Z0 ', 'f + gamma -> f'' + W+/- ', + 3'f + gamma -> f + h0 ', 'f + Z0 -> f + g ', + 3'f + Z0 -> f + gamma ', 'f + Z0 -> f + Z0 '/ + DATA (PROC(I),I=41,60)/ + 4'f + Z0 -> f'' + W+/- ', 'f + Z0 -> f + h0 ', + 4'f + W+/- -> f'' + g ', 'f + W+/- -> f'' + gamma ', + 4'f + W+/- -> f'' + Z0 ', 'f + W+/- -> f'' + W+/- ', + 4'f + W+/- -> f'' + h0 ', 'f + h0 -> f + g ', + 4'f + h0 -> f + gamma ', 'f + h0 -> f + Z0 ', + 5'f + h0 -> f'' + W+/- ', 'f + h0 -> f + h0 ', + 5'g + g -> f + fbar ', 'g + gamma -> f + fbar ', + 5'g + Z0 -> f + fbar ', 'g + W+/- -> f + fbar'' ', + 5'g + h0 -> f + fbar ', 'gamma + gamma -> f + fbar ', + 5'gamma + Z0 -> f + fbar ', 'gamma + W+/- -> f + fbar'' '/ + DATA (PROC(I),I=61,80)/ + 6'gamma + h0 -> f + fbar ', 'Z0 + Z0 -> f + fbar ', + 6'Z0 + W+/- -> f + fbar'' ', 'Z0 + h0 -> f + fbar ', + 6'W+ + W- -> f + fbar ', 'W+/- + h0 -> f + fbar'' ', + 6'h0 + h0 -> f + fbar ', 'g + g -> g + g ', + 6'gamma + gamma -> W+ + W- ', 'gamma + W+/- -> Z0 + W+/- ', + 7'Z0 + Z0 -> Z0 + Z0 ', 'Z0 + Z0 -> W+ + W- ', + 7'Z0 + W+/- -> Z0 + W+/- ', 'Z0 + Z0 -> Z0 + h0 ', + 7'W+ + W- -> gamma + gamma ', 'W+ + W- -> Z0 + Z0 ', + 7'W+/- + W+/- -> W+/- + W+/- ', 'W+/- + h0 -> W+/- + h0 ', + 7'h0 + h0 -> h0 + h0 ', 'q + gamma -> q'' + pi+/- '/ + DATA (PROC(I),I=81,100)/ + 8'q + qbar -> Q + Qbar, mass ', 'g + g -> Q + Qbar, massive ', + 8'f + q -> f'' + Q, massive ', 'g + gamma -> Q + Qbar, mass ', + 8'gamma + gamma -> F + Fbar, m', 'g + g -> J/Psi + g ', + 8'g + g -> chi_0c + g ', 'g + g -> chi_1c + g ', + 8'g + g -> chi_2c + g ', ' ', + 9'Elastic scattering ', 'Single diffractive (XB) ', + 9'Single diffractive (AX) ', 'Double diffractive ', + 9'Low-pT scattering ', 'Semihard QCD 2 -> 2 ', + 9' ', ' ', + 9'q + gamma* -> q ', ' '/ + DATA (PROC(I),I=101,120)/ + &'g + g -> gamma*/Z0 ', 'g + g -> h0 ', + &'gamma + gamma -> h0 ', 'g + g -> chi_0c ', + &'g + g -> chi_2c ', 'g + g -> J/Psi + gamma ', + &'gamma + g -> J/Psi + g ', 'gamma+gamma -> J/Psi + gamma', + &' ', 'f + fbar -> gamma + h0 ', + 1'f + fbar -> g + h0 ', 'q + g -> q + h0 ', + 1'g + g -> g + h0 ', 'g + g -> gamma + gamma ', + 1'g + g -> g + gamma ', 'g + g -> gamma + Z0 ', + 1'g + g -> Z0 + Z0 ', 'g + g -> W+ + W- ', + 1' ', ' '/ + DATA (PROC(I),I=121,140)/ + 2'g + g -> Q + Qbar + h0 ', 'q + qbar -> Q + Qbar + h0 ', + 2'f + f'' -> f + f'' + h0 ', + 2'f + f'' -> f" + f"'' + h0 ', + 2' ', ' ', + 2' ', ' ', + 2' ', ' ', + 3'f + gamma*_T -> f + g ', 'f + gamma*_L -> f + g ', + 3'f + gamma*_T -> f + gamma ', 'f + gamma*_L -> f + gamma ', + 3'g + gamma*_T -> f + fbar ', 'g + gamma*_L -> f + fbar ', + 3'gamma*_T+gamma*_T -> f+fbar ', 'gamma*_T+gamma*_L -> f+fbar ', + 3'gamma*_L+gamma*_T -> f+fbar ', 'gamma*_L+gamma*_L -> f+fbar '/ + DATA (PROC(I),I=141,160)/ + 4'f + fbar -> gamma*/Z0/Z''0 ', 'f + fbar'' -> W''+/- ', + 4'f + fbar'' -> H+/- ', 'f + fbar'' -> R ', + 4'q + l -> LQ ', 'e + gamma -> e* ', + 4'd + g -> d* ', 'u + g -> u* ', + 4'g + g -> eta_techni ', ' ', + 5'f + fbar -> H0 ', 'g + g -> H0 ', + 5'gamma + gamma -> H0 ', ' ', + 5' ', 'f + fbar -> A0 ', + 5'g + g -> A0 ', 'gamma + gamma -> A0 ', + 5' ', ' '/ + DATA (PROC(I),I=161,180)/ + 6'f + g -> f'' + H+/- ', 'q + g -> LQ + lbar ', + 6'g + g -> LQ + LQbar ', 'q + qbar -> LQ + LQbar ', + 6'f + fbar -> f'' + fbar'' (g/Z)', + 6'f +fbar'' -> f" + fbar"'' (W) ', + 6'q + q'' -> q" + d* ', 'q + q'' -> q" + u* ', + 6'q + qbar -> e + e* ', ' ', + 7'f + fbar -> Z0 + H0 ', 'f + fbar'' -> W+/- + H0 ', + 7'f + f'' -> f + f'' + H0 ', + 7'f + f'' -> f" + f"'' + H0 ', + 7' ', 'f + fbar -> Z0 + A0 ', + 7'f + fbar'' -> W+/- + A0 ', + 7'f + f'' -> f + f'' + A0 ', + 7'f + f'' -> f" + f"'' + A0 ', + 7' '/ + DATA (PROC(I),I=181,200)/ + 8'g + g -> Q + Qbar + H0 ', 'q + qbar -> Q + Qbar + H0 ', + 8' ', ' ', + 8' ', 'g + g -> Q + Qbar + A0 ', + 8'q + qbar -> Q + Qbar + A0 ', ' ', + 8' ', ' ', + 9'f + fbar -> rho_tech0 ', 'f + f'' -> rho_tech+/- ', + 9'f + fbar -> omega_tech0 ', 'f+fbar -> f''+fbar'' (ETC) ', + 9'f+fbar'' -> f"+fbar"'' (ETC)',' ', + 9' ', ' ', + 9' ', ' '/ + DATA (PROC(I),I=201,220)/ + &'f + fbar -> ~e_L + ~e_Lbar ', 'f + fbar -> ~e_R + ~e_Rbar ', + &'f + fbar -> ~e_R + ~e_Lbar ', 'f + fbar -> ~mu_L + ~mu_Lbar', + &'f + fbar -> ~mu_R + ~mu_Rbar', 'f + fbar -> ~mu_L + ~mu_Rbar', + &'f+fbar -> ~tau_1 + ~tau_1bar', 'f+fbar -> ~tau_2 + ~tau_2bar', + &'f+fbar -> ~tau_1 + ~tau_2bar', 'q + qbar'' -> ~l_L + ~nulbar ', + 1'q+qbar''-> ~tau_1 + ~nutaubar', 'q+qbar''-> ~tau_2 + ~nutaubar', + 1'f + fbar -> ~nul + ~nulbar ', 'f+fbar -> ~nutau + ~nutaubar', + 1' ', 'f + fbar -> ~chi1 + ~chi1 ', + 1'f + fbar -> ~chi2 + ~chi2 ', 'f + fbar -> ~chi3 + ~chi3 ', + 1'f + fbar -> ~chi4 + ~chi4 ', 'f + fbar -> ~chi1 + ~chi2 '/ + DATA (PROC(I),I=221,240)/ + 2'f + fbar -> ~chi1 + ~chi3 ', 'f + fbar -> ~chi1 + ~chi4 ', + 2'f + fbar -> ~chi2 + ~chi3 ', 'f + fbar -> ~chi2 + ~chi4 ', + 2'f + fbar -> ~chi3 + ~chi4 ', 'f+fbar -> ~chi+-1 + ~chi-+1 ', + 2'f+fbar -> ~chi+-2 + ~chi-+2 ', 'f+fbar -> ~chi+-1 + ~chi-+2 ', + 2'q + qbar'' -> ~chi1 + ~chi+-1', 'q + qbar'' -> ~chi2 + ~chi+-1', + 3'q + qbar'' -> ~chi3 + ~chi+-1', 'q + qbar'' -> ~chi4 + ~chi+-1', + 3'q + qbar'' -> ~chi1 + ~chi+-2', 'q + qbar'' -> ~chi2 + ~chi+-2', + 3'q + qbar'' -> ~chi3 + ~chi+-2', 'q + qbar'' -> ~chi4 + ~chi+-2', + 3'q + qbar -> ~chi1 + ~g ', 'q + qbar -> ~chi2 + ~g ', + 3'q + qbar -> ~chi3 + ~g ', 'q + qbar -> ~chi4 + ~g '/ + DATA (PROC(I),I=241,260)/ + 4'q + qbar'' -> ~chi+-1 + ~g ', 'q + qbar'' -> ~chi+-2 + ~g ', + 4'q + qbar -> ~g + ~g ', 'g + g -> ~g + ~g ', + 4' ', 'qj + g -> ~qj_L + ~chi1 ', + 4'qj + g -> ~qj_R + ~chi1 ', 'qj + g -> ~qj_L + ~chi2 ', + 4'qj + g -> ~qj_R + ~chi2 ', 'qj + g -> ~qj_L + ~chi3 ', + 5'qj + g -> ~qj_R + ~chi3 ', 'qj + g -> ~qj_L + ~chi4 ', + 5'qj + g -> ~qj_R + ~chi4 ', 'qj + g -> ~qk_L + ~chi+-1 ', + 5'qj + g -> ~qk_R + ~chi+-1 ', 'qj + g -> ~qk_L + ~chi+-2 ', + 5'qj + g -> ~qk_R + ~chi+-2 ', 'qj + g -> ~qj_L + ~g ', + 5'qj + g -> ~qj_R + ~g ', ' '/ + DATA (PROC(I),I=261,300)/ + 6'f + fbar -> ~t_1 + ~t_1bar ', 'f + fbar -> ~t_2 + ~t_2bar ', + 6'f + fbar -> ~t_1 + ~t_2bar ', 'g + g -> ~t_1 + ~t_1bar ', + 6'g + g -> ~t_2 + ~t_2bar ', ' ', + 6' ', ' ', + 6' ', ' ', + 7'qi + qj -> ~qi_L + ~qj_L ', 'qi + qj -> ~qi_R + ~qj_R ', + 7'qi + qj -> ~qi_L + ~qj_R ', 'qi+qjbar -> ~qi_L + ~qj_Lbar', + 7'qi+qjbar -> ~qi_R + ~qj_Rbar', 'qi+qjbar -> ~qi_L + ~qj_Rbar', + 7'f + fbar -> ~qi_L + ~qi_Lbar', 'f + fbar -> ~qi_R + ~qi_Rbar', + 7'g + g -> ~qi_L + ~qi_Lbar ', 'g + g -> ~qi_R + ~qi_Rbar ', + 8'b + qj -> ~b_1 + ~qj_L ', 'b + qj -> ~b_2 + ~qj_R ', + 8'b + qj -> ~b_1 + ~qj_R ', 'b + qjbar -> ~b_1 + ~qj_Lbar', + 8'b + qjbar -> ~b_2 + ~qj_Rbar', 'b + qjbar -> ~b_1 + ~qj_Rbar', + 8'f + fbar -> ~b_1 + ~b_1bar ', 'f + fbar -> ~b_2 + ~b_2bar ', + 8'g + g -> ~b_1 + ~b_1bar ', 'g + g -> ~b_2 + ~b_2bar ', + 9'b + b -> ~b_1 + ~b_1 ', 'b + b -> ~b_2 + ~b_2 ', + 9'b + b -> ~b_1 + ~b_2 ', 'b + g -> ~b_1 + ~g ', + 9'b + g -> ~b_2 + ~g ', 'b + bbar -> ~b_1 + ~b_2bar ', + 9'f + fbar'' -> H+/- + h0 ', 'f + fbar -> H+/- + H0 ', + 9'f + fbar -> A0 + h0 ', 'f + fbar -> A0 + H0 '/ + DATA (PROC(I),I=301,340)/ + &'f + fbar -> H+ + H- ', 39*' '/ + DATA (PROC(I),I=341,500)/ + 4'l + l -> H_L++/-- ', 'l + l -> H_R++/-- ', + 4'l + gamma -> H_L++/-- e-/+ ', 'l + gamma -> H_R++/-- e-/+ ', + 4'l + gamma -> H_L++/-- mu-/+ ', 'l + gamma -> H_R++/-- mu-/+ ', + 4'l + gamma -> H_L++/-- tau-/+', 'l + gamma -> H_R++/-- tau-/+', + 4'f + fbar -> H_L++ + H_L-- ', 'f + fbar -> H_R++ + H_R-- ', + 5'f + f -> f'' + f'' + H_L++/-- ', + 5'f + f -> f'' + f'' + H_R++/-- ', 7*' ', + 6' ', 'f + fbar -> W_L+ W_L- ', + 6'f + fbar -> W_L+/- pi_T-/+ ', 'f + fbar -> pi_T+ pi_T- ', + 6'f + fbar -> gamma pi_T0 ', 'f + fbar -> gamma pi_T0'' ', + 6'f + fbar -> Z0 pi_T0 ', 'f + fbar -> Z0 pi_T0'' ', + 6'f + fbar -> W+/- pi_T-/+ ', ' ', + 7'f + fbar'' -> W_L+/- Z_L0 ', 'f + fbar'' -> W_L+/- pi_T0 ', + 7'f + fbar'' -> pi_T+/- Z_L0 ', 'f + fbar'' -> pi_T+/- pi_T0 ', + 7'f + fbar'' -> gamma pi_T+/- ', 'f + fbar'' -> Z0 pi_T+/- ', + 7'f + fbar'' -> W+/- pi_T0 ', + 7'f + fbar'' -> W+/- pi_T0'' ', + 7' ',' ', + 8 121*' '/ + +C...Cross sections and slope offsets. + DATA SIGT/294*0D0/ + +C...Supersymmetry switches and parameters. + DATA IMSS/0, + & 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, + 1 89*0/ + DATA RMSS/0D0, + & 80D0,160D0,500D0,800D0,2D0,250D0,200D0,800D0,700D0,800D0, + 1 700D0,500D0,250D0,200D0,800D0,400D0,0D0,0.1D0,850D0,0.041D0, + 2 1D0,800D0,1D4,1D4,1D4,0D0,0D0,0D0,24D17,0D0, + 3 69*0D0/ + +C...Data for histogramming routines. + DATA IHIST/1000,20000,55,1/ + DATA INDX/1000*0/ + + END + +C********************************************************************* + +C...PYTEST +C...A simple program (disguised as subroutine) to run at installation +C...as a check that the program works as intended. + + SUBROUTINE PYTEST(MTEST) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYDAT3/,/PYSUBS/,/PYPARS/ +C...Local arrays. + DIMENSION PSUM(5),PINI(6),PFIN(6) + +C...Save defaults for values that are changed. + MSTJ1=MSTJ(1) + MSTJ3=MSTJ(3) + MSTJ11=MSTJ(11) + MSTJ42=MSTJ(42) + MSTJ43=MSTJ(43) + MSTJ44=MSTJ(44) + PARJ17=PARJ(17) + PARJ22=PARJ(22) + PARJ43=PARJ(43) + PARJ54=PARJ(54) + MST101=MSTJ(101) + MST104=MSTJ(104) + MST105=MSTJ(105) + MST107=MSTJ(107) + MST116=MSTJ(116) + +C...First part: loop over simple events to be generated. + IF(MTEST.GE.1) CALL PYTABU(20) + NERR=0 + DO 180 IEV=1,500 + +C...Reset parameter values. Switch on some nonstandard features. + MSTJ(1)=1 + MSTJ(3)=0 + MSTJ(11)=1 + MSTJ(42)=2 + MSTJ(43)=4 + MSTJ(44)=2 + PARJ(17)=0.1D0 + PARJ(22)=1.5D0 + PARJ(43)=1D0 + PARJ(54)=-0.05D0 + MSTJ(101)=5 + MSTJ(104)=5 + MSTJ(105)=0 + MSTJ(107)=1 + IF(IEV.EQ.301.OR.IEV.EQ.351.OR.IEV.EQ.401) MSTJ(116)=3 + +C...Ten events each for some single jets configurations. + IF(IEV.LE.50) THEN + ITY=(IEV+9)/10 + MSTJ(3)=-1 + IF(ITY.EQ.3.OR.ITY.EQ.4) MSTJ(11)=2 + IF(ITY.EQ.1) CALL PY1ENT(1,1,15D0,0D0,0D0) + IF(ITY.EQ.2) CALL PY1ENT(1,3101,15D0,0D0,0D0) + IF(ITY.EQ.3) CALL PY1ENT(1,-2203,15D0,0D0,0D0) + IF(ITY.EQ.4) CALL PY1ENT(1,-4,30D0,0D0,0D0) + IF(ITY.EQ.5) CALL PY1ENT(1,21,15D0,0D0,0D0) + +C...Ten events each for some simple jet systems; string fragmentation. + ELSEIF(IEV.LE.130) THEN + ITY=(IEV-41)/10 + IF(ITY.EQ.1) CALL PY2ENT(1,1,-1,40D0) + IF(ITY.EQ.2) CALL PY2ENT(1,4,-4,30D0) + IF(ITY.EQ.3) CALL PY2ENT(1,2,2103,100D0) + IF(ITY.EQ.4) CALL PY2ENT(1,21,21,40D0) + IF(ITY.EQ.5) CALL PY3ENT(1,2101,21,-3203,30D0,0.6D0,0.8D0) + IF(ITY.EQ.6) CALL PY3ENT(1,5,21,-5,40D0,0.9D0,0.8D0) + IF(ITY.EQ.7) CALL PY3ENT(1,21,21,21,60D0,0.7D0,0.5D0) + IF(ITY.EQ.8) CALL PY4ENT(1,2,21,21,-2,40D0, + & 0.4D0,0.64D0,0.6D0,0.12D0,0.2D0) + +C...Seventy events with independent fragmentation and momentum cons. + ELSEIF(IEV.LE.200) THEN + ITY=1+(IEV-131)/16 + MSTJ(2)=1+MOD(IEV-131,4) + MSTJ(3)=1+MOD((IEV-131)/4,4) + IF(ITY.EQ.1) CALL PY2ENT(1,4,-5,40D0) + IF(ITY.EQ.2) CALL PY3ENT(1,3,21,-3,40D0,0.9D0,0.4D0) + IF(ITY.EQ.3) CALL PY4ENT(1,2,21,21,-2,40D0, + & 0.4D0,0.64D0,0.6D0,0.12D0,0.2D0) + IF(ITY.GE.4) CALL PY4ENT(1,2,-3,3,-2,40D0, + & 0.4D0,0.64D0,0.6D0,0.12D0,0.2D0) + +C...A hundred events with random jets (check invariant mass). + ELSEIF(IEV.LE.300) THEN + 100 DO 110 J=1,5 + PSUM(J)=0D0 + 110 CONTINUE + NJET=2D0+6D0*PYR(0) + DO 130 I=1,NJET + KFL=21 + IF(I.EQ.1) KFL=INT(1D0+4D0*PYR(0)) + IF(I.EQ.NJET) KFL=-INT(1D0+4D0*PYR(0)) + EJET=5D0+20D0*PYR(0) + THETA=ACOS(2D0*PYR(0)-1D0) + PHI=6.2832D0*PYR(0) + IF(I.LT.NJET) CALL PY1ENT(-I,KFL,EJET,THETA,PHI) + IF(I.EQ.NJET) CALL PY1ENT(I,KFL,EJET,THETA,PHI) + IF(I.EQ.1.OR.I.EQ.NJET) MSTJ(93)=1 + IF(I.EQ.1.OR.I.EQ.NJET) PSUM(5)=PSUM(5)+PYMASS(KFL) + DO 120 J=1,4 + PSUM(J)=PSUM(J)+P(I,J) + 120 CONTINUE + 130 CONTINUE + IF(PSUM(4)**2-PSUM(1)**2-PSUM(2)**2-PSUM(3)**2.LT. + & (PSUM(5)+PARJ(32))**2) GOTO 100 + +C...Fifty e+e- continuum events with matrix elements. + ELSEIF(IEV.LE.350) THEN + MSTJ(101)=2 + CALL PYEEVT(0,40D0) + +C...Fifty e+e- continuum event with varying shower options. + ELSEIF(IEV.LE.400) THEN + MSTJ(42)=1+MOD(IEV,2) + MSTJ(43)=1+MOD(IEV/2,4) + MSTJ(44)=MOD(IEV/8,3) + CALL PYEEVT(0,90D0) + +C...Fifty e+e- continuum events with coherent shower. + ELSEIF(IEV.LE.450) THEN + CALL PYEEVT(0,500D0) + +C...Fifty Upsilon decays to ggg or gammagg with coherent shower. + ELSE + CALL PYONIA(5,9.46D0) + ENDIF + +C...Generate event. Find total momentum, energy and charge. + DO 140 J=1,4 + PINI(J)=PYP(0,J) + 140 CONTINUE + PINI(6)=PYP(0,6) + CALL PYEXEC + DO 150 J=1,4 + PFIN(J)=PYP(0,J) + 150 CONTINUE + PFIN(6)=PYP(0,6) + +C...Check conservation of energy, momentum and charge; +C...usually exact, but only approximate for single jets. + MERR=0 + IF(IEV.LE.50) THEN + IF((PFIN(1)-PINI(1))**2+(PFIN(2)-PINI(2))**2.GE.10D0) + & MERR=MERR+1 + EPZREM=PINI(4)+PINI(3)-PFIN(4)-PFIN(3) + IF(EPZREM.LT.0D0.OR.EPZREM.GT.2D0*PARJ(31)) MERR=MERR+1 + IF(ABS(PFIN(6)-PINI(6)).GT.2.1D0) MERR=MERR+1 + ELSE + DO 160 J=1,4 + IF(ABS(PFIN(J)-PINI(J)).GT.0.0001D0*PINI(4)) MERR=MERR+1 + 160 CONTINUE + IF(ABS(PFIN(6)-PINI(6)).GT.0.1D0) MERR=MERR+1 + ENDIF + IF(MERR.NE.0) WRITE(MSTU(11),5000) (PINI(J),J=1,4),PINI(6), + & (PFIN(J),J=1,4),PFIN(6) + +C...Check that all KF codes are known ones, and that partons/particles +C...satisfy energy-momentum-mass relation. Store particle statistics. + DO 170 I=1,N + IF(K(I,1).GT.20) GOTO 170 + IF(PYCOMP(K(I,2)).EQ.0) THEN + WRITE(MSTU(11),5100) I + MERR=MERR+1 + ENDIF + PD=P(I,4)**2-P(I,1)**2-P(I,2)**2-P(I,3)**2-P(I,5)**2 + IF(ABS(PD).GT.MAX(0.1D0,0.001D0*P(I,4)**2).OR.P(I,4).LT.0D0) + & THEN + WRITE(MSTU(11),5200) I + MERR=MERR+1 + ENDIF + 170 CONTINUE + IF(MTEST.GE.1) CALL PYTABU(21) + +C...List all erroneous events and some normal ones. + IF(MERR.NE.0.OR.MSTU(24).NE.0.OR.MSTU(28).NE.0) THEN + IF(MERR.GE.1) WRITE(MSTU(11),6400) + CALL PYLIST(2) + ELSEIF(MTEST.GE.1.AND.MOD(IEV-5,100).EQ.0) THEN + CALL PYLIST(1) + ENDIF + +C...Stop execution if too many errors. + IF(MERR.NE.0) NERR=NERR+1 + IF(NERR.GE.10) THEN + WRITE(MSTU(11),6300) + CALL PYLIST(1) + STOP + ENDIF + 180 CONTINUE + +C...Summarize result of run. + IF(MTEST.GE.1) CALL PYTABU(22) + +C...Reset commonblock variables changed during run. + MSTJ(1)=MSTJ1 + MSTJ(3)=MSTJ3 + MSTJ(11)=MSTJ11 + MSTJ(42)=MSTJ42 + MSTJ(43)=MSTJ43 + MSTJ(44)=MSTJ44 + PARJ(17)=PARJ17 + PARJ(22)=PARJ22 + PARJ(43)=PARJ43 + PARJ(54)=PARJ54 + MSTJ(101)=MST101 + MSTJ(104)=MST104 + MSTJ(105)=MST105 + MSTJ(107)=MST107 + MSTJ(116)=MST116 + +C...Second part: complete events of various kinds. +C...Common initial values. Loop over initiating conditions. + MSTP(122)=MAX(0,MIN(2,MTEST)) + MDCY(PYCOMP(111),1)=0 + DO 230 IPROC=1,8 + +C...Reset process type, kinematics cuts, and the flags used. + MSEL=0 + DO 190 ISUB=1,500 + MSUB(ISUB)=0 + 190 CONTINUE + CKIN(1)=2D0 + CKIN(3)=0D0 + MSTP(2)=1 + MSTP(11)=0 + MSTP(33)=0 + MSTP(81)=1 + MSTP(82)=1 + MSTP(111)=1 + MSTP(131)=0 + MSTP(133)=0 + PARP(131)=0.01D0 + +C...Prompt photon production at fixed target. + IF(IPROC.EQ.1) THEN + PZSUM=300D0 + PESUM=SQRT(PZSUM**2+PYMASS(211)**2)+PYMASS(2212) + PQSUM=2D0 + MSEL=10 + CKIN(3)=5D0 + CALL PYINIT('FIXT','pi+','p',PZSUM) + +C...QCD processes at ISR energies. + ELSEIF(IPROC.EQ.2) THEN + PESUM=63D0 + PZSUM=0D0 + PQSUM=2D0 + MSEL=1 + CKIN(3)=5D0 + CALL PYINIT('CMS','p','p',PESUM) + +C...W production + multiple interactions at CERN Collider. + ELSEIF(IPROC.EQ.3) THEN + PESUM=630D0 + PZSUM=0D0 + PQSUM=0D0 + MSEL=12 + CKIN(1)=20D0 + MSTP(82)=4 + MSTP(2)=2 + MSTP(33)=3 + CALL PYINIT('CMS','p','pbar',PESUM) + +C...W/Z gauge boson pairs + pileup events at the Tevatron. + ELSEIF(IPROC.EQ.4) THEN + PESUM=1800D0 + PZSUM=0D0 + PQSUM=0D0 + MSUB(22)=1 + MSUB(23)=1 + MSUB(25)=1 + CKIN(1)=200D0 + MSTP(111)=0 + MSTP(131)=1 + MSTP(133)=2 + PARP(131)=0.04D0 + CALL PYINIT('CMS','p','pbar',PESUM) + +C...Higgs production at LHC. + ELSEIF(IPROC.EQ.5) THEN + PESUM=15400D0 + PZSUM=0D0 + PQSUM=2D0 + MSUB(3)=1 + MSUB(102)=1 + MSUB(123)=1 + MSUB(124)=1 + PMAS(25,1)=300D0 + CKIN(1)=200D0 + MSTP(81)=0 + MSTP(111)=0 + CALL PYINIT('CMS','p','p',PESUM) + +C...Z' production at SSC. + ELSEIF(IPROC.EQ.6) THEN + PESUM=40000D0 + PZSUM=0D0 + PQSUM=2D0 + MSEL=21 + PMAS(32,1)=600D0 + CKIN(1)=400D0 + MSTP(81)=0 + MSTP(111)=0 + CALL PYINIT('CMS','p','p',PESUM) + +C...W pair production at 1 TeV e+e- collider. + ELSEIF(IPROC.EQ.7) THEN + PESUM=1000D0 + PZSUM=0D0 + PQSUM=0D0 + MSUB(25)=1 + MSUB(69)=1 + MSTP(11)=1 + CALL PYINIT('CMS','e+','e-',PESUM) + +C...Deep inelastic scattering at a LEP+LHC ep collider. + ELSEIF(IPROC.EQ.8) THEN + P(1,1)=0D0 + P(1,2)=0D0 + P(1,3)=8000D0 + P(2,1)=0D0 + P(2,2)=0D0 + P(2,3)=-80D0 + PESUM=8080D0 + PZSUM=7920D0 + PQSUM=0D0 + MSUB(10)=1 + CKIN(3)=50D0 + MSTP(111)=0 + CALL PYINIT('USER','p','e-',PESUM) + ENDIF + +C...Generate 20 events of each required type. + DO 220 IEV=1,20 + CALL PYEVNT + PESUMM=PESUM + IF(IPROC.EQ.4) PESUMM=MSTI(41)*PESUM + +C...Check conservation of energy/momentum/flavour. + PINI(1)=0D0 + PINI(2)=0D0 + PINI(3)=PZSUM + PINI(4)=PESUMM + PINI(6)=PQSUM + DO 200 J=1,4 + PFIN(J)=PYP(0,J) + 200 CONTINUE + PFIN(6)=PYP(0,6) + MERR=0 + DEVE=ABS(PFIN(4)-PINI(4))+ABS(PFIN(3)-PINI(3)) + DEVT=ABS(PFIN(1)-PINI(1))+ABS(PFIN(2)-PINI(2)) + DEVQ=ABS(PFIN(6)-PINI(6)) + IF(DEVE.GT.2D-3*PESUM.OR.DEVT.GT.MAX(0.01D0,1D-4*PESUM).OR. + & DEVQ.GT.0.1D0) MERR=1 + IF(MERR.NE.0) WRITE(MSTU(11),5000) (PINI(J),J=1,4),PINI(6), + & (PFIN(J),J=1,4),PFIN(6) + +C...Check that all KF codes are known ones, and that partons/particles +C...satisfy energy-momentum-mass relation. + DO 210 I=1,N + IF(K(I,1).GT.20) GOTO 210 + IF(PYCOMP(K(I,2)).EQ.0) THEN + WRITE(MSTU(11),5100) I + MERR=MERR+1 + ENDIF + PD=P(I,4)**2-P(I,1)**2-P(I,2)**2-P(I,3)**2-P(I,5)**2* + & SIGN(1D0,P(I,5)) + IF(ABS(PD).GT.MAX(0.1D0,0.002D0*P(I,4)**2,0.002D0*P(I,5)**2) + & .OR.(P(I,5).GE.0D0.AND.P(I,4).LT.0D0)) THEN + WRITE(MSTU(11),5200) I + MERR=MERR+1 + ENDIF + 210 CONTINUE + +C...Listing of erroneous events, and first event of each type. + IF(MERR.GE.1) NERR=NERR+1 + IF(NERR.GE.10) THEN + WRITE(MSTU(11),6300) + CALL PYLIST(1) + STOP + ENDIF + IF(MTEST.GE.1.AND.(MERR.GE.1.OR.IEV.EQ.1)) THEN + IF(MERR.GE.1) WRITE(MSTU(11),6400) + CALL PYLIST(1) + ENDIF + 220 CONTINUE + +C...List statistics for each process type. + IF(MTEST.GE.1) CALL PYSTAT(1) + 230 CONTINUE + +C...Summarize result of run. + IF(NERR.EQ.0) WRITE(MSTU(11),6500) + IF(NERR.GT.0) WRITE(MSTU(11),6600) NERR + +C...Format statements for output. + 5000 FORMAT(/' Momentum, energy and/or charge were not conserved ', + &'in following event'/' sum of',9X,'px',11X,'py',11X,'pz',11X, + &'E',8X,'charge'/' before',2X,4(1X,F12.5),1X,F8.2/' after',3X, + &4(1X,F12.5),1X,F8.2) + 5100 FORMAT(/5X,'Entry no.',I4,' in following event not known code') + 5200 FORMAT(/5X,'Entry no.',I4,' in following event has faulty ', + &'kinematics') + 6300 FORMAT(/5X,'This is the tenth error experienced! Something is ', + &'wrong.'/5X,'Execution will be stopped after listing of event.') + 6400 FORMAT(5X,'Faulty event follows:') + 6500 FORMAT(//5X,'End result of PYTEST: no errors detected.') + 6600 FORMAT(//5X,'End result of PYTEST:',I2,' errors detected.'/ + &5X,'This should not have happened!') + + RETURN + END + +C********************************************************************* + +C...PYHEPC +C...Converts PYTHIA event record contents to or from +C...the standard event record commonblock. + + SUBROUTINE PYHEPC(MCONV) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ +C...HEPEVT commonblock. + PARAMETER (NMXHEP=4000) + COMMON/HEPEVT/NEVHEP,NHEP,ISTHEP(NMXHEP),IDHEP(NMXHEP), + &JMOHEP(2,NMXHEP),JDAHEP(2,NMXHEP),PHEP(5,NMXHEP),VHEP(4,NMXHEP) + DOUBLE PRECISION PHEP,VHEP + SAVE /HEPEVT/ + +C...Conversion from PYTHIA to standard, the easy part. + IF(MCONV.EQ.1) THEN + NEVHEP=0 + IF(N.GT.NMXHEP) CALL PYERRM(8, + & '(PYHEPC:) no more space in /HEPEVT/') + NHEP=MIN(N,NMXHEP) + DO 140 I=1,NHEP + ISTHEP(I)=0 + IF(K(I,1).GE.1.AND.K(I,1).LE.10) ISTHEP(I)=1 + IF(K(I,1).GE.11.AND.K(I,1).LE.20) ISTHEP(I)=2 + IF(K(I,1).GE.21.AND.K(I,1).LE.30) ISTHEP(I)=3 + IF(K(I,1).GE.31.AND.K(I,1).LE.100) ISTHEP(I)=K(I,1) + IDHEP(I)=K(I,2) + JMOHEP(1,I)=K(I,3) + JMOHEP(2,I)=0 + IF(K(I,1).NE.3.AND.K(I,1).NE.13.AND.K(I,1).NE.14) THEN + JDAHEP(1,I)=K(I,4) + JDAHEP(2,I)=K(I,5) + ELSE + JDAHEP(1,I)=0 + JDAHEP(2,I)=0 + ENDIF + DO 100 J=1,5 + PHEP(J,I)=P(I,J) + 100 CONTINUE + DO 110 J=1,4 + VHEP(J,I)=V(I,J) + 110 CONTINUE + +C...Check if new event (from pileup). + IF(I.EQ.1) THEN + INEW=1 + ELSE + IF(K(I,1).EQ.21.AND.K(I-1,1).NE.21) INEW=I + ENDIF + +C...Fill in missing mother information. + IF(I.GE.INEW+2.AND.K(I,1).EQ.21.AND.K(I,3).EQ.0) THEN + IMO1=I-2 + IF(I.GE.INEW+3.AND.K(I-1,1).EQ.21.AND.K(I-1,3).EQ.0) + & IMO1=IMO1-1 + JMOHEP(1,I)=IMO1 + JMOHEP(2,I)=IMO1+1 + ELSEIF(K(I,2).GE.91.AND.K(I,2).LE.93) THEN + I1=K(I,3)-1 + 120 I1=I1+1 + IF(I1.GE.I) CALL PYERRM(8, + & '(PYHEPC:) translation of inconsistent event history') + IF(I1.LT.I.AND.K(I1,1).NE.1.AND.K(I1,1).NE.11) GOTO 120 + KC=PYCOMP(K(I1,2)) + IF(I1.LT.I.AND.KC.EQ.0) GOTO 120 + IF(I1.LT.I.AND.KCHG(KC,2).EQ.0) GOTO 120 + JMOHEP(2,I)=I1 + ELSEIF(K(I,2).EQ.94) THEN + NJET=2 + IF(NHEP.GE.I+3.AND.K(I+3,3).LE.I) NJET=3 + IF(NHEP.GE.I+4.AND.K(I+4,3).LE.I) NJET=4 + JMOHEP(2,I)=MOD(K(I+NJET,4)/MSTU(5),MSTU(5)) + IF(JMOHEP(2,I).EQ.JMOHEP(1,I)) JMOHEP(2,I)= + & MOD(K(I+1,4)/MSTU(5),MSTU(5)) + ENDIF + +C...Fill in missing daughter information. + IF(K(I,2).EQ.94.AND.MSTU(16).NE.2) THEN + DO 130 I1=JDAHEP(1,I),JDAHEP(2,I) + I2=MOD(K(I1,4)/MSTU(5),MSTU(5)) + JDAHEP(1,I2)=I + 130 CONTINUE + ENDIF + IF(K(I,2).GE.91.AND.K(I,2).LE.94) GOTO 140 + I1=JMOHEP(1,I) + IF(I1.LE.0.OR.I1.GT.NHEP) GOTO 140 + IF(K(I1,1).NE.13.AND.K(I1,1).NE.14) GOTO 140 + IF(JDAHEP(1,I1).EQ.0) THEN + JDAHEP(1,I1)=I + ELSE + JDAHEP(2,I1)=I + ENDIF + 140 CONTINUE + DO 150 I=1,NHEP + IF(K(I,1).NE.13.AND.K(I,1).NE.14) GOTO 150 + IF(JDAHEP(2,I).EQ.0) JDAHEP(2,I)=JDAHEP(1,I) + 150 CONTINUE + +C...Conversion from standard to PYTHIA, the easy part. + ELSE + IF(NHEP.GT.MSTU(4)) CALL PYERRM(8, + & '(PYHEPC:) no more space in /PYJETS/') + N=MIN(NHEP,MSTU(4)) + NKQ=0 + KQSUM=0 + DO 180 I=1,N + K(I,1)=0 + IF(ISTHEP(I).EQ.1) K(I,1)=1 + IF(ISTHEP(I).EQ.2) K(I,1)=11 + IF(ISTHEP(I).EQ.3) K(I,1)=21 + K(I,2)=IDHEP(I) + K(I,3)=JMOHEP(1,I) + K(I,4)=JDAHEP(1,I) + K(I,5)=JDAHEP(2,I) + DO 160 J=1,5 + P(I,J)=PHEP(J,I) + 160 CONTINUE + DO 170 J=1,4 + V(I,J)=VHEP(J,I) + 170 CONTINUE + V(I,5)=0D0 + IF(ISTHEP(I).EQ.2.AND.PHEP(4,I).GT.PHEP(5,I)) THEN + I1=JDAHEP(1,I) + IF(I1.GT.0.AND.I1.LE.NHEP) V(I,5)=(VHEP(4,I1)-VHEP(4,I))* + & PHEP(5,I)/PHEP(4,I) + ENDIF + +C...Fill in missing information on colour connection in jet systems. + IF(ISTHEP(I).EQ.1) THEN + KC=PYCOMP(K(I,2)) + KQ=0 + IF(KC.NE.0) KQ=KCHG(KC,2)*ISIGN(1,K(I,2)) + IF(KQ.NE.0) NKQ=NKQ+1 + IF(KQ.NE.2) KQSUM=KQSUM+KQ + IF(KQ.NE.0.AND.KQSUM.NE.0) THEN + K(I,1)=2 + ELSEIF(KQ.EQ.2.AND.I.LT.N) THEN + IF(K(I+1,2).EQ.21) K(I,1)=2 + ENDIF + ENDIF + 180 CONTINUE + IF(NKQ.EQ.1.OR.KQSUM.NE.0) CALL PYERRM(8, + & '(PYHEPC:) input parton configuration not colour singlet') + ENDIF + + END + +C********************************************************************* + +C...PYINIT +C...Initializes the generation procedure; finds maxima of the +C...differential cross-sections to be used for weighting. + + SUBROUTINE PYINIT(FRAME,BEAM,TARGET,WIN) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYDAT4/CHAF(500,2) + CHARACTER CHAF*16 + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3) + SAVE /PYDAT1/,/PYDAT2/,/PYDAT3/,/PYDAT4/,/PYSUBS/,/PYPARS/, + &/PYINT1/,/PYINT2/,/PYINT5/ +C...Local arrays and character variables. + DIMENSION ALAMIN(20),NFIN(20) + CHARACTER*(*) FRAME,BEAM,TARGET + CHARACTER CHFRAM*12,CHBEAM*12,CHTARG*12,CHLH(2)*6 + +C...Interface to PDFLIB. + COMMON/W50512/QCDL4,QCDL5 + SAVE /W50512/ + DOUBLE PRECISION VALUE(20),QCDL4,QCDL5 + CHARACTER*20 PARM(20) + DATA VALUE/20*0D0/,PARM/20*' '/ + +C...Data:Lambda and n_f values for parton distributions.. + DATA ALAMIN/0.177D0,0.239D0,0.247D0,0.2322D0,0.248D0,0.248D0, + &0.192D0,0.326D0,2*0.2D0,0.2D0,0.2D0,0.29D0,0.2D0,0.4D0,5*0.2D0/, + &NFIN/20*4/ + DATA CHLH/'lepton','hadron'/ + +C...Reset MINT and VINT arrays. Write headers. + DO 100 J=1,400 + MINT(J)=0 + VINT(J)=0D0 + 100 CONTINUE + IF(MSTU(12).GE.1) CALL PYLIST(0) + IF(MSTP(122).GE.1) WRITE(MSTU(11),5100) + +C...Maximum 4 generations; set maximum number of allowed flavours. + MSTP(1)=MIN(4,MSTP(1)) + MSTU(114)=MIN(MSTU(114),2*MSTP(1)) + MSTP(58)=MIN(MSTP(58),2*MSTP(1)) + +C...Sum up Cabibbo-Kobayashi-Maskawa factors for each quark/lepton. + DO 120 I=-20,20 + VINT(180+I)=0D0 + IA=IABS(I) + IF(IA.GE.1.AND.IA.LE.2*MSTP(1)) THEN + DO 110 J=1,MSTP(1) + IB=2*J-1+MOD(IA,2) + IF(IB.GE.6.AND.MSTP(9).EQ.0) GOTO 110 + IPM=(5-ISIGN(1,I))/2 + IDC=J+MDCY(IA,2)+2 + IF(MDME(IDC,1).EQ.1.OR.MDME(IDC,1).EQ.IPM) VINT(180+I)= + & VINT(180+I)+VCKM((IA+1)/2,(IB+1)/2) + 110 CONTINUE + ELSEIF(IA.GE.11.AND.IA.LE.10+2*MSTP(1)) THEN + VINT(180+I)=1D0 + ENDIF + 120 CONTINUE + +C...Initialize parton distributions: PDFLIB. + IF(MSTP(52).EQ.2) THEN + PARM(1)='NPTYPE' + VALUE(1)=1 + PARM(2)='NGROUP' + VALUE(2)=MSTP(51)/1000 + PARM(3)='NSET' + VALUE(3)=MOD(MSTP(51),1000) + PARM(4)='TMAS' + VALUE(4)=PMAS(6,1) + CALL PDFSET(PARM,VALUE) + MINT(93)=1000000+MSTP(51) + ENDIF + +C...Choose Lambda value to use in alpha-strong. + MSTU(111)=MSTP(2) + IF(MSTP(3).GE.2) THEN + ALAM=0.2D0 + NF=4 + IF(MSTP(52).EQ.1.AND.MSTP(51).GE.1.AND.MSTP(51).LE.20) THEN + ALAM=ALAMIN(MSTP(51)) + NF=NFIN(MSTP(51)) + ELSEIF(MSTP(52).EQ.2) THEN + ALAM=QCDL4 + NF=4 + ENDIF + PARP(1)=ALAM + PARP(61)=ALAM + PARP(72)=ALAM + PARU(112)=ALAM + MSTU(112)=NF + IF(MSTP(3).EQ.3) PARJ(81)=ALAM + ENDIF + +C...Initialize the SUSY generation: couplings, masses, +C...decay modes, branching ratios, and so on. + CALL PYMSIN + +C...Initialize widths and partial widths for resonances. + CALL PYINRE +C...Set Z0 mass and width for e+e- routines. + PARJ(123)=PMAS(23,1) + PARJ(124)=PMAS(23,2) + +C...Identify beam and target particles and frame of process. + CHFRAM=FRAME//' ' + CHBEAM=BEAM//' ' + CHTARG=TARGET//' ' + CALL PYINBM(CHFRAM,CHBEAM,CHTARG,WIN) + IF(MINT(65).EQ.1) GOTO 170 + +C...For gamma-p or gamma-gamma allow many (3 or 6) alternatives. +C...For e-gamma allow 2 alternatives. + MINT(121)=1 + IF(MSTP(14).EQ.10.AND.(MSEL.EQ.1.OR.MSEL.EQ.2)) THEN + IF((MINT(11).EQ.22.OR.MINT(12).EQ.22).AND. + & (IABS(MINT(11)).GE.28.OR.IABS(MINT(12)).GE.28)) MINT(121)=3 + IF(MINT(11).EQ.22.AND.MINT(12).EQ.22) MINT(121)=6 + IF((MINT(11).EQ.22.OR.MINT(12).EQ.22).AND. + & (IABS(MINT(11)).EQ.11.OR.IABS(MINT(12)).EQ.11)) MINT(121)=2 + ELSEIF(MSTP(14).EQ.20.AND.(MSEL.EQ.1.OR.MSEL.EQ.2)) THEN + IF((MINT(11).EQ.22.OR.MINT(12).EQ.22).AND. + & (IABS(MINT(11)).GE.28.OR.IABS(MINT(12)).GE.28)) MINT(121)=3 + IF(MINT(11).EQ.22.AND.MINT(12).EQ.22) MINT(121)=9 + ELSEIF(MSTP(14).EQ.25.AND.(MSEL.EQ.1.OR.MSEL.EQ.2)) THEN + IF((MINT(11).EQ.22.OR.MINT(12).EQ.22).AND. + & (IABS(MINT(11)).GE.28.OR.IABS(MINT(12)).GE.28)) MINT(121)=2 + IF(MINT(11).EQ.22.AND.MINT(12).EQ.22) MINT(121)=4 + ELSEIF(MSTP(14).EQ.30.AND.(MSEL.EQ.1.OR.MSEL.EQ.2)) THEN + IF((MINT(11).EQ.22.OR.MINT(12).EQ.22).AND. + & (IABS(MINT(11)).GE.28.OR.IABS(MINT(12)).GE.28)) MINT(121)=4 + IF(MINT(11).EQ.22.AND.MINT(12).EQ.22) MINT(121)=13 + ENDIF + MINT(123)=MSTP(14) + IF((MSTP(14).EQ.10.OR.MSTP(14).EQ.20.OR.MSTP(14).EQ.25.OR. + &MSTP(14).EQ.30).AND.MSEL.NE.1.AND.MSEL.NE.2) MINT(123)=0 + IF(MSTP(14).GE.11.AND.MSTP(14).LE.19) THEN + IF(MSTP(14).EQ.11) MINT(123)=0 + IF(MSTP(14).EQ.12.OR.MSTP(14).EQ.14) MINT(123)=5 + IF(MSTP(14).EQ.13.OR.MSTP(14).EQ.17) MINT(123)=6 + IF(MSTP(14).EQ.15) MINT(123)=2 + IF(MSTP(14).EQ.16.OR.MSTP(14).EQ.18) MINT(123)=7 + IF(MSTP(14).EQ.19) MINT(123)=3 + ELSEIF(MSTP(14).GE.21.AND.MSTP(14).LE.24) THEN + IF(MSTP(14).EQ.21) MINT(123)=0 + IF(MSTP(14).EQ.22.OR.MSTP(14).EQ.23) MINT(123)=4 + IF(MSTP(14).EQ.24) MINT(123)=1 + ELSEIF(MSTP(14).GE.26.AND.MSTP(14).LE.29) THEN + IF(MSTP(14).EQ.26.OR.MSTP(14).EQ.28) MINT(123)=8 + IF(MSTP(14).EQ.27.OR.MSTP(14).EQ.29) MINT(123)=9 + ENDIF + +C...Set up kinematics of process. + CALL PYINKI(0) + +C...Set up kinematics for photons inside leptons. + IF(MINT(141).NE.0.OR.MINT(142).NE.0) CALL PYGAGA(1,WTGAGA) + +C...Precalculate flavour selection weights. + CALL PYKFIN + +C...Loop over gamma-p or gamma-gamma alternatives. + CKIN3=CKIN(3) + MSAV48=0 + DO 160 IGA=1,MINT(121) + CKIN(3)=CKIN3 + MINT(122)=IGA + +C...Select partonic subprocesses to be included in the simulation. + CALL PYINPR + MINT(101)=1 + MINT(102)=1 + MINT(103)=MINT(11) + MINT(104)=MINT(12) + +C...Count number of subprocesses on. + MINT(48)=0 + DO 130 ISUB=1,500 + IF(MINT(50).EQ.0.AND.ISUB.GE.91.AND.ISUB.LE.96.AND. + & MSUB(ISUB).EQ.1.AND.MINT(121).GT.1) THEN + MSUB(ISUB)=0 + ELSEIF(MINT(50).EQ.0.AND.ISUB.GE.91.AND.ISUB.LE.96.AND. + & MSUB(ISUB).EQ.1) THEN + WRITE(MSTU(11),5200) ISUB,CHLH(MINT(41)),CHLH(MINT(42)) + STOP + ELSEIF(MSUB(ISUB).EQ.1.AND.ISET(ISUB).EQ.-1) THEN + WRITE(MSTU(11),5300) ISUB + STOP + ELSEIF(MSUB(ISUB).EQ.1.AND.ISET(ISUB).LE.-2) THEN + WRITE(MSTU(11),5400) ISUB + STOP + ELSEIF(MSUB(ISUB).EQ.1) THEN + MINT(48)=MINT(48)+1 + ENDIF + 130 CONTINUE + IF(MINT(121).EQ.1.AND.MINT(48).EQ.0) THEN + WRITE(MSTU(11),5500) + STOP + ENDIF + MINT(49)=MINT(48)-MSUB(91)-MSUB(92)-MSUB(93)-MSUB(94) + MSAV48=MSAV48+MINT(48) + +C...Reset variables for cross-section calculation. + DO 150 I=0,500 + DO 140 J=1,3 + NGEN(I,J)=0 + XSEC(I,J)=0D0 + 140 CONTINUE + 150 CONTINUE + +C...Find parametrized total cross-sections. + CALL PYXTOT + VINT(318)=VINT(317) + +C...Maxima of differential cross-sections. + IF(MSTP(121).LE.1) CALL PYMAXI + +C...Initialize possibility of pileup events. + IF(MINT(121).GT.1) MSTP(131)=0 + IF(MSTP(131).NE.0) CALL PYPILE(1) + +C...Initialize multiple interactions with variable impact parameter. + IF(MINT(50).EQ.1.AND.(MINT(49).NE.0.OR.MSTP(131).NE.0).AND. + & MSTP(82).GE.2) CALL PYMULT(1) + +C...Save results for gamma-p and gamma-gamma alternatives. + IF(MINT(121).GT.1) CALL PYSAVE(1,IGA) + 160 CONTINUE + +C...Initialization finished. + IF(MSAV48.EQ.0) THEN + WRITE(MSTU(11),5500) + STOP + ENDIF + 170 IF(MSTP(122).GE.1) WRITE(MSTU(11),5600) + +C...Formats for initialization information. + 5100 FORMAT('1',18('*'),1X,'PYINIT: initialization of PYTHIA ', + &'routines',1X,17('*')) + 5200 FORMAT(1X,'Error: process number ',I3,' not meaningful for ',A6, + &'-',A6,' interactions.'/1X,'Execution stopped!') + 5300 FORMAT(1X,'Error: requested subprocess',I4,' not implemented.'/ + &1X,'Execution stopped!') + 5400 FORMAT(1X,'Error: requested subprocess',I4,' not existing.'/ + &1X,'Execution stopped!') + 5500 FORMAT(1X,'Error: no subprocess switched on.'/ + &1X,'Execution stopped.') + 5600 FORMAT(/1X,22('*'),1X,'PYINIT: initialization completed',1X, + &22('*')) + + RETURN + END + +C********************************************************************* + +C...PYEVNT +C...Administers the generation of a high-pT event via calls to +C...a number of subroutines. + + SUBROUTINE PYEVNT + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + COMMON/PYINT4/MWID(500),WIDS(500,5) + COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3) + COMMON/PYUPPR/NUP,KUP(20,7),NFUP,IFUP(10,2),PUP(20,5),Q2UP(0:10) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYPARS/,/PYINT1/,/PYINT2/, + &/PYINT4/,/PYINT5/,/PYUPPR/ +C...Local array. + DIMENSION VTX(4) + +C...Initial values for some counters. + N=0 + MINT(5)=MINT(5)+1 + MINT(7)=0 + MINT(8)=0 + MINT(83)=0 + MINT(84)=MSTP(126) + MSTU(24)=0 + MSTU70=0 + MSTJ14=MSTJ(14) + +C...If variable energies: redo incoming kinematics and cross-section. + MSTI(61)=0 + IF(MSTP(171).EQ.1) THEN + CALL PYINKI(1) + IF(MSTI(61).EQ.1) THEN + MINT(5)=MINT(5)-1 + RETURN + ENDIF + IF(MINT(121).GT.1) CALL PYSAVE(3,1) + CALL PYXTOT + ENDIF + +C...Loop over number of pileup events; check space left. + IF(MSTP(131).LE.0) THEN + NPILE=1 + ELSE + CALL PYPILE(2) + NPILE=MINT(81) + ENDIF + DO 260 IPILE=1,NPILE + IF(MINT(84)+100.GE.MSTU(4)) THEN + CALL PYERRM(11, + & '(PYEVNT:) no more space in PYJETS for pileup events') + IF(MSTU(21).GE.1) GOTO 270 + ENDIF + MINT(82)=IPILE + +C...Generate variables of hard scattering. + MINT(51)=0 + MSTI(52)=0 + 100 CONTINUE + IF(MINT(51).NE.0.OR.MSTU(24).NE.0) MSTI(52)=MSTI(52)+1 + MINT(31)=0 + MINT(51)=0 + MINT(57)=0 + CALL PYRAND + IF(MSTI(61).EQ.1) THEN + MINT(5)=MINT(5)-1 + RETURN + ENDIF + IF(MINT(51).EQ.2) RETURN + ISUB=MINT(1) + IF(MSTP(111).EQ.-1) GOTO 250 + + IF((ISUB.LE.90.OR.ISUB.GE.95).AND.ISUB.NE.99) THEN +C...Hard scattering (including low-pT): +C...reconstruct kinematics and colour flow of hard scattering. + MINT31=MINT(31) + 110 MINT(31)=MINT31 + MINT(51)=0 + CALL PYSCAT + IF(MINT(51).EQ.1) GOTO 100 + IPU1=MINT(84)+1 + IPU2=MINT(84)+2 + IF(ISUB.EQ.95) GOTO 130 + +C...Showering of initial state partons (optional). + ALAMSV=PARJ(81) + PARJ(81)=PARP(72) + IF(MSTP(61).GE.1.AND.MINT(47).GE.2) CALL PYSSPA(IPU1,IPU2) + PARJ(81)=ALAMSV + IF(MINT(51).EQ.1) GOTO 100 + +C...Showering of final state partons (optional). + ALAMSV=PARJ(81) + PARJ(81)=PARP(72) + IF(MSTP(71).GE.1.AND.ISET(ISUB).GE.2.AND.ISET(ISUB).LE.10) + & THEN + IPU3=MINT(84)+3 + IPU4=MINT(84)+4 + IF(ISET(ISUB).EQ.5) IPU4=-3 + QMAX=VINT(55) + IF(ISET(ISUB).EQ.2) QMAX=SQRT(PARP(71))*VINT(55) + CALL PYSHOW(IPU3,IPU4,QMAX) + ELSEIF(MSTP(71).GE.1.AND.ISET(ISUB).EQ.11.AND.NFUP.GE.1) THEN + DO 120 IUP=1,NFUP + IPU3=IFUP(IUP,1)+MINT(84) + IPU4=IFUP(IUP,2)+MINT(84) + QMAX=SQRT(MAX(0D0,Q2UP(IUP))) + CALL PYSHOW(IPU3,IPU4,QMAX) + 120 CONTINUE + ENDIF + PARJ(81)=ALAMSV + +C...Decay of final state resonances. + MINT(32)=0 + IF(MSTP(41).GE.1.AND.ISET(ISUB).LE.10) CALL PYRESD(0) + IF(MINT(51).EQ.1) GOTO 100 + MINT(52)=N + +C...Multiple interactions. + IF(MSTP(81).GE.1.AND.MINT(50).EQ.1) CALL PYMULT(6) + MINT(53)=N + +C...Hadron remnants and primordial kT. + 130 CALL PYREMN(IPU1,IPU2) + IF(MINT(51).EQ.1.AND.MINT(57).GE.1.AND.MINT(57).LE.5) GOTO 110 + IF(MINT(51).EQ.1) GOTO 100 + + ELSEIF(ISUB.NE.99) THEN +C...Diffractive and elastic scattering. + CALL PYDIFF + + ELSE +C...DIS scattering (photon flux external). + CALL PYDISG + IF(MINT(51).EQ.1) GOTO 100 + ENDIF + +C...Check that no odd resonance left undecayed. + IF(MSTP(111).GE.1) THEN + NFIX=N + DO 140 I=MINT(84)+1,NFIX + IF(K(I,1).GE.1.AND.K(I,1).LE.10.AND.K(I,2).NE.21.AND. + & K(I,2).NE.22) THEN + IF(MWID(PYCOMP(K(I,2))).NE.0) THEN + CALL PYRESD(I) + IF(MINT(51).EQ.1) GOTO 100 + ENDIF + ENDIF + 140 CONTINUE + ENDIF + +C...Boost hadronic subsystem to overall rest frame. +C..(Only relevant when photon inside lepton beam.) + IF(MINT(141).NE.0.OR.MINT(142).NE.0) CALL PYGAGA(4,WTGAGA) + +C...Recalculate energies from momenta and masses (if desired). + IF(MSTP(113).GE.1) THEN + DO 150 I=MINT(83)+1,N + IF(K(I,1).GT.0.AND.K(I,1).LE.10) P(I,4)=SQRT(P(I,1)**2+ + & P(I,2)**2+P(I,3)**2+P(I,5)**2) + 150 CONTINUE + NRECAL=N + ENDIF + +C...Rearrange partons along strings, check invariant mass cuts. + MSTU(28)=0 + IF(MSTP(111).LE.0) MSTJ(14)=-1 + CALL PYPREP(MINT(84)+1) + MSTJ(14)=MSTJ14 + IF(MSTP(112).EQ.1.AND.MSTU(28).EQ.3) GOTO 100 + IF(MSTP(125).EQ.0.OR.MSTP(125).EQ.1) THEN + DO 180 I=MINT(84)+1,N + IF(K(I,2).EQ.94) THEN + DO 170 I1=I+1,MIN(N,I+3) + IF(K(I1,3).EQ.I) THEN + K(I1,3)=MOD(K(I1,4)/MSTU(5),MSTU(5)) + IF(K(I1,3).EQ.0) THEN + DO 160 II=MINT(84)+1,I-1 + IF(K(II,2).EQ.K(I1,2)) THEN + IF(MOD(K(II,4),MSTU(5)).EQ.I1.OR. + & MOD(K(II,5),MSTU(5)).EQ.I1) K(I1,3)=II + ENDIF + 160 CONTINUE + IF(K(I+1,3).EQ.0) K(I+1,3)=K(I,3) + ENDIF + ENDIF + 170 CONTINUE + ENDIF + 180 CONTINUE + CALL PYEDIT(12) + CALL PYEDIT(14) + IF(MSTP(125).EQ.0) CALL PYEDIT(15) + IF(MSTP(125).EQ.0) MINT(4)=0 + DO 200 I=MINT(83)+1,N + IF(K(I,1).EQ.11.AND.K(I,4).EQ.0.AND.K(I,5).EQ.0) THEN + DO 190 I1=I+1,N + IF(K(I1,3).EQ.I.AND.K(I,4).EQ.0) K(I,4)=I1 + IF(K(I1,3).EQ.I) K(I,5)=I1 + 190 CONTINUE + ENDIF + 200 CONTINUE + ENDIF + +C...Introduce separators between sections in PYLIST event listing. + IF(IPILE.EQ.1.AND.MSTP(125).LE.0) THEN + MSTU70=1 + MSTU(71)=N + ELSEIF(IPILE.EQ.1) THEN + MSTU70=3 + MSTU(71)=2 + MSTU(72)=MINT(4) + MSTU(73)=N + ENDIF + +C...Go back to lab frame (needed for vertices, also in fragmentation). + CALL PYFRAM(1) + +C...Set nonvanishing production vertex (optional). + IF(MSTP(151).EQ.1) THEN + DO 210 J=1,4 + VTX(J)=PARP(150+J)*SQRT(-2D0*LOG(MAX(1D-10,PYR(0))))* + & SIN(PARU(2)*PYR(0)) + 210 CONTINUE + DO 230 I=MINT(83)+1,N + DO 220 J=1,4 + V(I,J)=V(I,J)+VTX(J) + 220 CONTINUE + 230 CONTINUE + ENDIF + +C...Perform hadronization (if desired). + IF(MSTP(111).GE.1) THEN + CALL PYEXEC + IF(MSTU(24).NE.0) GOTO 100 + ENDIF + IF(MSTP(113).GE.1) THEN + DO 240 I=NRECAL,N + IF(P(I,5).GT.0D0) P(I,4)=SQRT(P(I,1)**2+ + & P(I,2)**2+P(I,3)**2+P(I,5)**2) + 240 CONTINUE + ENDIF + IF(MSTP(125).EQ.0.OR.MSTP(125).EQ.1) CALL PYEDIT(14) + +C...Store event information and calculate Monte Carlo estimates of +C...subprocess cross-sections. + 250 IF(IPILE.EQ.1) CALL PYDOCU + +C...Set counters for current pileup event and loop to next one. + MSTI(41)=IPILE + IF(IPILE.GE.2.AND.IPILE.LE.10) MSTI(40+IPILE)=ISUB + IF(MSTU70.LT.10) THEN + MSTU70=MSTU70+1 + MSTU(70+MSTU70)=N + ENDIF + MINT(83)=N + MINT(84)=N+MSTP(126) + IF(IPILE.LT.NPILE) CALL PYFRAM(2) + 260 CONTINUE + +C...Generic information on pileup events. Reconstruct missing history. + IF(MSTP(131).EQ.1.AND.MSTP(133).GE.1) THEN + PARI(91)=VINT(132) + PARI(92)=VINT(133) + PARI(93)=VINT(134) + IF(MSTP(133).GE.2) PARI(93)=PARI(93)*XSEC(0,3)/VINT(131) + ENDIF + CALL PYEDIT(16) + +C...Transform to the desired coordinate frame. + 270 CALL PYFRAM(MSTP(124)) + MSTU(70)=MSTU70 + PARU(21)=VINT(1) + + RETURN + END + +C*********************************************************************** + +C...PYSTAT +C...Prints out information about cross-sections, decay widths, branching +C...ratios, kinematical limits, status codes and parameter values. + + SUBROUTINE PYSTAT(MSTAT) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + COMMON/PYINT4/MWID(500),WIDS(500,5) + COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3) + COMMON/PYINT6/PROC(0:500) + CHARACTER PROC*28 + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + SAVE /PYDAT1/,/PYDAT2/,/PYDAT3/,/PYSUBS/,/PYPARS/,/PYINT1/, + &/PYINT2/,/PYINT4/,/PYINT5/,/PYINT6/,/PYMSSM/ +C...Local arrays, character variables and data. + DIMENSION WDTP(0:200),WDTE(0:200,0:5) + CHARACTER PROGA(6)*28,CHAU*16,CHKF*16,CHD1*16,CHD2*16,CHD3*16, + &CHIN(2)*12,STATE(-1:5)*4,CHKIN(21)*18,DISGA(2)*28, + &PROGG9(13)*28,PROGG4(4)*28,PROGG2(2)*28,PROGP4(4)*28 + DATA PROGA/ + &'VMD/hadron * VMD ','VMD/hadron * direct ', + &'VMD/hadron * anomalous ','direct * direct ', + &'direct * anomalous ','anomalous * anomalous '/ + DATA DISGA/'e * VMD','e * anomalous'/ + DATA PROGG9/ + &'direct * direct ','direct * VMD ', + &'direct * anomalous ','VMD * direct ', + &'VMD * VMD ','VMD * anomalous ', + &'anomalous * direct ','anomalous * VMD ', + &'anomalous * anomalous ','DIS * VMD ', + &'DIS * anomalous ','VMD * DIS ', + &'anomalous * DIS '/ + DATA PROGG4/ + &'direct * direct ','direct * resolved ', + &'resolved * direct ','resolved * resolved '/ + DATA PROGG2/ + &'direct * hadron ','resolved * hadron '/ + DATA PROGP4/ + &'VMD * hadron ','direct * hadron ', + &'anomalous * hadron ','DIS * hadron '/ + DATA STATE/'----','off ','on ','on/+','on/-','on/1','on/2'/, + &CHKIN/' m_hard (GeV/c^2) ',' p_T_hard (GeV/c) ', + &'m_finite (GeV/c^2)',' y*_subsystem ',' y*_large ', + &' y*_small ',' eta*_large ',' eta*_small ', + &'cos(theta*)_large ','cos(theta*)_small ',' x_1 ', + &' x_2 ',' x_F ',' cos(theta_hard) ', + &'m''_hard (GeV/c^2) ',' tau ',' y* ', + &'cos(theta_hard^-) ','cos(theta_hard^+) ',' x_T^2 ', + &' tau'' '/ + +C...Cross-sections. + IF(MSTAT.LE.1) THEN + IF(MINT(121).GT.1) CALL PYSAVE(5,0) + WRITE(MSTU(11),5000) + WRITE(MSTU(11),5100) + WRITE(MSTU(11),5200) 0,PROC(0),NGEN(0,3),NGEN(0,1),XSEC(0,3) + DO 100 I=1,500 + IF(MSUB(I).NE.1) GOTO 100 + WRITE(MSTU(11),5200) I,PROC(I),NGEN(I,3),NGEN(I,1),XSEC(I,3) + 100 CONTINUE + IF(MINT(121).GT.1) THEN + WRITE(MSTU(11),5300) + DO 110 IGA=1,MINT(121) + CALL PYSAVE(3,IGA) + IF(MINT(121).EQ.2.AND.MSTP(14).EQ.10) THEN + WRITE(MSTU(11),5200) IGA,DISGA(IGA),NGEN(0,3),NGEN(0,1), + & XSEC(0,3) + ELSEIF(MINT(121).EQ.9.OR.MINT(121).EQ.13) THEN + WRITE(MSTU(11),5200) IGA,PROGG9(IGA),NGEN(0,3),NGEN(0,1), + & XSEC(0,3) + ELSEIF(MINT(121).EQ.4.AND.MSTP(14).EQ.30) THEN + WRITE(MSTU(11),5200) IGA,PROGP4(IGA),NGEN(0,3),NGEN(0,1), + & XSEC(0,3) + ELSEIF(MINT(121).EQ.4) THEN + WRITE(MSTU(11),5200) IGA,PROGG4(IGA),NGEN(0,3),NGEN(0,1), + & XSEC(0,3) + ELSEIF(MINT(121).EQ.2) THEN + WRITE(MSTU(11),5200) IGA,PROGG2(IGA),NGEN(0,3),NGEN(0,1), + & XSEC(0,3) + ELSE + WRITE(MSTU(11),5200) IGA,PROGA(IGA),NGEN(0,3),NGEN(0,1), + & XSEC(0,3) + ENDIF + 110 CONTINUE + CALL PYSAVE(5,0) + ENDIF + WRITE(MSTU(11),5400) 1D0-DBLE(NGEN(0,3))/ + & MAX(1D0,DBLE(NGEN(0,2))) + +C...Decay widths and branching ratios. + ELSEIF(MSTAT.EQ.2) THEN + WRITE(MSTU(11),5500) + WRITE(MSTU(11),5600) + DO 140 KC=1,500 + KF=KCHG(KC,4) + CALL PYNAME(KF,CHKF) + IOFF=0 + IF(KC.LE.22) THEN + IF(KC.GT.2*MSTP(1).AND.KC.LE.10) GOTO 140 + IF(KC.GT.10+2*MSTP(1).AND.KC.LE.20) GOTO 140 + IF(KC.LE.5.OR.(KC.GE.11.AND.KC.LE.16)) IOFF=1 + IF(KC.EQ.18.AND.PMAS(18,1).LT.1D0) IOFF=1 + IF(KC.EQ.21.OR.KC.EQ.22) IOFF=1 + ELSE + IF(MWID(KC).LE.0) GOTO 140 + IF(IMSS(1).LE.0.AND.(KF/KSUSY1.EQ.1.OR. + & KF/KSUSY1.EQ.2)) GOTO 140 + ENDIF +C...Off-shell branchings. + IF(IOFF.EQ.1) THEN + NGP=0 + IF(KC.LE.20) NGP=(MOD(KC,10)+1)/2 + IF(NGP.LE.MSTP(1)) WRITE(MSTU(11),5700) KF,CHKF(1:10), + & PMAS(KC,1),0D0,0D0,STATE(MDCY(KC,1)),0D0 + DO 120 J=1,MDCY(KC,3) + IDC=J+MDCY(KC,2)-1 + NGP1=0 + IF(IABS(KFDP(IDC,1)).LE.20) NGP1= + & (MOD(IABS(KFDP(IDC,1)),10)+1)/2 + NGP2=0 + IF(IABS(KFDP(IDC,2)).LE.20) NGP2= + & (MOD(IABS(KFDP(IDC,2)),10)+1)/2 + CALL PYNAME(KFDP(IDC,1),CHD1) + CALL PYNAME(KFDP(IDC,2),CHD2) + IF(KFDP(IDC,3).EQ.0) THEN + IF(MDME(IDC,2).EQ.102.AND.NGP1.LE.MSTP(1).AND. + & NGP2.LE.MSTP(1)) WRITE(MSTU(11),5800) IDC,CHD1(1:10), + & CHD2(1:10),0D0,0D0,STATE(MDME(IDC,1)),0D0 + ELSE + CALL PYNAME(KFDP(IDC,3),CHD3) + IF(MDME(IDC,2).EQ.102.AND.NGP1.LE.MSTP(1).AND. + & NGP2.LE.MSTP(1)) WRITE(MSTU(11),5900) IDC,CHD1(1:10), + & CHD2(1:10),CHD3(1:10),0D0,0D0,STATE(MDME(IDC,1)),0D0 + ENDIF + 120 CONTINUE +C...On-shell decays. + ELSE + CALL PYWIDT(KF,PMAS(KC,1)**2,WDTP,WDTE) + BRFIN=1D0 + IF(WDTE(0,0).LE.0D0) BRFIN=0D0 + WRITE(MSTU(11),5700) KF,CHKF(1:10),PMAS(KC,1),WDTP(0),1D0, + & STATE(MDCY(KC,1)),BRFIN + DO 130 J=1,MDCY(KC,3) + IDC=J+MDCY(KC,2)-1 + NGP1=0 + IF(IABS(KFDP(IDC,1)).LE.20) NGP1= + & (MOD(IABS(KFDP(IDC,1)),10)+1)/2 + NGP2=0 + IF(IABS(KFDP(IDC,2)).LE.20) NGP2= + & (MOD(IABS(KFDP(IDC,2)),10)+1)/2 + BRFIN=0D0 + IF(WDTE(0,0).GT.0D0) BRFIN=WDTE(J,0)/WDTE(0,0) + CALL PYNAME(KFDP(IDC,1),CHD1) + CALL PYNAME(KFDP(IDC,2),CHD2) + IF(KFDP(IDC,3).EQ.0) THEN + IF(NGP1.LE.MSTP(1).AND.NGP2.LE.MSTP(1)) + & WRITE(MSTU(11),5800) IDC,CHD1(1:10), + & CHD2(1:10),WDTP(J),WDTP(J)/WDTP(0), + & STATE(MDME(IDC,1)),BRFIN + ELSE + CALL PYNAME(KFDP(IDC,3),CHD3) + IF(NGP1.LE.MSTP(1).AND.NGP2.LE.MSTP(1)) + & WRITE(MSTU(11),5900) IDC,CHD1(1:10), + & CHD2(1:10),CHD3(1:10),WDTP(J),WDTP(J)/WDTP(0), + & STATE(MDME(IDC,1)),BRFIN + ENDIF + 130 CONTINUE + ENDIF + 140 CONTINUE + WRITE(MSTU(11),6000) + +C...Allowed incoming partons/particles at hard interaction. + ELSEIF(MSTAT.EQ.3) THEN + WRITE(MSTU(11),6100) + CALL PYNAME(MINT(11),CHAU) + CHIN(1)=CHAU(1:12) + CALL PYNAME(MINT(12),CHAU) + CHIN(2)=CHAU(1:12) + WRITE(MSTU(11),6200) CHIN(1),CHIN(2) + DO 150 I=-20,22 + IF(I.EQ.0) GOTO 150 + IA=IABS(I) + IF(IA.GT.MSTP(58).AND.IA.LE.10) GOTO 150 + IF(IA.GT.10+2*MSTP(1).AND.IA.LE.20) GOTO 150 + CALL PYNAME(I,CHAU) + WRITE(MSTU(11),6300) CHAU,STATE(KFIN(1,I)),CHAU, + & STATE(KFIN(2,I)) + 150 CONTINUE + WRITE(MSTU(11),6400) + +C...User-defined limits on kinematical variables. + ELSEIF(MSTAT.EQ.4) THEN + WRITE(MSTU(11),6500) + WRITE(MSTU(11),6600) + SHRMAX=CKIN(2) + IF(SHRMAX.LT.0D0) SHRMAX=VINT(1) + WRITE(MSTU(11),6700) CKIN(1),CHKIN(1),SHRMAX + PTHMIN=MAX(CKIN(3),CKIN(5)) + PTHMAX=CKIN(4) + IF(PTHMAX.LT.0D0) PTHMAX=0.5D0*SHRMAX + WRITE(MSTU(11),6800) CKIN(3),PTHMIN,CHKIN(2),PTHMAX + WRITE(MSTU(11),6900) CHKIN(3),CKIN(6) + DO 160 I=4,14 + WRITE(MSTU(11),6700) CKIN(2*I-1),CHKIN(I),CKIN(2*I) + 160 CONTINUE + SPRMAX=CKIN(32) + IF(SPRMAX.LT.0D0) SPRMAX=VINT(1) + WRITE(MSTU(11),6700) CKIN(31),CHKIN(15),SPRMAX + WRITE(MSTU(11),7000) + +C...Status codes and parameter values. + ELSEIF(MSTAT.EQ.5) THEN + WRITE(MSTU(11),7100) + WRITE(MSTU(11),7200) + DO 170 I=1,100 + WRITE(MSTU(11),7300) I,MSTP(I),PARP(I),100+I,MSTP(100+I), + & PARP(100+I) + 170 CONTINUE + +C...List of all processes implemented in the program. + ELSEIF(MSTAT.EQ.6) THEN + WRITE(MSTU(11),7400) + WRITE(MSTU(11),7500) + DO 180 I=1,500 + IF(ISET(I).LT.0) GOTO 180 + WRITE(MSTU(11),7600) I,PROC(I),ISET(I),KFPR(I,1),KFPR(I,2) + 180 CONTINUE + WRITE(MSTU(11),7700) + ENDIF + +C...Formats for printouts. + 5000 FORMAT('1',9('*'),1X,'PYSTAT: Statistics on Number of ', + &'Events and Cross-sections',1X,9('*')) + 5100 FORMAT(/1X,78('=')/1X,'I',34X,'I',28X,'I',12X,'I'/1X,'I',12X, + &'Subprocess',12X,'I',6X,'Number of points',6X,'I',4X,'Sigma',3X, + &'I'/1X,'I',34X,'I',28X,'I',12X,'I'/1X,'I',34('-'),'I',28('-'), + &'I',4X,'(mb)',4X,'I'/1X,'I',34X,'I',28X,'I',12X,'I'/1X,'I',1X, + &'N:o',1X,'Type',25X,'I',4X,'Generated',9X,'Tried',1X,'I',12X, + &'I'/1X,'I',34X,'I',28X,'I',12X,'I'/1X,78('=')/1X,'I',34X,'I',28X, + &'I',12X,'I') + 5200 FORMAT(1X,'I',1X,I3,1X,A28,1X,'I',1X,I12,1X,I13,1X,'I',1X,1P, + &D10.3,1X,'I') + 5300 FORMAT(1X,'I',34X,'I',28X,'I',12X,'I'/1X,78('=')/ + &1X,'I',34X,'I',28X,'I',12X,'I') + 5400 FORMAT(1X,'I',34X,'I',28X,'I',12X,'I'/1X,78('=')// + &1X,'********* Fraction of events that fail fragmentation ', + &'cuts =',1X,F8.5,' *********'/) + 5500 FORMAT('1',27('*'),1X,'PYSTAT: Decay Widths and Branching ', + &'Ratios',1X,27('*')) + 5600 FORMAT(/1X,98('=')/1X,'I',49X,'I',13X,'I',12X,'I',6X,'I',12X,'I'/ + &1X,'I',5X,'Mother --> Branching/Decay Channel',8X,'I',1X, + &'Width (GeV)',1X,'I',7X,'B.R.',1X,'I',1X,'Stat',1X,'I',2X, + &'Eff. B.R.',1X,'I'/1X,'I',49X,'I',13X,'I',12X,'I',6X,'I',12X,'I'/ + &1X,98('=')) + 5700 FORMAT(1X,'I',49X,'I',13X,'I',12X,'I',6X,'I',12X,'I'/1X,'I',1X, + &I8,2X,A10,3X,'(m =',F10.3,')',2X,'-->',5X,'I',2X,1P,D10.3,0P,1X, + &'I',1X,1P,D10.3,0P,1X,'I',1X,A4,1X,'I',1X,1P,D10.3,0P,1X,'I') + 5800 FORMAT(1X,'I',1X,I8,2X,A10,1X,'+',1X,A10,15X,'I',2X, + &1P,D10.3,0P,1X,'I',1X,1P,D10.3,0P,1X,'I',1X,A4,1X,'I',1X, + &1P,D10.3,0P,1X,'I') + 5900 FORMAT(1X,'I',1X,I8,2X,A10,1X,'+',1X,A10,1X,'+',1X,A10,2X,'I',2X, + &1P,D10.3,0P,1X,'I',1X,1P,D10.3,0P,1X,'I',1X,A4,1X,'I',1X, + &1P,D10.3,0P,1X,'I') + 6000 FORMAT(1X,'I',49X,'I',13X,'I',12X,'I',6X,'I',12X,'I'/1X,98('=')) + 6100 FORMAT('1',7('*'),1X,'PYSTAT: Allowed Incoming Partons/', + &'Particles at Hard Interaction',1X,7('*')) + 6200 FORMAT(/1X,78('=')/1X,'I',38X,'I',37X,'I'/1X,'I',1X, + &'Beam particle:',1X,A12,10X,'I',1X,'Target particle:',1X,A12,7X, + &'I'/1X,'I',38X,'I',37X,'I'/1X,'I',1X,'Content',6X,'State',19X, + &'I',1X,'Content',6X,'State',18X,'I'/1X,'I',38X,'I',37X,'I'/1X, + &78('=')/1X,'I',38X,'I',37X,'I') + 6300 FORMAT(1X,'I',1X,A9,5X,A4,19X,'I',1X,A9,5X,A4,18X,'I') + 6400 FORMAT(1X,'I',38X,'I',37X,'I'/1X,78('=')) + 6500 FORMAT('1',12('*'),1X,'PYSTAT: User-Defined Limits on ', + &'Kinematical Variables',1X,12('*')) + 6600 FORMAT(/1X,78('=')/1X,'I',76X,'I') + 6700 FORMAT(1X,'I',16X,1P,D10.3,0P,1X,'<',1X,A,1X,'<',1X,1P,D10.3,0P, + &16X,'I') + 6800 FORMAT(1X,'I',3X,1P,D10.3,0P,1X,'(',1P,D10.3,0P,')',1X,'<',1X,A, + &1X,'<',1X,1P,D10.3,0P,16X,'I') + 6900 FORMAT(1X,'I',29X,A,1X,'=',1X,1P,D10.3,0P,16X,'I') + 7000 FORMAT(1X,'I',76X,'I'/1X,78('=')) + 7100 FORMAT('1',12('*'),1X,'PYSTAT: Summary of Status Codes and ', + &'Parameter Values',1X,12('*')) + 7200 FORMAT(/3X,'I',4X,'MSTP(I)',9X,'PARP(I)',20X,'I',4X,'MSTP(I)',9X, + &'PARP(I)'/) + 7300 FORMAT(1X,I3,5X,I6,6X,1P,D10.3,0P,18X,I3,5X,I6,6X,1P,D10.3) + 7400 FORMAT('1',13('*'),1X,'PYSTAT: List of implemented processes', + &1X,13('*')) + 7500 FORMAT(/1X,65('=')/1X,'I',34X,'I',28X,'I'/1X,'I',12X, + &'Subprocess',12X,'I',1X,'ISET',2X,'KFPR(I,1)',2X,'KFPR(I,2)',1X, + &'I'/1X,'I',34X,'I',28X,'I'/1X,65('=')/1X,'I',34X,'I',28X,'I') + 7600 FORMAT(1X,'I',1X,I3,1X,A28,1X,'I',1X,I4,1X,I10,1X,I10,1X,'I') + 7700 FORMAT(1X,'I',34X,'I',28X,'I'/1X,65('=')) + + RETURN + END + +C********************************************************************* + +C...PYINRE +C...Calculates full and effective widths of gauge bosons, stores +C...masses and widths, rescales coefficients to be used for +C...resonance production generation. + + SUBROUTINE PYINRE + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYDAT4/CHAF(500,2) + CHARACTER CHAF*16 + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + COMMON/PYINT4/MWID(500),WIDS(500,5) + COMMON/PYINT6/PROC(0:500) + CHARACTER PROC*28 + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + SAVE /PYDAT1/,/PYDAT2/,/PYDAT3/,/PYDAT4/,/PYSUBS/,/PYPARS/, + &/PYINT1/,/PYINT2/,/PYINT4/,/PYINT6/,/PYMSSM/ +C...Local arrays and data. + DIMENSION WDTP(0:200),WDTE(0:200,0:5),WDTPM(0:200), + &WDTEM(0:200,0:5),KCORD(500),PMORD(500) + +C...Born level couplings in MSSM Higgs doublet sector. + XW=PARU(102) + XWV=XW + IF(MSTP(8).GE.2) XW=1D0-(PMAS(24,1)/PMAS(23,1))**2 + XW1=1D0-XW + IF(MSTP(4).EQ.2) THEN + TANBE=PARU(141) + RATBE=((1D0-TANBE**2)/(1D0+TANBE**2))**2 + SQMZ=PMAS(23,1)**2 + SQMW=PMAS(24,1)**2 + SQMH=PMAS(25,1)**2 + SQMA=SQMH*(SQMZ-SQMH)/(SQMZ*RATBE-SQMH) + SQMHP=0.5D0*(SQMA+SQMZ+SQRT((SQMA+SQMZ)**2-4D0*SQMA*SQMZ*RATBE)) + SQMHC=SQMA+SQMW + IF(SQMH.GE.SQMZ.OR.MIN(SQMA,SQMHP,SQMHC).LE.0D0) THEN + WRITE(MSTU(11),5000) + STOP + ENDIF + PMAS(35,1)=SQRT(SQMHP) + PMAS(36,1)=SQRT(SQMA) + PMAS(37,1)=SQRT(SQMHC) + ALSU=0.5D0*ATAN(2D0*TANBE*(SQMA+SQMZ)/((1D0-TANBE**2)* + & (SQMA-SQMZ))) + BESU=ATAN(TANBE) + PARU(142)=1D0 + PARU(143)=1D0 + PARU(161)=-SIN(ALSU)/COS(BESU) + PARU(162)=COS(ALSU)/SIN(BESU) + PARU(163)=PARU(161) + PARU(164)=SIN(BESU-ALSU) + PARU(165)=PARU(164) + PARU(168)=SIN(BESU-ALSU)+0.5D0*COS(2D0*BESU)*SIN(BESU+ALSU)/XW + PARU(171)=COS(ALSU)/COS(BESU) + PARU(172)=SIN(ALSU)/SIN(BESU) + PARU(173)=PARU(171) + PARU(174)=COS(BESU-ALSU) + PARU(175)=PARU(174) + PARU(176)=COS(2D0*ALSU)*COS(BESU+ALSU)-2D0*SIN(2D0*ALSU)* + & SIN(BESU+ALSU) + PARU(177)=COS(2D0*BESU)*COS(BESU+ALSU) + PARU(178)=COS(BESU-ALSU)-0.5D0*COS(2D0*BESU)*COS(BESU+ALSU)/XW + PARU(181)=TANBE + PARU(182)=1D0/TANBE + PARU(183)=PARU(181) + PARU(184)=0D0 + PARU(185)=PARU(184) + PARU(186)=COS(BESU-ALSU) + PARU(187)=SIN(BESU-ALSU) + PARU(188)=PARU(186) + PARU(189)=PARU(187) + PARU(190)=0D0 + PARU(195)=COS(BESU-ALSU) + ENDIF + +C...Reset effective widths of gauge bosons. + DO 110 I=1,500 + DO 100 J=1,5 + WIDS(I,J)=1D0 + 100 CONTINUE + 110 CONTINUE + +C...Order resonances by increasing mass (except Z0 and W+/-). + NRES=0 + DO 140 KC=1,500 + KF=KCHG(KC,4) + IF(KF.EQ.0) GOTO 140 + IF(MWID(KC).EQ.0) GOTO 140 + IF(KC.EQ.7.OR.KC.EQ.8.OR.KC.EQ.17.OR.KC.EQ.18) THEN + IF(MSTP(1).LE.3) GOTO 140 + ENDIF + IF(KF/KSUSY1.EQ.1.OR.KF/KSUSY1.EQ.2) THEN + IF(IMSS(1).LE.0) GOTO 140 + ENDIF + NRES=NRES+1 + PMRES=PMAS(KC,1) + IF(KC.EQ.23.OR.KC.EQ.24) PMRES=0D0 + DO 120 I1=NRES-1,1,-1 + IF(PMRES.GE.PMORD(I1)) GOTO 130 + KCORD(I1+1)=KCORD(I1) + PMORD(I1+1)=PMORD(I1) + 120 CONTINUE + 130 KCORD(I1+1)=KC + PMORD(I1+1)=PMRES + 140 CONTINUE + +C...Loop over possible resonances. + DO 180 I=1,NRES + KC=KCORD(I) + KF=KCHG(KC,4) + +C...Check that no fourth generation channels on by mistake. + IF(MSTP(1).LE.3) THEN + DO 150 J=1,MDCY(KC,3) + IDC=J+MDCY(KC,2)-1 + KFA1=IABS(KFDP(IDC,1)) + KFA2=IABS(KFDP(IDC,2)) + IF(KFA1.EQ.7.OR.KFA1.EQ.8.OR.KFA1.EQ.17.OR.KFA1.EQ.18.OR. + & KFA2.EQ.7.OR.KFA2.EQ.8.OR.KFA2.EQ.17.OR.KFA2.EQ.18) + & MDME(IDC,1)=-1 + 150 CONTINUE + ENDIF + +C...Check that no supersymmetric channels on by mistake. + IF(IMSS(1).LE.0) THEN + DO 160 J=1,MDCY(KC,3) + IDC=J+MDCY(KC,2)-1 + KFA1S=IABS(KFDP(IDC,1))/KSUSY1 + KFA2S=IABS(KFDP(IDC,2))/KSUSY1 + IF(KFA1S.EQ.1.OR.KFA1S.EQ.2.OR.KFA2S.EQ.1.OR.KFA2S.EQ.2) + & MDME(IDC,1)=-1 + 160 CONTINUE + ENDIF + +C...Find mass and evaluate width. + PMR=PMAS(KC,1) + IF(KF.EQ.25.OR.KF.EQ.35.OR.KF.EQ.36) MINT(62)=1 + IF(MWID(KC).EQ.3) MINT(63)=1 + CALL PYWIDT(KF,PMR**2,WDTP,WDTE) + MINT(51)=0 + +C...Evaluate suppression factors due to non-simulated channels. + IF(KCHG(KC,3).EQ.0) THEN + WIDS(KC,1)=((WDTE(0,1)+WDTE(0,2))**2+ + & 2D0*(WDTE(0,1)+WDTE(0,2))*(WDTE(0,4)+WDTE(0,5))+ + & 2D0*WDTE(0,4)*WDTE(0,5))/WDTP(0)**2 + WIDS(KC,2)=(WDTE(0,1)+WDTE(0,2)+WDTE(0,4))/WDTP(0) + WIDS(KC,3)=0D0 + WIDS(KC,4)=0D0 + WIDS(KC,5)=0D0 + ELSE + IF(MWID(KC).EQ.3) MINT(63)=1 + CALL PYWIDT(-KF,PMR**2,WDTPM,WDTEM) + MINT(51)=0 + WIDS(KC,1)=((WDTE(0,1)+WDTE(0,2))*(WDTEM(0,1)+WDTEM(0,3))+ + & (WDTE(0,1)+WDTE(0,2))*(WDTEM(0,4)+WDTEM(0,5))+ + & (WDTE(0,4)+WDTE(0,5))*(WDTEM(0,1)+WDTEM(0,3))+ + & WDTE(0,4)*WDTEM(0,5)+WDTE(0,5)*WDTEM(0,4))/WDTP(0)**2 + WIDS(KC,2)=(WDTE(0,1)+WDTE(0,2)+WDTE(0,4))/WDTP(0) + WIDS(KC,3)=(WDTEM(0,1)+WDTEM(0,3)+WDTEM(0,4))/WDTP(0) + WIDS(KC,4)=((WDTE(0,1)+WDTE(0,2))**2+ + & 2D0*(WDTE(0,1)+WDTE(0,2))*(WDTE(0,4)+WDTE(0,5))+ + & 2D0*WDTE(0,4)*WDTE(0,5))/WDTP(0)**2 + WIDS(KC,5)=((WDTEM(0,1)+WDTEM(0,3))**2+ + & 2D0*(WDTEM(0,1)+WDTEM(0,3))*(WDTEM(0,4)+WDTEM(0,5))+ + & 2D0*WDTEM(0,4)*WDTEM(0,5))/WDTP(0)**2 + ENDIF + +C...Set resonance widths and branching ratios; +C...also on/off switch for decays. + IF(MWID(KC).EQ.1.OR.MWID(KC).EQ.3) THEN + PMAS(KC,2)=WDTP(0) + PMAS(KC,3)=MIN(0.9D0*PMAS(KC,1),10D0*PMAS(KC,2)) + MDCY(KC,1)=MSTP(41) + DO 170 J=1,MDCY(KC,3) + IDC=J+MDCY(KC,2)-1 + BRAT(IDC)=0D0 + IF(WDTP(0).GT.0D0) BRAT(IDC)=WDTP(J)/WDTP(0) + 170 CONTINUE + ENDIF + 180 CONTINUE + +C...Flavours of leptoquark: redefine charge and name. + KFLQQ=KFDP(MDCY(39,2),1) + KFLQL=KFDP(MDCY(39,2),2) + KCHG(39,1)=KCHG(PYCOMP(KFLQQ),1)*ISIGN(1,KFLQQ)+ + &KCHG(PYCOMP(KFLQL),1)*ISIGN(1,KFLQL) + LL=1 + IF(IABS(KFLQL).EQ.13) LL=2 + IF(IABS(KFLQL).EQ.15) LL=3 + CHAF(39,1)='LQ_'//CHAF(IABS(KFLQQ),1)(1:1)// + &CHAF(IABS(KFLQL),1)(1:LL)//' ' + CHAF(39,2)=CHAF(39,2)(1:4+LL)//'bar ' + +C...Special cases in treatment of gamma*/Z0: redefine process name. + IF(MSTP(43).EQ.1) THEN + PROC(1)='f + fbar -> gamma*' + PROC(15)='f + fbar -> g + gamma*' + PROC(19)='f + fbar -> gamma + gamma*' + PROC(30)='f + g -> f + gamma*' + PROC(35)='f + gamma -> f + gamma*' + ELSEIF(MSTP(43).EQ.2) THEN + PROC(1)='f + fbar -> Z0' + PROC(15)='f + fbar -> g + Z0' + PROC(19)='f + fbar -> gamma + Z0' + PROC(30)='f + g -> f + Z0' + PROC(35)='f + gamma -> f + Z0' + ELSEIF(MSTP(43).EQ.3) THEN + PROC(1)='f + fbar -> gamma*/Z0' + PROC(15)='f + fbar -> g + gamma*/Z0' + PROC(19)='f + fbar -> gamma + gamma*/Z0' + PROC(30)='f + g -> f + gamma*/Z0' + PROC(35)='f + gamma -> f + gamma*/Z0' + ENDIF + +C...Special cases in treatment of gamma*/Z0/Z'0: redefine process name. + IF(MSTP(44).EQ.1) THEN + PROC(141)='f + fbar -> gamma*' + ELSEIF(MSTP(44).EQ.2) THEN + PROC(141)='f + fbar -> Z0' + ELSEIF(MSTP(44).EQ.3) THEN + PROC(141)='f + fbar -> Z''0' + ELSEIF(MSTP(44).EQ.4) THEN + PROC(141)='f + fbar -> gamma*/Z0' + ELSEIF(MSTP(44).EQ.5) THEN + PROC(141)='f + fbar -> gamma*/Z''0' + ELSEIF(MSTP(44).EQ.6) THEN + PROC(141)='f + fbar -> Z0/Z''0' + ELSEIF(MSTP(44).EQ.7) THEN + PROC(141)='f + fbar -> gamma*/Z0/Z''0' + ENDIF + +C...Special cases in treatment of WW -> WW: redefine process name. + IF(MSTP(45).EQ.1) THEN + PROC(77)='W+ + W+ -> W+ + W+' + ELSEIF(MSTP(45).EQ.2) THEN + PROC(77)='W+ + W- -> W+ + W-' + ELSEIF(MSTP(45).EQ.3) THEN + PROC(77)='W+/- + W+/- -> W+/- + W+/-' + ENDIF + +C...Format for error information. + 5000 FORMAT(1X,'Error: unphysical input tan^2(beta) and m_H ', + &'combination'/1X,'Execution stopped!') + + RETURN + END + +C********************************************************************* + +C...PYINBM +C...Identifies the two incoming particles and the choice of frame. + + SUBROUTINE PYINBM(CHFRAM,CHBEAM,CHTARG,WIN) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYSUBS/,/PYPARS/,/PYINT1/ +C...Local arrays, character variables and data. + CHARACTER CHFRAM*12,CHBEAM*12,CHTARG*12,CHCOM(3)*12,CHALP(2)*26, + &CHIDNT(3)*12,CHTEMP*12,CHCDE(35)*12,CHINIT*76 + DIMENSION LEN(3),KCDE(35),PM(2) + DATA CHALP/'abcdefghijklmnopqrstuvwxyz', + &'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/ + DATA CHCDE/ 'e- ','e+ ','nu_e ', + &'nu_ebar ','mu- ','mu+ ','nu_mu ', + &'nu_mubar ','tau- ','tau+ ','nu_tau ', + &'nu_taubar ','pi+ ','pi- ','n0 ', + &'nbar0 ','p+ ','pbar- ','gamma ', + &'lambda0 ','sigma- ','sigma0 ','sigma+ ', + &'xi- ','xi0 ','omega- ','pi0 ', + &'reggeon ','pomeron ','gamma/e- ','gamma/e+ ', + &'gamma/mu- ','gamma/mu+ ','gamma/tau- ','gamma/tau+ '/ + DATA KCDE/11,-11,12,-12,13,-13,14,-14,15,-15,16,-16, + &211,-211,2112,-2112,2212,-2212,22,3122,3112,3212,3222, + &3312,3322,3334,111,28,29,6*22/ + +C...Store initial energy. Default frame. + VINT(290)=WIN + MINT(111)=0 + +C...Convert character variables to lowercase and find their length. + CHCOM(1)=CHFRAM + CHCOM(2)=CHBEAM + CHCOM(3)=CHTARG + DO 130 I=1,3 + LEN(I)=12 + DO 110 LL=12,1,-1 + IF(LEN(I).EQ.LL.AND.CHCOM(I)(LL:LL).EQ.' ') LEN(I)=LL-1 + DO 100 LA=1,26 + IF(CHCOM(I)(LL:LL).EQ.CHALP(2)(LA:LA)) CHCOM(I)(LL:LL)= + & CHALP(1)(LA:LA) + 100 CONTINUE + 110 CONTINUE + CHIDNT(I)=CHCOM(I) + +C...Fix up bar, underscore and charge in particle name (if needed). + DO 120 LL=1,10 + IF(CHIDNT(I)(LL:LL).EQ.'~') THEN + CHTEMP=CHIDNT(I) + CHIDNT(I)=CHTEMP(1:LL-1)//'bar'//CHTEMP(LL+1:10)//' ' + ENDIF + 120 CONTINUE + IF(CHIDNT(I)(1:2).EQ.'nu'.AND.CHIDNT(I)(3:3).NE.'_') THEN + CHTEMP=CHIDNT(I) + CHIDNT(I)='nu_'//CHTEMP(3:7) + ELSEIF(CHIDNT(I)(1:2).EQ.'n ') THEN + CHIDNT(I)(1:3)='n0 ' + ELSEIF(CHIDNT(I)(1:4).EQ.'nbar') THEN + CHIDNT(I)(1:5)='nbar0' + ELSEIF(CHIDNT(I)(1:2).EQ.'p ') THEN + CHIDNT(I)(1:3)='p+ ' + ELSEIF(CHIDNT(I)(1:4).EQ.'pbar'.OR. + & CHIDNT(I)(1:2).EQ.'p-') THEN + CHIDNT(I)(1:5)='pbar-' + ELSEIF(CHIDNT(I)(1:6).EQ.'lambda') THEN + CHIDNT(I)(7:7)='0' + ELSEIF(CHIDNT(I)(1:3).EQ.'reg') THEN + CHIDNT(I)(1:7)='reggeon' + ELSEIF(CHIDNT(I)(1:3).EQ.'pom') THEN + CHIDNT(I)(1:7)='pomeron' + ENDIF + 130 CONTINUE + +C...Identify free initialization. + IF(CHCOM(1)(1:2).EQ.'no') THEN + MINT(65)=1 + RETURN + ENDIF + +C...Identify incoming beam and target particles. + DO 160 I=1,2 + DO 140 J=1,35 + IF(CHIDNT(I+1).EQ.CHCDE(J)) MINT(10+I)=KCDE(J) + 140 CONTINUE + PM(I)=PYMASS(MINT(10+I)) + VINT(2+I)=PM(I) + MINT(140+I)=0 + IF(MINT(10+I).EQ.22.AND.CHIDNT(I+1)(6:6).EQ.'/') THEN + CHTEMP=CHIDNT(I+1)(7:12)//' ' + DO 150 J=1,12 + IF(CHTEMP.EQ.CHCDE(J)) MINT(140+I)=KCDE(J) + 150 CONTINUE + PM(I)=PYMASS(MINT(140+I)) + VINT(302+I)=PM(I) + ENDIF + 160 CONTINUE + IF(MINT(11).EQ.0) WRITE(MSTU(11),5000) CHBEAM(1:LEN(2)) + IF(MINT(12).EQ.0) WRITE(MSTU(11),5100) CHTARG(1:LEN(3)) + IF(MINT(11).EQ.0.OR.MINT(12).EQ.0) STOP + +C...Identify choice of frame and input energies. + CHINIT=' ' + +C...Events defined in the CM frame. + IF(CHCOM(1)(1:2).EQ.'cm') THEN + MINT(111)=1 + S=WIN**2 + IF(MSTP(122).GE.1) THEN + IF(CHCOM(2)(1:1).NE.'e') THEN + LOFFS=(31-(LEN(2)+LEN(3)))/2 + CHINIT(LOFFS+1:76)='PYTHIA will be initialized for a '// + & CHCOM(2)(1:LEN(2))//' on '//CHCOM(3)(1:LEN(3))// + & ' collider'//' ' + ELSE + LOFFS=(30-(LEN(2)+LEN(3)))/2 + CHINIT(LOFFS+1:76)='PYTHIA will be initialized for an '// + & CHCOM(2)(1:LEN(2))//' on '//CHCOM(3)(1:LEN(3))// + & ' collider'//' ' + ENDIF + WRITE(MSTU(11),5200) CHINIT + WRITE(MSTU(11),5300) WIN + ENDIF + +C...Events defined in fixed target frame. + ELSEIF(CHCOM(1)(1:3).EQ.'fix') THEN + MINT(111)=2 + S=PM(1)**2+PM(2)**2+2D0*PM(2)*SQRT(PM(1)**2+WIN**2) + IF(MSTP(122).GE.1) THEN + LOFFS=(29-(LEN(2)+LEN(3)))/2 + CHINIT(LOFFS+1:76)='PYTHIA will be initialized for '// + & CHCOM(2)(1:LEN(2))//' on '//CHCOM(3)(1:LEN(3))// + & ' fixed target'//' ' + WRITE(MSTU(11),5200) CHINIT + WRITE(MSTU(11),5400) WIN + WRITE(MSTU(11),5500) SQRT(S) + ENDIF + +C...Frame defined by user three-vectors. + ELSEIF(CHCOM(1)(1:3).EQ.'use') THEN + MINT(111)=3 + P(1,5)=PM(1) + P(2,5)=PM(2) + P(1,4)=SQRT(P(1,1)**2+P(1,2)**2+P(1,3)**2+P(1,5)**2) + P(2,4)=SQRT(P(2,1)**2+P(2,2)**2+P(2,3)**2+P(2,5)**2) + S=(P(1,4)+P(2,4))**2-(P(1,1)+P(2,1))**2-(P(1,2)+P(2,2))**2- + & (P(1,3)+P(2,3))**2 + IF(MSTP(122).GE.1) THEN + LOFFS=(22-(LEN(2)+LEN(3)))/2 + CHINIT(LOFFS+1:76)='PYTHIA will be initialized for '// + & CHCOM(2)(1:LEN(2))//' on '//CHCOM(3)(1:LEN(3))// + & ' user configuration'//' ' + WRITE(MSTU(11),5200) CHINIT + WRITE(MSTU(11),5600) + WRITE(MSTU(11),5700) CHCOM(2),P(1,1),P(1,2),P(1,3),P(1,4) + WRITE(MSTU(11),5700) CHCOM(3),P(2,1),P(2,2),P(2,3),P(2,4) + WRITE(MSTU(11),5500) SQRT(MAX(0D0,S)) + ENDIF + +C...Frame defined by user four-vectors. + ELSEIF(CHCOM(1)(1:4).EQ.'four') THEN + MINT(111)=4 + PMS1=P(1,4)**2-P(1,1)**2-P(1,2)**2-P(1,3)**2 + P(1,5)=SIGN(SQRT(ABS(PMS1)),PMS1) + PMS2=P(2,4)**2-P(2,1)**2-P(2,2)**2-P(2,3)**2 + P(2,5)=SIGN(SQRT(ABS(PMS2)),PMS2) + S=(P(1,4)+P(2,4))**2-(P(1,1)+P(2,1))**2-(P(1,2)+P(2,2))**2- + & (P(1,3)+P(2,3))**2 + IF(MSTP(122).GE.1) THEN + LOFFS=(22-(LEN(2)+LEN(3)))/2 + CHINIT(LOFFS+1:76)='PYTHIA will be initialized for '// + & CHCOM(2)(1:LEN(2))//' on '//CHCOM(3)(1:LEN(3))// + & ' user configuration'//' ' + WRITE(MSTU(11),5200) CHINIT + WRITE(MSTU(11),5600) + WRITE(MSTU(11),5700) CHCOM(2),P(1,1),P(1,2),P(1,3),P(1,4) + WRITE(MSTU(11),5700) CHCOM(3),P(2,1),P(2,2),P(2,3),P(2,4) + WRITE(MSTU(11),5500) SQRT(MAX(0D0,S)) + ENDIF + +C...Frame defined by user five-vectors. + ELSEIF(CHCOM(1)(1:4).EQ.'five') THEN + MINT(111)=5 + S=(P(1,4)+P(2,4))**2-(P(1,1)+P(2,1))**2-(P(1,2)+P(2,2))**2- + & (P(1,3)+P(2,3))**2 + IF(MSTP(122).GE.1) THEN + LOFFS=(22-(LEN(2)+LEN(3)))/2 + CHINIT(LOFFS+1:76)='PYTHIA will be initialized for '// + & CHCOM(2)(1:LEN(2))//' on '//CHCOM(3)(1:LEN(3))// + & ' user configuration'//' ' + WRITE(MSTU(11),5200) CHINIT + WRITE(MSTU(11),5600) + WRITE(MSTU(11),5700) CHCOM(2),P(1,1),P(1,2),P(1,3),P(1,4) + WRITE(MSTU(11),5700) CHCOM(3),P(2,1),P(2,2),P(2,3),P(2,4) + WRITE(MSTU(11),5500) SQRT(MAX(0D0,S)) + ENDIF + +C...Unknown frame. Error for too low CM energy. + ELSE + WRITE(MSTU(11),5800) CHFRAM(1:LEN(1)) + STOP + ENDIF + IF(S.LT.PARP(2)**2) THEN + WRITE(MSTU(11),5900) SQRT(S) + STOP + ENDIF + +C...Formats for initialization and error information. + 5000 FORMAT(1X,'Error: unrecognized beam particle ''',A,'''D0'/ + &1X,'Execution stopped!') + 5100 FORMAT(1X,'Error: unrecognized target particle ''',A,'''D0'/ + &1X,'Execution stopped!') + 5200 FORMAT(/1X,78('=')/1X,'I',76X,'I'/1X,'I',A76,'I') + 5300 FORMAT(1X,'I',18X,'at',1X,F10.3,1X,'GeV center-of-mass energy', + &19X,'I'/1X,'I',76X,'I'/1X,78('=')) + 5400 FORMAT(1X,'I',22X,'at',1X,F10.3,1X,'GeV/c lab-momentum',22X,'I') + 5500 FORMAT(1X,'I',76X,'I'/1X,'I',11X,'corresponding to',1X,F10.3,1X, + &'GeV center-of-mass energy',12X,'I'/1X,'I',76X,'I'/1X,78('=')) + 5600 FORMAT(1X,'I',76X,'I'/1X,'I',18X,'px (GeV/c)',3X,'py (GeV/c)',3X, + &'pz (GeV/c)',6X,'E (GeV)',9X,'I') + 5700 FORMAT(1X,'I',8X,A8,4(2X,F10.3,1X),8X,'I') + 5800 FORMAT(1X,'Error: unrecognized coordinate frame ''',A,'''D0'/ + &1X,'Execution stopped!') + 5900 FORMAT(1X,'Error: too low CM energy,',F8.3,' GeV for event ', + &'generation.'/1X,'Execution stopped!') + + RETURN + END + +C********************************************************************* + +C...PYINKI +C...Sets up kinematics, including rotations and boosts to/from CM frame. + + SUBROUTINE PYINKI(MODKI) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYSUBS/,/PYPARS/,/PYINT1/ + +C...Set initial flavour state. + N=2 + DO 100 I=1,2 + K(I,1)=1 + K(I,2)=MINT(10+I) + IF(MINT(140+I).NE.0) K(I,2)=MINT(140+I) + 100 CONTINUE + +C...Reset boost. Do kinematics for various cases. + DO 110 J=6,10 + VINT(J)=0D0 + 110 CONTINUE + +C...Set up kinematics for events defined in CM frame. + IF(MINT(111).EQ.1) THEN + WIN=VINT(290) + IF(MODKI.EQ.1) WIN=PARP(171)*VINT(290) + S=WIN**2 + P(1,5)=VINT(3) + P(2,5)=VINT(4) + IF(MINT(141).NE.0) P(1,5)=VINT(303) + IF(MINT(142).NE.0) P(2,5)=VINT(304) + P(1,1)=0D0 + P(1,2)=0D0 + P(2,1)=0D0 + P(2,2)=0D0 + P(1,3)=SQRT(((S-P(1,5)**2-P(2,5)**2)**2-(2D0*P(1,5)*P(2,5))**2)/ + & (4D0*S)) + P(2,3)=-P(1,3) + P(1,4)=SQRT(P(1,3)**2+P(1,5)**2) + P(2,4)=SQRT(P(2,3)**2+P(2,5)**2) + +C...Set up kinematics for fixed target events. + ELSEIF(MINT(111).EQ.2) THEN + WIN=VINT(290) + IF(MODKI.EQ.1) WIN=PARP(171)*VINT(290) + P(1,5)=VINT(3) + P(2,5)=VINT(4) + IF(MINT(141).NE.0) P(1,5)=VINT(303) + IF(MINT(142).NE.0) P(2,5)=VINT(304) + P(1,1)=0D0 + P(1,2)=0D0 + P(2,1)=0D0 + P(2,2)=0D0 + P(1,3)=WIN + P(1,4)=SQRT(P(1,3)**2+P(1,5)**2) + P(2,3)=0D0 + P(2,4)=P(2,5) + S=P(1,5)**2+P(2,5)**2+2D0*P(2,4)*P(1,4) + VINT(10)=P(1,3)/(P(1,4)+P(2,4)) + CALL PYROBO(0,0,0D0,0D0,0D0,0D0,-VINT(10)) + +C...Set up kinematics for events in user-defined frame. + ELSEIF(MINT(111).EQ.3) THEN + P(1,5)=VINT(3) + P(2,5)=VINT(4) + IF(MINT(141).NE.0) P(1,5)=VINT(303) + IF(MINT(142).NE.0) P(2,5)=VINT(304) + P(1,4)=SQRT(P(1,1)**2+P(1,2)**2+P(1,3)**2+P(1,5)**2) + P(2,4)=SQRT(P(2,1)**2+P(2,2)**2+P(2,3)**2+P(2,5)**2) + DO 120 J=1,3 + VINT(7+J)=(P(1,J)+P(2,J))/(P(1,4)+P(2,4)) + 120 CONTINUE + CALL PYROBO(0,0,0D0,0D0,-VINT(8),-VINT(9),-VINT(10)) + VINT(7)=PYANGL(P(1,1),P(1,2)) + CALL PYROBO(0,0,0D0,-VINT(7),0D0,0D0,0D0) + VINT(6)=PYANGL(P(1,3),P(1,1)) + CALL PYROBO(0,0,-VINT(6),0D0,0D0,0D0,0D0) + S=P(1,5)**2+P(2,5)**2+2D0*(P(1,4)*P(2,4)-P(1,3)*P(2,3)) + +C...Set up kinematics for events with user-defined four-vectors. + ELSEIF(MINT(111).EQ.4) THEN + PMS1=P(1,4)**2-P(1,1)**2-P(1,2)**2-P(1,3)**2 + P(1,5)=SIGN(SQRT(ABS(PMS1)),PMS1) + PMS2=P(2,4)**2-P(2,1)**2-P(2,2)**2-P(2,3)**2 + P(2,5)=SIGN(SQRT(ABS(PMS2)),PMS2) + DO 130 J=1,3 + VINT(7+J)=(P(1,J)+P(2,J))/(P(1,4)+P(2,4)) + 130 CONTINUE + CALL PYROBO(0,0,0D0,0D0,-VINT(8),-VINT(9),-VINT(10)) + VINT(7)=PYANGL(P(1,1),P(1,2)) + CALL PYROBO(0,0,0D0,-VINT(7),0D0,0D0,0D0) + VINT(6)=PYANGL(P(1,3),P(1,1)) + CALL PYROBO(0,0,-VINT(6),0D0,0D0,0D0,0D0) + S=(P(1,4)+P(2,4))**2 + +C...Set up kinematics for events with user-defined five-vectors. + ELSEIF(MINT(111).EQ.5) THEN + DO 140 J=1,3 + VINT(7+J)=(P(1,J)+P(2,J))/(P(1,4)+P(2,4)) + 140 CONTINUE + CALL PYROBO(0,0,0D0,0D0,-VINT(8),-VINT(9),-VINT(10)) + VINT(7)=PYANGL(P(1,1),P(1,2)) + CALL PYROBO(0,0,0D0,-VINT(7),0D0,0D0,0D0) + VINT(6)=PYANGL(P(1,3),P(1,1)) + CALL PYROBO(0,0,-VINT(6),0D0,0D0,0D0,0D0) + S=(P(1,4)+P(2,4))**2 + ENDIF + +C...Return or error for too low CM energy. + IF(MODKI.EQ.1.AND.S.LT.PARP(2)**2) THEN + IF(MSTP(172).LE.1) THEN + CALL PYERRM(23, + & '(PYINKI:) too low invariant mass in this event') + ELSE + MSTI(61)=1 + RETURN + ENDIF + ENDIF + +C...Save information on incoming particles. + VINT(1)=SQRT(S) + VINT(2)=S + IF(MINT(111).GE.4) THEN + IF(MINT(141).EQ.0) THEN + VINT(3)=P(1,5) + IF(MINT(11).EQ.22.AND.P(1,5).LT.0) VINT(307)=P(1,5)**2 + ELSE + VINT(303)=P(1,5) + ENDIF + IF(MINT(142).EQ.0) THEN + VINT(4)=P(2,5) + IF(MINT(12).EQ.22.AND.P(2,5).LT.0) VINT(308)=P(2,5)**2 + ELSE + VINT(304)=P(2,5) + ENDIF + ENDIF + VINT(5)=P(1,3) + IF(MODKI.EQ.0) VINT(289)=S + DO 150 J=1,5 + V(1,J)=0D0 + V(2,J)=0D0 + VINT(290+J)=P(1,J) + VINT(295+J)=P(2,J) + 150 CONTINUE + +C...Store pT cut-off and related constants to be used in generation. + IF(MODKI.EQ.0) VINT(285)=CKIN(3) + IF(MSTP(82).LE.1) THEN + PTMN=PARP(81)*(VINT(1)/PARP(89))**PARP(90) + ELSE + PTMN=PARP(82)*(VINT(1)/PARP(89))**PARP(90) + ENDIF + VINT(149)=4D0*PTMN**2/S + VINT(154)=PTMN + + RETURN + END + +C********************************************************************* + +C...PYINPR +C...Selects partonic subprocesses to be included in the simulation. + + SUBROUTINE PYINPR + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + SAVE /PYDAT1/,/PYDAT3/,/PYSUBS/,/PYPARS/,/PYINT1/,/PYINT2/ + +C...Reset processes to be included. + IF(MSEL.NE.0) THEN + DO 100 I=1,500 + MSUB(I)=0 + 100 CONTINUE + ENDIF + +C...Set running pTmin scale. + IF(MSTP(82).LE.1) THEN + PTMRUN=PARP(81)*(VINT(1)/PARP(89))**PARP(90) + ELSE + PTMRUN=PARP(82)*(VINT(1)/PARP(89))**PARP(90) + ENDIF + +C...Begin by assuming incoming photon to enter subprocess. + IF(MINT(11).EQ.22) MINT(15)=22 + IF(MINT(12).EQ.22) MINT(16)=22 + +C...For e-gamma with MSTP(14)=10 allow mixture of VMD and anomalous. + IF(MINT(121).EQ.2.AND.MSTP(14).EQ.10) THEN + MSUB(10)=1 + MINT(123)=MINT(122)+1 + +C...For gamma-p or gamma-gamma with MSTP(14) = 10, 20, 25 or 30 +C...allow mixture. +C...Here also set a few parameters otherwise normally not touched. + ELSEIF(MINT(121).GT.1) THEN + +C...Parton distributions dampened at small Q2; go to low energies, +C...alpha_s <1; no minimum pT cut-off a priori. + IF(MSTP(18).EQ.2) THEN + MSTP(57)=3 + PARP(2)=2D0 + PARU(115)=1D0 + CKIN(5)=0.2D0 + CKIN(6)=0.2D0 + ENDIF + +C...Define pT cut-off parameters and whether run involves low-pT. + PTMVMD=PTMRUN + VINT(154)=PTMVMD + PTMDIR=PTMVMD + IF(MSTP(18).EQ.2) PTMDIR=PARP(15) + PTMANO=PTMVMD + IF(MSTP(15).EQ.5) PTMANO=0.60D0+ + & 0.125D0*LOG(1D0+0.10D0*VINT(1))**2 + IPTL=1 + IF(VINT(285).GT.MAX(PTMVMD,PTMDIR,PTMANO)) IPTL=0 + IF(MSEL.EQ.2) IPTL=1 + +C...Set up for p/gamma * gamma; real or virtual photons. + IF(MINT(121).EQ.3.OR.MINT(121).EQ.6.OR.(MINT(121).EQ.4.AND. + & MSTP(14).EQ.30)) THEN + +C...Set up for p/VMD * VMD. + IF(MINT(122).EQ.1) THEN + MINT(123)=2 + MSUB(11)=1 + MSUB(12)=1 + MSUB(13)=1 + MSUB(28)=1 + MSUB(53)=1 + MSUB(68)=1 + IF(IPTL.EQ.1) MSUB(95)=1 + IF(MSEL.EQ.2) THEN + MSUB(91)=1 + MSUB(92)=1 + MSUB(93)=1 + MSUB(94)=1 + ENDIF + IF(IPTL.EQ.1) CKIN(3)=0D0 + +C...Set up for p/VMD * direct gamma. + ELSEIF(MINT(122).EQ.2) THEN + MINT(123)=0 + IF(MINT(121).EQ.6) MINT(123)=5 + MSUB(131)=1 + MSUB(132)=1 + MSUB(135)=1 + MSUB(136)=1 + IF(IPTL.EQ.1) CKIN(3)=PTMDIR + +C...Set up for p/VMD * anomalous gamma. + ELSEIF(MINT(122).EQ.3) THEN + MINT(123)=3 + IF(MINT(121).EQ.6) MINT(123)=7 + MSUB(11)=1 + MSUB(12)=1 + MSUB(13)=1 + MSUB(28)=1 + MSUB(53)=1 + MSUB(68)=1 + IF(IPTL.EQ.1) MSUB(95)=1 + IF(MSEL.EQ.2) THEN + MSUB(91)=1 + MSUB(92)=1 + MSUB(93)=1 + MSUB(94)=1 + ENDIF + IF(IPTL.EQ.1) CKIN(3)=0D0 + +C...Set up for DIS * p. + ELSEIF(MINT(122).EQ.4.AND.(IABS(MINT(11)).GE.28.OR. + & IABS(MINT(12)).GE.28)) THEN + MINT(123)=8 + IF(IPTL.EQ.1) MSUB(99)=1 + +C...Set up for direct * direct gamma (switch off leptons). + ELSEIF(MINT(122).EQ.4) THEN + MINT(123)=0 + MSUB(137)=1 + MSUB(138)=1 + MSUB(139)=1 + MSUB(140)=1 + DO 110 II=MDCY(22,2),MDCY(22,2)+MDCY(22,3)-1 + IF(IABS(KFDP(II,1)).GE.10) MDME(II,1)=MIN(0,MDME(II,1)) + 110 CONTINUE + IF(IPTL.EQ.1) CKIN(3)=PTMDIR + +C...Set up for direct * anomalous gamma. + ELSEIF(MINT(122).EQ.5) THEN + MINT(123)=6 + MSUB(131)=1 + MSUB(132)=1 + MSUB(135)=1 + MSUB(136)=1 + IF(IPTL.EQ.1) CKIN(3)=PTMANO + +C...Set up for anomalous * anomalous gamma. + ELSEIF(MINT(122).EQ.6) THEN + MINT(123)=3 + MSUB(11)=1 + MSUB(12)=1 + MSUB(13)=1 + MSUB(28)=1 + MSUB(53)=1 + MSUB(68)=1 + IF(IPTL.EQ.1) MSUB(95)=1 + IF(MSEL.EQ.2) THEN + MSUB(91)=1 + MSUB(92)=1 + MSUB(93)=1 + MSUB(94)=1 + ENDIF + IF(IPTL.EQ.1) CKIN(3)=0D0 + ENDIF + +C...Set up for gamma* * gamma*; virtual photons = dir, VMD, anom. + ELSEIF(MINT(121).EQ.9.OR.MINT(121).EQ.13) THEN + +C...Set up for direct * direct gamma (switch off leptons). + IF(MINT(122).EQ.1) THEN + MINT(123)=0 + MSUB(137)=1 + MSUB(138)=1 + MSUB(139)=1 + MSUB(140)=1 + DO 120 II=MDCY(22,2),MDCY(22,2)+MDCY(22,3)-1 + IF(IABS(KFDP(II,1)).GE.10) MDME(II,1)=MIN(0,MDME(II,1)) + 120 CONTINUE + IF(IPTL.EQ.1) CKIN(3)=PTMDIR + +C...Set up for direct * VMD and VMD * direct gamma. + ELSEIF(MINT(122).EQ.2.OR.MINT(122).EQ.4) THEN + MINT(123)=5 + MSUB(131)=1 + MSUB(132)=1 + MSUB(135)=1 + MSUB(136)=1 + IF(IPTL.EQ.1) CKIN(3)=PTMDIR + +C...Set up for direct * anomalous and anomalous * direct gamma. + ELSEIF(MINT(122).EQ.3.OR.MINT(122).EQ.7) THEN + MINT(123)=6 + MSUB(131)=1 + MSUB(132)=1 + MSUB(135)=1 + MSUB(136)=1 + IF(IPTL.EQ.1) CKIN(3)=PTMANO + +C...Set up for VMD*VMD. + ELSEIF(MINT(122).EQ.5) THEN + MINT(123)=2 + MSUB(11)=1 + MSUB(12)=1 + MSUB(13)=1 + MSUB(28)=1 + MSUB(53)=1 + MSUB(68)=1 + IF(IPTL.EQ.1) MSUB(95)=1 + IF(MSEL.EQ.2) THEN + MSUB(91)=1 + MSUB(92)=1 + MSUB(93)=1 + MSUB(94)=1 + ENDIF + IF(IPTL.EQ.1) CKIN(3)=0D0 + +C...Set up for VMD * anomalous and anomalous * VMD gamma. + ELSEIF(MINT(122).EQ.6.OR.MINT(122).EQ.8) THEN + MINT(123)=7 + MSUB(11)=1 + MSUB(12)=1 + MSUB(13)=1 + MSUB(28)=1 + MSUB(53)=1 + MSUB(68)=1 + IF(IPTL.EQ.1) MSUB(95)=1 + IF(MSEL.EQ.2) THEN + MSUB(91)=1 + MSUB(92)=1 + MSUB(93)=1 + MSUB(94)=1 + ENDIF + IF(IPTL.EQ.1) CKIN(3)=0D0 + +C...Set up for anomalous * anomalous gamma. + ELSEIF(MINT(122).EQ.9) THEN + MINT(123)=3 + MSUB(11)=1 + MSUB(12)=1 + MSUB(13)=1 + MSUB(28)=1 + MSUB(53)=1 + MSUB(68)=1 + IF(IPTL.EQ.1) MSUB(95)=1 + IF(MSEL.EQ.2) THEN + MSUB(91)=1 + MSUB(92)=1 + MSUB(93)=1 + MSUB(94)=1 + ENDIF + IF(IPTL.EQ.1) CKIN(3)=0D0 + +C...Set up for DIS * VMD and VMD * DIS gamma. + ELSEIF(MINT(122).EQ.10.OR.MINT(122).EQ.12) THEN + MINT(123)=8 + IF(IPTL.EQ.1) MSUB(99)=1 + +C...Set up for DIS * anomalous and anomalous * DIS gamma. + ELSEIF(MINT(122).EQ.11.OR.MINT(122).EQ.13) THEN + MINT(123)=9 + IF(IPTL.EQ.1) MSUB(99)=1 + ENDIF + +C...Set up for gamma* * p; virtual photons = dir, res. + ELSEIF(MINT(121).EQ.2) THEN + +C...Set up for direct * p. + IF(MINT(122).EQ.1) THEN + MINT(123)=0 + MSUB(131)=1 + MSUB(132)=1 + MSUB(135)=1 + MSUB(136)=1 + IF(IPTL.EQ.1) CKIN(3)=PTMDIR + +C...Set up for resolved * p. + ELSEIF(MINT(122).EQ.2) THEN + MINT(123)=1 + MSUB(11)=1 + MSUB(12)=1 + MSUB(13)=1 + MSUB(28)=1 + MSUB(53)=1 + MSUB(68)=1 + IF(IPTL.EQ.1) MSUB(95)=1 + IF(MSEL.EQ.2) THEN + MSUB(91)=1 + MSUB(92)=1 + MSUB(93)=1 + MSUB(94)=1 + ENDIF + IF(IPTL.EQ.1) CKIN(3)=0D0 + ENDIF + +C...Set up for gamma* * gamma*; virtual photons = dir, res. + ELSEIF(MINT(121).EQ.4) THEN + +C...Set up for direct * direct gamma (switch off leptons). + IF(MINT(122).EQ.1) THEN + MINT(123)=0 + MSUB(137)=1 + MSUB(138)=1 + MSUB(139)=1 + MSUB(140)=1 + DO 130 II=MDCY(22,2),MDCY(22,2)+MDCY(22,3)-1 + IF(IABS(KFDP(II,1)).GE.10) MDME(II,1)=MIN(0,MDME(II,1)) + 130 CONTINUE + IF(IPTL.EQ.1) CKIN(3)=PTMDIR + +C...Set up for direct * resolved and resolved * direct gamma. + ELSEIF(MINT(122).EQ.2.OR.MINT(122).EQ.3) THEN + MINT(123)=5 + MSUB(131)=1 + MSUB(132)=1 + MSUB(135)=1 + MSUB(136)=1 + IF(IPTL.EQ.1) CKIN(3)=PTMDIR + +C...Set up for resolved * resolved gamma. + ELSEIF(MINT(122).EQ.4) THEN + MINT(123)=2 + MSUB(11)=1 + MSUB(12)=1 + MSUB(13)=1 + MSUB(28)=1 + MSUB(53)=1 + MSUB(68)=1 + IF(IPTL.EQ.1) MSUB(95)=1 + IF(MSEL.EQ.2) THEN + MSUB(91)=1 + MSUB(92)=1 + MSUB(93)=1 + MSUB(94)=1 + ENDIF + IF(IPTL.EQ.1) CKIN(3)=0D0 + ENDIF + +C...End of special set up for gamma-p and gamma-gamma. + ENDIF + CKIN(1)=2D0*CKIN(3) + ENDIF + +C...Flavour information for individual beams. + DO 140 I=1,2 + MINT(40+I)=1 + IF(MINT(123).GE.1.AND.MINT(10+I).EQ.22) MINT(40+I)=2 + IF(IABS(MINT(10+I)).GT.100) MINT(40+I)=2 + IF(MINT(10+I).EQ.28.OR.MINT(10+I).EQ.29) MINT(40+I)=2 + MINT(44+I)=MINT(40+I) + IF(MSTP(11).GE.1.AND.(IABS(MINT(10+I)).EQ.11.OR. + & IABS(MINT(10+I)).EQ.13.OR.IABS(MINT(10+I)).EQ.15)) MINT(44+I)=3 + 140 CONTINUE + +C...If two real gammas, whereof one direct, pick the first. +C...For two virtual photons, keep requested order. + IF(MINT(11).EQ.22.AND.MINT(12).EQ.22) THEN + IF(MSTP(14).LE.10.AND.MINT(123).GE.4.AND.MINT(123).LE.6) THEN + MINT(41)=1 + MINT(45)=1 + ELSEIF(MSTP(14).EQ.12.OR.MSTP(14).EQ.13.OR.MSTP(14).EQ.22.OR. + & MSTP(14).EQ.26.OR.MSTP(14).EQ.27) THEN + MINT(41)=1 + MINT(45)=1 + ELSEIF(MSTP(14).EQ.14.OR.MSTP(14).EQ.17.OR.MSTP(14).EQ.23.OR. + & MSTP(14).EQ.28.OR.MSTP(14).EQ.29) THEN + MINT(42)=1 + MINT(46)=1 + ELSEIF((MSTP(14).EQ.20.OR.MSTP(14).EQ.30).AND.(MINT(122).EQ.2 + & .OR.MINT(122).EQ.3.OR.MINT(122).EQ.10.OR.MINT(122).EQ.11)) THEN + MINT(41)=1 + MINT(45)=1 + ELSEIF((MSTP(14).EQ.20.OR.MSTP(14).EQ.30).AND.(MINT(122).EQ.4 + & .OR.MINT(122).EQ.7.OR.MINT(122).EQ.12.OR.MINT(122).EQ.13)) THEN + MINT(42)=1 + MINT(46)=1 + ELSEIF(MSTP(14).EQ.25.AND.MINT(122).EQ.2) THEN + MINT(41)=1 + MINT(45)=1 + ELSEIF(MSTP(14).EQ.25.AND.MINT(122).EQ.3) THEN + MINT(42)=1 + MINT(46)=1 + ENDIF + ELSEIF(MINT(11).EQ.22.OR.MINT(12).EQ.22) THEN + IF(MSTP(14).EQ.26.OR.MSTP(14).EQ.28.OR.MINT(122).EQ.4) THEN + IF(MINT(11).EQ.22) THEN + MINT(41)=1 + MINT(45)=1 + ELSE + MINT(42)=1 + MINT(46)=1 + ENDIF + ENDIF + IF(MINT(123).GE.4.AND.MINT(123).LE.7) CALL PYERRM(26, + & '(PYINPR:) unallowed MSTP(14) code for single photon') + ENDIF + +C...Flavour information on combination of incoming particles. + MINT(43)=2*MINT(41)+MINT(42)-2 + MINT(44)=MINT(43) + IF(MINT(123).LE.0) THEN + IF(MINT(11).EQ.22) MINT(43)=MINT(43)+2 + IF(MINT(12).EQ.22) MINT(43)=MINT(43)+1 + ELSEIF(MINT(123).LE.3) THEN + IF(MINT(11).EQ.22) MINT(44)=MINT(44)-2 + IF(MINT(12).EQ.22) MINT(44)=MINT(44)-1 + ELSEIF(MINT(11).EQ.22.AND.MINT(12).EQ.22) THEN + MINT(43)=4 + MINT(44)=1 + ENDIF + MINT(47)=2*MIN(2,MINT(45))+MIN(2,MINT(46))-2 + IF(MIN(MINT(45),MINT(46)).EQ.3) MINT(47)=5 + IF(MINT(45).EQ.1.AND.MINT(46).EQ.3) MINT(47)=6 + IF(MINT(45).EQ.3.AND.MINT(46).EQ.1) MINT(47)=7 + MINT(50)=0 + IF(MINT(41).EQ.2.AND.MINT(42).EQ.2) MINT(50)=1 + MINT(107)=0 + MINT(108)=0 + IF(MINT(121).EQ.9.OR.MINT(121).EQ.13) THEN + IF((MINT(122).GE.4.AND.MINT(122).LE.6).OR.MINT(122).EQ.12) + & MINT(107)=2 + IF((MINT(122).GE.7.AND.MINT(122).LE.9).OR.MINT(122).EQ.13) + & MINT(107)=3 + IF(MINT(122).EQ.10.OR.MINT(122).EQ.11) MINT(107)=4 + IF(MINT(122).EQ.2.OR.MINT(122).EQ.5.OR.MINT(122).EQ.8.OR. + & MINT(122).EQ.10) MINT(108)=2 + IF(MINT(122).EQ.3.OR.MINT(122).EQ.6.OR.MINT(122).EQ.9.OR. + & MINT(122).EQ.11) MINT(108)=3 + IF(MINT(122).EQ.12.OR.MINT(122).EQ.13) MINT(108)=4 + ELSEIF(MINT(121).EQ.4.AND.MSTP(14).EQ.25) THEN + IF(MINT(122).GE.3) MINT(107)=1 + IF(MINT(122).EQ.2.OR.MINT(122).EQ.4) MINT(108)=1 + ELSEIF(MINT(121).EQ.2) THEN + IF(MINT(122).EQ.2.AND.MINT(11).EQ.22) MINT(107)=1 + IF(MINT(122).EQ.2.AND.MINT(12).EQ.22) MINT(108)=1 + ELSE + IF(MINT(11).EQ.22) THEN + MINT(107)=MINT(123) + IF(MINT(123).GE.4) MINT(107)=0 + IF(MINT(123).EQ.7) MINT(107)=2 + IF(MSTP(14).EQ.26.OR.MSTP(14).EQ.27) MINT(107)=4 + IF(MSTP(14).EQ.28) MINT(107)=2 + IF(MSTP(14).EQ.29) MINT(107)=3 + IF(MSTP(14).EQ.30.AND.MINT(121).EQ.4.AND.MINT(122).EQ.4) + & MINT(107)=4 + ENDIF + IF(MINT(12).EQ.22) THEN + MINT(108)=MINT(123) + IF(MINT(123).GE.4) MINT(108)=MINT(123)-3 + IF(MINT(123).EQ.7) MINT(108)=3 + IF(MSTP(14).EQ.26) MINT(108)=2 + IF(MSTP(14).EQ.27) MINT(108)=3 + IF(MSTP(14).EQ.28.OR.MSTP(14).EQ.29) MINT(108)=4 + IF(MSTP(14).EQ.30.AND.MINT(121).EQ.4.AND.MINT(122).EQ.4) + & MINT(108)=4 + ENDIF + IF(MINT(11).EQ.22.AND.MINT(12).EQ.22.AND.(MSTP(14).EQ.14.OR. + & MSTP(14).EQ.17.OR.MSTP(14).EQ.18.OR.MSTP(14).EQ.23)) THEN + MINTTP=MINT(107) + MINT(107)=MINT(108) + MINT(108)=MINTTP + ENDIF + ENDIF + IF(MINT(15).EQ.22.AND.MINT(41).EQ.2) MINT(15)=0 + IF(MINT(16).EQ.22.AND.MINT(42).EQ.2) MINT(16)=0 + +C...Select default processes according to incoming beams +C...(already done for gamma-p and gamma-gamma with +C...MSTP(14) = 10, 20, 25 or 30). + IF(MINT(121).GT.1) THEN + ELSEIF(MSEL.EQ.1.OR.MSEL.EQ.2) THEN + + IF(MINT(43).EQ.1) THEN +C...Lepton + lepton -> gamma/Z0 or W. + IF(MINT(11)+MINT(12).EQ.0) MSUB(1)=1 + IF(MINT(11)+MINT(12).NE.0) MSUB(2)=1 + + ELSEIF(MINT(43).LE.3.AND.MINT(123).EQ.0.AND. + & (MINT(11).EQ.22.OR.MINT(12).EQ.22)) THEN +C...Unresolved photon + lepton: Compton scattering. + MSUB(133)=1 + MSUB(134)=1 + + ELSEIF((MINT(123).EQ.8.OR.MINT(123).EQ.9).AND.(MINT(11).EQ.22 + & .OR.MINT(12).EQ.22)) THEN +C...DIS as pure gamma* + f -> f process. + MSUB(99)=1 + + ELSEIF(MINT(43).LE.3) THEN +C...Lepton + hadron: deep inelastic scattering. + MSUB(10)=1 + + ELSEIF(MINT(123).EQ.0.AND.MINT(11).EQ.22.AND. + & MINT(12).EQ.22) THEN +C...Two unresolved photons: fermion pair production, +C...exclude lepton pairs. + DO 150 ISUB=137,140 + MSUB(ISUB)=1 + 150 CONTINUE + DO 155 II=MDCY(22,2),MDCY(22,2)+MDCY(22,3)-1 + IF(IABS(KFDP(II,1)).GE.10) MDME(II,1)=MIN(0,MDME(II,1)) + 155 CONTINUE + PTMDIR=PTMRUN + IF(MSTP(18).EQ.2) PTMDIR=PARP(15) + IF(CKIN(3).LT.PTMRUN.OR.MSEL.EQ.2) CKIN(3)=PTMDIR + CKIN(1)=MAX(CKIN(1),2D0*CKIN(3)) + + ELSEIF((MINT(123).EQ.0.AND.(MINT(11).EQ.22.OR.MINT(12).EQ.22)) + & .OR.(MINT(123).GE.4.AND.MINT(123).LE.6.AND.MINT(11).EQ.22.AND. + & MINT(12).EQ.22)) THEN +C...Unresolved photon + hadron: photon-parton scattering. + DO 160 ISUB=131,136 + MSUB(ISUB)=1 + 160 CONTINUE + + ELSEIF(MSEL.EQ.1) THEN +C...High-pT QCD processes: + MSUB(11)=1 + MSUB(12)=1 + MSUB(13)=1 + MSUB(28)=1 + MSUB(53)=1 + MSUB(68)=1 + PTMN=PTMRUN + VINT(154)=PTMN + IF(CKIN(3).LT.PTMN) MSUB(95)=1 + IF(MSUB(95).EQ.1.AND.MINT(50).EQ.0) MSUB(95)=0 + + ELSE +C...All QCD processes: + MSUB(11)=1 + MSUB(12)=1 + MSUB(13)=1 + MSUB(28)=1 + MSUB(53)=1 + MSUB(68)=1 + MSUB(91)=1 + MSUB(92)=1 + MSUB(93)=1 + MSUB(94)=1 + MSUB(95)=1 + ENDIF + + ELSEIF(MSEL.GE.4.AND.MSEL.LE.8) THEN +C...Heavy quark production. + MSUB(81)=1 + MSUB(82)=1 + MSUB(84)=1 + DO 170 J=1,MIN(8,MDCY(21,3)) + MDME(MDCY(21,2)+J-1,1)=0 + 170 CONTINUE + MDME(MDCY(21,2)+MSEL-1,1)=1 + MSUB(85)=1 + DO 180 J=1,MIN(12,MDCY(22,3)) + MDME(MDCY(22,2)+J-1,1)=0 + 180 CONTINUE + MDME(MDCY(22,2)+MSEL-1,1)=1 + + ELSEIF(MSEL.EQ.10) THEN +C...Prompt photon production: + MSUB(14)=1 + MSUB(18)=1 + MSUB(29)=1 + + ELSEIF(MSEL.EQ.11) THEN +C...Z0/gamma* production: + MSUB(1)=1 + + ELSEIF(MSEL.EQ.12) THEN +C...W+/- production: + MSUB(2)=1 + + ELSEIF(MSEL.EQ.13) THEN +C...Z0 + jet: + MSUB(15)=1 + MSUB(30)=1 + + ELSEIF(MSEL.EQ.14) THEN +C...W+/- + jet: + MSUB(16)=1 + MSUB(31)=1 + + ELSEIF(MSEL.EQ.15) THEN +C...Z0 & W+/- pair production: + MSUB(19)=1 + MSUB(20)=1 + MSUB(22)=1 + MSUB(23)=1 + MSUB(25)=1 + + ELSEIF(MSEL.EQ.16) THEN +C...h0 production: + MSUB(3)=1 + MSUB(102)=1 + MSUB(103)=1 + MSUB(123)=1 + MSUB(124)=1 + + ELSEIF(MSEL.EQ.17) THEN +C...h0 & Z0 or W+/- pair production: + MSUB(24)=1 + MSUB(26)=1 + + ELSEIF(MSEL.EQ.18) THEN +C...h0 production; interesting processes in e+e-. + MSUB(24)=1 + MSUB(103)=1 + MSUB(123)=1 + MSUB(124)=1 + + ELSEIF(MSEL.EQ.19) THEN +C...h0, H0 and A0 production; interesting processes in e+e-. + MSUB(24)=1 + MSUB(103)=1 + MSUB(123)=1 + MSUB(124)=1 + MSUB(153)=1 + MSUB(171)=1 + MSUB(173)=1 + MSUB(174)=1 + MSUB(158)=1 + MSUB(176)=1 + MSUB(178)=1 + MSUB(179)=1 + + ELSEIF(MSEL.EQ.21) THEN +C...Z'0 production: + MSUB(141)=1 + + ELSEIF(MSEL.EQ.22) THEN +C...W'+/- production: + MSUB(142)=1 + + ELSEIF(MSEL.EQ.23) THEN +C...H+/- production: + MSUB(143)=1 + + ELSEIF(MSEL.EQ.24) THEN +C...R production: + MSUB(144)=1 + + ELSEIF(MSEL.EQ.25) THEN +C...LQ (leptoquark) production. + MSUB(145)=1 + MSUB(162)=1 + MSUB(163)=1 + MSUB(164)=1 + + ELSEIF(MSEL.GE.35.AND.MSEL.LE.38) THEN +C...Production of one heavy quark (W exchange): + MSUB(83)=1 + DO 190 J=1,MIN(8,MDCY(21,3)) + MDME(MDCY(21,2)+J-1,1)=0 + 190 CONTINUE + MDME(MDCY(21,2)+MSEL-31,1)=1 + +CMRENNA++Define SUSY alternatives. + ELSEIF(MSEL.EQ.39) THEN +C...Turn on all SUSY processes. + IF(MINT(43).EQ.4) THEN +C...Hadron-hadron processes. + DO 200 I=201,301 + IF(ISET(I).GE.0) MSUB(I)=1 + 200 CONTINUE + ELSEIF(MINT(43).EQ.1) THEN +C...Lepton-lepton processes: QED production of squarks. + DO 210 I=201,214 + MSUB(I)=1 + 210 CONTINUE + MSUB(210)=0 + MSUB(211)=0 + MSUB(212)=0 + DO 220 I=216,228 + MSUB(I)=1 + 220 CONTINUE + DO 230 I=261,263 + MSUB(I)=1 + 230 CONTINUE + MSUB(277)=1 + MSUB(278)=1 + ENDIF + + ELSEIF(MSEL.EQ.40) THEN +C...Gluinos and squarks. + IF(MINT(43).EQ.4) THEN + MSUB(243)=1 + MSUB(244)=1 + MSUB(258)=1 + MSUB(259)=1 + MSUB(261)=1 + MSUB(262)=1 + MSUB(264)=1 + MSUB(265)=1 + DO 240 I=271,296 + MSUB(I)=1 + 240 CONTINUE + ELSEIF(MINT(43).EQ.1) THEN + MSUB(277)=1 + MSUB(278)=1 + ENDIF + + ELSEIF(MSEL.EQ.41) THEN +C...Stop production. + MSUB(261)=1 + MSUB(262)=1 + MSUB(263)=1 + IF(MINT(43).EQ.4) THEN + MSUB(264)=1 + MSUB(265)=1 + ENDIF + + ELSEIF(MSEL.EQ.42) THEN +C...Slepton production. + DO 250 I=201,214 + MSUB(I)=1 + 250 CONTINUE + IF(MINT(43).NE.4) THEN + MSUB(210)=0 + MSUB(211)=0 + MSUB(212)=0 + ENDIF + + ELSEIF(MSEL.EQ.43) THEN +C...Neutralino/Chargino + Gluino/Squark. + IF(MINT(43).EQ.4) THEN + DO 260 I=237,242 + MSUB(I)=1 + 260 CONTINUE + DO 270 I=246,257 + MSUB(I)=1 + 270 CONTINUE + ENDIF + + ELSEIF(MSEL.EQ.44) THEN +C...Neutralino/Chargino pair production. + IF(MINT(43).EQ.4) THEN + DO 280 I=216,236 + MSUB(I)=1 + 280 CONTINUE + ELSEIF(MINT(43).EQ.1) THEN + DO 290 I=216,228 + MSUB(I)=1 + 290 CONTINUE + ENDIF + + ELSEIF(MSEL.EQ.45) THEN +C...Sbottom production. + MSUB(287)=1 + MSUB(288)=1 + IF(MINT(43).EQ.4) THEN + DO 300 I=281,296 + MSUB(I)=1 + 300 CONTINUE + ENDIF + + ELSEIF(MSEL.EQ.50) THEN + DO 305 I=361,368 + MSUB(I)=1 + 305 CONTINUE + IF(MINT(43).EQ.4) THEN + DO 307 I=370,377 + MSUB(I)=1 + 307 CONTINUE + ENDIF + + ENDIF + +C...Find heaviest new quark flavour allowed in processes 81-84. + KFLQM=1 + DO 310 I=1,MIN(8,MDCY(21,3)) + IDC=I+MDCY(21,2)-1 + IF(MDME(IDC,1).LE.0) GOTO 310 + KFLQM=I + 310 CONTINUE + IF(MSTP(7).GE.1.AND.MSTP(7).LE.8.AND.(MSEL.LE.3.OR.MSEL.GE.9)) + &KFLQM=MSTP(7) + MINT(55)=KFLQM + KFPR(81,1)=KFLQM + KFPR(81,2)=KFLQM + KFPR(82,1)=KFLQM + KFPR(82,2)=KFLQM + KFPR(83,1)=KFLQM + KFPR(84,1)=KFLQM + KFPR(84,2)=KFLQM + +C...Find heaviest new fermion flavour allowed in process 85. + KFLFM=1 + DO 320 I=1,MIN(12,MDCY(22,3)) + IDC=I+MDCY(22,2)-1 + IF(MDME(IDC,1).LE.0) GOTO 320 + KFLFM=KFDP(IDC,1) + 320 CONTINUE + IF(((MSTP(7).GE.1.AND.MSTP(7).LE.8).OR.(MSTP(7).GE.11.AND. + &MSTP(7).LE.18)).AND.(MSEL.LE.3.OR.MSEL.GE.9)) KFLFM=MSTP(7) + MINT(56)=KFLFM + KFPR(85,1)=KFLFM + KFPR(85,2)=KFLFM + + RETURN + END + +C********************************************************************* + +C...PYXTOT +C...Parametrizes total, elastic and diffractive cross-sections +C...for different energies and beams. Donnachie-Landshoff for +C...total and Schuler-Sjostrand for elastic and diffractive. +C...Process code IPROC: +C...= 1 : p + p; +C...= 2 : pbar + p; +C...= 3 : pi+ + p; +C...= 4 : pi- + p; +C...= 5 : pi0 + p; +C...= 6 : phi + p; +C...= 7 : J/psi + p; +C...= 11 : rho + rho; +C...= 12 : rho + phi; +C...= 13 : rho + J/psi; +C...= 14 : phi + phi; +C...= 15 : phi + J/psi; +C...= 16 : J/psi + J/psi; +C...= 21 : gamma + p (DL); +C...= 22 : gamma + p (VDM). +C...= 23 : gamma + pi (DL); +C...= 24 : gamma + pi (VDM); +C...= 25 : gamma + gamma (DL); +C...= 26 : gamma + gamma (VDM). + + SUBROUTINE PYXTOT + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3) + COMMON/PYINT7/SIGT(0:6,0:6,0:5) + SAVE /PYDAT1/,/PYDAT2/,/PYPARS/,/PYINT1/,/PYINT5/,/PYINT7/ +C...Local arrays. + DIMENSION NPROC(30),XPAR(30),YPAR(30),IHADA(20),IHADB(20), + &PMHAD(4),BHAD(4),BETP(4),IFITSD(20),IFITDD(20),CEFFS(10,8), + &CEFFD(10,9),SIGTMP(6,0:5) + +C...Common constants. + DATA EPS/0.0808D0/, ETA/-0.4525D0/, ALP/0.25D0/, CRES/2D0/, + &PMRC/1.062D0/, SMP/0.880D0/, FACEL/0.0511D0/, FACSD/0.0336D0/, + &FACDD/0.0084D0/ + +C...Number of multiple processes to be evaluated (= 0 : undefined). + DATA NPROC/7*1,3*0,6*1,4*0,4*3,2*6,4*0/ +C...X and Y parameters of sigmatot = X * s**epsilon + Y * s**(-eta). + DATA XPAR/2*21.70D0,3*13.63D0,10.01D0,0.970D0,3*0D0, + &8.56D0,6.29D0,0.609D0,4.62D0,0.447D0,0.0434D0,4*0D0, + &0.0677D0,0.0534D0,0.0425D0,0.0335D0,2.11D-4,1.31D-4,4*0D0/ + DATA YPAR/ + &56.08D0,98.39D0,27.56D0,36.02D0,31.79D0,-1.51D0,-0.146D0,3*0D0, + &13.08D0,-0.62D0,-0.060D0,0.030D0,-0.0028D0,0.00028D0,4*0D0, + &0.129D0,0.115D0,0.081D0,0.072D0,2.15D-4,1.70D-4,4*0D0/ + +C...Beam and target hadron class: +C...= 1 : p/n ; = 2 : pi/rho/omega; = 3 : phi; = 4 : J/psi. + DATA IHADA/2*1,3*2,3,4,3*0,3*2,2*3,4,4*0/ + DATA IHADB/7*1,3*0,2,3,4,3,2*4,4*0/ +C...Characteristic class masses, slope parameters, beta = sqrt(X). + DATA PMHAD/0.938D0,0.770D0,1.020D0,3.097D0/ + DATA BHAD/2.3D0,1.4D0,1.4D0,0.23D0/ + DATA BETP/4.658D0,2.926D0,2.149D0,0.208D0/ + +C...Fitting constants used in parametrizations of diffractive results. + DATA IFITSD/2*1,3*2,3,4,3*0,5,6,7,8,9,10,4*0/ + DATA IFITDD/2*1,3*2,3,4,3*0,5,6,7,8,9,10,4*0/ + DATA ((CEFFS(J1,J2),J2=1,8),J1=1,10)/ + &0.213D0, 0.0D0, -0.47D0, 150D0, 0.213D0, 0.0D0, -0.47D0, 150D0, + &0.213D0, 0.0D0, -0.47D0, 150D0, 0.267D0, 0.0D0, -0.47D0, 100D0, + &0.213D0, 0.0D0, -0.47D0, 150D0, 0.232D0, 0.0D0, -0.47D0, 110D0, + &0.213D0, 7.0D0, -0.55D0, 800D0, 0.115D0, 0.0D0, -0.47D0, 110D0, + &0.267D0, 0.0D0, -0.46D0, 75D0, 0.267D0, 0.0D0, -0.46D0, 75D0, + &0.232D0, 0.0D0, -0.46D0, 85D0, 0.267D0, 0.0D0, -0.48D0, 100D0, + &0.115D0, 0.0D0, -0.50D0, 90D0, 0.267D0, 6.0D0, -0.56D0, 420D0, + &0.232D0, 0.0D0, -0.48D0, 110D0, 0.232D0, 0.0D0, -0.48D0, 110D0, + &0.115D0, 0.0D0, -0.52D0, 120D0, 0.232D0, 6.0D0, -0.56D0, 470D0, + &0.115D0, 5.5D0, -0.58D0, 570D0, 0.115D0, 5.5D0, -0.58D0, 570D0/ + DATA ((CEFFD(J1,J2),J2=1,9),J1=1,10)/ + &3.11D0, -7.34D0, 9.71D0, 0.068D0, -0.42D0, 1.31D0, + &-1.37D0, 35.0D0, 118D0, 3.11D0, -7.10D0, 10.6D0, + &0.073D0, -0.41D0, 1.17D0, -1.41D0, 31.6D0, 95D0, + &3.12D0, -7.43D0, 9.21D0, 0.067D0, -0.44D0, 1.41D0, + &-1.35D0, 36.5D0, 132D0, 3.13D0, -8.18D0, -4.20D0, + &0.056D0, -0.71D0, 3.12D0, -1.12D0, 55.2D0, 1298D0, + &3.11D0, -6.90D0, 11.4D0, 0.078D0, -0.40D0, 1.05D0, + &-1.40D0, 28.4D0, 78D0, 3.11D0, -7.13D0, 10.0D0, + &0.071D0, -0.41D0, 1.23D0, -1.34D0, 33.1D0, 105D0, + &3.12D0, -7.90D0, -1.49D0, 0.054D0, -0.64D0, 2.72D0, + &-1.13D0, 53.1D0, 995D0, 3.11D0, -7.39D0, 8.22D0, + &0.065D0, -0.44D0, 1.45D0, -1.36D0, 38.1D0, 148D0, + &3.18D0, -8.95D0, -3.37D0, 0.057D0, -0.76D0, 3.32D0, + &-1.12D0, 55.6D0, 1472D0, 4.18D0, -29.2D0, 56.2D0, + &0.074D0, -1.36D0, 6.67D0, -1.14D0, 116.2D0, 6532D0/ + +C...Parameters. Combinations of the energy. + AEM=PARU(101) + PMTH=PARP(102) + S=VINT(2) + SRT=VINT(1) + SEPS=S**EPS + SETA=S**ETA + SLOG=LOG(S) + +C...Ratio of gamma/pi (for rescaling in parton distributions). + VINT(281)=(XPAR(22)*SEPS+YPAR(22)*SETA)/ + &(XPAR(5)*SEPS+YPAR(5)*SETA) + VINT(317)=1D0 + IF(MINT(50).NE.1) RETURN + +C...Order flavours of incoming particles: KF1 < KF2. + IF(IABS(MINT(11)).LE.IABS(MINT(12))) THEN + KF1=IABS(MINT(11)) + KF2=IABS(MINT(12)) + IORD=1 + ELSE + KF1=IABS(MINT(12)) + KF2=IABS(MINT(11)) + IORD=2 + ENDIF + ISGN12=ISIGN(1,MINT(11)*MINT(12)) + +C...Find process number (for lookup tables). + IF(KF1.GT.1000) THEN + IPROC=1 + IF(ISGN12.LT.0) IPROC=2 + ELSEIF(KF1.GT.100.AND.KF2.GT.1000) THEN + IPROC=3 + IF(ISGN12.LT.0) IPROC=4 + IF(KF1.EQ.111) IPROC=5 + ELSEIF(KF1.GT.100) THEN + IPROC=11 + ELSEIF(KF2.GT.1000) THEN + IPROC=21 + IF(MINT(123).EQ.2.OR.MINT(123).EQ.3) IPROC=22 + ELSEIF(KF2.GT.100) THEN + IPROC=23 + IF(MINT(123).EQ.2.OR.MINT(123).EQ.3) IPROC=24 + ELSE + IPROC=25 + IF(MINT(123).EQ.2.OR.MINT(123).EQ.3.OR.MINT(123).EQ.7) IPROC=26 + ENDIF + +C... Number of multiple processes to be stored; beam/target side. + NPR=NPROC(IPROC) + MINT(101)=1 + MINT(102)=1 + IF(NPR.EQ.3) THEN + MINT(100+IORD)=4 + ELSEIF(NPR.EQ.6) THEN + MINT(101)=4 + MINT(102)=4 + ENDIF + N1=0 + IF(MINT(101).EQ.4) N1=4 + N2=0 + IF(MINT(102).EQ.4) N2=4 + +C...Do not do any more for user-set or undefined cross-sections. + IF(MSTP(31).LE.0) RETURN + IF(NPR.EQ.0) CALL PYERRM(26, + &'(PYXTOT:) cross section for this process not yet implemented') + +C...Parameters. Combinations of the energy. + AEM=PARU(101) + PMTH=PARP(102) + S=VINT(2) + SRT=VINT(1) + SEPS=S**EPS + SETA=S**ETA + SLOG=LOG(S) + +C...Loop over multiple processes (for VDM). + DO 110 I=1,NPR + IF(NPR.EQ.1) THEN + IPR=IPROC + ELSEIF(NPR.EQ.3) THEN + IPR=I+4 + IF(KF2.LT.1000) IPR=I+10 + ELSEIF(NPR.EQ.6) THEN + IPR=I+10 + ENDIF + +C...Evaluate hadron species, mass, slope contribution and fit number. + IHA=IHADA(IPR) + IHB=IHADB(IPR) + PMA=PMHAD(IHA) + PMB=PMHAD(IHB) + BHA=BHAD(IHA) + BHB=BHAD(IHB) + ISD=IFITSD(IPR) + IDD=IFITDD(IPR) + +C...Skip if energy too low relative to masses. + DO 100 J=0,5 + SIGTMP(I,J)=0D0 + 100 CONTINUE + IF(SRT.LT.PMA+PMB+PARP(104)) GOTO 110 + +C...Total cross-section. Elastic slope parameter and cross-section. + SIGTMP(I,0)=XPAR(IPR)*SEPS+YPAR(IPR)*SETA + BEL=2D0*BHA+2D0*BHB+4D0*SEPS-4.2D0 + SIGTMP(I,1)=FACEL*SIGTMP(I,0)**2/BEL + +C...Diffractive scattering A + B -> X + B. + BSD=2D0*BHB + SQML=(PMA+PMTH)**2 + SQMU=S*CEFFS(ISD,1)+CEFFS(ISD,2) + SUM1=LOG((BSD+2D0*ALP*LOG(S/SQML))/ + & (BSD+2D0*ALP*LOG(S/SQMU)))/(2D0*ALP) + BXB=CEFFS(ISD,3)+CEFFS(ISD,4)/S + SUM2=CRES*LOG(1D0+((PMA+PMRC)/(PMA+PMTH))**2)/ + & (BSD+2D0*ALP*LOG(S/((PMA+PMTH)*(PMA+PMRC)))+BXB) + SIGTMP(I,2)=FACSD*XPAR(IPR)*BETP(IHB)*MAX(0D0,SUM1+SUM2) + +C...Diffractive scattering A + B -> A + X. + BSD=2D0*BHA + SQML=(PMB+PMTH)**2 + SQMU=S*CEFFS(ISD,5)+CEFFS(ISD,6) + SUM1=LOG((BSD+2D0*ALP*LOG(S/SQML))/ + & (BSD+2D0*ALP*LOG(S/SQMU)))/(2D0*ALP) + BAX=CEFFS(ISD,7)+CEFFS(ISD,8)/S + SUM2=CRES*LOG(1D0+((PMB+PMRC)/(PMB+PMTH))**2)/ + & (BSD+2D0*ALP*LOG(S/((PMB+PMTH)*(PMB+PMRC)))+BAX) + SIGTMP(I,3)=FACSD*XPAR(IPR)*BETP(IHA)*MAX(0D0,SUM1+SUM2) + +C...Order single diffractive correctly. + IF(IORD.EQ.2) THEN + SIGSAV=SIGTMP(I,2) + SIGTMP(I,2)=SIGTMP(I,3) + SIGTMP(I,3)=SIGSAV + ENDIF + +C...Double diffractive scattering A + B -> X1 + X2. + YEFF=LOG(S*SMP/((PMA+PMTH)*(PMB+PMTH))**2) + DEFF=CEFFD(IDD,1)+CEFFD(IDD,2)/SLOG+CEFFD(IDD,3)/SLOG**2 + SUM1=DEFF+YEFF*(LOG(MAX(1D-10,YEFF/DEFF))-1D0)/(2D0*ALP) + IF(YEFF.LE.0) SUM1=0D0 + SQMU=S*(CEFFD(IDD,4)+CEFFD(IDD,5)/SLOG+CEFFD(IDD,6)/SLOG**2) + SLUP=LOG(MAX(1.1D0,S/(ALP*(PMA+PMTH)**2*(PMB+PMTH)*(PMB+PMRC)))) + SLDN=LOG(MAX(1.1D0,S/(ALP*SQMU*(PMB+PMTH)*(PMB+PMRC)))) + SUM2=CRES*LOG(1D0+((PMB+PMRC)/(PMB+PMTH))**2)*LOG(SLUP/SLDN)/ + & (2D0*ALP) + SLUP=LOG(MAX(1.1D0,S/(ALP*(PMB+PMTH)**2*(PMA+PMTH)*(PMA+PMRC)))) + SLDN=LOG(MAX(1.1D0,S/(ALP*SQMU*(PMA+PMTH)*(PMA+PMRC)))) + SUM3=CRES*LOG(1D0+((PMA+PMRC)/(PMA+PMTH))**2)*LOG(SLUP/SLDN)/ + & (2D0*ALP) + BXX=CEFFD(IDD,7)+CEFFD(IDD,8)/SRT+CEFFD(IDD,9)/S + SLRR=LOG(S/(ALP*(PMA+PMTH)*(PMA+PMRC)*(PMB+PMTH)*(PMB*PMRC))) + SUM4=CRES**2*LOG(1D0+((PMA+PMRC)/(PMA+PMTH))**2)* + & LOG(1D0+((PMB+PMRC)/(PMB+PMTH))**2)/MAX(0.1D0,2D0*ALP*SLRR+BXX) + SIGTMP(I,4)=FACDD*XPAR(IPR)*MAX(0D0,SUM1+SUM2+SUM3+SUM4) + +C...Non-diffractive by unitarity. + SIGTMP(I,5)=SIGTMP(I,0)-SIGTMP(I,1)-SIGTMP(I,2)-SIGTMP(I,3)- + & SIGTMP(I,4) + 110 CONTINUE + +C...Put temporary results in output array: only one process. + IF(MINT(101).EQ.1.AND.MINT(102).EQ.1) THEN + DO 120 J=0,5 + SIGT(0,0,J)=SIGTMP(1,J) + 120 CONTINUE + +C...Beam multiple processes. + ELSEIF(MINT(101).EQ.4.AND.MINT(102).EQ.1) THEN + IF(MINT(107).EQ.2) THEN + VINT(317)=(PMHAD(2)**2/(PMHAD(2)**2+VINT(307)))**2 + ELSE + VINT(317)=16D0*PARP(15)**2*VINT(154)**2/ + & ((4D0*PARP(15)**2+VINT(307))*(4D0*VINT(154)**2+VINT(307))) + ENDIF + IF(MSTP(20).GT.0) THEN + VINT(317)=VINT(317)*(VINT(2)/(VINT(2)+VINT(307)))**MSTP(20) + ENDIF + DO 140 I=1,4 + IF(MINT(107).EQ.2) THEN + CONV=(AEM/PARP(160+I))*VINT(317) + ELSEIF(VINT(154).GT.PARP(15)) THEN + CONV=(AEM/PARU(1))*(KCHG(I,1)/3D0)**2*PARP(18)**2* + & (1D0/PARP(15)**2-1D0/VINT(154)**2)*VINT(317) + ELSE + CONV=0D0 + ENDIF + I1=MAX(1,I-1) + DO 130 J=0,5 + SIGT(I,0,J)=CONV*SIGTMP(I1,J) + 130 CONTINUE + 140 CONTINUE + DO 150 J=0,5 + SIGT(0,0,J)=SIGT(1,0,J)+SIGT(2,0,J)+SIGT(3,0,J)+SIGT(4,0,J) + 150 CONTINUE + +C...Target multiple processes. + ELSEIF(MINT(101).EQ.1.AND.MINT(102).EQ.4) THEN + IF(MINT(108).EQ.2) THEN + VINT(317)=(PMHAD(2)**2/(PMHAD(2)**2+VINT(308)))**2 + ELSE + VINT(317)=16D0*PARP(15)**2*VINT(154)**2/ + & ((4D0*PARP(15)**2+VINT(308))*(4D0*VINT(154)**2+VINT(308))) + ENDIF + IF(MSTP(20).GT.0) THEN + VINT(317)=VINT(317)*(VINT(2)/(VINT(2)+VINT(308)))**MSTP(20) + ENDIF + DO 170 I=1,4 + IF(MINT(108).EQ.2) THEN + CONV=(AEM/PARP(160+I))*VINT(317) + ELSEIF(VINT(154).GT.PARP(15)) THEN + CONV=(AEM/PARU(1))*(KCHG(I,1)/3D0)**2*PARP(18)**2* + & (1D0/PARP(15)**2-1D0/VINT(154)**2)*VINT(317) + ELSE + CONV=0D0 + ENDIF + IV=MAX(1,I-1) + DO 160 J=0,5 + SIGT(0,I,J)=CONV*SIGTMP(IV,J) + 160 CONTINUE + 170 CONTINUE + DO 180 J=0,5 + SIGT(0,0,J)=SIGT(0,1,J)+SIGT(0,2,J)+SIGT(0,3,J)+SIGT(0,4,J) + 180 CONTINUE + +C...Both beam and target multiple processes. + ELSE + IF(MINT(107).EQ.2) THEN + VINT(317)=(PMHAD(2)**2/(PMHAD(2)**2+VINT(307)))**2 + ELSE + VINT(317)=16D0*PARP(15)**2*VINT(154)**2/ + & ((4D0*PARP(15)**2+VINT(307))*(4D0*VINT(154)**2+VINT(307))) + ENDIF + IF(MINT(108).EQ.2) THEN + VINT(317)=VINT(317)*(PMHAD(2)**2/(PMHAD(2)**2+VINT(308)))**2 + ELSE + VINT(317)=VINT(317)*16D0*PARP(15)**2*VINT(154)**2/ + & ((4D0*PARP(15)**2+VINT(308))*(4D0*VINT(154)**2+VINT(308))) + ENDIF + IF(MSTP(20).GT.0) THEN + VINT(317)=VINT(317)*(VINT(2)/(VINT(2)+VINT(307)+ + & VINT(308)))**MSTP(20) + ENDIF + DO 210 I1=1,4 + DO 200 I2=1,4 + IF(MINT(107).EQ.2) THEN + CONV=(AEM/PARP(160+I1))*VINT(317) + ELSEIF(VINT(154).GT.PARP(15)) THEN + CONV=(AEM/PARU(1))*(KCHG(I1,1)/3D0)**2*PARP(18)**2* + & (1D0/PARP(15)**2-1D0/VINT(154)**2)*VINT(317) + ELSE + CONV=0D0 + ENDIF + IF(MINT(108).EQ.2) THEN + CONV=CONV*(AEM/PARP(160+I2)) + ELSEIF(VINT(154).GT.PARP(15)) THEN + CONV=CONV*(AEM/PARU(1))*(KCHG(I2,1)/3D0)**2*PARP(18)**2* + & (1D0/PARP(15)**2-1D0/VINT(154)**2) + ELSE + CONV=0D0 + ENDIF + IF(I1.LE.2) THEN + IV=MAX(1,I2-1) + ELSEIF(I2.LE.2) THEN + IV=MAX(1,I1-1) + ELSEIF(I1.EQ.I2) THEN + IV=2*I1-2 + ELSE + IV=5 + ENDIF + DO 190 J=0,5 + JV=J + IF(I2.GT.I1.AND.(J.EQ.2.OR.J.EQ.3)) JV=5-J + SIGT(I1,I2,J)=CONV*SIGTMP(IV,JV) + 190 CONTINUE + 200 CONTINUE + 210 CONTINUE + DO 230 J=0,5 + DO 220 I=1,4 + SIGT(I,0,J)=SIGT(I,1,J)+SIGT(I,2,J)+SIGT(I,3,J)+SIGT(I,4,J) + SIGT(0,I,J)=SIGT(1,I,J)+SIGT(2,I,J)+SIGT(3,I,J)+SIGT(4,I,J) + 220 CONTINUE + SIGT(0,0,J)=SIGT(1,0,J)+SIGT(2,0,J)+SIGT(3,0,J)+SIGT(4,0,J) + 230 CONTINUE + ENDIF + +C...Scale up uniformly for Donnachie-Landshoff parametrization. + IF(IPROC.EQ.21.OR.IPROC.EQ.23.OR.IPROC.EQ.25) THEN + RFAC=(XPAR(IPROC)*SEPS+YPAR(IPROC)*SETA)/SIGT(0,0,0) + DO 260 I1=0,N1 + DO 250 I2=0,N2 + DO 240 J=0,5 + SIGT(I1,I2,J)=RFAC*SIGT(I1,I2,J) + 240 CONTINUE + 250 CONTINUE + 260 CONTINUE + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYMAXI +C...Finds optimal set of coefficients for kinematical variable selection +C...and the maximum of the part of the differential cross-section used +C...in the event weighting. + + SUBROUTINE PYMAXI + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + COMMON/PYINT3/XSFX(2,-40:40),ISIG(1000,3),SIGH(1000) + COMMON/PYINT4/MWID(500),WIDS(500,5) + COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3) + COMMON/PYINT6/PROC(0:500) + CHARACTER PROC*28 + COMMON/PYINT7/SIGT(0:6,0:6,0:5) + SAVE /PYDAT1/,/PYDAT2/,/PYDAT3/,/PYSUBS/,/PYPARS/,/PYINT1/, + &/PYINT2/,/PYINT3/,/PYINT4/,/PYINT5/,/PYINT6/,/PYINT7/ +C...Local arrays, character variables and data. + CHARACTER CVAR(4)*4 + DIMENSION NPTS(4),MVARPT(500,4),VINTPT(500,30),SIGSPT(500), + &NAREL(7),WTREL(7),WTMAT(7,7),WTRELN(7),COEFU(7),COEFO(7), + &IACCMX(4),SIGSMX(4),SIGSSM(3),PMMN(2) + DATA CVAR/'tau ','tau''','y* ','cth '/ + DATA SIGSSM/3*0D0/ + +C...Initial values and loop over subprocesses. + NPOSI=0 + VINT(143)=1D0 + VINT(144)=1D0 + XSEC(0,1)=0D0 + DO 460 ISUB=1,500 + MINT(1)=ISUB + MINT(51)=0 + +C...Find maximum weight factors for photon flux. + IF(MSUB(ISUB).EQ.1.OR.(ISUB.GE.91.AND.ISUB.LE.100)) THEN + IF(MINT(141).NE.0.OR.MINT(142).NE.0) CALL PYGAGA(2,WTGAGA) + ENDIF + +C...Select subprocess to study: skip cases not applicable. + IF(ISET(ISUB).EQ.11) THEN + IF(MSUB(ISUB).NE.1) GOTO 460 + XSEC(ISUB,1)=1.00001D0*COEF(ISUB,1) + IF(MINT(141).NE.0.OR.MINT(142).NE.0) XSEC(ISUB,1)= + & WTGAGA*XSEC(ISUB,1) + NPOSI=NPOSI+1 + GOTO 450 + ELSEIF(ISUB.GE.91.AND.ISUB.LE.95) THEN + CALL PYSIGH(NCHN,SIGS) + XSEC(ISUB,1)=SIGS + IF(MINT(141).NE.0.OR.MINT(142).NE.0) XSEC(ISUB,1)= + & WTGAGA*XSEC(ISUB,1) + IF(MSUB(ISUB).NE.1) GOTO 460 + NPOSI=NPOSI+1 + GOTO 450 + ELSEIF(ISUB.EQ.99.AND.MSUB(ISUB).EQ.1) THEN + CALL PYSIGH(NCHN,SIGS) + XSEC(ISUB,1)=SIGS + IF(MINT(141).NE.0.OR.MINT(142).NE.0) XSEC(ISUB,1)= + & WTGAGA*XSEC(ISUB,1) + IF(XSEC(ISUB,1).EQ.0D0) THEN + MSUB(ISUB)=0 + ELSE + NPOSI=NPOSI+1 + ENDIF + GOTO 450 + ELSEIF(ISUB.EQ.96) THEN + IF(MINT(50).EQ.0) GOTO 460 + IF(MSUB(95).NE.1.AND.MSTP(81).LE.0.AND.MSTP(131).LE.0) + & GOTO 460 + IF(MINT(49).EQ.0.AND.MSTP(131).EQ.0) GOTO 460 + ELSEIF(ISUB.EQ.11.OR.ISUB.EQ.12.OR.ISUB.EQ.13.OR.ISUB.EQ.28.OR. + & ISUB.EQ.53.OR.ISUB.EQ.68) THEN + IF(MSUB(ISUB).NE.1.OR.MSUB(95).EQ.1) GOTO 460 + ELSE + IF(MSUB(ISUB).NE.1) GOTO 460 + ENDIF + ISTSB=ISET(ISUB) + IF(ISUB.EQ.96) ISTSB=2 + IF(MSTP(122).GE.2) WRITE(MSTU(11),5000) ISUB + MWTXS=0 + IF(MSTP(142).GE.1.AND.ISUB.NE.96.AND.MSUB(91)+MSUB(92)+MSUB(93)+ + & MSUB(94)+MSUB(95).EQ.0) MWTXS=1 + +C...Find resonances (explicit or implicit in cross-section). + MINT(72)=0 + KFR1=0 + IF(ISTSB.EQ.1.OR.ISTSB.EQ.3.OR.ISTSB.EQ.5) THEN + KFR1=KFPR(ISUB,1) + ELSEIF(ISUB.EQ.24.OR.ISUB.EQ.25.OR.ISUB.EQ.110.OR.ISUB.EQ.165 + & .OR.ISUB.EQ.171.OR.ISUB.EQ.176) THEN + KFR1=23 + ELSEIF(ISUB.EQ.23.OR.ISUB.EQ.26.OR.ISUB.EQ.166.OR.ISUB.EQ.172 + & .OR.ISUB.EQ.177) THEN + KFR1=24 + ELSEIF(ISUB.GE.71.AND.ISUB.LE.77) THEN + KFR1=25 + IF(MSTP(46).EQ.5) THEN + KFR1=30 + PMAS(30,1)=PARP(45) + PMAS(30,2)=PARP(45)**3/(96D0*PARU(1)*PARP(47)**2) + ENDIF + ELSEIF(ISUB.EQ.194) THEN + KFR1=54 + ELSEIF(ISUB.EQ.195) THEN + KFR1=55 + ELSEIF(ISUB.GE.361.AND.ISUB.LE.368) THEN + KFR1=54 + ELSEIF(ISUB.GE.370.AND.ISUB.LE.377) THEN + KFR1=55 + ENDIF + CKMX=CKIN(2) + IF(CKMX.LE.0D0) CKMX=VINT(1) + KCR1=PYCOMP(KFR1) + IF(KFR1.NE.0) THEN + IF(CKIN(1).GT.PMAS(KCR1,1)+20D0*PMAS(KCR1,2).OR. + & CKMX.LT.PMAS(KCR1,1)-20D0*PMAS(KCR1,2)) KFR1=0 + ENDIF + IF(KFR1.NE.0) THEN + TAUR1=PMAS(KCR1,1)**2/VINT(2) + IF(KFR1.EQ.54) THEN + CALL PYTECM(S1,S2) + TAUR1=S1/VINT(2) + ENDIF + GAMR1=PMAS(KCR1,1)*PMAS(KCR1,2)/VINT(2) + MINT(72)=1 + MINT(73)=KFR1 + VINT(73)=TAUR1 + VINT(74)=GAMR1 + ENDIF + KFR2=0 + IF(ISUB.EQ.141.OR.ISUB.EQ.194.OR.(ISUB.GE.364.AND.ISUB.LE.368)) + $ THEN + KFR2=23 + IF(ISUB.EQ.194) THEN + KFR2=56 + ELSEIF(ISUB.GE.364.AND.ISUB.LE.368) THEN + KFR2=56 + ENDIF + KCR2=PYCOMP(KFR2) + TAUR2=PMAS(KCR2,1)**2/VINT(2) + IF(KFR2.EQ.56) THEN + CALL PYTECM(S1,S2) + TAUR2=S2/VINT(2) + ENDIF + GAMR2=PMAS(KCR2,1)*PMAS(KCR2,2)/VINT(2) + IF(CKIN(1).GT.PMAS(KCR2,1)+20D0*PMAS(KCR2,2).OR. + & CKMX.LT.PMAS(KCR2,1)-20D0*PMAS(KCR2,2)) KFR2=0 + IF(KFR2.NE.0.AND.KFR1.NE.0) THEN + MINT(72)=2 + MINT(74)=KFR2 + VINT(75)=TAUR2 + VINT(76)=GAMR2 + ELSEIF(KFR2.NE.0) THEN + KFR1=KFR2 + TAUR1=TAUR2 + GAMR1=GAMR2 + MINT(72)=1 + MINT(73)=KFR1 + VINT(73)=TAUR1 + VINT(74)=GAMR1 + KFR2=0 + ENDIF + ENDIF + +C...Find product masses and minimum pT of process. + SQM3=0D0 + SQM4=0D0 + MINT(71)=0 + VINT(71)=CKIN(3) + VINT(80)=1D0 + IF(ISTSB.EQ.2.OR.ISTSB.EQ.4) THEN + NBW=0 + DO 110 I=1,2 + PMMN(I)=0D0 + IF(KFPR(ISUB,I).EQ.0) THEN + ELSEIF(MSTP(42).LE.0.OR.PMAS(PYCOMP(KFPR(ISUB,I)),2).LT. + & PARP(41)) THEN + IF(I.EQ.1) SQM3=PMAS(PYCOMP(KFPR(ISUB,I)),1)**2 + IF(I.EQ.2) SQM4=PMAS(PYCOMP(KFPR(ISUB,I)),1)**2 + ELSE + NBW=NBW+1 +C...This prevents SUSY/t particles from becoming too light. + KFLW=KFPR(ISUB,I) + IF(KFLW/KSUSY1.EQ.1.OR.KFLW/KSUSY1.EQ.2) THEN + KCW=PYCOMP(KFLW) + PMMN(I)=PMAS(KCW,1) + DO 100 IDC=MDCY(KCW,2),MDCY(KCW,2)+MDCY(KCW,3)-1 + IF(MDME(IDC,1).GT.0.AND.BRAT(IDC).GT.1E-4) THEN + PMSUM=PMAS(PYCOMP(KFDP(IDC,1)),1)+ + & PMAS(PYCOMP(KFDP(IDC,2)),1) + IF(KFDP(IDC,3).NE.0) PMSUM=PMSUM+ + & PMAS(PYCOMP(KFDP(IDC,3)),1) + PMMN(I)=MIN(PMMN(I),PMSUM) + ENDIF + 100 CONTINUE + ELSEIF(KFLW.EQ.6) THEN + PMMN(I)=PMAS(24,1)+PMAS(5,1) + ENDIF + ENDIF + 110 CONTINUE + IF(NBW.GE.1) THEN + CKIN41=CKIN(41) + CKIN43=CKIN(43) + CKIN(41)=MAX(PMMN(1),CKIN(41)) + CKIN(43)=MAX(PMMN(2),CKIN(43)) + CALL PYOFSH(3,0,KFPR(ISUB,1),KFPR(ISUB,2),0D0,PQM3,PQM4) + CKIN(41)=CKIN41 + CKIN(43)=CKIN43 + IF(MINT(51).EQ.1) THEN + WRITE(MSTU(11),5100) ISUB + MSUB(ISUB)=0 + GOTO 460 + ENDIF + SQM3=PQM3**2 + SQM4=PQM4**2 + ENDIF + IF(MIN(SQM3,SQM4).LT.CKIN(6)**2) MINT(71)=1 + IF(MINT(71).EQ.1) VINT(71)=MAX(CKIN(3),CKIN(5)) + IF(ISUB.EQ.96.AND.MSTP(82).LE.1) THEN + VINT(71)=PARP(81)*(VINT(1)/PARP(89))**PARP(90) + ELSEIF(ISUB.EQ.96) THEN + VINT(71)=0.08D0*PARP(82)*(VINT(1)/PARP(89))**PARP(90) + ENDIF + ENDIF + VINT(63)=SQM3 + VINT(64)=SQM4 + +C...Prepare for additional variable choices in 2 -> 3. + IF(ISTSB.EQ.5) THEN + VINT(201)=0D0 + IF(KFPR(ISUB,2).GT.0) VINT(201)=PMAS(PYCOMP(KFPR(ISUB,2)),1) + VINT(206)=VINT(201) + VINT(204)=PMAS(23,1) + IF(ISUB.EQ.124.OR.ISUB.EQ.351) VINT(204)=PMAS(24,1) + IF(ISUB.EQ.352) VINT(204)=PMAS(63,1) + IF(ISUB.EQ.121.OR.ISUB.EQ.122.OR.ISUB.EQ.181.OR.ISUB.EQ.182 + & .OR.ISUB.EQ.186.OR.ISUB.EQ.187) VINT(204)=VINT(201) + VINT(209)=VINT(204) + ENDIF + +C...Number of points for each variable: tau, tau', y*, cos(theta-hat). + NPTS(1)=2+2*MINT(72) + IF(MINT(47).EQ.1) THEN + IF(ISTSB.EQ.1.OR.ISTSB.EQ.2) NPTS(1)=1 + ELSEIF(MINT(47).GE.5) THEN + IF(ISTSB.LE.2.OR.ISTSB.GT.5) NPTS(1)=NPTS(1)+1 + ENDIF + NPTS(2)=1 + IF(ISTSB.GE.3.AND.ISTSB.LE.5) THEN + IF(MINT(47).GE.2) NPTS(2)=2 + IF(MINT(47).GE.5) NPTS(2)=3 + ENDIF + NPTS(3)=1 + IF(MINT(47).EQ.4.OR.MINT(47).EQ.5) THEN + NPTS(3)=3 + IF(MINT(45).EQ.3) NPTS(3)=NPTS(3)+1 + IF(MINT(46).EQ.3) NPTS(3)=NPTS(3)+1 + ENDIF + NPTS(4)=1 + IF(ISTSB.EQ.2.OR.ISTSB.EQ.4) NPTS(4)=5 + NTRY=NPTS(1)*NPTS(2)*NPTS(3)*NPTS(4) + +C...Reset coefficients of cross-section weighting. + DO 120 J=1,20 + COEF(ISUB,J)=0D0 + 120 CONTINUE + COEF(ISUB,1)=1D0 + COEF(ISUB,8)=0.5D0 + COEF(ISUB,9)=0.5D0 + COEF(ISUB,13)=1D0 + COEF(ISUB,18)=1D0 + MCTH=0 + MTAUP=0 + METAUP=0 + VINT(23)=0D0 + VINT(26)=0D0 + SIGSAM=0D0 + +C...Find limits and select tau, y*, cos(theta-hat) and tau' values, +C...in grid of phase space points. + CALL PYKLIM(1) + METAU=MINT(51) + NACC=0 + DO 150 ITRY=1,NTRY + MINT(51)=0 + IF(METAU.EQ.1) GOTO 150 + IF(MOD(ITRY-1,NPTS(2)*NPTS(3)*NPTS(4)).EQ.0) THEN + MTAU=1+(ITRY-1)/(NPTS(2)*NPTS(3)*NPTS(4)) + IF(MTAU.GT.2+2*MINT(72)) MTAU=7 + RTAU=0.5D0 +C...Special case when both resonances have same mass, +C...as is often the case in process 194. + IF(MINT(72).EQ.2) THEN + IF(ABS(PMAS(KCR2,1)-PMAS(KCR1,1)).LT. + & 0.01D0*(PMAS(KCR2,1)+PMAS(KCR1,1))) THEN + IF(MTAU.EQ.3.OR.MTAU.EQ.4) THEN + RTAU=0.4D0 + ELSEIF(MTAU.EQ.5.OR.MTAU.EQ.6) THEN + RTAU=0.6D0 + ENDIF + ENDIF + ENDIF + CALL PYKMAP(1,MTAU,RTAU) + IF(ISTSB.GE.3.AND.ISTSB.LE.5) CALL PYKLIM(4) + METAUP=MINT(51) + ENDIF + IF(METAUP.EQ.1) GOTO 150 + IF(ISTSB.GE.3.AND.ISTSB.LE.5.AND.MOD(ITRY-1,NPTS(3)*NPTS(4)) + & .EQ.0) THEN + MTAUP=1+MOD((ITRY-1)/(NPTS(3)*NPTS(4)),NPTS(2)) + CALL PYKMAP(4,MTAUP,0.5D0) + ENDIF + IF(MOD(ITRY-1,NPTS(3)*NPTS(4)).EQ.0) THEN + CALL PYKLIM(2) + MEYST=MINT(51) + ENDIF + IF(MEYST.EQ.1) GOTO 150 + IF(MOD(ITRY-1,NPTS(4)).EQ.0) THEN + MYST=1+MOD((ITRY-1)/NPTS(4),NPTS(3)) + IF(MYST.EQ.4.AND.MINT(45).NE.3) MYST=5 + CALL PYKMAP(2,MYST,0.5D0) + CALL PYKLIM(3) + MECTH=MINT(51) + ENDIF + IF(MECTH.EQ.1) GOTO 150 + IF(ISTSB.EQ.2.OR.ISTSB.EQ.4) THEN + MCTH=1+MOD(ITRY-1,NPTS(4)) + CALL PYKMAP(3,MCTH,0.5D0) + ENDIF + IF(ISUB.EQ.96) VINT(25)=VINT(21)*(1D0-VINT(23)**2) + +C...Store position and limits. + MINT(51)=0 + CALL PYKLIM(0) + IF(MINT(51).EQ.1) GOTO 150 + NACC=NACC+1 + MVARPT(NACC,1)=MTAU + MVARPT(NACC,2)=MTAUP + MVARPT(NACC,3)=MYST + MVARPT(NACC,4)=MCTH + DO 130 J=1,30 + VINTPT(NACC,J)=VINT(10+J) + 130 CONTINUE + +C...Normal case: calculate cross-section. + IF(ISTSB.NE.5) THEN + CALL PYSIGH(NCHN,SIGS) + IF(MWTXS.EQ.1) THEN + CALL PYEVWT(WTXS) + SIGS=WTXS*SIGS + ENDIF + +C..2 -> 3: find highest value out of a number of tries. + ELSE + SIGS=0D0 + DO 140 IKIN3=1,MSTP(129) + CALL PYKMAP(5,0,0D0) + IF(MINT(51).EQ.1) GOTO 140 + CALL PYSIGH(NCHN,SIGTMP) + IF(MWTXS.EQ.1) THEN + CALL PYEVWT(WTXS) + SIGTMP=WTXS*SIGTMP + ENDIF + IF(SIGTMP.GT.SIGS) SIGS=SIGTMP + 140 CONTINUE + ENDIF + +C...Store cross-section. + SIGSPT(NACC)=SIGS + IF(SIGS.GT.SIGSAM) SIGSAM=SIGS + IF(MSTP(122).GE.2) WRITE(MSTU(11),5200) MTAU,MYST,MCTH,MTAUP, + & VINT(21),VINT(22),VINT(23),VINT(26),SIGS + 150 CONTINUE + IF(NACC.EQ.0) THEN + WRITE(MSTU(11),5100) ISUB + MSUB(ISUB)=0 + GOTO 460 + ELSEIF(SIGSAM.EQ.0D0) THEN + WRITE(MSTU(11),5300) ISUB + MSUB(ISUB)=0 + GOTO 460 + ENDIF + IF(ISUB.NE.96) NPOSI=NPOSI+1 + +C...Calculate integrals in tau over maximal phase space limits. + TAUMIN=VINT(11) + TAUMAX=VINT(31) + ATAU1=LOG(TAUMAX/TAUMIN) + IF(NPTS(1).GE.2) THEN + ATAU2=(TAUMAX-TAUMIN)/(TAUMAX*TAUMIN) + ENDIF + IF(NPTS(1).GE.4) THEN + ATAU3=LOG(TAUMAX/TAUMIN*(TAUMIN+TAUR1)/(TAUMAX+TAUR1))/TAUR1 + ATAU4=(ATAN((TAUMAX-TAUR1)/GAMR1)-ATAN((TAUMIN-TAUR1)/GAMR1))/ + & GAMR1 + ENDIF + IF(NPTS(1).GE.6) THEN + ATAU5=LOG(TAUMAX/TAUMIN*(TAUMIN+TAUR2)/(TAUMAX+TAUR2))/TAUR2 + ATAU6=(ATAN((TAUMAX-TAUR2)/GAMR2)-ATAN((TAUMIN-TAUR2)/GAMR2))/ + & GAMR2 + ENDIF + IF(NPTS(1).GT.2+2*MINT(72)) THEN + ATAU7=LOG(MAX(2D-10,1D0-TAUMIN)/MAX(2D-10,1D0-TAUMAX)) + ENDIF + +C...Reset. Sum up cross-sections in points calculated. + DO 320 IVAR=1,4 + IF(NPTS(IVAR).EQ.1) GOTO 320 + IF(ISUB.EQ.96.AND.IVAR.EQ.4) GOTO 320 + NBIN=NPTS(IVAR) + DO 170 J1=1,NBIN + NAREL(J1)=0 + WTREL(J1)=0D0 + COEFU(J1)=0D0 + DO 160 J2=1,NBIN + WTMAT(J1,J2)=0D0 + 160 CONTINUE + 170 CONTINUE + DO 180 IACC=1,NACC + IBIN=MVARPT(IACC,IVAR) + IF(IVAR.EQ.1.AND.IBIN.EQ.7) IBIN=3+2*MINT(72) + IF(IVAR.EQ.3.AND.IBIN.EQ.5.AND.MINT(45).NE.3) IBIN=4 + NAREL(IBIN)=NAREL(IBIN)+1 + WTREL(IBIN)=WTREL(IBIN)+SIGSPT(IACC) + +C...Sum up tau cross-section pieces in points used. + IF(IVAR.EQ.1) THEN + TAU=VINTPT(IACC,11) + WTMAT(IBIN,1)=WTMAT(IBIN,1)+1D0 + WTMAT(IBIN,2)=WTMAT(IBIN,2)+(ATAU1/ATAU2)/TAU + IF(NBIN.GE.4) THEN + WTMAT(IBIN,3)=WTMAT(IBIN,3)+(ATAU1/ATAU3)/(TAU+TAUR1) + WTMAT(IBIN,4)=WTMAT(IBIN,4)+(ATAU1/ATAU4)*TAU/ + & ((TAU-TAUR1)**2+GAMR1**2) + ENDIF + IF(NBIN.GE.6) THEN + WTMAT(IBIN,5)=WTMAT(IBIN,5)+(ATAU1/ATAU5)/(TAU+TAUR2) + WTMAT(IBIN,6)=WTMAT(IBIN,6)+(ATAU1/ATAU6)*TAU/ + & ((TAU-TAUR2)**2+GAMR2**2) + ENDIF + IF(NBIN.GT.2+2*MINT(72)) THEN + WTMAT(IBIN,NBIN)=WTMAT(IBIN,NBIN)+(ATAU1/ATAU7)* + & TAU/MAX(2D-10,1D0-TAU) + ENDIF + +C...Sum up tau' cross-section pieces in points used. + ELSEIF(IVAR.EQ.2) THEN + TAU=VINTPT(IACC,11) + TAUP=VINTPT(IACC,16) + TAUPMN=VINTPT(IACC,6) + TAUPMX=VINTPT(IACC,26) + ATAUP1=LOG(TAUPMX/TAUPMN) + ATAUP2=((1D0-TAU/TAUPMX)**4-(1D0-TAU/TAUPMN)**4)/(4D0*TAU) + WTMAT(IBIN,1)=WTMAT(IBIN,1)+1D0 + WTMAT(IBIN,2)=WTMAT(IBIN,2)+(ATAUP1/ATAUP2)* + & (1D0-TAU/TAUP)**3/TAUP + IF(NBIN.GE.3) THEN + ATAUP3=LOG(MAX(2D-10,1D0-TAUPMN)/MAX(2D-10,1D0-TAUPMX)) + WTMAT(IBIN,3)=WTMAT(IBIN,3)+(ATAUP1/ATAUP3)* + & TAUP/MAX(2D-10,1D0-TAUP) + ENDIF + +C...Sum up y* cross-section pieces in points used. + ELSEIF(IVAR.EQ.3) THEN + YST=VINTPT(IACC,12) + YSTMIN=VINTPT(IACC,2) + YSTMAX=VINTPT(IACC,22) + AYST0=YSTMAX-YSTMIN + AYST1=0.5D0*(YSTMAX-YSTMIN)**2 + AYST2=AYST1 + AYST3=2D0*(ATAN(EXP(YSTMAX))-ATAN(EXP(YSTMIN))) + WTMAT(IBIN,1)=WTMAT(IBIN,1)+(AYST0/AYST1)*(YST-YSTMIN) + WTMAT(IBIN,2)=WTMAT(IBIN,2)+(AYST0/AYST2)*(YSTMAX-YST) + WTMAT(IBIN,3)=WTMAT(IBIN,3)+(AYST0/AYST3)/COSH(YST) + IF(MINT(45).EQ.3) THEN + TAUE=VINTPT(IACC,11) + IF(ISTSB.GE.3.AND.ISTSB.LE.5) TAUE=VINTPT(IACC,16) + YST0=-0.5D0*LOG(TAUE) + AYST4=LOG(MAX(1D-10,EXP(YST0-YSTMIN)-1D0)/ + & MAX(1D-10,EXP(YST0-YSTMAX)-1D0)) + WTMAT(IBIN,4)=WTMAT(IBIN,4)+(AYST0/AYST4)/ + & MAX(1D-10,1D0-EXP(YST-YST0)) + ENDIF + IF(MINT(46).EQ.3) THEN + TAUE=VINTPT(IACC,11) + IF(ISTSB.GE.3.AND.ISTSB.LE.5) TAUE=VINTPT(IACC,16) + YST0=-0.5D0*LOG(TAUE) + AYST5=LOG(MAX(1D-10,EXP(YST0+YSTMAX)-1D0)/ + & MAX(1D-10,EXP(YST0+YSTMIN)-1D0)) + WTMAT(IBIN,NBIN)=WTMAT(IBIN,NBIN)+(AYST0/AYST5)/ + & MAX(1D-10,1D0-EXP(-YST-YST0)) + ENDIF + +C...Sum up cos(theta-hat) cross-section pieces in points used. + ELSE + RM34=MAX(1D-20,2D0*SQM3*SQM4/(VINTPT(IACC,11)*VINT(2))**2) + RSQM=1D0+RM34 + CTHMAX=SQRT(1D0-4D0*VINT(71)**2/(TAUMAX*VINT(2))) + CTHMIN=-CTHMAX + IF(CTHMAX.GT.0.9999D0) RM34=MAX(RM34,2D0*VINT(71)**2/ + & (TAUMAX*VINT(2))) + ACTH1=CTHMAX-CTHMIN + ACTH2=LOG(MAX(RM34,RSQM-CTHMIN)/MAX(RM34,RSQM-CTHMAX)) + ACTH3=LOG(MAX(RM34,RSQM+CTHMAX)/MAX(RM34,RSQM+CTHMIN)) + ACTH4=1D0/MAX(RM34,RSQM-CTHMAX)-1D0/MAX(RM34,RSQM-CTHMIN) + ACTH5=1D0/MAX(RM34,RSQM+CTHMIN)-1D0/MAX(RM34,RSQM+CTHMAX) + CTH=VINTPT(IACC,13) + WTMAT(IBIN,1)=WTMAT(IBIN,1)+1D0 + WTMAT(IBIN,2)=WTMAT(IBIN,2)+(ACTH1/ACTH2)/ + & MAX(RM34,RSQM-CTH) + WTMAT(IBIN,3)=WTMAT(IBIN,3)+(ACTH1/ACTH3)/ + & MAX(RM34,RSQM+CTH) + WTMAT(IBIN,4)=WTMAT(IBIN,4)+(ACTH1/ACTH4)/ + & MAX(RM34,RSQM-CTH)**2 + WTMAT(IBIN,5)=WTMAT(IBIN,5)+(ACTH1/ACTH5)/ + & MAX(RM34,RSQM+CTH)**2 + ENDIF + 180 CONTINUE + +C...Check that equation system solvable. + IF(MSTP(122).GE.2) WRITE(MSTU(11),5400) CVAR(IVAR) + MSOLV=1 + WTRELS=0D0 + DO 190 IBIN=1,NBIN + IF(MSTP(122).GE.2) WRITE(MSTU(11),5500) (WTMAT(IBIN,IRED), + & IRED=1,NBIN),WTREL(IBIN) + IF(NAREL(IBIN).EQ.0) MSOLV=0 + WTRELS=WTRELS+WTREL(IBIN) + 190 CONTINUE + IF(ABS(WTRELS).LT.1D-20) MSOLV=0 + +C...Solve to find relative importance of cross-section pieces. + IF(MSOLV.EQ.1) THEN + DO 200 IBIN=1,NBIN + WTRELN(IBIN)=MAX(0.1D0,WTREL(IBIN)/WTRELS) + 200 CONTINUE + DO 230 IRED=1,NBIN-1 + DO 220 IBIN=IRED+1,NBIN + IF(ABS(WTMAT(IRED,IRED)).LT.1D-20) THEN + MSOLV=0 + GOTO 260 + ENDIF + RQT=WTMAT(IBIN,IRED)/WTMAT(IRED,IRED) + WTREL(IBIN)=WTREL(IBIN)-RQT*WTREL(IRED) + DO 210 ICOE=IRED,NBIN + WTMAT(IBIN,ICOE)=WTMAT(IBIN,ICOE)-RQT*WTMAT(IRED,ICOE) + 210 CONTINUE + 220 CONTINUE + 230 CONTINUE + DO 250 IRED=NBIN,1,-1 + DO 240 ICOE=IRED+1,NBIN + WTREL(IRED)=WTREL(IRED)-WTMAT(IRED,ICOE)*COEFU(ICOE) + 240 CONTINUE + COEFU(IRED)=WTREL(IRED)/WTMAT(IRED,IRED) + 250 CONTINUE + ENDIF + +C...Share evenly if failure. + 260 IF(MSOLV.EQ.0) THEN + DO 270 IBIN=1,NBIN + COEFU(IBIN)=1D0 + WTRELN(IBIN)=0.1D0 + IF(WTRELS.GT.0D0) WTRELN(IBIN)=MAX(0.1D0, + & WTREL(IBIN)/WTRELS) + 270 CONTINUE + ENDIF + +C...Normalize coefficients, with piece shared democratically. + COEFSU=0D0 + WTRELS=0D0 + DO 280 IBIN=1,NBIN + COEFU(IBIN)=MAX(0D0,COEFU(IBIN)) + COEFSU=COEFSU+COEFU(IBIN) + WTRELS=WTRELS+WTRELN(IBIN) + 280 CONTINUE + IF(COEFSU.GT.0D0) THEN + DO 290 IBIN=1,NBIN + COEFO(IBIN)=PARP(122)/NBIN+(1D0-PARP(122))*0.5D0* + & (COEFU(IBIN)/COEFSU+WTRELN(IBIN)/WTRELS) + 290 CONTINUE + ELSE + DO 300 IBIN=1,NBIN + COEFO(IBIN)=1D0/NBIN + 300 CONTINUE + ENDIF + IF(IVAR.EQ.1) IOFF=0 + IF(IVAR.EQ.2) IOFF=17 + IF(IVAR.EQ.3) IOFF=7 + IF(IVAR.EQ.4) IOFF=12 + DO 310 IBIN=1,NBIN + ICOF=IOFF+IBIN + IF(IVAR.EQ.1.AND.IBIN.GT.2+2*MINT(72)) ICOF=7 + IF(IVAR.EQ.3.AND.IBIN.EQ.4.AND.MINT(45).NE.3) ICOF=ICOF+1 + COEF(ISUB,ICOF)=COEFO(IBIN) + 310 CONTINUE + IF(MSTP(122).GE.2) WRITE(MSTU(11),5600) CVAR(IVAR), + & (COEFO(IBIN),IBIN=1,NBIN) + 320 CONTINUE + +C...Find two most promising maxima among points previously determined. + DO 330 J=1,4 + IACCMX(J)=0 + SIGSMX(J)=0D0 + 330 CONTINUE + NMAX=0 + DO 390 IACC=1,NACC + DO 340 J=1,30 + VINT(10+J)=VINTPT(IACC,J) + 340 CONTINUE + IF(ISTSB.NE.5) THEN + CALL PYSIGH(NCHN,SIGS) + IF(MWTXS.EQ.1) THEN + CALL PYEVWT(WTXS) + SIGS=WTXS*SIGS + ENDIF + ELSE + SIGS=0D0 + DO 350 IKIN3=1,MSTP(129) + CALL PYKMAP(5,0,0D0) + IF(MINT(51).EQ.1) GOTO 350 + CALL PYSIGH(NCHN,SIGTMP) + IF(MWTXS.EQ.1) THEN + CALL PYEVWT(WTXS) + SIGTMP=WTXS*SIGTMP + ENDIF + IF(SIGTMP.GT.SIGS) SIGS=SIGTMP + 350 CONTINUE + ENDIF + IEQ=0 + DO 360 IMV=1,NMAX + IF(ABS(SIGS-SIGSMX(IMV)).LT.1D-4*(SIGS+SIGSMX(IMV))) IEQ=IMV + 360 CONTINUE + IF(IEQ.EQ.0) THEN + DO 370 IMV=NMAX,1,-1 + IIN=IMV+1 + IF(SIGS.LE.SIGSMX(IMV)) GOTO 380 + IACCMX(IMV+1)=IACCMX(IMV) + SIGSMX(IMV+1)=SIGSMX(IMV) + 370 CONTINUE + IIN=1 + 380 IACCMX(IIN)=IACC + SIGSMX(IIN)=SIGS + IF(NMAX.LE.1) NMAX=NMAX+1 + ENDIF + 390 CONTINUE + +C...Read out starting position for search. + IF(MSTP(122).GE.2) WRITE(MSTU(11),5700) + SIGSAM=SIGSMX(1) + DO 440 IMAX=1,NMAX + IACC=IACCMX(IMAX) + MTAU=MVARPT(IACC,1) + MTAUP=MVARPT(IACC,2) + MYST=MVARPT(IACC,3) + MCTH=MVARPT(IACC,4) + VTAU=0.5D0 + VYST=0.5D0 + VCTH=0.5D0 + VTAUP=0.5D0 + +C...Starting point and step size in parameter space. + DO 430 IRPT=1,2 + DO 420 IVAR=1,4 + IF(NPTS(IVAR).EQ.1) GOTO 420 + IF(IVAR.EQ.1) VVAR=VTAU + IF(IVAR.EQ.2) VVAR=VTAUP + IF(IVAR.EQ.3) VVAR=VYST + IF(IVAR.EQ.4) VVAR=VCTH + IF(IVAR.EQ.1) MVAR=MTAU + IF(IVAR.EQ.2) MVAR=MTAUP + IF(IVAR.EQ.3) MVAR=MYST + IF(IVAR.EQ.4) MVAR=MCTH + IF(IRPT.EQ.1) VDEL=0.1D0 + IF(IRPT.EQ.2) VDEL=MAX(0.01D0,MIN(0.05D0,VVAR-0.02D0, + & 0.98D0-VVAR)) + IF(IRPT.EQ.1) VMAR=0.02D0 + IF(IRPT.EQ.2) VMAR=0.002D0 + IMOV0=1 + IF(IRPT.EQ.1.AND.IVAR.EQ.1) IMOV0=0 + DO 410 IMOV=IMOV0,8 + +C...Define new point in parameter space. + IF(IMOV.EQ.0) THEN + INEW=2 + VNEW=VVAR + ELSEIF(IMOV.EQ.1) THEN + INEW=3 + VNEW=VVAR+VDEL + ELSEIF(IMOV.EQ.2) THEN + INEW=1 + VNEW=VVAR-VDEL + ELSEIF(SIGSSM(3).GE.MAX(SIGSSM(1),SIGSSM(2)).AND. + & VVAR+2D0*VDEL.LT.1D0-VMAR) THEN + VVAR=VVAR+VDEL + SIGSSM(1)=SIGSSM(2) + SIGSSM(2)=SIGSSM(3) + INEW=3 + VNEW=VVAR+VDEL + ELSEIF(SIGSSM(1).GE.MAX(SIGSSM(2),SIGSSM(3)).AND. + & VVAR-2D0*VDEL.GT.VMAR) THEN + VVAR=VVAR-VDEL + SIGSSM(3)=SIGSSM(2) + SIGSSM(2)=SIGSSM(1) + INEW=1 + VNEW=VVAR-VDEL + ELSEIF(SIGSSM(3).GE.SIGSSM(1)) THEN + VDEL=0.5D0*VDEL + VVAR=VVAR+VDEL + SIGSSM(1)=SIGSSM(2) + INEW=2 + VNEW=VVAR + ELSE + VDEL=0.5D0*VDEL + VVAR=VVAR-VDEL + SIGSSM(3)=SIGSSM(2) + INEW=2 + VNEW=VVAR + ENDIF + +C...Convert to relevant variables and find derived new limits. + ILERR=0 + IF(IVAR.EQ.1) THEN + VTAU=VNEW + CALL PYKMAP(1,MTAU,VTAU) + IF(ISTSB.GE.3.AND.ISTSB.LE.5) THEN + CALL PYKLIM(4) + IF(MINT(51).EQ.1) ILERR=1 + ENDIF + ENDIF + IF(IVAR.LE.2.AND.ISTSB.GE.3.AND.ISTSB.LE.5.AND. + & ILERR.EQ.0) THEN + IF(IVAR.EQ.2) VTAUP=VNEW + CALL PYKMAP(4,MTAUP,VTAUP) + ENDIF + IF(IVAR.LE.2.AND.ILERR.EQ.0) THEN + CALL PYKLIM(2) + IF(MINT(51).EQ.1) ILERR=1 + ENDIF + IF(IVAR.LE.3.AND.ILERR.EQ.0) THEN + IF(IVAR.EQ.3) VYST=VNEW + CALL PYKMAP(2,MYST,VYST) + CALL PYKLIM(3) + IF(MINT(51).EQ.1) ILERR=1 + ENDIF + IF((ISTSB.EQ.2.OR.ISTSB.EQ.4.OR.ISTSB.EQ.6).AND. + & ILERR.EQ.0) THEN + IF(IVAR.EQ.4) VCTH=VNEW + CALL PYKMAP(3,MCTH,VCTH) + ENDIF + IF(ISUB.EQ.96) VINT(25)=VINT(21)*(1.-VINT(23)**2) + +C...Evaluate cross-section. Save new maximum. Final maximum. + IF(ILERR.NE.0) THEN + SIGS=0. + ELSEIF(ISTSB.NE.5) THEN + CALL PYSIGH(NCHN,SIGS) + IF(MWTXS.EQ.1) THEN + CALL PYEVWT(WTXS) + SIGS=WTXS*SIGS + ENDIF + ELSE + SIGS=0D0 + DO 400 IKIN3=1,MSTP(129) + CALL PYKMAP(5,0,0D0) + IF(MINT(51).EQ.1) GOTO 400 + CALL PYSIGH(NCHN,SIGTMP) + IF(MWTXS.EQ.1) THEN + CALL PYEVWT(WTXS) + SIGTMP=WTXS*SIGTMP + ENDIF + IF(SIGTMP.GT.SIGS) SIGS=SIGTMP + 400 CONTINUE + ENDIF + SIGSSM(INEW)=SIGS + IF(SIGS.GT.SIGSAM) SIGSAM=SIGS + IF(MSTP(122).GE.2) WRITE(MSTU(11),5800) IMAX,IVAR,MVAR, + & IMOV,VNEW,VINT(21),VINT(22),VINT(23),VINT(26),SIGS + 410 CONTINUE + 420 CONTINUE + 430 CONTINUE + 440 CONTINUE + IF(MSTP(121).EQ.1) SIGSAM=PARP(121)*SIGSAM + XSEC(ISUB,1)=1.05D0*SIGSAM + IF(MINT(141).NE.0.OR.MINT(142).NE.0) XSEC(ISUB,1)= + & WTGAGA*XSEC(ISUB,1) + 450 CONTINUE + IF(MSTP(173).EQ.1.AND.ISUB.NE.96) XSEC(ISUB,1)= + & PARP(174)*XSEC(ISUB,1) + IF(ISUB.NE.96) XSEC(0,1)=XSEC(0,1)+XSEC(ISUB,1) + 460 CONTINUE + MINT(51)=0 + +C...Print summary table. + IF(MINT(121).EQ.1.AND.NPOSI.EQ.0) THEN + WRITE(MSTU(11),5900) + STOP + ENDIF + IF(MSTP(122).GE.1) THEN + WRITE(MSTU(11),6000) + WRITE(MSTU(11),6100) + DO 470 ISUB=1,500 + IF(MSUB(ISUB).NE.1.AND.ISUB.NE.96) GOTO 470 + IF(ISUB.EQ.96.AND.MINT(50).EQ.0) GOTO 470 + IF(ISUB.EQ.96.AND.MSUB(95).NE.1.AND.MSTP(81).LE.0) GOTO 470 + IF(ISUB.EQ.96.AND.MINT(49).EQ.0.AND.MSTP(131).EQ.0) GOTO 470 + IF(MSUB(95).EQ.1.AND.(ISUB.EQ.11.OR.ISUB.EQ.12.OR.ISUB.EQ.13 + & .OR.ISUB.EQ.28.OR.ISUB.EQ.53.OR.ISUB.EQ.68)) GOTO 470 + WRITE(MSTU(11),6200) ISUB,PROC(ISUB),XSEC(ISUB,1) + 470 CONTINUE + WRITE(MSTU(11),6300) + ENDIF + +C...Format statements for maximization results. + 5000 FORMAT(/1X,'Coefficient optimization and maximum search for ', + &'subprocess no',I4/1X,'Coefficient modes tau',10X,'y*',9X, + &'cth',9X,'tau''',7X,'sigma') + 5100 FORMAT(1X,'Warning: requested subprocess ',I3,' has no allowed ', + &'phase space.'/1X,'Process switched off!') + 5200 FORMAT(1X,4I4,F12.8,F12.6,F12.7,F12.8,1P,D12.4) + 5300 FORMAT(1X,'Warning: requested subprocess ',I3,' has vanishing ', + &'cross-section.'/1X,'Process switched off!') + 5400 FORMAT(1X,'Coefficients of equation system to be solved for ',A4) + 5500 FORMAT(1X,1P,8D11.3) + 5600 FORMAT(1X,'Result for ',A4,':',7F9.4) + 5700 FORMAT(1X,'Maximum search for given coefficients'/2X,'MAX VAR ', + &'MOD MOV VNEW',7X,'tau',7X,'y*',8X,'cth',7X,'tau''',7X,'sigma') + 5800 FORMAT(1X,4I4,F8.4,F11.7,F9.3,F11.6,F11.7,1P,D12.4) + 5900 FORMAT(1X,'Error: no requested process has non-vanishing ', + &'cross-section.'/1X,'Execution stopped!') + 6000 FORMAT(/1X,8('*'),1X,'PYMAXI: summary of differential ', + &'cross-section maximum search',1X,8('*')) + 6100 FORMAT(/11X,58('=')/11X,'I',38X,'I',17X,'I'/11X,'I ISUB ', + &'Subprocess name',15X,'I Maximum value I'/11X,'I',38X,'I', + &17X,'I'/11X,58('=')/11X,'I',38X,'I',17X,'I') + 6200 FORMAT(11X,'I',2X,I3,3X,A28,2X,'I',2X,1P,D12.4,3X,'I') + 6300 FORMAT(11X,'I',38X,'I',17X,'I'/11X,58('=')) + + RETURN + END + +C********************************************************************* + +C...PYPILE +C...Initializes multiplicity distribution and selects mutliplicity +C...of pileup events, i.e. several events occuring at the same +C...beam crossing. + + SUBROUTINE PYPILE(MPILE) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT7/SIGT(0:6,0:6,0:5) + SAVE /PYDAT1/,/PYPARS/,/PYINT1/,/PYINT7/ +C...Local arrays and saved variables. + DIMENSION WTI(0:200) + SAVE IMIN,IMAX,WTI,WTS + +C...Sum of allowed cross-sections for pileup events. + IF(MPILE.EQ.1) THEN + VINT(131)=SIGT(0,0,5) + IF(MSTP(132).GE.2) VINT(131)=VINT(131)+SIGT(0,0,4) + IF(MSTP(132).GE.3) VINT(131)=VINT(131)+SIGT(0,0,2)+SIGT(0,0,3) + IF(MSTP(132).GE.4) VINT(131)=VINT(131)+SIGT(0,0,1) + IF(MSTP(133).LE.0) RETURN + +C...Initialize multiplicity distribution at maximum. + XNAVE=VINT(131)*PARP(131) + IF(XNAVE.GT.120D0) WRITE(MSTU(11),5000) XNAVE + INAVE=MAX(1,MIN(200,NINT(XNAVE))) + WTI(INAVE)=1D0 + WTS=WTI(INAVE) + WTN=WTI(INAVE)*INAVE + +C...Find shape of multiplicity distribution below maximum. + IMIN=INAVE + DO 100 I=INAVE-1,1,-1 + IF(MSTP(133).EQ.1) WTI(I)=WTI(I+1)*(I+1)/XNAVE + IF(MSTP(133).GE.2) WTI(I)=WTI(I+1)*I/XNAVE + IF(WTI(I).LT.1D-6) GOTO 110 + WTS=WTS+WTI(I) + WTN=WTN+WTI(I)*I + IMIN=I + 100 CONTINUE + +C...Find shape of multiplicity distribution above maximum. + 110 IMAX=INAVE + DO 120 I=INAVE+1,200 + IF(MSTP(133).EQ.1) WTI(I)=WTI(I-1)*XNAVE/I + IF(MSTP(133).GE.2) WTI(I)=WTI(I-1)*XNAVE/(I-1) + IF(WTI(I).LT.1D-6) GOTO 130 + WTS=WTS+WTI(I) + WTN=WTN+WTI(I)*I + IMAX=I + 120 CONTINUE + 130 VINT(132)=XNAVE + VINT(133)=WTN/WTS + IF(MSTP(133).EQ.1.AND.IMIN.EQ.1) VINT(134)= + & WTS/(WTS+WTI(1)/XNAVE) + IF(MSTP(133).EQ.1.AND.IMIN.GT.1) VINT(134)=1D0 + IF(MSTP(133).GE.2) VINT(134)=XNAVE + +C...Pick multiplicity of pileup events. + ELSE + IF(MSTP(133).LE.0) THEN + MINT(81)=MAX(1,MSTP(134)) + ELSE + WTR=WTS*PYR(0) + DO 140 I=IMIN,IMAX + MINT(81)=I + WTR=WTR-WTI(I) + IF(WTR.LE.0D0) GOTO 150 + 140 CONTINUE + 150 CONTINUE + ENDIF + ENDIF + +C...Format statement for error message. + 5000 FORMAT(1X,'Warning: requested average number of events per bunch', + &'crossing too large, ',1P,D12.4) + + RETURN + END + +C********************************************************************* + +C...PYSAVE +C...Saves and restores parameter and cross section values for the +C...3 gamma-p and 6 (or 4, or 9, or 13) gamma-gamma alnternatives. +C...Also makes random choice between alternatives. + + SUBROUTINE PYSAVE(ISAVE,IGA) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3) + COMMON/PYINT7/SIGT(0:6,0:6,0:5) + SAVE /PYSUBS/,/PYPARS/,/PYINT1/,/PYINT2/,/PYINT5/,/PYINT7/ +C...Local arrays and saved variables. + DIMENSION NCP(15),NSUBCP(15,20),MSUBCP(15,20),COEFCP(15,20,20), + &NGENCP(15,0:20,3),XSECCP(15,0:20,3),SIGTCP(15,0:6,0:6,0:5), + &INTCP(15,20),RECP(15,20) + SAVE NCP,NSUBCP,MSUBCP,COEFCP,NGENCP,XSECCP,SIGTCP,INTCP,RECP + +C...Save list of subprocesses and cross-section information. + IF(ISAVE.EQ.1) THEN + ICP=0 + DO 120 I=1,500 + IF(MSUB(I).EQ.0.AND.I.NE.96.AND.I.NE.97) GOTO 120 + ICP=ICP+1 + NSUBCP(IGA,ICP)=I + MSUBCP(IGA,ICP)=MSUB(I) + DO 100 J=1,20 + COEFCP(IGA,ICP,J)=COEF(I,J) + 100 CONTINUE + DO 110 J=1,3 + NGENCP(IGA,ICP,J)=NGEN(I,J) + XSECCP(IGA,ICP,J)=XSEC(I,J) + 110 CONTINUE + 120 CONTINUE + NCP(IGA)=ICP + DO 130 J=1,3 + NGENCP(IGA,0,J)=NGEN(0,J) + XSECCP(IGA,0,J)=XSEC(0,J) + 130 CONTINUE + DO 136 I1=0,6 + DO 134 I2=0,6 + DO 132 J=0,5 + SIGTCP(IGA,I1,I2,J)=SIGT(I1,I2,J) + 132 CONTINUE + 134 CONTINUE + 136 CONTINUE + +C...Save various common process variables. + DO 140 J=1,10 + INTCP(IGA,J)=MINT(40+J) + 140 CONTINUE + INTCP(IGA,11)=MINT(101) + INTCP(IGA,12)=MINT(102) + INTCP(IGA,13)=MINT(107) + INTCP(IGA,14)=MINT(108) + INTCP(IGA,15)=MINT(123) + RECP(IGA,1)=CKIN(3) + RECP(IGA,2)=VINT(318) + +C...Save cross-section information only. + ELSEIF(ISAVE.EQ.2) THEN + DO 160 ICP=1,NCP(IGA) + I=NSUBCP(IGA,ICP) + DO 150 J=1,3 + NGENCP(IGA,ICP,J)=NGEN(I,J) + XSECCP(IGA,ICP,J)=XSEC(I,J) + 150 CONTINUE + 160 CONTINUE + DO 170 J=1,3 + NGENCP(IGA,0,J)=NGEN(0,J) + XSECCP(IGA,0,J)=XSEC(0,J) + 170 CONTINUE + +C...Choose between allowed alternatives. + ELSEIF(ISAVE.EQ.3.OR.ISAVE.EQ.4) THEN + IF(ISAVE.EQ.4) THEN + XSUMCP=0D0 + DO 180 IG=1,MINT(121) + XSUMCP=XSUMCP+XSECCP(IG,0,1) + 180 CONTINUE + XSUMCP=XSUMCP*PYR(0) + DO 190 IG=1,MINT(121) + IGA=IG + XSUMCP=XSUMCP-XSECCP(IG,0,1) + IF(XSUMCP.LE.0D0) GOTO 200 + 190 CONTINUE + 200 CONTINUE + ENDIF + +C...Restore cross-section information. + DO 210 I=1,500 + MSUB(I)=0 + 210 CONTINUE + DO 240 ICP=1,NCP(IGA) + I=NSUBCP(IGA,ICP) + MSUB(I)=MSUBCP(IGA,ICP) + DO 220 J=1,20 + COEF(I,J)=COEFCP(IGA,ICP,J) + 220 CONTINUE + DO 230 J=1,3 + NGEN(I,J)=NGENCP(IGA,ICP,J) + XSEC(I,J)=XSECCP(IGA,ICP,J) + 230 CONTINUE + 240 CONTINUE + DO 250 J=1,3 + NGEN(0,J)=NGENCP(IGA,0,J) + XSEC(0,J)=XSECCP(IGA,0,J) + 250 CONTINUE + DO 256 I1=0,6 + DO 254 I2=0,6 + DO 252 J=0,5 + SIGT(I1,I2,J)=SIGTCP(IGA,I1,I2,J) + 252 CONTINUE + 254 CONTINUE + 256 CONTINUE + +C...Restore various common process variables. + DO 260 J=1,10 + MINT(40+J)=INTCP(IGA,J) + 260 CONTINUE + MINT(101)=INTCP(IGA,11) + MINT(102)=INTCP(IGA,12) + MINT(107)=INTCP(IGA,13) + MINT(108)=INTCP(IGA,14) + MINT(123)=INTCP(IGA,15) + CKIN(3)=RECP(IGA,1) + CKIN(1)=2D0*CKIN(3) + VINT(318)=RECP(IGA,2) + +C...Sum up cross-section info (for PYSTAT). + ELSEIF(ISAVE.EQ.5) THEN + DO 270 I=1,500 + MSUB(I)=0 + NGEN(I,1)=0 + NGEN(I,3)=0 + XSEC(I,3)=0D0 + 270 CONTINUE + NGEN(0,1)=0 + NGEN(0,2)=0 + NGEN(0,3)=0 + XSEC(0,3)=0 + DO 290 IG=1,MINT(121) + DO 280 ICP=1,NCP(IG) + I=NSUBCP(IG,ICP) + IF(MSUBCP(IG,ICP).EQ.1) MSUB(I)=1 + NGEN(I,1)=NGEN(I,1)+NGENCP(IG,ICP,1) + NGEN(I,3)=NGEN(I,3)+NGENCP(IG,ICP,3) + XSEC(I,3)=XSEC(I,3)+XSECCP(IG,ICP,3) + 280 CONTINUE + NGEN(0,1)=NGEN(0,1)+NGENCP(IG,0,1) + NGEN(0,2)=NGEN(0,2)+NGENCP(IG,0,2) + NGEN(0,3)=NGEN(0,3)+NGENCP(IG,0,3) + XSEC(0,3)=XSEC(0,3)+XSECCP(IG,0,3) + 290 CONTINUE + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYGAGA +C...For lepton beams it gives photon-hadron or photon-photon systems +C...to be treated with the ordinary machinery and combines this with a +C...description of the lepton -> lepton + photon branching. + + SUBROUTINE PYGAGA(IGAGA,WTGAGA) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYSUBS/,/PYPARS/,/PYINT1/, + &/PYINT5/ +C...Local variables and data statement. + DIMENSION PMS(2),XMIN(2),XMAX(2),Q2MIN(2),Q2MAX(2),PMC(3), + &X(2),Q2(2),Y(2),THETA(2),PHI(2),PT(2),BETA(3) + SAVE PMS,XMIN,XMAX,Q2MIN,Q2MAX,PMC,X,Q2,THETA,PHI,PT,W2MIN + DATA EPS/1D-4/ + +C...Initialize generation of photons inside leptons. + IF(IGAGA.EQ.1) THEN + +C...Save quantities on incoming lepton system. + VINT(301)=VINT(1) + VINT(302)=VINT(2) + PMS(1)=VINT(303)**2 + IF(MINT(141).EQ.0) PMS(1)=SIGN(VINT(3)**2,VINT(3)) + PMS(2)=VINT(304)**2 + IF(MINT(142).EQ.0) PMS(2)=SIGN(VINT(4)**2,VINT(4)) + PMC(3)=VINT(302)-PMS(1)-PMS(2) + W2MIN=MAX(CKIN(77),2D0*CKIN(3),2D0*CKIN(5))**2 + +C...Calculate range of x and Q2 values allowed in generation. + DO 100 I=1,2 + PMC(I)=VINT(302)+PMS(I)-PMS(3-I) + IF(MINT(140+I).NE.0) THEN + XMIN(I)=MAX(CKIN(59+2*I),EPS) + XMAX(I)=MIN(CKIN(60+2*I),1D0-2D0*VINT(301)*SQRT(PMS(I))/ + & PMC(I),1D0-EPS) + YMIN=MAX(CKIN(71+2*I),EPS) + YMAX=MIN(CKIN(72+2*I),1D0-EPS) + IF(CKIN(64+2*I).GT.0D0) XMIN(I)=MAX(XMIN(I), + & (YMIN*PMC(3)-CKIN(64+2*I))/PMC(I)) + XMAX(I)=MIN(XMAX(I),(YMAX*PMC(3)-CKIN(63+2*I))/PMC(I)) + THEMIN=MAX(CKIN(67+2*I),0D0) + THEMAX=MIN(CKIN(68+2*I),PARU(1)) + IF(CKIN(68+2*I).LT.0D0) THEMAX=PARU(1) + Q2MIN(I)=MAX(CKIN(63+2*I),XMIN(I)**2*PMS(I)/(1D0-XMIN(I))+ + & ((1D0-XMAX(I))*(VINT(302)-2D0*PMS(3-I))- + & 2D0*PMS(I)/(1D0-XMAX(I)))*SIN(THEMIN/2D0)**2,0D0) + Q2MAX(I)=XMAX(I)**2*PMS(I)/(1D0-XMAX(I))+ + & ((1D0-XMIN(I))*(VINT(302)-2D0*PMS(3-I))- + & 2D0*PMS(I)/(1D0-XMIN(I)))*SIN(THEMAX/2D0)**2 + IF(CKIN(64+2*I).GT.0D0) Q2MAX(I)=MIN(CKIN(64+2*I),Q2MAX(I)) +C...W limits when lepton on one side only. + IF(MINT(143-I).EQ.0) THEN + XMIN(I)=MAX(XMIN(I),(W2MIN-PMS(3-I))/PMC(I)) + IF(CKIN(78).GT.0D0) XMAX(I)=MIN(XMAX(I), + & (CKIN(78)**2-PMS(3-I))/PMC(I)) + ENDIF + ENDIF + 100 CONTINUE + +C...W limits when lepton on both sides. + IF(MINT(141).NE.0.AND.MINT(142).NE.0) THEN + IF(CKIN(78).GT.0D0) XMAX(1)=MIN(XMAX(1), + & (CKIN(78)**2+PMC(3)-PMC(2)*XMIN(2))/PMC(1)) + IF(CKIN(78).GT.0D0) XMAX(2)=MIN(XMAX(2), + & (CKIN(78)**2+PMC(3)-PMC(1)*XMIN(1))/PMC(2)) + IF(IABS(MINT(141)).NE.IABS(MINT(142))) THEN + XMIN(1)=MAX(XMIN(1),(PMS(1)-PMS(2)+VINT(302)*(W2MIN- + & PMS(1)-PMS(2))/(PMC(2)*XMAX(2)+PMS(1)-PMS(2)))/PMC(1)) + XMIN(2)=MAX(XMIN(2),(PMS(2)-PMS(1)+VINT(302)*(W2MIN- + & PMS(1)-PMS(2))/(PMC(1)*XMAX(1)+PMS(2)-PMS(1)))/PMC(2)) + ELSE + XMIN(1)=MAX(XMIN(1),W2MIN/(VINT(302)*XMAX(2))) + XMIN(2)=MAX(XMIN(2),W2MIN/(VINT(302)*XMAX(1))) + ENDIF + ENDIF + +C...Q2 and W values and photon flux weight factors for initialization. + ELSEIF(IGAGA.EQ.2) THEN + ISUB=MINT(1) + MINT(15)=0 + MINT(16)=0 + +C...W value for photon on one or both sides, and for processes +C...with gamma-gamma cross section peaked at small shat. + IF(MINT(141).NE.0.AND.MINT(142).EQ.0) THEN + VINT(2)=VINT(302)+PMS(1)-PMC(1)*(1D0-XMAX(1)) + ELSEIF(MINT(141).EQ.0.AND.MINT(142).NE.0) THEN + VINT(2)=VINT(302)+PMS(2)-PMC(2)*(1D0-XMAX(2)) + ELSEIF(ISUB.GE.137.AND.ISUB.LE.140) THEN + VINT(2)=MAX(CKIN(77)**2,12D0*MAX(CKIN(3),CKIN(5))**2) + IF(CKIN(78).GT.0D0) VINT(2)=MIN(VINT(2),CKIN(78)**2) + ELSE + VINT(2)=XMAX(1)*XMAX(2)*VINT(302) + IF(CKIN(78).GT.0D0) VINT(2)=MIN(VINT(2),CKIN(78)**2) + ENDIF + VINT(1)=SQRT(MAX(0D0,VINT(2))) + +C...Upper estimate of photon flux weight factor. +C...Initialization Q2 scale. Flag incoming unresolved photon. + WTGAGA=1D0 + DO 110 I=1,2 + IF(MINT(140+I).NE.0) THEN + WTGAGA=WTGAGA*2D0*(PARU(101)/PARU(2))* + & LOG(XMAX(I)/XMIN(I))*LOG(Q2MAX(I)/Q2MIN(I)) + IF(ISUB.EQ.99.AND.MINT(106+I).EQ.4.AND.MINT(109-I).EQ.3) + & THEN + Q2INIT=5D0+Q2MIN(3-I) + ELSEIF(ISUB.EQ.99.AND.MINT(106+I).EQ.4) THEN + Q2INIT=PMAS(PYCOMP(113),1)**2+Q2MIN(3-I) + ELSEIF(ISUB.EQ.132.OR.ISUB.EQ.134.OR.ISUB.EQ.136) THEN + Q2INIT=MAX(CKIN(1),2D0*CKIN(3),2D0*CKIN(5))**2/3D0 + ELSEIF((ISUB.EQ.138.AND.I.EQ.2).OR. + & (ISUB.EQ.139.AND.I.EQ.1)) THEN + Q2INIT=VINT(2)/3D0 + ELSEIF(ISUB.EQ.140) THEN + Q2INIT=VINT(2)/2D0 + ELSE + Q2INIT=Q2MIN(I) + ENDIF + VINT(2+I)=-SQRT(MAX(Q2MIN(I),MIN(Q2MAX(I),Q2INIT))) + IF(MSTP(14).EQ.0.OR.(ISUB.GE.131.AND.ISUB.LE.140)) + & MINT(14+I)=22 + VINT(306+I)=VINT(2+I)**2 + ENDIF + 110 CONTINUE + VINT(320)=WTGAGA + +C...Update pTmin and cross section information. + IF(MSTP(82).LE.1) THEN + PTMN=PARP(81)*(VINT(1)/PARP(89))**PARP(90) + ELSE + PTMN=PARP(82)*(VINT(1)/PARP(89))**PARP(90) + ENDIF + VINT(149)=4D0*PTMN**2/VINT(2) + VINT(154)=PTMN + CALL PYXTOT + VINT(318)=VINT(317) + +C...Generate photons inside leptons and +C...calculate photon flux weight factors. + ELSEIF(IGAGA.EQ.3) THEN + ISUB=MINT(1) + MINT(15)=0 + MINT(16)=0 + +C...Generate phase space point and check against cuts. + LOOP=0 + 120 LOOP=LOOP+1 + DO 130 I=1,2 + IF(MINT(140+I).NE.0) THEN +C...Pick x and Q2 + X(I)=XMIN(I)*(XMAX(I)/XMIN(I))**PYR(0) + Q2(I)=Q2MIN(I)*(Q2MAX(I)/Q2MIN(I))**PYR(0) +C...Cuts on internal consistency in x and Q2. + IF(Q2(I).LT.X(I)**2*PMS(I)/(1D0-X(I))) GOTO 120 + IF(Q2(I).GT.(1D0-X(I))*(VINT(302)-2D0*PMS(3-I))- + & (2D0-X(I)**2)*PMS(I)/(1D0-X(I))) GOTO 120 +C...Cuts on y and theta. + Y(I)=(PMC(I)*X(I)+Q2(I))/PMC(3) + IF(Y(I).LT.CKIN(71+2*I).OR.Y(I).GT.CKIN(72+2*I)) GOTO 120 + RAT=((1D0-X(I))*Q2(I)-X(I)**2*PMS(I))/ + & ((1D0-X(I))**2*(VINT(302)-2D0*PMS(3-I)-2D0*PMS(I))) + THETA(I)=2D0*ASIN(SQRT(MAX(0D0,MIN(1D0,RAT)))) + IF(THETA(I).LT.CKIN(67+2*I)) GOTO 120 + IF(CKIN(68+2*I).GT.0D0.AND.THETA(I).GT.CKIN(68+2*I)) + & GOTO 120 + +C...Phi angle isotropic. Reconstruct pT. + PHI(I)=PARU(2)*PYR(0) + PT(I)=SQRT(((1D0-X(I))*PMC(I))**2/(4D0*VINT(302))- + & PMS(I))*SIN(THETA(I)) + +C...Store info on variables selected, for documentation purposes. + VINT(2+I)=-SQRT(Q2(I)) + VINT(304+I)=X(I) + VINT(306+I)=Q2(I) + VINT(308+I)=Y(I) + VINT(310+I)=THETA(I) + VINT(312+I)=PHI(I) + ELSE + VINT(304+I)=1D0 + VINT(306+I)=0D0 + VINT(308+I)=1D0 + VINT(310+I)=0D0 + VINT(312+I)=0D0 + ENDIF + 130 CONTINUE + +C...Cut on W combines info from two sides. + IF(MINT(141).NE.0.AND.MINT(142).NE.0) THEN + W2=-Q2(1)-Q2(2)+0.5D0*X(1)*PMC(1)*X(2)*PMC(2)/VINT(302)- + & 2D0*PT(1)*PT(2)*COS(PHI(1)-PHI(2))+2D0* + & SQRT((0.5D0*X(1)*PMC(1)/VINT(301))**2+Q2(1)-PT(1)**2)* + & SQRT((0.5D0*X(2)*PMC(2)/VINT(301))**2+Q2(2)-PT(2)**2) + IF(W2.LT.W2MIN) GOTO 120 + IF(CKIN(78).GT.0D0.AND.W2.GT.CKIN(78)**2) GOTO 120 + PMS1=-Q2(1) + PMS2=-Q2(2) + ELSEIF(MINT(141).NE.0) THEN + W2=(VINT(302)+PMS(1))*X(1)+PMS(2)*(1D0-X(1)) + PMS1=-Q2(1) + PMS2=PMS(2) + ELSEIF(MINT(142).NE.0) THEN + W2=(VINT(302)+PMS(2))*X(2)+PMS(1)*(1D0-X(2)) + PMS1=PMS(1) + PMS2=-Q2(2) + ENDIF + +C...Store kinematics info for photon(s) in subsystem cm frame. + VINT(2)=W2 + VINT(1)=SQRT(W2) + VINT(291)=0D0 + VINT(292)=0D0 + VINT(293)=0.5D0*SQRT((W2-PMS1-PMS2)**2-4D0*PMS1*PMS2)/VINT(1) + VINT(294)=0.5D0*(W2+PMS1-PMS2)/VINT(1) + VINT(295)=SIGN(SQRT(ABS(PMS1)),PMS1) + VINT(296)=0D0 + VINT(297)=0D0 + VINT(298)=-VINT(293) + VINT(299)=0.5D0*(W2+PMS2-PMS1)/VINT(1) + VINT(300)=SIGN(SQRT(ABS(PMS2)),PMS2) + +C...Assign weight for photon flux; different for transverse and +C...longitudinal photons. Flag incoming unresolved photon. + WTGAGA=1D0 + DO 140 I=1,2 + IF(MINT(140+I).NE.0) THEN + WTGAGA=WTGAGA*2D0*(PARU(101)/PARU(2))* + & LOG(XMAX(I)/XMIN(I))*LOG(Q2MAX(I)/Q2MIN(I)) + IF(MSTP(16).EQ.0) THEN + XY=X(I) + ELSE + WTGAGA=WTGAGA*X(I)/Y(I) + XY=Y(I) + ENDIF + IF(ISUB.EQ.132.OR.ISUB.EQ.134.OR.ISUB.EQ.136) THEN + WTGAGA=WTGAGA*(1D0-XY) + ELSEIF(I.EQ.1.AND.(ISUB.EQ.139.OR.ISUB.EQ.140)) THEN + WTGAGA=WTGAGA*(1D0-XY) + ELSEIF(I.EQ.2.AND.(ISUB.EQ.138.OR.ISUB.EQ.140)) THEN + WTGAGA=WTGAGA*(1D0-XY) + ELSE + WTGAGA=WTGAGA*(0.5D0*(1D0+(1D0-XY)**2)- + & PMS(I)*XY**2/Q2(I)) + ENDIF + IF(MINT(106+I).EQ.0) MINT(14+I)=22 + ENDIF + 140 CONTINUE + VINT(319)=WTGAGA + MINT(143)=LOOP + +C...Update pTmin and cross section information. + IF(MSTP(82).LE.1) THEN + PTMN=PARP(81)*(VINT(1)/PARP(89))**PARP(90) + ELSE + PTMN=PARP(82)*(VINT(1)/PARP(89))**PARP(90) + ENDIF + VINT(149)=4D0*PTMN**2/VINT(2) + VINT(154)=PTMN + CALL PYXTOT + +C...Reconstruct kinematics of photons inside leptons. + ELSEIF(IGAGA.EQ.4) THEN + +C...Make place for incoming particles and scattered leptons. + MOVE=3 + IF(MINT(141).NE.0.AND.MINT(142).NE.0) MOVE=4 + MINT(4)=MINT(4)+MOVE + DO 160 I=MINT(84)-MOVE,MINT(83)+1,-1 + IF(K(I,1).EQ.21) THEN + DO 150 J=1,5 + K(I+MOVE,J)=K(I,J) + P(I+MOVE,J)=P(I,J) + V(I+MOVE,J)=V(I,J) + 150 CONTINUE + IF(K(I,3).GT.MINT(83).AND.K(I,3).LE.MINT(84)) + & K(I+MOVE,3)=K(I,3)+MOVE + IF(K(I,4).GT.MINT(83).AND.K(I,4).LE.MINT(84)) + & K(I+MOVE,4)=K(I,4)+MOVE + IF(K(I,5).GT.MINT(83).AND.K(I,5).LE.MINT(84)) + & K(I+MOVE,5)=K(I,5)+MOVE + ENDIF + 160 CONTINUE + DO 170 I=MINT(84)+1,N + IF(K(I,3).GT.MINT(83).AND.K(I,3).LE.MINT(84)) + & K(I,3)=K(I,3)+MOVE + 170 CONTINUE + +C...Fill in incoming particles. + DO 190 I=MINT(83)+1,MINT(83)+MOVE + DO 180 J=1,5 + K(I,J)=0 + P(I,J)=0D0 + V(I,J)=0D0 + 180 CONTINUE + 190 CONTINUE + DO 200 I=1,2 + K(MINT(83)+I,1)=21 + IF(MINT(140+I).NE.0) THEN + K(MINT(83)+I,2)=MINT(140+I) + P(MINT(83)+I,5)=VINT(302+I) + ELSE + K(MINT(83)+I,2)=MINT(10+I) + P(MINT(83)+I,5)=VINT(2+I) + ENDIF + P(MINT(83)+I,3)=0.5D0*SQRT((PMC(3)**2-4D0*PMS(1)*PMS(2))/ + & VINT(302))*(-1D0)**(I+1) + P(MINT(83)+I,4)=0.5D0*PMC(I)/VINT(301) + 200 CONTINUE + +C...New mother-daughter relations in documentation section. + IF(MINT(141).NE.0.AND.MINT(142).NE.0) THEN + K(MINT(83)+1,4)=MINT(83)+3 + K(MINT(83)+1,5)=MINT(83)+5 + K(MINT(83)+2,4)=MINT(83)+4 + K(MINT(83)+2,5)=MINT(83)+6 + K(MINT(83)+3,3)=MINT(83)+1 + K(MINT(83)+5,3)=MINT(83)+1 + K(MINT(83)+4,3)=MINT(83)+2 + K(MINT(83)+6,3)=MINT(83)+2 + ELSEIF(MINT(141).NE.0) THEN + K(MINT(83)+1,4)=MINT(83)+3 + K(MINT(83)+1,5)=MINT(83)+4 + K(MINT(83)+2,4)=MINT(83)+5 + K(MINT(83)+3,3)=MINT(83)+1 + K(MINT(83)+4,3)=MINT(83)+1 + K(MINT(83)+5,3)=MINT(83)+2 + ELSEIF(MINT(142).NE.0) THEN + K(MINT(83)+1,4)=MINT(83)+4 + K(MINT(83)+2,4)=MINT(83)+3 + K(MINT(83)+2,5)=MINT(83)+5 + K(MINT(83)+3,3)=MINT(83)+2 + K(MINT(83)+4,3)=MINT(83)+1 + K(MINT(83)+5,3)=MINT(83)+2 + ENDIF + +C...Fill scattered lepton(s). + DO 210 I=1,2 + IF(MINT(140+I).NE.0) THEN + LSC=MINT(83)+MIN(I+2,MOVE) + K(LSC,1)=21 + K(LSC,2)=MINT(140+I) + P(LSC,1)=PT(I)*COS(PHI(I)) + P(LSC,2)=PT(I)*SIN(PHI(I)) + P(LSC,4)=(1D0-X(I))*P(MINT(83)+I,4) + P(LSC,3)=SQRT(P(LSC,4)**2-PMS(I))*COS(THETA(I))* + & (-1D0)**(I-1) + P(LSC,5)=VINT(302+I) + ENDIF + 210 CONTINUE + +C...Find incoming four-vectors to subprocess. + K(N+1,1)=21 + IF(MINT(141).NE.0) THEN + DO 220 J=1,4 + P(N+1,J)=P(MINT(83)+1,J)-P(MINT(83)+3,J) + 220 CONTINUE + ELSE + DO 230 J=1,4 + P(N+1,J)=P(MINT(83)+1,J) + 230 CONTINUE + ENDIF + K(N+2,1)=21 + IF(MINT(142).NE.0) THEN + DO 240 J=1,4 + P(N+2,J)=P(MINT(83)+2,J)-P(MINT(83)+MOVE,J) + 240 CONTINUE + ELSE + DO 250 J=1,4 + P(N+2,J)=P(MINT(83)+2,J) + 250 CONTINUE + ENDIF + +C...Define boost and rotation between hadronic subsystem and +C...collision rest frame; boost hadronic subsystem to this frame. + DO 260 J=1,3 + BETA(J)=(P(N+1,J)+P(N+2,J))/(P(N+1,4)+P(N+2,4)) + 260 CONTINUE + CALL PYROBO(N+1,N+2,0D0,0D0,-BETA(1),-BETA(2),-BETA(3)) + BPHI=PYANGL(P(N+1,1),P(N+1,2)) + CALL PYROBO(N+1,N+2,0D0,-BPHI,0D0,0D0,0D0) + BTHETA=PYANGL(P(N+1,3),P(N+1,1)) + CALL PYROBO(MINT(83)+MOVE+1,N,BTHETA,BPHI,BETA(1),BETA(2), + & BETA(3)) + +C...Add on scattered leptons to final state. + DO 280 I=1,2 + IF(MINT(140+I).NE.0) THEN + LSC=MINT(83)+MIN(I+2,MOVE) + N=N+1 + DO 270 J=1,5 + K(N,J)=K(LSC,J) + P(N,J)=P(LSC,J) + V(N,J)=V(LSC,J) + 270 CONTINUE + K(N,1)=1 + K(N,3)=LSC + ENDIF + 280 CONTINUE + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYRAND +C...Generates quantities characterizing the high-pT scattering at the +C...parton level according to the matrix elements. Chooses incoming, +C...reacting partons, their momentum fractions and one of the possible +C...subprocesses. + + SUBROUTINE PYRAND + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + COMMON/PYINT3/XSFX(2,-40:40),ISIG(1000,3),SIGH(1000) + COMMON/PYINT4/MWID(500),WIDS(500,5) + COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3) + COMMON/PYINT7/SIGT(0:6,0:6,0:5) + COMMON/PYUPPR/NUP,KUP(20,7),NFUP,IFUP(10,2),PUP(20,5),Q2UP(0:10) + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + SAVE /PYDAT1/,/PYDAT2/,/PYDAT3/,/PYSUBS/,/PYPARS/,/PYINT1/, + &/PYINT2/,/PYINT3/,/PYINT4/,/PYINT5/,/PYINT7/,/PYUPPR/,/PYMSSM/ +C...Local arrays. + DIMENSION XPQ(-25:25),PMM(2),PDIF(4),BHAD(4),PMMN(2) + +C...Parameters and data used in elastic/diffractive treatment. + DATA EPS/0.0808D0/, ALP/0.25D0/, CRES/2D0/, PMRC/1.062D0/, + &SMP/0.880D0/, BHAD/2.3D0,1.4D0,1.4D0,0.23D0/ + +C...Initial values, specifically for (first) semihard interaction. + MINT(10)=0 + MINT(17)=0 + MINT(18)=0 + VINT(143)=1D0 + VINT(144)=1D0 + VINT(157)=0D0 + VINT(158)=0D0 + MFAIL=0 + IF(MSTP(171).EQ.1.AND.MSTP(172).EQ.2) MFAIL=1 + ISUB=0 + LOOP=0 + 100 LOOP=LOOP+1 + MINT(51)=0 + MINT(143)=1 + +C...Start by assuming incoming photon is entering subprocess. + IF(MINT(11).EQ.22) THEN + MINT(15)=22 + VINT(307)=VINT(3)**2 + ENDIF + IF(MINT(12).EQ.22) THEN + MINT(16)=22 + VINT(308)=VINT(4)**2 + ENDIF + MINT(103)=MINT(11) + MINT(104)=MINT(12) + +C...Choice of process type - first event of pileup. + INMULT=0 + IF(MINT(82).EQ.1.AND.(ISUB.LE.90.OR.ISUB.GT.96)) THEN + +C...For gamma-p or gamma-gamma first pick between alternatives. + IGA=0 + IF(MINT(121).GT.1) CALL PYSAVE(4,IGA) + MINT(122)=IGA + +C...For real gamma + gamma with different nature, flip at random. + IF(MINT(11).EQ.22.AND.MINT(12).EQ.22.AND.MINT(123).GE.4.AND. + & MSTP(14).LE.10.AND.PYR(0).GT.0.5D0) THEN + MINTSV=MINT(41) + MINT(41)=MINT(42) + MINT(42)=MINTSV + MINTSV=MINT(45) + MINT(45)=MINT(46) + MINT(46)=MINTSV + MINTSV=MINT(107) + MINT(107)=MINT(108) + MINT(108)=MINTSV + IF(MINT(47).EQ.2.OR.MINT(47).EQ.3) MINT(47)=5-MINT(47) + ENDIF + +C...Pick process type. + RSUB=XSEC(0,1)*PYR(0) + DO 110 I=1,500 + IF(MSUB(I).NE.1) GOTO 110 + ISUB=I + RSUB=RSUB-XSEC(I,1) + IF(RSUB.LE.0D0) GOTO 120 + 110 CONTINUE + 120 IF(ISUB.EQ.95) ISUB=96 + IF(ISUB.EQ.96) INMULT=1 + +C...Choice of inclusive process type - pileup events. + ELSEIF(MINT(82).GE.2.AND.ISUB.EQ.0) THEN + RSUB=VINT(131)*PYR(0) + ISUB=96 + IF(RSUB.GT.SIGT(0,0,5)) ISUB=94 + IF(RSUB.GT.SIGT(0,0,5)+SIGT(0,0,4)) ISUB=93 + IF(RSUB.GT.SIGT(0,0,5)+SIGT(0,0,4)+SIGT(0,0,3)) ISUB=92 + IF(RSUB.GT.SIGT(0,0,5)+SIGT(0,0,4)+SIGT(0,0,3)+SIGT(0,0,2)) + & ISUB=91 + IF(ISUB.EQ.96) INMULT=1 + ENDIF + +C...Choice of photon energy and flux factor inside lepton. + IF(MINT(141).NE.0.OR.MINT(142).NE.0) THEN + CALL PYGAGA(3,WTGAGA) + IF(ISUB.GE.131.AND.ISUB.LE.140) THEN + CKIN(3)=MAX(VINT(285),VINT(154)) + CKIN(1)=2D0*CKIN(3) + ENDIF +C...When necessary set direct/resolved photon by hand. + ELSEIF(MINT(15).EQ.22.OR.MINT(16).EQ.22) THEN + IF(MINT(15).EQ.22.AND.MINT(41).EQ.2) MINT(15)=0 + IF(MINT(16).EQ.22.AND.MINT(42).EQ.2) MINT(16)=0 + ENDIF + +C...Restrict direct*resolved processes to pTmin >= Q, +C...to avoid doublecounting with DIS. + IF(MSTP(18).EQ.3.AND.ISUB.GE.131.AND.ISUB.LE.136) THEN + IF(MINT(15).EQ.22) THEN + CKIN(3)=MAX(VINT(285),VINT(154),ABS(VINT(3))) + ELSE + CKIN(3)=MAX(VINT(285),VINT(154),ABS(VINT(4))) + ENDIF + CKIN(1)=2D0*CKIN(3) + ENDIF + +C...Set up for multiple interactions. + IF(INMULT.EQ.1) CALL PYMULT(2) + +C...Loopback point for minimum bias in photon physics. + LOOP2=0 + 125 LOOP2=LOOP2+1 + IF(MINT(82).EQ.1) NGEN(0,1)=NGEN(0,1)+MINT(143) + IF(MINT(82).EQ.1) NGEN(ISUB,1)=NGEN(ISUB,1)+MINT(143) + IF(ISUB.EQ.96.AND.LOOP2.EQ.1.AND.MINT(82).EQ.1) + &NGEN(97,1)=NGEN(97,1)+MINT(143) + MINT(1)=ISUB + ISTSB=ISET(ISUB) + +C...Random choice of flavour for some SUSY processes. + IF(ISUB.GE.201.AND.ISUB.LE.301) THEN +C...~e_L ~nu_e or ~mu_L ~nu_mu. + IF(ISUB.EQ.210) THEN + KFPR(ISUB,1)=KSUSY1+11+2*INT(0.5D0+PYR(0)) + KFPR(ISUB,2)=KFPR(ISUB,1)+1 +C...~nu_e ~nu_e(bar) or ~nu_mu ~nu_mu(bar). + ELSEIF(ISUB.EQ.213) THEN + KFPR(ISUB,1)=KSUSY1+12+2*INT(0.5D0+PYR(0)) + KFPR(ISUB,2)=KFPR(ISUB,1) +C...~q ~chi/~g; ~q = ~d, ~u, ~s, ~c or ~b. + ELSEIF(ISUB.GE.246.AND.ISUB.LE.259) THEN + IF(ISUB.GE.258) THEN + RKF=4D0 + ELSE + RKF=5D0 + ENDIF + IF(MOD(ISUB,2).EQ.0) THEN + KFPR(ISUB,1)=KSUSY1+1+INT(RKF*PYR(0)) + ELSE + KFPR(ISUB,1)=KSUSY2+1+INT(RKF*PYR(0)) + ENDIF +C...~q1 ~q2; ~q = ~d, ~u, ~s, or ~c. + ELSEIF(ISUB.GE.271.AND.ISUB.LE.276) THEN + IF(ISUB.EQ.271.OR.ISUB.EQ.274) THEN + KSU1=KSUSY1 + KSU2=KSUSY1 + ELSEIF(ISUB.EQ.272.OR.ISUB.EQ.275) THEN + KSU1=KSUSY2 + KSU2=KSUSY2 + ELSEIF(PYR(0).LT.0.5D0) THEN + KSU1=KSUSY1 + KSU2=KSUSY2 + ELSE + KSU1=KSUSY2 + KSU2=KSUSY1 + ENDIF + KFPR(ISUB,1)=KSU1+1+INT(4D0*PYR(0)) + KFPR(ISUB,2)=KSU2+1+INT(4D0*PYR(0)) +C...~q ~q(bar); ~q = ~d, ~u, ~s, or ~c. + ELSEIF(ISUB.EQ.277.OR.ISUB.EQ.279) THEN + KFPR(ISUB,1)=KSUSY1+1+INT(4D0*PYR(0)) + KFPR(ISUB,2)=KFPR(ISUB,1) + ELSEIF(ISUB.EQ.278.OR.ISUB.EQ.280) THEN + KFPR(ISUB,1)=KSUSY2+1+INT(4D0*PYR(0)) + KFPR(ISUB,2)=KFPR(ISUB,1) +C...~q1 ~q2; ~q = ~d, ~u, ~s, or ~c. + ELSEIF(ISUB.GE.281.AND.ISUB.LE.286) THEN + IF(ISUB.EQ.281.OR.ISUB.EQ.284) THEN + KSU1=KSUSY1 + KSU2=KSUSY1 + ELSEIF(ISUB.EQ.282.OR.ISUB.EQ.285) THEN + KSU1=KSUSY2 + KSU2=KSUSY2 + ELSEIF(PYR(0).LT.0.5D0) THEN + KSU1=KSUSY1 + KSU2=KSUSY2 + ELSE + KSU1=KSUSY2 + KSU2=KSUSY1 + ENDIF + IF(ISUB.EQ.281.OR.ISUB.LE.283) THEN + RKF=5D0 + ELSE + RKF=4D0 + ENDIF + KFPR(ISUB,2)=KSU2+1+INT(RKF*PYR(0)) + ENDIF + ENDIF + +C...Find resonances (explicit or implicit in cross-section). + MINT(72)=0 + KFR1=0 + IF(ISTSB.EQ.1.OR.ISTSB.EQ.3.OR.ISTSB.EQ.5) THEN + KFR1=KFPR(ISUB,1) + ELSEIF(ISUB.EQ.24.OR.ISUB.EQ.25.OR.ISUB.EQ.110.OR.ISUB.EQ.165.OR. + & ISUB.EQ.171.OR.ISUB.EQ.176) THEN + KFR1=23 + ELSEIF(ISUB.EQ.23.OR.ISUB.EQ.26.OR.ISUB.EQ.166.OR.ISUB.EQ.172.OR. + & ISUB.EQ.177) THEN + KFR1=24 + ELSEIF(ISUB.GE.71.AND.ISUB.LE.77) THEN + KFR1=25 + IF(MSTP(46).EQ.5) THEN + KFR1=30 + PMAS(30,1)=PARP(45) + PMAS(30,2)=PARP(45)**3/(96D0*PARU(1)*PARP(47)**2) + ENDIF + ELSEIF(ISUB.EQ.194) THEN + KFR1=54 + ELSEIF(ISUB.EQ.195) THEN + KFR1=55 + ELSEIF(ISUB.GE.361.AND.ISUB.LE.368) THEN + KFR1=54 + ELSEIF(ISUB.GE.370.AND.ISUB.LE.377) THEN + KFR1=55 + ENDIF + CKMX=CKIN(2) + IF(CKMX.LE.0D0) CKMX=VINT(1) + KCR1=PYCOMP(KFR1) + IF(KFR1.NE.0) THEN + IF(CKIN(1).GT.PMAS(KCR1,1)+20D0*PMAS(KCR1,2).OR. + & CKMX.LT.PMAS(KCR1,1)-20D0*PMAS(KCR1,2)) KFR1=0 + ENDIF + IF(KFR1.NE.0) THEN + TAUR1=PMAS(KCR1,1)**2/VINT(2) + IF(KFR1.EQ.54) THEN + CALL PYTECM(S1,S2) + TAUR1=S1/VINT(2) + ENDIF + GAMR1=PMAS(KCR1,1)*PMAS(KCR1,2)/VINT(2) + MINT(72)=1 + MINT(73)=KFR1 + VINT(73)=TAUR1 + VINT(74)=GAMR1 + ENDIF + IF(ISUB.EQ.141.OR.ISUB.EQ.194.OR.(ISUB.GE.364.AND.ISUB.LE.368)) + $THEN + KFR2=23 + IF(ISUB.EQ.194) THEN + KFR2=56 + ELSEIF(ISUB.GE.364.AND.ISUB.LE.368) THEN + KFR2=56 + ENDIF + KCR2=PYCOMP(KFR2) + TAUR2=PMAS(KCR2,1)**2/VINT(2) + IF(KFR2.EQ.56) THEN + CALL PYTECM(S1,S2) + TAUR2=S2/VINT(2) + ENDIF + GAMR2=PMAS(KCR2,1)*PMAS(KCR2,2)/VINT(2) + IF(CKIN(1).GT.PMAS(KCR2,1)+20D0*PMAS(KCR2,2).OR. + & CKMX.LT.PMAS(KCR2,1)-20D0*PMAS(KCR2,2)) KFR2=0 + IF(KFR2.NE.0.AND.KFR1.NE.0) THEN + MINT(72)=2 + MINT(74)=KFR2 + VINT(75)=TAUR2 + VINT(76)=GAMR2 + ELSEIF(KFR2.NE.0) THEN + KFR1=KFR2 + TAUR1=TAUR2 + GAMR1=GAMR2 + MINT(72)=1 + MINT(73)=KFR1 + VINT(73)=TAUR1 + VINT(74)=GAMR1 + ENDIF + ENDIF + +C...Find product masses and minimum pT of process, +C...optionally with broadening according to a truncated Breit-Wigner. + VINT(63)=0D0 + VINT(64)=0D0 + MINT(71)=0 + VINT(71)=CKIN(3) + IF(MINT(82).GE.2) VINT(71)=0D0 + VINT(80)=1D0 + IF(ISTSB.EQ.2.OR.ISTSB.EQ.4) THEN + NBW=0 + DO 140 I=1,2 + PMMN(I)=0D0 + IF(KFPR(ISUB,I).EQ.0) THEN + ELSEIF(MSTP(42).LE.0.OR.PMAS(PYCOMP(KFPR(ISUB,I)),2).LT. + & PARP(41)) THEN + VINT(62+I)=PMAS(PYCOMP(KFPR(ISUB,I)),1)**2 + ELSE + NBW=NBW+1 +C...This prevents SUSY/t particles from becoming too light. + KFLW=KFPR(ISUB,I) + IF(KFLW/KSUSY1.EQ.1.OR.KFLW/KSUSY1.EQ.2) THEN + KCW=PYCOMP(KFLW) + PMMN(I)=PMAS(KCW,1) + DO 130 IDC=MDCY(KCW,2),MDCY(KCW,2)+MDCY(KCW,3)-1 + IF(MDME(IDC,1).GT.0.AND.BRAT(IDC).GT.1E-4) THEN + PMSUM=PMAS(PYCOMP(KFDP(IDC,1)),1)+ + & PMAS(PYCOMP(KFDP(IDC,2)),1) + IF(KFDP(IDC,3).NE.0) PMSUM=PMSUM+ + & PMAS(PYCOMP(KFDP(IDC,3)),1) + PMMN(I)=MIN(PMMN(I),PMSUM) + ENDIF + 130 CONTINUE + ELSEIF(KFLW.EQ.6) THEN + PMMN(I)=PMAS(24,1)+PMAS(5,1) + ENDIF + ENDIF + 140 CONTINUE + IF(NBW.GE.1) THEN + CKIN41=CKIN(41) + CKIN43=CKIN(43) + CKIN(41)=MAX(PMMN(1),CKIN(41)) + CKIN(43)=MAX(PMMN(2),CKIN(43)) + CALL PYOFSH(4,0,KFPR(ISUB,1),KFPR(ISUB,2),0D0,PQM3,PQM4) + CKIN(41)=CKIN41 + CKIN(43)=CKIN43 + IF(MINT(51).EQ.1) THEN + IF(MINT(121).GT.1) CALL PYSAVE(2,IGA) + IF(MFAIL.EQ.1) THEN + MSTI(61)=1 + RETURN + ENDIF + GOTO 100 + ENDIF + VINT(63)=PQM3**2 + VINT(64)=PQM4**2 + ENDIF + IF(MIN(VINT(63),VINT(64)).LT.CKIN(6)**2) MINT(71)=1 + IF(MINT(71).EQ.1) VINT(71)=MAX(CKIN(3),CKIN(5)) + ENDIF + +C...Prepare for additional variable choices in 2 -> 3. + IF(ISTSB.EQ.5) THEN + VINT(201)=0D0 + IF(KFPR(ISUB,2).GT.0) VINT(201)=PMAS(PYCOMP(KFPR(ISUB,2)),1) + VINT(206)=VINT(201) + VINT(204)=PMAS(23,1) + IF(ISUB.EQ.124.OR.ISUB.EQ.351) VINT(204)=PMAS(24,1) + IF(ISUB.EQ.352) VINT(204)=PMAS(63,1) + IF(ISUB.EQ.121.OR.ISUB.EQ.122.OR.ISUB.EQ.181.OR.ISUB.EQ.182.OR. + & ISUB.EQ.186.OR.ISUB.EQ.187) VINT(204)=VINT(201) + VINT(209)=VINT(204) + ENDIF + +C...Select incoming VDM particle (rho/omega/phi/J/psi). + IF(ISTSB.NE.0.AND.(MINT(101).GE.2.OR.MINT(102).GE.2).AND. + &(MINT(123).EQ.2.OR.MINT(123).EQ.3.OR.MINT(123).EQ.7)) THEN + VRN=PYR(0)*SIGT(0,0,5) + IF(MINT(101).LE.1) THEN + I1MN=0 + I1MX=0 + ELSE + I1MN=1 + I1MX=MINT(101) + ENDIF + IF(MINT(102).LE.1) THEN + I2MN=0 + I2MX=0 + ELSE + I2MN=1 + I2MX=MINT(102) + ENDIF + DO 160 I1=I1MN,I1MX + KFV1=110*I1+3 + DO 150 I2=I2MN,I2MX + KFV2=110*I2+3 + VRN=VRN-SIGT(I1,I2,5) + IF(VRN.LE.0D0) GOTO 170 + 150 CONTINUE + 160 CONTINUE + 170 IF(MINT(101).GE.2) MINT(103)=KFV1 + IF(MINT(102).GE.2) MINT(104)=KFV2 + ENDIF + + IF(ISTSB.EQ.0) THEN +C...Elastic scattering or single or double diffractive scattering. + +C...Select incoming particle (rho/omega/phi/J/psi for VDM) and mass. + MINT(103)=MINT(11) + MINT(104)=MINT(12) + PMM(1)=VINT(3) + PMM(2)=VINT(4) + IF(MINT(101).GE.2.OR.MINT(102).GE.2) THEN + JJ=ISUB-90 + VRN=PYR(0)*SIGT(0,0,JJ) + IF(MINT(101).LE.1) THEN + I1MN=0 + I1MX=0 + ELSE + I1MN=1 + I1MX=MINT(101) + ENDIF + IF(MINT(102).LE.1) THEN + I2MN=0 + I2MX=0 + ELSE + I2MN=1 + I2MX=MINT(102) + ENDIF + DO 190 I1=I1MN,I1MX + KFV1=110*I1+3 + DO 180 I2=I2MN,I2MX + KFV2=110*I2+3 + VRN=VRN-SIGT(I1,I2,JJ) + IF(VRN.LE.0D0) GOTO 200 + 180 CONTINUE + 190 CONTINUE + 200 IF(MINT(101).GE.2) THEN + MINT(103)=KFV1 + PMM(1)=PYMASS(KFV1) + ENDIF + IF(MINT(102).GE.2) THEN + MINT(104)=KFV2 + PMM(2)=PYMASS(KFV2) + ENDIF + ENDIF + VINT(67)=PMM(1) + VINT(68)=PMM(2) + +C...Select mass for GVMD states (rejecting previous assignment). + Q0S=4D0*PARP(15)**2 + Q1S=4D0*VINT(154)**2 + LOOP3=0 + 202 LOOP3=LOOP3+1 + DO 208 JT=1,2 + IF(MINT(106+JT).EQ.3) THEN + PS=VINT(2+JT)**2 + PMM(JT)=(Q0S+PS)*(Q1S+PS)/ + & (Q0S+PYR(0)*(Q1S-Q0S)+PS)-PS + IF(MINT(102+JT).GE.333) PMM(JT)=PMM(JT)- + & PMAS(PYCOMP(113),1)+PMAS(PYCOMP(MINT(102+JT)),1) + ENDIF + 208 CONTINUE + IF(PMM(1)+PMM(2)+PARP(104).GE.VINT(1)) THEN + IF(LOOP3.LT.100.AND.(MINT(107).EQ.3.OR.MINT(108).EQ.3)) + & GOTO 202 + GOTO 100 + ENDIF + +C...Side/sides of diffractive system. + MINT(17)=0 + MINT(18)=0 + IF(ISUB.EQ.92.OR.ISUB.EQ.94) MINT(17)=1 + IF(ISUB.EQ.93.OR.ISUB.EQ.94) MINT(18)=1 + +C...Find masses of particles and minimal masses of diffractive states. + DO 210 JT=1,2 + PDIF(JT)=PMM(JT) + VINT(68+JT)=PDIF(JT) + IF(MINT(16+JT).EQ.1) PDIF(JT)=PDIF(JT)+PARP(102) + 210 CONTINUE + SH=VINT(2) + SQM1=PMM(1)**2 + SQM2=PMM(2)**2 + SQM3=PDIF(1)**2 + SQM4=PDIF(2)**2 + SMRES1=(PMM(1)+PMRC)**2 + SMRES2=(PMM(2)+PMRC)**2 + +C...Find elastic slope and lower limit diffractive slope. + IHA=MAX(2,IABS(MINT(103))/110) + IF(IHA.GE.5) IHA=1 + IHB=MAX(2,IABS(MINT(104))/110) + IF(IHB.GE.5) IHB=1 + IF(ISUB.EQ.91) THEN + BMN=2D0*BHAD(IHA)+2D0*BHAD(IHB)+4D0*SH**EPS-4.2D0 + ELSEIF(ISUB.EQ.92) THEN + BMN=MAX(2D0,2D0*BHAD(IHB)) + ELSEIF(ISUB.EQ.93) THEN + BMN=MAX(2D0,2D0*BHAD(IHA)) + ELSEIF(ISUB.EQ.94) THEN + BMN=2D0*ALP*4D0 + ENDIF + +C...Determine maximum possible t range and coefficient of generation. + SQLA12=(SH-SQM1-SQM2)**2-4D0*SQM1*SQM2 + SQLA34=(SH-SQM3-SQM4)**2-4D0*SQM3*SQM4 + THA=SH-(SQM1+SQM2+SQM3+SQM4)+(SQM1-SQM2)*(SQM3-SQM4)/SH + THB=SQRT(MAX(0D0,SQLA12))*SQRT(MAX(0D0,SQLA34))/SH + THC=(SQM3-SQM1)*(SQM4-SQM2)+(SQM1+SQM4-SQM2-SQM3)* + & (SQM1*SQM4-SQM2*SQM3)/SH + THL=-0.5D0*(THA+THB) + THU=THC/THL + THRND=EXP(MAX(-50D0,BMN*(THL-THU)))-1D0 + +C...Select diffractive mass/masses according to dm^2/m^2. + LOOP3=0 + 220 LOOP3=LOOP3+1 + DO 230 JT=1,2 + IF(MINT(16+JT).EQ.0) THEN + PDIF(2+JT)=PDIF(JT) + ELSE + PMMIN=PDIF(JT) + PMMAX=MAX(VINT(2+JT),VINT(1)-PDIF(3-JT)) + PDIF(2+JT)=PMMIN*(PMMAX/PMMIN)**PYR(0) + ENDIF + 230 CONTINUE + SQM3=PDIF(3)**2 + SQM4=PDIF(4)**2 + +C..Additional mass factors, including resonance enhancement. + IF(PDIF(3)+PDIF(4).GE.VINT(1)) THEN + IF(LOOP3.LT.100) GOTO 220 + GOTO 100 + ENDIF + IF(ISUB.EQ.92) THEN + FSD=(1D0-SQM3/SH)*(1D0+CRES*SMRES1/(SMRES1+SQM3)) + IF(FSD.LT.PYR(0)*(1D0+CRES)) GOTO 220 + ELSEIF(ISUB.EQ.93) THEN + FSD=(1D0-SQM4/SH)*(1D0+CRES*SMRES2/(SMRES2+SQM4)) + IF(FSD.LT.PYR(0)*(1D0+CRES)) GOTO 220 + ELSEIF(ISUB.EQ.94) THEN + FDD=(1D0-(PDIF(3)+PDIF(4))**2/SH)*(SH*SMP/ + & (SH*SMP+SQM3*SQM4))*(1D0+CRES*SMRES1/(SMRES1+SQM3))* + & (1D0+CRES*SMRES2/(SMRES2+SQM4)) + IF(FDD.LT.PYR(0)*(1D0+CRES)**2) GOTO 220 + ENDIF + +C...Select t according to exp(Bmn*t) and correct to right slope. + TH=THU+LOG(1D0+THRND*PYR(0))/BMN + IF(ISUB.GE.92) THEN + IF(ISUB.EQ.92) THEN + BADD=2D0*ALP*LOG(SH/SQM3) + IF(BHAD(IHB).LT.1D0) BADD=MAX(0D0,BADD+2D0*BHAD(IHB)-2D0) + ELSEIF(ISUB.EQ.93) THEN + BADD=2D0*ALP*LOG(SH/SQM4) + IF(BHAD(IHA).LT.1D0) BADD=MAX(0D0,BADD+2D0*BHAD(IHA)-2D0) + ELSEIF(ISUB.EQ.94) THEN + BADD=2D0*ALP*(LOG(EXP(4D0)+SH/(ALP*SQM3*SQM4))-4D0) + ENDIF + IF(EXP(MAX(-50D0,BADD*(TH-THU))).LT.PYR(0)) GOTO 220 + ENDIF + +C...Check whether m^2 and t choices are consistent. + SQLA34=(SH-SQM3-SQM4)**2-4D0*SQM3*SQM4 + THA=SH-(SQM1+SQM2+SQM3+SQM4)+(SQM1-SQM2)*(SQM3-SQM4)/SH + THB=SQRT(MAX(0D0,SQLA12))*SQRT(MAX(0D0,SQLA34))/SH + IF(THB.LE.1D-8) GOTO 220 + THC=(SQM3-SQM1)*(SQM4-SQM2)+(SQM1+SQM4-SQM2-SQM3)* + & (SQM1*SQM4-SQM2*SQM3)/SH + THLM=-0.5D0*(THA+THB) + THUM=THC/THLM + IF(TH.LT.THLM.OR.TH.GT.THUM) GOTO 220 + +C...Information to output. + VINT(21)=1D0 + VINT(22)=0D0 + VINT(23)=MIN(1D0,MAX(-1D0,(THA+2D0*TH)/THB)) + VINT(45)=TH + VINT(59)=2D0*SQRT(MAX(0D0,-(THC+THA*TH+TH**2)))/THB + VINT(63)=PDIF(3)**2 + VINT(64)=PDIF(4)**2 + +C...Note: in the following, by In is meant the integral over the +C...quantity multiplying coefficient cn. +C...Choose tau according to h1(tau)/tau, where +C...h1(tau) = c1 + I1/I2*c2*1/tau + I1/I3*c3*1/(tau+tau_R) + +C...I1/I4*c4*tau/((s*tau-m^2)^2+(m*Gamma)^2) + +C...I1/I5*c5*1/(tau+tau_R') + +C...I1/I6*c6*tau/((s*tau-m'^2)^2+(m'*Gamma')^2) + +C...I1/I7*c7*tau/(1.-tau), and +C...c1 + c2 + c3 + c4 + c5 + c6 + c7 = 1. + ELSEIF(ISTSB.GE.1.AND.ISTSB.LE.5) THEN + CALL PYKLIM(1) + IF(MINT(51).NE.0) THEN + IF(MINT(121).GT.1) CALL PYSAVE(2,IGA) + IF(MFAIL.EQ.1) THEN + MSTI(61)=1 + RETURN + ENDIF + GOTO 100 + ENDIF + RTAU=PYR(0) + MTAU=1 + IF(RTAU.GT.COEF(ISUB,1)) MTAU=2 + IF(RTAU.GT.COEF(ISUB,1)+COEF(ISUB,2)) MTAU=3 + IF(RTAU.GT.COEF(ISUB,1)+COEF(ISUB,2)+COEF(ISUB,3)) MTAU=4 + IF(RTAU.GT.COEF(ISUB,1)+COEF(ISUB,2)+COEF(ISUB,3)+COEF(ISUB,4)) + & MTAU=5 + IF(RTAU.GT.COEF(ISUB,1)+COEF(ISUB,2)+COEF(ISUB,3)+COEF(ISUB,4)+ + & COEF(ISUB,5)) MTAU=6 + IF(RTAU.GT.COEF(ISUB,1)+COEF(ISUB,2)+COEF(ISUB,3)+COEF(ISUB,4)+ + & COEF(ISUB,5)+COEF(ISUB,6)) MTAU=7 + CALL PYKMAP(1,MTAU,PYR(0)) + +C...2 -> 3, 4 processes: +C...Choose tau' according to h4(tau,tau')/tau', where +C...h4(tau,tau') = c1 + I1/I2*c2*(1 - tau/tau')^3/tau' + +C...I1/I3*c3*1/(1 - tau'), and c1 + c2 + c3 = 1. + IF(ISTSB.GE.3.AND.ISTSB.LE.5) THEN + CALL PYKLIM(4) + IF(MINT(51).NE.0) THEN + IF(MINT(121).GT.1) CALL PYSAVE(2,IGA) + IF(MFAIL.EQ.1) THEN + MSTI(61)=1 + RETURN + ENDIF + GOTO 100 + ENDIF + RTAUP=PYR(0) + MTAUP=1 + IF(RTAUP.GT.COEF(ISUB,18)) MTAUP=2 + IF(RTAUP.GT.COEF(ISUB,18)+COEF(ISUB,19)) MTAUP=3 + CALL PYKMAP(4,MTAUP,PYR(0)) + ENDIF + +C...Choose y* according to h2(y*), where +C...h2(y*) = I0/I1*c1*(y*-y*min) + I0/I2*c2*(y*max-y*) + +C...I0/I3*c3*1/cosh(y*) + I0/I4*c4*1/(1-exp(y*-y*max)) + +C...I0/I5*c5*1/(1-exp(-y*-y*min)), I0 = y*max-y*min, +C...and c1 + c2 + c3 + c4 + c5 = 1. + CALL PYKLIM(2) + IF(MINT(51).NE.0) THEN + IF(MINT(121).GT.1) CALL PYSAVE(2,IGA) + IF(MFAIL.EQ.1) THEN + MSTI(61)=1 + RETURN + ENDIF + GOTO 100 + ENDIF + RYST=PYR(0) + MYST=1 + IF(RYST.GT.COEF(ISUB,8)) MYST=2 + IF(RYST.GT.COEF(ISUB,8)+COEF(ISUB,9)) MYST=3 + IF(RYST.GT.COEF(ISUB,8)+COEF(ISUB,9)+COEF(ISUB,10)) MYST=4 + IF(RYST.GT.COEF(ISUB,8)+COEF(ISUB,9)+COEF(ISUB,10)+ + & COEF(ISUB,11)) MYST=5 + CALL PYKMAP(2,MYST,PYR(0)) + +C...2 -> 2 processes: +C...Choose cos(theta-hat) (cth) according to h3(cth), where +C...h3(cth) = c0 + I0/I1*c1*1/(A - cth) + I0/I2*c2*1/(A + cth) + +C...I0/I3*c3*1/(A - cth)^2 + I0/I4*c4*1/(A + cth)^2, +C...A = 1 + 2*(m3*m4/sh)^2 (= 1 for massless products), +C...and c0 + c1 + c2 + c3 + c4 = 1. + CALL PYKLIM(3) + IF(MINT(51).NE.0) THEN + IF(MINT(121).GT.1) CALL PYSAVE(2,IGA) + IF(MFAIL.EQ.1) THEN + MSTI(61)=1 + RETURN + ENDIF + GOTO 100 + ENDIF + IF(ISTSB.EQ.2.OR.ISTSB.EQ.4) THEN + RCTH=PYR(0) + MCTH=1 + IF(RCTH.GT.COEF(ISUB,13)) MCTH=2 + IF(RCTH.GT.COEF(ISUB,13)+COEF(ISUB,14)) MCTH=3 + IF(RCTH.GT.COEF(ISUB,13)+COEF(ISUB,14)+COEF(ISUB,15)) MCTH=4 + IF(RCTH.GT.COEF(ISUB,13)+COEF(ISUB,14)+COEF(ISUB,15)+ + & COEF(ISUB,16)) MCTH=5 + CALL PYKMAP(3,MCTH,PYR(0)) + ENDIF + +C...2 -> 3 : select pT1, phi1, pT2, phi2, y3 for 3 outgoing. + IF(ISTSB.EQ.5) THEN + CALL PYKMAP(5,0,0D0) + IF(MINT(51).NE.0) THEN + IF(MINT(121).GT.1) CALL PYSAVE(2,IGA) + IF(MFAIL.EQ.1) THEN + MSTI(61)=1 + RETURN + ENDIF + GOTO 100 + ENDIF + ENDIF + +C...DIS as f + gamma* -> f process: set dummy values. + ELSEIF(ISTSB.EQ.8) THEN + VINT(21)=0.9D0 + VINT(22)=0D0 + VINT(23)=0D0 + VINT(47)=0D0 + VINT(48)=0D0 + +C...Low-pT or multiple interactions (first semihard interaction). + ELSEIF(ISTSB.EQ.9) THEN + CALL PYMULT(3) + ISUB=MINT(1) + +C...Generate user-defined process: kinematics plus weight. + ELSEIF(ISTSB.EQ.11) THEN + MSTI(51)=0 + CALL PYUPEV(ISUB,SIGS) + IF(NUP.LE.0) THEN + MINT(51)=2 + MSTI(51)=1 + IF(MINT(82).EQ.1) THEN + NGEN(0,1)=NGEN(0,1)-1 + NGEN(0,2)=NGEN(0,2)-1 + NGEN(ISUB,1)=NGEN(ISUB,1)-1 + ENDIF + IF(MINT(121).GT.1) CALL PYSAVE(2,IGA) + RETURN + ENDIF + +C...Construct 'trivial' kinematical variables needed. + KFL1=KUP(1,2) + KFL2=KUP(2,2) + VINT(41)=2D0*PUP(1,4)/VINT(1) + VINT(42)=2D0*PUP(2,4)/VINT(1) + VINT(21)=VINT(41)*VINT(42) + VINT(22)=0.5D0*LOG(VINT(41)/VINT(42)) + VINT(44)=VINT(21)*VINT(2) + VINT(43)=SQRT(MAX(0D0,VINT(44))) + VINT(56)=Q2UP(0) + VINT(55)=SQRT(MAX(0D0,VINT(56))) + +C...Construct other kinematical variables needed (approximately). + VINT(23)=0D0 + VINT(26)=VINT(21) + VINT(45)=-0.5D0*VINT(44) + VINT(46)=-0.5D0*VINT(44) + VINT(49)=VINT(43) + VINT(50)=VINT(44) + VINT(51)=VINT(55) + VINT(52)=VINT(56) + VINT(53)=VINT(55) + VINT(54)=VINT(56) + VINT(25)=0D0 + VINT(48)=0D0 + DO 240 IUP=3,NUP + IF(KUP(IUP,1).EQ.1) VINT(25)=VINT(25)+2D0*(PUP(IUP,5)**2+ + & PUP(IUP,1)**2+PUP(IUP,2)**2)/VINT(2) + IF(KUP(IUP,1).EQ.1) VINT(48)=VINT(48)+0.5D0*(PUP(IUP,1)**2+ + & PUP(IUP,2)**2) + 240 CONTINUE + VINT(47)=SQRT(VINT(48)) + +C...Calculate parton distribution weights. + IF(MINT(47).GE.2) THEN + DO 260 I=3-MIN(2,MINT(45)),MIN(2,MINT(46)) + MINT(105)=MINT(102+I) + MINT(109)=MINT(106+I) + VINT(120)=VINT(2+I) + IF(MSTP(57).LE.1) THEN + CALL PYPDFU(MINT(10+I),VINT(40+I),Q2UP(0),XPQ) + ELSE + CALL PYPDFL(MINT(10+I),VINT(40+I),Q2UP(0),XPQ) + ENDIF + DO 250 KFL=-25,25 + XSFX(I,KFL)=XPQ(KFL) + 250 CONTINUE + 260 CONTINUE + ENDIF + ENDIF + +C...Choose azimuthal angle. + VINT(24)=PARU(2)*PYR(0) + +C...Check against user cuts on kinematics at parton level. + MINT(51)=0 + IF((ISUB.LE.90.OR.ISUB.GT.100).AND.ISTSB.LE.10) CALL PYKLIM(0) + IF(MINT(51).NE.0) THEN + IF(MINT(121).GT.1) CALL PYSAVE(2,IGA) + IF(MFAIL.EQ.1) THEN + MSTI(61)=1 + RETURN + ENDIF + GOTO 100 + ENDIF + IF(MINT(82).EQ.1.AND.MSTP(141).GE.1.AND.ISTSB.LE.10) THEN + MCUT=0 + IF(MSUB(91)+MSUB(92)+MSUB(93)+MSUB(94)+MSUB(95).EQ.0) + & CALL PYKCUT(MCUT) + IF(MCUT.NE.0) THEN + IF(MINT(121).GT.1) CALL PYSAVE(2,IGA) + IF(MFAIL.EQ.1) THEN + MSTI(61)=1 + RETURN + ENDIF + GOTO 100 + ENDIF + ENDIF + +C...Calculate differential cross-section for different subprocesses. + IF(ISTSB.LE.10) CALL PYSIGH(NCHN,SIGS) + SIGSOR=SIGS + SIGLPT=SIGT(0,0,5)*VINT(315)*VINT(316) + +C...Multiply cross section by lepton -> photon flux factor. + IF(MINT(141).NE.0.OR.MINT(142).NE.0) THEN + SIGS=WTGAGA*SIGS + DO 270 ICHN=1,NCHN + SIGH(ICHN)=WTGAGA*SIGH(ICHN) + 270 CONTINUE + SIGLPT=WTGAGA*SIGLPT + ENDIF + +C...Multiply cross-section by user-defined weights. + IF(MSTP(173).EQ.1) THEN + SIGS=PARP(173)*SIGS + DO 280 ICHN=1,NCHN + SIGH(ICHN)=PARP(173)*SIGH(ICHN) + 280 CONTINUE + SIGLPT=PARP(173)*SIGLPT + ENDIF + WTXS=1D0 + SIGSWT=SIGS + VINT(99)=1D0 + VINT(100)=1D0 + IF(MINT(82).EQ.1.AND.MSTP(142).GE.1) THEN + IF(ISUB.NE.96.AND.MSUB(91)+MSUB(92)+MSUB(93)+MSUB(94)+ + & MSUB(95).EQ.0) CALL PYEVWT(WTXS) + SIGSWT=WTXS*SIGS + VINT(99)=WTXS + IF(MSTP(142).EQ.1) VINT(100)=1D0/WTXS + ENDIF + +C...Calculations for Monte Carlo estimate of all cross-sections. + IF(MINT(82).EQ.1.AND.ISUB.LE.90.OR.ISUB.GE.96) THEN + IF(MSTP(142).LE.1) THEN + XSEC(ISUB,2)=XSEC(ISUB,2)+SIGS + ELSE + XSEC(ISUB,2)=XSEC(ISUB,2)+SIGSWT + ENDIF + ELSEIF(MINT(82).EQ.1) THEN + XSEC(ISUB,2)=XSEC(ISUB,2)+SIGS + ENDIF + IF((ISUB.EQ.95.OR.ISUB.EQ.96).AND.LOOP2.EQ.1.AND. + &MINT(82).EQ.1) XSEC(97,2)=XSEC(97,2)+SIGLPT + +C...Multiple interactions: store results of cross-section calculation. + IF(MINT(50).EQ.1.AND.MSTP(82).GE.3) THEN + VINT(153)=SIGSOR + CALL PYMULT(4) + ENDIF + +C...Check that weight not negative. + VIOL=SIGSWT/XSEC(ISUB,1) + IF(ISUB.EQ.96.AND.MSTP(173).EQ.1) VIOL=VIOL/PARP(174) + IF(MSTP(123).LE.0) THEN + IF(VIOL.LT.-1D-3) THEN + WRITE(MSTU(11),5000) VIOL,NGEN(0,3)+1 + IF(MSTP(122).GE.1) WRITE(MSTU(11),5100) ISUB,VINT(21), + & VINT(22),VINT(23),VINT(26) + STOP + ENDIF + ELSE + IF(VIOL.LT.MIN(-1D-3,VINT(109))) THEN + VINT(109)=VIOL + WRITE(MSTU(11),5200) VIOL,NGEN(0,3)+1 + IF(MSTP(122).GE.1) WRITE(MSTU(11),5100) ISUB,VINT(21), + & VINT(22),VINT(23),VINT(26) + ENDIF + ENDIF + +C...Weighting using estimate of maximum of differential cross-section. + IF(MFAIL.EQ.0.AND.ISUB.NE.95.AND.ISUB.NE.96) THEN + IF(VIOL.LT.PYR(0)) THEN + IF(MINT(121).GT.1) CALL PYSAVE(2,IGA) + IF(ISUB.GE.91.AND.ISUB.LE.94) ISUB=0 + GOTO 100 + ENDIF + ELSEIF(MFAIL.EQ.0) THEN + RATND=SIGLPT/XSEC(95,1) + IF(LOOP2.EQ.1.AND.RATND.LT.PYR(0)) THEN + IF(MINT(121).GT.1) CALL PYSAVE(2,IGA) + ISUB=0 + GOTO 100 + ENDIF + VIOL=VIOL/RATND + IF(VIOL.LT.PYR(0)) THEN + GOTO 125 + ENDIF + ELSEIF(ISUB.NE.95.AND.ISUB.NE.96) THEN + IF(VIOL.LT.PYR(0)) THEN + MSTI(61)=1 + IF(MINT(121).GT.1) CALL PYSAVE(2,IGA) + RETURN + ENDIF + ELSE + RATND=SIGLPT/XSEC(95,1) + IF(LOOP.EQ.1.AND.RATND.LT.PYR(0)) THEN + MSTI(61)=1 + IF(MINT(121).GT.1) CALL PYSAVE(2,IGA) + RETURN + ENDIF + VIOL=VIOL/RATND + IF(VIOL.LT.PYR(0)) THEN + IF(MINT(121).GT.1) CALL PYSAVE(2,IGA) + GOTO 100 + ENDIF + ENDIF + +C...Check for possible violation of estimated maximum of differential +C...cross-section used in weighting. + IF(MSTP(123).LE.0) THEN + IF(VIOL.GT.1D0) THEN + WRITE(MSTU(11),5300) VIOL,NGEN(0,3)+1 + IF(MSTP(122).GE.2) WRITE(MSTU(11),5100) ISUB,VINT(21), + & VINT(22),VINT(23),VINT(26) + STOP + ENDIF + ELSEIF(MSTP(123).EQ.1) THEN + IF(VIOL.GT.VINT(108)) THEN + VINT(108)=VIOL + IF(VIOL.GT.1D0) THEN + MINT(10)=1 + WRITE(MSTU(11),5400) VIOL,NGEN(0,3)+1 + IF(MSTP(122).GE.2) WRITE(MSTU(11),5100) ISUB,VINT(21), + & VINT(22),VINT(23),VINT(26) + ENDIF + ENDIF + ELSEIF(VIOL.GT.VINT(108)) THEN + VINT(108)=VIOL + IF(VIOL.GT.1D0) THEN + MINT(10)=1 + XDIF=XSEC(ISUB,1)*(VIOL-1D0) + XSEC(ISUB,1)=XSEC(ISUB,1)+XDIF + IF(MSUB(ISUB).EQ.1.AND.(ISUB.LE.90.OR.ISUB.GT.96)) + & XSEC(0,1)=XSEC(0,1)+XDIF + WRITE(MSTU(11),5400) VIOL,NGEN(0,3)+1 + IF(MSTP(122).GE.2) WRITE(MSTU(11),5100) ISUB,VINT(21), + & VINT(22),VINT(23),VINT(26) + IF(ISUB.LE.9) THEN + WRITE(MSTU(11),5500) ISUB,XSEC(ISUB,1) + ELSEIF(ISUB.LE.99) THEN + WRITE(MSTU(11),5600) ISUB,XSEC(ISUB,1) + ELSE + WRITE(MSTU(11),5700) ISUB,XSEC(ISUB,1) + ENDIF + VINT(108)=1D0 + ENDIF + ENDIF + +C...Multiple interactions: choose impact parameter. + VINT(148)=1D0 + IF(MINT(50).EQ.1.AND.(ISUB.LE.90.OR.ISUB.GE.96).AND. + &MSTP(82).GE.3) THEN + CALL PYMULT(5) + IF(VINT(150).LT.PYR(0)) THEN + IF(MINT(121).GT.1) CALL PYSAVE(2,IGA) + IF(MFAIL.EQ.1) THEN + MSTI(61)=1 + RETURN + ENDIF + GOTO 100 + ENDIF + ENDIF + IF(MINT(82).EQ.1) NGEN(0,2)=NGEN(0,2)+1 + IF(MINT(82).EQ.1.AND.MSUB(95).EQ.1) THEN + IF(ISUB.LE.90.OR.ISUB.GE.95) NGEN(95,1)=NGEN(95,1)+MINT(143) + IF(ISUB.LE.90.OR.ISUB.GE.96) NGEN(96,2)=NGEN(96,2)+1 + ENDIF + IF(ISUB.LE.90.OR.ISUB.GE.96) MINT(31)=MINT(31)+1 + +C...Choose flavour of reacting partons (and subprocess). + IF(ISTSB.GE.11) GOTO 300 + RSIGS=SIGS*PYR(0) + QT2=VINT(48) + RQQBAR=PARP(87)*(1D0-(QT2/(QT2+(PARP(88)*PARP(82)* + &(VINT(1)/PARP(89))**PARP(90))**2))**2) + IF(ISUB.NE.95.AND.(ISUB.NE.96.OR.MSTP(82).LE.1.OR. + &PYR(0).GT.RQQBAR)) THEN + DO 290 ICHN=1,NCHN + KFL1=ISIG(ICHN,1) + KFL2=ISIG(ICHN,2) + MINT(2)=ISIG(ICHN,3) + RSIGS=RSIGS-SIGH(ICHN) + IF(RSIGS.LE.0D0) GOTO 300 + 290 CONTINUE + +C...Multiple interactions: choose qqbar preferentially at small pT. + ELSEIF(ISUB.EQ.96) THEN + MINT(105)=MINT(103) + MINT(109)=MINT(107) + CALL PYSPLI(MINT(11),21,KFL1,KFLDUM) + MINT(105)=MINT(104) + MINT(109)=MINT(108) + CALL PYSPLI(MINT(12),21,KFL2,KFLDUM) + MINT(1)=11 + MINT(2)=1 + IF(KFL1.EQ.KFL2.AND.PYR(0).LT.0.5D0) MINT(2)=2 + +C...Low-pT: choose string drawing configuration. + ELSE + KFL1=21 + KFL2=21 + RSIGS=6D0*PYR(0) + MINT(2)=1 + IF(RSIGS.GT.1D0) MINT(2)=2 + IF(RSIGS.GT.2D0) MINT(2)=3 + ENDIF + +C...Reassign QCD process. Partons before initial state radiation. + 300 IF(MINT(2).GT.10) THEN + MINT(1)=MINT(2)/10 + MINT(2)=MOD(MINT(2),10) + ENDIF + IF(MINT(82).EQ.1.AND.MSTP(111).GE.0) NGEN(MINT(1),2)= + &NGEN(MINT(1),2)+1 + MINT(15)=KFL1 + MINT(16)=KFL2 + MINT(13)=MINT(15) + MINT(14)=MINT(16) + VINT(141)=VINT(41) + VINT(142)=VINT(42) + VINT(151)=0D0 + VINT(152)=0D0 + +C...Calculate x value of photon for parton inside photon inside e. + DO 330 JT=1,2 + MINT(18+JT)=0 + VINT(154+JT)=0D0 + MSPLI=0 + IF(JT.EQ.1.AND.MINT(43).LE.2) MSPLI=1 + IF(JT.EQ.2.AND.MOD(MINT(43),2).EQ.1) MSPLI=1 + IF(IABS(MINT(14+JT)).LE.8.OR.MINT(14+JT).EQ.21) MSPLI=MSPLI+1 + IF(MSPLI.EQ.2) THEN + KFLH=MINT(14+JT) + XHRD=VINT(140+JT) + Q2HRD=VINT(54) + MINT(105)=MINT(102+JT) + MINT(109)=MINT(106+JT) + VINT(120)=VINT(2+JT) + IF(MSTP(57).LE.1) THEN + CALL PYPDFU(22,XHRD,Q2HRD,XPQ) + ELSE + CALL PYPDFL(22,XHRD,Q2HRD,XPQ) + ENDIF + WTMX=4D0*XPQ(KFLH) + IF(MSTP(13).EQ.2) THEN + Q2PMS=Q2HRD/PMAS(11,1)**2 + WTMX=WTMX*LOG(MAX(2D0,Q2PMS*(1D0-XHRD)/XHRD**2)) + ENDIF + 310 XE=XHRD**PYR(0) + XG=MIN(1D0-1D-10,XHRD/XE) + IF(MSTP(57).LE.1) THEN + CALL PYPDFU(22,XG,Q2HRD,XPQ) + ELSE + CALL PYPDFL(22,XG,Q2HRD,XPQ) + ENDIF + WT=(1D0+(1D0-XE)**2)*XPQ(KFLH) + IF(MSTP(13).EQ.2) WT=WT*LOG(MAX(2D0,Q2PMS*(1D0-XE)/XE**2)) + IF(WT.LT.PYR(0)*WTMX) GOTO 310 + MINT(18+JT)=1 + VINT(154+JT)=XE + DO 320 KFLS=-25,25 + XSFX(JT,KFLS)=XPQ(KFLS) + 320 CONTINUE + ENDIF + 330 CONTINUE + +C...Pick scale where photon is resolved. + Q0S=PARP(15)**2 + Q1S=VINT(154)**2 + VINT(283)=0D0 + IF(MINT(107).EQ.3) THEN + IF(MSTP(66).EQ.1) THEN + VINT(283)=Q0S*(VINT(54)/Q0S)**PYR(0) + ELSEIF(MSTP(66).EQ.2) THEN + PS=VINT(3)**2 + Q2EFF=VINT(54)*((Q0S+PS)/(VINT(54)+PS))* + & EXP(PS*(VINT(54)-Q0S)/((VINT(54)+PS)*(Q0S+PS))) + Q2INT=SQRT(Q0S*Q2EFF) + VINT(283)=Q2INT*(VINT(54)/Q2INT)**PYR(0) + ELSEIF(MSTP(66).EQ.3) THEN + VINT(283)=Q0S*(Q1S/Q0S)**PYR(0) + ELSEIF(MSTP(66).GE.4) THEN + PS=0.25D0*VINT(3)**2 + VINT(283)=(Q0S+PS)*(Q1S+PS)/ + & (Q0S+PYR(0)*(Q1S-Q0S)+PS)-PS + ENDIF + ENDIF + VINT(284)=0D0 + IF(MINT(108).EQ.3) THEN + IF(MSTP(66).EQ.1) THEN + VINT(284)=Q0S*(VINT(54)/Q0S)**PYR(0) + ELSEIF(MSTP(66).EQ.2) THEN + PS=VINT(4)**2 + Q2EFF=VINT(54)*((Q0S+PS)/(VINT(54)+PS))* + & EXP(PS*(VINT(54)-Q0S)/((VINT(54)+PS)*(Q0S+PS))) + Q2INT=SQRT(Q0S*Q2EFF) + VINT(284)=Q2INT*(VINT(54)/Q2INT)**PYR(0) + ELSEIF(MSTP(66).EQ.3) THEN + VINT(284)=Q0S*(Q1S/Q0S)**PYR(0) + ELSEIF(MSTP(66).GE.4) THEN + PS=0.25D0*VINT(4)**2 + VINT(284)=(Q0S+PS)*(Q1S+PS)/ + & (Q0S+PYR(0)*(Q1S-Q0S)+PS)-PS + ENDIF + ENDIF + IF(MINT(121).GT.1) CALL PYSAVE(2,IGA) + +C...Format statements for differential cross-section maximum violations. + 5000 FORMAT(/1X,'Error: negative cross-section fraction',1P,D11.3,1X, + &'in event',1X,I7,'D0'/1X,'Execution stopped!') + 5100 FORMAT(1X,'ISUB = ',I3,'; Point of violation:'/1X,'tau =',1P, + &D11.3,', y* =',D11.3,', cthe = ',0P,F11.7,', tau'' =',1P,D11.3) + 5200 FORMAT(/1X,'Warning: negative cross-section fraction',1P,D11.3,1X, + &'in event',1X,I7) + 5300 FORMAT(/1X,'Error: maximum violated by',1P,D11.3,1X, + &'in event',1X,I7,'D0'/1X,'Execution stopped!') + 5400 FORMAT(/1X,'Advisory warning: maximum violated by',1P,D11.3,1X, + &'in event',1X,I7) + 5500 FORMAT(1X,'XSEC(',I1,',1) increased to',1P,D11.3) + 5600 FORMAT(1X,'XSEC(',I2,',1) increased to',1P,D11.3) + 5700 FORMAT(1X,'XSEC(',I3,',1) increased to',1P,D11.3) + + RETURN + END + +C********************************************************************* + +C...PYSCAT +C...Finds outgoing flavours and event type; sets up the kinematics +C...and colour flow of the hard scattering + + SUBROUTINE PYSCAT + +C...Double precision and integer declarations + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + COMMON/PYINT3/XSFX(2,-40:40),ISIG(1000,3),SIGH(1000) + COMMON/PYINT4/MWID(500),WIDS(500,5) + COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3) + COMMON/PYUPPR/NUP,KUP(20,7),NFUP,IFUP(10,2),PUP(20,5),Q2UP(0:10) + COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2), + &SFMIX(16,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYDAT3/,/PYSUBS/,/PYPARS/, + &/PYINT1/,/PYINT2/,/PYINT3/,/PYINT4/,/PYINT5/,/PYUPPR/,/PYSSMT/ +C...Local arrays and saved variables + DIMENSION WDTP(0:200),WDTE(0:200,0:5),PMQ(2),Z(2),CTHE(2), + &PHI(2),KUPPO(20),VINTSV(41:66) + SAVE VINTSV + +C...Read out process + ISUB=MINT(1) + ISUBSV=ISUB + +C...Restore information for low-pT processes + IF(ISUB.EQ.95.AND.MINT(57).GE.1) THEN + DO 100 J=41,66 + 100 VINT(J)=VINTSV(J) + ENDIF + +C...Convert H' or A process into equivalent H one + IHIGG=1 + KFHIGG=25 + IF((ISUB.GE.151.AND.ISUB.LE.160).OR.(ISUB.GE.171.AND. + &ISUB.LE.190)) THEN + IHIGG=2 + IF(MOD(ISUB-1,10).GE.5) IHIGG=3 + KFHIGG=33+IHIGG + IF(ISUB.EQ.151.OR.ISUB.EQ.156) ISUB=3 + IF(ISUB.EQ.152.OR.ISUB.EQ.157) ISUB=102 + IF(ISUB.EQ.153.OR.ISUB.EQ.158) ISUB=103 + IF(ISUB.EQ.171.OR.ISUB.EQ.176) ISUB=24 + IF(ISUB.EQ.172.OR.ISUB.EQ.177) ISUB=26 + IF(ISUB.EQ.173.OR.ISUB.EQ.178) ISUB=123 + IF(ISUB.EQ.174.OR.ISUB.EQ.179) ISUB=124 + IF(ISUB.EQ.181.OR.ISUB.EQ.186) ISUB=121 + IF(ISUB.EQ.182.OR.ISUB.EQ.187) ISUB=122 + ENDIF + +C...Choice of subprocess, number of documentation lines + IDOC=6+ISET(ISUB) + IF(ISUB.EQ.95) IDOC=8 + IF(ISET(ISUB).EQ.5) IDOC=9 + IF(ISET(ISUB).EQ.11) IDOC=4+NUP + MINT(3)=IDOC-6 + IF(IDOC.GE.9.AND.ISET(ISUB).LE.4) IDOC=IDOC+2 + MINT(4)=IDOC + IPU1=MINT(84)+1 + IPU2=MINT(84)+2 + IPU3=MINT(84)+3 + IPU4=MINT(84)+4 + IPU5=MINT(84)+5 + IPU6=MINT(84)+6 + +C...Reset K, P and V vectors. Store incoming particles + DO 120 JT=1,MSTP(126)+20 + I=MINT(83)+JT + DO 110 J=1,5 + K(I,J)=0 + P(I,J)=0D0 + V(I,J)=0D0 + 110 CONTINUE + 120 CONTINUE + DO 140 JT=1,2 + I=MINT(83)+JT + K(I,1)=21 + K(I,2)=MINT(10+JT) + DO 130 J=1,5 + P(I,J)=VINT(285+5*JT+J) + 130 CONTINUE + 140 CONTINUE + MINT(6)=2 + KFRES=0 + +C...Store incoming partons in their CM-frame + SH=VINT(44) + SHR=SQRT(SH) + SHP=VINT(26)*VINT(2) + SHPR=SQRT(SHP) + SHUSER=SHR + IF(ISET(ISUB).GE.3.AND.ISET(ISUB).LE.5) SHUSER=SHPR + DO 150 JT=1,2 + I=MINT(84)+JT + K(I,1)=14 + K(I,2)=MINT(14+JT) + K(I,3)=MINT(83)+2+JT + P(I,3)=0.5D0*SHUSER*(-1D0)**(JT-1) + P(I,4)=0.5D0*SHUSER + 150 CONTINUE + +C...Copy incoming partons to documentation lines + DO 170 JT=1,2 + I1=MINT(83)+4+JT + I2=MINT(84)+JT + K(I1,1)=21 + K(I1,2)=K(I2,2) + K(I1,3)=I1-2 + DO 160 J=1,5 + P(I1,J)=P(I2,J) + 160 CONTINUE + 170 CONTINUE + +C...Choose new quark/lepton flavour for relevant annihilation graphs + IF(ISUB.EQ.12.OR.ISUB.EQ.53.OR.ISUB.EQ.54.OR.ISUB.EQ.58.OR. + &(ISUB.GE.135.AND.ISUB.LE.140)) THEN + IGLGA=21 + IF(ISUB.EQ.58.OR.(ISUB.GE.137.AND.ISUB.LE.140)) IGLGA=22 + CALL PYWIDT(IGLGA,SH,WDTP,WDTE) + 180 RKFL=(WDTE(0,1)+WDTE(0,2)+WDTE(0,4))*PYR(0) + DO 190 I=1,MDCY(IGLGA,3) + KFLF=KFDP(I+MDCY(IGLGA,2)-1,1) + RKFL=RKFL-(WDTE(I,1)+WDTE(I,2)+WDTE(I,4)) + IF(RKFL.LE.0D0) GOTO 200 + 190 CONTINUE + 200 CONTINUE + IF(ISUB.EQ.12.AND.MSTP(5).EQ.1.AND.IABS(MINT(15)).LE.2.AND. + & IABS(KFLF).GE.3) THEN + FACQQB=VINT(58)**2*4D0/9D0*(VINT(45)**2+VINT(46)**2)/ + & VINT(44)**2 + FACCIB=VINT(46)**2/PARU(155)**4 + IF(FACQQB/(FACQQB+FACCIB).LT.PYR(0)) GOTO 180 + ELSEIF(ISUB.EQ.54.OR.ISUB.EQ.135.OR.ISUB.EQ.136) THEN + IF((KCHG(PYCOMP(KFLF),1)/2D0)**2.LT.PYR(0)) GOTO 180 + ELSEIF(ISUB.EQ.58.OR.(ISUB.GE.137.AND.ISUB.LE.140)) THEN + IF((KCHG(PYCOMP(KFLF),1)/3D0)**2.LT.PYR(0)) GOTO 180 + ENDIF + ENDIF + +C...Final state flavours and colour flow: default values + JS=1 + MINT(21)=MINT(15) + MINT(22)=MINT(16) + MINT(23)=0 + MINT(24)=0 + KCC=20 + KCS=ISIGN(1,MINT(15)) + + IF(ISET(ISUB).EQ.11) THEN +C...User-defined processes: find products + IRUP=0 + DO 210 IUP=3,NUP + IF(KUP(IUP,1).NE.1) THEN + ELSEIF(IRUP.LE.5) THEN + IRUP=IRUP+1 + MINT(20+IRUP)=KUP(IUP,2) + ENDIF + 210 CONTINUE + + ELSEIF(ISUB.LE.10) THEN + IF(ISUB.EQ.1) THEN +C...f + fbar -> gamma*/Z0 + KFRES=23 + + ELSEIF(ISUB.EQ.2) THEN +C...f + fbar' -> W+/- + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + KFRES=ISIGN(24,KCH1+KCH2) + + ELSEIF(ISUB.EQ.3) THEN +C...f + fbar -> h0 (or H0, or A0) + KFRES=KFHIGG + + ELSEIF(ISUB.EQ.4) THEN +C...gamma + W+/- -> W+/- + + ELSEIF(ISUB.EQ.5) THEN +C...Z0 + Z0 -> h0 + XH=SH/SHP + MINT(21)=MINT(15) + MINT(22)=MINT(16) + PMQ(1)=PYMASS(MINT(21)) + PMQ(2)=PYMASS(MINT(22)) + 220 JT=INT(1.5D0+PYR(0)) + ZMIN=2D0*PMQ(JT)/SHPR + ZMAX=1D0-PMQ(3-JT)/SHPR-(SH-PMQ(JT)**2)/ + & (SHPR*(SHPR-PMQ(3-JT))) + ZMAX=MIN(1D0-XH,ZMAX) + Z(JT)=ZMIN+(ZMAX-ZMIN)*PYR(0) + IF(-1D0+(1D0+XH)/(1D0-Z(JT))-XH/(1D0-Z(JT))**2.LT. + & (1D0-XH)**2/(4D0*XH)*PYR(0)) GOTO 220 + SQC1=1D0-4D0*PMQ(JT)**2/(Z(JT)**2*SHP) + IF(SQC1.LT.1D-8) GOTO 220 + C1=SQRT(SQC1) + C2=1D0+2D0*(PMAS(23,1)**2-PMQ(JT)**2)/(Z(JT)*SHP) + CTHE(JT)=(C2-(C2**2-C1**2)/(C2+(2D0*PYR(0)-1D0)*C1))/C1 + CTHE(JT)=MIN(1D0,MAX(-1D0,CTHE(JT))) + Z(3-JT)=1D0-XH/(1D0-Z(JT)) + SQC1=1D0-4D0*PMQ(3-JT)**2/(Z(3-JT)**2*SHP) + IF(SQC1.LT.1D-8) GOTO 220 + C1=SQRT(SQC1) + C2=1D0+2D0*(PMAS(23,1)**2-PMQ(3-JT)**2)/(Z(3-JT)*SHP) + CTHE(3-JT)=(C2-(C2**2-C1**2)/(C2+(2D0*PYR(0)-1D0)*C1))/C1 + CTHE(3-JT)=MIN(1D0,MAX(-1D0,CTHE(3-JT))) + PHIR=PARU(2)*PYR(0) + CPHI=COS(PHIR) + ANG=CTHE(1)*CTHE(2)-SQRT(1D0-CTHE(1)**2)* + & SQRT(1D0-CTHE(2)**2)*CPHI + Z1=2D0-Z(JT) + Z2=ANG*SQRT(Z(JT)**2-4D0*PMQ(JT)**2/SHP) + Z3=1D0-Z(JT)-XH+(PMQ(1)**2+PMQ(2)**2)/SHP + Z(3-JT)=2D0/(Z1**2-Z2**2)*(Z1*Z3+Z2*SQRT(Z3**2-(Z1**2-Z2**2)* + & PMQ(3-JT)**2/SHP)) + ZMIN=2D0*PMQ(3-JT)/SHPR + ZMAX=1D0-PMQ(JT)/SHPR-(SH-PMQ(3-JT)**2)/(SHPR*(SHPR-PMQ(JT))) + ZMAX=MIN(1D0-XH,ZMAX) + IF(Z(3-JT).LT.ZMIN.OR.Z(3-JT).GT.ZMAX) GOTO 220 + KCC=22 + KFRES=25 + + ELSEIF(ISUB.EQ.6) THEN +C...Z0 + W+/- -> W+/- + + ELSEIF(ISUB.EQ.7) THEN +C...W+ + W- -> Z0 + + ELSEIF(ISUB.EQ.8) THEN +C...W+ + W- -> h0 + XH=SH/SHP + 230 DO 260 JT=1,2 + I=MINT(14+JT) + IA=IABS(I) + IF(IA.LE.10) THEN + RVCKM=VINT(180+I)*PYR(0) + DO 240 J=1,MSTP(1) + IB=2*J-1+MOD(IA,2) + IPM=(5-ISIGN(1,I))/2 + IDC=J+MDCY(IA,2)+2 + IF(MDME(IDC,1).NE.1.AND.MDME(IDC,1).NE.IPM) GOTO 240 + MINT(20+JT)=ISIGN(IB,I) + RVCKM=RVCKM-VCKM((IA+1)/2,(IB+1)/2) + IF(RVCKM.LE.0D0) GOTO 250 + 240 CONTINUE + ELSE + IB=2*((IA+1)/2)-1+MOD(IA,2) + MINT(20+JT)=ISIGN(IB,I) + ENDIF + 250 PMQ(JT)=PYMASS(MINT(20+JT)) + 260 CONTINUE + JT=INT(1.5D0+PYR(0)) + ZMIN=2D0*PMQ(JT)/SHPR + ZMAX=1D0-PMQ(3-JT)/SHPR-(SH-PMQ(JT)**2)/ + & (SHPR*(SHPR-PMQ(3-JT))) + ZMAX=MIN(1D0-XH,ZMAX) + IF(ZMIN.GE.ZMAX) GOTO 230 + Z(JT)=ZMIN+(ZMAX-ZMIN)*PYR(0) + IF(-1D0+(1D0+XH)/(1D0-Z(JT))-XH/(1D0-Z(JT))**2.LT. + & (1D0-XH)**2/(4D0*XH)*PYR(0)) GOTO 230 + SQC1=1D0-4D0*PMQ(JT)**2/(Z(JT)**2*SHP) + IF(SQC1.LT.1D-8) GOTO 230 + C1=SQRT(SQC1) + C2=1D0+2D0*(PMAS(24,1)**2-PMQ(JT)**2)/(Z(JT)*SHP) + CTHE(JT)=(C2-(C2**2-C1**2)/(C2+(2D0*PYR(0)-1D0)*C1))/C1 + CTHE(JT)=MIN(1D0,MAX(-1D0,CTHE(JT))) + Z(3-JT)=1D0-XH/(1D0-Z(JT)) + SQC1=1D0-4D0*PMQ(3-JT)**2/(Z(3-JT)**2*SHP) + IF(SQC1.LT.1D-8) GOTO 230 + C1=SQRT(SQC1) + C2=1D0+2D0*(PMAS(24,1)**2-PMQ(3-JT)**2)/(Z(3-JT)*SHP) + CTHE(3-JT)=(C2-(C2**2-C1**2)/(C2+(2D0*PYR(0)-1D0)*C1))/C1 + CTHE(3-JT)=MIN(1D0,MAX(-1D0,CTHE(3-JT))) + PHIR=PARU(2)*PYR(0) + CPHI=COS(PHIR) + ANG=CTHE(1)*CTHE(2)-SQRT(1D0-CTHE(1)**2)* + & SQRT(1D0-CTHE(2)**2)*CPHI + Z1=2D0-Z(JT) + Z2=ANG*SQRT(Z(JT)**2-4D0*PMQ(JT)**2/SHP) + Z3=1D0-Z(JT)-XH+(PMQ(1)**2+PMQ(2)**2)/SHP + Z(3-JT)=2D0/(Z1**2-Z2**2)*(Z1*Z3+Z2*SQRT(Z3**2-(Z1**2-Z2**2)* + & PMQ(3-JT)**2/SHP)) + ZMIN=2D0*PMQ(3-JT)/SHPR + ZMAX=1D0-PMQ(JT)/SHPR-(SH-PMQ(3-JT)**2)/(SHPR*(SHPR-PMQ(JT))) + ZMAX=MIN(1D0-XH,ZMAX) + IF(Z(3-JT).LT.ZMIN.OR.Z(3-JT).GT.ZMAX) GOTO 230 + KCC=22 + KFRES=25 + + ELSEIF(ISUB.EQ.10) THEN +C...f + f' -> f + f' (gamma/Z/W exchange); th = (p(f)-p(f))**2 + IF(MINT(2).EQ.1) THEN + KCC=22 + ELSE +C...W exchange: need to mix flavours according to CKM matrix + DO 280 JT=1,2 + I=MINT(14+JT) + IA=IABS(I) + IF(IA.LE.10) THEN + RVCKM=VINT(180+I)*PYR(0) + DO 270 J=1,MSTP(1) + IB=2*J-1+MOD(IA,2) + IPM=(5-ISIGN(1,I))/2 + IDC=J+MDCY(IA,2)+2 + IF(MDME(IDC,1).NE.1.AND.MDME(IDC,1).NE.IPM) GOTO 270 + MINT(20+JT)=ISIGN(IB,I) + RVCKM=RVCKM-VCKM((IA+1)/2,(IB+1)/2) + IF(RVCKM.LE.0D0) GOTO 280 + 270 CONTINUE + ELSE + IB=2*((IA+1)/2)-1+MOD(IA,2) + MINT(20+JT)=ISIGN(IB,I) + ENDIF + 280 CONTINUE + KCC=22 + ENDIF + ENDIF + + ELSEIF(ISUB.LE.20) THEN + IF(ISUB.EQ.11) THEN +C...f + f' -> f + f' (g exchange); th = (p(f)-p(f))**2 + KCC=MINT(2) + IF(MINT(15)*MINT(16).LT.0) KCC=KCC+2 + + ELSEIF(ISUB.EQ.12) THEN +C...f + fbar -> f' + fbar'; th = (p(f)-p(f'))**2 + MINT(21)=ISIGN(KFLF,MINT(15)) + MINT(22)=-MINT(21) + KCC=4 + + ELSEIF(ISUB.EQ.13) THEN +C...f + fbar -> g + g; th arbitrary + MINT(21)=21 + MINT(22)=21 + KCC=MINT(2)+4 + + ELSEIF(ISUB.EQ.14) THEN +C...f + fbar -> g + gamma; th arbitrary + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=21 + MINT(23-JS)=22 + KCC=17+JS + + ELSEIF(ISUB.EQ.15) THEN +C...f + fbar -> g + Z0; th arbitrary + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=21 + MINT(23-JS)=23 + KCC=17+JS + + ELSEIF(ISUB.EQ.16) THEN +C...f + fbar' -> g + W+/-; th = (p(f)-p(W-))**2 or (p(fbar')-p(W+))**2 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + IF(MINT(15)*(KCH1+KCH2).LT.0) JS=2 + MINT(20+JS)=21 + MINT(23-JS)=ISIGN(24,KCH1+KCH2) + KCC=17+JS + + ELSEIF(ISUB.EQ.17) THEN +C...f + fbar -> g + h0; th arbitrary + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=21 + MINT(23-JS)=25 + KCC=17+JS + + ELSEIF(ISUB.EQ.18) THEN +C...f + fbar -> gamma + gamma; th arbitrary + MINT(21)=22 + MINT(22)=22 + + ELSEIF(ISUB.EQ.19) THEN +C...f + fbar -> gamma + Z0; th arbitrary + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=22 + MINT(23-JS)=23 + + ELSEIF(ISUB.EQ.20) THEN +C...f + fbar' -> gamma + W+/-; th = (p(f)-p(W-))**2 or +C...(p(fbar')-p(W+))**2 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + IF(MINT(15)*(KCH1+KCH2).LT.0) JS=2 + MINT(20+JS)=22 + MINT(23-JS)=ISIGN(24,KCH1+KCH2) + ENDIF + + ELSEIF(ISUB.LE.30) THEN + IF(ISUB.EQ.21) THEN +C...f + fbar -> gamma + h0; th arbitrary + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=22 + MINT(23-JS)=25 + + ELSEIF(ISUB.EQ.22) THEN +C...f + fbar -> Z0 + Z0; th arbitrary + MINT(21)=23 + MINT(22)=23 + + ELSEIF(ISUB.EQ.23) THEN +C...f + fbar' -> Z0 + W+/-; th = (p(f)-p(W-))**2 or (p(fbar')-p(W+))**2 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + IF(MINT(15)*(KCH1+KCH2).LT.0) JS=2 + MINT(20+JS)=23 + MINT(23-JS)=ISIGN(24,KCH1+KCH2) + + ELSEIF(ISUB.EQ.24) THEN +C...f + fbar -> Z0 + h0 (or H0, or A0); th arbitrary + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=23 + MINT(23-JS)=KFHIGG + + ELSEIF(ISUB.EQ.25) THEN +C...f + fbar -> W+ + W-; th = (p(f)-p(W-))**2 + MINT(21)=-ISIGN(24,MINT(15)) + MINT(22)=-MINT(21) + + ELSEIF(ISUB.EQ.26) THEN +C...f + fbar' -> W+/- + h0 (or H0, or A0); +C...th = (p(f)-p(W-))**2 or (p(fbar')-p(W+))**2 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + IF(MINT(15)*(KCH1+KCH2).GT.0) JS=2 + MINT(20+JS)=ISIGN(24,KCH1+KCH2) + MINT(23-JS)=KFHIGG + + ELSEIF(ISUB.EQ.27) THEN +C...f + fbar -> h0 + h0 + + ELSEIF(ISUB.EQ.28) THEN +C...f + g -> f + g; th = (p(f)-p(f))**2 + KCC=MINT(2)+6 + IF(MINT(15).EQ.21) KCC=KCC+2 + IF(MINT(15).NE.21) KCS=ISIGN(1,MINT(15)) + IF(MINT(16).NE.21) KCS=ISIGN(1,MINT(16)) + + ELSEIF(ISUB.EQ.29) THEN +C...f + g -> f + gamma; th = (p(f)-p(f))**2 + IF(MINT(15).EQ.21) JS=2 + MINT(23-JS)=22 + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.30) THEN +C...f + g -> f + Z0; th = (p(f)-p(f))**2 + IF(MINT(15).EQ.21) JS=2 + MINT(23-JS)=23 + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + ENDIF + + ELSEIF(ISUB.LE.40) THEN + IF(ISUB.EQ.31) THEN +C...f + g -> f' + W+/-; th = (p(f)-p(f'))**2; choose flavour f' + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(23-JS)=ISIGN(24,KCHG(IA,1)*I) + RVCKM=VINT(180+I)*PYR(0) + DO 290 J=1,MSTP(1) + IB=2*J-1+MOD(IA,2) + IPM=(5-ISIGN(1,I))/2 + IDC=J+MDCY(IA,2)+2 + IF(MDME(IDC,1).NE.1.AND.MDME(IDC,1).NE.IPM) GOTO 290 + MINT(20+JS)=ISIGN(IB,I) + RVCKM=RVCKM-VCKM((IA+1)/2,(IB+1)/2) + IF(RVCKM.LE.0D0) GOTO 300 + 290 CONTINUE + 300 KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.32) THEN +C...f + g -> f + h0; th = (p(f)-p(f))**2 + IF(MINT(15).EQ.21) JS=2 + MINT(23-JS)=25 + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.33) THEN +C...f + gamma -> f + g; th=(p(f)-p(f))**2 + IF(MINT(15).EQ.22) JS=2 + MINT(23-JS)=21 + KCC=24+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.34) THEN +C...f + gamma -> f + gamma; th=(p(f)-p(f))**2 + IF(MINT(15).EQ.22) JS=2 + KCC=22 + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.35) THEN +C...f + gamma -> f + Z0; th=(p(f)-p(f))**2 + IF(MINT(15).EQ.22) JS=2 + MINT(23-JS)=23 + KCC=22 + + ELSEIF(ISUB.EQ.36) THEN +C...f + gamma -> f' + W+/-; th=(p(f)-p(f'))**2 + IF(MINT(15).EQ.22) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(23-JS)=ISIGN(24,KCHG(IA,1)*I) + IF(IA.LE.10) THEN + RVCKM=VINT(180+I)*PYR(0) + DO 310 J=1,MSTP(1) + IB=2*J-1+MOD(IA,2) + IPM=(5-ISIGN(1,I))/2 + IDC=J+MDCY(IA,2)+2 + IF(MDME(IDC,1).NE.1.AND.MDME(IDC,1).NE.IPM) GOTO 310 + MINT(20+JS)=ISIGN(IB,I) + RVCKM=RVCKM-VCKM((IA+1)/2,(IB+1)/2) + IF(RVCKM.LE.0D0) GOTO 320 + 310 CONTINUE + ELSE + IB=2*((IA+1)/2)-1+MOD(IA,2) + MINT(20+JS)=ISIGN(IB,I) + ENDIF + 320 KCC=22 + + ELSEIF(ISUB.EQ.37) THEN +C...f + gamma -> f + h0 + + ELSEIF(ISUB.EQ.38) THEN +C...f + Z0 -> f + g + + ELSEIF(ISUB.EQ.39) THEN +C...f + Z0 -> f + gamma + + ELSEIF(ISUB.EQ.40) THEN +C...f + Z0 -> f + Z0 + ENDIF + + ELSEIF(ISUB.LE.50) THEN + IF(ISUB.EQ.41) THEN +C...f + Z0 -> f' + W+/- + + ELSEIF(ISUB.EQ.42) THEN +C...f + Z0 -> f + h0 + + ELSEIF(ISUB.EQ.43) THEN +C...f + W+/- -> f' + g + + ELSEIF(ISUB.EQ.44) THEN +C...f + W+/- -> f' + gamma + + ELSEIF(ISUB.EQ.45) THEN +C...f + W+/- -> f' + Z0 + + ELSEIF(ISUB.EQ.46) THEN +C...f + W+/- -> f' + W+/- + + ELSEIF(ISUB.EQ.47) THEN +C...f + W+/- -> f' + h0 + + ELSEIF(ISUB.EQ.48) THEN +C...f + h0 -> f + g + + ELSEIF(ISUB.EQ.49) THEN +C...f + h0 -> f + gamma + + ELSEIF(ISUB.EQ.50) THEN +C...f + h0 -> f + Z0 + ENDIF + + ELSEIF(ISUB.LE.60) THEN + IF(ISUB.EQ.51) THEN +C...f + h0 -> f' + W+/- + + ELSEIF(ISUB.EQ.52) THEN +C...f + h0 -> f + h0 + + ELSEIF(ISUB.EQ.53) THEN +C...g + g -> f + fbar; th arbitrary + KCS=(-1)**INT(1.5D0+PYR(0)) + MINT(21)=ISIGN(KFLF,KCS) + MINT(22)=-MINT(21) + KCC=MINT(2)+10 + + ELSEIF(ISUB.EQ.54) THEN +C...g + gamma -> f + fbar; th arbitrary + KCS=(-1)**INT(1.5D0+PYR(0)) + MINT(21)=ISIGN(KFLF,KCS) + MINT(22)=-MINT(21) + KCC=27 + IF(MINT(16).EQ.21) KCC=28 + + ELSEIF(ISUB.EQ.55) THEN +C...g + Z0 -> f + fbar + + ELSEIF(ISUB.EQ.56) THEN +C...g + W+/- -> f + fbar' + + ELSEIF(ISUB.EQ.57) THEN +C...g + h0 -> f + fbar + + ELSEIF(ISUB.EQ.58) THEN +C...gamma + gamma -> f + fbar; th arbitrary + KCS=(-1)**INT(1.5D0+PYR(0)) + MINT(21)=ISIGN(KFLF,KCS) + MINT(22)=-MINT(21) + KCC=21 + + ELSEIF(ISUB.EQ.59) THEN +C...gamma + Z0 -> f + fbar + + ELSEIF(ISUB.EQ.60) THEN +C...gamma + W+/- -> f + fbar' + ENDIF + + ELSEIF(ISUB.LE.70) THEN + IF(ISUB.EQ.61) THEN +C...gamma + h0 -> f + fbar + + ELSEIF(ISUB.EQ.62) THEN +C...Z0 + Z0 -> f + fbar + + ELSEIF(ISUB.EQ.63) THEN +C...Z0 + W+/- -> f + fbar' + + ELSEIF(ISUB.EQ.64) THEN +C...Z0 + h0 -> f + fbar + + ELSEIF(ISUB.EQ.65) THEN +C...W+ + W- -> f + fbar + + ELSEIF(ISUB.EQ.66) THEN +C...W+/- + h0 -> f + fbar' + + ELSEIF(ISUB.EQ.67) THEN +C...h0 + h0 -> f + fbar + + ELSEIF(ISUB.EQ.68) THEN +C...g + g -> g + g; th arbitrary + KCC=MINT(2)+12 + KCS=(-1)**INT(1.5D0+PYR(0)) + + ELSEIF(ISUB.EQ.69) THEN +C...gamma + gamma -> W+ + W-; th arbitrary + MINT(21)=24 + MINT(22)=-24 + KCC=21 + + ELSEIF(ISUB.EQ.70) THEN +C...gamma + W+/- -> Z0 + W+/-; th=(p(W)-p(W))**2 + IF(MINT(15).EQ.22) MINT(21)=23 + IF(MINT(16).EQ.22) MINT(22)=23 + KCC=21 + ENDIF + + ELSEIF(ISUB.LE.80) THEN + IF(ISUB.EQ.71.OR.ISUB.EQ.72) THEN +C...Z0 + Z0 -> Z0 + Z0; Z0 + Z0 -> W+ + W- + XH=SH/SHP + MINT(21)=MINT(15) + MINT(22)=MINT(16) + PMQ(1)=PYMASS(MINT(21)) + PMQ(2)=PYMASS(MINT(22)) + 330 JT=INT(1.5D0+PYR(0)) + ZMIN=2D0*PMQ(JT)/SHPR + ZMAX=1D0-PMQ(3-JT)/SHPR-(SH-PMQ(JT)**2)/ + & (SHPR*(SHPR-PMQ(3-JT))) + ZMAX=MIN(1D0-XH,ZMAX) + Z(JT)=ZMIN+(ZMAX-ZMIN)*PYR(0) + IF(-1D0+(1D0+XH)/(1D0-Z(JT))-XH/(1D0-Z(JT))**2.LT. + & (1D0-XH)**2/(4D0*XH)*PYR(0)) GOTO 330 + SQC1=1D0-4D0*PMQ(JT)**2/(Z(JT)**2*SHP) + IF(SQC1.LT.1D-8) GOTO 330 + C1=SQRT(SQC1) + C2=1D0+2D0*(PMAS(23,1)**2-PMQ(JT)**2)/(Z(JT)*SHP) + CTHE(JT)=(C2-(C2**2-C1**2)/(C2+(2D0*PYR(0)-1D0)*C1))/C1 + CTHE(JT)=MIN(1D0,MAX(-1D0,CTHE(JT))) + Z(3-JT)=1D0-XH/(1D0-Z(JT)) + SQC1=1D0-4D0*PMQ(3-JT)**2/(Z(3-JT)**2*SHP) + IF(SQC1.LT.1D-8) GOTO 330 + C1=SQRT(SQC1) + C2=1D0+2D0*(PMAS(23,1)**2-PMQ(3-JT)**2)/(Z(3-JT)*SHP) + CTHE(3-JT)=(C2-(C2**2-C1**2)/(C2+(2D0*PYR(0)-1D0)*C1))/C1 + CTHE(3-JT)=MIN(1D0,MAX(-1D0,CTHE(3-JT))) + PHIR=PARU(2)*PYR(0) + CPHI=COS(PHIR) + ANG=CTHE(1)*CTHE(2)-SQRT(1D0-CTHE(1)**2)* + & SQRT(1D0-CTHE(2)**2)*CPHI + Z1=2D0-Z(JT) + Z2=ANG*SQRT(Z(JT)**2-4D0*PMQ(JT)**2/SHP) + Z3=1D0-Z(JT)-XH+(PMQ(1)**2+PMQ(2)**2)/SHP + Z(3-JT)=2D0/(Z1**2-Z2**2)*(Z1*Z3+Z2*SQRT(Z3**2-(Z1**2-Z2**2)* + & PMQ(3-JT)**2/SHP)) + ZMIN=2D0*PMQ(3-JT)/SHPR + ZMAX=1D0-PMQ(JT)/SHPR-(SH-PMQ(3-JT)**2)/(SHPR*(SHPR-PMQ(JT))) + ZMAX=MIN(1D0-XH,ZMAX) + IF(Z(3-JT).LT.ZMIN.OR.Z(3-JT).GT.ZMAX) GOTO 330 + KCC=22 + + ELSEIF(ISUB.EQ.73) THEN +C...Z0 + W+/- -> Z0 + W+/- + JS=MINT(2) + XH=SH/SHP + 340 JT=3-MINT(2) + I=MINT(14+JT) + IA=IABS(I) + IF(IA.LE.10) THEN + RVCKM=VINT(180+I)*PYR(0) + DO 350 J=1,MSTP(1) + IB=2*J-1+MOD(IA,2) + IPM=(5-ISIGN(1,I))/2 + IDC=J+MDCY(IA,2)+2 + IF(MDME(IDC,1).NE.1.AND.MDME(IDC,1).NE.IPM) GOTO 350 + MINT(20+JT)=ISIGN(IB,I) + RVCKM=RVCKM-VCKM((IA+1)/2,(IB+1)/2) + IF(RVCKM.LE.0D0) GOTO 360 + 350 CONTINUE + ELSE + IB=2*((IA+1)/2)-1+MOD(IA,2) + MINT(20+JT)=ISIGN(IB,I) + ENDIF + 360 PMQ(JT)=PYMASS(MINT(20+JT)) + MINT(23-JT)=MINT(17-JT) + PMQ(3-JT)=PYMASS(MINT(23-JT)) + JT=INT(1.5D0+PYR(0)) + ZMIN=2D0*PMQ(JT)/SHPR + ZMAX=1D0-PMQ(3-JT)/SHPR-(SH-PMQ(JT)**2)/ + & (SHPR*(SHPR-PMQ(3-JT))) + ZMAX=MIN(1D0-XH,ZMAX) + IF(ZMIN.GE.ZMAX) GOTO 340 + Z(JT)=ZMIN+(ZMAX-ZMIN)*PYR(0) + IF(-1D0+(1D0+XH)/(1D0-Z(JT))-XH/(1D0-Z(JT))**2.LT. + & (1D0-XH)**2/(4D0*XH)*PYR(0)) GOTO 340 + SQC1=1D0-4D0*PMQ(JT)**2/(Z(JT)**2*SHP) + IF(SQC1.LT.1D-8) GOTO 340 + C1=SQRT(SQC1) + C2=1D0+2D0*(PMAS(23,1)**2-PMQ(JT)**2)/(Z(JT)*SHP) + CTHE(JT)=(C2-(C2**2-C1**2)/(C2+(2D0*PYR(0)-1D0)*C1))/C1 + CTHE(JT)=MIN(1D0,MAX(-1D0,CTHE(JT))) + Z(3-JT)=1D0-XH/(1D0-Z(JT)) + SQC1=1D0-4D0*PMQ(3-JT)**2/(Z(3-JT)**2*SHP) + IF(SQC1.LT.1D-8) GOTO 340 + C1=SQRT(SQC1) + C2=1D0+2D0*(PMAS(23,1)**2-PMQ(3-JT)**2)/(Z(3-JT)*SHP) + CTHE(3-JT)=(C2-(C2**2-C1**2)/(C2+(2D0*PYR(0)-1D0)*C1))/C1 + CTHE(3-JT)=MIN(1D0,MAX(-1D0,CTHE(3-JT))) + PHIR=PARU(2)*PYR(0) + CPHI=COS(PHIR) + ANG=CTHE(1)*CTHE(2)-SQRT(1D0-CTHE(1)**2)* + & SQRT(1D0-CTHE(2)**2)*CPHI + Z1=2D0-Z(JT) + Z2=ANG*SQRT(Z(JT)**2-4D0*PMQ(JT)**2/SHP) + Z3=1D0-Z(JT)-XH+(PMQ(1)**2+PMQ(2)**2)/SHP + Z(3-JT)=2D0/(Z1**2-Z2**2)*(Z1*Z3+Z2*SQRT(Z3**2-(Z1**2-Z2**2)* + & PMQ(3-JT)**2/SHP)) + ZMIN=2D0*PMQ(3-JT)/SHPR + ZMAX=1D0-PMQ(JT)/SHPR-(SH-PMQ(3-JT)**2)/(SHPR*(SHPR-PMQ(JT))) + ZMAX=MIN(1D0-XH,ZMAX) + IF(Z(3-JT).LT.ZMIN.OR.Z(3-JT).GT.ZMAX) GOTO 340 + KCC=22 + + ELSEIF(ISUB.EQ.74) THEN +C...Z0 + h0 -> Z0 + h0 + + ELSEIF(ISUB.EQ.75) THEN +C...W+ + W- -> gamma + gamma + + ELSEIF(ISUB.EQ.76.OR.ISUB.EQ.77) THEN +C...W+ + W- -> Z0 + Z0; W+ + W- -> W+ + W- + XH=SH/SHP + 370 DO 400 JT=1,2 + I=MINT(14+JT) + IA=IABS(I) + IF(IA.LE.10) THEN + RVCKM=VINT(180+I)*PYR(0) + DO 380 J=1,MSTP(1) + IB=2*J-1+MOD(IA,2) + IPM=(5-ISIGN(1,I))/2 + IDC=J+MDCY(IA,2)+2 + IF(MDME(IDC,1).NE.1.AND.MDME(IDC,1).NE.IPM) GOTO 380 + MINT(20+JT)=ISIGN(IB,I) + RVCKM=RVCKM-VCKM((IA+1)/2,(IB+1)/2) + IF(RVCKM.LE.0D0) GOTO 390 + 380 CONTINUE + ELSE + IB=2*((IA+1)/2)-1+MOD(IA,2) + MINT(20+JT)=ISIGN(IB,I) + ENDIF + 390 PMQ(JT)=PYMASS(MINT(20+JT)) + 400 CONTINUE + JT=INT(1.5D0+PYR(0)) + ZMIN=2D0*PMQ(JT)/SHPR + ZMAX=1D0-PMQ(3-JT)/SHPR-(SH-PMQ(JT)**2)/ + & (SHPR*(SHPR-PMQ(3-JT))) + ZMAX=MIN(1D0-XH,ZMAX) + IF(ZMIN.GE.ZMAX) GOTO 370 + Z(JT)=ZMIN+(ZMAX-ZMIN)*PYR(0) + IF(-1D0+(1D0+XH)/(1D0-Z(JT))-XH/(1D0-Z(JT))**2.LT. + & (1D0-XH)**2/(4D0*XH)*PYR(0)) GOTO 370 + SQC1=1D0-4D0*PMQ(JT)**2/(Z(JT)**2*SHP) + IF(SQC1.LT.1D-8) GOTO 370 + C1=SQRT(SQC1) + C2=1D0+2D0*(PMAS(24,1)**2-PMQ(JT)**2)/(Z(JT)*SHP) + CTHE(JT)=(C2-(C2**2-C1**2)/(C2+(2D0*PYR(0)-1D0)*C1))/C1 + CTHE(JT)=MIN(1D0,MAX(-1D0,CTHE(JT))) + Z(3-JT)=1D0-XH/(1D0-Z(JT)) + SQC1=1D0-4D0*PMQ(3-JT)**2/(Z(3-JT)**2*SHP) + IF(SQC1.LT.1D-8) GOTO 370 + C1=SQRT(SQC1) + C2=1D0+2D0*(PMAS(24,1)**2-PMQ(3-JT)**2)/(Z(3-JT)*SHP) + CTHE(3-JT)=(C2-(C2**2-C1**2)/(C2+(2D0*PYR(0)-1D0)*C1))/C1 + CTHE(3-JT)=MIN(1D0,MAX(-1D0,CTHE(3-JT))) + PHIR=PARU(2)*PYR(0) + CPHI=COS(PHIR) + ANG=CTHE(1)*CTHE(2)-SQRT(1D0-CTHE(1)**2)* + & SQRT(1D0-CTHE(2)**2)*CPHI + Z1=2D0-Z(JT) + Z2=ANG*SQRT(Z(JT)**2-4D0*PMQ(JT)**2/SHP) + Z3=1D0-Z(JT)-XH+(PMQ(1)**2+PMQ(2)**2)/SHP + Z(3-JT)=2D0/(Z1**2-Z2**2)*(Z1*Z3+Z2*SQRT(Z3**2-(Z1**2-Z2**2)* + & PMQ(3-JT)**2/SHP)) + ZMIN=2D0*PMQ(3-JT)/SHPR + ZMAX=1D0-PMQ(JT)/SHPR-(SH-PMQ(3-JT)**2)/(SHPR*(SHPR-PMQ(JT))) + ZMAX=MIN(1D0-XH,ZMAX) + IF(Z(3-JT).LT.ZMIN.OR.Z(3-JT).GT.ZMAX) GOTO 370 + KCC=22 + + ELSEIF(ISUB.EQ.78) THEN +C...W+/- + h0 -> W+/- + h0 + + ELSEIF(ISUB.EQ.79) THEN +C...h0 + h0 -> h0 + h0 + + ELSEIF(ISUB.EQ.80) THEN +C...q + gamma -> q' + pi+/-; th=(p(q)-p(q'))**2 + IF(MINT(15).EQ.22) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(23-JS)=ISIGN(211,KCHG(IA,1)*I) + IB=3-IA + MINT(20+JS)=ISIGN(IB,I) + KCC=22 + ENDIF + + ELSEIF(ISUB.LE.90) THEN + IF(ISUB.EQ.81) THEN +C...q + qbar -> Q + Qbar; th = (p(q)-p(Q))**2 + MINT(21)=ISIGN(MINT(55),MINT(15)) + MINT(22)=-MINT(21) + KCC=4 + + ELSEIF(ISUB.EQ.82) THEN +C...g + g -> Q + Qbar; th arbitrary + KCS=(-1)**INT(1.5D0+PYR(0)) + MINT(21)=ISIGN(MINT(55),KCS) + MINT(22)=-MINT(21) + KCC=MINT(2)+10 + + ELSEIF(ISUB.EQ.83) THEN +C...f + q -> f' + Q; th = (p(f) - p(f'))**2 + KFOLD=MINT(16) + IF(MINT(2).EQ.2) KFOLD=MINT(15) + KFAOLD=IABS(KFOLD) + IF(KFAOLD.GT.10) THEN + KFANEW=KFAOLD+2*MOD(KFAOLD,2)-1 + ELSE + RCKM=VINT(180+KFOLD)*PYR(0) + IPM=(5-ISIGN(1,KFOLD))/2 + KFANEW=-MOD(KFAOLD+1,2) + 410 KFANEW=KFANEW+2 + IDC=MDCY(KFAOLD,2)+(KFANEW+1)/2+2 + IF(MDME(IDC,1).EQ.1.OR.MDME(IDC,1).EQ.IPM) THEN + IF(MOD(KFAOLD,2).EQ.0) RCKM=RCKM- + & VCKM(KFAOLD/2,(KFANEW+1)/2) + IF(MOD(KFAOLD,2).EQ.1) RCKM=RCKM- + & VCKM(KFANEW/2,(KFAOLD+1)/2) + ENDIF + IF(KFANEW.LE.6.AND.RCKM.GT.0D0) GOTO 410 + ENDIF + IF(MINT(2).EQ.1) THEN + MINT(21)=ISIGN(MINT(55),MINT(15)) + MINT(22)=ISIGN(KFANEW,MINT(16)) + ELSE + MINT(21)=ISIGN(KFANEW,MINT(15)) + MINT(22)=ISIGN(MINT(55),MINT(16)) + JS=2 + ENDIF + KCC=22 + + ELSEIF(ISUB.EQ.84) THEN +C...g + gamma -> Q + Qbar; th arbitary + KCS=(-1)**INT(1.5D0+PYR(0)) + MINT(21)=ISIGN(MINT(55),KCS) + MINT(22)=-MINT(21) + KCC=27 + IF(MINT(16).EQ.21) KCC=28 + + ELSEIF(ISUB.EQ.85) THEN +C...gamma + gamma -> F + Fbar; th arbitary + KCS=(-1)**INT(1.5D0+PYR(0)) + MINT(21)=ISIGN(MINT(56),KCS) + MINT(22)=-MINT(21) + KCC=21 + + ELSEIF(ISUB.GE.86.AND.ISUB.LE.89) THEN +C...g + g -> (J/Psi, chi_0c, chi_1c or chi_2c) + g + MINT(21)=KFPR(ISUB,1) + MINT(22)=KFPR(ISUB,2) + KCC=24 + KCS=(-1)**INT(1.5D0+PYR(0)) + ENDIF + + ELSEIF(ISUB.LE.100) THEN + IF(ISUB.EQ.95) THEN +C...Low-pT ( = energyless g + g -> g + g) + KCC=MINT(2)+12 + KCS=(-1)**INT(1.5D0+PYR(0)) + + ELSEIF(ISUB.EQ.96) THEN +C...Multiple interactions (should be reassigned to QCD process) + ENDIF + + ELSEIF(ISUB.LE.110) THEN + IF(ISUB.EQ.101) THEN +C...g + g -> gamma*/Z0 + KCC=21 + KFRES=22 + + ELSEIF(ISUB.EQ.102) THEN +C...g + g -> h0 (or H0, or A0) + KCC=21 + KFRES=KFHIGG + + ELSEIF(ISUB.EQ.103) THEN +C...gamma + gamma -> h0 (or H0, or A0) + KCC=21 + KFRES=KFHIGG + + ELSEIF(ISUB.EQ.104.OR.ISUB.EQ.105) THEN +C...g + g -> chi_0c or chi_2c. + KCC=21 + KFRES=KFPR(ISUB,1) + + ELSEIF(ISUB.EQ.106) THEN +C...g + g -> J/Psi + gamma + MINT(21)=KFPR(ISUB,1) + MINT(22)=KFPR(ISUB,2) + KCC=21 + + ELSEIF(ISUB.EQ.107) THEN +C...g + gamma -> J/Psi + g + MINT(21)=KFPR(ISUB,1) + MINT(22)=KFPR(ISUB,2) + KCC=22 + IF(MINT(16).EQ.22) KCC=33 + + ELSEIF(ISUB.EQ.108) THEN +C...gamma + gamma -> J/Psi + gamma + MINT(21)=KFPR(ISUB,1) + MINT(22)=KFPR(ISUB,2) + + ELSEIF(ISUB.EQ.110) THEN +C...f + fbar -> gamma + h0; th arbitrary + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=22 + MINT(23-JS)=KFHIGG + ENDIF + + ELSEIF(ISUB.LE.120) THEN + IF(ISUB.EQ.111) THEN +C...f + fbar -> g + h0; th arbitrary + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=21 + MINT(23-JS)=25 + KCC=17+JS + + ELSEIF(ISUB.EQ.112) THEN +C...f + g -> f + h0; th = (p(f) - p(f))**2 + IF(MINT(15).EQ.21) JS=2 + MINT(23-JS)=25 + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.113) THEN +C...g + g -> g + h0; th arbitrary + IF(PYR(0).GT.0.5D0) JS=2 + MINT(23-JS)=25 + KCC=22+JS + KCS=(-1)**INT(1.5D0+PYR(0)) + + ELSEIF(ISUB.EQ.114) THEN +C...g + g -> gamma + gamma; th arbitrary + IF(PYR(0).GT.0.5D0) JS=2 + MINT(21)=22 + MINT(22)=22 + KCC=21 + + ELSEIF(ISUB.EQ.115) THEN +C...g + g -> g + gamma; th arbitrary + IF(PYR(0).GT.0.5D0) JS=2 + MINT(23-JS)=22 + KCC=22+JS + KCS=(-1)**INT(1.5D0+PYR(0)) + + ELSEIF(ISUB.EQ.116) THEN +C...g + g -> gamma + Z0 + + ELSEIF(ISUB.EQ.117) THEN +C...g + g -> Z0 + Z0 + + ELSEIF(ISUB.EQ.118) THEN +C...g + g -> W+ + W- + ENDIF + + ELSEIF(ISUB.LE.140) THEN + IF(ISUB.EQ.121) THEN +C...g + g -> Q + Qbar + h0 + KCS=(-1)**INT(1.5D0+PYR(0)) + MINT(21)=ISIGN(KFPR(ISUBSV,2),KCS) + MINT(22)=-MINT(21) + KCC=11+INT(0.5D0+PYR(0)) + KFRES=KFHIGG + + ELSEIF(ISUB.EQ.122) THEN +C...q + qbar -> Q + Qbar + h0 + MINT(21)=ISIGN(KFPR(ISUBSV,2),MINT(15)) + MINT(22)=-MINT(21) + KCC=4 + KFRES=KFHIGG + + ELSEIF(ISUB.EQ.123) THEN +C...f + f' -> f + f' + h0 (or H0, or A0) (Z0 + Z0 -> h0 as +C...inner process) + KCC=22 + KFRES=KFHIGG + + ELSEIF(ISUB.EQ.124) THEN +C...f + f' -> f" + f"' + h0 (or H0, or A) (W+ + W- -> h0 as +C...inner process) + DO 430 JT=1,2 + I=MINT(14+JT) + IA=IABS(I) + IF(IA.LE.10) THEN + RVCKM=VINT(180+I)*PYR(0) + DO 420 J=1,MSTP(1) + IB=2*J-1+MOD(IA,2) + IPM=(5-ISIGN(1,I))/2 + IDC=J+MDCY(IA,2)+2 + IF(MDME(IDC,1).NE.1.AND.MDME(IDC,1).NE.IPM) GOTO 420 + MINT(20+JT)=ISIGN(IB,I) + RVCKM=RVCKM-VCKM((IA+1)/2,(IB+1)/2) + IF(RVCKM.LE.0D0) GOTO 430 + 420 CONTINUE + ELSE + IB=2*((IA+1)/2)-1+MOD(IA,2) + MINT(20+JT)=ISIGN(IB,I) + ENDIF + 430 CONTINUE + KCC=22 + KFRES=KFHIGG + + ELSEIF(ISUB.EQ.131.OR.ISUB.EQ.132) THEN +C...f + gamma*_(T,L) -> f + g; th=(p(f)-p(f))**2 + IF(MINT(15).EQ.22) JS=2 + MINT(23-JS)=21 + KCC=24+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.133.OR.ISUB.EQ.134) THEN +C...f + gamma*_(T,L) -> f + gamma; th=(p(f)-p(f))**2 + IF(MINT(15).EQ.22) JS=2 + KCC=22 + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.135.OR.ISUB.EQ.136) THEN +C...g + gamma*_(T,L) -> f + fbar; th arbitrary + KCS=(-1)**INT(1.5D0+PYR(0)) + MINT(21)=ISIGN(KFLF,KCS) + MINT(22)=-MINT(21) + KCC=27 + IF(MINT(16).EQ.21) KCC=28 + + ELSEIF(ISUB.GE.137.AND.ISUB.LE.140) THEN +C...gamma*_(T,L) + gamma*_(T,L) -> f + fbar; th arbitrary + KCS=(-1)**INT(1.5D0+PYR(0)) + MINT(21)=ISIGN(KFLF,KCS) + MINT(22)=-MINT(21) + KCC=21 + + ENDIF + + ELSEIF(ISUB.LE.160) THEN + IF(ISUB.EQ.141) THEN +C...f + fbar -> gamma*/Z0/Z'0 + KFRES=32 + + ELSEIF(ISUB.EQ.142) THEN +C...f + fbar' -> W'+/- + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + KFRES=ISIGN(34,KCH1+KCH2) + + ELSEIF(ISUB.EQ.143) THEN +C...f + fbar' -> H+/- + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + KFRES=ISIGN(37,KCH1+KCH2) + + ELSEIF(ISUB.EQ.144) THEN +C...f + fbar' -> R + KFRES=ISIGN(40,MINT(15)+MINT(16)) + + ELSEIF(ISUB.EQ.145) THEN +C...q + l -> LQ (leptoquark) + IF(IABS(MINT(16)).LE.8) JS=2 + KFRES=ISIGN(39,MINT(14+JS)) + KCC=28+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.146) THEN +C...e + gamma -> e* (excited lepton) + IF(MINT(15).EQ.22) JS=2 + KFRES=ISIGN(KFPR(ISUB,1),MINT(14+JS)) + KCC=22 + + ELSEIF(ISUB.EQ.147.OR.ISUB.EQ.148) THEN +C...q + g -> q* (excited quark) + IF(MINT(15).EQ.21) JS=2 + KFRES=ISIGN(KFPR(ISUB,1),MINT(14+JS)) + KCC=30+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.149) THEN +C...g + g -> eta_techni + KFRES=38 + KCC=23 + KCS=(-1)**INT(1.5D0+PYR(0)) + ENDIF + + ELSEIF(ISUB.LE.200) THEN + IF(ISUB.EQ.161) THEN +C...f + g -> f' + H+/-; th = (p(f)-p(f'))**2 + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(23-JS)=ISIGN(37,KCHG(IA,1)*I) + IB=IA+MOD(IA,2)-MOD(IA+1,2) + MINT(20+JS)=ISIGN(IB,I) + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.162) THEN +C...q + g -> LQ + lbar; LQ=leptoquark; th=(p(q)-p(LQ))^2 + IF(MINT(15).EQ.21) JS=2 + MINT(20+JS)=ISIGN(39,MINT(14+JS)) + KFLQL=KFDP(MDCY(39,2),2) + MINT(23-JS)=-ISIGN(KFLQL,MINT(14+JS)) + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.163) THEN +C...g + g -> LQ + LQbar; LQ=leptoquark; th arbitrary + KCS=(-1)**INT(1.5D0+PYR(0)) + MINT(21)=ISIGN(39,KCS) + MINT(22)=-MINT(21) + KCC=MINT(2)+10 + + ELSEIF(ISUB.EQ.164) THEN +C...q + qbar -> LQ + LQbar; LQ=leptoquark; th=(p(q)-p(LQ))**2 + MINT(21)=ISIGN(39,MINT(15)) + MINT(22)=-MINT(21) + KCC=4 + + ELSEIF(ISUB.EQ.165) THEN +C...q + qbar -> l- + l+; th=(p(q)-p(l-))**2 + MINT(21)=ISIGN(KFPR(ISUB,1),MINT(15)) + MINT(22)=-MINT(21) + + ELSEIF(ISUB.EQ.166) THEN +C...q + qbar' -> l + nu; th=(p(u)-p(nu))**2 or (p(ubar)-p(nubar))**2 + IF(MOD(MINT(15),2).EQ.0) THEN + MINT(21)=ISIGN(KFPR(ISUB,1)+1,MINT(15)) + MINT(22)=ISIGN(KFPR(ISUB,1),MINT(16)) + ELSE + MINT(21)=ISIGN(KFPR(ISUB,1),MINT(15)) + MINT(22)=ISIGN(KFPR(ISUB,1)+1,MINT(16)) + ENDIF + + ELSEIF(ISUB.EQ.167.OR.ISUB.EQ.168) THEN +C...q + q' -> q" + q* (excited quark) + KFQSTR=KFPR(ISUB,2) + KFQEXC=MOD(KFQSTR,KEXCIT) + JS=MINT(2) + MINT(20+JS)=ISIGN(KFQSTR,MINT(14+JS)) + IF(IABS(MINT(15)).NE.KFQEXC.AND.IABS(MINT(16)).NE.KFQEXC) + & MINT(23-JS)=ISIGN(KFQEXC,MINT(17-JS)) + KCC=22 + + ELSEIF(ISUB.EQ.169) THEN +C...q + qbar -> e + e* (excited lepton) + KFQSTR=KFPR(ISUB,2) + KFQEXC=MOD(KFQSTR,KEXCIT) + JS=MINT(2) + MINT(20+JS)=ISIGN(KFQSTR,MINT(14+JS)) + MINT(23-JS)=ISIGN(KFQEXC,MINT(17-JS)) + + ELSEIF(ISUB.EQ.191) THEN +C...f + fbar -> rho_tech0. + KFRES=54 + + ELSEIF(ISUB.EQ.192) THEN +C...f + fbar' -> rho_tech+/- + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + KFRES=ISIGN(55,KCH1+KCH2) + + ELSEIF(ISUB.EQ.193) THEN +C...f + fbar -> omega_tech0. + KFRES=56 + + ELSEIF(ISUB.EQ.194) THEN +C...f + fbar -> f' + fbar' via mixture of s-channel +C...rho_tech and omega_tech; th=(p(f)-p(f'))**2 + MINT(21)=ISIGN(KFPR(ISUB,1),MINT(15)) + MINT(22)=-MINT(21) + + ELSEIF(ISUB.EQ.195) THEN +C...f + fbar' -> f'' + fbar''' via s-channel +C...rho_tech+ th=(p(f)-p(f'))**2 +C...q + qbar' -> l + nu; th=(p(u)-p(nu))**2 or (p(ubar)-p(nubar))**2 + IF(MOD(MINT(15),2).EQ.0) THEN + MINT(21)=ISIGN(KFPR(ISUB,1)+1,MINT(15)) + MINT(22)=ISIGN(KFPR(ISUB,1),MINT(16)) + ELSE + MINT(21)=ISIGN(KFPR(ISUB,1),MINT(15)) + MINT(22)=ISIGN(KFPR(ISUB,1)+1,MINT(16)) + ENDIF + ENDIF + +CMRENNA++ + ELSEIF(ISUB.LE.215) THEN + IF(ISUB.EQ.201) THEN +C...f + fbar -> ~e_L + ~e_Lbar + MINT(21)=ISIGN(KSUSY1+11,KCS) + MINT(22)=-MINT(21) + + ELSEIF(ISUB.EQ.202) THEN +C...f + fbar -> ~e_R + ~e_Rbar + MINT(21)=ISIGN(KSUSY2+11,KCS) + MINT(22)=-MINT(21) + + ELSEIF(ISUB.EQ.203) THEN +C...f + fbar -> ~e_R + ~e_Lbar + KCSG=1 + IF(MINT(2).EQ.2) KCSG=-1 + MINT(21)=ISIGN(KSUSY1+11,KCSG) + MINT(22)=-ISIGN(KSUSY2+11,KCSG) + + ELSEIF(ISUB.EQ.204) THEN +C...f + fbar -> ~mu_L + ~mu_Lbar + MINT(21)=ISIGN(KSUSY1+13,KCS) + MINT(22)=-MINT(21) + + ELSEIF(ISUB.EQ.205) THEN +C...f + fbar -> ~mu_R + ~mu_Rbar + MINT(21)=ISIGN(KSUSY2+13,KCS) + MINT(22)=-MINT(21) + + ELSEIF(ISUB.EQ.206) THEN +C...f + fbar -> ~mu_L + ~mu_Rbar + KCSG=1 + IF(MINT(2).EQ.2) KCSG=-1 + MINT(21)=ISIGN(KSUSY1+13,KCSG) + MINT(22)=-ISIGN(KSUSY2+13,KCSG) + + ELSEIF(ISUB.EQ.207) THEN +C...f + fbar -> ~tau_1 + ~tau_1bar + MINT(21)=ISIGN(KSUSY1+15,KCS) + MINT(22)=-MINT(21) + + ELSEIF(ISUB.EQ.208) THEN +C...f + fbar -> ~tau_2 + ~tau_2bar + MINT(21)=ISIGN(KSUSY2+15,KCS) + MINT(22)=-MINT(21) + + ELSEIF(ISUB.EQ.209) THEN +C...f + fbar -> ~tau_1 + ~tau_2bar + KCSG=1 + IF(MINT(2).EQ.2) KCSG=-1 + MINT(21)=ISIGN(KSUSY1+15,KCSG) + MINT(22)=-ISIGN(KSUSY2+15,KCSG) + + ELSEIF(ISUB.EQ.210) THEN +C...q + qbar' -> ~l_L + ~nulbar; th arbitrary + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + MINT(21)=-ISIGN(KFPR(ISUB,1),KCH1+KCH2) + MINT(22)=ISIGN(KFPR(ISUB,2),KCH1+KCH2) + + ELSEIF(ISUB.EQ.211) THEN +C...q + qbar'-> ~tau_1 + ~nutaubar; th arbitrary + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + MINT(21)=-ISIGN(KSUSY1+15,KCH1+KCH2) + MINT(22)=ISIGN(KSUSY1+16,KCH1+KCH2) + + ELSEIF(ISUB.EQ.212) THEN +C...q + qbar'-> ~tau_2 + ~nutaubar; th arbitrary + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + MINT(21)=-ISIGN(KSUSY2+15,KCH1+KCH2) + MINT(22)=ISIGN(KSUSY1+16,KCH1+KCH2) + + ELSEIF(ISUB.EQ.213) THEN +C...f + fbar -> ~nul + ~nulbar + MINT(21)=ISIGN(KFPR(ISUB,1),KCS) + MINT(22)=-MINT(21) + + ELSEIF(ISUB.EQ.214) THEN +C...f + fbar -> ~nutau + ~nutaubar + MINT(21)=ISIGN(KSUSY1+16,KCS) + MINT(22)=-MINT(21) + ENDIF + + ELSEIF(ISUB.LE.225) THEN + IF(ISUB.EQ.216) THEN +C...f + fbar -> ~chi01 + ~chi01 + MINT(21)=KSUSY1+22 + MINT(22)=KSUSY1+22 + + ELSEIF(ISUB.EQ.217) THEN +C...f + fbar -> ~chi02 + ~chi02 + MINT(21)=KSUSY1+23 + MINT(22)=KSUSY1+23 + + ELSEIF(ISUB.EQ.218 ) THEN +C...f + fbar -> ~chi03 + ~chi03 + MINT(21)=KSUSY1+25 + MINT(22)=KSUSY1+25 + + ELSEIF(ISUB.EQ.219 ) THEN +C...f + fbar -> ~chi04 + ~chi04 + MINT(21)=KSUSY1+35 + MINT(22)=KSUSY1+35 + + ELSEIF(ISUB.EQ.220 ) THEN +C...f + fbar -> ~chi01 + ~chi02 + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=KSUSY1+22 + MINT(23-JS)=KSUSY1+23 + + ELSEIF(ISUB.EQ.221 ) THEN +C...f + fbar -> ~chi01 + ~chi03 + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=KSUSY1+22 + MINT(23-JS)=KSUSY1+25 + + ELSEIF(ISUB.EQ.222) THEN +C...f + fbar -> ~chi01 + ~chi04 + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=KSUSY1+22 + MINT(23-JS)=KSUSY1+35 + + ELSEIF(ISUB.EQ.223) THEN +C...f + fbar -> ~chi02 + ~chi03 + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=KSUSY1+23 + MINT(23-JS)=KSUSY1+25 + + ELSEIF(ISUB.EQ.224) THEN +C...f + fbar -> ~chi02 + ~chi04 + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=KSUSY1+23 + MINT(23-JS)=KSUSY1+35 + + ELSEIF(ISUB.EQ.225) THEN +C...f + fbar -> ~chi03 + ~chi04 + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=KSUSY1+25 + MINT(23-JS)=KSUSY1+35 + ENDIF + + ELSEIF(ISUB.LE.236) THEN + IF(ISUB.EQ.226) THEN +C...f + fbar -> ~chi+-1 + ~chi-+1 +C...th=(p(q)-p(chi+))**2 or (p(qbar)-p(chi-))**2 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + MINT(21)=ISIGN(KSUSY1+24,KCH1) + MINT(22)=-MINT(21) + + ELSEIF(ISUB.EQ.227) THEN +C...f + fbar -> ~chi+-2 + ~chi-+2 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + MINT(21)=ISIGN(KSUSY1+37,KCH1) + MINT(22)=-MINT(21) + + ELSEIF(ISUB.EQ.228) THEN +C...f + fbar -> ~chi+-1 + ~chi-+2 +C...th=(p(q)-p(chi1+))**2 or th=(p(qbar)-p(chi1-))**2 +C...js=1 if pyr<.5, js=2 if pyr>.5 +C...if 15=q, 16=qbar and js=1, chi1+ + chi2-, th=(q-chi1+)**2 +C...if 15=qbar, 16=q and js=1, chi2- + chi1+, th=(q-chi1+)**2 +C...if 15=q, 16=qbar and js=2, chi1- + chi2+, th=(qbar-chi1-)**2 +C...if 15=qbar, 16=q and js=2, chi2+ + chi1-, th=(q-chi1-)**2 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) +C KCH1=ISIGN(1,MINT(15)) + KCH2=INT(1-KCH1)/2 + IF(MINT(2).EQ.1) THEN + MINT(22-KCH2)= -(KSUSY1+24) + MINT(21+KCH2)= KSUSY1+37 + IF(KCH2.EQ.0) JS=2 + ELSE + MINT(21+KCH2)= KSUSY1+24 + MINT(22-KCH2)= -(KSUSY1+37) + IF(KCH2.EQ.1) JS=2 + ENDIF + + ELSEIF(ISUB.EQ.229) THEN +C...q + qbar' -> ~chi01 + ~chi+-1 +C...th=(p(u)-p(chi+))**2 or (p(ubar)-p(chi-))**2 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) +C...CHECK THIS + IF(MOD(MINT(15),2).NE.0) JS=2 + MINT(20+JS)=KSUSY1+22 + MINT(23-JS)=ISIGN(KSUSY1+24,KCH1+KCH2) + + ELSEIF(ISUB.EQ.230) THEN +C...q + qbar' -> ~chi02 + ~chi+-1 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + IF(MOD(MINT(15),2).NE.0) JS=2 + MINT(20+JS)=KSUSY1+23 + MINT(23-JS)=ISIGN(KSUSY1+24,KCH1+KCH2) + + ELSEIF(ISUB.EQ.231) THEN +C...q + qbar' -> ~chi03 + ~chi+-1 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + IF(MOD(MINT(15),2).NE.0) JS=2 + MINT(20+JS)=KSUSY1+25 + MINT(23-JS)=ISIGN(KSUSY1+24,KCH1+KCH2) + + ELSEIF(ISUB.EQ.232) THEN +C...q + qbar' -> ~chi04 + ~chi+-1 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + IF(MOD(MINT(15),2).NE.0) JS=2 + MINT(20+JS)=KSUSY1+35 + MINT(23-JS)=ISIGN(KSUSY1+24,KCH1+KCH2) + + ELSEIF(ISUB.EQ.233) THEN +C...q + qbar' -> ~chi01 + ~chi+-2 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + IF(MOD(MINT(15),2).NE.0) JS=2 + MINT(20+JS)=KSUSY1+22 + MINT(23-JS)=ISIGN(KSUSY1+37,KCH1+KCH2) + + ELSEIF(ISUB.EQ.234) THEN +C...q + qbar' -> ~chi02 + ~chi+-2 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + IF(MOD(MINT(15),2).NE.0) JS=2 + MINT(20+JS)=KSUSY1+23 + MINT(23-JS)=ISIGN(KSUSY1+37,KCH1+KCH2) + + ELSEIF(ISUB.EQ.235) THEN +C...q + qbar' -> ~chi03 + ~chi+-2 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + IF(MOD(MINT(15),2).NE.0) JS=2 + MINT(20+JS)=KSUSY1+25 + MINT(23-JS)=ISIGN(KSUSY1+37,KCH1+KCH2) + + ELSEIF(ISUB.EQ.236) THEN +C...q + qbar' -> ~chi04 + ~chi+-2 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + IF(MOD(MINT(15),2).NE.0) JS=2 + MINT(20+JS)=KSUSY1+35 + MINT(23-JS)=ISIGN(KSUSY1+37,KCH1+KCH2) + ENDIF + + ELSEIF(ISUB.LE.245) THEN + IF(ISUB.EQ.237) THEN +C...q + qbar -> ~chi01 + ~g +C...th arbitrary + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=KSUSY1+21 + MINT(23-JS)=KSUSY1+22 + KCC=17+JS + + ELSEIF(ISUB.EQ.238) THEN +C...q + qbar -> ~chi02 + ~g +C...th arbitrary + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=KSUSY1+21 + MINT(23-JS)=KSUSY1+23 + KCC=17+JS + + ELSEIF(ISUB.EQ.239) THEN +C...q + qbar -> ~chi03 + ~g +C...th arbitrary + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=KSUSY1+21 + MINT(23-JS)=KSUSY1+25 + KCC=17+JS + + ELSEIF(ISUB.EQ.240) THEN +C...q + qbar -> ~chi04 + ~g +C...th arbitrary + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=KSUSY1+21 + MINT(23-JS)=KSUSY1+35 + KCC=17+JS + + ELSEIF(ISUB.EQ.241) THEN +C...q + qbar' -> ~chi+-1 + ~g +C...if 15=u, 16=dbar, then (kch1+kch2)>0, js=1, chi+ +C...if 15=d, 16=ubar, then (kch1+kch2)<0, js=2, chi- +C...if 15=ubar, 16=d, then (kch1+kch2)<0, js=1, chi- +C...if 15=dbar, 16=u, then (kch1+kch2)>0, js=2, chi+ +C...th=(p(q)-p(chi+))**2 or (p(qbar')-p(chi-))**2 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + JS=1 + IF(MINT(15)*(KCH1+KCH2).GT.0) JS=2 + MINT(20+JS)=KSUSY1+21 + MINT(23-JS)=ISIGN(KSUSY1+24,KCH1+KCH2) + KCC=17+JS + + ELSEIF(ISUB.EQ.242) THEN +C...q + qbar' -> ~chi+-2 + ~g +C...if 15=u, 16=dbar, then (kch1+kch2)>0, js=1, chi+ +C...if 15=d, 16=ubar, then (kch1+kch2)<0, js=2, chi- +C...if 15=ubar, 16=d, then (kch1+kch2)<0, js=1, chi- +C...if 15=dbar, 16=u, then (kch1+kch2)>0, js=2, chi+ +C...th=(p(q)-p(chi+))**2 or (p(qbar')-p(chi-))**2 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + JS=1 + IF(MINT(15)*(KCH1+KCH2).GT.0) JS=2 + MINT(20+JS)=KSUSY1+21 + MINT(23-JS)=ISIGN(KSUSY1+37,KCH1+KCH2) + KCC=17+JS + + ELSEIF(ISUB.EQ.243) THEN +C...q + qbar -> ~g + ~g ; th arbitrary + MINT(21)=KSUSY1+21 + MINT(22)=KSUSY1+21 + KCC=MINT(2)+4 + + ELSEIF(ISUB.EQ.244) THEN +C...g + g -> ~g + ~g ; th arbitrary + KCC=MINT(2)+12 + KCS=(-1)**INT(1.5D0+PYR(0)) + MINT(21)=KSUSY1+21 + MINT(22)=KSUSY1+21 + ENDIF + + ELSEIF(ISUB.LE.260) THEN + IF(ISUB.EQ.246) THEN +C...qj + g -> ~qj_L + ~chi01 + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(20+JS)=ISIGN(KSUSY1+IA,I) + MINT(23-JS)=KSUSY1+22 + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.247) THEN +C...qj + g -> ~qj_R + ~chi01 + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(20+JS)=ISIGN(KSUSY2+IA,I) + MINT(23-JS)=KSUSY1+22 + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.248) THEN +C...qj + g -> ~qj_L + ~chi02 + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(20+JS)=ISIGN(KSUSY1+IA,I) + MINT(23-JS)=KSUSY1+23 + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.249) THEN +C...qj + g -> ~qj_R + ~chi02 + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(20+JS)=ISIGN(KSUSY2+IA,I) + MINT(23-JS)=KSUSY1+23 + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.250) THEN +C...qj + g -> ~qj_L + ~chi03 + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(20+JS)=ISIGN(KSUSY1+IA,I) + MINT(23-JS)=KSUSY1+25 + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.251) THEN +C...qj + g -> ~qj_R + ~chi03 + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(20+JS)=ISIGN(KSUSY2+IA,I) + MINT(23-JS)=KSUSY1+25 + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.252) THEN +C...qj + g -> ~qj_L + ~chi04 + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(20+JS)=ISIGN(KSUSY1+IA,I) + MINT(23-JS)=KSUSY1+35 + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.253) THEN +C...qj + g -> ~qj_R + ~chi04 + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(20+JS)=ISIGN(KSUSY2+IA,I) + MINT(23-JS)=KSUSY1+35 + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.254) THEN +C...qj + g -> ~qk_L + ~chi+-1 + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(23-JS)=ISIGN(KSUSY1+24,KCHG(IA,1)*I) + IB=-IA+INT((IA+1)/2)*4-1 + MINT(20+JS)=ISIGN(KSUSY1+IB,I) + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.255) THEN +C...qj + g -> ~qk_L + ~chi+-1 + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(23-JS)=ISIGN(KSUSY1+24,KCHG(IA,1)*I) + IB=-IA+INT((IA+1)/2)*4-1 + MINT(20+JS)=ISIGN(KSUSY2+IB,I) + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.256) THEN +C...qj + g -> ~qk_L + ~chi+-2 + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + IB=-IA+INT((IA+1)/2)*4-1 + MINT(20+JS)=ISIGN(KSUSY1+IB,I) + MINT(23-JS)=ISIGN(KSUSY1+37,KCHG(IA,1)*I) + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.257) THEN +C...qj + g -> ~qk_R + ~chi+-2 + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + IB=-IA+INT((IA+1)/2)*4-1 + MINT(20+JS)=ISIGN(KSUSY2+IB,I) + MINT(23-JS)=ISIGN(KSUSY1+37,KCHG(IA,1)*I) + KCC=15+JS + KCS=ISIGN(1,MINT(14+JS)) + + ELSEIF(ISUB.EQ.258) THEN +C...qj + g -> ~qj_L + ~g + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(20+JS)=ISIGN(KSUSY1+IA,I) + MINT(23-JS)=KSUSY1+21 + KCC=MINT(2)+6 + IF(JS.EQ.2) KCC=KCC+2 + KCS=ISIGN(1,I) + + ELSEIF(ISUB.EQ.259) THEN +C...qj + g -> ~qj_R + ~g + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(20+JS)=ISIGN(KSUSY2+IA,I) + MINT(23-JS)=KSUSY1+21 + KCC=MINT(2)+6 + IF(JS.EQ.2) KCC=KCC+2 + KCS=ISIGN(1,I) + ENDIF + + ELSEIF(ISUB.LE.270) THEN + IF(ISUB.EQ.261) THEN +C...f + fbar -> ~t_1 + ~t_1bar; th = (p(q)-p(sq))**2 + ISGN=1 + IF(MINT(43).EQ.1.AND.PYR(0).GT.0.5D0) ISGN=-1 + MINT(21)=ISGN*ISIGN(KFPR(ISUB,1),KCS) + MINT(22)=-MINT(21) +C...Correct color combination + IF(MINT(43).EQ.4) KCC=4 + + ELSEIF(ISUB.EQ.262) THEN +C...f + fbar -> ~t_2 + ~t_2bar; th = (p(q)-p(sq))**2 + ISGN=1 + IF(MINT(43).EQ.1.AND.PYR(0).GT.0.5D0) ISGN=-1 + MINT(21)=ISGN*ISIGN(KFPR(ISUB,1),KCS) + MINT(22)=-MINT(21) +C...Correct color combination + IF(MINT(43).EQ.4) KCC=4 + + ELSEIF(ISUB.EQ.263) THEN +C...f + fbar -> ~t_1 + ~t_2bar; th = (p(q)-p(sq))**2 + IF((KCS.GT.0.AND.MINT(2).EQ.1).OR. + & (KCS.LT.0.AND.MINT(2).EQ.2)) THEN + MINT(21)=ISIGN(KFPR(ISUB,1),KCS) + MINT(22)=-ISIGN(KFPR(ISUB,2),KCS) + ELSE + JS=2 + MINT(21)=ISIGN(KFPR(ISUB,2),KCS) + MINT(22)=-ISIGN(KFPR(ISUB,1),KCS) + ENDIF +C...Correct color combination + IF(MINT(43).EQ.4) KCC=4 + + ELSEIF(ISUB.EQ.264) THEN +C...g + g -> ~t_1 + ~t_1bar; th arbitrary + KCS=(-1)**INT(1.5D0+PYR(0)) + MINT(21)=ISIGN(KFPR(ISUB,1),KCS) + MINT(22)=-MINT(21) + KCC=MINT(2)+10 + + ELSEIF(ISUB.EQ.265) THEN +C...g + g -> ~t_2 + ~t_2bar; th arbitrary + KCS=(-1)**INT(1.5D0+PYR(0)) + MINT(21)=ISIGN(KFPR(ISUB,1),KCS) + MINT(22)=-MINT(21) + KCC=MINT(2)+10 + ENDIF + + ELSEIF(ISUB.LE.296) THEN + IF(ISUB.EQ.271.OR.ISUB.EQ.281.OR.ISUB.EQ.291) THEN +C...qi + qj -> ~qi_L + ~qj_L + KCC=MINT(2) + IF(MINT(15)*MINT(16).LT.0) KCC=KCC+2 + MINT(21)=ISIGN(KSUSY1+IABS(MINT(15)),MINT(15)) + MINT(22)=ISIGN(KSUSY1+IABS(MINT(16)),MINT(16)) + + ELSEIF(ISUB.EQ.272.OR.ISUB.EQ.282.OR.ISUB.EQ.292) THEN +C...qi + qj -> ~qi_R + ~qj_R + KCC=MINT(2) + IF(MINT(15)*MINT(16).LT.0) KCC=KCC+2 + MINT(21)=ISIGN(KSUSY2+IABS(MINT(15)),MINT(15)) + MINT(22)=ISIGN(KSUSY2+IABS(MINT(16)),MINT(16)) + + ELSEIF(ISUB.EQ.273.OR.ISUB.EQ.283.OR.ISUB.EQ.293) THEN +C...qi + qj -> ~qi_L + ~qj_R + MINT(21)=ISIGN(KFPR(ISUB,1),MINT(15)) + MINT(22)=ISIGN(KFPR(ISUB,2),MINT(16)) + KCC=MINT(2) + IF(MINT(15)*MINT(16).LT.0) KCC=KCC+2 + + ELSEIF(ISUB.EQ.274.OR.ISUB.EQ.284) THEN +C...qi + qjbar -> ~qi_L + ~qj_Lbar; th = (p(f)-p(sf'))**2 + MINT(21)=ISIGN(KSUSY1+IABS(MINT(15)),MINT(15)) + MINT(22)=ISIGN(KSUSY1+IABS(MINT(16)),MINT(16)) + KCC=MINT(2) + IF(MINT(15)*MINT(16).LT.0) KCC=KCC+2 + + ELSEIF(ISUB.EQ.275.OR.ISUB.EQ.285) THEN +C...qi + qjbar -> ~qi_R + ~qj_Rbar ; th = (p(f)-p(sf'))**2 + MINT(21)=ISIGN(KSUSY2+IABS(MINT(15)),MINT(15)) + MINT(22)=ISIGN(KSUSY2+IABS(MINT(16)),MINT(16)) + KCC=MINT(2) + IF(MINT(15)*MINT(16).LT.0) KCC=KCC+2 + + ELSEIF(ISUB.EQ.276.OR.ISUB.EQ.286.OR.ISUB.EQ.296) THEN +C...qi + qjbar -> ~qi_L + ~qj_Rbar ; th = (p(f)-p(sf'))**2 + MINT(21)=ISIGN(KFPR(ISUB,1),MINT(15)) + MINT(22)=ISIGN(KFPR(ISUB,2),MINT(16)) + KCC=MINT(2) + IF(MINT(15)*MINT(16).LT.0) KCC=KCC+2 + + ELSEIF(ISUB.EQ.277.OR.ISUB.EQ.287) THEN +C...f + fbar -> ~qi_L + ~qi_Lbar ; th = (p(q)-p(sq))**2 + ISGN=1 + IF(MINT(43).EQ.1.AND.PYR(0).GT.0.5D0) ISGN=-1 + MINT(21)=ISGN*ISIGN(KFPR(ISUB,1),KCS) + MINT(22)=-MINT(21) + IF(MINT(43).EQ.4) KCC=4 + + ELSEIF(ISUB.EQ.278.OR.ISUB.EQ.288) THEN +C...f + fbar -> ~qi_R + ~qi_Rbar; th = (p(q)-p(sq))**2 + ISGN=1 + IF(MINT(43).EQ.1.AND.PYR(0).GT.0.5D0) ISGN=-1 + MINT(21)=ISGN*ISIGN(KFPR(ISUB,1),KCS) + MINT(22)=-MINT(21) + IF(MINT(43).EQ.4) KCC=4 + + ELSEIF(ISUB.EQ.279.OR.ISUB.EQ.289) THEN +C...g + g -> ~qi_L + ~qi_Lbar ; th arbitrary +C...pure LL + RR + KCS=(-1)**INT(1.5D0+PYR(0)) + MINT(21)=ISIGN(KFPR(ISUB,1),KCS) + MINT(22)=-MINT(21) + KCC=MINT(2)+10 + + ELSEIF(ISUB.EQ.280.OR.ISUB.EQ.290) THEN +C...g + g -> ~qi_R + ~qi_Rbar ; th arbitrary + KCS=(-1)**INT(1.5D0+PYR(0)) + MINT(21)=ISIGN(KFPR(ISUB,1),KCS) + MINT(22)=-MINT(21) + KCC=MINT(2)+10 + + ELSEIF(ISUB.EQ.294) THEN +C...qj + g -> ~qj_L + ~g + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(20+JS)=ISIGN(KSUSY1+IA,I) + MINT(23-JS)=KSUSY1+21 + KCC=MINT(2)+6 + IF(JS.EQ.2) KCC=KCC+2 + KCS=ISIGN(1,I) + + ELSEIF(ISUB.EQ.295) THEN +C...qj + g -> ~qj_R + ~g + IF(MINT(15).EQ.21) JS=2 + I=MINT(14+JS) + IA=IABS(I) + MINT(20+JS)=ISIGN(KSUSY2+IA,I) + MINT(23-JS)=KSUSY1+21 + KCC=MINT(2)+6 + IF(JS.EQ.2) KCC=KCC+2 + KCS=ISIGN(1,I) + ENDIF + + ELSEIF(ISUB.LE.340) THEN + + IF(ISUB.EQ.297.OR.ISUB.EQ.298) THEN +C...q + qbar' -> H+ + H0 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + IF(MINT(15)*(KCH1+KCH2).GT.0) JS=2 + MINT(20+JS)=ISIGN(37,KCH1+KCH2) + MINT(23-JS)=KFPR(ISUB,2) + ELSEIF(ISUB.EQ.299.OR.ISUB.EQ.300) THEN +C...f + fbar -> A0 + H0; th arbitrary + IF(PYR(0).GT.0.5D0) JS=2 + MINT(20+JS)=KFPR(ISUB,1) + MINT(23-JS)=KFPR(ISUB,2) + ELSEIF(ISUB.EQ.301) THEN +C...f + fbar -> H+ H- + MINT(21)=ISIGN(KFPR(ISUB,1),KCS) + MINT(22)=-MINT(21) + ENDIF +CMRENNA-- + + ELSEIF(ISUB.LE.360) THEN + + IF(ISUB.EQ.341.OR.ISUB.EQ.342) THEN +C...l + l -> H_L++/--, H_R++/-- + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + KFRES=ISIGN(KFPR(ISUB,1),KCH1+KCH2) + + ELSEIF(ISUB.GE.343.AND.ISUB.LE.348) THEN +C...l + gamma -> l' + H++/--; th=(p(l)-p(H))**2 + IF(MINT(15).EQ.22) JS=2 + MINT(20+JS)=ISIGN(KFPR(ISUB,1),-MINT(14+JS)) + MINT(23-JS)=ISIGN(KFPR(ISUB,2),-MINT(14+JS)) + KCC=22 + + ELSEIF(ISUB.EQ.349.OR.ISUB.EQ.350) THEN +C...f + fbar -> H++ + H--; th = (p(f)-p(H--))**2 + MINT(21)=-ISIGN(KFPR(ISUB,1),MINT(15)) + MINT(22)=-MINT(21) + + ELSEIF(ISUB.EQ.351.OR.ISUB.EQ.352) THEN +C...f + f' -> f" + f"' + H++/-- (W+/- + W+/- -> H++/-- +C...as inner process). + DO 432 JT=1,2 + I=MINT(14+JT) + IA=IABS(I) + IF(IA.LE.10) THEN + RVCKM=VINT(180+I)*PYR(0) + DO 422 J=1,MSTP(1) + IB=2*J-1+MOD(IA,2) + IPM=(5-ISIGN(1,I))/2 + IDC=J+MDCY(IA,2)+2 + IF(MDME(IDC,1).NE.1.AND.MDME(IDC,1).NE.IPM) GOTO 422 + MINT(20+JT)=ISIGN(IB,I) + RVCKM=RVCKM-VCKM((IA+1)/2,(IB+1)/2) + IF(RVCKM.LE.0D0) GOTO 432 + 422 CONTINUE + ELSE + IB=2*((IA+1)/2)-1+MOD(IA,2) + MINT(20+JT)=ISIGN(IB,I) + ENDIF + 432 CONTINUE + KCC=22 + KFRES=ISIGN(KFPR(ISUB,1),MINT(15)) + IF(MOD(MINT(15),2).EQ.1) KFRES=-KFRES + + ENDIF + + ELSEIF(ISUB.LE.380) THEN + IF(ISUB.LE.363.OR.ISUB.EQ.368) THEN +C...f + fbar -> pi+ pi- + KSW=(-1)**INT(1.5D0+PYR(0)) + MINT(21)=ISIGN(KFPR(ISUB,1),KSW) + MINT(22)=-ISIGN(KFPR(ISUB,2),KSW) +C...f + fbar -> neutral neutral + ELSEIF(ISUB.LE.367) THEN + MINT(21)=KFPR(ISUB,1) + MINT(22)=KFPR(ISUB,2) +C...f + fbar' -> charged neutral + ELSEIF(ISUB.EQ.374.OR.ISUB.EQ.375) THEN + IN=1 + IC=2 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + IF(MINT(15)*(KCH1+KCH2).LT.0) JS=2 +c MINT(20+JS)=ISIGN(KFPR(ISUB,IC),KCH1+KCH2) +c MINT(23-JS)=KFPR(ISUB,IN) + MINT(23-JS)=ISIGN(KFPR(ISUB,IC),KCH1+KCH2) + MINT(20+JS)=KFPR(ISUB,IN) + + ELSEIF(ISUB.GE.370.AND.ISUB.LE.377) THEN + IN=2 + IC=1 + KCH1=KCHG(IABS(MINT(15)),1)*ISIGN(1,MINT(15)) + KCH2=KCHG(IABS(MINT(16)),1)*ISIGN(1,MINT(16)) + IF(MINT(15)*(KCH1+KCH2).GT.0) JS=2 + MINT(20+JS)=ISIGN(KFPR(ISUB,IC),KCH1+KCH2) + MINT(23-JS)=KFPR(ISUB,IN) + ENDIF + ENDIF + + IF(ISET(ISUB).EQ.11) THEN +C...Store documentation for user-defined processes + BEZUP=(PUP(1,4)-PUP(2,4))/(PUP(1,4)+PUP(2,4)) + KUPPO(1)=MINT(83)+5 + KUPPO(2)=MINT(83)+6 + I=MINT(83)+6 + DO 450 IUP=3,NUP + KUPPO(IUP)=0 + IF(MSTP(128).GE.2.AND.KUP(IUP,3).NE.0) THEN + IDOC=IDOC-1 + MINT(4)=MINT(4)-1 + GOTO 450 + ENDIF + I=I+1 + KUPPO(IUP)=I + K(I,1)=21 + K(I,2)=KUP(IUP,2) + K(I,3)=0 + IF(KUP(IUP,3).NE.0) K(I,3)=KUPPO(KUP(IUP,3)) + K(I,4)=0 + K(I,5)=0 + DO 440 J=1,5 + P(I,J)=PUP(IUP,J) + 440 CONTINUE + 450 CONTINUE + CALL PYROBO(MINT(83)+7,MINT(83)+4+NUP,0D0,VINT(24),0D0,0D0, + & -BEZUP) + +C...Store final state partons for user-defined processes + N=IPU2 + DO 470 IUP=3,NUP + N=N+1 + K(N,1)=1 + IF(KUP(IUP,1).NE.1) K(N,1)=11 + K(N,2)=KUP(IUP,2) + IF(MSTP(128).LE.0.OR.KUP(IUP,3).EQ.0) THEN + K(N,3)=KUPPO(IUP) + ELSE + K(N,3)=MINT(84)+KUP(IUP,3) + ENDIF + K(N,4)=0 + K(N,5)=0 + DO 460 J=1,5 + P(N,J)=PUP(IUP,J) + 460 CONTINUE + 470 CONTINUE + CALL PYROBO(IPU3,N,0D0,VINT(24),0D0,0D0,-BEZUP) + +C...Arrange colour flow for user-defined processes + N=MINT(84) + DO 480 IUP=1,NUP + N=N+1 + IF(KCHG(PYCOMP(K(N,2)),2).EQ.0) GOTO 480 + IF(K(N,1).EQ.1) K(N,1)=3 + IF(K(N,1).EQ.11) K(N,1)=14 + IF(KUP(IUP,4).NE.0) K(N,4)=K(N,4)+MSTU(5)*(KUP(IUP,4)+ + & MINT(84)) + IF(KUP(IUP,5).NE.0) K(N,5)=K(N,5)+MSTU(5)*(KUP(IUP,5)+ + & MINT(84)) + IF(KUP(IUP,6).NE.0) K(N,4)=K(N,4)+KUP(IUP,6)+MINT(84) + IF(KUP(IUP,7).NE.0) K(N,5)=K(N,5)+KUP(IUP,7)+MINT(84) + 480 CONTINUE + + ELSEIF(IDOC.EQ.7) THEN +C...Resonance not decaying; store kinematics + I=MINT(83)+7 + K(IPU3,1)=1 + K(IPU3,2)=KFRES + K(IPU3,3)=I + P(IPU3,4)=SHUSER + P(IPU3,5)=SHUSER + K(I,1)=21 + K(I,2)=KFRES + P(I,4)=SHUSER + P(I,5)=SHUSER + N=IPU3 + MINT(21)=KFRES + MINT(22)=0 + +C...Special cases: colour flow in coloured resonances + KCRES=PYCOMP(KFRES) + IF(KCHG(KCRES,2).NE.0) THEN + K(IPU3,1)=3 + DO 490 J=1,2 + JC=J + IF(KCS.EQ.-1) JC=3-J + IF(ICOL(KCC,1,JC).NE.0.AND.K(IPU1,1).EQ.14) K(IPU1,J+3)= + & MINT(84)+ICOL(KCC,1,JC) + IF(ICOL(KCC,2,JC).NE.0.AND.K(IPU2,1).EQ.14) K(IPU2,J+3)= + & MINT(84)+ICOL(KCC,2,JC) + IF(ICOL(KCC,3,JC).NE.0.AND.K(IPU3,1).EQ.3) K(IPU3,J+3)= + & MSTU(5)*(MINT(84)+ICOL(KCC,3,JC)) + 490 CONTINUE + ELSE + K(IPU1,4)=IPU2 + K(IPU1,5)=IPU2 + K(IPU2,4)=IPU1 + K(IPU2,5)=IPU1 + ENDIF + + ELSEIF(IDOC.EQ.8) THEN +C...2 -> 2 processes: store outgoing partons in their CM-frame + DO 500 JT=1,2 + I=MINT(84)+2+JT + KCA=PYCOMP(MINT(20+JT)) + K(I,1)=1 + IF(KCHG(KCA,2).NE.0) K(I,1)=3 + K(I,2)=MINT(20+JT) + K(I,3)=MINT(83)+IDOC+JT-2 + KFAA=IABS(K(I,2)) + IF(KFPR(ISUBSV,1+MOD(JS+JT,2)).NE.0) THEN + P(I,5)=SQRT(VINT(63+MOD(JS+JT,2))) + ELSE + P(I,5)=PYMASS(K(I,2)) + ENDIF + IF((KFAA.EQ.6.OR.KFAA.EQ.7.OR.KFAA.EQ.8).AND. + & P(I,5).LT.PARP(42)) P(I,5)=PYMASS(K(I,2)) + 500 CONTINUE + IF(P(IPU3,5)+P(IPU4,5).GE.SHR) THEN + KFA1=IABS(MINT(21)) + KFA2=IABS(MINT(22)) + IF((KFA1.GT.3.AND.KFA1.NE.21).OR.(KFA2.GT.3.AND.KFA2.NE.21)) + & THEN + MINT(51)=1 + RETURN + ENDIF + P(IPU3,5)=0D0 + P(IPU4,5)=0D0 + ENDIF + P(IPU3,4)=0.5D0*(SHR+(P(IPU3,5)**2-P(IPU4,5)**2)/SHR) + P(IPU3,3)=SQRT(MAX(0D0,P(IPU3,4)**2-P(IPU3,5)**2)) + P(IPU4,4)=SHR-P(IPU3,4) + P(IPU4,3)=-P(IPU3,3) + N=IPU4 + MINT(7)=MINT(83)+7 + MINT(8)=MINT(83)+8 + +C...Rotate outgoing partons using cos(theta)=(th-uh)/lam(sh,sqm3,sqm4) + CALL PYROBO(IPU3,IPU4,ACOS(VINT(23)),VINT(24),0D0,0D0,0D0) + + ELSEIF(IDOC.EQ.9) THEN +C...2 -> 3 processes: store outgoing partons in their CM frame + DO 510 JT=1,2 + I=MINT(84)+2+JT + KCA=PYCOMP(MINT(20+JT)) + K(I,1)=1 + IF(KCHG(KCA,2).NE.0) K(I,1)=3 + K(I,2)=MINT(20+JT) + K(I,3)=MINT(83)+IDOC+JT-3 + IF(IABS(K(I,2)).LE.22) THEN + P(I,5)=PYMASS(K(I,2)) + ELSE + P(I,5)=SQRT(VINT(63+MOD(JS+JT,2))) + ENDIF + PT=SQRT(MAX(0D0,VINT(197+5*JT)-P(I,5)**2+VINT(196+5*JT)**2)) + P(I,1)=PT*COS(VINT(198+5*JT)) + P(I,2)=PT*SIN(VINT(198+5*JT)) + 510 CONTINUE + K(IPU5,1)=1 + K(IPU5,2)=KFRES + K(IPU5,3)=MINT(83)+IDOC + P(IPU5,5)=SHR + P(IPU5,1)=-P(IPU3,1)-P(IPU4,1) + P(IPU5,2)=-P(IPU3,2)-P(IPU4,2) + PMS1=P(IPU3,5)**2+P(IPU3,1)**2+P(IPU3,2)**2 + PMS2=P(IPU4,5)**2+P(IPU4,1)**2+P(IPU4,2)**2 + PMS3=P(IPU5,5)**2+P(IPU5,1)**2+P(IPU5,2)**2 + PMT3=SQRT(PMS3) + P(IPU5,3)=PMT3*SINH(VINT(211)) + P(IPU5,4)=PMT3*COSH(VINT(211)) + PMS12=(SHPR-P(IPU5,4))**2-P(IPU5,3)**2 + SQL12=(PMS12-PMS1-PMS2)**2-4D0*PMS1*PMS2 + IF(SQL12.LE.0D0) THEN + MINT(51)=1 + RETURN + ENDIF + P(IPU3,3)=(-P(IPU5,3)*(PMS12+PMS1-PMS2)+ + & VINT(213)*(SHPR-P(IPU5,4))*SQRT(SQL12))/(2D0*PMS12) + P(IPU4,3)=-P(IPU3,3)-P(IPU5,3) + P(IPU3,4)=SQRT(PMS1+P(IPU3,3)**2) + P(IPU4,4)=SQRT(PMS2+P(IPU4,3)**2) + MINT(23)=KFRES + N=IPU5 + MINT(7)=MINT(83)+7 + MINT(8)=MINT(83)+8 + + ELSEIF(IDOC.EQ.11) THEN +C...Z0 + Z0 -> h0, W+ + W- -> h0: store Higgs and outgoing partons + PHI(1)=PARU(2)*PYR(0) + PHI(2)=PHI(1)-PHIR + DO 520 JT=1,2 + I=MINT(84)+2+JT + K(I,1)=1 + IF(KCHG(PYCOMP(MINT(20+JT)),2).NE.0) K(I,1)=3 + K(I,2)=MINT(20+JT) + K(I,3)=MINT(83)+IDOC+JT-2 + P(I,5)=PYMASS(K(I,2)) + IF(0.5D0*SHPR*Z(JT).LE.P(I,5)) THEN + MINT(51)=1 + RETURN + ENDIF + PABS=SQRT(MAX(0D0,(0.5D0*SHPR*Z(JT))**2-P(I,5)**2)) + PTABS=PABS*SQRT(MAX(0D0,1D0-CTHE(JT)**2)) + P(I,1)=PTABS*COS(PHI(JT)) + P(I,2)=PTABS*SIN(PHI(JT)) + P(I,3)=PABS*CTHE(JT)*(-1)**(JT+1) + P(I,4)=0.5D0*SHPR*Z(JT) + IZW=MINT(83)+6+JT + K(IZW,1)=21 + K(IZW,2)=23 + IF(ISUB.EQ.8) K(IZW,2)=ISIGN(24,PYCHGE(MINT(14+JT))) + K(IZW,3)=IZW-2 + P(IZW,1)=-P(I,1) + P(IZW,2)=-P(I,2) + P(IZW,3)=(0.5D0*SHPR-PABS*CTHE(JT))*(-1)**(JT+1) + P(IZW,4)=0.5D0*SHPR*(1D0-Z(JT)) + P(IZW,5)=-SQRT(MAX(0D0,P(IZW,3)**2+PTABS**2-P(IZW,4)**2)) + 520 CONTINUE + I=MINT(83)+9 + K(IPU5,1)=1 + K(IPU5,2)=KFRES + K(IPU5,3)=I + P(IPU5,5)=SHR + P(IPU5,1)=-P(IPU3,1)-P(IPU4,1) + P(IPU5,2)=-P(IPU3,2)-P(IPU4,2) + P(IPU5,3)=-P(IPU3,3)-P(IPU4,3) + P(IPU5,4)=SHPR-P(IPU3,4)-P(IPU4,4) + K(I,1)=21 + K(I,2)=KFRES + DO 530 J=1,5 + P(I,J)=P(IPU5,J) + 530 CONTINUE + N=IPU5 + MINT(23)=KFRES + + ELSEIF(IDOC.EQ.12) THEN +C...Z0 and W+/- scattering: store bosons and outgoing partons + PHI(1)=PARU(2)*PYR(0) + PHI(2)=PHI(1)-PHIR + JTRAN=INT(1.5D0+PYR(0)) + DO 540 JT=1,2 + I=MINT(84)+2+JT + K(I,1)=1 + IF(KCHG(PYCOMP(MINT(20+JT)),2).NE.0) K(I,1)=3 + K(I,2)=MINT(20+JT) + K(I,3)=MINT(83)+IDOC+JT-2 + P(I,5)=PYMASS(K(I,2)) + IF(0.5D0*SHPR*Z(JT).LE.P(I,5)) P(I,5)=0D0 + PABS=SQRT(MAX(0D0,(0.5D0*SHPR*Z(JT))**2-P(I,5)**2)) + PTABS=PABS*SQRT(MAX(0D0,1D0-CTHE(JT)**2)) + P(I,1)=PTABS*COS(PHI(JT)) + P(I,2)=PTABS*SIN(PHI(JT)) + P(I,3)=PABS*CTHE(JT)*(-1)**(JT+1) + P(I,4)=0.5D0*SHPR*Z(JT) + IZW=MINT(83)+6+JT + K(IZW,1)=21 + IF(MINT(14+JT).EQ.MINT(20+JT)) THEN + K(IZW,2)=23 + ELSE + K(IZW,2)=ISIGN(24,PYCHGE(MINT(14+JT))-PYCHGE(MINT(20+JT))) + ENDIF + K(IZW,3)=IZW-2 + P(IZW,1)=-P(I,1) + P(IZW,2)=-P(I,2) + P(IZW,3)=(0.5D0*SHPR-PABS*CTHE(JT))*(-1)**(JT+1) + P(IZW,4)=0.5D0*SHPR*(1D0-Z(JT)) + P(IZW,5)=-SQRT(MAX(0D0,P(IZW,3)**2+PTABS**2-P(IZW,4)**2)) + IPU=MINT(84)+4+JT + K(IPU,1)=3 + K(IPU,2)=KFPR(ISUB,JT) + IF(ISUB.EQ.72.AND.JT.EQ.JTRAN) K(IPU,2)=-K(IPU,2) + IF(ISUB.EQ.73.OR.ISUB.EQ.77) K(IPU,2)=K(IZW,2) + K(IPU,3)=MINT(83)+8+JT + IF(IABS(K(IPU,2)).LE.10.OR.K(IPU,2).EQ.21) THEN + P(IPU,5)=PYMASS(K(IPU,2)) + ELSE + P(IPU,5)=SQRT(VINT(63+MOD(JS+JT,2))) + ENDIF + MINT(22+JT)=K(IPU,2) + 540 CONTINUE +C...Find rotation and boost for hard scattering subsystem + I1=MINT(83)+7 + I2=MINT(83)+8 + BEXCM=(P(I1,1)+P(I2,1))/(P(I1,4)+P(I2,4)) + BEYCM=(P(I1,2)+P(I2,2))/(P(I1,4)+P(I2,4)) + BEZCM=(P(I1,3)+P(I2,3))/(P(I1,4)+P(I2,4)) + GAMCM=(P(I1,4)+P(I2,4))/SHR + BEPCM=BEXCM*P(I1,1)+BEYCM*P(I1,2)+BEZCM*P(I1,3) + PX=P(I1,1)+GAMCM*(GAMCM/(1D0+GAMCM)*BEPCM-P(I1,4))*BEXCM + PY=P(I1,2)+GAMCM*(GAMCM/(1D0+GAMCM)*BEPCM-P(I1,4))*BEYCM + PZ=P(I1,3)+GAMCM*(GAMCM/(1D0+GAMCM)*BEPCM-P(I1,4))*BEZCM + THECM=PYANGL(PZ,SQRT(PX**2+PY**2)) + PHICM=PYANGL(PX,PY) +C...Store hard scattering subsystem. Rotate and boost it + SQLAM=(SH-P(IPU5,5)**2-P(IPU6,5)**2)**2-4D0*P(IPU5,5)**2* + & P(IPU6,5)**2 + PABS=SQRT(MAX(0D0,SQLAM/(4D0*SH))) + CTHWZ=VINT(23) + STHWZ=SQRT(MAX(0D0,1D0-CTHWZ**2)) + PHIWZ=VINT(24)-PHICM + P(IPU5,1)=PABS*STHWZ*COS(PHIWZ) + P(IPU5,2)=PABS*STHWZ*SIN(PHIWZ) + P(IPU5,3)=PABS*CTHWZ + P(IPU5,4)=SQRT(PABS**2+P(IPU5,5)**2) + P(IPU6,1)=-P(IPU5,1) + P(IPU6,2)=-P(IPU5,2) + P(IPU6,3)=-P(IPU5,3) + P(IPU6,4)=SQRT(PABS**2+P(IPU6,5)**2) + CALL PYROBO(IPU5,IPU6,THECM,PHICM,BEXCM,BEYCM,BEZCM) + DO 560 JT=1,2 + I1=MINT(83)+8+JT + I2=MINT(84)+4+JT + K(I1,1)=21 + K(I1,2)=K(I2,2) + DO 550 J=1,5 + P(I1,J)=P(I2,J) + 550 CONTINUE + 560 CONTINUE + N=IPU6 + MINT(7)=MINT(83)+9 + MINT(8)=MINT(83)+10 + ENDIF + + IF(ISET(ISUB).EQ.11) THEN + ELSEIF(IDOC.GE.8) THEN +C...Store colour connection indices + DO 570 J=1,2 + JC=J + IF(KCS.EQ.-1) JC=3-J + IF(ICOL(KCC,1,JC).NE.0.AND.K(IPU1,1).EQ.14) K(IPU1,J+3)= + & K(IPU1,J+3)+MINT(84)+ICOL(KCC,1,JC) + IF(ICOL(KCC,2,JC).NE.0.AND.K(IPU2,1).EQ.14) K(IPU2,J+3)= + & K(IPU2,J+3)+MINT(84)+ICOL(KCC,2,JC) + IF(ICOL(KCC,3,JC).NE.0.AND.K(IPU3,1).EQ.3) K(IPU3,J+3)= + & MSTU(5)*(MINT(84)+ICOL(KCC,3,JC)) + IF(ICOL(KCC,4,JC).NE.0.AND.K(IPU4,1).EQ.3) K(IPU4,J+3)= + & MSTU(5)*(MINT(84)+ICOL(KCC,4,JC)) + 570 CONTINUE + +C...Copy outgoing partons to documentation lines + IMAX=2 + IF(IDOC.EQ.9) IMAX=3 + DO 590 I=1,IMAX + I1=MINT(83)+IDOC-IMAX+I + I2=MINT(84)+2+I + K(I1,1)=21 + K(I1,2)=K(I2,2) + IF(IDOC.LE.9) K(I1,3)=0 + IF(IDOC.GE.11) K(I1,3)=MINT(83)+2+I + DO 580 J=1,5 + P(I1,J)=P(I2,J) + 580 CONTINUE + 590 CONTINUE + + ELSEIF(IDOC.EQ.9) THEN +C...Store colour connection indices + DO 600 J=1,2 + JC=J + IF(KCS.EQ.-1) JC=3-J + IF(ICOL(KCC,1,JC).NE.0.AND.K(IPU1,1).EQ.14) K(IPU1,J+3)= + & K(IPU1,J+3)+MINT(84)+ICOL(KCC,1,JC)+ + & MAX(0,MIN(1,ICOL(KCC,1,JC)-2)) + IF(ICOL(KCC,2,JC).NE.0.AND.K(IPU2,1).EQ.14) K(IPU2,J+3)= + & K(IPU2,J+3)+MINT(84)+ICOL(KCC,2,JC)+ + & MAX(0,MIN(1,ICOL(KCC,2,JC)-2)) + IF(ICOL(KCC,3,JC).NE.0.AND.K(IPU4,1).EQ.3) K(IPU4,J+3)= + & MSTU(5)*(MINT(84)+ICOL(KCC,3,JC)) + IF(ICOL(KCC,4,JC).NE.0.AND.K(IPU5,1).EQ.3) K(IPU5,J+3)= + & MSTU(5)*(MINT(84)+ICOL(KCC,4,JC)) + 600 CONTINUE + +C...Copy outgoing partons to documentation lines + DO 620 I=1,3 + I1=MINT(83)+IDOC-3+I + I2=MINT(84)+2+I + K(I1,1)=21 + K(I1,2)=K(I2,2) + K(I1,3)=0 + DO 610 J=1,5 + P(I1,J)=P(I2,J) + 610 CONTINUE + 620 CONTINUE + ENDIF + +C...Low-pT events: remove gluons used for string drawing purposes + IF(ISUB.EQ.95) THEN + K(IPU3,1)=K(IPU3,1)+10 + K(IPU4,1)=K(IPU4,1)+10 + DO 630 J=41,66 + VINTSV(J)=VINT(J) + VINT(J)=0D0 + 630 CONTINUE + DO 650 I=MINT(83)+5,MINT(83)+8 + DO 640 J=1,5 + P(I,J)=0D0 + 640 CONTINUE + 650 CONTINUE + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYSSPA +C...Generates spacelike parton showers. + + SUBROUTINE PYSSPA(IPU1,IPU2) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + COMMON/PYINT3/XSFX(2,-40:40),ISIG(1000,3),SIGH(1000) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYSUBS/,/PYPARS/,/PYINT1/, + &/PYINT2/,/PYINT3/ +C...Local arrays and data. + DIMENSION KFLS(4),IS(2),XS(2),ZS(2),Q2S(2),TEVCSV(2),TEVESV(2), + &XFS(2,-25:25),XFA(-25:25),XFB(-25:25),XFN(-25:25),WTAPC(-25:25), + &WTAPE(-25:25),WTSF(-25:25),THE2(2),ALAM(2),DQ2(3),DPC(3),DPD(4), + &DPB(4),ROBO(5),MORE(2),KFBEAM(2),Q2MNCS(2),KCFI(2),NFIS(2), + &THEFIS(2,2),ISFI(2) + DATA IS/2*0/ + +C...Read out basic information; set global Q^2 scale. + IPUS1=IPU1 + IPUS2=IPU2 + ISUB=MINT(1) + Q2MX=VINT(56) + IF(ISET(ISUB).EQ.2) Q2MX=MIN(VINT(2),PARP(67)*VINT(56)) + MECOR=0 + IF(MSTP(68).EQ.1.AND.(ISUB.EQ.1.OR.ISUB.EQ.2.OR. + &ISUB.EQ.141.OR.ISUB.EQ.142.OR.ISUB.EQ.144)) MECOR=1 + FCQ2MX=1D0 + +C...Initialize QCD evolution and check phase space. + Q2MNC=PARP(62)**2 + Q2MNCS(1)=Q2MNC + Q2MNCS(2)=Q2MNC + IF(MINT(107).EQ.2.AND.MSTP(66).EQ.2) THEN + Q0S=PARP(15)**2 + PS=VINT(3)**2 + Q2EFF=VINT(54)*((Q0S+PS)/(VINT(54)+PS))* + & EXP(PS*(VINT(54)-Q0S)/((VINT(54)+PS)*(Q0S+PS))) + Q2INT=SQRT(Q0S*Q2EFF) + Q2MNCS(1)=MAX(Q2MNC,Q2INT) + ELSEIF(MINT(107).EQ.3.AND.MSTP(66).GE.1) THEN + Q2MNCS(1)=MAX(Q2MNC,VINT(283)) + ENDIF + IF(MINT(108).EQ.2.AND.MSTP(66).EQ.2) THEN + Q0S=PARP(15)**2 + PS=VINT(4)**2 + Q2EFF=VINT(54)*((Q0S+PS)/(VINT(54)+PS))* + & EXP(PS*(VINT(54)-Q0S)/((VINT(54)+PS)*(Q0S+PS))) + Q2INT=SQRT(Q0S*Q2EFF) + Q2MNCS(2)=MAX(Q2MNC,Q2INT) + ELSEIF(MINT(108).EQ.3.AND.MSTP(66).GE.1) THEN + Q2MNCS(2)=MAX(Q2MNC,VINT(284)) + ENDIF + MCEV=0 + ALAMS=PARU(112) + PARU(112)=PARP(61) + FQ2C=1D0 + TCMX=0D0 + IF(MINT(47).GE.2.AND.(MINT(47).LT.5.OR.MSTP(12).GE.1)) THEN + MCEV=1 + IF(MSTP(64).EQ.1) FQ2C=PARP(63) + IF(MSTP(64).EQ.2) FQ2C=PARP(64) + TCMX=LOG(FQ2C*Q2MX/PARP(61)**2) + IF(Q2MX.LT.MAX(Q2MNC,2D0*PARP(61)**2).OR.TCMX.LT.0.2D0) + & MCEV=0 + ENDIF + +C...Initialize QED evolution and check phase space. + MEEV=0 + XEE=1D-10 + SPME=PMAS(11,1)**2 + IF(IABS(MINT(11)).EQ.13.OR.IABS(MINT(12)).EQ.13) + &SPME=PMAS(13,1)**2 + IF(IABS(MINT(11)).EQ.15.OR.IABS(MINT(12)).EQ.15) + &SPME=PMAS(15,1)**2 + Q2MNE=MAX(PARP(68)**2,2D0*SPME) + TEMX=0D0 + FWTE=10D0 + IF(MINT(45).EQ.3.OR.MINT(46).EQ.3) THEN + MEEV=1 + TEMX=LOG(Q2MX/SPME) + IF(Q2MX.LE.Q2MNE.OR.TEMX.LT.0.2D0) MEEV=0 + ENDIF + IF(MCEV.EQ.0.AND.MEEV.EQ.0) RETURN + +C...Loopback point in case of failure to reconstruct kinematics. + NS=N + LOOP=0 + 100 LOOP=LOOP+1 + IF(LOOP.GT.100) THEN + MINT(51)=1 + RETURN + ENDIF + N=NS + +C...Initial values: flavours, momenta, virtualities. + DO 120 JT=1,2 + MORE(JT)=1 + KFBEAM(JT)=MINT(10+JT) + IF(MINT(18+JT).EQ.1)KFBEAM(JT)=22 + KFLS(JT)=MINT(14+JT) + KFLS(JT+2)=KFLS(JT) + XS(JT)=VINT(40+JT) + IF(MINT(18+JT).EQ.1) XS(JT)=VINT(40+JT)/VINT(154+JT) + ZS(JT)=1D0 + Q2S(JT)=FCQ2MX*Q2MX + TEVCSV(JT)=TCMX + ALAM(JT)=PARP(61) + THE2(JT)=1D0 + TEVESV(JT)=TEMX + DO 110 KFL=-25,25 + XFS(JT,KFL)=XSFX(JT,KFL) + 110 CONTINUE +C...Special kinematics check for c/b quarks (that g -> c cbar or +C...b bbar kinematically possible). + KFLCB=IABS(KFLS(JT)) + IF(KFBEAM(JT).NE.22.AND.(KFLCB.EQ.4.OR.KFLCB.EQ.5)) THEN + IF(XS(JT).GT.0.9D0*Q2S(JT)/(PMAS(KFLCB,1)**2+Q2S(JT))) THEN + MINT(51)=1 + RETURN + ENDIF + ENDIF + 120 CONTINUE + DSH=VINT(44) + IF(ISET(ISUB).GE.3.AND.ISET(ISUB).LE.5) DSH=VINT(26)*VINT(2) + +C...Find if interference with final state partons. + MFIS=0 + IF(MSTP(67).GE.1.AND.MSTP(67).LE.3) MFIS=MSTP(67) + IF(MFIS.NE.0) THEN + DO 140 I=1,2 + KCFI(I)=0 + KCA=PYCOMP(IABS(KFLS(I))) + IF(KCA.NE.0) KCFI(I)=KCHG(KCA,2)*ISIGN(1,KFLS(I)) + NFIS(I)=0 + IF(KCFI(I).NE.0) THEN + IF(I.EQ.1) IPFS=IPUS1 + IF(I.EQ.2) IPFS=IPUS2 + DO 130 J=1,2 + ICSI=MOD(K(IPFS,3+J),MSTU(5)) + IF(ICSI.GT.0.AND.ICSI.NE.IPUS1.AND.ICSI.NE.IPUS2.AND. + & (KCFI(I).EQ.(-1)**(J+1).OR.KCFI(I).EQ.2)) THEN + NFIS(I)=NFIS(I)+1 + THEFIS(I,NFIS(I))=PYANGL(P(ICSI,3),SQRT(P(ICSI,1)**2+ + & P(ICSI,2)**2)) + IF(I.EQ.2) THEFIS(I,NFIS(I))=PARU(1)-THEFIS(I,NFIS(I)) + ENDIF + 130 CONTINUE + ENDIF + 140 CONTINUE + IF(NFIS(1)+NFIS(2).EQ.0) MFIS=0 + ENDIF + +C...Pick up leg with highest virtuality. + 150 N=N+1 + JT=1 + IF(N.GT.NS+1.AND.Q2S(2).GT.Q2S(1)) JT=2 + IF(MORE(JT).EQ.0) JT=3-JT + KFLB=KFLS(JT) + XB=XS(JT) + DO 160 KFL=-25,25 + XFB(KFL)=XFS(JT,KFL) + 160 CONTINUE + DSHR=2D0*SQRT(DSH) + DSHZ=DSH/ZS(JT) + +C...Check if allowed to branch. + MCEV=0 + IF(IABS(KFLB).LE.10.OR.KFLB.EQ.21) THEN + MCEV=1 + XEC=MAX(PARP(65)*DSHR/VINT(2),XB*(1D0/(1D0-PARP(66))-1D0)) + IF(XB.GE.1D0-2D0*XEC) MCEV=0 + ENDIF + MEEV=0 + IF(MINT(44+JT).EQ.3) THEN + MEEV=1 + IF(XB.GE.1D0-2D0*XEE) MEEV=0 + IF((IABS(KFLB).LE.10.OR.KFLB.EQ.21).AND.XB.GE.1D0-2D0*XEC) + & MEEV=0 +C***Currently kill QED shower for resolved photoproduction. + IF(MINT(18+JT).EQ.1) MEEV=0 +C***Currently kill shower for W inside electron. + IF(IABS(KFLB).EQ.24) THEN + MCEV=0 + MEEV=0 + ENDIF + ENDIF + IF(MCEV.EQ.0.AND.MEEV.EQ.0) THEN + Q2B=0D0 + GOTO 250 + ENDIF + +C...Maximum Q2 with or without Q2 ordering. Effective Lambda and n_f. + Q2B=Q2S(JT) + TEVCB=TEVCSV(JT) + TEVEB=TEVESV(JT) + IF(MSTP(62).LE.1) THEN + IF(ZS(JT).GT.0.99999D0) THEN + Q2B=Q2S(JT) + ELSE + Q2B=0.5D0*(1D0/ZS(JT)+1D0)*Q2S(JT)+0.5D0*(1D0/ZS(JT)-1D0)* + & (Q2S(3-JT)-DSH+SQRT((DSH+Q2S(1)+Q2S(2))**2+ + & 8D0*Q2S(1)*Q2S(2)*ZS(JT)/(1D0-ZS(JT)))) + ENDIF + IF(MCEV.EQ.1) TEVCB=LOG(FQ2C*Q2B/ALAM(JT)**2) + IF(MEEV.EQ.1) TEVEB=LOG(Q2B/SPME) + ENDIF + IF(MCEV.EQ.1) THEN + ALSDUM=PYALPS(FQ2C*Q2B) + TEVCB=TEVCB+2D0*LOG(ALAM(JT)/PARU(117)) + ALAM(JT)=PARU(117) + B0=(33D0-2D0*MSTU(118))/6D0 + ENDIF + TEVCBS=TEVCB + TEVEBS=TEVEB + +C...Select side for interference with final state partons. + IF(MFIS.GE.1.AND.N.LE.NS+2) THEN + IFI=N-NS + ISFI(IFI)=0 + IF(IABS(KCFI(IFI)).EQ.1.AND.NFIS(IFI).EQ.1) THEN + ISFI(IFI)=1 + ELSEIF(KCFI(IFI).EQ.2.AND.NFIS(IFI).EQ.1) THEN + IF(PYR(0).GT.0.5D0) ISFI(IFI)=1 + ELSEIF(KCFI(IFI).EQ.2.AND.NFIS(IFI).EQ.2) THEN + ISFI(IFI)=1 + IF(PYR(0).GT.0.5D0) ISFI(IFI)=2 + ENDIF + ENDIF + +C...Calculate Altarelli-Parisi weights. + DO 170 KFL=-25,25 + WTAPC(KFL)=0D0 + WTAPE(KFL)=0D0 + WTSF(KFL)=0D0 + 170 CONTINUE +C...q -> q, g -> q. + IF(IABS(KFLB).LE.10) THEN + WTAPC(KFLB)=(8D0/3D0)*LOG((1D0-XEC-XB)*(XB+XEC)/(XEC*(1D0-XEC))) + WTAPC(21)=0.5D0*(XB/(XB+XEC)-XB/(1D0-XEC)) + IF(MECOR.EQ.1.AND.(N.EQ.NS+1.OR.N.EQ.NS+2)) + & WTAPC(21)=3D0*WTAPC(21) +C...f -> f, gamma -> f. + ELSEIF(IABS(KFLB).LE.20) THEN + WTAPF1=LOG((1D0-XEE-XB)*(XB+XEE)/(XEE*(1D0-XEE))) + WTAPF2=LOG((1D0-XEE-XB)*(1D0-XEE)/(XEE*(XB+XEE))) + WTAPE(KFLB)=2D0*(WTAPF1+WTAPF2) + IF(MSTP(12).GE.1) WTAPE(22)=XB/(XB+XEE)-XB/(1D0-XEE) + IF(MECOR.EQ.1.AND.(N.EQ.NS+1.OR.N.EQ.NS+2)) + & WTAPE(22)=3D0*WTAPE(22) +C...f -> g, g -> g. + ELSEIF(KFLB.EQ.21) THEN + WTAPQ=(16D0/3D0)*(SQRT((1D0-XEC)/XB)-SQRT((XB+XEC)/XB)) + DO 180 KFL=1,MSTP(58) + WTAPC(KFL)=WTAPQ + WTAPC(-KFL)=WTAPQ + 180 CONTINUE + WTAPC(21)=6D0*LOG((1D0-XEC-XB)/XEC) +C...f -> gamma, W+, W-. + ELSEIF(KFLB.EQ.22) THEN + WTAPF=LOG((1D0-XEE-XB)*(1D0-XEE)/(XEE*(XB+XEE)))/XB + WTAPE(11)=WTAPF + WTAPE(-11)=WTAPF + ELSEIF(KFLB.EQ.24) THEN + WTAPE(-11)=1D0/(4D0*PARU(102))*LOG((1D0-XEE-XB)*(1D0-XEE)/ + & (XEE*(XB+XEE)))/XB + ELSEIF(KFLB.EQ.-24) THEN + WTAPE(11)=1D0/(4D0*PARU(102))*LOG((1D0-XEE-XB)*(1D0-XEE)/ + & (XEE*(XB+XEE)))/XB + ENDIF + +C...Calculate parton distribution weights and sum. + NTRY=0 + 190 NTRY=NTRY+1 + IF(NTRY.GT.500) THEN + MINT(51)=1 + RETURN + ENDIF + WTSUMC=0D0 + WTSUME=0D0 + XFBO=MAX(1D-10,XFB(KFLB)) + DO 200 KFL=-25,25 + WTSF(KFL)=XFB(KFL)/XFBO + WTSUMC=WTSUMC+WTAPC(KFL)*WTSF(KFL) + WTSUME=WTSUME+WTAPE(KFL)*WTSF(KFL) + 200 CONTINUE + WTSUMC=MAX(0.0001D0,WTSUMC) + WTSUME=MAX(0.0001D0/FWTE,WTSUME) + +C...Choose new t: fix alpha_s, alpha_s(Q^2), alpha_s(k_T^2). + NTRY2=0 + 210 NTRY2=NTRY2+1 + IF(NTRY2.GT.500) THEN + MINT(51)=1 + RETURN + ENDIF + IF(MCEV.EQ.1) THEN + IF(MSTP(64).LE.0) THEN + TEVCB=TEVCB+LOG(PYR(0))*PARU(2)/(PARU(111)*WTSUMC) + ELSEIF(MSTP(64).EQ.1) THEN + TEVCB=TEVCB*EXP(MAX(-50D0,LOG(PYR(0))*B0/WTSUMC)) + ELSE + TEVCB=TEVCB*EXP(MAX(-50D0,LOG(PYR(0))*B0/(5D0*WTSUMC))) + ENDIF + ENDIF + IF(MEEV.EQ.1) THEN + TEVEB=TEVEB*EXP(MAX(-50D0,LOG(PYR(0))*PARU(2)/ + & (PARU(101)*FWTE*WTSUME*TEMX))) + ENDIF + +C...Translate t into Q2 scale; choose between QCD and QED evolution. + 220 IF(MCEV.EQ.1) Q2CB=ALAM(JT)**2*EXP(MAX(-50D0,TEVCB))/FQ2C + IF(MEEV.EQ.1) Q2EB=SPME*EXP(MAX(-50D0,TEVEB)) +C...Ensure that Q2 is above threshold for charm/bottom. + KFLCB=IABS(KFLB) + IF(KFBEAM(JT).NE.22.AND.(KFLCB.EQ.4.OR.KFLCB.EQ.5).AND. + &MCEV.EQ.1) THEN + IF(Q2CB.LT.PMAS(KFLCB,1)**2) THEN + Q2CB=1.1*PMAS(KFLCB,1)**2 + TEVCB=LOG(FQ2C*Q2B/ALAM(JT)**2) + FCQ2MX=MIN(2D0,1.05D0*FCQ2MX) + ENDIF + ENDIF + MCE=0 + IF(MCEV.EQ.0.AND.MEEV.EQ.0) THEN + ELSEIF(MCEV.EQ.1.AND.MEEV.EQ.0) THEN + IF(Q2CB.GT.Q2MNCS(JT)) MCE=1 + ELSEIF(MCEV.EQ.0.AND.MEEV.EQ.1) THEN + IF(Q2EB.GT.Q2MNE) MCE=2 + ELSEIF(Q2MNCS(JT).GT.Q2MNE) THEN + MCE=1 + IF(Q2EB.GT.Q2CB.OR.Q2CB.LE.Q2MNCS(JT)) MCE=2 + IF(MCE.EQ.2.AND.Q2EB.LE.Q2MNE) MCE=0 + ELSE + MCE=2 + IF(Q2CB.GT.Q2EB.OR.Q2EB.LE.Q2MNE) MCE=1 + IF(MCE.EQ.1.AND.Q2CB.LE.Q2MNCS(JT)) MCE=0 + ENDIF + +C...Evolution possibly ended. Update t values. + IF(MCE.EQ.0) THEN + Q2B=0D0 + GOTO 250 + ELSEIF(MCE.EQ.1) THEN + Q2B=Q2CB + Q2REF=FQ2C*Q2B + IF(MEEV.EQ.1) TEVEB=LOG(Q2B/SPME) + ELSE + Q2B=Q2EB + Q2REF=Q2B + IF(MCEV.EQ.1) TEVCB=LOG(FQ2C*Q2B/ALAM(JT)**2) + ENDIF + +C...Select flavour for branching parton. + IF(MCE.EQ.1) WTRAN=PYR(0)*WTSUMC + IF(MCE.EQ.2) WTRAN=PYR(0)*WTSUME + KFLA=-25 + 230 KFLA=KFLA+1 + IF(MCE.EQ.1) WTRAN=WTRAN-WTAPC(KFLA)*WTSF(KFLA) + IF(MCE.EQ.2) WTRAN=WTRAN-WTAPE(KFLA)*WTSF(KFLA) + IF(KFLA.LE.24.AND.WTRAN.GT.0D0) GOTO 230 + IF(KFLA.EQ.25) THEN + Q2B=0D0 + GOTO 250 + ENDIF + +C...Choose z value and corrective weight. + WTZ=0D0 +C...q -> q + g. + IF(IABS(KFLA).LE.10.AND.IABS(KFLB).LE.10) THEN + Z=1D0-((1D0-XB-XEC)/(1D0-XEC))* + & (XEC*(1D0-XEC)/((XB+XEC)*(1D0-XB-XEC)))**PYR(0) + WTZ=0.5D0*(1D0+Z**2) +C...q -> g + q. + ELSEIF(IABS(KFLA).LE.10.AND.KFLB.EQ.21) THEN + Z=XB/(SQRT(XB+XEC)+PYR(0)*(SQRT(1D0-XEC)-SQRT(XB+XEC)))**2 + WTZ=0.5D0*(1D0+(1D0-Z)**2)*SQRT(Z) +C...f -> f + gamma. + ELSEIF(IABS(KFLA).LE.20.AND.IABS(KFLB).LE.20) THEN + IF(WTAPF1.GT.PYR(0)*(WTAPF1+WTAPF2)) THEN + Z=1D0-((1D0-XB-XEE)/(1D0-XEE))* + & (XEE*(1D0-XEE)/((XB+XEE)*(1D0-XB-XEE)))**PYR(0) + ELSE + Z=XB+XB*(XEE/(1D0-XEE))* + & ((1D0-XB-XEE)*(1D0-XEE)/(XEE*(XB+XEE)))**PYR(0) + ENDIF + WTZ=0.5D0*(1D0+Z**2)*(Z-XB)/(1D0-XB) +C...f -> gamma + f. + ELSEIF(IABS(KFLA).LE.20.AND.KFLB.EQ.22) THEN + Z=XB+XB*(XEE/(1D0-XEE))* + & ((1D0-XB-XEE)*(1D0-XEE)/(XEE*(XB+XEE)))**PYR(0) + WTZ=0.5D0*(1D0+(1D0-Z)**2)*XB*(Z-XB)/Z +C...f -> W+- + f'. + ELSEIF(IABS(KFLA).LE.20.AND.IABS(KFLB).EQ.24) THEN + Z=XB+XB*(XEE/(1D0-XEE))* + & ((1D0-XB-XEE)*(1D0-XEE)/(XEE*(XB+XEE)))**PYR(0) + WTZ=0.5D0*(1D0+(1D0-Z)**2)*(XB*(Z-XB)/Z)* + & (Q2B/(Q2B+PMAS(24,1)**2)) +C...g -> q + qbar. + ELSEIF(KFLA.EQ.21.AND.IABS(KFLB).LE.10) THEN + Z=XB/(1D0-XEC)+PYR(0)*(XB/(XB+XEC)-XB/(1D0-XEC)) + WTZ=1D0-2D0*Z*(1D0-Z) +C...g -> g + g. + ELSEIF(KFLA.EQ.21.AND.KFLB.EQ.21) THEN + Z=1D0/(1D0+((1D0-XEC-XB)/XB)*(XEC/(1D0-XEC-XB))**PYR(0)) + WTZ=(1D0-Z*(1D0-Z))**2 +C...gamma -> f + fbar. + ELSEIF(KFLA.EQ.22.AND.IABS(KFLB).LE.20) THEN + Z=XB/(1D0-XEE)+PYR(0)*(XB/(XB+XEE)-XB/(1D0-XEE)) + WTZ=1D0-2D0*Z*(1D0-Z) + ENDIF + IF(MCE.EQ.2) WTZ=(WTZ/FWTE)*(TEVEB/TEMX) + +C...Option with resummation of soft gluon emission as effective z shift. + IF(MCE.EQ.1) THEN + IF(MSTP(65).GE.1) THEN + RSOFT=6D0 + IF(KFLB.NE.21) RSOFT=8D0/3D0 + Z=Z*(TEVCB/TEVCSV(JT))**(RSOFT*XEC/((XB+XEC)*B0)) + IF(Z.LE.XB) GOTO 210 + ENDIF + +C...Option with alpha_s(k_T^2): demand k_T^2 > cutoff, reweight. + IF(MSTP(64).GE.2) THEN + IF((1D0-Z)*Q2B.LT.Q2MNCS(JT)) GOTO 210 + ALPRAT=TEVCB/(TEVCB+LOG(1D0-Z)) + IF(ALPRAT.LT.5D0*PYR(0)) GOTO 210 + IF(ALPRAT.GT.5D0) WTZ=WTZ*ALPRAT/5D0 + ENDIF + ENDIF + +C...Remove kinematically impossible branchings. + UHAT=Q2B-DSH*(1D0-Z)/Z + IF(MSTP(68).GE.0.AND.UHAT.GT.0D0) GOTO 210 + +C...Matrix-element corrections for s-channel resonance production. + IF(MECOR.EQ.1.AND.(N.EQ.NS+1.OR.N.EQ.NS+2)) THEN + SHAT=DSH/Z + THAT=-Q2B + IF(IABS(KFLA).LE.20.AND.IABS(KFLB).LE.20) THEN + RMEPS=(THAT**2+UHAT**2+2D0*DSH*SHAT)/(SHAT**2+DSH**2) + WTZ=WTZ*RMEPS + ELSEIF((KFLA.EQ.21.OR.KFLA.EQ.22).AND.IABS(KFLB).LE.20) THEN + RMEPS=(SHAT**2+UHAT**2+2D0*DSH*THAT)/((SHAT-DSH)**2+DSH**2) + WTZ=WTZ*RMEPS/3D0 + ENDIF + ENDIF + +C...Impose angular constraint in first branching from interference +C...with final state partons. + IF(MCE.EQ.1) THEN + IF(MFIS.GE.1.AND.N.LE.NS+2.AND.NTRY2.LT.200) THEN + THE2D=(4D0*Q2B)/(DSH*(1D0-Z)) + IF(N.EQ.NS+1.AND.ISFI(1).GE.1) THEN + IF(THE2D.GT.THEFIS(1,ISFI(1))**2) GOTO 210 + ELSEIF(N.EQ.NS+2.AND.ISFI(2).GE.1) THEN + IF(THE2D.GT.THEFIS(2,ISFI(2))**2) GOTO 210 + ENDIF + ENDIF + +C...Option with angular ordering requirement. + IF(MSTP(62).GE.3.AND.NTRY2.LT.200) THEN + THE2T=(4D0*Z**2*Q2B)/(4D0*Z**2*Q2B+(1D0-Z)*XB**2*VINT(2)) + IF(THE2T.GT.THE2(JT)) GOTO 210 + ENDIF + ENDIF + +C...Weighting with new parton distributions. + MINT(105)=MINT(102+JT) + MINT(109)=MINT(106+JT) + VINT(120)=VINT(2+JT) + IF(MSTP(57).LE.1) THEN + CALL PYPDFU(KFBEAM(JT),XB,Q2REF,XFN) + ELSE + CALL PYPDFL(KFBEAM(JT),XB,Q2REF,XFN) + ENDIF + XFBN=XFN(KFLB) + IF(XFBN.LT.1D-20) THEN + IF(KFLA.EQ.KFLB) THEN + TEVCB=TEVCBS + TEVEB=TEVEBS + WTAPC(KFLB)=0D0 + WTAPE(KFLB)=0D0 + GOTO 190 + ELSEIF(MCE.EQ.1.AND.TEVCBS-TEVCB.GT.0.2D0) THEN + TEVCB=0.5D0*(TEVCBS+TEVCB) + GOTO 220 + ELSEIF(MCE.EQ.2.AND.TEVEBS-TEVEB.GT.0.2D0) THEN + TEVEB=0.5D0*(TEVEBS+TEVEB) + GOTO 220 + ELSE + XFBN=1D-10 + XFN(KFLB)=XFBN + ENDIF + ENDIF + DO 240 KFL=-25,25 + XFB(KFL)=XFN(KFL) + 240 CONTINUE + XA=XB/Z + IF(MSTP(57).LE.1) THEN + CALL PYPDFU(KFBEAM(JT),XA,Q2REF,XFA) + ELSE + CALL PYPDFL(KFBEAM(JT),XA,Q2REF,XFA) + ENDIF + XFAN=XFA(KFLA) + IF(XFAN.LT.1D-20) GOTO 190 + WTSFA=WTSF(KFLA) + IF(WTZ*XFAN/XFBN.LT.PYR(0)*WTSFA) GOTO 190 + +C...Define two hard scatterers in their CM-frame. + 250 IF(N.EQ.NS+2) THEN + DQ2(JT)=Q2B + DPLCM=SQRT((DSH+DQ2(1)+DQ2(2))**2-4D0*DQ2(1)*DQ2(2))/DSHR + DO 270 JR=1,2 + I=NS+JR + IF(JR.EQ.1) IPO=IPUS1 + IF(JR.EQ.2) IPO=IPUS2 + DO 260 J=1,5 + K(I,J)=0 + P(I,J)=0D0 + V(I,J)=0D0 + 260 CONTINUE + K(I,1)=14 + K(I,2)=KFLS(JR+2) + K(I,4)=IPO + K(I,5)=IPO + P(I,3)=DPLCM*(-1)**(JR+1) + P(I,4)=(DSH+DQ2(3-JR)-DQ2(JR))/DSHR + P(I,5)=-SQRT(DQ2(JR)) + K(IPO,1)=14 + K(IPO,3)=I + K(IPO,4)=MOD(K(IPO,4),MSTU(5))+MSTU(5)*I + K(IPO,5)=MOD(K(IPO,5),MSTU(5))+MSTU(5)*I + 270 CONTINUE + +C...Find maximum allowed mass of timelike parton. + ELSEIF(N.GT.NS+2) THEN + JR=3-JT + DQ2(3)=Q2B + DPC(1)=P(IS(1),4) + DPC(2)=P(IS(2),4) + DPC(3)=0.5D0*(ABS(P(IS(1),3))+ABS(P(IS(2),3))) + DPD(1)=DSH+DQ2(JR)+DQ2(JT) + DPD(2)=DSHZ+DQ2(JR)+DQ2(3) + DPD(3)=SQRT(DPD(1)**2-4D0*DQ2(JR)*DQ2(JT)) + DPD(4)=SQRT(DPD(2)**2-4D0*DQ2(JR)*DQ2(3)) + IKIN=0 + IF(Q2S(JR).GE.0.25D0*Q2MNC.AND.DPD(1)-DPD(3).GE. + & 1D-10*DPD(1)) IKIN=1 + IF(IKIN.EQ.0) DMSMA=(DQ2(JT)/ZS(JT)-DQ2(3))* + & (DSH/(DSH+DQ2(JT))-DSH/(DSHZ+DQ2(3))) + IF(IKIN.EQ.1) DMSMA=(DPD(1)*DPD(2)-DPD(3)*DPD(4))/ + & (2D0*DQ2(JR))-DQ2(JT)-DQ2(3) + +C...Generate timelike parton shower (if required). + IT=N + DO 280 J=1,5 + K(IT,J)=0 + P(IT,J)=0D0 + V(IT,J)=0D0 + 280 CONTINUE +C...f -> f + g (gamma). + IF(IABS(KFLB).LE.20.AND.IABS(KFLS(JT+2)).LE.20) THEN + K(IT,2)=21 + IF(IABS(KFLB).GE.11) K(IT,2)=22 +C...f -> g (gamma, W+-) + f. + ELSEIF(IABS(KFLB).LE.20.AND.IABS(KFLS(JT+2)).GT.20) THEN + K(IT,2)=KFLB + IF(KFLS(JT+2).EQ.24) THEN + K(IT,2)=-12 + ELSEIF(KFLS(JT+2).EQ.-24) THEN + K(IT,2)=12 + ENDIF +C...g (gamma) -> f + fbar, g + g. + ELSE + K(IT,2)=-KFLS(JT+2) + IF(KFLS(JT+2).GT.20) K(IT,2)=KFLS(JT+2) + ENDIF + K(IT,1)=3 + IF((IABS(K(IT,2)).GE.11.AND.IABS(K(IT,2)).LE.18).OR. + & IABS(K(IT,2)).EQ.22) K(IT,1)=1 + P(IT,5)=PYMASS(K(IT,2)) + IF(DMSMA.LE.P(IT,5)**2) GOTO 100 + IF(MSTP(63).GE.1.AND.MCE.EQ.1) THEN + MSTJ48=MSTJ(48) + PARJ85=PARJ(85) + P(IT,4)=(DSHZ-DSH-P(IT,5)**2)/DSHR + P(IT,3)=SQRT(P(IT,4)**2-P(IT,5)**2) + IF(MSTP(63).EQ.1) THEN + Q2TIM=DMSMA + ELSEIF(MSTP(63).EQ.2) THEN + Q2TIM=MIN(DMSMA,PARP(71)*Q2S(JT)) + ELSE + Q2TIM=DMSMA + MSTJ(48)=1 + IF(IKIN.EQ.0) DPT2=DMSMA*(DSHZ+DQ2(3))/(DSH+DQ2(JT)) + IF(IKIN.EQ.1) DPT2=DMSMA*(0.5D0*DPD(1)*DPD(2)+0.5D0*DPD(3)* + & DPD(4)-DQ2(JR)*(DQ2(JT)+DQ2(3)))/(4D0*DSH*DPC(3)**2) + PARJ(85)=SQRT(MAX(0D0,DPT2))* + & (1D0/P(IT,4)+1D0/P(IS(JT),4)) + ENDIF + CALL PYSHOW(IT,0,SQRT(Q2TIM)) + MSTJ(48)=MSTJ48 + PARJ(85)=PARJ85 + IF(N.GE.IT+1) P(IT,5)=P(IT+1,5) + ENDIF + +C...Reconstruct kinematics of branching: timelike parton shower. + DMS=P(IT,5)**2 + IF(IKIN.EQ.0) DPT2=(DMSMA-DMS)*(DSHZ+DQ2(3))/(DSH+DQ2(JT)) + IF(IKIN.EQ.1) DPT2=(DMSMA-DMS)*(0.5D0*DPD(1)*DPD(2)+ + & 0.5D0*DPD(3)*DPD(4)-DQ2(JR)*(DQ2(JT)+DQ2(3)+DMS))/ + & (4D0*DSH*DPC(3)**2) + IF(DPT2.LT.0D0) GOTO 100 + DPB(1)=(0.5D0*DPD(2)-DPC(JR)*(DSHZ+DQ2(JR)-DQ2(JT)-DMS)/ + & DSHR)/DPC(3)-DPC(3) + P(IT,1)=SQRT(DPT2) + P(IT,3)=DPB(1)*(-1)**(JT+1) + P(IT,4)=SQRT(DPT2+DPB(1)**2+DMS) + IF(N.GE.IT+1) THEN + DPB(1)=SQRT(DPB(1)**2+DPT2) + DPB(2)=SQRT(DPB(1)**2+DMS) + DPB(3)=P(IT+1,3) + DPB(4)=SQRT(DPB(3)**2+DMS) + DBEZ=(DPB(4)*DPB(1)-DPB(3)*DPB(2))/(DPB(4)*DPB(2)-DPB(3)* + & DPB(1)) + CALL PYROBO(IT+1,N,0D0,0D0,0D0,0D0,DBEZ) + THE=PYANGL(P(IT,3),P(IT,1)) + CALL PYROBO(IT+1,N,THE,0D0,0D0,0D0,0D0) + ENDIF + +C...Reconstruct kinematics of branching: spacelike parton. + DO 290 J=1,5 + K(N+1,J)=0 + P(N+1,J)=0D0 + V(N+1,J)=0D0 + 290 CONTINUE + K(N+1,1)=14 + K(N+1,2)=KFLB + P(N+1,1)=P(IT,1) + P(N+1,3)=P(IT,3)+P(IS(JT),3) + P(N+1,4)=P(IT,4)+P(IS(JT),4) + P(N+1,5)=-SQRT(DQ2(3)) + +C...Define colour flow of branching. + K(IS(JT),3)=N+1 + K(IT,3)=N+1 + IM1=N+1 + IM2=N+1 +C...f -> f + gamma (Z, W). + IF(IABS(K(IT,2)).GE.22) THEN + K(IT,1)=1 + ID1=IS(JT) + ID2=IS(JT) +C...f -> gamma (Z, W) + f. + ELSEIF(IABS(K(IS(JT),2)).GE.22) THEN + ID1=IT + ID2=IT +C...gamma -> q + qbar, g + g. + ELSEIF(K(N+1,2).EQ.22) THEN + ID1=IS(JT) + ID2=IT + IM1=ID2 + IM2=ID1 +C...q -> q + g. + ELSEIF(K(N+1,2).GT.0.AND.K(N+1,2).NE.21.AND.K(IT,2).EQ.21) THEN + ID1=IT + ID2=IS(JT) +C...q -> g + q. + ELSEIF(K(N+1,2).GT.0.AND.K(N+1,2).NE.21) THEN + ID1=IS(JT) + ID2=IT +C...qbar -> qbar + g. + ELSEIF(K(N+1,2).LT.0.AND.K(IT,2).EQ.21) THEN + ID1=IS(JT) + ID2=IT +C...qbar -> g + qbar. + ELSEIF(K(N+1,2).LT.0) THEN + ID1=IT + ID2=IS(JT) +C...g -> g + g; g -> q + qbar. + ELSEIF((K(IT,2).EQ.21.AND.PYR(0).GT.0.5D0).OR.K(IT,2).LT.0) THEN + ID1=IS(JT) + ID2=IT + ELSE + ID1=IT + ID2=IS(JT) + ENDIF + IF(IM1.EQ.N+1) K(IM1,4)=K(IM1,4)+ID1 + IF(IM2.EQ.N+1) K(IM2,5)=K(IM2,5)+ID2 + K(ID1,4)=K(ID1,4)+MSTU(5)*IM1 + K(ID2,5)=K(ID2,5)+MSTU(5)*IM2 + IF(ID1.NE.ID2) THEN + K(ID1,5)=K(ID1,5)+MSTU(5)*ID2 + K(ID2,4)=K(ID2,4)+MSTU(5)*ID1 + ENDIF + N=N+1 + +C...Boost to new CM-frame. + DBSVX=(P(N,1)+P(IS(JR),1))/(P(N,4)+P(IS(JR),4)) + DBSVZ=(P(N,3)+P(IS(JR),3))/(P(N,4)+P(IS(JR),4)) + IF(DBSVX**2+DBSVZ**2.GE.1D0) GOTO 100 + CALL PYROBO(NS+1,N,0D0,0D0,-DBSVX,0D0,-DBSVZ) + IR=N+(JT-1)*(IS(1)-N) + CALL PYROBO(NS+1,N,-PYANGL(P(IR,3),P(IR,1)),PARU(2)*PYR(0), + & 0D0,0D0,0D0) + ENDIF + +C...Update kinematics variables. + IS(JT)=N + DQ2(JT)=Q2B + IF(MSTP(62).GE.3.AND.NTRY2.LT.200) THE2(JT)=THE2T + DSH=DSHZ + +C...Save quantities; loop back. + Q2S(JT)=Q2B + IF((MCEV.EQ.1.AND.Q2B.GE.0.25D0*Q2MNC).OR. + &(MEEV.EQ.1.AND.Q2B.GE.Q2MNE)) THEN + KFLS(JT+2)=KFLS(JT) + KFLS(JT)=KFLA + XS(JT)=XA + ZS(JT)=Z + DO 300 KFL=-25,25 + XFS(JT,KFL)=XFA(KFL) + 300 CONTINUE + TEVCSV(JT)=TEVCB + TEVESV(JT)=TEVEB + ELSE + MORE(JT)=0 + IF(JT.EQ.1) IPU1=N + IF(JT.EQ.2) IPU2=N + ENDIF + IF(N.GT.MSTU(4)-MSTU(32)-10) THEN + CALL PYERRM(11,'(PYSSPA:) no more memory left in PYJETS') + IF(MSTU(21).GE.1) N=NS + IF(MSTU(21).GE.1) RETURN + ENDIF + IF(MORE(1).EQ.1.OR.MORE(2).EQ.1) GOTO 150 + +C...Boost hard scattering partons to frame of shower initiators. + DO 310 J=1,3 + ROBO(J+2)=(P(NS+1,J)+P(NS+2,J))/(P(NS+1,4)+P(NS+2,4)) + 310 CONTINUE + K(N+2,1)=1 + DO 320 J=1,5 + P(N+2,J)=P(NS+1,J) + 320 CONTINUE + CALL PYROBO(N+2,N+2,0D0,0D0,-ROBO(3),-ROBO(4),-ROBO(5)) + ROBO(2)=PYANGL(P(N+2,1),P(N+2,2)) + ROBO(1)=PYANGL(P(N+2,3),SQRT(P(N+2,1)**2+P(N+2,2)**2)) + CALL PYROBO(MINT(83)+5,NS,ROBO(1),ROBO(2),ROBO(3),ROBO(4), + &ROBO(5)) + +C...Store user information. Reset Lambda value. + K(IPU1,3)=MINT(83)+3 + K(IPU2,3)=MINT(83)+4 + DO 330 JT=1,2 + MINT(12+JT)=KFLS(JT) + VINT(140+JT)=XS(JT) + IF(MINT(18+JT).EQ.1) VINT(140+JT)=VINT(154+JT)*XS(JT) + 330 CONTINUE + PARU(112)=ALAMS + + RETURN + END + +C********************************************************************* + +C...PYRESD +C...Allows resonances to decay (including parton showers for hadronic +C...channels). + + SUBROUTINE PYRESD(IRES) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + COMMON/PYINT4/MWID(500),WIDS(500,5) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYDAT3/,/PYSUBS/,/PYPARS/, + &/PYINT1/,/PYINT2/,/PYINT4/ +C...Local arrays and complex and character variables. + DIMENSION IREF(50,8),KDCY(3),KFL1(3),KFL2(3),KFL3(3),KEQL(3), + &KCQM(3),KCQ1(3),KCQ2(3),KCQ3(3),NSD(3),PMMN(3),ILIN(6), + &HGZ(3,3),COUP(6,4),CORL(2,2,2),PK(6,4),PKK(6,6),CTHE(3), + &PHI(3),WDTP(0:200),WDTE(0:200,0:5),DBEZQQ(3),DPMO(5),XM(5), + &VDCY(4) + COMPLEX FGK,HA(6,6),HC(6,6) + REAL TIR,UIR + CHARACTER CODE*9,MASS*9 + +C...The F, Xi and Xj functions of Gunion and Kunszt +C...(Phys. Rev. D33, 665, plus errata from the authors). + FGK(I1,I2,I3,I4,I5,I6)=4.*HA(I1,I3)*HC(I2,I6)*(HA(I1,I5)* + &HC(I1,I4)+HA(I3,I5)*HC(I3,I4)) + DIGK(DT,DU)=-4D0*D34*D56+DT*(3D0*DT+4D0*DU)+DT**2*(DT*DU/ + &(D34*D56)-2D0*(1D0/D34+1D0/D56)*(DT+DU)+2D0*(D34/D56+D56/D34)) + DJGK(DT,DU)=8D0*(D34+D56)**2-8D0*(D34+D56)*(DT+DU)-6D0*DT*DU- + &2D0*DT*DU*(DT*DU/(D34*D56)-2D0*(1D0/D34+1D0/D56)*(DT+DU)+ + &2D0*(D34/D56+D56/D34)) + +C...Some general constants. + XW=PARU(102) + XWV=XW + IF(MSTP(8).GE.2) XW=1D0-(PMAS(24,1)/PMAS(23,1))**2 + XW1=1D0-XW + SQMZ=PMAS(23,1)**2 + GMMZ=PMAS(23,1)*PMAS(23,2) + SQMW=PMAS(24,1)**2 + GMMW=PMAS(24,1)*PMAS(24,2) + SH=VINT(44) + +C...Reset original resonance configuration. + DO 100 JT=1,8 + IREF(1,JT)=0 + 100 CONTINUE + +C...Define initial one, two or three objects for subprocess. + IF(IRES.EQ.0) THEN + ISUB=MINT(1) + IF(ISET(ISUB).EQ.1.OR.ISET(ISUB).EQ.3) THEN + IREF(1,1)=MINT(84)+2+ISET(ISUB) + IREF(1,4)=MINT(83)+6+ISET(ISUB) + JTMAX=1 + ELSEIF(ISET(ISUB).EQ.2.OR.ISET(ISUB).EQ.4) THEN + IREF(1,1)=MINT(84)+1+ISET(ISUB) + IREF(1,2)=MINT(84)+2+ISET(ISUB) + IREF(1,4)=MINT(83)+5+ISET(ISUB) + IREF(1,5)=MINT(83)+6+ISET(ISUB) + JTMAX=2 + ELSEIF(ISET(ISUB).EQ.5) THEN + IREF(1,1)=MINT(84)+3 + IREF(1,2)=MINT(84)+4 + IREF(1,3)=MINT(84)+5 + IREF(1,4)=MINT(83)+7 + IREF(1,5)=MINT(83)+8 + IREF(1,6)=MINT(83)+9 + JTMAX=3 + ENDIF + +C...Define original resonance for odd cases. + ELSE + ISUB=0 + IREF(1,1)=IRES + JTMAX=1 + ENDIF + +C...Check if initial resonance has been moved (in resonance + jet). + DO 120 JT=1,3 + IF(IREF(1,JT).GT.0) THEN + IF(K(IREF(1,JT),1).GT.10) THEN + KFA=IABS(K(IREF(1,JT),2)) + IF(KFA.GE.6.AND.KCHG(PYCOMP(KFA),2).NE.0) THEN + DO 110 I=IREF(1,JT)+1,N + IF(K(I,1).LE.10.AND.K(I,2).EQ.K(IREF(1,JT),2)) + & IREF(1,JT)=I + 110 CONTINUE + ELSE + KDA=MOD(K(IREF(1,JT),4),MSTU(4)) + IF(MWID(PYCOMP(KFA)).NE.0.AND.KDA.GT.1) IREF(1,JT)=KDA + ENDIF + ENDIF + ENDIF + 120 CONTINUE + +C.....Set decay vertex for initial resonances + DO 140 JT=1,JTMAX + DO 130 I=1,4 + V(IREF(1,JT),I)=0D0 + 130 CONTINUE + 140 CONTINUE + +C...Loop over decay history. + NP=1 + IP=0 + 150 IP=IP+1 + NINH=0 + JTMAX=2 + IF(IREF(IP,2).EQ.0) JTMAX=1 + IF(IREF(IP,3).NE.0) JTMAX=3 + IT4=0 + NSAV=N + +C...Start treatment of one, two or three resonances in parallel. + 160 N=NSAV + DO 250 JT=1,JTMAX + ID=IREF(IP,JT) + KDCY(JT)=0 + KFL1(JT)=0 + KFL2(JT)=0 + KFL3(JT)=0 + KEQL(JT)=0 + NSD(JT)=ID + +C...Check whether particle can/is allowed to decay. + IF(ID.EQ.0) GOTO 240 + KFA=IABS(K(ID,2)) + KCA=PYCOMP(KFA) + IF(MWID(KCA).EQ.0) GOTO 240 + IF(K(ID,1).GT.10.OR.MDCY(KCA,1).EQ.0) GOTO 240 + IF(KFA.EQ.6.OR.KFA.EQ.7.OR.KFA.EQ.8.OR.KFA.EQ.17.OR. + & KFA.EQ.18) IT4=IT4+1 + K(ID,4)=MSTU(5)*(K(ID,4)/MSTU(5)) + K(ID,5)=MSTU(5)*(K(ID,5)/MSTU(5)) + +C...Choose lifetime and determine decay vertex. + IF(K(ID,1).EQ.5) THEN + V(ID,5)=0D0 + ELSEIF(K(ID,1).NE.4) THEN + V(ID,5)=-PMAS(KCA,4)*LOG(PYR(0)) + ENDIF + DO 170 J=1,4 + VDCY(J)=V(ID,J)+V(ID,5)*P(ID,J)/P(ID,5) + 170 CONTINUE + +C...Determine whether decay allowed or not. + MOUT=0 + IF(MSTJ(22).EQ.2) THEN + IF(PMAS(KCA,4).GT.PARJ(71)) MOUT=1 + ELSEIF(MSTJ(22).EQ.3) THEN + IF(VDCY(1)**2+VDCY(2)**2+VDCY(3)**2.GT.PARJ(72)**2) MOUT=1 + ELSEIF(MSTJ(22).EQ.4) THEN + IF(VDCY(1)**2+VDCY(2)**2.GT.PARJ(73)**2) MOUT=1 + IF(ABS(VDCY(3)).GT.PARJ(74)) MOUT=1 + ENDIF + IF(MOUT.EQ.1.AND.K(ID,1).NE.5) THEN + K(ID,1)=4 + GOTO 240 + ENDIF + +C...Info for selection of decay channel: sign, pairings. + IF(KCHG(KCA,3).EQ.0) THEN + IPM=2 + ELSE + IPM=(5-ISIGN(1,K(ID,2)))/2 + ENDIF + KFB=0 + IF(JTMAX.EQ.2) THEN + KFB=IABS(K(IREF(IP,3-JT),2)) + ELSEIF(JTMAX.EQ.3) THEN + JT2=JT+1-3*(JT/3) + KFB=IABS(K(IREF(IP,JT2),2)) + IF(KFB.NE.KFA) THEN + JT2=JT+2-3*((JT+1)/3) + KFB=IABS(K(IREF(IP,JT2),2)) + ENDIF + ENDIF + +C...Select decay channel. + IF(ISUB.EQ.1.OR.ISUB.EQ.15.OR.ISUB.EQ.19.OR.ISUB.EQ.22.OR. + & ISUB.EQ.30.OR.ISUB.EQ.35.OR.ISUB.EQ.141) MINT(61)=1 + CALL PYWIDT(KFA,P(ID,5)**2,WDTP,WDTE) + WDTE0S=WDTE(0,1)+WDTE(0,IPM)+WDTE(0,4) + IF(KFB.EQ.KFA) WDTE0S=WDTE0S+WDTE(0,5) + IF(WDTE0S.LE.0D0) GOTO 240 + RKFL=WDTE0S*PYR(0) + IDL=0 + 180 IDL=IDL+1 + IDC=IDL+MDCY(KCA,2)-1 + RKFL=RKFL-(WDTE(IDL,1)+WDTE(IDL,IPM)+WDTE(IDL,4)) + IF(KFB.EQ.KFA) RKFL=RKFL-WDTE(IDL,5) + IF(IDL.LT.MDCY(KCA,3).AND.RKFL.GT.0D0) GOTO 180 + +C...Read out flavours and colour charges of decay channel chosen. + KCQM(JT)=KCHG(KCA,2)*ISIGN(1,K(ID,2)) + IF(KCQM(JT).EQ.-2) KCQM(JT)=2 + KFL1(JT)=KFDP(IDC,1)*ISIGN(1,K(ID,2)) + KFC1A=PYCOMP(IABS(KFL1(JT))) + IF(KCHG(KFC1A,3).EQ.0) KFL1(JT)=IABS(KFL1(JT)) + KCQ1(JT)=KCHG(KFC1A,2)*ISIGN(1,KFL1(JT)) + IF(KCQ1(JT).EQ.-2) KCQ1(JT)=2 + KFL2(JT)=KFDP(IDC,2)*ISIGN(1,K(ID,2)) + KFC2A=PYCOMP(IABS(KFL2(JT))) + IF(KCHG(KFC2A,3).EQ.0) KFL2(JT)=IABS(KFL2(JT)) + KCQ2(JT)=KCHG(KFC2A,2)*ISIGN(1,KFL2(JT)) + IF(KCQ2(JT).EQ.-2) KCQ2(JT)=2 + KFL3(JT)=KFDP(IDC,3)*ISIGN(1,K(ID,2)) + IF(KFL3(JT).NE.0) THEN + KFC3A=PYCOMP(IABS(KFL3(JT))) + IF(KCHG(KFC3A,3).EQ.0) KFL3(JT)=IABS(KFL3(JT)) + KCQ3(JT)=KCHG(KFC3A,2)*ISIGN(1,KFL3(JT)) + IF(KCQ3(JT).EQ.-2) KCQ3(JT)=2 + ENDIF + +C...Set/save further info on channel. + KDCY(JT)=1 + IF(KFB.EQ.KFA) KEQL(JT)=MDME(IDC,1) + NSD(JT)=N + HGZ(JT,1)=VINT(111) + HGZ(JT,2)=VINT(112) + HGZ(JT,3)=VINT(114) + JTZ=JT + +C...Select masses; to begin with assume resonances narrow. + DO 200 I=1,3 + P(N+I,5)=0D0 + PMMN(I)=0D0 + IF(I.EQ.1) THEN + KFLW=IABS(KFL1(JT)) + KCW=KFC1A + ELSEIF(I.EQ.2) THEN + KFLW=IABS(KFL2(JT)) + KCW=KFC2A + ELSEIF(I.EQ.3) THEN + IF(KFL3(JT).EQ.0) GOTO 200 + KFLW=IABS(KFL3(JT)) + KCW=KFC3A + ENDIF + P(N+I,5)=PMAS(KCW,1) +CMRENNA++ +C...This prevents SUSY/t particles from becoming too light. + IF(KFLW/KSUSY1.EQ.1.OR.KFLW/KSUSY1.EQ.2) THEN + PMMN(I)=PMAS(KCW,1) + DO 190 IDC=MDCY(KCW,2),MDCY(KCW,2)+MDCY(KCW,3)-1 + IF(MDME(IDC,1).GT.0.AND.BRAT(IDC).GT.1E-4) THEN + PMSUM=PMAS(PYCOMP(KFDP(IDC,1)),1)+ + & PMAS(PYCOMP(KFDP(IDC,2)),1) + IF(KFDP(IDC,3).NE.0) PMSUM=PMSUM+ + & PMAS(PYCOMP(KFDP(IDC,3)),1) + PMMN(I)=MIN(PMMN(I),PMSUM) + ENDIF + 190 CONTINUE +CMRENNA-- + ELSEIF(KFLW.EQ.6) THEN + PMMN(I)=PMAS(24,1)+PMAS(5,1) + ENDIF + 200 CONTINUE + +C...Check which two out of three are widest. + IWID1=1 + IWID2=2 + PWID1=PMAS(KFC1A,2) + PWID2=PMAS(KFC2A,2) + KFLW1=IABS(KFL1(JT)) + KFLW2=IABS(KFL2(JT)) + IF(KFL3(JT).NE.0) THEN + PWID3=PMAS(KFC3A,2) + IF(PWID3.GT.PWID1.AND.PWID2.GE.PWID1) THEN + IWID1=3 + PWID1=PWID3 + KFLW1=IABS(KFL3(JT)) + ELSEIF(PWID3.GT.PWID2) THEN + IWID2=3 + PWID2=PWID3 + KFLW2=IABS(KFL3(JT)) + ENDIF + ENDIF + +C...If all narrow then only check that masses consistent. + IF(MSTP(42).LE.0.OR.(PWID1.LT.PARP(41).AND. + & PWID2.LT.PARP(41))) THEN +CMRENNA++ +C....Handle near degeneracy cases. + IF(KFA/KSUSY1.EQ.1.OR.KFA/KSUSY1.EQ.2) THEN + IF(P(N+1,5)+P(N+2,5)+P(N+3,5).GT.P(ID,5)) THEN + P(N+1,5)=P(ID,5)-P(N+2,5)-0.5D0 + IF(P(N+1,5).LT.0D0) P(N+1,5)=0D0 + ENDIF + ENDIF +CMRENNA-- + IF(P(N+1,5)+P(N+2,5)+P(N+3,5).GT.P(ID,5)) THEN + CALL PYERRM(13,'(PYRESD:) daughter masses too large') + MINT(51)=1 + RETURN + ELSEIF(P(N+1,5)+P(N+2,5)+P(N+3,5)+PARJ(64).GT.P(ID,5)) THEN + CALL PYERRM(3,'(PYRESD:) daughter masses too large') + MINT(51)=1 + RETURN + ENDIF + +C...For three wide resonances select narrower of three +C...according to BW decoupled from rest. + ELSE + PMTOT=P(ID,5) + IF(KFL3(JT).NE.0) THEN + IWID3=6-IWID1-IWID2 + KFLW3=IABS(KFL1(JT))+IABS(KFL2(JT))+IABS(KFL3(JT))- + & KFLW1-KFLW2 + LOOP=0 + 210 LOOP=LOOP+1 + P(N+IWID3,5)=PYMASS(KFLW3) + IF(LOOP.LE.10.AND. P(N+IWID3,5).LE.PMMN(IWID3)) GOTO 210 + PMTOT=PMTOT-P(N+IWID3,5) + ENDIF +C...Select other two correlated within remaining phase space. + IF(IP.EQ.1) THEN + CKIN45=CKIN(45) + CKIN47=CKIN(47) + CKIN(45)=MAX(PMMN(IWID1),CKIN(45)) + CKIN(47)=MAX(PMMN(IWID2),CKIN(47)) + CALL PYOFSH(2,KFA,KFLW1,KFLW2,PMTOT,P(N+IWID1,5), + & P(N+IWID2,5)) + CKIN(45)=CKIN45 + CKIN(47)=CKIN47 + ELSE + CKIN(49)=PMMN(IWID1) + CKIN(50)=PMMN(IWID2) + CALL PYOFSH(5,KFA,KFLW1,KFLW2,PMTOT,P(N+IWID1,5), + & P(N+IWID2,5)) + CKIN(49)=0D0 + CKIN(50)=0D0 + ENDIF + IF(MINT(51).EQ.1) RETURN + ENDIF + +C...Begin fill decay products, with colour flow for coloured objects. + MSTU10=MSTU(10) + MSTU(10)=1 + MSTU(19)=1 + +CMRENNA++ +C...1) Three-body decays of SUSY particles (plus special case top). + IF(KFL3(JT).NE.0) THEN + DO 230 I=N+1,N+3 + DO 220 J=1,5 + K(I,J)=0 +C V(I,J)=0D0 + 220 CONTINUE + 230 CONTINUE + XM(1)=P(N+1,5) + XM(2)=P(N+2,5) + XM(3)=P(N+3,5) + XM(5)=P(ID,5) + CALL PYTBDY(XM) + K(N+1,1)=1 + K(N+1,2)=KFL1(JT) + K(N+2,1)=1 + K(N+2,2)=KFL2(JT) + K(N+3,1)=1 + K(N+3,2)=KFL3(JT) + +C...Set colour flow for t -> W + b + Z. + IF(KFA.EQ.6) THEN + K(N+2,1)=3 + ISID=4 + IF(KCQM(JT).EQ.-1) ISID=5 + IDAU=N+2 + K(ID,ISID)=K(ID,ISID)+IDAU + K(IDAU,ISID)=MSTU(5)*ID + +C...Set colour flow in three-body decays - programmed as special cases. + ELSEIF(KFC2A.LE.6) THEN + K(N+2,1)=3 + K(N+3,1)=3 + ISID=4 + IF(KFL2(JT).LT.0) ISID=5 + K(N+2,ISID)=MSTU(5)*(N+3) + K(N+3,9-ISID)=MSTU(5)*(N+2) + ENDIF + IF(KFL1(JT).EQ.KSUSY1+21) THEN + K(N+1,1)=3 + K(N+2,1)=3 + K(N+3,1)=3 + ISID=4 + IF(KFL2(JT).LT.0) ISID=5 + K(N+1,ISID)=MSTU(5)*(N+2) + K(N+1,9-ISID)=MSTU(5)*(N+3) + K(N+2,ISID)=MSTU(5)*(N+1) + K(N+3,9-ISID)=MSTU(5)*(N+1) + ENDIF + IF(KFA.EQ.KSUSY1+21) THEN + K(N+2,1)=3 + K(N+3,1)=3 + ISID=4 + IF(KFL2(JT).LT.0) ISID=5 + K(ID,ISID)=K(ID,ISID)+(N+2) + K(ID,9-ISID)=K(ID,9-ISID)+(N+3) + K(N+2,ISID)=MSTU(5)*ID + K(N+3,9-ISID)=MSTU(5)*ID + ENDIF + N=N+3 +CMRENNA-- + +C...2) Everything else two-body decay. + ELSE + CALL PY2ENT(N+1,KFL1(JT),KFL2(JT),P(ID,5)) +C...First set colour flow as if mother colour singlet. + IF(KCQ1(JT).NE.0) THEN + K(N-1,1)=3 + IF(KCQ1(JT).NE.-1) K(N-1,4)=MSTU(5)*N + IF(KCQ1(JT).NE.1) K(N-1,5)=MSTU(5)*N + ENDIF + IF(KCQ2(JT).NE.0) THEN + K(N,1)=3 + IF(KCQ2(JT).NE.-1) K(N,4)=MSTU(5)*(N-1) + IF(KCQ2(JT).NE.1) K(N,5)=MSTU(5)*(N-1) + ENDIF +C...Then redirect colour flow if mother (anti)triplet. + IF(KCQM(JT).EQ.0) THEN + ELSEIF(KCQM(JT).NE.2) THEN + ISID=4 + IF(KCQM(JT).EQ.-1) ISID=5 + IDAU=N-1 + IF(KCQ1(JT).EQ.0.OR.KCQ2(JT).EQ.2) IDAU=N + K(ID,ISID)=K(ID,ISID)+IDAU + K(IDAU,ISID)=MSTU(5)*ID +C...Then redirect colour flow if mother octet. + ELSEIF(KCQ1(JT).EQ.0.OR.KCQ2(JT).EQ.0) THEN + IDAU=N-1 + IF(KCQ1(JT).EQ.0) IDAU=N + K(ID,4)=K(ID,4)+IDAU + K(ID,5)=K(ID,5)+IDAU + K(IDAU,4)=MSTU(5)*ID + K(IDAU,5)=MSTU(5)*ID + ELSE + ISID=4 + IF(KCQ1(JT).EQ.-1) ISID=5 + IF(KCQ1(JT).EQ.2) ISID=INT(4.5D0+PYR(0)) + K(ID,ISID)=K(ID,ISID)+(N-1) + K(ID,9-ISID)=K(ID,9-ISID)+N + K(N-1,ISID)=MSTU(5)*ID + K(N,9-ISID)=MSTU(5)*ID + ENDIF + ENDIF + +C...End loop over resonances for daughter flavour and mass selection. + MSTU(10)=MSTU10 + 240 IF(MWID(KCA).NE.0.AND.(KFL1(JT).EQ.0.OR.KFL3(JT).NE.0)) + & NINH=NINH+1 + IF(IRES.GT.0.AND.MWID(KCA).NE.0.AND.KFL1(JT).EQ.0) THEN + WRITE(CODE,'(I9)') K(ID,2) + WRITE(MASS,'(F9.3)') P(ID,5) + CALL PYERRM(3,'(PYRESD:) Failed to decay particle'// + & CODE//' with mass'//MASS) + MINT(51)=1 + RETURN + ENDIF + 250 CONTINUE + +C...Check for allowed combinations. Skip if no decays. + IF(JTMAX.EQ.1) THEN + IF(KDCY(1).EQ.0) GOTO 620 + ELSEIF(JTMAX.EQ.2) THEN + IF(KDCY(1).EQ.0.AND.KDCY(2).EQ.0) GOTO 620 + IF(KEQL(1).EQ.4.AND.KEQL(2).EQ.4) GOTO 160 + IF(KEQL(1).EQ.5.AND.KEQL(2).EQ.5) GOTO 160 + ELSEIF(JTMAX.EQ.3) THEN + IF(KDCY(1).EQ.0.AND.KDCY(2).EQ.0.AND.KDCY(3).EQ.0) GOTO 620 + IF(KEQL(1).EQ.4.AND.KEQL(2).EQ.4) GOTO 160 + IF(KEQL(1).EQ.4.AND.KEQL(3).EQ.4) GOTO 160 + IF(KEQL(2).EQ.4.AND.KEQL(3).EQ.4) GOTO 160 + IF(KEQL(1).EQ.5.AND.KEQL(2).EQ.5) GOTO 160 + IF(KEQL(1).EQ.5.AND.KEQL(3).EQ.5) GOTO 160 + IF(KEQL(2).EQ.5.AND.KEQL(3).EQ.5) GOTO 160 + ENDIF + +C...Special case: matrix element option for Z0 decay to quarks. + IF(MSTP(48).EQ.1.AND.ISUB.EQ.1.AND.JTMAX.EQ.1.AND. + &IABS(MINT(11)).EQ.11.AND.IABS(KFL1(1)).LE.5) THEN + +C...Check consistency of MSTJ options set. + IF(MSTJ(109).EQ.2.AND.MSTJ(110).NE.1) THEN + CALL PYERRM(6, + & '(PYRESD:) MSTJ(109) value requires MSTJ(110) = 1') + MSTJ(110)=1 + ENDIF + IF(MSTJ(109).EQ.2.AND.MSTJ(111).NE.0) THEN + CALL PYERRM(6, + & '(PYRESD) MSTJ(109) value requires MSTJ(111) = 0') + MSTJ(111)=0 + ENDIF + +C...Select alpha_strong behaviour. + MST111=MSTU(111) + PAR112=PARU(112) + MSTU(111)=MSTJ(108) + IF(MSTJ(108).EQ.2.AND.(MSTJ(101).EQ.0.OR.MSTJ(101).EQ.1)) + & MSTU(111)=1 + PARU(112)=PARJ(121) + IF(MSTU(111).EQ.2) PARU(112)=PARJ(122) + +C...Find axial fraction in total cross section for scalar gluon model. + PARJ(171)=0D0 + IF((IABS(MSTJ(101)).EQ.1.AND.MSTJ(109).EQ.1).OR. + & (MSTJ(101).EQ.5.AND.MSTJ(49).EQ.1)) THEN + POLL=1D0-PARJ(131)*PARJ(132) + SFF=1D0/(16D0*XW*XW1) + SFW=P(ID,5)**4/((P(ID,5)**2-PARJ(123)**2)**2+ + & (PARJ(123)*PARJ(124))**2) + SFI=SFW*(1D0-(PARJ(123)/P(ID,5))**2) + VE=4D0*XW-1D0 + HF1I=SFI*SFF*(VE*POLL+PARJ(132)-PARJ(131)) + HF1W=SFW*SFF**2*((VE**2+1D0)*POLL+2D0*VE* + & (PARJ(132)-PARJ(131))) + KFLC=IABS(KFL1(1)) + PMQ=PYMASS(KFLC) + QF=KCHG(KFLC,1)/3D0 + VQ=1D0 + IF(MOD(MSTJ(103),2).EQ.1) VQ=SQRT(MAX(0D0, + & 1D0-(2D0*PMQ/P(ID,5))**2)) + VF=SIGN(1D0,QF)-4D0*QF*XW + RFV=0.5D0*VQ*(3D0-VQ**2)*(QF**2*POLL-2D0*QF*VF*HF1I+ + & VF**2*HF1W)+VQ**3*HF1W + IF(RFV.GT.0D0) PARJ(171)=MIN(1D0,VQ**3*HF1W/RFV) + ENDIF + +C...Choice of jet configuration. + CALL PYXJET(P(ID,5),NJET,CUT) + KFLC=IABS(KFL1(1)) + KFLN=21 + IF(NJET.EQ.4) THEN + CALL PYX4JT(NJET,CUT,KFLC,P(ID,5),KFLN,X1,X2,X4,X12,X14) + ELSEIF(NJET.EQ.3) THEN + CALL PYX3JT(NJET,CUT,KFLC,P(ID,5),X1,X3) + ELSE + MSTJ(120)=1 + ENDIF + +C...Fill jet configuration; return if incorrect kinematics. + NC=N-2 + IF(NJET.EQ.2.AND.MSTJ(101).NE.5) THEN + CALL PY2ENT(NC+1,KFLC,-KFLC,P(ID,5)) + ELSEIF(NJET.EQ.2) THEN + CALL PY2ENT(-(NC+1),KFLC,-KFLC,P(ID,5)) + ELSEIF(NJET.EQ.3) THEN + CALL PY3ENT(NC+1,KFLC,21,-KFLC,P(ID,5),X1,X3) + ELSEIF(KFLN.EQ.21) THEN + CALL PY4ENT(NC+1,KFLC,KFLN,KFLN,-KFLC,P(ID,5),X1,X2,X4, + & X12,X14) + ELSE + CALL PY4ENT(NC+1,KFLC,-KFLN,KFLN,-KFLC,P(ID,5),X1,X2,X4, + & X12,X14) + ENDIF + IF(MSTU(24).NE.0) THEN + MINT(51)=1 + MSTU(111)=MST111 + PARU(112)=PAR112 + RETURN + ENDIF + +C...Angular orientation according to matrix element. + IF(MSTJ(106).EQ.1) THEN + CALL PYXDIF(NC,NJET,KFLC,P(ID,5),CHIZ,THEZ,PHIZ) + IF(MINT(11).LT.0) THEZ=PARU(1)-THEZ + CTHE(1)=COS(THEZ) + CALL PYROBO(NC+1,N,0D0,CHIZ,0D0,0D0,0D0) + CALL PYROBO(NC+1,N,THEZ,PHIZ,0D0,0D0,0D0) + ENDIF + +C...Boost partons to Z0 rest frame. + CALL PYROBO(NC+1,N,0D0,0D0,P(ID,1)/P(ID,4), + & P(ID,2)/P(ID,4),P(ID,3)/P(ID,4)) + +C...Mark decayed resonance and add documentation lines, + K(ID,1)=K(ID,1)+10 + IDOC=MINT(83)+MINT(4) + DO 270 I=NC+1,N + I1=MINT(83)+MINT(4)+1 + K(I,3)=I1 + IF(MSTP(128).GE.1) K(I,3)=ID + IF(MSTP(128).LE.1.AND.MINT(4).LT.MSTP(126)) THEN + MINT(4)=MINT(4)+1 + K(I1,1)=21 + K(I1,2)=K(I,2) + K(I1,3)=IREF(IP,4) + DO 260 J=1,5 + P(I1,J)=P(I,J) + 260 CONTINUE + ENDIF + 270 CONTINUE + +C...Generate parton shower. + IF(MSTJ(101).EQ.5) CALL PYSHOW(N-1,N,P(ID,5)) + +C... End special case for Z0: skip ahead. + MSTU(111)=MST111 + PARU(112)=PAR112 + GOTO 610 + ENDIF + +C...Order incoming partons and outgoing resonances. + IF(JTMAX.EQ.2.AND.ISUB.NE.0.AND.MSTP(47).GE.1.AND. + &NINH.EQ.0) THEN + ILIN(1)=MINT(84)+1 + IF(K(MINT(84)+1,2).GT.0) ILIN(1)=MINT(84)+2 + IF(K(ILIN(1),2).EQ.21.OR.K(ILIN(1),2).EQ.22) + & ILIN(1)=2*MINT(84)+3-ILIN(1) + ILIN(2)=2*MINT(84)+3-ILIN(1) + IMIN=1 + IF(IREF(IP,7).EQ.25.OR.IREF(IP,7).EQ.35.OR.IREF(IP,7) + & .EQ.36) IMIN=3 + IMAX=2 + IORD=1 + IF(K(IREF(IP,1),2).EQ.23) IORD=2 + IF(K(IREF(IP,1),2).EQ.24.AND.K(IREF(IP,2),2).EQ.-24) IORD=2 + IAKIPD=IABS(K(IREF(IP,IORD),2)) + IF(IAKIPD.EQ.25.OR.IAKIPD.EQ.35.OR.IAKIPD.EQ.36) IORD=3-IORD + IF(KDCY(IORD).EQ.0) IORD=3-IORD + +C...Order decay products of resonances. + DO 280 JT=IORD,3-IORD,3-2*IORD + IF(KDCY(JT).EQ.0) THEN + ILIN(IMAX+1)=NSD(JT) + IMAX=IMAX+1 + ELSEIF(K(NSD(JT)+1,2).GT.0) THEN + ILIN(IMAX+1)=N+2*JT-1 + ILIN(IMAX+2)=N+2*JT + IMAX=IMAX+2 + K(N+2*JT-1,2)=K(NSD(JT)+1,2) + K(N+2*JT,2)=K(NSD(JT)+2,2) + ELSE + ILIN(IMAX+1)=N+2*JT + ILIN(IMAX+2)=N+2*JT-1 + IMAX=IMAX+2 + K(N+2*JT-1,2)=K(NSD(JT)+1,2) + K(N+2*JT,2)=K(NSD(JT)+2,2) + ENDIF + 280 CONTINUE + +C...Find charge, isospin, left- and righthanded couplings. + DO 300 I=IMIN,IMAX + DO 290 J=1,4 + COUP(I,J)=0D0 + 290 CONTINUE + KFA=IABS(K(ILIN(I),2)) + IF(KFA.EQ.0.OR.KFA.GT.20) GOTO 300 + COUP(I,1)=KCHG(KFA,1)/3D0 + COUP(I,2)=(-1)**MOD(KFA,2) + COUP(I,4)=-2D0*COUP(I,1)*XWV + COUP(I,3)=COUP(I,2)+COUP(I,4) + 300 CONTINUE + +C...Full propagator dependence and flavour correlations for 2 gamma*/Z. + IF(ISUB.EQ.22) THEN + DO 330 I=3,5,2 + I1=IORD + IF(I.EQ.5) I1=3-IORD + DO 320 J1=1,2 + DO 310 J2=1,2 + CORL(I/2,J1,J2)=COUP(1,1)**2*HGZ(I1,1)*COUP(I,1)**2/ + & 16D0+COUP(1,1)*COUP(1,J1+2)*HGZ(I1,2)*COUP(I,1)* + & COUP(I,J2+2)/4D0+COUP(1,J1+2)**2*HGZ(I1,3)* + & COUP(I,J2+2)**2 + 310 CONTINUE + 320 CONTINUE + 330 CONTINUE + COWT12=(CORL(1,1,1)+CORL(1,1,2))*(CORL(2,1,1)+CORL(2,1,2))+ + & (CORL(1,2,1)+CORL(1,2,2))*(CORL(2,2,1)+CORL(2,2,2)) + COMX12=(CORL(1,1,1)+CORL(1,1,2)+CORL(1,2,1)+CORL(1,2,2))* + & (CORL(2,1,1)+CORL(2,1,2)+CORL(2,2,1)+CORL(2,2,2)) + IF(COWT12.LT.PYR(0)*COMX12) GOTO 160 + ENDIF + ENDIF + +C...Select angular orientation type - Z'/W' only. + MZPWP=0 + IF(ISUB.EQ.141) THEN + IF(PYR(0).LT.PARU(130)) MZPWP=1 + IF(IP.EQ.2) THEN + IF(IABS(K(IREF(2,1),2)).EQ.37) MZPWP=2 + IAKIR=IABS(K(IREF(2,2),2)) + IF(IAKIR.EQ.25.OR.IAKIR.EQ.35.OR.IAKIR.EQ.36) MZPWP=2 + IF(IAKIR.LE.20) MZPWP=2 + ENDIF + IF(IP.GE.3) MZPWP=2 + ELSEIF(ISUB.EQ.142) THEN + IF(PYR(0).LT.PARU(136)) MZPWP=1 + IF(IP.EQ.2) THEN + IAKIR=IABS(K(IREF(2,2),2)) + IF(IAKIR.EQ.25.OR.IAKIR.EQ.35.OR.IAKIR.EQ.36) MZPWP=2 + IF(IAKIR.LE.20) MZPWP=2 + ENDIF + IF(IP.GE.3) MZPWP=2 + ENDIF + +C...Select random angles (begin of weighting procedure). + 340 DO 350 JT=1,JTMAX + IF(KDCY(JT).EQ.0) GOTO 350 + IF(JTMAX.EQ.1.AND.ISUB.NE.0) THEN + CTHE(JT)=VINT(13)+(VINT(33)-VINT(13)+VINT(34)-VINT(14))*PYR(0) + IF(CTHE(JT).GT.VINT(33)) CTHE(JT)=CTHE(JT)+VINT(14)-VINT(33) + PHI(JT)=VINT(24) + ELSE + CTHE(JT)=2D0*PYR(0)-1D0 + PHI(JT)=PARU(2)*PYR(0) + ENDIF + 350 CONTINUE + + IF(JTMAX.EQ.2.AND.MSTP(47).GE.1.AND.NINH.EQ.0) THEN +C...Construct massless four-vectors. + DO 370 I=N+1,N+4 + K(I,1)=1 + DO 360 J=1,5 + P(I,J)=0D0 +C V(I,J)=0D0 + 360 CONTINUE + 370 CONTINUE + DO 380 JT=1,JTMAX + IF(KDCY(JT).EQ.0) GOTO 380 + ID=IREF(IP,JT) + P(N+2*JT-1,3)=0.5D0*P(ID,5) + P(N+2*JT-1,4)=0.5D0*P(ID,5) + P(N+2*JT,3)=-0.5D0*P(ID,5) + P(N+2*JT,4)=0.5D0*P(ID,5) + CALL PYROBO(N+2*JT-1,N+2*JT,ACOS(CTHE(JT)),PHI(JT), + & P(ID,1)/P(ID,4),P(ID,2)/P(ID,4),P(ID,3)/P(ID,4)) + 380 CONTINUE + +C...Store incoming and outgoing momenta, with random rotation to +C...avoid accidental zeroes in HA expressions. + IF(ISUB.NE.0) THEN + DO 400 I=1,IMAX + K(N+4+I,1)=1 + P(N+4+I,4)=SQRT(P(ILIN(I),1)**2+P(ILIN(I),2)**2+ + & P(ILIN(I),3)**2+P(ILIN(I),5)**2) + P(N+4+I,5)=P(ILIN(I),5) + DO 390 J=1,3 + P(N+4+I,J)=P(ILIN(I),J) + 390 CONTINUE + 400 CONTINUE + 410 THERR=ACOS(2D0*PYR(0)-1D0) + PHIRR=PARU(2)*PYR(0) + CALL PYROBO(N+5,N+4+IMAX,THERR,PHIRR,0D0,0D0,0D0) + DO 430 I=1,IMAX + IF(P(N+4+I,1)**2+P(N+4+I,2)**2.LT.1D-4*P(N+4+I,4)**2) + & GOTO 410 + DO 420 J=1,4 + PK(I,J)=P(N+4+I,J) + 420 CONTINUE + 430 CONTINUE + ENDIF + +C...Calculate internal products. + IF(ISUB.EQ.22.OR.ISUB.EQ.23.OR.ISUB.EQ.25.OR.ISUB.EQ.141.OR. + & ISUB.EQ.142) THEN + DO 450 I1=IMIN,IMAX-1 + DO 440 I2=I1+1,IMAX + HA(I1,I2)=SNGL(SQRT((PK(I1,4)-PK(I1,3))*(PK(I2,4)+ + & PK(I2,3))/(1D-20+PK(I1,1)**2+PK(I1,2)**2)))* + & CMPLX(SNGL(PK(I1,1)),SNGL(PK(I1,2)))- + & SNGL(SQRT((PK(I1,4)+PK(I1,3))*(PK(I2,4)-PK(I2,3))/ + & (1D-20+PK(I2,1)**2+PK(I2,2)**2)))* + & CMPLX(SNGL(PK(I2,1)),SNGL(PK(I2,2))) + HC(I1,I2)=CONJG(HA(I1,I2)) + IF(I1.LE.2) HA(I1,I2)=CMPLX(0.,1.)*HA(I1,I2) + IF(I1.LE.2) HC(I1,I2)=CMPLX(0.,1.)*HC(I1,I2) + HA(I2,I1)=-HA(I1,I2) + HC(I2,I1)=-HC(I1,I2) + 440 CONTINUE + 450 CONTINUE + ENDIF + +C...Calculate four-products. + IF(ISUB.NE.0) THEN + DO 470 I=1,2 + DO 460 J=1,4 + PK(I,J)=-PK(I,J) + 460 CONTINUE + 470 CONTINUE + DO 490 I1=IMIN,IMAX-1 + DO 480 I2=I1+1,IMAX + PKK(I1,I2)=2D0*(PK(I1,4)*PK(I2,4)-PK(I1,1)*PK(I2,1)- + & PK(I1,2)*PK(I2,2)-PK(I1,3)*PK(I2,3)) + PKK(I2,I1)=PKK(I1,I2) + 480 CONTINUE + 490 CONTINUE + ENDIF + ENDIF + + KFAGM=IABS(IREF(IP,7)) + IF(MSTP(47).LE.0.OR.NINH.NE.0) THEN +C...Isotropic decay selected by user. + WT=1D0 + WTMAX=1D0 + + ELSEIF(JTMAX.EQ.3) THEN +C...Isotropic decay when three mother particles. + WT=1D0 + WTMAX=1D0 + + ELSEIF(IT4.GE.1) THEN +C... Isotropic decay t -> b + W etc for 4th generation q and l. + WT=1D0 + WTMAX=1D0 + + ELSEIF(IREF(IP,7).EQ.25.OR.IREF(IP,7).EQ.35.OR. + & IREF(IP,7).EQ.36) THEN +C...Angular weight for h0 -> Z0 + Z0 or W+ + W- -> 4 quarks/leptons. + IF(IP.EQ.1) WTMAX=SH**2 + IF(IP.GE.2) WTMAX=P(IREF(IP,8),5)**4 + KFA=IABS(K(IREF(IP,1),2)) + IF(KFA.EQ.23) THEN + KFLF1A=IABS(KFL1(1)) + EF1=KCHG(KFLF1A,1)/3D0 + AF1=SIGN(1D0,EF1+0.1D0) + VF1=AF1-4D0*EF1*XWV + KFLF2A=IABS(KFL1(2)) + EF2=KCHG(KFLF2A,1)/3D0 + AF2=SIGN(1D0,EF2+0.1D0) + VF2=AF2-4D0*EF2*XWV + VA12AS=4D0*VF1*AF1*VF2*AF2/((VF1**2+AF1**2)*(VF2**2+AF2**2)) + WT=8D0*(1D0+VA12AS)*PKK(3,5)*PKK(4,6)+ + & 8D0*(1D0-VA12AS)*PKK(3,6)*PKK(4,5) + ELSEIF(KFA.EQ.24) THEN + WT=16D0*PKK(3,5)*PKK(4,6) + ELSE + WT=WTMAX + ENDIF + + ELSEIF((KFAGM.EQ.6.OR.KFAGM.EQ.7.OR.KFAGM.EQ.8.OR. + & KFAGM.EQ.17.OR.KFAGM.EQ.18).AND.IABS(K(IREF(IP,1),2)).EQ.24) + & THEN +C...Angular correlation in f -> f' + W -> f' + 2 quarks/leptons. + I1=IREF(IP,8) + IF(MOD(KFAGM,2).EQ.0) THEN + I2=N+1 + I3=N+2 + ELSE + I2=N+2 + I3=N+1 + ENDIF + I4=IREF(IP,2) + WT=(P(I1,4)*P(I2,4)-P(I1,1)*P(I2,1)-P(I1,2)*P(I2,2)- + & P(I1,3)*P(I2,3))*(P(I3,4)*P(I4,4)-P(I3,1)*P(I4,1)- + & P(I3,2)*P(I4,2)-P(I3,3)*P(I4,3)) + WTMAX=(P(I1,5)**4-P(IREF(IP,1),5)**4)/8D0 + + ELSEIF(ISUB.EQ.1) THEN +C...Angular weight for gamma*/Z0 -> 2 quarks/leptons. + EI=KCHG(IABS(MINT(15)),1)/3D0 + AI=SIGN(1D0,EI+0.1D0) + VI=AI-4D0*EI*XWV + EF=KCHG(IABS(KFL1(1)),1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + RMF=MIN(1D0,4D0*PMAS(IABS(KFL1(1)),1)**2/SH) + WT1=EI**2*VINT(111)*EF**2+EI*VI*VINT(112)*EF*VF+ + & (VI**2+AI**2)*VINT(114)*(VF**2+(1D0-RMF)*AF**2) + WT2=RMF*(EI**2*VINT(111)*EF**2+EI*VI*VINT(112)*EF*VF+ + & (VI**2+AI**2)*VINT(114)*VF**2) + WT3=SQRT(1D0-RMF)*(EI*AI*VINT(112)*EF*AF+ + & 4D0*VI*AI*VINT(114)*VF*AF) + WT=WT1*(1D0+CTHE(1)**2)+WT2*(1D0-CTHE(1)**2)+ + & 2D0*WT3*CTHE(1)*ISIGN(1,MINT(15)*KFL1(1)) + WTMAX=2D0*(WT1+ABS(WT3)) + + ELSEIF(ISUB.EQ.2) THEN +C...Angular weight for W+/- -> 2 quarks/leptons. + WT=(1D0+CTHE(1)*ISIGN(1,MINT(15)*KFL1(1)))**2 + WTMAX=4D0 + + ELSEIF(ISUB.EQ.15.OR.ISUB.EQ.19) THEN +C...Angular weight for f + fbar -> gluon/gamma + (gamma*/Z0) -> +C...-> gluon/gamma + 2 quarks/leptons. + CLILF=COUP(1,1)**2*HGZ(JTZ,1)*COUP(3,1)**2/16D0+ + & COUP(1,1)*COUP(1,3)*HGZ(JTZ,2)*COUP(3,1)*COUP(3,3)/4D0+ + & COUP(1,3)**2*HGZ(JTZ,3)*COUP(3,3)**2 + CLIRF=COUP(1,1)**2*HGZ(JTZ,1)*COUP(3,1)**2/16D0+ + & COUP(1,1)*COUP(1,3)*HGZ(JTZ,2)*COUP(3,1)*COUP(3,4)/4D0+ + & COUP(1,3)**2*HGZ(JTZ,3)*COUP(3,4)**2 + CRILF=COUP(1,1)**2*HGZ(JTZ,1)*COUP(3,1)**2/16D0+ + & COUP(1,1)*COUP(1,4)*HGZ(JTZ,2)*COUP(3,1)*COUP(3,3)/4D0+ + & COUP(1,4)**2*HGZ(JTZ,3)*COUP(3,3)**2 + CRIRF=COUP(1,1)**2*HGZ(JTZ,1)*COUP(3,1)**2/16D0+ + & COUP(1,1)*COUP(1,4)*HGZ(JTZ,2)*COUP(3,1)*COUP(3,4)/4D0+ + & COUP(1,4)**2*HGZ(JTZ,3)*COUP(3,4)**2 + WT=(CLILF+CRIRF)*(PKK(1,3)**2+PKK(2,4)**2)+ + & (CLIRF+CRILF)*(PKK(1,4)**2+PKK(2,3)**2) + WTMAX=(CLILF+CLIRF+CRILF+CRIRF)* + & ((PKK(1,3)+PKK(1,4))**2+(PKK(2,3)+PKK(2,4))**2) + + ELSEIF(ISUB.EQ.16.OR.ISUB.EQ.20) THEN +C...Angular weight for f + fbar' -> gluon/gamma + W+/- -> +C...-> gluon/gamma + 2 quarks/leptons. + WT=PKK(1,3)**2+PKK(2,4)**2 + WTMAX=(PKK(1,3)+PKK(1,4))**2+(PKK(2,3)+PKK(2,4))**2 + + ELSEIF(ISUB.EQ.22) THEN +C...Angular weight for f + fbar -> Z0 + Z0 -> 4 quarks/leptons. + S34=P(IREF(IP,IORD),5)**2 + S56=P(IREF(IP,3-IORD),5)**2 + TI=PKK(1,3)+PKK(1,4)+S34 + UI=PKK(1,5)+PKK(1,6)+S56 + TIR=REAL(TI) + UIR=REAL(UI) + FGK135=ABS(FGK(1,2,3,4,5,6)/TIR+FGK(1,2,5,6,3,4)/UIR)**2 + FGK145=ABS(FGK(1,2,4,3,5,6)/TIR+FGK(1,2,5,6,4,3)/UIR)**2 + FGK136=ABS(FGK(1,2,3,4,6,5)/TIR+FGK(1,2,6,5,3,4)/UIR)**2 + FGK146=ABS(FGK(1,2,4,3,6,5)/TIR+FGK(1,2,6,5,4,3)/UIR)**2 + FGK253=ABS(FGK(2,1,5,6,3,4)/TIR+FGK(2,1,3,4,5,6)/UIR)**2 + FGK263=ABS(FGK(2,1,6,5,3,4)/TIR+FGK(2,1,3,4,6,5)/UIR)**2 + FGK254=ABS(FGK(2,1,5,6,4,3)/TIR+FGK(2,1,4,3,5,6)/UIR)**2 + FGK264=ABS(FGK(2,1,6,5,4,3)/TIR+FGK(2,1,4,3,6,5)/UIR)**2 + WT= + & CORL(1,1,1)*CORL(2,1,1)*FGK135+CORL(1,1,2)*CORL(2,1,1)*FGK145+ + & CORL(1,1,1)*CORL(2,1,2)*FGK136+CORL(1,1,2)*CORL(2,1,2)*FGK146+ + & CORL(1,2,1)*CORL(2,2,1)*FGK253+CORL(1,2,2)*CORL(2,2,1)*FGK263+ + & CORL(1,2,1)*CORL(2,2,2)*FGK254+CORL(1,2,2)*CORL(2,2,2)*FGK264 + WTMAX=16D0*((CORL(1,1,1)+CORL(1,1,2))*(CORL(2,1,1)+CORL(2,1,2))+ + & (CORL(1,2,1)+CORL(1,2,2))*(CORL(2,2,1)+CORL(2,2,2)))*S34*S56* + & ((TI**2+UI**2+2D0*SH*(S34+S56))/(TI*UI)-S34*S56*(1D0/TI**2+ + & 1D0/UI**2)) + + ELSEIF(ISUB.EQ.23) THEN +C...Angular weight for f + fbar' -> Z0 + W+/- -> 4 quarks/leptons. + D34=P(IREF(IP,IORD),5)**2 + D56=P(IREF(IP,3-IORD),5)**2 + DT=PKK(1,3)+PKK(1,4)+D34 + DU=PKK(1,5)+PKK(1,6)+D56 + FACBW=1D0/((SH-SQMW)**2+GMMW**2) + CAWZ=COUP(2,3)/DT-2D0*XW1*COUP(1,2)*(SH-SQMW)*FACBW + CBWZ=COUP(1,3)/DU+2D0*XW1*COUP(1,2)*(SH-SQMW)*FACBW + FGK135=ABS(REAL(CAWZ)*FGK(1,2,3,4,5,6)+ + & REAL(CBWZ)*FGK(1,2,5,6,3,4)) + FGK136=ABS(REAL(CAWZ)*FGK(1,2,3,4,6,5)+ + & REAL(CBWZ)*FGK(1,2,6,5,3,4)) + WT=(COUP(5,3)*FGK135)**2+(COUP(5,4)*FGK136)**2 + WTMAX=4D0*D34*D56*(COUP(5,3)**2+COUP(5,4)**2)*(CAWZ**2* + & DIGK(DT,DU)+CBWZ**2*DIGK(DU,DT)+CAWZ*CBWZ*DJGK(DT,DU)) + + ELSEIF(ISUB.EQ.24.OR.ISUB.EQ.171.OR.ISUB.EQ.176) THEN +C...Angular weight for f + fbar -> Z0 + h0 -> 2 quarks/leptons + h0 +C...(or H0, or A0). + WT=((COUP(1,3)*COUP(3,3))**2+(COUP(1,4)*COUP(3,4))**2)* + & PKK(1,3)*PKK(2,4)+((COUP(1,3)*COUP(3,4))**2+(COUP(1,4)* + & COUP(3,3))**2)*PKK(1,4)*PKK(2,3) + WTMAX=(COUP(1,3)**2+COUP(1,4)**2)*(COUP(3,3)**2+COUP(3,4)**2)* + & (PKK(1,3)+PKK(1,4))*(PKK(2,3)+PKK(2,4)) + + ELSEIF(ISUB.EQ.25) THEN +C...Angular weight for f + fbar -> W+ + W- -> 4 quarks/leptons. + D34=P(IREF(IP,IORD),5)**2 + D56=P(IREF(IP,3-IORD),5)**2 + DT=PKK(1,3)+PKK(1,4)+D34 + DU=PKK(1,5)+PKK(1,6)+D56 + FACBW=1D0/((SH-SQMZ)**2+SQMZ*PMAS(23,2)**2) + CDWW=(COUP(1,3)*SQMZ*(SH-SQMZ)*FACBW+COUP(1,2))/SH + CAWW=CDWW+0.5D0*(COUP(1,2)+1D0)/DT + CBWW=CDWW+0.5D0*(COUP(1,2)-1D0)/DU + CCWW=COUP(1,4)*SQMZ*(SH-SQMZ)*FACBW/SH + FGK135=ABS(REAL(CAWW)*FGK(1,2,3,4,5,6)- + & REAL(CBWW)*FGK(1,2,5,6,3,4)) + FGK253=ABS(FGK(2,1,5,6,3,4)-FGK(2,1,3,4,5,6)) + WT=FGK135**2+(CCWW*FGK253)**2 + WTMAX=4D0*D34*D56*(CAWW**2*DIGK(DT,DU)+CBWW**2*DIGK(DU,DT)-CAWW* + & CBWW*DJGK(DT,DU)+CCWW**2*(DIGK(DT,DU)+DIGK(DU,DT)-DJGK(DT,DU))) + + ELSEIF(ISUB.EQ.26.OR.ISUB.EQ.172.OR.ISUB.EQ.177) THEN +C...Angular weight for f + fbar' -> W+/- + h0 -> 2 quarks/leptons + h0 +C...(or H0, or A0). + WT=PKK(1,3)*PKK(2,4) + WTMAX=(PKK(1,3)+PKK(1,4))*(PKK(2,3)+PKK(2,4)) + + ELSEIF(ISUB.EQ.30.OR.ISUB.EQ.35) THEN +C...Angular weight for f + g/gamma -> f + (gamma*/Z0) +C...-> f + 2 quarks/leptons. + CLILF=COUP(1,1)**2*HGZ(JTZ,1)*COUP(3,1)**2/16D0+ + & COUP(1,1)*COUP(1,3)*HGZ(JTZ,2)*COUP(3,1)*COUP(3,3)/4D0+ + & COUP(1,3)**2*HGZ(JTZ,3)*COUP(3,3)**2 + CLIRF=COUP(1,1)**2*HGZ(JTZ,1)*COUP(3,1)**2/16D0+ + & COUP(1,1)*COUP(1,3)*HGZ(JTZ,2)*COUP(3,1)*COUP(3,4)/4D0+ + & COUP(1,3)**2*HGZ(JTZ,3)*COUP(3,4)**2 + CRILF=COUP(1,1)**2*HGZ(JTZ,1)*COUP(3,1)**2/16D0+ + & COUP(1,1)*COUP(1,4)*HGZ(JTZ,2)*COUP(3,1)*COUP(3,3)/4D0+ + & COUP(1,4)**2*HGZ(JTZ,3)*COUP(3,3)**2 + CRIRF=COUP(1,1)**2*HGZ(JTZ,1)*COUP(3,1)**2/16D0+ + & COUP(1,1)*COUP(1,4)*HGZ(JTZ,2)*COUP(3,1)*COUP(3,4)/4D0+ + & COUP(1,4)**2*HGZ(JTZ,3)*COUP(3,4)**2 + IF(K(ILIN(1),2).GT.0) WT=(CLILF+CRIRF)*(PKK(1,4)**2+ + & PKK(3,5)**2)+(CLIRF+CRILF)*(PKK(1,3)**2+PKK(4,5)**2) + IF(K(ILIN(1),2).LT.0) WT=(CLILF+CRIRF)*(PKK(1,3)**2+ + & PKK(4,5)**2)+(CLIRF+CRILF)*(PKK(1,4)**2+PKK(3,5)**2) + WTMAX=(CLILF+CLIRF+CRILF+CRIRF)* + & ((PKK(1,3)+PKK(1,4))**2+(PKK(3,5)+PKK(4,5))**2) + + ELSEIF(ISUB.EQ.31.OR.ISUB.EQ.36) THEN +C...Angular weight for f + g/gamma -> f' + W+/- -> f' + 2 fermions. + IF(K(ILIN(1),2).GT.0) WT=PKK(1,4)**2+PKK(3,5)**2 + IF(K(ILIN(1),2).LT.0) WT=PKK(1,3)**2+PKK(4,5)**2 + WTMAX=(PKK(1,3)+PKK(1,4))**2+(PKK(3,5)+PKK(4,5))**2 + + ELSEIF(ISUB.EQ.71.OR.ISUB.EQ.72.OR.ISUB.EQ.73.OR.ISUB.EQ.76.OR. + & ISUB.EQ.77) THEN +C...Angular weight for V_L1 + V_L2 -> V_L3 + V_L4 (V = Z/W). + WT=16D0*PKK(3,5)*PKK(4,6) + WTMAX=SH**2 + + ELSEIF(ISUB.EQ.110) THEN +C...Angular weight for f + fbar -> gamma + h0 -> gamma + X is isotropic. + WT=1D0 + WTMAX=1D0 + + ELSEIF(ISUB.EQ.141) THEN + IF(IP.EQ.1.AND.IABS(KFL1(1)).LT.20) THEN +C...Angular weight for f + fbar -> gamma*/Z0/Z'0 -> 2 quarks/leptons. +C...Couplings of incoming flavour. + KFAI=IABS(MINT(15)) + EI=KCHG(KFAI,1)/3D0 + AI=SIGN(1D0,EI+0.1D0) + VI=AI-4D0*EI*XWV + KFAIC=1 + IF(KFAI.LE.10.AND.MOD(KFAI,2).EQ.0) KFAIC=2 + IF(KFAI.GT.10.AND.MOD(KFAI,2).NE.0) KFAIC=3 + IF(KFAI.GT.10.AND.MOD(KFAI,2).EQ.0) KFAIC=4 + IF(KFAI.LE.2.OR.KFAI.EQ.11.OR.KFAI.EQ.12) THEN + VPI=PARU(119+2*KFAIC) + API=PARU(120+2*KFAIC) + ELSEIF(KFAI.LE.4.OR.KFAI.EQ.13.OR.KFAI.EQ.14) THEN + VPI=PARJ(178+2*KFAIC) + API=PARJ(179+2*KFAIC) + ELSE + VPI=PARJ(186+2*KFAIC) + API=PARJ(187+2*KFAIC) + ENDIF +C...Couplings of final flavour. + KFAF=IABS(KFL1(1)) + EF=KCHG(KFAF,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + KFAFC=1 + IF(KFAF.LE.10.AND.MOD(KFAF,2).EQ.0) KFAFC=2 + IF(KFAF.GT.10.AND.MOD(KFAF,2).NE.0) KFAFC=3 + IF(KFAF.GT.10.AND.MOD(KFAF,2).EQ.0) KFAFC=4 + IF(KFAF.LE.2.OR.KFAF.EQ.11.OR.KFAF.EQ.12) THEN + VPF=PARU(119+2*KFAFC) + APF=PARU(120+2*KFAFC) + ELSEIF(KFAF.LE.4.OR.KFAF.EQ.13.OR.KFAF.EQ.14) THEN + VPF=PARJ(178+2*KFAFC) + APF=PARJ(179+2*KFAFC) + ELSE + VPF=PARJ(186+2*KFAFC) + APF=PARJ(187+2*KFAFC) + ENDIF +C...Asymmetry and weight. + ASYM=2D0*(EI*AI*VINT(112)*EF*AF+EI*API*VINT(113)*EF*APF+ + & 4D0*VI*AI*VINT(114)*VF*AF+(VI*API+VPI*AI)*VINT(115)* + & (VF*APF+VPF*AF)+4D0*VPI*API*VINT(116)*VPF*APF)/ + & (EI**2*VINT(111)*EF**2+EI*VI*VINT(112)*EF*VF+ + & EI*VPI*VINT(113)*EF*VPF+(VI**2+AI**2)*VINT(114)* + & (VF**2+AF**2)+(VI*VPI+AI*API)*VINT(115)*(VF*VPF+AF*APF)+ + & (VPI**2+API**2)*VINT(116)*(VPF**2+APF**2)) + WT=1D0+ASYM*CTHE(1)*ISIGN(1,MINT(15)*KFL1(1))+CTHE(1)**2 + WTMAX=2D0+ABS(ASYM) + ELSEIF(IP.EQ.1.AND.IABS(KFL1(1)).EQ.24) THEN +C...Angular weight for f + fbar -> Z' -> W+ + W-. + RM1=P(NSD(1)+1,5)**2/SH + RM2=P(NSD(1)+2,5)**2/SH + CCOS2=-(1D0/16D0)*((1D0-RM1-RM2)**2-4D0*RM1*RM2)* + & (1D0-2D0*RM1-2D0*RM2+RM1**2+RM2**2+10D0*RM1*RM2) + CFLAT=-CCOS2+0.5D0*(RM1+RM2)*(1D0-2D0*RM1-2D0*RM2+ + & (RM2-RM1)**2) + WT=CFLAT+CCOS2*CTHE(1)**2 + WTMAX=CFLAT+MAX(0D0,CCOS2) + ELSEIF(IP.EQ.1.AND.(KFL1(1).EQ.25.OR.KFL1(1).EQ.35.OR. + & IABS(KFL1(1)).EQ.37)) THEN +C...Angular weight for f + fbar -> Z' -> h0 + A0, H0 + A0, H+ + H-. + WT=1D0-CTHE(1)**2 + WTMAX=1D0 + ELSEIF(IP.EQ.1.AND.KFL2(1).EQ.25) THEN +C...Angular weight for f + fbar -> Z' -> Z0 + h0. + RM1=P(NSD(1)+1,5)**2/SH + RM2=P(NSD(1)+2,5)**2/SH + FLAM2=MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2) + WT=1D0+FLAM2*(1D0-CTHE(1)**2)/(8D0*RM1) + WTMAX=1D0+FLAM2/(8D0*RM1) + ELSEIF(MZPWP.EQ.0) THEN +C...Angular weight for f + fbar -> Z' -> W+ + W- -> 4 quarks/leptons +C...(W:s like if intermediate Z). + D34=P(IREF(IP,IORD),5)**2 + D56=P(IREF(IP,3-IORD),5)**2 + DT=PKK(1,3)+PKK(1,4)+D34 + DU=PKK(1,5)+PKK(1,6)+D56 + FGK135=ABS(FGK(1,2,3,4,5,6)-FGK(1,2,5,6,3,4)) + FGK253=ABS(FGK(2,1,5,6,3,4)-FGK(2,1,3,4,5,6)) + WT=(COUP(1,3)*FGK135)**2+(COUP(1,4)*FGK253)**2 + WTMAX=4D0*D34*D56*(COUP(1,3)**2+COUP(1,4)**2)* + & (DIGK(DT,DU)+DIGK(DU,DT)-DJGK(DT,DU)) + ELSEIF(MZPWP.EQ.1) THEN +C...Angular weight for f + fbar -> Z' -> W+ + W- -> 4 quarks/leptons +C...(W:s approximately longitudinal, like if intermediate H). + WT=16D0*PKK(3,5)*PKK(4,6) + WTMAX=SH**2 + ELSE +C...Angular weight for f + fbar -> Z' -> H+ + H-, Z0 + h0, h0 + A0, +C...H0 + A0 -> 4 quarks/leptons, t + tbar -> b + W+ + bbar + W- . + WT=1D0 + WTMAX=1D0 + ENDIF + + ELSEIF(ISUB.EQ.142) THEN + IF(IP.EQ.1.AND.IABS(KFL1(1)).LT.20) THEN +C...Angular weight for f + fbar' -> W'+/- -> 2 quarks/leptons. + KFAI=IABS(MINT(15)) + KFAIC=1 + IF(KFAI.GT.10) KFAIC=2 + VI=PARU(129+2*KFAIC) + AI=PARU(130+2*KFAIC) + KFAF=IABS(KFL1(1)) + KFAFC=1 + IF(KFAF.GT.10) KFAFC=2 + VF=PARU(129+2*KFAFC) + AF=PARU(130+2*KFAFC) + ASYM=8D0*VI*AI*VF*AF/((VI**2+AI**2)*(VF**2+AF**2)) + WT=1D0+ASYM*CTHE(1)*ISIGN(1,MINT(15)*KFL1(1))+CTHE(1)**2 + WTMAX=2D0+ABS(ASYM) + ELSEIF(IP.EQ.1.AND.IABS(KFL2(1)).EQ.23) THEN +C...Angular weight for f + fbar' -> W'+/- -> W+/- + Z0. + RM1=P(NSD(1)+1,5)**2/SH + RM2=P(NSD(1)+2,5)**2/SH + CCOS2=-(1D0/16D0)*((1D0-RM1-RM2)**2-4D0*RM1*RM2)* + & (1D0-2D0*RM1-2D0*RM2+RM1**2+RM2**2+10D0*RM1*RM2) + CFLAT=-CCOS2+0.5D0*(RM1+RM2)*(1D0-2D0*RM1-2D0*RM2+ + & (RM2-RM1)**2) + WT=CFLAT+CCOS2*CTHE(1)**2 + WTMAX=CFLAT+MAX(0D0,CCOS2) + ELSEIF(IP.EQ.1.AND.KFL2(1).EQ.25) THEN +C...Angular weight for f + fbar -> W'+/- -> W+/- + h0. + RM1=P(NSD(1)+1,5)**2/SH + RM2=P(NSD(1)+2,5)**2/SH + FLAM2=MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2) + WT=1D0+FLAM2*(1D0-CTHE(1)**2)/(8D0*RM1) + WTMAX=1D0+FLAM2/(8D0*RM1) + ELSEIF(MZPWP.EQ.0) THEN +C...Angular weight for f + fbar' -> W' -> W + Z0 -> 4 quarks/leptons +C...(W/Z like if intermediate W). + D34=P(IREF(IP,IORD),5)**2 + D56=P(IREF(IP,3-IORD),5)**2 + DT=PKK(1,3)+PKK(1,4)+D34 + DU=PKK(1,5)+PKK(1,6)+D56 + FGK135=ABS(FGK(1,2,3,4,5,6)-FGK(1,2,5,6,3,4)) + FGK136=ABS(FGK(1,2,3,4,6,5)-FGK(1,2,6,5,3,4)) + WT=(COUP(5,3)*FGK135)**2+(COUP(5,4)*FGK136)**2 + WTMAX=4D0*D34*D56*(COUP(5,3)**2+COUP(5,4)**2)* + & (DIGK(DT,DU)+DIGK(DU,DT)-DJGK(DT,DU)) + ELSEIF(MZPWP.EQ.1) THEN +C...Angular weight for f + fbar' -> W' -> W + Z0 -> 4 quarks/leptons +C...(W/Z approximately longitudinal, like if intermediate H). + WT=16D0*PKK(3,5)*PKK(4,6) + WTMAX=SH**2 + ELSE +C...Angular weight for f + fbar -> W' -> W + h0 -> whatever, +C...t + bbar -> t + W + bbar. + WT=1D0 + WTMAX=1D0 + ENDIF + + ELSEIF(ISUB.EQ.145.OR.ISUB.EQ.162.OR.ISUB.EQ.163.OR.ISUB.EQ.164) + & THEN +C...Isotropic decay of leptoquarks (assumed spin 0). + WT=1D0 + WTMAX=1D0 + + ELSEIF(ISUB.GE.146.AND.ISUB.LE.148) THEN +C...Decays of (spin 1/2) q*/e* -> q/e + (g,gamma) or (Z0,W+-). + SIDE=1D0 + IF(MINT(16).EQ.21.OR.MINT(16).EQ.22) SIDE=-1D0 + IF(IP.EQ.1.AND.(KFL1(1).EQ.21.OR.KFL1(1).EQ.22)) THEN + WT=1D0+SIDE*CTHE(1) + WTMAX=2D0 + ELSEIF(IP.EQ.1) THEN + RM1=P(NSD(1)+1,5)**2/SH + WT=1D0+SIDE*CTHE(1)*(1D0-0.5D0*RM1)/(1D0+0.5D0*RM1) + WTMAX=1D0+(1D0-0.5D0*RM1)/(1D0+0.5D0*RM1) + ELSE +C...W/Z decay assumed isotropic, since not known. + WT=1D0 + WTMAX=1D0 + ENDIF + + ELSEIF(ISUB.EQ.149) THEN +C...Isotropic decay of techni-eta. + WT=1D0 + WTMAX=1D0 + + ELSEIF(ISUB.EQ.191) THEN + IF(IP.EQ.1.AND.IABS(KFL1(1)).GT.21) THEN +C...Angular weight for f + fbar -> rho_tech0 -> W+ W-, +C...W+ pi_tech-, pi_tech+ W- or pi_tech+ pi_tech-. + WT=1D0-CTHE(1)**2 + WTMAX=1D0 + ELSEIF(IP.EQ.1) THEN +C...Angular weight for f + fbar -> rho_tech0 -> f fbar. + CTHESG=CTHE(1)*ISIGN(1,MINT(15)) + XWRHT=(1D0-2D0*XW)/(4D0*XW*(1D0-XW)) + BWZR=XWRHT*SH*(SH-SQMZ)/((SH-SQMZ)**2+GMMZ**2) + BWZI=XWRHT*SH*GMMZ/((SH-SQMZ)**2+GMMZ**2) + KFAI=IABS(MINT(15)) + EI=KCHG(KFAI,1)/3D0 + AI=SIGN(1D0,EI+0.1D0) + VI=AI-4D0*EI*XWV + VALI=0.5D0*(VI+AI) + VARI=0.5D0*(VI-AI) + ALEFTI=(EI+VALI*BWZR)**2+(VALI*BWZI)**2 + ARIGHI=(EI+VARI*BWZR)**2+(VARI*BWZI)**2 + KFAF=IABS(KFL1(1)) + EF=KCHG(KFAF,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + VALF=0.5D0*(VF+AF) + VARF=0.5D0*(VF-AF) + ALEFTF=(EF+VALF*BWZR)**2+(VALF*BWZI)**2 + ARIGHF=(EF+VARF*BWZR)**2+(VARF*BWZI)**2 + ASAME=ALEFTI*ALEFTF+ARIGHI*ARIGHF + AFLIP=ALEFTI*ARIGHF+ARIGHI*ALEFTF + WT=ASAME*(1D0+CTHESG)**2+AFLIP*(1D0-CTHESG)**2 + WTMAX=4D0*MAX(ASAME,AFLIP) + ELSE +C...Isotropic decay of W/pi_tech produced in rho_tech decay. + WT=1D0 + WTMAX=1D0 + ENDIF + + ELSEIF(ISUB.EQ.192) THEN + IF(IP.EQ.1.AND.IABS(KFL1(1)).GT.21) THEN +C...Angular weight for f + fbar' -> rho_tech+ -> W+ Z0, +C...W+ pi_tech0, pi_tech+ Z0 or pi_tech+ pi_tech0. + WT=1D0-CTHE(1)**2 + WTMAX=1D0 + ELSEIF(IP.EQ.1) THEN +C...Angular weight for f + fbar' -> rho_tech+ -> f fbar'. + CTHESG=CTHE(1)*ISIGN(1,MINT(15)) + WT=(1D0+CTHESG)**2 + WTMAX=4D0 + ELSE +C...Isotropic decay of W/Z/pi_tech produced in rho_tech+ decay. + WT=1D0 + WTMAX=1D0 + ENDIF + + ELSEIF(ISUB.EQ.193) THEN + IF(IP.EQ.1.AND.IABS(KFL1(1)).GT.21) THEN +C...Angular weight for f + fbar -> omega_tech0 -> +C...gamma pi_tech0 or Z0 pi_tech0. + WT=1D0+CTHE(1)**2 + WTMAX=2D0 + ELSEIF(IP.EQ.1) THEN +C...Angular weight for f + fbar -> omega_tech0 -> f fbar. + CTHESG=CTHE(1)*ISIGN(1,MINT(15)) + BWZR=(0.5D0/(1D0-XW))*SH*(SH-SQMZ)/((SH-SQMZ)**2+GMMZ**2) + BWZI=(0.5D0/(1D0-XW))*SH*GMMZ/((SH-SQMZ)**2+GMMZ**2) + KFAI=IABS(MINT(15)) + EI=KCHG(KFAI,1)/3D0 + AI=SIGN(1D0,EI+0.1D0) + VI=AI-4D0*EI*XWV + VALI=0.5D0*(VI+AI) + VARI=0.5D0*(VI-AI) + BLEFTI=(EI-VALI*BWZR)**2+(VALI*BWZI)**2 + BRIGHI=(EI-VARI*BWZR)**2+(VARI*BWZI)**2 + KFAF=IABS(KFL1(1)) + EF=KCHG(KFAF,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + VALF=0.5D0*(VF+AF) + VARF=0.5D0*(VF-AF) + BLEFTF=(EF-VALF*BWZR)**2+(VALF*BWZI)**2 + BRIGHF=(EF-VARF*BWZR)**2+(VARF*BWZI)**2 + BSAME=BLEFTI*BLEFTF+BRIGHI*BRIGHF + BFLIP=BLEFTI*BRIGHF+BRIGHI*BLEFTF + WT=BSAME*(1D0+CTHESG)**2+BFLIP*(1D0-CTHESG)**2 + WTMAX=4D0*MAX(BSAME,BFLIP) + ELSE +C...Isotropic decay of Z/pi_tech produced in omega_tech decay. + WT=1D0 + WTMAX=1D0 + ENDIF + +C...Obtain correct angular distribution by rejection techniques. + ELSE + WT=1D0 + WTMAX=1D0 + ENDIF + IF(WT.LT.PYR(0)*WTMAX) GOTO 340 + +C...Construct massive four-vectors using angles chosen. + 500 DO 600 JT=1,JTMAX + IF(KDCY(JT).EQ.0) GOTO 600 + ID=IREF(IP,JT) + DO 510 J=1,5 + DPMO(J)=P(ID,J) + 510 CONTINUE + DPMO(4)=SQRT(DPMO(1)**2+DPMO(2)**2+DPMO(3)**2+DPMO(5)**2) +CMRENNA++ + IF(KFL3(JT).EQ.0) THEN + CALL PYROBO(NSD(JT)+1,NSD(JT)+2,ACOS(CTHE(JT)),PHI(JT), + & DPMO(1)/DPMO(4),DPMO(2)/DPMO(4),DPMO(3)/DPMO(4)) + N0=NSD(JT)+2 + ELSE + CALL PYROBO(NSD(JT)+1,NSD(JT)+3,ACOS(CTHE(JT)),PHI(JT), + & DPMO(1)/DPMO(4),DPMO(2)/DPMO(4),DPMO(3)/DPMO(4)) + N0=NSD(JT)+3 + ENDIF + + DO 520 J=1,4 + VDCY(J)=V(ID,J)+V(ID,5)*P(ID,J)/P(ID,5) + 520 CONTINUE +C...Fill in position of decay vertex. + DO 540 I=NSD(JT)+1,N0 + DO 530 J=1,4 + V(I,J)=VDCY(J) + 530 CONTINUE + V(I,5)=0D0 + 540 CONTINUE +CMRENNA-- + +C...Mark decayed resonances; trace history. + K(ID,1)=K(ID,1)+10 + KFA=IABS(K(ID,2)) + KCA=PYCOMP(KFA) + IF(KCQM(JT).NE.0) THEN +C...Do not kill colour flow through coloured resonance! + ELSE + K(ID,4)=NSD(JT)+1 + K(ID,5)=NSD(JT)+2 + IF(KFL3(JT).NE.0) K(ID,5)=NSD(JT)+3 + ENDIF + +C...Add documentation lines. + IF(ISUB.NE.0) THEN + IDOC=MINT(83)+MINT(4) +CMRENNA+++ + IHI=NSD(JT)+2 + IF(KFL3(JT).NE.0) IHI=IHI+1 + DO 560 I=NSD(JT)+1,IHI +CMRENNA--- + I1=MINT(83)+MINT(4)+1 + K(I,3)=I1 + IF(MSTP(128).GE.1) K(I,3)=ID + IF(MSTP(128).LE.1.AND.MINT(4).LT.MSTP(126)) THEN + MINT(4)=MINT(4)+1 + K(I1,1)=21 + K(I1,2)=K(I,2) + K(I1,3)=IREF(IP,JT+3) + DO 550 J=1,5 + P(I1,J)=P(I,J) + 550 CONTINUE + ENDIF + 560 CONTINUE + ELSE + K(NSD(JT)+1,3)=ID + K(NSD(JT)+2,3)=ID + IF(KFL3(JT).NE.0) K(NSD(JT)+3,3)=ID + ENDIF + +C...Do showering if any of the two/three products can shower. + NSHBEF=N + IF(MSTP(71).GE.1) THEN + ISHOW1=0 + KFL1A=IABS(KFL1(JT)) + IF(KFL1A.LE.22) ISHOW1=1 + ISHOW2=0 + KFL2A=IABS(KFL2(JT)) + IF(KFL2A.LE.22) ISHOW2=1 + ISHOW3=0 + IF(KFL3(JT).NE.0) THEN + KFL3A=IABS(KFL3(JT)) + IF(KFL3A.LE.22) ISHOW3=1 + ENDIF + IF(ISHOW1.EQ.0.AND.ISHOW2.EQ.0.AND.ISHOW3.EQ.0) THEN + ELSEIF(KFL3(JT).EQ.0) THEN + CALL PYSHOW(NSD(JT)+1,NSD(JT)+2,P(ID,5)) + ELSE + NSD1=NSD(JT)+1 + NSD2=NSD(JT)+2 + IF(ISHOW1.EQ.0.AND.ISHOW3.NE.0) THEN + NSD1=NSD(JT)+3 + ELSEIF(ISHOW2.EQ.0.AND.ISHOW3.NE.0) THEN + NSD2=NSD(JT)+3 + ENDIF + PMSHOW=SQRT(MAX(0D0,(P(NSD1,4)+P(NSD2,4))**2- + & (P(NSD1,1)+P(NSD2,1))**2-(P(NSD1,2)+P(NSD2,2))**2- + & (P(NSD1,3)+P(NSD2,3))**2)) + CALL PYSHOW(NSD1,NSD2,PMSHOW) + ENDIF + ENDIF + NSHAFT=N + IF(JT.EQ.1) NAFT1=N + +C...Check if decay products moved by shower. + NSD1=NSD(JT)+1 + NSD2=NSD(JT)+2 + NSD3=NSD(JT)+3 + IF(NSHAFT.GT.NSHBEF) THEN + IF(K(NSD1,1).GT.10) THEN + DO 570 I=NSHBEF+1,NSHAFT + IF(K(I,1).LT.10.AND.K(I,2).EQ.K(NSD1,2)) NSD1=I + 570 CONTINUE + ENDIF + IF(K(NSD2,1).GT.10) THEN + DO 580 I=NSHBEF+1,NSHAFT + IF(K(I,1).LT.10.AND.K(I,2).EQ.K(NSD2,2).AND. + & I.NE.NSD1) NSD2=I + 580 CONTINUE + ENDIF + IF(KFL3(JT).NE.0.AND.K(NSD3,1).GT.10) THEN + DO 590 I=NSHBEF+1,NSHAFT + IF(K(I,1).LT.10.AND.K(I,2).EQ.K(NSD3,2).AND. + & I.NE.NSD1.AND.I.NE.NSD2) NSD3=I + 590 CONTINUE + ENDIF + ENDIF + +C...Store decay products for further treatment. + NP=NP+1 + IREF(NP,1)=NSD1 + IREF(NP,2)=NSD2 + IREF(NP,3)=0 + IF(KFL3(JT).NE.0) IREF(NP,3)=NSD3 + IREF(NP,4)=IDOC+1 + IREF(NP,5)=IDOC+2 + IREF(NP,6)=0 + IF(KFL3(JT).NE.0) IREF(NP,6)=IDOC+3 + IREF(NP,7)=K(IREF(IP,JT),2) + IREF(NP,8)=IREF(IP,JT) + 600 CONTINUE + +C...Fill information for 2 -> 1 -> 2. + 610 IF(JTMAX.EQ.1.AND.KDCY(1).NE.0.AND.ISUB.NE.0) THEN + MINT(7)=MINT(83)+6+2*ISET(ISUB) + MINT(8)=MINT(83)+7+2*ISET(ISUB) + MINT(25)=KFL1(1) + MINT(26)=KFL2(1) + VINT(23)=CTHE(1) + RM3=P(N-1,5)**2/SH + RM4=P(N,5)**2/SH + BE34=SQRT(MAX(0D0,(1D0-RM3-RM4)**2-4D0*RM3*RM4)) + VINT(45)=-0.5D0*SH*(1D0-RM3-RM4-BE34*CTHE(1)) + VINT(46)=-0.5D0*SH*(1D0-RM3-RM4+BE34*CTHE(1)) + VINT(48)=0.25D0*SH*BE34**2*MAX(0D0,1D0-CTHE(1)**2) + VINT(47)=SQRT(VINT(48)) + ENDIF + +C...Possibility of colour rearrangement in W+W- events. + IF((ISUB.EQ.25.OR.ISUB.EQ.22).AND.MSTP(115).GE.1) THEN + IAKF1=IABS(KFL1(1)) + IAKF2=IABS(KFL1(2)) + IAKF3=IABS(KFL2(1)) + IAKF4=IABS(KFL2(2)) + IF(MIN(IAKF1,IAKF2,IAKF3,IAKF4).GE.1.AND. + & MAX(IAKF1,IAKF2,IAKF3,IAKF4).LE.5) CALL + & PYRECO(IREF(1,1),IREF(1,2),NSD(1),NAFT1) + ENDIF + +C...Loop back if needed. + 620 IF(IP.LT.NP) GOTO 150 + + RETURN + END + +C********************************************************************* + +C...PYMULT +C...Initializes treatment of multiple interactions, selects kinematics +C...of hardest interaction if low-pT physics included in run, and +C...generates all non-hardest interactions. + + SUBROUTINE PYMULT(MMUL) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + COMMON/PYINT3/XSFX(2,-40:40),ISIG(1000,3),SIGH(1000) + COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3) + COMMON/PYINT7/SIGT(0:6,0:6,0:5) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYSUBS/,/PYPARS/,/PYINT1/, + &/PYINT2/,/PYINT3/,/PYINT5/,/PYINT7/ +C...Local arrays and saved variables. + DIMENSION NMUL(20),SIGM(20),KSTR(500,2),VINTSV(80) + SAVE XT2,XT2FAC,XC2,XTS,IRBIN,RBIN,NMUL,SIGM + +C...Initialization of multiple interaction treatment. + IF(MMUL.EQ.1) THEN + IF(MSTP(122).GE.1) WRITE(MSTU(11),5000) MSTP(82) + ISUB=96 + MINT(1)=96 + VINT(63)=0D0 + VINT(64)=0D0 + VINT(143)=1D0 + VINT(144)=1D0 + +C...Loop over phase space points: xT2 choice in 20 bins. + 100 SIGSUM=0D0 + DO 120 IXT2=1,20 + NMUL(IXT2)=MSTP(83) + SIGM(IXT2)=0D0 + DO 110 ITRY=1,MSTP(83) + RSCA=0.05D0*((21-IXT2)-PYR(0)) + XT2=VINT(149)*(1D0+VINT(149))/(VINT(149)+RSCA)-VINT(149) + XT2=MAX(0.01D0*VINT(149),XT2) + VINT(25)=XT2 + +C...Choose tau and y*. Calculate cos(theta-hat). + IF(PYR(0).LE.COEF(ISUB,1)) THEN + TAUT=(2D0*(1D0+SQRT(1D0-XT2))/XT2-1D0)**PYR(0) + TAU=XT2*(1D0+TAUT)**2/(4D0*TAUT) + ELSE + TAU=XT2*(1D0+TAN(PYR(0)*ATAN(SQRT(1D0/XT2-1D0)))**2) + ENDIF + VINT(21)=TAU + CALL PYKLIM(2) + RYST=PYR(0) + MYST=1 + IF(RYST.GT.COEF(ISUB,8)) MYST=2 + IF(RYST.GT.COEF(ISUB,8)+COEF(ISUB,9)) MYST=3 + CALL PYKMAP(2,MYST,PYR(0)) + VINT(23)=SQRT(MAX(0D0,1D0-XT2/TAU))*(-1)**INT(1.5D0+PYR(0)) + +C...Calculate differential cross-section. + VINT(71)=0.5D0*VINT(1)*SQRT(XT2) + CALL PYSIGH(NCHN,SIGS) + SIGM(IXT2)=SIGM(IXT2)+SIGS + 110 CONTINUE + SIGSUM=SIGSUM+SIGM(IXT2) + 120 CONTINUE + SIGSUM=SIGSUM/(20D0*MSTP(83)) + +C...Reject result if sigma(parton-parton) is smaller than hadronic one. + IF(SIGSUM.LT.1.1D0*SIGT(0,0,5)) THEN + IF(MSTP(122).GE.1) WRITE(MSTU(11),5100) + & PARP(82)*(VINT(1)/PARP(89))**PARP(90),SIGSUM + PARP(82)=0.9D0*PARP(82) + VINT(149)=4D0*(PARP(82)*(VINT(1)/PARP(89))**PARP(90))**2/ + & VINT(2) + GOTO 100 + ENDIF + IF(MSTP(122).GE.1) WRITE(MSTU(11),5200) + & PARP(82)*(VINT(1)/PARP(89))**PARP(90), SIGSUM + +C...Start iteration to find k factor. + YKE=SIGSUM/MAX(1D-10,SIGT(0,0,5)) + SO=0.5D0 + XI=0D0 + YI=0D0 + XF=0D0 + YF=0D0 + XK=0.5D0 + IIT=0 + 130 IF(IIT.EQ.0) THEN + XK=2D0*XK + ELSEIF(IIT.EQ.1) THEN + XK=0.5D0*XK + ELSE + XK=XI+(YKE-YI)*(XF-XI)/(YF-YI) + ENDIF + +C...Evaluate overlap integrals. + IF(MSTP(82).EQ.2) THEN + SP=0.5D0*PARU(1)*(1D0-EXP(-XK)) + SOP=SP/PARU(1) + ELSE + IF(MSTP(82).EQ.3) DELTAB=0.02D0 + IF(MSTP(82).EQ.4) DELTAB=MIN(0.01D0,0.05D0*PARP(84)) + SP=0D0 + SOP=0D0 + B=-0.5D0*DELTAB + 140 B=B+DELTAB + IF(MSTP(82).EQ.3) THEN + OV=EXP(-B**2)/PARU(2) + ELSE + CQ2=PARP(84)**2 + OV=((1D0-PARP(83))**2*EXP(-MIN(50D0,B**2))+ + & 2D0*PARP(83)*(1D0-PARP(83))*2D0/(1D0+CQ2)* + & EXP(-MIN(50D0,B**2*2D0/(1D0+CQ2)))+ + & PARP(83)**2/CQ2*EXP(-MIN(50D0,B**2/CQ2)))/PARU(2) + ENDIF + PACC=1D0-EXP(-MIN(50D0,PARU(1)*XK*OV)) + SP=SP+PARU(2)*B*DELTAB*PACC + SOP=SOP+PARU(2)*B*DELTAB*OV*PACC + IF(B.LT.1D0.OR.B*PACC.GT.1D-6) GOTO 140 + ENDIF + YK=PARU(1)*XK*SO/SP + +C...Continue iteration until convergence. + IF(YK.LT.YKE) THEN + XI=XK + YI=YK + IF(IIT.EQ.1) IIT=2 + ELSE + XF=XK + YF=YK + IF(IIT.EQ.0) IIT=1 + ENDIF + IF(ABS(YK-YKE).GE.1D-5*YKE) GOTO 130 + +C...Store some results for subsequent use. + VINT(145)=SIGSUM + VINT(146)=SOP/SO + VINT(147)=SOP/SP + +C...Initialize iteration in xT2 for hardest interaction. + ELSEIF(MMUL.EQ.2) THEN + IF(MSTP(82).LE.0) THEN + ELSEIF(MSTP(82).EQ.1) THEN + XT2=1D0 + SIGRAT=XSEC(96,1)/MAX(1D-10,VINT(315)*VINT(316)*SIGT(0,0,5)) + IF(MINT(141).NE.0.OR.MINT(142).NE.0) SIGRAT=SIGRAT* + & VINT(317)/(VINT(318)*VINT(320)) + XT2FAC=SIGRAT*VINT(149)/(1D0-VINT(149)) + ELSEIF(MSTP(82).EQ.2) THEN + XT2=1D0 + XT2FAC=VINT(146)*XSEC(96,1)/MAX(1D-10,SIGT(0,0,5))* + & VINT(149)*(1D0+VINT(149)) + ELSE + XC2=4D0*CKIN(3)**2/VINT(2) + IF(CKIN(3).LE.CKIN(5).OR.MINT(82).GE.2) XC2=0D0 + ENDIF + + ELSEIF(MMUL.EQ.3) THEN +C...Low-pT or multiple interactions (first semihard interaction): +C...choose xT2 according to dpT2/pT2**2*exp(-(sigma above pT2)/norm) +C...or (MSTP(82)>=2) dpT2/(pT2+pT0**2)**2*exp(-....). + ISUB=MINT(1) + IF(MSTP(82).LE.0) THEN + XT2=0D0 + ELSEIF(MSTP(82).EQ.1) THEN + XT2=XT2FAC*XT2/(XT2FAC-XT2*LOG(PYR(0))) + ELSEIF(MSTP(82).EQ.2) THEN + IF(XT2.LT.1D0.AND.EXP(-XT2FAC*XT2/(VINT(149)*(XT2+ + & VINT(149)))).GT.PYR(0)) XT2=1D0 + IF(XT2.GE.1D0) THEN + XT2=(1D0+VINT(149))*XT2FAC/(XT2FAC-(1D0+VINT(149))*LOG(1D0- + & PYR(0)*(1D0-EXP(-XT2FAC/(VINT(149)*(1D0+VINT(149)))))))- + & VINT(149) + ELSE + XT2=-XT2FAC/LOG(EXP(-XT2FAC/(XT2+VINT(149)))+PYR(0)* + & (EXP(-XT2FAC/VINT(149))-EXP(-XT2FAC/(XT2+VINT(149)))))- + & VINT(149) + ENDIF + XT2=MAX(0.01D0*VINT(149),XT2) + ELSE + XT2=(XC2+VINT(149))*(1D0+VINT(149))/(1D0+VINT(149)- + & PYR(0)*(1D0-XC2))-VINT(149) + XT2=MAX(0.01D0*VINT(149),XT2) + ENDIF + VINT(25)=XT2 + +C...Low-pT: choose xT2, tau, y* and cos(theta-hat) fixed. + IF(MSTP(82).LE.1.AND.XT2.LT.VINT(149)) THEN + IF(MINT(82).EQ.1) NGEN(0,1)=NGEN(0,1)-1 + IF(MINT(82).EQ.1) NGEN(ISUB,1)=NGEN(ISUB,1)-1 + ISUB=95 + MINT(1)=ISUB + VINT(21)=0.01D0*VINT(149) + VINT(22)=0D0 + VINT(23)=0D0 + VINT(25)=0.01D0*VINT(149) + + ELSE +C...Multiple interactions (first semihard interaction). +C...Choose tau and y*. Calculate cos(theta-hat). + IF(PYR(0).LE.COEF(ISUB,1)) THEN + TAUT=(2D0*(1D0+SQRT(1D0-XT2))/XT2-1D0)**PYR(0) + TAU=XT2*(1D0+TAUT)**2/(4D0*TAUT) + ELSE + TAU=XT2*(1D0+TAN(PYR(0)*ATAN(SQRT(1D0/XT2-1D0)))**2) + ENDIF + VINT(21)=TAU + CALL PYKLIM(2) + RYST=PYR(0) + MYST=1 + IF(RYST.GT.COEF(ISUB,8)) MYST=2 + IF(RYST.GT.COEF(ISUB,8)+COEF(ISUB,9)) MYST=3 + CALL PYKMAP(2,MYST,PYR(0)) + VINT(23)=SQRT(MAX(0D0,1D0-XT2/TAU))*(-1)**INT(1.5D0+PYR(0)) + ENDIF + VINT(71)=0.5D0*VINT(1)*SQRT(VINT(25)) + +C...Store results of cross-section calculation. + ELSEIF(MMUL.EQ.4) THEN + ISUB=MINT(1) + XTS=VINT(25) + IF(ISET(ISUB).EQ.1) XTS=VINT(21) + IF(ISET(ISUB).EQ.2) + & XTS=(4D0*VINT(48)+2D0*VINT(63)+2D0*VINT(64))/VINT(2) + IF(ISET(ISUB).GE.3.AND.ISET(ISUB).LE.5) XTS=VINT(26) + RBIN=MAX(0.000001D0,MIN(0.999999D0,XTS*(1D0+VINT(149))/ + & (XTS+VINT(149)))) + IRBIN=INT(1D0+20D0*RBIN) + IF(ISUB.EQ.96.AND.MSTP(171).EQ.0) THEN + NMUL(IRBIN)=NMUL(IRBIN)+1 + SIGM(IRBIN)=SIGM(IRBIN)+VINT(153) + ENDIF + +C...Choose impact parameter. + ELSEIF(MMUL.EQ.5) THEN + ISUB=MINT(1) + 145 IF(MSTP(82).EQ.3) THEN + VINT(148)=PYR(0)/(PARU(2)*VINT(147)) + ELSE + RTYPE=PYR(0) + CQ2=PARP(84)**2 + IF(RTYPE.LT.(1D0-PARP(83))**2) THEN + B2=-LOG(PYR(0)) + ELSEIF(RTYPE.LT.1D0-PARP(83)**2) THEN + B2=-0.5D0*(1D0+CQ2)*LOG(PYR(0)) + ELSE + B2=-CQ2*LOG(PYR(0)) + ENDIF + VINT(148)=((1D0-PARP(83))**2*EXP(-MIN(50D0,B2))+2D0*PARP(83)* + & (1D0-PARP(83))*2D0/(1D0+CQ2)*EXP(-MIN(50D0,B2*2D0/(1D0+CQ2)))+ + & PARP(83)**2/CQ2*EXP(-MIN(50D0,B2/CQ2)))/(PARU(2)*VINT(147)) + ENDIF + +C...Multiple interactions (variable impact parameter) : reject with +C...probability exp(-overlap*cross-section above pT/normalization). + RNCOR=(IRBIN-20D0*RBIN)*NMUL(IRBIN) + SIGCOR=(IRBIN-20D0*RBIN)*SIGM(IRBIN) + DO 150 IBIN=IRBIN+1,20 + RNCOR=RNCOR+NMUL(IBIN) + SIGCOR=SIGCOR+SIGM(IBIN) + 150 CONTINUE + SIGABV=(SIGCOR/RNCOR)*VINT(149)*(1D0-XTS)/(XTS+VINT(149)) + IF(MSTP(171).EQ.1) SIGABV=SIGABV*VINT(2)/VINT(289) + VINT(150)=EXP(-MIN(50D0,VINT(146)*VINT(148)* + & SIGABV/MAX(1D-10,SIGT(0,0,5)))) + IF(MSTP(86).EQ.3.OR.(MSTP(86).EQ.2.AND.ISUB.NE.11.AND. + & ISUB.NE.12.AND.ISUB.NE.13.AND.ISUB.NE.28.AND.ISUB.NE.53 + & .AND.ISUB.NE.68.AND.ISUB.NE.95.AND.ISUB.NE.96)) THEN + IF(VINT(150).LT.PYR(0)) GOTO 145 + VINT(150)=1D0 + ENDIF + +C...Generate additional multiple semihard interactions. + ELSEIF(MMUL.EQ.6) THEN + ISUBSV=MINT(1) + DO 160 J=11,80 + VINTSV(J)=VINT(J) + 160 CONTINUE + ISUB=96 + MINT(1)=96 + VINT(151)=0D0 + VINT(152)=0D0 + +C...Reconstruct strings in hard scattering. + NMAX=MINT(84)+4 + IF(ISET(ISUBSV).EQ.1) NMAX=MINT(84)+2 + IF(ISET(ISUBSV).EQ.11) NMAX=MINT(84)+2+MINT(3) + NSTR=0 + DO 180 I=MINT(84)+1,NMAX + KCS=KCHG(PYCOMP(K(I,2)),2)*ISIGN(1,K(I,2)) + IF(KCS.EQ.0) GOTO 180 + DO 170 J=1,4 + IF(KCS.EQ.1.AND.(J.EQ.2.OR.J.EQ.4)) GOTO 170 + IF(KCS.EQ.-1.AND.(J.EQ.1.OR.J.EQ.3)) GOTO 170 + IF(J.LE.2) THEN + IST=MOD(K(I,J+3)/MSTU(5),MSTU(5)) + ELSE + IST=MOD(K(I,J+1),MSTU(5)) + ENDIF + IF(IST.LT.MINT(84).OR.IST.GT.I) GOTO 170 + IF(KCHG(PYCOMP(K(IST,2)),2).EQ.0) GOTO 170 + NSTR=NSTR+1 + IF(J.EQ.1.OR.J.EQ.4) THEN + KSTR(NSTR,1)=I + KSTR(NSTR,2)=IST + ELSE + KSTR(NSTR,1)=IST + KSTR(NSTR,2)=I + ENDIF + 170 CONTINUE + 180 CONTINUE + +C...Set up starting values for iteration in xT2. + IF(MSTP(86).EQ.3.OR.(MSTP(86).EQ.2.AND.ISUBSV.NE.11.AND. + & ISUBSV.NE.12.AND.ISUBSV.NE.13.AND.ISUBSV.NE.28.AND. + & ISUBSV.NE.53.AND.ISUBSV.NE.68.AND.ISUBSV.NE.95.AND. + & ISUBSV.NE.96)) THEN + XT2=(1D0-VINT(141))*(1D0-VINT(142)) + ELSE + XT2=VINT(25) + IF(ISET(ISUBSV).EQ.1) XT2=VINT(21) + IF(ISET(ISUBSV).EQ.2) + & XT2=(4D0*VINT(48)+2D0*VINT(63)+2D0*VINT(64))/VINT(2) + IF(ISET(ISUBSV).GE.3.AND.ISET(ISUBSV).LE.5) XT2=VINT(26) + ENDIF + IF(MSTP(82).LE.1) THEN + SIGRAT=XSEC(ISUB,1)/MAX(1D-10,VINT(315)*VINT(316)*SIGT(0,0,5)) + IF(MINT(141).NE.0.OR.MINT(142).NE.0) SIGRAT=SIGRAT* + & VINT(317)/(VINT(318)*VINT(320)) + XT2FAC=SIGRAT*VINT(149)/(1D0-VINT(149)) + ELSE + XT2FAC=VINT(146)*VINT(148)*XSEC(ISUB,1)/ + & MAX(1D-10,SIGT(0,0,5))*VINT(149)*(1D0+VINT(149)) + ENDIF + VINT(63)=0D0 + VINT(64)=0D0 + VINT(143)=1D0-VINT(141) + VINT(144)=1D0-VINT(142) + +C...Iterate downwards in xT2. + 190 IF(MSTP(82).LE.1) THEN + XT2=XT2FAC*XT2/(XT2FAC-XT2*LOG(PYR(0))) + IF(XT2.LT.VINT(149)) GOTO 240 + ELSE + IF(XT2.LE.0.01001D0*VINT(149)) GOTO 240 + XT2=XT2FAC*(XT2+VINT(149))/(XT2FAC-(XT2+VINT(149))* + & LOG(PYR(0)))-VINT(149) + IF(XT2.LE.0D0) GOTO 240 + XT2=MAX(0.01D0*VINT(149),XT2) + ENDIF + VINT(25)=XT2 + +C...Choose tau and y*. Calculate cos(theta-hat). + IF(PYR(0).LE.COEF(ISUB,1)) THEN + TAUT=(2D0*(1D0+SQRT(1D0-XT2))/XT2-1D0)**PYR(0) + TAU=XT2*(1D0+TAUT)**2/(4D0*TAUT) + ELSE + TAU=XT2*(1D0+TAN(PYR(0)*ATAN(SQRT(1D0/XT2-1D0)))**2) + ENDIF + VINT(21)=TAU + CALL PYKLIM(2) + RYST=PYR(0) + MYST=1 + IF(RYST.GT.COEF(ISUB,8)) MYST=2 + IF(RYST.GT.COEF(ISUB,8)+COEF(ISUB,9)) MYST=3 + CALL PYKMAP(2,MYST,PYR(0)) + VINT(23)=SQRT(MAX(0D0,1D0-XT2/TAU))*(-1)**INT(1.5D0+PYR(0)) + +C...Check that x not used up. Accept or reject kinematical variables. + X1M=SQRT(TAU)*EXP(VINT(22)) + X2M=SQRT(TAU)*EXP(-VINT(22)) + IF(VINT(143)-X1M.LT.0.01D0.OR.VINT(144)-X2M.LT.0.01D0) GOTO 190 + VINT(71)=0.5D0*VINT(1)*SQRT(XT2) + CALL PYSIGH(NCHN,SIGS) + IF(MINT(141).NE.0.OR.MINT(142).NE.0) SIGS=SIGS*VINT(320) + IF(SIGS.LT.XSEC(ISUB,1)*PYR(0)) GOTO 190 + +C...Reset K, P and V vectors. Select some variables. + DO 210 I=N+1,N+2 + DO 200 J=1,5 + K(I,J)=0 + P(I,J)=0D0 + V(I,J)=0D0 + 200 CONTINUE + 210 CONTINUE + RFLAV=PYR(0) + PT=0.5D0*VINT(1)*SQRT(XT2) + PHI=PARU(2)*PYR(0) + CTH=VINT(23) + +C...Add first parton to event record. + K(N+1,1)=3 + K(N+1,2)=21 + IF(RFLAV.GE.MAX(PARP(85),PARP(86))) K(N+1,2)= + & 1+INT((2D0+PARJ(2))*PYR(0)) + P(N+1,1)=PT*COS(PHI) + P(N+1,2)=PT*SIN(PHI) + P(N+1,3)=0.25D0*VINT(1)*(VINT(41)*(1D0+CTH)-VINT(42)*(1D0-CTH)) + P(N+1,4)=0.25D0*VINT(1)*(VINT(41)*(1D0+CTH)+VINT(42)*(1D0-CTH)) + P(N+1,5)=0D0 + +C...Add second parton to event record. + K(N+2,1)=3 + K(N+2,2)=21 + IF(K(N+1,2).NE.21) K(N+2,2)=-K(N+1,2) + P(N+2,1)=-P(N+1,1) + P(N+2,2)=-P(N+1,2) + P(N+2,3)=0.25D0*VINT(1)*(VINT(41)*(1D0-CTH)-VINT(42)*(1D0+CTH)) + P(N+2,4)=0.25D0*VINT(1)*(VINT(41)*(1D0-CTH)+VINT(42)*(1D0+CTH)) + P(N+2,5)=0D0 + + IF(RFLAV.LT.PARP(85).AND.NSTR.GE.1) THEN +C....Choose relevant string pieces to place gluons on. + DO 230 I=N+1,N+2 + DMIN=1D8 + DO 220 ISTR=1,NSTR + I1=KSTR(ISTR,1) + I2=KSTR(ISTR,2) + DIST=(P(I,4)*P(I1,4)-P(I,1)*P(I1,1)-P(I,2)*P(I1,2)- + & P(I,3)*P(I1,3))*(P(I,4)*P(I2,4)-P(I,1)*P(I2,1)- + & P(I,2)*P(I2,2)-P(I,3)*P(I2,3))/MAX(1D0,P(I1,4)*P(I2,4)- + & P(I1,1)*P(I2,1)-P(I1,2)*P(I2,2)-P(I1,3)*P(I2,3)) + IF(ISTR.EQ.1.OR.DIST.LT.DMIN) THEN + DMIN=DIST + IST1=I1 + IST2=I2 + ISTM=ISTR + ENDIF + 220 CONTINUE + +C....Colour flow adjustments, new string pieces. + IF(K(IST1,4)/MSTU(5).EQ.IST2) K(IST1,4)=MSTU(5)*I+ + & MOD(K(IST1,4),MSTU(5)) + IF(MOD(K(IST1,5),MSTU(5)).EQ.IST2) K(IST1,5)= + & MSTU(5)*(K(IST1,5)/MSTU(5))+I + K(I,5)=MSTU(5)*IST1 + K(I,4)=MSTU(5)*IST2 + IF(K(IST2,5)/MSTU(5).EQ.IST1) K(IST2,5)=MSTU(5)*I+ + & MOD(K(IST2,5),MSTU(5)) + IF(MOD(K(IST2,4),MSTU(5)).EQ.IST1) K(IST2,4)= + & MSTU(5)*(K(IST2,4)/MSTU(5))+I + KSTR(ISTM,2)=I + KSTR(NSTR+1,1)=I + KSTR(NSTR+1,2)=IST2 + NSTR=NSTR+1 + 230 CONTINUE + +C...String drawing and colour flow for gluon loop. + ELSEIF(K(N+1,2).EQ.21) THEN + K(N+1,4)=MSTU(5)*(N+2) + K(N+1,5)=MSTU(5)*(N+2) + K(N+2,4)=MSTU(5)*(N+1) + K(N+2,5)=MSTU(5)*(N+1) + KSTR(NSTR+1,1)=N+1 + KSTR(NSTR+1,2)=N+2 + KSTR(NSTR+2,1)=N+2 + KSTR(NSTR+2,2)=N+1 + NSTR=NSTR+2 + +C...String drawing and colour flow for qqbar pair. + ELSE + K(N+1,4)=MSTU(5)*(N+2) + K(N+2,5)=MSTU(5)*(N+1) + KSTR(NSTR+1,1)=N+1 + KSTR(NSTR+1,2)=N+2 + NSTR=NSTR+1 + ENDIF + +C...Update remaining energy; iterate. + N=N+2 + IF(N.GT.MSTU(4)-MSTU(32)-10) THEN + CALL PYERRM(11,'(PYMULT:) no more memory left in PYJETS') + IF(MSTU(21).GE.1) RETURN + ENDIF + MINT(31)=MINT(31)+1 + VINT(151)=VINT(151)+VINT(41) + VINT(152)=VINT(152)+VINT(42) + VINT(143)=VINT(143)-VINT(41) + VINT(144)=VINT(144)-VINT(42) + IF(MINT(31).LT.240) GOTO 190 + 240 CONTINUE + MINT(1)=ISUBSV + DO 250 J=11,80 + VINT(J)=VINTSV(J) + 250 CONTINUE + ENDIF + +C...Format statements for printout. + 5000 FORMAT(/1X,'****** PYMULT: initialization of multiple inter', + &'actions for MSTP(82) =',I2,' ******') + 5100 FORMAT(8X,'pT0 =',F5.2,' GeV gives sigma(parton-parton) =',1P, + &D9.2,' mb: rejected') + 5200 FORMAT(8X,'pT0 =',F5.2,' GeV gives sigma(parton-parton) =',1P, + &D9.2,' mb: accepted') + + RETURN + END + +C********************************************************************* + +C...PYREMN +C...Adds on target remnants (one or two from each side) and +C...includes primordial kT for hadron beams. + + SUBROUTINE PYREMN(IPU1,IPU2) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYPARS/,/PYINT1/ +C...Local arrays. + DIMENSION KFLCH(2),KFLSP(2),CHI(2),PMS(0:6),IS(2),ISN(2),ROBO(5), + &PSYS(0:2,5),PMIN(0:2),QOLD(4),QNEW(4),DBE(3),PSUM(4) + +C...Find event type and remaining energy. + ISUB=MINT(1) + NS=N + IF(MINT(50).EQ.0.OR.MSTP(81).LE.0) THEN + VINT(143)=1D0-VINT(141) + VINT(144)=1D0-VINT(142) + ENDIF + +C...Define initial partons. + NTRY=0 + 100 NTRY=NTRY+1 + DO 130 JT=1,2 + I=MINT(83)+JT+2 + IF(JT.EQ.1) IPU=IPU1 + IF(JT.EQ.2) IPU=IPU2 + K(I,1)=21 + K(I,2)=K(IPU,2) + K(I,3)=I-2 + PMS(JT)=0D0 + VINT(156+JT)=0D0 + VINT(158+JT)=0D0 + IF(MINT(47).EQ.1) THEN + DO 110 J=1,5 + P(I,J)=P(I-2,J) + 110 CONTINUE + ELSEIF(ISUB.EQ.95) THEN + K(I,2)=21 + ELSE + P(I,5)=P(IPU,5) + +C...No primordial kT, or chosen according to truncated Gaussian or +C...exponential, or (for photon) predetermined or power law. + 120 IF(MINT(40+JT).EQ.2.AND.MINT(10+JT).NE.22) THEN + IF(MSTP(91).LE.0) THEN + PT=0D0 + ELSEIF(MSTP(91).EQ.1) THEN + PT=PARP(91)*SQRT(-LOG(PYR(0))) + ELSE + RPT1=PYR(0) + RPT2=PYR(0) + PT=-PARP(92)*LOG(RPT1*RPT2) + ENDIF + IF(PT.GT.PARP(93)) GOTO 120 + ELSEIF(MINT(106+JT).EQ.3) THEN + PTA=SQRT(VINT(282+JT)) + PTB=0D0 + IF(MSTP(66).EQ.5.AND.MSTP(93).EQ.1) THEN + PTB=PARP(99)*SQRT(-LOG(PYR(0))) + ELSEIF(MSTP(66).EQ.5.AND.MSTP(93).EQ.2) THEN + RPT1=PYR(0) + RPT2=PYR(0) + PTB=-PARP(99)*LOG(RPT1*RPT2) + ENDIF + IF(PTB.GT.PARP(100)) GOTO 120 + PT=SQRT(PTA**2+PTB**2+2D0*PTA*PTB*COS(PARU(2)*PYR(0))) + PT=PT*0.8D0**MINT(57) + IF(NTRY.GT.10) PT=PT*0.8D0**(NTRY-10) + ELSEIF(IABS(MINT(14+JT)).LE.8.OR.MINT(14+JT).EQ.21) THEN + IF(MSTP(93).LE.0) THEN + PT=0D0 + ELSEIF(MSTP(93).EQ.1) THEN + PT=PARP(99)*SQRT(-LOG(PYR(0))) + ELSEIF(MSTP(93).EQ.2) THEN + RPT1=PYR(0) + RPT2=PYR(0) + PT=-PARP(99)*LOG(RPT1*RPT2) + ELSEIF(MSTP(93).EQ.3) THEN + HA=PARP(99)**2 + HB=PARP(100)**2 + PT=SQRT(MAX(0D0,HA*(HA+HB)/(HA+HB-PYR(0)*HB)-HA)) + ELSE + HA=PARP(99)**2 + HB=PARP(100)**2 + IF(MSTP(93).EQ.5) HB=MIN(VINT(48),PARP(100)**2) + PT=SQRT(MAX(0D0,HA*((HA+HB)/HA)**PYR(0)-HA)) + ENDIF + IF(PT.GT.PARP(100)) GOTO 120 + ELSE + PT=0D0 + ENDIF + VINT(156+JT)=PT + PHI=PARU(2)*PYR(0) + P(I,1)=PT*COS(PHI) + P(I,2)=PT*SIN(PHI) + PMS(JT)=P(I,5)**2+P(I,1)**2+P(I,2)**2 + ENDIF + 130 CONTINUE + IF(MINT(47).EQ.1) RETURN + +C...Kinematics construction for initial partons. + I1=MINT(83)+3 + I2=MINT(83)+4 + IF(ISUB.EQ.95) THEN + SHS=0D0 + SHR=0D0 + ELSE + SHS=VINT(141)*VINT(142)*VINT(2)+(P(I1,1)+P(I2,1))**2+ + & (P(I1,2)+P(I2,2))**2 + SHR=SQRT(MAX(0D0,SHS)) + IF((SHS-PMS(1)-PMS(2))**2-4D0*PMS(1)*PMS(2).LE.0D0) GOTO 100 + P(I1,4)=0.5D0*(SHR+(PMS(1)-PMS(2))/SHR) + P(I1,3)=SQRT(MAX(0D0,P(I1,4)**2-PMS(1))) + P(I2,4)=SHR-P(I1,4) + P(I2,3)=-P(I1,3) + +C...Transform partons to overall CM-frame. + ROBO(3)=(P(I1,1)+P(I2,1))/SHR + ROBO(4)=(P(I1,2)+P(I2,2))/SHR + CALL PYROBO(I1,I2,0D0,0D0,-ROBO(3),-ROBO(4),0D0) + ROBO(2)=PYANGL(P(I1,1),P(I1,2)) + CALL PYROBO(I1,I2,0D0,-ROBO(2),0D0,0D0,0D0) + ROBO(1)=PYANGL(P(I1,3),P(I1,1)) + CALL PYROBO(I1,I2,-ROBO(1),0D0,0D0,0D0,0D0) + CALL PYROBO(I1,MINT(52),ROBO(1),ROBO(2),ROBO(3),ROBO(4),0D0) + ROBO(5)=(VINT(141)-VINT(142))/(VINT(141)+VINT(142)) + CALL PYROBO(I1,MINT(52),0D0,0D0,0D0,0D0,ROBO(5)) + ENDIF + +C...Optionally fix up x and Q2 definitions for leptoproduction. + IDISXQ=0 + IF((MINT(43).EQ.2.OR.MINT(43).EQ.3).AND.((ISUB.EQ.10.AND. + &MSTP(23).GE.1).OR.(ISUB.EQ.83.AND.MSTP(23).GE.2))) IDISXQ=1 + IF(IDISXQ.EQ.1) THEN + +C...Find where incoming and outgoing leptons/partons are sitting. + LESD=1 + IF(MINT(42).EQ.1) LESD=2 + LPIN=MINT(83)+3-LESD + LEIN=MINT(84)+LESD + LQIN=MINT(84)+3-LESD + LEOUT=MINT(84)+2+LESD + LQOUT=MINT(84)+5-LESD + IF(K(LEIN,3).GT.LEIN) LEIN=K(LEIN,3) + IF(K(LQIN,3).GT.LQIN) LQIN=K(LQIN,3) + LSCMS=0 + DO 140 I=MINT(84)+5,N + IF(K(I,2).EQ.94) THEN + LSCMS=I + LEOUT=I+LESD + LQOUT=I+3-LESD + ENDIF + 140 CONTINUE + LQBG=IPU1 + IF(LESD.EQ.1) LQBG=IPU2 + +C...Calculate actual and wanted momentum transfer. + XNOM=VINT(43-LESD) + Q2NOM=-VINT(45) + HPK=2D0*(P(LPIN,4)*P(LEIN,4)-P(LPIN,1)*P(LEIN,1)- + & P(LPIN,2)*P(LEIN,2)-P(LPIN,3)*P(LEIN,3))* + & (P(MINT(83)+LESD,4)*VINT(40+LESD)/P(LEIN,4)) + HPT2=MAX(0D0,Q2NOM*(1D0-Q2NOM/(XNOM*HPK))) + FAC=SQRT(HPT2/(P(LEOUT,1)**2+P(LEOUT,2)**2)) + P(N+1,1)=FAC*P(LEOUT,1) + P(N+1,2)=FAC*P(LEOUT,2) + P(N+1,3)=0.25D0*((HPK-Q2NOM/XNOM)/P(LPIN,4)- + & Q2NOM/(P(MINT(83)+LESD,4)*VINT(40+LESD)))*(-1)**(LESD+1) + P(N+1,4)=SQRT(P(LEOUT,5)**2+P(N+1,1)**2+P(N+1,2)**2+ + & P(N+1,3)**2) + DO 150 J=1,4 + QOLD(J)=P(LEIN,J)-P(LEOUT,J) + QNEW(J)=P(LEIN,J)-P(N+1,J) + 150 CONTINUE + +C...Boost outgoing electron and daughters. + IF(LSCMS.EQ.0) THEN + DO 160 J=1,4 + P(LEOUT,J)=P(N+1,J) + 160 CONTINUE + ELSE + DO 170 J=1,3 + P(N+2,J)=(P(N+1,J)-P(LEOUT,J))/(P(N+1,4)+P(LEOUT,4)) + 170 CONTINUE + PINV=2D0/(1D0+P(N+2,1)**2+P(N+2,2)**2+P(N+2,3)**2) + DO 180 J=1,3 + DBE(J)=PINV*P(N+2,J) + 180 CONTINUE + DO 200 I=LSCMS+1,N + IORIG=I + 190 IORIG=K(IORIG,3) + IF(IORIG.GT.LEOUT) GOTO 190 + IF(I.EQ.LEOUT.OR.IORIG.EQ.LEOUT) + & CALL PYROBO(I,I,0D0,0D0,DBE(1),DBE(2),DBE(3)) + 200 CONTINUE + ENDIF + +C...Copy shower initiator and all outgoing partons. + NCOP=N+1 + K(NCOP,3)=LQBG + DO 210 J=1,5 + P(NCOP,J)=P(LQBG,J) + 210 CONTINUE + DO 240 I=MINT(84)+1,N + ICOP=0 + IF(K(I,1).GT.10) GOTO 240 + IF(I.EQ.LQBG.OR.I.EQ.LQOUT) THEN + ICOP=I + ELSE + IORIG=I + 220 IORIG=K(IORIG,3) + IF(IORIG.EQ.LQBG.OR.IORIG.EQ.LQOUT) THEN + ICOP=IORIG + ELSEIF(IORIG.GT.MINT(84).AND.IORIG.LE.N) THEN + GOTO 220 + ENDIF + ENDIF + IF(ICOP.NE.0) THEN + NCOP=NCOP+1 + K(NCOP,3)=I + DO 230 J=1,5 + P(NCOP,J)=P(I,J) + 230 CONTINUE + ENDIF + 240 CONTINUE + +C...Calculate relative rescaling factors. + SLC=3-2*LESD + PLCSUM=0D0 + DO 250 I=N+2,NCOP + PLCSUM=PLCSUM+(P(I,4)+SLC*P(I,3)) + 250 CONTINUE + DO 260 I=N+2,NCOP + V(I,1)=(P(I,4)+SLC*P(I,3))/PLCSUM + 260 CONTINUE + +C...Transfer extra three-momentum of current. + DO 280 I=N+2,NCOP + DO 270 J=1,3 + P(I,J)=P(I,J)+V(I,1)*(QNEW(J)-QOLD(J)) + 270 CONTINUE + P(I,4)=SQRT(P(I,5)**2+P(I,1)**2+P(I,2)**2+P(I,3)**2) + 280 CONTINUE + +C...Iterate change of initiator momentum to get energy right. + ITER=0 + 290 ITER=ITER+1 + PEEX=-P(N+1,4)-QNEW(4) + PEMV=-P(N+1,3)/P(N+1,4) + DO 300 I=N+2,NCOP + PEEX=PEEX+P(I,4) + PEMV=PEMV+V(I,1)*P(I,3)/P(I,4) + 300 CONTINUE + IF(ABS(PEMV).LT.1D-10) THEN + MINT(51)=1 + MINT(57)=MINT(57)+1 + RETURN + ENDIF + PZCH=-PEEX/PEMV + P(N+1,3)=P(N+1,3)+PZCH + P(N+1,4)=SQRT(P(N+1,5)**2+P(N+1,1)**2+P(N+1,2)**2+P(N+1,3)**2) + DO 310 I=N+2,NCOP + P(I,3)=P(I,3)+V(I,1)*PZCH + P(I,4)=SQRT(P(I,5)**2+P(I,1)**2+P(I,2)**2+P(I,3)**2) + 310 CONTINUE + IF(ITER.LT.10.AND.ABS(PEEX).GT.1D-6*P(N+1,4)) GOTO 290 + +C...Modify momenta in event record. + HBE=2D0*(P(N+1,4)+P(LQBG,4))*(P(N+1,3)-P(LQBG,3))/ + & ((P(N+1,4)+P(LQBG,4))**2+(P(N+1,3)-P(LQBG,3))**2) + IF(ABS(HBE).GE.1D0) THEN + MINT(51)=1 + MINT(57)=MINT(57)+1 + RETURN + ENDIF + I=MINT(83)+5-LESD + CALL PYROBO(I,I,0D0,0D0,0D0,0D0,HBE) + DO 330 I=N+1,NCOP + ICOP=K(I,3) + DO 320 J=1,4 + P(ICOP,J)=P(I,J) + 320 CONTINUE + 330 CONTINUE + ENDIF + +C...Check minimum invariant mass of remnant system(s). + PSYS(0,4)=P(I1,4)+P(I2,4)+0.5D0*VINT(1)*(VINT(151)+VINT(152)) + PSYS(0,3)=P(I1,3)+P(I2,3)+0.5D0*VINT(1)*(VINT(151)-VINT(152)) + PMS(0)=MAX(0D0,PSYS(0,4)**2-PSYS(0,3)**2) + PMIN(0)=SQRT(PMS(0)) + DO 340 JT=1,2 + PSYS(JT,4)=0.5D0*VINT(1)*VINT(142+JT) + PSYS(JT,3)=PSYS(JT,4)*(-1)**(JT-1) + PMIN(JT)=0D0 + IF(MINT(44+JT).EQ.1) GOTO 340 + MINT(105)=MINT(102+JT) + MINT(109)=MINT(106+JT) + CALL PYSPLI(MINT(10+JT),MINT(12+JT),KFLCH(JT),KFLSP(JT)) + IF(MINT(51).NE.0) THEN + MINT(57)=MINT(57)+1 + RETURN + ENDIF + IF(KFLCH(JT).NE.0) PMIN(JT)=PMIN(JT)+PYMASS(KFLCH(JT)) + IF(KFLSP(JT).NE.0) PMIN(JT)=PMIN(JT)+PYMASS(KFLSP(JT)) + IF(KFLCH(JT)*KFLSP(JT).NE.0) PMIN(JT)=PMIN(JT)+0.5D0*PARP(111) + PMIN(JT)=SQRT(PMIN(JT)**2+P(MINT(83)+JT+2,1)**2+ + & P(MINT(83)+JT+2,2)**2) + 340 CONTINUE + IF(PMIN(0)+PMIN(1)+PMIN(2).GT.VINT(1).OR.(MINT(45).GE.2.AND. + &PMIN(1).GT.PSYS(1,4)).OR.(MINT(46).GE.2.AND.PMIN(2).GT. + &PSYS(2,4))) THEN + MINT(51)=1 + MINT(57)=MINT(57)+1 + RETURN + ENDIF + +C...Loop over two remnants; skip if none there. + I=NS + DO 410 JT=1,2 + ISN(JT)=0 + IF(MINT(44+JT).EQ.1) GOTO 410 + IF(JT.EQ.1) IPU=IPU1 + IF(JT.EQ.2) IPU=IPU2 + +C...Store first remnant parton. + I=I+1 + IS(JT)=I + ISN(JT)=1 + DO 350 J=1,5 + K(I,J)=0 + P(I,J)=0D0 + V(I,J)=0D0 + 350 CONTINUE + K(I,1)=1 + K(I,2)=KFLSP(JT) + K(I,3)=MINT(83)+JT + P(I,5)=PYMASS(K(I,2)) + +C...First parton colour connections and kinematics. + KCOL=KCHG(PYCOMP(KFLSP(JT)),2) + IF(KCOL.EQ.2) THEN + K(I,1)=3 + K(I,4)=MSTU(5)*IPU+IPU + K(I,5)=MSTU(5)*IPU+IPU + K(IPU,4)=MOD(K(IPU,4),MSTU(5))+MSTU(5)*I + K(IPU,5)=MOD(K(IPU,5),MSTU(5))+MSTU(5)*I + ELSEIF(KCOL.NE.0) THEN + K(I,1)=3 + KFLS=(3-KCOL*ISIGN(1,KFLSP(JT)))/2 + K(I,KFLS+3)=IPU + K(IPU,6-KFLS)=MOD(K(IPU,6-KFLS),MSTU(5))+MSTU(5)*I + ENDIF + IF(KFLCH(JT).EQ.0) THEN + P(I,1)=-P(MINT(83)+JT+2,1) + P(I,2)=-P(MINT(83)+JT+2,2) + PMS(JT)=P(I,5)**2+P(I,1)**2+P(I,2)**2 + PSYS(JT,3)=SQRT(MAX(0D0,PSYS(JT,4)**2-PMS(JT)))*(-1)**(JT-1) + P(I,3)=PSYS(JT,3) + P(I,4)=PSYS(JT,4) + +C...When extra remnant parton or hadron: store extra remnant. + ELSE + I=I+1 + ISN(JT)=2 + DO 360 J=1,5 + K(I,J)=0 + P(I,J)=0D0 + V(I,J)=0D0 + 360 CONTINUE + K(I,1)=1 + K(I,2)=KFLCH(JT) + K(I,3)=MINT(83)+JT + P(I,5)=PYMASS(K(I,2)) + +C...Find parton colour connections of extra remnant. + KCOL=KCHG(PYCOMP(KFLCH(JT)),2) + IF(KCOL.EQ.2) THEN + K(I,1)=3 + K(I,4)=MSTU(5)*IPU+IPU + K(I,5)=MSTU(5)*IPU+IPU + K(IPU,4)=MOD(K(IPU,4),MSTU(5))+MSTU(5)*I + K(IPU,5)=MOD(K(IPU,5),MSTU(5))+MSTU(5)*I + ELSEIF(KCOL.NE.0) THEN + K(I,1)=3 + KFLS=(3-KCOL*ISIGN(1,KFLCH(JT)))/2 + K(I,KFLS+3)=IPU + K(IPU,6-KFLS)=MOD(K(IPU,6-KFLS),MSTU(5))+MSTU(5)*I + ENDIF + +C...Relative transverse momentum when two remnants. + LOOP=0 + 370 LOOP=LOOP+1 + CALL PYPTDI(1,P(I-1,1),P(I-1,2)) + IF(IABS(MINT(10+JT)).LT.20) THEN + P(I-1,1)=0D0 + P(I-1,2)=0D0 + ELSE + P(I-1,1)=P(I-1,1)-0.5D0*P(MINT(83)+JT+2,1) + P(I-1,2)=P(I-1,2)-0.5D0*P(MINT(83)+JT+2,2) + ENDIF + PMS(JT+2)=P(I-1,5)**2+P(I-1,1)**2+P(I-1,2)**2 + P(I,1)=-P(MINT(83)+JT+2,1)-P(I-1,1) + P(I,2)=-P(MINT(83)+JT+2,2)-P(I-1,2) + PMS(JT+4)=P(I,5)**2+P(I,1)**2+P(I,2)**2 + +C...Meson or baryon; photon as meson. For splitup below. + IMB=1 + IF(MOD(MINT(10+JT)/1000,10).NE.0) IMB=2 + +C***Relative distribution for electron into two electrons. Temporary! + IF(IABS(MINT(10+JT)).LT.20.AND.MINT(14+JT).EQ.-MINT(10+JT)) + & THEN + CHI(JT)=PYR(0) + +C...Relative distribution of electron energy into electron plus parton. + ELSEIF(IABS(MINT(10+JT)).LT.20) THEN + XHRD=VINT(140+JT) + XE=VINT(154+JT) + CHI(JT)=(XE-XHRD)/(1D0-XHRD) + +C...Relative distribution of energy for particle into two jets. + ELSEIF(IABS(KFLCH(JT)).LE.10.OR.KFLCH(JT).EQ.21) THEN + CHIK=PARP(92+2*IMB) + IF(MSTP(92).LE.1) THEN + IF(IMB.EQ.1) CHI(JT)=PYR(0) + IF(IMB.EQ.2) CHI(JT)=1D0-SQRT(PYR(0)) + ELSEIF(MSTP(92).EQ.2) THEN + CHI(JT)=1D0-PYR(0)**(1D0/(1D0+CHIK)) + ELSEIF(MSTP(92).EQ.3) THEN + CUT=2D0*0.3D0/VINT(1) + 380 CHI(JT)=PYR(0)**2 + IF((CHI(JT)**2/(CHI(JT)**2+CUT**2))**0.25D0* + & (1D0-CHI(JT))**CHIK.LT.PYR(0)) GOTO 380 + ELSEIF(MSTP(92).EQ.4) THEN + CUT=2D0*0.3D0/VINT(1) + CUTR=(1D0+SQRT(1D0+CUT**2))/CUT + 390 CHIR=CUT*CUTR**PYR(0) + CHI(JT)=(CHIR**2-CUT**2)/(2D0*CHIR) + IF((1D0-CHI(JT))**CHIK.LT.PYR(0)) GOTO 390 + ELSE + CUT=2D0*0.3D0/VINT(1) + CUTA=CUT**(1D0-PARP(98)) + CUTB=(1D0+CUT)**(1D0-PARP(98)) + 400 CHI(JT)=(CUTA+PYR(0)*(CUTB-CUTA))**(1D0/(1D0-PARP(98))) + IF(((CHI(JT)+CUT)**2/(2D0*(CHI(JT)**2+CUT**2)))** + & (0.5D0*PARP(98))*(1D0-CHI(JT))**CHIK.LT.PYR(0)) GOTO 400 + ENDIF + +C...Relative distribution of energy for particle into jet plus particle. + ELSE + IF(MSTP(94).LE.1) THEN + IF(IMB.EQ.1) CHI(JT)=PYR(0) + IF(IMB.EQ.2) CHI(JT)=1D0-SQRT(PYR(0)) + IF(MOD(KFLCH(JT)/1000,10).NE.0) CHI(JT)=1D0-CHI(JT) + ELSEIF(MSTP(94).EQ.2) THEN + CHI(JT)=1D0-PYR(0)**(1D0/(1D0+PARP(93+2*IMB))) + IF(MOD(KFLCH(JT)/1000,10).NE.0) CHI(JT)=1D0-CHI(JT) + ELSEIF(MSTP(94).EQ.3) THEN + CALL PYZDIS(1,0,PMS(JT+4),ZZ) + CHI(JT)=ZZ + ELSE + CALL PYZDIS(1000,0,PMS(JT+4),ZZ) + CHI(JT)=ZZ + ENDIF + ENDIF + +C...Construct total transverse mass; reject if too large. + CHI(JT)=MAX(1D-8,MIN(1D0-1D-8,CHI(JT))) + PMS(JT)=PMS(JT+4)/CHI(JT)+PMS(JT+2)/(1D0-CHI(JT)) + IF(PMS(JT).GT.PSYS(JT,4)**2) THEN + IF(LOOP.LT.10) THEN + GOTO 370 + ELSE + MINT(51)=1 + MINT(57)=MINT(57)+1 + RETURN + ENDIF + ENDIF + PSYS(JT,3)=SQRT(MAX(0D0,PSYS(JT,4)**2-PMS(JT)))*(-1)**(JT-1) + VINT(158+JT)=CHI(JT) + +C...Subdivide longitudinal momentum according to value selected above. + PW1=CHI(JT)*(PSYS(JT,4)+ABS(PSYS(JT,3))) + P(IS(JT)+1,4)=0.5D0*(PW1+PMS(JT+4)/PW1) + P(IS(JT)+1,3)=0.5D0*(PW1-PMS(JT+4)/PW1)*(-1)**(JT-1) + P(IS(JT),4)=PSYS(JT,4)-P(IS(JT)+1,4) + P(IS(JT),3)=PSYS(JT,3)-P(IS(JT)+1,3) + ENDIF + 410 CONTINUE + N=I + +C...Check if longitudinal boosts needed - if so pick two systems. + PDEV=ABS(PSYS(0,4)+PSYS(1,4)+PSYS(2,4)-VINT(1))+ + &ABS(PSYS(0,3)+PSYS(1,3)+PSYS(2,3)) + IF(PDEV.LE.1D-6*VINT(1)) RETURN + IF(ISN(1).EQ.0) THEN + IR=0 + IL=2 + ELSEIF(ISN(2).EQ.0) THEN + IR=1 + IL=0 + ELSEIF(VINT(143).GT.0.2D0.AND.VINT(144).GT.0.2D0) THEN + IR=1 + IL=2 + ELSEIF(VINT(143).GT.0.2D0) THEN + IR=1 + IL=0 + ELSEIF(VINT(144).GT.0.2D0) THEN + IR=0 + IL=2 + ELSEIF(PMS(1)/PSYS(1,4)**2.GT.PMS(2)/PSYS(2,4)**2) THEN + IR=1 + IL=0 + ELSE + IR=0 + IL=2 + ENDIF + IG=3-IR-IL + +C...E+-pL wanted for system to be modified. + IF((IG.EQ.1.AND.ISN(1).EQ.0).OR.(IG.EQ.2.AND.ISN(2).EQ.0)) THEN + PPB=VINT(1) + PNB=VINT(1) + ELSE + PPB=VINT(1)-(PSYS(IG,4)+PSYS(IG,3)) + PNB=VINT(1)-(PSYS(IG,4)-PSYS(IG,3)) + ENDIF + +C...To keep x and Q2 in leptoproduction: do not count scattered lepton. + IF(IDISXQ.EQ.1.AND.IG.NE.0) THEN + PMTB=PPB*PNB + PMTR=PMS(IR) + PMTL=PMS(IL) + SQLAM=SQRT(MAX(0D0,(PMTB-PMTR-PMTL)**2-4D0*PMTR*PMTL)) + SQSGN=SIGN(1D0,PSYS(IR,3)*PSYS(IL,4)-PSYS(IL,3)*PSYS(IR,4)) + RKR=(PMTB+PMTR-PMTL+SQLAM*SQSGN)/(2D0*(PSYS(IR,4)+PSYS(IR,3)) + & *PNB) + RKL=(PMTB+PMTL-PMTR+SQLAM*SQSGN)/(2D0*(PSYS(IL,4)-PSYS(IL,3)) + & *PPB) + BER=(RKR**2-1D0)/(RKR**2+1D0) + BEL=-(RKL**2-1D0)/(RKL**2+1D0) + PPB=PPB-(PSYS(0,4)+PSYS(0,3)) + PNB=PNB-(PSYS(0,4)-PSYS(0,3)) + DO 420 J=1,4 + PSYS(0,J)=0D0 + 420 CONTINUE + DO 450 I=MINT(84)+1,NS + IF(K(I,1).GT.10) GOTO 450 + INCL=0 + IORIG=I + 430 IF(IORIG.EQ.LQOUT.OR.IORIG.EQ.LPIN+2) INCL=1 + IORIG=K(IORIG,3) + IF(IORIG.GT.LPIN) GOTO 430 + IF(INCL.EQ.0) GOTO 450 + DO 440 J=1,4 + PSYS(0,J)=PSYS(0,J)+P(I,J) + 440 CONTINUE + 450 CONTINUE + PMS(0)=MAX(0D0,PSYS(0,4)**2-PSYS(0,3)**2) + PPB=PPB+(PSYS(0,4)+PSYS(0,3)) + PNB=PNB+(PSYS(0,4)-PSYS(0,3)) + ENDIF + +C...Construct longitudinal boosts. + DPMTB=PPB*PNB + DPMTR=PMS(IR) + DPMTL=PMS(IL) + DSQLAM=SQRT(MAX(0D0,(DPMTB-DPMTR-DPMTL)**2-4D0*DPMTR*DPMTL)) + IF(DSQLAM.LE.1D-6*DPMTB) THEN + MINT(51)=1 + MINT(57)=MINT(57)+1 + RETURN + ENDIF + DSQSGN=SIGN(1D0,PSYS(IR,3)*PSYS(IL,4)-PSYS(IL,3)*PSYS(IR,4)) + DRKR=(DPMTB+DPMTR-DPMTL+DSQLAM*DSQSGN)/ + &(2D0*(PSYS(IR,4)+PSYS(IR,3))*PNB) + DRKL=(DPMTB+DPMTL-DPMTR+DSQLAM*DSQSGN)/ + &(2D0*(PSYS(IL,4)-PSYS(IL,3))*PPB) + DBER=(DRKR**2-1D0)/(DRKR**2+1D0) + DBEL=-(DRKL**2-1D0)/(DRKL**2+1D0) + +C...Perform longitudinal boosts. + IF(IR.EQ.1.AND.ISN(1).EQ.1.AND.DBER.LE.-0.99999999D0) THEN + P(IS(1),3)=0D0 + P(IS(1),4)=SQRT(P(IS(1),5)**2+P(IS(1),1)**2+P(IS(1),2)**2) + ELSEIF(IR.EQ.1) THEN + CALL PYROBO(IS(1),IS(1)+ISN(1)-1,0D0,0D0,0D0,0D0,DBER) + ELSEIF(IDISXQ.EQ.1) THEN + DO 470 I=I1,NS + INCL=0 + IORIG=I + 460 IF(IORIG.EQ.LQOUT.OR.IORIG.EQ.LPIN+2) INCL=1 + IORIG=K(IORIG,3) + IF(IORIG.GT.LPIN) GOTO 460 + IF(INCL.EQ.1) CALL PYROBO(I,I,0D0,0D0,0D0,0D0,DBER) + 470 CONTINUE + ELSE + CALL PYROBO(I1,NS,0D0,0D0,0D0,0D0,DBER) + ENDIF + IF(IL.EQ.2.AND.ISN(2).EQ.1.AND.DBEL.GE.0.99999999D0) THEN + P(IS(2),3)=0D0 + P(IS(2),4)=SQRT(P(IS(2),5)**2+P(IS(2),1)**2+P(IS(2),2)**2) + ELSEIF(IL.EQ.2) THEN + CALL PYROBO(IS(2),IS(2)+ISN(2)-1,0D0,0D0,0D0,0D0,DBEL) + ELSEIF(IDISXQ.EQ.1) THEN + DO 490 I=I1,NS + INCL=0 + IORIG=I + 480 IF(IORIG.EQ.LQOUT.OR.IORIG.EQ.LPIN+2) INCL=1 + IORIG=K(IORIG,3) + IF(IORIG.GT.LPIN) GOTO 480 + IF(INCL.EQ.1) CALL PYROBO(I,I,0D0,0D0,0D0,0D0,DBEL) + 490 CONTINUE + ELSE + CALL PYROBO(I1,NS,0D0,0D0,0D0,0D0,DBEL) + ENDIF + +C...Final check that energy-momentum conservation worked. + PESUM=0D0 + PZSUM=0D0 + DO 500 I=MINT(84)+1,N + IF(K(I,1).GT.10) GOTO 500 + PESUM=PESUM+P(I,4) + PZSUM=PZSUM+P(I,3) + 500 CONTINUE + PDEV=ABS(PESUM-VINT(1))+ABS(PZSUM) + IF(PDEV.GT.1D-4*VINT(1)) THEN + MINT(51)=1 + MINT(57)=MINT(57)+1 + RETURN + ENDIF + +C...Calculate rotation and boost from overall CM frame to +C...hadronic CM frame in leptoproduction. + MINT(91)=0 + IF(MINT(82).EQ.1.AND.(MINT(43).EQ.2.OR.MINT(43).EQ.3)) THEN + MINT(91)=1 + LESD=1 + IF(MINT(42).EQ.1) LESD=2 + LPIN=MINT(83)+3-LESD + +C...Sum upp momenta of everything not lepton or photon to define boost. + DO 510 J=1,4 + PSUM(J)=0D0 + 510 CONTINUE + DO 530 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 530 + IF(IABS(K(I,2)).GE.11.AND.IABS(K(I,2)).LE.20) GOTO 530 + IF(K(I,2).EQ.22) GOTO 530 + DO 520 J=1,4 + PSUM(J)=PSUM(J)+P(I,J) + 520 CONTINUE + 530 CONTINUE + VINT(223)=-PSUM(1)/PSUM(4) + VINT(224)=-PSUM(2)/PSUM(4) + VINT(225)=-PSUM(3)/PSUM(4) + +C...Boost incoming hadron to hadronic CM frame to determine rotations. + K(N+1,1)=1 + DO 540 J=1,5 + P(N+1,J)=P(LPIN,J) + V(N+1,J)=V(LPIN,J) + 540 CONTINUE + CALL PYROBO(N+1,N+1,0D0,0D0,VINT(223),VINT(224),VINT(225)) + VINT(222)=-PYANGL(P(N+1,1),P(N+1,2)) + CALL PYROBO(N+1,N+1,0D0,VINT(222),0D0,0D0,0D0) + IF(LESD.EQ.2) THEN + VINT(221)=-PYANGL(P(N+1,3),P(N+1,1)) + ELSE + VINT(221)=PYANGL(-P(N+1,3),P(N+1,1)) + ENDIF + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYDIFF +C...Handles diffractive and elastic scattering. + + SUBROUTINE PYDIFF + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + SAVE /PYJETS/,/PYDAT1/,/PYPARS/,/PYINT1/ + +C...Reset K, P and V vectors. Store incoming particles. + DO 110 JT=1,MSTP(126)+10 + I=MINT(83)+JT + DO 100 J=1,5 + K(I,J)=0 + P(I,J)=0D0 + V(I,J)=0D0 + 100 CONTINUE + 110 CONTINUE + N=MINT(84) + MINT(3)=0 + MINT(21)=0 + MINT(22)=0 + MINT(23)=0 + MINT(24)=0 + MINT(4)=4 + DO 130 JT=1,2 + I=MINT(83)+JT + K(I,1)=21 + K(I,2)=MINT(10+JT) + DO 120 J=1,5 + P(I,J)=VINT(285+5*JT+J) + 120 CONTINUE + 130 CONTINUE + MINT(6)=2 + +C...Subprocess; kinematics. + SQLAM=(VINT(2)-VINT(63)-VINT(64))**2-4D0*VINT(63)*VINT(64) + PZ=SQRT(SQLAM)/(2D0*VINT(1)) + DO 200 JT=1,2 + I=MINT(83)+JT + PE=(VINT(2)+VINT(62+JT)-VINT(65-JT))/(2D0*VINT(1)) + KFH=MINT(102+JT) + +C...Elastically scattered particle. (Except elastic GVMD states.) + IF(MINT(16+JT).LE.0.AND.(MINT(10+JT).NE.22.OR. + & MINT(106+JT).NE.3)) THEN + N=N+1 + K(N,1)=1 + K(N,2)=KFH + K(N,3)=I+2 + P(N,3)=PZ*(-1)**(JT+1) + P(N,4)=PE + P(N,5)=SQRT(VINT(62+JT)) + +C...Decay rho from elastic scattering of gamma with sin**2(theta) +C...distribution of decay products (in rho rest frame). + IF(KFH.EQ.113.AND.MINT(10+JT).EQ.22.AND.MSTP(102).EQ.1) THEN + NSAV=N + DBETAZ=P(N,3)/SQRT(P(N,3)**2+P(N,5)**2) + P(N,3)=0D0 + P(N,4)=P(N,5) + CALL PYDECY(NSAV) + IF(N.EQ.NSAV+2.AND.IABS(K(NSAV+1,2)).EQ.211) THEN + PHI=PYANGL(P(NSAV+1,1),P(NSAV+1,2)) + CALL PYROBO(NSAV+1,NSAV+2,0D0,-PHI,0D0,0D0,0D0) + THE=PYANGL(P(NSAV+1,3),P(NSAV+1,1)) + CALL PYROBO(NSAV+1,NSAV+2,-THE,0D0,0D0,0D0,0D0) + 140 CTHE=2D0*PYR(0)-1D0 + IF(1D0-CTHE**2.LT.PYR(0)) GOTO 140 + CALL PYROBO(NSAV+1,NSAV+2,ACOS(CTHE),PHI,0D0,0D0,0D0) + ENDIF + CALL PYROBO(NSAV,NSAV+2,0D0,0D0,0D0,0D0,DBETAZ) + ENDIF + +C...Diffracted particle: low-mass system to two particles. + ELSEIF(VINT(62+JT).LT.(VINT(66+JT)+PARP(103))**2) THEN + N=N+2 + K(N-1,1)=1 + K(N,1)=1 + K(N-1,3)=I+2 + K(N,3)=I+2 + PMMAS=SQRT(VINT(62+JT)) + NTRY=0 + 150 NTRY=NTRY+1 + IF(NTRY.LT.20) THEN + MINT(105)=MINT(102+JT) + MINT(109)=MINT(106+JT) + CALL PYSPLI(KFH,21,KFL1,KFL2) + CALL PYKFDI(KFL1,0,KFL3,KF1) + IF(KF1.EQ.0) GOTO 150 + CALL PYKFDI(KFL2,-KFL3,KFLDUM,KF2) + IF(KF2.EQ.0) GOTO 150 + ELSE + KF1=KFH + KF2=111 + ENDIF + PM1=PYMASS(KF1) + PM2=PYMASS(KF2) + IF(PM1+PM2+PARJ(64).GT.PMMAS) GOTO 150 + K(N-1,2)=KF1 + K(N,2)=KF2 + P(N-1,5)=PM1 + P(N,5)=PM2 + PZP=SQRT(MAX(0D0,(PMMAS**2-PM1**2-PM2**2)**2- + & 4D0*PM1**2*PM2**2))/(2D0*PMMAS) + P(N-1,3)=PZP + P(N,3)=-PZP + P(N-1,4)=SQRT(PM1**2+PZP**2) + P(N,4)=SQRT(PM2**2+PZP**2) + CALL PYROBO(N-1,N,ACOS(2D0*PYR(0)-1D0),PARU(2)*PYR(0), + & 0D0,0D0,0D0) + DBETAZ=PZ*(-1)**(JT+1)/SQRT(PZ**2+PMMAS**2) + CALL PYROBO(N-1,N,0D0,0D0,0D0,0D0,DBETAZ) + +C...Diffracted particle: valence quark kicked out. + ELSEIF(MSTP(101).EQ.1.OR.(MSTP(101).EQ.3.AND.PYR(0).LT. + & PARP(101))) THEN + N=N+2 + K(N-1,1)=2 + K(N,1)=1 + K(N-1,3)=I+2 + K(N,3)=I+2 + MINT(105)=MINT(102+JT) + MINT(109)=MINT(106+JT) + CALL PYSPLI(KFH,21,K(N,2),K(N-1,2)) + P(N-1,5)=PYMASS(K(N-1,2)) + P(N,5)=PYMASS(K(N,2)) + SQLAM=(VINT(62+JT)-P(N-1,5)**2-P(N,5)**2)**2- + & 4D0*P(N-1,5)**2*P(N,5)**2 + P(N-1,3)=(PE*SQRT(SQLAM)+PZ*(VINT(62+JT)+P(N-1,5)**2- + & P(N,5)**2))/(2D0*VINT(62+JT))*(-1)**(JT+1) + P(N-1,4)=SQRT(P(N-1,3)**2+P(N-1,5)**2) + P(N,3)=PZ*(-1)**(JT+1)-P(N-1,3) + P(N,4)=SQRT(P(N,3)**2+P(N,5)**2) + +C...Diffracted particle: gluon kicked out. + ELSE + N=N+3 + K(N-2,1)=2 + K(N-1,1)=2 + K(N,1)=1 + K(N-2,3)=I+2 + K(N-1,3)=I+2 + K(N,3)=I+2 + MINT(105)=MINT(102+JT) + MINT(109)=MINT(106+JT) + CALL PYSPLI(KFH,21,K(N,2),K(N-2,2)) + K(N-1,2)=21 + P(N-2,5)=PYMASS(K(N-2,2)) + P(N-1,5)=0D0 + P(N,5)=PYMASS(K(N,2)) +C...Energy distribution for particle into two jets. + 160 IMB=1 + IF(MOD(KFH/1000,10).NE.0) IMB=2 + CHIK=PARP(92+2*IMB) + IF(MSTP(92).LE.1) THEN + IF(IMB.EQ.1) CHI=PYR(0) + IF(IMB.EQ.2) CHI=1D0-SQRT(PYR(0)) + ELSEIF(MSTP(92).EQ.2) THEN + CHI=1D0-PYR(0)**(1D0/(1D0+CHIK)) + ELSEIF(MSTP(92).EQ.3) THEN + CUT=2D0*0.3D0/VINT(1) + 170 CHI=PYR(0)**2 + IF((CHI**2/(CHI**2+CUT**2))**0.25D0*(1D0-CHI)**CHIK.LT. + & PYR(0)) GOTO 170 + ELSEIF(MSTP(92).EQ.4) THEN + CUT=2D0*0.3D0/VINT(1) + CUTR=(1D0+SQRT(1D0+CUT**2))/CUT + 180 CHIR=CUT*CUTR**PYR(0) + CHI=(CHIR**2-CUT**2)/(2D0*CHIR) + IF((1D0-CHI)**CHIK.LT.PYR(0)) GOTO 180 + ELSE + CUT=2D0*0.3D0/VINT(1) + CUTA=CUT**(1D0-PARP(98)) + CUTB=(1D0+CUT)**(1D0-PARP(98)) + 190 CHI=(CUTA+PYR(0)*(CUTB-CUTA))**(1D0/(1D0-PARP(98))) + IF(((CHI+CUT)**2/(2D0*(CHI**2+CUT**2)))** + & (0.5D0*PARP(98))*(1D0-CHI)**CHIK.LT.PYR(0)) GOTO 190 + ENDIF + IF(CHI.LT.P(N,5)**2/VINT(62+JT).OR.CHI.GT.1D0-P(N-2,5)**2/ + & VINT(62+JT)) GOTO 160 + SQM=P(N-2,5)**2/(1D0-CHI)+P(N,5)**2/CHI + PZI=(PE*(VINT(62+JT)-SQM)+PZ*(VINT(62+JT)+SQM))/ + & (2D0*VINT(62+JT)) + PEI=SQRT(PZI**2+SQM) + PQQP=(1D0-CHI)*(PEI+PZI) + P(N-2,3)=0.5D0*(PQQP-P(N-2,5)**2/PQQP)*(-1)**(JT+1) + P(N-2,4)=SQRT(P(N-2,3)**2+P(N-2,5)**2) + P(N-1,4)=0.5D0*(VINT(62+JT)-SQM)/(PEI+PZI) + P(N-1,3)=P(N-1,4)*(-1)**JT + P(N,3)=PZI*(-1)**(JT+1)-P(N-2,3) + P(N,4)=SQRT(P(N,3)**2+P(N,5)**2) + ENDIF + +C...Documentation lines. + K(I+2,1)=21 + IF(MINT(16+JT).EQ.0) K(I+2,2)=KFH + IF(MINT(16+JT).NE.0.OR.(MINT(10+JT).EQ.22.AND. + & MINT(106+JT).EQ.3)) K(I+2,2)=10*(KFH/10) + K(I+2,3)=I + P(I+2,3)=PZ*(-1)**(JT+1) + P(I+2,4)=PE + P(I+2,5)=SQRT(VINT(62+JT)) + 200 CONTINUE + +C...Rotate outgoing partons/particles using cos(theta). + IF(VINT(23).LT.0.9D0) THEN + CALL PYROBO(MINT(83)+3,N,ACOS(VINT(23)),VINT(24),0D0,0D0,0D0) + ELSE + CALL PYROBO(MINT(83)+3,N,ASIN(VINT(59)),VINT(24),0D0,0D0,0D0) + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYDISG +C...Set up a DIS process as gamma* + f -> f, with beam remnant +C...and showering added consecutively. Photon flux by the PYGAGA +C...routine (if at all). + + SUBROUTINE PYDISG + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYSUBS/,/PYPARS/,/PYINT1/ +C...Local arrays. + DIMENSION PMS(4) + +C...Choice of subprocess, number of documentation lines + IDOC=7 + MINT(3)=IDOC-6 + MINT(4)=IDOC + IPU1=MINT(84)+1 + IPU2=MINT(84)+2 + IPU3=MINT(84)+3 + ISIDE=1 + IF(MINT(107).EQ.4) ISIDE=2 + +C...Reset K, P and V vectors. Store incoming particles + DO 120 JT=1,MSTP(126)+20 + I=MINT(83)+JT + DO 110 J=1,5 + K(I,J)=0 + P(I,J)=0D0 + V(I,J)=0D0 + 110 CONTINUE + 120 CONTINUE + DO 140 JT=1,2 + I=MINT(83)+JT + K(I,1)=21 + K(I,2)=MINT(10+JT) + DO 130 J=1,5 + P(I,J)=VINT(285+5*JT+J) + 130 CONTINUE + 140 CONTINUE + MINT(6)=2 + +C...Store incoming partons in hadronic CM-frame + DO 150 JT=1,2 + I=MINT(84)+JT + K(I,1)=14 + K(I,2)=MINT(14+JT) + K(I,3)=MINT(83)+2+JT + 150 CONTINUE + IF(MINT(15).EQ.22) THEN + P(MINT(84)+1,3)=0.5D0*(VINT(1)+VINT(307)/VINT(1)) + P(MINT(84)+1,4)=0.5D0*(VINT(1)-VINT(307)/VINT(1)) + P(MINT(84)+1,5)=-SQRT(VINT(307)) + P(MINT(84)+2,3)=-0.5D0*VINT(307)/VINT(1) + P(MINT(84)+2,4)=0.5D0*VINT(307)/VINT(1) + KFRES=MINT(16) + ISIDE=2 + ELSE + P(MINT(84)+1,3)=0.5D0*VINT(308)/VINT(1) + P(MINT(84)+1,4)=0.5D0*VINT(308)/VINT(1) + P(MINT(84)+2,3)=-0.5D0*(VINT(1)+VINT(308)/VINT(1)) + P(MINT(84)+2,4)=0.5D0*(VINT(1)-VINT(308)/VINT(1)) + P(MINT(84)+1,5)=-SQRT(VINT(308)) + KFRES=MINT(15) + ISIDE=1 + ENDIF + SIDESG=(-1D0)**(ISIDE-1) + +C...Copy incoming partons to documentation lines. + DO 170 JT=1,2 + I1=MINT(83)+4+JT + I2=MINT(84)+JT + K(I1,1)=21 + K(I1,2)=K(I2,2) + K(I1,3)=I1-2 + DO 160 J=1,5 + P(I1,J)=P(I2,J) + 160 CONTINUE + +C...Second copy for partons before ISR shower, since no such. + I1=MINT(83)+2+JT + K(I1,1)=21 + K(I1,2)=K(I2,2) + K(I1,3)=I1-2 + DO 165 J=1,5 + P(I1,J)=P(I2,J) + 165 CONTINUE + 170 CONTINUE + +C...Define initial partons. + NTRY=0 + 200 NTRY=NTRY+1 + IF(NTRY.GT.100) THEN + MINT(51)=1 + RETURN + ENDIF + +C...Scattered quark in hadronic CM frame. + I=MINT(83)+7 + K(IPU3,1)=3 + K(IPU3,2)=KFRES + K(IPU3,3)=I + P(IPU3,5)=PYMASS(KFRES) + P(IPU3,3)=P(IPU1,3)+P(IPU2,3) + P(IPU3,4)=P(IPU1,4)+P(IPU2,4) + P(IPU3,5)=0D0 + K(I,1)=21 + K(I,2)=KFRES + K(I,3)=MINT(83)+4+ISIDE + P(I,3)=P(IPU3,3) + P(I,4)=P(IPU3,4) + P(I,5)=P(IPU3,5) + N=IPU3 + MINT(21)=KFRES + MINT(22)=0 + +C...No primordial kT, or chosen according to truncated Gaussian or +C...exponential, or (for photon) predetermined or power law. + 220 IF(MINT(40+ISIDE).EQ.2.AND.MINT(10+ISIDE).NE.22) THEN + IF(MSTP(91).LE.0) THEN + PT=0D0 + ELSEIF(MSTP(91).EQ.1) THEN + PT=PARP(91)*SQRT(-LOG(PYR(0))) + ELSE + RPT1=PYR(0) + RPT2=PYR(0) + PT=-PARP(92)*LOG(RPT1*RPT2) + ENDIF + IF(PT.GT.PARP(93)) GOTO 220 + ELSEIF(MINT(106+ISIDE).EQ.3) THEN + PTA=SQRT(VINT(282+ISIDE)) + PTB=0D0 + IF(MSTP(66).EQ.5.AND.MSTP(93).EQ.1) THEN + PTB=PARP(99)*SQRT(-LOG(PYR(0))) + ELSEIF(MSTP(66).EQ.5.AND.MSTP(93).EQ.2) THEN + RPT1=PYR(0) + RPT2=PYR(0) + PTB=-PARP(99)*LOG(RPT1*RPT2) + ENDIF + IF(PTB.GT.PARP(100)) GOTO 220 + PT=SQRT(PTA**2+PTB**2+2D0*PTA*PTB*COS(PARU(2)*PYR(0))) + IF(NTRY.GT.10) PT=PT*0.8D0**(NTRY-10) + ELSEIF(IABS(MINT(14+ISIDE)).LE.8.OR.MINT(14+ISIDE).EQ.21) THEN + IF(MSTP(93).LE.0) THEN + PT=0D0 + ELSEIF(MSTP(93).EQ.1) THEN + PT=PARP(99)*SQRT(-LOG(PYR(0))) + ELSEIF(MSTP(93).EQ.2) THEN + RPT1=PYR(0) + RPT2=PYR(0) + PT=-PARP(99)*LOG(RPT1*RPT2) + ELSEIF(MSTP(93).EQ.3) THEN + HA=PARP(99)**2 + HB=PARP(100)**2 + PT=SQRT(MAX(0D0,HA*(HA+HB)/(HA+HB-PYR(0)*HB)-HA)) + ELSE + HA=PARP(99)**2 + HB=PARP(100)**2 + IF(MSTP(93).EQ.5) HB=MIN(VINT(48),PARP(100)**2) + PT=SQRT(MAX(0D0,HA*((HA+HB)/HA)**PYR(0)-HA)) + ENDIF + IF(PT.GT.PARP(100)) GOTO 220 + ELSE + PT=0D0 + ENDIF + VINT(156+ISIDE)=PT + PHI=PARU(2)*PYR(0) + P(IPU3,1)=PT*COS(PHI) + P(IPU3,2)=PT*SIN(PHI) + P(IPU3,4)=SQRT(P(IPU3,5)**2+PT**2+P(IPU3,3)**2) + PMS(3-ISIDE)=P(IPU3,5)**2+P(IPU3,1)**2+P(IPU3,2)**2 + PCP=P(IPU3,4)+ABS(P(IPU3,3)) + +C...Find one or two beam remnants. + MINT(105)=MINT(102+ISIDE) + MINT(109)=MINT(106+ISIDE) + CALL PYSPLI(MINT(10+ISIDE),MINT(12+ISIDE),KFLCH,KFLSP) + IF(MINT(51).NE.0) THEN + MINT(51)=0 + GOTO 200 + ENDIF + +C...Store first remnant parton, with colour info and kinematics. + I=N+1 + K(I,1)=1 + K(I,2)=KFLSP + K(I,3)=MINT(83)+ISIDE + P(I,5)=PYMASS(K(I,2)) + KCOL=KCHG(PYCOMP(KFLSP),2) + IF(KCOL.NE.0) THEN + K(I,1)=3 + KFLS=(3-KCOL*ISIGN(1,KFLSP))/2 + K(I,KFLS+3)=MSTU(5)*IPU3 + K(IPU3,6-KFLS)=MSTU(5)*I + ICOLR=I + ENDIF + IF(KFLCH.EQ.0) THEN + P(I,1)=-P(IPU3,1) + P(I,2)=-P(IPU3,2) + PMS(ISIDE)=P(I,5)**2+P(I,1)**2+P(I,2)**2 + P(I,3)=-P(IPU3,3) + P(I,4)=SQRT(PMS(ISIDE)+P(I,3)**2) + PRP=P(I,4)+ABS(P(I,3)) + +C...When extra remnant parton or hadron: store extra remnant. + ELSE + I=I+1 + K(I,1)=1 + K(I,2)=KFLCH + K(I,3)=MINT(83)+ISIDE + P(I,5)=PYMASS(K(I,2)) + KCOL=KCHG(PYCOMP(KFLCH),2) + IF(KCOL.NE.0) THEN + K(I,1)=3 + KFLS=(3-KCOL*ISIGN(1,KFLCH))/2 + K(I,KFLS+3)=MSTU(5)*IPU3 + K(IPU3,6-KFLS)=MSTU(5)*I + ICOLR=I + ENDIF + +C...Relative transverse momentum when two remnants. + LOOP=0 + 370 LOOP=LOOP+1 + CALL PYPTDI(1,P(I-1,1),P(I-1,2)) + P(I-1,1)=P(I-1,1)-0.5D0*P(IPU3,1) + P(I-1,2)=P(I-1,2)-0.5D0*P(IPU3,2) + PMS(3)=P(I-1,5)**2+P(I-1,1)**2+P(I-1,2)**2 + P(I,1)=-P(IPU3,1)-P(I-1,1) + P(I,2)=-P(IPU3,2)-P(I-1,2) + PMS(4)=P(I,5)**2+P(I,1)**2+P(I,2)**2 + +C...Relative distribution of energy for particle into jet plus particle. + IMB=1 + IF(MOD(MINT(10+ISIDE)/1000,10).NE.0) IMB=2 + IF(MSTP(94).LE.1) THEN + IF(IMB.EQ.1) CHI=PYR(0) + IF(IMB.EQ.2) CHI=1D0-SQRT(PYR(0)) + IF(MOD(KFLCH/1000,10).NE.0) CHI=1D0-CHI + ELSEIF(MSTP(94).EQ.2) THEN + CHI=1D0-PYR(0)**(1D0/(1D0+PARP(93+2*IMB))) + IF(MOD(KFLCH/1000,10).NE.0) CHI=1D0-CHI + ELSEIF(MSTP(94).EQ.3) THEN + CALL PYZDIS(1,0,PMS(4),ZZ) + CHI=ZZ + ELSE + CALL PYZDIS(1000,0,PMS(4),ZZ) + CHI=ZZ + ENDIF + +C...Construct total transverse mass; reject if too large. + CHI=MAX(1D-8,MIN(1D0-1D-8,CHI)) + PMS(ISIDE)=PMS(4)/CHI+PMS(3)/(1D0-CHI) + IF(PMS(ISIDE).GT.P(IPU3,4)**2) THEN + IF(LOOP.LT.10) GOTO 370 + GOTO 200 + ENDIF + VINT(158+ISIDE)=CHI + +C...Subdivide longitudinal momentum according to value selected above. + PRP=SQRT(PMS(ISIDE)+P(IPU3,3)**2)+ABS(P(IPU3,3)) + PW1=(1D0-CHI)*PRP + P(I-1,4)=0.5D0*(PW1+PMS(3)/PW1) + P(I-1,3)=0.5D0*(PW1-PMS(3)/PW1)*SIDESG + PW2=CHI*PRP + P(I,4)=0.5D0*(PW2+PMS(4)/PW2) + P(I,3)=0.5D0*(PW2-PMS(4)/PW2)*SIDESG + ENDIF + N=I + +C...Boost current and remnant systems to correct frame. + IF(SQRT(PMS(1))+SQRT(PMS(2)).GT.0.99D0*VINT(1)) GOTO 200 + DSQLAM=SQRT(MAX(0D0,(VINT(2)-PMS(1)-PMS(2))**2-4D0*PMS(1)*PMS(2))) + DRKC=(VINT(2)+PMS(3-ISIDE)-PMS(ISIDE)+DSQLAM)/ + &(2D0*VINT(1)*PCP) + DRKR=(VINT(2)+PMS(ISIDE)-PMS(3-ISIDE)+DSQLAM)/ + &(2D0*VINT(1)*PRP) + DBEC=-SIDESG*(DRKC**2-1D0)/(DRKC**2+1D0) + DBER=SIDESG*(DRKR**2-1D0)/(DRKR**2+1D0) + CALL PYROBO(IPU3,IPU3,0D0,0D0,0D0,0D0,DBEC) + CALL PYROBO(IPU3+1,N,0D0,0D0,0D0,0D0,DBER) + +C...Let current quark shower; recoil but no showering by colour partner. + QMAX=SQRT(VINT(309-ISIDE)) + MSTJ48=MSTJ(48) + MSTJ(48)=1 + PARJ86=PARJ(86) + PARJ(86)=0D0 + IF(MSTP(71).EQ.1) CALL PYSHOW(IPU3,ICOLR,QMAX) + MSTJ(48)=MSTJ48 + PARJ(86)=PARJ86 + + RETURN + END + +C********************************************************************* + +C...PYDOCU +C...Handles the documentation of the process in MSTI and PARI, +C...and also computes cross-sections based on accumulated statistics. + + SUBROUTINE PYDOCU + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3) + SAVE /PYJETS/,/PYDAT1/,/PYSUBS/,/PYPARS/,/PYINT1/,/PYINT2/, + &/PYINT5/ + +C...Calculate Monte Carlo estimates of cross-sections. + ISUB=MINT(1) + IF(MSTP(111).NE.-1) NGEN(ISUB,3)=NGEN(ISUB,3)+1 + NGEN(0,3)=NGEN(0,3)+1 + XSEC(0,3)=0D0 + DO 100 I=1,500 + IF(I.EQ.96.OR.I.EQ.97) THEN + XSEC(I,3)=0D0 + ELSEIF(MSUB(95).EQ.1.AND.(I.EQ.11.OR.I.EQ.12.OR.I.EQ.13.OR. + & I.EQ.28.OR.I.EQ.53.OR.I.EQ.68)) THEN + XSEC(I,3)=XSEC(96,2)*NGEN(I,3)/MAX(1D0,DBLE(NGEN(96,1))* + & DBLE(NGEN(96,2))) + ELSEIF(MSUB(I).EQ.0.OR.NGEN(I,1).EQ.0) THEN + XSEC(I,3)=0D0 + ELSEIF(NGEN(I,2).EQ.0) THEN + XSEC(I,3)=XSEC(I,2)*NGEN(0,3)/(DBLE(NGEN(I,1))* + & DBLE(NGEN(0,2))) + ELSE + XSEC(I,3)=XSEC(I,2)*NGEN(I,3)/(DBLE(NGEN(I,1))* + & DBLE(NGEN(I,2))) + ENDIF + XSEC(0,3)=XSEC(0,3)+XSEC(I,3) + 100 CONTINUE + +C...Rescale to known low-pT cross-section for standard QCD processes. + IF(MSUB(95).EQ.1) THEN + XSECH=XSEC(11,3)+XSEC(12,3)+XSEC(13,3)+XSEC(28,3)+XSEC(53,3)+ + & XSEC(68,3)+XSEC(95,3) + XSECW=XSEC(97,2)/MAX(1D0,DBLE(NGEN(97,1))) + IF(XSECH.GT.1D-20.AND.XSECW.GT.1D-20) THEN + FAC=XSECW/XSECH + XSEC(11,3)=FAC*XSEC(11,3) + XSEC(12,3)=FAC*XSEC(12,3) + XSEC(13,3)=FAC*XSEC(13,3) + XSEC(28,3)=FAC*XSEC(28,3) + XSEC(53,3)=FAC*XSEC(53,3) + XSEC(68,3)=FAC*XSEC(68,3) + XSEC(95,3)=FAC*XSEC(95,3) + XSEC(0,3)=XSEC(0,3)-XSECH+XSECW + ENDIF + ENDIF + +C...Save information for gamma-p and gamma-gamma. + IF(MINT(121).GT.1) THEN + IGA=MINT(122) + CALL PYSAVE(2,IGA) + CALL PYSAVE(5,0) + ENDIF + +C...Reset information on hard interaction. + DO 110 J=1,200 + MSTI(J)=0 + PARI(J)=0D0 + 110 CONTINUE + +C...Copy integer valued information from MINT into MSTI. + DO 120 J=1,32 + MSTI(J)=MINT(J) + 120 CONTINUE + IF(MINT(121).GT.1) MSTI(9)=MINT(122) + +C...Store cross-section variables in PARI. + PARI(1)=XSEC(0,3) + PARI(2)=XSEC(0,3)/MINT(5) + PARI(9)=VINT(99) + PARI(10)=VINT(100) + VINT(98)=VINT(98)+VINT(100) + IF(MSTP(142).EQ.1) PARI(2)=XSEC(0,3)/VINT(98) + +C...Store kinematics variables in PARI. + PARI(11)=VINT(1) + PARI(12)=VINT(2) + IF(ISUB.NE.95) THEN + DO 130 J=13,26 + PARI(J)=VINT(30+J) + 130 CONTINUE + PARI(31)=VINT(141) + PARI(32)=VINT(142) + PARI(33)=VINT(41) + PARI(34)=VINT(42) + PARI(35)=PARI(33)-PARI(34) + PARI(36)=VINT(21) + PARI(37)=VINT(22) + PARI(38)=VINT(26) + PARI(39)=VINT(157) + PARI(40)=VINT(158) + PARI(41)=VINT(23) + PARI(42)=2D0*VINT(47)/VINT(1) + ENDIF + +C...Store information on scattered partons in PARI. + IF(ISUB.NE.95.AND.MINT(7)*MINT(8).NE.0) THEN + DO 140 IS=7,8 + I=MINT(IS) + PARI(36+IS)=P(I,3)/VINT(1) + PARI(38+IS)=P(I,4)/VINT(1) + PR=MAX(1D-20,P(I,5)**2+P(I,1)**2+P(I,2)**2) + PARI(40+IS)=SIGN(LOG(MIN((SQRT(PR+P(I,3)**2)+ABS(P(I,3)))/ + & SQRT(PR),1D20)),P(I,3)) + PR=MAX(1D-20,P(I,1)**2+P(I,2)**2) + PARI(42+IS)=SIGN(LOG(MIN((SQRT(PR+P(I,3)**2)+ABS(P(I,3)))/ + & SQRT(PR),1D20)),P(I,3)) + PARI(44+IS)=P(I,3)/SQRT(1D-20+P(I,1)**2+P(I,2)**2+P(I,3)**2) + PARI(46+IS)=PYANGL(P(I,3),SQRT(P(I,1)**2+P(I,2)**2)) + PARI(48+IS)=PYANGL(P(I,1),P(I,2)) + 140 CONTINUE + ENDIF + +C...Store sum up transverse and longitudinal momenta. + PARI(65)=2D0*PARI(17) + IF(ISUB.LE.90.OR.ISUB.GE.95) THEN + DO 150 I=MSTP(126)+1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 150 + PT=SQRT(P(I,1)**2+P(I,2)**2) + PARI(69)=PARI(69)+PT + IF(I.LE.MINT(52)) PARI(66)=PARI(66)+PT + IF(I.GT.MINT(52).AND.I.LE.MINT(53)) PARI(68)=PARI(68)+PT + 150 CONTINUE + PARI(67)=PARI(68) + PARI(71)=VINT(151) + PARI(72)=VINT(152) + PARI(73)=VINT(151) + PARI(74)=VINT(152) + ELSE + PARI(66)=PARI(65) + PARI(69)=PARI(65) + ENDIF + +C...Store various other pieces of information into PARI. + PARI(61)=VINT(148) + PARI(75)=VINT(155) + PARI(76)=VINT(156) + PARI(77)=VINT(159) + PARI(78)=VINT(160) + PARI(81)=VINT(138) + +C...Store information on lepton -> lepton + gamma in PYGAGA. + MSTI(71)=MINT(141) + MSTI(72)=MINT(142) + PARI(101)=VINT(301) + PARI(102)=VINT(302) + DO 160 I=103,114 + PARI(I)=VINT(I+202) + 160 CONTINUE + +C...Set information for PYTABU. + IF(ISET(ISUB).EQ.1.OR.ISET(ISUB).EQ.3) THEN + MSTU(161)=MINT(21) + MSTU(162)=0 + ELSEIF(ISET(ISUB).EQ.5) THEN + MSTU(161)=MINT(23) + MSTU(162)=0 + ELSE + MSTU(161)=MINT(21) + MSTU(162)=MINT(22) + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYFRAM +C...Performs transformations between different coordinate frames. + + SUBROUTINE PYFRAM(IFRAME) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + SAVE /PYDAT1/,/PYPARS/,/PYINT1/ + +C...Check that transformation can and should be done. + IF(IFRAME.EQ.1.OR.IFRAME.EQ.2.OR.(IFRAME.EQ.3.AND. + &MINT(91).EQ.1)) THEN + IF(IFRAME.EQ.MINT(6)) RETURN + ELSE + WRITE(MSTU(11),5000) IFRAME,MINT(6) + RETURN + ENDIF + + IF(MINT(6).EQ.1) THEN +C...Transform from fixed target or user specified frame to +C...overall CM frame. + CALL PYROBO(0,0,0D0,0D0,-VINT(8),-VINT(9),-VINT(10)) + CALL PYROBO(0,0,0D0,-VINT(7),0D0,0D0,0D0) + CALL PYROBO(0,0,-VINT(6),0D0,0D0,0D0,0D0) + ELSEIF(MINT(6).EQ.3) THEN +C...Transform from hadronic CM frame in DIS to overall CM frame. + CALL PYROBO(0,0,-VINT(221),-VINT(222),-VINT(223),-VINT(224), + & -VINT(225)) + ENDIF + + IF(IFRAME.EQ.1) THEN +C...Transform from overall CM frame to fixed target or user specified +C...frame. + CALL PYROBO(0,0,VINT(6),VINT(7),VINT(8),VINT(9),VINT(10)) + ELSEIF(IFRAME.EQ.3) THEN +C...Transform from overall CM frame to hadronic CM frame in DIS. + CALL PYROBO(0,0,0D0,0D0,VINT(223),VINT(224),VINT(225)) + CALL PYROBO(0,0,0D0,VINT(222),0D0,0D0,0D0) + CALL PYROBO(0,0,VINT(221),0D0,0D0,0D0,0D0) + ENDIF + +C...Set information about new frame. + MINT(6)=IFRAME + MSTI(6)=IFRAME + + 5000 FORMAT(1X,'Error: illegal values in subroutine PYFRAM.',1X, + &'No transformation performed.'/1X,'IFRAME =',1X,I5,'; MINT(6) =', + &1X,I5) + + RETURN + END + +C********************************************************************* + +C...PYWIDT +C...Calculates full and partial widths of resonances. + + SUBROUTINE PYWIDT(KFLR,SH,WDTP,WDTE) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT4/MWID(500),WIDS(500,5) + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2), + &SFMIX(16,4) + SAVE /PYDAT1/,/PYDAT2/,/PYDAT3/,/PYSUBS/,/PYPARS/,/PYINT1/, + &/PYINT4/,/PYMSSM/,/PYSSMT/ +C...Local arrays and saved variables. + DIMENSION WDTP(0:200),WDTE(0:200,0:5),MOFSV(3,2),WIDWSV(3,2), + &WID2SV(3,2),WDTPP(0:200),WDTEP(0:200,0:5) + SAVE MOFSV,WIDWSV,WID2SV + DATA MOFSV/6*0/,WIDWSV/6*0D0/,WID2SV/6*0D0/ + +C...Compressed code and sign; mass. + KFLA=IABS(KFLR) + KFLS=ISIGN(1,KFLR) + KC=PYCOMP(KFLA) + SHR=SQRT(SH) + PMR=PMAS(KC,1) + +C...Reset width information. + DO 110 I=0,200 + WDTP(I)=0D0 + DO 100 J=0,5 + WDTE(I,J)=0D0 + 100 CONTINUE + 110 CONTINUE + +C...Not to be treated as a resonance: return. + IF((MWID(KC).LE.0.OR.MWID(KC).GE.4).AND.KFLA.NE.21.AND. + &KFLA.NE.22) THEN + WDTP(0)=1D0 + WDTE(0,0)=1D0 + MINT(61)=0 + MINT(62)=0 + MINT(63)=0 + RETURN + +C...Treatment as a resonance based on tabulated branching ratios. + ELSEIF(MWID(KC).EQ.2.OR.(MWID(KC).EQ.3.AND.MINT(63).EQ.0)) THEN +C...Loop over possible decay channels; skip irrelevant ones. + DO 120 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 120 + +C...Read out decay products and nominal masses. + KFD1=KFDP(IDC,1) + KFC1=PYCOMP(KFD1) + IF(KCHG(KFC1,3).EQ.1) KFD1=KFLS*KFD1 + PM1=PMAS(KFC1,1) + KFD2=KFDP(IDC,2) + KFC2=PYCOMP(KFD2) + IF(KCHG(KFC2,3).EQ.1) KFD2=KFLS*KFD2 + PM2=PMAS(KFC2,1) + KFD3=KFDP(IDC,3) + PM3=0D0 + IF(KFD3.NE.0) THEN + KFC3=PYCOMP(KFD3) + IF(KCHG(KFC3,3).EQ.1) KFD3=KFLS*KFD3 + PM3=PMAS(KFC3,1) + ENDIF + +C...Naive partial width and alternative threshold factors. + WDTP(I)=PMAS(KC,2)*BRAT(IDC)*(SHR/PMR) + IF(MDME(IDC,2).GE.51.AND.MDME(IDC,2).LE.53.AND. + & PM1+PM2+PM3.GE.SHR) THEN + WDTP(I)=0D0 + ELSEIF(MDME(IDC,2).EQ.52.AND.KFD3.EQ.0) THEN + WDTP(I)=WDTP(I)*SQRT(MAX(0D0,(SH-PM1**2-PM2**2)**2- + & 4D0*PM1**2*PM2**2))/SH + ELSEIF(MDME(IDC,2).EQ.52) THEN + PMA=MAX(PM1,PM2,PM3) + PMC=MIN(PM1,PM2,PM3) + PMB=PM1+PM2+PM3-PMA-PMC + PMBC=PMB+PMC+0.5D0*(SHR-PMA-PMC-PMC) + PMAN=PMA**2/SH + PMBN=PMB**2/SH + PMCN=PMC**2/SH + PMBCN=PMBC**2/SH + WDTP(I)=WDTP(I)*SQRT(MAX(0D0, + & ((1D0-PMAN-PMBCN)**2-4D0*PMAN*PMBCN)* + & ((PMBCN-PMBN-PMCN)**2-4D0*PMBN*PMCN)))* + & ((SHR-PMA)**2-(PMB+PMC)**2)* + & (1D0+0.25D0*(PMA+PMB+PMC)/SHR)/ + & ((1D0-PMBCN)*PMBCN*SH) + ELSEIF(MDME(IDC,2).EQ.53.AND.KFD3.EQ.0) THEN + WDTP(I)=WDTP(I)*SQRT( + & MAX(0D0,(SH-PM1**2-PM2**2)**2-4D0*PM1**2*PM2**2)/ + & MAX(1D-4,(PMR**2-PM1**2-PM2**2)**2-4D0*PM1**2*PM2**2)) + ELSEIF(MDME(IDC,2).EQ.53) THEN + PMA=MAX(PM1,PM2,PM3) + PMC=MIN(PM1,PM2,PM3) + PMB=PM1+PM2+PM3-PMA-PMC + PMBC=PMB+PMC+0.5D0*(SHR-PMA-PMB-PMC) + PMAN=PMA**2/SH + PMBN=PMB**2/SH + PMCN=PMC**2/SH + PMBCN=PMBC**2/SH + FACACT=SQRT(MAX(0D0, + & ((1D0-PMAN-PMBCN)**2-4D0*PMAN*PMBCN)* + & ((PMBCN-PMBN-PMCN)**2-4D0*PMBN*PMCN)))* + & ((SHR-PMA)**2-(PMB+PMC)**2)* + & (1D0+0.25D0*(PMA+PMB+PMC)/SHR)/ + & ((1D0-PMBCN)*PMBCN*SH) + PMBC=PMB+PMC+0.5D0*(PMR-PMA-PMB-PMC) + PMAN=PMA**2/PMR**2 + PMBN=PMB**2/PMR**2 + PMCN=PMC**2/PMR**2 + PMBCN=PMBC**2/PMR**2 + FACNOM=SQRT(MAX(0D0, + & ((1D0-PMAN-PMBCN)**2-4D0*PMAN*PMBCN)* + & ((PMBCN-PMBN-PMCN)**2-4D0*PMBN*PMCN)))* + & ((PMR-PMA)**2-(PMB+PMC)**2)* + & (1D0+0.25D0*(PMA+PMB+PMC)/PMR)/ + & ((1D0-PMBCN)*PMBCN*PMR**2) + WDTP(I)=WDTP(I)*FACACT/MAX(1D-6,FACNOM) + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + +C...Calculate secondary width (at most two identical/opposite). + WID2=1D0 + IF(MDME(IDC,1).GT.0) THEN + IF(KFD2.EQ.KFD1) THEN + IF(KCHG(KFC1,3).EQ.0) THEN + WID2=WIDS(KFC1,1) + ELSEIF(KFD1.GT.0) THEN + WID2=WIDS(KFC1,4) + ELSE + WID2=WIDS(KFC1,5) + ENDIF + IF(KFD3.GT.0) THEN + WID2=WID2*WIDS(KFC3,2) + ELSEIF(KFD3.LT.0) THEN + WID2=WID2*WIDS(KFC3,3) + ENDIF + ELSEIF(KFD2.EQ.-KFD1) THEN + WID2=WIDS(KFC1,1) + IF(KFD3.GT.0) THEN + WID2=WID2*WIDS(KFC3,2) + ELSEIF(KFD3.LT.0) THEN + WID2=WID2*WIDS(KFC3,3) + ENDIF + ELSEIF(KFD3.EQ.KFD1) THEN + IF(KCHG(KFC1,3).EQ.0) THEN + WID2=WIDS(KFC1,1) + ELSEIF(KFD1.GT.0) THEN + WID2=WIDS(KFC1,4) + ELSE + WID2=WIDS(KFC1,5) + ENDIF + IF(KFD2.GT.0) THEN + WID2=WID2*WIDS(KFC2,2) + ELSEIF(KFD2.LT.0) THEN + WID2=WID2*WIDS(KFC2,3) + ENDIF + ELSEIF(KFD3.EQ.-KFD1) THEN + WID2=WIDS(KFC1,1) + IF(KFD2.GT.0) THEN + WID2=WID2*WIDS(KFC2,2) + ELSEIF(KFD2.LT.0) THEN + WID2=WID2*WIDS(KFC2,3) + ENDIF + ELSEIF(KFD3.EQ.KFD2) THEN + IF(KCHG(KFC2,3).EQ.0) THEN + WID2=WIDS(KFC2,1) + ELSEIF(KFD2.GT.0) THEN + WID2=WIDS(KFC2,4) + ELSE + WID2=WIDS(KFC2,5) + ENDIF + IF(KFD1.GT.0) THEN + WID2=WID2*WIDS(KFC1,2) + ELSEIF(KFD1.LT.0) THEN + WID2=WID2*WIDS(KFC1,3) + ENDIF + ELSEIF(KFD3.EQ.-KFD2) THEN + WID2=WIDS(KFC2,1) + IF(KFD1.GT.0) THEN + WID2=WID2*WIDS(KFC1,2) + ELSEIF(KFD1.LT.0) THEN + WID2=WID2*WIDS(KFC1,3) + ENDIF + ELSE + IF(KFD1.GT.0) THEN + WID2=WIDS(KFC1,2) + ELSE + WID2=WIDS(KFC1,3) + ENDIF + IF(KFD2.GT.0) THEN + WID2=WID2*WIDS(KFC2,2) + ELSE + WID2=WID2*WIDS(KFC2,3) + ENDIF + IF(KFD3.GT.0) THEN + WID2=WID2*WIDS(KFC3,2) + ELSEIF(KFD3.LT.0) THEN + WID2=WID2*WIDS(KFC3,3) + ENDIF + ENDIF + +C...Store effective widths according to case. + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 120 CONTINUE +C...Return. + MINT(61)=0 + MINT(62)=0 + MINT(63)=0 + RETURN + ENDIF + +C...Here begins detailed dynamical calculation of resonance widths. +C...Shared treatment of Higgs states. + KFHIGG=25 + IHIGG=1 + IF(KFLA.EQ.35.OR.KFLA.EQ.36) THEN + KFHIGG=KFLA + IHIGG=KFLA-33 + ENDIF + +C...Common electroweak and strong constants. + XW=PARU(102) + XWV=XW + IF(MSTP(8).GE.2) XW=1D0-(PMAS(24,1)/PMAS(23,1))**2 + XW1=1D0-XW + AEM=PYALEM(SH) + IF(MSTP(8).GE.1) AEM=SQRT(2D0)*PARU(105)*PMAS(24,1)**2*XW/PARU(1) + AS=PYALPS(SH) + RADC=1D0+AS/PARU(1) + + IF(KFLA.EQ.6) THEN +C...t quark. + FAC=(AEM/(16D0*XW))*(SH/PMAS(24,1)**2)*SHR + RADCT=1D0-2.5D0*AS/PARU(1) + DO 130 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 130 + RM1=PMAS(PYCOMP(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(PYCOMP(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 130 + WID2=1D0 + IF(I.GE.4.AND.I.LE.7) THEN +C...t -> W + q; including approximate QCD correction factor. + WDTP(I)=FAC*VCKM(3,I-3)*RADCT* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))* + & ((1D0-RM2)**2+(1D0+RM2)*RM1-2D0*RM1**2) + IF(KFLR.GT.0) THEN + WID2=WIDS(24,2) + IF(I.EQ.7) WID2=WID2*WIDS(7,2) + ELSE + WID2=WIDS(24,3) + IF(I.EQ.7) WID2=WID2*WIDS(7,3) + ENDIF + ELSEIF(I.EQ.9) THEN +C...t -> H + b. + WDTP(I)=FAC*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))* + & ((1D0+RM2-RM1)*(RM2*PARU(141)**2+1D0/PARU(141)**2)+4D0*RM2) + WID2=WIDS(37,2) + IF(KFLR.LT.0) WID2=WIDS(37,3) +CMRENNA++ + ELSEIF(I.GE.10.AND.I.LE.13.AND.IMSS(1).NE.0) THEN +C...t -> ~t + ~chi_i0, i = 1, 2, 3 or 4. + BETA=ATAN(RMSS(5)) + SINB=SIN(BETA) + TANW=SQRT(PARU(102)/(1D0-PARU(102))) + ET=KCHG(6,1)/3D0 + T3L=SIGN(0.5D0,ET) + KFC1=PYCOMP(KFDP(IDC,1)) + KFC2=PYCOMP(KFDP(IDC,2)) + PMNCHI=PMAS(KFC1,1) + PMSTOP=PMAS(KFC2,1) + IF(SHR.GT.PMNCHI+PMSTOP) THEN + IZ=I-9 + AL=SHR*ZMIX(IZ,4)/(2.0D0*PMAS(24,1)*SINB) + AR=-ET*ZMIX(IZ,1)*TANW + BL=T3L*(ZMIX(IZ,2)-ZMIX(IZ,1)*TANW)-AR + BR=AL + FL=SFMIX(6,1)*AL+SFMIX(6,2)*AR + FR=SFMIX(6,1)*BL+SFMIX(6,2)*BR + PCM=SQRT((SH-(PMNCHI+PMSTOP)**2)* + & (SH-(PMNCHI-PMSTOP)**2))/(2D0*SHR) + WDTP(I)=(0.5D0*PYALEM(SH)/PARU(102))*PCM*((FL**2+FR**2)* + & (SH+PMNCHI**2-PMSTOP**2)+SMZ(IZ)*4D0*SHR*FL*FR)/SH + IF(KFLR.GT.0) THEN + WID2=WIDS(KFC1,2)*WIDS(KFC2,2) + ELSE + WID2=WIDS(KFC1,2)*WIDS(KFC2,3) + ENDIF + ENDIF + ELSEIF(I.EQ.14.AND.IMSS(1).NE.0) THEN +C...t -> ~g + ~t + KFC1=PYCOMP(KFDP(IDC,1)) + KFC2=PYCOMP(KFDP(IDC,2)) + PMNCHI=PMAS(KFC1,1) + PMSTOP=PMAS(KFC2,1) + IF(SHR.GT.PMNCHI+PMSTOP) THEN + FL=SFMIX(6,1) + FR=-SFMIX(6,2) + PCM=SQRT((SH-(PMNCHI+PMSTOP)**2)* + & (SH-(PMNCHI-PMSTOP)**2))/(2D0*SHR) + WDTP(I)=4D0/3D0*0.5D0*PYALPS(SH)*PCM*((FL**2+FR**2)* + & (SH+PMNCHI**2-PMSTOP**2)+PMNCHI*4D0*SHR*FL*FR)/SH + IF(KFLR.GT.0) THEN + WID2=WIDS(KFC1,2)*WIDS(KFC2,2) + ELSE + WID2=WIDS(KFC1,2)*WIDS(KFC2,3) + ENDIF + ENDIF + ELSEIF(I.EQ.15.AND.IMSS(1).NE.0) THEN +C...t -> ~gravitino + ~t + XMP2=RMSS(29)**2 + KFC1=PYCOMP(KFDP(IDC,1)) + XMGR2=PMAS(KFC1,1)**2 + WDTP(I)=SH**2*SHR/(96D0*PARU(1)*XMP2*XMGR2)*(1D0-RM2)**4 + KFC2=PYCOMP(KFDP(IDC,2)) + WID2=WIDS(KFC2,2) + IF(KFLR.LT.0) WID2=WIDS(KFC2,3) +CMRENNA-- + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 130 CONTINUE + + ELSEIF(KFLA.EQ.7) THEN +C...b' quark. + FAC=(AEM/(16D0*XW))*(SH/PMAS(24,1)**2)*SHR + DO 140 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 140 + RM1=PMAS(PYCOMP(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(PYCOMP(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 140 + WID2=1D0 + IF(I.GE.4.AND.I.LE.7) THEN +C...b' -> W + q. + WDTP(I)=FAC*VCKM(I-3,4)* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))* + & ((1D0-RM2)**2+(1D0+RM2)*RM1-2D0*RM1**2) + IF(KFLR.GT.0) THEN + WID2=WIDS(24,3) + IF(I.EQ.6) WID2=WID2*WIDS(6,2) + IF(I.EQ.7) WID2=WID2*WIDS(8,2) + ELSE + WID2=WIDS(24,2) + IF(I.EQ.6) WID2=WID2*WIDS(6,3) + IF(I.EQ.7) WID2=WID2*WIDS(8,3) + ENDIF + WID2=WIDS(24,3) + IF(KFLR.LT.0) WID2=WIDS(24,2) + ELSEIF(I.EQ.9.OR.I.EQ.10) THEN +C...b' -> H + q. + WDTP(I)=FAC*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))* + & ((1D0+RM2-RM1)*(PARU(141)**2+RM2/PARU(141)**2)+4D0*RM2) + IF(KFLR.GT.0) THEN + WID2=WIDS(37,3) + IF(I.EQ.10) WID2=WID2*WIDS(6,2) + ELSE + WID2=WIDS(37,2) + IF(I.EQ.10) WID2=WID2*WIDS(6,3) + ENDIF + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 140 CONTINUE + + ELSEIF(KFLA.EQ.8) THEN +C...t' quark. + FAC=(AEM/(16D0*XW))*(SH/PMAS(24,1)**2)*SHR + DO 150 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 150 + RM1=PMAS(PYCOMP(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(PYCOMP(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 150 + WID2=1D0 + IF(I.GE.4.AND.I.LE.7) THEN +C...t' -> W + q. + WDTP(I)=FAC*VCKM(4,I-3)* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))* + & ((1D0-RM2)**2+(1D0+RM2)*RM1-2D0*RM1**2) + IF(KFLR.GT.0) THEN + WID2=WIDS(24,2) + IF(I.EQ.7) WID2=WID2*WIDS(7,2) + ELSE + WID2=WIDS(24,3) + IF(I.EQ.7) WID2=WID2*WIDS(7,3) + ENDIF + ELSEIF(I.EQ.9.OR.I.EQ.10) THEN +C...t' -> H + q. + WDTP(I)=FAC*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))* + & ((1D0+RM2-RM1)*(RM2*PARU(141)**2+1D0/PARU(141)**2)+4D0*RM2) + IF(KFLR.GT.0) THEN + WID2=WIDS(37,2) + IF(I.EQ.10) WID2=WID2*WIDS(7,2) + ELSE + WID2=WIDS(37,3) + IF(I.EQ.10) WID2=WID2*WIDS(7,3) + ENDIF + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 150 CONTINUE + + ELSEIF(KFLA.EQ.17) THEN +C...tau' lepton. + FAC=(AEM/(16D0*XW))*(SH/PMAS(24,1)**2)*SHR + DO 160 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 160 + RM1=PMAS(PYCOMP(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(PYCOMP(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 160 + WID2=1D0 + IF(I.EQ.3) THEN +C...tau' -> W + nu'_tau. + WDTP(I)=FAC*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))* + & ((1D0-RM2)**2+(1D0+RM2)*RM1-2D0*RM1**2) + IF(KFLR.GT.0) THEN + WID2=WIDS(24,3) + WID2=WID2*WIDS(18,2) + ELSE + WID2=WIDS(24,2) + WID2=WID2*WIDS(18,3) + ENDIF + ELSEIF(I.EQ.5) THEN +C...tau' -> H + nu'_tau. + WDTP(I)=FAC*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))* + & ((1D0+RM2-RM1)*(PARU(141)**2+RM2/PARU(141)**2)+4D0*RM2) + IF(KFLR.GT.0) THEN + WID2=WIDS(37,3) + WID2=WID2*WIDS(18,2) + ELSE + WID2=WIDS(37,2) + WID2=WID2*WIDS(18,3) + ENDIF + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 160 CONTINUE + + ELSEIF(KFLA.EQ.18) THEN +C...nu'_tau neutrino. + FAC=(AEM/(16D0*XW))*(SH/PMAS(24,1)**2)*SHR + DO 170 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 170 + RM1=PMAS(PYCOMP(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(PYCOMP(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 170 + WID2=1D0 + IF(I.EQ.2) THEN +C...nu'_tau -> W + tau'. + WDTP(I)=FAC*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))* + & ((1D0-RM2)**2+(1D0+RM2)*RM1-2D0*RM1**2) + IF(KFLR.GT.0) THEN + WID2=WIDS(24,2) + WID2=WID2*WIDS(17,2) + ELSE + WID2=WIDS(24,3) + WID2=WID2*WIDS(17,3) + ENDIF + ELSEIF(I.EQ.3) THEN +C...nu'_tau -> H + tau'. + WDTP(I)=FAC*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))* + & ((1D0+RM2-RM1)*(RM2*PARU(141)**2+1D0/PARU(141)**2)+4D0*RM2) + IF(KFLR.GT.0) THEN + WID2=WIDS(37,2) + WID2=WID2*WIDS(17,2) + ELSE + WID2=WIDS(37,3) + WID2=WID2*WIDS(17,3) + ENDIF + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 170 CONTINUE + + ELSEIF(KFLA.EQ.21) THEN +C...QCD: +C***Note that widths are not given in dimensional quantities here. + DO 180 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 180 + RM1=PMAS(IABS(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(IABS(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 180 + WID2=1D0 + IF(I.LE.8) THEN +C...QCD -> q + qbar + WDTP(I)=(1D0+2D0*RM1)*SQRT(MAX(0D0,1D0-4D0*RM1)) + IF(I.EQ.6) WID2=WIDS(6,1) + IF((I.EQ.7.OR.I.EQ.8)) WID2=WIDS(I,1) + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 180 CONTINUE + + ELSEIF(KFLA.EQ.22) THEN +C...QED photon. +C***Note that widths are not given in dimensional quantities here. + DO 190 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 190 + RM1=PMAS(IABS(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(IABS(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 190 + WID2=1D0 + IF(I.LE.8) THEN +C...QED -> q + qbar. + EF=KCHG(I,1)/3D0 + FCOF=3D0*RADC + IF(I.GE.6.AND.MSTP(35).GE.1) FCOF=FCOF*PYHFTH(SH,SH*RM1,1D0) + WDTP(I)=FCOF*EF**2*(1D0+2D0*RM1)*SQRT(MAX(0D0,1D0-4D0*RM1)) + IF(I.EQ.6) WID2=WIDS(6,1) + IF((I.EQ.7.OR.I.EQ.8)) WID2=WIDS(I,1) + ELSEIF(I.LE.12) THEN +C...QED -> l+ + l-. + EF=KCHG(9+2*(I-8),1)/3D0 + WDTP(I)=EF**2*(1D0+2D0*RM1)*SQRT(MAX(0D0,1D0-4D0*RM1)) + IF(I.EQ.12) WID2=WIDS(17,1) + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 190 CONTINUE + + ELSEIF(KFLA.EQ.23) THEN +C...Z0: + ICASE=1 + XWC=1D0/(16D0*XW*XW1) + FAC=(AEM*XWC/3D0)*SHR + 200 CONTINUE + IF(MINT(61).GE.1.AND.ICASE.EQ.2) THEN + VINT(111)=0D0 + VINT(112)=0D0 + VINT(114)=0D0 + ENDIF + IF(MINT(61).EQ.1.AND.ICASE.EQ.2) THEN + KFI=IABS(MINT(15)) + IF(KFI.GT.20) KFI=IABS(MINT(16)) + EI=KCHG(KFI,1)/3D0 + AI=SIGN(1D0,EI) + VI=AI-4D0*EI*XWV + SQMZ=PMAS(23,1)**2 + HZ=SHR*WDTP(0) + IF(MSTP(43).EQ.1.OR.MSTP(43).EQ.3) VINT(111)=1D0 + IF(MSTP(43).EQ.3) VINT(112)= + & 2D0*XWC*SH*(SH-SQMZ)/((SH-SQMZ)**2+HZ**2) + IF(MSTP(43).EQ.2.OR.MSTP(43).EQ.3) VINT(114)= + & XWC**2*SH**2/((SH-SQMZ)**2+HZ**2) + ENDIF + DO 210 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 210 + RM1=PMAS(IABS(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(IABS(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 210 + WID2=1D0 + IF(I.LE.8) THEN +C...Z0 -> q + qbar + EF=KCHG(I,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + FCOF=3D0*RADC + IF(I.GE.6.AND.MSTP(35).GE.1) FCOF=FCOF*PYHFTH(SH,SH*RM1,1D0) + IF(I.EQ.6) WID2=WIDS(6,1) + IF((I.EQ.7.OR.I.EQ.8)) WID2=WIDS(I,1) + ELSEIF(I.LE.16) THEN +C...Z0 -> l+ + l-, nu + nubar + EF=KCHG(I+2,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + FCOF=1D0 + IF((I.EQ.15.OR.I.EQ.16)) WID2=WIDS(2+I,1) + ENDIF + BE34=SQRT(MAX(0D0,1D0-4D0*RM1)) + IF(ICASE.EQ.1) THEN + WDTP(I)=FAC*FCOF*(VF**2*(1D0+2D0*RM1)+AF**2*(1D0-4D0*RM1))* + & BE34 + ELSEIF(MINT(61).EQ.1.AND.ICASE.EQ.2) THEN + WDTP(I)=FAC*FCOF*((EI**2*VINT(111)*EF**2+EI*VI*VINT(112)* + & EF*VF+(VI**2+AI**2)*VINT(114)*VF**2)*(1D0+2D0*RM1)+ + & (VI**2+AI**2)*VINT(114)*AF**2*(1D0-4D0*RM1))*BE34 + ELSEIF(MINT(61).EQ.2.AND.ICASE.EQ.2) THEN + FGGF=FCOF*EF**2*(1D0+2D0*RM1)*BE34 + FGZF=FCOF*EF*VF*(1D0+2D0*RM1)*BE34 + FZZF=FCOF*(VF**2*(1D0+2D0*RM1)+AF**2*(1D0-4D0*RM1))*BE34 + ENDIF + IF(ICASE.EQ.1) WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + IF((ICASE.EQ.1.AND.MINT(61).NE.1).OR. + & (ICASE.EQ.2.AND.MINT(61).EQ.1)) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+ + & WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + IF(MINT(61).EQ.2.AND.ICASE.EQ.2) THEN + IF(MSTP(43).EQ.1.OR.MSTP(43).EQ.3) VINT(111)= + & VINT(111)+FGGF*WID2 + IF(MSTP(43).EQ.3) VINT(112)=VINT(112)+FGZF*WID2 + IF(MSTP(43).EQ.2.OR.MSTP(43).EQ.3) VINT(114)= + & VINT(114)+FZZF*WID2 + ENDIF + ENDIF + 210 CONTINUE + IF(MINT(61).GE.1) ICASE=3-ICASE + IF(ICASE.EQ.2) GOTO 200 + + ELSEIF(KFLA.EQ.24) THEN +C...W+/-: + FAC=(AEM/(24D0*XW))*SHR + DO 220 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 220 + RM1=PMAS(IABS(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(IABS(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 220 + WID2=1D0 + IF(I.LE.16) THEN +C...W+/- -> q + qbar' + FCOF=3D0*RADC*VCKM((I-1)/4+1,MOD(I-1,4)+1) + IF(KFLR.GT.0) THEN + IF(MOD(I,4).EQ.3) WID2=WIDS(6,2) + IF(MOD(I,4).EQ.0) WID2=WIDS(8,2) + IF(I.GE.13) WID2=WID2*WIDS(7,3) + ELSE + IF(MOD(I,4).EQ.3) WID2=WIDS(6,3) + IF(MOD(I,4).EQ.0) WID2=WIDS(8,3) + IF(I.GE.13) WID2=WID2*WIDS(7,2) + ENDIF + ELSEIF(I.LE.20) THEN +C...W+/- -> l+/- + nu + FCOF=1D0 + IF(KFLR.GT.0) THEN + IF(I.EQ.20) WID2=WIDS(17,3)*WIDS(18,2) + ELSE + IF(I.EQ.20) WID2=WIDS(17,2)*WIDS(18,3) + ENDIF + ENDIF + WDTP(I)=FAC*FCOF*(2D0-RM1-RM2-(RM1-RM2)**2)* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2)) + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 220 CONTINUE + + ELSEIF(KFLA.EQ.25.OR.KFLA.EQ.35.OR.KFLA.EQ.36) THEN +C...h0 (or H0, or A0): + IF(MSTP(49).EQ.0) THEN + FAC=(AEM/(8D0*XW))*(SH/PMAS(24,1)**2)*SHR + ELSE + FAC=(AEM/(8D0*XW))*(PMAS(KFHIGG,1)/PMAS(24,1))**2*SHR + ENDIF + DO 260 I=1,MDCY(KFHIGG,3) + IDC=I+MDCY(KFHIGG,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 260 + KFC1=PYCOMP(KFDP(IDC,1)) + KFC2=PYCOMP(KFDP(IDC,2)) + RM1=PMAS(KFC1,1)**2/SH + RM2=PMAS(KFC2,1)**2/SH + IF(I.NE.16.AND.I.NE.17.AND.SQRT(RM1)+SQRT(RM2).GT.1D0) + & GOTO 260 + WID2=1D0 + + IF(I.LE.8) THEN +C...h0 -> q + qbar + WDTP(I)=FAC*3D0*(PYMRUN(KFDP(IDC,1),SH)**2/SH)* + & SQRT(MAX(0D0,1D0-4D0*RM1))*RADC +C...A0 behaves like beta, ho and H0 like beta**3. + IF(IHIGG.NE.3) WDTP(I)=WDTP(I)*(1D0-4D0*RM1) + IF(MSTP(4).GE.1.OR.IHIGG.GE.2) THEN + IF(MOD(I,2).EQ.1) WDTP(I)=WDTP(I)*PARU(151+10*IHIGG)**2 + IF(MOD(I,2).EQ.0) WDTP(I)=WDTP(I)*PARU(152+10*IHIGG)**2 + ENDIF + IF(I.EQ.6) WID2=WIDS(6,1) + IF((I.EQ.7.OR.I.EQ.8)) WID2=WIDS(I,1) + + ELSEIF(I.LE.12) THEN +C...h0 -> l+ + l- + WDTP(I)=FAC*RM1*SQRT(MAX(0D0,1D0-4D0*RM1)) +C...A0 behaves like beta, ho and H0 like beta**3. + IF(IHIGG.NE.3) WDTP(I)=WDTP(I)*(1D0-4D0*RM1) + IF(MSTP(4).GE.1.OR.IHIGG.GE.2) WDTP(I)=WDTP(I)* + & PARU(153+10*IHIGG)**2 + IF(I.EQ.12) WID2=WIDS(17,1) + + ELSEIF(I.EQ.13) THEN +C...h0 -> g + g; quark loop contribution only + ETARE=0D0 + ETAIM=0D0 + DO 230 J=1,2*MSTP(1) + EPS=(2D0*PMAS(J,1))**2/SH +C...Loop integral; function of eps=4m^2/shat; different for A0. + IF(EPS.LE.1D0) THEN + IF(EPS.GT.1D-4) THEN + ROOT=SQRT(1D0-EPS) + RLN=LOG((1D0+ROOT)/(1D0-ROOT)) + ELSE + RLN=LOG(4D0/EPS-2D0) + ENDIF + PHIRE=-0.25D0*(RLN**2-PARU(1)**2) + PHIIM=0.5D0*PARU(1)*RLN + ELSE + PHIRE=(ASIN(1D0/SQRT(EPS)))**2 + PHIIM=0D0 + ENDIF + IF(IHIGG.LE.2) THEN + ETAREJ=-0.5D0*EPS*(1D0+(1D0-EPS)*PHIRE) + ETAIMJ=-0.5D0*EPS*(1D0-EPS)*PHIIM + ELSE + ETAREJ=-0.5D0*EPS*PHIRE + ETAIMJ=-0.5D0*EPS*PHIIM + ENDIF +C...Couplings (=1 for standard model Higgs). + IF(MSTP(4).GE.1.OR.IHIGG.GE.2) THEN + IF(MOD(J,2).EQ.1) THEN + ETAREJ=ETAREJ*PARU(151+10*IHIGG) + ETAIMJ=ETAIMJ*PARU(151+10*IHIGG) + ELSE + ETAREJ=ETAREJ*PARU(152+10*IHIGG) + ETAIMJ=ETAIMJ*PARU(152+10*IHIGG) + ENDIF + ENDIF + ETARE=ETARE+ETAREJ + ETAIM=ETAIM+ETAIMJ + 230 CONTINUE + ETA2=ETARE**2+ETAIM**2 + WDTP(I)=FAC*(AS/PARU(1))**2*ETA2 + + ELSEIF(I.EQ.14) THEN +C...h0 -> gamma + gamma; quark, lepton, W+- and H+- loop contributions + ETARE=0D0 + ETAIM=0D0 + JMAX=3*MSTP(1)+1 + IF(MSTP(4).GE.1.OR.IHIGG.GE.2) JMAX=JMAX+1 + DO 240 J=1,JMAX + IF(J.LE.2*MSTP(1)) THEN + EJ=KCHG(J,1)/3D0 + EPS=(2D0*PMAS(J,1))**2/SH + ELSEIF(J.LE.3*MSTP(1)) THEN + JL=2*(J-2*MSTP(1))-1 + EJ=KCHG(10+JL,1)/3D0 + EPS=(2D0*PMAS(10+JL,1))**2/SH + ELSEIF(J.EQ.3*MSTP(1)+1) THEN + EPS=(2D0*PMAS(24,1))**2/SH + ELSE + EPS=(2D0*PMAS(37,1))**2/SH + ENDIF +C...Loop integral; function of eps=4m^2/shat. + IF(EPS.LE.1D0) THEN + IF(EPS.GT.1D-4) THEN + ROOT=SQRT(1D0-EPS) + RLN=LOG((1D0+ROOT)/(1D0-ROOT)) + ELSE + RLN=LOG(4D0/EPS-2D0) + ENDIF + PHIRE=-0.25D0*(RLN**2-PARU(1)**2) + PHIIM=0.5D0*PARU(1)*RLN + ELSE + PHIRE=(ASIN(1D0/SQRT(EPS)))**2 + PHIIM=0D0 + ENDIF + IF(J.LE.3*MSTP(1)) THEN +C...Fermion loops: loop integral different for A0; charges. + IF(IHIGG.LE.2) THEN + PHIPRE=-0.5D0*EPS*(1D0+(1D0-EPS)*PHIRE) + PHIPIM=-0.5D0*EPS*(1D0-EPS)*PHIIM + ELSE + PHIPRE=-0.5D0*EPS*PHIRE + PHIPIM=-0.5D0*EPS*PHIIM + ENDIF + IF(J.LE.2*MSTP(1).AND.MOD(J,2).EQ.1) THEN + EJC=3D0*EJ**2 + EJH=PARU(151+10*IHIGG) + ELSEIF(J.LE.2*MSTP(1)) THEN + EJC=3D0*EJ**2 + EJH=PARU(152+10*IHIGG) + ELSE + EJC=EJ**2 + EJH=PARU(153+10*IHIGG) + ENDIF + IF(MSTP(4).EQ.0.AND.IHIGG.EQ.1) EJH=1D0 + ETAREJ=EJC*EJH*PHIPRE + ETAIMJ=EJC*EJH*PHIPIM + ELSEIF(J.EQ.3*MSTP(1)+1) THEN +C...W loops: loop integral and charges. + ETAREJ=0.5D0+0.75D0*EPS*(1D0+(2D0-EPS)*PHIRE) + ETAIMJ=0.75D0*EPS*(2D0-EPS)*PHIIM + IF(MSTP(4).GE.1.OR.IHIGG.GE.2) THEN + ETAREJ=ETAREJ*PARU(155+10*IHIGG) + ETAIMJ=ETAIMJ*PARU(155+10*IHIGG) + ENDIF + ELSE +C...Charged H loops: loop integral and charges. + FACHHH=(PMAS(24,1)/PMAS(37,1))**2* + & PARU(158+10*IHIGG+2*(IHIGG/3)) + ETAREJ=EPS*(1D0-EPS*PHIRE)*FACHHH + ETAIMJ=-EPS**2*PHIIM*FACHHH + ENDIF + ETARE=ETARE+ETAREJ + ETAIM=ETAIM+ETAIMJ + 240 CONTINUE + ETA2=ETARE**2+ETAIM**2 + WDTP(I)=FAC*(AEM/PARU(1))**2*0.5D0*ETA2 + + ELSEIF(I.EQ.15) THEN +C...h0 -> gamma + Z0; quark, lepton, W and H+- loop contributions + ETARE=0D0 + ETAIM=0D0 + JMAX=3*MSTP(1)+1 + IF(MSTP(4).GE.1.OR.IHIGG.GE.2) JMAX=JMAX+1 + DO 250 J=1,JMAX + IF(J.LE.2*MSTP(1)) THEN + EJ=KCHG(J,1)/3D0 + AJ=SIGN(1D0,EJ+0.1D0) + VJ=AJ-4D0*EJ*XWV + EPS=(2D0*PMAS(J,1))**2/SH + EPSP=(2D0*PMAS(J,1)/PMAS(23,1))**2 + ELSEIF(J.LE.3*MSTP(1)) THEN + JL=2*(J-2*MSTP(1))-1 + EJ=KCHG(10+JL,1)/3D0 + AJ=SIGN(1D0,EJ+0.1D0) + VJ=AJ-4D0*EJ*XWV + EPS=(2D0*PMAS(10+JL,1))**2/SH + EPSP=(2D0*PMAS(10+JL,1)/PMAS(23,1))**2 + ELSE + EPS=(2D0*PMAS(24,1))**2/SH + EPSP=(2D0*PMAS(24,1)/PMAS(23,1))**2 + ENDIF +C...Loop integrals; functions of eps=4m^2/shat and eps'=4m^2/m_Z^2. + IF(EPS.LE.1D0) THEN + ROOT=SQRT(1D0-EPS) + IF(EPS.GT.1D-4) THEN + RLN=LOG((1D0+ROOT)/(1D0-ROOT)) + ELSE + RLN=LOG(4D0/EPS-2D0) + ENDIF + PHIRE=-0.25D0*(RLN**2-PARU(1)**2) + PHIIM=0.5D0*PARU(1)*RLN + PSIRE=0.5D0*ROOT*RLN + PSIIM=-0.5D0*ROOT*PARU(1) + ELSE + PHIRE=(ASIN(1D0/SQRT(EPS)))**2 + PHIIM=0D0 + PSIRE=SQRT(EPS-1D0)*ASIN(1D0/SQRT(EPS)) + PSIIM=0D0 + ENDIF + IF(EPSP.LE.1D0) THEN + ROOT=SQRT(1D0-EPSP) + IF(EPSP.GT.1D-4) THEN + RLN=LOG((1D0+ROOT)/(1D0-ROOT)) + ELSE + RLN=LOG(4D0/EPSP-2D0) + ENDIF + PHIREP=-0.25D0*(RLN**2-PARU(1)**2) + PHIIMP=0.5D0*PARU(1)*RLN + PSIREP=0.5D0*ROOT*RLN + PSIIMP=-0.5D0*ROOT*PARU(1) + ELSE + PHIREP=(ASIN(1D0/SQRT(EPSP)))**2 + PHIIMP=0D0 + PSIREP=SQRT(EPSP-1D0)*ASIN(1D0/SQRT(EPSP)) + PSIIMP=0D0 + ENDIF + FXYRE=EPS*EPSP/(8D0*(EPS-EPSP))*(1D0+EPS*EPSP/(EPS-EPSP)* + & (PHIRE-PHIREP)+2D0*EPS/(EPS-EPSP)*(PSIRE-PSIREP)) + FXYIM=EPS**2*EPSP/(8D0*(EPS-EPSP)**2)* + & (EPSP*(PHIIM-PHIIMP)+2D0*(PSIIM-PSIIMP)) + F1RE=-EPS*EPSP/(2D0*(EPS-EPSP))*(PHIRE-PHIREP) + F1IM=-EPS*EPSP/(2D0*(EPS-EPSP))*(PHIIM-PHIIMP) + IF(J.LE.3*MSTP(1)) THEN +C...Fermion loops: loop integral different for A0; charges. + IF(IHIGG.EQ.3) FXYRE=0D0 + IF(IHIGG.EQ.3) FXYIM=0D0 + IF(J.LE.2*MSTP(1).AND.MOD(J,2).EQ.1) THEN + EJC=-3D0*EJ*VJ + EJH=PARU(151+10*IHIGG) + ELSEIF(J.LE.2*MSTP(1)) THEN + EJC=-3D0*EJ*VJ + EJH=PARU(152+10*IHIGG) + ELSE + EJC=-EJ*VJ + EJH=PARU(153+10*IHIGG) + ENDIF + IF(MSTP(4).EQ.0.AND.IHIGG.EQ.1) EJH=1D0 + ETAREJ=EJC*EJH*(FXYRE-0.25D0*F1RE) + ETAIMJ=EJC*EJH*(FXYIM-0.25D0*F1IM) + ELSEIF(J.EQ.3*MSTP(1)+1) THEN +C...W loops: loop integral and charges. + HEPS=(1D0+2D0/EPS)*XW/XW1-(5D0+2D0/EPS) + ETAREJ=-XW1*((3D0-XW/XW1)*F1RE+HEPS*FXYRE) + ETAIMJ=-XW1*((3D0-XW/XW1)*F1IM+HEPS*FXYIM) + IF(MSTP(4).GE.1.OR.IHIGG.GE.2) THEN + ETAREJ=ETAREJ*PARU(155+10*IHIGG) + ETAIMJ=ETAIMJ*PARU(155+10*IHIGG) + ENDIF + ELSE +C...Charged H loops: loop integral and charges. + FACHHH=(PMAS(24,1)/PMAS(37,1))**2*(1D0-2D0*XW)* + & PARU(158+10*IHIGG+2*(IHIGG/3)) + ETAREJ=FACHHH*FXYRE + ETAIMJ=FACHHH*FXYIM + ENDIF + ETARE=ETARE+ETAREJ + ETAIM=ETAIM+ETAIMJ + 250 CONTINUE + ETA2=(ETARE**2+ETAIM**2)/(XW*XW1) + WDTP(I)=FAC*(AEM/PARU(1))**2*(1D0-PMAS(23,1)**2/SH)**3*ETA2 + WID2=WIDS(23,2) + + ELSEIF(I.LE.17) THEN +C...h0 -> Z0 + Z0, W+ + W- + PM1=PMAS(IABS(KFDP(IDC,1)),1) + PG1=PMAS(IABS(KFDP(IDC,1)),2) + IF(MINT(62).GE.1) THEN + IF(MSTP(42).EQ.0.OR.(4D0*(PM1+10D0*PG1)**2.LT.SH.AND. + & CKIN(46).LT.CKIN(45).AND.CKIN(48).LT.CKIN(47).AND. + & MAX(CKIN(45),CKIN(47)).LT.PM1-10D0*PG1)) THEN + MOFSV(IHIGG,I-15)=0 + WIDW=(1D0-4D0*RM1+12D0*RM1**2)*SQRT(MAX(0D0, + & 1D0-4D0*RM1)) + WID2=1D0 + ELSE + MOFSV(IHIGG,I-15)=1 + RMAS=SQRT(MAX(0D0,SH)) + CALL PYOFSH(1,KFLA,KFDP(IDC,1),KFDP(IDC,2),RMAS,WIDW, + & WID2) + WIDWSV(IHIGG,I-15)=WIDW + WID2SV(IHIGG,I-15)=WID2 + ENDIF + ELSE + IF(MOFSV(IHIGG,I-15).EQ.0) THEN + WIDW=(1D0-4D0*RM1+12D0*RM1**2)*SQRT(MAX(0D0, + & 1D0-4D0*RM1)) + WID2=1D0 + ELSE + WIDW=WIDWSV(IHIGG,I-15) + WID2=WID2SV(IHIGG,I-15) + ENDIF + ENDIF + WDTP(I)=FAC*WIDW/(2D0*(18-I)) + IF(MSTP(4).GE.1.OR.IHIGG.GE.2) WDTP(I)=WDTP(I)* + & PARU(138+I+10*IHIGG)**2 + WID2=WID2*WIDS(7+I,1) + + ELSEIF(I.EQ.18.AND.KFLA.EQ.35) THEN +C***H0 -> Z0 + h0 (not yet implemented). + + ELSEIF(I.EQ.19.AND.KFLA.EQ.35) THEN +C...H0 -> h0 + h0. + WDTP(I)=FAC*PARU(176)**2*0.25D0*PMAS(23,1)**4/SH**2* + & SQRT(MAX(0D0,1D0-4D0*RM1)) + WID2=WIDS(25,2)**2 + + ELSEIF(I.EQ.20.AND.KFLA.EQ.35) THEN +C...H0 -> A0 + A0. + WDTP(I)=FAC*PARU(177)**2*0.25D0*PMAS(23,1)**4/SH**2* + & SQRT(MAX(0D0,1D0-4D0*RM1)) + WID2=WIDS(36,2)**2 + + ELSEIF(I.EQ.18.AND.KFLA.EQ.36) THEN +C...A0 -> Z0 + h0. + WDTP(I)=FAC*PARU(186)**2*0.5D0*SQRT(MAX(0D0, + & (1D0-RM1-RM2)**2-4D0*RM1*RM2))**3 + WID2=WIDS(23,2)*WIDS(25,2) + +CMRENNA++ + ELSE +C...Add in SUSY decays (two-body) by rescaling by phase space factor. + RM10=RM1*SH/PMR**2 + RM20=RM2*SH/PMR**2 + WFAC0=1D0+RM10**2+RM20**2-2D0*(RM10+RM20+RM10*RM20) + WFAC=1D0+RM1**2+RM2**2-2D0*(RM1+RM2+RM1*RM2) + IF(WFAC.LE.0D0 .OR. WFAC0.LE.0D0) THEN + WFAC=0D0 + ELSE + WFAC=WFAC/WFAC0 + ENDIF + WDTP(I)=PMAS(KFLA,2)*BRAT(IDC)*(SHR/PMR)*SQRT(WFAC) +CMRENNA-- + IF(KFC2.EQ.KFC1) THEN + WID2=WIDS(KFC1,1) + ELSE + KSGN1=2 + IF(KFDP(IDC,1).LT.0) KSGN1=3 + KSGN2=2 + IF(KFDP(IDC,2).LT.0) KSGN2=3 + WID2=WIDS(KFC1,KSGN1)*WIDS(KFC2,KSGN2) + ENDIF + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 260 CONTINUE + + ELSEIF(KFLA.EQ.32) THEN +C...Z'0: + ICASE=1 + XWC=1D0/(16D0*XW*XW1) + FAC=(AEM*XWC/3D0)*SHR + VINT(117)=0D0 + 270 CONTINUE + IF(MINT(61).GE.1.AND.ICASE.EQ.2) THEN + VINT(111)=0D0 + VINT(112)=0D0 + VINT(113)=0D0 + VINT(114)=0D0 + VINT(115)=0D0 + VINT(116)=0D0 + ENDIF + IF(MINT(61).EQ.1.AND.ICASE.EQ.2) THEN + KFAI=IABS(MINT(15)) + EI=KCHG(KFAI,1)/3D0 + AI=SIGN(1D0,EI+0.1D0) + VI=AI-4D0*EI*XWV + KFAIC=1 + IF(KFAI.LE.10.AND.MOD(KFAI,2).EQ.0) KFAIC=2 + IF(KFAI.GT.10.AND.MOD(KFAI,2).NE.0) KFAIC=3 + IF(KFAI.GT.10.AND.MOD(KFAI,2).EQ.0) KFAIC=4 + IF(KFAI.LE.2.OR.KFAI.EQ.11.OR.KFAI.EQ.12) THEN + VPI=PARU(119+2*KFAIC) + API=PARU(120+2*KFAIC) + ELSEIF(KFAI.LE.4.OR.KFAI.EQ.13.OR.KFAI.EQ.14) THEN + VPI=PARJ(178+2*KFAIC) + API=PARJ(179+2*KFAIC) + ELSE + VPI=PARJ(186+2*KFAIC) + API=PARJ(187+2*KFAIC) + ENDIF + SQMZ=PMAS(23,1)**2 + HZ=SHR*VINT(117) + SQMZP=PMAS(32,1)**2 + HZP=SHR*WDTP(0) + IF(MSTP(44).EQ.1.OR.MSTP(44).EQ.4.OR.MSTP(44).EQ.5.OR. + & MSTP(44).EQ.7) VINT(111)=1D0 + IF(MSTP(44).EQ.4.OR.MSTP(44).EQ.7) VINT(112)= + & 2D0*XWC*SH*(SH-SQMZ)/((SH-SQMZ)**2+HZ**2) + IF(MSTP(44).EQ.5.OR.MSTP(44).EQ.7) VINT(113)= + & 2D0*XWC*SH*(SH-SQMZP)/((SH-SQMZP)**2+HZP**2) + IF(MSTP(44).EQ.2.OR.MSTP(44).EQ.4.OR.MSTP(44).EQ.6.OR. + & MSTP(44).EQ.7) VINT(114)=XWC**2*SH**2/((SH-SQMZ)**2+HZ**2) + IF(MSTP(44).EQ.6.OR.MSTP(44).EQ.7) VINT(115)= + & 2D0*XWC**2*SH**2*((SH-SQMZ)*(SH-SQMZP)+HZ*HZP)/ + & (((SH-SQMZ)**2+HZ**2)*((SH-SQMZP)**2+HZP**2)) + IF(MSTP(44).EQ.3.OR.MSTP(44).EQ.5.OR.MSTP(44).EQ.6.OR. + & MSTP(44).EQ.7) VINT(116)=XWC**2*SH**2/((SH-SQMZP)**2+HZP**2) + ENDIF + DO 280 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 280 + RM1=PMAS(PYCOMP(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(PYCOMP(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0.OR.MDME(IDC,1).LT.0) GOTO 280 + WID2=1D0 + IF(I.LE.16) THEN + IF(I.LE.8) THEN +C...Z'0 -> q + qbar + EF=KCHG(I,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + IF(I.LE.2) THEN + VPF=PARU(123-2*MOD(I,2)) + APF=PARU(124-2*MOD(I,2)) + ELSEIF(I.LE.4) THEN + VPF=PARJ(182-2*MOD(I,2)) + APF=PARJ(183-2*MOD(I,2)) + ELSE + VPF=PARJ(190-2*MOD(I,2)) + APF=PARJ(191-2*MOD(I,2)) + ENDIF + FCOF=3D0*RADC + IF(I.GE.6.AND.MSTP(35).GE.1) FCOF=FCOF* + & PYHFTH(SH,SH*RM1,1D0) + IF(I.EQ.6) WID2=WIDS(6,1) + IF((I.EQ.7.OR.I.EQ.8)) WID2=WIDS(I,1) + ELSEIF(I.LE.16) THEN +C...Z'0 -> l+ + l-, nu + nubar + EF=KCHG(I+2,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + IF(I.LE.10) THEN + VPF=PARU(127-2*MOD(I,2)) + APF=PARU(128-2*MOD(I,2)) + ELSEIF(I.LE.12) THEN + VPF=PARJ(186-2*MOD(I,2)) + APF=PARJ(187-2*MOD(I,2)) + ELSE + VPF=PARJ(194-2*MOD(I,2)) + APF=PARJ(195-2*MOD(I,2)) + ENDIF + FCOF=1D0 + IF((I.EQ.15.OR.I.EQ.16)) WID2=WIDS(2+I,1) + ENDIF + BE34=SQRT(MAX(0D0,1D0-4D0*RM1)) + IF(ICASE.EQ.1) THEN + WDTPZ=FCOF*(VF**2*(1D0+2D0*RM1)+AF**2*(1D0-4D0*RM1))*BE34 + WDTP(I)=FAC*FCOF*(VPF**2*(1D0+2D0*RM1)+ + & APF**2*(1D0-4D0*RM1))*BE34 + ELSEIF(MINT(61).EQ.1.AND.ICASE.EQ.2) THEN + WDTP(I)=FAC*FCOF*((EI**2*VINT(111)*EF**2+EI*VI*VINT(112)* + & EF*VF+EI*VPI*VINT(113)*EF*VPF+(VI**2+AI**2)*VINT(114)* + & VF**2+(VI*VPI+AI*API)*VINT(115)*VF*VPF+(VPI**2+API**2)* + & VINT(116)*VPF**2)*(1D0+2D0*RM1)+((VI**2+AI**2)*VINT(114)* + & AF**2+(VI*VPI+AI*API)*VINT(115)*AF*APF+(VPI**2+API**2)* + & VINT(116)*APF**2)*(1D0-4D0*RM1))*BE34 + ELSEIF(MINT(61).EQ.2) THEN + FGGF=FCOF*EF**2*(1D0+2D0*RM1)*BE34 + FGZF=FCOF*EF*VF*(1D0+2D0*RM1)*BE34 + FGZPF=FCOF*EF*VPF*(1D0+2D0*RM1)*BE34 + FZZF=FCOF*(VF**2*(1D0+2D0*RM1)+AF**2*(1D0-4D0*RM1))*BE34 + FZZPF=FCOF*(VF*VPF*(1D0+2D0*RM1)+AF*APF*(1D0-4D0*RM1))* + & BE34 + FZPZPF=FCOF*(VPF**2*(1D0+2D0*RM1)+APF**2*(1D0-4D0*RM1))* + & BE34 + ENDIF + ELSEIF(I.EQ.17) THEN +C...Z'0 -> W+ + W- + WDTPZP=PARU(129)**2*XW1**2* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3* + & (1D0+10D0*RM1+10D0*RM2+RM1**2+RM2**2+10D0*RM1*RM2) + IF(ICASE.EQ.1) THEN + WDTPZ=0D0 + WDTP(I)=FAC*WDTPZP + ELSEIF(MINT(61).EQ.1.AND.ICASE.EQ.2) THEN + WDTP(I)=FAC*(VPI**2+API**2)*VINT(116)*WDTPZP + ELSEIF(MINT(61).EQ.2) THEN + FGGF=0D0 + FGZF=0D0 + FGZPF=0D0 + FZZF=0D0 + FZZPF=0D0 + FZPZPF=WDTPZP + ENDIF + WID2=WIDS(24,1) + ELSEIF(I.EQ.18) THEN +C...Z'0 -> H+ + H- + CZC=2D0*(1D0-2D0*XW) + BE34C=(1D0-4D0*RM1)*SQRT(MAX(0D0,1D0-4D0*RM1)) + IF(ICASE.EQ.1) THEN + WDTPZ=0.25D0*PARU(142)**2*CZC**2*BE34C + WDTP(I)=FAC*0.25D0*PARU(143)**2*CZC**2*BE34C + ELSEIF(MINT(61).EQ.1.AND.ICASE.EQ.2) THEN + WDTP(I)=FAC*0.25D0*(EI**2*VINT(111)+PARU(142)*EI*VI* + & VINT(112)*CZC+PARU(143)*EI*VPI*VINT(113)*CZC+PARU(142)**2* + & (VI**2+AI**2)*VINT(114)*CZC**2+PARU(142)*PARU(143)* + & (VI*VPI+AI*API)*VINT(115)*CZC**2+PARU(143)**2* + & (VPI**2+API**2)*VINT(116)*CZC**2)*BE34C + ELSEIF(MINT(61).EQ.2) THEN + FGGF=0.25D0*BE34C + FGZF=0.25D0*PARU(142)*CZC*BE34C + FGZPF=0.25D0*PARU(143)*CZC*BE34C + FZZF=0.25D0*PARU(142)**2*CZC**2*BE34C + FZZPF=0.25D0*PARU(142)*PARU(143)*CZC**2*BE34C + FZPZPF=0.25D0*PARU(143)**2*CZC**2*BE34C + ENDIF + WID2=WIDS(37,1) + ELSEIF(I.EQ.19) THEN +C...Z'0 -> Z0 + gamma. + ELSEIF(I.EQ.20) THEN +C...Z'0 -> Z0 + h0 + FLAM=SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2)) + WDTPZP=PARU(145)**2*4D0*ABS(1D0-2D0*XW)* + & (3D0*RM1+0.25D0*FLAM**2)*FLAM + IF(ICASE.EQ.1) THEN + WDTPZ=0D0 + WDTP(I)=FAC*WDTPZP + ELSEIF(MINT(61).EQ.1.AND.ICASE.EQ.2) THEN + WDTP(I)=FAC*(VPI**2+API**2)*VINT(116)*WDTPZP + ELSEIF(MINT(61).EQ.2) THEN + FGGF=0D0 + FGZF=0D0 + FGZPF=0D0 + FZZF=0D0 + FZZPF=0D0 + FZPZPF=WDTPZP + ENDIF + WID2=WIDS(23,2)*WIDS(25,2) + ELSEIF(I.EQ.21.OR.I.EQ.22) THEN +C...Z' -> h0 + A0 or H0 + A0. + BE34C=SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3 + IF(I.EQ.21) THEN + CZAH=PARU(186) + CZPAH=PARU(188) + ELSE + CZAH=PARU(187) + CZPAH=PARU(189) + ENDIF + IF(ICASE.EQ.1) THEN + WDTPZ=CZAH**2*BE34C + WDTP(I)=FAC*CZPAH**2*BE34C + ELSEIF(MINT(61).EQ.1.AND.ICASE.EQ.2) THEN + WDTP(I)=FAC*(CZAH**2*(VI**2+AI**2)*VINT(114)+CZAH*CZPAH* + & (VI*VPI+AI*API)*VINT(115)+CZPAH**2*(VPI**2+API**2)* + & VINT(116))*BE34C + ELSEIF(MINT(61).EQ.2) THEN + FGGF=0D0 + FGZF=0D0 + FGZPF=0D0 + FZZF=CZAH**2*BE34C + FZZPF=CZAH*CZPAH*BE34C + FZPZPF=CZPAH**2*BE34C + ENDIF + IF(I.EQ.21) WID2=WIDS(25,2)*WIDS(36,2) + IF(I.EQ.22) WID2=WIDS(35,2)*WIDS(36,2) + ENDIF + IF(ICASE.EQ.1) THEN + VINT(117)=VINT(117)+FAC*WDTPZ + WDTP(0)=WDTP(0)+WDTP(I) + ENDIF + IF(MDME(IDC,1).GT.0) THEN + IF((ICASE.EQ.1.AND.MINT(61).NE.1).OR. + & (ICASE.EQ.2.AND.MINT(61).EQ.1)) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+ + & WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + IF(MINT(61).EQ.2.AND.ICASE.EQ.2) THEN + IF(MSTP(44).EQ.1.OR.MSTP(44).EQ.4.OR.MSTP(44).EQ.5.OR. + & MSTP(44).EQ.7) VINT(111)=VINT(111)+FGGF*WID2 + IF(MSTP(44).EQ.4.OR.MSTP(44).EQ.7) VINT(112)=VINT(112)+ + & FGZF*WID2 + IF(MSTP(44).EQ.5.OR.MSTP(44).EQ.7) VINT(113)=VINT(113)+ + & FGZPF*WID2 + IF(MSTP(44).EQ.2.OR.MSTP(44).EQ.4.OR.MSTP(44).EQ.6.OR. + & MSTP(44).EQ.7) VINT(114)=VINT(114)+FZZF*WID2 + IF(MSTP(44).EQ.6.OR.MSTP(44).EQ.7) VINT(115)=VINT(115)+ + & FZZPF*WID2 + IF(MSTP(44).EQ.3.OR.MSTP(44).EQ.5.OR.MSTP(44).EQ.6.OR. + & MSTP(44).EQ.7) VINT(116)=VINT(116)+FZPZPF*WID2 + ENDIF + ENDIF + 280 CONTINUE + IF(MINT(61).GE.1) ICASE=3-ICASE + IF(ICASE.EQ.2) GOTO 270 + + ELSEIF(KFLA.EQ.34) THEN +C...W'+/-: + FAC=(AEM/(24D0*XW))*SHR + DO 290 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 290 + RM1=PMAS(PYCOMP(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(PYCOMP(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 290 + WID2=1D0 + IF(I.LE.20) THEN + IF(I.LE.16) THEN +C...W'+/- -> q + qbar' + FCOF=3D0*RADC*(PARU(131)**2+PARU(132)**2)* + & VCKM((I-1)/4+1,MOD(I-1,4)+1) + IF(KFLR.GT.0) THEN + IF(MOD(I,4).EQ.3) WID2=WIDS(6,2) + IF(MOD(I,4).EQ.0) WID2=WIDS(8,2) + IF(I.GE.13) WID2=WID2*WIDS(7,3) + ELSE + IF(MOD(I,4).EQ.3) WID2=WIDS(6,3) + IF(MOD(I,4).EQ.0) WID2=WIDS(8,3) + IF(I.GE.13) WID2=WID2*WIDS(7,2) + ENDIF + ELSEIF(I.LE.20) THEN +C...W'+/- -> l+/- + nu + FCOF=PARU(133)**2+PARU(134)**2 + IF(KFLR.GT.0) THEN + IF(I.EQ.20) WID2=WIDS(17,3)*WIDS(18,2) + ELSE + IF(I.EQ.20) WID2=WIDS(17,2)*WIDS(18,3) + ENDIF + ENDIF + WDTP(I)=FAC*FCOF*0.5D0*(2D0-RM1-RM2-(RM1-RM2)**2)* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2)) + ELSEIF(I.EQ.21) THEN +C...W'+/- -> W+/- + Z0 + WDTP(I)=FAC*PARU(135)**2*0.5D0*XW1*(RM1/RM2)* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3* + & (1D0+10D0*RM1+10D0*RM2+RM1**2+RM2**2+10D0*RM1*RM2) + IF(KFLR.GT.0) WID2=WIDS(24,2)*WIDS(23,2) + IF(KFLR.LT.0) WID2=WIDS(24,3)*WIDS(23,2) + ELSEIF(I.EQ.23) THEN +C...W'+/- -> W+/- + h0 + FLAM=SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2)) + WDTP(I)=FAC*PARU(146)**2*2D0*(3D0*RM1+0.25D0*FLAM**2)*FLAM + IF(KFLR.GT.0) WID2=WIDS(24,2)*WIDS(25,2) + IF(KFLR.LT.0) WID2=WIDS(24,3)*WIDS(25,2) + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 290 CONTINUE + + ELSEIF(KFLA.EQ.37) THEN +C...H+/-: + FAC=(AEM/(8D0*XW))*(SH/PMAS(24,1)**2)*SHR + DO 300 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 300 + KFC1=PYCOMP(KFDP(IDC,1)) + KFC2=PYCOMP(KFDP(IDC,2)) + RM1=PMAS(KFC1,1)**2/SH + RM2=PMAS(KFC2,1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 300 + WID2=1D0 + IF(I.LE.4) THEN +C...H+/- -> q + qbar' + RM1R=PYMRUN(KFDP(IDC,1),SH)**2/SH + RM2R=PYMRUN(KFDP(IDC,2),SH)**2/SH + WDTP(I)=FAC*3D0*RADC*MAX(0D0,(RM1R*PARU(141)**2+ + & RM2R/PARU(141)**2)*(1D0-RM1R-RM2R)-4D0*RM1R*RM2R)* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2)) + IF(KFLR.GT.0) THEN + IF(I.EQ.3) WID2=WIDS(6,2) + IF(I.EQ.4) WID2=WIDS(7,3)*WIDS(8,2) + ELSE + IF(I.EQ.3) WID2=WIDS(6,3) + IF(I.EQ.4) WID2=WIDS(7,2)*WIDS(8,3) + ENDIF + ELSEIF(I.LE.8) THEN +C...H+/- -> l+/- + nu + WDTP(I)=FAC*((RM1*PARU(141)**2+RM2/PARU(141)**2)* + & (1D0-RM1-RM2)-4D0*RM1*RM2)* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2)) + IF(KFLR.GT.0) THEN + IF(I.EQ.8) WID2=WIDS(17,3)*WIDS(18,2) + ELSE + IF(I.EQ.8) WID2=WIDS(17,2)*WIDS(18,3) + ENDIF + ELSEIF(I.EQ.9) THEN +C...H+/- -> W+/- + h0. + WDTP(I)=FAC*PARU(195)**2*0.5D0*SQRT(MAX(0D0, + & (1D0-RM1-RM2)**2-4D0*RM1*RM2))**3 + IF(KFLR.GT.0) WID2=WIDS(24,2)*WIDS(25,2) + IF(KFLR.LT.0) WID2=WIDS(24,3)*WIDS(25,2) + +CMRENNA++ + ELSE +C...Add in SUSY decays (two-body) by rescaling by phase space factor. + RM10=RM1*SH/PMR**2 + RM20=RM2*SH/PMR**2 + WFAC0=1D0+RM10**2+RM20**2-2D0*(RM10+RM20+RM10*RM20) + WFAC=1D0+RM1**2+RM2**2-2D0*(RM1+RM2+RM1*RM2) + IF(WFAC.LE.0D0 .OR. WFAC0.LE.0D0) THEN + WFAC=0D0 + ELSE + WFAC=WFAC/WFAC0 + ENDIF + WDTP(I)=PMAS(KC,2)*BRAT(IDC)*(SHR/PMR)*SQRT(WFAC) +CMRENNA-- + KSGN1=2 + IF(KFLS*KFDP(IDC,1).LT.0.AND.KCHG(KFC1,3).EQ.1) KSGN1=3 + KSGN2=2 + IF(KFLS*KFDP(IDC,2).LT.0.AND.KCHG(KFC2,3).EQ.1) KSGN2=3 + WID2=WIDS(KFC1,KSGN1)*WIDS(KFC2,KSGN2) + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 300 CONTINUE + + ELSEIF(KFLA.EQ.38) THEN +C...Techni-eta. + FAC=(SH/PARP(46)**2)*SHR + DO 310 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 310 + RM1=PMAS(PYCOMP(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(PYCOMP(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 310 + WID2=1D0 + IF(I.LE.2) THEN + WDTP(I)=FAC*RM1*SQRT(MAX(0D0,1D0-4D0*RM1))/(4D0*PARU(1)) + IF(I.EQ.2) WID2=WIDS(6,1) + ELSE + WDTP(I)=FAC*5D0*AS**2/(96D0*PARU(1)**3) + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 310 CONTINUE + + ELSEIF(KFLA.EQ.39) THEN +C...LQ (leptoquark). + FAC=(AEM/4D0)*PARU(151)*SHR + DO 320 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 320 + RM1=PMAS(PYCOMP(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(PYCOMP(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 320 + WDTP(I)=FAC*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3 + WID2=1D0 + ILQQ=KFDP(IDC,1)*ISIGN(1,KFLR) + IF(ILQQ.GE.6) WID2=WIDS(ILQQ,2) + IF(ILQQ.LE.-6) WID2=WIDS(-ILQQ,3) + ILQL=KFDP(IDC,2)*ISIGN(1,KFLR) + IF(ILQL.GE.17) WID2=WID2*WIDS(ILQL,2) + IF(ILQL.LE.-17) WID2=WID2*WIDS(-ILQL,3) + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 320 CONTINUE + + ELSEIF(KFLA.EQ.40) THEN +C...R: + FAC=(AEM/(12D0*XW))*SHR + DO 330 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 330 + RM1=PMAS(PYCOMP(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(PYCOMP(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 330 + WID2=1D0 + IF(I.LE.6) THEN +C...R -> q + qbar' + FCOF=3D0*RADC + ELSEIF(I.LE.9) THEN +C...R -> l+ + l'- + FCOF=1D0 + ENDIF + WDTP(I)=FAC*FCOF*(2D0-RM1-RM2-(RM1-RM2)**2)* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2)) + IF(KFLR.GT.0) THEN + IF(I.EQ.4) WID2=WIDS(6,3) + IF(I.EQ.5) WID2=WIDS(7,3) + IF(I.EQ.6) WID2=WIDS(6,2)*WIDS(8,3) + IF(I.EQ.9) WID2=WIDS(17,3) + ELSE + IF(I.EQ.4) WID2=WIDS(6,2) + IF(I.EQ.5) WID2=WIDS(7,2) + IF(I.EQ.6) WID2=WIDS(6,3)*WIDS(8,2) + IF(I.EQ.9) WID2=WIDS(17,2) + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 330 CONTINUE + + ELSEIF(KFLA.EQ.51.OR.KFLA.EQ.53) THEN +C...Techni-pi0 and techni-pi0': + FAC=(1D0/(32D0*PARU(1)*PARP(142)**2))*SHR + DO 340 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 340 + PM1=PMAS(PYCOMP(KFDP(IDC,1)),1) + PM2=PMAS(PYCOMP(KFDP(IDC,2)),1) + RM1=PM1**2/SH + RM2=PM2**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 340 + WID2=1D0 +C...pi_tech -> g + g + IF(I.EQ.8) THEN + FACP=(AS/(4D0*PARU(1))*PARP(144)/PARP(142))**2 + & /(8D0*PARU(1))*SH*SHR + IF(KFLA.EQ.51) THEN + FACP=FACP*PARP(149) + ELSE + FACP=FACP*PARP(150) + ENDIF + WDTP(I)=FACP + ELSE +C...pi_tech -> f + fbar. + FCOF=1D0 + IKA=IABS(KFDP(IDC,1)) + IF(IKA.LT.10) FCOF=3D0*RADC + HM1=PM1 + HM2=PM2 + IF(IKA.GE.4.AND.IKA.LE.6) THEN + FCOF=FCOF*PARP(141+IKA)**2 + HM1=PYMRUN(KFDP(IDC,1),SH) + HM2=PYMRUN(KFDP(IDC,2),SH) + ELSEIF(IKA.EQ.15) THEN + FCOF=FCOF*PARP(148)**2 + ENDIF + WDTP(I)=FAC*FCOF*(HM1+HM2)**2* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2)) + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 340 CONTINUE + + ELSEIF(KFLA.EQ.52) THEN +C...pi+_tech + FAC=(1D0/(32D0*PARU(1)*PARP(142)**2))*SHR + DO 350 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 350 + PM1=PMAS(PYCOMP(KFDP(IDC,1)),1) + PM2=PMAS(PYCOMP(KFDP(IDC,2)),1) + PM3=0D0 + IF(I.EQ.3) PM3=PMAS(PYCOMP(KFDP(IDC,3)),1) + RM1=PM1**2/SH + RM2=PM2**2/SH + RM3=PM3**2/SH + IF(SQRT(RM1)+SQRT(RM2)+SQRT(RM3).GT.1D0) GOTO 350 + WID2=1D0 +C...pi_tech -> f + f'. + FCOF=1D0 + IF(IABS(KFDP(IDC,1)).LT.10) FCOF=3D0*RADC +C...pi_tech+ -> W b b~ + IF(I.EQ.3.AND.SHR.LT.PMAS(6,1)+PMAS(5,1)) THEN + FCOF=3D0*RADC + XMT2=PMAS(6,1)**2/SH + FACP=FAC/(4D0*PARU(1))*FCOF*XMT2*PARP(147)**2 + KFC3=PYCOMP(KFDP(IDC,3)) + CHECK = SQRT(RM1)+SQRT(RM2)+SQRT(RM3) + CHECK = SQRT(RM1) + T0 = (1D0-CHECK**2)* + & (XMT2*(6.*XMT2**2+3.*XMT2*RM1-4.*RM1**2)- + & (5.*XMT2**2+2.*XMT2*RM1-8.*RM1**2))/(4.*XMT2**2) + T1 = (1D0-XMT2)*(RM1-XMT2)*((XMT2**2+XMT2*RM1+4.*RM1**2) + & -3.*XMT2**2*(XMT2+RM1))/(2.0*XMT2**3) + T3 = RM1**2/XMT2**3*(3.0*XMT2-4.0*RM1+4.0*XMT2*RM1) + WDTP(I)=FACP*(T0 + T1*LOG((XMT2-CHECK**2)/(XMT2-1D0)) + & +T3*LOG(CHECK)) + IF(KFLR.GT.0) THEN + WID2=WIDS(24,2) + ELSE + WID2=WIDS(24,3) + ENDIF + ELSE + FCOF=1D0 + IKA=IABS(KFDP(IDC,1)) + IF(IKA.LT.10) FCOF=3D0*RADC + HM1=PM1 + HM2=PM2 + IF(I.GE.1.AND.I.LE.3) THEN + FCOF=FCOF*PARP(144+I)**2 + HM1=PYMRUN(KFDP(IDC,1),SH) + HM2=PYMRUN(KFDP(IDC,2),SH) + ELSEIF(I.EQ.6) THEN + FCOF=FCOF*PARP(148)**2 + ENDIF + WDTP(I)=FAC*FCOF*(HM1+HM2)**2* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2)) + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 350 CONTINUE + + ELSEIF(KFLA.EQ.54) THEN +C...Techni-rho0: + ALPRHT=2.91D0*(3D0/PARP(144)) + FAC=(ALPRHT/12D0)*SHR + FACF=(1D0/6D0)*(AEM**2/ALPRHT)*SHR + SQMZ=PMAS(23,1)**2 + SQMW=PMAS(24,1)**2 + SHP=SH + CALL PYWIDX(23,SHP,WDTPP,WDTEP) + GMMZ=SHR*WDTPP(0) + XWRHT=(1D0-2D0*XW)/(4D0*XW*(1D0-XW)) + BWZR=XWRHT*SH*(SH-SQMZ)/((SH-SQMZ)**2+GMMZ**2) + BWZI=XWRHT*SH*GMMZ/((SH-SQMZ)**2+GMMZ**2) + DO 360 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 360 + RM1=PMAS(PYCOMP(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(PYCOMP(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 360 + WID2=1D0 + IF(I.EQ.1) THEN +C...rho_tech0 -> W+ + W-. + WDTP(I)=FAC*PARP(141)**4* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3 + WID2=WIDS(24,1) + ELSEIF(I.EQ.2) THEN +C...rho_tech0 -> W+ + pi_tech-. + WDTP(I)=FAC*PARP(141)**2*(1D0-PARP(141)**2)* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3+ + & AEM*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))* + & ((1D0-RM1-RM2)**2-4D0*RM1*RM2 + 6D0*SQMW/SH)* + & (1D0-PARP(141)**2)/4D0/XW/24D0/PARJ(173)**2*SHR**3 + WID2=WIDS(24,2)*WIDS(52,3) + ELSEIF(I.EQ.3) THEN +C...rho_tech0 -> pi_tech+ + W-. + WDTP(I)=FAC*PARP(141)**2*(1D0-PARP(141)**2)* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3+ + & AEM*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))* + & ((1D0-RM1-RM2)**2-4D0*RM1*RM2 + 6D0*SQMW/SH)* + & (1D0-PARP(141)**2)/4D0/XW/24D0/PARJ(173)**2*SHR**3 + WID2=WIDS(52,2)*WIDS(24,3) + ELSEIF(I.EQ.4) THEN +C...rho_tech0 -> pi_tech+ + pi_tech-. + WDTP(I)=FAC*(1D0-PARP(141)**2)**2* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3 + WID2=WIDS(52,1) + ELSEIF(I.EQ.5) THEN +C...rho_tech0 -> gamma + pi_tech0 + WDTP(I)=AEM*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3* + & (2D0*PARP(143)-1D0)**2*(1D0-PARP(141)**2)/24D0/PARJ(172)**2* + & SHR**3 + WID2=WIDS(51,2) + ELSEIF(I.EQ.6) THEN +C...rho_tech0 -> gamma + pi_tech0' + WDTP(I)=AEM*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3* + & (1D0-PARJ(174)**2)/24D0/PARJ(172)**2*SHR**3 + WID2=WIDS(53,2) + ELSEIF(I.EQ.7) THEN +C...rho_tech0 -> Z0 + pi_tech0 + WDTP(I)=AEM*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3* + & (2D0*PARP(143)-1D0)**2*(1D0-PARP(141)**2)/24D0/PARJ(172)**2* + & XW/XW1*SHR**3 + WID2=WIDS(23,2)*WIDS(51,2) + ELSEIF(I.EQ.8) THEN +C...rho_tech0 -> Z0 + pi_tech0' + WDTP(I)=AEM*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3* + & (1D0-PARJ(174)**2)/24D0/PARJ(172)**2*(1D0-2D0*XW)**2/4D0/ + & XW/XW1*SHR**3 + WID2=WIDS(23,2)*WIDS(53,2) + ELSE +C...rho_tech0 -> f + fbar. + WID2=1D0 + IF(I.LE.16) THEN + IA=I-8 + FCOF=3D0*RADC + IF(IA.GE.6.AND.IA.LE.8) WID2=WIDS(IA,1) + ELSE + IA=I-6 + FCOF=1D0 + IF(IA.GE.17) WID2=WIDS(IA,1) + ENDIF + EI=KCHG(IA,1)/3D0 + AI=SIGN(1D0,EI+0.1D0) + VI=AI-4D0*EI*XWV + VALI=0.5D0*(VI+AI) + VARI=0.5D0*(VI-AI) + WDTP(I)=FACF*FCOF*SQRT(MAX(0D0,1D0-4D0*RM1))*((1D0-RM1)* + & ((EI+VALI*BWZR)**2+(VALI*BWZI)**2+ + & (EI+VARI*BWZR)**2+(VARI*BWZI)**2)+6D0*RM1*( + & (EI+VALI*BWZR)*(EI+VARI*BWZR)+VALI*VARI*BWZI**2)) + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 360 CONTINUE + + ELSEIF(KFLA.EQ.55) THEN +C...Techni-rho+/-: + ALPRHT=2.91D0*(3D0/PARP(144)) + FAC=(ALPRHT/12D0)*SHR + SQMZ=PMAS(23,1)**2 + SQMW=PMAS(24,1)**2 + SHP=SH + CALL PYWIDX(24,SHP,WDTPP,WDTEP) + GMMW=SHR*WDTPP(0) + FACF=(1D0/12D0)*(AEM**2/ALPRHT)*SHR* + & (0.125D0/XW**2)*SH**2/((SH-SQMW)**2+GMMW**2) + DO 370 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 370 + RM1=PMAS(PYCOMP(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(PYCOMP(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 370 + WID2=1D0 + IF(I.EQ.1) THEN +C...rho_tech+ -> W+ + Z0. + WDTP(I)=FAC*PARP(141)**4* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3 + IF(KFLR.GT.0) THEN + WID2=WIDS(24,2)*WIDS(23,2) + ELSE + WID2=WIDS(24,3)*WIDS(23,2) + ENDIF + ELSEIF(I.EQ.2) THEN +C...rho_tech+ -> W+ + pi_tech0. + WDTP(I)=FAC*PARP(141)**2*(1D0-PARP(141)**2)* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3+ + & AEM*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))* + & ((1D0-RM1-RM2)**2-4D0*RM1*RM2 + 6D0*SQMW/SH)* + & (1D0-PARP(141)**2)/4D0/XW/24D0/PARJ(173)**2*SHR**3 + IF(KFLR.GT.0) THEN + WID2=WIDS(24,2)*WIDS(51,2) + ELSE + WID2=WIDS(24,3)*WIDS(51,2) + ENDIF + ELSEIF(I.EQ.3) THEN +C...rho_tech+ -> pi_tech+ + Z0. + WDTP(I)=FAC*PARP(141)**2*(1D0-PARP(141)**2)* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3+ + & AEM*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))* + & ((1D0-RM1-RM2)**2-4D0*RM1*RM2 + 6D0*SQMZ/SH)* + & (1D0-PARP(141)**2)/4D0/XW/XW1/24D0/PARJ(173)**2*SHR**3+ + & AEM*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3* + & (2D0*PARP(143)-1D0)**2*(1D0-PARP(141)**2)/24D0/PARJ(172)**2* + & SHR**3*XW/XW1 + IF(KFLR.GT.0) THEN + WID2=WIDS(52,2)*WIDS(23,2) + ELSE + WID2=WIDS(52,3)*WIDS(23,2) + ENDIF + ELSEIF(I.EQ.4) THEN +C...rho_tech+ -> pi_tech+ + pi_tech0. + WDTP(I)=FAC*(1D0-PARP(141)**2)**2* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3 + IF(KFLR.GT.0) THEN + WID2=WIDS(52,2)*WIDS(51,2) + ELSE + WID2=WIDS(52,3)*WIDS(51,2) + ENDIF + ELSEIF(I.EQ.5) THEN +C...rho_tech+ -> pi_tech+ + gamma + WDTP(I)=AEM*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3* + & (2D0*PARP(143)-1D0)**2*(1D0-PARP(141)**2)/24D0/PARJ(172)**2* + & SHR**3 + IF(KFLR.GT.0) THEN + WID2=WIDS(52,2) + ELSE + WID2=WIDS(52,3) + ENDIF + ELSEIF(I.EQ.6) THEN +C...rho_tech+ -> W+ + pi_tech0' + WDTP(I)=AEM*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3* + & (1D0-PARJ(174)**2)/4D0/XW/24D0/PARJ(172)**2*SHR**3 + IF(KFLR.GT.0) THEN + WID2=WIDS(24,2)*WIDS(53,2) + ELSE + WID2=WIDS(24,3)*WIDS(53,2) + ENDIF + ELSE +C...rho_tech+ -> f + fbar'. + IA=I-6 + WID2=1D0 + IF(IA.LE.16) THEN + FCOF=3D0*RADC*VCKM((IA-1)/4+1,MOD(IA-1,4)+1) + IF(KFLR.GT.0) THEN + IF(MOD(IA,4).EQ.3) WID2=WIDS(6,2) + IF(MOD(IA,4).EQ.0) WID2=WIDS(8,2) + IF(IA.GE.13) WID2=WID2*WIDS(7,3) + ELSE + IF(MOD(IA,4).EQ.3) WID2=WIDS(6,3) + IF(MOD(IA,4).EQ.0) WID2=WIDS(8,3) + IF(IA.GE.13) WID2=WID2*WIDS(7,2) + ENDIF + ELSE + FCOF=1D0 + IF(KFLR.GT.0) THEN + IF(IA.EQ.20) WID2=WIDS(17,3)*WIDS(18,2) + ELSE + IF(IA.EQ.20) WID2=WIDS(17,2)*WIDS(18,3) + ENDIF + ENDIF + WDTP(I)=FACF*FCOF*(2D0-RM1-RM2-(RM1-RM2)**2)* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2)) + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 370 CONTINUE + + ELSEIF(KFLA.EQ.56) THEN +C...Techni-omega: + ALPRHT=2.91D0*(3D0/PARP(144)) + FAC=(ALPRHT/12D0)*SHR + FACF=(1D0/6D0)*(AEM**2/ALPRHT)*SHR*(2D0*PARP(143)-1D0)**2 + SQMZ=PMAS(23,1)**2 + SHP=SH + CALL PYWIDX(23,SHP,WDTPP,WDTEP) + GMMZ=SHR*WDTPP(0) + BWZR=(0.5D0/(1D0-XW))*SH*(SH-SQMZ)/((SH-SQMZ)**2+GMMZ**2) + BWZI=(0.5D0/(1D0-XW))*SH*GMMZ/((SH-SQMZ)**2+GMMZ**2) + DO 380 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 380 + RM1=PMAS(PYCOMP(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(PYCOMP(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 380 + WID2=1D0 + IF(I.EQ.1) THEN +C...omega_tech0 -> gamma + pi_tech0. + WDTP(I)=AEM/24D0/PARJ(172)**2*(1D0-PARP(141)**2)* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3*SHR**3 + WID2=WIDS(51,2) + ELSEIF(I.EQ.2) THEN +C...omega_tech0 -> Z0 + pi_tech0 + WDTP(I)=AEM*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3* + & (1D0-PARP(141)**2)/24D0/PARJ(172)**2*(1D0-2D0*XW)**2/4D0/ + & XW/XW1*SHR**3 + WID2=WIDS(23,2)*WIDS(51,2) + ELSEIF(I.EQ.3) THEN +C...omega_tech0 -> gamma + pi_tech0' + WDTP(I)=AEM*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3* + & (2D0*PARP(143)-1D0)**2*(1D0-PARJ(174)**2)/24D0/PARJ(172)**2* + & SHR**3 + WID2=WIDS(53,2) + ELSEIF(I.EQ.4) THEN +C...omega_tech0 -> Z0 + pi_tech0' + WDTP(I)=AEM*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3* + & (2D0*PARP(143)-1D0)**2*(1D0-PARJ(174)**2)/24D0/PARJ(172)**2* + & XW/XW1*SHR**3 + WID2=WIDS(23,2)*WIDS(51,2) + ELSEIF(I.EQ.5) THEN +C...omega_tech0 -> W+ + pi_tech- + WDTP(I)=AEM*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3* + & (1D0-PARP(141)**2)/4D0/XW/24D0/PARJ(172)**2*SHR**3+ + & FAC*PARP(141)**2*(1D0-PARP(141)**2)*PARJ(175)**2* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3 + WID2=WIDS(24,2)*WIDS(52,3) + ELSEIF(I.EQ.6) THEN +C...omega_tech0 -> pi_tech+ + W- + WDTP(I)=AEM*SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3* + & (1D0-PARP(141)**2)/4D0/XW/24D0/PARJ(172)**2*SHR**3+ + & FAC*PARP(141)**2*(1D0-PARP(141)**2)*PARJ(175)**2* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3 + WID2=WIDS(24,3)*WIDS(52,2) + ELSEIF(I.EQ.7) THEN +C...omega_tech0 -> W+ + W-. + WDTP(I)=FAC*PARP(141)**4*PARJ(175)**2* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3 + WID2=WIDS(24,1) + ELSEIF(I.EQ.8) THEN +C...omega_tech0 -> pi_tech+ + pi_tech-. + WDTP(I)=FAC*(1D0-PARP(141)**2)**2*PARJ(175)**2* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2))**3 + WID2=WIDS(52,1) + ELSE +C...omega_tech0 -> f + fbar. + WID2=1D0 + IF(I.LE.14) THEN + IA=I-8 + FCOF=3D0*RADC + IF(IA.GE.6.AND.IA.LE.8) WID2=WIDS(IA,1) + ELSE + IA=I-6 + FCOF=1D0 + IF(IA.GE.17) WID2=WIDS(IA,1) + ENDIF + EI=KCHG(IA,1)/3D0 + AI=SIGN(1D0,EI+0.1D0) + VI=AI-4D0*EI*XWV + VALI=0.5D0*(VI+AI) + VARI=0.5D0*(VI-AI) + WDTP(I)=FACF*FCOF*SQRT(MAX(0D0,1D0-4D0*RM1))*((1D0-RM1)* + & ((EI+VALI*BWZR)**2+(VALI*BWZI)**2+ + & (EI+VARI*BWZR)**2+(VARI*BWZI)**2)+6D0*RM1*( + & (EI+VALI*BWZR)*(EI+VARI*BWZR)+VALI*VARI*BWZI**2)) + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 380 CONTINUE + + ELSEIF(KFLA.EQ.61) THEN +C...H_L++/--: + FAC=(1D0/(8D0*PARU(1)))*SHR + DO 372 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 372 + RM1=PMAS(IABS(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(IABS(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 372 + WID2=1D0 + IF(I.LE.6) THEN +C...H_L++/-- -> l+/- + l'+/- + FCOF=PARP(180+3*((IABS(KFDP(IDC,1))-11)/2)+ + & (IABS(KFDP(IDC,2))-9)/2)**2 +C***Should be factor 4 below ??? + IF(KFDP(IDC,1).NE.KFDP(IDC,2)) FCOF=2D0*FCOF + ELSEIF(I.EQ.7) THEN +C...H_L++/-- -> W_L+/- + W_L+/- + FCOF=0.5D0*PARP(190)**4*PARP(192)**2/PMAS(24,1)**2* + & (3D0*RM1+0.25D0/RM1-1D0) + WID2=WIDS(24,4+(1-KFLS)/2) + ENDIF + WDTP(I)=FAC*FCOF* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2)) + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 372 CONTINUE + + ELSEIF(KFLA.EQ.62) THEN +C...H_R++/--: + FAC=(1D0/(8D0*PARU(1)))*SHR + DO 373 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 373 + RM1=PMAS(IABS(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(IABS(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 373 + WID2=1D0 + IF(I.LE.6) THEN +C...H_R++/-- -> l+/- + l'+/- + FCOF=PARP(180+3*((IABS(KFDP(IDC,1))-11)/2)+ + & (IABS(KFDP(IDC,2))-9)/2)**2 + IF(KFDP(IDC,1).NE.KFDP(IDC,2)) FCOF=2D0*FCOF + ELSEIF(I.EQ.7) THEN +C...H_R++/-- -> W_R+/- + W_R+/- + FCOF=PARP(191)**2*(3D0*RM1+0.25D0/RM1-1D0) + WID2=WIDS(63,4+(1-KFLS)/2) + ENDIF + WDTP(I)=FAC*FCOF* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2)) + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 373 CONTINUE + + ELSEIF(KFLA.EQ.63) THEN +C...W_R+/-: + FAC=(AEM/(24D0*XW))*SHR + DO 374 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 374 + RM1=PMAS(IABS(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(IABS(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 374 + WID2=1D0 + IF(I.LE.9) THEN +C...W_R+/- -> q + qbar' + FCOF=3D0*RADC*VCKM((I-1)/3+1,MOD(I-1,3)+1) + IF(KFLR.GT.0) THEN + IF(MOD(I,3).EQ.0) WID2=WIDS(6,2) + ELSE + IF(MOD(I,3).EQ.0) WID2=WIDS(6,3) + ENDIF + ELSEIF(I.LE.12) THEN +C...W_R+/- -> l+/- + nu_R + FCOF=1D0 + ENDIF + WDTP(I)=FAC*FCOF*(2D0-RM1-RM2-(RM1-RM2)**2)* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2)) + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 374 CONTINUE + + ELSEIF(KFLA.EQ.KEXCIT+1) THEN +C...d* excited quark. + FAC=(SH/PARU(155)**2)*SHR + DO 390 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 390 + RM1=PMAS(PYCOMP(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(PYCOMP(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 390 + WID2=1D0 + IF(I.EQ.1) THEN +C...d* -> g + d. + WDTP(I)=FAC*AS*PARU(159)**2/3D0 + WID2=1D0 + ELSEIF(I.EQ.2) THEN +C...d* -> gamma + d. + QF=-PARU(157)/2D0+PARU(158)/6D0 + WDTP(I)=FAC*AEM*QF**2/4D0 + WID2=1D0 + ELSEIF(I.EQ.3) THEN +C...d* -> Z0 + d. + QF=-PARU(157)*XW1/2D0-PARU(158)*XW/6D0 + WDTP(I)=FAC*AEM*QF**2/(8D0*XW*XW1)* + & (1D0-RM1)**2*(2D0+RM1) + WID2=WIDS(23,2) + ELSEIF(I.EQ.4) THEN +C...d* -> W- + u. + WDTP(I)=FAC*AEM*PARU(157)**2/(16D0*XW)* + & (1D0-RM1)**2*(2D0+RM1) + IF(KFLR.GT.0) WID2=WIDS(24,3) + IF(KFLR.LT.0) WID2=WIDS(24,2) + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 390 CONTINUE + + ELSEIF(KFLA.EQ.KEXCIT+2) THEN +C...u* excited quark. + FAC=(SH/PARU(155)**2)*SHR + DO 400 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 400 + RM1=PMAS(PYCOMP(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(PYCOMP(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 400 + WID2=1D0 + IF(I.EQ.1) THEN +C...u* -> g + u. + WDTP(I)=FAC*AS*PARU(159)**2/3D0 + WID2=1D0 + ELSEIF(I.EQ.2) THEN +C...u* -> gamma + u. + QF=PARU(157)/2D0+PARU(158)/6D0 + WDTP(I)=FAC*AEM*QF**2/4D0 + WID2=1D0 + ELSEIF(I.EQ.3) THEN +C...u* -> Z0 + u. + QF=PARU(157)*XW1/2D0-PARU(158)*XW/6D0 + WDTP(I)=FAC*AEM*QF**2/(8D0*XW*XW1)* + & (1D0-RM1)**2*(2D0+RM1) + WID2=WIDS(23,2) + ELSEIF(I.EQ.4) THEN +C...u* -> W+ + d. + WDTP(I)=FAC*AEM*PARU(157)**2/(16D0*XW)* + & (1D0-RM1)**2*(2D0+RM1) + IF(KFLR.GT.0) WID2=WIDS(24,2) + IF(KFLR.LT.0) WID2=WIDS(24,3) + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 400 CONTINUE + + ELSEIF(KFLA.EQ.KEXCIT+11) THEN +C...e* excited lepton. + FAC=(SH/PARU(155)**2)*SHR + DO 410 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 410 + RM1=PMAS(PYCOMP(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(PYCOMP(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 410 + WID2=1D0 + IF(I.EQ.1) THEN +C...e* -> gamma + e. + QF=-PARU(157)/2D0-PARU(158)/2D0 + WDTP(I)=FAC*AEM*QF**2/4D0 + WID2=1D0 + ELSEIF(I.EQ.2) THEN +C...e* -> Z0 + e. + QF=-PARU(157)*XW1/2D0+PARU(158)*XW/2D0 + WDTP(I)=FAC*AEM*QF**2/(8D0*XW*XW1)* + & (1D0-RM1)**2*(2D0+RM1) + WID2=WIDS(23,2) + ELSEIF(I.EQ.3) THEN +C...e* -> W- + nu. + WDTP(I)=FAC*AEM*PARU(157)**2/(16D0*XW)* + & (1D0-RM1)**2*(2D0+RM1) + IF(KFLR.GT.0) WID2=WIDS(24,3) + IF(KFLR.LT.0) WID2=WIDS(24,2) + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 410 CONTINUE + + ELSEIF(KFLA.EQ.KEXCIT+12) THEN +C...nu*_e excited neutrino. + FAC=(SH/PARU(155)**2)*SHR + DO 420 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 420 + RM1=PMAS(PYCOMP(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(PYCOMP(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 420 + WID2=1D0 + IF(I.EQ.1) THEN +C...nu*_e -> Z0 + nu*_e. + QF=PARU(157)*XW1/2D0+PARU(158)*XW/2D0 + WDTP(I)=FAC*AEM*QF**2/(8D0*XW*XW1)* + & (1D0-RM1)**2*(2D0+RM1) + WID2=WIDS(23,2) + ELSEIF(I.EQ.2) THEN +C...nu*_e -> W+ + e. + WDTP(I)=FAC*AEM*PARU(157)**2/(16D0*XW)* + & (1D0-RM1)**2*(2D0+RM1) + IF(KFLR.GT.0) WID2=WIDS(24,2) + IF(KFLR.LT.0) WID2=WIDS(24,3) + ENDIF + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 420 CONTINUE + + ENDIF + MINT(61)=0 + MINT(62)=0 + MINT(63)=0 + + RETURN + END + +C*********************************************************************** + +C...PYWIDX +C...Calculates full and partial widths of resonances. +C....copy of PYWIDT, used for techniparticle widths + + SUBROUTINE PYWIDX(KFLR,SH,WDTP,WDTE) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT4/MWID(500),WIDS(500,5) + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2), + &SFMIX(16,4) + SAVE /PYDAT1/,/PYDAT2/,/PYDAT3/,/PYSUBS/,/PYPARS/,/PYINT1/, + &/PYINT4/,/PYMSSM/,/PYSSMT/ +C...Local arrays and saved variables. + DIMENSION WDTP(0:200),WDTE(0:200,0:5),MOFSV(3,2),WIDWSV(3,2), + &WID2SV(3,2) + SAVE MOFSV,WIDWSV,WID2SV + DATA MOFSV/6*0/,WIDWSV/6*0D0/,WID2SV/6*0D0/ + +C...Compressed code and sign; mass. + KFLA=IABS(KFLR) + KFLS=ISIGN(1,KFLR) + KC=PYCOMP(KFLA) + SHR=SQRT(SH) + PMR=PMAS(KC,1) + +C...Reset width information. + DO 110 I=0,200 + WDTP(I)=0D0 + DO 100 J=0,5 + WDTE(I,J)=0D0 + 100 CONTINUE + 110 CONTINUE + +C...Common electroweak and strong constants. + XW=PARU(102) + XWV=XW + IF(MSTP(8).GE.2) XW=1D0-(PMAS(24,1)/PMAS(23,1))**2 + XW1=1D0-XW + AEM=PYALEM(SH) + IF(MSTP(8).GE.1) AEM=SQRT(2D0)*PARU(105)*PMAS(24,1)**2*XW/PARU(1) + AS=PYALPS(SH) + RADC=1D0+AS/PARU(1) + + IF(KFLA.EQ.23) THEN +C...Z0: + ICASE=1 + XWC=1D0/(16D0*XW*XW1) + FAC=(AEM*XWC/3D0)*SHR + 200 CONTINUE + DO 210 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 210 + RM1=PMAS(IABS(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(IABS(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 210 + WID2=1D0 + IF(I.LE.8) THEN +C...Z0 -> q + qbar + EF=KCHG(I,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + FCOF=3D0*RADC + IF(I.GE.6.AND.MSTP(35).GE.1) FCOF=FCOF*PYHFTH(SH,SH*RM1,1D0) + IF(I.EQ.6) WID2=WIDS(6,1) + IF((I.EQ.7.OR.I.EQ.8)) WID2=WIDS(I,1) + ELSEIF(I.LE.16) THEN +C...Z0 -> l+ + l-, nu + nubar + EF=KCHG(I+2,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + FCOF=1D0 + IF((I.EQ.15.OR.I.EQ.16)) WID2=WIDS(2+I,1) + ENDIF + BE34=SQRT(MAX(0D0,1D0-4D0*RM1)) + WDTP(I)=FAC*FCOF*(VF**2*(1D0+2D0*RM1)+AF**2*(1D0-4D0*RM1))* + & BE34 + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+ + & WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 210 CONTINUE + + + ELSEIF(KFLA.EQ.24) THEN +C...W+/-: + FAC=(AEM/(24D0*XW))*SHR + DO 220 I=1,MDCY(KC,3) + IDC=I+MDCY(KC,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 220 + RM1=PMAS(IABS(KFDP(IDC,1)),1)**2/SH + RM2=PMAS(IABS(KFDP(IDC,2)),1)**2/SH + IF(SQRT(RM1)+SQRT(RM2).GT.1D0) GOTO 220 + WID2=1D0 + IF(I.LE.16) THEN +C...W+/- -> q + qbar' + FCOF=3D0*RADC*VCKM((I-1)/4+1,MOD(I-1,4)+1) + IF(KFLR.GT.0) THEN + IF(MOD(I,4).EQ.3) WID2=WIDS(6,2) + IF(MOD(I,4).EQ.0) WID2=WIDS(8,2) + IF(I.GE.13) WID2=WID2*WIDS(7,3) + ELSE + IF(MOD(I,4).EQ.3) WID2=WIDS(6,3) + IF(MOD(I,4).EQ.0) WID2=WIDS(8,3) + IF(I.GE.13) WID2=WID2*WIDS(7,2) + ENDIF + ELSEIF(I.LE.20) THEN +C...W+/- -> l+/- + nu + FCOF=1D0 + IF(KFLR.GT.0) THEN + IF(I.EQ.20) WID2=WIDS(17,3)*WIDS(18,2) + ELSE + IF(I.EQ.20) WID2=WIDS(17,2)*WIDS(18,3) + ENDIF + ENDIF + WDTP(I)=FAC*FCOF*(2D0-RM1-RM2-(RM1-RM2)**2)* + & SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2)) + WDTP(0)=WDTP(0)+WDTP(I) + IF(MDME(IDC,1).GT.0) THEN + WDTE(I,MDME(IDC,1))=WDTP(I)*WID2 + WDTE(0,MDME(IDC,1))=WDTE(0,MDME(IDC,1))+WDTE(I,MDME(IDC,1)) + WDTE(I,0)=WDTE(I,MDME(IDC,1)) + WDTE(0,0)=WDTE(0,0)+WDTE(I,0) + ENDIF + 220 CONTINUE + ENDIF + + RETURN + END + +C*********************************************************************** + +C...PYOFSH +C...Calculates partial width and differential cross-section maxima +C...of channels/processes not allowed on mass-shell, and selects +C...masses in such channels/processes. + + SUBROUTINE PYOFSH(MOFSH,KFMO,KFD1,KFD2,PMMO,RET1,RET2) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3) + SAVE /PYDAT1/,/PYDAT2/,/PYDAT3/,/PYSUBS/,/PYPARS/,/PYINT1/, + &/PYINT2/,/PYINT5/ +C...Local arrays. + DIMENSION KFD(2),MBW(2),PMD(2),PGD(2),PMG(2),PML(2),PMU(2), + &PMH(2),ATL(2),ATU(2),ATH(2),RMG(2),INX1(100),XPT1(100), + &FPT1(100),INX2(100),XPT2(100),FPT2(100),WDTP(0:200), + &WDTE(0:200,0:5) + +C...Find if particles equal, maximum mass, matrix elements, etc. + MINT(51)=0 + ISUB=MINT(1) + KFD(1)=IABS(KFD1) + KFD(2)=IABS(KFD2) + MEQL=0 + IF(KFD(1).EQ.KFD(2)) MEQL=1 + MLM=0 + IF(MOFSH.GE.2.AND.MEQL.EQ.1) MLM=INT(1.5D0+PYR(0)) + IF(MOFSH.LE.2.OR.MOFSH.EQ.5) THEN + NOFF=44 + PMMX=PMMO + ELSE + NOFF=40 + PMMX=VINT(1) + IF(CKIN(2).GT.CKIN(1)) PMMX=MIN(CKIN(2),VINT(1)) + ENDIF + MMED=0 + IF((KFMO.EQ.25.OR.KFMO.EQ.35.OR.KFMO.EQ.36).AND.MEQL.EQ.1.AND. + &(KFD(1).EQ.23.OR.KFD(1).EQ.24)) MMED=1 + IF((KFMO.EQ.32.OR.IABS(KFMO).EQ.34).AND.(KFD(1).EQ.23.OR. + &KFD(1).EQ.24).AND.(KFD(2).EQ.23.OR.KFD(2).EQ.24)) MMED=2 + IF((KFMO.EQ.32.OR.IABS(KFMO).EQ.34).AND.(KFD(2).EQ.25.OR. + &KFD(2).EQ.35.OR.KFD(2).EQ.36)) MMED=3 + LOOP=1 + +C...Find where Breit-Wigners are required, else select discrete masses. + 100 DO 110 I=1,2 + KFCA=PYCOMP(KFD(I)) + IF(KFCA.GT.0) THEN + PMD(I)=PMAS(KFCA,1) + PGD(I)=PMAS(KFCA,2) + ELSE + PMD(I)=0D0 + PGD(I)=0D0 + ENDIF + IF(MSTP(42).LE.0.OR.PGD(I).LT.PARP(41)) THEN + MBW(I)=0 + PMG(I)=PMD(I) + RMG(I)=(PMG(I)/PMMX)**2 + ELSE + MBW(I)=1 + ENDIF + 110 CONTINUE + +C...Find allowed mass range and Breit-Wigner parameters. + DO 120 I=1,2 + IF(MOFSH.EQ.1.AND.LOOP.EQ.1.AND.MBW(I).EQ.1) THEN + PML(I)=PARP(42) + PMU(I)=PMMX-PARP(42) + IF(MBW(3-I).EQ.0) PMU(I)=MIN(PMU(I),PMMX-PMD(3-I)) + IF(PMU(I).LT.PML(I)+PARJ(64)) MBW(I)=-1 + ELSEIF(MBW(I).EQ.1.AND.MOFSH.NE.5) THEN + ILM=I + IF(MLM.EQ.2) ILM=3-I + PML(I)=MAX(CKIN(NOFF+2*ILM-1),PARP(42)) + IF(MBW(3-I).EQ.0) THEN + PMU(I)=PMMX-PMD(3-I) + ELSE + PMU(I)=PMMX-MAX(CKIN(NOFF+5-2*ILM),PARP(42)) + ENDIF + IF(CKIN(NOFF+2*ILM).GT.CKIN(NOFF+2*ILM-1)) PMU(I)= + & MIN(PMU(I),CKIN(NOFF+2*ILM)) + IF(I.EQ.MLM) PMU(I)=MIN(PMU(I),0.5D0*PMMX) + IF(MEQL.EQ.0) PMH(I)=MIN(PMU(I),0.5D0*PMMX) + IF(PMU(I).LT.PML(I)+PARJ(64)) MBW(I)=-1 + IF(MBW(I).EQ.1) THEN + ATL(I)=ATAN((PML(I)**2-PMD(I)**2)/(PMD(I)*PGD(I))) + ATU(I)=ATAN((PMU(I)**2-PMD(I)**2)/(PMD(I)*PGD(I))) + IF(MEQL.EQ.0) ATH(I)=ATAN((PMH(I)**2-PMD(I)**2)/(PMD(I)* + & PGD(I))) + ENDIF + ELSEIF(MBW(I).EQ.1.AND.MOFSH.EQ.5) THEN + ILM=I + IF(MLM.EQ.2) ILM=3-I + PML(I)=MAX(CKIN(48+I),PARP(42)) + PMU(I)=PMMX-MAX(CKIN(51-I),PARP(42)) + IF(MBW(3-I).EQ.0) PMU(I)=MIN(PMU(I),PMMX-PMD(3-I)) + IF(I.EQ.MLM) PMU(I)=MIN(PMU(I),0.5D0*PMMX) + IF(MEQL.EQ.0) PMH(I)=MIN(PMU(I),0.5D0*PMMX) + IF(PMU(I).LT.PML(I)+PARJ(64)) MBW(I)=-1 + IF(MBW(I).EQ.1) THEN + ATL(I)=ATAN((PML(I)**2-PMD(I)**2)/(PMD(I)*PGD(I))) + ATU(I)=ATAN((PMU(I)**2-PMD(I)**2)/(PMD(I)*PGD(I))) + IF(MEQL.EQ.0) ATH(I)=ATAN((PMH(I)**2-PMD(I)**2)/(PMD(I)* + & PGD(I))) + ENDIF + ENDIF + 120 CONTINUE + IF(MBW(1).LT.0.OR.MBW(2).LT.0.OR.(MBW(1).EQ.0.AND.MBW(2).EQ.0)) + &THEN + CALL PYERRM(3,'(PYOFSH:) no allowed decay product masses') + MINT(51)=1 + RETURN + ENDIF + +C...Calculation of partial width of resonance. + IF(MOFSH.EQ.1) THEN + +C..If only one integration, pick that to be the inner. + IF(MBW(1).EQ.0) THEN + PM2=PMD(1) + PMD(1)=PMD(2) + PGD(1)=PGD(2) + PML(1)=PML(2) + PMU(1)=PMU(2) + ELSEIF(MBW(2).EQ.0) THEN + PM2=PMD(2) + ENDIF + +C...Start outer loop of integration. + IF(MBW(1).EQ.1.AND.MBW(2).EQ.1) THEN + ATL2=ATAN((PML(2)**2-PMD(2)**2)/(PMD(2)*PGD(2))) + ATU2=ATAN((PMU(2)**2-PMD(2)**2)/(PMD(2)*PGD(2))) + NPT2=1 + XPT2(1)=1D0 + INX2(1)=0 + FMAX2=0D0 + ENDIF + 130 IF(MBW(1).EQ.1.AND.MBW(2).EQ.1) THEN + PM2S=PMD(2)**2+PMD(2)*PGD(2)*TAN(ATL2+XPT2(NPT2)*(ATU2-ATL2)) + PM2=MIN(PMU(2),MAX(PML(2),SQRT(MAX(0D0,PM2S)))) + ENDIF + RM2=(PM2/PMMX)**2 + +C...Start inner loop of integration. + PML1=PML(1) + PMU1=MIN(PMU(1),PMMX-PM2) + IF(MEQL.EQ.1) PMU1=MIN(PMU1,PM2) + ATL1=ATAN((PML1**2-PMD(1)**2)/(PMD(1)*PGD(1))) + ATU1=ATAN((PMU1**2-PMD(1)**2)/(PMD(1)*PGD(1))) + IF(PML1+PARJ(64).GE.PMU1.OR.ATL1+1D-7.GE.ATU1) THEN + FUNC2=0D0 + GOTO 180 + ENDIF + NPT1=1 + XPT1(1)=1D0 + INX1(1)=0 + FMAX1=0D0 + 140 PM1S=PMD(1)**2+PMD(1)*PGD(1)*TAN(ATL1+XPT1(NPT1)*(ATU1-ATL1)) + PM1=MIN(PMU1,MAX(PML1,SQRT(MAX(0D0,PM1S)))) + RM1=(PM1/PMMX)**2 + +C...Evaluate function value - inner loop. + FUNC1=SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2)) + IF(MMED.EQ.1) FUNC1=FUNC1*((1D0-RM1-RM2)**2+8D0*RM1*RM2) + IF(MMED.EQ.2) FUNC1=FUNC1**3*(1D0+10D0*RM1+10D0*RM2+RM1**2+ + & RM2**2+10D0*RM1*RM2) + IF(FUNC1.GT.FMAX1) FMAX1=FUNC1 + FPT1(NPT1)=FUNC1 + +C...Go to next position in inner loop. + IF(NPT1.EQ.1) THEN + NPT1=NPT1+1 + XPT1(NPT1)=0D0 + INX1(NPT1)=1 + GOTO 140 + ELSEIF(NPT1.LE.8) THEN + NPT1=NPT1+1 + IF(NPT1.LE.4.OR.NPT1.EQ.6) ISH1=1 + ISH1=ISH1+1 + XPT1(NPT1)=0.5D0*(XPT1(ISH1)+XPT1(INX1(ISH1))) + INX1(NPT1)=INX1(ISH1) + INX1(ISH1)=NPT1 + GOTO 140 + ELSEIF(NPT1.LT.100) THEN + ISN1=ISH1 + 150 ISH1=ISH1+1 + IF(ISH1.GT.NPT1) ISH1=2 + IF(ISH1.EQ.ISN1) GOTO 160 + DFPT1=ABS(FPT1(ISH1)-FPT1(INX1(ISH1))) + IF(DFPT1.LT.PARP(43)*FMAX1) GOTO 150 + NPT1=NPT1+1 + XPT1(NPT1)=0.5D0*(XPT1(ISH1)+XPT1(INX1(ISH1))) + INX1(NPT1)=INX1(ISH1) + INX1(ISH1)=NPT1 + GOTO 140 + ENDIF + +C...Calculate integral over inner loop. + 160 FSUM1=0D0 + DO 170 IPT1=2,NPT1 + FSUM1=FSUM1+0.5D0*(FPT1(IPT1)+FPT1(INX1(IPT1)))* + & (XPT1(INX1(IPT1))-XPT1(IPT1)) + 170 CONTINUE + FUNC2=FSUM1*(ATU1-ATL1)/PARU(1) + 180 IF(MBW(1).EQ.1.AND.MBW(2).EQ.1) THEN + IF(FUNC2.GT.FMAX2) FMAX2=FUNC2 + FPT2(NPT2)=FUNC2 + +C...Go to next position in outer loop. + IF(NPT2.EQ.1) THEN + NPT2=NPT2+1 + XPT2(NPT2)=0D0 + INX2(NPT2)=1 + GOTO 130 + ELSEIF(NPT2.LE.8) THEN + NPT2=NPT2+1 + IF(NPT2.LE.4.OR.NPT2.EQ.6) ISH2=1 + ISH2=ISH2+1 + XPT2(NPT2)=0.5D0*(XPT2(ISH2)+XPT2(INX2(ISH2))) + INX2(NPT2)=INX2(ISH2) + INX2(ISH2)=NPT2 + GOTO 130 + ELSEIF(NPT2.LT.100) THEN + ISN2=ISH2 + 190 ISH2=ISH2+1 + IF(ISH2.GT.NPT2) ISH2=2 + IF(ISH2.EQ.ISN2) GOTO 200 + DFPT2=ABS(FPT2(ISH2)-FPT2(INX2(ISH2))) + IF(DFPT2.LT.PARP(43)*FMAX2) GOTO 190 + NPT2=NPT2+1 + XPT2(NPT2)=0.5D0*(XPT2(ISH2)+XPT2(INX2(ISH2))) + INX2(NPT2)=INX2(ISH2) + INX2(ISH2)=NPT2 + GOTO 130 + ENDIF + +C...Calculate integral over outer loop. + 200 FSUM2=0D0 + DO 210 IPT2=2,NPT2 + FSUM2=FSUM2+0.5D0*(FPT2(IPT2)+FPT2(INX2(IPT2)))* + & (XPT2(INX2(IPT2))-XPT2(IPT2)) + 210 CONTINUE + FSUM2=FSUM2*(ATU2-ATL2)/PARU(1) + IF(MEQL.EQ.1) FSUM2=2D0*FSUM2 + ELSE + FSUM2=FUNC2 + ENDIF + +C...Save result; second integration for user-selected mass range. + IF(LOOP.EQ.1) WIDW=FSUM2 + WID2=FSUM2 + IF(LOOP.EQ.1.AND.(CKIN(46).GE.CKIN(45).OR.CKIN(48).GE.CKIN(47) + & .OR.MAX(CKIN(45),CKIN(47)).GE.1.01D0*PARP(42))) THEN + LOOP=2 + GOTO 100 + ENDIF + RET1=WIDW + RET2=WID2/WIDW + +C...Select two decay product masses of a resonance. + ELSEIF(MOFSH.EQ.2.OR.MOFSH.EQ.5) THEN + 220 DO 230 I=1,2 + IF(MBW(I).EQ.0) GOTO 230 + PMBW=PMD(I)**2+PMD(I)*PGD(I)*TAN(ATL(I)+PYR(0)* + & (ATU(I)-ATL(I))) + PMG(I)=MIN(PMU(I),MAX(PML(I),SQRT(MAX(0D0,PMBW)))) + RMG(I)=(PMG(I)/PMMX)**2 + 230 CONTINUE + IF((MEQL.EQ.1.AND.PMG(MAX(1,MLM)).GT.PMG(MIN(2,3-MLM))).OR. + & PMG(1)+PMG(2)+PARJ(64).GT.PMMX) GOTO 220 + +C...Weight with matrix element (if none known, use beta factor). + FLAM=SQRT(MAX(0D0,(1D0-RMG(1)-RMG(2))**2-4D0*RMG(1)*RMG(2))) + IF(MMED.EQ.1) THEN + WTBE=FLAM*((1D0-RMG(1)-RMG(2))**2+8D0*RMG(1)*RMG(2)) + ELSEIF(MMED.EQ.2) THEN + WTBE=FLAM**3*(1D0+10D0*RMG(1)+10D0*RMG(2)+RMG(1)**2+ + & RMG(2)**2+10D0*RMG(1)*RMG(2)) + ELSEIF(MMED.EQ.3) THEN + WTBE=FLAM*(RMG(1)+FLAM**2/12D0) + ELSE + WTBE=FLAM + ENDIF + IF(WTBE.LT.PYR(0)) GOTO 220 + RET1=PMG(1) + RET2=PMG(2) + +C...Find suitable set of masses for initialization of 2 -> 2 processes. + ELSEIF(MOFSH.EQ.3) THEN + IF(MBW(1).NE.0.AND.MBW(2).EQ.0) THEN + PMG(1)=MIN(PMD(1),0.5D0*(PML(1)+PMU(1))) + PMG(2)=PMD(2) + ELSEIF(MBW(2).NE.0.AND.MBW(1).EQ.0) THEN + PMG(1)=PMD(1) + PMG(2)=MIN(PMD(2),0.5D0*(PML(2)+PMU(2))) + ELSE + IDIV=-1 + 240 IDIV=IDIV+1 + PMG(1)=MIN(PMD(1),0.1D0*(IDIV*PML(1)+(10-IDIV)*PMU(1))) + PMG(2)=MIN(PMD(2),0.1D0*(IDIV*PML(2)+(10-IDIV)*PMU(2))) + IF(IDIV.LE.9.AND.PMG(1)+PMG(2).GT.0.9D0*PMMX) GOTO 240 + ENDIF + RET1=PMG(1) + RET2=PMG(2) + +C...Evaluate importance of excluded tails of Breit-Wigners. + IF(MEQL.EQ.0.AND.MBW(1).EQ.1.AND.MBW(2).EQ.1.AND.PMD(1)+PMD(2) + & .GT.PMMX.AND.PMH(1).GT.PML(1).AND.PMH(2).GT.PML(2)) MEQL=2 + IF(MEQL.LE.1) THEN + VINT(80)=1D0 + DO 250 I=1,2 + IF(MBW(I).NE.0) VINT(80)=VINT(80)*1.25D0*(ATU(I)-ATL(I))/ + & PARU(1) + 250 CONTINUE + ELSE + VINT(80)=(1.25D0/PARU(1))**2*MAX((ATU(1)-ATL(1))* + & (ATH(2)-ATL(2)),(ATH(1)-ATL(1))*(ATU(2)-ATL(2))) + ENDIF + IF((ISUB.EQ.15.OR.ISUB.EQ.19.OR.ISUB.EQ.30.OR.ISUB.EQ.35).AND. + & MSTP(43).NE.2) VINT(80)=2D0*VINT(80) + IF(ISUB.EQ.22.AND.MSTP(43).NE.2) VINT(80)=4D0*VINT(80) + IF(MEQL.GE.1) VINT(80)=2D0*VINT(80) + +C...Pick one particle to be the lighter (if improves efficiency). + ELSEIF(MOFSH.EQ.4) THEN + IF(MEQL.EQ.0.AND.MBW(1).EQ.1.AND.MBW(2).EQ.1.AND.PMD(1)+PMD(2) + & .GT.PMMX.AND.PMH(1).GT.PML(1).AND.PMH(2).GT.PML(2)) MEQL=2 + 260 IF(MEQL.EQ.2) MLM=INT(1.5D0+PYR(0)) + +C...Select two masses according to Breit-Wigner + flat in s + 1/s. + DO 270 I=1,2 + IF(MBW(I).EQ.0) GOTO 270 + PMV=PMU(I) + IF(MEQL.EQ.2.AND.I.EQ.MLM) PMV=PMH(I) + ATV=ATU(I) + IF(MEQL.EQ.2.AND.I.EQ.MLM) ATV=ATH(I) + RBR=PYR(0) + IF((ISUB.EQ.15.OR.ISUB.EQ.19.OR.ISUB.EQ.22.OR.ISUB.EQ.30.OR. + & ISUB.EQ.35).AND.MSTP(43).NE.2) RBR=2D0*RBR + IF(RBR.LT.0.8D0) THEN + PMSR=PMD(I)**2+PMD(I)*PGD(I)*TAN(ATL(I)+PYR(0)*(ATV-ATL(I))) + PMG(I)=MIN(PMV,MAX(PML(I),SQRT(MAX(0D0,PMSR)))) + ELSEIF(RBR.LT.0.9D0) THEN + PMG(I)=SQRT(MAX(0D0,PML(I)**2+PYR(0)*(PMV**2-PML(I)**2))) + ELSEIF(RBR.LT.1.5D0) THEN + PMG(I)=PML(I)*(PMV/PML(I))**PYR(0) + ELSE + PMG(I)=SQRT(MAX(0D0,PML(I)**2*PMV**2/(PML(I)**2+PYR(0)* + & (PMV**2-PML(I)**2)))) + ENDIF + 270 CONTINUE + IF((MEQL.GE.1.AND.PMG(MAX(1,MLM)).GT.PMG(MIN(2,3-MLM))).OR. + & PMG(1)+PMG(2)+PARJ(64).GT.PMMX) THEN + IF(MINT(48).EQ.1) THEN + NGEN(0,1)=NGEN(0,1)+1 + NGEN(MINT(1),1)=NGEN(MINT(1),1)+1 + GOTO 260 + ELSE + MINT(51)=1 + RETURN + ENDIF + ENDIF + RET1=PMG(1) + RET2=PMG(2) + +C...Give weight for selected mass distribution. + VINT(80)=1D0 + DO 280 I=1,2 + IF(MBW(I).EQ.0) GOTO 280 + PMV=PMU(I) + IF(MEQL.EQ.2.AND.I.EQ.MLM) PMV=PMH(I) + ATV=ATU(I) + IF(MEQL.EQ.2.AND.I.EQ.MLM) ATV=ATH(I) + F0=PMD(I)*PGD(I)/((PMG(I)**2-PMD(I)**2)**2+ + & (PMD(I)*PGD(I))**2)/PARU(1) + F1=1D0 + F2=1D0/PMG(I)**2 + F3=1D0/PMG(I)**4 + FI0=(ATV-ATL(I))/PARU(1) + FI1=PMV**2-PML(I)**2 + FI2=2D0*LOG(PMV/PML(I)) + FI3=1D0/PML(I)**2-1D0/PMV**2 + IF((ISUB.EQ.15.OR.ISUB.EQ.19.OR.ISUB.EQ.22.OR.ISUB.EQ.30.OR. + & ISUB.EQ.35).AND.MSTP(43).NE.2) THEN + VINT(80)=VINT(80)*20D0/(8D0+(FI0/F0)*(F1/FI1+6D0*F2/FI2+ + & 5D0*F3/FI3)) + ELSE + VINT(80)=VINT(80)*10D0/(8D0+(FI0/F0)*(F1/FI1+F2/FI2)) + ENDIF + VINT(80)=VINT(80)*FI0 + 280 CONTINUE + IF(MEQL.GE.1) VINT(80)=2D0*VINT(80) + ENDIF + + RETURN + END + +C*********************************************************************** + +C...PYRECO +C...Handles the possibility of colour reconnection in W+W- events, +C...Based on the main scenarios of the Sjostrand and Khoze study: +C...I, II, II', intermediate and instantaneous; plus one model +C...along the lines of the Gustafson and Hakkinen: GH. +C...Note: also handles Z0 Z0 and W-W+ events, but notation below +C...is as if first resonance is W+ and second W-. + + SUBROUTINE PYRECO(IW1,IW2,NSD1,NAFT1) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter value; number of points in MC integration. + PARAMETER (NPT=100) +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYPARS/,/PYINT1/ +C...Local arrays. + DIMENSION NBEG(2),NEND(2),INP(50),INM(50),BEWW(3),XP(3),XM(3), + &V1(3),V2(3),BETP(50,4),DIRP(50,3),BETM(50,4),DIRM(50,3), + &XD(4),XB(4),IAP(NPT),IAM(NPT),WTA(NPT),V1P(3),V2P(3),V1M(3), + &V2M(3),Q(4,3),XPP(3),XMM(3),IPC(20),IMC(20),TC(0:20),TPC(20), + &TMC(20),IJOIN(100) + +C...Functions to give four-product and to do determinants. + FOUR(I,J)=P(I,4)*P(J,4)-P(I,1)*P(J,1)-P(I,2)*P(J,2)-P(I,3)*P(J,3) + DETER(I,J,L)=Q(I,1)*Q(J,2)*Q(L,3)-Q(I,1)*Q(L,2)*Q(J,3)+ + &Q(J,1)*Q(L,2)*Q(I,3)-Q(J,1)*Q(I,2)*Q(L,3)+ + &Q(L,1)*Q(I,2)*Q(J,3)-Q(L,1)*Q(J,2)*Q(I,3) + +C...Only allow fraction of recoupling for GH, intermediate and +C...instantaneous. + IF(MSTP(115).EQ.5.OR.MSTP(115).EQ.11.OR.MSTP(115).EQ.12) THEN + IF(PYR(0).GT.PARP(120)) RETURN + ENDIF + ISUB=MINT(1) + +C...Common part for scenarios I, II, II', and GH. + IF(MSTP(115).EQ.1.OR.MSTP(115).EQ.2.OR.MSTP(115).EQ.3.OR. + &MSTP(115).EQ.5) THEN + +C...Read out frequently-used parameters. + PI=PARU(1) + HBAR=PARU(3) + PMW=PMAS(24,1) + IF(ISUB.EQ.22) PMW=PMAS(23,1) + PGW=PMAS(24,2) + IF(ISUB.EQ.22) PGW=PMAS(23,2) + TFRAG=PARP(115) + RHAD=PARP(116) + FACT=PARP(117) + BLOWR=PARP(118) + BLOWT=PARP(119) + +C...Find range of decay products of the W's. +C...Background: the W's are stored in IW1 and IW2. +C...Their direct decay products in NSD1+1 through NSD1+4. +C...Products after shower (if any) in NSD1+5 through NAFT1 +C...for first W and in NAFT1+1 through N for the second. + IF(NAFT1.GT.NSD1+4) THEN + NBEG(1)=NSD1+5 + NEND(1)=NAFT1 + ELSE + NBEG(1)=NSD1+1 + NEND(1)=NSD1+2 + ENDIF + IF(N.GT.NAFT1) THEN + NBEG(2)=NAFT1+1 + NEND(2)=N + ELSE + NBEG(2)=NSD1+3 + NEND(2)=NSD1+4 + ENDIF + +C...Rearrange parton shower products along strings. + NOLD=N + CALL PYPREP(NSD1+1) + +C...Find partons pointing back to W+ and W-; store them with quark +C...end of string first. + NNP=0 + NNM=0 + ISGP=0 + ISGM=0 + DO 120 I=NOLD+1,N + IF(K(I,1).NE.1.AND.K(I,1).NE.2) GOTO 120 + IF(IABS(K(I,2)).GE.22) GOTO 120 + IF(K(I,3).GE.NBEG(1).AND.K(I,3).LE.NEND(1)) THEN + IF(ISGP.EQ.0) ISGP=ISIGN(1,K(I,2)) + NNP=NNP+1 + IF(ISGP.EQ.1) THEN + INP(NNP)=I + ELSE + DO 100 I1=NNP,2,-1 + INP(I1)=INP(I1-1) + 100 CONTINUE + INP(1)=I + ENDIF + IF(K(I,1).EQ.1) ISGP=0 + ELSEIF(K(I,3).GE.NBEG(2).AND.K(I,3).LE.NEND(2)) THEN + IF(ISGM.EQ.0) ISGM=ISIGN(1,K(I,2)) + NNM=NNM+1 + IF(ISGM.EQ.1) THEN + INM(NNM)=I + ELSE + DO 110 I1=NNM,2,-1 + INM(I1)=INM(I1-1) + 110 CONTINUE + INM(1)=I + ENDIF + IF(K(I,1).EQ.1) ISGM=0 + ENDIF + 120 CONTINUE + +C...Boost to W+W- rest frame (not strictly needed). + DO 130 J=1,3 + BEWW(J)=(P(IW1,J)+P(IW2,J))/(P(IW1,4)+P(IW2,4)) + 130 CONTINUE + CALL PYROBO(IW1,IW1,0D0,0D0,-BEWW(1),-BEWW(2),-BEWW(3)) + CALL PYROBO(IW2,IW2,0D0,0D0,-BEWW(1),-BEWW(2),-BEWW(3)) + CALL PYROBO(NOLD+1,N,0D0,0D0,-BEWW(1),-BEWW(2),-BEWW(3)) + +C...Select decay vertices of W+ and W-. + TP=HBAR*(-LOG(PYR(0)))*P(IW1,4)/ + & SQRT((P(IW1,5)**2-PMW**2)**2+(P(IW1,5)**2*PGW/PMW)**2) + TM=HBAR*(-LOG(PYR(0)))*P(IW2,4)/ + & SQRT((P(IW2,5)**2-PMW**2)**2+(P(IW2,5)**2*PGW/PMW)**2) + GTMAX=MAX(TP,TM) + DO 140 J=1,3 + XP(J)=TP*P(IW1,J)/P(IW1,4) + XM(J)=TM*P(IW2,J)/P(IW2,4) + 140 CONTINUE + +C...Begin scenario I specifics. + IF(MSTP(115).EQ.1) THEN + +C...Reconstruct velocity and direction of W+ string pieces. + DO 170 IIP=1,NNP-1 + IF(K(INP(IIP),2).LT.0) GOTO 170 + I1=INP(IIP) + I2=INP(IIP+1) + P1A=SQRT(P(I1,1)**2+P(I1,2)**2+P(I1,3)**2) + P2A=SQRT(P(I2,1)**2+P(I2,2)**2+P(I2,3)**2) + DO 150 J=1,3 + V1(J)=P(I1,J)/P1A + V2(J)=P(I2,J)/P2A + BETP(IIP,J)=0.5D0*(V1(J)+V2(J)) + DIRP(IIP,J)=V1(J)-V2(J) + 150 CONTINUE + BETP(IIP,4)=1D0/SQRT(1D0-BETP(IIP,1)**2-BETP(IIP,2)**2- + & BETP(IIP,3)**2) + DIRL=SQRT(DIRP(IIP,1)**2+DIRP(IIP,2)**2+DIRP(IIP,3)**2) + DO 160 J=1,3 + DIRP(IIP,J)=DIRP(IIP,J)/DIRL + 160 CONTINUE + 170 CONTINUE + +C...Reconstruct velocity and direction of W- string pieces. + DO 200 IIM=1,NNM-1 + IF(K(INM(IIM),2).LT.0) GOTO 200 + I1=INM(IIM) + I2=INM(IIM+1) + P1A=SQRT(P(I1,1)**2+P(I1,2)**2+P(I1,3)**2) + P2A=SQRT(P(I2,1)**2+P(I2,2)**2+P(I2,3)**2) + DO 180 J=1,3 + V1(J)=P(I1,J)/P1A + V2(J)=P(I2,J)/P2A + BETM(IIM,J)=0.5D0*(V1(J)+V2(J)) + DIRM(IIM,J)=V1(J)-V2(J) + 180 CONTINUE + BETM(IIM,4)=1D0/SQRT(1D0-BETM(IIM,1)**2-BETM(IIM,2)**2- + & BETM(IIM,3)**2) + DIRL=SQRT(DIRM(IIM,1)**2+DIRM(IIM,2)**2+DIRM(IIM,3)**2) + DO 190 J=1,3 + DIRM(IIM,J)=DIRM(IIM,J)/DIRL + 190 CONTINUE + 200 CONTINUE + +C...Loop over number of space-time points. + NACC=0 + SUM=0D0 + DO 250 IPT=1,NPT + +C...Pick x,y,z,t Gaussian (width RHAD and TFRAG, respectively). + R=SQRT(-LOG(PYR(0))) + PHI=2D0*PI*PYR(0) + X=BLOWR*RHAD*R*COS(PHI) + Y=BLOWR*RHAD*R*SIN(PHI) + R=SQRT(-LOG(PYR(0))) + PHI=2D0*PI*PYR(0) + Z=BLOWR*RHAD*R*COS(PHI) + T=GTMAX+BLOWT*SQRT(0.5D0)*TFRAG*R*ABS(SIN(PHI)) + +C...Weight for sample distribution. + WTSMP=EXP(-(X**2+Y**2+Z**2)/(BLOWR*RHAD)**2)* + & EXP(-2D0*(T-GTMAX)**2/(BLOWT*TFRAG)**2) + +C...Loop over W+ string pieces and find one with largest weight. + IMAXP=0 + WTMAXP=1D-10 + XD(1)=X-XP(1) + XD(2)=Y-XP(2) + XD(3)=Z-XP(3) + XD(4)=T-TP + DO 220 IIP=1,NNP-1 + IF(K(INP(IIP),2).LT.0) GOTO 220 + BED=BETP(IIP,1)*XD(1)+BETP(IIP,2)*XD(2)+BETP(IIP,3)*XD(3) + BEDG=BETP(IIP,4)*(BETP(IIP,4)*BED/(1D0+BETP(IIP,4))-XD(4)) + DO 210 J=1,3 + XB(J)=XD(J)+BEDG*BETP(IIP,J) + 210 CONTINUE + XB(4)=BETP(IIP,4)*(XD(4)-BED) + SR2=XB(1)**2+XB(2)**2+XB(3)**2 + SZ2=(DIRP(IIP,1)*XB(1)+DIRP(IIP,2)*XB(2)+ + & DIRP(IIP,3)*XB(3))**2 + WTP=EXP(-(SR2-SZ2)/(2D0*RHAD**2))*EXP(-(XB(4)**2-SZ2)/ + & TFRAG**2) + IF(XB(4)-SQRT(SR2).LT.0D0) WTP=0D0 + IF(WTP.GT.WTMAXP) THEN + IMAXP=IIP + WTMAXP=WTP + ENDIF + 220 CONTINUE + +C...Loop over W- string pieces and find one with largest weight. + IMAXM=0 + WTMAXM=1D-10 + XD(1)=X-XM(1) + XD(2)=Y-XM(2) + XD(3)=Z-XM(3) + XD(4)=T-TM + DO 240 IIM=1,NNM-1 + IF(K(INM(IIM),2).LT.0) GOTO 240 + BED=BETM(IIM,1)*XD(1)+BETM(IIM,2)*XD(2)+BETM(IIM,3)*XD(3) + BEDG=BETM(IIM,4)*(BETM(IIM,4)*BED/(1D0+BETM(IIM,4))-XD(4)) + DO 230 J=1,3 + XB(J)=XD(J)+BEDG*BETM(IIM,J) + 230 CONTINUE + XB(4)=BETM(IIM,4)*(XD(4)-BED) + SR2=XB(1)**2+XB(2)**2+XB(3)**2 + SZ2=(DIRM(IIM,1)*XB(1)+DIRM(IIM,2)*XB(2)+ + & DIRM(IIM,3)*XB(3))**2 + WTM=EXP(-(SR2-SZ2)/(2D0*RHAD**2))*EXP(-(XB(4)**2-SZ2)/ + & TFRAG**2) + IF(XB(4)-SQRT(SR2).LT.0D0) WTM=0D0 + IF(WTM.GT.WTMAXM) THEN + IMAXM=IIM + WTMAXM=WTM + ENDIF + 240 CONTINUE + +C...Result of integration. + WT=0D0 + IF(IMAXP.NE.0.AND.IMAXM.NE.0) THEN + WT=WTMAXP*WTMAXM/WTSMP + SUM=SUM+WT + NACC=NACC+1 + IAP(NACC)=IMAXP + IAM(NACC)=IMAXM + WTA(NACC)=WT + ENDIF + 250 CONTINUE + RES=BLOWR**3*BLOWT*SUM/NPT + +C...Decide whether to reconnect and, if so, where. + IACC=0 + PREC=1D0-EXP(-FACT*RES) + IF(PREC.GT.PYR(0)) THEN + RSUM=PYR(0)*SUM + DO 260 IA=1,NACC + IACC=IA + RSUM=RSUM-WTA(IA) + IF(RSUM.LE.0D0) GOTO 270 + 260 CONTINUE + 270 IIP=IAP(IACC) + IIM=IAM(IACC) + ENDIF + +C...Begin scenario II and II' specifics. + ELSEIF(MSTP(115).EQ.2.OR.MSTP(115).EQ.3) THEN + +C...Loop through all string pieces, one from W+ and one from W-. + NCROSS=0 + TC(0)=0D0 + DO 340 IIP=1,NNP-1 + IF(K(INP(IIP),2).LT.0) GOTO 340 + I1P=INP(IIP) + I2P=INP(IIP+1) + DO 330 IIM=1,NNM-1 + IF(K(INM(IIM),2).LT.0) GOTO 330 + I1M=INM(IIM) + I2M=INM(IIM+1) + +C...Find endpoint velocity vectors. + DO 280 J=1,3 + V1P(J)=P(I1P,J)/P(I1P,4) + V2P(J)=P(I2P,J)/P(I2P,4) + V1M(J)=P(I1M,J)/P(I1M,4) + V2M(J)=P(I2M,J)/P(I2M,4) + 280 CONTINUE + +C...Define q matrix and find t. + DO 290 J=1,3 + Q(1,J)=V2P(J)-V1P(J) + Q(2,J)=-(V2M(J)-V1M(J)) + Q(3,J)=XP(J)-XM(J)-TP*V1P(J)+TM*V1M(J) + Q(4,J)=V1P(J)-V1M(J) + 290 CONTINUE + T=-DETER(1,2,3)/DETER(1,2,4) + +C...Find alpha and beta; i.e. coordinates of crossing point. + S11=Q(1,1)*(T-TP) + S12=Q(2,1)*(T-TM) + S13=Q(3,1)+Q(4,1)*T + S21=Q(1,2)*(T-TP) + S22=Q(2,2)*(T-TM) + S23=Q(3,2)+Q(4,2)*T + DEN=S11*S22-S12*S21 + ALP=(S12*S23-S22*S13)/DEN + BET=(S21*S13-S11*S23)/DEN + +C...Check if solution acceptable. + IANSW=1 + IF(T.LT.GTMAX) IANSW=0 + IF(ALP.LT.0D0.OR.ALP.GT.1D0) IANSW=0 + IF(BET.LT.0D0.OR.BET.GT.1D0) IANSW=0 + +C...Find point of crossing and check that not inconsistent. + DO 300 J=1,3 + XPP(J)=XP(J)+(V1P(J)+ALP*(V2P(J)-V1P(J)))*(T-TP) + XMM(J)=XM(J)+(V1M(J)+BET*(V2M(J)-V1M(J)))*(T-TM) + 300 CONTINUE + D2PM=(XPP(1)-XMM(1))**2+(XPP(2)-XMM(2))**2+ + & (XPP(3)-XMM(3))**2 + D2P=XPP(1)**2+XPP(2)**2+XPP(3)**2 + D2M=XMM(1)**2+XMM(2)**2+XMM(3)**2 + IF(D2PM.GT.1D-4*(D2P+D2M)) IANSW=-1 + +C...Find string eigentimes at crossing. + IF(IANSW.EQ.1) THEN + TAUP=SQRT(MAX(0D0,(T-TP)**2-(XPP(1)-XP(1))**2- + & (XPP(2)-XP(2))**2-(XPP(3)-XP(3))**2)) + TAUM=SQRT(MAX(0D0,(T-TM)**2-(XMM(1)-XM(1))**2- + & (XMM(2)-XM(2))**2-(XMM(3)-XM(3))**2)) + ELSE + TAUP=0D0 + TAUM=0D0 + ENDIF + +C...Order crossings by time. End loop over crossings. + IF(IANSW.EQ.1.AND.NCROSS.LT.20) THEN + NCROSS=NCROSS+1 + DO 310 I1=NCROSS,1,-1 + IF(T.GT.TC(I1-1).OR.I1.EQ.1) THEN + IPC(I1)=IIP + IMC(I1)=IIM + TC(I1)=T + TPC(I1)=TAUP + TMC(I1)=TAUM + GOTO 320 + ELSE + IPC(I1)=IPC(I1-1) + IMC(I1)=IMC(I1-1) + TC(I1)=TC(I1-1) + TPC(I1)=TPC(I1-1) + TMC(I1)=TMC(I1-1) + ENDIF + 310 CONTINUE + 320 CONTINUE + ENDIF + 330 CONTINUE + 340 CONTINUE + +C...Loop over crossings; find first (if any) acceptable one. + IACC=0 + IF(NCROSS.GE.1) THEN + DO 350 IC=1,NCROSS + PNFRAG=EXP(-(TPC(IC)**2+TMC(IC)**2)/TFRAG**2) + IF(PNFRAG.GT.PYR(0)) THEN +C...Scenario II: only compare with fragmentation time. + IF(MSTP(115).EQ.2) THEN + IACC=IC + IIP=IPC(IACC) + IIM=IMC(IACC) + GOTO 360 +C...Scenario II': also require that string length decreases. + ELSE + IIP=IPC(IC) + IIM=IMC(IC) + I1P=INP(IIP) + I2P=INP(IIP+1) + I1M=INM(IIM) + I2M=INM(IIM+1) + ELOLD=FOUR(I1P,I2P)*FOUR(I1M,I2M) + ELNEW=FOUR(I1P,I2M)*FOUR(I1M,I2P) + IF(ELNEW.LT.ELOLD) THEN + IACC=IC + IIP=IPC(IACC) + IIM=IMC(IACC) + GOTO 360 + ENDIF + ENDIF + ENDIF + 350 CONTINUE + 360 CONTINUE + ENDIF + +C...Begin scenario GH specifics. + ELSEIF(MSTP(115).EQ.5) THEN + +C...Loop through all string pieces, one from W+ and one from W-. + IACC=0 + ELMIN=1D0 + DO 380 IIP=1,NNP-1 + IF(K(INP(IIP),2).LT.0) GOTO 380 + I1P=INP(IIP) + I2P=INP(IIP+1) + DO 370 IIM=1,NNM-1 + IF(K(INM(IIM),2).LT.0) GOTO 370 + I1M=INM(IIM) + I2M=INM(IIM+1) + +C...Look for largest decrease of (exponent of) Lambda measure. + ELOLD=FOUR(I1P,I2P)*FOUR(I1M,I2M) + ELNEW=FOUR(I1P,I2M)*FOUR(I1M,I2P) + ELDIF=ELNEW/MAX(1D-10,ELOLD) + IF(ELDIF.LT.ELMIN) THEN + IACC=IIP+IIM + ELMIN=ELDIF + IPC(1)=IIP + IMC(1)=IIM + ENDIF + 370 CONTINUE + 380 CONTINUE + IIP=IPC(1) + IIM=IMC(1) + ENDIF + +C...Common for scenarios I, II, II' and GH: reconnect strings. + IF(IACC.NE.0) THEN + MINT(32)=1 + NJOIN=0 + DO 390 IS=1,NNP+NNM + NJOIN=NJOIN+1 + IF(IS.LE.IIP) THEN + I=INP(IS) + ELSEIF(IS.LE.IIP+NNM-IIM) THEN + I=INM(IS-IIP+IIM) + ELSEIF(IS.LE.IIP+NNM) THEN + I=INM(IS-IIP-NNM+IIM) + ELSE + I=INP(IS-NNM) + ENDIF + IJOIN(NJOIN)=I + IF(K(I,2).LT.0) THEN + CALL PYJOIN(NJOIN,IJOIN) + NJOIN=0 + ENDIF + 390 CONTINUE + +C...Restore original event record if no reconnection. + ELSE + DO 400 I=NSD1+1,NOLD + IF(K(I,1).EQ.13.OR.K(I,1).EQ.14) THEN + K(I,4)=MOD(K(I,4),MSTU(5)**2) + K(I,5)=MOD(K(I,5),MSTU(5)**2) + ENDIF + 400 CONTINUE + DO 410 I=NOLD+1,N + K(K(I,3),1)=3 + 410 CONTINUE + N=NOLD + ENDIF + +C...Boost back system. + CALL PYROBO(IW1,IW1,0D0,0D0,BEWW(1),BEWW(2),BEWW(3)) + CALL PYROBO(IW2,IW2,0D0,0D0,BEWW(1),BEWW(2),BEWW(3)) + IF(N.GT.NOLD) CALL PYROBO(NOLD+1,N,0D0,0D0, + & BEWW(1),BEWW(2),BEWW(3)) + +C...Common part for intermediate and instantaneous scenarios. + ELSEIF(MSTP(115).EQ.11.OR.MSTP(115).EQ.12) THEN + MINT(32)=1 + +C...Remove old shower products and reset showering ones. + N=NSD1+4 + DO 420 I=NSD1+1,NSD1+4 + K(I,1)=3 + K(I,4)=MOD(K(I,4),MSTU(5)**2) + K(I,5)=MOD(K(I,5),MSTU(5)**2) + 420 CONTINUE + +C...Identify quark-antiquark pairs. + IQ1=NSD1+1 + IQ2=NSD1+2 + IQ3=NSD1+3 + IF(K(IQ1,2)*K(IQ3,2).LT.0) IQ3=NSD1+4 + IQ4=2*NSD1+7-IQ3 + +C...Reconnect strings. + IJOIN(1)=IQ1 + IJOIN(2)=IQ4 + CALL PYJOIN(2,IJOIN) + IJOIN(1)=IQ3 + IJOIN(2)=IQ2 + CALL PYJOIN(2,IJOIN) + +C...Do new parton showers in intermediate scenario. + IF(MSTP(71).GE.1.AND.MSTP(115).EQ.11) THEN + MSTJ50=MSTJ(50) + MSTJ(50)=0 + CALL PYSHOW(IQ1,IQ2,P(IW1,5)) + CALL PYSHOW(IQ3,IQ4,P(IW2,5)) + MSTJ(50)=MSTJ50 + +C...Do new parton showers in instantaneous scenario. + ELSEIF(MSTP(71).GE.1.AND.MSTP(115).EQ.12) THEN + PPM2=(P(IQ1,4)+P(IQ4,4))**2-(P(IQ1,1)+P(IQ4,1))**2- + & (P(IQ1,2)+P(IQ4,2))**2-(P(IQ1,3)+P(IQ4,3))**2 + PPM=SQRT(MAX(0D0,PPM2)) + CALL PYSHOW(IQ1,IQ4,PPM) + PPM2=(P(IQ3,4)+P(IQ2,4))**2-(P(IQ3,1)+P(IQ2,1))**2- + & (P(IQ3,2)+P(IQ2,2))**2-(P(IQ3,3)+P(IQ2,3))**2 + PPM=SQRT(MAX(0D0,PPM2)) + CALL PYSHOW(IQ3,IQ2,PPM) + ENDIF + ENDIF + + RETURN + END + +C*********************************************************************** + +C...PYKLIM +C...Checks generated variables against pre-set kinematical limits; +C...also calculates limits on variables used in generation. + + SUBROUTINE PYKLIM(ILIM) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYDAT3/,/PYSUBS/,/PYPARS/, + &/PYINT1/,/PYINT2/ + +C...Common kinematical expressions. + MINT(51)=0 + ISUB=MINT(1) + ISTSB=ISET(ISUB) + IF(ISUB.EQ.96) GOTO 100 + SQM3=VINT(63) + SQM4=VINT(64) + IF(ILIM.NE.0) THEN + IF(ABS(SQM3).LT.1D-4.AND.ABS(SQM4).LT.1D-4) THEN + CKIN09=MAX(CKIN(9),CKIN(13)) + CKIN10=MIN(CKIN(10),CKIN(14)) + CKIN11=MAX(CKIN(11),CKIN(15)) + CKIN12=MIN(CKIN(12),CKIN(16)) + ELSE + CKIN09=MAX(CKIN(9),MIN(0D0,CKIN(13))) + CKIN10=MIN(CKIN(10),MAX(0D0,CKIN(14))) + CKIN11=MAX(CKIN(11),MIN(0D0,CKIN(15))) + CKIN12=MIN(CKIN(12),MAX(0D0,CKIN(16))) + ENDIF + ENDIF + IF(ILIM.NE.1) THEN + TAU=VINT(21) + RM3=SQM3/(TAU*VINT(2)) + RM4=SQM4/(TAU*VINT(2)) + BE34=SQRT(MAX(1D-20,(1D0-RM3-RM4)**2-4D0*RM3*RM4)) + ENDIF + PTHMIN=CKIN(3) + IF(MIN(SQM3,SQM4).LT.CKIN(6)**2.AND.ISTSB.NE.1.AND.ISTSB.NE.3) + &PTHMIN=MAX(CKIN(3),CKIN(5)) + + IF(ILIM.EQ.0) THEN +C...Check generated values of tau, y*, cos(theta-hat), and tau' against +C...pre-set kinematical limits. + YST=VINT(22) + CTH=VINT(23) + TAUP=VINT(26) + TAUE=TAU + IF(ISTSB.GE.3.AND.ISTSB.LE.5) TAUE=TAUP + X1=SQRT(TAUE)*EXP(YST) + X2=SQRT(TAUE)*EXP(-YST) + XF=X1-X2 + IF(MINT(47).NE.1) THEN + IF(TAU*VINT(2).LT.CKIN(1)**2) MINT(51)=1 + IF(CKIN(2).GE.0D0.AND.TAU*VINT(2).GT.CKIN(2)**2) MINT(51)=1 + IF(YST.LT.CKIN(7).OR.YST.GT.CKIN(8)) MINT(51)=1 + IF(XF.LT.CKIN(25).OR.XF.GT.CKIN(26)) MINT(51)=1 + ENDIF + IF(MINT(45).NE.1) THEN + IF(X1.LT.CKIN(21).OR.X1.GT.CKIN(22)) MINT(51)=1 + ENDIF + IF(MINT(46).NE.1) THEN + IF(X2.LT.CKIN(23).OR.X2.GT.CKIN(24)) MINT(51)=1 + ENDIF + IF(MINT(45).EQ.2) THEN + IF(X1.GT.1D0-2D0*PARP(111)/VINT(1)) MINT(51)=1 + ENDIF + IF(MINT(46).EQ.2) THEN + IF(X2.GT.1D0-2D0*PARP(111)/VINT(1)) MINT(51)=1 + ENDIF + IF(ISTSB.EQ.2.OR.ISTSB.EQ.4) THEN + PTH=0.5D0*BE34*SQRT(TAU*VINT(2)*MAX(0D0,1D0-CTH**2)) + EXPY3=MAX(1D-20,(1D0+RM3-RM4+BE34*CTH)/ + & MAX(1D-20,(1D0+RM3-RM4-BE34*CTH))) + EXPY4=MAX(1D-20,(1D0-RM3+RM4-BE34*CTH)/ + & MAX(1D-20,(1D0-RM3+RM4+BE34*CTH))) + Y3=YST+0.5D0*LOG(EXPY3) + Y4=YST+0.5D0*LOG(EXPY4) + YLARGE=MAX(Y3,Y4) + YSMALL=MIN(Y3,Y4) + ETALAR=20D0 + ETASMA=-20D0 + STH=SQRT(MAX(0D0,1D0-CTH**2)) + EXSQ3=SQRT(MAX(1D-20,((1D0+RM3-RM4)*COSH(YST)+BE34*SINH(YST)* + & CTH)**2-4D0*RM3)) + EXSQ4=SQRT(MAX(1D-20,((1D0-RM3+RM4)*COSH(YST)-BE34*SINH(YST)* + & CTH)**2-4D0*RM4)) + IF(STH.GE.1D-10) THEN + EXPET3=((1D0+RM3-RM4)*SINH(YST)+BE34*COSH(YST)*CTH+EXSQ3)/ + & (BE34*STH) + EXPET4=((1D0-RM3+RM4)*SINH(YST)-BE34*COSH(YST)*CTH+EXSQ4)/ + & (BE34*STH) + ETA3=LOG(MIN(1D10,MAX(1D-10,EXPET3))) + ETA4=LOG(MIN(1D10,MAX(1D-10,EXPET4))) + ETALAR=MAX(ETA3,ETA4) + ETASMA=MIN(ETA3,ETA4) + ENDIF + CTS3=((1D0+RM3-RM4)*SINH(YST)+BE34*COSH(YST)*CTH)/EXSQ3 + CTS4=((1D0-RM3+RM4)*SINH(YST)-BE34*COSH(YST)*CTH)/EXSQ4 + CTSLAR=MIN(1D0,MAX(-1D0,CTS3,CTS4)) + CTSSMA=MAX(-1D0,MIN(1D0,CTS3,CTS4)) + SH=TAU*VINT(2) + RPTS=4D0*VINT(71)**2/SH + BE34L=SQRT(MAX(0D0,(1D0-RM3-RM4)**2-4D0*RM3*RM4-RPTS)) + RM34=MAX(1D-20,2D0*RM3*RM4) + IF(2D0*VINT(71)**2/(VINT(21)*VINT(2)).LT.0.0001D0) + & RM34=MAX(RM34,2D0*VINT(71)**2/(VINT(21)*VINT(2))) + RTHM=(4D0*RM3*RM4+RPTS)/(1D0-RM3-RM4+BE34L) + THA=0.5D0*SH*MAX(RTHM,1D0-RM3-RM4-BE34*CTH) + UHA=0.5D0*SH*MAX(RTHM,1D0-RM3-RM4+BE34*CTH) + IF(PTH.LT.PTHMIN) MINT(51)=1 + IF(CKIN(4).GE.0D0.AND.PTH.GT.CKIN(4)) MINT(51)=1 + IF(YLARGE.LT.CKIN(9).OR.YLARGE.GT.CKIN(10)) MINT(51)=1 + IF(YSMALL.LT.CKIN(11).OR.YSMALL.GT.CKIN(12)) MINT(51)=1 + IF(ETALAR.LT.CKIN(13).OR.ETALAR.GT.CKIN(14)) MINT(51)=1 + IF(ETASMA.LT.CKIN(15).OR.ETASMA.GT.CKIN(16)) MINT(51)=1 + IF(CTSLAR.LT.CKIN(17).OR.CTSLAR.GT.CKIN(18)) MINT(51)=1 + IF(CTSSMA.LT.CKIN(19).OR.CTSSMA.GT.CKIN(20)) MINT(51)=1 + IF(CTH.LT.CKIN(27).OR.CTH.GT.CKIN(28)) MINT(51)=1 + IF(THA.LT.CKIN(35)) MINT(51)=1 + IF(CKIN(36).GE.0D0.AND.THA.GT.CKIN(36)) MINT(51)=1 + IF(UHA.LT.CKIN(37)) MINT(51)=1 + IF(CKIN(38).GE.0D0.AND.UHA.GT.CKIN(38)) MINT(51)=1 + ENDIF + IF(ISTSB.GE.3.AND.ISTSB.LE.5) THEN + IF(TAUP*VINT(2).LT.CKIN(31)**2) MINT(51)=1 + IF(CKIN(32).GE.0D0.AND.TAUP*VINT(2).GT.CKIN(32)**2) MINT(51)=1 + ENDIF + +C...Additional cuts on W2 (approximately) in DIS. + IF(ISUB.EQ.10.AND.MINT(43).GE.2) THEN + XBJ=X2 + IF(IABS(MINT(12)).LT.20) XBJ=X1 + Q2BJ=THA + W2BJ=Q2BJ*(1D0-XBJ)/XBJ + IF(W2BJ.LT.CKIN(39)) MINT(51)=1 + IF(CKIN(40).GT.0D0.AND.W2BJ.GT.CKIN(40)) MINT(51)=1 + ENDIF + + ELSEIF(ILIM.EQ.1) THEN +C...Calculate limits on tau +C...0) due to definition + TAUMN0=0D0 + TAUMX0=1D0 +C...1) due to limits on subsystem mass + TAUMN1=CKIN(1)**2/VINT(2) + TAUMX1=1D0 + IF(CKIN(2).GE.0D0) TAUMX1=CKIN(2)**2/VINT(2) +C...2) due to limits on pT-hat (and non-overlapping rapidity intervals) + TM3=SQRT(SQM3+PTHMIN**2) + TM4=SQRT(SQM4+PTHMIN**2) + YDCOSH=1D0 + IF(CKIN09.GT.CKIN12) YDCOSH=COSH(CKIN09-CKIN12) + TAUMN2=(TM3**2+2D0*TM3*TM4*YDCOSH+TM4**2)/VINT(2) + TAUMX2=1D0 +C...3) due to limits on pT-hat and cos(theta-hat) + CTH2MN=MIN(CKIN(27)**2,CKIN(28)**2) + CTH2MX=MAX(CKIN(27)**2,CKIN(28)**2) + TAUMN3=0D0 + IF(CKIN(27)*CKIN(28).GT.0D0) TAUMN3= + & (SQRT(SQM3+PTHMIN**2/(1D0-CTH2MN))+ + & SQRT(SQM4+PTHMIN**2/(1D0-CTH2MN)))**2/VINT(2) + TAUMX3=1D0 + IF(CKIN(4).GE.0D0.AND.CTH2MX.LT.1D0) TAUMX3= + & (SQRT(SQM3+CKIN(4)**2/(1D0-CTH2MX))+ + & SQRT(SQM4+CKIN(4)**2/(1D0-CTH2MX)))**2/VINT(2) +C...4) due to limits on x1 and x2 + TAUMN4=CKIN(21)*CKIN(23) + TAUMX4=CKIN(22)*CKIN(24) +C...5) due to limits on xF + TAUMN5=0D0 + TAUMX5=MAX(1D0-CKIN(25),1D0+CKIN(26)) +C...6) due to limits on that and uhat + TAUMN6=(SQM3+SQM4+CKIN(35)+CKIN(37))/VINT(2) + TAUMX6=1D0 + IF(CKIN(36).GT.0D0.AND.CKIN(38).GT.0D0) TAUMX6= + & (SQM3+SQM4+CKIN(36)+CKIN(38))/VINT(2) + +C...Net effect of all separate limits. + VINT(11)=MAX(TAUMN0,TAUMN1,TAUMN2,TAUMN3,TAUMN4,TAUMN5,TAUMN6) + VINT(31)=MIN(TAUMX0,TAUMX1,TAUMX2,TAUMX3,TAUMX4,TAUMX5,TAUMX6) + IF(MINT(47).EQ.1.AND.(ISTSB.EQ.1.OR.ISTSB.EQ.2)) THEN + VINT(11)=1D0-1D-9 + VINT(31)=1D0+1D-9 + ELSEIF(MINT(47).EQ.5) THEN + VINT(31)=MIN(VINT(31),1D0-2D-10) + ELSEIF(MINT(47).GE.6) THEN + VINT(31)=MIN(VINT(31),1D0-1D-10) + ENDIF + IF(VINT(31).LE.VINT(11)) MINT(51)=1 + + ELSEIF(ILIM.EQ.2) THEN +C...Calculate limits on y* + TAUE=TAU + IF(ISTSB.GE.3.AND.ISTSB.LE.5) TAUE=VINT(26) + TAURT=SQRT(TAUE) +C...0) due to kinematics + YSTMN0=LOG(TAURT) + YSTMX0=-YSTMN0 +C...1) due to explicit limits + YSTMN1=CKIN(7) + YSTMX1=CKIN(8) +C...2) due to limits on x1 + YSTMN2=LOG(MAX(TAUE,CKIN(21))/TAURT) + YSTMX2=LOG(MAX(TAUE,CKIN(22))/TAURT) +C...3) due to limits on x2 + YSTMN3=-LOG(MAX(TAUE,CKIN(24))/TAURT) + YSTMX3=-LOG(MAX(TAUE,CKIN(23))/TAURT) +C...4) due to limits on xF + YEPMN4=0.5D0*ABS(CKIN(25))/TAURT + YSTMN4=SIGN(LOG(MAX(1D-20,SQRT(1D0+YEPMN4**2)+YEPMN4)),CKIN(25)) + YEPMX4=0.5D0*ABS(CKIN(26))/TAURT + YSTMX4=SIGN(LOG(MAX(1D-20,SQRT(1D0+YEPMX4**2)+YEPMX4)),CKIN(26)) +C...5) due to simultaneous limits on y-large and y-small + YEPSMN=(RM3-RM4)*SINH(CKIN09-CKIN11) + YEPSMX=(RM3-RM4)*SINH(CKIN10-CKIN12) + YDIFMN=ABS(LOG(MAX(1D-20,SQRT(1D0+YEPSMN**2)-YEPSMN))) + YDIFMX=ABS(LOG(MAX(1D-20,SQRT(1D0+YEPSMX**2)-YEPSMX))) + YSTMN5=0.5D0*(CKIN09+CKIN11-YDIFMN) + YSTMX5=0.5D0*(CKIN10+CKIN12+YDIFMX) +C...6) due to simultaneous limits on cos(theta-hat) and y-large or +C... y-small + CTHLIM=SQRT(MAX(0D0,1D0-4D0*PTHMIN**2/(BE34**2*TAUE*VINT(2)))) + RZMN=BE34*MAX(CKIN(27),-CTHLIM) + RZMX=BE34*MIN(CKIN(28),CTHLIM) + YEX3MX=(1D0+RM3-RM4+RZMX)/MAX(1D-10,1D0+RM3-RM4-RZMX) + YEX4MX=(1D0+RM4-RM3-RZMN)/MAX(1D-10,1D0+RM4-RM3+RZMN) + YEX3MN=MAX(1D-10,1D0+RM3-RM4+RZMN)/(1D0+RM3-RM4-RZMN) + YEX4MN=MAX(1D-10,1D0+RM4-RM3-RZMX)/(1D0+RM4-RM3+RZMX) + YSTMN6=CKIN09-0.5D0*LOG(MAX(YEX3MX,YEX4MX)) + YSTMX6=CKIN12-0.5D0*LOG(MIN(YEX3MN,YEX4MN)) + +C...Net effect of all separate limits. + VINT(12)=MAX(YSTMN0,YSTMN1,YSTMN2,YSTMN3,YSTMN4,YSTMN5,YSTMN6) + VINT(32)=MIN(YSTMX0,YSTMX1,YSTMX2,YSTMX3,YSTMX4,YSTMX5,YSTMX6) + IF(MINT(47).EQ.1) THEN + VINT(12)=-1D-9 + VINT(32)=1D-9 + ELSEIF(MINT(47).EQ.2.OR.MINT(47).EQ.6) THEN + VINT(12)=(1D0-1D-9)*YSTMX0 + VINT(32)=(1D0+1D-9)*YSTMX0 + ELSEIF(MINT(47).EQ.3.OR.MINT(47).EQ.7) THEN + VINT(12)=-(1D0+1D-9)*YSTMX0 + VINT(32)=-(1D0-1D-9)*YSTMX0 + ELSEIF(MINT(47).EQ.5) THEN + YSTEE=LOG((1D0-1D-10)/TAURT) + VINT(12)=MAX(VINT(12),-YSTEE) + VINT(32)=MIN(VINT(32),YSTEE) + ENDIF + IF(VINT(32).LE.VINT(12)) MINT(51)=1 + + ELSEIF(ILIM.EQ.3) THEN +C...Calculate limits on cos(theta-hat) + YST=VINT(22) +C...0) due to definition + CTNMN0=-1D0 + CTNMX0=0D0 + CTPMN0=0D0 + CTPMX0=1D0 +C...1) due to explicit limits + CTNMN1=MIN(0D0,CKIN(27)) + CTNMX1=MIN(0D0,CKIN(28)) + CTPMN1=MAX(0D0,CKIN(27)) + CTPMX1=MAX(0D0,CKIN(28)) +C...2) due to limits on pT-hat + CTNMN2=-SQRT(MAX(0D0,1D0-4D0*PTHMIN**2/(BE34**2*TAU*VINT(2)))) + CTPMX2=-CTNMN2 + CTNMX2=0D0 + CTPMN2=0D0 + IF(CKIN(4).GE.0D0) THEN + CTNMX2=-SQRT(MAX(0D0,1D0-4D0*CKIN(4)**2/ + & (BE34**2*TAU*VINT(2)))) + CTPMN2=-CTNMX2 + ENDIF +C...3) due to limits on y-large and y-small + CTNMN3=MIN(0D0,MAX((1D0+RM3-RM4)/BE34*TANH(CKIN11-YST), + & -(1D0-RM3+RM4)/BE34*TANH(CKIN10-YST))) + CTNMX3=MIN(0D0,(1D0+RM3-RM4)/BE34*TANH(CKIN12-YST), + & -(1D0-RM3+RM4)/BE34*TANH(CKIN09-YST)) + CTPMN3=MAX(0D0,(1D0+RM3-RM4)/BE34*TANH(CKIN09-YST), + & -(1D0-RM3+RM4)/BE34*TANH(CKIN12-YST)) + CTPMX3=MAX(0D0,MIN((1D0+RM3-RM4)/BE34*TANH(CKIN10-YST), + & -(1D0-RM3+RM4)/BE34*TANH(CKIN11-YST))) +C...4) due to limits on that + CTNMN4=-1D0 + CTNMX4=0D0 + CTPMN4=0D0 + CTPMX4=1D0 + SH=TAU*VINT(2) + IF(CKIN(35).GT.0D0) THEN + CTLIM=(1D0-RM3-RM4-2D0*CKIN(35)/SH)/BE34 + IF(CTLIM.GT.0D0) THEN + CTPMX4=CTLIM + ELSE + CTPMX4=0D0 + CTNMX4=CTLIM + ENDIF + ENDIF + IF(CKIN(36).GT.0D0) THEN + CTLIM=(1D0-RM3-RM4-2D0*CKIN(36)/SH)/BE34 + IF(CTLIM.LT.0D0) THEN + CTNMN4=CTLIM + ELSE + CTNMN4=0D0 + CTPMN4=CTLIM + ENDIF + ENDIF +C...5) due to limits on uhat + CTNMN5=-1D0 + CTNMX5=0D0 + CTPMN5=0D0 + CTPMX5=1D0 + IF(CKIN(37).GT.0D0) THEN + CTLIM=(2D0*CKIN(37)/SH-(1D0-RM3-RM4))/BE34 + IF(CTLIM.LT.0D0) THEN + CTNMN5=CTLIM + ELSE + CTNMN5=0D0 + CTPMN5=CTLIM + ENDIF + ENDIF + IF(CKIN(38).GT.0D0) THEN + CTLIM=(2D0*CKIN(38)/SH-(1D0-RM3-RM4))/BE34 + IF(CTLIM.GT.0D0) THEN + CTPMX5=CTLIM + ELSE + CTPMX5=0D0 + CTNMX5=CTLIM + ENDIF + ENDIF + +C...Net effect of all separate limits. + VINT(13)=MAX(CTNMN0,CTNMN1,CTNMN2,CTNMN3,CTNMN4,CTNMN5) + VINT(33)=MIN(CTNMX0,CTNMX1,CTNMX2,CTNMX3,CTNMX4,CTNMX5) + VINT(14)=MAX(CTPMN0,CTPMN1,CTPMN2,CTPMN3,CTPMN4,CTPMN5) + VINT(34)=MIN(CTPMX0,CTPMX1,CTPMX2,CTPMX3,CTPMX4,CTPMX5) + IF(VINT(33).LE.VINT(13).AND.VINT(34).LE.VINT(14)) MINT(51)=1 + + ELSEIF(ILIM.EQ.4) THEN +C...Calculate limits on tau' +C...0) due to kinematics + TAPMN0=TAU + IF(ISTSB.EQ.5.AND.KFPR(ISUB,2).GT.0) THEN + PQRAT=2D0*PMAS(PYCOMP(KFPR(ISUB,2)),1)/VINT(1) + TAPMN0=(SQRT(TAU)+PQRAT)**2 + ENDIF + TAPMX0=1D0 +C...1) due to explicit limits + TAPMN1=CKIN(31)**2/VINT(2) + TAPMX1=1D0 + IF(CKIN(32).GE.0D0) TAPMX1=CKIN(32)**2/VINT(2) + +C...Net effect of all separate limits. + VINT(16)=MAX(TAPMN0,TAPMN1) + VINT(36)=MIN(TAPMX0,TAPMX1) + IF(MINT(47).EQ.1) THEN + VINT(16)=1D0-1D-9 + VINT(36)=1D0+1D-9 + ELSEIF(MINT(47).EQ.5) THEN + VINT(36)=MIN(VINT(36),1D0-2D-10) + ELSEIF(MINT(47).EQ.6.OR.MINT(47).EQ.7) THEN + VINT(36)=MIN(VINT(36),1D0-1D-10) + ENDIF + IF(VINT(36).LE.VINT(16)) MINT(51)=1 + + ENDIF + RETURN + +C...Special case for low-pT and multiple interactions: +C...effective kinematical limits for tau, y*, cos(theta-hat). + 100 IF(ILIM.EQ.0) THEN + ELSEIF(ILIM.EQ.1) THEN + IF(MSTP(82).LE.1) THEN + VINT(11)=4D0*(PARP(81)*(VINT(1)/PARP(89))**PARP(90))**2/ + & VINT(2) + ELSE + VINT(11)=(PARP(82)*(VINT(1)/PARP(89))**PARP(90))**2/VINT(2) + ENDIF + VINT(31)=1D0 + ELSEIF(ILIM.EQ.2) THEN + VINT(12)=0.5D0*LOG(VINT(21)) + VINT(32)=-VINT(12) + ELSEIF(ILIM.EQ.3) THEN + IF(MSTP(82).LE.1) THEN + ST2EFF=4D0*(PARP(81)*(VINT(1)/PARP(89))**PARP(90))**2/ + & (VINT(21)*VINT(2)) + ELSE + ST2EFF=0.01D0*(PARP(82)*(VINT(1)/PARP(89))**PARP(90))**2/ + & (VINT(21)*VINT(2)) + ENDIF + VINT(13)=-SQRT(MAX(0D0,1D0-ST2EFF)) + VINT(33)=0D0 + VINT(14)=0D0 + VINT(34)=-VINT(13) + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYKMAP +C...Maps a uniform distribution into a distribution of a kinematical +C...variable according to one of the possibilities allowed. It is +C...assumed that kinematical limits have been set by a PYKLIM call. + + SUBROUTINE PYKMAP(IVAR,MVAR,VVAR) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + SAVE /PYDAT1/,/PYDAT2/,/PYSUBS/,/PYPARS/,/PYINT1/,/PYINT2/ + +C...Convert VVAR to tau variable. + ISUB=MINT(1) + ISTSB=ISET(ISUB) + IF(IVAR.EQ.1) THEN + TAUMIN=VINT(11) + TAUMAX=VINT(31) + IF(MVAR.EQ.3.OR.MVAR.EQ.4) THEN + TAURE=VINT(73) + GAMRE=VINT(74) + ELSEIF(MVAR.EQ.5.OR.MVAR.EQ.6) THEN + TAURE=VINT(75) + GAMRE=VINT(76) + ENDIF + IF(MINT(47).EQ.1.AND.(ISTSB.EQ.1.OR.ISTSB.EQ.2)) THEN + TAU=1D0 + ELSEIF(MVAR.EQ.1) THEN + TAU=TAUMIN*(TAUMAX/TAUMIN)**VVAR + ELSEIF(MVAR.EQ.2) THEN + TAU=TAUMAX*TAUMIN/(TAUMIN+(TAUMAX-TAUMIN)*VVAR) + ELSEIF(MVAR.EQ.3.OR.MVAR.EQ.5) THEN + RATGEN=(TAURE+TAUMAX)/(TAURE+TAUMIN)*TAUMIN/TAUMAX + TAU=TAURE*TAUMIN/((TAURE+TAUMIN)*RATGEN**VVAR-TAUMIN) + ELSEIF(MVAR.EQ.4.OR.MVAR.EQ.6) THEN + AUPP=ATAN((TAUMAX-TAURE)/GAMRE) + ALOW=ATAN((TAUMIN-TAURE)/GAMRE) + TAU=TAURE+GAMRE*TAN(ALOW+(AUPP-ALOW)*VVAR) + ELSEIF(MINT(47).EQ.5) THEN + AUPP=LOG(MAX(2D-10,1D0-TAUMAX)) + ALOW=LOG(MAX(2D-10,1D0-TAUMIN)) + TAU=1D0-EXP(AUPP+VVAR*(ALOW-AUPP)) + ELSE + AUPP=LOG(MAX(1D-10,1D0-TAUMAX)) + ALOW=LOG(MAX(1D-10,1D0-TAUMIN)) + TAU=1D0-EXP(AUPP+VVAR*(ALOW-AUPP)) + ENDIF + VINT(21)=MIN(TAUMAX,MAX(TAUMIN,TAU)) + +C...Convert VVAR to y* variable. + ELSEIF(IVAR.EQ.2) THEN + YSTMIN=VINT(12) + YSTMAX=VINT(32) + TAUE=VINT(21) + IF(ISTSB.GE.3.AND.ISTSB.LE.5) TAUE=VINT(26) + IF(MINT(47).EQ.1) THEN + YST=0D0 + ELSEIF(MINT(47).EQ.2.OR.MINT(47).EQ.6) THEN + YST=-0.5D0*LOG(TAUE) + ELSEIF(MINT(47).EQ.3.OR.MINT(47).EQ.7) THEN + YST=0.5D0*LOG(TAUE) + ELSEIF(MVAR.EQ.1) THEN + YST=YSTMIN+(YSTMAX-YSTMIN)*SQRT(VVAR) + ELSEIF(MVAR.EQ.2) THEN + YST=YSTMAX-(YSTMAX-YSTMIN)*SQRT(1D0-VVAR) + ELSEIF(MVAR.EQ.3) THEN + AUPP=ATAN(EXP(YSTMAX)) + ALOW=ATAN(EXP(YSTMIN)) + YST=LOG(TAN(ALOW+(AUPP-ALOW)*VVAR)) + ELSEIF(MVAR.EQ.4) THEN + YST0=-0.5D0*LOG(TAUE) + AUPP=LOG(MAX(1D-10,EXP(YST0-YSTMIN)-1D0)) + ALOW=LOG(MAX(1D-10,EXP(YST0-YSTMAX)-1D0)) + YST=YST0-LOG(1D0+EXP(ALOW+VVAR*(AUPP-ALOW))) + ELSE + YST0=-0.5D0*LOG(TAUE) + AUPP=LOG(MAX(1D-10,EXP(YST0+YSTMIN)-1D0)) + ALOW=LOG(MAX(1D-10,EXP(YST0+YSTMAX)-1D0)) + YST=LOG(1D0+EXP(AUPP+VVAR*(ALOW-AUPP)))-YST0 + ENDIF + VINT(22)=MIN(YSTMAX,MAX(YSTMIN,YST)) + +C...Convert VVAR to cos(theta-hat) variable. + ELSEIF(IVAR.EQ.3) THEN + RM34=MAX(1D-20,2D0*VINT(63)*VINT(64)/(VINT(21)*VINT(2))**2) + RSQM=1D0+RM34 + IF(2D0*VINT(71)**2/(VINT(21)*VINT(2)).LT.0.0001D0) + & RM34=MAX(RM34,2D0*VINT(71)**2/(VINT(21)*VINT(2))) + CTNMIN=VINT(13) + CTNMAX=VINT(33) + CTPMIN=VINT(14) + CTPMAX=VINT(34) + IF(MVAR.EQ.1) THEN + ANEG=CTNMAX-CTNMIN + APOS=CTPMAX-CTPMIN + IF(ANEG.GT.0D0.AND.VVAR*(ANEG+APOS).LE.ANEG) THEN + VCTN=VVAR*(ANEG+APOS)/ANEG + CTH=CTNMIN+(CTNMAX-CTNMIN)*VCTN + ELSE + VCTP=(VVAR*(ANEG+APOS)-ANEG)/APOS + CTH=CTPMIN+(CTPMAX-CTPMIN)*VCTP + ENDIF + ELSEIF(MVAR.EQ.2) THEN + RMNMIN=MAX(RM34,RSQM-CTNMIN) + RMNMAX=MAX(RM34,RSQM-CTNMAX) + RMPMIN=MAX(RM34,RSQM-CTPMIN) + RMPMAX=MAX(RM34,RSQM-CTPMAX) + ANEG=LOG(RMNMIN/RMNMAX) + APOS=LOG(RMPMIN/RMPMAX) + IF(ANEG.GT.0D0.AND.VVAR*(ANEG+APOS).LE.ANEG) THEN + VCTN=VVAR*(ANEG+APOS)/ANEG + CTH=RSQM-RMNMIN*(RMNMAX/RMNMIN)**VCTN + ELSE + VCTP=(VVAR*(ANEG+APOS)-ANEG)/APOS + CTH=RSQM-RMPMIN*(RMPMAX/RMPMIN)**VCTP + ENDIF + ELSEIF(MVAR.EQ.3) THEN + RMNMIN=MAX(RM34,RSQM+CTNMIN) + RMNMAX=MAX(RM34,RSQM+CTNMAX) + RMPMIN=MAX(RM34,RSQM+CTPMIN) + RMPMAX=MAX(RM34,RSQM+CTPMAX) + ANEG=LOG(RMNMAX/RMNMIN) + APOS=LOG(RMPMAX/RMPMIN) + IF(ANEG.GT.0D0.AND.VVAR*(ANEG+APOS).LE.ANEG) THEN + VCTN=VVAR*(ANEG+APOS)/ANEG + CTH=RMNMIN*(RMNMAX/RMNMIN)**VCTN-RSQM + ELSE + VCTP=(VVAR*(ANEG+APOS)-ANEG)/APOS + CTH=RMPMIN*(RMPMAX/RMPMIN)**VCTP-RSQM + ENDIF + ELSEIF(MVAR.EQ.4) THEN + RMNMIN=MAX(RM34,RSQM-CTNMIN) + RMNMAX=MAX(RM34,RSQM-CTNMAX) + RMPMIN=MAX(RM34,RSQM-CTPMIN) + RMPMAX=MAX(RM34,RSQM-CTPMAX) + ANEG=1D0/RMNMAX-1D0/RMNMIN + APOS=1D0/RMPMAX-1D0/RMPMIN + IF(ANEG.GT.0D0.AND.VVAR*(ANEG+APOS).LE.ANEG) THEN + VCTN=VVAR*(ANEG+APOS)/ANEG + CTH=RSQM-1D0/(1D0/RMNMIN+ANEG*VCTN) + ELSE + VCTP=(VVAR*(ANEG+APOS)-ANEG)/APOS + CTH=RSQM-1D0/(1D0/RMPMIN+APOS*VCTP) + ENDIF + ELSEIF(MVAR.EQ.5) THEN + RMNMIN=MAX(RM34,RSQM+CTNMIN) + RMNMAX=MAX(RM34,RSQM+CTNMAX) + RMPMIN=MAX(RM34,RSQM+CTPMIN) + RMPMAX=MAX(RM34,RSQM+CTPMAX) + ANEG=1D0/RMNMIN-1D0/RMNMAX + APOS=1D0/RMPMIN-1D0/RMPMAX + IF(ANEG.GT.0D0.AND.VVAR*(ANEG+APOS).LE.ANEG) THEN + VCTN=VVAR*(ANEG+APOS)/ANEG + CTH=1D0/(1D0/RMNMIN-ANEG*VCTN)-RSQM + ELSE + VCTP=(VVAR*(ANEG+APOS)-ANEG)/APOS + CTH=1D0/(1D0/RMPMIN-APOS*VCTP)-RSQM + ENDIF + ENDIF + IF(CTH.LT.0D0) CTH=MIN(CTNMAX,MAX(CTNMIN,CTH)) + IF(CTH.GT.0D0) CTH=MIN(CTPMAX,MAX(CTPMIN,CTH)) + VINT(23)=CTH + +C...Convert VVAR to tau' variable. + ELSEIF(IVAR.EQ.4) THEN + TAU=VINT(21) + TAUPMN=VINT(16) + TAUPMX=VINT(36) + IF(MINT(47).EQ.1) THEN + TAUP=1D0 + ELSEIF(MVAR.EQ.1) THEN + TAUP=TAUPMN*(TAUPMX/TAUPMN)**VVAR + ELSEIF(MVAR.EQ.2) THEN + AUPP=(1D0-TAU/TAUPMX)**4 + ALOW=(1D0-TAU/TAUPMN)**4 + TAUP=TAU/MAX(1D-10,1D0-(ALOW+(AUPP-ALOW)*VVAR)**0.25D0) + ELSEIF(MINT(47).EQ.5) THEN + AUPP=LOG(MAX(2D-10,1D0-TAUPMX)) + ALOW=LOG(MAX(2D-10,1D0-TAUPMN)) + TAUP=1D0-EXP(AUPP+VVAR*(ALOW-AUPP)) + ELSE + AUPP=LOG(MAX(1D-10,1D0-TAUPMX)) + ALOW=LOG(MAX(1D-10,1D0-TAUPMN)) + TAUP=1D0-EXP(AUPP+VVAR*(ALOW-AUPP)) + ENDIF + VINT(26)=MIN(TAUPMX,MAX(TAUPMN,TAUP)) + +C...Selection of extra variables needed in 2 -> 3 process: +C...pT1, pT2, phi1, phi2, y3 for three outgoing particles. +C...Since no options are available, the functions of PYKLIM +C...and PYKMAP are joint for these choices. + ELSEIF(IVAR.EQ.5) THEN + +C...Read out total energy and particle masses. + MINT(51)=0 + MPTPK=1 + IF(ISUB.EQ.123.OR.ISUB.EQ.124.OR.ISUB.EQ.173.OR.ISUB.EQ.174 + & .OR.ISUB.EQ.178.OR.ISUB.EQ.179.OR.ISUB.EQ.351.OR.ISUB.EQ.352) + & MPTPK=2 + SHP=VINT(26)*VINT(2) + SHPR=SQRT(SHP) + PM1=VINT(201) + PM2=VINT(206) + PM3=SQRT(VINT(21))*VINT(1) + IF(PM1+PM2+PM3.GT.0.9999D0*SHPR) THEN + MINT(51)=1 + RETURN + ENDIF + PMRS1=VINT(204)**2 + PMRS2=VINT(209)**2 + +C...Specify coefficients of pT choice; upper and lower limits. + IF(MPTPK.EQ.1) THEN + HWT1=0.4D0 + HWT2=0.4D0 + ELSE + HWT1=0.05D0 + HWT2=0.05D0 + ENDIF + HWT3=1D0-HWT1-HWT2 + PTSMX1=((SHP-PM1**2-(PM2+PM3)**2)**2-(2D0*PM1*(PM2+PM3))**2)/ + & (4D0*SHP) + IF(CKIN(52).GT.0D0) PTSMX1=MIN(PTSMX1,CKIN(52)**2) + PTSMN1=CKIN(51)**2 + PTSMX2=((SHP-PM2**2-(PM1+PM3)**2)**2-(2D0*PM2*(PM1+PM3))**2)/ + & (4D0*SHP) + IF(CKIN(54).GT.0D0) PTSMX2=MIN(PTSMX2,CKIN(54)**2) + PTSMN2=CKIN(53)**2 + +C...Select transverse momenta according to +C...dp_T^2 * (a + b/(M^2 + p_T^2) + c/(M^2 + p_T^2)^2). + HMX=PMRS1+PTSMX1 + HMN=PMRS1+PTSMN1 + IF(HMX.LT.1.0001D0*HMN) THEN + MINT(51)=1 + RETURN + ENDIF + HDE=PTSMX1-PTSMN1 + RPT=PYR(0) + IF(RPT.LT.HWT1) THEN + PTS1=PTSMN1+PYR(0)*HDE + ELSEIF(RPT.LT.HWT1+HWT2) THEN + PTS1=MAX(PTSMN1,HMN*(HMX/HMN)**PYR(0)-PMRS1) + ELSE + PTS1=MAX(PTSMN1,HMN*HMX/(HMN+PYR(0)*HDE)-PMRS1) + ENDIF + WTPTS1=HDE/(HWT1+HWT2*HDE/(LOG(HMX/HMN)*(PMRS1+PTS1))+ + & HWT3*HMN*HMX/(PMRS1+PTS1)**2) + HMX=PMRS2+PTSMX2 + HMN=PMRS2+PTSMN2 + IF(HMX.LT.1.0001D0*HMN) THEN + MINT(51)=1 + RETURN + ENDIF + HDE=PTSMX2-PTSMN2 + RPT=PYR(0) + IF(RPT.LT.HWT1) THEN + PTS2=PTSMN2+PYR(0)*HDE + ELSEIF(RPT.LT.HWT1+HWT2) THEN + PTS2=MAX(PTSMN2,HMN*(HMX/HMN)**PYR(0)-PMRS2) + ELSE + PTS2=MAX(PTSMN2,HMN*HMX/(HMN+PYR(0)*HDE)-PMRS2) + ENDIF + WTPTS2=HDE/(HWT1+HWT2*HDE/(LOG(HMX/HMN)*(PMRS2+PTS2))+ + & HWT3*HMN*HMX/(PMRS2+PTS2)**2) + +C...Select azimuthal angles and check pT choice. + PHI1=PARU(2)*PYR(0) + PHI2=PARU(2)*PYR(0) + PHIR=PHI2-PHI1 + PTS3=MAX(0D0,PTS1+PTS2+2D0*SQRT(PTS1*PTS2)*COS(PHIR)) + IF(PTS3.LT.CKIN(55)**2.OR.(CKIN(56).GT.0D0.AND.PTS3.GT. + & CKIN(56)**2)) THEN + MINT(51)=1 + RETURN + ENDIF + +C...Calculate transverse masses and check phase space not closed. + PMS1=PM1**2+PTS1 + PMS2=PM2**2+PTS2 + PMS3=PM3**2+PTS3 + PMT1=SQRT(PMS1) + PMT2=SQRT(PMS2) + PMT3=SQRT(PMS3) + PM12=(PMT1+PMT2)**2 + IF(PMT1+PMT2+PMT3.GT.0.9999D0*SHPR) THEN + MINT(51)=1 + RETURN + ENDIF + +C...Select rapidity for particle 3 and check phase space not closed. + Y3MAX=LOG((SHP+PMS3-PM12+SQRT(MAX(0D0,(SHP-PMS3-PM12)**2- + & 4D0*PMS3*PM12)))/(2D0*SHPR*PMT3)) + IF(Y3MAX.LT.1D-6) THEN + MINT(51)=1 + RETURN + ENDIF + Y3=(2D0*PYR(0)-1D0)*0.999999D0*Y3MAX + PZ3=PMT3*SINH(Y3) + PE3=PMT3*COSH(Y3) + +C...Find momentum transfers in two mirror solutions (in 1-2 frame). + PZ12=-PZ3 + PE12=SHPR-PE3 + PMS12=PE12**2-PZ12**2 + SQL12=SQRT(MAX(0D0,(PMS12-PMS1-PMS2)**2-4D0*PMS1*PMS2)) + IF(SQL12.LT.1D-6*SHP) THEN + MINT(51)=1 + RETURN + ENDIF + PMM1=PMS12+PMS1-PMS2 + PMM2=PMS12+PMS2-PMS1 + TFAC=-SHPR/(2D0*PMS12) + T1P=TFAC*(PE12-PZ12)*(PMM1-SQL12) + T1N=TFAC*(PE12-PZ12)*(PMM1+SQL12) + T2P=TFAC*(PE12+PZ12)*(PMM2-SQL12) + T2N=TFAC*(PE12+PZ12)*(PMM2+SQL12) + +C...Construct relative mirror weights and make choice. + IF(MPTPK.EQ.1.OR.ISUB.EQ.351.OR.ISUB.EQ.352) THEN + WTPU=1D0 + WTNU=1D0 + ELSE + WTPU=1D0/((T1P-PMRS1)*(T2P-PMRS2))**2 + WTNU=1D0/((T1N-PMRS1)*(T2N-PMRS2))**2 + ENDIF + WTP=WTPU/(WTPU+WTNU) + WTN=WTNU/(WTPU+WTNU) + EPS=1D0 + IF(WTN.GT.PYR(0)) EPS=-1D0 + +C...Store result of variable choice and associated weights. + VINT(202)=PTS1 + VINT(207)=PTS2 + VINT(203)=PHI1 + VINT(208)=PHI2 + VINT(205)=WTPTS1 + VINT(210)=WTPTS2 + VINT(211)=Y3 + VINT(212)=Y3MAX + VINT(213)=EPS + IF(EPS.GT.0D0) THEN + VINT(214)=1D0/WTP + VINT(215)=T1P + VINT(216)=T2P + ELSE + VINT(214)=1D0/WTN + VINT(215)=T1N + VINT(216)=T2N + ENDIF + VINT(217)=-0.5D0*TFAC*(PE12-PZ12)*(PMM2+EPS*SQL12) + VINT(218)=-0.5D0*TFAC*(PE12+PZ12)*(PMM1+EPS*SQL12) + VINT(219)=0.5D0*(PMS12-PTS3) + VINT(220)=SQL12 + ENDIF + + RETURN + END + +C*********************************************************************** + +C...PYSIGH +C...Differential matrix elements for all included subprocesses +C...Note that what is coded is (disregarding the COMFAC factor) +C...1) for 2 -> 1 processes: s-hat/pi*d(sigma-hat), where, +C...when d(sigma-hat) is given in the zero-width limit, the delta +C...function in tau is replaced by a (modified) Breit-Wigner: +C...1/pi*s*H_res/((s*tau-m_res^2)^2+H_res^2), +C...where H_res = s-hat/m_res*Gamma_res(s-hat); +C...2) for 2 -> 2 processes: (s-hat)**2/pi*d(sigma-hat)/d(t-hat); +C...i.e., dimensionless quantities +C...3) for 2 -> 3 processes: abs(M)^2, where the total cross-section is +C...Integral abs(M)^2/(2shat') * (prod_(i=1)^3 d^3p_i/((2pi)^3*2E_i)) * +C...(2pi)^4 delta^4(P - sum p_i) +C...COMFAC contains the factor pi/s (or equivalent) and +C...the conversion factor from GeV^-2 to mb + + SUBROUTINE PYSIGH(NCHN,SIGS) + +C...Double precision and integer declarations + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + COMMON/PYINT3/XSFX(2,-40:40),ISIG(1000,3),SIGH(1000) + COMMON/PYINT4/MWID(500),WIDS(500,5) + COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3) + COMMON/PYINT7/SIGT(0:6,0:6,0:5) + COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2), + &SFMIX(16,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYDAT3/,/PYSUBS/,/PYPARS/, + &/PYINT1/,/PYINT2/,/PYINT3/,/PYINT4/,/PYINT5/,/PYINT7/, + &/PYSSMT/ +C...Local arrays and complex variables + DIMENSION X(2),XPQ(-25:25),KFAC(2,-40:40),WDTP(0:200), + &WDTE(0:200,0:5),HGZ(6,3),HL3(3),HR3(3),HL4(3),HR4(3) + COMPLEX A004,A204,A114,A00U,A20U,A11U + COMPLEX CIGTOT,CIZTOT,F0ALP,F1ALP,F2ALP,F0BET,F1BET,F2BET,FIF, + &COULCK,COULCP,COULCD,COULCR,COULCS + REAL A00L,A11L,A20L,COULXX + COMPLEX*16 SSMZ,SSMR,SSMO,DETD,F2L,F2R,DARHO,DZRHO,DAOME,DZOME + COMPLEX*16 DAA,DZZ,DAZ + +C...Reset number of channels and cross-section + NCHN=0 + SIGS=0D0 + +C...Convert H or A process into equivalent h one + ISUB=MINT(1) + ISUBSV=ISUB + IHIGG=1 + KFHIGG=25 + IF((ISUB.GE.151.AND.ISUB.LE.160).OR.(ISUB.GE.171.AND. + &ISUB.LE.190)) THEN + IHIGG=2 + IF(MOD(ISUB-1,10).GE.5) IHIGG=3 + KFHIGG=33+IHIGG + IF(ISUB.EQ.151.OR.ISUB.EQ.156) ISUB=3 + IF(ISUB.EQ.152.OR.ISUB.EQ.157) ISUB=102 + IF(ISUB.EQ.153.OR.ISUB.EQ.158) ISUB=103 + IF(ISUB.EQ.171.OR.ISUB.EQ.176) ISUB=24 + IF(ISUB.EQ.172.OR.ISUB.EQ.177) ISUB=26 + IF(ISUB.EQ.173.OR.ISUB.EQ.178) ISUB=123 + IF(ISUB.EQ.174.OR.ISUB.EQ.179) ISUB=124 + IF(ISUB.EQ.181.OR.ISUB.EQ.186) ISUB=121 + IF(ISUB.EQ.182.OR.ISUB.EQ.187) ISUB=122 + ENDIF + +CMRENNA++ +C...Convert almost equivalent SUSY processes into each other +C...Extract differences in flavours and couplings + IF(ISUB.GE.200.AND.ISUB.LE.301) THEN + +C...Sleptons and sneutrinos + IF(ISUB.EQ.201.OR.ISUB.EQ.204.OR.ISUB.EQ.207) THEN + KFID=MOD(KFPR(ISUB,1),KSUSY1) + ISUB=201 + ILR=0 + ELSEIF(ISUB.EQ.202.OR.ISUB.EQ.205.OR.ISUB.EQ.208) THEN + KFID=MOD(KFPR(ISUB,1),KSUSY1) + ISUB=201 + ILR=1 + ELSEIF(ISUB.EQ.203.OR.ISUB.EQ.206.OR.ISUB.EQ.209) THEN + KFID=MOD(KFPR(ISUB,1),KSUSY1) + ISUB=203 + ELSEIF(ISUB.GE.210.AND.ISUB.LE.212) THEN + IF(ISUB.EQ.210) THEN + RKF=2.0D0 + ELSEIF(ISUB.EQ.211) THEN + RKF=SFMIX(15,1)**2 + ELSEIF(ISUB.EQ.212) THEN + RKF=SFMIX(15,2)**2 + ENDIF + ISUB=210 + ELSEIF(ISUB.EQ.213.OR.ISUB.EQ.214) THEN + IF(ISUB.EQ.213) THEN + KFID=MOD(KFPR(ISUB,1),KSUSY1) + RKF=2.0D0 + ELSEIF(ISUB.EQ.214) THEN + KFID=16 + RKF=1.0D0 + ENDIF + ISUB=213 + +C...Neutralinos + ELSEIF(ISUB.GE.216.AND.ISUB.LE.225) THEN + IF(ISUB.EQ.216) THEN + IZID1=1 + IZID2=1 + ELSEIF(ISUB.EQ.217) THEN + IZID1=2 + IZID2=2 + ELSEIF(ISUB.EQ.218) THEN + IZID1=3 + IZID2=3 + ELSEIF(ISUB.EQ.219) THEN + IZID1=4 + IZID2=4 + ELSEIF(ISUB.EQ.220) THEN + IZID1=1 + IZID2=2 + ELSEIF(ISUB.EQ.221) THEN + IZID1=1 + IZID2=3 + ELSEIF(ISUB.EQ.222) THEN + IZID1=1 + IZID2=4 + ELSEIF(ISUB.EQ.223) THEN + IZID1=2 + IZID2=3 + ELSEIF(ISUB.EQ.224) THEN + IZID1=2 + IZID2=4 + ELSEIF(ISUB.EQ.225) THEN + IZID1=3 + IZID2=4 + ENDIF + ISUB=216 + +C...Charginos + ELSEIF(ISUB.GE.226.AND.ISUB.LE.228) THEN + IF(ISUB.EQ.226) THEN + IZID1=1 + IZID2=1 + ELSEIF(ISUB.EQ.227) THEN + IZID1=2 + IZID2=2 + ELSEIF(ISUB.EQ.228) THEN + IZID1=1 + IZID2=2 + ENDIF + ISUB=226 + +C...Neutralino + chargino + ELSEIF(ISUB.GE.229.AND.ISUB.LE.236) THEN + IF(ISUB.EQ.229) THEN + IZID1=1 + IZID2=1 + ELSEIF(ISUB.EQ.230) THEN + IZID1=1 + IZID2=2 + ELSEIF(ISUB.EQ.231) THEN + IZID1=1 + IZID2=3 + ELSEIF(ISUB.EQ.232) THEN + IZID1=1 + IZID2=4 + ELSEIF(ISUB.EQ.233) THEN + IZID1=2 + IZID2=1 + ELSEIF(ISUB.EQ.234) THEN + IZID1=2 + IZID2=2 + ELSEIF(ISUB.EQ.235) THEN + IZID1=2 + IZID2=3 + ELSEIF(ISUB.EQ.236) THEN + IZID1=2 + IZID2=4 + ENDIF + ISUB=229 + +C...Gluino + neutralino + ELSEIF(ISUB.GE.237.AND.ISUB.LE.240) THEN + IF(ISUB.EQ.237) THEN + IZID=1 + ELSEIF(ISUB.EQ.238) THEN + IZID=2 + ELSEIF(ISUB.EQ.239) THEN + IZID=3 + ELSEIF(ISUB.EQ.240) THEN + IZID=4 + ENDIF + ISUB=237 + +C...Gluino + chargino + ELSEIF(ISUB.GE.241.AND.ISUB.LE.242) THEN + IF(ISUB.EQ.241) THEN + IZID=1 + ELSEIF(ISUB.EQ.242) THEN + IZID=2 + ENDIF + ISUB=241 + +C...Squark + neutralino + ELSEIF(ISUB.GE.246.AND.ISUB.LE.253) THEN + ILR=0 + IF(MOD(ISUB,2).NE.0) ILR=1 + IF(ISUB.LE.247) THEN + IZID=1 + ELSEIF(ISUB.LE.249) THEN + IZID=2 + ELSEIF(ISUB.LE.251) THEN + IZID=3 + ELSEIF(ISUB.LE.253) THEN + IZID=4 + ENDIF + ISUB=246 + RKF=5D0 + +C...Squark + chargino + ELSEIF(ISUB.GE.254.AND.ISUB.LE.257) THEN + IF(ISUB.LE.255) THEN + IZID=1 + ELSEIF(ISUB.LE.257) THEN + IZID=2 + ENDIF + IF(MOD(ISUB,2).EQ.0) THEN + ILR=0 + ELSE + ILR=1 + ENDIF + ISUB=254 + RKF=5D0 + +C...Squark + gluino + ELSEIF(ISUB.EQ.258.OR.ISUB.EQ.259) THEN + ISUB=258 + RKF=4D0 + +C...Stops + ELSEIF(ISUB.EQ.261.OR.ISUB.EQ.262) THEN + ILR=0 + IF(ISUB.EQ.262) ILR=1 + ISUB=261 + ELSEIF(ISUB.EQ.265) THEN + ISUB=264 + +C...Squarks + ELSEIF(ISUB.GE.271.AND.ISUB.LE.280) THEN + ILR=0 + IF(ISUB.LE.273) THEN + IF(ISUB.EQ.273) ILR=1 + ISUB=271 + RKF=16D0 + ELSEIF(ISUB.LE.276) THEN + IF(ISUB.EQ.276) ILR=1 + ISUB=274 + RKF=16D0 + ELSEIF(ISUB.LE.278) THEN + IF(ISUB.EQ.278) ILR=1 + ISUB=277 + RKF=4D0 + ELSE + IF(ISUB.EQ.280) ILR=1 + ISUB=279 + RKF=4D0 + ENDIF +C...Sbottoms + ELSEIF(ISUB.GE.281.AND.ISUB.LE.296) THEN + ILR=0 + IF(ISUB.LE.283) THEN + IF(ISUB.EQ.283) ILR=1 + ISUB=271 + RKF=4D0 + ELSEIF(ISUB.LE.286) THEN + IF(ISUB.EQ.286) ILR=1 + ISUB=274 + RKF=4D0 + ELSEIF(ISUB.LE.288) THEN + IF(ISUB.EQ.288) ILR=1 + ISUB=277 + RKF=1D0 + ELSEIF(ISUB.LE.290) THEN + IF(ISUB.EQ.290) ILR=1 + ISUB=279 + RKF=1D0 + ELSEIF(ISUB.LE.293) THEN + IF(ISUB.EQ.293) ILR=1 + ISUB=271 + RKF=1D0 + ELSEIF(ISUB.EQ.296) THEN + ILR=1 + ISUB=274 + RKF=1D0 +C...Squark + gluino + ELSEIF(ISUB.EQ.294.OR.ISUB.EQ.295) THEN + ISUB=258 + RKF=1D0 + ENDIF +C...H+/- + H0 + ELSEIF(ISUB.EQ.297.OR.ISUB.EQ.298) THEN + IF(ISUB.EQ.297) THEN + RKF=.5D0*PARU(195)**2 + ELSEIF(ISUB.EQ.298) THEN + RKF=.5D0*(1D0-PARU(195)**2) + ENDIF + ISUB=210 +C...A0 + H0 + ELSEIF(ISUB.EQ.299.OR.ISUB.EQ.300) THEN + IF(ISUB.EQ.299) THEN + RKF=PARU(186)**2 + ELSEIF(ISUB.EQ.300) THEN + RKF=PARU(187)**2 + ENDIF + ISUB=213 +C...H+ + H- + ELSEIF(ISUB.EQ.301) THEN + KFID=37 + RKF=1D0 + ISUB=201 + ENDIF + ELSEIF(ISUB.GE.361.AND.ISUB.LE.379) THEN + SQTV=PARJ(172)**2 + SQTA=PARJ(173)**2 + TANW=SQRT(PARU(102)/(1D0-PARU(102))) + CT2W=(1D0-2D0*PARU(102))/(2D0*PARU(102)/TANW) + CSXI=COS(ASIN(PARP(141))) + CSXIP=COS(ASIN(PARJ(174))) + QUPD=2D0*PARP(143)-1D0 +C... rho_tech0 -> W_L W_L + IF(ISUB.EQ.361) THEN + KFA=24 + KFB=24 + CAB2=PARP(141)**4 +C... rho_tech0 -> W_L pi_tech- + ELSEIF(ISUB.EQ.362) THEN + KFA=24 + KFB=52 + ISUB=361 + CAB2=PARP(141)**2*(1D0-PARP(141)**2) +C... pi_tech pi_tech + ELSEIF(ISUB.EQ.363) THEN + KFA=52 + KFB=52 + ISUB=361 + CAB2=(1D0-PARP(141)**2)**2 +C... rho_tech0/omega_tech -> gamma pi_tech + ELSEIF(ISUB.EQ.364) THEN + KFA=22 + KFB=51 + VOGP=CSXI + VRGP=VOGP*QUPD + AOGP=0D0 + ARGP=0D0 +C... gamma pi_tech' + ELSEIF(ISUB.EQ.365) THEN + KFA=22 + KFB=53 + ISUB=364 + VRGP=CSXIP + VOGP=VRGP*QUPD + AOGP=0D0 + ARGP=0D0 +C... Z pi_tech + ELSEIF(ISUB.EQ.366) THEN + KFA=23 + KFB=51 + ISUB=364 + VOGP=CSXI*CT2W + VRGP=-QUPD*CSXI*TANW + AOGP=0D0 + ARGP=0D0 +C... Z pi_tech' + ELSEIF(ISUB.EQ.367) THEN + KFA=23 + KFB=53 + ISUB=364 + VRGP=CSXIP*CT2W + VOGP=-QUPD*CSXIP*TANW + AOGP=0D0 + ARGP=0D0 +C... W_T pi_tech + ELSEIF(ISUB.EQ.368) THEN + KFA=24 + KFB=52 + ISUB=364 + VOGP=CSXI/(2D0*SQRT(PARU(102))) + VRGP=0D0 + AOGP=0D0 + ARGP=-VOGP +C... rho_tech+ -> W_L Z_L + ELSEIF(ISUB.EQ.370) THEN + KFA=24 + KFB=23 + CAB2=PARP(141)**4 +C... W_L pi_tech0 + ELSEIF(ISUB.EQ.371) THEN + KFA=24 + KFB=51 + ISUB=370 + CAB2=PARP(141)**2*(1D0-PARP(141)**2) +C... Z_L pi_tech+ + ELSEIF(ISUB.EQ.372) THEN + KFA=52 + KFB=23 + ISUB=370 + CAB2=PARP(141)**2*(1D0-PARP(141)**2) +C... pi_tech+ pi_tech0 + ELSEIF(ISUB.EQ.373) THEN + KFA=52 + KFB=51 + ISUB=370 + CAB2=(1D0-PARP(141)**2)**2 +C... gamma pi_tech+ + ELSEIF(ISUB.EQ.374) THEN + KFA=52 + KFB=22 + VRGP=QUPD*CSXI + ARGP=0D0 +C... Z_T pi_tech+ + ELSEIF(ISUB.EQ.375) THEN + KFA=52 + KFB=23 + ISUB=374 + VRGP=-QUPD*CSXI*TANW + ARGP=CSXI/(2D0*SQRT(PARU(102)*(1D0-PARU(102)))) +C... W_T pi_tech0 + ELSEIF(ISUB.EQ.376) THEN + KFA=24 + KFB=51 + ISUB=374 + VRGP=0D0 + ARGP=-CSXI/(2D0*SQRT(PARU(102))) +C... W_T pi_tech0' + ELSEIF(ISUB.EQ.377) THEN + KFA=24 + KFB=53 + ISUB=374 + ARGP=0D0 + VRGP=CSXIP/(2D0*SQRT(PARU(102))) + ENDIF + ENDIF +CMRENNA-- + +C...Read kinematical variables and limits + ISTSB=ISET(ISUBSV) + TAUMIN=VINT(11) + YSTMIN=VINT(12) + CTNMIN=VINT(13) + CTPMIN=VINT(14) + TAUPMN=VINT(16) + TAU=VINT(21) + YST=VINT(22) + CTH=VINT(23) + XT2=VINT(25) + TAUP=VINT(26) + TAUMAX=VINT(31) + YSTMAX=VINT(32) + CTNMAX=VINT(33) + CTPMAX=VINT(34) + TAUPMX=VINT(36) + +C...Derive kinematical quantities + TAUE=TAU + IF(ISTSB.GE.3.AND.ISTSB.LE.5) TAUE=TAUP + X(1)=SQRT(TAUE)*EXP(YST) + X(2)=SQRT(TAUE)*EXP(-YST) + IF(MINT(45).EQ.2.AND.ISTSB.GE.1) THEN + IF(X(1).GT.1D0-1D-7) RETURN + ELSEIF(MINT(45).EQ.3) THEN + X(1)=MIN(1D0-1.1D-10,X(1)) + ENDIF + IF(MINT(46).EQ.2.AND.ISTSB.GE.1) THEN + IF(X(2).GT.1D0-1D-7) RETURN + ELSEIF(MINT(46).EQ.3) THEN + X(2)=MIN(1D0-1.1D-10,X(2)) + ENDIF + SH=MAX(1D0,TAU*VINT(2)) + SQM3=VINT(63) + SQM4=VINT(64) + RM3=SQM3/SH + RM4=SQM4/SH + BE34=SQRT(MAX(0D0,(1D0-RM3-RM4)**2-4D0*RM3*RM4)) + RPTS=4D0*VINT(71)**2/SH + BE34L=SQRT(MAX(0D0,(1D0-RM3-RM4)**2-4D0*RM3*RM4-RPTS)) + RM34=MAX(1D-20,2D0*RM3*RM4) + RSQM=1D0+RM34 + IF(2D0*VINT(71)**2/MAX(1D0,VINT(21)*VINT(2)).LT.0.0001D0) + &RM34=MAX(RM34,2D0*VINT(71)**2/MAX(1D0,VINT(21)*VINT(2))) + RTHM=(4D0*RM3*RM4+RPTS)/(1D0-RM3-RM4+BE34L) + IF(ISTSB.EQ.0) THEN + TH=VINT(45) + UH=-0.5D0*SH*MAX(RTHM,1D0-RM3-RM4+BE34*CTH) + SQPTH=MAX(VINT(71)**2,0.25D0*SH*BE34**2*VINT(59)**2) + ELSE +C...Kinematics with incoming masses tricky: now depends on how +C...subprocess has been set up w.r.t. order of incoming partons. + RM1=0D0 + IF(MINT(15).EQ.22.AND.VINT(3).LT.0D0) RM1=-VINT(3)**2/SH + RM2=0D0 + IF(MINT(16).EQ.22.AND.VINT(4).LT.0D0) RM2=-VINT(4)**2/SH + IF(ISUB.EQ.35) THEN + RM2=MIN(RM1,RM2) + RM1=0D0 + ENDIF + BE12=SQRT(MAX(0D0,(1D0-RM1-RM2)**2-4D0*RM1*RM2)) + TUCOM=(1D0-RM1-RM2)*(1D0-RM3-RM4) + TH=-0.5D0*SH*MAX(RTHM,TUCOM-2D0*RM1*RM4-2D0*RM2*RM3- + & BE12*BE34*CTH) + UH=-0.5D0*SH*MAX(RTHM,TUCOM-2D0*RM1*RM3-2D0*RM2*RM4+ + & BE12*BE34*CTH) + SQPTH=MAX(VINT(71)**2,0.25D0*SH*BE34**2*(1D0-CTH**2)) + ENDIF + SHR=SQRT(SH) + SH2=SH**2 + TH2=TH**2 + UH2=UH**2 + +C...Choice of Q2 scale: hard, parton distributions, parton showers + IF(ISTSB.EQ.1.OR.ISTSB.EQ.3.OR.ISTSB.EQ.5) THEN + Q2=SH + ELSEIF(ISTSB.EQ.8) THEN + IF(MINT(107).EQ.4) Q2=VINT(307) + IF(MINT(108).EQ.4) Q2=VINT(308) + ELSEIF(MOD(ISTSB,2).EQ.0.OR.ISTSB.EQ.9) THEN + Q2IN1=0D0 + IF(MINT(11).EQ.22.AND.VINT(3).LT.0D0) Q2IN1=VINT(3)**2 + Q2IN2=0D0 + IF(MINT(12).EQ.22.AND.VINT(4).LT.0D0) Q2IN2=VINT(4)**2 + IF(MSTP(32).EQ.1) THEN + Q2=2D0*SH*TH*UH/(SH**2+TH**2+UH**2) + ELSEIF(MSTP(32).EQ.2) THEN + Q2=SQPTH+0.5D0*(SQM3+SQM4) + ELSEIF(MSTP(32).EQ.3) THEN + Q2=MIN(-TH,-UH) + ELSEIF(MSTP(32).EQ.4) THEN + Q2=SH + ELSEIF(MSTP(32).EQ.5) THEN + Q2=-TH + ELSEIF(MSTP(32).EQ.6) THEN + XSF1=X(1) + IF(ISTSB.EQ.9) XSF1=X(1)/VINT(143) + XSF2=X(2) + IF(ISTSB.EQ.9) XSF2=X(2)/VINT(144) + Q2=(1D0+XSF1*Q2IN1/SH+XSF2*Q2IN2/SH)* + & (SQPTH+0.5D0*(SQM3+SQM4)) + ELSEIF(MSTP(32).EQ.7) THEN + Q2=(1D0+Q2IN1/SH+Q2IN2/SH)*(SQPTH+0.5D0*(SQM3+SQM4)) + ELSEIF(MSTP(32).EQ.8) THEN + Q2=SQPTH+0.5D0*(Q2IN1+Q2IN2+SQM3+SQM4) + ELSEIF(MSTP(32).EQ.9) THEN + Q2=SQPTH+Q2IN1+Q2IN2+SQM3+SQM4 + ELSEIF(MSTP(32).EQ.10) THEN + Q2=VINT(2) + ENDIF + IF(ISTSB.EQ.9) Q2=SQPTH + IF(ISTSB.EQ.9.AND.MSTP(82).GE.2) Q2=Q2+ + & (PARP(82)*(VINT(1)/PARP(89))**PARP(90))**2 + ENDIF + Q2SF=Q2 + IF(ISTSB.GE.3.AND.ISTSB.LE.5) THEN + Q2SF=PMAS(23,1)**2 + IF(ISUB.EQ.8.OR.ISUB.EQ.76.OR.ISUB.EQ.77.OR.ISUB.EQ.124.OR. + & ISUB.EQ.351) Q2SF=PMAS(24,1)**2 + IF(ISUB.EQ.352) Q2SF=PMAS(63,1)**2 + IF(ISUB.EQ.121.OR.ISUB.EQ.122) THEN + Q2SF=PMAS(PYCOMP(KFPR(ISUBSV,2)),1)**2 + IF(MSTP(39).EQ.2) Q2SF=Q2SF+MAX(VINT(202),VINT(207)) + IF(MSTP(39).EQ.3) Q2SF=SH + IF(MSTP(39).EQ.4) Q2SF=VINT(26)*VINT(2) + IF(MSTP(39).EQ.5) Q2SF=PMAS(KFHIGG,1)**2 + ENDIF + ENDIF + Q2PS=Q2SF + Q2SF=Q2SF*PARP(34) + IF(MSTP(69).GE.1.AND.MINT(47).EQ.5) Q2SF=VINT(2) + IF(MSTP(69).GE.2) Q2SF=VINT(2) + IF(MSTP(22).GE.1.AND.(ISUB.EQ.10.OR.ISUB.EQ.83).AND. + &(MINT(43).EQ.2.OR.MINT(43).EQ.3)) THEN + XBJ=X(2) + IF(MINT(43).EQ.3) XBJ=X(1) + IF(MSTP(22).EQ.1) THEN + Q2PS=-TH + ELSEIF(MSTP(22).EQ.2) THEN + Q2PS=((1D0-XBJ)/XBJ)*(-TH) + ELSEIF(MSTP(22).EQ.3) THEN + Q2PS=SQRT((1D0-XBJ)/XBJ)*(-TH) + ELSE + Q2PS=(1D0-XBJ)*MAX(1D0,-LOG(XBJ))*(-TH) + ENDIF + ENDIF + IF(MSTP(68).EQ.1.AND.(ISUBSV.EQ.1.OR.ISUBSV.EQ.2.OR. + &ISUBSV.EQ.141.OR.ISUBSV.EQ.142.OR.ISUBSV.EQ.144)) THEN + Q2PS=VINT(2) + ELSEIF(MSTP(68).GE.2.AND.(ISUBSV.NE.11.AND.ISUBSV.NE.12.AND. + &ISUBSV.NE.13.AND.ISUBSV.NE.28.AND.ISUBSV.NE.53.AND. + &ISUBSV.NE.68)) THEN + Q2PS=VINT(2) + ENDIF + +C...Store derived kinematical quantities + VINT(41)=X(1) + VINT(42)=X(2) + VINT(44)=SH + VINT(43)=SQRT(SH) + VINT(45)=TH + VINT(46)=UH + IF(ISTSB.NE.8) VINT(48)=SQPTH + IF(ISTSB.NE.8) VINT(47)=SQRT(SQPTH) + VINT(50)=TAUP*VINT(2) + VINT(49)=SQRT(MAX(0D0,VINT(50))) + VINT(52)=Q2 + VINT(51)=SQRT(Q2) + VINT(54)=Q2SF + VINT(53)=SQRT(Q2SF) + VINT(56)=Q2PS + VINT(55)=SQRT(Q2PS) + +C...Calculate parton distributions + IF(ISTSB.LE.0) GOTO 152 + IF(MINT(47).GE.2) THEN + DO 110 I=3-MIN(2,MINT(45)),MIN(2,MINT(46)) + XSF=X(I) + IF(ISTSB.EQ.9) XSF=X(I)/VINT(142+I) + IF(ISUB.EQ.99) THEN + XSF=VINT(309-I)/(VINT(2)+VINT(307)+VINT(308)) + Q2SF=VINT(309-I) + ENDIF + MINT(105)=MINT(102+I) + MINT(109)=MINT(106+I) + VINT(120)=VINT(2+I) + IF(MSTP(57).LE.1) THEN + CALL PYPDFU(MINT(10+I),XSF,Q2SF,XPQ) + ELSE + CALL PYPDFL(MINT(10+I),XSF,Q2SF,XPQ) + ENDIF + DO 100 KFL=-25,25 + XSFX(I,KFL)=XPQ(KFL) + 100 CONTINUE + 110 CONTINUE + ENDIF + +C...Calculate alpha_em, alpha_strong and K-factor + XW=PARU(102) + XWV=XW + IF(MSTP(8).GE.2.OR.(ISUB.GE.71.AND.ISUB.LE.77)) XW= + &1D0-(PMAS(24,1)/PMAS(23,1))**2 + XW1=1D0-XW + XWC=1D0/(16D0*XW*XW1) + AEM=PYALEM(Q2) + IF(MSTP(8).GE.1) AEM=SQRT(2D0)*PARU(105)*PMAS(24,1)**2*XW/PARU(1) + IF(MSTP(33).NE.3) AS=PYALPS(PARP(34)*Q2) + FACK=1D0 + FACA=1D0 + IF(MSTP(33).EQ.1) THEN + FACK=PARP(31) + ELSEIF(MSTP(33).EQ.2) THEN + FACK=PARP(31) + FACA=PARP(32)/PARP(31) + ELSEIF(MSTP(33).EQ.3) THEN + Q2AS=PARP(33)*Q2 + IF(ISTSB.EQ.9.AND.MSTP(82).GE.2) Q2AS=Q2AS+ + & PARU(112)*PARP(82)*(VINT(1)/PARP(89))**PARP(90) + AS=PYALPS(Q2AS) + ENDIF + VINT(138)=1D0 + VINT(57)=AEM + VINT(58)=AS + +C...Set flags for allowed reacting partons/leptons + DO 140 I=1,2 + DO 120 J=-25,25 + KFAC(I,J)=0 + 120 CONTINUE + IF(MINT(44+I).EQ.1) THEN + KFAC(I,MINT(10+I))=1 + ELSEIF(MINT(40+I).EQ.1.AND.MSTP(12).EQ.0) THEN + KFAC(I,MINT(10+I))=1 + KFAC(I,22)=1 + KFAC(I,24)=1 + KFAC(I,-24)=1 + ELSE + DO 130 J=-25,25 + KFAC(I,J)=KFIN(I,J) + IF(IABS(J).GT.MSTP(58).AND.IABS(J).LE.10) KFAC(I,J)=0 + IF(XSFX(I,J).LT.1D-10) KFAC(I,J)=0 + 130 CONTINUE + ENDIF + 140 CONTINUE + +C...Lower and upper limit for fermion flavour loops + MMIN1=0 + MMAX1=0 + MMIN2=0 + MMAX2=0 + DO 150 J=-20,20 + IF(KFAC(1,-J).EQ.1) MMIN1=-J + IF(KFAC(1,J).EQ.1) MMAX1=J + IF(KFAC(2,-J).EQ.1) MMIN2=-J + IF(KFAC(2,J).EQ.1) MMAX2=J + 150 CONTINUE + MMINA=MIN(MMIN1,MMIN2) + MMAXA=MAX(MMAX1,MMAX2) + +C...Common resonance mass and width combinations + SQMZ=PMAS(23,1)**2 + SQMW=PMAS(24,1)**2 + SQMH=PMAS(KFHIGG,1)**2 + GMMZ=PMAS(23,1)*PMAS(23,2) + GMMW=PMAS(24,1)*PMAS(24,2) + GMMH=PMAS(KFHIGG,1)*PMAS(KFHIGG,2) +C...MRENNA+++ + ZWID=PMAS(23,2) + WWID=PMAS(24,2) + TANW=SQRT(XW/XW1) + CT2W=(1D0-2D0*XW)/(2D0*XW/TANW) +C...MRENNA--- + +C...Phase space integral in tau + COMFAC=PARU(1)*PARU(5)/VINT(2) + IF(MINT(41).EQ.2.AND.MINT(42).EQ.2) COMFAC=COMFAC*FACK + IF((MINT(47).GE.2.OR.(ISTSB.GE.3.AND.ISTSB.LE.5)).AND. + &ISTSB.NE.8.AND.ISTSB.NE.9) THEN + ATAU1=LOG(TAUMAX/TAUMIN) + ATAU2=(TAUMAX-TAUMIN)/(TAUMAX*TAUMIN) + H1=COEF(ISUBSV,1)+(ATAU1/ATAU2)*COEF(ISUBSV,2)/TAU + IF(MINT(72).GE.1) THEN + TAUR1=VINT(73) + GAMR1=VINT(74) + ATAUD=LOG(TAUMAX/TAUMIN*(TAUMIN+TAUR1)/(TAUMAX+TAUR1)) + ATAU3=ATAUD/TAUR1 + IF(ATAUD.GT.1D-10) H1=H1+ + & (ATAU1/ATAU3)*COEF(ISUBSV,3)/(TAU+TAUR1) + ATAUD=ATAN((TAUMAX-TAUR1)/GAMR1)-ATAN((TAUMIN-TAUR1)/GAMR1) + ATAU4=ATAUD/GAMR1 + IF(ATAUD.GT.1D-10) H1=H1+ + & (ATAU1/ATAU4)*COEF(ISUBSV,4)*TAU/((TAU-TAUR1)**2+GAMR1**2) + ENDIF + IF(MINT(72).EQ.2) THEN + TAUR2=VINT(75) + GAMR2=VINT(76) + ATAUD=LOG(TAUMAX/TAUMIN*(TAUMIN+TAUR2)/(TAUMAX+TAUR2)) + ATAU5=ATAUD/TAUR2 + IF(ATAUD.GT.1D-10) H1=H1+ + & (ATAU1/ATAU5)*COEF(ISUBSV,5)/(TAU+TAUR2) + ATAUD=ATAN((TAUMAX-TAUR2)/GAMR2)-ATAN((TAUMIN-TAUR2)/GAMR2) + ATAU6=ATAUD/GAMR2 + IF(ATAUD.GT.1D-10) H1=H1+ + & (ATAU1/ATAU6)*COEF(ISUBSV,6)*TAU/((TAU-TAUR2)**2+GAMR2**2) + ENDIF + IF(MINT(47).EQ.5.AND.(ISTSB.LE.2.OR.ISTSB.GE.5)) THEN + ATAU7=LOG(MAX(2D-10,1D0-TAUMIN)/MAX(2D-10,1D0-TAUMAX)) + IF(ATAU7.GT.1D-10) H1=H1+(ATAU1/ATAU7)*COEF(ISUBSV,7)*TAU/ + & MAX(2D-10,1D0-TAU) + ELSEIF(MINT(47).GE.6.AND.(ISTSB.LE.2.OR.ISTSB.GE.5)) THEN + ATAU7=LOG(MAX(1D-10,1D0-TAUMIN)/MAX(1D-10,1D0-TAUMAX)) + IF(ATAU7.GT.1D-10) H1=H1+(ATAU1/ATAU7)*COEF(ISUBSV,7)*TAU/ + & MAX(1D-10,1D0-TAU) + ENDIF + COMFAC=COMFAC*ATAU1/(TAU*H1) + ENDIF + +C...Phase space integral in y* + IF((MINT(47).EQ.4.OR.MINT(47).EQ.5).AND.ISTSB.NE.8.AND.ISTSB.NE.9) + &THEN + AYST0=YSTMAX-YSTMIN + IF(AYST0.LT.1D-10) THEN + COMFAC=0D0 + ELSE + AYST1=0.5D0*(YSTMAX-YSTMIN)**2 + AYST2=AYST1 + AYST3=2D0*(ATAN(EXP(YSTMAX))-ATAN(EXP(YSTMIN))) + H2=(AYST0/AYST1)*COEF(ISUBSV,8)*(YST-YSTMIN)+ + & (AYST0/AYST2)*COEF(ISUBSV,9)*(YSTMAX-YST)+ + & (AYST0/AYST3)*COEF(ISUBSV,10)/COSH(YST) + IF(MINT(45).EQ.3) THEN + YST0=-0.5D0*LOG(TAUE) + AYST4=LOG(MAX(1D-10,EXP(YST0-YSTMIN)-1D0)/ + & MAX(1D-10,EXP(YST0-YSTMAX)-1D0)) + IF(AYST4.GT.1D-10) H2=H2+(AYST0/AYST4)*COEF(ISUBSV,11)/ + & MAX(1D-10,1D0-EXP(YST-YST0)) + ENDIF + IF(MINT(46).EQ.3) THEN + YST0=-0.5D0*LOG(TAUE) + AYST5=LOG(MAX(1D-10,EXP(YST0+YSTMAX)-1D0)/ + & MAX(1D-10,EXP(YST0+YSTMIN)-1D0)) + IF(AYST5.GT.1D-10) H2=H2+(AYST0/AYST5)*COEF(ISUBSV,12)/ + & MAX(1D-10,1D0-EXP(-YST-YST0)) + ENDIF + COMFAC=COMFAC*AYST0/H2 + ENDIF + ENDIF + +C...2 -> 1 processes: reduction in angular part of phase space integral +C...for case of decaying resonance + ACTH0=CTNMAX-CTNMIN+CTPMAX-CTPMIN + IF((ISTSB.EQ.1.OR.ISTSB.EQ.3.OR.ISTSB.EQ.5)) THEN + IF(MDCY(PYCOMP(KFPR(ISUBSV,1)),1).EQ.1) THEN + IF(KFPR(ISUB,1).EQ.25.OR.KFPR(ISUB,1).EQ.37.OR. + & KFPR(ISUB,1).EQ.39) THEN + COMFAC=COMFAC*0.5D0*ACTH0 + ELSE + COMFAC=COMFAC*0.125D0*(3D0*ACTH0+CTNMAX**3-CTNMIN**3+ + & CTPMAX**3-CTPMIN**3) + ENDIF + ENDIF + +C...2 -> 2 processes: angular part of phase space integral + ELSEIF(ISTSB.EQ.2.OR.ISTSB.EQ.4) THEN + ACTH1=LOG((MAX(RM34,RSQM-CTNMIN)*MAX(RM34,RSQM-CTPMIN))/ + & (MAX(RM34,RSQM-CTNMAX)*MAX(RM34,RSQM-CTPMAX))) + ACTH2=LOG((MAX(RM34,RSQM+CTNMAX)*MAX(RM34,RSQM+CTPMAX))/ + & (MAX(RM34,RSQM+CTNMIN)*MAX(RM34,RSQM+CTPMIN))) + ACTH3=1D0/MAX(RM34,RSQM-CTNMAX)-1D0/MAX(RM34,RSQM-CTNMIN)+ + & 1D0/MAX(RM34,RSQM-CTPMAX)-1D0/MAX(RM34,RSQM-CTPMIN) + ACTH4=1D0/MAX(RM34,RSQM+CTNMIN)-1D0/MAX(RM34,RSQM+CTNMAX)+ + & 1D0/MAX(RM34,RSQM+CTPMIN)-1D0/MAX(RM34,RSQM+CTPMAX) + H3=COEF(ISUBSV,13)+ + & (ACTH0/ACTH1)*COEF(ISUBSV,14)/MAX(RM34,RSQM-CTH)+ + & (ACTH0/ACTH2)*COEF(ISUBSV,15)/MAX(RM34,RSQM+CTH)+ + & (ACTH0/ACTH3)*COEF(ISUBSV,16)/MAX(RM34,RSQM-CTH)**2+ + & (ACTH0/ACTH4)*COEF(ISUBSV,17)/MAX(RM34,RSQM+CTH)**2 + COMFAC=COMFAC*ACTH0*0.5D0*BE34/H3 + +C...2 -> 2 processes: take into account final state Breit-Wigners + COMFAC=COMFAC*VINT(80) + ENDIF + +C...2 -> 3, 4 processes: phace space integral in tau' + IF(MINT(47).GE.2.AND.ISTSB.GE.3.AND.ISTSB.LE.5) THEN + ATAUP1=LOG(TAUPMX/TAUPMN) + ATAUP2=((1D0-TAU/TAUPMX)**4-(1D0-TAU/TAUPMN)**4)/(4D0*TAU) + H4=COEF(ISUBSV,18)+ + & (ATAUP1/ATAUP2)*COEF(ISUBSV,19)*(1D0-TAU/TAUP)**3/TAUP + IF(MINT(47).EQ.5) THEN + ATAUP3=LOG(MAX(2D-10,1D0-TAUPMN)/MAX(2D-10,1D0-TAUPMX)) + H4=H4+(ATAUP1/ATAUP3)*COEF(ISUBSV,20)*TAUP/MAX(2D-10,1D0-TAUP) + ELSEIF(MINT(47).GE.6) THEN + ATAUP3=LOG(MAX(1D-10,1D0-TAUPMN)/MAX(1D-10,1D0-TAUPMX)) + H4=H4+(ATAUP1/ATAUP3)*COEF(ISUBSV,20)*TAUP/MAX(1D-10,1D0-TAUP) + ENDIF + COMFAC=COMFAC*ATAUP1/H4 + ENDIF + +C...2 -> 3, 4 processes: effective W/Z parton distributions + IF(ISTSB.EQ.3.OR.ISTSB.EQ.4) THEN + IF(1D0-TAU/TAUP.GT.1D-4) THEN + FZW=(1D0+TAU/TAUP)*LOG(TAUP/TAU)-2D0*(1D0-TAU/TAUP) + ELSE + FZW=1D0/6D0*(1D0-TAU/TAUP)**3*TAU/TAUP + ENDIF + COMFAC=COMFAC*FZW + ENDIF + +C...2 -> 3 processes: phase space integrals for pT1, pT2, y3, mirror + IF(ISTSB.EQ.5) THEN + COMFAC=COMFAC*VINT(205)*VINT(210)*VINT(212)*VINT(214)/ + & (128D0*PARU(1)**4*VINT(220))*(TAU**2/TAUP) + ENDIF + +C...Phase space integral for low-pT and multiple interactions + IF(ISTSB.EQ.9) THEN + COMFAC=PARU(1)*PARU(5)*FACK*0.5D0*VINT(2)/SH2 + ATAU1=LOG(2D0*(1D0+SQRT(1D0-XT2))/XT2-1D0) + ATAU2=2D0*ATAN(1D0/XT2-1D0)/SQRT(XT2) + H1=COEF(ISUBSV,1)+(ATAU1/ATAU2)*COEF(ISUBSV,2)/SQRT(TAU) + COMFAC=COMFAC*ATAU1/H1 + AYST0=YSTMAX-YSTMIN + AYST1=0.5D0*(YSTMAX-YSTMIN)**2 + AYST3=2D0*(ATAN(EXP(YSTMAX))-ATAN(EXP(YSTMIN))) + H2=(AYST0/AYST1)*COEF(ISUBSV,8)*(YST-YSTMIN)+ + & (AYST0/AYST1)*COEF(ISUBSV,9)*(YSTMAX-YST)+ + & (AYST0/AYST3)*COEF(ISUBSV,10)/COSH(YST) + COMFAC=COMFAC*AYST0/H2 + IF(MSTP(82).LE.1) COMFAC=COMFAC*XT2**2*(1D0/VINT(149)-1D0) +C...For MSTP(82)>=2 an additional factor (xT2/(xT2+VINT(149))**2 is +C...introduced to make cross-section finite for xT2 -> 0 + IF(MSTP(82).GE.2) COMFAC=COMFAC*XT2**2/(VINT(149)* + & (1D0+VINT(149))) + ENDIF + +C...Real gamma + gamma: include factor 2 when different nature + 152 IF(MINT(11).EQ.22.AND.MINT(12).EQ.22.AND.MINT(123).GE.4.AND. + &MSTP(14).LE.10) COMFAC=2D0*COMFAC + +C...Extra factors to include the effects of +C...longitudinal resolved photons. + DO 155 ISDE=1,2 + IF(MINT(10+ISDE).EQ.22.AND.MINT(106+ISDE).GE.1) THEN + VINT(314+ISDE)=1D0 + XY=PARP(166+ISDE) + IF(MSTP(16).EQ.0) THEN + IF(VINT(304+ISDE).GT.0D0.AND.VINT(304+ISDE).LT.1D0) + & XY=VINT(304+ISDE) + ELSE + IF(VINT(308+ISDE).GT.0D0.AND.VINT(308+ISDE).LT.1D0) + & XY=VINT(308+ISDE) + ENDIF + Q2GA=VINT(306+ISDE) + IF(MSTP(17).GT.0.AND.XY.GT.0D0.AND.XY.LT.1D0.AND. + & Q2GA.GT.0D0) THEN + REDUCE=0D0 + IF(MSTP(17).EQ.1) THEN + REDUCE=4D0*Q2*Q2GA/(Q2+Q2GA)**2 + ELSEIF(MSTP(17).EQ.2) THEN + REDUCE=4D0*Q2GA/(Q2+Q2GA) + ELSEIF(MSTP(17).EQ.3) THEN + PMVIRT=PMAS(PYCOMP(113),1) + REDUCE=4D0*Q2GA/(PMVIRT**2+Q2GA) + ELSEIF(MSTP(17).EQ.4.AND.MINT(106+ISDE).EQ.1) THEN + PMVIRT=PMAS(PYCOMP(113),1) + REDUCE=4D0*PMVIRT**2*Q2GA/(PMVIRT**2+Q2GA)**2 + ELSEIF(MSTP(17).EQ.4.AND.MINT(106+ISDE).EQ.2) THEN + PMVIRT=PMAS(PYCOMP(113),1) + REDUCE=4D0*PMVIRT**2*Q2GA/(PMVIRT**2+Q2GA)**2 + ELSEIF(MSTP(17).EQ.4.AND.MINT(106+ISDE).EQ.3) THEN + PMVSMN=4D0*PARP(15)**2 + PMVSMX=4D0*VINT(154)**2 + REDTRA=1D0/(PMVSMN+Q2GA)-1D0/(PMVSMX+Q2GA) + REDLON=(3D0*PMVSMN+Q2GA)/(PMVSMN+Q2GA)**3- + & (3D0*PMVSMX+Q2GA)/(PMVSMX+Q2GA)**3 + REDUCE=4D0*(Q2GA/6D0)*REDLON/REDTRA + ELSEIF(MSTP(17).EQ.5.AND.MINT(106+ISDE).EQ.1) THEN + PMVIRT=PMAS(PYCOMP(113),1) + REDUCE=4D0*Q2GA/(PMVIRT**2+Q2GA) + ELSEIF(MSTP(17).EQ.5.AND.MINT(106+ISDE).EQ.2) THEN + PMVIRT=PMAS(PYCOMP(113),1) + REDUCE=4D0*Q2GA/(PMVIRT**2+Q2GA) + ELSEIF(MSTP(17).EQ.5.AND.MINT(106+ISDE).EQ.3) THEN + PMVSMN=4D0*PARP(15)**2 + PMVSMX=4D0*VINT(154)**2 + REDTRA=1D0/(PMVSMN+Q2GA)-1D0/(PMVSMX+Q2GA) + REDLON=1D0/(PMVSMN+Q2GA)**2-1D0/(PMVSMX+Q2GA)**2 + REDUCE=4D0*(Q2GA/2D0)*REDLON/REDTRA + ENDIF + BEAMAS=PYMASS(11) + IF(VINT(302+ISDE).GT.0D0) BEAMAS=VINT(302+ISDE) + FRACLT=1D0/(1D0+XY**2/2D0/(1D0-XY)* + & (1D0-2D0*BEAMAS**2/Q2GA)) + VINT(314+ISDE)=1D0+PARP(165)*REDUCE*FRACLT + ENDIF + ELSE + VINT(314+ISDE)=1D0 + ENDIF + COMFAC=COMFAC*VINT(314+ISDE) + 155 CONTINUE + +C...Strongly interacting Z_L/W_L model of Dobado, Herrero, Terron + IF((MSTP(46).GE.3.AND.MSTP(46).LE.6).AND.(ISUB.EQ.71.OR.ISUB.EQ. + &72.OR.ISUB.EQ.73.OR.ISUB.EQ.76.OR.ISUB.EQ.77)) THEN +C...Calculate M_R and N_R functions for Higgs-like and QCD-like models + IF(MSTP(46).LE.4) THEN + HDTLH=LOG(PMAS(25,1)/PARP(44)) + HDTMR=(4.5D0*PARU(1)/SQRT(3D0)-74D0/9D0)/8D0+HDTLH/12D0 + HDTNR=-1D0/18D0+HDTLH/6D0 + ELSE + HDTNM=0.125D0*(1D0/(288D0*PARU(1)**2)+(PARP(47)/PARP(45))**2) + HDTLQ=LOG(PARP(45)/PARP(44)) + HDTMR=-(4D0*PARU(1))**2*0.5D0*HDTNM+HDTLQ/12D0 + HDTNR=(4D0*PARU(1))**2*HDTNM+HDTLQ/6D0 + ENDIF + +C...Calculate lowest and next-to-lowest order partial wave amplitudes + HDTV=1D0/(16D0*PARU(1)*PARP(47)**2) + A00L=SNGL(HDTV*SH) + A20L=-0.5*A00L + A11L=A00L/6. + HDTLS=LOG(SH/PARP(44)**2) + A004=SNGL((HDTV*SH)**2/(4D0*PARU(1)))* + & CMPLX(SNGL((176D0*HDTMR+112D0*HDTNR)/3D0+11D0/27D0- + & (50D0/9D0)*HDTLS),SNGL(4D0*PARU(1))) + A204=SNGL((HDTV*SH)**2/(4D0*PARU(1)))* + & CMPLX(SNGL(32D0*(HDTMR+2D0*HDTNR)/3D0+25D0/54D0- + & (20D0/9D0)*HDTLS),SNGL(PARU(1))) + A114=SNGL((HDTV*SH)**2/(6D0*PARU(1)))* + & CMPLX(SNGL(4D0*(-2D0*HDTMR+HDTNR)-1D0/18D0),SNGL(PARU(1)/6D0)) + +C...Unitarize partial wave amplitudes with Pade or K-matrix method + IF(MSTP(46).EQ.3.OR.MSTP(46).EQ.5) THEN + A00U=A00L/(1.-A004/A00L) + A20U=A20L/(1.-A204/A20L) + A11U=A11L/(1.-A114/A11L) + ELSE + A00U=(A00L+REAL(A004))/(1.-CMPLX(0.,A00L+REAL(A004))) + A20U=(A20L+REAL(A204))/(1.-CMPLX(0.,A20L+REAL(A204))) + A11U=(A11L+REAL(A114))/(1.-CMPLX(0.,A11L+REAL(A114))) + ENDIF + ENDIF + +C...Supersymmetric processes - all of type 2 -> 2 : +C...correct final-state Breit-Wigners from fixed to running width. + IF(ISUB.GE.200.AND.ISUB.LE.301.AND.MSTP(42).GT.0) THEN + DO 160 I=1,2 + KFLW=KFPR(ISUBSV,I) + KCW=PYCOMP(KFLW) + IF(PMAS(KCW,2).LT.PARP(41)) GOTO 160 + IF(I.EQ.1) SQMI=SQM3 + IF(I.EQ.2) SQMI=SQM4 + SQMS=PMAS(KCW,1)**2 + GMMS=PMAS(KCW,1)*PMAS(KCW,2) + HBWS=GMMS/((SQMI-SQMS)**2+GMMS**2) + CALL PYWIDT(KFLW,SQMI,WDTP,WDTE) + GMMI=SQRT(SQMI)*WDTP(0) + HBWI=GMMI/((SQMI-SQMS)**2+GMMI**2) + COMFAC=COMFAC*(HBWI/HBWS) + 160 CONTINUE + ENDIF + +C...A: 2 -> 1, tree diagrams + + IF(ISUB.LE.10) THEN + IF(ISUB.EQ.1) THEN +C...f + fbar -> gamma*/Z0 + MINT(61)=2 + CALL PYWIDT(23,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + FACZ=4D0*COMFAC*3D0 + HP0=AEM/3D0*SH + HP1=AEM/3D0*XWC*SH + DO 180 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 180 + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI) + VI=AI-4D0*EI*XWV + HI0=HP0 + IF(IABS(I).LE.10) HI0=HI0*FACA/3D0 + HI1=HP1 + IF(IABS(I).LE.10) HI1=HI1*FACA/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACZ*(EI**2/SH2*HI0*HP0*VINT(111)+ + & EI*VI*(1D0-SQMZ/SH)/((SH-SQMZ)**2+HS**2)* + & (HI0*HP1+HI1*HP0)*VINT(112)+(VI**2+AI**2)/ + & ((SH-SQMZ)**2+HS**2)*HI1*HP1*VINT(114)) + 180 CONTINUE + + ELSEIF(ISUB.EQ.2) THEN +C...f + fbar' -> W+/- + CALL PYWIDT(24,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + FACBW=4D0*COMFAC/((SH-SQMW)**2+HS**2)*3D0 + HP=AEM/(24D0*XW)*SH + DO 200 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 200 + IA=IABS(I) + DO 190 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 190 + JA=IABS(J) + IF(I*J.GT.0.OR.MOD(IA+JA,2).EQ.0) GOTO 190 + IF((IA.LE.10.AND.JA.GT.10).OR.(IA.GT.10.AND.JA.LE.10)) + & GOTO 190 + KCHW=(KCHG(IA,1)*ISIGN(1,I)+KCHG(JA,1)*ISIGN(1,J))/3 + HI=HP*2D0 + IF(IA.LE.10) HI=HI*VCKM((IA+1)/2,(JA+1)/2)*FACA/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + HF=SHR*(WDTE(0,1)+WDTE(0,(5-KCHW)/2)+WDTE(0,4)) + SIGH(NCHN)=HI*FACBW*HF + 190 CONTINUE + 200 CONTINUE + + ELSEIF(ISUB.EQ.3) THEN +C...f + fbar -> h0 (or H0, or A0) + CALL PYWIDT(KFHIGG,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + FACBW=4D0*COMFAC/((SH-SQMH)**2+HS**2) + IF(ABS(SHR-PMAS(KFHIGG,1)).GT.PARP(48)*PMAS(KFHIGG,2)) + & FACBW=0D0 + HP=AEM/(8D0*XW)*SH/SQMW*SH + HF=SHR*(WDTE(0,1)+WDTE(0,2)+WDTE(0,4)) + DO 210 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 210 + IA=IABS(I) + RMQ=PYMRUN(IA,SH)**2/SH + HI=HP*RMQ + IF(IA.LE.10) HI=HP*RMQ*FACA/3D0 + IF(MSTP(4).GE.1.OR.IHIGG.GE.2) THEN + IKFI=1 + IF(IA.LE.10.AND.MOD(IA,2).EQ.0) IKFI=2 + IF(IA.GT.10) IKFI=3 + HI=HI*PARU(150+10*IHIGG+IKFI)**2 + ENDIF + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=HI*FACBW*HF + 210 CONTINUE + + ELSEIF(ISUB.EQ.4) THEN +C...gamma + W+/- -> W+/- + + ELSEIF(ISUB.EQ.5) THEN +C...Z0 + Z0 -> h0 + CALL PYWIDT(25,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + FACBW=4D0*COMFAC/((SH-SQMH)**2+HS**2) + IF(ABS(SHR-PMAS(25,1)).GT.PARP(48)*PMAS(25,2)) FACBW=0D0 + HP=AEM/(8D0*XW)*SH/SQMW*SH + HF=SHR*(WDTE(0,1)+WDTE(0,2)+WDTE(0,4)) + HI=HP/4D0 + FACI=8D0/(PARU(1)**2*XW1)*(AEM*XWC)**2 + DO 230 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 230 + DO 220 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 220 + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI) + VI=AI-4D0*EI*XWV + EJ=KCHG(IABS(J),1)/3D0 + AJ=SIGN(1D0,EJ) + VJ=AJ-4D0*EJ*XWV + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACI*(VI**2+AI**2)*(VJ**2+AJ**2)*HI*FACBW*HF + 220 CONTINUE + 230 CONTINUE + + ELSEIF(ISUB.EQ.6) THEN +C...Z0 + W+/- -> W+/- + + ELSEIF(ISUB.EQ.7) THEN +C...W+ + W- -> Z0 + + ELSEIF(ISUB.EQ.8) THEN +C...W+ + W- -> h0 + CALL PYWIDT(25,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + FACBW=4D0*COMFAC/((SH-SQMH)**2+HS**2) + IF(ABS(SHR-PMAS(25,1)).GT.PARP(48)*PMAS(25,2)) FACBW=0D0 + HP=AEM/(8D0*XW)*SH/SQMW*SH + HF=SHR*(WDTE(0,1)+WDTE(0,2)+WDTE(0,4)) + HI=HP/2D0 + FACI=1D0/(4D0*PARU(1)**2)*(AEM/XW)**2 + DO 250 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 250 + EI=SIGN(1D0,DBLE(I))*KCHG(IABS(I),1) + DO 240 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 240 + EJ=SIGN(1D0,DBLE(J))*KCHG(IABS(J),1) + IF(EI*EJ.GT.0D0) GOTO 240 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACI*VINT(180+I)*VINT(180+J)*HI*FACBW*HF + 240 CONTINUE + 250 CONTINUE + +C...B: 2 -> 2, tree diagrams + + ELSEIF(ISUB.EQ.10) THEN +C...f + f' -> f + f' (gamma/Z/W exchange) + FACGGF=COMFAC*AEM**2*2D0*(SH2+UH2)/TH2 + FACGZF=COMFAC*AEM**2*XWC*4D0*SH2/(TH*(TH-SQMZ)) + FACZZF=COMFAC*(AEM*XWC)**2*2D0*SH2/(TH-SQMZ)**2 + FACWWF=COMFAC*(0.5D0*AEM/XW)**2*SH2/(TH-SQMW)**2 + DO 270 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 270 + IA=IABS(I) + DO 260 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 260 + JA=IABS(J) +C...Electroweak couplings + EI=KCHG(IA,1)*ISIGN(1,I)/3D0 + AI=SIGN(1D0,KCHG(IA,1)+0.5D0)*ISIGN(1,I) + VI=AI-4D0*EI*XWV + EJ=KCHG(JA,1)*ISIGN(1,J)/3D0 + AJ=SIGN(1D0,KCHG(JA,1)+0.5D0)*ISIGN(1,J) + VJ=AJ-4D0*EJ*XWV + EPSIJ=ISIGN(1,I*J) +C...gamma/Z exchange, only gamma exchange, or only Z exchange + IF(MSTP(21).GE.1.AND.MSTP(21).LE.4) THEN + IF(MSTP(21).EQ.1.OR.MSTP(21).EQ.4) THEN + FACNCF=FACGGF*EI**2*EJ**2+FACGZF*EI*EJ* + & (VI*VJ*(1D0+UH2/SH2)+AI*AJ*EPSIJ*(1D0-UH2/SH2))+ + & FACZZF*((VI**2+AI**2)*(VJ**2+AJ**2)*(1D0+UH2/SH2)+ + & 4D0*VI*VJ*AI*AJ*EPSIJ*(1D0-UH2/SH2)) + ELSEIF(MSTP(21).EQ.2) THEN + FACNCF=FACGGF*EI**2*EJ**2 + ELSE + FACNCF=FACZZF*((VI**2+AI**2)*(VJ**2+AJ**2)* + & (1D0+UH2/SH2)+4D0*VI*VJ*AI*AJ*EPSIJ*(1D0-UH2/SH2)) + ENDIF + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACNCF + ENDIF +C...W exchange + IF((MSTP(21).EQ.1.OR.MSTP(21).EQ.5).AND.AI*AJ.LT.0D0) THEN + FACCCF=FACWWF*VINT(180+I)*VINT(180+J) + IF(EPSIJ.LT.0D0) FACCCF=FACCCF*UH2/SH2 + IF(IA.GT.10.AND.MOD(IA,2).EQ.0) FACCCF=2D0*FACCCF + IF(JA.GT.10.AND.MOD(JA,2).EQ.0) FACCCF=2D0*FACCCF + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=2 + SIGH(NCHN)=FACCCF + ENDIF + 260 CONTINUE + 270 CONTINUE + ENDIF + + ELSEIF(ISUB.LE.20) THEN + IF(ISUB.EQ.11) THEN +C...f + f' -> f + f' (g exchange) + FACQQ1=COMFAC*AS**2*4D0/9D0*(SH2+UH2)/TH2 + FACQQB=COMFAC*AS**2*4D0/9D0*((SH2+UH2)/TH2*FACA- + & MSTP(34)*2D0/3D0*UH2/(SH*TH)) + FACQQ2=COMFAC*AS**2*4D0/9D0*(SH2+TH2)/UH2 + FACQQI=-COMFAC*AS**2*4D0/9D0*MSTP(34)*2D0/3D0*SH2/(TH*UH) + RATQQI=(FACQQ1+FACQQ2+FACQQI)/(FACQQ1+FACQQ2) + IF(MSTP(5).GE.1) THEN +C...Modifications from contact interactions (compositeness) + FACCI1=FACQQ1+COMFAC*(SH2/PARU(155)**4) + FACCIB=FACQQB+COMFAC*(8D0/9D0)*(AS*PARU(156)/PARU(155)**2)* + & (UH2/TH+UH2/SH)+COMFAC*(5D0/3D0)*(UH2/PARU(155)**4) + FACCI2=FACQQ2+COMFAC*(8D0/9D0)*(AS*PARU(156)/PARU(155)**2)* + & (SH2/TH+SH2/UH)+COMFAC*(5D0/3D0)*(SH2/PARU(155)**4) + FACCI3=FACQQ1+COMFAC*(UH2/PARU(155)**4) + RATCII=(FACCI1*FACCI2+FACQQI)/(FACCI1+FACCI2) + ENDIF + DO 290 I=MMIN1,MMAX1 + IA=IABS(I) + IF(I.EQ.0.OR.IA.GT.MSTP(58).OR.KFAC(1,I).EQ.0) GOTO 290 + DO 280 J=MMIN2,MMAX2 + JA=IABS(J) + IF(J.EQ.0.OR.JA.GT.MSTP(58).OR.KFAC(2,J).EQ.0) GOTO 280 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + IF(MSTP(5).LE.0.OR.(MSTP(5).EQ.1.AND.(IA.GE.3.OR. + & JA.GE.3))) THEN + SIGH(NCHN)=FACQQ1 + IF(I.EQ.-J) SIGH(NCHN)=FACQQB + ELSE + SIGH(NCHN)=FACCI1 + IF(I*J.LT.0) SIGH(NCHN)=FACCI3 + IF(I.EQ.-J) SIGH(NCHN)=FACCIB + ENDIF + IF(I.EQ.J) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=2 + IF(MSTP(5).LE.0.OR.(MSTP(5).EQ.1.AND.IA.GE.3)) THEN + SIGH(NCHN-1)=0.5D0*FACQQ1*RATQQI + SIGH(NCHN)=0.5D0*FACQQ2*RATQQI + ELSE + SIGH(NCHN-1)=0.5D0*FACCI1*RATCII + SIGH(NCHN)=0.5D0*FACCI2*RATCII + ENDIF + ENDIF + 280 CONTINUE + 290 CONTINUE + + ELSEIF(ISUB.EQ.12) THEN +C...f + fbar -> f' + fbar' (q + qbar -> q' + qbar' only) + CALL PYWIDT(21,SH,WDTP,WDTE) + FACQQB=COMFAC*AS**2*4D0/9D0*(TH2+UH2)/SH2* + & (WDTE(0,1)+WDTE(0,2)+WDTE(0,4)) + IF(MSTP(5).EQ.1) THEN +C...Modifications from contact interactions (compositeness) + FACCIB=FACQQB + DO 300 I=1,2 + FACCIB=FACCIB+COMFAC*(UH2/PARU(155)**4)*(WDTE(I,1)+ + & WDTE(I,2)+WDTE(I,4)) + 300 CONTINUE + ELSEIF(MSTP(5).GE.2) THEN + FACCIB=FACQQB+COMFAC*(UH2/PARU(155)**4)* + & (WDTE(0,1)+WDTE(0,2)+WDTE(0,4)) + ENDIF + DO 310 I=MMINA,MMAXA + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58).OR. + & KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 310 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + IF(MSTP(5).LE.0.OR.(MSTP(5).EQ.1.AND.IABS(I).GE.3)) THEN + SIGH(NCHN)=FACQQB + ELSE + SIGH(NCHN)=FACCIB + ENDIF + 310 CONTINUE + + ELSEIF(ISUB.EQ.13) THEN +C...f + fbar -> g + g (q + qbar -> g + g only) + FACGG1=COMFAC*AS**2*32D0/27D0*(UH/TH-(2D0+MSTP(34)*1D0/4D0)* + & UH2/SH2) + FACGG2=COMFAC*AS**2*32D0/27D0*(TH/UH-(2D0+MSTP(34)*1D0/4D0)* + & TH2/SH2) + DO 320 I=MMINA,MMAXA + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58).OR. + & KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 320 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=0.5D0*FACGG1 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=2 + SIGH(NCHN)=0.5D0*FACGG2 + 320 CONTINUE + + ELSEIF(ISUB.EQ.14) THEN +C...f + fbar -> g + gamma (q + qbar -> g + gamma only) + FACGG=COMFAC*AS*AEM*8D0/9D0*(TH2+UH2)/(TH*UH) + DO 330 I=MMINA,MMAXA + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58).OR. + & KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 330 + EI=KCHG(IABS(I),1)/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACGG*EI**2 + 330 CONTINUE + + ELSEIF(ISUB.EQ.15) THEN +C...f + fbar -> g + (gamma*/Z0) (q + qbar -> g + (gamma*/Z0) only) + FACZG=COMFAC*AS*AEM*(8D0/9D0)*(TH2+UH2+2D0*SQM4*SH)/(TH*UH) +C...gamma, gamma/Z interference and Z couplings to final fermion pairs + HFGG=0D0 + HFGZ=0D0 + HFZZ=0D0 + RADC4=1D0+PYALPS(SQM4)/PARU(1) + DO 340 I=1,MIN(16,MDCY(23,3)) + IDC=I+MDCY(23,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 340 + IMDM=0 + IF(MDME(IDC,1).EQ.1.OR.MDME(IDC,1).EQ.2.OR.MDME(IDC,1).EQ.4) + & IMDM=1 + IF(I.LE.8) THEN + EF=KCHG(I,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + ELSEIF(I.LE.16) THEN + EF=KCHG(I+2,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + ENDIF + RM1=PMAS(IABS(KFDP(IDC,1)),1)**2/SQM4 + IF(4D0*RM1.LT.1D0) THEN + FCOF=1D0 + IF(I.LE.8) FCOF=3D0*RADC4 + BE34=SQRT(MAX(0D0,1D0-4D0*RM1)) + IF(IMDM.EQ.1) THEN + HFGG=HFGG+FCOF*EF**2*(1D0+2D0*RM1)*BE34 + HFGZ=HFGZ+FCOF*EF*VF*(1D0+2D0*RM1)*BE34 + HFZZ=HFZZ+FCOF*(VF**2*(1D0+2D0*RM1)+ + & AF**2*(1D0-4D0*RM1))*BE34 + ENDIF + ENDIF + 340 CONTINUE +C...Propagators: as simulated in PYOFSH and as desired + HBW4=(1D0/PARU(1))*GMMZ/((SQM4-SQMZ)**2+GMMZ**2) + MINT15=MINT(15) + MINT(15)=1 + MINT(61)=1 + CALL PYWIDT(23,SQM4,WDTP,WDTE) + MINT(15)=MINT15 + HFAEM=(PARU(108)/PARU(2))*(2D0/3D0) + HFGG=HFGG*HFAEM*VINT(111)/SQM4 + HFGZ=HFGZ*HFAEM*VINT(112)/SQM4 + HFZZ=HFZZ*HFAEM*VINT(114)/SQM4 +C...Loop over flavours; consider full gamma/Z structure + DO 350 I=MMINA,MMAXA + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58).OR. + & KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 350 + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI) + VI=AI-4D0*EI*XWV + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACZG*(EI**2*HFGG+EI*VI*HFGZ+ + & (VI**2+AI**2)*HFZZ)/HBW4 + 350 CONTINUE + + ELSEIF(ISUB.EQ.16) THEN +C...f + fbar' -> g + W+/- (q + qbar' -> g + W+/- only) + FACWG=COMFAC*AS*AEM/XW*2D0/9D0*(TH2+UH2+2D0*SQM4*SH)/(TH*UH) +C...Propagators: as simulated in PYOFSH and as desired + HBW4=GMMW/((SQM4-SQMW)**2+GMMW**2) + CALL PYWIDT(24,SQM4,WDTP,WDTE) + GMMWC=SQRT(SQM4)*WDTP(0) + HBW4C=GMMWC/((SQM4-SQMW)**2+GMMWC**2) + FACWG=FACWG*HBW4C/HBW4 + DO 370 I=MMIN1,MMAX1 + IA=IABS(I) + IF(I.EQ.0.OR.IA.GT.10.OR.KFAC(1,I).EQ.0) GOTO 370 + DO 360 J=MMIN2,MMAX2 + JA=IABS(J) + IF(J.EQ.0.OR.JA.GT.10.OR.KFAC(2,J).EQ.0) GOTO 360 + IF(I*J.GT.0.OR.MOD(IA+JA,2).EQ.0) GOTO 360 + KCHW=(KCHG(IA,1)*ISIGN(1,I)+KCHG(JA,1)*ISIGN(1,J))/3 + WIDSC=(WDTE(0,1)+WDTE(0,(5-KCHW)/2)+WDTE(0,4))/WDTP(0) + FCKM=VCKM((IA+1)/2,(JA+1)/2) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACWG*FCKM*WIDSC + 360 CONTINUE + 370 CONTINUE + + ELSEIF(ISUB.EQ.17) THEN +C...f + fbar -> g + h0 (q + qbar -> g + h0 only) + + ELSEIF(ISUB.EQ.18) THEN +C...f + fbar -> gamma + gamma + FACGG=COMFAC*AEM**2*2D0*(TH2+UH2)/(TH*UH) + DO 380 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 380 + EI=KCHG(IABS(I),1)/3D0 + FCOI=1D0 + IF(IABS(I).LE.10) FCOI=FACA/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=0.5D0*FACGG*FCOI*EI**4 + 380 CONTINUE + + ELSEIF(ISUB.EQ.19) THEN +C...f + fbar -> gamma + (gamma*/Z0) + FACGZ=COMFAC*2D0*AEM**2*(TH2+UH2+2D0*SQM4*SH)/(TH*UH) +C...gamma, gamma/Z interference and Z couplings to final fermion pairs + HFGG=0D0 + HFGZ=0D0 + HFZZ=0D0 + RADC4=1D0+PYALPS(SQM4)/PARU(1) + DO 390 I=1,MIN(16,MDCY(23,3)) + IDC=I+MDCY(23,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 390 + IMDM=0 + IF(MDME(IDC,1).EQ.1.OR.MDME(IDC,1).EQ.2.OR.MDME(IDC,1).EQ.4) + & IMDM=1 + IF(I.LE.8) THEN + EF=KCHG(I,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + ELSEIF(I.LE.16) THEN + EF=KCHG(I+2,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + ENDIF + RM1=PMAS(IABS(KFDP(IDC,1)),1)**2/SQM4 + IF(4D0*RM1.LT.1D0) THEN + FCOF=1D0 + IF(I.LE.8) FCOF=3D0*RADC4 + BE34=SQRT(MAX(0D0,1D0-4D0*RM1)) + IF(IMDM.EQ.1) THEN + HFGG=HFGG+FCOF*EF**2*(1D0+2D0*RM1)*BE34 + HFGZ=HFGZ+FCOF*EF*VF*(1D0+2D0*RM1)*BE34 + HFZZ=HFZZ+FCOF*(VF**2*(1D0+2D0*RM1)+ + & AF**2*(1D0-4D0*RM1))*BE34 + ENDIF + ENDIF + 390 CONTINUE +C...Propagators: as simulated in PYOFSH and as desired + HBW4=(1D0/PARU(1))*GMMZ/((SQM4-SQMZ)**2+GMMZ**2) + MINT15=MINT(15) + MINT(15)=1 + MINT(61)=1 + CALL PYWIDT(23,SQM4,WDTP,WDTE) + MINT(15)=MINT15 + HFAEM=(PARU(108)/PARU(2))*(2D0/3D0) + HFGG=HFGG*HFAEM*VINT(111)/SQM4 + HFGZ=HFGZ*HFAEM*VINT(112)/SQM4 + HFZZ=HFZZ*HFAEM*VINT(114)/SQM4 +C...Loop over flavours; consider full gamma/Z structure + DO 400 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 400 + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI) + VI=AI-4D0*EI*XWV + FCOI=1D0 + IF(IABS(I).LE.10) FCOI=FACA/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACGZ*FCOI*EI**2*(EI**2*HFGG+EI*VI*HFGZ+ + & (VI**2+AI**2)*HFZZ)/HBW4 + 400 CONTINUE + + ELSEIF(ISUB.EQ.20) THEN +C...f + fbar' -> gamma + W+/- + FACGW=COMFAC*0.5D0*AEM**2/XW +C...Propagators: as simulated in PYOFSH and as desired + HBW4=GMMW/((SQM4-SQMW)**2+GMMW**2) + CALL PYWIDT(24,SQM4,WDTP,WDTE) + GMMWC=SQRT(SQM4)*WDTP(0) + HBW4C=GMMWC/((SQM4-SQMW)**2+GMMWC**2) + FACGW=FACGW*HBW4C/HBW4 +C...Anomalous couplings + TERM1=(TH2+UH2+2D0*SQM4*SH)/(TH*UH) + TERM2=0D0 + TERM3=0D0 + IF(MSTP(5).GE.1) THEN + TERM2=PARU(153)*(TH-UH)/(TH+UH) + TERM3=0.5D0*PARU(153)**2*(TH*UH+(TH2+UH2)*SH/ + & (4D0*SQMW))/(TH+UH)**2 + ENDIF + DO 420 I=MMIN1,MMAX1 + IA=IABS(I) + IF(I.EQ.0.OR.IA.GT.20.OR.KFAC(1,I).EQ.0) GOTO 420 + DO 410 J=MMIN2,MMAX2 + JA=IABS(J) + IF(J.EQ.0.OR.JA.GT.20.OR.KFAC(2,J).EQ.0) GOTO 410 + IF(I*J.GT.0.OR.MOD(IA+JA,2).EQ.0) GOTO 410 + IF((IA.LE.10.AND.JA.GT.10).OR.(IA.GT.10.AND.JA.LE.10)) + & GOTO 410 + KCHW=(KCHG(IA,1)*ISIGN(1,I)+KCHG(JA,1)*ISIGN(1,J))/3 + WIDSC=(WDTE(0,1)+WDTE(0,(5-KCHW)/2)+WDTE(0,4))/WDTP(0) + IF(IA.LE.10) THEN + FACWR=UH/(TH+UH)-1D0/3D0 + FCKM=VCKM((IA+1)/2,(JA+1)/2) + FCOI=FACA/3D0 + ELSE + FACWR=-TH/(TH+UH) + FCKM=1D0 + FCOI=1D0 + ENDIF + FACWK=TERM1*FACWR**2+TERM2*FACWR+TERM3 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACGW*FACWK*FCOI*FCKM*WIDSC + 410 CONTINUE + 420 CONTINUE + ENDIF + + ELSEIF(ISUB.LE.30) THEN + IF(ISUB.EQ.21) THEN +C...f + fbar -> gamma + h0 + + ELSEIF(ISUB.EQ.22) THEN +C...f + fbar -> (gamma*/Z0) + (gamma*/Z0) +C...Kinematics dependence + FACZZ=COMFAC*AEM**2*((TH2+UH2+2D0*(SQM3+SQM4)*SH)/(TH*UH)- + & SQM3*SQM4*(1D0/TH2+1D0/UH2)) +C...gamma, gamma/Z interference and Z couplings to final fermion pairs + DO 440 I=1,6 + DO 430 J=1,3 + HGZ(I,J)=0D0 + 430 CONTINUE + 440 CONTINUE + RADC3=1D0+PYALPS(SQM3)/PARU(1) + RADC4=1D0+PYALPS(SQM4)/PARU(1) + DO 450 I=1,MIN(16,MDCY(23,3)) + IDC=I+MDCY(23,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 450 + IMDM=0 + IF(MDME(IDC,1).EQ.1.OR.MDME(IDC,1).EQ.2) IMDM=1 + IF(MDME(IDC,1).EQ.4.OR.MDME(IDC,1).EQ.5) IMDM=MDME(IDC,1)-2 + IF(I.LE.8) THEN + EF=KCHG(I,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + ELSEIF(I.LE.16) THEN + EF=KCHG(I+2,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + ENDIF + RM1=PMAS(IABS(KFDP(IDC,1)),1)**2/SQM3 + IF(4D0*RM1.LT.1D0) THEN + FCOF=1D0 + IF(I.LE.8) FCOF=3D0*RADC3 + BE34=SQRT(MAX(0D0,1D0-4D0*RM1)) + IF(IMDM.GE.1) THEN + HGZ(1,IMDM)=HGZ(1,IMDM)+FCOF*EF**2*(1D0+2D0*RM1)*BE34 + HGZ(2,IMDM)=HGZ(2,IMDM)+FCOF*EF*VF*(1D0+2D0*RM1)*BE34 + HGZ(3,IMDM)=HGZ(3,IMDM)+FCOF*(VF**2*(1D0+2D0*RM1)+ + & AF**2*(1D0-4D0*RM1))*BE34 + ENDIF + ENDIF + RM1=PMAS(IABS(KFDP(IDC,1)),1)**2/SQM4 + IF(4D0*RM1.LT.1D0) THEN + FCOF=1D0 + IF(I.LE.8) FCOF=3D0*RADC4 + BE34=SQRT(MAX(0D0,1D0-4D0*RM1)) + IF(IMDM.GE.1) THEN + HGZ(4,IMDM)=HGZ(4,IMDM)+FCOF*EF**2*(1D0+2D0*RM1)*BE34 + HGZ(5,IMDM)=HGZ(5,IMDM)+FCOF*EF*VF*(1D0+2D0*RM1)*BE34 + HGZ(6,IMDM)=HGZ(6,IMDM)+FCOF*(VF**2*(1D0+2D0*RM1)+ + & AF**2*(1D0-4D0*RM1))*BE34 + ENDIF + ENDIF + 450 CONTINUE +C...Propagators: as simulated in PYOFSH and as desired + HBW3=(1D0/PARU(1))*GMMZ/((SQM3-SQMZ)**2+GMMZ**2) + HBW4=(1D0/PARU(1))*GMMZ/((SQM4-SQMZ)**2+GMMZ**2) + MINT15=MINT(15) + MINT(15)=1 + MINT(61)=1 + CALL PYWIDT(23,SQM3,WDTP,WDTE) + MINT(15)=MINT15 + HFAEM=(PARU(108)/PARU(2))*(2D0/3D0) + DO 460 J=1,3 + HGZ(1,J)=HGZ(1,J)*HFAEM*VINT(111)/SQM3 + HGZ(2,J)=HGZ(2,J)*HFAEM*VINT(112)/SQM3 + HGZ(3,J)=HGZ(3,J)*HFAEM*VINT(114)/SQM3 + 460 CONTINUE + MINT15=MINT(15) + MINT(15)=1 + MINT(61)=1 + CALL PYWIDT(23,SQM4,WDTP,WDTE) + MINT(15)=MINT15 + HFAEM=(PARU(108)/PARU(2))*(2D0/3D0) + DO 470 J=1,3 + HGZ(4,J)=HGZ(4,J)*HFAEM*VINT(111)/SQM4 + HGZ(5,J)=HGZ(5,J)*HFAEM*VINT(112)/SQM4 + HGZ(6,J)=HGZ(6,J)*HFAEM*VINT(114)/SQM4 + 470 CONTINUE +C...Loop over flavours; separate left- and right-handed couplings + DO 490 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 490 + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI) + VI=AI-4D0*EI*XWV + VALI=VI-AI + VARI=VI+AI + FCOI=1D0 + IF(IABS(I).LE.10) FCOI=FACA/3D0 + DO 480 J=1,3 + HL3(J)=EI**2*HGZ(1,J)+EI*VALI*HGZ(2,J)+VALI**2*HGZ(3,J) + HR3(J)=EI**2*HGZ(1,J)+EI*VARI*HGZ(2,J)+VARI**2*HGZ(3,J) + HL4(J)=EI**2*HGZ(4,J)+EI*VALI*HGZ(5,J)+VALI**2*HGZ(6,J) + HR4(J)=EI**2*HGZ(4,J)+EI*VARI*HGZ(5,J)+VARI**2*HGZ(6,J) + 480 CONTINUE + FACLR=HL3(1)*HL4(1)+HL3(1)*(HL4(2)+HL4(3))+ + & HL4(1)*(HL3(2)+HL3(3))+HL3(2)*HL4(3)+HL4(2)*HL3(3)+ + & HR3(1)*HR4(1)+HR3(1)*(HR4(2)+HR4(3))+ + & HR4(1)*(HR3(2)+HR3(3))+HR3(2)*HR4(3)+HR4(2)*HR3(3) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=0.5D0*FACZZ*FCOI*FACLR/(HBW3*HBW4) + 490 CONTINUE + + ELSEIF(ISUB.EQ.23) THEN +C...f + fbar' -> Z0 + W+/- (Z0 only, i.e. no gamma* admixture.) + FACZW=COMFAC*0.5D0*(AEM/XW)**2 + FACZW=FACZW*WIDS(23,2) + THUH=MAX(TH*UH-SQM3*SQM4,SH*CKIN(3)**2) + FACBW=1D0/((SH-SQMW)**2+GMMW**2) + DO 510 I=MMIN1,MMAX1 + IA=IABS(I) + IF(I.EQ.0.OR.IA.GT.20.OR.KFAC(1,I).EQ.0) GOTO 510 + DO 500 J=MMIN2,MMAX2 + JA=IABS(J) + IF(J.EQ.0.OR.JA.GT.20.OR.KFAC(2,J).EQ.0) GOTO 500 + IF(I*J.GT.0.OR.MOD(IA+JA,2).EQ.0) GOTO 500 + IF((IA.LE.10.AND.JA.GT.10).OR.(IA.GT.10.AND.JA.LE.10)) + & GOTO 500 + KCHW=(KCHG(IA,1)*ISIGN(1,I)+KCHG(JA,1)*ISIGN(1,J))/3 + EI=KCHG(IA,1)/3D0 + AI=SIGN(1D0,EI+0.1D0) + VI=AI-4D0*EI*XWV + EJ=KCHG(JA,1)/3D0 + AJ=SIGN(1D0,EJ+0.1D0) + VJ=AJ-4D0*EJ*XWV + IF(VI+AI.GT.0) THEN + VISAV=VI + AISAV=AI + VI=VJ + AI=AJ + VJ=VISAV + AJ=AISAV + ENDIF + FCKM=1D0 + IF(IA.LE.10) FCKM=VCKM((IA+1)/2,(JA+1)/2) + FCOI=1D0 + IF(IA.LE.10) FCOI=FACA/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACZW*FCOI*FCKM*(FACBW*((9D0-8D0*XW)/4D0*THUH+ + & (8D0*XW-6D0)/4D0*SH*(SQM3+SQM4))+(THUH-SH*(SQM3+SQM4))* + & (SH-SQMW)*FACBW*0.5D0*((VJ+AJ)/TH-(VI+AI)/UH)+ + & THUH/(16D0*XW1)*((VJ+AJ)**2/TH2+(VI+AI)**2/UH2)+ + & SH*(SQM3+SQM4)/(8D0*XW1)*(VI+AI)*(VJ+AJ)/(TH*UH))* + & WIDS(24,(5-KCHW)/2) +C***Protect against slightly negative cross sections. (Reason yet to be +C***sorted out. One possibility: addition of width to the W propagator.) + SIGH(NCHN)=MAX(0D0,SIGH(NCHN)) + 500 CONTINUE + 510 CONTINUE + + ELSEIF(ISUB.EQ.24) THEN +C...f + fbar -> Z0 + h0 (or H0, or A0) + THUH=MAX(TH*UH-SQM3*SQM4,SH*CKIN(3)**2) + FACHZ=COMFAC*8D0*(AEM*XWC)**2* + & (THUH+2D0*SH*SQM3)/((SH-SQMZ)**2+GMMZ**2) + FACHZ=FACHZ*WIDS(23,2)*WIDS(KFHIGG,2) + IF(MSTP(4).GE.1.OR.IHIGG.GE.2) FACHZ=FACHZ* + & PARU(154+10*IHIGG)**2 + DO 520 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 520 + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI) + VI=AI-4D0*EI*XWV + FCOI=1D0 + IF(IABS(I).LE.10) FCOI=FACA/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACHZ*FCOI*(VI**2+AI**2) + 520 CONTINUE + + ELSEIF(ISUB.EQ.25) THEN +C...f + fbar -> W+ + W- +C...Propagators: Z0, W+- as simulated in PYOFSH and as desired + GMMZC=GMMZ + HBWZC=SH**2/((SH-SQMZ)**2+GMMZC**2) + HBW3=GMMW/((SQM3-SQMW)**2+GMMW**2) + CALL PYWIDT(24,SQM3,WDTP,WDTE) + GMMW3=SQRT(SQM3)*WDTP(0) + HBW3C=GMMW3/((SQM3-SQMW)**2+GMMW3**2) + HBW4=GMMW/((SQM4-SQMW)**2+GMMW**2) + CALL PYWIDT(24,SQM4,WDTP,WDTE) + GMMW4=SQRT(SQM4)*WDTP(0) + HBW4C=GMMW4/((SQM4-SQMW)**2+GMMW4**2) +C...Kinematical functions + THUH=MAX(TH*UH-SQM3*SQM4,SH*CKIN(3)**2) + THUH34=(2D0*SH*(SQM3+SQM4)+THUH)/(SQM3*SQM4) + GS=(((SH-SQM3-SQM4)**2-4D0*SQM3*SQM4)*THUH34+12D0*THUH)/SH2 + GT=THUH34+4D0*THUH/TH2 + GST=((SH-SQM3-SQM4)*THUH34+4D0*(SH*(SQM3+SQM4)-THUH)/TH)/SH + GU=THUH34+4D0*THUH/UH2 + GSU=((SH-SQM3-SQM4)*THUH34+4D0*(SH*(SQM3+SQM4)-THUH)/UH)/SH +C...Common factors and couplings + FACWW=COMFAC*(HBW3C/HBW3)*(HBW4C/HBW4) + FACWW=FACWW*WIDS(24,1) + CGG=AEM**2/2D0 + CGZ=AEM**2/(4D0*XW)*HBWZC*(1D0-SQMZ/SH) + CZZ=AEM**2/(32D0*XW**2)*HBWZC + CNG=AEM**2/(4D0*XW) + CNZ=AEM**2/(16D0*XW**2)*HBWZC*(1D0-SQMZ/SH) + CNN=AEM**2/(16D0*XW**2) +C...Coulomb factor for W+W- pair + IF(MSTP(40).GE.1.AND.MSTP(40).LE.3) THEN + COULE=(SH-4D0*SQMW)/(4D0*PMAS(24,1)) + COULP=MAX(1D-10,0.5D0*BE34*SQRT(SH)) + IF(COULE.LT.100D0*PMAS(24,2)) THEN + COULP1=SQRT(0.5D0*PMAS(24,1)*(SQRT(COULE**2+ + & PMAS(24,2)**2)-COULE)) + ELSE + COULP1=SQRT(0.5D0*PMAS(24,1)*(0.5D0*PMAS(24,2)**2/COULE)) + ENDIF + IF(COULE.GT.-100D0*PMAS(24,2)) THEN + COULP2=SQRT(0.5D0*PMAS(24,1)*(SQRT(COULE**2+ + & PMAS(24,2)**2)+COULE)) + ELSE + COULP2=SQRT(0.5D0*PMAS(24,1)*(0.5D0*PMAS(24,2)**2/ + & ABS(COULE))) + ENDIF + IF(MSTP(40).EQ.1) THEN + COULDC=PARU(1)-2D0*ATAN((COULP1**2+COULP2**2-COULP**2)/ + & MAX(1D-10,2D0*COULP*COULP1)) + FACCOU=1D0+0.5D0*PARU(101)*COULDC/MAX(1D-5,BE34) + ELSEIF(MSTP(40).EQ.2) THEN + COULCK=CMPLX(SNGL(COULP1),SNGL(COULP2)) + COULCP=CMPLX(0.,SNGL(COULP)) + COULCD=(COULCK+COULCP)/(COULCK-COULCP) + COULCR=1.+SNGL(PARU(101)*SQRT(SH))/(4.*COULCP)*LOG(COULCD) + COULCS=CMPLX(0.,0.) + NSTP=100 + DO 530 ISTP=1,NSTP + COULXX=(ISTP-0.5)/NSTP + COULCS=COULCS+(1./COULXX)*LOG((1.+COULXX*COULCD)/ + & (1.+COULXX/COULCD)) + 530 CONTINUE + COULCR=COULCR+SNGL(PARU(101)**2*SH)/(16.*COULCP*COULCK)* + & (COULCS/NSTP) + FACCOU=ABS(COULCR)**2 + ELSEIF(MSTP(40).EQ.3) THEN + COULDC=PARU(1)-2D0*(1D0-BE34)**2*ATAN((COULP1**2+ + & COULP2**2-COULP**2)/MAX(1D-10,2D0*COULP*COULP1)) + FACCOU=1D0+0.5D0*PARU(101)*COULDC/MAX(1D-5,BE34) + ENDIF + ELSEIF(MSTP(40).EQ.4) THEN + FACCOU=1D0+0.5D0*PARU(101)*PARU(1)/MAX(1D-5,BE34) + ELSE + FACCOU=1D0 + ENDIF + VINT(95)=FACCOU + FACWW=FACWW*FACCOU +C...Loop over allowed flavours + DO 540 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 540 + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI+0.1D0) + VI=AI-4D0*EI*XWV + FCOI=1D0 + IF(IABS(I).LE.10) FCOI=FACA/3D0 + IF(AI.LT.0D0) THEN + DSIGWW=(CGG*EI**2+CGZ*VI*EI+CZZ*(VI**2+AI**2))*GS+ + & (CNG*EI+CNZ*(VI+AI))*GST+CNN*GT + ELSE + DSIGWW=(CGG*EI**2+CGZ*VI*EI+CZZ*(VI**2+AI**2))*GS- + & (CNG*EI+CNZ*(VI+AI))*GSU+CNN*GU + ENDIF + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACWW*FCOI*DSIGWW + 540 CONTINUE + + ELSEIF(ISUB.EQ.26) THEN +C...f + fbar' -> W+/- + h0 (or H0, or A0) + THUH=MAX(TH*UH-SQM3*SQM4,SH*CKIN(3)**2) + FACHW=COMFAC*0.125D0*(AEM/XW)**2*(THUH+2D0*SH*SQM3)/ + & ((SH-SQMW)**2+GMMW**2) + FACHW=FACHW*WIDS(KFHIGG,2) + IF(MSTP(4).GE.1.OR.IHIGG.GE.2) FACHW=FACHW* + & PARU(155+10*IHIGG)**2 + DO 560 I=MMIN1,MMAX1 + IA=IABS(I) + IF(I.EQ.0.OR.IA.GT.20.OR.KFAC(1,I).EQ.0) GOTO 560 + DO 550 J=MMIN2,MMAX2 + JA=IABS(J) + IF(J.EQ.0.OR.JA.GT.20.OR.KFAC(1,J).EQ.0) GOTO 550 + IF(I*J.GT.0.OR.MOD(IA+JA,2).EQ.0) GOTO 550 + IF((IA.LE.10.AND.JA.GT.10).OR.(IA.GT.10.AND.JA.LE.10)) + & GOTO 550 + KCHW=(KCHG(IA,1)*ISIGN(1,I)+KCHG(JA,1)*ISIGN(1,J))/3 + FCKM=1D0 + IF(IA.LE.10) FCKM=VCKM((IA+1)/2,(JA+1)/2) + FCOI=1D0 + IF(IA.LE.10) FCOI=FACA/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACHW*FCOI*FCKM*WIDS(24,(5-KCHW)/2) + 550 CONTINUE + 560 CONTINUE + + ELSEIF(ISUB.EQ.27) THEN +C...f + fbar -> h0 + h0 + + ELSEIF(ISUB.EQ.28) THEN +C...f + g -> f + g (q + g -> q + g only) + FACQG1=COMFAC*AS**2*4D0/9D0*((2D0+MSTP(34)*1D0/4D0)*UH2/TH2- + & UH/SH)*FACA + FACQG2=COMFAC*AS**2*4D0/9D0*((2D0+MSTP(34)*1D0/4D0)*SH2/TH2- + & SH/UH) + DO 580 I=MMINA,MMAXA + IF(I.EQ.0.OR.IABS(I).GT.10) GOTO 580 + DO 570 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,21).EQ.0) GOTO 570 + IF(ISDE.EQ.2.AND.KFAC(1,21)*KFAC(2,I).EQ.0) GOTO 570 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQG1 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=21 + ISIG(NCHN,3)=2 + SIGH(NCHN)=FACQG2 + 570 CONTINUE + 580 CONTINUE + + ELSEIF(ISUB.EQ.29) THEN +C...f + g -> f + gamma (q + g -> q + gamma only) + FGQ=COMFAC*FACA*AS*AEM*1D0/3D0*(SH2+UH2)/(-SH*UH) + DO 600 I=MMINA,MMAXA + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58)) GOTO 600 + EI=KCHG(IABS(I),1)/3D0 + FACGQ=FGQ*EI**2 + DO 590 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,21).EQ.0) GOTO 590 + IF(ISDE.EQ.2.AND.KFAC(1,21)*KFAC(2,I).EQ.0) GOTO 590 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACGQ + 590 CONTINUE + 600 CONTINUE + + ELSEIF(ISUB.EQ.30) THEN +C...f + g -> f + (gamma*/Z0) (q + g -> q + (gamma*/Z0) only) + FZQ=COMFAC*FACA*AS*AEM*(1D0/3D0)*(SH2+UH2+2D0*SQM4*TH)/ + & (-SH*UH) +C...gamma, gamma/Z interference and Z couplings to final fermion pairs + HFGG=0D0 + HFGZ=0D0 + HFZZ=0D0 + RADC4=1D0+PYALPS(SQM4)/PARU(1) + DO 610 I=1,MIN(16,MDCY(23,3)) + IDC=I+MDCY(23,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 610 + IMDM=0 + IF(MDME(IDC,1).EQ.1.OR.MDME(IDC,1).EQ.2.OR.MDME(IDC,1).EQ.4) + & IMDM=1 + IF(I.LE.8) THEN + EF=KCHG(I,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + ELSEIF(I.LE.16) THEN + EF=KCHG(I+2,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + ENDIF + RM1=PMAS(IABS(KFDP(IDC,1)),1)**2/SQM4 + IF(4D0*RM1.LT.1D0) THEN + FCOF=1D0 + IF(I.LE.8) FCOF=3D0*RADC4 + BE34=SQRT(MAX(0D0,1D0-4D0*RM1)) + IF(IMDM.EQ.1) THEN + HFGG=HFGG+FCOF*EF**2*(1D0+2D0*RM1)*BE34 + HFGZ=HFGZ+FCOF*EF*VF*(1D0+2D0*RM1)*BE34 + HFZZ=HFZZ+FCOF*(VF**2*(1D0+2D0*RM1)+ + & AF**2*(1D0-4D0*RM1))*BE34 + ENDIF + ENDIF + 610 CONTINUE +C...Propagators: as simulated in PYOFSH and as desired + HBW4=(1D0/PARU(1))*GMMZ/((SQM4-SQMZ)**2+GMMZ**2) + MINT15=MINT(15) + MINT(15)=1 + MINT(61)=1 + CALL PYWIDT(23,SQM4,WDTP,WDTE) + MINT(15)=MINT15 + HFAEM=(PARU(108)/PARU(2))*(2D0/3D0) + HFGG=HFGG*HFAEM*VINT(111)/SQM4 + HFGZ=HFGZ*HFAEM*VINT(112)/SQM4 + HFZZ=HFZZ*HFAEM*VINT(114)/SQM4 +C...Loop over flavours; consider full gamma/Z structure + DO 630 I=MMINA,MMAXA + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58)) GOTO 630 + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI) + VI=AI-4D0*EI*XWV + FACZQ=FZQ*(EI**2*HFGG+EI*VI*HFGZ+ + & (VI**2+AI**2)*HFZZ)/HBW4 + DO 620 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,21).EQ.0) GOTO 620 + IF(ISDE.EQ.2.AND.KFAC(1,21)*KFAC(2,I).EQ.0) GOTO 620 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACZQ + 620 CONTINUE + 630 CONTINUE + ENDIF + + ELSEIF(ISUB.LE.40) THEN + IF(ISUB.EQ.31) THEN +C...f + g -> f' + W+/- (q + g -> q' + W+/- only) + FACWQ=COMFAC*FACA*AS*AEM/XW*1D0/12D0* + & (SH2+UH2+2D0*SQM4*TH)/(-SH*UH) +C...Propagators: as simulated in PYOFSH and as desired + HBW4=GMMW/((SQM4-SQMW)**2+GMMW**2) + CALL PYWIDT(24,SQM4,WDTP,WDTE) + GMMWC=SQRT(SQM4)*WDTP(0) + HBW4C=GMMWC/((SQM4-SQMW)**2+GMMWC**2) + FACWQ=FACWQ*HBW4C/HBW4 + DO 650 I=MMINA,MMAXA + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58)) GOTO 650 + IA=IABS(I) + KCHW=ISIGN(1,KCHG(IA,1)*ISIGN(1,I)) + WIDSC=(WDTE(0,1)+WDTE(0,(5-KCHW)/2)+WDTE(0,4))/WDTP(0) + DO 640 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,21).EQ.0) GOTO 640 + IF(ISDE.EQ.2.AND.KFAC(1,21)*KFAC(2,I).EQ.0) GOTO 640 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACWQ*VINT(180+I)*WIDSC + 640 CONTINUE + 650 CONTINUE + + ELSEIF(ISUB.EQ.32) THEN +C...f + g -> f + h0 (q + g -> q + h0 only) + SQMHC=PMAS(25,1)**2 + FHCQ=COMFAC*FACA*AS*AEM/XW*1D0/24D0 + DO 651 I=MMINA,MMAXA + IA=IABS(I) + IF(IA.NE.5) GOTO 651 + SQML=PMAS(IA,1)**2 + IF(IA.LE.10.AND.MSTP(37).EQ.1.AND.MSTP(2).GE.1) SQML=SQML* + & (LOG(MAX(4D0,PARP(37)**2*SQML/PARU(117)**2))/ + & LOG(MAX(4D0,SH/PARU(117)**2)))**(24D0/(33D0-2D0*MSTU(118))) + IUA=IA+MOD(IA,2) + SQMQ=SQML + FACHCQ=FHCQ*SQML/SQMW* + & (SH/(SQMQ-UH)+2D0*SQMQ*(SQMHC-UH)/(SQMQ-UH)**2+(SQMQ-UH)/SH+ + & 2D0*SQMQ/(SQMQ-UH)+2D0*(SQMHC-UH)/(SQMQ-UH)* + & (SQMHC-SQMQ-SH)/SH) + KCHHC=ISIGN(1,KCHG(IA,1)*ISIGN(1,I)) + DO 641 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,21).EQ.0) GOTO 641 + IF(ISDE.EQ.2.AND.KFAC(1,21)*KFAC(2,1).EQ.0) GOTO 641 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACHCQ*WIDS(37,(5-KCHHC)/2) + 641 CONTINUE + 651 CONTINUE + + ELSEIF(ISUB.EQ.33) THEN +C...f + gamma -> f + g (q + gamma -> q + g only) + FGQ=COMFAC*AS*AEM*8D0/3D0*(SH2+UH2)/(-SH*UH) + DO 670 I=MMINA,MMAXA + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58)) GOTO 670 + EI=KCHG(IABS(I),1)/3D0 + FACGQ=FGQ*EI**2 + DO 660 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,22).EQ.0) GOTO 660 + IF(ISDE.EQ.2.AND.KFAC(1,22)*KFAC(2,I).EQ.0) GOTO 660 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACGQ + 660 CONTINUE + 670 CONTINUE + + ELSEIF(ISUB.EQ.34) THEN +C...f + gamma -> f + gamma + FGQ=COMFAC*AEM**2*2D0*(SH2+UH2)/(-SH*UH) + DO 690 I=MMINA,MMAXA + IF(I.EQ.0) GOTO 690 + EI=KCHG(IABS(I),1)/3D0 + FACGQ=FGQ*EI**4 + DO 680 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,22).EQ.0) GOTO 680 + IF(ISDE.EQ.2.AND.KFAC(1,22)*KFAC(2,I).EQ.0) GOTO 680 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACGQ + 680 CONTINUE + 690 CONTINUE + + ELSEIF(ISUB.EQ.35) THEN +C...f + gamma -> f + (gamma*/Z0) + IF(MINT(15).EQ.22.AND.VINT(3).LT.0D0) THEN + FZQN=SH2+UH2+2D0*(SQM4-VINT(3)**2)*TH + FZQDTM=VINT(3)**2*SQM4-SH*(UH-VINT(4)**2) + ELSEIF(MINT(16).EQ.22.AND.VINT(4).LT.0D0) THEN + FZQN=SH2+UH2+2D0*(SQM4-VINT(4)**2)*TH + FZQDTM=VINT(4)**2*SQM4-SH*(UH-VINT(3)**2) + ELSE + FZQN=SH2+UH2+2D0*SQM4*TH + FZQDTM=-SH*UH + ENDIF + FZQN=COMFAC*2D0*AEM**2*MAX(0D0,FZQN) +C...gamma, gamma/Z interference and Z couplings to final fermion pairs + HFGG=0D0 + HFGZ=0D0 + HFZZ=0D0 + RADC4=1D0+PYALPS(SQM4)/PARU(1) + DO 700 I=1,MIN(16,MDCY(23,3)) + IDC=I+MDCY(23,2)-1 + IF(MDME(IDC,1).LT.0) GOTO 700 + IMDM=0 + IF(MDME(IDC,1).EQ.1.OR.MDME(IDC,1).EQ.2.OR.MDME(IDC,1).EQ.4) + & IMDM=1 + IF(I.LE.8) THEN + EF=KCHG(I,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + ELSEIF(I.LE.16) THEN + EF=KCHG(I+2,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + ENDIF + RM1=PMAS(IABS(KFDP(IDC,1)),1)**2/SQM4 + IF(4D0*RM1.LT.1D0) THEN + FCOF=1D0 + IF(I.LE.8) FCOF=3D0*RADC4 + BE34=SQRT(MAX(0D0,1D0-4D0*RM1)) + IF(IMDM.EQ.1) THEN + HFGG=HFGG+FCOF*EF**2*(1D0+2D0*RM1)*BE34 + HFGZ=HFGZ+FCOF*EF*VF*(1D0+2D0*RM1)*BE34 + HFZZ=HFZZ+FCOF*(VF**2*(1D0+2D0*RM1)+ + & AF**2*(1D0-4D0*RM1))*BE34 + ENDIF + ENDIF + 700 CONTINUE +C...Propagators: as simulated in PYOFSH and as desired + HBW4=(1D0/PARU(1))*GMMZ/((SQM4-SQMZ)**2+GMMZ**2) + MINT15=MINT(15) + MINT(15)=1 + MINT(61)=1 + CALL PYWIDT(23,SQM4,WDTP,WDTE) + MINT(15)=MINT15 + HFAEM=(PARU(108)/PARU(2))*(2D0/3D0) + HFGG=HFGG*HFAEM*VINT(111)/SQM4 + HFGZ=HFGZ*HFAEM*VINT(112)/SQM4 + HFZZ=HFZZ*HFAEM*VINT(114)/SQM4 +C...Loop over flavours; consider full gamma/Z structure + DO 720 I=MMINA,MMAXA + IF(I.EQ.0) GOTO 720 + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI) + VI=AI-4D0*EI*XWV + FACZQ=EI**2*(EI**2*HFGG+EI*VI*HFGZ+ + & (VI**2+AI**2)*HFZZ)/HBW4 + FZQD=MAX(PMAS(IABS(I),1)**2*SQM4,FZQDTM) + DO 710 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,22).EQ.0) GOTO 710 + IF(ISDE.EQ.2.AND.KFAC(1,22)*KFAC(2,I).EQ.0) GOTO 710 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACZQ*FZQN/FZQD + 710 CONTINUE + 720 CONTINUE + + ELSEIF(ISUB.EQ.36) THEN +C...f + gamma -> f' + W+/- + FWQ=COMFAC*AEM**2/(2D0*XW)* + & (SH2+UH2+2D0*SQM4*TH)/(SQPTH*SQM4-SH*UH) +C...Propagators: as simulated in PYOFSH and as desired + HBW4=GMMW/((SQM4-SQMW)**2+GMMW**2) + CALL PYWIDT(24,SQM4,WDTP,WDTE) + GMMWC=SQRT(SQM4)*WDTP(0) + HBW4C=GMMWC/((SQM4-SQMW)**2+GMMWC**2) + FWQ=FWQ*HBW4C/HBW4 + DO 740 I=MMINA,MMAXA + IF(I.EQ.0) GOTO 740 + IA=IABS(I) + EIA=ABS(KCHG(IABS(I),1)/3D0) + FACWQ=FWQ*(EIA-SH/(SH+UH))**2 + KCHW=ISIGN(1,KCHG(IA,1)*ISIGN(1,I)) + WIDSC=(WDTE(0,1)+WDTE(0,(5-KCHW)/2)+WDTE(0,4))/WDTP(0) + DO 730 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,22).EQ.0) GOTO 730 + IF(ISDE.EQ.2.AND.KFAC(1,22)*KFAC(2,I).EQ.0) GOTO 730 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACWQ*VINT(180+I)*WIDSC + 730 CONTINUE + 740 CONTINUE + + ELSEIF(ISUB.EQ.37) THEN +C...f + gamma -> f + h0 + + ELSEIF(ISUB.EQ.38) THEN +C...f + Z0 -> f + g (q + Z0 -> q + g only) + + ELSEIF(ISUB.EQ.39) THEN +C...f + Z0 -> f + gamma + + ELSEIF(ISUB.EQ.40) THEN +C...f + Z0 -> f + Z0 + ENDIF + + ELSEIF(ISUB.LE.50) THEN + IF(ISUB.EQ.41) THEN +C...f + Z0 -> f' + W+/- + + ELSEIF(ISUB.EQ.42) THEN +C...f + Z0 -> f + h0 + + ELSEIF(ISUB.EQ.43) THEN +C...f + W+/- -> f' + g (q + W+/- -> q' + g only) + + ELSEIF(ISUB.EQ.44) THEN +C...f + W+/- -> f' + gamma + + ELSEIF(ISUB.EQ.45) THEN +C...f + W+/- -> f' + Z0 + + ELSEIF(ISUB.EQ.46) THEN +C...f + W+/- -> f' + W+/- + + ELSEIF(ISUB.EQ.47) THEN +C...f + W+/- -> f' + h0 + + ELSEIF(ISUB.EQ.48) THEN +C...f + h0 -> f + g (q + h0 -> q + g only) + + ELSEIF(ISUB.EQ.49) THEN +C...f + h0 -> f + gamma + + ELSEIF(ISUB.EQ.50) THEN +C...f + h0 -> f + Z0 + ENDIF + + ELSEIF(ISUB.LE.60) THEN + IF(ISUB.EQ.51) THEN +C...f + h0 -> f' + W+/- + + ELSEIF(ISUB.EQ.52) THEN +C...f + h0 -> f + h0 + + ELSEIF(ISUB.EQ.53) THEN +C...g + g -> f + fbar (g + g -> q + qbar only) + CALL PYWIDT(21,SH,WDTP,WDTE) + FACQQ1=COMFAC*AS**2*1D0/6D0*(UH/TH-(2D0+MSTP(34)*1D0/4D0)* + & UH2/SH2)*(WDTE(0,1)+WDTE(0,2)+WDTE(0,3)+WDTE(0,4))*FACA + FACQQ2=COMFAC*AS**2*1D0/6D0*(TH/UH-(2D0+MSTP(34)*1D0/4D0)* + & TH2/SH2)*(WDTE(0,1)+WDTE(0,2)+WDTE(0,3)+WDTE(0,4))*FACA + IF(KFAC(1,21)*KFAC(2,21).EQ.0) GOTO 750 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ1 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=2 + SIGH(NCHN)=FACQQ2 + 750 CONTINUE + + ELSEIF(ISUB.EQ.54) THEN +C...g + gamma -> f + fbar (g + gamma -> q + qbar only) + CALL PYWIDT(21,SH,WDTP,WDTE) + WDTESU=0D0 + DO 760 I=1,MIN(8,MDCY(21,3)) + EF=KCHG(I,1)/3D0 + WDTESU=WDTESU+EF**2*(WDTE(I,1)+WDTE(I,2)+WDTE(I,3)+ + & WDTE(I,4)) + 760 CONTINUE + FACQQ=COMFAC*AEM*AS*WDTESU*(TH2+UH2)/(TH*UH) + IF(KFAC(1,21)*KFAC(2,22).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ + ENDIF + IF(KFAC(1,22)*KFAC(2,21).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=22 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ + ENDIF + + ELSEIF(ISUB.EQ.55) THEN +C...g + Z -> f + fbar (g + Z -> q + qbar only) + + ELSEIF(ISUB.EQ.56) THEN +C...g + W -> f + f'bar (g + W -> q + q'bar only) + + ELSEIF(ISUB.EQ.57) THEN +C...g + h0 -> f + fbar (g + h0 -> q + qbar only) + + ELSEIF(ISUB.EQ.58) THEN +C...gamma + gamma -> f + fbar + CALL PYWIDT(22,SH,WDTP,WDTE) + WDTESU=0D0 + DO 770 I=1,MIN(12,MDCY(22,3)) + IF(I.LE.8) EF= KCHG(I,1)/3D0 + IF(I.GE.9) EF= KCHG(9+2*(I-8),1)/3D0 + WDTESU=WDTESU+EF**2*(WDTE(I,1)+WDTE(I,2)+WDTE(I,3)+ + & WDTE(I,4)) + 770 CONTINUE + FACFF=COMFAC*AEM**2*WDTESU*2D0*(TH2+UH2)/(TH*UH) + IF(KFAC(1,22)*KFAC(2,22).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=22 + ISIG(NCHN,2)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACFF + ENDIF + + ELSEIF(ISUB.EQ.59) THEN +C...gamma + Z0 -> f + fbar + + ELSEIF(ISUB.EQ.60) THEN +C...gamma + W+/- -> f + fbar' + ENDIF + + ELSEIF(ISUB.LE.70) THEN + IF(ISUB.EQ.61) THEN +C...gamma + h0 -> f + fbar + + ELSEIF(ISUB.EQ.62) THEN +C...Z0 + Z0 -> f + fbar + + ELSEIF(ISUB.EQ.63) THEN +C...Z0 + W+/- -> f + fbar' + + ELSEIF(ISUB.EQ.64) THEN +C...Z0 + h0 -> f + fbar + + ELSEIF(ISUB.EQ.65) THEN +C...W+ + W- -> f + fbar + + ELSEIF(ISUB.EQ.66) THEN +C...W+/- + h0 -> f + fbar' + + ELSEIF(ISUB.EQ.67) THEN +C...h0 + h0 -> f + fbar + + ELSEIF(ISUB.EQ.68) THEN +C...g + g -> g + g + FACGG1=COMFAC*AS**2*9D0/4D0*(SH2/TH2+2D0*SH/TH+3D0+2D0*TH/SH+ + & TH2/SH2)*FACA + FACGG2=COMFAC*AS**2*9D0/4D0*(UH2/SH2+2D0*UH/SH+3D0+2D0*SH/UH+ + & SH2/UH2)*FACA + FACGG3=COMFAC*AS**2*9D0/4D0*(TH2/UH2+2D0*TH/UH+3D0+2D0*UH/TH+ + & UH2/TH2) + IF(KFAC(1,21)*KFAC(2,21).EQ.0) GOTO 780 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=0.5D0*FACGG1 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=2 + SIGH(NCHN)=0.5D0*FACGG2 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=3 + SIGH(NCHN)=0.5D0*FACGG3 + 780 CONTINUE + + ELSEIF(ISUB.EQ.69) THEN +C...gamma + gamma -> W+ + W- + SQMWE=MAX(0.5D0*SQMW,SQRT(SQM3*SQM4)) + FPROP=SH2/((SQMWE-TH)*(SQMWE-UH)) + FACWW=COMFAC*6D0*AEM**2*(1D0-FPROP*(4D0/3D0+2D0*SQMWE/SH)+ + & FPROP**2*(2D0/3D0+2D0*(SQMWE/SH)**2))*WIDS(24,1) + IF(KFAC(1,22)*KFAC(2,22).EQ.0) GOTO 790 + NCHN=NCHN+1 + ISIG(NCHN,1)=22 + ISIG(NCHN,2)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACWW + 790 CONTINUE + + ELSEIF(ISUB.EQ.70) THEN +C...gamma + W+/- -> Z0 + W+/- + SQMWE=MAX(0.5D0*SQMW,SQRT(SQM3*SQM4)) + FPROP=(TH-SQMWE)**2/(-SH*(SQMWE-UH)) + FACZW=COMFAC*6D0*AEM**2*(XW1/XW)* + & (1D0-FPROP*(4D0/3D0+2D0*SQMWE/(TH-SQMWE))+ + & FPROP**2*(2D0/3D0+2D0*(SQMWE/(TH-SQMWE))**2))*WIDS(23,2) + DO 810 KCHW=1,-1,-2 + DO 800 ISDE=1,2 + IF(KFAC(ISDE,22)*KFAC(3-ISDE,24*KCHW).EQ.0) GOTO 800 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=22 + ISIG(NCHN,3-ISDE)=24*KCHW + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACZW*WIDS(24,(5-KCHW)/2) + 800 CONTINUE + 810 CONTINUE + ENDIF + + ELSEIF(ISUB.LE.80) THEN + IF(ISUB.EQ.71) THEN +C...Z0 + Z0 -> Z0 + Z0 + IF(SH.LE.4.01D0*SQMZ) GOTO 840 + + IF(MSTP(46).LE.2) THEN +C...Exact scattering ME:s for on-mass-shell gauge bosons + BE2=1D0-4D0*SQMZ/SH + TH=-0.5D0*SH*BE2*(1D0-CTH) + UH=-0.5D0*SH*BE2*(1D0+CTH) + IF(MAX(TH,UH).GT.-1D0) GOTO 840 + SHANG=1D0/XW1*SQMW/SQMZ*(1D0+BE2)**2 + ASHRE=(SH-SQMH)/((SH-SQMH)**2+GMMH**2)*SHANG + ASHIM=-GMMH/((SH-SQMH)**2+GMMH**2)*SHANG + THANG=1D0/XW1*SQMW/SQMZ*(BE2-CTH)**2 + ATHRE=(TH-SQMH)/((TH-SQMH)**2+GMMH**2)*THANG + ATHIM=-GMMH/((TH-SQMH)**2+GMMH**2)*THANG + UHANG=1D0/XW1*SQMW/SQMZ*(BE2+CTH)**2 + AUHRE=(UH-SQMH)/((UH-SQMH)**2+GMMH**2)*UHANG + AUHIM=-GMMH/((UH-SQMH)**2+GMMH**2)*UHANG + FACZZ=COMFAC*1D0/(4096D0*PARU(1)**2*16D0*XW1**2)* + & (AEM/XW)**4*(SH/SQMW)**2*(SQMZ/SQMW)*SH2 + IF(MSTP(46).LE.0) FACZZ=FACZZ*(ASHRE**2+ASHIM**2) + IF(MSTP(46).EQ.1) FACZZ=FACZZ*((ASHRE+ATHRE+AUHRE)**2+ + & (ASHIM+ATHIM+AUHIM)**2) + IF(MSTP(46).EQ.2) FACZZ=0D0 + + ELSE +C...Strongly interacting Z_L/W_L model of Dobado, Herrero, Terron + FACZZ=COMFAC*(AEM/(16D0*PARU(1)*XW*XW1))**2*(64D0/9D0)* + & ABS(A00U+2.*A20U)**2 + ENDIF + FACZZ=FACZZ*WIDS(23,1) + + DO 830 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 830 + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI) + VI=AI-4D0*EI*XWV + AVI=AI**2+VI**2 + DO 820 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 820 + EJ=KCHG(IABS(J),1)/3D0 + AJ=SIGN(1D0,EJ) + VJ=AJ-4D0*EJ*XWV + AVJ=AJ**2+VJ**2 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=0.5D0*FACZZ*AVI*AVJ + 820 CONTINUE + 830 CONTINUE + 840 CONTINUE + + ELSEIF(ISUB.EQ.72) THEN +C...Z0 + Z0 -> W+ + W- + IF(SH.LE.4.01D0*SQMZ) GOTO 870 + + IF(MSTP(46).LE.2) THEN +C...Exact scattering ME:s for on-mass-shell gauge bosons + BE2=SQRT((1D0-4D0*SQMW/SH)*(1D0-4D0*SQMZ/SH)) + CTH2=CTH**2 + TH=-0.5D0*SH*(1D0-2D0*(SQMW+SQMZ)/SH-BE2*CTH) + UH=-0.5D0*SH*(1D0-2D0*(SQMW+SQMZ)/SH+BE2*CTH) + IF(MAX(TH,UH).GT.-1D0) GOTO 870 + SHANG=4D0*SQRT(SQMW/(SQMZ*XW1))*(1D0-2D0*SQMW/SH)* + & (1D0-2D0*SQMZ/SH) + ASHRE=(SH-SQMH)/((SH-SQMH)**2+GMMH**2)*SHANG + ASHIM=-GMMH/((SH-SQMH)**2+GMMH**2)*SHANG + ATWRE=XW1/SQMZ*SH/(TH-SQMW)*((CTH-BE2)**2*(3D0/2D0+BE2/2D0* + & CTH-(SQMW+SQMZ)/SH+(SQMW-SQMZ)**2/(SH*SQMW))+4D0* + & ((SQMW+SQMZ)/SH*(1D0-3D0*CTH2)+8D0*SQMW*SQMZ/SH2* + & (2D0*CTH2-1D0)+4D0*(SQMW**2+SQMZ**2)/SH2*CTH2+ + & 2D0*(SQMW+SQMZ)/SH*BE2*CTH)) + ATWIM=0D0 + AUWRE=XW1/SQMZ*SH/(UH-SQMW)*((CTH+BE2)**2*(3D0/2D0-BE2/2D0* + & CTH-(SQMW+SQMZ)/SH+(SQMW-SQMZ)**2/(SH*SQMW))+4D0* + & ((SQMW+SQMZ)/SH*(1D0-3D0*CTH2)+8D0*SQMW*SQMZ/SH2* + & (2D0*CTH2-1D0)+4D0*(SQMW**2+SQMZ**2)/SH2*CTH2- + & 2D0*(SQMW+SQMZ)/SH*BE2*CTH)) + AUWIM=0D0 + A4RE=2D0*XW1/SQMZ*(3D0-CTH2-4D0*(SQMW+SQMZ)/SH) + A4IM=0D0 + FACWW=COMFAC*1D0/(4096D0*PARU(1)**2*16D0*XW1**2)* + & (AEM/XW)**4*(SH/SQMW)**2*(SQMZ/SQMW)*SH2 + IF(MSTP(46).LE.0) FACWW=FACWW*(ASHRE**2+ASHIM**2) + IF(MSTP(46).EQ.1) FACWW=FACWW*((ASHRE+ATWRE+AUWRE+A4RE)**2+ + & (ASHIM+ATWIM+AUWIM+A4IM)**2) + IF(MSTP(46).EQ.2) FACWW=FACWW*((ATWRE+AUWRE+A4RE)**2+ + & (ATWIM+AUWIM+A4IM)**2) + + ELSE +C...Strongly interacting Z_L/W_L model of Dobado, Herrero, Terron + FACWW=COMFAC*(AEM/(16D0*PARU(1)*XW*XW1))**2*(64D0/9D0)* + & ABS(A00U-A20U)**2 + ENDIF + FACWW=FACWW*WIDS(24,1) + + DO 860 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 860 + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI) + VI=AI-4D0*EI*XWV + AVI=AI**2+VI**2 + DO 850 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 850 + EJ=KCHG(IABS(J),1)/3D0 + AJ=SIGN(1D0,EJ) + VJ=AJ-4D0*EJ*XWV + AVJ=AJ**2+VJ**2 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACWW*AVI*AVJ + 850 CONTINUE + 860 CONTINUE + 870 CONTINUE + + ELSEIF(ISUB.EQ.73) THEN +C...Z0 + W+/- -> Z0 + W+/- + IF(SH.LE.2D0*SQMZ+2D0*SQMW) GOTO 900 + + IF(MSTP(46).LE.2) THEN +C...Exact scattering ME:s for on-mass-shell gauge bosons + BE2=1D0-2D0*(SQMZ+SQMW)/SH+((SQMZ-SQMW)/SH)**2 + EP1=1D0-(SQMZ-SQMW)/SH + EP2=1D0+(SQMZ-SQMW)/SH + TH=-0.5D0*SH*BE2*(1D0-CTH) + UH=(SQMZ-SQMW)**2/SH-0.5D0*SH*BE2*(1D0+CTH) + IF(MAX(TH,UH).GT.-1D0) GOTO 900 + THANG=(BE2-EP1*CTH)*(BE2-EP2*CTH) + ATHRE=(TH-SQMH)/((TH-SQMH)**2+GMMH**2)*THANG + ATHIM=-GMMH/((TH-SQMH)**2+GMMH**2)*THANG + ASWRE=-XW1/SQMZ*SH/(SH-SQMW)*(-BE2*(EP1+EP2)**4*CTH+ + & 1D0/4D0*(BE2+EP1*EP2)**2*((EP1-EP2)**2-4D0*BE2*CTH)+ + & 2D0*BE2*(BE2+EP1*EP2)*(EP1+EP2)**2*CTH- + & 1D0/16D0*SH/SQMW*(EP1**2-EP2**2)**2*(BE2+EP1*EP2)**2) + ASWIM=0D0 + AUWRE=XW1/SQMZ*SH/(UH-SQMW)*(-BE2*(EP2+EP1*CTH)* + & (EP1+EP2*CTH)*(BE2+EP1*EP2)+BE2*(EP2+EP1*CTH)* + & (BE2+EP1*EP2*CTH)*(2D0*EP2-EP2*CTH+EP1)- + & BE2*(EP2+EP1*CTH)**2*(BE2-EP2**2*CTH)-1D0/8D0* + & (BE2+EP1*EP2*CTH)**2*((EP1+EP2)**2+2D0*BE2*(1D0-CTH))+ + & 1D0/32D0*SH/SQMW*(BE2+EP1*EP2*CTH)**2* + & (EP1**2-EP2**2)**2-BE2*(EP1+EP2*CTH)*(EP2+EP1*CTH)* + & (BE2+EP1*EP2)+BE2*(EP1+EP2*CTH)*(BE2+EP1*EP2*CTH)* + & (2D0*EP1-EP1*CTH+EP2)-BE2*(EP1+EP2*CTH)**2* + & (BE2-EP1**2*CTH)-1D0/8D0*(BE2+EP1*EP2*CTH)**2* + & ((EP1+EP2)**2+2D0*BE2*(1D0-CTH))+1D0/32D0*SH/SQMW* + & (BE2+EP1*EP2*CTH)**2*(EP1**2-EP2**2)**2) + AUWIM=0D0 + A4RE=XW1/SQMZ*(EP1**2*EP2**2*(CTH**2-1D0)- + & 2D0*BE2*(EP1**2+EP2**2+EP1*EP2)*CTH-2D0*BE2*EP1*EP2) + A4IM=0D0 + FACZW=COMFAC*1D0/(4096D0*PARU(1)**2*4D0*XW1)*(AEM/XW)**4* + & (SH/SQMW)**2*SQRT(SQMZ/SQMW)*SH2 + IF(MSTP(46).LE.0) FACZW=0D0 + IF(MSTP(46).EQ.1) FACZW=FACZW*((ATHRE+ASWRE+AUWRE+A4RE)**2+ + & (ATHIM+ASWIM+AUWIM+A4IM)**2) + IF(MSTP(46).EQ.2) FACZW=FACZW*((ASWRE+AUWRE+A4RE)**2+ + & (ASWIM+AUWIM+A4IM)**2) + + ELSE +C...Strongly interacting Z_L/W_L model of Dobado, Herrero, Terron + FACZW=COMFAC*AEM**2/(64D0*PARU(1)**2*XW**2*XW1)*16D0* + & ABS(A20U+3.*A11U*SNGL(CTH))**2 + ENDIF + FACZW=FACZW*WIDS(23,2) + + DO 890 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 890 + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI) + VI=AI-4D0*EI*XWV + AVI=AI**2+VI**2 + KCHWI=ISIGN(1,KCHG(IABS(I),1)*ISIGN(1,I)) + DO 880 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 880 + EJ=KCHG(IABS(J),1)/3D0 + AJ=SIGN(1D0,EJ) + VJ=AI-4D0*EJ*XWV + AVJ=AJ**2+VJ**2 + KCHWJ=ISIGN(1,KCHG(IABS(J),1)*ISIGN(1,J)) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACZW*AVI*VINT(180+J)*WIDS(24,(5-KCHWJ)/2) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=2 + SIGH(NCHN)=FACZW*VINT(180+I)*WIDS(24,(5-KCHWI)/2)*AVJ + 880 CONTINUE + 890 CONTINUE + 900 CONTINUE + + ELSEIF(ISUB.EQ.75) THEN +C...W+ + W- -> gamma + gamma + + ELSEIF(ISUB.EQ.76) THEN +C...W+ + W- -> Z0 + Z0 + IF(SH.LE.4.01D0*SQMZ) GOTO 930 + + IF(MSTP(46).LE.2) THEN +C...Exact scattering ME:s for on-mass-shell gauge bosons + BE2=SQRT((1D0-4D0*SQMW/SH)*(1D0-4D0*SQMZ/SH)) + CTH2=CTH**2 + TH=-0.5D0*SH*(1D0-2D0*(SQMW+SQMZ)/SH-BE2*CTH) + UH=-0.5D0*SH*(1D0-2D0*(SQMW+SQMZ)/SH+BE2*CTH) + IF(MAX(TH,UH).GT.-1D0) GOTO 930 + SHANG=4D0*SQRT(SQMW/(SQMZ*XW1))*(1D0-2D0*SQMW/SH)* + & (1D0-2D0*SQMZ/SH) + ASHRE=(SH-SQMH)/((SH-SQMH)**2+GMMH**2)*SHANG + ASHIM=-GMMH/((SH-SQMH)**2+GMMH**2)*SHANG + ATWRE=XW1/SQMZ*SH/(TH-SQMW)*((CTH-BE2)**2*(3D0/2D0+BE2/2D0* + & CTH-(SQMW+SQMZ)/SH+(SQMW-SQMZ)**2/(SH*SQMW))+4D0* + & ((SQMW+SQMZ)/SH*(1D0-3D0*CTH2)+8D0*SQMW*SQMZ/SH2* + & (2D0*CTH2-1D0)+4D0*(SQMW**2+SQMZ**2)/SH2*CTH2+ + & 2D0*(SQMW+SQMZ)/SH*BE2*CTH)) + ATWIM=0D0 + AUWRE=XW1/SQMZ*SH/(UH-SQMW)*((CTH+BE2)**2*(3D0/2D0-BE2/2D0* + & CTH-(SQMW+SQMZ)/SH+(SQMW-SQMZ)**2/(SH*SQMW))+4D0* + & ((SQMW+SQMZ)/SH*(1D0-3D0*CTH2)+8D0*SQMW*SQMZ/SH2* + & (2D0*CTH2-1D0)+4D0*(SQMW**2+SQMZ**2)/SH2*CTH2- + & 2D0*(SQMW+SQMZ)/SH*BE2*CTH)) + AUWIM=0D0 + A4RE=2D0*XW1/SQMZ*(3D0-CTH2-4D0*(SQMW+SQMZ)/SH) + A4IM=0D0 + FACZZ=COMFAC*1D0/(4096D0*PARU(1)**2)*(AEM/XW)**4* + & (SH/SQMW)**2*SH2 + IF(MSTP(46).LE.0) FACZZ=FACZZ*(ASHRE**2+ASHIM**2) + IF(MSTP(46).EQ.1) FACZZ=FACZZ*((ASHRE+ATWRE+AUWRE+A4RE)**2+ + & (ASHIM+ATWIM+AUWIM+A4IM)**2) + IF(MSTP(46).EQ.2) FACZZ=FACZZ*((ATWRE+AUWRE+A4RE)**2+ + & (ATWIM+AUWIM+A4IM)**2) + + ELSE +C...Strongly interacting Z_L/W_L model of Dobado, Herrero, Terron + FACZZ=COMFAC*(AEM/(4D0*PARU(1)*XW))**2*(64D0/9D0)* + & ABS(A00U-A20U)**2 + ENDIF + FACZZ=FACZZ*WIDS(23,1) + + DO 920 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 920 + EI=SIGN(1D0,DBLE(I))*KCHG(IABS(I),1) + DO 910 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 910 + EJ=SIGN(1D0,DBLE(J))*KCHG(IABS(J),1) + IF(EI*EJ.GT.0D0) GOTO 910 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=0.5D0*FACZZ*VINT(180+I)*VINT(180+J) + 910 CONTINUE + 920 CONTINUE + 930 CONTINUE + + ELSEIF(ISUB.EQ.77) THEN +C...W+/- + W+/- -> W+/- + W+/- + IF(SH.LE.4.01D0*SQMW) GOTO 960 + + IF(MSTP(46).LE.2) THEN +C...Exact scattering ME:s for on-mass-shell gauge bosons + BE2=1D0-4D0*SQMW/SH + BE4=BE2**2 + CTH2=CTH**2 + CTH3=CTH**3 + TH=-0.5D0*SH*BE2*(1D0-CTH) + UH=-0.5D0*SH*BE2*(1D0+CTH) + IF(MAX(TH,UH).GT.-1D0) GOTO 960 + SHANG=(1D0+BE2)**2 + ASHRE=(SH-SQMH)/((SH-SQMH)**2+GMMH**2)*SHANG + ASHIM=-GMMH/((SH-SQMH)**2+GMMH**2)*SHANG + THANG=(BE2-CTH)**2 + ATHRE=(TH-SQMH)/((TH-SQMH)**2+GMMH**2)*THANG + ATHIM=-GMMH/((TH-SQMH)**2+GMMH**2)*THANG + UHANG=(BE2+CTH)**2 + AUHRE=(UH-SQMH)/((UH-SQMH)**2+GMMH**2)*UHANG + AUHIM=-GMMH/((UH-SQMH)**2+GMMH**2)*UHANG + SGZANG=1D0/SQMW*BE2*(3D0-BE2)**2*CTH + ASGRE=XW*SGZANG + ASGIM=0D0 + ASZRE=XW1*SH/(SH-SQMZ)*SGZANG + ASZIM=0D0 + TGZANG=1D0/SQMW*(BE2*(4D0-2D0*BE2+BE4)+BE2*(4D0-10D0*BE2+ + & BE4)*CTH+(2D0-11D0*BE2+10D0*BE4)*CTH2+BE2*CTH3) + ATGRE=0.5D0*XW*SH/TH*TGZANG + ATGIM=0D0 + ATZRE=0.5D0*XW1*SH/(TH-SQMZ)*TGZANG + ATZIM=0D0 + UGZANG=1D0/SQMW*(BE2*(4D0-2D0*BE2+BE4)-BE2*(4D0-10D0*BE2+ + & BE4)*CTH+(2D0-11D0*BE2+10D0*BE4)*CTH2-BE2*CTH3) + AUGRE=0.5D0*XW*SH/UH*UGZANG + AUGIM=0D0 + AUZRE=0.5D0*XW1*SH/(UH-SQMZ)*UGZANG + AUZIM=0D0 + A4ARE=1D0/SQMW*(1D0+2D0*BE2-6D0*BE2*CTH-CTH2) + A4AIM=0D0 + A4SRE=2D0/SQMW*(1D0+2D0*BE2-CTH2) + A4SIM=0D0 + FWW=COMFAC*1D0/(4096D0*PARU(1)**2)*(AEM/XW)**4* + & (SH/SQMW)**2*SH2 + IF(MSTP(46).LE.0) THEN + AWWARE=ASHRE + AWWAIM=ASHIM + AWWSRE=0D0 + AWWSIM=0D0 + ELSEIF(MSTP(46).EQ.1) THEN + AWWARE=ASHRE+ATHRE+ASGRE+ASZRE+ATGRE+ATZRE+A4ARE + AWWAIM=ASHIM+ATHIM+ASGIM+ASZIM+ATGIM+ATZIM+A4AIM + AWWSRE=-ATHRE-AUHRE+ATGRE+ATZRE+AUGRE+AUZRE+A4SRE + AWWSIM=-ATHIM-AUHIM+ATGIM+ATZIM+AUGIM+AUZIM+A4SIM + ELSE + AWWARE=ASGRE+ASZRE+ATGRE+ATZRE+A4ARE + AWWAIM=ASGIM+ASZIM+ATGIM+ATZIM+A4AIM + AWWSRE=ATGRE+ATZRE+AUGRE+AUZRE+A4SRE + AWWSIM=ATGIM+ATZIM+AUGIM+AUZIM+A4SIM + ENDIF + AWWA2=AWWARE**2+AWWAIM**2 + AWWS2=AWWSRE**2+AWWSIM**2 + + ELSE +C...Strongly interacting Z_L/W_L model of Dobado, Herrero, Terron + FWWA=COMFAC*(AEM/(4D0*PARU(1)*XW))**2*(64D0/9D0)* + & ABS(A00U+0.5*A20U+4.5*A11U*SNGL(CTH))**2 + FWWS=COMFAC*(AEM/(4D0*PARU(1)*XW))**2*64D0*ABS(A20U)**2 + ENDIF + + DO 950 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 950 + EI=SIGN(1D0,DBLE(I))*KCHG(IABS(I),1) + DO 940 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 940 + EJ=SIGN(1D0,DBLE(J))*KCHG(IABS(J),1) + IF(EI*EJ.LT.0D0) THEN +C...W+W- + IF(MSTP(45).EQ.1) GOTO 940 + IF(MSTP(46).LE.2) FACWW=FWW*AWWA2*WIDS(24,1) + IF(MSTP(46).GE.3) FACWW=FWWA*WIDS(24,1) + ELSE +C...W+W+/W-W- + IF(MSTP(45).EQ.2) GOTO 940 + IF(MSTP(46).LE.2) FACWW=FWW*AWWS2 + IF(MSTP(46).GE.3) FACWW=FWWS + IF(EI.GT.0D0) FACWW=FACWW*WIDS(24,4) + IF(EI.LT.0D0) FACWW=FACWW*WIDS(24,5) + ENDIF + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACWW*VINT(180+I)*VINT(180+J) + IF(EI*EJ.GT.0D0) SIGH(NCHN)=0.5D0*SIGH(NCHN) + 940 CONTINUE + 950 CONTINUE + 960 CONTINUE + + ELSEIF(ISUB.EQ.78) THEN +C...W+/- + h0 -> W+/- + h0 + + ELSEIF(ISUB.EQ.79) THEN +C...h0 + h0 -> h0 + h0 + + ELSEIF(ISUB.EQ.80) THEN +C...q + gamma -> q' + pi+/- + FQPI=COMFAC*(2D0*AEM/9D0)*(-SH/TH)*(1D0/SH2+1D0/TH2) + ASSH=PYALPS(MAX(0.5D0,0.5D0*SH)) + Q2FPSH=0.55D0/LOG(MAX(2D0,2D0*SH)) + DELSH=UH*SQRT(ASSH*Q2FPSH) + ASUH=PYALPS(MAX(0.5D0,-0.5D0*UH)) + Q2FPUH=0.55D0/LOG(MAX(2D0,-2D0*UH)) + DELUH=SH*SQRT(ASUH*Q2FPUH) + DO 980 I=MAX(-2,MMINA),MIN(2,MMAXA) + IF(I.EQ.0) GOTO 980 + EI=KCHG(IABS(I),1)/3D0 + EJ=SIGN(1D0-ABS(EI),EI) + DO 970 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,22).EQ.0) GOTO 970 + IF(ISDE.EQ.2.AND.KFAC(1,22)*KFAC(2,I).EQ.0) GOTO 970 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FQPI*(EI*DELSH+EJ*DELUH)**2 + 970 CONTINUE + 980 CONTINUE + + ENDIF + +C...C: 2 -> 2, tree diagrams with masses + + ELSEIF(ISUB.LE.90) THEN + IF(ISUB.EQ.81) THEN +C...q + qbar -> Q + Qbar + SQMA=0.5D0*(SQM3+SQM4)-0.25D0*(SQM3-SQM4)**2/SH + FACQQB=COMFAC*AS**2*4D0/9D0*(((TH-SQMA)**2+ + & (UH-SQMA)**2)/SH2+2D0*SQMA/SH) + IF(MSTP(35).GE.1) FACQQB=FACQQB*PYHFTH(SH,SQMA,0D0) + WID2=1D0 + IF(MINT(55).EQ.6) WID2=WIDS(6,1) + IF(MINT(55).EQ.7.OR.MINT(55).EQ.8) WID2=WIDS(MINT(55),1) + FACQQB=FACQQB*WID2 + DO 990 I=MMINA,MMAXA + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58).OR. + & KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 990 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQB + 990 CONTINUE + + ELSEIF(ISUB.EQ.82) THEN +C...g + g -> Q + Qbar + SQMA=0.5D0*(SQM3+SQM4)-0.25D0*(SQM3-SQM4)**2/SH + IF(MSTP(34).EQ.0) THEN + FACQQ1=COMFAC*FACA*AS**2*(1D0/6D0)*((UH-SQMA)/(TH-SQMA)- + & 2D0*(UH-SQMA)**2/SH2+4D0*(SQMA/SH)*(TH*UH-SQMA**2)/ + & (TH-SQMA)**2) + FACQQ2=COMFAC*FACA*AS**2*(1D0/6D0)*((TH-SQMA)/(UH-SQMA)- + & 2D0*(TH-SQMA)**2/SH2+4D0*(SQMA/SH)*(TH*UH-SQMA**2)/ + & (UH-SQMA)**2) + ELSE + FACQQ1=COMFAC*FACA*AS**2*(1D0/6D0)*((UH-SQMA)/(TH-SQMA)- + & 2.25D0*(UH-SQMA)**2/SH2+4.5D0*(SQMA/SH)*(TH*UH-SQMA**2)/ + & (TH-SQMA)**2+0.5D0*SQMA*TH/(TH-SQMA)**2-SQMA**2/ + & (SH*(TH-SQMA))) + FACQQ2=COMFAC*FACA*AS**2*(1D0/6D0)*((TH-SQMA)/(UH-SQMA)- + & 2.25D0*(TH-SQMA)**2/SH2+4.5D0*(SQMA/SH)*(TH*UH-SQMA**2)/ + & (UH-SQMA)**2+0.5D0*SQMA*UH/(UH-SQMA)**2-SQMA**2/ + & (SH*(UH-SQMA))) + ENDIF + IF(MSTP(35).GE.1) THEN + FATRE=PYHFTH(SH,SQMA,2D0/7D0) + FACQQ1=FACQQ1*FATRE + FACQQ2=FACQQ2*FATRE + ENDIF + WID2=1D0 + IF(MINT(55).EQ.6) WID2=WIDS(6,1) + IF(MINT(55).EQ.7.OR.MINT(55).EQ.8) WID2=WIDS(MINT(55),1) + FACQQ1=FACQQ1*WID2 + FACQQ2=FACQQ2*WID2 + IF(KFAC(1,21)*KFAC(2,21).EQ.0) GOTO 1000 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ1 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=2 + SIGH(NCHN)=FACQQ2 + 1000 CONTINUE + + ELSEIF(ISUB.EQ.83) THEN +C...f + q -> f' + Q + FACQQS=COMFAC*(0.5D0*AEM/XW)**2*SH*(SH-SQM3)/(SQMW-TH)**2 + FACQQU=COMFAC*(0.5D0*AEM/XW)**2*UH*(UH-SQM3)/(SQMW-TH)**2 + DO 1020 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 1020 + DO 1010 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 1010 + IF(I*J.GT.0.AND.MOD(IABS(I+J),2).EQ.0) GOTO 1010 + IF(I*J.LT.0.AND.MOD(IABS(I+J),2).EQ.1) GOTO 1010 + IF(IABS(I).LT.MINT(55).AND.MOD(IABS(I+MINT(55)),2).EQ.1) + & THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + IF(MOD(MINT(55),2).EQ.0) FACCKM=VCKM(MINT(55)/2, + & (IABS(I)+1)/2)*VINT(180+J) + IF(MOD(MINT(55),2).EQ.1) FACCKM=VCKM(IABS(I)/2, + & (MINT(55)+1)/2)*VINT(180+J) + WID2=1D0 + IF(I.GT.0) THEN + IF(MINT(55).EQ.6) WID2=WIDS(6,2) + IF(MINT(55).EQ.7.OR.MINT(55).EQ.8) WID2= + & WIDS(MINT(55),2) + ELSE + IF(MINT(55).EQ.6) WID2=WIDS(6,3) + IF(MINT(55).EQ.7.OR.MINT(55).EQ.8) WID2= + & WIDS(MINT(55),3) + ENDIF + IF(I*J.GT.0) SIGH(NCHN)=FACQQS*FACCKM*WID2 + IF(I*J.LT.0) SIGH(NCHN)=FACQQU*FACCKM*WID2 + ENDIF + IF(IABS(J).LT.MINT(55).AND.MOD(IABS(J+MINT(55)),2).EQ.1) + & THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=2 + IF(MOD(MINT(55),2).EQ.0) FACCKM=VCKM(MINT(55)/2, + & (IABS(J)+1)/2)*VINT(180+I) + IF(MOD(MINT(55),2).EQ.1) FACCKM=VCKM(IABS(J)/2, + & (MINT(55)+1)/2)*VINT(180+I) + IF(J.GT.0) THEN + IF(MINT(55).EQ.6) WID2=WIDS(6,2) + IF(MINT(55).EQ.7.OR.MINT(55).EQ.8) WID2= + & WIDS(MINT(55),2) + ELSE + IF(MINT(55).EQ.6) WID2=WIDS(6,3) + IF(MINT(55).EQ.7.OR.MINT(55).EQ.8) WID2= + & WIDS(MINT(55),3) + ENDIF + IF(I*J.GT.0) SIGH(NCHN)=FACQQS*FACCKM*WID2 + IF(I*J.LT.0) SIGH(NCHN)=FACQQU*FACCKM*WID2 + ENDIF + 1010 CONTINUE + 1020 CONTINUE + + ELSEIF(ISUB.EQ.84) THEN +C...g + gamma -> Q + Qbar + SQMA=0.5D0*(SQM3+SQM4)-0.25D0*(SQM3-SQM4)**2/SH + FMTU=SQMA/(SQMA-TH)+SQMA/(SQMA-UH) + FACQQ=COMFAC*AS*AEM*(KCHG(IABS(MINT(55)),1)/3D0)**2* + & ((SQMA-TH)/(SQMA-UH)+(SQMA-UH)/(SQMA-TH)+4D0*FMTU*(1D0-FMTU)) + IF(MSTP(35).GE.1) FACQQ=FACQQ*PYHFTH(SH,SQMA,0D0) + WID2=1D0 + IF(MINT(55).EQ.6) WID2=WIDS(6,1) + IF(MINT(55).EQ.7.OR.MINT(55).EQ.8) WID2=WIDS(MINT(55),1) + FACQQ=FACQQ*WID2 + IF(KFAC(1,21)*KFAC(2,22).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ + ENDIF + IF(KFAC(1,22)*KFAC(2,21).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=22 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ + ENDIF + + ELSEIF(ISUB.EQ.85) THEN +C...gamma + gamma -> F + Fbar (heavy fermion, quark or lepton) + SQMA=0.5D0*(SQM3+SQM4)-0.25D0*(SQM3-SQM4)**2/SH + FMTU=SQMA/(SQMA-TH)+SQMA/(SQMA-UH) + FACFF=COMFAC*AEM**2*(KCHG(IABS(MINT(56)),1)/3D0)**4*2D0* + & ((SQMA-TH)/(SQMA-UH)+(SQMA-UH)/(SQMA-TH)+4D0*FMTU*(1D0-FMTU)) + IF(IABS(MINT(56)).LT.10) FACFF=3D0*FACFF + IF(IABS(MINT(56)).LT.10.AND.MSTP(35).GE.1) + & FACFF=FACFF*PYHFTH(SH,SQMA,1D0) + WID2=1D0 + IF(MINT(56).EQ.6) WID2=WIDS(6,1) + IF(MINT(56).EQ.7.OR.MINT(56).EQ.8) WID2=WIDS(MINT(56),1) + IF(MINT(56).EQ.17) WID2=WIDS(17,1) + FACFF=FACFF*WID2 + IF(KFAC(1,22)*KFAC(2,22).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=22 + ISIG(NCHN,2)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACFF + ENDIF + + ELSEIF(ISUB.EQ.86) THEN +C...g + g -> J/Psi + g + FACQQG=COMFAC*AS**3*(5D0/9D0)*PARP(38)*SQRT(SQM3)* + & (((SH*(SH-SQM3))**2+(TH*(TH-SQM3))**2+(UH*(UH-SQM3))**2)/ + & ((TH-SQM3)*(UH-SQM3))**2)/(SH-SQM3)**2 + IF(KFAC(1,21)*KFAC(2,21).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQG + ENDIF + + ELSEIF(ISUB.EQ.87) THEN +C...g + g -> chi_0c + g + PGTW=(SH*TH+TH*UH+UH*SH)/SH2 + QGTW=(SH*TH*UH)/SH**3 + RGTW=SQM3/SH + FACQQG=COMFAC*AS**3*4D0*(PARP(39)/SQRT(SQM3))*(1D0/SH)* + & (9D0*RGTW**2*PGTW**4*(RGTW**4-2D0*RGTW**2*PGTW+PGTW**2)- + & 6D0*RGTW*PGTW**3*QGTW*(2D0*RGTW**4-5D0*RGTW**2*PGTW+PGTW**2)- + & PGTW**2*QGTW**2*(RGTW**4+2D0*RGTW**2*PGTW-PGTW**2)+ + & 2D0*RGTW*PGTW*QGTW**3*(RGTW**2-PGTW)+6D0*RGTW**2*QGTW**4)/ + & (QGTW*(QGTW-RGTW*PGTW)**4) + IF(KFAC(1,21)*KFAC(2,21).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQG + ENDIF + + ELSEIF(ISUB.EQ.88) THEN +C...g + g -> chi_1c + g + PGTW=(SH*TH+TH*UH+UH*SH)/SH2 + QGTW=(SH*TH*UH)/SH**3 + RGTW=SQM3/SH + FACQQG=COMFAC*AS**3*12D0*(PARP(39)/SQRT(SQM3))*(1D0/SH)* + & PGTW**2*(RGTW*PGTW**2*(RGTW**2-4D0*PGTW)+2D0*QGTW*(-RGTW**4+ + & 5D0*RGTW**2*PGTW+PGTW**2)-15D0*RGTW*QGTW**2)/ + & (QGTW-RGTW*PGTW)**4 + IF(KFAC(1,21)*KFAC(2,21).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQG + ENDIF + + ELSEIF(ISUB.EQ.89) THEN +C...g + g -> chi_2c + g + PGTW=(SH*TH+TH*UH+UH*SH)/SH2 + QGTW=(SH*TH*UH)/SH**3 + RGTW=SQM3/SH + FACQQG=COMFAC*AS**3*4D0*(PARP(39)/SQRT(SQM3))*(1D0/SH)* + & (12D0*RGTW**2*PGTW**4*(RGTW**4-2D0*RGTW**2*PGTW+PGTW**2)- + & 3D0*RGTW*PGTW**3*QGTW*(8D0*RGTW**4-RGTW**2*PGTW+4D0*PGTW**2)+ + & 2D0*PGTW**2*QGTW**2*(-7D0*RGTW**4+43D0*RGTW**2*PGTW+PGTW**2)+ + & RGTW*PGTW*QGTW**3*(16D0*RGTW**2-61D0*PGTW)+12D0*RGTW**2* + & QGTW**4)/(QGTW*(QGTW-RGTW*PGTW)**4) + IF(KFAC(1,21)*KFAC(2,21).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQG + ENDIF + ENDIF + +C...D: Mimimum bias processes + + ELSEIF(ISUB.LE.100) THEN + IF(ISUB.EQ.91) THEN +C...Elastic scattering + SIGS=VINT(315)*VINT(316)*SIGT(0,0,1) + + ELSEIF(ISUB.EQ.92) THEN +C...Single diffractive scattering (first side, i.e. XB) + SIGS=VINT(315)*VINT(316)*SIGT(0,0,2) + + ELSEIF(ISUB.EQ.93) THEN +C...Single diffractive scattering (second side, i.e. AX) + SIGS=VINT(315)*VINT(316)*SIGT(0,0,3) + + ELSEIF(ISUB.EQ.94) THEN +C...Double diffractive scattering + SIGS=VINT(315)*VINT(316)*SIGT(0,0,4) + + ELSEIF(ISUB.EQ.95) THEN +C...Low-pT scattering + SIGS=VINT(315)*VINT(316)*SIGT(0,0,5) + + ELSEIF(ISUB.EQ.96) THEN +C...Multiple interactions: sum of QCD processes + CALL PYWIDT(21,SH,WDTP,WDTE) + +C...q + q' -> q + q' + FACQQ1=COMFAC*AS**2*4D0/9D0*(SH2+UH2)/TH2 + FACQQB=COMFAC*AS**2*4D0/9D0*((SH2+UH2)/TH2*FACA- + & MSTP(34)*2D0/3D0*UH2/(SH*TH)) + FACQQ2=COMFAC*AS**2*4D0/9D0*(SH2+TH2)/UH2 + FACQQI=-COMFAC*AS**2*4D0/9D0*MSTP(34)*2D0/3D0*SH2/(TH*UH) + RATQQI=(FACQQ1+FACQQ2+FACQQI)/(FACQQ1+FACQQ2) + DO 1040 I=-5,5 + IF(I.EQ.0) GOTO 1040 + DO 1030 J=-5,5 + IF(J.EQ.0) GOTO 1030 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=111 + SIGH(NCHN)=FACQQ1 + IF(I.EQ.-J) SIGH(NCHN)=FACQQB + IF(I.EQ.J) THEN + SIGH(NCHN)=0.5D0*FACQQ1*RATQQI + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=112 + SIGH(NCHN)=0.5D0*FACQQ2*RATQQI + ENDIF + 1030 CONTINUE + 1040 CONTINUE + +C...q + qbar -> q' + qbar' or g + g + FACQQB=COMFAC*AS**2*4D0/9D0*(TH2+UH2)/SH2* + & (WDTE(0,1)+WDTE(0,2)+WDTE(0,3)+WDTE(0,4)) + FACGG1=COMFAC*AS**2*32D0/27D0*(UH/TH-(2D0+MSTP(34)*1D0/4D0)* + & UH2/SH2) + FACGG2=COMFAC*AS**2*32D0/27D0*(TH/UH-(2D0+MSTP(34)*1D0/4D0)* + & TH2/SH2) + DO 1050 I=-5,5 + IF(I.EQ.0) GOTO 1050 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=121 + SIGH(NCHN)=FACQQB + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=131 + SIGH(NCHN)=0.5D0*FACGG1 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=132 + SIGH(NCHN)=0.5D0*FACGG2 + 1050 CONTINUE + +C...q + g -> q + g + FACQG1=COMFAC*AS**2*4D0/9D0*((2D0+MSTP(34)*1D0/4D0)*UH2/TH2- + & UH/SH)*FACA + FACQG2=COMFAC*AS**2*4D0/9D0*((2D0+MSTP(34)*1D0/4D0)*SH2/TH2- + & SH/UH) + DO 1070 I=-5,5 + IF(I.EQ.0) GOTO 1070 + DO 1060 ISDE=1,2 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=21 + ISIG(NCHN,3)=281 + SIGH(NCHN)=FACQG1 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=21 + ISIG(NCHN,3)=282 + SIGH(NCHN)=FACQG2 + 1060 CONTINUE + 1070 CONTINUE + +C...g + g -> q + qbar or g + g + FACQQ1=COMFAC*AS**2*1D0/6D0*(UH/TH-(2D0+MSTP(34)*1D0/4D0)* + & UH2/SH2)*(WDTE(0,1)+WDTE(0,2)+WDTE(0,3)+WDTE(0,4))*FACA + FACQQ2=COMFAC*AS**2*1D0/6D0*(TH/UH-(2D0+MSTP(34)*1D0/4D0)* + & TH2/SH2)*(WDTE(0,1)+WDTE(0,2)+WDTE(0,3)+WDTE(0,4))*FACA + FACGG1=COMFAC*AS**2*9D0/4D0*(SH2/TH2+2D0*SH/TH+3D0+ + & 2D0*TH/SH+TH2/SH2)*FACA + FACGG2=COMFAC*AS**2*9D0/4D0*(UH2/SH2+2D0*UH/SH+3D0+ + & 2D0*SH/UH+SH2/UH2)*FACA + FACGG3=COMFAC*AS**2*9D0/4D0*(TH2/UH2+2D0*TH/UH+3+ + & 2D0*UH/TH+UH2/TH2) + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=531 + SIGH(NCHN)=FACQQ1 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=532 + SIGH(NCHN)=FACQQ2 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=681 + SIGH(NCHN)=0.5D0*FACGG1 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=682 + SIGH(NCHN)=0.5D0*FACGG2 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=683 + SIGH(NCHN)=0.5D0*FACGG3 + + ELSEIF(ISUB.EQ.99) THEN +C...f + gamma* -> f. + IF(MINT(107).EQ.4) THEN + Q2GA=VINT(307) + P2GA=VINT(308) + ISDE=2 + ELSE + Q2GA=VINT(308) + P2GA=VINT(307) + ISDE=1 + ENDIF + COMFAC=PARU(5)*4D0*PARU(1)**2*PARU(101) + PM2RHO=PMAS(PYCOMP(113),1)**2 + IF(MSTP(19).EQ.0) THEN + COMFAC=COMFAC/Q2GA + ELSEIF(MSTP(19).EQ.1) THEN + COMFAC=COMFAC/(Q2GA+PM2RHO) + ELSEIF(MSTP(19).EQ.2) THEN + COMFAC=COMFAC*Q2GA/(Q2GA+PM2RHO)**2 + ELSE + COMFAC=COMFAC*Q2GA/(Q2GA+PM2RHO)**2 + W2GA=VINT(2) + IF(MINT(11).EQ.22.AND.MINT(12).EQ.22) THEN + RDRDS=4.1D-3*W2GA**2.167D0/((Q2GA+0.15D0*W2GA)**2* + & Q2GA**0.75D0)*(1D0+0.11D0*Q2GA*P2GA/(1D0+0.02D0*P2GA**2)) + XGA=Q2GA/(W2GA+VINT(307)+VINT(308)) + ELSE + RDRDS=1.5D-4*W2GA**2.167D0/((Q2GA+0.041D0*W2GA)**2* + & Q2GA**0.57D0) + XGA=Q2GA/(W2GA+Q2GA-PMAS(PYCOMP(MINT(10+ISDE)),1)**2) + ENDIF + COMFAC=COMFAC*EXP(-MAX(1D-10,RDRDS)) + IF(MSTP(19).EQ.4) COMFAC=COMFAC/MAX(1D-2,1D0-XGA) + ENDIF + DO 1075 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(ISDE,I).EQ.0) GOTO 1075 + IF(IABS(I).LT.10.AND.IABS(I).GT.MSTP(58)) GOTO 1075 + EI=KCHG(IABS(I),1)/3D0 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=COMFAC*EI**2 + 1075 CONTINUE + ENDIF + +C...E: 2 -> 1, loop diagrams + + ELSEIF(ISUB.LE.110) THEN + IF(ISUB.EQ.101) THEN +C...g + g -> gamma*/Z0 + + ELSEIF(ISUB.EQ.102) THEN +C...g + g -> h0 (or H0, or A0) + CALL PYWIDT(KFHIGG,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + HF=SHR*(WDTE(0,1)+WDTE(0,2)+WDTE(0,4)) + FACBW=4D0*COMFAC/((SH-SQMH)**2+HS**2) + IF(ABS(SHR-PMAS(KFHIGG,1)).GT.PARP(48)*PMAS(KFHIGG,2)) + & FACBW=0D0 + HI=SHR*WDTP(13)/32D0 + IF(KFAC(1,21)*KFAC(2,21).EQ.0) GOTO 1080 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=HI*FACBW*HF + 1080 CONTINUE + + ELSEIF(ISUB.EQ.103) THEN +C...gamma + gamma -> h0 (or H0, or A0) + CALL PYWIDT(KFHIGG,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + HF=SHR*(WDTE(0,1)+WDTE(0,2)+WDTE(0,4)) + FACBW=4D0*COMFAC/((SH-SQMH)**2+HS**2) + IF(ABS(SHR-PMAS(KFHIGG,1)).GT.PARP(48)*PMAS(KFHIGG,2)) + & FACBW=0D0 + HI=SHR*WDTP(14)*2D0 + IF(KFAC(1,22)*KFAC(2,22).EQ.0) GOTO 1090 + NCHN=NCHN+1 + ISIG(NCHN,1)=22 + ISIG(NCHN,2)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=HI*FACBW*HF + 1090 CONTINUE + + ELSEIF(ISUB.EQ.104) THEN +C...g + g -> chi_c0. + KC=PYCOMP(10441) + FACBW=COMFAC*12D0*AS**2*PARP(39)*PMAS(KC,2)/ + & ((SH-PMAS(KC,1)**2)**2+(PMAS(KC,1)*PMAS(KC,2))**2) + IF(ABS(SQRT(SH)-PMAS(KC,1)).GT.50D0*PMAS(KC,2)) FACBW=0D0 + IF(KFAC(1,21)*KFAC(2,21).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACBW + ENDIF + + ELSEIF(ISUB.EQ.105) THEN +C...g + g -> chi_c2. + KC=PYCOMP(445) + FACBW=COMFAC*16D0*AS**2*PARP(39)*PMAS(KC,2)/ + & ((SH-PMAS(KC,1)**2)**2+(PMAS(KC,1)*PMAS(KC,2))**2) + IF(ABS(SQRT(SH)-PMAS(KC,1)).GT.50D0*PMAS(KC,2)) FACBW=0D0 + IF(KFAC(1,21)*KFAC(2,21).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACBW + ENDIF + +C...Continuation C: 2 -> 2, tree diagrams with masses. + + ELSEIF(ISUB.EQ.106) THEN +C...g + g -> J/Psi + gamma. + EQ=2D0/3D0 + FACQQG=COMFAC*AEM*EQ**2*AS**2*(4D0/3D0)*PARP(38)*SQRT(SQM3)* + & (((SH*(SH-SQM3))**2+(TH*(TH-SQM3))**2+(UH*(UH-SQM3))**2)/ + & ((TH-SQM3)*(UH-SQM3))**2)/(SH-SQM3)**2 + IF(KFAC(1,21)*KFAC(2,21).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQG + ENDIF + + ELSEIF(ISUB.EQ.107) THEN +C...g + gamma -> J/Psi + g. + EQ=2D0/3D0 + FACQQG=COMFAC*AEM*EQ**2*AS**2*(32D0/3D0)*PARP(38)*SQRT(SQM3)* + & (((SH*(SH-SQM3))**2+(TH*(TH-SQM3))**2+(UH*(UH-SQM3))**2)/ + & ((TH-SQM3)*(UH-SQM3))**2)/(SH-SQM3)**2 + IF(KFAC(1,21)*KFAC(2,22).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQG + ENDIF + IF(KFAC(1,22)*KFAC(2,21).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=22 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQG + ENDIF + + ELSEIF(ISUB.EQ.108) THEN +C...gamma + gamma -> J/Psi + gamma. + EQ=2D0/3D0 + FACQQG=COMFAC*AEM**3*EQ**6*384D0*PARP(38)*SQRT(SQM3)* + & (((SH*(SH-SQM3))**2+(TH*(TH-SQM3))**2+(UH*(UH-SQM3))**2)/ + & ((TH-SQM3)*(UH-SQM3))**2)/(SH-SQM3)**2 + IF(KFAC(1,22)*KFAC(2,22).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=22 + ISIG(NCHN,2)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQG + ENDIF + +C...F: 2 -> 2, box diagrams + + ELSEIF(ISUB.EQ.110) THEN +C...f + fbar -> gamma + h0 + THUH=MAX(TH*UH,SH*CKIN(3)**2) + FACHG=COMFAC*(3D0*AEM**4)/(2D0*PARU(1)**2*XW*SQMW)*SH*THUH + FACHG=FACHG*WIDS(KFHIGG,2) +C...Calculate loop contributions for intermediate gamma* and Z0 + CIGTOT=CMPLX(0.,0.) + CIZTOT=CMPLX(0.,0.) + JMAX=3*MSTP(1)+1 + DO 1100 J=1,JMAX + IF(J.LE.2*MSTP(1)) THEN + FNC=1D0 + EJ=KCHG(J,1)/3D0 + AJ=SIGN(1D0,EJ+0.1D0) + VJ=AJ-4D0*EJ*XWV + BALP=SQM4/(2D0*PMAS(J,1))**2 + BBET=SH/(2D0*PMAS(J,1))**2 + ELSEIF(J.LE.3*MSTP(1)) THEN + FNC=3D0 + JL=2*(J-2*MSTP(1))-1 + EJ=KCHG(10+JL,1)/3D0 + AJ=SIGN(1D0,EJ+0.1D0) + VJ=AJ-4D0*EJ*XWV + BALP=SQM4/(2D0*PMAS(10+JL,1))**2 + BBET=SH/(2D0*PMAS(10+JL,1))**2 + ELSE + BALP=SQM4/(2D0*PMAS(24,1))**2 + BBET=SH/(2D0*PMAS(24,1))**2 + ENDIF + BABI=1D0/(BALP-BBET) + IF(BALP.LT.1D0) THEN + F0ALP=CMPLX(SNGL(ASIN(SQRT(BALP))),0.) + F1ALP=F0ALP**2 + ELSE + F0ALP=CMPLX(SNGL(LOG(SQRT(BALP)+SQRT(BALP-1D0))), + & -SNGL(0.5D0*PARU(1))) + F1ALP=-F0ALP**2 + ENDIF + F2ALP=SNGL(SQRT(ABS(BALP-1D0)/BALP))*F0ALP + IF(BBET.LT.1D0) THEN + F0BET=CMPLX(SNGL(ASIN(SQRT(BBET))),0.) + F1BET=F0BET**2 + ELSE + F0BET=CMPLX(SNGL(LOG(SQRT(BBET)+SQRT(BBET-1D0))), + & -SNGL(0.5D0*PARU(1))) + F1BET=-F0BET**2 + ENDIF + F2BET=SNGL(SQRT(ABS(BBET-1D0)/BBET))*F0BET + IF(J.LE.3*MSTP(1)) THEN + FIF=SNGL(0.5D0*BABI)+SNGL(BABI**2)*(SNGL(0.5D0*(1D0-BALP+ + & BBET))*(F1BET-F1ALP)+SNGL(BBET)*(F2BET-F2ALP)) + CIGTOT=CIGTOT+SNGL(FNC*EJ**2)*FIF + CIZTOT=CIZTOT+SNGL(FNC*EJ*VJ)*FIF + ELSE + TXW=XW/XW1 + CIGTOT=CIGTOT-0.5*(SNGL(BABI*(1.5D0+BALP))+SNGL(BABI**2)* + & (SNGL(1.5D0-3D0*BALP+4D0*BBET)*(F1BET-F1ALP)+ + & SNGL(BBET*(2D0*BALP+3D0))*(F2BET-F2ALP))) + CIZTOT=CIZTOT-SNGL(0.5D0*BABI*XW1)*(SNGL(5D0-TXW+2D0*BALP* + & (1D0-TXW))*(1.+SNGL(2D0*BABI*BBET)*(F2BET-F2ALP))+ + & SNGL(BABI*(4D0*BBET*(3D0-TXW)-(2D0*BALP-1D0)*(5D0-TXW)))* + & (F1BET-F1ALP)) + ENDIF + 1100 CONTINUE + CIGTOT=CIGTOT/SNGL(SH) + CIZTOT=CIZTOT*SNGL(XWC)/CMPLX(SNGL(SH-SQMZ),SNGL(GMMZ)) +C...Loop over initial flavours + DO 1110 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1110 + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI) + VI=AI-4D0*EI*XWV + FCOI=1D0 + IF(IABS(I).LE.10) FCOI=FACA/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACHG*FCOI*(ABS(SNGL(EI)*CIGTOT+SNGL(VI)* + & CIZTOT)**2+AI**2*ABS(CIZTOT)**2) + 1110 CONTINUE + + ENDIF + + ELSEIF(ISUB.LE.120) THEN + IF(ISUB.EQ.111) THEN +C...f + fbar -> g + h0 (q + qbar -> g + h0 only) + A5STUR=0D0 + A5STUI=0D0 + DO 1120 I=1,2*MSTP(1) + SQMQ=PMAS(I,1)**2 + EPSS=4D0*SQMQ/SH + EPSH=4D0*SQMQ/SQMH + CALL PYWAUX(1,EPSS,W1SR,W1SI) + CALL PYWAUX(1,EPSH,W1HR,W1HI) + CALL PYWAUX(2,EPSS,W2SR,W2SI) + CALL PYWAUX(2,EPSH,W2HR,W2HI) + A5STUR=A5STUR+EPSH*(1D0+SH/(TH+UH)*(W1SR-W1HR)+ + & (0.25D0-SQMQ/(TH+UH))*(W2SR-W2HR)) + A5STUI=A5STUI+EPSH*(SH/(TH+UH)*(W1SI-W1HI)+ + & (0.25D0-SQMQ/(TH+UH))*(W2SI-W2HI)) + 1120 CONTINUE + FACGH=COMFAC*FACA/(144D0*PARU(1)**2)*AEM/XW*AS**3*SQMH/SQMW* + & SQMH/SH*(UH**2+TH**2)/(UH+TH)**2*(A5STUR**2+A5STUI**2) + FACGH=FACGH*WIDS(25,2) + DO 1130 I=MMINA,MMAXA + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58).OR. + & KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1130 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACGH + 1130 CONTINUE + + ELSEIF(ISUB.EQ.112) THEN +C...f + g -> f + h0 (q + g -> q + h0 only) + A5TSUR=0D0 + A5TSUI=0D0 + DO 1140 I=1,2*MSTP(1) + SQMQ=PMAS(I,1)**2 + EPST=4D0*SQMQ/TH + EPSH=4D0*SQMQ/SQMH + CALL PYWAUX(1,EPST,W1TR,W1TI) + CALL PYWAUX(1,EPSH,W1HR,W1HI) + CALL PYWAUX(2,EPST,W2TR,W2TI) + CALL PYWAUX(2,EPSH,W2HR,W2HI) + A5TSUR=A5TSUR+EPSH*(1D0+TH/(SH+UH)*(W1TR-W1HR)+ + & (0.25D0-SQMQ/(SH+UH))*(W2TR-W2HR)) + A5TSUI=A5TSUI+EPSH*(TH/(SH+UH)*(W1TI-W1HI)+ + & (0.25D0-SQMQ/(SH+UH))*(W2TI-W2HI)) + 1140 CONTINUE + FACQH=COMFAC*FACA/(384D0*PARU(1)**2)*AEM/XW*AS**3*SQMH/SQMW* + & SQMH/(-TH)*(UH**2+SH**2)/(UH+SH)**2*(A5TSUR**2+A5TSUI**2) + FACQH=FACQH*WIDS(25,2) + DO 1160 I=MMINA,MMAXA + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58)) GOTO 1160 + DO 1150 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,21).EQ.0) GOTO 1150 + IF(ISDE.EQ.2.AND.KFAC(1,21)*KFAC(2,I).EQ.0) GOTO 1150 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQH + 1150 CONTINUE + 1160 CONTINUE + + ELSEIF(ISUB.EQ.113) THEN +C...g + g -> g + h0 + A2STUR=0D0 + A2STUI=0D0 + A2USTR=0D0 + A2USTI=0D0 + A2TUSR=0D0 + A2TUSI=0D0 + A4STUR=0D0 + A4STUI=0D0 + DO 1170 I=1,2*MSTP(1) + SQMQ=PMAS(I,1)**2 + EPSS=4D0*SQMQ/SH + EPST=4D0*SQMQ/TH + EPSU=4D0*SQMQ/UH + EPSH=4D0*SQMQ/SQMH + IF(EPSH.LT.1D-6) GOTO 1170 + CALL PYWAUX(1,EPSS,W1SR,W1SI) + CALL PYWAUX(1,EPST,W1TR,W1TI) + CALL PYWAUX(1,EPSU,W1UR,W1UI) + CALL PYWAUX(1,EPSH,W1HR,W1HI) + CALL PYWAUX(2,EPSS,W2SR,W2SI) + CALL PYWAUX(2,EPST,W2TR,W2TI) + CALL PYWAUX(2,EPSU,W2UR,W2UI) + CALL PYWAUX(2,EPSH,W2HR,W2HI) + CALL PYI3AU(EPSS,TH/UH,Y3STUR,Y3STUI) + CALL PYI3AU(EPSS,UH/TH,Y3SUTR,Y3SUTI) + CALL PYI3AU(EPST,SH/UH,Y3TSUR,Y3TSUI) + CALL PYI3AU(EPST,UH/SH,Y3TUSR,Y3TUSI) + CALL PYI3AU(EPSU,SH/TH,Y3USTR,Y3USTI) + CALL PYI3AU(EPSU,TH/SH,Y3UTSR,Y3UTSI) + CALL PYI3AU(EPSH,SQMH/SH*TH/UH,YHSTUR,YHSTUI) + CALL PYI3AU(EPSH,SQMH/SH*UH/TH,YHSUTR,YHSUTI) + CALL PYI3AU(EPSH,SQMH/TH*SH/UH,YHTSUR,YHTSUI) + CALL PYI3AU(EPSH,SQMH/TH*UH/SH,YHTUSR,YHTUSI) + CALL PYI3AU(EPSH,SQMH/UH*SH/TH,YHUSTR,YHUSTI) + CALL PYI3AU(EPSH,SQMH/UH*TH/SH,YHUTSR,YHUTSI) + W3STUR=YHSTUR-Y3STUR-Y3UTSR + W3STUI=YHSTUI-Y3STUI-Y3UTSI + W3SUTR=YHSUTR-Y3SUTR-Y3TUSR + W3SUTI=YHSUTI-Y3SUTI-Y3TUSI + W3TSUR=YHTSUR-Y3TSUR-Y3USTR + W3TSUI=YHTSUI-Y3TSUI-Y3USTI + W3TUSR=YHTUSR-Y3TUSR-Y3SUTR + W3TUSI=YHTUSI-Y3TUSI-Y3SUTI + W3USTR=YHUSTR-Y3USTR-Y3TSUR + W3USTI=YHUSTI-Y3USTI-Y3TSUI + W3UTSR=YHUTSR-Y3UTSR-Y3STUR + W3UTSI=YHUTSI-Y3UTSI-Y3STUI + B2STUR=SQMQ/SQMH**2*(SH*(UH-SH)/(SH+UH)+2D0*TH*UH* + & (UH+2D0*SH)/(SH+UH)**2*(W1TR-W1HR)+(SQMQ-SH/4D0)* + & (0.5D0*W2SR+0.5D0*W2HR-W2TR+W3STUR)+SH2*(2D0*SQMQ/ + & (SH+UH)**2-0.5D0/(SH+UH))*(W2TR-W2HR)+0.5D0*TH*UH/SH* + & (W2HR-2D0*W2TR)+0.125D0*(SH-12D0*SQMQ-4D0*TH*UH/SH)*W3TSUR) + B2STUI=SQMQ/SQMH**2*(2D0*TH*UH*(UH+2D0*SH)/(SH+UH)**2* + & (W1TI-W1HI)+(SQMQ-SH/4D0)*(0.5D0*W2SI+0.5D0*W2HI-W2TI+ + & W3STUI)+SH2*(2D0*SQMQ/(SH+UH)**2-0.5D0/(SH+UH))* + & (W2TI-W2HI)+0.5D0*TH*UH/SH*(W2HI-2D0*W2TI)+0.125D0* + & (SH-12D0*SQMQ-4D0*TH*UH/SH)*W3TSUI) + B2SUTR=SQMQ/SQMH**2*(SH*(TH-SH)/(SH+TH)+2D0*UH*TH* + & (TH+2D0*SH)/(SH+TH)**2*(W1UR-W1HR)+(SQMQ-SH/4D0)* + & (0.5D0*W2SR+0.5D0*W2HR-W2UR+W3SUTR)+SH2*(2D0*SQMQ/ + & (SH+TH)**2-0.5D0/(SH+TH))*(W2UR-W2HR)+0.5D0*UH*TH/SH* + & (W2HR-2D0*W2UR)+0.125D0*(SH-12D0*SQMQ-4D0*UH*TH/SH)*W3USTR) + B2SUTI=SQMQ/SQMH**2*(2D0*UH*TH*(TH+2D0*SH)/(SH+TH)**2* + & (W1UI-W1HI)+(SQMQ-SH/4D0)*(0.5D0*W2SI+0.5D0*W2HI-W2UI+ + & W3SUTI)+SH2*(2D0*SQMQ/(SH+TH)**2-0.5D0/(SH+TH))* + & (W2UI-W2HI)+0.5D0*UH*TH/SH*(W2HI-2D0*W2UI)+0.125D0* + & (SH-12D0*SQMQ-4D0*UH*TH/SH)*W3USTI) + B2TSUR=SQMQ/SQMH**2*(TH*(UH-TH)/(TH+UH)+2D0*SH*UH* + & (UH+2D0*TH)/(TH+UH)**2*(W1SR-W1HR)+(SQMQ-TH/4D0)* + & (0.5D0*W2TR+0.5D0*W2HR-W2SR+W3TSUR)+TH2*(2D0*SQMQ/ + & (TH+UH)**2-0.5D0/(TH+UH))*(W2SR-W2HR)+0.5D0*SH*UH/TH* + & (W2HR-2D0*W2SR)+0.125D0*(TH-12D0*SQMQ-4D0*SH*UH/TH)*W3STUR) + B2TSUI=SQMQ/SQMH**2*(2D0*SH*UH*(UH+2D0*TH)/(TH+UH)**2* + & (W1SI-W1HI)+(SQMQ-TH/4D0)*(0.5D0*W2TI+0.5D0*W2HI-W2SI+ + & W3TSUI)+TH2*(2D0*SQMQ/(TH+UH)**2-0.5D0/(TH+UH))* + & (W2SI-W2HI)+0.5D0*SH*UH/TH*(W2HI-2D0*W2SI)+0.125D0* + & (TH-12D0*SQMQ-4D0*SH*UH/TH)*W3STUI) + B2TUSR=SQMQ/SQMH**2*(TH*(SH-TH)/(TH+SH)+2D0*UH*SH* + & (SH+2D0*TH)/(TH+SH)**2*(W1UR-W1HR)+(SQMQ-TH/4D0)* + & (0.5D0*W2TR+0.5D0*W2HR-W2UR+W3TUSR)+TH2*(2D0*SQMQ/ + & (TH+SH)**2-0.5D0/(TH+SH))*(W2UR-W2HR)+0.5D0*UH*SH/TH* + & (W2HR-2D0*W2UR)+0.125D0*(TH-12D0*SQMQ-4D0*UH*SH/TH)*W3UTSR) + B2TUSI=SQMQ/SQMH**2*(2D0*UH*SH*(SH+2D0*TH)/(TH+SH)**2* + & (W1UI-W1HI)+(SQMQ-TH/4D0)*(0.5D0*W2TI+0.5D0*W2HI-W2UI+ + & W3TUSI)+TH2*(2D0*SQMQ/(TH+SH)**2-0.5D0/(TH+SH))* + & (W2UI-W2HI)+0.5D0*UH*SH/TH*(W2HI-2D0*W2UI)+0.125D0* + & (TH-12D0*SQMQ-4D0*UH*SH/TH)*W3UTSI) + B2USTR=SQMQ/SQMH**2*(UH*(TH-UH)/(UH+TH)+2D0*SH*TH* + & (TH+2D0*UH)/(UH+TH)**2*(W1SR-W1HR)+(SQMQ-UH/4D0)* + & (0.5D0*W2UR+0.5D0*W2HR-W2SR+W3USTR)+UH2*(2D0*SQMQ/ + & (UH+TH)**2-0.5D0/(UH+TH))*(W2SR-W2HR)+0.5D0*SH*TH/UH* + & (W2HR-2D0*W2SR)+0.125D0*(UH-12D0*SQMQ-4D0*SH*TH/UH)*W3SUTR) + B2USTI=SQMQ/SQMH**2*(2D0*SH*TH*(TH+2D0*UH)/(UH+TH)**2* + & (W1SI-W1HI)+(SQMQ-UH/4D0)*(0.5D0*W2UI+0.5D0*W2HI-W2SI+ + & W3USTI)+UH2*(2D0*SQMQ/(UH+TH)**2-0.5D0/(UH+TH))* + & (W2SI-W2HI)+0.5D0*SH*TH/UH*(W2HI-2D0*W2SI)+0.125D0* + & (UH-12D0*SQMQ-4D0*SH*TH/UH)*W3SUTI) + B2UTSR=SQMQ/SQMH**2*(UH*(SH-UH)/(UH+SH)+2D0*TH*SH* + & (SH+2D0*UH)/(UH+SH)**2*(W1TR-W1HR)+(SQMQ-UH/4D0)* + & (0.5D0*W2UR+0.5D0*W2HR-W2TR+W3UTSR)+UH2*(2D0*SQMQ/ + & (UH+SH)**2-0.5D0/(UH+SH))*(W2TR-W2HR)+0.5D0*TH*SH/UH* + & (W2HR-2D0*W2TR)+0.125D0*(UH-12D0*SQMQ-4D0*TH*SH/UH)*W3TUSR) + B2UTSI=SQMQ/SQMH**2*(2D0*TH*SH*(SH+2D0*UH)/(UH+SH)**2* + & (W1TI-W1HI)+(SQMQ-UH/4D0)*(0.5D0*W2UI+0.5D0*W2HI-W2TI+ + & W3UTSI)+UH2*(2D0*SQMQ/(UH+SH)**2-0.5D0/(UH+SH))* + & (W2TI-W2HI)+0.5D0*TH*SH/UH*(W2HI-2D0*W2TI)+0.125D0* + & (UH-12D0*SQMQ-4D0*TH*SH/UH)*W3TUSI) + B4STUR=0.25D0*EPSH*(-2D0/3D0+0.25D0*(EPSH-1D0)* + & (W2SR-W2HR+W3STUR)) + B4STUI=0.25D0*EPSH*0.25D0*(EPSH-1D0)*(W2SI-W2HI+W3STUI) + B4TUSR=0.25D0*EPSH*(-2D0/3D0+0.25D0*(EPSH-1D0)* + & (W2TR-W2HR+W3TUSR)) + B4TUSI=0.25D0*EPSH*0.25D0*(EPSH-1D0)*(W2TI-W2HI+W3TUSI) + B4USTR=0.25D0*EPSH*(-2D0/3D0+0.25D0*(EPSH-1D0)* + & (W2UR-W2HR+W3USTR)) + B4USTI=0.25D0*EPSH*0.25D0*(EPSH-1D0)*(W2UI-W2HI+W3USTI) + A2STUR=A2STUR+B2STUR+B2SUTR + A2STUI=A2STUI+B2STUI+B2SUTI + A2USTR=A2USTR+B2USTR+B2UTSR + A2USTI=A2USTI+B2USTI+B2UTSI + A2TUSR=A2TUSR+B2TUSR+B2TSUR + A2TUSI=A2TUSI+B2TUSI+B2TSUI + A4STUR=A4STUR+B4STUR+B4USTR+B4TUSR + A4STUI=A4STUI+B4STUI+B4USTI+B4TUSI + 1170 CONTINUE + FACGH=COMFAC*FACA*3D0/(128D0*PARU(1)**2)*AEM/XW*AS**3* + & SQMH/SQMW*SQMH**3/(SH*TH*UH)*(A2STUR**2+A2STUI**2+A2USTR**2+ + & A2USTI**2+A2TUSR**2+A2TUSI**2+A4STUR**2+A4STUI**2) + FACGH=FACGH*WIDS(25,2) + IF(KFAC(1,21)*KFAC(2,21).EQ.0) GOTO 1180 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACGH + 1180 CONTINUE + + ELSEIF(ISUB.EQ.114.OR.ISUB.EQ.115) THEN +C...g + g -> gamma + gamma or g + g -> g + gamma + A0STUR=0D0 + A0STUI=0D0 + A0TSUR=0D0 + A0TSUI=0D0 + A0UTSR=0D0 + A0UTSI=0D0 + A1STUR=0D0 + A1STUI=0D0 + A2STUR=0D0 + A2STUI=0D0 + ALST=LOG(-SH/TH) + ALSU=LOG(-SH/UH) + ALTU=LOG(TH/UH) + IMAX=2*MSTP(1) + IF(MSTP(38).GE.1.AND.MSTP(38).LE.8) IMAX=MSTP(38) + DO 1190 I=1,IMAX + EI=KCHG(IABS(I),1)/3D0 + EIWT=EI**2 + IF(ISUB.EQ.115) EIWT=EI + SQMQ=PMAS(I,1)**2 + EPSS=4D0*SQMQ/SH + EPST=4D0*SQMQ/TH + EPSU=4D0*SQMQ/UH + IF((MSTP(38).GE.1.AND.MSTP(38).LE.8).OR.EPSS.LT.1D-4) THEN + B0STUR=1D0+(TH-UH)/SH*ALTU+0.5D0*(TH2+UH2)/SH2*(ALTU**2+ + & PARU(1)**2) + B0STUI=0D0 + B0TSUR=1D0+(SH-UH)/TH*ALSU+0.5D0*(SH2+UH2)/TH2*ALSU**2 + B0TSUI=-PARU(1)*((SH-UH)/TH+(SH2+UH2)/TH2*ALSU) + B0UTSR=1D0+(SH-TH)/UH*ALST+0.5D0*(SH2+TH2)/UH2*ALST**2 + B0UTSI=-PARU(1)*((SH-TH)/UH+(SH2+TH2)/UH2*ALST) + B1STUR=-1D0 + B1STUI=0D0 + B2STUR=-1D0 + B2STUI=0D0 + ELSE + CALL PYWAUX(1,EPSS,W1SR,W1SI) + CALL PYWAUX(1,EPST,W1TR,W1TI) + CALL PYWAUX(1,EPSU,W1UR,W1UI) + CALL PYWAUX(2,EPSS,W2SR,W2SI) + CALL PYWAUX(2,EPST,W2TR,W2TI) + CALL PYWAUX(2,EPSU,W2UR,W2UI) + CALL PYI3AU(EPSS,TH/UH,Y3STUR,Y3STUI) + CALL PYI3AU(EPSS,UH/TH,Y3SUTR,Y3SUTI) + CALL PYI3AU(EPST,SH/UH,Y3TSUR,Y3TSUI) + CALL PYI3AU(EPST,UH/SH,Y3TUSR,Y3TUSI) + CALL PYI3AU(EPSU,SH/TH,Y3USTR,Y3USTI) + CALL PYI3AU(EPSU,TH/SH,Y3UTSR,Y3UTSI) + B0STUR=1D0+(1D0+2D0*TH/SH)*W1TR+(1D0+2D0*UH/SH)*W1UR+ + & 0.5D0*((TH2+UH2)/SH2-EPSS)*(W2TR+W2UR)- + & 0.25D0*EPST*(1D0-0.5D0*EPSS)*(Y3SUTR+Y3TUSR)- + & 0.25D0*EPSU*(1D0-0.5D0*EPSS)*(Y3STUR+Y3UTSR)+ + & 0.25D0*(-2D0*(TH2+UH2)/SH2+4D0*EPSS+EPST+EPSU+ + & 0.5D0*EPST*EPSU)*(Y3TSUR+Y3USTR) + B0STUI=(1D0+2D0*TH/SH)*W1TI+(1D0+2D0*UH/SH)*W1UI+ + & 0.5D0*((TH2+UH2)/SH2-EPSS)*(W2TI+W2UI)- + & 0.25D0*EPST*(1D0-0.5D0*EPSS)*(Y3SUTI+Y3TUSI)- + & 0.25D0*EPSU*(1D0-0.5D0*EPSS)*(Y3STUI+Y3UTSI)+ + & 0.25D0*(-2D0*(TH2+UH2)/SH2+4D0*EPSS+EPST+EPSU+ + & 0.5D0*EPST*EPSU)*(Y3TSUI+Y3USTI) + B0TSUR=1D0+(1D0+2D0*SH/TH)*W1SR+(1D0+2D0*UH/TH)*W1UR+ + & 0.5D0*((SH2+UH2)/TH2-EPST)*(W2SR+W2UR)- + & 0.25D0*EPSS*(1D0-0.5D0*EPST)*(Y3TUSR+Y3SUTR)- + & 0.25D0*EPSU*(1D0-0.5D0*EPST)*(Y3TSUR+Y3USTR)+ + & 0.25D0*(-2D0*(SH2+UH2)/TH2+4D0*EPST+EPSS+EPSU+ + & 0.5D0*EPSS*EPSU)*(Y3STUR+Y3UTSR) + B0TSUI=(1D0+2D0*SH/TH)*W1SI+(1D0+2D0*UH/TH)*W1UI+ + & 0.5D0*((SH2+UH2)/TH2-EPST)*(W2SI+W2UI)- + & 0.25D0*EPSS*(1D0-0.5D0*EPST)*(Y3TUSI+Y3SUTI)- + & 0.25D0*EPSU*(1D0-0.5D0*EPST)*(Y3TSUI+Y3USTI)+ + & 0.25D0*(-2D0*(SH2+UH2)/TH2+4D0*EPST+EPSS+EPSU+ + & 0.5D0*EPSS*EPSU)*(Y3STUI+Y3UTSI) + B0UTSR=1D0+(1D0+2D0*TH/UH)*W1TR+(1D0+2D0*SH/UH)*W1SR+ + & 0.5D0*((TH2+SH2)/UH2-EPSU)*(W2TR+W2SR)- + & 0.25D0*EPST*(1D0-0.5D0*EPSU)*(Y3USTR+Y3TSUR)- + & 0.25D0*EPSS*(1D0-0.5D0*EPSU)*(Y3UTSR+Y3STUR)+ + & 0.25D0*(-2D0*(TH2+SH2)/UH2+4D0*EPSU+EPST+EPSS+ + & 0.5D0*EPST*EPSS)*(Y3TUSR+Y3SUTR) + B0UTSI=(1D0+2D0*TH/UH)*W1TI+(1D0+2D0*SH/UH)*W1SI+ + & 0.5D0*((TH2+SH2)/UH2-EPSU)*(W2TI+W2SI)- + & 0.25D0*EPST*(1D0-0.5D0*EPSU)*(Y3USTI+Y3TSUI)- + & 0.25D0*EPSS*(1D0-0.5D0*EPSU)*(Y3UTSI+Y3STUI)+ + & 0.25D0*(-2D0*(TH2+SH2)/UH2+4D0*EPSU+EPST+EPSS+ + & 0.5D0*EPST*EPSS)*(Y3TUSI+Y3SUTI) + B1STUR=-1D0-0.25D0*(EPSS+EPST+EPSU)*(W2SR+W2TR+W2UR)+ + & 0.25D0*(EPSU+0.5D0*EPSS*EPST)*(Y3SUTR+Y3TUSR)+ + & 0.25D0*(EPST+0.5D0*EPSS*EPSU)*(Y3STUR+Y3UTSR)+ + & 0.25D0*(EPSS+0.5D0*EPST*EPSU)*(Y3TSUR+Y3USTR) + B1STUI=-0.25D0*(EPSS+EPST+EPSU)*(W2SI+W2TI+W2UI)+ + & 0.25D0*(EPSU+0.5D0*EPSS*EPST)*(Y3SUTI+Y3TUSI)+ + & 0.25D0*(EPST+0.5D0*EPSS*EPSU)*(Y3STUI+Y3UTSI)+ + & 0.25D0*(EPSS+0.5D0*EPST*EPSU)*(Y3TSUI+Y3USTI) + B2STUR=-1D0+0.125D0*EPSS*EPST*(Y3SUTR+Y3TUSR)+ + & 0.125D0*EPSS*EPSU*(Y3STUR+Y3UTSR)+ + & 0.125D0*EPST*EPSU*(Y3TSUR+Y3USTR) + B2STUI=0.125D0*EPSS*EPST*(Y3SUTI+Y3TUSI)+ + & 0.125D0*EPSS*EPSU*(Y3STUI+Y3UTSI)+ + & 0.125D0*EPST*EPSU*(Y3TSUI+Y3USTI) + ENDIF + A0STUR=A0STUR+EIWT*B0STUR + A0STUI=A0STUI+EIWT*B0STUI + A0TSUR=A0TSUR+EIWT*B0TSUR + A0TSUI=A0TSUI+EIWT*B0TSUI + A0UTSR=A0UTSR+EIWT*B0UTSR + A0UTSI=A0UTSI+EIWT*B0UTSI + A1STUR=A1STUR+EIWT*B1STUR + A1STUI=A1STUI+EIWT*B1STUI + A2STUR=A2STUR+EIWT*B2STUR + A2STUI=A2STUI+EIWT*B2STUI + 1190 CONTINUE + ASQSUM=A0STUR**2+A0STUI**2+A0TSUR**2+A0TSUI**2+A0UTSR**2+ + & A0UTSI**2+4D0*A1STUR**2+4D0*A1STUI**2+A2STUR**2+A2STUI**2 + FACGG=COMFAC*FACA/(16D0*PARU(1)**2)*AS**2*AEM**2*ASQSUM + FACGP=COMFAC*FACA*5D0/(192D0*PARU(1)**2)*AS**3*AEM*ASQSUM + IF(KFAC(1,21)*KFAC(2,21).EQ.0) GOTO 1200 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + IF(ISUB.EQ.114) SIGH(NCHN)=0.5D0*FACGG + IF(ISUB.EQ.115) SIGH(NCHN)=FACGP + 1200 CONTINUE + + ELSEIF(ISUB.EQ.116) THEN +C...g + g -> gamma + Z0 + + ELSEIF(ISUB.EQ.117) THEN +C...g + g -> Z0 + Z0 + + ELSEIF(ISUB.EQ.118) THEN +C...g + g -> W+ + W- + + ENDIF + +C...G: 2 -> 3, tree diagrams + + ELSEIF(ISUB.LE.140) THEN + IF(ISUB.EQ.121) THEN +C...g + g -> Q + Qbar + h0 + IF(KFAC(1,21)*KFAC(2,21).EQ.0) GOTO 1210 + IA=KFPR(ISUBSV,2) + PMF=PYMRUN(IA,SH) + FACQQH=COMFAC*(4D0*PARU(1)*AEM/XW)*(4D0*PARU(1)*AS)**2* + & (0.5D0*PMF/PMAS(24,1))**2 + WID2=1D0 + IF(IA.EQ.6.OR.IA.EQ.7.OR.IA.EQ.8) WID2=WIDS(IA,1) + FACQQH=FACQQH*WID2 + IF(MSTP(4).GE.1.OR.IHIGG.GE.2) THEN + IKFI=1 + IF(IA.LE.10.AND.MOD(IA,2).EQ.0) IKFI=2 + IF(IA.GT.10) IKFI=3 + FACQQH=FACQQH*PARU(150+10*IHIGG+IKFI)**2 + ENDIF + CALL PYQQBH(WTQQBH) + CALL PYWIDT(KFHIGG,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + HF=SHR*(WDTE(0,1)+WDTE(0,2)+WDTE(0,4)) + FACBW=(1D0/PARU(1))*VINT(2)*HF/((SH-SQMH)**2+HS**2) + IF(ABS(SHR-PMAS(KFHIGG,1)).GT.PARP(48)*PMAS(KFHIGG,2)) + & FACBW=0D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQH*WTQQBH*FACBW + 1210 CONTINUE + + ELSEIF(ISUB.EQ.122) THEN +C...q + qbar -> Q + Qbar + h0 + IA=KFPR(ISUBSV,2) + PMF=PYMRUN(IA,SH) + FACQQH=COMFAC*(4D0*PARU(1)*AEM/XW)*(4D0*PARU(1)*AS)**2* + & (0.5D0*PMF/PMAS(24,1))**2 + WID2=1D0 + IF(IA.EQ.6.OR.IA.EQ.7.OR.IA.EQ.8) WID2=WIDS(IA,1) + FACQQH=FACQQH*WID2 + IF(MSTP(4).GE.1.OR.IHIGG.GE.2) THEN + IKFI=1 + IF(IA.LE.10.AND.MOD(IA,2).EQ.0) IKFI=2 + IF(IA.GT.10) IKFI=3 + FACQQH=FACQQH*PARU(150+10*IHIGG+IKFI)**2 + ENDIF + CALL PYQQBH(WTQQBH) + CALL PYWIDT(KFHIGG,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + HF=SHR*(WDTE(0,1)+WDTE(0,2)+WDTE(0,4)) + FACBW=(1D0/PARU(1))*VINT(2)*HF/((SH-SQMH)**2+HS**2) + IF(ABS(SHR-PMAS(KFHIGG,1)).GT.PARP(48)*PMAS(KFHIGG,2)) + & FACBW=0D0 + DO 1220 I=MMINA,MMAXA + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58).OR. + & KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1220 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQH*WTQQBH*FACBW + 1220 CONTINUE + + ELSEIF(ISUB.EQ.123) THEN +C...f + f' -> f + f' + h0 (or H0, or A0) (Z0 + Z0 -> h0 as +C...inner process) + FACNOR=COMFAC*(4D0*PARU(1)*AEM/(XW*XW1))**3*SQMZ/32D0 + IF(MSTP(4).GE.1.OR.IHIGG.GE.2) FACNOR=FACNOR* + & PARU(154+10*IHIGG)**2 + FACPRP=1D0/((VINT(215)-VINT(204)**2)* + & (VINT(216)-VINT(209)**2))**2 + FACZZ1=FACNOR*FACPRP*(0.5D0*TAUP*VINT(2))*VINT(219) + FACZZ2=FACNOR*FACPRP*VINT(217)*VINT(218) + CALL PYWIDT(KFHIGG,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + HF=SHR*(WDTE(0,1)+WDTE(0,2)+WDTE(0,4)) + FACBW=(1D0/PARU(1))*VINT(2)*HF/((SH-SQMH)**2+HS**2) + IF(ABS(SHR-PMAS(KFHIGG,1)).GT.PARP(48)*PMAS(KFHIGG,2)) + & FACBW=0D0 + DO 1240 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 1240 + IA=IABS(I) + DO 1230 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 1230 + JA=IABS(J) + EI=KCHG(IA,1)*ISIGN(1,I)/3D0 + AI=SIGN(1D0,KCHG(IA,1)+0.5D0)*ISIGN(1,I) + VI=AI-4D0*EI*XWV + EJ=KCHG(JA,1)*ISIGN(1,J)/3D0 + AJ=SIGN(1D0,KCHG(JA,1)+0.5D0)*ISIGN(1,J) + VJ=AJ-4D0*EJ*XWV + FACLR1=(VI**2+AI**2)*(VJ**2+AJ**2)+4D0*VI*AI*VJ*AJ + FACLR2=(VI**2+AI**2)*(VJ**2+AJ**2)-4D0*VI*AI*VJ*AJ + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=(FACLR1*FACZZ1+FACLR2*FACZZ2)*FACBW + 1230 CONTINUE + 1240 CONTINUE + + ELSEIF(ISUB.EQ.124) THEN +C...f + f' -> f" + f"' + h0 (or H0, or A0) (W+ + W- -> h0 as +C...inner process) + FACNOR=COMFAC*(4D0*PARU(1)*AEM/XW)**3*SQMW + IF(MSTP(4).GE.1.OR.IHIGG.GE.2) FACNOR=FACNOR* + & PARU(155+10*IHIGG)**2 + FACPRP=1D0/((VINT(215)-VINT(204)**2)* + & (VINT(216)-VINT(209)**2))**2 + FACWW=FACNOR*FACPRP*(0.5D0*TAUP*VINT(2))*VINT(219) + CALL PYWIDT(KFHIGG,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + HF=SHR*(WDTE(0,1)+WDTE(0,2)+WDTE(0,4)) + FACBW=(1D0/PARU(1))*VINT(2)*HF/((SH-SQMH)**2+HS**2) + IF(ABS(SHR-PMAS(KFHIGG,1)).GT.PARP(48)*PMAS(KFHIGG,2)) + & FACBW=0D0 + DO 1260 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 1260 + EI=SIGN(1D0,DBLE(I))*KCHG(IABS(I),1) + DO 1250 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 1250 + EJ=SIGN(1D0,DBLE(J))*KCHG(IABS(J),1) + IF(EI*EJ.GT.0D0) GOTO 1250 + FACLR=VINT(180+I)*VINT(180+J) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACLR*FACWW*FACBW + 1250 CONTINUE + 1260 CONTINUE + + ELSEIF(ISUB.EQ.131.OR.ISUB.EQ.132) THEN +C...f + gamma*_(T,L) -> f + g (q + gamma*_(T,L) -> q + g only) + PH=0D0 + IF(MINT(15).EQ.22.AND.MINT(107).EQ.0.AND.VINT(3).LT.0D0) + & PH=VINT(3)**2 + IF(MINT(16).EQ.22.AND.MINT(108).EQ.0.AND.VINT(4).LT.0D0) + & PH=VINT(4)**2 + IF(ISUB.EQ.131) THEN + FGQ=COMFAC*AS*AEM*8D0/3D0*SH**2/(SH+PH)**2* + & ((SH2+UH2-2D0*PH*TH)/(-SH*UH)-2D0*PH*TH/(SH+PH)**2) + ELSE + FGQ=COMFAC*AS*AEM*8D0/3D0*SH**2/(SH+PH)**4*(-4D0*PH*TH) + ENDIF + DO 1280 I=MMINA,MMAXA + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58)) GOTO 1280 + EI=KCHG(IABS(I),1)/3D0 + FACGQ=FGQ*EI**2 + DO 1270 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,22).EQ.0) GOTO 1270 + IF(ISDE.EQ.2.AND.KFAC(1,22)*KFAC(2,I).EQ.0) GOTO 1270 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACGQ + 1270 CONTINUE + 1280 CONTINUE + + ELSEIF(ISUB.EQ.133.OR.ISUB.EQ.134) THEN +C...f + gamma*_(T,L) -> f + gamma + PH=0D0 + IF(MINT(15).EQ.22.AND.MINT(107).EQ.0.AND.VINT(3).LT.0D0) + & PH=VINT(3)**2 + IF(MINT(16).EQ.22.AND.MINT(108).EQ.0.AND.VINT(4).LT.0D0) + & PH=VINT(4)**2 + IF(ISUB.EQ.133) THEN + FGQ=COMFAC*AEM**2*2D0*SH**2/(SH+PH)**2* + & ((SH2+UH2-2D0*PH*TH)/(-SH*UH)-2D0*PH*TH/(SH+PH)**2) + ELSE + FGQ=COMFAC*AEM**2*2D0*SH**2/(SH+PH)**4*(-4D0*PH*TH) + ENDIF + DO 1300 I=MMINA,MMAXA + IF(I.EQ.0) GOTO 1300 + EI=KCHG(IABS(I),1)/3D0 + FACGQ=FGQ*EI**4 + DO 1290 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,22).EQ.0) GOTO 1290 + IF(ISDE.EQ.2.AND.KFAC(1,22)*KFAC(2,I).EQ.0) GOTO 1290 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACGQ + 1290 CONTINUE + 1300 CONTINUE + + ELSEIF(ISUB.EQ.135.OR.ISUB.EQ.136) THEN +C...g + gamma*_(T,L) -> f + fbar (g + gamma*_(T,L) -> q + qbar only) + PH=0D0 + IF(MINT(15).EQ.22.AND.MINT(107).EQ.0.AND.VINT(3).LT.0D0) + & PH=VINT(3)**2 + IF(MINT(16).EQ.22.AND.MINT(108).EQ.0.AND.VINT(4).LT.0D0) + & PH=VINT(4)**2 + CALL PYWIDT(21,SH,WDTP,WDTE) + WDTESU=0D0 + DO 1310 I=1,MIN(8,MDCY(21,3)) + EF=KCHG(I,1)/3D0 + WDTESU=WDTESU+EF**2*(WDTE(I,1)+WDTE(I,2)+WDTE(I,3)+ + & WDTE(I,4)) + 1310 CONTINUE + IF(ISUB.EQ.135) THEN + FACQQ=COMFAC*AEM*AS*WDTESU*SH**2/(SH+PH)**2* + & ((TH2+UH2-2D0*PH*SH)/(TH*UH)+4D0*PH*SH/(SH+PH)**2) + ELSE + FACQQ=COMFAC*AEM*AS*WDTESU*SH**2/(SH+PH)**4*8D0*PH*SH + ENDIF + IF(KFAC(1,21)*KFAC(2,22).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ + ENDIF + IF(KFAC(1,22)*KFAC(2,21).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=22 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ + ENDIF + + ELSEIF(ISUB.GE.137.AND.ISUB.LE.140) THEN +C...gamma*_(T,L) + gamma*_(T,L) -> f + fbar + PH1=0D0 + IF(VINT(3).LT.0D0) PH1=VINT(3)**2 + PH2=0D0 + IF(VINT(4).LT.0D0) PH2=VINT(4)**2 + CALL PYWIDT(22,SH,WDTP,WDTE) + WDTESU=0D0 + DO 1320 I=1,MIN(12,MDCY(22,3)) + IF(I.LE.8) EF= KCHG(I,1)/3D0 + IF(I.GE.9) EF= KCHG(9+2*(I-8),1)/3D0 + WDTESU=WDTESU+EF**2*(WDTE(I,1)+WDTE(I,2)+WDTE(I,3)+ + & WDTE(I,4)) + 1320 CONTINUE + DLAMB2=(TH+UH)**2-4D0*PH1*PH2 + IF(ISUB.EQ.137) THEN + FPARAM=-SH*(TH+UH)/DLAMB2 + FACFF=COMFAC*AEM**2*WDTESU*2D0*SH2/(DLAMB2*TH2*UH2)* + & (TH*UH-PH1*PH2)*((TH2+UH2)*(1D0-2D0*FPARAM*(1D0-FPARAM))- + & 2D0*PH1*PH2*FPARAM**2) + ELSEIF(ISUB.EQ.138) THEN + FACFF=COMFAC*AEM**2*WDTESU*4D0*SH2*SH/(DLAMB2**2*TH2*UH2)* + & PH2*(4D0*(TH*UH-PH1*PH2)*(TH*UH+PH1*SH*(TH-UH)**2/DLAMB2)+ + & 2D0*PH1**2*(TH-UH)**2) + ELSEIF(ISUB.EQ.139) THEN + FACFF=COMFAC*AEM**2*WDTESU*4D0*SH2*SH/(DLAMB2**2*TH2*UH2)* + & PH1*(4D0*(TH*UH-PH1*PH2)*(TH*UH+PH2*SH*(TH-UH)**2/DLAMB2)+ + & 2D0*PH2**2*(TH-UH)**2) + ELSE + FACFF=COMFAC*AEM**2*WDTESU*32D0*SH2**2/(DLAMB2**3*TH2*UH2)* + & PH1*PH2*(TH*UH-PH1*PH2)*(TH-UH)**2 + ENDIF + IF(KFAC(1,22)*KFAC(2,22).NE.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=22 + ISIG(NCHN,2)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACFF + ENDIF + + ENDIF + +C...H: 2 -> 1, tree diagrams, non-standard model processes + + ELSEIF(ISUB.LE.160) THEN + IF(ISUB.EQ.141) THEN +C...f + fbar -> gamma*/Z0/Z'0 + SQMZP=PMAS(32,1)**2 + MINT(61)=2 + CALL PYWIDT(32,SH,WDTP,WDTE) + HP0=AEM/3D0*SH + HP1=AEM/3D0*XWC*SH + HP2=HP1 + HS=SHR*VINT(117) + HSP=SHR*WDTP(0) + FACZP=4D0*COMFAC*3D0 + DO 1330 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1330 + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI) + VI=AI-4D0*EI*XWV + IA=IABS(I) + IF(IA.LT.10) THEN + IF(IA.LE.2) THEN + VPI=PARU(123-2*MOD(IABS(I),2)) + API=PARU(124-2*MOD(IABS(I),2)) + ELSEIF(IA.LE.4) THEN + VPI=PARJ(182-2*MOD(IABS(I),2)) + API=PARJ(183-2*MOD(IABS(I),2)) + ELSE + VPI=PARJ(190-2*MOD(IABS(I),2)) + API=PARJ(191-2*MOD(IABS(I),2)) + ENDIF + ELSE + IF(IA.LE.12) THEN + VPI=PARU(127-2*MOD(IABS(I),2)) + API=PARU(128-2*MOD(IABS(I),2)) + ELSEIF(IA.LE.14) THEN + VPI=PARJ(186-2*MOD(IABS(I),2)) + API=PARJ(187-2*MOD(IABS(I),2)) + ELSE + VPI=PARJ(194-2*MOD(IABS(I),2)) + API=PARJ(195-2*MOD(IABS(I),2)) + ENDIF + ENDIF + HI0=HP0 + IF(IABS(I).LE.10) HI0=HI0*FACA/3D0 + HI1=HP1 + IF(IABS(I).LE.10) HI1=HI1*FACA/3D0 + HI2=HP2 + IF(IABS(I).LE.10) HI2=HI2*FACA/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACZP*(EI**2/SH2*HI0*HP0*VINT(111)+EI*VI* + & (1D0-SQMZ/SH)/((SH-SQMZ)**2+HS**2)*(HI0*HP1+HI1*HP0)* + & VINT(112)+EI*VPI*(1D0-SQMZP/SH)/((SH-SQMZP)**2+HSP**2)* + & (HI0*HP2+HI2*HP0)*VINT(113)+(VI**2+AI**2)/ + & ((SH-SQMZ)**2+HS**2)*HI1*HP1*VINT(114)+(VI*VPI+AI*API)* + & ((SH-SQMZ)*(SH-SQMZP)+HS*HSP)/(((SH-SQMZ)**2+HS**2)* + & ((SH-SQMZP)**2+HSP**2))*(HI1*HP2+HI2*HP1)*VINT(115)+ + & (VPI**2+API**2)/((SH-SQMZP)**2+HSP**2)*HI2*HP2*VINT(116)) + 1330 CONTINUE + + ELSEIF(ISUB.EQ.142) THEN +C...f + fbar' -> W'+/- + SQMWP=PMAS(34,1)**2 + CALL PYWIDT(34,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + FACBW=4D0*COMFAC/((SH-SQMWP)**2+HS**2)*3D0 + HP=AEM/(24D0*XW)*SH + DO 1350 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 1350 + IA=IABS(I) + DO 1340 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 1340 + JA=IABS(J) + IF(I*J.GT.0.OR.MOD(IA+JA,2).EQ.0) GOTO 1340 + IF((IA.LE.10.AND.JA.GT.10).OR.(IA.GT.10.AND.JA.LE.10)) + & GOTO 1340 + KCHW=(KCHG(IA,1)*ISIGN(1,I)+KCHG(JA,1)*ISIGN(1,J))/3 + HI=HP*(PARU(133)**2+PARU(134)**2) + IF(IA.LE.10) HI=HP*(PARU(131)**2+PARU(132)**2)* + & VCKM((IA+1)/2,(JA+1)/2)*FACA/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + HF=SHR*(WDTE(0,1)+WDTE(0,(5-KCHW)/2)+WDTE(0,4)) + SIGH(NCHN)=HI*FACBW*HF + 1340 CONTINUE + 1350 CONTINUE + + ELSEIF(ISUB.EQ.143) THEN +C...f + fbar' -> H+/- + SQMHC=PMAS(37,1)**2 + CALL PYWIDT(37,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + FACBW=4D0*COMFAC/((SH-SQMHC)**2+HS**2) + HP=AEM/(8D0*XW)*SH/SQMW*SH + DO 1370 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 1370 + IA=IABS(I) + IM=(MOD(IA,10)+1)/2 + DO 1360 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 1360 + JA=IABS(J) + JM=(MOD(JA,10)+1)/2 + IF(I*J.GT.0.OR.IA.EQ.JA.OR.IM.NE.JM) GOTO 1360 + IF((IA.LE.10.AND.JA.GT.10).OR.(IA.GT.10.AND.JA.LE.10)) + & GOTO 1360 + IF(MOD(IA,2).EQ.0) THEN + IU=IA + IL=JA + ELSE + IU=JA + IL=IA + ENDIF + RML=PYMRUN(IL,SH)**2/SH + RMU=PYMRUN(IU,SH)**2/SH + HI=HP*(RML*PARU(141)**2+RMU/PARU(141)**2) + IF(IA.LE.10) HI=HI*FACA/3D0 + KCHHC=(KCHG(IA,1)*ISIGN(1,I)+KCHG(JA,1)*ISIGN(1,J))/3 + HF=SHR*(WDTE(0,1)+WDTE(0,(5-KCHHC)/2)+WDTE(0,4)) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=HI*FACBW*HF + 1360 CONTINUE + 1370 CONTINUE + + ELSEIF(ISUB.EQ.144) THEN +C...f + fbar' -> R + SQMR=PMAS(40,1)**2 + CALL PYWIDT(40,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + FACBW=4D0*COMFAC/((SH-SQMR)**2+HS**2)*3D0 + HP=AEM/(12D0*XW)*SH + DO 1390 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 1390 + IA=IABS(I) + DO 1380 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 1380 + JA=IABS(J) + IF(I*J.GT.0.OR.IABS(IA-JA).NE.2) GOTO 1380 + HI=HP + IF(IA.LE.10) HI=HI*FACA/3D0 + HF=SHR*(WDTE(0,1)+WDTE(0,(10-(I+J))/4)+WDTE(0,4)) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=HI*FACBW*HF + 1380 CONTINUE + 1390 CONTINUE + + ELSEIF(ISUB.EQ.145) THEN +C...q + l -> LQ (leptoquark) + SQMLQ=PMAS(39,1)**2 + CALL PYWIDT(39,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + FACBW=4D0*COMFAC/((SH-SQMLQ)**2+HS**2) + IF(ABS(SHR-PMAS(39,1)).GT.PARP(48)*PMAS(39,2)) FACBW=0D0 + HP=AEM/4D0*SH + KFLQQ=KFDP(MDCY(39,2),1) + KFLQL=KFDP(MDCY(39,2),2) + DO 1410 I=MMIN1,MMAX1 + IF(KFAC(1,I).EQ.0) GOTO 1410 + IA=IABS(I) + IF(IA.NE.KFLQQ.AND.IA.NE.IABS(KFLQL)) GOTO 1410 + DO 1400 J=MMIN2,MMAX2 + IF(KFAC(2,J).EQ.0) GOTO 1400 + JA=IABS(J) + IF(JA.NE.KFLQQ.AND.JA.NE.IABS(KFLQL)) GOTO 1400 + IF(I*J.NE.KFLQQ*KFLQL) GOTO 1400 + IF(JA.EQ.IA) GOTO 1400 + IF(IA.EQ.KFLQQ) KCHLQ=ISIGN(1,I) + IF(JA.EQ.KFLQQ) KCHLQ=ISIGN(1,J) + HI=HP*PARU(151) + HF=SHR*(WDTE(0,1)+WDTE(0,(5-KCHLQ)/2)+WDTE(0,4)) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=HI*FACBW*HF + 1400 CONTINUE + 1410 CONTINUE + + ELSEIF(ISUB.EQ.146) THEN +C...e + gamma* -> e* (excited lepton) + KFQSTR=KFPR(ISUB,1) + KCQSTR=PYCOMP(KFQSTR) + KFQEXC=MOD(KFQSTR,KEXCIT) + CALL PYWIDT(KFQSTR,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + FACBW=COMFAC/((SH-PMAS(KCQSTR,1)**2)**2+HS**2) + QF=-PARU(157)/2D0-PARU(158)/2D0 + FACBW=FACBW*AEM*QF**2*SH/PARU(155)**2 + IF(ABS(SHR-PMAS(KCQSTR,1)).GT.PARP(48)*PMAS(KCQSTR,2)) + & FACBW=0D0 + HP=SH + DO 1416 I=-KFQEXC,KFQEXC,2*KFQEXC + DO 1413 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,22).EQ.0) GOTO 1413 + IF(ISDE.EQ.2.AND.KFAC(1,22)*KFAC(2,I).EQ.0) GOTO 1413 + HI=HP + IF(I.GT.0) HF=SHR*(WDTE(0,1)+WDTE(0,2)+WDTE(0,4)) + IF(I.LT.0) HF=SHR*(WDTE(0,1)+WDTE(0,3)+WDTE(0,4)) + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=22 + ISIG(NCHN,3)=1 + SIGH(NCHN)=HI*FACBW*HF + 1413 CONTINUE + 1416 CONTINUE + + ELSEIF(ISUB.EQ.147.OR.ISUB.EQ.148) THEN +C...d + g -> d* and u + g -> u* (excited quarks) + KFQSTR=KFPR(ISUB,1) + KCQSTR=PYCOMP(KFQSTR) + KFQEXC=MOD(KFQSTR,KEXCIT) + CALL PYWIDT(KFQSTR,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + FACBW=COMFAC/((SH-PMAS(KCQSTR,1)**2)**2+HS**2) + FACBW=FACBW*AS*PARU(159)**2*SH/(3D0*PARU(155)**2) + IF(ABS(SHR-PMAS(KCQSTR,1)).GT.PARP(48)*PMAS(KCQSTR,2)) + & FACBW=0D0 + HP=SH + DO 1430 I=-KFQEXC,KFQEXC,2*KFQEXC + DO 1420 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,21).EQ.0) GOTO 1420 + IF(ISDE.EQ.2.AND.KFAC(1,21)*KFAC(2,I).EQ.0) GOTO 1420 + HI=HP + IF(I.GT.0) HF=SHR*(WDTE(0,1)+WDTE(0,2)+WDTE(0,4)) + IF(I.LT.0) HF=SHR*(WDTE(0,1)+WDTE(0,3)+WDTE(0,4)) + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=HI*FACBW*HF + 1420 CONTINUE + 1430 CONTINUE + + ELSEIF(ISUB.EQ.149) THEN +C...g + g -> eta_techni + CALL PYWIDT(38,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + FACBW=COMFAC*0.5D0/((SH-PMAS(38,1)**2)**2+HS**2) + IF(ABS(SHR-PMAS(38,1)).GT.PARP(48)*PMAS(38,2)) FACBW=0D0 + HP=SH + IF(KFAC(1,21)*KFAC(2,21).EQ.0) GOTO 1440 + HI=HP*WDTP(3) + HF=SHR*(WDTE(0,1)+WDTE(0,2)+WDTE(0,4)) + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=HI*FACBW*HF + 1440 CONTINUE + + ENDIF + +C...I: 2 -> 2, tree diagrams, non-standard model processes + + ELSEIF(ISUB.LE.200) THEN + IF(ISUB.EQ.161) THEN +C...f + g -> f' + H+/- (b + g -> t + H+/- only) +C...(choice of only b and t to avoid kinematics problems) + FHCQ=COMFAC*FACA*AS*AEM/XW*1D0/24 +C...H propagator: as simulated in PYOFSH and as desired + SQMHC=PMAS(37,1)**2 + GMMHC=PMAS(37,1)*PMAS(37,2) + HBW4=GMMHC/((SQM4-SQMHC)**2+GMMHC**2) + CALL PYWIDT(37,SQM4,WDTP,WDTE) + GMMHCC=SQRT(SQM4)*WDTP(0) + HBW4C=GMMHCC/((SQM4-SQMHC)**2+GMMHCC**2) + FHCQ=FHCQ*HBW4C/HBW4 + DO 1460 I=MMINA,MMAXA + IA=IABS(I) + IF(IA.NE.5) GOTO 1460 + SQML=PYMRUN(IA,SH)**2 + IUA=IA+MOD(IA,2) + SQMQ=PYMRUN(IUA,SH)**2 + FACHCQ=FHCQ*(SQML*PARU(141)**2+SQMQ/PARU(141)**2)/SQMW* + & (SH/(SQMQ-UH)+2D0*SQMQ*(SQMHC-UH)/(SQMQ-UH)**2+(SQMQ-UH)/SH+ + & 2D0*SQMQ/(SQMQ-UH)+2D0*(SQMHC-UH)/(SQMQ-UH)* + & (SQMHC-SQMQ-SH)/SH) + KCHHC=ISIGN(1,KCHG(IA,1)*ISIGN(1,I)) + DO 1450 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,21).EQ.0) GOTO 1450 + IF(ISDE.EQ.2.AND.KFAC(1,21)*KFAC(2,1).EQ.0) GOTO 1450 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACHCQ*WIDS(37,(5-KCHHC)/2) + 1450 CONTINUE + 1460 CONTINUE + + ELSEIF(ISUB.EQ.162) THEN +C...q + g -> LQ + lbar; LQ=leptoquark + SQMLQ=PMAS(39,1)**2 + FACLQ=COMFAC*FACA*PARU(151)*(AS*AEM/6D0)*(-TH/SH)* + & (UH2+SQMLQ**2)/(UH-SQMLQ)**2 + KFLQQ=KFDP(MDCY(39,2),1) + DO 1480 I=MMINA,MMAXA + IF(IABS(I).NE.KFLQQ) GOTO 1480 + KCHLQ=ISIGN(1,I) + DO 1470 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,21).EQ.0) GOTO 1470 + IF(ISDE.EQ.2.AND.KFAC(1,21)*KFAC(2,I).EQ.0) GOTO 1470 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACLQ*WIDS(39,(5-KCHLQ)/2) + 1470 CONTINUE + 1480 CONTINUE + + ELSEIF(ISUB.EQ.163) THEN +C...g + g -> LQ + LQbar; LQ=leptoquark + SQMLQ=PMAS(39,1)**2 + FACLQ=COMFAC*FACA*WIDS(39,1)*(AS**2/2D0)* + & (7D0/48D0+3D0*(UH-TH)**2/(16D0*SH2))*(1D0+2D0*SQMLQ*TH/ + & (TH-SQMLQ)**2+2D0*SQMLQ*UH/(UH-SQMLQ)**2+4D0*SQMLQ**2/ + & ((TH-SQMLQ)*(UH-SQMLQ))) + IF(KFAC(1,21)*KFAC(2,21).EQ.0) GOTO 1490 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 +C...Since don't know proper colour flow, randomize between alternatives + ISIG(NCHN,3)=INT(1.5D0+PYR(0)) + SIGH(NCHN)=FACLQ + 1490 CONTINUE + + ELSEIF(ISUB.EQ.164) THEN +C...q + qbar -> LQ + LQbar; LQ=leptoquark + SQMLQ=PMAS(39,1)**2 + FACLQA=COMFAC*WIDS(39,1)*(AS**2/9D0)* + & (SH*(SH-4D0*SQMLQ)-(UH-TH)**2)/SH2 + FACLQS=COMFAC*WIDS(39,1)*((PARU(151)**2*AEM**2/8D0)* + & (-SH*TH-(SQMLQ-TH)**2)/TH2+(PARU(151)*AEM*AS/18D0)* + & ((SQMLQ-TH)*(UH-TH)+SH*(SQMLQ+TH))/(SH*TH)) + KFLQQ=KFDP(MDCY(39,2),1) + DO 1500 I=MMINA,MMAXA + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58).OR. + & KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1500 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACLQA + IF(IABS(I).EQ.KFLQQ) SIGH(NCHN)=FACLQA+FACLQS + 1500 CONTINUE + + ELSEIF(ISUB.EQ.165) THEN +C...q + qbar -> l+ + l- (including contact term for compositeness) + ZRATR=XWC*SH*(SH-SQMZ)/((SH-SQMZ)**2+GMMZ**2) + ZRATI=XWC*SH*GMMZ/((SH-SQMZ)**2+GMMZ**2) + KFF=IABS(KFPR(ISUB,1)) + EF=KCHG(KFF,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + VALF=VF+AF + VARF=VF-AF + FCOF=1D0 + IF(KFF.LE.10) FCOF=3D0 + WID2=1D0 + IF(KFF.EQ.6) WID2=WIDS(6,1) + IF(KFF.EQ.7.OR.KFF.EQ.8) WID2=WIDS(KFF,1) + IF(KFF.EQ.17.OR.KFF.EQ.18) WID2=WIDS(KFF,1) + DO 1510 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1510 + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI+0.1D0) + VI=AI-4D0*EI*XWV + VALI=VI+AI + VARI=VI-AI + FCOI=1D0 + IF(IABS(I).LE.10) FCOI=FACA/3D0 + IF((MSTP(5).EQ.1.AND.IABS(I).LE.2).OR.MSTP(5).EQ.2) THEN + FGZA=(EI*EF+VALI*VALF*ZRATR+PARU(156)*SH/ + & (AEM*PARU(155)**2))**2+(VALI*VALF*ZRATI)**2+ + & (EI*EF+VARI*VARF*ZRATR)**2+(VARI*VARF*ZRATI)**2 + ELSE + FGZA=(EI*EF+VALI*VALF*ZRATR)**2+(VALI*VALF*ZRATI)**2+ + & (EI*EF+VARI*VARF*ZRATR)**2+(VARI*VARF*ZRATI)**2 + ENDIF + FGZB=(EI*EF+VALI*VARF*ZRATR)**2+(VALI*VARF*ZRATI)**2+ + & (EI*EF+VARI*VALF*ZRATR)**2+(VARI*VALF*ZRATI)**2 + FGZAB=AEM**2*(FGZA*UH2/SH2+FGZB*TH2/SH2) + IF((MSTP(5).EQ.3.AND.IABS(I).EQ.2).OR.(MSTP(5).EQ.4.AND. + & MOD(IABS(I),2).EQ.0)) FGZAB=FGZAB+SH2/(2D0*PARU(155)**4) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=COMFAC*FCOI*FCOF*FGZAB*WID2 + 1510 CONTINUE + + ELSEIF(ISUB.EQ.166) THEN +C...q + q'bar -> l + nu_l (including contact term for compositeness) + WFAC=(1D0/4D0)*(AEM/XW)**2*UH2/((SH-SQMW)**2+GMMW**2) + WCIFAC=WFAC+SH2/(4D0*PARU(155)**4) + KFF=IABS(KFPR(ISUB,1)) + FCOF=1D0 + IF(KFF.LE.10) FCOF=3D0 + DO 1530 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 1530 + IA=IABS(I) + DO 1520 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 1520 + JA=IABS(J) + IF(I*J.GT.0.OR.MOD(IA+JA,2).EQ.0) GOTO 1520 + IF((IA.LE.10.AND.JA.GT.10).OR.(IA.GT.10.AND.JA.LE.10)) + & GOTO 1520 + FCOI=1D0 + IF(IA.LE.10) FCOI=VCKM((IA+1)/2,(JA+1)/2)*FACA/3D0 + WID2=1D0 + IF((I.GT.0.AND.MOD(I,2).EQ.0).OR.(J.GT.0.AND. + & MOD(J,2).EQ.0)) THEN + IF(KFF.EQ.5) WID2=WIDS(6,2) + IF(KFF.EQ.7) WID2=WIDS(8,2)*WIDS(7,3) + IF(KFF.EQ.17) WID2=WIDS(18,2)*WIDS(17,3) + ELSE + IF(KFF.EQ.5) WID2=WIDS(6,3) + IF(KFF.EQ.7) WID2=WIDS(8,3)*WIDS(7,2) + IF(KFF.EQ.17) WID2=WIDS(18,3)*WIDS(17,2) + ENDIF + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=COMFAC*FCOI*FCOF*WFAC*WID2 + IF((MSTP(5).EQ.3.AND.IA.LE.2.AND.JA.LE.2).OR.MSTP(5).EQ.4) + & SIGH(NCHN)=COMFAC*FCOI*FCOF*WCIFAC*WID2 + 1520 CONTINUE + 1530 CONTINUE + + ELSEIF(ISUB.EQ.167.OR.ISUB.EQ.168) THEN +C...q + q' -> q" + d* and q + q' -> q" + u* (excited quarks) + KFQSTR=KFPR(ISUB,2) + KCQSTR=PYCOMP(KFQSTR) + KFQEXC=MOD(KFQSTR,KEXCIT) + FACQSA=COMFAC*(SH/PARU(155)**2)**2*(1D0-SQM4/SH) + FACQSB=COMFAC*0.25D0*(SH/PARU(155)**2)**2*(1D0-SQM4/SH)* + & (1D0+SQM4/SH)*(1D0+CTH)*(1D0+((SH-SQM4)/(SH+SQM4))*CTH) +C...Propagators: as simulated in PYOFSH and as desired + GMMQ=PMAS(KCQSTR,1)*PMAS(KCQSTR,2) + HBW4=GMMQ/((SQM4-PMAS(KCQSTR,1)**2)**2+GMMQ**2) + CALL PYWIDT(KFQSTR,SQM4,WDTP,WDTE) + GMMQC=SQRT(SQM4)*WDTP(0) + HBW4C=GMMQC/((SQM4-PMAS(KCQSTR,1)**2)**2+GMMQC**2) + FACQSA=FACQSA*HBW4C/HBW4 + FACQSB=FACQSB*HBW4C/HBW4 + DO 1550 I=MMIN1,MMAX1 + IA=IABS(I) + IF(I.EQ.0.OR.IA.GT.6.OR.KFAC(1,I).EQ.0) GOTO 1550 + DO 1540 J=MMIN2,MMAX2 + JA=IABS(J) + IF(J.EQ.0.OR.JA.GT.6.OR.KFAC(2,J).EQ.0) GOTO 1540 + IF(IA.EQ.KFQEXC.AND.I.EQ.J) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=(4D0/3D0)*FACQSA + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=2 + SIGH(NCHN)=(4D0/3D0)*FACQSA + ELSEIF((IA.EQ.KFQEXC.OR.JA.EQ.KFQEXC).AND.I*J.GT.0) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + IF(JA.EQ.KFQEXC) ISIG(NCHN,3)=2 + SIGH(NCHN)=FACQSA + ELSEIF(IA.EQ.KFQEXC.AND.I.EQ.-J) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=(8D0/3D0)*FACQSB + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=2 + SIGH(NCHN)=(8D0/3D0)*FACQSB + ELSEIF(I.EQ.-J) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQSB + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=2 + SIGH(NCHN)=FACQSB + ELSEIF(IA.EQ.KFQEXC.OR.JA.EQ.KFQEXC) THEN + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + IF(JA.EQ.KFQEXC) ISIG(NCHN,3)=2 + SIGH(NCHN)=FACQSB + ENDIF + 1540 CONTINUE + 1550 CONTINUE + + ELSEIF(ISUB.EQ.169) THEN +C...q + qbar -> e + e* (excited lepton) + KFQSTR=KFPR(ISUB,2) + KCQSTR=PYCOMP(KFQSTR) + KFQEXC=MOD(KFQSTR,KEXCIT) + FACQSB=(COMFAC/6D0)*(SH/PARU(155)**2)**2*(1D0-SQM4/SH)* + & (1D0+SQM4/SH)*(1D0+CTH)*(1D0+((SH-SQM4)/(SH+SQM4))*CTH) +C...Propagators: as simulated in PYOFSH and as desired + GMMQ=PMAS(KCQSTR,1)*PMAS(KCQSTR,2) + HBW4=GMMQ/((SQM4-PMAS(KCQSTR,1)**2)**2+GMMQ**2) + CALL PYWIDT(KFQSTR,SQM4,WDTP,WDTE) + GMMQC=SQRT(SQM4)*WDTP(0) + HBW4C=GMMQC/((SQM4-PMAS(KCQSTR,1)**2)**2+GMMQC**2) + FACQSB=FACQSB*HBW4C/HBW4 + DO 1555 I=MMIN1,MMAX1 + IA=IABS(I) + IF(I.EQ.0.OR.IA.GT.6.OR.KFAC(1,I).EQ.0) GOTO 1555 + J=-I + JA=IABS(J) + IF(J.EQ.0.OR.JA.GT.6.OR.KFAC(2,J).EQ.0) GOTO 1555 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQSB + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=2 + SIGH(NCHN)=FACQSB + 1555 CONTINUE + + ELSEIF(ISUB.EQ.191) THEN +C...q + qbar -> rho_tech0. + SQMRHT=PMAS(54,1)**2 + CALL PYWIDT(54,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + FACBW=12D0*COMFAC/((SH-SQMRHT)**2+HS**2) + IF(ABS(SHR-PMAS(54,1)).GT.PARP(48)*PMAS(54,2)) FACBW=0D0 + HF=SHR*(WDTE(0,1)+WDTE(0,2)+WDTE(0,4)) + ALPRHT=2.91D0*(3D0/PARP(144)) + HP=(1D0/6D0)*(AEM**2/ALPRHT)*(SQMRHT**2/SH) + XWRHT=(1D0-2D0*XW)/(4D0*XW*(1D0-XW)) + BWZR=XWRHT*SH*(SH-SQMZ)/((SH-SQMZ)**2+GMMZ**2) + BWZI=XWRHT*SH*GMMZ/((SH-SQMZ)**2+GMMZ**2) + DO 1560 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1560 + IA=IABS(I) + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI+0.1D0) + VI=AI-4D0*EI*XWV + VALI=0.5D0*(VI+AI) + VARI=0.5D0*(VI-AI) + HI=HP*((EI+VALI*BWZR)**2+(VALI*BWZI)**2+ + & (EI+VARI*BWZR)**2+(VARI*BWZI)**2) + IF(IA.LE.10) HI=HI*FACA/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=HI*FACBW*HF + 1560 CONTINUE + + ELSEIF(ISUB.EQ.192) THEN +C...q + qbar' -> rho_tech+/-. + SQMRHT=PMAS(55,1)**2 + CALL PYWIDT(55,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + FACBW=12D0*COMFAC/((SH-SQMRHT)**2+HS**2) + IF(ABS(SHR-PMAS(55,1)).GT.PARP(48)*PMAS(55,2)) FACBW=0D0 + ALPRHT=2.91D0*(3D0/PARP(144)) + HP=(1D0/6D0)*(AEM**2/ALPRHT)*(SQMRHT**2/SH)* + & (0.25D0/XW**2)*SH**2/((SH-SQMW)**2+GMMW**2) + DO 1580 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 1580 + IA=IABS(I) + DO 1570 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 1570 + JA=IABS(J) + IF(I*J.GT.0.OR.MOD(IA+JA,2).EQ.0) GOTO 1570 + IF((IA.LE.10.AND.JA.GT.10).OR.(IA.GT.10.AND.JA.LE.10)) + & GOTO 1570 + KCHR=(KCHG(IA,1)*ISIGN(1,I)+KCHG(JA,1)*ISIGN(1,J))/3 + HF=SHR*(WDTE(0,1)+WDTE(0,(5-KCHR)/2)+WDTE(0,4)) + HI=HP + IF(IA.LE.10) HI=HI*VCKM((IA+1)/2,(JA+1)/2)*FACA/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=HI*FACBW*HF + 1570 CONTINUE + 1580 CONTINUE + + ELSEIF(ISUB.EQ.193) THEN +C...q + qbar -> omega_tech0. + SQMOMT=PMAS(56,1)**2 + CALL PYWIDT(56,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + FACBW=12D0*COMFAC/((SH-SQMOMT)**2+HS**2) + IF(ABS(SHR-PMAS(56,1)).GT.PARP(48)*PMAS(56,2)) FACBW=0D0 + HF=SHR*(WDTE(0,1)+WDTE(0,2)+WDTE(0,4)) + ALPRHT=2.91D0*(3D0/PARP(144)) + HP=(1D0/6D0)*(AEM**2/ALPRHT)*(SQMOMT**2/SH)* + & (2D0*PARP(143)-1D0)**2 + BWZR=(0.5D0/(1D0-XW))*SH*(SH-SQMZ)/((SH-SQMZ)**2+GMMZ**2) + BWZI=(0.5D0/(1D0-XW))*SH*GMMZ/((SH-SQMZ)**2+GMMZ**2) + DO 1590 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1590 + IA=IABS(I) + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI+0.1D0) + VI=AI-4D0*EI*XWV + VALI=0.5D0*(VI+AI) + VARI=0.5D0*(VI-AI) + HI=HP*((EI-VALI*BWZR)**2+(VALI*BWZI)**2+ + & (EI-VARI*BWZR)**2+(VARI*BWZI)**2) + IF(IA.LE.10) HI=HI*FACA/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=HI*FACBW*HF + 1590 CONTINUE + + ELSEIF(ISUB.EQ.194) THEN +C...f + fbar -> f' + fbar' via s-channel rho_tech and omega_tech. + KFA=KFPR(ISUBSV,1) + ALPRHT=2.91D0*(3D0/PARP(144)) + HP=AEM**2*COMFAC + TANW=SQRT(PARU(102)/(1D0-PARU(102))) + CT2W=(1D0-2D0*PARU(102))/(2D0*PARU(102)/TANW) + + QUPD=2D0*PARP(143)-1D0 + FAR=SQRT(AEM/ALPRHT) + FAO=FAR*QUPD + FZR=FAR*CT2W + FZO=-FAO*TANW + SFAR=FAR**2 + SFAO=FAO**2 + SFZR=FZR**2 + SFZO=FZO**2 + CALL PYWIDT(23,SH,WDTP,WDTE) + SSMZ=CMPLX(1D0-PMAS(23,1)**2/SH,WDTP(0)/SHR) + CALL PYWIDT(54,SH,WDTP,WDTE) + SSMR=CMPLX(1D0-PMAS(54,1)**2/SH,WDTP(0)/SHR) + CALL PYWIDT(56,SH,WDTP,WDTE) + SSMO=CMPLX(1D0-PMAS(56,1)**2/SH,WDTP(0)/SHR) + DETD=(FAR*FZO-FAO*FZR)**2+SSMZ*SSMR*SSMO-SFZR*SSMO- + $ SFZO*SSMR-SFAR*SSMO*SSMZ-SFAO*SSMR*SSMZ + DAA=(-Sfzr*SSMO - Sfzo*SSMR + SSMO*SSMR*SSMZ)/DETD/SH + DZZ=(-Sfar*SSMO - Sfao*SSMR + SSMO*SSMR)/DETD/SH + DAZ=(far*fzr*SSMO + fao*fzo*SSMR)/DETD/SH + + XWRHT=1D0/(4D0*XW*(1D0-XW)) + KFF=IABS(KFPR(ISUB,1)) + EF=KCHG(KFF,1)/3D0 + AF=SIGN(1D0,EF+0.1D0) + VF=AF-4D0*EF*XWV + VALF=0.5D0*(VF+AF) + VARF=0.5D0*(VF-AF) + FCOF=1D0 + IF(KFF.LE.10) FCOF=3D0 + + WID2=1D0 + IF(KFF.GE.6.AND.KFF.LE.8) WID2=WIDS(KFF,1) + IF(KFF.EQ.17.OR.KFF.EQ.18) WID2=WIDS(KFF,1) + DZZ=DZZ*CMPLX(XWRHT,0D0) + DAZ=DAZ*CMPLX(SQRT(XWRHT),0D0) + + DO 1600 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1600 + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI+0.1D0) + VI=AI-4D0*EI*XWV + VALI=0.5D0*(VI+AI) + VARI=0.5D0*(VI-AI) + FCOI=FCOF + IF(IABS(I).LE.10) FCOI=FCOI/3D0 + DIFLL=ABS(EI*EF*DAA+VALI*VALF*DZZ+DAZ*(EI*VALF+EF*VALI))**2 + DIFRR=ABS(EI*EF*DAA+VARI*VARF*DZZ+DAZ*(EI*VARF+EF*VARI))**2 + DIFLR=ABS(EI*EF*DAA+VALI*VARF*DZZ+DAZ*(EI*VARF+EF*VALI))**2 + DIFRL=ABS(EI*EF*DAA+VARI*VALF*DZZ+DAZ*(EI*VALF+EF*VARI))**2 + FACSIG=(DIFLL+DIFRR)*((UH-SQM4)**2+SH*SQM4)+ + & (DIFLR+DIFRL)*((TH-SQM3)**2+SH*SQM3) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=HP*FCOI*FACSIG*WID2 + 1600 CONTINUE + + ELSEIF(ISUB.EQ.195) THEN +C...f + fbar' -> f'' + fbar''' via s-channel rho_tech+ + KFA=KFPR(ISUBSV,1) + KFB=KFA+1 + ALPRHT=2.91D0*(3D0/PARP(144)) + FACTC=COMFAC*(AEM**2/12D0/XW**2)*(UH-SQM3)*(UH-SQM4)*3D0 + + FWR=SQRT(AEM/ALPRHT)/(2D0*SQRT(XW)) + CALL PYWIDT(24,SH,WDTP,WDTE) + SSMZ=CMPLX(1D0-PMAS(24,1)**2/SH,WDTP(0)/SHR) + CALL PYWIDT(55,SH,WDTP,WDTE) + SSMR=CMPLX(1D0-PMAS(54,1)**2/SH,WDTP(0)/SHR) + + FCOF=1D0 + IF(KFA.LE.8) FCOF=3D0 + DETD=SSMZ*SSMR-CMPLX(FWR**2,0D0) + HP=FACTC*ABS(SSMR/DETD)**2/SH**2*FCOF + + DO 1605 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 1605 + IA=IABS(I) + DO 1604 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 1604 + JA=IABS(J) + IF(I*J.GT.0.OR.MOD(IA+JA,2).EQ.0) GOTO 1604 + IF((IA.LE.10.AND.JA.GT.10).OR.(IA.GT.10.AND.JA.LE.10)) + & GOTO 1604 + KCHR=(KCHG(IA,1)*ISIGN(1,I)+KCHG(JA,1)*ISIGN(1,J))/3 + HI=HP + IF(IA.LE.10) HI=HI*VCKM((IA+1)/2,(JA+1)/2)/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=HI*WIDS(KFA,(5-KCHR)/2)*WIDS(KFB,(5+KCHR)/2) + 1604 CONTINUE + 1605 CONTINUE + + ENDIF + +CMRENNA++ +C...J: 2 -> 2, tree diagrams, SUSY processes + + ELSEIF(ISUB.LE.210) THEN + IF(ISUB.EQ.201) THEN +C...f + fbar -> e_L + e_Lbar + COMFAC=COMFAC*WIDS(PYCOMP(KFPR(ISUBSV,1)),1) + DO 1630 I=MMIN1,MMAX1 + IA=IABS(I) + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1630 + EI=KCHG(IA,1)/3D0 + TT3I=SIGN(1D0,EI+1D-6)/2D0 + EJ=-1D0 + TT3J=-1D0/2D0 + FCOL=1D0 +C...Color factor for e+ e- + IF(IA.GE.11) FCOL=3D0 + IF(ISUBSV.EQ.301) THEN + A1=1D0 + A2=0D0 + ELSEIF(ILR.EQ.1) THEN + A1=SFMIX(KFID,3)**2 + A2=SFMIX(KFID,4)**2 + ELSEIF(ILR.EQ.0) THEN + A1=SFMIX(KFID,1)**2 + A2=SFMIX(KFID,2)**2 + ENDIF + XLQ=(TT3J-EJ*XW)*A1 + XRQ=(-EJ*XW)*A2 + XLF=(TT3I-EI*XW) + XRF=(-EI*XW) + TAA=2D0*(EI*EJ)**2 + TZZ=(XLF**2+XRF**2)*(XLQ+XRQ)**2/XW**2/XW1**2 + TZZ=TZZ/((1D0-SQMZ/SH)**2+SQMZ*ZWID/SH**2) + TAZ=2D0*EI*EJ*(XLQ+XRQ)*(XLF+XRF)/XW/XW1 + TAZ=TAZ/((1D0-SQMZ/SH)**2+SQMZ*(ZWID/SH)**2)*(1D0-SQMZ/SH) + TNN=0.0D0 + TAN=0.0D0 + TZN=0.0D0 + IF(IA.GE.11.AND.IA.LE.18.AND.KFID.EQ.IA) THEN + FAC2=SQRT(2D0) + TNN1=0D0 + TNN2=0D0 + TNN3=0D0 + DO 1620 II=1,4 + DK=1D0/(TH-SMZ(II)**2) + FLEK=-FAC2*(TT3I*ZMIX(II,2)-TANW*(TT3I-EI)* + & ZMIX(II,1)) + FREK=FAC2*TANW*EI*ZMIX(II,1) + TNN1=TNN1+FLEK**2*DK + TNN2=TNN2+FREK**2*DK + DO 1610 JJ=1,4 + DL=1D0/(TH-SMZ(JJ)**2) + FLEL=-FAC2*(TT3J*ZMIX(JJ,2)-TANW*(TT3J-EJ)* + & ZMIX(JJ,1)) + FREL=FAC2*TANW*EJ*ZMIX(JJ,1) + TNN3=TNN3+FLEK*FREK*FLEL*FREL*DK*DL*SMZ(II)*SMZ(JJ) + 1610 CONTINUE + 1620 CONTINUE + TNN=(UH*TH-SQM3*SQM4)*(A1**2*TNN1**2+A2**2*TNN2**2) + TNN=(TNN+2D0*SH*A1*A2*TNN3)/4D0/XW**2 + TZN=(UH*TH-SQM3*SQM4)*(XLQ+XRQ)* + & (TNN1*XLF*A1+TNN2*XRF*A2) + TZN=TZN/((1D0-SQMZ/SH)**2+SQMZ*(ZWID/SH)**2)* + & (1D0-SQMZ/SH)/SH + TZN=TZN/XW**2/XW1 + TAN=EI*EJ*(UH*TH-SQM3*SQM4)/SH*(A1*TNN1+A2*TNN2)/XW + ENDIF + FACQQ1=COMFAC*AEM**2*(TAA+TZZ+TAZ)*FCOL/3D0 + FACQQ1=FACQQ1*( UH*TH-SQM3*SQM4 )/SH**2 + FACQQ2=COMFAC*AEM**2*(TNN+TZN+TAN)*FCOL/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ1+FACQQ2 + 1630 CONTINUE + + ELSEIF(ISUB.EQ.203) THEN +C...f + fbar -> e_L + e_Rbar + DO 1660 I=MMIN1,MMAX1 + IA=IABS(I) + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1660 + EI=KCHG(IABS(I),1)/3D0 + TT3I=SIGN(1D0,EI)/2D0 + EJ=-1 + TT3J=-1D0/2D0 + FCOL=1D0 +C...Color factor for e+ e- + IF(IA.GE.11) FCOL=3D0 + A1=SFMIX(KFID,1)**2 + A2=SFMIX(KFID,2)**2 + XLQ=(TT3J-EJ*XW) + XRQ=(-EJ*XW) + XLF=(TT3I-EI*XW) + XRF=(-EI*XW) + TZZ=(XLF**2+XRF**2)*(XLQ-XRQ)**2/XW**2/XW1**2*A1*A2 + TZZ=TZZ/((1D0-SQMZ/SH)**2+SQMZ*(ZWID/SH)**2) + TNN=0.0D0 + TZN=0.0D0 + IF(IA.GE.11.AND.IA.LE.18.AND.KFID.EQ.IA) THEN + FAC2=SQRT(2D0) + TNN1=0D0 + TNN2=0D0 + TNN3=0D0 + DO 1650 II=1,4 + DK=1D0/(TH-SMZ(II)**2) + FLEK=-FAC2*(TT3I*ZMIX(II,2)-TANW*(TT3I-EI)* + & ZMIX(II,1)) + FREK=FAC2*TANW*EI*ZMIX(II,1) + TNN1=TNN1+FLEK**2*DK + TNN2=TNN2+FREK**2*DK + DO 1640 JJ=1,4 + DL=1D0/(TH-SMZ(JJ)**2) + FLEL=-FAC2*(TT3J*ZMIX(JJ,2)-TANW*(TT3J-EJ)* + & ZMIX(JJ,1)) + FREL=FAC2*TANW*EJ*ZMIX(JJ,1) + TNN3=TNN3+FLEK*FREK*FLEL*FREL*DK*DL*SMZ(II)*SMZ(JJ) + 1640 CONTINUE + 1650 CONTINUE + TNN=(UH*TH-SQM3*SQM4)*A1*A2*(TNN2**2+TNN1**2) + TNN=(TNN+SH*(A2**2+A1**2)*TNN3)/4D0 + TZN=(UH*TH-SQM3*SQM4)*A1*A2 + TZN=TZN*(XLQ-XRQ)*(XLF*TNN1-XRF*TNN2)/XW1 + TZN=TZN/((1D0-SQMZ/SH)**2+SQMZ*(ZWID/SH)**2)* + & (1D0-SQMZ/SH)/SH + ENDIF + FACQQ1=COMFAC*AEM**2*TZZ*FCOL/3D0*(UH*TH-SQM3*SQM4)/SH2 + FACQQ2=COMFAC*AEM**2/XW**2*(TNN+TZN)*FCOL/3D0 + FACQQ=(FACQQ1+FACQQ2) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ*WIDS(PYCOMP(KFPR(ISUBSV,1)),2)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),3) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=2 + SIGH(NCHN)=FACQQ*WIDS(PYCOMP(KFPR(ISUBSV,1)),3)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),2) + 1660 CONTINUE + + ELSEIF(ISUB.EQ.210) THEN +C...q + qbar' -> W*- > ~l_L + ~nu_L + FAC0=RKF*COMFAC*AEM**2/XW**2/12D0 + FAC1=(TH*UH-SQM3*SQM4)/((SH-SQMW)**2+WWID**2*SQMW) + DO 1680 I=MMIN1,MMAX1 + IA=IABS(I) + IF(I.EQ.0.OR.IA.GT.10.OR.KFAC(1,I).EQ.0) GOTO 1680 + DO 1670 J=MMIN2,MMAX2 + JA=IABS(J) + IF(J.EQ.0.OR.JA.GT.10.OR.KFAC(2,J).EQ.0) GOTO 1670 + IF(I*J.GT.0.OR.MOD(IA+JA,2).EQ.0) GOTO 1670 + FCKM=3D0 + IF(IA.LE.10) FCKM=VCKM((IA+1)/2,(JA+1)/2) + KCHSUM=KCHG(IA,1)*ISIGN(1,I)+KCHG(JA,1)*ISIGN(1,J) + KCHW=2 + IF(KCHSUM.LT.0) KCHW=3 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + IF(ISUBSV.EQ.297.OR.ISUBSV.EQ.298) THEN + FACR=WIDS(PYCOMP(KFPR(ISUBSV,1)),5-KCHW)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),2) + ELSE + FACR=WIDS(PYCOMP(KFPR(ISUBSV,1)),5-KCHW)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),KCHW) + ENDIF + SIGH(NCHN)=FAC0*FAC1*FCKM*FACR + 1670 CONTINUE + 1680 CONTINUE + ENDIF + + ELSEIF(ISUB.LE.220) THEN + IF(ISUB.EQ.213) THEN +C...f + fbar -> ~nu_L + ~nu_Lbar + IF(ISUBSV.EQ.299.OR.ISUBSV.EQ.300) THEN + FACR=WIDS(PYCOMP(KFPR(ISUBSV,1)),2)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),2) + ELSE + FACR=WIDS(PYCOMP(KFPR(ISUBSV,1)),1) + ENDIF + COMFAC=COMFAC*FACR + PROPZ=(SH-SQMZ)**2+ZWID**2*SQMZ + XLL=0.5D0 + XLR=0.0D0 + DO 1690 I=MMIN1,MMAX1 + IA=IABS(I) + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1690 + EI=KCHG(IA,1)/3D0 + FCOL=1D0 +C...Color factor for e+ e- + IF(IA.GE.11) FCOL=3D0 + XLQ=(SIGN(1D0,EI)-2D0*EI*XW)/2D0 + XRQ=-EI*XW + TZC=0.0D0 + TCC=0.0D0 + IF(IA.GE.11.AND.KFID.EQ.IA+1) THEN + TZC=VMIX(1,1)**2/(TH-SMW(1)**2)+VMIX(2,1)**2/ + & (TH-SMW(2)**2) + TCC=TZC**2 + TZC=TZC/XW1*(SH-SQMZ)/PROPZ*XLQ*XLL + ENDIF + FACQQ1=(XLQ**2+XRQ**2)*(XLL+XLR)**2/XW1**2/PROPZ + FACQQ2=TZC+TCC/4D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=(FACQQ1+FACQQ2)*RKF*(UH*TH-SQM3*SQM4)*COMFAC + & *AEM**2*FCOL/3D0/XW**2 + 1690 CONTINUE + + ELSEIF(ISUB.EQ.216) THEN +C...q + qbar -> ~chi0_1 + ~chi0_1 + IF(IZID1.EQ.IZID2) THEN + COMFAC=COMFAC*WIDS(PYCOMP(KFPR(ISUBSV,1)),1) + ELSE + COMFAC=COMFAC*WIDS(PYCOMP(KFPR(ISUBSV,1)),2)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),2) + ENDIF + FACGG1=COMFAC*AEM**2/3D0/XW**2 + IF(IZID1.EQ.IZID2) FACGG1=FACGG1/2D0 + ZM12=SQM3 + ZM22=SQM4 + WU2 = (UH-ZM12)*(UH-ZM22)/SH2 + WT2 = (TH-ZM12)*(TH-ZM22)/SH2 + XS2 = SMZ(IZID1)*SMZ(IZID2)/SH + PROPZ2 = (SH-SQMZ)**2 + SQMZ*ZWID**2 + REPRPZ = (SH-SQMZ)/PROPZ2 + OLPP=(-ZMIX(IZID1,3)*ZMIX(IZID2,3)+ + & ZMIX(IZID1,4)*ZMIX(IZID2,4))/2D0 + DO 1700 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1700 + EI=KCHG(IABS(I),1)/3D0 + FCOL=1D0 + IF(ABS(I).GE.11) FCOL=3D0 + XLQ=(SIGN(1D0,EI)-2D0*EI*XW)/2D0 + XRQ=-EI*XW + XLQ=XLQ/XW1 + XRQ=XRQ/XW1 +C...Factored out sqrt(2) + FR1=TANW*EI*ZMIX(IZID1,1) + FR2=TANW*EI*ZMIX(IZID2,1) + FL1=-(SIGN(1D0,EI)*ZMIX(IZID1,2)-TANW* + & (SIGN(1D0,EI)-2D0*EI)*ZMIX(IZID1,1))/2D0 + FL2=-(SIGN(1D0,EI)*ZMIX(IZID2,2)-TANW* + & (SIGN(1D0,EI)-2D0*EI)*ZMIX(IZID2,1))/2D0 + FR12=FR1**2 + FR22=FR2**2 + FL12=FL1**2 + FL22=FL2**2 + XML2=PMAS(PYCOMP(KSUSY1+IABS(I)),1)**2 + XMR2=PMAS(PYCOMP(KSUSY2+IABS(I)),1)**2 + FACS=OLPP**2*(XLQ**2+XRQ**2)*(WU2+WT2-2D0*XS2)*(SH2/PROPZ2) + FACT=FL12*FL22*(WT2*SH2/(TH-XML2)**2+WU2*SH2/(UH-XML2)**2- + & 2D0*XS2*SH2/(TH-XML2)/(UH-XML2)) + FACU=FR12*FR22*(WT2*SH2/(TH-XMR2)**2+WU2*SH2/(UH-XMR2)**2- + & 2D0*XS2*SH2/(TH-XMR2)/(UH-XMR2)) + FACST=2D0*REPRPZ*OLPP*XLQ*FL1*FL2*( (WT2-XS2)*SH2/ + & (TH-XML2) + (WU2-XS2)*SH2/(UH-XML2) ) + FACSU=-2D0*REPRPZ*OLPP*XRQ*FR1*FR2*( (WT2-XS2)*SH2/ + & (TH-XMR2) + (WU2-XS2)*SH2/(UH-XMR2) ) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACGG1*FCOL*(FACS+FACT+FACU+FACST+FACSU) + 1700 CONTINUE + ENDIF + + ELSEIF(ISUB.LE.230) THEN + IF(ISUB.EQ.226) THEN +C...f + fbar -> ~chi+_1 + ~chi-_1 + FACGG1=COMFAC*AEM**2/3D0/XW**2 + ZM12=SQM3 + ZM22=SQM4 + WU2 = (UH-ZM12)*(UH-ZM22)/SH2 + WT2 = (TH-ZM12)*(TH-ZM22)/SH2 + WS2 = SMW(IZID1)*SMW(IZID2)/SH + PROPZ2 = (SH-SQMZ)**2 + SQMZ*ZWID**2 + REPRPZ = (SH-SQMZ)/PROPZ2 + DIFF=0D0 + IF(IZID1.EQ.IZID2) DIFF=1D0 + DO 1710 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1710 + EI=KCHG(IABS(I),1)/3D0 + FCOL=1D0 + IF(IABS(I).GE.11) FCOL=3D0 + XLQ=(SIGN(1D0,EI)-2D0*EI*XW)/2D0 + XRQ=-EI*XW + XLQ=XLQ/XW1 + XRQ=XRQ/XW1 + XLQ2=XLQ**2 + XRQ2=XRQ**2 + OLP=-VMIX(IZID1,1)*VMIX(IZID2,1)- + & VMIX(IZID1,2)*VMIX(IZID2,2)/2D0+XW*DIFF + ORP=-UMIX(IZID1,1)*UMIX(IZID2,1)- + & UMIX(IZID1,2)*UMIX(IZID2,2)/2D0+XW*DIFF + ORP2=ORP**2 + OLP2=OLP**2 +C...u-type quark - d-type squark + IF(MOD(I,2).EQ.0) THEN + FACT0 = -UMIX(IZID1,1)*UMIX(IZID2,1) + XML2=PMAS(PYCOMP(KSUSY1+IABS(I)-1),1)**2 +C...d-type quark - u-type squark + ELSE + FACT0 = VMIX(IZID1,1)*VMIX(IZID2,1) + XML2=PMAS(PYCOMP(KSUSY1+IABS(I)+1),1)**2 + ENDIF + FACA=2D0*XW**2*DIFF*(WT2+WU2+2D0*ABS(WS2))*EI**2 + FACZ=0.5D0*((XLQ2+XRQ2)*(OLP2+ORP2)*(WT2+WU2)+ + & 4D0*(XLQ2+XRQ2)*OLP*ORP*WS2-(XLQ2-XRQ2)*(OLP2-ORP2)* + & (WU2-WT2))*SH2/PROPZ2 + FACT=FACT0**2/4D0*WT2*SH2/(TH-XML2)**2 + FACAZ=XW*REPRPZ*DIFF*( (XLQ+XRQ)*(OLP+ORP)*(WU2+ + & WT2+2D0*ABS(WS2))-(XLQ-XRQ)*(OLP-ORP)*(WU2-WT2) )*SH*(-EI) + FACTA=XW*DIFF/(TH-XML2)*(WT2+ABS(WS2))*SH*FACT0*(-EI) + FACTZ=REPRPZ/(TH-XML2)*XLQ*FACT0*(OLP*WT2+ORP*WS2)*SH2 + FACSUM=FACGG1*(FACA+FACAZ+FACZ+FACT+FACTA+FACTZ)*FCOL + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + IF(IZID1.EQ.IZID2) THEN + SIGH(NCHN)=FACSUM*WIDS(PYCOMP(KFPR(ISUBSV,1)),1) + ELSE + SIGH(NCHN)=FACSUM*WIDS(PYCOMP(KFPR(ISUBSV,1)),3)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),2) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=2 + SIGH(NCHN)=FACSUM*WIDS(PYCOMP(KFPR(ISUBSV,1)),2)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),3) + ENDIF + 1710 CONTINUE + + ELSEIF(ISUB.EQ.229) THEN +C...q + qbar' -> ~chi0_1 + ~chi+-_1 + FACGG1=COMFAC*AEM**2/6D0/XW**2 + ZM12=SQM3 + ZM22=SQM4 + ZMU2 = PMAS(PYCOMP(KSUSY1+2),1)**2 + ZMD2 = PMAS(PYCOMP(KSUSY1+1),1)**2 + WU2 = (UH-ZM12)*(UH-ZM22)/SH2 + WT2 = (TH-ZM12)*(TH-ZM22)/SH2 + WS2 = SMW(IZID1)*SMZ(IZID2)/SH + RT2I = 1D0/SQRT(2D0) + PROPW = ((SH-SQMW)**2+WWID**2*SQMW) + OL=-RT2I*ZMIX(IZID2,4)*VMIX(IZID1,2)+ + & ZMIX(IZID2,2)*VMIX(IZID1,1) + OR= RT2I*ZMIX(IZID2,3)*UMIX(IZID1,2)+ + & ZMIX(IZID2,2)*UMIX(IZID1,1) + OL2=OL**2 + OR2=OR**2 + CROSS=2D0*OL*OR + FACST0=UMIX(IZID1,1) + FACSU0=VMIX(IZID1,1) + FACSU0=FACSU0*(0.5D0*ZMIX(IZID2,2)+TANW*ZMIX(IZID2,1)/6D0) + FACST0=FACST0*(-0.5D0*ZMIX(IZID2,2)+TANW*ZMIX(IZID2,1)/6D0) + FACT0=FACST0**2 + FACU0=FACSU0**2 + FACTU0=FACSU0*FACST0 + FACST = -2D0*(SH-SQMW)/PROPW/(TH-ZMD2)*(WT2*SH2*OR + & + SH2*WS2*OL)*FACST0 + FACSU = 2D0*(SH-SQMW)/PROPW/(UH-ZMU2)*(WU2*SH2*OL + & + SH2*WS2*OR)*FACSU0 + FACT = WT2*SH2/(TH-ZMD2)**2*FACT0 + FACU = WU2*SH2/(UH-ZMU2)**2*FACU0 + FACTU = -2D0*WS2*SH2/(TH-ZMD2)/(UH-ZMU2)*FACTU0 + FACW = (OR2*WT2+OL2*WU2+CROSS*WS2)/PROPW*SH2 + FACGG1=FACGG1*(FACW+FACT+FACTU+FACU+FACSU+FACST) + DO 1730 I=MMIN1,MMAX1 + IA=IABS(I) + IF(I.EQ.0.OR.IA.GT.20.OR.KFAC(1,I).EQ.0) GOTO 1730 + DO 1720 J=MMIN2,MMAX2 + JA=IABS(J) + IF(J.EQ.0.OR.JA.GT.20.OR.KFAC(2,J).EQ.0) GOTO 1720 + IF(I*J.GT.0.OR.MOD(IA+JA,2).EQ.0) GOTO 1720 + FCKM=3D0 + IF(IA.LE.10) FCKM=VCKM((IA+1)/2,(JA+1)/2) + KCHSUM=KCHG(IA,1)*ISIGN(1,I)+KCHG(JA,1)*ISIGN(1,J) + KCHW=2 + IF(KCHSUM.LT.0) KCHW=3 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACGG1*FCKM*WIDS(PYCOMP(KFPR(ISUBSV,1)),2)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),KCHW) + 1720 CONTINUE + 1730 CONTINUE + ENDIF + + ELSEIF(ISUB.LE.240) THEN + IF(ISUB.EQ.237) THEN +C...q + qbar -> gluino + ~chi0_1 + COMFAC=COMFAC*WIDS(PYCOMP(KFPR(ISUBSV,1)),2)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),2) + FAC0=COMFAC*AS*AEM*4D0/9D0/XW + GM2=SQM3 + ZM2=SQM4 + DO 1740 I=MMINA,MMAXA + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58)) GOTO 1740 + EI=KCHG(IABS(I),1)/3D0 + IA=IABS(I) + XLQC = -TANW*EI*ZMIX(IZID,1) + XRQC =(SIGN(1D0,EI)*ZMIX(IZID,2)-TANW* + & (SIGN(1D0,EI)-2D0*EI)*ZMIX(IZID,1))/2D0 + XLQ2=XLQC**2 + XRQ2=XRQC**2 + XML2=PMAS(PYCOMP(KSUSY1+IA),1)**2 + XMR2=PMAS(PYCOMP(KSUSY2+IA),1)**2 + ATKIN=(TH-GM2)*(TH-ZM2)/(TH-XML2)**2 + AUKIN=(UH-GM2)*(UH-ZM2)/(UH-XML2)**2 + ATUKIN=SMZ(IZID)*SQRT(GM2)*SH/(TH-XML2)/(UH-XML2) + SGCHIL=XLQ2*(ATKIN+AUKIN-2D0*ATUKIN) + ATKIN=(TH-GM2)*(TH-ZM2)/(TH-XMR2)**2 + AUKIN=(UH-GM2)*(UH-ZM2)/(UH-XMR2)**2 + ATUKIN=SMZ(IZID)*SQRT(GM2)*SH/(TH-XMR2)/(UH-XMR2) + SGCHIR=XRQ2*(ATKIN+AUKIN-2D0*ATUKIN) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FAC0*(SGCHIL+SGCHIR) + 1740 CONTINUE + ENDIF + + ELSEIF(ISUB.LE.250) THEN + IF(ISUB.EQ.241) THEN +C...q + qbar' -> ~chi+-_1 + gluino + FACWG=COMFAC*AS*AEM/XW*2D0/9D0 + GM2=SQM3 + ZM2=SQM4 + FAC01=2D0*UMIX(IZID,1)*VMIX(IZID,1) + FAC0=UMIX(IZID,1)**2 + FAC1=VMIX(IZID,1)**2 + DO 1760 I=MMIN1,MMAX1 + IA=IABS(I) + IF(I.EQ.0.OR.IA.GT.10.OR.KFAC(1,I).EQ.0) GOTO 1760 + DO 1750 J=MMIN2,MMAX2 + JA=IABS(J) + IF(J.EQ.0.OR.JA.GT.10.OR.KFAC(2,J).EQ.0) GOTO 1750 + IF(I*J.GT.0.OR.MOD(IA+JA,2).EQ.0) GOTO 1750 + FCKM=1D0 + IF(IA.LE.10) FCKM=VCKM((IA+1)/2,(JA+1)/2) + KCHSUM=KCHG(IA,1)*ISIGN(1,I)+KCHG(JA,1)*ISIGN(1,J) + KCHW=2 + IF(KCHSUM.LT.0) KCHW=3 + XMU2=PMAS(PYCOMP(KSUSY1+2),1)**2 + XMD2=PMAS(PYCOMP(KSUSY1+1),1)**2 + ATKIN=(TH-GM2)*(TH-ZM2)/(TH-XMU2)**2 + AUKIN=(UH-GM2)*(UH-ZM2)/(UH-XMD2)**2 + ATUKIN=SMW(IZID)*SQRT(GM2)*SH/(TH-XMU2)/(UH-XMD2) + XMU2=PMAS(PYCOMP(KSUSY2+2),1)**2 + XMD2=PMAS(PYCOMP(KSUSY2+1),1)**2 + ATKIN=(ATKIN+(TH-GM2)*(TH-ZM2)/(TH-XMU2)**2)/2D0 + AUKIN=(AUKIN+(UH-GM2)*(UH-ZM2)/(UH-XMD2)**2)/2D0 + ATUKIN=(ATUKIN+SMW(IZID)*SQRT(GM2)* + & SH/(TH-XMU2)/(UH-XMD2))/2D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACWG*FCKM*(FAC0*ATKIN+FAC1*AUKIN- + & FAC01*ATUKIN)*WIDS(PYCOMP(KFPR(ISUBSV,1)),2)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),KCHW) + 1750 CONTINUE + 1760 CONTINUE + + ELSEIF(ISUB.EQ.243) THEN +C...q + qbar -> gluino + gluino + COMFAC=COMFAC*WIDS(PYCOMP(KFPR(ISUBSV,1)),1) + XMT=SQM3-TH + XMU=SQM3-UH + DO 1770 I=MMINA,MMAXA + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58).OR. + & KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1770 + NCHN=NCHN+1 + XSU=PMAS(PYCOMP(KSUSY1+IABS(I)),1)**2-UH + XST=PMAS(PYCOMP(KSUSY1+IABS(I)),1)**2-TH + FACGG1=COMFAC*AS**2*8D0/3D0*( (XMT**2+XMU**2+ + & 2D0*SQM3*SH)/SH2 +4D0/9D0*(XMT**2/XST**2+ + & XMU**2/XSU**2) - (XMT**2+SH*SQM3)/SH/XST + + & SQM3*SH/XST/XSU/9D0- (XMU**2+SH*SQM3)/SH/XSU ) + XSU=PMAS(PYCOMP(KSUSY2+IABS(I)),1)**2-UH + XST=PMAS(PYCOMP(KSUSY2+IABS(I)),1)**2-TH + FACGG2=COMFAC*AS**2*8D0/3D0*( (XMT**2+XMU**2+ + & 2D0*SQM3*SH)/SH2 +4D0/9D0*(XMT**2/XST**2+ + & XMU**2/XSU**2) - (XMT**2+SH*SQM3)/SH/XST + + & SQM3*SH/XST/XSU/9D0- (XMU**2+SH*SQM3)/SH/XSU ) + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 +C...1/2 for identical particles + SIGH(NCHN)=0.25D0*(FACGG1+FACGG2) + 1770 CONTINUE + + ELSEIF(ISUB.EQ.244) THEN +C...g + g -> gluino + gluino + COMFAC=COMFAC*WIDS(PYCOMP(KFPR(ISUBSV,1)),1) + XMT=SQM3-TH + XMU=SQM3-UH + FACQQ1=COMFAC*AS**2*9D0/4D0*( + & (XMT*XMU-2D0*SQM3*(TH+SQM3))/XMT**2 - + & (XMT*XMU+SQM3*(UH-TH))/SH/XMT ) + FACQQ2=COMFAC*AS**2*9D0/4D0*( + & (XMU*XMT-2D0*SQM3*(UH+SQM3))/XMU**2 - + & (XMU*XMT+SQM3*(TH-UH))/SH/XMU ) + FACQQ3=COMFAC*AS**2*9D0/4D0*(2D0*XMT*XMU/SH2 + + & SQM3*(SH-4D0*SQM3)/XMT/XMU) + IF(KFAC(1,21)*KFAC(2,21).EQ.0) GOTO 1780 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ1/2D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=2 + SIGH(NCHN)=FACQQ2/2D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=3 + SIGH(NCHN)=FACQQ3/2D0 + 1780 CONTINUE + + ELSEIF(ISUB.EQ.246) THEN +C...g + q_j -> ~chi0_1 + ~q_j + FAC0=COMFAC*AS*AEM/6D0/XW + ZM2=SQM4 + QM2=SQM3 + FACZQ0=FAC0*( (ZM2-TH)/SH + + & (UH-ZM2)*(UH+QM2)/(UH-QM2)**2 - + & (SH*(UH+ZM2)+2D0*(QM2-ZM2)*(ZM2-UH))/SH/(UH-QM2) ) + KFNSQ=MOD(KFPR(ISUBSV,1),KSUSY1) + DO 1800 I=-KFNSQ,KFNSQ,2*KFNSQ + IF(I.LT.MMINA.OR.I.GT.MMAXA) GOTO 1800 + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58)) GOTO 1800 + EI=KCHG(IABS(I),1)/3D0 + IA=IABS(I) + XRQZ = -TANW*EI*ZMIX(IZID,1) + XLQZ =(SIGN(1D0,EI)*ZMIX(IZID,2)-TANW* + & (SIGN(1D0,EI)-2D0*EI)*ZMIX(IZID,1))/2D0 + IF(ILR.EQ.0) THEN + BS=XLQZ**2*SFMIX(IA,1)**2+XRQZ**2*SFMIX(IA,2)**2 + ELSE + BS=XLQZ**2*SFMIX(IA,3)**2+XRQZ**2*SFMIX(IA,4)**2 + ENDIF + FACZQ=FACZQ0*BS + KCHQ=2 + IF(I.LT.0) KCHQ=3 + DO 1790 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,21).EQ.0) GOTO 1790 + IF(ISDE.EQ.2.AND.KFAC(1,21)*KFAC(2,I).EQ.0) GOTO 1790 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACZQ*RKF*WIDS(PYCOMP(KFPR(ISUBSV,1)),KCHQ)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),2) + 1790 CONTINUE + 1800 CONTINUE + ENDIF + + ELSEIF(ISUB.LE.260) THEN + IF(ISUB.EQ.254) THEN +C...g + q_j -> ~chi1_1 + ~q_i + FAC0=COMFAC*AS*AEM/12D0/XW + ZM2=SQM4 + QM2=SQM3 + AU=UMIX(IZID,1)**2 + AD=VMIX(IZID,1)**2 + FACZQ0=FAC0*( (ZM2-TH)/SH + + & (UH-ZM2)*(UH+QM2)/(UH-QM2)**2 - + & (SH*(UH+ZM2)+2D0*(QM2-ZM2)*(ZM2-UH))/SH/(UH-QM2) ) + KFNSQ1=MOD(KFPR(ISUBSV,1),KSUSY1) + IF(MOD(KFNSQ1,2).EQ.0) THEN + KFNSQ=KFNSQ1-1 + KCHW=2 + ELSE + KFNSQ=KFNSQ1+1 + KCHW=3 + ENDIF + DO 1820 I=-KFNSQ,KFNSQ,2*KFNSQ + IF(I.LT.MMINA.OR.I.GT.MMAXA) GOTO 1820 + IF(I.EQ.0.OR.IABS(I).GT.MSTP(58)) GOTO 1820 + IA=IABS(I) + IF(MOD(IA,2).EQ.0) THEN + FACZQ=FACZQ0*AU + ELSE + FACZQ=FACZQ0*AD + ENDIF + FACZQ=FACZQ*SFMIX(KFNSQ1,1+2*ILR)**2 + KCHQ=2 + IF(I.LT.0) KCHQ=3 + KCHWQ=KCHW + IF(I.LT.0) KCHWQ=5-KCHW + DO 1810 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,21).EQ.0) GOTO 1810 + IF(ISDE.EQ.2.AND.KFAC(1,21)*KFAC(2,I).EQ.0) GOTO 1810 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACZQ*RKF*WIDS(PYCOMP(KFPR(ISUBSV,1)),KCHQ)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),KCHWQ) + 1810 CONTINUE + 1820 CONTINUE + + ELSEIF(ISUB.EQ.258) THEN +C...g + q_j -> gluino + ~q_i + XG2=SQM4 + XQ2=SQM3 + XMT=XG2-TH + XMU=XG2-UH + XST=XQ2-TH + XSU=XQ2-UH + FACQG1=0.5D0*4D0/9D0*XMT/SH + (XMT*SH+2D0*XG2*XST)/XMT**2 - + & ( (SH-XQ2+XG2)*(-XST)-SH*XG2 )/SH/(-XMT) + + & 0.5D0*1D0/2D0*( XST*(TH+2D0*UH+XG2)-XMT*(SH-2D0*XST) + + & (-XMU)*(TH+XG2+2D0*XQ2) )/2D0/XMT/XSU + FACQG2= 4D0/9D0*(-XMU)*(UH+XQ2)/XSU**2 + 1D0/18D0* + & (SH*(UH+XG2) + & +2D0*(XQ2-XG2)*XMU)/SH/(-XSU) + 0.5D0*4D0/9D0*XMT/SH + + & 0.5D0*1D0/2D0*(XST*(TH+2D0*UH+XG2)-XMT*(SH-2D0*XST)+ + & (-XMU)*(TH+XG2+2D0*XQ2))/2D0/XMT/XSU + FACQG1=COMFAC*AS**2*FACQG1/2D0 + FACQG2=COMFAC*AS**2*FACQG2/2D0 + KFNSQ=MOD(KFPR(ISUBSV,1),KSUSY1) + DO 1840 I=-KFNSQ,KFNSQ,2*KFNSQ + IF(I.LT.MMINA.OR.I.GT.MMAXA) GOTO 1840 + IF(I.EQ.0.OR.IABS(I).GT.10) GOTO 1840 + KCHQ=2 + IF(I.LT.0) KCHQ=3 + FACSEL=RKF*WIDS(PYCOMP(KFPR(ISUBSV,1)),KCHQ)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),2) + DO 1830 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,21).EQ.0) GOTO 1830 + IF(ISDE.EQ.2.AND.KFAC(1,21)*KFAC(2,I).EQ.0) GOTO 1830 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQG1*FACSEL + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=21 + ISIG(NCHN,3)=2 + SIGH(NCHN)=FACQG2*FACSEL + 1830 CONTINUE + 1840 CONTINUE + ENDIF + + ELSEIF(ISUB.LE.270) THEN + IF(ISUB.EQ.261) THEN +C...q_i + q_ibar -> ~t_1 + ~t_1bar + FACQQ1=COMFAC*( (UH*TH-SQM3*SQM4)/ SH**2 )* + & WIDS(PYCOMP(KFPR(ISUBSV,1)),1) + KFNSQ=MOD(KFPR(ISUBSV,1),KSUSY1) + FAC0=AS**2*4D0/9D0 + DO 1850 I=MMIN1,MMAX1 + IA=IABS(I) + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1850 + IF(IA.GE.11.AND.IA.LE.18) THEN + EI=KCHG(IA,1)/3D0 + EJ=KCHG(KFNSQ,1)/3D0 + T3I=SIGN(1D0,EI)/2D0 + T3J=SIGN(1D0,EJ)/2D0 + XLQ=2D0*(T3J-EJ*XW)*SFMIX(KFNSQ,2*ILR+1)**2 + XRQ=2D0*(-EJ*XW)*SFMIX(KFNSQ,2*ILR+2)**2 + XLF=2D0*(T3I-EI*XW) + XRF=2D0*(-EI*XW) + TAA=0.5D0*(EI*EJ)**2 + TZZ=(XLF**2+XRF**2)*(XLQ+XRQ)**2/64D0/XW**2/XW1**2 + TZZ=TZZ/((1D0-SQMZ/SH)**2+SQMZ*(ZWID/SH)**2) + TAZ=EI*EJ*(XLQ+XRQ)*(XLF+XRF)/8D0/XW/XW1 + TAZ=TAZ/((1D0-SQMZ/SH)**2+SQMZ*(ZWID/SH)**2)*(1D0-SQMZ/SH) + FAC0=AEM**2*12D0*(TAA+TZZ+TAZ) + ENDIF + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ1*FAC0 + 1850 CONTINUE + + ELSEIF(ISUB.EQ.263) THEN +C...f + fbar -> ~t1 + ~t2bar + DO 1860 I=MMIN1,MMAX1 + IA=IABS(I) + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1860 + EI=KCHG(IABS(I),1)/3D0 + TT3I=SIGN(1D0,EI)/2D0 + EJ=2D0/3D0 + TT3J=1D0/2D0 + FCOL=1D0 +C...Color factor for e+ e- + IF(IA.GE.11) FCOL=3D0 + XLQ=2D0*(TT3J-EJ*XW) + XRQ=2D0*(-EJ*XW) + XLF=2D0*(TT3I-EI*XW) + XRF=2D0*(-EI*XW) + TZZ=(XLF**2+XRF**2)*(XLQ-XRQ)**2/64D0/XW**2/XW1**2 + TZZ=TZZ*(SFMIX(6,1)*SFMIX(6,2))**2 + TZZ=TZZ/((1D0-SQMZ/SH)**2+SQMZ*(ZWID/SH)**2) +C...Factor of 2 for t1 t2bar + t2 t1bar + FACQQ1=2D0*COMFAC*AEM**2*TZZ*FCOL*4D0 + FACQQ1=FACQQ1*( UH*TH-SQM3*SQM4 )/SH2 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ1*WIDS(PYCOMP(KFPR(ISUBSV,1)),2)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),3) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=2 + SIGH(NCHN)=FACQQ1*WIDS(PYCOMP(KFPR(ISUBSV,1)),3)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),2) + 1860 CONTINUE + + ELSEIF(ISUB.EQ.264) THEN +C...g + g -> ~t_1 + ~t_1bar + XSU=SQM3-UH + XST=SQM3-TH + FAC0=COMFAC*AS**2*(7D0/48D0+3D0*(UH-TH)**2/16D0/SH2 )*0.5D0* + & WIDS(PYCOMP(KFPR(ISUBSV,1)),1) + FACQQ1=FAC0*(0.5D0+2D0*SQM3*TH/XST**2 + 2D0*SQM3**2/XSU/XST) + FACQQ2=FAC0*(0.5D0+2D0*SQM3*UH/XSU**2 + 2D0*SQM3**2/XSU/XST) + IF(KFAC(1,21)*KFAC(2,21).EQ.0) GOTO 1870 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ1 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=2 + SIGH(NCHN)=FACQQ2 + 1870 CONTINUE + ENDIF + + ELSEIF(ISUB.LE.280) THEN + IF(ISUB.EQ.271) THEN +C...q + q' -> ~q + ~q' (~g exchange) + XMG2=PMAS(PYCOMP(KSUSY1+21),1)**2 + XMT=XMG2-TH + XMU=XMG2-UH + XSU1=SQM3-UH + XSU2=SQM4-UH + XST1=SQM3-TH + XST2=SQM4-TH + IF(ILR.EQ.1) THEN + FACQQ1=COMFAC*AS**2*4D0/9D0*( -(XST1*XST2+SH*TH)/XMT**2 ) + FACQQ2=COMFAC*AS**2*4D0/9D0*( -(XSU1*XSU2+SH*UH)/XMU**2 ) + FACQQB=0.0D0 + ELSE + FACQQ1=0.5D0*COMFAC*AS**2*4D0/9D0*( SH*XMG2/XMT**2 ) + FACQQ2=0.5D0*COMFAC*AS**2*4D0/9D0*( SH*XMG2/XMU**2 ) + FACQQB=0.5D0*COMFAC*AS**2*4D0/9D0*( -2D0*SH*XMG2/3D0/ + & XMT/XMU ) + ENDIF + KFNSQI=MOD(KFPR(ISUBSV,1),KSUSY1) + KFNSQJ=MOD(KFPR(ISUBSV,2),KSUSY1) + DO 1890 I=-KFNSQI,KFNSQI,2*KFNSQI + IF(I.LT.MMIN1.OR.I.GT.MMAX1) GOTO 1890 + IA=IABS(I) + IF(I.EQ.0.OR.IA.GT.MSTP(58).OR.KFAC(1,I).EQ.0) GOTO 1890 + KCHQ=2 + IF(I.LT.0) KCHQ=3 + DO 1880 J=-KFNSQJ,KFNSQJ,2*KFNSQJ + IF(J.LT.MMIN2.OR.J.GT.MMAX2) GOTO 1880 + JA=IABS(J) + IF(J.EQ.0.OR.JA.GT.MSTP(58).OR.KFAC(2,J).EQ.0) GOTO 1880 + IF(I*J.LT.0) GOTO 1880 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ1*RKF*WIDS(PYCOMP(KFPR(ISUBSV,1)),KCHQ)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),KCHQ) + IF(I.EQ.J) THEN + IF(ILR.EQ.0) THEN + SIGH(NCHN)=0.5D0*(FACQQ1+0.5D0*FACQQB)*RKF* + & WIDS(PYCOMP(KFPR(ISUBSV,1)),KCHQ+2) + ELSE + SIGH(NCHN)=0.5D0*FACQQ1*RKF* + & WIDS(PYCOMP(KFPR(ISUBSV,1)),KCHQ)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),KCHQ) + ENDIF + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=2 + IF(ILR.EQ.0) THEN + SIGH(NCHN)=0.5D0*(FACQQ2+0.5D0*FACQQB)*RKF* + & WIDS(PYCOMP(KFPR(ISUBSV,1)),KCHQ+2) + ELSE + SIGH(NCHN)=0.5D0*FACQQ2*RKF* + & WIDS(PYCOMP(KFPR(ISUBSV,1)),KCHQ)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),KCHQ) + ENDIF + ENDIF + 1880 CONTINUE + 1890 CONTINUE + + ELSEIF(ISUB.EQ.274) THEN +C...q + qbar' -> ~q + ~qbar' + XMG2=PMAS(PYCOMP(KSUSY1+21),1)**2 + XMT=XMG2-TH + XMU=XMG2-UH + IF(ILR.EQ.0) THEN +C...Mrenna...Normalization.and.1/XMT + FACQQ1=COMFAC*AS**2*2D0/9D0*( + & (UH*TH-SQM3*SQM4)/XMT**2 ) + FACQQB=COMFAC*AS**2*2D0/9D0*( + & (UH*TH-SQM3*SQM4)/SH2*(2D0-2D0/3D0*SH/XMT)) + FACQQB=FACQQB+FACQQ1 + ELSE + FACQQ1=COMFAC*AS**2*4D0/9D0*( XMG2*SH/XMT**2 ) + FACQQB=FACQQ1 + ENDIF + KFNSQI=MOD(KFPR(ISUBSV,1),KSUSY1) + KFNSQJ=MOD(KFPR(ISUBSV,2),KSUSY1) + DO 1910 I=-KFNSQI,KFNSQI,2*KFNSQI + IF(I.LT.MMIN1.OR.I.GT.MMAX1) GOTO 1910 + IA=IABS(I) + IF(I.EQ.0.OR.IA.GT.MSTP(58).OR.KFAC(1,I).EQ.0) GOTO 1910 + KCHQ=2 + IF(I.LT.0) KCHQ=3 + DO 1900 J=-KFNSQJ,KFNSQJ,2*KFNSQJ + IF(J.LT.MMIN2.OR.J.GT.MMAX2) GOTO 1900 + JA=IABS(J) + IF(J.EQ.0.OR.JA.GT.MSTP(58).OR.KFAC(2,J).EQ.0) GOTO 1900 + IF(I*J.GT.0) GOTO 1900 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ1*RKF*WIDS(PYCOMP(KFPR(ISUBSV,1)),KCHQ)* + & WIDS(PYCOMP(KFPR(ISUBSV,2)),5-KCHQ) + IF(I.EQ.-J) SIGH(NCHN)=FACQQB*RKF* + & WIDS(PYCOMP(KFPR(ISUBSV,1)),1) + 1900 CONTINUE + 1910 CONTINUE + + ELSEIF(ISUB.EQ.277) THEN +C...q_i + q_ibar -> ~q_j + ~q_jbar ,i .ne. j +C...if i .eq. j covered in 274 + FACQQ1=COMFAC*( (UH*TH-SQM3*SQM4)/ SH**2 ) + KFNSQ=MOD(KFPR(ISUBSV,1),KSUSY1) + FAC0=0D0 + DO 1920 I=MMIN1,MMAX1 + IA=IABS(I) + IF(I.EQ.0.OR.IA.GT.MSTP(58).OR. + & KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 1920 + IF(IA.EQ.KFNSQ) GOTO 1920 + IF(IA.EQ.11.OR.IA.EQ.13.OR.IA.EQ.15) THEN + EI=KCHG(IA,1)/3D0 + EJ=KCHG(KFNSQ,1)/3D0 + T3J=SIGN(0.5D0,EJ) + T3I=SIGN(1D0,EI)/2D0 + IF(ILR.EQ.0) THEN + XLQ=2D0*(T3J-EJ*XW)*SFMIX(KFNSQ,1) + XRQ=2D0*(-EJ*XW)*SFMIX(KFNSQ,2) + ELSE + XLQ=2D0*(T3J-EJ*XW)*SFMIX(KFNSQ,3) + XRQ=2D0*(-EJ*XW)*SFMIX(KFNSQ,4) + ENDIF + XLF=2D0*(T3I-EI*XW) + XRF=2D0*(-EI*XW) + IF(ILR.EQ.0) THEN + XRQ=0D0 + ELSE + XLQ=0D0 + ENDIF + TAA=0.5D0*(EI*EJ)**2 + TZZ=(XLF**2+XRF**2)*(XLQ+XRQ)**2/64D0/XW**2/XW1**2 + TZZ=TZZ/((1D0-SQMZ/SH)**2+SQMZ*(ZWID/SH)**2) + TAZ=EI*EJ*(XLQ+XRQ)*(XLF+XRF)/8D0/XW/XW1 + TAZ=TAZ/((1D0-SQMZ/SH)**2+SQMZ*(ZWID/SH)**2)*(1D0-SQMZ/SH) + FAC0=AEM**2*12D0*(TAA+TZZ+TAZ) + ELSEIF(IA.LE.6) THEN + FAC0=AS**2*8D0/9D0/2D0 + ENDIF + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ1*FAC0*RKF*WIDS(PYCOMP(KFPR(ISUBSV,1)),1) + 1920 CONTINUE + + ELSEIF(ISUB.EQ.279) THEN +C...g + g -> ~q_j + ~q_jbar + XSU=SQM3-UH + XST=SQM3-TH +C...5=RKF because ~t ~tbar treated separately + FAC0=RKF*COMFAC*AS**2*( 7D0/48D0+3D0*(UH-TH)**2/16D0/SH2 ) + FACQQ1=FAC0*(0.5D0+2D0*SQM3*TH/XST**2 + 2D0*SQM3**2/XSU/XST) + FACQQ2=FAC0*(0.5D0+2D0*SQM3*UH/XSU**2 + 2D0*SQM3**2/XSU/XST) + IF(KFAC(1,21)*KFAC(2,21).EQ.0) GOTO 1930 + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACQQ1/2D0*WIDS(PYCOMP(KFPR(ISUBSV,1)),1) + NCHN=NCHN+1 + ISIG(NCHN,1)=21 + ISIG(NCHN,2)=21 + ISIG(NCHN,3)=2 + SIGH(NCHN)=FACQQ2/2D0*WIDS(PYCOMP(KFPR(ISUBSV,1)),1) + 1930 CONTINUE + + ENDIF +CMRENNA-- + + ELSEIF(ISUB.LE.340) THEN + + ELSEIF(ISUB.LE.360) THEN + + IF(ISUB.EQ.341.OR.ISUB.EQ.342) THEN +C...l + l -> H_L++/-- or H_R++/--. + KFRES=KFPR(ISUB,1) + CALL PYWIDT(KFRES,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + FACBW=8D0*COMFAC/((SH-PMAS(KFRES,1)**2)**2+HS**2) + DO 1950 I=MMIN1,MMAX1 + IA=IABS(I) + IF((IA.NE.11.AND.IA.NE.13.AND.IA.NE.15).OR.KFAC(1,I).EQ.0) + & GOTO 1950 + DO 1940 J=MMIN2,MMAX2 + JA=IABS(J) + IF((JA.NE.11.AND.JA.NE.13.AND.JA.NE.15).OR.KFAC(2,J).EQ.0) + & GOTO 1940 + IF(I*J.LT.0) GOTO 1940 + KCHH=(KCHG(IA,1)*ISIGN(1,I)+KCHG(JA,1)*ISIGN(1,J))/3 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + HI=SH*PARP(181+3*((IA-11)/2)+(JA-11)/2)**2/(8D0*PARU(1)) + HF=SHR*(WDTE(0,1)+WDTE(0,(5-KCHH/2)/2)+WDTE(0,4)) + SIGH(NCHN)=HI*FACBW*HF + 1940 CONTINUE + 1950 CONTINUE + + ELSEIF(ISUB.GE.343.AND.ISUB.LE.348) THEN +C...l + gamma -> H_L++/-- l' or l + gamma -> H_R++/-- l'. + KFRES=KFPR(ISUB,1) +C...Propagators: as simulated in PYOFSH and as desired + HBW3=PMAS(KFRES,1)*PMAS(KFRES,2)/((SQM3-PMAS(KFRES,1)**2)**2+ + & (PMAS(KFRES,1)*PMAS(KFRES,2))**2) + CALL PYWIDT(KFRES,SQM3,WDTP,WDTE) + GMMC=SQRT(SQM3)*WDTP(0) + HBW3C=GMMC/((SQM3-PMAS(KFRES,1)**2)**2+GMMC**2) + FHCC=COMFAC*AEM*HBW3C/HBW3 + DO 1980 I=MMINA,MMAXA + IA=IABS(I) + IF(IA.NE.11.AND.IA.NE.13.AND.IA.NE.15) GOTO 1980 + SQML=PMAS(IA,1)**2 + J=ISIGN(KFPR(ISUB,2),-I) + KCHH=ISIGN(2,KCHG(IA,1)*ISIGN(1,I)) + WIDSC=(WDTE(0,1)+WDTE(0,(5-KCHH/2)/2)+WDTE(0,4))/WDTP(0) + SMM1=8D0*(SH+TH-SQM3)*(SH+TH-2D0*SQM3-SQML-SQM4)/ + & (UH-SQM3)**2 + SMM2=2D0*((2D0*SQM3-3D0*SQML)*SQM4+(SQML-2D0*SQM4)*TH- + & (TH-SQM4)*SH)/(TH-SQM4)**2 + SMM3=2D0*((2D0*SQM3-3D0*SQM4+TH)*SQML-(2D0*SQML-SQM4+TH)* + & SH)/(SH-SQML)**2 + SMM12=4D0*((2D0*SQML-SQM4-2D0*SQM3+TH)*SH+(TH-3D0*SQM3- + & 3D0*SQM4)*TH+(2D0*SQM3-2D0*SQML+3D0*SQM4)*SQM3)/ + & ((UH-SQM3)*(TH-SQM4)) + SMM13=-4D0*((TH+SQML-2D0*SQM4)*TH-(SQM3+3D0*SQML-2D0*SQM4)* + & SQM3+(SQM3+3D0*SQML+TH)*SH-(TH-SQM3+SH)**2)/ + & ((UH-SQM3)*(SH-SQML)) + SMM23=-4D0*((SQML-SQM4+SQM3)*TH-SQM3**2+SQM3*(SQML+SQM4)- + & 3D0*SQML*SQM4-(SQML-SQM4-SQM3+TH)*SH)/ + & ((SH-SQML)*(TH-SQM4)) + SMM=(SH/(SH-SQML))**2*(SMM1+SMM2+SMM3+SMM12+SMM13+SMM23)* + & PARP(181+3*((IA-11)/2)+(IABS(J)-11)/2)**2/(4D0*PARU(1)) + DO 1960 ISDE=1,2 + IF(ISDE.EQ.1.AND.KFAC(1,I)*KFAC(2,22).EQ.0) GOTO 1960 + IF(ISDE.EQ.2.AND.KFAC(1,22)*KFAC(2,I).EQ.0) GOTO 1960 + NCHN=NCHN+1 + ISIG(NCHN,ISDE)=I + ISIG(NCHN,3-ISDE)=22 + ISIG(NCHN,3)=0 + SIGH(NCHN)=FHCC*SMM*WIDSC + 1960 CONTINUE + 1980 CONTINUE + + ELSEIF(ISUB.EQ.349.OR.ISUB.EQ.350) THEN +C...f + fbar -> H_L++ + H_L-- or H_R++ + H_R-- + KFRES=KFPR(ISUB,1) + SQMH=PMAS(KFRES,1)**2 + GMMH=PMAS(KFRES,1)*PMAS(KFRES,2) +C...Propagators: H++/-- as simulated in PYOFSH and as desired + HBW3=GMMH/((SQM3-SQMH)**2+GMMH**2) + CALL PYWIDT(KFRES,SQM3,WDTP,WDTE) + GMMH3=SQRT(SQM3)*WDTP(0) + HBW3C=GMMH3/((SQM3-SQMH)**2+GMMH3**2) + HBW4=GMMH/((SQM4-SQMH)**2+GMMH**2) + CALL PYWIDT(KFRES,SQM4,WDTP,WDTE) + GMMH4=SQRT(SQM4)*WDTP(0) + HBW4C=GMMH4/((SQM4-SQMH)**2+GMMH4**2) +C...Kinematical and coupling functions + FACHH=COMFAC*(HBW3C/HBW3)*(HBW4C/HBW4)*(TH*UH-SQM3*SQM4) + XWHH=(1D0-2D0*XWV)/(8D0*XWV*(1D0-XWV)) +C...Loop over allowed flavours + DO 2000 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 2000 + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI+0.1D0) + VI=AI-4D0*EI*XWV + FCOI=1D0 + IF(IABS(I).LE.10) FCOI=FACA/3D0 + IF(ISUB.EQ.349) THEN + HBWZ=1D0/((SH-SQMZ)**2+GMMZ**2) + IF(IABS(I).LT.10) THEN + DSIGHH=8D0*AEM**2*(EI**2/SH2+ + & 2D0*EI*VI*XWHH*(SH-SQMZ)*HBWZ/SH+ + & (VI**2+AI**2)*XWHH**2*HBWZ) + ELSE + IAOFF=181+3*((IABS(I)-11)/2) + HSUM=(PARP(IAOFF)**2+PARP(IAOFF+1)**2+PARP(IAOFF+2)**2)/ + & (4D0*PARU(1)) + DSIGHH=8D0*AEM**2*(EI**2/SH2+ + & 2D0*EI*VI*XWHH*(SH-SQMZ)*HBWZ/SH+ + & (VI**2+AI**2)*XWHH**2*HBWZ)+ + & 8D0*AEM*(EI*HSUM/(SH*TH)+ + & (VI+AI)*XWHH*HSUM*(SH-SQMZ)*HBWZ/TH)+ + & 4D0*HSUM**2/TH2 + ENDIF + ELSE + IF(IABS(I).LT.10) THEN + DSIGHH=8D0*AEM**2*EI**2/SH2 + ELSE + IAOFF=181+3*((IABS(I)-11)/2) + HSUM=(PARP(IAOFF)**2+PARP(IAOFF+1)**2+PARP(IAOFF+2)**2)/ + & (4D0*PARU(1)) + DSIGHH=8D0*AEM**2*EI**2/SH2+8D0*AEM*EI*HSUM/(SH*TH)+ + & 4D0*HSUM**2/TH2 + ENDIF + ENDIF + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACHH*FCOI*DSIGHH + 2000 CONTINUE + + ELSEIF(ISUB.EQ.351.OR.ISUB.EQ.352) THEN +C...f + f' -> f" + f"' + H++/-- (W+/- + W+/- -> H++/-- as inner process) + KFRES=KFPR(ISUB,1) + SQMH=PMAS(KFRES,1)**2 + IF(ISUB.EQ.351) FACNOR=PARP(190)**8*PARP(192)**2 + IF(ISUB.EQ.352) FACNOR=PARP(191)**6*2D0*PMAS(63,1)**2 + FACWW=COMFAC*FACNOR*TAUP*VINT(2)*VINT(219) + FACPRT=1D0/((VINT(204)**2-VINT(215))* + & (VINT(209)**2-VINT(216))) + FACPRU=1D0/((VINT(204)**2+2D0*VINT(217))* + & (VINT(209)**2+2D0*VINT(218))) + CALL PYWIDT(KFRES,SH,WDTP,WDTE) + HS=SHR*WDTP(0) + FACBW=(1D0/PARU(1))*VINT(2)/((SH-SQMH)**2+HS**2) + IF(ABS(SHR-PMAS(KFRES,1)).GT.PARP(48)*PMAS(KFRES,2)) + & FACBW=0D0 + DO 2020 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 2020 + IF(ISUB.EQ.352.AND.IABS(I).GT.10) GOTO 2020 + KCHWI=(1-2*MOD(IABS(I),2))*ISIGN(1,I) + DO 2010 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 2010 + IF(ISUB.EQ.352.AND.IABS(J).GT.10) GOTO 2010 + KCHWJ=(1-2*MOD(IABS(J),2))*ISIGN(1,J) + KCHH=KCHWI+KCHWJ + IF(IABS(KCHH).NE.2) GOTO 2010 + FACLR=VINT(180+I)*VINT(180+J) + HF=SHR*(WDTE(0,1)+WDTE(0,(5-KCHH/2)/2)+WDTE(0,4)) + IF(I.EQ.J.AND.IABS(I).GT.10) THEN + FACPRP=0.5D0*(FACPRT+FACPRU)**2 + ELSE + FACPRP=FACPRT**2 + ENDIF + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=FACLR*FACWW*FACPRP*FACBW*HF + 2010 CONTINUE + 2020 CONTINUE + ENDIF + + ELSEIF(ISUB.LE.380) THEN + + IF(ISUB.EQ.361) THEN +C...f + fbar -> W_L W_L, W_L pi_tech, pi_tech pi_tech + FACA=(SH**2*BE34**2-(TH-UH)**2) + ALPRHT=2.91D0*(3D0/PARP(144)) + HP=(1D0/12D0)*AEM*ALPRHT*CAB2*COMFAC*FACA*3D0 + FAR=SQRT(AEM/ALPRHT) + FAO=FAR*QUPD + FZR=FAR*CT2W + FZO=-FAO*TANW + SFAR=FAR**2 + SFAO=FAO**2 + SFZR=FZR**2 + SFZO=FZO**2 + CALL PYWIDT(23,SH,WDTP,WDTE) + SSMZ=CMPLX(1D0-PMAS(23,1)**2/SH,WDTP(0)/SHR) + CALL PYWIDT(54,SH,WDTP,WDTE) + SSMR=CMPLX(1D0-PMAS(54,1)**2/SH,WDTP(0)/SHR) + CALL PYWIDT(56,SH,WDTP,WDTE) + SSMO=CMPLX(1D0-PMAS(56,1)**2/SH,WDTP(0)/SHR) + DETD=(FAR*FZO-FAO*FZR)**2+SSMZ*SSMR*SSMO-SFZR*SSMO- + $ SFZO*SSMR-SFAR*SSMO*SSMZ-SFAO*SSMR*SSMZ + DARHO=(-FAR*SFZO+FAO*FZO*FZR+FAR*SSMO*SSMZ)/DETD/SH + DZRHO=(-FZR*SFAO+FAO*FZO*FAR+FZR*SSMO)/DETD/SH + + DO 2040 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 2040 + IA=IABS(I) + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI+0.1D0) + VI=AI-4D0*EI*XWV + VALI=0.25D0*(VI+AI) + VARI=0.25D0*(VI-AI) + F2L=EI*DARHO+VALI*DZRHO/SQRT(XW*XW1) + F2R=EI*DARHO+VARI*DZRHO/SQRT(XW*XW1) + HI=ABS(F2L)**2+ABS(F2R)**2 + IF(IA.LE.10) HI=HI/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + IF(KFA.EQ.KFB) THEN + SIGH(NCHN)=HI*HP*WIDS(KFA,1) + ELSE + SIGH(NCHN)=HI*HP*WIDS(KFA,2)*WIDS(KFB,3) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=2 + SIGH(NCHN)=HI*HP*WIDS(KFA,3)*WIDS(KFB,2) + ENDIF + 2040 CONTINUE + + ELSEIF(ISUB.EQ.364) THEN +C...f + fbar -> gamma pi_tech, gamma pi_tech', Z pi_tech, Z pi_tech', +C...W pi_tech + VFAC=(TH**2+UH**2-2D0*SQM3*SQM4)/SQTV*SH + AFAC=(TH**2+UH**2-2D0*SQM3*SQM4+4D0*SH*SQM3)/SQTA*SH + + ALPRHT=2.91D0*(3D0/PARP(144)) + HP=(1D0/24D0)*AEM**2*COMFAC*3D0 + FAR=SQRT(AEM/ALPRHT) + FAO=FAR*QUPD + FZR=FAR*CT2W + FZO=-FAO*TANW + SFAR=FAR**2 + SFAO=FAO**2 + SFZR=FZR**2 + SFZO=FZO**2 + CALL PYWIDT(23,SH,WDTP,WDTE) + SSMZ=CMPLX(1D0-PMAS(23,1)**2/SH,WDTP(0)/SHR) + CALL PYWIDT(54,SH,WDTP,WDTE) + SSMR=CMPLX(1D0-PMAS(54,1)**2/SH,WDTP(0)/SHR) + CALL PYWIDT(56,SH,WDTP,WDTE) + SSMO=CMPLX(1D0-PMAS(56,1)**2/SH,WDTP(0)/SHR) + DETD=(FAR*FZO-FAO*FZR)**2+SSMZ*SSMR*SSMO-SFZR*SSMO- + $ SFZO*SSMR-SFAR*SSMO*SSMZ-SFAO*SSMR*SSMZ + DARHO=(-FAR*SFZO+FAO*FZO*FZR+FAR*SSMO*SSMZ)/DETD/SH + DZRHO=(-FZR*SFAO+FAO*FZO*FAR+FZR*SSMO)/DETD/SH + DAOME=(-FAO*SFZR+FAR*FZO*FZR+FAO*SSMR*SSMZ)/DETD/SH + DZOME=(-FZO*SFAR+FAR*FAO*FZR+FZO*SSMR)/DETD/SH + + DO 2060 I=MMINA,MMAXA + IF(I.EQ.0.OR.KFAC(1,I)*KFAC(2,-I).EQ.0) GOTO 2060 + IA=IABS(I) + EI=KCHG(IABS(I),1)/3D0 + AI=SIGN(1D0,EI+0.1D0) + VI=AI-4D0*EI*XWV + VALI=0.25D0*(VI+AI) + VARI=0.25D0*(VI-AI) + F2L=(EI*DARHO+VALI*DZRHO/SQRT(XW*XW1))*VRGP + F2L=F2L+(EI*DAOME+VALI*DZOME/SQRT(XW*XW1))*VOGP + F2R=(EI*DARHO+VARI*DZRHO/SQRT(XW*XW1))*VRGP + F2R=F2R+(EI*DAOME+VARI*DZOME/SQRT(XW*XW1))*VOGP + HI=(ABS(F2L)**2+ABS(F2R)**2)*VFAC + F2L=(EI*DARHO+VALI*DZRHO/SQRT(XW*XW1))*ARGP + F2L=F2L+(EI*DAOME+VALI*DZOME/SQRT(XW*XW1))*AOGP + F2R=(EI*DARHO+VARI*DZRHO/SQRT(XW*XW1))*ARGP + F2R=F2R+(EI*DAOME+VARI*DZOME/SQRT(XW*XW1))*AOGP + HJ=(ABS(F2L)**2+ABS(F2R)**2)*AFAC + HI=HI+HJ + IF(IA.LE.10) HI=HI/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=1 + IF(ISUBSV.NE.368) THEN + SIGH(NCHN)=HI*HP*WIDS(KFA,2)*WIDS(KFB,2) + ELSE + SIGH(NCHN)=HI*HP*WIDS(KFA,2)*WIDS(KFB,3) + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=-I + ISIG(NCHN,3)=2 + SIGH(NCHN)=HI*HP*WIDS(KFA,3)*WIDS(KFB,2) + ENDIF + 2060 CONTINUE + + ELSEIF(ISUB.EQ.370) THEN +C...f + fbar' -> W_L Z_L, W_L pi_tech, Z_L pi_tech, pi_tech pi_tech + + FACA=(SH**2*BE34**2-(TH-UH)**2) + ALPRHT=2.91D0*(3D0/PARP(144)) + HP=(1D0/24D0)*AEM*ALPRHT*CAB2*COMFAC*FACA*3D0/XW + + FWR=SQRT(AEM/ALPRHT)/(2D0*SQRT(XW)) + CALL PYWIDT(24,SH,WDTP,WDTE) + SSMZ=CMPLX(1D0-PMAS(24,1)**2/SH,WDTP(0)/SHR) + CALL PYWIDT(55,SH,WDTP,WDTE) + SSMR=CMPLX(1D0-PMAS(55,1)**2/SH,WDTP(0)/SHR) + + DETD=SSMZ*SSMR-CMPLX(FWR**2,0D0) + HP=HP*FWR**2/ABS(DETD)**2/SH**2 + + DO 2080 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 2080 + IA=IABS(I) + DO 2070 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 2070 + JA=IABS(J) + IF(I*J.GT.0.OR.MOD(IA+JA,2).EQ.0) GOTO 2070 + IF((IA.LE.10.AND.JA.GT.10).OR.(IA.GT.10.AND.JA.LE.10)) + & GOTO 2070 + KCHR=(KCHG(IA,1)*ISIGN(1,I)+KCHG(JA,1)*ISIGN(1,J))/3 + HI=HP + IF(IA.LE.10) HI=HI*VCKM((IA+1)/2,(JA+1)/2)/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=HI*WIDS(KFA,(5-KCHR)/2)*WIDS(KFB,2) + 2070 CONTINUE + 2080 CONTINUE + + ELSEIF(ISUB.EQ.374) THEN +C...f + fbar' -> G pi_tech + VFAC=(TH**2+UH**2-2D0*SQM3*SQM4)/SQTV*VRGP**2 + AFAC=(TH**2+UH**2-2D0*SQM3*SQM4+4D0*SH*SQM3)/SQTA*ARGP**2 + + ALPRHT=2.91D0*(3D0/PARP(144)) + HP=(1D0/48D0)*AEM**2/XW*COMFAC*3D0*(VFAC+AFAC)*SH + + FWR=SQRT(AEM/ALPRHT)/(2D0*SQRT(XW)) + CALL PYWIDT(24,SH,WDTP,WDTE) + SSMZ=CMPLX(1D0-PMAS(24,1)**2/SH,WDTP(0)/SHR) + CALL PYWIDT(55,SH,WDTP,WDTE) + SSMR=CMPLX(1D0-PMAS(55,1)**2/SH,WDTP(0)/SHR) + + DETD=SSMZ*SSMR-CMPLX(FWR**2,0D0) + HP=HP*FWR**2/ABS(DETD)**2/SH**2 + + DO 2100 I=MMIN1,MMAX1 + IF(I.EQ.0.OR.KFAC(1,I).EQ.0) GOTO 2100 + IA=IABS(I) + DO 2090 J=MMIN2,MMAX2 + IF(J.EQ.0.OR.KFAC(2,J).EQ.0) GOTO 2090 + JA=IABS(J) + IF(I*J.GT.0.OR.MOD(IA+JA,2).EQ.0) GOTO 2090 + IF((IA.LE.10.AND.JA.GT.10).OR.(IA.GT.10.AND.JA.LE.10)) + & GOTO 2090 + KCHR=(KCHG(IA,1)*ISIGN(1,I)+KCHG(JA,1)*ISIGN(1,J))/3 + HI=HP + IF(IA.LE.10) HI=HI*VCKM((IA+1)/2,(JA+1)/2)/3D0 + NCHN=NCHN+1 + ISIG(NCHN,1)=I + ISIG(NCHN,2)=J + ISIG(NCHN,3)=1 + SIGH(NCHN)=HI*WIDS(KFA,(5-KCHR)/2)*WIDS(KFB,2) + 2090 CONTINUE + 2100 CONTINUE + + ENDIF + ENDIF + +C...Multiply with parton distributions + IF(ISUB.LE.90.OR.ISUB.GE.96) THEN + DO 2200 ICHN=1,NCHN + IF(MINT(45).GE.2) THEN + KFL1=ISIG(ICHN,1) + SIGH(ICHN)=SIGH(ICHN)*XSFX(1,KFL1) + ENDIF + IF(MINT(46).GE.2) THEN + KFL2=ISIG(ICHN,2) + SIGH(ICHN)=SIGH(ICHN)*XSFX(2,KFL2) + ENDIF + SIGS=SIGS+SIGH(ICHN) + 2200 CONTINUE + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYPDFU +C...Gives electron, muon, tau, photon, pi+, neutron, proton and hyperon +C...parton distributions according to a few different parametrizations. +C...Note that what is coded is x times the probability distribution, +C...i.e. xq(x,Q2) etc. + + SUBROUTINE PYPDFU(KF,X,Q2,XPQ) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT8/XPVMD(-6:6),XPANL(-6:6),XPANH(-6:6),XPBEH(-6:6), + &XPDIR(-6:6) + SAVE /PYDAT1/,/PYDAT2/,/PYPARS/,/PYINT1/,/PYINT8/ +C...Local arrays. + DIMENSION XPQ(-25:25),XPEL(-25:25),XPGA(-6:6),VXPGA(-6:6), + &XPPI(-6:6),XPPR(-6:6) + +C...Interface to PDFLIB. + COMMON/W50513/XMIN,XMAX,Q2MIN,Q2MAX + SAVE /W50513/ + DOUBLE PRECISION XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GLU, + &VALUE(20),XMIN,XMAX,Q2MIN,Q2MAX + CHARACTER*20 PARM(20) + DATA VALUE/20*0D0/,PARM/20*' '/ + +C...Data related to Schuler-Sjostrand photon distributions. + DATA ALAMGA/0.2D0/, PMCGA/1.3D0/, PMBGA/4.6D0/ + +C...Reset parton distributions. + MINT(92)=0 + DO 100 KFL=-25,25 + XPQ(KFL)=0D0 + 100 CONTINUE + +C...Check x and particle species. + IF(X.LE.0D0.OR.X.GE.1D0) THEN + WRITE(MSTU(11),5000) X + RETURN + ENDIF + KFA=IABS(KF) + IF(KFA.NE.11.AND.KFA.NE.13.AND.KFA.NE.15.AND.KFA.NE.22.AND. + &KFA.NE.211.AND.KFA.NE.2112.AND.KFA.NE.2212.AND.KFA.NE.3122.AND. + &KFA.NE.3112.AND.KFA.NE.3212.AND.KFA.NE.3222.AND.KFA.NE.3312.AND. + &KFA.NE.3322.AND.KFA.NE.3334.AND.KFA.NE.111) THEN + WRITE(MSTU(11),5100) KF + RETURN + ENDIF + +C...Electron (or muon or tau) parton distribution call. + IF(KFA.EQ.11.OR.KFA.EQ.13.OR.KFA.EQ.15) THEN + CALL PYPDEL(KFA,X,Q2,XPEL) + DO 110 KFL=-25,25 + XPQ(KFL)=XPEL(KFL) + 110 CONTINUE + +C...Photon parton distribution call (VDM+anomalous). + ELSEIF(KFA.EQ.22.AND.MINT(109).LE.1) THEN + IF(MSTP(56).EQ.1.AND.MSTP(55).EQ.1) THEN + CALL PYPDGA(X,Q2,XPGA) + DO 120 KFL=-6,6 + XPQ(KFL)=XPGA(KFL) + 120 CONTINUE + ELSEIF(MSTP(56).EQ.1.AND.MSTP(55).GE.5.AND.MSTP(55).LE.8) THEN + Q2MX=Q2 + P2MX=0.36D0 + IF(MSTP(55).GE.7) P2MX=4.0D0 + IF(MSTP(57).EQ.0) Q2MX=P2MX + P2=0D0 + IF(VINT(120).LT.0D0) P2=VINT(120)**2 + CALL PYGGAM(MSTP(55)-4,X,Q2MX,P2,MSTP(60),F2GAM,XPGA) + DO 130 KFL=-6,6 + XPQ(KFL)=XPGA(KFL) + 130 CONTINUE + VINT(231)=P2MX + ELSEIF(MSTP(56).EQ.1.AND.MSTP(55).GE.9.AND.MSTP(55).LE.12) THEN + Q2MX=Q2 + P2MX=0.36D0 + IF(MSTP(55).GE.11) P2MX=4.0D0 + IF(MSTP(57).EQ.0) Q2MX=P2MX + P2=0D0 + IF(VINT(120).LT.0D0) P2=VINT(120)**2 + CALL PYGGAM(MSTP(55)-8,X,Q2MX,P2,MSTP(60),F2GAM,XPGA) + DO 140 KFL=-6,6 + XPQ(KFL)=XPVMD(KFL)+XPANL(KFL)+XPBEH(KFL)+XPDIR(KFL) + 140 CONTINUE + VINT(231)=P2MX + ELSEIF(MSTP(56).EQ.2) THEN +C...Call PDFLIB parton distributions. + PARM(1)='NPTYPE' + VALUE(1)=3 + PARM(2)='NGROUP' + VALUE(2)=MSTP(55)/1000 + PARM(3)='NSET' + VALUE(3)=MOD(MSTP(55),1000) + IF(MINT(93).NE.3000000+MSTP(55)) THEN + CALL PDFSET(PARM,VALUE) + MINT(93)=3000000+MSTP(55) + ENDIF + XX=X + QQ2=MAX(0D0,Q2MIN,Q2) + IF(MSTP(57).EQ.0) QQ2=Q2MIN + P2=0D0 + IF(VINT(120).LT.0D0) P2=VINT(120)**2 + IP2=MSTP(60) + IF(MSTP(55).EQ.5004) THEN + IF(5D0*P2.LT.QQ2.AND. + & QQ2.GT.0.6D0.AND.QQ2.LT.5D4.AND. + & P2.GE.0D0.AND.P2.LT.10D0.AND. + & XX.GT.1D-4.AND.XX.LT.1D0) THEN + CALL STRUCTP(XX,QQ2,P2,IP2,UPV,DNV,USEA,DSEA,STR,CHM, + & BOT,TOP,GLU) + ELSE + UPV=0D0 + DNV=0D0 + USEA=0D0 + DSEA=0D0 + STR=0D0 + CHM=0D0 + BOT=0D0 + TOP=0D0 + GLU=0D0 + ENDIF + ELSE + IF(P2.LT.QQ2) THEN + CALL STRUCTP(XX,QQ2,P2,IP2,UPV,DNV,USEA,DSEA,STR,CHM, + & BOT,TOP,GLU) + ELSE + UPV=0D0 + DNV=0D0 + USEA=0D0 + DSEA=0D0 + STR=0D0 + CHM=0D0 + BOT=0D0 + TOP=0D0 + GLU=0D0 + ENDIF + ENDIF + VINT(231)=Q2MIN + XPQ(0)=GLU + XPQ(1)=DNV + XPQ(-1)=DNV + XPQ(2)=UPV + XPQ(-2)=UPV + XPQ(3)=STR + XPQ(-3)=STR + XPQ(4)=CHM + XPQ(-4)=CHM + XPQ(5)=BOT + XPQ(-5)=BOT + XPQ(6)=TOP + XPQ(-6)=TOP + ELSE + WRITE(MSTU(11),5200) KF,MSTP(56),MSTP(55) + ENDIF + +C...Pion/gammaVDM parton distribution call. + ELSEIF(KFA.EQ.211.OR.KFA.EQ.111.OR.(KFA.EQ.22.AND. + & MINT(109).EQ.2)) THEN + IF(KFA.EQ.22.AND.MSTP(56).EQ.1.AND.MSTP(55).GE.5.AND. + & MSTP(55).LE.12) THEN + ISET=1+MOD(MSTP(55)-1,4) + Q2MX=Q2 + P2MX=0.36D0 + IF(ISET.GE.3) P2MX=4.0D0 + IF(MSTP(57).EQ.0) Q2MX=P2MX + P2=0D0 + IF(VINT(120).LT.0D0) P2=VINT(120)**2 + CALL PYGGAM(ISET,X,Q2MX,P2,MSTP(60),F2GAM,XPGA) + DO 150 KFL=-6,6 + XPQ(KFL)=XPVMD(KFL) + 150 CONTINUE + VINT(231)=P2MX + ELSEIF(MSTP(54).EQ.1.AND.MSTP(53).GE.1.AND.MSTP(53).LE.3) THEN + CALL PYPDPI(X,Q2,XPPI) + DO 160 KFL=-6,6 + XPQ(KFL)=XPPI(KFL) + 160 CONTINUE + ELSEIF(MSTP(54).EQ.2) THEN +C...Call PDFLIB parton distributions. + PARM(1)='NPTYPE' + VALUE(1)=2 + PARM(2)='NGROUP' + VALUE(2)=MSTP(53)/1000 + PARM(3)='NSET' + VALUE(3)=MOD(MSTP(53),1000) + IF(MINT(93).NE.2000000+MSTP(53)) THEN + CALL PDFSET(PARM,VALUE) + MINT(93)=2000000+MSTP(53) + ENDIF + XX=X + QQ=SQRT(MAX(0D0,Q2MIN,Q2)) + IF(MSTP(57).EQ.0) QQ=SQRT(Q2MIN) + CALL STRUCTM(XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GLU) + VINT(231)=Q2MIN + XPQ(0)=GLU + XPQ(1)=DSEA + XPQ(-1)=UPV+DSEA + XPQ(2)=UPV+USEA + XPQ(-2)=USEA + XPQ(3)=STR + XPQ(-3)=STR + XPQ(4)=CHM + XPQ(-4)=CHM + XPQ(5)=BOT + XPQ(-5)=BOT + XPQ(6)=TOP + XPQ(-6)=TOP + ELSE + WRITE(MSTU(11),5200) KF,MSTP(54),MSTP(53) + ENDIF + +C...Anomalous photon parton distribution call. + ELSEIF(KFA.EQ.22.AND.MINT(109).EQ.3) THEN + Q2MX=Q2 + P2MX=PARP(15)**2 + IF(MSTP(56).EQ.1.AND.MSTP(55).LE.8) THEN + IF(MSTP(55).EQ.5.OR.MSTP(55).EQ.6) P2MX=0.36D0 + IF(MSTP(55).EQ.7.OR.MSTP(55).EQ.8) P2MX=4.0D0 + IF(MSTP(57).EQ.0) Q2MX=P2MX + P2=0D0 + IF(VINT(120).LT.0D0) P2=VINT(120)**2 + CALL PYGGAM(MSTP(55)-4,X,Q2MX,P2,MSTP(60),F2GM,XPGA) + DO 170 KFL=-6,6 + XPQ(KFL)=XPANL(KFL)+XPANH(KFL) + 170 CONTINUE + VINT(231)=P2MX + ELSEIF(MSTP(56).EQ.1) THEN + IF(MSTP(55).EQ.9.OR.MSTP(55).EQ.10) P2MX=0.36D0 + IF(MSTP(55).EQ.11.OR.MSTP(55).EQ.12) P2MX=4.0D0 + IF(MSTP(57).EQ.0) Q2MX=P2MX + P2=0D0 + IF(VINT(120).LT.0D0) P2=VINT(120)**2 + CALL PYGGAM(MSTP(55)-8,X,Q2MX,P2,MSTP(60),F2GM,XPGA) + DO 180 KFL=-6,6 + XPQ(KFL)=MAX(0D0,XPANL(KFL)+XPBEH(KFL)+XPDIR(KFL)) + 180 CONTINUE + VINT(231)=P2MX + ELSEIF(MSTP(56).EQ.2) THEN + IF(MSTP(57).EQ.0) Q2MX=P2MX + CALL PYGANO(0,X,Q2MX,P2MX,ALAMGA,XPGA,VXPGA) + DO 190 KFL=-6,6 + XPQ(KFL)=XPGA(KFL) + 190 CONTINUE + VINT(231)=P2MX + ELSEIF(MSTP(55).GE.1.AND.MSTP(55).LE.5) THEN + IF(MSTP(57).EQ.0) Q2MX=P2MX + CALL PYGVMD(0,MSTP(55),X,Q2MX,P2MX,PARP(1),XPGA,VXPGA) + DO 200 KFL=-6,6 + XPQ(KFL)=XPGA(KFL) + 200 CONTINUE + VINT(231)=P2MX + ELSE + 210 RKF=11D0*PYR(0) + KFR=1 + IF(RKF.GT.1D0) KFR=2 + IF(RKF.GT.5D0) KFR=3 + IF(RKF.GT.6D0) KFR=4 + IF(RKF.GT.10D0) KFR=5 + IF(KFR.EQ.4.AND.Q2.LT.PMCGA**2) GOTO 210 + IF(KFR.EQ.5.AND.Q2.LT.PMBGA**2) GOTO 210 + IF(MSTP(57).EQ.0) Q2MX=P2MX + CALL PYGVMD(0,KFR,X,Q2MX,P2MX,PARP(1),XPGA,VXPGA) + DO 220 KFL=-6,6 + XPQ(KFL)=XPGA(KFL) + 220 CONTINUE + VINT(231)=P2MX + ENDIF + +C...Proton parton distribution call. + ELSE + IF(MSTP(52).EQ.1.AND.MSTP(51).GE.1.AND.MSTP(51).LE.20) THEN + CALL PYPDPR(X,Q2,XPPR) + DO 230 KFL=-6,6 + XPQ(KFL)=XPPR(KFL) + 230 CONTINUE + ELSEIF(MSTP(52).EQ.2) THEN +C...Call PDFLIB parton distributions. + PARM(1)='NPTYPE' + VALUE(1)=1 + PARM(2)='NGROUP' + VALUE(2)=MSTP(51)/1000 + PARM(3)='NSET' + VALUE(3)=MOD(MSTP(51),1000) + IF(MINT(93).NE.1000000+MSTP(51)) THEN + CALL PDFSET(PARM,VALUE) + MINT(93)=1000000+MSTP(51) + ENDIF + XX=X + QQ=SQRT(MAX(0D0,Q2MIN,Q2)) + IF(MSTP(57).EQ.0) QQ=SQRT(Q2MIN) + CALL STRUCTM(XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GLU) + VINT(231)=Q2MIN + XPQ(0)=GLU + XPQ(1)=DNV+DSEA + XPQ(-1)=DSEA + XPQ(2)=UPV+USEA + XPQ(-2)=USEA + XPQ(3)=STR + XPQ(-3)=STR + XPQ(4)=CHM + XPQ(-4)=CHM + XPQ(5)=BOT + XPQ(-5)=BOT + XPQ(6)=TOP + XPQ(-6)=TOP + ELSE + WRITE(MSTU(11),5200) KF,MSTP(52),MSTP(51) + ENDIF + ENDIF + +C...Isospin average for pi0/gammaVDM. + IF(KFA.EQ.111.OR.(KFA.EQ.22.AND.MINT(109).EQ.2)) THEN + IF(KFA.EQ.22.AND.MSTP(55).GE.5.AND.MSTP(55).LE.12) THEN + XPV=XPQ(2)-XPQ(1) + XPQ(2)=XPQ(1) + XPQ(-2)=XPQ(-1) + ELSE + XPS=0.5D0*(XPQ(1)+XPQ(-2)) + XPV=0.5D0*(XPQ(2)+XPQ(-1))-XPS + XPQ(2)=XPS + XPQ(-1)=XPS + ENDIF + IF(KFA.EQ.22.AND.MINT(105).LE.223) THEN + XPQ(1)=XPQ(1)+0.2D0*XPV + XPQ(-1)=XPQ(-1)+0.2D0*XPV + XPQ(2)=XPQ(2)+0.8D0*XPV + XPQ(-2)=XPQ(-2)+0.8D0*XPV + ELSEIF(KFA.EQ.22.AND.MINT(105).EQ.333) THEN + XPQ(3)=XPQ(3)+XPV + XPQ(-3)=XPQ(-3)+XPV + ELSEIF(KFA.EQ.22.AND.MINT(105).EQ.443) THEN + XPQ(4)=XPQ(4)+XPV + XPQ(-4)=XPQ(-4)+XPV + IF(MSTP(55).GE.9) THEN + DO 240 KFL=-6,6 + XPQ(KFL)=0D0 + 240 CONTINUE + ENDIF + ELSE + XPQ(1)=XPQ(1)+0.5D0*XPV + XPQ(-1)=XPQ(-1)+0.5D0*XPV + XPQ(2)=XPQ(2)+0.5D0*XPV + XPQ(-2)=XPQ(-2)+0.5D0*XPV + ENDIF + +C...Rescale for gammaVDM by effective gamma -> rho coupling. +C+++Do not rescale? + IF(KFA.EQ.22.AND.MINT(109).EQ.2.AND..NOT.(MSTP(56).EQ.1 + & .AND.MSTP(55).GE.5.AND.MSTP(55).LE.12)) THEN + DO 250 KFL=-6,6 + XPQ(KFL)=VINT(281)*XPQ(KFL) + 250 CONTINUE + VINT(232)=VINT(281)*XPV + ENDIF + +C...Isospin conjugation for neutron. + ELSEIF(KFA.EQ.2112) THEN + XPS=XPQ(1) + XPQ(1)=XPQ(2) + XPQ(2)=XPS + XPS=XPQ(-1) + XPQ(-1)=XPQ(-2) + XPQ(-2)=XPS + +C...Simple recipes for hyperon (average valence parton distribution). + ELSEIF(KFA.EQ.3122.OR.KFA.EQ.3112.OR.KFA.EQ.3212.OR.KFA.EQ.3222 + & .OR.KFA.EQ.3312.OR.KFA.EQ.3322.OR.KFA.EQ.3334) THEN + XPVAL=(XPQ(1)+XPQ(2)-XPQ(-1)-XPQ(-2))/3D0 + XPSEA=0.5D0*(XPQ(-1)+XPQ(-2)) + XPQ(1)=XPSEA + XPQ(2)=XPSEA + XPQ(-1)=XPSEA + XPQ(-2)=XPSEA + XPQ(KFA/1000)=XPQ(KFA/1000)+XPVAL + XPQ(MOD(KFA/100,10))=XPQ(MOD(KFA/100,10))+XPVAL + XPQ(MOD(KFA/10,10))=XPQ(MOD(KFA/10,10))+XPVAL + ENDIF + +C...Charge conjugation for antiparticle. + IF(KF.LT.0) THEN + DO 260 KFL=1,25 + IF(KFL.EQ.21.OR.KFL.EQ.22.OR.KFL.EQ.23.OR.KFL.EQ.25) GOTO 260 + XPS=XPQ(KFL) + XPQ(KFL)=XPQ(-KFL) + XPQ(-KFL)=XPS + 260 CONTINUE + ENDIF + +C...Allow gluon also in position 21. + XPQ(21)=XPQ(0) + +C...Check positivity and reset above maximum allowed flavour. + DO 270 KFL=-25,25 + XPQ(KFL)=MAX(0D0,XPQ(KFL)) + IF(IABS(KFL).GT.MSTP(58).AND.IABS(KFL).LE.8) XPQ(KFL)=0D0 + 270 CONTINUE + +C...Formats for error printouts. + 5000 FORMAT(' Error: x value outside physical range; x =',1P,D12.3) + 5100 FORMAT(' Error: illegal particle code for parton distribution;', + &' KF =',I5) + 5200 FORMAT(' Error: unknown parton distribution; KF, library, set =', + &3I5) + + RETURN + END + +C********************************************************************* + +C...PYPDFL +C...Gives proton parton distribution at small x and/or Q^2 according to +C...correct limiting behaviour. + + SUBROUTINE PYPDFL(KF,X,Q2,XPQ) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + SAVE /PYDAT1/,/PYDAT2/,/PYPARS/,/PYINT1/ +C...Local arrays. + DIMENSION XPQ(-25:25),XPA(-25:25),XPB(-25:25),WTSB(-3:3) + DATA RMR/0.92D0/,RMP/0.38D0/,WTSB/0.5D0,1D0,1D0,5D0,1D0,1D0,0.5D0/ + +C...Send everything but protons/neutrons/VMD pions directly to PYPDFU. + MINT(92)=0 + KFA=IABS(KF) + IACC=0 + IF((KFA.EQ.2212.OR.KFA.EQ.2112).AND.MSTP(57).GE.2) IACC=1 + IF(KFA.EQ.211.AND.MSTP(57).GE.3) IACC=1 + IF(KFA.EQ.22.AND.MINT(109).EQ.2.AND.MSTP(57).GE.3) IACC=1 + IF(IACC.EQ.0) THEN + CALL PYPDFU(KF,X,Q2,XPQ) + RETURN + ENDIF + +C...Reset. Check x. + DO 100 KFL=-25,25 + XPQ(KFL)=0D0 + 100 CONTINUE + IF(X.LE.0D0.OR.X.GE.1D0) THEN + WRITE(MSTU(11),5000) X + RETURN + ENDIF + +C...Define valence content. + KFC=KF + NV1=2 + NV2=1 + IF(KF.EQ.2212) THEN + KFV1=2 + KFV2=1 + ELSEIF(KF.EQ.-2212) THEN + KFV1=-2 + KFV2=-1 + ELSEIF(KF.EQ.2112) THEN + KFV1=1 + KFV2=2 + ELSEIF(KF.EQ.-2112) THEN + KFV1=-1 + KFV2=-2 + ELSEIF(KF.EQ.211) THEN + NV1=1 + KFV1=2 + KFV2=-1 + ELSEIF(KF.EQ.-211) THEN + NV1=1 + KFV1=-2 + KFV2=1 + ELSEIF(MINT(105).LE.223) THEN + KFV1=1 + WTV1=0.2D0 + KFV2=2 + WTV2=0.8D0 + ELSEIF(MINT(105).EQ.333) THEN + KFV1=3 + WTV1=1.0D0 + KFV2=1 + WTV2=0.0D0 + ELSEIF(MINT(105).EQ.443) THEN + KFV1=4 + WTV1=1.0D0 + KFV2=1 + WTV2=0.0D0 + ENDIF + +C...Do naive evaluation and find min Q^2, boundary Q^2 and x_0. + CALL PYPDFU(KFC,X,Q2,XPA) + Q2MN=MAX(3D0,VINT(231)) + Q2B=2D0+0.052D0**2*EXP(3.56D0*SQRT(MAX(0D0,-LOG(3D0*X)))) + XMN=EXP(-(LOG((Q2MN-2D0)/0.052D0**2)/3.56D0)**2)/3D0 + +C...Large Q2 and large x: naive call is enough. + IF(Q2.GT.Q2MN.AND.Q2.GT.Q2B) THEN + DO 110 KFL=-25,25 + XPQ(KFL)=XPA(KFL) + 110 CONTINUE + MINT(92)=1 + +C...Small Q2 and large x: dampen boundary value. + ELSEIF(X.GT.XMN) THEN + +C...Evaluate at boundary and define dampening factors. + CALL PYPDFU(KFC,X,Q2MN,XPA) + FV=(Q2*(Q2MN+RMR)/(Q2MN*(Q2+RMR)))**(0.55D0*(1D0-X)/(1D0-XMN)) + FS=(Q2*(Q2MN+RMP)/(Q2MN*(Q2+RMP)))**1.08D0 + +C...Separate valence and sea parts of parton distribution. + IF(KFA.NE.22) THEN + XFV1=XPA(KFV1)-XPA(-KFV1) + XPA(KFV1)=XPA(-KFV1) + XFV2=XPA(KFV2)-XPA(-KFV2) + XPA(KFV2)=XPA(-KFV2) + ELSE + XPA(KFV1)=XPA(KFV1)-WTV1*VINT(232) + XPA(-KFV1)=XPA(-KFV1)-WTV1*VINT(232) + XPA(KFV2)=XPA(KFV2)-WTV2*VINT(232) + XPA(-KFV2)=XPA(-KFV2)-WTV2*VINT(232) + ENDIF + +C...Dampen valence and sea separately. Put back together. + DO 120 KFL=-25,25 + XPQ(KFL)=FS*XPA(KFL) + 120 CONTINUE + IF(KFA.NE.22) THEN + XPQ(KFV1)=XPQ(KFV1)+FV*XFV1 + XPQ(KFV2)=XPQ(KFV2)+FV*XFV2 + ELSE + XPQ(KFV1)=XPQ(KFV1)+FV*WTV1*VINT(232) + XPQ(-KFV1)=XPQ(-KFV1)+FV*WTV1*VINT(232) + XPQ(KFV2)=XPQ(KFV2)+FV*WTV2*VINT(232) + XPQ(-KFV2)=XPQ(-KFV2)+FV*WTV2*VINT(232) + ENDIF + MINT(92)=2 + +C...Large Q2 and small x: interpolate behaviour. + ELSEIF(Q2.GT.Q2MN) THEN + +C...Evaluate at extremes and define coefficients for interpolation. + CALL PYPDFU(KFC,XMN,Q2MN,XPA) + VI232A=VINT(232) + CALL PYPDFU(KFC,X,Q2B,XPB) + VI232B=VINT(232) + FLA=LOG(Q2B/Q2)/LOG(Q2B/Q2MN) + FVA=(X/XMN)**0.45D0*FLA + FSA=(X/XMN)**(-0.08D0)*FLA + FB=1D0-FLA + +C...Separate valence and sea parts of parton distribution. + IF(KFA.NE.22) THEN + XFVA1=XPA(KFV1)-XPA(-KFV1) + XPA(KFV1)=XPA(-KFV1) + XFVA2=XPA(KFV2)-XPA(-KFV2) + XPA(KFV2)=XPA(-KFV2) + XFVB1=XPB(KFV1)-XPB(-KFV1) + XPB(KFV1)=XPB(-KFV1) + XFVB2=XPB(KFV2)-XPB(-KFV2) + XPB(KFV2)=XPB(-KFV2) + ELSE + XPA(KFV1)=XPA(KFV1)-WTV1*VI232A + XPA(-KFV1)=XPA(-KFV1)-WTV1*VI232A + XPA(KFV2)=XPA(KFV2)-WTV2*VI232A + XPA(-KFV2)=XPA(-KFV2)-WTV2*VI232A + XPB(KFV1)=XPB(KFV1)-WTV1*VI232B + XPB(-KFV1)=XPB(-KFV1)-WTV1*VI232B + XPB(KFV2)=XPB(KFV2)-WTV2*VI232B + XPB(-KFV2)=XPB(-KFV2)-WTV2*VI232B + ENDIF + +C...Interpolate for valence and sea. Put back together. + DO 130 KFL=-25,25 + XPQ(KFL)=FSA*XPA(KFL)+FB*XPB(KFL) + 130 CONTINUE + IF(KFA.NE.22) THEN + XPQ(KFV1)=XPQ(KFV1)+(FVA*XFVA1+FB*XFVB1) + XPQ(KFV2)=XPQ(KFV2)+(FVA*XFVA2+FB*XFVB2) + ELSE + XPQ(KFV1)=XPQ(KFV1)+WTV1*(FVA*VI232A+FB*VI232B) + XPQ(-KFV1)=XPQ(-KFV1)+WTV1*(FVA*VI232A+FB*VI232B) + XPQ(KFV2)=XPQ(KFV2)+WTV2*(FVA*VI232A+FB*VI232B) + XPQ(-KFV2)=XPQ(-KFV2)+WTV2*(FVA*VI232A+FB*VI232B) + ENDIF + MINT(92)=3 + +C...Small Q2 and small x: dampen boundary value and add term. + ELSE + +C...Evaluate at boundary and define dampening factors. + CALL PYPDFU(KFC,XMN,Q2MN,XPA) + FB=(XMN-X)*(Q2MN-Q2)/(XMN*Q2MN) + FA=1D0-FB + FVC=(X/XMN)**0.45D0*(Q2/(Q2+RMR))**0.55D0 + FVA=FVC*FA*((Q2MN+RMR)/Q2MN)**0.55D0 + FVB=FVC*FB*1.10D0*XMN**0.45D0*0.11D0 + FSC=(X/XMN)**(-0.08D0)*(Q2/(Q2+RMP))**1.08D0 + FSA=FSC*FA*((Q2MN+RMP)/Q2MN)**1.08D0 + FSB=FSC*FB*0.21D0*XMN**(-0.08D0)*0.21D0 + +C...Separate valence and sea parts of parton distribution. + IF(KFA.NE.22) THEN + XFV1=XPA(KFV1)-XPA(-KFV1) + XPA(KFV1)=XPA(-KFV1) + XFV2=XPA(KFV2)-XPA(-KFV2) + XPA(KFV2)=XPA(-KFV2) + ELSE + XPA(KFV1)=XPA(KFV1)-WTV1*VINT(232) + XPA(-KFV1)=XPA(-KFV1)-WTV1*VINT(232) + XPA(KFV2)=XPA(KFV2)-WTV2*VINT(232) + XPA(-KFV2)=XPA(-KFV2)-WTV2*VINT(232) + ENDIF + +C...Dampen valence and sea separately. Add constant terms. +C...Put back together. + DO 140 KFL=-25,25 + XPQ(KFL)=FSA*XPA(KFL) + 140 CONTINUE + IF(KFA.NE.22) THEN + DO 150 KFL=-3,3 + XPQ(KFL)=XPQ(KFL)+FSB*WTSB(KFL) + 150 CONTINUE + XPQ(KFV1)=XPQ(KFV1)+(FVA*XFV1+FVB*NV1) + XPQ(KFV2)=XPQ(KFV2)+(FVA*XFV2+FVB*NV2) + ELSE + DO 160 KFL=-3,3 + XPQ(KFL)=XPQ(KFL)+VINT(281)*FSB*WTSB(KFL) + 160 CONTINUE + XPQ(KFV1)=XPQ(KFV1)+WTV1*(FVA*VINT(232)+FVB*VINT(281)) + XPQ(-KFV1)=XPQ(-KFV1)+WTV1*(FVA*VINT(232)+FVB*VINT(281)) + XPQ(KFV2)=XPQ(KFV2)+WTV2*(FVA*VINT(232)+FVB*VINT(281)) + XPQ(-KFV2)=XPQ(-KFV2)+WTV2*(FVA*VINT(232)+FVB*VINT(281)) + ENDIF + XPQ(21)=XPQ(0) + MINT(92)=4 + ENDIF + +C...Format for error printout. + 5000 FORMAT(' Error: x value outside physical range; x =',1P,D12.3) + + RETURN + END + +C********************************************************************* + +C...PYPDEL +C...Gives electron (or muon, or tau) parton distribution. + + SUBROUTINE PYPDEL(KFA,X,Q2,XPEL) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + SAVE /PYDAT1/,/PYDAT2/,/PYPARS/,/PYINT1/ +C...Local arrays. + DIMENSION XPEL(-25:25),XPGA(-6:6),SXP(0:6) + +C...Interface to PDFLIB. + COMMON/W50513/XMIN,XMAX,Q2MIN,Q2MAX + SAVE /W50513/ + DOUBLE PRECISION XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GLU, + &VALUE(20),XMIN,XMAX,Q2MIN,Q2MAX + CHARACTER*20 PARM(20) + DATA VALUE/20*0D0/,PARM/20*' '/ + +C...Some common constants. + DO 100 KFL=-25,25 + XPEL(KFL)=0D0 + 100 CONTINUE + AEM=PARU(101) + PME=PMAS(11,1) + IF(KFA.EQ.13) PME=PMAS(13,1) + IF(KFA.EQ.15) PME=PMAS(15,1) + XL=LOG(MAX(1D-10,X)) + X1L=LOG(MAX(1D-10,1D0-X)) + HLE=LOG(MAX(3D0,Q2/PME**2)) + HBE2=(AEM/PARU(1))*(HLE-1D0) + +C...Electron inside electron, see R. Kleiss et al., in Z physics at +C...LEP 1, CERN 89-08, p. 34 + IF(MSTP(59).LE.1) THEN + HDE=1D0+(AEM/PARU(1))*(1.5D0*HLE+1.289868D0)+(AEM/PARU(1))**2* + & (-2.164868D0*HLE**2+9.840808D0*HLE-10.130464D0) + HEE=HBE2*(1D0-X)**(HBE2-1D0)*SQRT(MAX(0D0,HDE))- + & 0.5D0*HBE2*(1D0+X)+HBE2**2/8D0*((1D0+X)*(-4D0*X1L+3D0*XL)- + & 4D0*XL/(1D0-X)-5D0-X) + ELSE + HEE=HBE2*(1D0-X)**(HBE2-1D0)*EXP(0.172784D0*HBE2)/ + & PYGAMM(1D0+HBE2)-0.5D0*HBE2*(1D0+X)+HBE2**2/8D0*((1D0+X)* + & (-4D0*X1L+3D0*XL)-4D0*XL/(1D0-X)-5D0-X) + ENDIF +C...Zero distribution for very large x and rescale it for intermediate. + IF(X.GT.1D0-1D-10) THEN + HEE=0D0 + ELSEIF(X.GT.1D0-1D-7) THEN + HEE=HEE*1000D0**HBE2/(1000D0**HBE2-1D0) + ENDIF + XPEL(KFA)=X*HEE + +C...Photon and (transverse) W- inside electron. + AEMP=PYALEM(PME*SQRT(MAX(0D0,Q2)))/PARU(2) + IF(MSTP(13).LE.1) THEN + HLG=HLE + ELSE + HLG=LOG(MAX(1D0,(PARP(13)/PME**2)*(1D0-X)/X**2)) + ENDIF + XPEL(22)=AEMP*HLG*(1D0+(1D0-X)**2) + HLW=LOG(1D0+Q2/PMAS(24,1)**2)/(4D0*PARU(102)) + XPEL(-24)=AEMP*HLW*(1D0+(1D0-X)**2) + +C...Electron or positron inside photon inside electron. + IF(KFA.EQ.11.AND.MSTP(12).EQ.1) THEN + XFSEA=0.5D0*(AEMP*(HLE-1D0))**2*(4D0/3D0+X-X**2-4D0*X**3/3D0+ + & 2D0*X*(1D0+X)*XL) + XPEL(11)=XPEL(11)+XFSEA + XPEL(-11)=XFSEA + +C...Initialize PDFLIB photon parton distributions. + IF(MSTP(56).EQ.2) THEN + PARM(1)='NPTYPE' + VALUE(1)=3 + PARM(2)='NGROUP' + VALUE(2)=MSTP(55)/1000 + PARM(3)='NSET' + VALUE(3)=MOD(MSTP(55),1000) + IF(MINT(93).NE.3000000+MSTP(55)) THEN + CALL PDFSET(PARM,VALUE) + MINT(93)=3000000+MSTP(55) + ENDIF + ENDIF + +C...Quarks and gluons inside photon inside electron: +C...numerical convolution required. + DO 110 KFL=0,6 + SXP(KFL)=0D0 + 110 CONTINUE + SUMXPP=0D0 + ITER=-1 + 120 ITER=ITER+1 + SUMXP=SUMXPP + NSTP=2**(ITER-1) + IF(ITER.EQ.0) NSTP=2 + DO 130 KFL=0,6 + SXP(KFL)=0.5D0*SXP(KFL) + 130 CONTINUE + WTSTP=0.5D0/NSTP + IF(ITER.EQ.0) WTSTP=0.5D0 +C...Pick grid of x_{gamma} values logarithmically even. + DO 150 ISTP=1,NSTP + IF(ITER.EQ.0) THEN + XLE=XL*(ISTP-1) + ELSE + XLE=XL*(ISTP-0.5D0)/NSTP + ENDIF + XE=MIN(1D0-1D-10,EXP(XLE)) + XG=MIN(1D0-1D-10,X/XE) +C...Evaluate photon inside electron parton distribution for convolution. + XPGP=1D0+(1D0-XE)**2 + IF(MSTP(13).LE.1) THEN + XPGP=XPGP*HLE + ELSE + XPGP=XPGP*LOG(MAX(1D0,(PARP(13)/PME**2)*(1D0-XE)/XE**2)) + ENDIF +C...Evaluate photon parton distributions for convolution. + IF(MSTP(56).EQ.1) THEN + CALL PYPDGA(XG,Q2,XPGA) + DO 140 KFL=0,5 + SXP(KFL)=SXP(KFL)+WTSTP*XPGP*XPGA(KFL) + 140 CONTINUE + ELSEIF(MSTP(56).EQ.2) THEN +C...Call PDFLIB parton distributions. + XX=XG + QQ=SQRT(MAX(0D0,Q2MIN,Q2)) + IF(MSTP(57).EQ.0) QQ=SQRT(Q2MIN) + CALL STRUCTM(XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GLU) + SXP(0)=SXP(0)+WTSTP*XPGP*GLU + SXP(1)=SXP(1)+WTSTP*XPGP*DNV + SXP(2)=SXP(2)+WTSTP*XPGP*UPV + SXP(3)=SXP(3)+WTSTP*XPGP*STR + SXP(4)=SXP(4)+WTSTP*XPGP*CHM + SXP(5)=SXP(5)+WTSTP*XPGP*BOT + SXP(6)=SXP(6)+WTSTP*XPGP*TOP + ENDIF + 150 CONTINUE + SUMXPP=SXP(0)+2D0*SXP(1)+2D0*SXP(2) + IF(ITER.LE.2.OR.(ITER.LE.7.AND.ABS(SUMXPP-SUMXP).GT. + & PARP(14)*(SUMXPP+SUMXP))) GOTO 120 + +C...Put convolution into output arrays. + FCONV=AEMP*(-XL) + XPEL(0)=FCONV*SXP(0) + DO 160 KFL=1,6 + XPEL(KFL)=FCONV*SXP(KFL) + XPEL(-KFL)=XPEL(KFL) + 160 CONTINUE + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYPDGA +C...Gives photon parton distribution. + + SUBROUTINE PYPDGA(X,Q2,XPGA) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + SAVE /PYDAT1/,/PYPARS/,/PYINT1/ +C...Local arrays. + DIMENSION XPGA(-6:6),DGAG(4,3),DGBG(4,3),DGCG(4,3),DGAN(4,3), + &DGBN(4,3),DGCN(4,3),DGDN(4,3),DGEN(4,3),DGAS(4,3),DGBS(4,3), + &DGCS(4,3),DGDS(4,3),DGES(4,3) + +C...The following data lines are coefficients needed in the +C...Drees and Grassie photon parton distribution parametrization. + DATA DGAG/-.207D0,.6158D0,1.074D0,0.D0,.8926D-2,.6594D0, + &.4766D0,.1975D-1,.03197D0,1.018D0,.2461D0,.2707D-1/ + DATA DGBG/-.1987D0,.6257D0,8.352D0,5.024D0,.5085D-1,.2774D0, + &-.3906D0,-.3212D0,-.618D-2,.9476D0,-.6094D0,-.1067D-1/ + DATA DGCG/5.119D0,-.2752D0,-6.993D0,2.298D0,-.2313D0,.1382D0, + &6.542D0,.5162D0,-.1216D0,.9047D0,2.653D0,.2003D-2/ + DATA DGAN/2.285D0,-.1526D-1,1330.D0,4.219D0,-.3711D0,1.061D0, + &4.758D0,-.1503D-1,15.8D0,-.9464D0,-.5D0,-.2118D0/ + DATA DGBN/6.073D0,-.8132D0,-41.31D0,3.165D0,-.1717D0,.7815D0, + &1.535D0,.7067D-2,2.742D0,-.7332D0,.7148D0,3.287D0/ + DATA DGCN/-.4202D0,.1778D-1,.9216D0,.18D0,.8766D-1,.2197D-1, + &.1096D0,.204D0,.2917D-1,.4657D-1,.1785D0,.4811D-1/ + DATA DGDN/-.8083D-1,.6346D0,1.208D0,.203D0,-.8915D0,.2857D0, + &2.973D0,.1185D0,-.342D-1,.7196D0,.7338D0,.8139D-1/ + DATA DGEN/.5526D-1,1.136D0,.9512D0,.1163D-1,-.1816D0,.5866D0, + &2.421D0,.4059D0,-.2302D-1,.9229D0,.5873D0,-.79D-4/ + DATA DGAS/16.69D0,-.7916D0,1099.D0,4.428D0,-.1207D0,1.071D0, + &1.977D0,-.8625D-2,6.734D0,-1.008D0,-.8594D-1,.7625D-1/ + DATA DGBS/.176D0,.4794D-1,1.047D0,.25D-1,25.D0,-1.648D0, + &-.1563D-1,6.438D0,59.88D0,-2.983D0,4.48D0,.9686D0/ + DATA DGCS/-.208D-1,.3386D-2,4.853D0,.8404D0,-.123D-1,1.162D0, + &.4824D0,-.11D-1,-.3226D-2,.8432D0,.3616D0,.1383D-2/ + DATA DGDS/-.1685D-1,1.353D0,1.426D0,1.239D0,-.9194D-1,.7912D0, + &.6397D0,2.327D0,-.3321D-1,.9475D0,-.3198D0,.2132D-1/ + DATA DGES/-.1986D0,1.1D0,1.136D0,-.2779D0,.2015D-1,.9869D0, + &-.7036D-1,.1694D-1,.1059D0,.6954D0,-.6663D0,.3683D0/ + +C...Photon parton distribution from Drees and Grassie. +C...Allowed variable range: 1 GeV^2 < Q^2 < 10000 GeV^2. + DO 100 KFL=-6,6 + XPGA(KFL)=0D0 + 100 CONTINUE + VINT(231)=1D0 + IF(MSTP(57).LE.0) THEN + T=LOG(1D0/0.16D0) + ELSE + T=LOG(MIN(1D4,MAX(1D0,Q2))/0.16D0) + ENDIF + X1=1D0-X + NF=3 + IF(Q2.GT.25D0) NF=4 + IF(Q2.GT.300D0) NF=5 + NFE=NF-2 + AEM=PARU(101) + +C...Evaluate gluon content. + DGA=DGAG(1,NFE)*T**DGAG(2,NFE)+DGAG(3,NFE)*T**(-DGAG(4,NFE)) + DGB=DGBG(1,NFE)*T**DGBG(2,NFE)+DGBG(3,NFE)*T**(-DGBG(4,NFE)) + DGC=DGCG(1,NFE)*T**DGCG(2,NFE)+DGCG(3,NFE)*T**(-DGCG(4,NFE)) + XPGL=DGA*X**DGB*X1**DGC + +C...Evaluate up- and down-type quark content. + DGA=DGAN(1,NFE)*T**DGAN(2,NFE)+DGAN(3,NFE)*T**(-DGAN(4,NFE)) + DGB=DGBN(1,NFE)*T**DGBN(2,NFE)+DGBN(3,NFE)*T**(-DGBN(4,NFE)) + DGC=DGCN(1,NFE)*T**DGCN(2,NFE)+DGCN(3,NFE)*T**(-DGCN(4,NFE)) + DGD=DGDN(1,NFE)*T**DGDN(2,NFE)+DGDN(3,NFE)*T**(-DGDN(4,NFE)) + DGE=DGEN(1,NFE)*T**DGEN(2,NFE)+DGEN(3,NFE)*T**(-DGEN(4,NFE)) + XPQN=X*(X**2+X1**2)/(DGA-DGB*LOG(X1))+DGC*X**DGD*X1**DGE + DGA=DGAS(1,NFE)*T**DGAS(2,NFE)+DGAS(3,NFE)*T**(-DGAS(4,NFE)) + DGB=DGBS(1,NFE)*T**DGBS(2,NFE)+DGBS(3,NFE)*T**(-DGBS(4,NFE)) + DGC=DGCS(1,NFE)*T**DGCS(2,NFE)+DGCS(3,NFE)*T**(-DGCS(4,NFE)) + DGD=DGDS(1,NFE)*T**DGDS(2,NFE)+DGDS(3,NFE)*T**(-DGDS(4,NFE)) + DGE=DGES(1,NFE)*T**DGES(2,NFE)+DGES(3,NFE)*T**(-DGES(4,NFE)) + DGF=9D0 + IF(NF.EQ.4) DGF=10D0 + IF(NF.EQ.5) DGF=55D0/6D0 + XPQS=DGF*X*(X**2+X1**2)/(DGA-DGB*LOG(X1))+DGC*X**DGD*X1**DGE + IF(NF.LE.3) THEN + XPQU=(XPQS+9D0*XPQN)/6D0 + XPQD=(XPQS-4.5D0*XPQN)/6D0 + ELSEIF(NF.EQ.4) THEN + XPQU=(XPQS+6D0*XPQN)/8D0 + XPQD=(XPQS-6D0*XPQN)/8D0 + ELSE + XPQU=(XPQS+7.5D0*XPQN)/10D0 + XPQD=(XPQS-5D0*XPQN)/10D0 + ENDIF + +C...Put into output arrays. + XPGA(0)=AEM*XPGL + XPGA(1)=AEM*XPQD + XPGA(2)=AEM*XPQU + XPGA(3)=AEM*XPQD + IF(NF.GE.4) XPGA(4)=AEM*XPQU + IF(NF.GE.5) XPGA(5)=AEM*XPQD + DO 110 KFL=1,6 + XPGA(-KFL)=XPGA(KFL) + 110 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYGGAM +C...Constructs the F2 and parton distributions of the photon +C...by summing homogeneous (VMD) and inhomogeneous (anomalous) terms. +C...For F2, c and b are included by the Bethe-Heitler formula; +C...in the 'MSbar' scheme additionally a Cgamma term is added. +C...Contains the SaS sets 1D, 1M, 2D and 2M. +C...Adapted from SaSgam library, authors G.A. Schuler and T. Sjostrand. + + SUBROUTINE PYGGAM(ISET,X,Q2,P2,IP2,F2GM,XPDFGM) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYINT8/XPVMD(-6:6),XPANL(-6:6),XPANH(-6:6),XPBEH(-6:6), + &XPDIR(-6:6) + COMMON/PYINT9/VXPVMD(-6:6),VXPANL(-6:6),VXPANH(-6:6),VXPDGM(-6:6) + SAVE /PYINT8/,/PYINT9/ +C...Local arrays. + DIMENSION XPDFGM(-6:6),XPGA(-6:6), VXPGA(-6:6) +C...Charm and bottom masses (low to compensate for J/psi etc.). + DATA PMC/1.3D0/, PMB/4.6D0/ +C...alpha_em and alpha_em/(2*pi). + DATA AEM/0.007297D0/, AEM2PI/0.0011614D0/ +C...Lambda value for 4 flavours. + DATA ALAM/0.20D0/ +C...Mixture u/(u+d), = 0.5 for incoherent and = 0.8 for coherent sum. + DATA FRACU/0.8D0/ +C...VMD couplings f_V**2/(4*pi). + DATA FRHO/2.20D0/, FOMEGA/23.6D0/, FPHI/18.4D0/ +C...Masses for rho (=omega) and phi. + DATA PMRHO/0.770D0/, PMPHI/1.020D0/ +C...Number of points in integration for IP2=1. + DATA NSTEP/100/ + +C...Reset output. + F2GM=0D0 + DO 100 KFL=-6,6 + XPDFGM(KFL)=0D0 + XPVMD(KFL)=0D0 + XPANL(KFL)=0D0 + XPANH(KFL)=0D0 + XPBEH(KFL)=0D0 + XPDIR(KFL)=0D0 + VXPVMD(KFL)=0D0 + VXPANL(KFL)=0D0 + VXPANH(KFL)=0D0 + VXPDGM(KFL)=0D0 + 100 CONTINUE + +C...Set Q0 cut-off parameter as function of set used. + IF(ISET.LE.2) THEN + Q0=0.6D0 + ELSE + Q0=2D0 + ENDIF + Q02=Q0**2 + +C...Scale choice for off-shell photon; common factors. + Q2A=Q2 + FACNOR=1D0 + IF(IP2.EQ.1) THEN + P2MX=P2+Q02 + Q2A=Q2+P2*Q02/MAX(Q02,Q2) + FACNOR=LOG(Q2/Q02)/NSTEP + ELSEIF(IP2.EQ.2) THEN + P2MX=MAX(P2,Q02) + ELSEIF(IP2.EQ.3) THEN + P2MX=P2+Q02 + Q2A=Q2+P2*Q02/MAX(Q02,Q2) + ELSEIF(IP2.EQ.4) THEN + P2MX=Q2*(Q02+P2)/(Q2+P2)*EXP(P2*(Q2-Q02)/ + & ((Q2+P2)*(Q02+P2))) + ELSEIF(IP2.EQ.5) THEN + P2MXA=Q2*(Q02+P2)/(Q2+P2)*EXP(P2*(Q2-Q02)/ + & ((Q2+P2)*(Q02+P2))) + P2MX=Q0*SQRT(P2MXA) + FACNOR=LOG(Q2/P2MXA)/LOG(Q2/P2MX) + ELSEIF(IP2.EQ.6) THEN + P2MX=Q2*(Q02+P2)/(Q2+P2)*EXP(P2*(Q2-Q02)/ + & ((Q2+P2)*(Q02+P2))) + P2MX=MAX(0D0,1D0-P2/Q2)*P2MX+MIN(1D0,P2/Q2)*MAX(P2,Q02) + ELSE + P2MXA=Q2*(Q02+P2)/(Q2+P2)*EXP(P2*(Q2-Q02)/ + & ((Q2+P2)*(Q02+P2))) + P2MX=Q0*SQRT(P2MXA) + P2MXB=P2MX + P2MX=MAX(0D0,1D0-P2/Q2)*P2MX+MIN(1D0,P2/Q2)*MAX(P2,Q02) + P2MXB=MAX(0D0,1D0-P2/Q2)*P2MXB+MIN(1D0,P2/Q2)*P2MXA + IF(ABS(Q2-Q02).GT.1D-6) THEN + FACNOR=LOG(Q2/P2MXA)/LOG(Q2/P2MXB) + ELSEIF(P2.LT.Q02) THEN + FACNOR=Q02**3/(Q02+P2)/(Q02**2-P2**2/2D0) + ELSE + FACNOR=1D0 + ENDIF + ENDIF + +C...Call VMD parametrization for d quark and use to give rho, omega, +C...phi. Note dipole dampening for off-shell photon. + CALL PYGVMD(ISET,1,X,Q2A,P2MX,ALAM,XPGA,VXPGA) + XFVAL=VXPGA(1) + XPGA(1)=XPGA(2) + XPGA(-1)=XPGA(-2) + FACUD=AEM*(1D0/FRHO+1D0/FOMEGA)*(PMRHO**2/(PMRHO**2+P2))**2 + FACS=AEM*(1D0/FPHI)*(PMPHI**2/(PMPHI**2+P2))**2 + DO 110 KFL=-5,5 + XPVMD(KFL)=(FACUD+FACS)*XPGA(KFL) + 110 CONTINUE + XPVMD(1)=XPVMD(1)+(1D0-FRACU)*FACUD*XFVAL + XPVMD(2)=XPVMD(2)+FRACU*FACUD*XFVAL + XPVMD(3)=XPVMD(3)+FACS*XFVAL + XPVMD(-1)=XPVMD(-1)+(1D0-FRACU)*FACUD*XFVAL + XPVMD(-2)=XPVMD(-2)+FRACU*FACUD*XFVAL + XPVMD(-3)=XPVMD(-3)+FACS*XFVAL + VXPVMD(1)=(1D0-FRACU)*FACUD*XFVAL + VXPVMD(2)=FRACU*FACUD*XFVAL + VXPVMD(3)=FACS*XFVAL + VXPVMD(-1)=(1D0-FRACU)*FACUD*XFVAL + VXPVMD(-2)=FRACU*FACUD*XFVAL + VXPVMD(-3)=FACS*XFVAL + + IF(IP2.NE.1) THEN +C...Anomalous parametrizations for different strategies +C...for off-shell photons; except full integration. + +C...Call anomalous parametrization for d + u + s. + CALL PYGANO(-3,X,Q2A,P2MX,ALAM,XPGA,VXPGA) + DO 120 KFL=-5,5 + XPANL(KFL)=FACNOR*XPGA(KFL) + VXPANL(KFL)=FACNOR*VXPGA(KFL) + 120 CONTINUE + +C...Call anomalous parametrization for c and b. + CALL PYGANO(4,X,Q2A,P2MX,ALAM,XPGA,VXPGA) + DO 130 KFL=-5,5 + XPANH(KFL)=FACNOR*XPGA(KFL) + VXPANH(KFL)=FACNOR*VXPGA(KFL) + 130 CONTINUE + CALL PYGANO(5,X,Q2A,P2MX,ALAM,XPGA,VXPGA) + DO 140 KFL=-5,5 + XPANH(KFL)=XPANH(KFL)+FACNOR*XPGA(KFL) + VXPANH(KFL)=VXPANH(KFL)+FACNOR*VXPGA(KFL) + 140 CONTINUE + + ELSE +C...Special option: loop over flavours and integrate over k2. + DO 170 KF=1,5 + DO 160 ISTEP=1,NSTEP + Q2STEP=Q02*(Q2/Q02)**((ISTEP-0.5D0)/NSTEP) + IF((KF.EQ.4.AND.Q2STEP.LT.PMC**2).OR. + & (KF.EQ.5.AND.Q2STEP.LT.PMB**2)) GOTO 160 + CALL PYGVMD(0,KF,X,Q2,Q2STEP,ALAM,XPGA,VXPGA) + FACQ=AEM2PI*(Q2STEP/(Q2STEP+P2))**2*FACNOR + IF(MOD(KF,2).EQ.0) FACQ=FACQ*(8D0/9D0) + IF(MOD(KF,2).EQ.1) FACQ=FACQ*(2D0/9D0) + DO 150 KFL=-5,5 + IF(KF.LE.3) XPANL(KFL)=XPANL(KFL)+FACQ*XPGA(KFL) + IF(KF.GE.4) XPANH(KFL)=XPANH(KFL)+FACQ*XPGA(KFL) + IF(KF.LE.3) VXPANL(KFL)=VXPANL(KFL)+FACQ*VXPGA(KFL) + IF(KF.GE.4) VXPANH(KFL)=VXPANH(KFL)+FACQ*VXPGA(KFL) + 150 CONTINUE + 160 CONTINUE + 170 CONTINUE + ENDIF + +C...Call Bethe-Heitler term expression for charm and bottom. + CALL PYGBEH(4,X,Q2,P2,PMC**2,XPBH) + XPBEH(4)=XPBH + XPBEH(-4)=XPBH + CALL PYGBEH(5,X,Q2,P2,PMB**2,XPBH) + XPBEH(5)=XPBH + XPBEH(-5)=XPBH + +C...For MSbar subtraction call C^gamma term expression for d, u, s. + IF(ISET.EQ.2.OR.ISET.EQ.4) THEN + CALL PYGDIR(X,Q2,P2,Q02,XPGA) + DO 180 KFL=-5,5 + XPDIR(KFL)=XPGA(KFL) + 180 CONTINUE + ENDIF + +C...Store result in output array. + DO 190 KFL=-5,5 + CHSQ=1D0/9D0 + IF(IABS(KFL).EQ.2.OR.IABS(KFL).EQ.4) CHSQ=4D0/9D0 + XPF2=XPVMD(KFL)+XPANL(KFL)+XPBEH(KFL)+XPDIR(KFL) + IF(KFL.NE.0) F2GM=F2GM+CHSQ*XPF2 + XPDFGM(KFL)=XPVMD(KFL)+XPANL(KFL)+XPANH(KFL) + VXPDGM(KFL)=VXPVMD(KFL)+VXPANL(KFL)+VXPANH(KFL) + 190 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYGVMD +C...Evaluates the VMD parton distributions of a photon, +C...evolved homogeneously from an initial scale P2 to Q2. +C...Does not include dipole suppression factor. +C...ISET is parton distribution set, see above; +C...additionally ISET=0 is used for the evolution of an anomalous photon +C...which branched at a scale P2 and then evolved homogeneously to Q2. +C...ALAM is the 4-flavour Lambda, which is automatically converted +C...to 3- and 5-flavour equivalents as needed. +C...Adapted from SaSgam library, authors G.A. Schuler and T. Sjostrand. + + SUBROUTINE PYGVMD(ISET,KF,X,Q2,P2,ALAM,XPGA,VXPGA) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Local arrays and data. + DIMENSION XPGA(-6:6), VXPGA(-6:6) + DATA PMC/1.3D0/, PMB/4.6D0/, AEM/0.007297D0/, AEM2PI/0.0011614D0/ + +C...Reset output. + DO 100 KFL=-6,6 + XPGA(KFL)=0D0 + VXPGA(KFL)=0D0 + 100 CONTINUE + KFA=IABS(KF) + +C...Calculate Lambda; protect against unphysical Q2 and P2 input. + ALAM3=ALAM*(PMC/ALAM)**(2D0/27D0) + ALAM5=ALAM*(ALAM/PMB)**(2D0/23D0) + P2EFF=MAX(P2,1.2D0*ALAM3**2) + IF(KFA.EQ.4) P2EFF=MAX(P2EFF,PMC**2) + IF(KFA.EQ.5) P2EFF=MAX(P2EFF,PMB**2) + Q2EFF=MAX(Q2,P2EFF) + +C...Find number of flavours at lower and upper scale. + NFP=4 + IF(P2EFF.LT.PMC**2) NFP=3 + IF(P2EFF.GT.PMB**2) NFP=5 + NFQ=4 + IF(Q2EFF.LT.PMC**2) NFQ=3 + IF(Q2EFF.GT.PMB**2) NFQ=5 + +C...Find s as sum of 3-, 4- and 5-flavour parts. + S=0D0 + IF(NFP.EQ.3) THEN + Q2DIV=PMC**2 + IF(NFQ.EQ.3) Q2DIV=Q2EFF + S=S+(6D0/27D0)*LOG(LOG(Q2DIV/ALAM3**2)/LOG(P2EFF/ALAM3**2)) + ENDIF + IF(NFP.LE.4.AND.NFQ.GE.4) THEN + P2DIV=P2EFF + IF(NFP.EQ.3) P2DIV=PMC**2 + Q2DIV=Q2EFF + IF(NFQ.EQ.5) Q2DIV=PMB**2 + S=S+(6D0/25D0)*LOG(LOG(Q2DIV/ALAM**2)/LOG(P2DIV/ALAM**2)) + ENDIF + IF(NFQ.EQ.5) THEN + P2DIV=PMB**2 + IF(NFP.EQ.5) P2DIV=P2EFF + S=S+(6D0/23D0)*LOG(LOG(Q2EFF/ALAM5**2)/LOG(P2DIV/ALAM5**2)) + ENDIF + +C...Calculate frequent combinations of x and s. + X1=1D0-X + XL=-LOG(X) + S2=S**2 + S3=S**3 + S4=S**4 + +C...Evaluate homogeneous anomalous parton distributions below or +C...above threshold. + IF(ISET.EQ.0) THEN + IF(Q2.LE.P2.OR.(KFA.EQ.4.AND.Q2.LT.PMC**2).OR. + & (KFA.EQ.5.AND.Q2.LT.PMB**2)) THEN + XVAL = X * 1.5D0 * (X**2+X1**2) + XGLU = 0D0 + XSEA = 0D0 + ELSE + XVAL = (1.5D0/(1D0-0.197D0*S+4.33D0*S2)*X**2 + + & (1.5D0+2.10D0*S)/(1D0+3.29D0*S)*X1**2 + + & 5.23D0*S/(1D0+1.17D0*S+19.9D0*S3)*X*X1) * + & X**(1D0/(1D0+1.5D0*S)) * (1D0-X**2)**(2.667D0*S) + XGLU = 4D0*S/(1D0+4.76D0*S+15.2D0*S2+29.3D0*S4) * + & X**(-2.03D0*S/(1D0+2.44D0*S)) * (X1*XL)**(1.333D0*S) * + & ((4D0*X**2+7D0*X+4D0)*X1/3D0 - 2D0*X*(1D0+X)*XL) + XSEA = S2/(1D0+4.54D0*S+8.19D0*S2+8.05D0*S3) * + & X**(-1.54D0*S/(1D0+1.29D0*S)) * X1**(2.667D0*S) * + & ((8D0-73D0*X+62D0*X**2)*X1/9D0 + (3D0-8D0*X**2/3D0)*X*XL + + & (2D0*X-1D0)*X*XL**2) + ENDIF + +C...Evaluate set 1D parton distributions below or above threshold. + ELSEIF(ISET.EQ.1) THEN + IF(Q2.LE.P2.OR.(KFA.EQ.4.AND.Q2.LT.PMC**2).OR. + & (KFA.EQ.5.AND.Q2.LT.PMB**2)) THEN + XVAL = 1.294D0 * X**0.80D0 * X1**0.76D0 + XGLU = 1.273D0 * X**0.40D0 * X1**1.76D0 + XSEA = 0.100D0 * X1**3.76D0 + ELSE + XVAL = 1.294D0/(1D0+0.252D0*S+3.079D0*S2) * + & X**(0.80D0-0.13D0*S) * X1**(0.76D0+0.667D0*S) * XL**(2D0*S) + XGLU = 7.90D0*S/(1D0+5.50D0*S) * EXP(-5.16D0*S) * + & X**(-1.90D0*S/(1D0+3.60D0*S)) * X1**1.30D0 * + & XL**(0.50D0+3D0*S) + 1.273D0 * EXP(-10D0*S) * + & X**0.40D0 * X1**(1.76D0+3D0*S) + XSEA = (0.1D0-0.397D0*S2+1.121D0*S3)/ + & (1D0+5.61D0*S2+5.26D0*S3) * X**(-7.32D0*S2/(1D0+10.3D0*S2)) * + & X1**((3.76D0+15D0*S+12D0*S2)/(1D0+4D0*S)) + XSEA0 = 0.100D0 * X1**3.76D0 + ENDIF + +C...Evaluate set 1M parton distributions below or above threshold. + ELSEIF(ISET.EQ.2) THEN + IF(Q2.LE.P2.OR.(KFA.EQ.4.AND.Q2.LT.PMC**2).OR. + & (KFA.EQ.5.AND.Q2.LT.PMB**2)) THEN + XVAL = 0.8477D0 * X**0.51D0 * X1**1.37D0 + XGLU = 3.42D0 * X**0.255D0 * X1**2.37D0 + XSEA = 0D0 + ELSE + XVAL = 0.8477D0/(1D0+1.37D0*S+2.18D0*S2+3.73D0*S3) * + & X**(0.51D0+0.21D0*S) * X1**1.37D0 * XL**(2.667D0*S) + XGLU = 24D0*S/(1D0+9.6D0*S+0.92D0*S2+14.34D0*S3) * + & EXP(-5.94D0*S) * X**((-0.013D0-1.80D0*S)/(1D0+3.14D0*S)) * + & X1**(2.37D0+0.4D0*S) * XL**(0.32D0+3.6D0*S) + 3.42D0 * + & EXP(-12D0*S) * X**0.255D0 * X1**(2.37D0+3D0*S) + XSEA = 0.842D0*S/(1D0+21.3D0*S-33.2D0*S2+229D0*S3) * + & X**((0.13D0-2.90D0*S)/(1D0+5.44D0*S)) * X1**(3.45D0+0.5D0*S) * + & XL**(2.8D0*S) + XSEA0 = 0D0 + ENDIF + +C...Evaluate set 2D parton distributions below or above threshold. + ELSEIF(ISET.EQ.3) THEN + IF(Q2.LE.P2.OR.(KFA.EQ.4.AND.Q2.LT.PMC**2).OR. + & (KFA.EQ.5.AND.Q2.LT.PMB**2)) THEN + XVAL = X**0.46D0 * X1**0.64D0 + 0.76D0 * X + XGLU = 1.925D0 * X1**2 + XSEA = 0.242D0 * X1**4 + ELSE + XVAL = (1D0+0.186D0*S)/(1D0-0.209D0*S+1.495D0*S2) * + & X**(0.46D0+0.25D0*S) * + & X1**((0.64D0+0.14D0*S+5D0*S2)/(1D0+S)) * XL**(1.9D0*S) + + & (0.76D0+0.4D0*S) * X * X1**(2.667D0*S) + XGLU = (1.925D0+5.55D0*S+147D0*S2)/(1D0-3.59D0*S+3.32D0*S2) * + & EXP(-18.67D0*S) * + & X**((-5.81D0*S-5.34D0*S2)/(1D0+29D0*S-4.26D0*S2)) + & * X1**((2D0-5.9D0*S)/(1D0+1.7D0*S)) * + & XL**(9.3D0*S/(1D0+1.7D0*S)) + XSEA = (0.242D0-0.252D0*S+1.19D0*S2)/ + & (1D0-0.607D0*S+21.95D0*S2) * + & X**(-12.1D0*S2/(1D0+2.62D0*S+16.7D0*S2)) * X1**4 * XL**S + XSEA0 = 0.242D0 * X1**4 + ENDIF + +C...Evaluate set 2M parton distributions below or above threshold. + ELSEIF(ISET.EQ.4) THEN + IF(Q2.LE.P2.OR.(KFA.EQ.4.AND.Q2.LT.PMC**2).OR. + & (KFA.EQ.5.AND.Q2.LT.PMB**2)) THEN + XVAL = 1.168D0 * X**0.50D0 * X1**2.60D0 + 0.965D0 * X + XGLU = 1.808D0 * X1**2 + XSEA = 0.209D0 * X1**4 + ELSE + XVAL = (1.168D0+1.771D0*S+29.35D0*S2) * EXP(-5.776D0*S) * + & X**((0.5D0+0.208D0*S)/(1D0-0.794D0*S+1.516D0*S2)) * + & X1**((2.6D0+7.6D0*S)/(1D0+5D0*S)) * + & XL**(5.15D0*S/(1D0+2D0*S)) + + & (0.965D0+22.35D0*S)/(1D0+18.4D0*S) * X * X1**(2.667D0*S) + XGLU = (1.808D0+29.9D0*S)/(1D0+26.4D0*S) * EXP(-5.28D0*S) * + & X**((-5.35D0*S-10.11D0*S2)/(1D0+31.71D0*S)) * + & X1**((2D0-7.3D0*S+4D0*S2)/(1D0+2.5D0*S)) * + & XL**(10.9D0*S/(1D0+2.5D0*S)) + XSEA = (0.209D0+0.644D0*S2)/(1D0+0.319D0*S+17.6D0*S2) * + & X**((-0.373D0*S-7.71D0*S2)/(1D0+0.815D0*S+11.0D0*S2)) * + & X1**(4D0+S) * XL**(0.45D0*S) + XSEA0 = 0.209D0 * X1**4 + ENDIF + ENDIF + +C...Threshold factors for c and b sea. + SLL=LOG(LOG(Q2EFF/ALAM**2)/LOG(P2EFF/ALAM**2)) + XCHM=0D0 + IF(Q2.GT.PMC**2.AND.Q2.GT.1.001D0*P2EFF) THEN + SCH=MAX(0D0,LOG(LOG(PMC**2/ALAM**2)/LOG(P2EFF/ALAM**2))) + IF(ISET.EQ.0) THEN + XCHM=XSEA*(1D0-(SCH/SLL)**2) + ELSE + XCHM=MAX(0D0,XSEA-XSEA0*X1**(2.667D0*S))*(1D0-SCH/SLL) + ENDIF + ENDIF + XBOT=0D0 + IF(Q2.GT.PMB**2.AND.Q2.GT.1.001D0*P2EFF) THEN + SBT=MAX(0D0,LOG(LOG(PMB**2/ALAM**2)/LOG(P2EFF/ALAM**2))) + IF(ISET.EQ.0) THEN + XBOT=XSEA*(1D0-(SBT/SLL)**2) + ELSE + XBOT=MAX(0D0,XSEA-XSEA0*X1**(2.667D0*S))*(1D0-SBT/SLL) + ENDIF + ENDIF + +C...Fill parton distributions. + XPGA(0)=XGLU + XPGA(1)=XSEA + XPGA(2)=XSEA + XPGA(3)=XSEA + XPGA(4)=XCHM + XPGA(5)=XBOT + XPGA(KFA)=XPGA(KFA)+XVAL + DO 110 KFL=1,5 + XPGA(-KFL)=XPGA(KFL) + 110 CONTINUE + VXPGA(KFA)=XVAL + VXPGA(-KFA)=XVAL + + RETURN + END + +C********************************************************************* + +C...PYGANO +C...Evaluates the parton distributions of the anomalous photon, +C...inhomogeneously evolved from a scale P2 (where it vanishes) to Q2. +C...KF=0 gives the sum over (up to) 5 flavours, +C...KF<0 limits to flavours up to abs(KF), +C...KF>0 is for flavour KF only. +C...ALAM is the 4-flavour Lambda, which is automatically converted +C...to 3- and 5-flavour equivalents as needed. +C...Adapted from SaSgam library, authors G.A. Schuler and T. Sjostrand. + + SUBROUTINE PYGANO(KF,X,Q2,P2,ALAM,XPGA,VXPGA) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Local arrays and data. + DIMENSION XPGA(-6:6), VXPGA(-6:6), ALAMSQ(3:5) + DATA PMC/1.3D0/, PMB/4.6D0/, AEM/0.007297D0/, AEM2PI/0.0011614D0/ + +C...Reset output. + DO 100 KFL=-6,6 + XPGA(KFL)=0D0 + VXPGA(KFL)=0D0 + 100 CONTINUE + IF(Q2.LE.P2) RETURN + KFA=IABS(KF) + +C...Calculate Lambda; protect against unphysical Q2 and P2 input. + ALAMSQ(3)=(ALAM*(PMC/ALAM)**(2D0/27D0))**2 + ALAMSQ(4)=ALAM**2 + ALAMSQ(5)=(ALAM*(ALAM/PMB)**(2D0/23D0))**2 + P2EFF=MAX(P2,1.2D0*ALAMSQ(3)) + IF(KF.EQ.4) P2EFF=MAX(P2EFF,PMC**2) + IF(KF.EQ.5) P2EFF=MAX(P2EFF,PMB**2) + Q2EFF=MAX(Q2,P2EFF) + XL=-LOG(X) + +C...Find number of flavours at lower and upper scale. + NFP=4 + IF(P2EFF.LT.PMC**2) NFP=3 + IF(P2EFF.GT.PMB**2) NFP=5 + NFQ=4 + IF(Q2EFF.LT.PMC**2) NFQ=3 + IF(Q2EFF.GT.PMB**2) NFQ=5 + +C...Define range of flavour loop. + IF(KF.EQ.0) THEN + KFLMN=1 + KFLMX=5 + ELSEIF(KF.LT.0) THEN + KFLMN=1 + KFLMX=KFA + ELSE + KFLMN=KFA + KFLMX=KFA + ENDIF + +C...Loop over flavours the photon can branch into. + DO 110 KFL=KFLMN,KFLMX + +C...Light flavours: calculate t range and (approximate) s range. + IF(KFL.LE.3.AND.(KFL.EQ.1.OR.KFL.EQ.KF)) THEN + TDIFF=LOG(Q2EFF/P2EFF) + S=(6D0/(33D0-2D0*NFQ))*LOG(LOG(Q2EFF/ALAMSQ(NFQ))/ + & LOG(P2EFF/ALAMSQ(NFQ))) + IF(NFQ.GT.NFP) THEN + Q2DIV=PMB**2 + IF(NFQ.EQ.4) Q2DIV=PMC**2 + SNFQ=(6D0/(33D0-2D0*NFQ))*LOG(LOG(Q2DIV/ALAMSQ(NFQ))/ + & LOG(P2EFF/ALAMSQ(NFQ))) + SNFP=(6D0/(33D0-2D0*(NFQ-1)))*LOG(LOG(Q2DIV/ALAMSQ(NFQ-1))/ + & LOG(P2EFF/ALAMSQ(NFQ-1))) + S=S+(LOG(Q2DIV/P2EFF)/LOG(Q2EFF/P2EFF))*(SNFP-SNFQ) + ENDIF + IF(NFQ.EQ.5.AND.NFP.EQ.3) THEN + Q2DIV=PMC**2 + SNF4=(6D0/(33D0-2D0*4))*LOG(LOG(Q2DIV/ALAMSQ(4))/ + & LOG(P2EFF/ALAMSQ(4))) + SNF3=(6D0/(33D0-2D0*3))*LOG(LOG(Q2DIV/ALAMSQ(3))/ + & LOG(P2EFF/ALAMSQ(3))) + S=S+(LOG(Q2DIV/P2EFF)/LOG(Q2EFF/P2EFF))*(SNF3-SNF4) + ENDIF + +C...u and s quark do not need a separate treatment when d has been done. + ELSEIF(KFL.EQ.2.OR.KFL.EQ.3) THEN + +C...Charm: as above, but only include range above c threshold. + ELSEIF(KFL.EQ.4) THEN + IF(Q2.LE.PMC**2) GOTO 110 + P2EFF=MAX(P2EFF,PMC**2) + Q2EFF=MAX(Q2EFF,P2EFF) + TDIFF=LOG(Q2EFF/P2EFF) + S=(6D0/(33D0-2D0*NFQ))*LOG(LOG(Q2EFF/ALAMSQ(NFQ))/ + & LOG(P2EFF/ALAMSQ(NFQ))) + IF(NFQ.EQ.5.AND.NFP.EQ.4) THEN + Q2DIV=PMB**2 + SNFQ=(6D0/(33D0-2D0*NFQ))*LOG(LOG(Q2DIV/ALAMSQ(NFQ))/ + & LOG(P2EFF/ALAMSQ(NFQ))) + SNFP=(6D0/(33D0-2D0*(NFQ-1)))*LOG(LOG(Q2DIV/ALAMSQ(NFQ-1))/ + & LOG(P2EFF/ALAMSQ(NFQ-1))) + S=S+(LOG(Q2DIV/P2EFF)/LOG(Q2EFF/P2EFF))*(SNFP-SNFQ) + ENDIF + +C...Bottom: as above, but only include range above b threshold. + ELSEIF(KFL.EQ.5) THEN + IF(Q2.LE.PMB**2) GOTO 110 + P2EFF=MAX(P2EFF,PMB**2) + Q2EFF=MAX(Q2,P2EFF) + TDIFF=LOG(Q2EFF/P2EFF) + S=(6D0/(33D0-2D0*NFQ))*LOG(LOG(Q2EFF/ALAMSQ(NFQ))/ + & LOG(P2EFF/ALAMSQ(NFQ))) + ENDIF + +C...Evaluate flavour-dependent prefactor (charge^2 etc.). + CHSQ=1D0/9D0 + IF(KFL.EQ.2.OR.KFL.EQ.4) CHSQ=4D0/9D0 + FAC=AEM2PI*2D0*CHSQ*TDIFF + +C...Evaluate parton distributions (normalized to unit momentum sum). + IF(KFL.EQ.1.OR.KFL.EQ.4.OR.KFL.EQ.5.OR.KFL.EQ.KF) THEN + XVAL= ((1.5D0+2.49D0*S+26.9D0*S**2)/(1D0+32.3D0*S**2)*X**2 + + & (1.5D0-0.49D0*S+7.83D0*S**2)/(1D0+7.68D0*S**2)*(1D0-X)**2 + + & 1.5D0*S/(1D0-3.2D0*S+7D0*S**2)*X*(1D0-X)) * + & X**(1D0/(1D0+0.58D0*S)) * (1D0-X**2)**(2.5D0*S/(1D0+10D0*S)) + XGLU= 2D0*S/(1D0+4D0*S+7D0*S**2) * + & X**(-1.67D0*S/(1D0+2D0*S)) * (1D0-X**2)**(1.2D0*S) * + & ((4D0*X**2+7D0*X+4D0)*(1D0-X)/3D0 - 2D0*X*(1D0+X)*XL) + XSEA= 0.333D0*S**2/(1D0+4.90D0*S+4.69D0*S**2+21.4D0*S**3) * + & X**(-1.18D0*S/(1D0+1.22D0*S)) * (1D0-X)**(1.2D0*S) * + & ((8D0-73D0*X+62D0*X**2)*(1D0-X)/9D0 + + & (3D0-8D0*X**2/3D0)*X*XL + (2D0*X-1D0)*X*XL**2) + +C...Threshold factors for c and b sea. + SLL=LOG(LOG(Q2EFF/ALAM**2)/LOG(P2EFF/ALAM**2)) + XCHM=0D0 + IF(Q2.GT.PMC**2.AND.Q2.GT.1.001D0*P2EFF) THEN + SCH=MAX(0D0,LOG(LOG(PMC**2/ALAM**2)/LOG(P2EFF/ALAM**2))) + XCHM=XSEA*(1D0-(SCH/SLL)**3) + ENDIF + XBOT=0D0 + IF(Q2.GT.PMB**2.AND.Q2.GT.1.001D0*P2EFF) THEN + SBT=MAX(0D0,LOG(LOG(PMB**2/ALAM**2)/LOG(P2EFF/ALAM**2))) + XBOT=XSEA*(1D0-(SBT/SLL)**3) + ENDIF + ENDIF + +C...Add contribution of each valence flavour. + XPGA(0)=XPGA(0)+FAC*XGLU + XPGA(1)=XPGA(1)+FAC*XSEA + XPGA(2)=XPGA(2)+FAC*XSEA + XPGA(3)=XPGA(3)+FAC*XSEA + XPGA(4)=XPGA(4)+FAC*XCHM + XPGA(5)=XPGA(5)+FAC*XBOT + XPGA(KFL)=XPGA(KFL)+FAC*XVAL + VXPGA(KFL)=VXPGA(KFL)+FAC*XVAL + 110 CONTINUE + DO 120 KFL=1,5 + XPGA(-KFL)=XPGA(KFL) + VXPGA(-KFL)=VXPGA(KFL) + 120 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYGBEH +C...Evaluates the Bethe-Heitler cross section for heavy flavour +C...production. +C...Adapted from SaSgam library, authors G.A. Schuler and T. Sjostrand. + + SUBROUTINE PYGBEH(KF,X,Q2,P2,PM2,XPBH) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP + +C...Local data. + DATA AEM2PI/0.0011614D0/ + +C...Reset output. + XPBH=0D0 + SIGBH=0D0 + +C...Check kinematics limits. + IF(X.GE.Q2/(4D0*PM2+Q2+P2)) RETURN + W2=Q2*(1D0-X)/X-P2 + BETA2=1D0-4D0*PM2/W2 + IF(BETA2.LT.1D-10) RETURN + BETA=SQRT(BETA2) + RMQ=4D0*PM2/Q2 + +C...Simple case: P2 = 0. + IF(P2.LT.1D-4) THEN + IF(BETA.LT.0.99D0) THEN + XBL=LOG((1D0+BETA)/(1D0-BETA)) + ELSE + XBL=LOG((1D0+BETA)**2*W2/(4D0*PM2)) + ENDIF + SIGBH=BETA*(8D0*X*(1D0-X)-1D0-RMQ*X*(1D0-X))+ + & XBL*(X**2+(1D0-X)**2+RMQ*X*(1D0-3D0*X)-0.5D0*RMQ**2*X**2) + +C...Complicated case: P2 > 0, based on approximation of +C...C.T. Hill and G.G. Ross, Nucl. Phys. B148 (1979) 373 + ELSE + RPQ=1D0-4D0*X**2*P2/Q2 + IF(RPQ.GT.1D-10) THEN + RPBE=SQRT(RPQ*BETA2) + IF(RPBE.LT.0.99D0) THEN + XBL=LOG((1D0+RPBE)/(1D0-RPBE)) + XBI=2D0*RPBE/(1D0-RPBE**2) + ELSE + RPBESN=4D0*PM2/W2+(4D0*X**2*P2/Q2)*BETA2 + XBL=LOG((1D0+RPBE)**2/RPBESN) + XBI=2D0*RPBE/RPBESN + ENDIF + SIGBH=BETA*(6D0*X*(1D0-X)-1D0)+ + & XBL*(X**2+(1D0-X)**2+RMQ*X*(1D0-3D0*X)-0.5D0*RMQ**2*X**2)+ + & XBI*(2D0*X/Q2)*(PM2*X*(2D0-RMQ)-P2*X) + ENDIF + ENDIF + +C...Multiply by charge-squared etc. to get parton distribution. + CHSQ=1D0/9D0 + IF(IABS(KF).EQ.2.OR.IABS(KF).EQ.4) CHSQ=4D0/9D0 + XPBH=3D0*CHSQ*AEM2PI*X*SIGBH + + RETURN + END + +C********************************************************************* + +C...PYGDIR +C...Evaluates the direct contribution, i.e. the C^gamma term, +C...as needed in MSbar parametrizations. +C...Adapted from SaSgam library, authors G.A. Schuler and T. Sjostrand. + + SUBROUTINE PYGDIR(X,Q2,P2,Q02,XPGA) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Local array and data. + DIMENSION XPGA(-6:6) + DATA PMC/1.3D0/, PMB/4.6D0/, AEM2PI/0.0011614D0/ + +C...Reset output. + DO 100 KFL=-6,6 + XPGA(KFL)=0D0 + 100 CONTINUE + +C...Evaluate common x-dependent expression. + XTMP = (X**2+(1D0-X)**2) * (-LOG(X)) - 1D0 + CGAM = 3D0*AEM2PI*X * (XTMP*(1D0+P2/(P2+Q02)) + 6D0*X*(1D0-X)) + +C...d, u, s part by simple charge factor. + XPGA(1)=(1D0/9D0)*CGAM + XPGA(2)=(4D0/9D0)*CGAM + XPGA(3)=(1D0/9D0)*CGAM + +C...Also fill for antiquarks. + DO 110 KF=1,5 + XPGA(-KF)=XPGA(KF) + 110 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYPDPI +C...Gives pi+ parton distribution according to two different +C...parametrizations. + + SUBROUTINE PYPDPI(X,Q2,XPPI) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + SAVE /PYDAT1/,/PYPARS/,/PYINT1/ +C...Local arrays. + DIMENSION XPPI(-6:6),COW(3,5,4,2),XQ(9),TS(6) + +C...The following data lines are coefficients needed in the +C...Owens pion parton distribution parametrizations, see below. +C...Expansion coefficients for up and down valence quark distributions. + DATA ((COW(IP,IS,1,1),IS=1,5),IP=1,3)/ + &4.0000D-01, 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, + &-6.2120D-02, 6.4780D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, + &-7.1090D-03, 1.3350D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00/ + DATA ((COW(IP,IS,1,2),IS=1,5),IP=1,3)/ + &4.0000D-01, 6.2800D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, + &-5.9090D-02, 6.4360D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, + &-6.5240D-03, 1.4510D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00/ +C...Expansion coefficients for gluon distribution. + DATA ((COW(IP,IS,2,1),IS=1,5),IP=1,3)/ + &8.8800D-01, 0.0000D+00, 3.1100D+00, 6.0000D+00, 0.0000D+00, + &-1.8020D+00, -1.5760D+00, -1.3170D-01, 2.8010D+00, -1.7280D+01, + &1.8120D+00, 1.2000D+00, 5.0680D-01, -1.2160D+01, 2.0490D+01/ + DATA ((COW(IP,IS,2,2),IS=1,5),IP=1,3)/ + &7.9400D-01, 0.0000D+00, 2.8900D+00, 6.0000D+00, 0.0000D+00, + &-9.1440D-01, -1.2370D+00, 5.9660D-01, -3.6710D+00, -8.1910D+00, + &5.9660D-01, 6.5820D-01, -2.5500D-01, -2.3040D+00, 7.7580D+00/ +C...Expansion coefficients for (up+down+strange) quark sea distribution. + DATA ((COW(IP,IS,3,1),IS=1,5),IP=1,3)/ + &9.0000D-01, 0.0000D+00, 5.0000D+00, 0.0000D+00, 0.0000D+00, + &-2.4280D-01, -2.1200D-01, 8.6730D-01, 1.2660D+00, 2.3820D+00, + &1.3860D-01, 3.6710D-03, 4.7470D-02, -2.2150D+00, 3.4820D-01/ + DATA ((COW(IP,IS,3,2),IS=1,5),IP=1,3)/ + &9.0000D-01, 0.0000D+00, 5.0000D+00, 0.0000D+00, 0.0000D+00, + &-1.4170D-01, -1.6970D-01, -2.4740D+00, -2.5340D+00, 5.6210D-01, + &-1.7400D-01, -9.6230D-02, 1.5750D+00, 1.3780D+00, -2.7010D-01/ +C...Expansion coefficients for charm quark sea distribution. + DATA ((COW(IP,IS,4,1),IS=1,5),IP=1,3)/ + &0.0000D+00, -2.2120D-02, 2.8940D+00, 0.0000D+00, 0.0000D+00, + &7.9280D-02, -3.7850D-01, 9.4330D+00, 5.2480D+00, 8.3880D+00, + &-6.1340D-02, -1.0880D-01, -1.0852D+01, -7.1870D+00, -1.1610D+01/ + DATA ((COW(IP,IS,4,2),IS=1,5),IP=1,3)/ + &0.0000D+00, -8.8200D-02, 1.9240D+00, 0.0000D+00, 0.0000D+00, + &6.2290D-02, -2.8920D-01, 2.4240D-01, -4.4630D+00, -8.3670D-01, + &-4.0990D-02, -1.0820D-01, 2.0360D+00, 5.2090D+00, -4.8400D-02/ + +C...Euler's beta function, requires ordinary Gamma function + EULBET(X,Y)=PYGAMM(X)*PYGAMM(Y)/PYGAMM(X+Y) + +C...Reset output array. + DO 100 KFL=-6,6 + XPPI(KFL)=0D0 + 100 CONTINUE + + IF(MSTP(53).LE.2) THEN +C...Pion parton distributions from Owens. +C...Allowed variable range: 4 GeV^2 < Q^2 < approx 2000 GeV^2. + +C...Determine set, Lambda and s expansion variable. + NSET=MSTP(53) + IF(NSET.EQ.1) ALAM=0.2D0 + IF(NSET.EQ.2) ALAM=0.4D0 + VINT(231)=4D0 + IF(MSTP(57).LE.0) THEN + SD=0D0 + ELSE + Q2IN=MIN(2D3,MAX(4D0,Q2)) + SD=LOG(LOG(Q2IN/ALAM**2)/LOG(4D0/ALAM**2)) + ENDIF + +C...Calculate parton distributions. + DO 120 KFL=1,4 + DO 110 IS=1,5 + TS(IS)=COW(1,IS,KFL,NSET)+COW(2,IS,KFL,NSET)*SD+ + & COW(3,IS,KFL,NSET)*SD**2 + 110 CONTINUE + IF(KFL.EQ.1) THEN + XQ(KFL)=X**TS(1)*(1D0-X)**TS(2)/EULBET(TS(1),TS(2)+1D0) + ELSE + XQ(KFL)=TS(1)*X**TS(2)*(1D0-X)**TS(3)*(1D0+TS(4)*X+ + & TS(5)*X**2) + ENDIF + 120 CONTINUE + +C...Put into output array. + XPPI(0)=XQ(2) + XPPI(1)=XQ(3)/6D0 + XPPI(2)=XQ(1)+XQ(3)/6D0 + XPPI(3)=XQ(3)/6D0 + XPPI(4)=XQ(4) + XPPI(-1)=XQ(1)+XQ(3)/6D0 + XPPI(-2)=XQ(3)/6D0 + XPPI(-3)=XQ(3)/6D0 + XPPI(-4)=XQ(4) + +C...Leading order pion parton distributions from Gluck, Reya and Vogt. +C...Allowed variable range: 0.25 GeV^2 < Q^2 < 10^8 GeV^2 and +C...10^-5 < x < 1. + ELSE + +C...Determine s expansion variable and some x expressions. + VINT(231)=0.25D0 + IF(MSTP(57).LE.0) THEN + SD=0D0 + ELSE + Q2IN=MIN(1D8,MAX(0.25D0,Q2)) + SD=LOG(LOG(Q2IN/0.232D0**2)/LOG(0.25D0/0.232D0**2)) + ENDIF + SD2=SD**2 + XL=-LOG(X) + XS=SQRT(X) + +C...Evaluate valence, gluon and sea distributions. + XFVAL=(0.519D0+0.180D0*SD-0.011D0*SD2)*X**(0.499D0-0.027D0*SD)* + & (1D0+(0.381D0-0.419D0*SD)*XS)*(1D0-X)**(0.367D0+0.563D0*SD) + XFGLU=(X**(0.482D0+0.341D0*SQRT(SD))*((0.678D0+0.877D0* + & SD-0.175D0*SD2)+ + & (0.338D0-1.597D0*SD)*XS+(-0.233D0*SD+0.406D0*SD2)*X)+ + & SD**0.599D0*EXP(-(0.618D0+2.070D0*SD)+SQRT(3.676D0*SD**1.263D0* + & XL)))* + & (1D0-X)**(0.390D0+1.053D0*SD) + XFSEA=SD**0.55D0*(1D0-0.748D0*XS+(0.313D0+0.935D0*SD)*X)*(1D0- + & X)**3.359D0* + & EXP(-(4.433D0+1.301D0*SD)+SQRT((9.30D0-0.887D0*SD)*SD**0.56D0* + & XL))/ + & XL**(2.538D0-0.763D0*SD) + IF(SD.LE.0.888D0) THEN + XFCHM=0D0 + ELSE + XFCHM=(SD-0.888D0)**1.02D0*(1D0+1.008D0*X)*(1D0-X)**(1.208D0+ + & 0.771D0*SD)* + & EXP(-(4.40D0+1.493D0*SD)+SQRT((2.032D0+1.901D0*SD)*SD**0.39D0* + & XL)) + ENDIF + IF(SD.LE.1.351D0) THEN + XFBOT=0D0 + ELSE + XFBOT=(SD-1.351D0)**1.03D0*(1D0-X)**(0.697D0+0.855D0*SD)* + & EXP(-(4.51D0+1.490D0*SD)+SQRT((3.056D0+1.694D0*SD)*SD**0.39D0* + & XL)) + ENDIF + +C...Put into output array. + XPPI(0)=XFGLU + XPPI(1)=XFSEA + XPPI(2)=XFSEA + XPPI(3)=XFSEA + XPPI(4)=XFCHM + XPPI(5)=XFBOT + DO 130 KFL=1,5 + XPPI(-KFL)=XPPI(KFL) + 130 CONTINUE + XPPI(2)=XPPI(2)+XFVAL + XPPI(-1)=XPPI(-1)+XFVAL + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYPDPR +C...Gives proton parton distributions according to a few different +C...parametrizations. + + SUBROUTINE PYPDPR(X,Q2,XPPR) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + SAVE /PYDAT1/,/PYDAT2/,/PYPARS/,/PYINT1/ +C...Arrays and data. + DIMENSION XPPR(-6:6),Q2MIN(16) + DATA Q2MIN/ 2.56D0, 2.56D0, 2.56D0, 0.4D0, 0.4D0, 0.4D0, + &1.0D0, 1.0D0, 2*0D0, 0.25D0, 5D0, 5D0, 4D0, 4D0, 0D0/ + +C...Reset output array. + DO 100 KFL=-6,6 + XPPR(KFL)=0D0 + 100 CONTINUE + +C...Common preliminaries. + NSET=MAX(1,MIN(16,MSTP(51))) + IF(NSET.EQ.9.OR.NSET.EQ.10) NSET=6 + VINT(231)=Q2MIN(NSET) + IF(MSTP(57).EQ.0) THEN + Q2L=Q2MIN(NSET) + ELSE + Q2L=MAX(Q2MIN(NSET),Q2) + ENDIF + + IF(NSET.GE.1.AND.NSET.LE.3) THEN +C...Interface to the CTEQ 3 parton distributions. + QRT=SQRT(MAX(1D0,Q2L)) + +C...Loop over flavours. + DO 110 I=-6,6 + IF(I.LE.0) THEN + XPPR(I)=PYCTEQ(NSET,I,X,QRT) + ELSEIF(I.LE.2) THEN + XPPR(I)=PYCTEQ(NSET,I,X,QRT)+XPPR(-I) + ELSE + XPPR(I)=XPPR(-I) + ENDIF + 110 CONTINUE + + ELSEIF(NSET.GE.4.AND.NSET.LE.6) THEN +C...Interface to the GRV 94 distributions. + IF(NSET.EQ.4) THEN + CALL PYGRVL (X, Q2L, UV, DV, DEL, UDB, SB, CHM, BOT, GL) + ELSEIF(NSET.EQ.5) THEN + CALL PYGRVM (X, Q2L, UV, DV, DEL, UDB, SB, CHM, BOT, GL) + ELSE + CALL PYGRVD (X, Q2L, UV, DV, DEL, UDB, SB, CHM, BOT, GL) + ENDIF + +C...Put into output array. + XPPR(0)=GL + XPPR(-1)=0.5D0*(UDB+DEL) + XPPR(-2)=0.5D0*(UDB-DEL) + XPPR(-3)=SB + XPPR(-4)=CHM + XPPR(-5)=BOT + XPPR(1)=DV+XPPR(-1) + XPPR(2)=UV+XPPR(-2) + XPPR(3)=SB + XPPR(4)=CHM + XPPR(5)=BOT + + ELSEIF(NSET.EQ.7) THEN +C...Interface to the CTEQ 5L parton distributions. +C...Range of validity 10^-6 < x < 1, 1 < Q < 10^4 extended by +C...freezing x*f(x,Q2) at borders. + QRT=SQRT(MAX(1D0,MIN(1D4,Q2L))) + XIN=MAX(1D-6,MIN(1D0,X)) + +C...Loop over flavours (with u <-> d notation mismatch). + SUMUDB=PYCT5L(-1,XIN,QRT) + RATUDB=PYCT5L(-2,XIN,QRT) + DO 120 I=-5,2 + IF(I.EQ.1) THEN + XPPR(I)=XIN*PYCT5L(2,XIN,QRT) + ELSEIF(I.EQ.2) THEN + XPPR(I)=XIN*PYCT5L(1,XIN,QRT) + ELSEIF(I.EQ.-1) THEN + XPPR(I)=XIN*SUMUDB*RATUDB/(1D0+RATUDB) + ELSEIF(I.EQ.-2) THEN + XPPR(I)=XIN*SUMUDB/(1D0+RATUDB) + ELSE + XPPR(I)=XIN*PYCT5L(I,XIN,QRT) + IF(I.LT.0) XPPR(-I)=XPPR(I) + ENDIF + 120 CONTINUE + + ELSEIF(NSET.EQ.8) THEN +C...Interface to the CTEQ 5M1 parton distributions. + QRT=SQRT(MAX(1D0,MIN(1D4,Q2L))) + XIN=MAX(1D-6,MIN(1D0,X)) + +C...Loop over flavours (with u <-> d notation mismatch). + SUMUDB=PYCT5M(-1,XIN,QRT) + RATUDB=PYCT5M(-2,XIN,QRT) + DO 130 I=-5,2 + IF(I.EQ.1) THEN + XPPR(I)=XIN*PYCT5M(2,XIN,QRT) + ELSEIF(I.EQ.2) THEN + XPPR(I)=XIN*PYCT5M(1,XIN,QRT) + ELSEIF(I.EQ.-1) THEN + XPPR(I)=XIN*SUMUDB*RATUDB/(1D0+RATUDB) + ELSEIF(I.EQ.-2) THEN + XPPR(I)=XIN*SUMUDB/(1D0+RATUDB) + ELSE + XPPR(I)=XIN*PYCT5M(I,XIN,QRT) + IF(I.LT.0) XPPR(-I)=XPPR(I) + ENDIF + 130 CONTINUE + + ELSEIF(NSET.GE.11.AND.NSET.LE.15) THEN +C...GRV92LO, EHLQ1, EHLQ2, DO1 AND DO2 distributions: +C...obsolete but offers backwards compatibility. + CALL PYPDPO(X,Q2L,XPPR) + +C...Symmetric choice for debugging only + ELSEIF(NSET.EQ.16) THEN + XPPR(0)=.5D0/X + XPPR(1)=.05D0/X + XPPR(2)=.05D0/X + XPPR(3)=.05D0/X + XPPR(4)=.05D0/X + XPPR(5)=.05D0/X + XPPR(-1)=.05D0/X + XPPR(-2)=.05D0/X + XPPR(-3)=.05D0/X + XPPR(-4)=.05D0/X + XPPR(-5)=.05D0/X + + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYCTEQ +C...Gives the CTEQ 3 parton distribution function sets in +C...parametrized form, of October 24, 1994. +C...Authors: H.L. Lai, J. Botts, J. Huston, J.G. Morfin, J.F. Owens, +C...J. Qiu, W.K. Tung and H. Weerts. + + FUNCTION PYCTEQ (ISET, IPRT, X, Q) + +C...Double precision declaration. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + +C...Data on Lambda values of fits, minimum Q and quark masses. + DIMENSION ALM(3), QMS(4:6) + DATA ALM / 0.177D0, 0.239D0, 0.247D0 / + DATA QMN / 1.60D0 /, (QMS(I), I=4,6) / 1.60D0, 5.00D0, 180.0D0 / + +C....Check flavour thresholds. Set up QI for SB. + IP = IABS(IPRT) + IF(IP .GE. 4) THEN + IF(Q .LE. QMS(IP)) THEN + PYCTEQ = 0D0 + RETURN + ENDIF + QI = QMS(IP) + ELSE + QI = QMN + ENDIF + +C...Use "standard lambda" of parametrization program for expansion. + ALAM = ALM (ISET) + SBL = LOG(Q/ALAM) / LOG(QI/ALAM) + SB = LOG (SBL) + SB2 = SB*SB + SB3 = SB2*SB + +C...Expansion for CTEQ3L. + IF(ISET .EQ. 1) THEN + IF(IPRT .EQ. 2) THEN + A0=Exp( 0.1907D+00+0.4205D-01*SB +0.2752D+00*SB2- + & 0.3171D+00*SB3) + A1= 0.4611D+00+0.2331D-01*SB -0.3403D-01*SB2+0.3174D-01*SB3 + A2= 0.3504D+01+0.5739D+00*SB +0.2676D+00*SB2-0.1553D+00*SB3 + A3= 0.7452D+01-0.6742D+01*SB +0.2849D+01*SB2-0.1964D+00*SB3 + A4= 0.1116D+01-0.3435D+00*SB +0.2865D+00*SB2-0.1288D+00*SB3 + A5= 0.6659D-01+0.2714D+00*SB -0.2688D+00*SB2+0.2763D+00*SB3 + ELSEIF(IPRT .EQ. 1) THEN + A0=Exp( 0.1141D+00+0.4764D+00*SB -0.1745D+01*SB2+ + & 0.7728D+00*SB3) + A1= 0.4275D+00-0.1290D+00*SB +0.3609D+00*SB2-0.1689D+00*SB3 + A2= 0.3000D+01+0.2946D+01*SB -0.4117D+01*SB2+0.1989D+01*SB3 + A3=-0.1302D+01+0.2322D+01*SB -0.4258D+01*SB2+0.2109D+01*SB3 + A4= 0.2586D+01-0.1920D+00*SB -0.3754D+00*SB2+0.2731D+00*SB3 + A5=-0.2251D+00-0.5374D+00*SB +0.2245D+01*SB2-0.1034D+01*SB3 + ELSEIF(IPRT .EQ. 0) THEN + A0=Exp(-0.7631D+00-0.7241D+00*SB -0.1170D+01*SB2+ + & 0.5343D+00*SB3) + A1=-0.3573D+00+0.3469D+00*SB -0.3396D+00*SB2+0.9188D-01*SB3 + A2= 0.5604D+01+0.7458D+00*SB -0.5082D+00*SB2+0.1844D+00*SB3 + A3= 0.1549D+02-0.1809D+02*SB +0.1162D+02*SB2-0.3483D+01*SB3 + A4= 0.9881D+00+0.1364D+00*SB -0.4421D+00*SB2+0.2051D+00*SB3 + A5=-0.9505D-01+0.3259D+01*SB -0.1547D+01*SB2+0.2918D+00*SB3 + ELSEIF(IPRT .EQ. -1) THEN + A0=Exp(-0.2449D+01-0.3513D+01*SB +0.4529D+01*SB2- + & 0.2031D+01*SB3) + A1=-0.4050D+00+0.3411D+00*SB -0.3669D+00*SB2+0.1109D+00*SB3 + A2= 0.7470D+01-0.2982D+01*SB +0.5503D+01*SB2-0.2419D+01*SB3 + A3= 0.1503D+02+0.1638D+01*SB -0.8772D+01*SB2+0.3852D+01*SB3 + A4= 0.1137D+01-0.1006D+01*SB +0.1485D+01*SB2-0.6389D+00*SB3 + A5=-0.5299D+00+0.3160D+01*SB -0.3104D+01*SB2+0.1219D+01*SB3 + ELSEIF(IPRT .EQ. -2) THEN + A0=Exp(-0.2740D+01-0.7987D-01*SB -0.9015D+00*SB2- + & 0.9872D-01*SB3) + A1=-0.3909D+00+0.1244D+00*SB -0.4487D-01*SB2+0.1277D-01*SB3 + A2= 0.9163D+01+0.2823D+00*SB -0.7720D+00*SB2-0.9360D-02*SB3 + A3= 0.1080D+02-0.3915D+01*SB -0.1153D+01*SB2+0.2649D+01*SB3 + A4= 0.9894D+00-0.1647D+00*SB -0.9426D-02*SB2+0.2945D-02*SB3 + A5=-0.3395D+00+0.6998D+00*SB +0.7000D+00*SB2-0.6730D-01*SB3 + ELSEIF(IPRT .EQ. -3) THEN + A0=Exp(-0.3640D+01+0.1250D+01*SB -0.2914D+01*SB2+ + & 0.8390D+00*SB3) + A1=-0.3595D+00-0.5259D-01*SB +0.3122D+00*SB2-0.1642D+00*SB3 + A2= 0.7305D+01+0.9727D+00*SB -0.9788D+00*SB2-0.5193D-01*SB3 + A3= 0.1198D+02-0.1799D+02*SB +0.2614D+02*SB2-0.1091D+02*SB3 + A4= 0.9882D+00-0.6101D+00*SB +0.9737D+00*SB2-0.4935D+00*SB3 + A5=-0.1186D+00-0.3231D+00*SB +0.3074D+01*SB2-0.1274D+01*SB3 + ELSEIF(IPRT .EQ. -4) THEN + A0=SB** 0.1122D+01*Exp(-0.3718D+01-0.1335D+01*SB + + & 0.1651D-01*SB2) + A1=-0.4719D+00+0.7509D+00*SB -0.8420D+00*SB2+0.2901D+00*SB3 + A2= 0.6194D+01-0.1641D+01*SB +0.4907D+01*SB2-0.2523D+01*SB3 + A3= 0.4426D+01-0.4270D+01*SB +0.6581D+01*SB2-0.3474D+01*SB3 + A4= 0.2683D+00+0.9876D+00*SB -0.7612D+00*SB2+0.1780D+00*SB3 + A5=-0.4547D+00+0.4410D+01*SB -0.3712D+01*SB2+0.1245D+01*SB3 + ELSEIF(IPRT .EQ. -5) THEN + A0=SB** 0.9838D+00*Exp(-0.2548D+01-0.7660D+01*SB + + & 0.3702D+01*SB2) + A1=-0.3122D+00-0.2120D+00*SB +0.5716D+00*SB2-0.3773D+00*SB3 + A2= 0.6257D+01-0.8214D-01*SB -0.2537D+01*SB2+0.2981D+01*SB3 + A3=-0.6723D+00+0.2131D+01*SB +0.9599D+01*SB2-0.7910D+01*SB3 + A4= 0.9169D-01+0.4295D-01*SB -0.5017D+00*SB2+0.3811D+00*SB3 + A5= 0.2402D+00+0.2656D+01*SB -0.1586D+01*SB2+0.2880D+00*SB3 + ELSEIF(IPRT .EQ. -6) THEN + A0=SB** 0.1001D+01*Exp(-0.6934D+01+0.3050D+01*SB - + & 0.6943D+00*SB2) + A1=-0.1713D+00-0.5167D+00*SB +0.1241D+01*SB2-0.1703D+01*SB3 + A2= 0.6169D+01+0.3023D+01*SB -0.1972D+02*SB2+0.1069D+02*SB3 + A3= 0.4439D+01-0.1746D+02*SB +0.1225D+02*SB2+0.8350D+00*SB3 + A4= 0.5458D+00-0.4586D+00*SB +0.9089D+00*SB2-0.4049D+00*SB3 + A5= 0.3207D+01-0.3362D+01*SB +0.5877D+01*SB2-0.7659D+01*SB3 + ENDIF + +C...Expansion for CTEQ3M. + ELSEIF(ISET .EQ. 2) THEN + IF(IPRT .EQ. 2) THEN + A0=Exp( 0.2259D+00+0.1237D+00*SB +0.3035D+00*SB2- + & 0.2935D+00*SB3) + A1= 0.5085D+00+0.1651D-01*SB -0.3592D-01*SB2+0.2782D-01*SB3 + A2= 0.3732D+01+0.4901D+00*SB +0.2218D+00*SB2-0.1116D+00*SB3 + A3= 0.7011D+01-0.6620D+01*SB +0.2557D+01*SB2-0.1360D+00*SB3 + A4= 0.8969D+00-0.2429D+00*SB +0.1811D+00*SB2-0.6888D-01*SB3 + A5= 0.8636D-01+0.2558D+00*SB -0.3082D+00*SB2+0.2535D+00*SB3 + ELSEIF(IPRT .EQ. 1) THEN + A0=Exp(-0.7266D+00-0.1584D+01*SB +0.1259D+01*SB2- + & 0.4305D-01*SB3) + A1= 0.5285D+00-0.3721D+00*SB +0.5150D+00*SB2-0.1697D+00*SB3 + A2= 0.4075D+01+0.8282D+00*SB -0.4496D+00*SB2+0.2107D+00*SB3 + A3= 0.3279D+01+0.5066D+01*SB -0.9134D+01*SB2+0.2897D+01*SB3 + A4= 0.4399D+00-0.5888D+00*SB +0.4802D+00*SB2-0.1664D+00*SB3 + A5= 0.3678D+00-0.8929D+00*SB +0.1592D+01*SB2-0.5713D+00*SB3 + ELSEIF(IPRT .EQ. 0) THEN + A0=Exp(-0.2318D+00-0.9779D+00*SB -0.3783D+00*SB2+ + & 0.1037D-01*SB3) + A1=-0.2916D+00+0.1754D+00*SB -0.1884D+00*SB2+0.6116D-01*SB3 + A2= 0.5349D+01+0.7460D+00*SB +0.2319D+00*SB2-0.2622D+00*SB3 + A3= 0.6920D+01-0.3454D+01*SB +0.2027D+01*SB2-0.7626D+00*SB3 + A4= 0.1013D+01+0.1423D+00*SB -0.1798D+00*SB2+0.1872D-01*SB3 + A5=-0.5465D-01+0.2303D+01*SB -0.9584D+00*SB2+0.3098D+00*SB3 + ELSEIF(IPRT .EQ. -1) THEN + A0=Exp(-0.2328D+01-0.3061D+01*SB +0.3620D+01*SB2- + & 0.1602D+01*SB3) + A1=-0.3358D+00+0.3198D+00*SB -0.4210D+00*SB2+0.1571D+00*SB3 + A2= 0.8478D+01-0.3112D+01*SB +0.5243D+01*SB2-0.2255D+01*SB3 + A3= 0.1971D+02+0.3389D+00*SB -0.5268D+01*SB2+0.2099D+01*SB3 + A4= 0.1128D+01-0.4701D+00*SB +0.7779D+00*SB2-0.3506D+00*SB3 + A5=-0.4708D+00+0.3341D+01*SB -0.3375D+01*SB2+0.1353D+01*SB3 + ELSEIF(IPRT .EQ. -2) THEN + A0=Exp(-0.2906D+01-0.1069D+00*SB -0.1055D+01*SB2+ + & 0.2496D+00*SB3) + A1=-0.2875D+00+0.6571D-01*SB -0.1987D-01*SB2-0.1800D-02*SB3 + A2= 0.9854D+01-0.2715D+00*SB -0.7407D+00*SB2+0.2888D+00*SB3 + A3= 0.1583D+02-0.7687D+01*SB +0.3428D+01*SB2-0.3327D+00*SB3 + A4= 0.9763D+00+0.7599D-01*SB -0.2128D+00*SB2+0.6852D-01*SB3 + A5=-0.8444D-02+0.9434D+00*SB +0.4152D+00*SB2-0.1481D+00*SB3 + ELSEIF(IPRT .EQ. -3) THEN + A0=Exp(-0.3780D+01+0.2499D+01*SB -0.4962D+01*SB2+ + & 0.1936D+01*SB3) + A1=-0.2639D+00-0.1575D+00*SB +0.3584D+00*SB2-0.1646D+00*SB3 + A2= 0.8082D+01+0.2794D+01*SB -0.5438D+01*SB2+0.2321D+01*SB3 + A3= 0.1811D+02-0.2000D+02*SB +0.1951D+02*SB2-0.6904D+01*SB3 + A4= 0.9822D+00+0.4972D+00*SB -0.8690D+00*SB2+0.3415D+00*SB3 + A5= 0.1772D+00-0.6078D+00*SB +0.3341D+01*SB2-0.1473D+01*SB3 + ELSEIF(IPRT .EQ. -4) THEN + A0=SB** 0.1122D+01*Exp(-0.4232D+01-0.1808D+01*SB + + & 0.5348D+00*SB2) + A1=-0.2824D+00+0.5846D+00*SB -0.7230D+00*SB2+0.2419D+00*SB3 + A2= 0.5683D+01-0.2948D+01*SB +0.5916D+01*SB2-0.2560D+01*SB3 + A3= 0.2051D+01+0.4795D+01*SB -0.4271D+01*SB2+0.4174D+00*SB3 + A4= 0.1737D+00+0.1717D+01*SB -0.1978D+01*SB2+0.6643D+00*SB3 + A5= 0.8689D+00+0.3500D+01*SB -0.3283D+01*SB2+0.1026D+01*SB3 + ELSEIF(IPRT .EQ. -5) THEN + A0=SB** 0.9906D+00*Exp(-0.1496D+01-0.6576D+01*SB + + & 0.1569D+01*SB2) + A1=-0.2140D+00-0.6419D-01*SB -0.2741D-02*SB2+0.3185D-02*SB3 + A2= 0.5781D+01+0.1049D+00*SB -0.3930D+00*SB2+0.5174D+00*SB3 + A3=-0.9420D+00+0.5511D+00*SB +0.8817D+00*SB2+0.1903D+01*SB3 + A4= 0.2418D-01+0.4232D-01*SB -0.1244D-01*SB2-0.2365D-01*SB3 + A5= 0.7664D+00+0.1794D+01*SB -0.4917D+00*SB2-0.1284D+00*SB3 + ELSEIF(IPRT .EQ. -6) THEN + A0=SB** 0.1000D+01*Exp(-0.8460D+01+0.1154D+01*SB + + & 0.8838D+01*SB2) + A1=-0.4316D-01-0.2976D+00*SB +0.3174D+00*SB2-0.1429D+01*SB3 + A2= 0.4910D+01+0.2273D+01*SB +0.5631D+01*SB2-0.1994D+02*SB3 + A3= 0.1190D+02-0.2000D+02*SB -0.2000D+02*SB2+0.1292D+02*SB3 + A4= 0.5771D+00-0.2552D+00*SB +0.7510D+00*SB2+0.6923D+00*SB3 + A5= 0.4402D+01-0.1627D+01*SB -0.2085D+01*SB2-0.6737D+01*SB3 + ENDIF + +C...Expansion for CTEQ3D. + ELSEIF(ISET .EQ. 3) THEN + IF(IPRT .EQ. 2) THEN + A0=Exp( 0.2148D+00+0.5814D-01*SB +0.2734D+00*SB2- + & 0.2902D+00*SB3) + A1= 0.4810D+00+0.1657D-01*SB -0.3800D-01*SB2+0.3125D-01*SB3 + A2= 0.3509D+01+0.3923D+00*SB +0.4010D+00*SB2-0.1932D+00*SB3 + A3= 0.7055D+01-0.6552D+01*SB +0.3466D+01*SB2-0.5657D+00*SB3 + A4= 0.1061D+01-0.3453D+00*SB +0.4089D+00*SB2-0.1817D+00*SB3 + A5= 0.8687D-01+0.2548D+00*SB -0.2967D+00*SB2+0.2647D+00*SB3 + ELSEIF(IPRT .EQ. 1) THEN + A0=Exp( 0.3961D+00+0.4914D+00*SB -0.1728D+01*SB2+ + & 0.7257D+00*SB3) + A1= 0.4162D+00-0.1419D+00*SB +0.3680D+00*SB2-0.1618D+00*SB3 + A2= 0.3248D+01+0.3028D+01*SB -0.4307D+01*SB2+0.1920D+01*SB3 + A3=-0.1100D+01+0.2184D+01*SB -0.3820D+01*SB2+0.1717D+01*SB3 + A4= 0.2082D+01-0.2756D+00*SB +0.3043D+00*SB2-0.1260D+00*SB3 + A5=-0.4822D+00-0.5706D+00*SB +0.2243D+01*SB2-0.9760D+00*SB3 + ELSEIF(IPRT .EQ. 0) THEN + A0=Exp(-0.4665D+00-0.7554D+00*SB -0.3323D+00*SB2- + & 0.2734D-04*SB3) + A1=-0.3359D+00+0.2395D+00*SB -0.2377D+00*SB2+0.7059D-01*SB3 + A2= 0.5451D+01+0.6086D+00*SB +0.8606D-01*SB2-0.1425D+00*SB3 + A3= 0.1026D+02-0.9352D+01*SB +0.4879D+01*SB2-0.1150D+01*SB3 + A4= 0.9935D+00-0.5017D-01*SB -0.1707D-01*SB2-0.1464D-02*SB3 + A5=-0.4160D-01+0.2305D+01*SB -0.1063D+01*SB2+0.3211D+00*SB3 + ELSEIF(IPRT .EQ. -1) THEN + A0=Exp(-0.2714D+01-0.2868D+01*SB +0.3700D+01*SB2- + & 0.1671D+01*SB3) + A1=-0.3893D+00+0.3341D+00*SB -0.3897D+00*SB2+0.1420D+00*SB3 + A2= 0.8359D+01-0.3267D+01*SB +0.5327D+01*SB2-0.2245D+01*SB3 + A3= 0.2359D+02-0.5669D+01*SB -0.4602D+01*SB2+0.3153D+01*SB3 + A4= 0.1106D+01-0.4745D+00*SB +0.7739D+00*SB2-0.3417D+00*SB3 + A5=-0.5557D+00+0.3433D+01*SB -0.3390D+01*SB2+0.1354D+01*SB3 + ELSEIF(IPRT .EQ. -2) THEN + A0=Exp(-0.3323D+01+0.2296D+00*SB -0.1109D+01*SB2+ + & 0.2223D+00*SB3) + A1=-0.3410D+00+0.8847D-01*SB -0.1111D-01*SB2-0.5927D-02*SB3 + A2= 0.9753D+01-0.5182D+00*SB -0.4670D+00*SB2+0.1921D+00*SB3 + A3= 0.1977D+02-0.1600D+02*SB +0.9481D+01*SB2-0.1864D+01*SB3 + A4= 0.9818D+00+0.2839D-02*SB -0.1188D+00*SB2+0.3584D-01*SB3 + A5=-0.7934D-01+0.1004D+01*SB +0.3704D+00*SB2-0.1220D+00*SB3 + ELSEIF(IPRT .EQ. -3) THEN + A0=Exp(-0.3985D+01+0.2855D+01*SB -0.5208D+01*SB2+ + & 0.1937D+01*SB3) + A1=-0.3337D+00-0.1150D+00*SB +0.3691D+00*SB2-0.1709D+00*SB3 + A2= 0.7968D+01+0.3641D+01*SB -0.6599D+01*SB2+0.2642D+01*SB3 + A3= 0.1873D+02-0.1999D+02*SB +0.1734D+02*SB2-0.5813D+01*SB3 + A4= 0.9731D+00+0.5082D+00*SB -0.8780D+00*SB2+0.3231D+00*SB3 + A5=-0.5542D-01-0.4189D+00*SB +0.3309D+01*SB2-0.1439D+01*SB3 + ELSEIF(IPRT .EQ. -4) THEN + A0=SB** 0.1105D+01*Exp(-0.3952D+01-0.1901D+01*SB + + & 0.5137D+00*SB2) + A1=-0.3543D+00+0.6055D+00*SB -0.6941D+00*SB2+0.2278D+00*SB3 + A2= 0.5955D+01-0.2629D+01*SB +0.5337D+01*SB2-0.2300D+01*SB3 + A3= 0.1933D+01+0.4882D+01*SB -0.3810D+01*SB2+0.2290D+00*SB3 + A4= 0.1806D+00+0.1655D+01*SB -0.1893D+01*SB2+0.6395D+00*SB3 + A5= 0.4790D+00+0.3612D+01*SB -0.3152D+01*SB2+0.9684D+00*SB3 + ELSEIF(IPRT .EQ. -5) THEN + A0=SB** 0.9818D+00*Exp(-0.1825D+01-0.7464D+01*SB + + & 0.2143D+01*SB2) + A1=-0.2604D+00-0.1400D+00*SB +0.1702D+00*SB2-0.8476D-01*SB3 + A2= 0.6005D+01+0.6275D+00*SB -0.2535D+01*SB2+0.2219D+01*SB3 + A3=-0.9067D+00+0.1149D+01*SB +0.1974D+01*SB2+0.4716D+01*SB3 + A4= 0.3915D-01+0.5945D-01*SB -0.9844D-01*SB2+0.2783D-01*SB3 + A5= 0.5500D+00+0.1994D+01*SB -0.6727D+00*SB2-0.1510D+00*SB3 + ELSEIF(IPRT .EQ. -6) THEN + A0=SB** 0.1002D+01*Exp(-0.8553D+01+0.3793D+00*SB + + & 0.9998D+01*SB2) + A1=-0.5870D-01-0.2792D+00*SB +0.6526D+00*SB2-0.1984D+01*SB3 + A2= 0.4716D+01+0.4473D+00*SB +0.1128D+02*SB2-0.1937D+02*SB3 + A3= 0.1289D+02-0.1742D+02*SB -0.1983D+02*SB2-0.9274D+00*SB3 + A4= 0.5647D+00-0.2732D+00*SB +0.1074D+01*SB2+0.5981D+00*SB3 + A5= 0.4390D+01-0.1262D+01*SB -0.9026D+00*SB2-0.9394D+01*SB3 + ENDIF + ENDIF + +C...Calculation of x * f(x, Q). + PYCTEQ = MAX(0D0, A0 *(X**A1) *((1D0-X)**A2) *(1D0+A3*(X**A4)) + & *(LOG(1D0+1D0/X))**A5 ) + + RETURN + END + +C********************************************************************* + +C...PYGRVL +C...Gives the GRV 94 L (leading order) parton distribution function set +C...in parametrized form. +C...Authors: M. Glueck, E. Reya and A. Vogt. + + SUBROUTINE PYGRVL (X, Q2, UV, DV, DEL, UDB, SB, CHM, BOT, GL) + +C...Double precision declaration. + IMPLICIT DOUBLE PRECISION (A - Z) + +C...Common expressions. + MU2 = 0.23D0 + LAM2 = 0.2322D0 * 0.2322D0 + S = LOG (LOG(Q2/LAM2) / LOG(MU2/LAM2)) + DS = SQRT (S) + S2 = S * S + S3 = S2 * S + +C...uv : + NU = 2.284D0 + 0.802D0 * S + 0.055D0 * S2 + AKU = 0.590D0 - 0.024D0 * S + BKU = 0.131D0 + 0.063D0 * S + AU = -0.449D0 - 0.138D0 * S - 0.076D0 * S2 + BU = 0.213D0 + 2.669D0 * S - 0.728D0 * S2 + CU = 8.854D0 - 9.135D0 * S + 1.979D0 * S2 + DU = 2.997D0 + 0.753D0 * S - 0.076D0 * S2 + UV = PYGRVV (X, NU, AKU, BKU, AU, BU, CU, DU) + +C...dv : + ND = 0.371D0 + 0.083D0 * S + 0.039D0 * S2 + AKD = 0.376D0 + BKD = 0.486D0 + 0.062D0 * S + AD = -0.509D0 + 3.310D0 * S - 1.248D0 * S2 + BD = 12.41D0 - 10.52D0 * S + 2.267D0 * S2 + CD = 6.373D0 - 6.208D0 * S + 1.418D0 * S2 + DD = 3.691D0 + 0.799D0 * S - 0.071D0 * S2 + DV = PYGRVV (X, ND, AKD, BKD, AD, BD, CD, DD) + +C...del : + NE = 0.082D0 + 0.014D0 * S + 0.008D0 * S2 + AKE = 0.409D0 - 0.005D0 * S + BKE = 0.799D0 + 0.071D0 * S + AE = -38.07D0 + 36.13D0 * S - 0.656D0 * S2 + BE = 90.31D0 - 74.15D0 * S + 7.645D0 * S2 + CE = 0.0D0 + DE = 7.486D0 + 1.217D0 * S - 0.159D0 * S2 + DEL = PYGRVV (X, NE, AKE, BKE, AE, BE, CE, DE) + +C...udb : + ALX = 1.451D0 + BEX = 0.271D0 + AKX = 0.410D0 - 0.232D0 * S + BKX = 0.534D0 - 0.457D0 * S + AGX = 0.890D0 - 0.140D0 * S + BGX = -0.981D0 + CX = 0.320D0 + 0.683D0 * S + DX = 4.752D0 + 1.164D0 * S + 0.286D0 * S2 + EX = 4.119D0 + 1.713D0 * S + ESX = 0.682D0 + 2.978D0 * S + UDB = PYGRVW (X, S, ALX, BEX, AKX, BKX, AGX, BGX, CX, + & DX, EX, ESX) + +C...sb : + STS = 0D0 + ALS = 0.914D0 + BES = 0.577D0 + AKS = 1.798D0 - 0.596D0 * S + AS = -5.548D0 + 3.669D0 * DS - 0.616D0 * S + BS = 18.92D0 - 16.73D0 * DS + 5.168D0 * S + DST = 6.379D0 - 0.350D0 * S + 0.142D0 * S2 + EST = 3.981D0 + 1.638D0 * S + ESS = 6.402D0 + SB = PYGRVS (X, S, STS, ALS, BES, AKS, AS, BS, DST, EST, ESS) + +C...cb : + STC = 0.888D0 + ALC = 1.01D0 + BEC = 0.37D0 + AKC = 0D0 + AC = 0D0 + BC = 4.24D0 - 0.804D0 * S + DCT = 3.46D0 - 1.076D0 * S + ECT = 4.61D0 + 1.49D0 * S + ESC = 2.555D0 + 1.961D0 * S + CHM = PYGRVS (X, S, STC, ALC, BEC, AKC, AC, BC, DCT, ECT, ESC) + +C...bb : + STB = 1.351D0 + ALB = 1.00D0 + BEB = 0.51D0 + AKB = 0D0 + AB = 0D0 + BB = 1.848D0 + DBT = 2.929D0 + 1.396D0 * S + EBT = 4.71D0 + 1.514D0 * S + ESB = 4.02D0 + 1.239D0 * S + BOT = PYGRVS (X, S, STB, ALB, BEB, AKB, AB, BB, DBT, EBT, ESB) + +C...gl : + ALG = 0.524D0 + BEG = 1.088D0 + AKG = 1.742D0 - 0.930D0 * S + BKG = - 0.399D0 * S2 + AG = 7.486D0 - 2.185D0 * S + BG = 16.69D0 - 22.74D0 * S + 5.779D0 * S2 + CG = -25.59D0 + 29.71D0 * S - 7.296D0 * S2 + DG = 2.792D0 + 2.215D0 * S + 0.422D0 * S2 - 0.104D0 * S3 + EG = 0.807D0 + 2.005D0 * S + ESG = 3.841D0 + 0.316D0 * S + GL = PYGRVW (X, S, ALG, BEG, AKG, BKG, AG, BG, CG, + & DG, EG, ESG) + + RETURN + END + +C********************************************************************* + +C...PYGRVM +C...Gives the GRV 94 M (MSbar) parton distribution function set +C...in parametrized form. +C...Authors: M. Glueck, E. Reya and A. Vogt. + + SUBROUTINE PYGRVM (X, Q2, UV, DV, DEL, UDB, SB, CHM, BOT, GL) + +C...Double precision declaration. + IMPLICIT DOUBLE PRECISION (A - Z) + +C...Common expressions. + MU2 = 0.34D0 + LAM2 = 0.248D0 * 0.248D0 + S = LOG (LOG(Q2/LAM2) / LOG(MU2/LAM2)) + DS = SQRT (S) + S2 = S * S + S3 = S2 * S + +C...uv : + NU = 1.304D0 + 0.863D0 * S + AKU = 0.558D0 - 0.020D0 * S + BKU = 0.183D0 * S + AU = -0.113D0 + 0.283D0 * S - 0.321D0 * S2 + BU = 6.843D0 - 5.089D0 * S + 2.647D0 * S2 - 0.527D0 * S3 + CU = 7.771D0 - 10.09D0 * S + 2.630D0 * S2 + DU = 3.315D0 + 1.145D0 * S - 0.583D0 * S2 + 0.154D0 * S3 + UV = PYGRVV (X, NU, AKU, BKU, AU, BU, CU, DU) + +C...dv : + ND = 0.102D0 - 0.017D0 * S + 0.005D0 * S2 + AKD = 0.270D0 - 0.019D0 * S + BKD = 0.260D0 + AD = 2.393D0 + 6.228D0 * S - 0.881D0 * S2 + BD = 46.06D0 + 4.673D0 * S - 14.98D0 * S2 + 1.331D0 * S3 + CD = 17.83D0 - 53.47D0 * S + 21.24D0 * S2 + DD = 4.081D0 + 0.976D0 * S - 0.485D0 * S2 + 0.152D0 * S3 + DV = PYGRVV (X, ND, AKD, BKD, AD, BD, CD, DD) + +C...del : + NE = 0.070D0 + 0.042D0 * S - 0.011D0 * S2 + 0.004D0 * S3 + AKE = 0.409D0 - 0.007D0 * S + BKE = 0.782D0 + 0.082D0 * S + AE = -29.65D0 + 26.49D0 * S + 5.429D0 * S2 + BE = 90.20D0 - 74.97D0 * S + 4.526D0 * S2 + CE = 0.0D0 + DE = 8.122D0 + 2.120D0 * S - 1.088D0 * S2 + 0.231D0 * S3 + DEL = PYGRVV (X, NE, AKE, BKE, AE, BE, CE, DE) + +C...udb : + ALX = 0.877D0 + BEX = 0.561D0 + AKX = 0.275D0 + BKX = 0.0D0 + AGX = 0.997D0 + BGX = 3.210D0 - 1.866D0 * S + CX = 7.300D0 + DX = 9.010D0 + 0.896D0 * DS + 0.222D0 * S2 + EX = 3.077D0 + 1.446D0 * S + ESX = 3.173D0 - 2.445D0 * DS + 2.207D0 * S + UDB = PYGRVW (X, S, ALX, BEX, AKX, BKX, AGX, BGX, CX, + & DX, EX, ESX) + +C...sb : + STS = 0D0 + ALS = 0.756D0 + BES = 0.216D0 + AKS = 1.690D0 + 0.650D0 * DS - 0.922D0 * S + AS = -4.329D0 + 1.131D0 * S + BS = 9.568D0 - 1.744D0 * S + DST = 9.377D0 + 1.088D0 * DS - 1.320D0 * S + 0.130D0 * S2 + EST = 3.031D0 + 1.639D0 * S + ESS = 5.837D0 + 0.815D0 * S + SB = PYGRVS (X, S, STS, ALS, BES, AKS, AS, BS, DST, EST, ESS) + +C...cb : + STC = 0.820D0 + ALC = 0.98D0 + BEC = 0D0 + AKC = -0.625D0 - 0.523D0 * S + AC = 0D0 + BC = 1.896D0 + 1.616D0 * S + DCT = 4.12D0 + 0.683D0 * S + ECT = 4.36D0 + 1.328D0 * S + ESC = 0.677D0 + 0.679D0 * S + CHM = PYGRVS (X, S, STC, ALC, BEC, AKC, AC, BC, DCT, ECT, ESC) + +C...bb : + STB = 1.297D0 + ALB = 0.99D0 + BEB = 0D0 + AKB = - 0.193D0 * S + AB = 0D0 + BB = 0D0 + DBT = 3.447D0 + 0.927D0 * S + EBT = 4.68D0 + 1.259D0 * S + ESB = 1.892D0 + 2.199D0 * S + BOT = PYGRVS (X, S, STB, ALB, BEB, AKB, AB, BB, DBT, EBT, ESB) + +C...gl : + ALG = 1.014D0 + BEG = 1.738D0 + AKG = 1.724D0 + 0.157D0 * S + BKG = 0.800D0 + 1.016D0 * S + AG = 7.517D0 - 2.547D0 * S + BG = 34.09D0 - 52.21D0 * DS + 17.47D0 * S + CG = 4.039D0 + 1.491D0 * S + DG = 3.404D0 + 0.830D0 * S + EG = -1.112D0 + 3.438D0 * S - 0.302D0 * S2 + ESG = 3.256D0 - 0.436D0 * S + GL = PYGRVW (X, S, ALG, BEG, AKG, BKG, AG, BG, CG, DG, EG, ESG) + + RETURN + END + +C********************************************************************* + +C...PYGRVD +C...Gives the GRV 94 D (DIS) parton distribution function set +C...in parametrized form. +C...Authors: M. Glueck, E. Reya and A. Vogt. + + SUBROUTINE PYGRVD (X, Q2, UV, DV, DEL, UDB, SB, CHM, BOT, GL) + +C...Double precision declaration. + IMPLICIT DOUBLE PRECISION (A - Z) + +C...Common expressions. + MU2 = 0.34D0 + LAM2 = 0.248D0 * 0.248D0 + S = LOG (LOG(Q2/LAM2) / LOG(MU2/LAM2)) + DS = SQRT (S) + S2 = S * S + S3 = S2 * S + +C...uv : + NU = 2.484D0 + 0.116D0 * S + 0.093D0 * S2 + AKU = 0.563D0 - 0.025D0 * S + BKU = 0.054D0 + 0.154D0 * S + AU = -0.326D0 - 0.058D0 * S - 0.135D0 * S2 + BU = -3.322D0 + 8.259D0 * S - 3.119D0 * S2 + 0.291D0 * S3 + CU = 11.52D0 - 12.99D0 * S + 3.161D0 * S2 + DU = 2.808D0 + 1.400D0 * S - 0.557D0 * S2 + 0.119D0 * S3 + UV = PYGRVV (X, NU, AKU, BKU, AU, BU, CU, DU) + +C...dv : + ND = 0.156D0 - 0.017D0 * S + AKD = 0.299D0 - 0.022D0 * S + BKD = 0.259D0 - 0.015D0 * S + AD = 3.445D0 + 1.278D0 * S + 0.326D0 * S2 + BD = -6.934D0 + 37.45D0 * S - 18.95D0 * S2 + 1.463D0 * S3 + CD = 55.45D0 - 69.92D0 * S + 20.78D0 * S2 + DD = 3.577D0 + 1.441D0 * S - 0.683D0 * S2 + 0.179D0 * S3 + DV = PYGRVV (X, ND, AKD, BKD, AD, BD, CD, DD) + +C...del : + NE = 0.099D0 + 0.019D0 * S + 0.002D0 * S2 + AKE = 0.419D0 - 0.013D0 * S + BKE = 1.064D0 - 0.038D0 * S + AE = -44.00D0 + 98.70D0 * S - 14.79D0 * S2 + BE = 28.59D0 - 40.94D0 * S - 13.66D0 * S2 + 2.523D0 * S3 + CE = 84.57D0 - 108.8D0 * S + 31.52D0 * S2 + DE = 7.469D0 + 2.480D0 * S - 0.866D0 * S2 + DEL = PYGRVV (X, NE, AKE, BKE, AE, BE, CE, DE) + +C...udb : + ALX = 1.215D0 + BEX = 0.466D0 + AKX = 0.326D0 + 0.150D0 * S + BKX = 0.956D0 + 0.405D0 * S + AGX = 0.272D0 + BGX = 3.794D0 - 2.359D0 * DS + CX = 2.014D0 + DX = 7.941D0 + 0.534D0 * DS - 0.940D0 * S + 0.410D0 * S2 + EX = 3.049D0 + 1.597D0 * S + ESX = 4.396D0 - 4.594D0 * DS + 3.268D0 * S + UDB = PYGRVW (X, S, ALX, BEX, AKX, BKX, AGX, BGX, CX, + & DX, EX, ESX) + +C...sb : + STS = 0D0 + ALS = 0.175D0 + BES = 0.344D0 + AKS = 1.415D0 - 0.641D0 * DS + AS = 0.580D0 - 9.763D0 * DS + 6.795D0 * S - 0.558D0 * S2 + BS = 5.617D0 + 5.709D0 * DS - 3.972D0 * S + DST = 13.78D0 - 9.581D0 * S + 5.370D0 * S2 - 0.996D0 * S3 + EST = 4.546D0 + 0.372D0 * S2 + ESS = 5.053D0 - 1.070D0 * S + 0.805D0 * S2 + SB = PYGRVS (X, S, STS, ALS, BES, AKS, AS, BS, DST, EST, ESS) + +C...cb : + STC = 0.820D0 + ALC = 0.98D0 + BEC = 0D0 + AKC = -0.625D0 - 0.523D0 * S + AC = 0D0 + BC = 1.896D0 + 1.616D0 * S + DCT = 4.12D0 + 0.683D0 * S + ECT = 4.36D0 + 1.328D0 * S + ESC = 0.677D0 + 0.679D0 * S + CHM = PYGRVS (X, S, STC, ALC, BEC, AKC, AC, BC, DCT, ECT, ESC) + +C...bb : + STB = 1.297D0 + ALB = 0.99D0 + BEB = 0D0 + AKB = - 0.193D0 * S + AB = 0D0 + BB = 0D0 + DBT = 3.447D0 + 0.927D0 * S + EBT = 4.68D0 + 1.259D0 * S + ESB = 1.892D0 + 2.199D0 * S + BOT = PYGRVS (X, S, STB, ALB, BEB, AKB, AB, BB, DBT, EBT, ESB) + +C...gl : + ALG = 1.258D0 + BEG = 1.846D0 + AKG = 2.423D0 + BKG = 2.427D0 + 1.311D0 * S - 0.153D0 * S2 + AG = 25.09D0 - 7.935D0 * S + BG = -14.84D0 - 124.3D0 * DS + 72.18D0 * S + CG = 590.3D0 - 173.8D0 * S + DG = 5.196D0 + 1.857D0 * S + EG = -1.648D0 + 3.988D0 * S - 0.432D0 * S2 + ESG = 3.232D0 - 0.542D0 * S + GL = PYGRVW (X, S, ALG, BEG, AKG, BKG, AG, BG, CG, DG, EG, ESG) + + RETURN + END + +C********************************************************************* + +C...PYGRVV +C...Auxiliary for the GRV 94 parton distribution functions +C...for u and d valence and d-u sea. +C...Authors: M. Glueck, E. Reya and A. Vogt. + + FUNCTION PYGRVV (X, N, AK, BK, A, B, C, D) + +C...Double precision declaration. + IMPLICIT DOUBLE PRECISION (A - Z) + +C...Evaluation. + DX = SQRT (X) + PYGRVV = N * X**AK * (1D0+ A*X**BK + X * (B + C*DX)) * + & (1D0- X)**D + + RETURN + END + +C********************************************************************* + +C...PYGRVW +C...Auxiliary for the GRV 94 parton distribution functions +C...for d+u sea and gluon. +C...Authors: M. Glueck, E. Reya and A. Vogt. + + FUNCTION PYGRVW (X, S, AL, BE, AK, BK, A, B, C, D, E, ES) + +C...Double precision declaration. + IMPLICIT DOUBLE PRECISION (A - Z) + +C...Evaluation. + LX = LOG (1D0/X) + PYGRVW = (X**AK * (A + X * (B + X*C)) * LX**BK + S**AL + & * EXP (-E + SQRT (ES * S**BE * LX))) * (1D0- X)**D + + RETURN + END + +C********************************************************************* + +C...PYGRVS +C...Auxiliary for the GRV 94 parton distribution functions +C...for s, c and b sea. +C...Authors: M. Glueck, E. Reya and A. Vogt. + + FUNCTION PYGRVS (X, S, STH, AL, BE, AK, AG, B, D, E, ES) + +C...Double precision declaration. + IMPLICIT DOUBLE PRECISION (A - Z) + +C...Evaluation. + IF(S.LE.STH) THEN + PYGRVS = 0D0 + ELSE + DX = SQRT (X) + LX = LOG (1D0/X) + PYGRVS = (S - STH)**AL / LX**AK * (1D0+ AG*DX + B*X) * + & (1D0- X)**D * EXP (-E + SQRT (ES * S**BE * LX)) + ENDIF + + RETURN + END + +C********************************************************************* + +C...CTEQ5M1 and CTEQ5L Parton Distribution Functions +C...in Parametrized Form +C... September 15, 1999 +C +C...Ref: "GLOBAL QCD ANALYSIS OF PARTON STRUCTURE OF THE NUCLEON: +C... CTEQ5 PPARTON DISTRIBUTIONS" +C...hep-ph/9903282 + +C...The CTEQ5M1 set given here is an updated version of the original +C...CTEQ5M set posted, in the table version, on the Web page of CTEQ. +C...The differences between CTEQ5M and CTEQ5M1 are insignificant for +C...almost all applications. +C...The improvement is in the QCD evolution which is now more +C...accurate, and which agrees completely with the benchmark work +C...of the HERA 96/97 Workshop. +C...The differences between the parametrized and the corresponding +C...table versions (on which it is based) are of similar order as +C...between the two version. + +C...!! Because accurate parametrizations over a wide range of (x,Q) +C...is hard to obtain, only the most widely used sets CTEQ5M and +C...CTEQ5L are available in parametrized form for now. + +C...These parametrizations were obtained by Jon Pumplin. + +C Iset PDF Description Alpha_s(Mz) Lam4 Lam5 +C ------------------------------------------------------------------- +C 1 CTEQ5M1 Standard NLO MSbar scheme 0.118 326 226 +C 3 CTEQ5L Leading Order 0.127 192 146 +C ------------------------------------------------------------------- +C...Note the Qcd-lambda values given for CTEQ5L is for the leading +C...order form of Alpha_s!! Alpha_s(Mz) gives the absolute +C...calibration. + +C...The two Iset value are adopted to agree with the standard table +C...versions. + +C...Range of validity: +C...The range of (x, Q) covered by this parametrization of the QCD +C...evolved parton distributions is 1E-6 < x < 1 ; +C...1.1 GeV < Q < 10 TeV. Of course, the PDF's are constrained by +C...data only in a subset of that region; and the assumed DGLAP +C...evolution is unlikely to be valid for all of it either. + +C...The range of (x, Q) used in the CTEQ5 round of global analysis is +C...approximately 0.01 < x < 0.75 ; and 4 GeV^2 < Q^2 < 400 GeV^2 for +C...fixed target experiments; 0.0001 < x < 0.3 from HERA data; and +C...Q^2 up to 40,000 GeV^2 from Tevatron inclusive Jet data. + +C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + +C...PYCT5L +C...Auxiliary function for parametrization of CTEQ5L. +C...Author: J. Pumplin 9/99. + + FUNCTION PYCT5L(IFL,X,Q) + +C...Double precision declaration. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + + PARAMETER (NEX=8, NLF=2) + DIMENSION AM(0:NEX,0:NLF,-5:2) + DIMENSION ALFVEC(-5:2), QMAVEC(-5:2) + DIMENSION MEXVEC(-5:2), MLFVEC(-5:2) + DIMENSION UT1VEC(-5:2), UT2VEC(-5:2) + DIMENSION AF(0:NEX) + + DATA MEXVEC( 2) / 8 / + DATA MLFVEC( 2) / 2 / + DATA UT1VEC( 2) / 0.4971265E+01 / + DATA UT2VEC( 2) / -0.1105128E+01 / + DATA ALFVEC( 2) / 0.2987216E+00 / + DATA QMAVEC( 2) / 0.0000000E+00 / + DATA (AM( 0,K, 2),K=0, 2) + & / 0.5292616E+01, -0.2751910E+01, -0.2488990E+01 / + DATA (AM( 1,K, 2),K=0, 2) + & / 0.9714424E+00, 0.1011827E-01, -0.1023660E-01 / + DATA (AM( 2,K, 2),K=0, 2) + & / -0.1651006E+02, 0.7959721E+01, 0.8810563E+01 / + DATA (AM( 3,K, 2),K=0, 2) + & / -0.1643394E+02, 0.5892854E+01, 0.9348874E+01 / + DATA (AM( 4,K, 2),K=0, 2) + & / 0.3067422E+02, 0.4235796E+01, -0.5112136E+00 / + DATA (AM( 5,K, 2),K=0, 2) + & / 0.2352526E+02, -0.5305168E+01, -0.1169174E+02 / + DATA (AM( 6,K, 2),K=0, 2) + & / -0.1095451E+02, 0.3006577E+01, 0.5638136E+01 / + DATA (AM( 7,K, 2),K=0, 2) + & / -0.1172251E+02, -0.2183624E+01, 0.4955794E+01 / + DATA (AM( 8,K, 2),K=0, 2) + & / 0.1662533E-01, 0.7622870E-02, -0.4895887E-03 / + + DATA MEXVEC( 1) / 8 / + DATA MLFVEC( 1) / 2 / + DATA UT1VEC( 1) / 0.2612618E+01 / + DATA UT2VEC( 1) / -0.1258304E+06 / + DATA ALFVEC( 1) / 0.3407552E+00 / + DATA QMAVEC( 1) / 0.0000000E+00 / + DATA (AM( 0,K, 1),K=0, 2) + & / 0.9905300E+00, -0.4502235E+00, 0.1624441E+00 / + DATA (AM( 1,K, 1),K=0, 2) + & / 0.8867534E+00, 0.1630829E-01, -0.4049085E-01 / + DATA (AM( 2,K, 1),K=0, 2) + & / 0.8547974E+00, 0.3336301E+00, 0.1371388E+00 / + DATA (AM( 3,K, 1),K=0, 2) + & / 0.2941113E+00, -0.1527905E+01, 0.2331879E+00 / + DATA (AM( 4,K, 1),K=0, 2) + & / 0.3384235E+02, 0.3715315E+01, 0.8276930E+00 / + DATA (AM( 5,K, 1),K=0, 2) + & / 0.6230115E+01, 0.3134639E+01, -0.1729099E+01 / + DATA (AM( 6,K, 1),K=0, 2) + & / -0.1186928E+01, -0.3282460E+00, 0.1052020E+00 / + DATA (AM( 7,K, 1),K=0, 2) + & / -0.8545702E+01, -0.6247947E+01, 0.3692561E+01 / + DATA (AM( 8,K, 1),K=0, 2) + & / 0.1724598E-01, 0.7120465E-02, 0.4003646E-04 / + + DATA MEXVEC( 0) / 8 / + DATA MLFVEC( 0) / 2 / + DATA UT1VEC( 0) / -0.4656819E+00 / + DATA UT2VEC( 0) / -0.2742390E+03 / + DATA ALFVEC( 0) / 0.4491863E+00 / + DATA QMAVEC( 0) / 0.0000000E+00 / + DATA (AM( 0,K, 0),K=0, 2) + & / 0.1193572E+03, -0.3886845E+01, -0.1133965E+01 / + DATA (AM( 1,K, 0),K=0, 2) + & / -0.9421449E+02, 0.3995885E+01, 0.1607363E+01 / + DATA (AM( 2,K, 0),K=0, 2) + & / 0.4206383E+01, 0.2485954E+00, 0.2497468E+00 / + DATA (AM( 3,K, 0),K=0, 2) + & / 0.1210557E+03, -0.3015765E+01, -0.1423651E+01 / + DATA (AM( 4,K, 0),K=0, 2) + & / -0.1013897E+03, -0.7113478E+00, 0.2621865E+00 / + DATA (AM( 5,K, 0),K=0, 2) + & / -0.1312404E+01, -0.9297691E+00, -0.1562531E+00 / + DATA (AM( 6,K, 0),K=0, 2) + & / 0.1627137E+01, 0.4954111E+00, -0.6387009E+00 / + DATA (AM( 7,K, 0),K=0, 2) + & / 0.1537698E+00, -0.2487878E+00, 0.8305947E+00 / + DATA (AM( 8,K, 0),K=0, 2) + & / 0.2496448E-01, 0.2457823E-02, 0.8234276E-03 / + + DATA MEXVEC(-1) / 8 / + DATA MLFVEC(-1) / 2 / + DATA UT1VEC(-1) / 0.3862583E+01 / + DATA UT2VEC(-1) / -0.1265969E+01 / + DATA ALFVEC(-1) / 0.2457668E+00 / + DATA QMAVEC(-1) / 0.0000000E+00 / + DATA (AM( 0,K,-1),K=0, 2) + & / 0.2647441E+02, 0.1059277E+02, -0.9176654E+00 / + DATA (AM( 1,K,-1),K=0, 2) + & / 0.1990636E+01, 0.8558918E-01, 0.4248667E-01 / + DATA (AM( 2,K,-1),K=0, 2) + & / -0.1476095E+02, -0.3276255E+02, 0.1558110E+01 / + DATA (AM( 3,K,-1),K=0, 2) + & / -0.2966889E+01, -0.3649037E+02, 0.1195914E+01 / + DATA (AM( 4,K,-1),K=0, 2) + & / -0.1000519E+03, -0.2464635E+01, 0.1964849E+00 / + DATA (AM( 5,K,-1),K=0, 2) + & / 0.3718331E+02, 0.4700389E+02, -0.2772142E+01 / + DATA (AM( 6,K,-1),K=0, 2) + & / -0.1872722E+02, -0.2291189E+02, 0.1089052E+01 / + DATA (AM( 7,K,-1),K=0, 2) + & / -0.1628146E+02, -0.1823993E+02, 0.2537369E+01 / + DATA (AM( 8,K,-1),K=0, 2) + & / -0.1156300E+01, -0.1280495E+00, 0.5153245E-01 / + + DATA MEXVEC(-2) / 7 / + DATA MLFVEC(-2) / 2 / + DATA UT1VEC(-2) / 0.1895615E+00 / + DATA UT2VEC(-2) / -0.3069097E+01 / + DATA ALFVEC(-2) / 0.5293999E+00 / + DATA QMAVEC(-2) / 0.0000000E+00 / + DATA (AM( 0,K,-2),K=0, 2) + & / -0.6556775E+00, 0.2490190E+00, 0.3966485E-01 / + DATA (AM( 1,K,-2),K=0, 2) + & / 0.1305102E+01, -0.1188925E+00, -0.4600870E-02 / + DATA (AM( 2,K,-2),K=0, 2) + & / -0.2371436E+01, 0.3566814E+00, -0.2834683E+00 / + DATA (AM( 3,K,-2),K=0, 2) + & / -0.6152826E+01, 0.8339877E+00, -0.7233230E+00 / + DATA (AM( 4,K,-2),K=0, 2) + & / -0.8346558E+01, 0.2892168E+01, 0.2137099E+00 / + DATA (AM( 5,K,-2),K=0, 2) + & / 0.1279530E+02, 0.1021114E+00, 0.5787439E+00 / + DATA (AM( 6,K,-2),K=0, 2) + & / 0.5858816E+00, -0.1940375E+01, -0.4029269E+00 / + DATA (AM( 7,K,-2),K=0, 2) + & / -0.2795725E+02, -0.5263392E+00, 0.1290229E+01 / + + DATA MEXVEC(-3) / 7 / + DATA MLFVEC(-3) / 2 / + DATA UT1VEC(-3) / 0.3753257E+01 / + DATA UT2VEC(-3) / -0.1113085E+01 / + DATA ALFVEC(-3) / 0.3713141E+00 / + DATA QMAVEC(-3) / 0.0000000E+00 / + DATA (AM( 0,K,-3),K=0, 2) + & / 0.1580931E+01, -0.2273826E+01, -0.1822245E+01 / + DATA (AM( 1,K,-3),K=0, 2) + & / 0.2702644E+01, 0.6763243E+00, 0.7231586E-02 / + DATA (AM( 2,K,-3),K=0, 2) + & / -0.1857924E+02, 0.3907500E+01, 0.5850109E+01 / + DATA (AM( 3,K,-3),K=0, 2) + & / -0.3044793E+02, 0.2639332E+01, 0.5566644E+01 / + DATA (AM( 4,K,-3),K=0, 2) + & / -0.4258011E+01, -0.5429244E+01, 0.4418946E+00 / + DATA (AM( 5,K,-3),K=0, 2) + & / 0.3465259E+02, -0.5532604E+01, -0.4904153E+01 / + DATA (AM( 6,K,-3),K=0, 2) + & / -0.1658858E+02, 0.2923275E+01, 0.2266286E+01 / + DATA (AM( 7,K,-3),K=0, 2) + & / -0.1149263E+02, 0.2877475E+01, -0.7999105E+00 / + + DATA MEXVEC(-4) / 7 / + DATA MLFVEC(-4) / 2 / + DATA UT1VEC(-4) / 0.4400772E+01 / + DATA UT2VEC(-4) / -0.1356116E+01 / + DATA ALFVEC(-4) / 0.3712017E-01 / + DATA QMAVEC(-4) / 0.1300000E+01 / + DATA (AM( 0,K,-4),K=0, 2) + & / -0.8293661E+00, -0.3982375E+01, -0.6494283E-01 / + DATA (AM( 1,K,-4),K=0, 2) + & / 0.2754618E+01, 0.8338636E+00, -0.6885160E-01 / + DATA (AM( 2,K,-4),K=0, 2) + & / -0.1657987E+02, 0.1439143E+02, -0.6887240E+00 / + DATA (AM( 3,K,-4),K=0, 2) + & / -0.2800703E+02, 0.1535966E+02, -0.7377693E+00 / + DATA (AM( 4,K,-4),K=0, 2) + & / -0.6460216E+01, -0.4783019E+01, 0.4913297E+00 / + DATA (AM( 5,K,-4),K=0, 2) + & / 0.3141830E+02, -0.3178031E+02, 0.7136013E+01 / + DATA (AM( 6,K,-4),K=0, 2) + & / -0.1802509E+02, 0.1862163E+02, -0.4632843E+01 / + DATA (AM( 7,K,-4),K=0, 2) + & / -0.1240412E+02, 0.2565386E+02, -0.1066570E+02 / + + DATA MEXVEC(-5) / 6 / + DATA MLFVEC(-5) / 2 / + DATA UT1VEC(-5) / 0.5562568E+01 / + DATA UT2VEC(-5) / -0.1801317E+01 / + DATA ALFVEC(-5) / 0.4952010E-02 / + DATA QMAVEC(-5) / 0.4500000E+01 / + DATA (AM( 0,K,-5),K=0, 2) + & / -0.6031237E+01, 0.1992727E+01, -0.1076331E+01 / + DATA (AM( 1,K,-5),K=0, 2) + & / 0.2933912E+01, 0.5839674E+00, 0.7509435E-01 / + DATA (AM( 2,K,-5),K=0, 2) + & / -0.8284919E+01, 0.1488593E+01, -0.8251678E+00 / + DATA (AM( 3,K,-5),K=0, 2) + & / -0.1925986E+02, 0.2805753E+01, -0.3015446E+01 / + DATA (AM( 4,K,-5),K=0, 2) + & / -0.9480483E+01, -0.9767837E+00, -0.1165544E+01 / + DATA (AM( 5,K,-5),K=0, 2) + & / 0.2193195E+02, -0.1788518E+02, 0.9460908E+01 / + DATA (AM( 6,K,-5),K=0, 2) + & / -0.1327377E+02, 0.1201754E+02, -0.6277844E+01 / + + IF(Q .LE. QMAVEC(IFL)) THEN + PYCT5L = 0.D0 + RETURN + ENDIF + + IF(X .GE. 1.D0) THEN + PYCT5L = 0.D0 + RETURN + ENDIF + + TMP = LOG(Q/ALFVEC(IFL)) + IF(TMP .LE. 0.D0) THEN + PYCT5L = 0.D0 + RETURN + ENDIF + + SB = LOG(TMP) + SB1 = SB - 1.2D0 + SB2 = SB1*SB1 + + DO 110 I = 0, NEX + AF(I) = 0.D0 + SBX = 1.D0 + DO 100 K = 0, MLFVEC(IFL) + AF(I) = AF(I) + SBX*AM(I,K,IFL) + SBX = SB1*SBX + 100 CONTINUE + 110 CONTINUE + + Y = -LOG(X) + U = LOG(X/0.00001D0) + + PART1 = AF(1)*Y**(1.D0+0.01D0*AF(4))*(1.D0+ AF(8)*U) + PART2 = AF(0)*(1.D0 - X) + AF(3)*X + PART3 = X*(1.D0-X)*(AF(5)+AF(6)*(1.D0-X)+AF(7)*X*(1.D0-X)) + PART4 = UT1VEC(IFL)*LOG(1.D0-X) + + & AF(2)*LOG(1.D0+EXP(UT2VEC(IFL))-X) + + PYCT5L = EXP(LOG(X) + PART1 + PART2 + PART3 + PART4) + +C...Include threshold factor. + PYCT5L = PYCT5L * (1.D0 - QMAVEC(IFL)/Q) + + RETURN + END + +C********************************************************************* + +C...PYCT5M +C...Auxiliary function for parametrization of CTEQ5M1. +C...Author: J. Pumplin 9/99. + + FUNCTION PYCT5M(IFL,X,Q) + +C...Double precision declaration. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + + PARAMETER (NEX=8, NLF=2) + DIMENSION AM(0:NEX,0:NLF,-5:2) + DIMENSION ALFVEC(-5:2), QMAVEC(-5:2) + DIMENSION MEXVEC(-5:2), MLFVEC(-5:2) + DIMENSION UT1VEC(-5:2), UT2VEC(-5:2) + DIMENSION AF(0:NEX) + + DATA MEXVEC( 2) / 8 / + DATA MLFVEC( 2) / 2 / + DATA UT1VEC( 2) / 0.5141718E+01 / + DATA UT2VEC( 2) / -0.1346944E+01 / + DATA ALFVEC( 2) / 0.5260555E+00 / + DATA QMAVEC( 2) / 0.0000000E+00 / + DATA (AM( 0,K, 2),K=0, 2) + & / 0.4289071E+01, -0.2536870E+01, -0.1259948E+01 / + DATA (AM( 1,K, 2),K=0, 2) + & / 0.9839410E+00, 0.4168426E-01, -0.5018952E-01 / + DATA (AM( 2,K, 2),K=0, 2) + & / -0.1651961E+02, 0.9246261E+01, 0.5996400E+01 / + DATA (AM( 3,K, 2),K=0, 2) + & / -0.2077936E+02, 0.9786469E+01, 0.7656465E+01 / + DATA (AM( 4,K, 2),K=0, 2) + & / 0.3054926E+02, 0.1889536E+01, 0.1380541E+01 / + DATA (AM( 5,K, 2),K=0, 2) + & / 0.3084695E+02, -0.1212303E+02, -0.1053551E+02 / + DATA (AM( 6,K, 2),K=0, 2) + & / -0.1426778E+02, 0.6239537E+01, 0.5254819E+01 / + DATA (AM( 7,K, 2),K=0, 2) + & / -0.1909811E+02, 0.3695678E+01, 0.5495729E+01 / + DATA (AM( 8,K, 2),K=0, 2) + & / 0.1889751E-01, 0.5027193E-02, 0.6624896E-03 / + + DATA MEXVEC( 1) / 8 / + DATA MLFVEC( 1) / 2 / + DATA UT1VEC( 1) / 0.4138426E+01 / + DATA UT2VEC( 1) / -0.3221374E+01 / + DATA ALFVEC( 1) / 0.4960962E+00 / + DATA QMAVEC( 1) / 0.0000000E+00 / + DATA (AM( 0,K, 1),K=0, 2) + & / 0.1332497E+01, -0.3703718E+00, 0.1288638E+00 / + DATA (AM( 1,K, 1),K=0, 2) + & / 0.7544687E+00, 0.3255075E-01, -0.4706680E-01 / + DATA (AM( 2,K, 1),K=0, 2) + & / -0.7638814E+00, 0.5008313E+00, -0.9237374E-01 / + DATA (AM( 3,K, 1),K=0, 2) + & / -0.3689889E+00, -0.1055098E+01, -0.4645065E+00 / + DATA (AM( 4,K, 1),K=0, 2) + & / 0.3991610E+02, 0.1979881E+01, 0.1775814E+01 / + DATA (AM( 5,K, 1),K=0, 2) + & / 0.6201080E+01, 0.2046288E+01, 0.3804571E+00 / + DATA (AM( 6,K, 1),K=0, 2) + & / -0.8027900E+00, -0.7011688E+00, -0.8049612E+00 / + DATA (AM( 7,K, 1),K=0, 2) + & / -0.8631305E+01, -0.3981200E+01, 0.6970153E+00 / + DATA (AM( 8,K, 1),K=0, 2) + & / 0.2371230E-01, 0.5372683E-02, 0.1118701E-02 / + + DATA MEXVEC( 0) / 8 / + DATA MLFVEC( 0) / 2 / + DATA UT1VEC( 0) / -0.1026789E+01 / + DATA UT2VEC( 0) / -0.9051707E+01 / + DATA ALFVEC( 0) / 0.9462977E+00 / + DATA QMAVEC( 0) / 0.0000000E+00 / + DATA (AM( 0,K, 0),K=0, 2) + & / 0.1191990E+03, -0.8548739E+00, -0.1963040E+01 / + DATA (AM( 1,K, 0),K=0, 2) + & / -0.9449972E+02, 0.1074771E+01, 0.2056055E+01 / + DATA (AM( 2,K, 0),K=0, 2) + & / 0.3701064E+01, -0.1167947E-02, 0.1933573E+00 / + DATA (AM( 3,K, 0),K=0, 2) + & / 0.1171345E+03, -0.1064540E+01, -0.1875312E+01 / + DATA (AM( 4,K, 0),K=0, 2) + & / -0.1014453E+03, -0.5707427E+00, 0.4511242E-01 / + DATA (AM( 5,K, 0),K=0, 2) + & / 0.6365168E+01, 0.1275354E+01, -0.4964081E+00 / + DATA (AM( 6,K, 0),K=0, 2) + & / -0.3370693E+01, -0.1122020E+01, 0.5947751E-01 / + DATA (AM( 7,K, 0),K=0, 2) + & / -0.5327270E+01, -0.9293556E+00, 0.6629940E+00 / + DATA (AM( 8,K, 0),K=0, 2) + & / 0.2437513E-01, 0.1600939E-02, 0.6855336E-03 / + + DATA MEXVEC(-1) / 8 / + DATA MLFVEC(-1) / 2 / + DATA UT1VEC(-1) / 0.5243571E+01 / + DATA UT2VEC(-1) / -0.2870513E+01 / + DATA ALFVEC(-1) / 0.6701448E+00 / + DATA QMAVEC(-1) / 0.0000000E+00 / + DATA (AM( 0,K,-1),K=0, 2) + & / 0.2428863E+02, 0.1907035E+01, -0.4606457E+00 / + DATA (AM( 1,K,-1),K=0, 2) + & / 0.2006810E+01, -0.1265915E+00, 0.7153556E-02 / + DATA (AM( 2,K,-1),K=0, 2) + & / -0.1884546E+02, -0.2339471E+01, 0.5740679E+01 / + DATA (AM( 3,K,-1),K=0, 2) + & / -0.2527892E+02, -0.2044124E+01, 0.1280470E+02 / + DATA (AM( 4,K,-1),K=0, 2) + & / -0.1013824E+03, -0.1594199E+01, 0.2216401E+00 / + DATA (AM( 5,K,-1),K=0, 2) + & / 0.8070930E+02, 0.1792072E+01, -0.2164364E+02 / + DATA (AM( 6,K,-1),K=0, 2) + & / -0.4641050E+02, 0.1977338E+00, 0.1273014E+02 / + DATA (AM( 7,K,-1),K=0, 2) + & / -0.3910568E+02, 0.1719632E+01, 0.1086525E+02 / + DATA (AM( 8,K,-1),K=0, 2) + & / -0.1185496E+01, -0.1905847E+00, -0.8744118E-03 / + + DATA MEXVEC(-2) / 7 / + DATA MLFVEC(-2) / 2 / + DATA UT1VEC(-2) / 0.4782210E+01 / + DATA UT2VEC(-2) / -0.1976856E+02 / + DATA ALFVEC(-2) / 0.7558374E+00 / + DATA QMAVEC(-2) / 0.0000000E+00 / + DATA (AM( 0,K,-2),K=0, 2) + & / -0.6216935E+00, 0.2369963E+00, -0.7909949E-02 / + DATA (AM( 1,K,-2),K=0, 2) + & / 0.1245440E+01, -0.1031510E+00, 0.4916523E-02 / + DATA (AM( 2,K,-2),K=0, 2) + & / -0.7060824E+01, -0.3875283E-01, 0.1784981E+00 / + DATA (AM( 3,K,-2),K=0, 2) + & / -0.7430595E+01, 0.1964572E+00, -0.1284999E+00 / + DATA (AM( 4,K,-2),K=0, 2) + & / -0.6897810E+01, 0.2620543E+01, 0.8012553E-02 / + DATA (AM( 5,K,-2),K=0, 2) + & / 0.1507713E+02, 0.2340307E-01, 0.2482535E+01 / + DATA (AM( 6,K,-2),K=0, 2) + & / -0.1815341E+01, -0.1538698E+01, -0.2014208E+01 / + DATA (AM( 7,K,-2),K=0, 2) + & / -0.2571932E+02, 0.2903941E+00, -0.2848206E+01 / + + DATA MEXVEC(-3) / 7 / + DATA MLFVEC(-3) / 2 / + DATA UT1VEC(-3) / 0.4518239E+01 / + DATA UT2VEC(-3) / -0.2690590E+01 / + DATA ALFVEC(-3) / 0.6124079E+00 / + DATA QMAVEC(-3) / 0.0000000E+00 / + DATA (AM( 0,K,-3),K=0, 2) + & / -0.2734458E+01, -0.7245673E+00, -0.6351374E+00 / + DATA (AM( 1,K,-3),K=0, 2) + & / 0.2927174E+01, 0.4822709E+00, -0.1088787E-01 / + DATA (AM( 2,K,-3),K=0, 2) + & / -0.1771017E+02, -0.1416635E+01, 0.8467622E+01 / + DATA (AM( 3,K,-3),K=0, 2) + & / -0.4972782E+02, -0.3348547E+01, 0.1767061E+02 / + DATA (AM( 4,K,-3),K=0, 2) + & / -0.7102770E+01, -0.3205337E+01, 0.4101704E+00 / + DATA (AM( 5,K,-3),K=0, 2) + & / 0.7169698E+02, -0.2205985E+01, -0.2463931E+02 / + DATA (AM( 6,K,-3),K=0, 2) + & / -0.4090347E+02, 0.2103486E+01, 0.1416507E+02 / + DATA (AM( 7,K,-3),K=0, 2) + & / -0.2952639E+02, 0.5376136E+01, 0.7825585E+01 / + + DATA MEXVEC(-4) / 7 / + DATA MLFVEC(-4) / 2 / + DATA UT1VEC(-4) / 0.2783230E+01 / + DATA UT2VEC(-4) / -0.1746328E+01 / + DATA ALFVEC(-4) / 0.1115653E+01 / + DATA QMAVEC(-4) / 0.1300000E+01 / + DATA (AM( 0,K,-4),K=0, 2) + & / -0.1743872E+01, -0.1128921E+01, -0.2841969E+00 / + DATA (AM( 1,K,-4),K=0, 2) + & / 0.3345755E+01, 0.3187765E+00, 0.1378124E+00 / + DATA (AM( 2,K,-4),K=0, 2) + & / -0.2037615E+02, 0.4121687E+01, 0.2236520E+00 / + DATA (AM( 3,K,-4),K=0, 2) + & / -0.4703104E+02, 0.5353087E+01, -0.1455347E+01 / + DATA (AM( 4,K,-4),K=0, 2) + & / -0.1060230E+02, -0.1551122E+01, -0.1078863E+01 / + DATA (AM( 5,K,-4),K=0, 2) + & / 0.5088892E+02, -0.8197304E+01, 0.8083451E+01 / + DATA (AM( 6,K,-4),K=0, 2) + & / -0.2819070E+02, 0.4554086E+01, -0.5890995E+01 / + DATA (AM( 7,K,-4),K=0, 2) + & / -0.1098238E+02, 0.2590096E+01, -0.8062879E+01 / + + DATA MEXVEC(-5) / 6 / + DATA MLFVEC(-5) / 2 / + DATA UT1VEC(-5) / 0.1619654E+02 / + DATA UT2VEC(-5) / -0.3367346E+01 / + DATA ALFVEC(-5) / 0.5109891E-02 / + DATA QMAVEC(-5) / 0.4500000E+01 / + DATA (AM( 0,K,-5),K=0, 2) + & / -0.6800138E+01, 0.2493627E+01, -0.1075724E+01 / + DATA (AM( 1,K,-5),K=0, 2) + & / 0.3036555E+01, 0.3324733E+00, 0.2008298E+00 / + DATA (AM( 2,K,-5),K=0, 2) + & / -0.5203879E+01, -0.8493476E+01, -0.4523208E+01 / + DATA (AM( 3,K,-5),K=0, 2) + & / -0.1524239E+01, -0.3411912E+01, -0.1771867E+02 / + DATA (AM( 4,K,-5),K=0, 2) + & / -0.1099444E+02, 0.1320930E+01, -0.2353831E+01 / + DATA (AM( 5,K,-5),K=0, 2) + & / 0.1699299E+02, -0.3565802E+02, 0.3566872E+02 / + DATA (AM( 6,K,-5),K=0, 2) + & / -0.1465793E+02, 0.2703365E+02, -0.2176372E+02 / + + IF(Q .LE. QMAVEC(IFL)) THEN + PYCT5M = 0.D0 + RETURN + ENDIF + + IF(X .GE. 1.D0) THEN + PYCT5M = 0.D0 + RETURN + ENDIF + + TMP = LOG(Q/ALFVEC(IFL)) + IF(TMP .LE. 0.D0) THEN + PYCT5M = 0.D0 + RETURN + ENDIF + + SB = LOG(TMP) + SB1 = SB - 1.2D0 + SB2 = SB1*SB1 + + DO 110 I = 0, NEX + AF(I) = 0.D0 + SBX = 1.D0 + DO 100 K = 0, MLFVEC(IFL) + AF(I) = AF(I) + SBX*AM(I,K,IFL) + SBX = SB1*SBX + 100 CONTINUE + 110 CONTINUE + + Y = -LOG(X) + U = LOG(X/0.00001D0) + + PART1 = AF(1)*Y**(1.D0+0.01D0*AF(4))*(1.D0+ AF(8)*U) + PART2 = AF(0)*(1.D0 - X) + AF(3)*X + PART3 = X*(1.D0-X)*(AF(5)+AF(6)*(1.D0-X)+AF(7)*X*(1.D0-X)) + PART4 = UT1VEC(IFL)*LOG(1.D0-X) + + & AF(2)*LOG(1.D0+EXP(UT2VEC(IFL))-X) + + PYCT5M = EXP(LOG(X) + PART1 + PART2 + PART3 + PART4) + +C...Include threshold factor. + PYCT5M = PYCT5M * (1.D0 - QMAVEC(IFL)/Q) + + RETURN + END + +C********************************************************************* + +C...PYPDPO +C...Auxiliary to PYPDPR. Gives proton parton distributions according to +C...a few older parametrizations, now obsolete but convenient for +C...backwards checks. + + SUBROUTINE PYPDPO(X,Q2,XPPR) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + SAVE /PYDAT1/,/PYDAT2/,/PYPARS/,/PYINT1/ + DIMENSION XPPR(-6:6),XQ(9),TX(6),TT(6),TS(6),NEHLQ(8,2), + &CEHLQ(6,6,2,8,2),CDO(3,6,5,2) + + +C...The following data lines are coefficients needed in the +C...Eichten, Hinchliffe, Lane, Quigg proton structure function +C...parametrizations, see below. +C...Powers of 1-x in different cases. + DATA NEHLQ/3,4,7,5,7,7,7,7,3,4,7,6,7,7,7,7/ +C...Expansion coefficients for up valence quark distribution. + DATA (((CEHLQ(IX,IT,NX,1,1),IX=1,6),IT=1,6),NX=1,2)/ + 1 7.677D-01,-2.087D-01,-3.303D-01,-2.517D-02,-1.570D-02,-1.000D-04, + 2-5.326D-01,-2.661D-01, 3.201D-01, 1.192D-01, 2.434D-02, 7.620D-03, + 3 2.162D-01, 1.881D-01,-8.375D-02,-6.515D-02,-1.743D-02,-5.040D-03, + 4-9.211D-02,-9.952D-02, 1.373D-02, 2.506D-02, 8.770D-03, 2.550D-03, + 5 3.670D-02, 4.409D-02, 9.600D-04,-7.960D-03,-3.420D-03,-1.050D-03, + 6-1.549D-02,-2.026D-02,-3.060D-03, 2.220D-03, 1.240D-03, 4.100D-04, + 1 2.395D-01, 2.905D-01, 9.778D-02, 2.149D-02, 3.440D-03, 5.000D-04, + 2 1.751D-02,-6.090D-03,-2.687D-02,-1.916D-02,-7.970D-03,-2.750D-03, + 3-5.760D-03,-5.040D-03, 1.080D-03, 2.490D-03, 1.530D-03, 7.500D-04, + 4 1.740D-03, 1.960D-03, 3.000D-04,-3.400D-04,-2.900D-04,-1.800D-04, + 5-5.300D-04,-6.400D-04,-1.700D-04, 4.000D-05, 6.000D-05, 4.000D-05, + 6 1.700D-04, 2.200D-04, 8.000D-05, 1.000D-05,-1.000D-05,-1.000D-05/ + DATA (((CEHLQ(IX,IT,NX,1,2),IX=1,6),IT=1,6),NX=1,2)/ + 1 7.237D-01,-2.189D-01,-2.995D-01,-1.909D-02,-1.477D-02, 2.500D-04, + 2-5.314D-01,-2.425D-01, 3.283D-01, 1.119D-01, 2.223D-02, 7.070D-03, + 3 2.289D-01, 1.890D-01,-9.859D-02,-6.900D-02,-1.747D-02,-5.080D-03, + 4-1.041D-01,-1.084D-01, 2.108D-02, 2.975D-02, 9.830D-03, 2.830D-03, + 5 4.394D-02, 5.116D-02,-1.410D-03,-1.055D-02,-4.230D-03,-1.270D-03, + 6-1.991D-02,-2.539D-02,-2.780D-03, 3.430D-03, 1.720D-03, 5.500D-04, + 1 2.410D-01, 2.884D-01, 9.369D-02, 1.900D-02, 2.530D-03, 2.400D-04, + 2 1.765D-02,-9.220D-03,-3.037D-02,-2.085D-02,-8.440D-03,-2.810D-03, + 3-6.450D-03,-5.260D-03, 1.720D-03, 3.110D-03, 1.830D-03, 8.700D-04, + 4 2.120D-03, 2.320D-03, 2.600D-04,-4.900D-04,-3.900D-04,-2.300D-04, + 5-6.900D-04,-8.200D-04,-2.000D-04, 7.000D-05, 9.000D-05, 6.000D-05, + 6 2.400D-04, 3.100D-04, 1.100D-04, 0.000D+00,-2.000D-05,-2.000D-05/ +C...Expansion coefficients for down valence quark distribution. + DATA (((CEHLQ(IX,IT,NX,2,1),IX=1,6),IT=1,6),NX=1,2)/ + 1 3.813D-01,-8.090D-02,-1.634D-01,-2.185D-02,-8.430D-03,-6.200D-04, + 2-2.948D-01,-1.435D-01, 1.665D-01, 6.638D-02, 1.473D-02, 4.080D-03, + 3 1.252D-01, 1.042D-01,-4.722D-02,-3.683D-02,-1.038D-02,-2.860D-03, + 4-5.478D-02,-5.678D-02, 8.900D-03, 1.484D-02, 5.340D-03, 1.520D-03, + 5 2.220D-02, 2.567D-02,-3.000D-05,-4.970D-03,-2.160D-03,-6.500D-04, + 6-9.530D-03,-1.204D-02,-1.510D-03, 1.510D-03, 8.300D-04, 2.700D-04, + 1 1.261D-01, 1.354D-01, 3.958D-02, 8.240D-03, 1.660D-03, 4.500D-04, + 2 3.890D-03,-1.159D-02,-1.625D-02,-9.610D-03,-3.710D-03,-1.260D-03, + 3-1.910D-03,-5.600D-04, 1.590D-03, 1.590D-03, 8.400D-04, 3.900D-04, + 4 6.400D-04, 4.900D-04,-1.500D-04,-2.900D-04,-1.800D-04,-1.000D-04, + 5-2.000D-04,-1.900D-04, 0.000D+00, 6.000D-05, 4.000D-05, 3.000D-05, + 6 7.000D-05, 8.000D-05, 2.000D-05,-1.000D-05,-1.000D-05,-1.000D-05/ + DATA (((CEHLQ(IX,IT,NX,2,2),IX=1,6),IT=1,6),NX=1,2)/ + 1 3.578D-01,-8.622D-02,-1.480D-01,-1.840D-02,-7.820D-03,-4.500D-04, + 2-2.925D-01,-1.304D-01, 1.696D-01, 6.243D-02, 1.353D-02, 3.750D-03, + 3 1.318D-01, 1.041D-01,-5.486D-02,-3.872D-02,-1.038D-02,-2.850D-03, + 4-6.162D-02,-6.143D-02, 1.303D-02, 1.740D-02, 5.940D-03, 1.670D-03, + 5 2.643D-02, 2.957D-02,-1.490D-03,-6.450D-03,-2.630D-03,-7.700D-04, + 6-1.218D-02,-1.497D-02,-1.260D-03, 2.240D-03, 1.120D-03, 3.500D-04, + 1 1.263D-01, 1.334D-01, 3.732D-02, 7.070D-03, 1.260D-03, 3.400D-04, + 2 3.660D-03,-1.357D-02,-1.795D-02,-1.031D-02,-3.880D-03,-1.280D-03, + 3-2.100D-03,-3.600D-04, 2.050D-03, 1.920D-03, 9.800D-04, 4.400D-04, + 4 7.700D-04, 5.400D-04,-2.400D-04,-3.900D-04,-2.400D-04,-1.300D-04, + 5-2.600D-04,-2.300D-04, 2.000D-05, 9.000D-05, 6.000D-05, 4.000D-05, + 6 9.000D-05, 1.000D-04, 2.000D-05,-2.000D-05,-2.000D-05,-1.000D-05/ +C...Expansion coefficients for up and down sea quark distributions. + DATA (((CEHLQ(IX,IT,NX,3,1),IX=1,6),IT=1,6),NX=1,2)/ + 1 6.870D-02,-6.861D-02, 2.973D-02,-5.400D-03, 3.780D-03,-9.700D-04, + 2-1.802D-02, 1.400D-04, 6.490D-03,-8.540D-03, 1.220D-03,-1.750D-03, + 3-4.650D-03, 1.480D-03,-5.930D-03, 6.000D-04,-1.030D-03,-8.000D-05, + 4 6.440D-03, 2.570D-03, 2.830D-03, 1.150D-03, 7.100D-04, 3.300D-04, + 5-3.930D-03,-2.540D-03,-1.160D-03,-7.700D-04,-3.600D-04,-1.900D-04, + 6 2.340D-03, 1.930D-03, 5.300D-04, 3.700D-04, 1.600D-04, 9.000D-05, + 1 1.014D+00,-1.106D+00, 3.374D-01,-7.444D-02, 8.850D-03,-8.700D-04, + 2 9.233D-01,-1.285D+00, 4.475D-01,-9.786D-02, 1.419D-02,-1.120D-03, + 3 4.888D-02,-1.271D-01, 8.606D-02,-2.608D-02, 4.780D-03,-6.000D-04, + 4-2.691D-02, 4.887D-02,-1.771D-02, 1.620D-03, 2.500D-04,-6.000D-05, + 5 7.040D-03,-1.113D-02, 1.590D-03, 7.000D-04,-2.000D-04, 0.000D+00, + 6-1.710D-03, 2.290D-03, 3.800D-04,-3.500D-04, 4.000D-05, 1.000D-05/ + DATA (((CEHLQ(IX,IT,NX,3,2),IX=1,6),IT=1,6),NX=1,2)/ + 1 1.008D-01,-7.100D-02, 1.973D-02,-5.710D-03, 2.930D-03,-9.900D-04, + 2-5.271D-02,-1.823D-02, 1.792D-02,-6.580D-03, 1.750D-03,-1.550D-03, + 3 1.220D-02, 1.763D-02,-8.690D-03,-8.800D-04,-1.160D-03,-2.100D-04, + 4-1.190D-03,-7.180D-03, 2.360D-03, 1.890D-03, 7.700D-04, 4.100D-04, + 5-9.100D-04, 2.040D-03,-3.100D-04,-1.050D-03,-4.000D-04,-2.400D-04, + 6 1.190D-03,-1.700D-04,-2.000D-04, 4.200D-04, 1.700D-04, 1.000D-04, + 1 1.081D+00,-1.189D+00, 3.868D-01,-8.617D-02, 1.115D-02,-1.180D-03, + 2 9.917D-01,-1.396D+00, 4.998D-01,-1.159D-01, 1.674D-02,-1.720D-03, + 3 5.099D-02,-1.338D-01, 9.173D-02,-2.885D-02, 5.890D-03,-6.500D-04, + 4-3.178D-02, 5.703D-02,-2.070D-02, 2.440D-03, 1.100D-04,-9.000D-05, + 5 8.970D-03,-1.392D-02, 2.050D-03, 6.500D-04,-2.300D-04, 2.000D-05, + 6-2.340D-03, 3.010D-03, 5.000D-04,-3.900D-04, 6.000D-05, 1.000D-05/ +C...Expansion coefficients for gluon distribution. + DATA (((CEHLQ(IX,IT,NX,4,1),IX=1,6),IT=1,6),NX=1,2)/ + 1 9.482D-01,-9.578D-01, 1.009D-01,-1.051D-01, 3.456D-02,-3.054D-02, + 2-9.627D-01, 5.379D-01, 3.368D-01,-9.525D-02, 1.488D-02,-2.051D-02, + 3 4.300D-01,-8.306D-02,-3.372D-01, 4.902D-02,-9.160D-03, 1.041D-02, + 4-1.925D-01,-1.790D-02, 2.183D-01, 7.490D-03, 4.140D-03,-1.860D-03, + 5 8.183D-02, 1.926D-02,-1.072D-01,-1.944D-02,-2.770D-03,-5.200D-04, + 6-3.884D-02,-1.234D-02, 5.410D-02, 1.879D-02, 3.350D-03, 1.040D-03, + 1 2.948D+01,-3.902D+01, 1.464D+01,-3.335D+00, 5.054D-01,-5.915D-02, + 2 2.559D+01,-3.955D+01, 1.661D+01,-4.299D+00, 6.904D-01,-8.243D-02, + 3-1.663D+00, 1.176D+00, 1.118D+00,-7.099D-01, 1.948D-01,-2.404D-02, + 4-2.168D-01, 8.170D-01,-7.169D-01, 1.851D-01,-1.924D-02,-3.250D-03, + 5 2.088D-01,-4.355D-01, 2.239D-01,-2.446D-02,-3.620D-03, 1.910D-03, + 6-9.097D-02, 1.601D-01,-5.681D-02,-2.500D-03, 2.580D-03,-4.700D-04/ + DATA (((CEHLQ(IX,IT,NX,4,2),IX=1,6),IT=1,6),NX=1,2)/ + 1 2.367D+00, 4.453D-01, 3.660D-01, 9.467D-02, 1.341D-01, 1.661D-02, + 2-3.170D+00,-1.795D+00, 3.313D-02,-2.874D-01,-9.827D-02,-7.119D-02, + 3 1.823D+00, 1.457D+00,-2.465D-01, 3.739D-02, 6.090D-03, 1.814D-02, + 4-1.033D+00,-9.827D-01, 2.136D-01, 1.169D-01, 5.001D-02, 1.684D-02, + 5 5.133D-01, 5.259D-01,-1.173D-01,-1.139D-01,-4.988D-02,-2.021D-02, + 6-2.881D-01,-3.145D-01, 5.667D-02, 9.161D-02, 4.568D-02, 1.951D-02, + 1 3.036D+01,-4.062D+01, 1.578D+01,-3.699D+00, 6.020D-01,-7.031D-02, + 2 2.700D+01,-4.167D+01, 1.770D+01,-4.804D+00, 7.862D-01,-1.060D-01, + 3-1.909D+00, 1.357D+00, 1.127D+00,-7.181D-01, 2.232D-01,-2.481D-02, + 4-2.488D-01, 9.781D-01,-8.127D-01, 2.094D-01,-2.997D-02,-4.710D-03, + 5 2.506D-01,-5.427D-01, 2.672D-01,-3.103D-02,-1.800D-03, 2.870D-03, + 6-1.128D-01, 2.087D-01,-6.972D-02,-2.480D-03, 2.630D-03,-8.400D-04/ +C...Expansion coefficients for strange sea quark distribution. + DATA (((CEHLQ(IX,IT,NX,5,1),IX=1,6),IT=1,6),NX=1,2)/ + 1 4.968D-02,-4.173D-02, 2.102D-02,-3.270D-03, 3.240D-03,-6.700D-04, + 2-6.150D-03,-1.294D-02, 6.740D-03,-6.890D-03, 9.000D-04,-1.510D-03, + 3-8.580D-03, 5.050D-03,-4.900D-03,-1.600D-04,-9.400D-04,-1.500D-04, + 4 7.840D-03, 1.510D-03, 2.220D-03, 1.400D-03, 7.000D-04, 3.500D-04, + 5-4.410D-03,-2.220D-03,-8.900D-04,-8.500D-04,-3.600D-04,-2.000D-04, + 6 2.520D-03, 1.840D-03, 4.100D-04, 3.900D-04, 1.600D-04, 9.000D-05, + 1 9.235D-01,-1.085D+00, 3.464D-01,-7.210D-02, 9.140D-03,-9.100D-04, + 2 9.315D-01,-1.274D+00, 4.512D-01,-9.775D-02, 1.380D-02,-1.310D-03, + 3 4.739D-02,-1.296D-01, 8.482D-02,-2.642D-02, 4.760D-03,-5.700D-04, + 4-2.653D-02, 4.953D-02,-1.735D-02, 1.750D-03, 2.800D-04,-6.000D-05, + 5 6.940D-03,-1.132D-02, 1.480D-03, 6.500D-04,-2.100D-04, 0.000D+00, + 6-1.680D-03, 2.340D-03, 4.200D-04,-3.400D-04, 5.000D-05, 1.000D-05/ + DATA (((CEHLQ(IX,IT,NX,5,2),IX=1,6),IT=1,6),NX=1,2)/ + 1 6.478D-02,-4.537D-02, 1.643D-02,-3.490D-03, 2.710D-03,-6.700D-04, + 2-2.223D-02,-2.126D-02, 1.247D-02,-6.290D-03, 1.120D-03,-1.440D-03, + 3-1.340D-03, 1.362D-02,-6.130D-03,-7.900D-04,-9.000D-04,-2.000D-04, + 4 5.080D-03,-3.610D-03, 1.700D-03, 1.830D-03, 6.800D-04, 4.000D-04, + 5-3.580D-03, 6.000D-05,-2.600D-04,-1.050D-03,-3.800D-04,-2.300D-04, + 6 2.420D-03, 9.300D-04,-1.000D-04, 4.500D-04, 1.700D-04, 1.100D-04, + 1 9.868D-01,-1.171D+00, 3.940D-01,-8.459D-02, 1.124D-02,-1.250D-03, + 2 1.001D+00,-1.383D+00, 5.044D-01,-1.152D-01, 1.658D-02,-1.830D-03, + 3 4.928D-02,-1.368D-01, 9.021D-02,-2.935D-02, 5.800D-03,-6.600D-04, + 4-3.133D-02, 5.785D-02,-2.023D-02, 2.630D-03, 1.600D-04,-8.000D-05, + 5 8.840D-03,-1.416D-02, 1.900D-03, 5.800D-04,-2.500D-04, 1.000D-05, + 6-2.300D-03, 3.080D-03, 5.500D-04,-3.700D-04, 7.000D-05, 1.000D-05/ +C...Expansion coefficients for charm sea quark distribution. + DATA (((CEHLQ(IX,IT,NX,6,1),IX=1,6),IT=1,6),NX=1,2)/ + 1 9.270D-03,-1.817D-02, 9.590D-03,-6.390D-03, 1.690D-03,-1.540D-03, + 2 5.710D-03,-1.188D-02, 6.090D-03,-4.650D-03, 1.240D-03,-1.310D-03, + 3-3.960D-03, 7.100D-03,-3.590D-03, 1.840D-03,-3.900D-04, 3.400D-04, + 4 1.120D-03,-1.960D-03, 1.120D-03,-4.800D-04, 1.000D-04,-4.000D-05, + 5 4.000D-05,-3.000D-05,-1.800D-04, 9.000D-05,-5.000D-05,-2.000D-05, + 6-4.200D-04, 7.300D-04,-1.600D-04, 5.000D-05, 5.000D-05, 5.000D-05, + 1 8.098D-01,-1.042D+00, 3.398D-01,-6.824D-02, 8.760D-03,-9.000D-04, + 2 8.961D-01,-1.217D+00, 4.339D-01,-9.287D-02, 1.304D-02,-1.290D-03, + 3 3.058D-02,-1.040D-01, 7.604D-02,-2.415D-02, 4.600D-03,-5.000D-04, + 4-2.451D-02, 4.432D-02,-1.651D-02, 1.430D-03, 1.200D-04,-1.000D-04, + 5 1.122D-02,-1.457D-02, 2.680D-03, 5.800D-04,-1.200D-04, 3.000D-05, + 6-7.730D-03, 7.330D-03,-7.600D-04,-2.400D-04, 1.000D-05, 0.000D+00/ + DATA (((CEHLQ(IX,IT,NX,6,2),IX=1,6),IT=1,6),NX=1,2)/ + 1 9.980D-03,-1.945D-02, 1.055D-02,-6.870D-03, 1.860D-03,-1.560D-03, + 2 5.700D-03,-1.203D-02, 6.250D-03,-4.860D-03, 1.310D-03,-1.370D-03, + 3-4.490D-03, 7.990D-03,-4.170D-03, 2.050D-03,-4.400D-04, 3.300D-04, + 4 1.470D-03,-2.480D-03, 1.460D-03,-5.700D-04, 1.200D-04,-1.000D-05, + 5-9.000D-05, 1.500D-04,-3.200D-04, 1.200D-04,-6.000D-05,-4.000D-05, + 6-4.200D-04, 7.600D-04,-1.400D-04, 4.000D-05, 7.000D-05, 5.000D-05, + 1 8.698D-01,-1.131D+00, 3.836D-01,-8.111D-02, 1.048D-02,-1.300D-03, + 2 9.626D-01,-1.321D+00, 4.854D-01,-1.091D-01, 1.583D-02,-1.700D-03, + 3 3.057D-02,-1.088D-01, 8.022D-02,-2.676D-02, 5.590D-03,-5.600D-04, + 4-2.845D-02, 5.164D-02,-1.918D-02, 2.210D-03,-4.000D-05,-1.500D-04, + 5 1.311D-02,-1.751D-02, 3.310D-03, 5.100D-04,-1.200D-04, 5.000D-05, + 6-8.590D-03, 8.380D-03,-9.200D-04,-2.600D-04, 1.000D-05,-1.000D-05/ +C...Expansion coefficients for bottom sea quark distribution. + DATA (((CEHLQ(IX,IT,NX,7,1),IX=1,6),IT=1,6),NX=1,2)/ + 1 9.010D-03,-1.401D-02, 7.150D-03,-4.130D-03, 1.260D-03,-1.040D-03, + 2 6.280D-03,-9.320D-03, 4.780D-03,-2.890D-03, 9.100D-04,-8.200D-04, + 3-2.930D-03, 4.090D-03,-1.890D-03, 7.600D-04,-2.300D-04, 1.400D-04, + 4 3.900D-04,-1.200D-03, 4.400D-04,-2.500D-04, 2.000D-05,-2.000D-05, + 5 2.600D-04, 1.400D-04,-8.000D-05, 1.000D-04, 1.000D-05, 1.000D-05, + 6-2.600D-04, 3.200D-04, 1.000D-05,-1.000D-05, 1.000D-05,-1.000D-05, + 1 8.029D-01,-1.075D+00, 3.792D-01,-7.843D-02, 1.007D-02,-1.090D-03, + 2 7.903D-01,-1.099D+00, 4.153D-01,-9.301D-02, 1.317D-02,-1.410D-03, + 3-1.704D-02,-1.130D-02, 2.882D-02,-1.341D-02, 3.040D-03,-3.600D-04, + 4-7.200D-04, 7.230D-03,-5.160D-03, 1.080D-03,-5.000D-05,-4.000D-05, + 5 3.050D-03,-4.610D-03, 1.660D-03,-1.300D-04,-1.000D-05, 1.000D-05, + 6-4.360D-03, 5.230D-03,-1.610D-03, 2.000D-04,-2.000D-05, 0.000D+00/ + DATA (((CEHLQ(IX,IT,NX,7,2),IX=1,6),IT=1,6),NX=1,2)/ + 1 8.980D-03,-1.459D-02, 7.510D-03,-4.410D-03, 1.310D-03,-1.070D-03, + 2 5.970D-03,-9.440D-03, 4.800D-03,-3.020D-03, 9.100D-04,-8.500D-04, + 3-3.050D-03, 4.440D-03,-2.100D-03, 8.500D-04,-2.400D-04, 1.400D-04, + 4 5.300D-04,-1.300D-03, 5.600D-04,-2.700D-04, 3.000D-05,-2.000D-05, + 5 2.000D-04, 1.400D-04,-1.100D-04, 1.000D-04, 0.000D+00, 0.000D+00, + 6-2.600D-04, 3.200D-04, 0.000D+00,-3.000D-05, 1.000D-05,-1.000D-05, + 1 8.672D-01,-1.174D+00, 4.265D-01,-9.252D-02, 1.244D-02,-1.460D-03, + 2 8.500D-01,-1.194D+00, 4.630D-01,-1.083D-01, 1.614D-02,-1.830D-03, + 3-2.241D-02,-5.630D-03, 2.815D-02,-1.425D-02, 3.520D-03,-4.300D-04, + 4-7.300D-04, 8.030D-03,-5.780D-03, 1.380D-03,-1.300D-04,-4.000D-05, + 5 3.460D-03,-5.380D-03, 1.960D-03,-2.100D-04, 1.000D-05, 1.000D-05, + 6-4.850D-03, 5.950D-03,-1.890D-03, 2.600D-04,-3.000D-05, 0.000D+00/ +C...Expansion coefficients for top sea quark distribution. + DATA (((CEHLQ(IX,IT,NX,8,1),IX=1,6),IT=1,6),NX=1,2)/ + 1 4.410D-03,-7.480D-03, 3.770D-03,-2.580D-03, 7.300D-04,-7.100D-04, + 2 3.840D-03,-6.050D-03, 3.030D-03,-2.030D-03, 5.800D-04,-5.900D-04, + 3-8.800D-04, 1.660D-03,-7.500D-04, 4.700D-04,-1.000D-04, 1.000D-04, + 4-8.000D-05,-1.500D-04, 1.200D-04,-9.000D-05, 3.000D-05, 0.000D+00, + 5 1.300D-04,-2.200D-04,-2.000D-05,-2.000D-05,-2.000D-05,-2.000D-05, + 6-7.000D-05, 1.900D-04,-4.000D-05, 2.000D-05, 0.000D+00, 0.000D+00, + 1 6.623D-01,-9.248D-01, 3.519D-01,-7.930D-02, 1.110D-02,-1.180D-03, + 2 6.380D-01,-9.062D-01, 3.582D-01,-8.479D-02, 1.265D-02,-1.390D-03, + 3-2.581D-02, 2.125D-02, 4.190D-03,-4.980D-03, 1.490D-03,-2.100D-04, + 4 7.100D-04, 5.300D-04,-1.270D-03, 3.900D-04,-5.000D-05,-1.000D-05, + 5 3.850D-03,-5.060D-03, 1.860D-03,-3.500D-04, 4.000D-05, 0.000D+00, + 6-3.530D-03, 4.460D-03,-1.500D-03, 2.700D-04,-3.000D-05, 0.000D+00/ + DATA (((CEHLQ(IX,IT,NX,8,2),IX=1,6),IT=1,6),NX=1,2)/ + 1 4.260D-03,-7.530D-03, 3.830D-03,-2.680D-03, 7.600D-04,-7.300D-04, + 2 3.640D-03,-6.050D-03, 3.030D-03,-2.090D-03, 5.900D-04,-6.000D-04, + 3-9.200D-04, 1.710D-03,-8.200D-04, 5.000D-04,-1.200D-04, 1.000D-04, + 4-5.000D-05,-1.600D-04, 1.300D-04,-9.000D-05, 3.000D-05, 0.000D+00, + 5 1.300D-04,-2.100D-04,-1.000D-05,-2.000D-05,-2.000D-05,-1.000D-05, + 6-8.000D-05, 1.800D-04,-5.000D-05, 2.000D-05, 0.000D+00, 0.000D+00, + 1 7.146D-01,-1.007D+00, 3.932D-01,-9.246D-02, 1.366D-02,-1.540D-03, + 2 6.856D-01,-9.828D-01, 3.977D-01,-9.795D-02, 1.540D-02,-1.790D-03, + 3-3.053D-02, 2.758D-02, 2.150D-03,-4.880D-03, 1.640D-03,-2.500D-04, + 4 9.200D-04, 4.200D-04,-1.340D-03, 4.600D-04,-8.000D-05,-1.000D-05, + 5 4.230D-03,-5.660D-03, 2.140D-03,-4.300D-04, 6.000D-05, 0.000D+00, + 6-3.890D-03, 5.000D-03,-1.740D-03, 3.300D-04,-4.000D-05, 0.000D+00/ + +C...The following data lines are coefficients needed in the +C...Duke, Owens proton structure function parametrizations, see below. +C...Expansion coefficients for (up+down) valence quark distribution. + DATA ((CDO(IP,IS,1,1),IS=1,6),IP=1,3)/ + 1 4.190D-01, 3.460D+00, 4.400D+00, 0.000D+00, 0.000D+00, 0.000D+00, + 2 4.000D-03, 7.240D-01,-4.860D+00, 0.000D+00, 0.000D+00, 0.000D+00, + 3-7.000D-03,-6.600D-02, 1.330D+00, 0.000D+00, 0.000D+00, 0.000D+00/ + DATA ((CDO(IP,IS,1,2),IS=1,6),IP=1,3)/ + 1 3.740D-01, 3.330D+00, 6.030D+00, 0.000D+00, 0.000D+00, 0.000D+00, + 2 1.400D-02, 7.530D-01,-6.220D+00, 0.000D+00, 0.000D+00, 0.000D+00, + 3 0.000D+00,-7.600D-02, 1.560D+00, 0.000D+00, 0.000D+00, 0.000D+00/ +C...Expansion coefficients for down valence quark distribution. + DATA ((CDO(IP,IS,2,1),IS=1,6),IP=1,3)/ + 1 7.630D-01, 4.000D+00, 0.000D+00, 0.000D+00, 0.000D+00, 0.000D+00, + 2-2.370D-01, 6.270D-01,-4.210D-01, 0.000D+00, 0.000D+00, 0.000D+00, + 3 2.600D-02,-1.900D-02, 3.300D-02, 0.000D+00, 0.000D+00, 0.000D+00/ + DATA ((CDO(IP,IS,2,2),IS=1,6),IP=1,3)/ + 1 7.610D-01, 3.830D+00, 0.000D+00, 0.000D+00, 0.000D+00, 0.000D+00, + 2-2.320D-01, 6.270D-01,-4.180D-01, 0.000D+00, 0.000D+00, 0.000D+00, + 3 2.300D-02,-1.900D-02, 3.600D-02, 0.000D+00, 0.000D+00, 0.000D+00/ +C...Expansion coefficients for (up+down+strange) sea quark distribution. + DATA ((CDO(IP,IS,3,1),IS=1,6),IP=1,3)/ + 1 1.265D+00, 0.000D+00, 8.050D+00, 0.000D+00, 0.000D+00, 0.000D+00, + 2-1.132D+00,-3.720D-01, 1.590D+00, 6.310D+00,-1.050D+01, 1.470D+01, + 3 2.930D-01,-2.900D-02,-1.530D-01,-2.730D-01,-3.170D+00, 9.800D+00/ + DATA ((CDO(IP,IS,3,2),IS=1,6),IP=1,3)/ + 1 1.670D+00, 0.000D+00, 9.150D+00, 0.000D+00, 0.000D+00, 0.000D+00, + 2-1.920D+00,-2.730D-01, 5.300D-01, 1.570D+01,-1.010D+02, 2.230D+02, + 3 5.820D-01,-1.640D-01,-7.630D-01,-2.830D+00, 4.470D+01,-1.170D+02/ +C...Expansion coefficients for charm sea quark distribution. + DATA ((CDO(IP,IS,4,1),IS=1,6),IP=1,3)/ + 1 0.000D+00,-3.600D-02, 6.350D+00, 0.000D+00, 0.000D+00, 0.000D+00, + 2 1.350D-01,-2.220D-01, 3.260D+00,-3.030D+00, 1.740D+01,-1.790D+01, + 3-7.500D-02,-5.800D-02,-9.090D-01, 1.500D+00,-1.130D+01, 1.560D+01/ + DATA ((CDO(IP,IS,4,2),IS=1,6),IP=1,3)/ + 1 0.000D+00,-1.200D-01, 3.510D+00, 0.000D+00, 0.000D+00, 0.000D+00, + 2 6.700D-02,-2.330D-01, 3.660D+00,-4.740D-01, 9.500D+00,-1.660D+01, + 3-3.100D-02,-2.300D-02,-4.530D-01, 3.580D-01,-5.430D+00, 1.550D+01/ +C...Expansion coefficients for gluon distribution. + DATA ((CDO(IP,IS,5,1),IS=1,6),IP=1,3)/ + 1 1.560D+00, 0.000D+00, 6.000D+00, 9.000D+00, 0.000D+00, 0.000D+00, + 2-1.710D+00,-9.490D-01, 1.440D+00,-7.190D+00,-1.650D+01, 1.530D+01, + 3 6.380D-01, 3.250D-01,-1.050D+00, 2.550D-01, 1.090D+01,-1.010D+01/ + DATA ((CDO(IP,IS,5,2),IS=1,6),IP=1,3)/ + 1 8.790D-01, 0.000D+00, 4.000D+00, 9.000D+00, 0.000D+00, 0.000D+00, + 2-9.710D-01,-1.160D+00, 1.230D+00,-5.640D+00,-7.540D+00,-5.960D-01, + 3 4.340D-01, 4.760D-01,-2.540D-01,-8.170D-01, 5.500D+00, 1.260D-01/ + +C...Euler's beta function, requires ordinary Gamma function + EULBET(X,Y)=PYGAMM(X)*PYGAMM(Y)/PYGAMM(X+Y) + +C...Leading order proton parton distributions from Gluck, Reya and Vogt. +C...Allowed variable range: 0.25 GeV^2 < Q^2 < 10^8 GeV^2 and +C...10^-5 < x < 1. + IF(MSTP(51).EQ.11) THEN + +C...Determine s expansion variable and some x expressions. + Q2IN=MIN(1D8,MAX(0.25D0,Q2)) + SD=LOG(LOG(Q2IN/0.232D0**2)/LOG(0.25D0/0.232D0**2)) + SD2=SD**2 + XL=-LOG(X) + XS=SQRT(X) + +C...Evaluate valence, gluon and sea distributions. + XFVUD=(0.663D0+0.191D0*SD-0.041D0*SD2+0.031D0*SD**3)* + & X**0.326D0*(1D0+(-1.97D0+6.74D0*SD-1.96D0*SD2)*XS+ + & (24.4D0-20.7D0*SD+4.08D0*SD2)*X)* + & (1D0-X)**(2.86D0+0.70D0*SD-0.02D0*SD2) + XFVDD=(0.579D0+0.283D0*SD+0.047D0*SD2)*X**(0.523D0-0.015D0*SD)* + & (1D0+(2.22D0-0.59D0*SD-0.27D0*SD2)*XS+(5.95D0-6.19D0*SD+ + & 1.55D0*SD2)*X)*(1D0-X)**(3.57D0+0.94D0*SD-0.16D0*SD2) + XFGLU=(X**(1.00D0-0.17D0*SD)*((4.879D0*SD-1.383D0*SD2)+ + & (25.92D0-28.97D0*SD+5.596D0*SD2)*X+(-25.69D0+23.68D0*SD- + & 1.975D0*SD2)*X**2)+SD**0.558D0*EXP(-(0.595D0+2.138D0*SD)+ + & SQRT(4.066D0*SD**1.218D0*XL)))* + & (1D0-X)**(2.537D0+1.718D0*SD+0.353D0*SD2) + XFSEA=(X**(0.412D0-0.171D0*SD)*(0.363D0-1.196D0*X+(1.029D0+ + & 1.785D0*SD-0.459D0*SD2)*X**2)*XL**(0.566D0-0.496D0*SD)+ + & SD**1.396D0*EXP(-(3.838D0+1.944D0*SD)+SQRT(2.845D0*SD**1.331D0* + & XL)))*(1D0-X)**(4.696D0+2.109D0*SD) + XFSTR=SD**0.803D0*(1D0+(-3.055D0+1.024D0*SD**0.67D0)*XS+ + & (27.4D0-20.0D0*SD**0.154D0)*X)*(1D0-X)**6.22D0* + & EXP(-(4.33D0+1.408D0*SD)+SQRT((8.27D0-0.437D0*SD)* + & SD**0.563D0*XL))/XL**(2.082D0-0.577D0*SD) + IF(SD.LE.0.888D0) THEN + XFCHM=0D0 + ELSE + XFCHM=(SD-0.888D0)**1.01D0*(1.+(4.24D0-0.804D0*SD)*X)* + & (1D0-X)**(3.46D0+1.076D0*SD)*EXP(-(4.61D0+1.49D0*SD)+ + & SQRT((2.555D0+1.961D0*SD)*SD**0.37D0*XL)) + ENDIF + IF(SD.LE.1.351D0) THEN + XFBOT=0D0 + ELSE + XFBOT=(SD-1.351D0)*(1D0+1.848D0*X)*(1D0-X)**(2.929D0+ + & 1.396D0*SD)*EXP(-(4.71D0+1.514D0*SD)+ + & SQRT((4.02D0+1.239D0*SD)*SD**0.51D0*XL)) + ENDIF + +C...Put into output array. + XPPR(0)=XFGLU + XPPR(1)=XFVDD+XFSEA + XPPR(2)=XFVUD-XFVDD+XFSEA + XPPR(3)=XFSTR + XPPR(4)=XFCHM + XPPR(5)=XFBOT + XPPR(-1)=XFSEA + XPPR(-2)=XFSEA + XPPR(-3)=XFSTR + XPPR(-4)=XFCHM + XPPR(-5)=XFBOT + +C...Proton parton distributions from Eichten, Hinchliffe, Lane, Quigg. +C...Allowed variable range: 5 GeV^2 < Q^2 < 1E8 GeV^2; 1E-4 < x < 1 + ELSEIF(MSTP(51).EQ.12.OR.MSTP(51).EQ.13) THEN + +C...Determine set, Lambda and x and t expansion variables. + NSET=MSTP(51)-11 + IF(NSET.EQ.1) ALAM=0.2D0 + IF(NSET.EQ.2) ALAM=0.29D0 + TMIN=LOG(5D0/ALAM**2) + TMAX=LOG(1D8/ALAM**2) + T=LOG(MAX(1D0,Q2/ALAM**2)) + VT=MAX(-1D0,MIN(1D0,(2D0*T-TMAX-TMIN)/(TMAX-TMIN))) + NX=1 + IF(X.LE.0.1D0) NX=2 + IF(NX.EQ.1) VX=(2D0*X-1.1D0)/0.9D0 + IF(NX.EQ.2) VX=MAX(-1D0,(2D0*LOG(X)+11.51293D0)/6.90776D0) + +C...Chebyshev polynomials for x and t expansion. + TX(1)=1D0 + TX(2)=VX + TX(3)=2D0*VX**2-1D0 + TX(4)=4D0*VX**3-3D0*VX + TX(5)=8D0*VX**4-8D0*VX**2+1D0 + TX(6)=16D0*VX**5-20D0*VX**3+5D0*VX + TT(1)=1D0 + TT(2)=VT + TT(3)=2D0*VT**2-1D0 + TT(4)=4D0*VT**3-3D0*VT + TT(5)=8D0*VT**4-8D0*VT**2+1D0 + TT(6)=16D0*VT**5-20D0*VT**3+5D0*VT + +C...Calculate structure functions. + DO 130 KFL=1,6 + XQSUM=0D0 + DO 120 IT=1,6 + DO 110 IX=1,6 + XQSUM=XQSUM+CEHLQ(IX,IT,NX,KFL,NSET)*TX(IX)*TT(IT) + 110 CONTINUE + 120 CONTINUE + XQ(KFL)=XQSUM*(1D0-X)**NEHLQ(KFL,NSET) + 130 CONTINUE + +C...Put into output array. + XPPR(0)=XQ(4) + XPPR(1)=XQ(2)+XQ(3) + XPPR(2)=XQ(1)+XQ(3) + XPPR(3)=XQ(5) + XPPR(4)=XQ(6) + XPPR(-1)=XQ(3) + XPPR(-2)=XQ(3) + XPPR(-3)=XQ(5) + XPPR(-4)=XQ(6) + +C...Special expansion for bottom (threshold effects). + IF(MSTP(58).GE.5) THEN + IF(NSET.EQ.1) TMIN=8.1905D0 + IF(NSET.EQ.2) TMIN=7.4474D0 + IF(T.GT.TMIN) THEN + VT=MAX(-1D0,MIN(1D0,(2D0*T-TMAX-TMIN)/(TMAX-TMIN))) + TT(1)=1D0 + TT(2)=VT + TT(3)=2D0*VT**2-1D0 + TT(4)=4D0*VT**3-3D0*VT + TT(5)=8D0*VT**4-8D0*VT**2+1D0 + TT(6)=16D0*VT**5-20D0*VT**3+5D0*VT + XQSUM=0D0 + DO 150 IT=1,6 + DO 140 IX=1,6 + XQSUM=XQSUM+CEHLQ(IX,IT,NX,7,NSET)*TX(IX)*TT(IT) + 140 CONTINUE + 150 CONTINUE + XPPR(5)=XQSUM*(1D0-X)**NEHLQ(7,NSET) + XPPR(-5)=XPPR(5) + ENDIF + ENDIF + +C...Special expansion for top (threshold effects). + IF(MSTP(58).GE.6) THEN + IF(NSET.EQ.1) TMIN=11.5528D0 + IF(NSET.EQ.2) TMIN=10.8097D0 + TMIN=TMIN+2D0*LOG(PMAS(6,1)/30D0) + TMAX=TMAX+2D0*LOG(PMAS(6,1)/30D0) + IF(T.GT.TMIN) THEN + VT=MAX(-1D0,MIN(1D0,(2D0*T-TMAX-TMIN)/(TMAX-TMIN))) + TT(1)=1D0 + TT(2)=VT + TT(3)=2D0*VT**2-1D0 + TT(4)=4D0*VT**3-3D0*VT + TT(5)=8D0*VT**4-8D0*VT**2+1D0 + TT(6)=16D0*VT**5-20D0*VT**3+5D0*VT + XQSUM=0D0 + DO 170 IT=1,6 + DO 160 IX=1,6 + XQSUM=XQSUM+CEHLQ(IX,IT,NX,8,NSET)*TX(IX)*TT(IT) + 160 CONTINUE + 170 CONTINUE + XPPR(6)=XQSUM*(1D0-X)**NEHLQ(8,NSET) + XPPR(-6)=XPPR(6) + ENDIF + ENDIF + +C...Proton parton distributions from Duke, Owens. +C...Allowed variable range: 4 GeV^2 < Q^2 < approx 1E6 GeV^2. + ELSEIF(MSTP(51).EQ.14.OR.MSTP(51).EQ.15) THEN + +C...Determine set, Lambda and s expansion parameter. + NSET=MSTP(51)-13 + IF(NSET.EQ.1) ALAM=0.2D0 + IF(NSET.EQ.2) ALAM=0.4D0 + Q2IN=MIN(1D6,MAX(4D0,Q2)) + SD=LOG(LOG(Q2IN/ALAM**2)/LOG(4D0/ALAM**2)) + +C...Calculate structure functions. + DO 190 KFL=1,5 + DO 180 IS=1,6 + TS(IS)=CDO(1,IS,KFL,NSET)+CDO(2,IS,KFL,NSET)*SD+ + & CDO(3,IS,KFL,NSET)*SD**2 + 180 CONTINUE + IF(KFL.LE.2) THEN + XQ(KFL)=X**TS(1)*(1D0-X)**TS(2)*(1D0+TS(3)*X)/(EULBET(TS(1), + & TS(2)+1D0)*(1D0+TS(3)*TS(1)/(TS(1)+TS(2)+1D0))) + ELSE + XQ(KFL)=TS(1)*X**TS(2)*(1D0-X)**TS(3)*(1D0+TS(4)*X+ + & TS(5)*X**2+TS(6)*X**3) + ENDIF + 190 CONTINUE + +C...Put into output arrays. + XPPR(0)=XQ(5) + XPPR(1)=XQ(2)+XQ(3)/6D0 + XPPR(2)=3D0*XQ(1)-XQ(2)+XQ(3)/6D0 + XPPR(3)=XQ(3)/6D0 + XPPR(4)=XQ(4) + XPPR(-1)=XQ(3)/6D0 + XPPR(-2)=XQ(3)/6D0 + XPPR(-3)=XQ(3)/6D0 + XPPR(-4)=XQ(4) + + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYHFTH +C...Gives threshold attractive/repulsive factor for heavy flavour +C...production. + + FUNCTION PYHFTH(SH,SQM,FRATT) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + SAVE /PYDAT1/,/PYPARS/,/PYINT1/ + +C...Value for alpha_strong. + IF(MSTP(35).LE.1) THEN + ALSSG=PARP(35) + ELSE + MST115=MSTU(115) + MSTU(115)=MSTP(36) + Q2BN=SQRT(MAX(1D0,SQM*((SQRT(SH)-2D0*SQRT(SQM))**2+ + & PARP(36)**2))) + ALSSG=PYALPS(Q2BN) + MSTU(115)=MST115 + ENDIF + +C...Evaluate attractive and repulsive factors. + XATTR=4D0*PARU(1)*ALSSG/(3D0*SQRT(MAX(1D-20,1D0-4D0*SQM/SH))) + FATTR=XATTR/(1D0-EXP(-MIN(50D0,XATTR))) + XREPU=PARU(1)*ALSSG/(6D0*SQRT(MAX(1D-20,1D0-4D0*SQM/SH))) + FREPU=XREPU/(EXP(MIN(50D0,XREPU))-1D0) + PYHFTH=FRATT*FATTR+(1D0-FRATT)*FREPU + VINT(138)=PYHFTH + + RETURN + END + +C********************************************************************* + +C...PYSPLI +C...Splits a hadron remnant into two (partons or hadron + parton) +C...in case it is more complicated than just a quark or a diquark. + + SUBROUTINE PYSPLI(KF,KFLIN,KFLCH,KFLSP) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. PYDAT1 temporary + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYPARS/,/PYINT1/,/PYDAT1/ +C...Local array. + DIMENSION KFL(3) + +C...Preliminaries. Parton composition. + KFA=IABS(KF) + KFS=ISIGN(1,KF) + KFL(1)=MOD(KFA/1000,10) + KFL(2)=MOD(KFA/100,10) + KFL(3)=MOD(KFA/10,10) + IF(KFA.EQ.22.AND.MINT(109).EQ.2) THEN + KFL(2)=INT(1.5D0+PYR(0)) + IF(MINT(105).EQ.333) KFL(2)=3 + IF(MINT(105).EQ.443) KFL(2)=4 + KFL(3)=KFL(2) + ELSEIF((KFA.EQ.111.OR.KFA.EQ.113).AND.PYR(0).GT.0.5D0) THEN + KFL(2)=2 + KFL(3)=2 + ELSEIF(KFA.EQ.223.AND.PYR(0).GT.0.5D0) THEN + KFL(2)=1 + KFL(3)=1 + ENDIF + IF(KFLIN.NE.21.AND.KFLIN.NE.22.AND.KFLIN.NE.23) THEN + KFLR=KFLIN*KFS + ELSE + KFLR=KFLIN + ENDIF + KFLCH=0 + +C...Subdivide lepton. + IF(KFA.GE.11.AND.KFA.LE.18) THEN + IF(KFLR.EQ.KFA) THEN + KFLSP=KFS*22 + ELSEIF(KFLR.EQ.22) THEN + KFLSP=KFA + ELSEIF(KFLR.EQ.-24.AND.MOD(KFA,2).EQ.1) THEN + KFLSP=KFA+1 + ELSEIF(KFLR.EQ.24.AND.MOD(KFA,2).EQ.0) THEN + KFLSP=KFA-1 + ELSEIF(KFLR.EQ.21) THEN + KFLSP=KFA + KFLCH=KFS*21 + ELSE + KFLSP=KFA + KFLCH=-KFLR + ENDIF + +C...Subdivide photon. + ELSEIF(KFA.EQ.22.AND.MINT(109).NE.2) THEN + IF(KFLR.NE.21) THEN + KFLSP=-KFLR + ELSE + RAGR=0.75D0*PYR(0) + KFLSP=1 + IF(RAGR.GT.0.125D0) KFLSP=2 + IF(RAGR.GT.0.625D0) KFLSP=3 + IF(PYR(0).GT.0.5D0) KFLSP=-KFLSP + KFLCH=-KFLSP + ENDIF + +C...Subdivide Reggeon or Pomeron. + ELSEIF(KFA.EQ.28.OR.KFA.EQ.29) THEN + IF(KFLIN.EQ.21) THEN + KFLSP=KFS*21 + ELSE + KFLSP=-KFLIN + ENDIF + +C...Subdivide meson. + ELSEIF(KFL(1).EQ.0) THEN + KFL(2)=KFL(2)*(-1)**KFL(2) + KFL(3)=-KFL(3)*(-1)**IABS(KFL(2)) + IF(KFLR.EQ.KFL(2)) THEN + KFLSP=KFL(3) + ELSEIF(KFLR.EQ.KFL(3)) THEN + KFLSP=KFL(2) + ELSEIF(KFLR.EQ.21.AND.PYR(0).GT.0.5D0) THEN + KFLSP=KFL(2) + KFLCH=KFL(3) + ELSEIF(KFLR.EQ.21) THEN + KFLSP=KFL(3) + KFLCH=KFL(2) + ELSEIF(KFLR*KFL(2).GT.0) THEN + NTRY=0 + 100 NTRY=NTRY+1 + CALL PYKFDI(-KFLR,KFL(2),KFDUMP,KFLCH) + IF(KFLCH.EQ.0.AND.NTRY.LT.100) THEN + GOTO 100 + ELSEIF(KFLCH.EQ.0) THEN + CALL PYERRM(14,'(PYSPLI:) caught in infinite loop') + MINT(51)=1 + RETURN + ENDIF + KFLSP=KFL(3) + ELSE + NTRY=0 + 110 NTRY=NTRY+1 + CALL PYKFDI(-KFLR,KFL(3),KFDUMP,KFLCH) + IF(KFLCH.EQ.0.AND.NTRY.LT.100) THEN + GOTO 110 + ELSEIF(KFLCH.EQ.0) THEN + CALL PYERRM(14,'(PYSPLI:) caught in infinite loop') + MINT(51)=1 + RETURN + ENDIF + KFLSP=KFL(2) + ENDIF + +C...Subdivide baryon. + ELSE + NAGR=0 + DO 120 J=1,3 + IF(KFLR.EQ.KFL(J)) NAGR=NAGR+1 + 120 CONTINUE + IF(NAGR.GE.1) THEN + RAGR=0.00001D0+(NAGR-0.00002D0)*PYR(0) + IAGR=0 + DO 130 J=1,3 + IF(KFLR.EQ.KFL(J)) RAGR=RAGR-1D0 + IF(IAGR.EQ.0.AND.RAGR.LE.0D0) IAGR=J + 130 CONTINUE + ELSE + IAGR=1.00001D0+2.99998D0*PYR(0) + ENDIF + ID1=1 + IF(IAGR.EQ.1) ID1=2 + IF(IAGR.EQ.1.AND.KFL(3).GT.KFL(2)) ID1=3 + ID2=6-IAGR-ID1 + KSP=3 + IF(MOD(KFA,10).EQ.2.AND.KFL(1).EQ.KFL(2)) THEN + IF(IAGR.NE.3.AND.PYR(0).GT.0.25D0) KSP=1 + ELSEIF(MOD(KFA,10).EQ.2.AND.KFL(2).GE.KFL(3)) THEN + IF(IAGR.NE.1.AND.PYR(0).GT.0.25D0) KSP=1 + ELSEIF(MOD(KFA,10).EQ.2) THEN + IF(IAGR.EQ.1) KSP=1 + IF(IAGR.NE.1.AND.PYR(0).GT.0.75D0) KSP=1 + ENDIF + KFLSP=1000*KFL(ID1)+100*KFL(ID2)+KSP + IF(KFLR.EQ.21) THEN + KFLCH=KFL(IAGR) + ELSEIF(NAGR.EQ.0.AND.KFLR.GT.0) THEN + NTRY=0 + 140 NTRY=NTRY+1 + CALL PYKFDI(-KFLR,KFL(IAGR),KFDUMP,KFLCH) + IF(KFLCH.EQ.0.AND.NTRY.LT.100) THEN + GOTO 140 + ELSEIF(KFLCH.EQ.0) THEN + CALL PYERRM(14,'(PYSPLI:) caught in infinite loop') + MINT(51)=1 + RETURN + ENDIF + ELSEIF(NAGR.EQ.0) THEN + NTRY=0 + 150 NTRY=NTRY+1 + CALL PYKFDI(10000*KFL(ID1)+KFLSP,-KFLR,KFDUMP,KFLCH) + IF(KFLCH.EQ.0.AND.NTRY.LT.100) THEN + GOTO 150 + ELSEIF(KFLCH.EQ.0) THEN + CALL PYERRM(14,'(PYSPLI:) caught in infinite loop') + MINT(51)=1 + RETURN + ENDIF + KFLSP=KFL(IAGR) + ENDIF + ENDIF + +C...Add on correct sign for result. + KFLCH=KFLCH*KFS + KFLSP=KFLSP*KFS + + RETURN + END + +C********************************************************************* + +C...PYGAMM +C...Gives ordinary Gamma function Gamma(x) for positive, real arguments; +C...see M. Abramowitz, I. A. Stegun: Handbook of Mathematical Functions +C...(Dover, 1965) 6.1.36. + + FUNCTION PYGAMM(X) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Local array and data. + DIMENSION B(8) + DATA B/-0.577191652D0,0.988205891D0,-0.897056937D0,0.918206857D0, + &-0.756704078D0,0.482199394D0,-0.193527818D0,0.035868343D0/ + + NX=INT(X) + DX=X-NX + + PYGAMM=1D0 + DXP=1D0 + DO 100 I=1,8 + DXP=DXP*DX + PYGAMM=PYGAMM+B(I)*DXP + 100 CONTINUE + IF(X.LT.1D0) THEN + PYGAMM=PYGAMM/X + ELSE + DO 110 IX=1,NX-1 + PYGAMM=(X-IX)*PYGAMM + 110 CONTINUE + ENDIF + + RETURN + END + +C*********************************************************************** + +C...PYWAUX +C...Calculates real and imaginary parts of the auxiliary functions W1 +C...and W2; see R. K. Ellis, I. Hinchliffe, M. Soldate and J. J. van +C...der Bij, Nucl. Phys. B297 (1988) 221. + + SUBROUTINE PYWAUX(IAUX,EPS,WRE,WIM) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYDAT1/ + + ASINH(X)=LOG(X+SQRT(X**2+1D0)) + ACOSH(X)=LOG(X+SQRT(X**2-1D0)) + + IF(EPS.LT.0D0) THEN + IF(IAUX.EQ.1) WRE=2D0*SQRT(1D0-EPS)*ASINH(SQRT(-1D0/EPS)) + IF(IAUX.EQ.2) WRE=4D0*(ASINH(SQRT(-1D0/EPS)))**2 + WIM=0D0 + ELSEIF(EPS.LT.1D0) THEN + IF(IAUX.EQ.1) WRE=2D0*SQRT(1D0-EPS)*ACOSH(SQRT(1D0/EPS)) + IF(IAUX.EQ.2) WRE=4D0*(ACOSH(SQRT(1D0/EPS)))**2-PARU(1)**2 + IF(IAUX.EQ.1) WIM=-PARU(1)*SQRT(1D0-EPS) + IF(IAUX.EQ.2) WIM=-4D0*PARU(1)*ACOSH(SQRT(1D0/EPS)) + ELSE + IF(IAUX.EQ.1) WRE=2D0*SQRT(EPS-1D0)*ASIN(SQRT(1D0/EPS)) + IF(IAUX.EQ.2) WRE=-4D0*(ASIN(SQRT(1D0/EPS)))**2 + WIM=0D0 + ENDIF + + RETURN + END + +C*********************************************************************** + +C...PYI3AU +C...Calculates real and imaginary parts of the auxiliary function I3; +C...see R. K. Ellis, I. Hinchliffe, M. Soldate and J. J. van der Bij, +C...Nucl. Phys. B297 (1988) 221. + + SUBROUTINE PYI3AU(EPS,RAT,Y3RE,Y3IM) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYDAT1/ + + BE=0.5D0*(1D0+SQRT(1D0+RAT*EPS)) + IF(EPS.LT.1D0) GA=0.5D0*(1D0+SQRT(1D0-EPS)) + + IF(EPS.LT.0D0) THEN + IF(ABS(EPS).LT.1D-4.AND.ABS(RAT*EPS).LT.1D-4) THEN + F3RE=PYSPEN(-0.25D0*EPS/(1D0+0.25D0*(RAT-1D0)*EPS),0D0,1)- + & PYSPEN((1D0-0.25D0*EPS)/(1D0+0.25D0*(RAT-1D0)*EPS),0D0,1)+ + & PYSPEN(0.25D0*(RAT+1D0)*EPS/(1D0+0.25D0*RAT*EPS),0D0,1)- + & PYSPEN((RAT+1D0)/RAT,0D0,1)+0.5D0*(LOG(1D0+0.25D0*RAT*EPS)**2- + & LOG(0.25D0*RAT*EPS)**2)+LOG(1D0-0.25D0*EPS)* + & LOG((1D0+0.25D0*(RAT-1D0)*EPS)/(1D0+0.25D0*RAT*EPS))+ + & LOG(-0.25D0*EPS)*LOG(0.25D0*RAT*EPS/(1D0+0.25D0*(RAT-1D0)* + & EPS)) + ELSEIF(ABS(EPS).LT.1D-4.AND.ABS(RAT*EPS).GE.1D-4) THEN + F3RE=PYSPEN(-0.25D0*EPS/(BE-0.25D0*EPS),0D0,1)- + & PYSPEN((1D0-0.25D0*EPS)/(BE-0.25D0*EPS),0D0,1)+ + & PYSPEN((BE-1D0+0.25D0*EPS)/BE,0D0,1)- + & PYSPEN((BE-1D0+0.25D0*EPS)/(BE-1D0),0D0,1)+ + & 0.5D0*(LOG(BE)**2-LOG(BE-1D0)**2)+ + & LOG(1D0-0.25D0*EPS)*LOG((BE-0.25D0*EPS)/BE)+ + & LOG(-0.25D0*EPS)*LOG((BE-1D0)/(BE-0.25D0*EPS)) + ELSEIF(ABS(EPS).GE.1D-4.AND.ABS(RAT*EPS).LT.1D-4) THEN + F3RE=PYSPEN((GA-1D0)/(GA+0.25D0*RAT*EPS),0D0,1)- + & PYSPEN(GA/(GA+0.25D0*RAT*EPS),0D0,1)+ + & PYSPEN((1D0+0.25D0*RAT*EPS-GA)/(1D0+0.25D0*RAT*EPS),0D0,1)- + & PYSPEN((1D0+0.25D0*RAT*EPS-GA)/(0.25D0*RAT*EPS),0D0,1)+ + & 0.5D0*(LOG(1D0+0.25D0*RAT*EPS)**2-LOG(0.25D0*RAT*EPS)**2)+ + & LOG(GA)*LOG((GA+0.25D0*RAT*EPS)/(1D0+0.25D0*RAT*EPS))+ + & LOG(GA-1D0)*LOG(0.25D0*RAT*EPS/(GA+0.25D0*RAT*EPS)) + ELSE + F3RE=PYSPEN((GA-1D0)/(GA+BE-1D0),0D0,1)- + & PYSPEN(GA/(GA+BE-1D0),0D0,1)+PYSPEN((BE-GA)/BE,0D0,1)- + & PYSPEN((BE-GA)/(BE-1D0),0D0,1)+0.5D0*(LOG(BE)**2- + & LOG(BE-1D0)**2)+LOG(GA)*LOG((GA+BE-1D0)/BE)+ + & LOG(GA-1D0)*LOG((BE-1D0)/(GA+BE-1D0)) + ENDIF + F3IM=0D0 + ELSEIF(EPS.LT.1D0) THEN + IF(ABS(EPS).LT.1D-4.AND.ABS(RAT*EPS).LT.1D-4) THEN + F3RE=PYSPEN(-0.25D0*EPS/(1D0+0.25D0*(RAT-1D0)*EPS),0D0,1)- + & PYSPEN((1D0-0.25D0*EPS)/(1D0+0.25D0*(RAT-1D0)*EPS),0D0,1)+ + & PYSPEN((1D0-0.25D0*EPS)/(-0.25D0*(RAT+1D0)*EPS),0D0,1)- + & PYSPEN(1D0/(RAT+1D0),0D0,1)+LOG((1D0-0.25D0*EPS)/ + & (0.25D0*EPS))*LOG((1D0+0.25D0*(RAT-1D0)*EPS)/ + & (0.25D0*(RAT+1D0)*EPS)) + F3IM=-PARU(1)*LOG((1D0+0.25D0*(RAT-1D0)*EPS)/ + & (0.25D0*(RAT+1D0)*EPS)) + ELSEIF(ABS(EPS).LT.1D-4.AND.ABS(RAT*EPS).GE.1D-4) THEN + F3RE=PYSPEN(-0.25D0*EPS/(BE-0.25D0*EPS),0D0,1)- + & PYSPEN((1D0-0.25D0*EPS)/(BE-0.25D0*EPS),0D0,1)+ + & PYSPEN((1D0-0.25D0*EPS)/(1D0-0.25D0*EPS-BE),0D0,1)- + & PYSPEN(-0.25D0*EPS/(1D0-0.25D0*EPS-BE),0D0,1)+ + & LOG((1D0-0.25D0*EPS)/(0.25D0*EPS))* + & LOG((BE-0.25D0*EPS)/(BE-1D0+0.25D0*EPS)) + F3IM=-PARU(1)*LOG((BE-0.25D0*EPS)/(BE-1D0+0.25D0*EPS)) + ELSEIF(ABS(EPS).GE.1D-4.AND.ABS(RAT*EPS).LT.1D-4) THEN + F3RE=PYSPEN((GA-1D0)/(GA+0.25D0*RAT*EPS),0D0,1)- + & PYSPEN(GA/(GA+0.25D0*RAT*EPS),0D0,1)+ + & PYSPEN(GA/(GA-1D0-0.25D0*RAT*EPS),0D0,1)- + & PYSPEN((GA-1D0)/(GA-1D0-0.25D0*RAT*EPS),0D0,1)+ + & LOG(GA/(1D0-GA))*LOG((GA+0.25D0*RAT*EPS)/ + & (1D0+0.25D0*RAT*EPS-GA)) + F3IM=-PARU(1)*LOG((GA+0.25D0*RAT*EPS)/ + & (1D0+0.25D0*RAT*EPS-GA)) + ELSE + F3RE=PYSPEN((GA-1D0)/(GA+BE-1D0),0D0,1)- + & PYSPEN(GA/(GA+BE-1D0),0D0,1)+PYSPEN(GA/(GA-BE),0D0,1)- + & PYSPEN((GA-1D0)/(GA-BE),0D0,1)+LOG(GA/(1D0-GA))* + & LOG((GA+BE-1D0)/(BE-GA)) + F3IM=-PARU(1)*LOG((GA+BE-1D0)/(BE-GA)) + ENDIF + ELSE + RSQ=EPS/(EPS-1D0+(2D0*BE-1D0)**2) + RCTHE=RSQ*(1D0-2D0*BE/EPS) + RSTHE=SQRT(MAX(0D0,RSQ-RCTHE**2)) + RCPHI=RSQ*(1D0+2D0*(BE-1D0)/EPS) + RSPHI=SQRT(MAX(0D0,RSQ-RCPHI**2)) + R=SQRT(RSQ) + THE=ACOS(MAX(-0.999999D0,MIN(0.999999D0,RCTHE/R))) + PHI=ACOS(MAX(-0.999999D0,MIN(0.999999D0,RCPHI/R))) + F3RE=PYSPEN(RCTHE,RSTHE,1)+PYSPEN(RCTHE,-RSTHE,1)- + & PYSPEN(RCPHI,RSPHI,1)-PYSPEN(RCPHI,-RSPHI,1)+ + & (PHI-THE)*(PHI+THE-PARU(1)) + F3IM=PYSPEN(RCTHE,RSTHE,2)+PYSPEN(RCTHE,-RSTHE,2)- + & PYSPEN(RCPHI,RSPHI,2)-PYSPEN(RCPHI,-RSPHI,2) + ENDIF + + Y3RE=2D0/(2D0*BE-1D0)*F3RE + Y3IM=2D0/(2D0*BE-1D0)*F3IM + + RETURN + END + +C*********************************************************************** + +C...PYSPEN +C...Calculates real and imaginary part of Spence function; see +C...G. 't Hooft and M. Veltman, Nucl. Phys. B153 (1979) 365. + + FUNCTION PYSPEN(XREIN,XIMIN,IREIM) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYDAT1/ +C...Local array and data. + DIMENSION B(0:14) + DATA B/ + &1.000000D+00, -5.000000D-01, 1.666667D-01, + &0.000000D+00, -3.333333D-02, 0.000000D+00, + &2.380952D-02, 0.000000D+00, -3.333333D-02, + &0.000000D+00, 7.575757D-02, 0.000000D+00, + &-2.531135D-01, 0.000000D+00, 1.166667D+00/ + + XRE=XREIN + XIM=XIMIN + IF(ABS(1D0-XRE).LT.1D-6.AND.ABS(XIM).LT.1D-6) THEN + IF(IREIM.EQ.1) PYSPEN=PARU(1)**2/6D0 + IF(IREIM.EQ.2) PYSPEN=0D0 + RETURN + ENDIF + + XMOD=SQRT(XRE**2+XIM**2) + IF(XMOD.LT.1D-6) THEN + IF(IREIM.EQ.1) PYSPEN=0D0 + IF(IREIM.EQ.2) PYSPEN=0D0 + RETURN + ENDIF + + XARG=SIGN(ACOS(XRE/XMOD),XIM) + SP0RE=0D0 + SP0IM=0D0 + SGN=1D0 + IF(XMOD.GT.1D0) THEN + ALGXRE=LOG(XMOD) + ALGXIM=XARG-SIGN(PARU(1),XARG) + SP0RE=-PARU(1)**2/6D0-(ALGXRE**2-ALGXIM**2)/2D0 + SP0IM=-ALGXRE*ALGXIM + SGN=-1D0 + XMOD=1D0/XMOD + XARG=-XARG + XRE=XMOD*COS(XARG) + XIM=XMOD*SIN(XARG) + ENDIF + IF(XRE.GT.0.5D0) THEN + ALGXRE=LOG(XMOD) + ALGXIM=XARG + XRE=1D0-XRE + XIM=-XIM + XMOD=SQRT(XRE**2+XIM**2) + XARG=SIGN(ACOS(XRE/XMOD),XIM) + ALGYRE=LOG(XMOD) + ALGYIM=XARG + SP0RE=SP0RE+SGN*(PARU(1)**2/6D0-(ALGXRE*ALGYRE-ALGXIM*ALGYIM)) + SP0IM=SP0IM-SGN*(ALGXRE*ALGYIM+ALGXIM*ALGYRE) + SGN=-SGN + ENDIF + + XRE=1D0-XRE + XIM=-XIM + XMOD=SQRT(XRE**2+XIM**2) + XARG=SIGN(ACOS(XRE/XMOD),XIM) + ZRE=-LOG(XMOD) + ZIM=-XARG + + SPRE=0D0 + SPIM=0D0 + SAVERE=1D0 + SAVEIM=0D0 + DO 100 I=0,14 + IF(MAX(ABS(SAVERE),ABS(SAVEIM)).LT.1D-30) GOTO 110 + TERMRE=(SAVERE*ZRE-SAVEIM*ZIM)/DBLE(I+1) + TERMIM=(SAVERE*ZIM+SAVEIM*ZRE)/DBLE(I+1) + SAVERE=TERMRE + SAVEIM=TERMIM + SPRE=SPRE+B(I)*TERMRE + SPIM=SPIM+B(I)*TERMIM + 100 CONTINUE + + 110 IF(IREIM.EQ.1) PYSPEN=SP0RE+SGN*SPRE + IF(IREIM.EQ.2) PYSPEN=SP0IM+SGN*SPIM + + RETURN + END + +C*********************************************************************** + +C...PYQQBH +C...Calculates the matrix element for the processes +C...g + g or q + qbar -> Q + Qbar + H (normally with Q = t). +C...REDUCE output and part of the rest courtesy Z. Kunszt, see +C...Z. Kunszt, Nucl. Phys. B247 (1984) 339. + + SUBROUTINE PYQQBH(WTQQBH) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + SAVE /PYDAT1/,/PYDAT2/,/PYPARS/,/PYINT1/,/PYINT2/ +C...Local arrays and function. + DIMENSION PP(15,4),CLR(8,8),FM(10,10),RM(8,8),DX(8) + DOT(I,J)=PP(I,4)*PP(J,4)-PP(I,1)*PP(J,1)-PP(I,2)*PP(J,2)- + &PP(I,3)*PP(J,3) + +C...Mass parameters. + WTQQBH=0D0 + ISUB=MINT(1) + SHPR=SQRT(VINT(26))*VINT(1) + PQ=PMAS(PYCOMP(KFPR(ISUB,2)),1) + PH=SQRT(VINT(21))*VINT(1) + SPQ=PQ**2 + SPH=PH**2 + +C...Set up outgoing kinematics: 1=t, 2=tbar, 3=H. + DO 100 I=1,2 + PT=SQRT(MAX(0D0,VINT(197+5*I))) + PP(I,1)=PT*COS(VINT(198+5*I)) + PP(I,2)=PT*SIN(VINT(198+5*I)) + 100 CONTINUE + PP(3,1)=-PP(1,1)-PP(2,1) + PP(3,2)=-PP(1,2)-PP(2,2) + PMS1=SPQ+PP(1,1)**2+PP(1,2)**2 + PMS2=SPQ+PP(2,1)**2+PP(2,2)**2 + PMS3=SPH+PP(3,1)**2+PP(3,2)**2 + PMT3=SQRT(PMS3) + PP(3,3)=PMT3*SINH(VINT(211)) + PP(3,4)=PMT3*COSH(VINT(211)) + PMS12=(SHPR-PP(3,4))**2-PP(3,3)**2 + PP(1,3)=(-PP(3,3)*(PMS12+PMS1-PMS2)+ + &VINT(213)*(SHPR-PP(3,4))*VINT(220))/(2D0*PMS12) + PP(2,3)=-PP(1,3)-PP(3,3) + PP(1,4)=SQRT(PMS1+PP(1,3)**2) + PP(2,4)=SQRT(PMS2+PP(2,3)**2) + +C...Set up incoming kinematics and derived momentum combinations. + DO 110 I=4,5 + PP(I,1)=0D0 + PP(I,2)=0D0 + PP(I,3)=-0.5D0*SHPR*(-1)**I + PP(I,4)=-0.5D0*SHPR + 110 CONTINUE + DO 120 J=1,4 + PP(6,J)=PP(1,J)+PP(2,J) + PP(7,J)=PP(1,J)+PP(3,J) + PP(8,J)=PP(1,J)+PP(4,J) + PP(9,J)=PP(1,J)+PP(5,J) + PP(10,J)=-PP(2,J)-PP(3,J) + PP(11,J)=-PP(2,J)-PP(4,J) + PP(12,J)=-PP(2,J)-PP(5,J) + PP(13,J)=-PP(4,J)-PP(5,J) + 120 CONTINUE + +C...Derived kinematics invariants. + X1=DOT(1,2) + X2=DOT(1,3) + X3=DOT(1,4) + X4=DOT(1,5) + X5=DOT(2,3) + X6=DOT(2,4) + X7=DOT(2,5) + X8=DOT(3,4) + X9=DOT(3,5) + X10=DOT(4,5) + +C...Propagators. + SS1=DOT(7,7)-SPQ + SS2=DOT(8,8)-SPQ + SS3=DOT(9,9)-SPQ + SS4=DOT(10,10)-SPQ + SS5=DOT(11,11)-SPQ + SS6=DOT(12,12)-SPQ + SS7=DOT(13,13) + DX(1)=SS1*SS6 + DX(2)=SS2*SS6 + DX(3)=SS2*SS4 + DX(4)=SS1*SS5 + DX(5)=SS3*SS5 + DX(6)=SS3*SS4 + DX(7)=SS7*SS1 + DX(8)=SS7*SS4 + +C...Define colour coefficients for g + g -> Q + Qbar + H. + IF(ISUB.EQ.121.OR.ISUB.EQ.181.OR.ISUB.EQ.186) THEN + DO 140 I=1,3 + DO 130 J=1,3 + CLR(I,J)=16D0/3D0 + CLR(I+3,J+3)=16D0/3D0 + CLR(I,J+3)=-2D0/3D0 + CLR(I+3,J)=-2D0/3D0 + 130 CONTINUE + 140 CONTINUE + DO 160 L=1,2 + DO 150 I=1,3 + CLR(I,6+L)=-6D0 + CLR(I+3,6+L)=6D0 + CLR(6+L,I)=-6D0 + CLR(6+L,I+3)=6D0 + 150 CONTINUE + 160 CONTINUE + DO 180 K1=1,2 + DO 170 K2=1,2 + CLR(6+K1,6+K2)=12D0 + 170 CONTINUE + 180 CONTINUE + +C...Evaluate matrix elements for g + g -> Q + Qbar + H. + FM(1,1)=64*PQ**6+16*PQ**4*PH**2+32*PQ**4*(X1+2*X2+X4+X9+2* + & X7+X5)+8*PQ**2*PH**2*(-X1-X4+2*X7)+16*PQ**2*(X2*X9+4*X2* + & X7+X2*X5-2*X4*X7-2*X9*X7)+8*PH**2*X4*X7-16*X2*X9*X7 + FM(1,2)=16*PQ**6+8*PQ**4*(-2*X1+X2-2*X3-2*X4-4*X10+X9-X8+2 + & *X7-4*X6+X5)+8*PQ**2*(-2*X1*X2-2*X2*X4-2*X2*X10+X2*X7-2* + & X2*X6-2*X3*X7+2*X4*X7+4*X10*X7-X9*X7-X8*X7)+16*X2*X7*(X4+ + & X10) + FM(1,3)=16*PQ**6-4*PQ**4*PH**2+8*PQ**4*(-2*X1+2*X2-2*X3-4* + & X4-8*X10+X9+X8-2*X7-4*X6+2*X5)-(4*PQ**2*PH**2)*(X1+X4+X10 + & +X6)+8*PQ**2*(-2*X1*X2-2*X1*X10+X1*X9+X1*X8-2*X1*X5+X2**2 + & -4*X2*X4-5*X2*X10+X2*X8-X2*X7-3*X2*X6+X2*X5+X3*X9+2*X3*X7 + & -X3*X5+X4*X8+2*X4*X6-3*X4*X5-5*X10*X5+X9*X8+X9*X6+X9*X5+ + & X8*X7-4*X6*X5+X5**2)-(16*X2*X5)*(X1+X4+X10+X6) + FM(1,4)=16*PQ**6+4*PQ**4*PH**2+16*PQ**4*(-X1+X2-X3-X4+X10- + & X9-X8+2*X7+2*X6-X5)+4*PQ**2*PH**2*(X1+X3+X4+X10+2*X7+2*X6 + & )+8*PQ**2*(4*X1*X10+4*X1*X7+4*X1*X6+2*X2*X10-X2*X9-X2*X8+ + & 4*X2*X7+4*X2*X6-X2*X5+4*X10*X5+4*X7*X5+4*X6*X5)-(8*PH**2* + & X1)*(X10+X7+X6)+16*X2*X5*(X10+X7+X6) + FM(1,5)=8*PQ**4*(-2*X1-2*X4+X10-X9)+4*PQ**2*(4*X1**2-2*X1* + & X2+8*X1*X3+6*X1*X10-2*X1*X9+4*X1*X8+4*X1*X7+4*X1*X6+2*X1* + & X5+X2*X10+4*X3*X4-X3*X9+2*X3*X7+3*X4*X8-2*X4*X6+2*X4*X5-4 + & *X10*X7+3*X10*X5-3*X9*X6+3*X8*X7-4*X7**2+4*X7*X5)+8*(X1** + & 2*X9-X1**2*X8-X1*X2*X7+X1*X2*X6+X1*X3*X9+X1*X3*X5-X1*X4* + & X8-X1*X4*X5+X1*X10*X9+X1*X9*X7+X1*X9*X6-X1*X8*X7-X2*X3*X7 + & +X2*X4*X6-X2*X10*X7-X2*X7**2+X3*X7*X5-X4*X10*X5-X4*X7*X5- + & X4*X6*X5) + FM(1,6)=16*PQ**4*(-4*X1-X4+X9-X7)+4*PQ**2*PH**2*(-2*X1-X4- + & X7)+16*PQ**2*(-2*X1**2-3*X1*X2-2*X1*X4-3*X1*X9-2*X1*X7-3* + & X1*X5-2*X2*X4-2*X7*X5)-8*PH**2*X4*X7+8*(-X1*X2*X9-2*X1*X2 + & *X5-X1*X9**2-X1*X9*X5+X2**2*X7-X2*X4*X5+X2*X9*X7-X2*X7*X5 + & +X4*X9*X5+X4*X5**2) + FM(1,7)=8*PQ**4*(2*X3+X4+3*X10+X9+2*X8+3*X7+6*X6)+2*PQ**2* + & PH**2*(-2*X3-X4+3*X10+3*X7+6*X6)+4*PQ**2*(4*X1*X10+4*X1* + & X7+8*X1*X6+6*X2*X10+X2*X9+2*X2*X8+6*X2*X7+12*X2*X6-8*X3* + & X7+4*X4*X7+4*X4*X6+4*X10*X5+4*X9*X7+4*X9*X6-8*X8*X7+4*X7* + & X5+8*X6*X5)+4*PH**2*(-X1*X10-X1*X7-2*X1*X6+2*X3*X7-X4*X7- + & X4*X6)+8*X2*(X10*X5+X9*X7+X9*X6-2*X8*X7+X7*X5+2*X6*X5) + FM(1,8)=8*PQ**4*(2*X3+X4+3*X10+2*X9+X8+3*X7+6*X6)+2*PQ**2* + & PH**2*(-2*X3-X4+2*X10+X7+2*X6)+4*PQ**2*(4*X1*X10-2*X1*X9+ + & 2*X1*X8+4*X1*X7+8*X1*X6+5*X2*X10+2*X2*X9+X2*X8+4*X2*X7+8* + & X2*X6-X3*X9-8*X3*X7+2*X3*X5+2*X4*X9-X4*X8+4*X4*X7+4*X4*X6 + & +4*X4*X5+5*X10*X5+X9**2-X9*X8+2*X9*X7+5*X9*X6+X9*X5-7*X8* + & X7+2*X8*X5+2*X7*X5+10*X6*X5)+2*PH**2*(-X1*X10+X3*X7-2*X4* + & X7+X4*X6)+4*(-X1*X9**2+X1*X9*X8-2*X1*X9*X5-X1*X8*X5+2*X2* + & X10*X5+X2*X9*X7+X2*X9*X6-2*X2*X8*X7+3*X2*X6*X5+X3*X9*X5+ + & X3*X5**2+X4*X9*X5-2*X4*X8*X5+2*X4*X5**2) + FM(2,2)=16*PQ**6+16*PQ**4*(-X1+X3-X4-X10+X7-X6)+16*PQ**2*( + & X3*X10+X3*X7+X3*X6+X4*X7+X10*X7)-16*X3*X10*X7 + FM(2,3)=16*PQ**6+8*PQ**4*(-2*X1+X2+2*X3-4*X4-4*X10-X9+X8-2 + & *X7-2*X6+X5)+8*PQ**2*(-2*X1*X5+4*X3*X10-X3*X9-X3*X8-2*X3* + & X7+2*X3*X6+X3*X5-2*X4*X5-2*X10*X5-2*X6*X5)+16*X3*X5*(X10+ + & X6) + FM(2,4)=8*PQ**4*(-2*X1-2*X3+X10-X8)+4*PQ**2*(4*X1**2-2*X1* + & X2+8*X1*X4+6*X1*X10+4*X1*X9-2*X1*X8+4*X1*X7+4*X1*X6+2*X1* + & X5+X2*X10+4*X3*X4+3*X3*X9-2*X3*X7+2*X3*X5-X4*X8+2*X4*X6-4 + & *X10*X6+3*X10*X5+3*X9*X6-3*X8*X7-4*X6**2+4*X6*X5)+8*(-X1 + & **2*X9+X1**2*X8+X1*X2*X7-X1*X2*X6-X1*X3*X9-X1*X3*X5+X1*X4 + & *X8+X1*X4*X5+X1*X10*X8-X1*X9*X6+X1*X8*X7+X1*X8*X6+X2*X3* + & X7-X2*X4*X6-X2*X10*X6-X2*X6**2-X3*X10*X5-X3*X7*X5-X3*X6* + & X5+X4*X6*X5) + FM(2,5)=16*PQ**4*X10+8*PQ**2*(2*X1**2+2*X1*X3+2*X1*X4+2*X1 + & *X10+2*X1*X7+2*X1*X6+X3*X7+X4*X6)+8*(-2*X1**3-2*X1**2*X3- + & 2*X1**2*X4-2*X1**2*X10-2*X1**2*X7-2*X1**2*X6-2*X1*X3*X4- + & X1*X3*X10-2*X1*X3*X6-X1*X4*X10-2*X1*X4*X7-X1*X10**2-X1* + & X10*X7-X1*X10*X6-2*X1*X7*X6+X3**2*X7-X3*X4*X7-X3*X4*X6+X3 + & *X10*X7+X3*X7**2-X3*X7*X6+X4**2*X6+X4*X10*X6-X4*X7*X6+X4* + & X6**2) + FM(2,6)=8*PQ**4*(-2*X1+X10-X9-2*X7)+4*PQ**2*(4*X1**2+2*X1* + & X2+4*X1*X3+4*X1*X4+6*X1*X10-2*X1*X9+4*X1*X8+8*X1*X6-2*X1* + & X5+4*X2*X4+3*X2*X10+2*X2*X7-3*X3*X9-2*X3*X7-4*X4**2-4*X4* + & X10+3*X4*X8+2*X4*X6+X10*X5-X9*X6+3*X8*X7+4*X7*X6)+8*(X1** + & 2*X9-X1**2*X8-X1*X2*X7+X1*X2*X6+X1*X3*X9+X1*X3*X5+X1*X4* + & X9-X1*X4*X8-X1*X4*X5+X1*X10*X9+X1*X9*X6-X1*X8*X7-X2*X3*X7 + & -X2*X4*X7+X2*X4*X6-X2*X10*X7+X3*X7*X5-X4**2*X5-X4*X10*X5- + & X4*X6*X5) + FM(2,7)=8*PQ**4*(X3+2*X4+3*X10+X7+2*X6)+4*PQ**2*(-4*X1*X3- + & 2*X1*X4-2*X1*X10+X1*X9-X1*X8-4*X1*X7-2*X1*X6+X2*X3+2*X2* + & X4+3*X2*X10+X2*X7+2*X2*X6-6*X3*X4-6*X3*X10-2*X3*X9-2*X3* + & X7-4*X3*X6-X3*X5-6*X4**2-6*X4*X10-3*X4*X9-X4*X8-4*X4*X7-2 + & *X4*X6-2*X4*X5-3*X10*X9-3*X10*X8-6*X10*X7-6*X10*X6+X10*X5 + & +X9*X7-2*X8*X7-2*X8*X6-6*X7*X6+X7*X5-6*X6**2+2*X6*X5)+4*( + & -X1**2*X9+X1**2*X8-2*X1*X2*X10-3*X1*X2*X7-3*X1*X2*X6+X1* + & X3*X9-X1*X3*X5+X1*X4*X9+X1*X4*X8+X1*X4*X5+X1*X10*X9+X1* + & X10*X8-X1*X9*X6+X1*X8*X6+X2*X3*X7-3*X2*X4*X7-X2*X4*X6-3* + & X2*X10*X7-3*X2*X10*X6-3*X2*X7*X6-3*X2*X6**2-2*X3*X4*X5-X3 + & *X10*X5-X3*X6*X5-X4**2*X5-X4*X10*X5+X4*X6*X5) + FM(2,8)=8*PQ**4*(X3+2*X4+3*X10+X7+2*X6)+4*PQ**2*(-4*X1*X3- + & 2*X1*X4-2*X1*X10-X1*X9+X1*X8-4*X1*X7-2*X1*X6+X2*X3+2*X2* + & X4+X2*X10-X2*X7-2*X2*X6-6*X3*X4-6*X3*X10-2*X3*X9+X3*X8-2* + & X3*X7-4*X3*X6+X3*X5-6*X4**2-6*X4*X10-2*X4*X9-4*X4*X7-2*X4 + & *X6+2*X4*X5-3*X10*X9-3*X10*X8-6*X10*X7-6*X10*X6+3*X10*X5- + & X9*X6-2*X8*X7-3*X8*X6-6*X7*X6+X7*X5-6*X6**2+2*X6*X5)+4*( + & X1**2*X9-X1**2*X8-X1*X2*X7+X1*X2*X6-3*X1*X3*X5+X1*X4*X9- + & X1*X4*X8-3*X1*X4*X5+X1*X10*X9+X1*X10*X8-2*X1*X10*X5+X1*X9 + & *X6+X1*X8*X7+X1*X8*X6-X2*X4*X7+X2*X4*X6-X2*X10*X7-X2*X10* + & X6-2*X2*X7*X6-X2*X6**2-3*X3*X4*X5-3*X3*X10*X5+X3*X7*X5-3* + & X3*X6*X5-3*X4**2*X5-3*X4*X10*X5-X4*X6*X5) + FM(3,3)=64*PQ**6+16*PQ**4*PH**2+32*PQ**4*(X1+X2+2*X3+X8+X6 + & +2*X5)+8*PQ**2*PH**2*(-X1+2*X3-X6)+16*PQ**2*(X2*X5-2*X3* + & X8-2*X3*X6+4*X3*X5+X8*X5)+8*PH**2*X3*X6-16*X3*X8*X5 + FM(3,4)=16*PQ**4*(-4*X1-X3+X8-X6)+4*PQ**2*PH**2*(-2*X1-X3- + & X6)+16*PQ**2*(-2*X1**2-3*X1*X2-2*X1*X3-3*X1*X8-2*X1*X6-3* + & X1*X5-2*X2*X3-2*X6*X5)-8*PH**2*X3*X6+8*(-X1*X2*X8-2*X1*X2 + & *X5-X1*X8**2-X1*X8*X5+X2**2*X6-X2*X3*X5+X2*X8*X6-X2*X6*X5 + & +X3*X8*X5+X3*X5**2) + FM(3,5)=8*PQ**4*(-2*X1+X10-X8-2*X6)+4*PQ**2*(4*X1**2+2*X1* + & X2+4*X1*X3+4*X1*X4+6*X1*X10+4*X1*X9-2*X1*X8+8*X1*X7-2*X1* + & X5+4*X2*X3+3*X2*X10+2*X2*X6-4*X3**2-4*X3*X10+3*X3*X9+2*X3 + & *X7-3*X4*X8-2*X4*X6+X10*X5+3*X9*X6-X8*X7+4*X7*X6)+8*(-X1 + & **2*X9+X1**2*X8+X1*X2*X7-X1*X2*X6-X1*X3*X9+X1*X3*X8-X1*X3 + & *X5+X1*X4*X8+X1*X4*X5+X1*X10*X8-X1*X9*X6+X1*X8*X7+X2*X3* + & X7-X2*X3*X6-X2*X4*X6-X2*X10*X6-X3**2*X5-X3*X10*X5-X3*X7* + & X5+X4*X6*X5) + FM(3,6)=16*PQ**6+4*PQ**4*PH**2+16*PQ**4*(-X1-X2+2*X3+2*X4+ + & X10-X9-X8-X7-X6+X5)+4*PQ**2*PH**2*(X1+2*X3+2*X4+X10+X7+X6 + & )+8*PQ**2*(4*X1*X3+4*X1*X4+4*X1*X10+4*X2*X3+4*X2*X4+4*X2* + & X10-X2*X5+4*X3*X5+4*X4*X5+2*X10*X5-X9*X5-X8*X5)-(8*PH**2* + & X1)*(X3+X4+X10)+16*X2*X5*(X3+X4+X10) + FM(3,7)=8*PQ**4*(3*X3+6*X4+3*X10+X9+2*X8+2*X7+X6)+2*PQ**2* + & PH**2*(X3+2*X4+2*X10-2*X7-X6)+4*PQ**2*(4*X1*X3+8*X1*X4+4* + & X1*X10+2*X1*X9-2*X1*X8+2*X2*X3+10*X2*X4+5*X2*X10+2*X2*X9+ + & X2*X8+2*X2*X7+4*X2*X6-7*X3*X9+2*X3*X8-8*X3*X7+4*X3*X6+4* + & X3*X5+5*X4*X8+4*X4*X6+8*X4*X5+5*X10*X5-X9*X8-X9*X6+X9*X5+ + & X8**2-X8*X7+2*X8*X6+2*X8*X5)+2*PH**2*(-X1*X10+X3*X7-2*X3* + & X6+X4*X6)+4*(-X1*X2*X9-2*X1*X2*X8+X1*X9*X8-X1*X8**2+X2**2 + & *X7+2*X2**2*X6+3*X2*X4*X5+2*X2*X10*X5-2*X2*X9*X6+X2*X8*X7 + & +X2*X8*X6-2*X3*X9*X5+X3*X8*X5+X4*X8*X5) + FM(3,8)=8*PQ**4*(3*X3+6*X4+3*X10+2*X9+X8+2*X7+X6)+2*PQ**2* + & PH**2*(3*X3+6*X4+3*X10-2*X7-X6)+4*PQ**2*(4*X1*X3+8*X1*X4+ + & 4*X1*X10+4*X2*X3+8*X2*X4+4*X2*X10-8*X3*X9+4*X3*X8-8*X3*X7 + & +4*X3*X6+6*X3*X5+4*X4*X8+4*X4*X6+12*X4*X5+6*X10*X5+2*X9* + & X5+X8*X5)+4*PH**2*(-X1*X3-2*X1*X4-X1*X10+2*X3*X7-X3*X6-X4 + & *X6)+8*X5*(X2*X3+2*X2*X4+X2*X10-2*X3*X9+X3*X8+X4*X8) + FM(4,4)=64*PQ**6+16*PQ**4*PH**2+32*PQ**4*(X1+2*X2+X3+X8+2* + & X6+X5)+8*PQ**2*PH**2*(-X1-X3+2*X6)+16*PQ**2*(X2*X8+4*X2* + & X6+X2*X5-2*X3*X6-2*X8*X6)+8*PH**2*X3*X6-16*X2*X8*X6 + FM(4,5)=16*PQ**6+8*PQ**4*(-2*X1+X2-2*X3-2*X4-4*X10-X9+X8-4 + & *X7+2*X6+X5)+8*PQ**2*(-2*X1*X2-2*X2*X3-2*X2*X10-2*X2*X7+ + & X2*X6+2*X3*X6-2*X4*X6+4*X10*X6-X9*X6-X8*X6)+16*X2*X6*(X3+ + & X10) + FM(4,6)=16*PQ**6-4*PQ**4*PH**2+8*PQ**4*(-2*X1+2*X2-4*X3-2* + & X4-8*X10+X9+X8-4*X7-2*X6+2*X5)-(4*PQ**2*PH**2)*(X1+X3+X10 + & +X7)+8*PQ**2*(-2*X1*X2-2*X1*X10+X1*X9+X1*X8-2*X1*X5+X2**2 + & -4*X2*X3-5*X2*X10+X2*X9-3*X2*X7-X2*X6+X2*X5+X3*X9+2*X3*X7 + & -3*X3*X5+X4*X8+2*X4*X6-X4*X5-5*X10*X5+X9*X8+X9*X6+X8*X7+ + & X8*X5-4*X7*X5+X5**2)-(16*X2*X5)*(X1+X3+X10+X7) + FM(4,7)=8*PQ**4*(-X3-2*X4-3*X10-2*X9-X8-6*X7-3*X6)+2*PQ**2 + & *PH**2*(X3+2*X4-3*X10-6*X7-3*X6)+4*PQ**2*(-4*X1*X10-8*X1* + & X7-4*X1*X6-6*X2*X10-2*X2*X9-X2*X8-12*X2*X7-6*X2*X6-4*X3* + & X7-4*X3*X6+8*X4*X6-4*X10*X5+8*X9*X6-4*X8*X7-4*X8*X6-8*X7* + & X5-4*X6*X5)+4*PH**2*(X1*X10+2*X1*X7+X1*X6+X3*X7+X3*X6-2* + & X4*X6)+8*X2*(-X10*X5+2*X9*X6-X8*X7-X8*X6-2*X7*X5-X6*X5) + FM(4,8)=8*PQ**4*(-X3-2*X4-3*X10-X9-2*X8-6*X7-3*X6)+2*PQ**2 + & *PH**2*(X3+2*X4-2*X10-2*X7-X6)+4*PQ**2*(-4*X1*X10-2*X1*X9 + & +2*X1*X8-8*X1*X7-4*X1*X6-5*X2*X10-X2*X9-2*X2*X8-8*X2*X7-4 + & *X2*X6+X3*X9-2*X3*X8-4*X3*X7-4*X3*X6-4*X3*X5+X4*X8+8*X4* + & X6-2*X4*X5-5*X10*X5+X9*X8+7*X9*X6-2*X9*X5-X8**2-5*X8*X7-2 + & *X8*X6-X8*X5-10*X7*X5-2*X6*X5)+2*PH**2*(X1*X10-X3*X7+2*X3 + & *X6-X4*X6)+4*(-X1*X9*X8+X1*X9*X5+X1*X8**2+2*X1*X8*X5-2*X2 + & *X10*X5+2*X2*X9*X6-X2*X8*X7-X2*X8*X6-3*X2*X7*X5+2*X3*X9* + & X5-X3*X8*X5-2*X3*X5**2-X4*X8*X5-X4*X5**2) + FM(5,5)=16*PQ**6+16*PQ**4*(-X1-X3+X4-X10-X7+X6)+16*PQ**2*( + & X3*X6+X4*X10+X4*X7+X4*X6+X10*X6)-16*X4*X10*X6 + FM(5,6)=16*PQ**6+8*PQ**4*(-2*X1+X2-4*X3+2*X4-4*X10+X9-X8-2 + & *X7-2*X6+X5)+8*PQ**2*(-2*X1*X5-2*X3*X5+4*X4*X10-X4*X9-X4* + & X8+2*X4*X7-2*X4*X6+X4*X5-2*X10*X5-2*X7*X5)+16*X4*X5*(X10+ + & X7) + FM(5,7)=8*PQ**4*(-2*X3-X4-3*X10-2*X7-X6)+4*PQ**2*(2*X1*X3+ + & 4*X1*X4+2*X1*X10+X1*X9-X1*X8+2*X1*X7+4*X1*X6-2*X2*X3-X2* + & X4-3*X2*X10-2*X2*X7-X2*X6+6*X3**2+6*X3*X4+6*X3*X10+X3*X9+ + & 3*X3*X8+2*X3*X7+4*X3*X6+2*X3*X5+6*X4*X10+2*X4*X8+4*X4*X7+ + & 2*X4*X6+X4*X5+3*X10*X9+3*X10*X8+6*X10*X7+6*X10*X6-X10*X5+ + & 2*X9*X7+2*X9*X6-X8*X6+6*X7**2+6*X7*X6-2*X7*X5-X6*X5)+4*(- + & X1**2*X9+X1**2*X8+2*X1*X2*X10+3*X1*X2*X7+3*X1*X2*X6-X1*X3 + & *X9-X1*X3*X8-X1*X3*X5-X1*X4*X8+X1*X4*X5-X1*X10*X9-X1*X10* + & X8-X1*X9*X7+X1*X8*X7+X2*X3*X7+3*X2*X3*X6-X2*X4*X6+3*X2* + & X10*X7+3*X2*X10*X6+3*X2*X7**2+3*X2*X7*X6+X3**2*X5+2*X3*X4 + & *X5+X3*X10*X5-X3*X7*X5+X4*X10*X5+X4*X7*X5) + FM(5,8)=8*PQ**4*(-2*X3-X4-3*X10-2*X7-X6)+4*PQ**2*(2*X1*X3+ + & 4*X1*X4+2*X1*X10-X1*X9+X1*X8+2*X1*X7+4*X1*X6-2*X2*X3-X2* + & X4-X2*X10+2*X2*X7+X2*X6+6*X3**2+6*X3*X4+6*X3*X10+2*X3*X8+ + & 2*X3*X7+4*X3*X6-2*X3*X5+6*X4*X10-X4*X9+2*X4*X8+4*X4*X7+2* + & X4*X6-X4*X5+3*X10*X9+3*X10*X8+6*X10*X7+6*X10*X6-3*X10*X5+ + & 3*X9*X7+2*X9*X6+X8*X7+6*X7**2+6*X7*X6-2*X7*X5-X6*X5)+4*( + & X1**2*X9-X1**2*X8-X1*X2*X7+X1*X2*X6+X1*X3*X9-X1*X3*X8+3* + & X1*X3*X5+3*X1*X4*X5-X1*X10*X9-X1*X10*X8+2*X1*X10*X5-X1*X9 + & *X7-X1*X9*X6-X1*X8*X7-X2*X3*X7+X2*X3*X6+X2*X10*X7+X2*X10* + & X6+X2*X7**2+2*X2*X7*X6+3*X3**2*X5+3*X3*X4*X5+3*X3*X10*X5+ + & X3*X7*X5+3*X4*X10*X5+3*X4*X7*X5-X4*X6*X5) + FM(6,6)=64*PQ**6+16*PQ**4*PH**2+32*PQ**4*(X1+X2+2*X4+X9+X7 + & +2*X5)+8*PQ**2*PH**2*(-X1+2*X4-X7)+16*PQ**2*(X2*X5-2*X4* + & X9-2*X4*X7+4*X4*X5+X9*X5)+8*PH**2*X4*X7-16*X4*X9*X5 + FM(6,7)=8*PQ**4*(-6*X3-3*X4-3*X10-2*X9-X8-X7-2*X6)+2*PQ**2 + & *PH**2*(-2*X3-X4-2*X10+X7+2*X6)+4*PQ**2*(-8*X1*X3-4*X1*X4 + & -4*X1*X10+2*X1*X9-2*X1*X8-10*X2*X3-2*X2*X4-5*X2*X10-X2*X9 + & -2*X2*X8-4*X2*X7-2*X2*X6-5*X3*X9-4*X3*X7-8*X3*X5-2*X4*X9+ + & 7*X4*X8-4*X4*X7+8*X4*X6-4*X4*X5-5*X10*X5-X9**2+X9*X8-2*X9 + & *X7+X9*X6-2*X9*X5+X8*X7-X8*X5)+2*PH**2*(X1*X10-X3*X7+2*X4 + & *X7-X4*X6)+4*(2*X1*X2*X9+X1*X2*X8+X1*X9**2-X1*X9*X8-2*X2 + & **2*X7-X2**2*X6-3*X2*X3*X5-2*X2*X10*X5-X2*X9*X7-X2*X9*X6+ + & 2*X2*X8*X7-X3*X9*X5-X4*X9*X5+2*X4*X8*X5) + FM(6,8)=8*PQ**4*(-6*X3-3*X4-3*X10-X9-2*X8-X7-2*X6)+2*PQ**2 + & *PH**2*(-6*X3-3*X4-3*X10+X7+2*X6)+4*PQ**2*(-8*X1*X3-4*X1* + & X4-4*X1*X10-8*X2*X3-4*X2*X4-4*X2*X10-4*X3*X9-4*X3*X7-12* + & X3*X5-4*X4*X9+8*X4*X8-4*X4*X7+8*X4*X6-6*X4*X5-6*X10*X5-X9 + & *X5-2*X8*X5)+4*PH**2*(2*X1*X3+X1*X4+X1*X10+X3*X7+X4*X7-2* + & X4*X6)+8*X5*(-2*X2*X3-X2*X4-X2*X10-X3*X9-X4*X9+2*X4*X8) + FM(7,7)=72*PQ**4*X10+18*PQ**2*PH**2*X10+8*PQ**2*(X1*X10+9* + & X2*X10+7*X3*X7+2*X3*X6+2*X4*X7+7*X4*X6+X10*X5+2*X9*X7+7* + & X9*X6+7*X8*X7+2*X8*X6)+2*PH**2*(-X1*X10-7*X3*X7-2*X3*X6-2 + & *X4*X7-7*X4*X6)+4*X2*(X10*X5+2*X9*X7+7*X9*X6+7*X8*X7+2*X8 + & *X6) + FM(7,8)=72*PQ**4*X10+2*PQ**2*PH**2*X10+4*PQ**2*(2*X1*X10+ + & 10*X2*X10+7*X3*X9+2*X3*X8+14*X3*X7+4*X3*X6+2*X4*X9+7*X4* + & X8+4*X4*X7+14*X4*X6+10*X10*X5+X9**2+7*X9*X8+2*X9*X7+7*X9* + & X6+X8**2+7*X8*X7+2*X8*X6)+2*PH**2*(7*X1*X10-7*X3*X7-2*X3* + & X6-2*X4*X7-7*X4*X6)+2*(-2*X1*X9**2-14*X1*X9*X8-2*X1*X8**2 + & +2*X2*X10*X5+2*X2*X9*X7+7*X2*X9*X6+7*X2*X8*X7+2*X2*X8*X6+ + & 7*X3*X9*X5+2*X3*X8*X5+2*X4*X9*X5+7*X4*X8*X5) + FM(8,8)=72*PQ**4*X10+18*PQ**2*PH**2*X10+8*PQ**2*(X1*X10+X2 + & *X10+7*X3*X9+2*X3*X8+7*X3*X7+2*X3*X6+2*X4*X9+7*X4*X8+2*X4 + & *X7+7*X4*X6+9*X10*X5)+2*PH**2*(-X1*X10-7*X3*X7-2*X3*X6-2* + & X4*X7-7*X4*X6)+4*X5*(X2*X10+7*X3*X9+2*X3*X8+2*X4*X9+7*X4* + & X8) + FM(9,9)=-4*PQ**4*X10-PQ**2*PH**2*X10+4*PQ**2*(-X1*X10-X2*X10+ + & X3*X7+X4*X6-X10*X5+X9*X6+X8*X7)+PH**2*(X1*X10-X3*X7-X4*X6 + & )+2*X2*(-X10*X5+X9*X6+X8*X7) + FM(9,10)=-4*PQ**4*X10-PQ**2*PH**2*X10+2*PQ**2*(-2*X1*X10-2*X2* + & X10+2*X3*X9+2*X3*X7+2*X4*X6-2*X10*X5+X9*X8+2*X8*X7)+PH**2 + & *(X1*X10-X3*X7-X4*X6)+2*(-X1*X9*X8-X2*X10*X5+X2*X8*X7+X3* + & X9*X5) + FMXX=-4*PQ**4*X10-PQ**2*PH**2*X10+2*PQ**2*(-2*X1*X10-2*X2* + & X10+2*X4*X8+2*X4*X6+2*X3*X7-2*X10*X5+X9*X8+2*X9*X6)+PH**2 + & *(X1*X10-X3*X7-X4*X6)+2*(-X1*X9*X8-X2*X10*X5+X2*X9*X6+X4* + & X8*X5) + FM(9,10)=0.5D0*(FMXX+FM(9,10)) + FM(10,10)=-4*PQ**4*X10-PQ**2*PH**2*X10+4*PQ**2*(-X1*X10-X2*X10+ + & X3*X7+X4*X6-X10*X5+X9*X3+X8*X4)+PH**2*(X1*X10-X3*X7-X4*X6 + & )+2*X5*(-X10*X2+X9*X3+X8*X4) + +C...Repackage matrix elements. + DO 200 I=1,8 + DO 190 J=1,8 + RM(I,J)=FM(I,J) + 190 CONTINUE + 200 CONTINUE + RM(7,7)=FM(7,7)-2D0*FM(9,9) + RM(7,8)=FM(7,8)-2D0*FM(9,10) + RM(8,8)=FM(8,8)-2D0*FM(10,10) + +C...Produce final result: matrix elements * colours * propagators. + DO 220 I=1,8 + DO 210 J=I,8 + FAC=8D0 + IF(I.EQ.J)FAC=4D0 + WTQQBH=WTQQBH+RM(I,J)*FAC*CLR(I,J)/(DX(I)*DX(J)) + 210 CONTINUE + 220 CONTINUE + WTQQBH=-WTQQBH/256D0 + + ELSE +C...Evaluate matrix elements for q + qbar -> Q + Qbar + H. + A11=-8D0*PQ**4*X10-2D0*PQ**2*PH**2*X10-(8D0*PQ**2)*(X2*X10+X3 + & *X7+X4*X6+X9*X6+X8*X7)+2D0*PH**2*(X3*X7+X4*X6)-(4D0*X2)*(X9 + & *X6+X8*X7) + A12=-8D0*PQ**4*X10+4D0*PQ**2*(-X2*X10-X3*X9-2D0*X3*X7-X4*X8- + & 2D0*X4*X6-X10*X5-X9*X8-X9*X6-X8*X7)+2D0*PH**2*(-X1*X10+X3*X7 + & +X4*X6)+2D0*(2D0*X1*X9*X8-X2*X9*X6-X2*X8*X7-X3*X9*X5-X4*X8* + & X5) + A22=-8D0*PQ**4*X10-2D0*PQ**2*PH**2*X10-(8D0*PQ**2)*(X3*X9+X3* + & X7+X4*X8+X4*X6+X10*X5)+2D0*PH**2*(X3*X7+X4*X6)-(4D0*X5)*(X3 + & *X9+X4*X8) + +C...Produce final result: matrix elements * propagators. + A11=A11/DX(7)**2 + A12=A12/(DX(7)*DX(8)) + A22=A22/DX(8)**2 + WTQQBH=-(A11+A22+2D0*A12)/8D0 + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYMSIN +C...Initializes supersymmetry: finds sparticle masses and +C...branching ratios and stores this information. +C...AUTHOR: STEPHEN MRENNA + + SUBROUTINE PYMSIN + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT4/MWID(500),WIDS(500,5) + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2), + &SFMIX(16,4) + COMMON/PYHTRI/HHH(7) + SAVE /PYDAT1/,/PYDAT2/,/PYDAT3/,/PYPARS/,/PYINT4/,/PYMSSM/, + &/PYSSMT/ + +C...Local variables. + INTEGER NSTR + DOUBLE PRECISION ALFA,BETA + DOUBLE PRECISION TANB,AL,BE,COSA,COSB,SINA,SINB,XW,AEM,FACT + DOUBLE PRECISION PYALEM + INTEGER I,J,J1,J2,I1,I2,I3,IKNT,K1 + INTEGER KC,LKNT,IDLAM(200,3),IDLAM0(100,3),LKNT0 + DOUBLE PRECISION XLAM(0:200),XLAM0(0:200),XALL + DOUBLE PRECISION WDTP(0:200),WDTE(0:200,0:5) + 1 DOUBLE PRECISION ATERM,TAN2T,THETA,DENOM + DOUBLE PRECISION XARG,COS2B,XMW2,XMZ2 + DOUBLE PRECISION COSW,SINW,WDMIN,WDMAX + DOUBLE PRECISION DELM,XMDIF,BRLIM + DOUBLE PRECISION DX,DY,DS,DMU2,DMA2,DQ2,DU2,DD2,DL2,DE2,DHU2,DHD2 + DOUBLE PRECISION ARG,SGNMU,R,GAM + INTEGER IS1,IS2,IS3,IS4,JS1,JS2,JS3,JS4,KS1,KS2,KS3,KS4 + INTEGER IMSSM,KFHIGG + INTEGER IRPRTY + INTEGER KFSUSY(36),MWIDSU(36),MDCYSU(36) + SAVE INIT,MWIDSU,MDCYSU + DATA KFSUSY/ + &1000001,2000001,1000002,2000002,1000003,2000003, + &1000004,2000004,1000005,2000005,1000006,2000006, + &1000011,2000011,1000012,2000012,1000013,2000013, + &1000014,2000014,1000015,2000015,1000016,2000016, + &1000021,1000022,1000023,1000025,1000035,1000024, + &1000037,1000039, 25, 35, 36, 37/ + DATA INIT/0/ + +C...Do nothing if SUSY not requested. + IMSSM=IMSS(1) + IF(IMSSM.EQ.0) RETURN + +C...Save copy of MWID(KC) and MDCY(KC,1) values before +C...they are set to zero for the LSP. + IF(INIT.EQ.0) THEN + INIT=1 + DO 105 I=1,36 + KF=KFSUSY(I) + KC=PYCOMP(KF) + MWIDSU(I)=MWID(KC) + MDCYSU(I)=MDCY(KC,1) + 105 CONTINUE + ENDIF + +C...Restore MWID(KC) and MDCY(KC,1) values previously zeroed for LSP. + DO 107 I=1,36 + KF=KFSUSY(I) + KC=PYCOMP(KF) + IF(MDCY(KC,1).EQ.0.AND.MDCYSU(I).NE.0) THEN + MWID(KC)=MWIDSU(I) + MDCY(KC,1)=MDCYSU(I) + ENDIF + 107 CONTINUE + +C...First part of routine: set masses and couplings. + +C...Reset mixing values in sfermion sector to pure left/right. + DO 100 I=1,16 + SFMIX(I,1)=1D0 + SFMIX(I,4)=1D0 + SFMIX(I,2)=0D0 + SFMIX(I,3)=0D0 + 100 CONTINUE + +C...Common couplings. + TANB=RMSS(5) + BETA=ATAN(TANB) + COSB=COS(BETA) + SINB=TANB*COSB + COS2B=COS(2D0*BETA) + ALFA=RMSS(18) + XMW2=PMAS(24,1)**2 + XMZ2=PMAS(23,1)**2 + XW=PARU(102) + +C...Define sparticle masses for a general MSSM simulation. + IF(IMSSM.EQ.1) THEN + IF(IMSS(9).EQ.0) RMSS(22)=RMSS(9) + DO 110 I=1,5,2 + KC=PYCOMP(KSUSY1+I) + PMAS(KC,1)=SQRT(RMSS(8)**2-(2D0*XMW2+XMZ2)*COS2B/6D0) + KC=PYCOMP(KSUSY2+I) + PMAS(KC,1)=SQRT(RMSS(9)**2+(XMW2-XMZ2)*COS2B/3D0) + KC=PYCOMP(KSUSY1+I+1) + PMAS(KC,1)=SQRT(RMSS(8)**2+(4D0*XMW2-XMZ2)*COS2B/6D0) + KC=PYCOMP(KSUSY2+I+1) + PMAS(KC,1)=SQRT(RMSS(22)**2-(XMW2-XMZ2)*COS2B*2D0/3D0) + 110 CONTINUE + XARG=RMSS(6)**2-PMAS(24,1)**2*ABS(COS(2D0*BETA)) + IF(XARG.LT.0D0) THEN + WRITE(MSTU(11),*) ' SNEUTRINO MASS IS NEGATIVE'// + & ' FROM THE SUM RULE. ' + WRITE(MSTU(11),*) ' TRY A SMALLER VALUE OF TAN(BETA). ' + RETURN + ELSE + XARG=SQRT(XARG) + ENDIF + DO 120 I=11,15,2 + PMAS(PYCOMP(KSUSY1+I),1)=RMSS(6) + PMAS(PYCOMP(KSUSY2+I),1)=RMSS(7) + PMAS(PYCOMP(KSUSY1+I+1),1)=XARG + PMAS(PYCOMP(KSUSY2+I+1),1)=9999D0 + 120 CONTINUE + IF(IMSS(8).EQ.1) THEN + RMSS(13)=RMSS(6) + RMSS(14)=RMSS(7) + ENDIF + +C...Alternatively derive masses from SUGRA relations. + ELSEIF(IMSSM.EQ.2) THEN + CALL PYAPPS + ENDIF + +C...Add in extra D-term contributions. + IF(IMSS(7).EQ.1) THEN + R=0.43D0 + DX=RMSS(23) + DY=RMSS(24) + DS=RMSS(25) + WRITE(MSTU(11),*) 'CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC' + WRITE(MSTU(11),*) 'C NEW DTERMS ADDED TO SCALAR MASSES ' + WRITE(MSTU(11),*) 'C IN A U(B-L) THEORY ' + WRITE(MSTU(11),*) 'C DX = ',DX + WRITE(MSTU(11),*) 'C DY = ',DY + WRITE(MSTU(11),*) 'C DS = ',DS + WRITE(MSTU(11),*) 'C ' + DY=R*DY-4D0/33D0*(1D0-R)*DX+(1D0-R)/33D0*DS + WRITE(MSTU(11),*) 'C DY AT THE WEAK SCALE = ',DY + WRITE(MSTU(11),*) 'CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC' + DQ2=DY/6D0-DX/3D0-DS/3D0 + DU2=-2D0*DY/3D0-DX/3D0-DS/3D0 + DD2=DY/3D0+DX-2D0*DS/3D0 + DL2=-DY/2D0+DX-2D0*DS/3D0 + DE2=DY-DX/3D0-DS/3D0 + DHU2=DY/2D0+2D0*DX/3D0+2D0*DS/3D0 + DHD2=-DY/2D0-2D0*DX/3D0+DS + DMU2=(-DY/2D0-2D0/3D0*DX+(COSB**2-2D0*SINB**2/3D0)*DS) + & /ABS(COS2B) + DMA2 = 2D0*DMU2+DHU2+DHD2 + DO 130 I=1,5,2 + KC=PYCOMP(KSUSY1+I) + PMAS(KC,1)=SQRT(PMAS(KC,1)**2+DQ2) + KC=PYCOMP(KSUSY2+I) + PMAS(KC,1)=SQRT(PMAS(KC,1)**2+DD2) + KC=PYCOMP(KSUSY1+I+1) + PMAS(KC,1)=SQRT(PMAS(KC,1)**2+DQ2) + KC=PYCOMP(KSUSY2+I+1) + PMAS(KC,1)=SQRT(PMAS(KC,1)**2+DU2) + 130 CONTINUE + DO 140 I=11,15,2 + KC=PYCOMP(KSUSY1+I) + PMAS(KC,1)=SQRT(PMAS(KC,1)**2+DL2) + KC=PYCOMP(KSUSY2+I) + PMAS(KC,1)=SQRT(PMAS(KC,1)**2+DE2) + KC=PYCOMP(KSUSY1+I+1) + PMAS(KC,1)=SQRT(PMAS(KC,1)**2+DL2) + 140 CONTINUE + IF(RMSS(4)**2+DMU2.LT.0D0) THEN + WRITE(MSTU(11),*) ' MU2 DRIVEN NEGATIVE ' + STOP + ENDIF + SGNMU=SIGN(1D0,RMSS(4)) + RMSS(4)=SGNMU*SQRT(RMSS(4)**2+DMU2) + ARG=RMSS(10)**2*SIGN(1D0,RMSS(10))+DQ2 + RMSS(10)=SIGN(SQRT(ABS(ARG)),ARG) + ARG=RMSS(11)**2*SIGN(1D0,RMSS(11))+DD2 + RMSS(11)=SIGN(SQRT(ABS(ARG)),ARG) + ARG=RMSS(12)**2*SIGN(1D0,RMSS(12))+DU2 + RMSS(12)=SIGN(SQRT(ABS(ARG)),ARG) + ARG=RMSS(13)**2*SIGN(1D0,RMSS(13))+DL2 + RMSS(13)=SIGN(SQRT(ABS(ARG)),ARG) + ARG=RMSS(14)**2*SIGN(1D0,RMSS(14))+DE2 + RMSS(14)=SIGN(SQRT(ABS(ARG)),ARG) + IF( RMSS(19)**2 + DMA2 .LE. 50D0 ) THEN + WRITE(MSTU(11),*) ' MA DRIVEN TOO LOW ' + STOP + ENDIF + RMSS(19)=SQRT(RMSS(19)**2+DMA2) + RMSS(6)=SQRT(RMSS(6)**2+DL2) + RMSS(7)=SQRT(RMSS(7)**2+DE2) + WRITE(MSTU(11),*) ' MTL = ',RMSS(10) + WRITE(MSTU(11),*) ' MBR = ',RMSS(11) + WRITE(MSTU(11),*) ' MTR = ',RMSS(12) + WRITE(MSTU(11),*) ' SEL = ',RMSS(6),RMSS(13) + WRITE(MSTU(11),*) ' SER = ',RMSS(7),RMSS(14) + ENDIF + +C...Fix the third generation sfermions. + CALL PYTHRG + XARG=RMSS(13)**2-PMAS(24,1)**2*ABS(COS2B) + IF(XARG.LT.0D0) THEN + WRITE(MSTU(11),*) ' TAU SNEUTRINO MASS IS NEGATIVE FROM'// + & ' THE SUM RULE. ' + WRITE(MSTU(11),*) ' TRY A SMALLER VALUE OF TAN(BETA). ' + RETURN + ELSE + PMAS(PYCOMP(KSUSY1+16),1)=SQRT(XARG) + ENDIF + +C...Fix the neutralino--chargino--gluino sector. + CALL PYINOM + +C...Fix the Higgs sector. + CALL PYHGGM(ALFA) + +C...Choose the Gunion-Haber convention. + ALFA=-ALFA + RMSS(18)=ALFA + +C...Print information on mass parameters. + IF(IMSSM.EQ.2.AND.MSTP(122).GT.0) THEN + WRITE(MSTU(11),*) 'CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC' + WRITE(MSTU(11),*) ' USING APPROXIMATE SUGRA RELATIONS ' + WRITE(MSTU(11),*) ' M0 = ',RMSS(8) + WRITE(MSTU(11),*) ' M1/2=',RMSS(1) + WRITE(MSTU(11),*) ' TANB=',RMSS(5) + WRITE(MSTU(11),*) ' MU = ',RMSS(4) + WRITE(MSTU(11),*) ' AT = ',RMSS(16) + WRITE(MSTU(11),*) ' MA = ',RMSS(19) + WRITE(MSTU(11),*) ' MTOP=',PMAS(6,1) + WRITE(MSTU(11),*) 'CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC' + ENDIF + IF(IMSS(20).EQ.1) THEN + WRITE(MSTU(11),*) 'CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC' + WRITE(MSTU(11),*) ' DEBUG MODE ' + WRITE(MSTU(11),*) ' UMIX = ',UMIX(1,1),UMIX(1,2), + & UMIX(2,1),UMIX(2,2) + WRITE(MSTU(11),*) ' VMIX = ',VMIX(1,1),VMIX(1,2), + & VMIX(2,1),VMIX(2,2) + WRITE(MSTU(11),*) ' ZMIX = ',ZMIX + WRITE(MSTU(11),*) ' ALFA = ',ALFA + WRITE(MSTU(11),*) ' BETA = ',BETA + WRITE(MSTU(11),*) ' STOP = ',(SFMIX(6,I),I=1,4) + WRITE(MSTU(11),*) ' SBOT = ',(SFMIX(5,I),I=1,4) + WRITE(MSTU(11),*) 'CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC' + ENDIF + +C...Set up the Higgs couplings - needed here since initialization +C...in PYINRE did not yet occur when PYWIDT is called below. + AL=ALFA + BE=BETA + SINA=SIN(AL) + COSA=COS(AL) + COSB=COS(BE) + SINB=TANB*COSB + SBMA=SIN(BE-AL) + SAPB=SIN(AL+BE) + CAPB=COS(AL+BE) + CBMA=COS(BE-AL) + S2A=SIN(2D0*AL) + C2A=COS(2D0*AL) + C2B=COSB**2-SINB**2 +C...tanb (used for H+) + PARU(141)=TANB + +C...Firstly: h +C...Coupling to d-type quarks + PARU(161)=SINA/COSB +C...Coupling to u-type quarks + PARU(162)=-COSA/SINB +C...Coupling to leptons + PARU(163)=PARU(161) +C...Coupling to Z + PARU(164)=SBMA +C...Coupling to W + PARU(165)=PARU(164) + +C...Secondly: H +C...Coupling to d-type quarks + PARU(171)=-COSA/COSB +C...Coupling to u-type quarks + PARU(172)=-SINA/SINB +C...Coupling to leptons + PARU(173)=PARU(171) +C...Coupling to Z + PARU(174)=CBMA +C...Coupling to W + PARU(175)=PARU(174) +C...Coupling to h +C PARU(176)=COS(2D0*AL)*COS(BE+AL)-2D0*SIN(2D0*AL)*SIN(BE+AL) + HHH(3)=HHH(3)+HHH(4)+HHH(5) + PARU(176)=-3D0/HHH(1)*(HHH(1)*SINA**2*COSB*COSA+ + 1 HHH(2)*COSA**2*SINB*SINA+HHH(3)*(SINA**3*SINB+COSA**3*COSB- + 2 2D0/3D0*CBMA)-HHH(6)*SINA*(COSB*C2A+COSA*CAPB)+ + 3 HHH(7)*COSA*(SINB*C2A+SINA*CAPB)) +C...Coupling to H+ +C...Define later +C PARU(168)=-SBMA-COS(2D0*BE)*SAPB/2D0/(1D0-XW) + PARU(168)=1D0/HHH(1)*(HHH(1)*SINB**2*COSB*SINA- + 1 HHH(2)*COSB**2*SINB*COSA-HHH(3)*(SINB**3*COSA-COSB**3*SINA)+ + 2 2D0*HHH(5)*SBMA-HHH(6)*SINB*(COSB*SAPB+SINA*C2B)- + 3 HHH(7)*COSB*(COSA*C2B-SINB*SAPB)-(HHH(5)-HHH(4))*SBMA) +C...Coupling to A +C PARU(177)=COS(2D0*BE)*COS(BE+AL) + PARU(177)=-1D0/HHH(1)*(HHH(1)*SINB**2*COSB*COSA+ + 1 HHH(2)*COSB**2*SINB*SINA+HHH(3)*(SINB**3*SINA+COSB**3*COSA)- + 2 2D0*HHH(5)*CBMA-HHH(6)*SINB*(COSB*CAPB+COSA*C2B)+ + 3 HHH(7)*COSB*(SINB*CAPB+SINA*C2B)) +C...Coupling to H+ + PARU(178)=PARU(177)-(HHH(5)-HHH(4))/HHH(1)*CBMA +C...Thirdly, A +C...Coupling to d-type quarks + PARU(181)=TANB +C...Coupling to u-type quarks + PARU(182)=1D0/PARU(181) +C...Coupling to leptons + PARU(183)=PARU(181) + PARU(184)=0D0 + PARU(185)=0D0 +C...Coupling to Z h + PARU(186)=COS(BE-AL) +C...Coupling to Z H + PARU(187)=SIN(BE-AL) + PARU(188)=0D0 + PARU(189)=0D0 + PARU(190)=0D0 + +C...Finally: H+ +C...Coupling to W h + PARU(195)=COS(BE-AL) + +C...Tell that all Higgs couplings have been set. + MSTP(4)=1 + +C...Second part of routine: set decay modes and branching ratios. + +C...Allow chi10 -> gravitino + gamma or not. + KC=PYCOMP(KSUSY1+39) + IF( IMSS(11) .NE. 0 ) THEN + PMAS(KC,1)=RMSS(21)/1000000000D0 + PMAS(KC,2)=0.0001D0 + IRPRTY=0 + WRITE(MSTU(11),*) ' ALLOWING DECAYS TO GRAVITINOS ' + ELSE + PMAS(KC,1)=9999D0 + IRPRTY=1 + ENDIF + +C...Loop over sparticle and Higgs species. + PMCHI1=PMAS(PYCOMP(KSUSY1+22),1) +C...Find the LSP or NLSP for a gravitino LSP + ILSP=0 + PMLSP=1D20 + DO 150 I=1,36 + KF=KFSUSY(I) + IF(KF.EQ.1000039) GOTO 150 + KC=PYCOMP(KF) + IF(PMAS(KC,1).LT.PMLSP) THEN + ILSP=I + PMLSP=PMAS(KC,1) + ENDIF + 150 CONTINUE + DO 210 I=1,36 + KF=KFSUSY(I) + KC=PYCOMP(KF) + LKNT=0 + +C...Sfermion decays. + IF(I.LE.24) THEN +C...First check to see if sneutrino is lighter than chi10. + IF((I.EQ.15.OR.I.EQ.19.OR.I.EQ.23).AND. + & PMAS(KC,1).LT.PMCHI1) THEN + ELSE + CALL PYSFDC(KF,XLAM,IDLAM,LKNT) + ENDIF + +C...Gluino decays. + ELSEIF(I.EQ.25) THEN + CALL PYGLUI(KF,XLAM,IDLAM,LKNT) + IF(I.EQ.ILSP) LKNT=0 + +C...Neutralino decays. + ELSEIF(I.GE.26.AND.I.LE.29) THEN + CALL PYNJDC(KF,XLAM,IDLAM,LKNT) +C...chi10 stable or chi10 -> gravitino + gamma. + IF(I.EQ.26.AND.IRPRTY.EQ.1) THEN + PMAS(KC,2)=1D-6 + MDCY(KC,1)=0 + MWID(KC)=0 + ENDIF + +C...Chargino decays. + ELSEIF(I.GE.30.AND.I.LE.31) THEN + CALL PYCJDC(KF,XLAM,IDLAM,LKNT) + +C...Gravitino is stable. + ELSEIF(I.EQ.32) THEN + MDCY(KC,1)=0 + MWID(KC)=0 + +C...Higgs decays. + ELSEIF(I.GE.33.AND.I.LE.36) THEN +C...Calculate decays to non-SUSY particles. + CALL PYWIDT(KF,PMAS(KC,1)**2,WDTP,WDTE) + LKNT=0 + DO 160 I1=0,100 + XLAM(I1)=0D0 + 160 CONTINUE + DO 180 I1=1,MDCY(KC,3) + K1=MDCY(KC,2)+I1-1 + IF(IABS(KFDP(K1,1)).GT.KSUSY1.OR. + & IABS(KFDP(K1,2)).GT.KSUSY1) GOTO 180 + XLAM(I1)=WDTP(I1) + XLAM(0)=XLAM(0)+XLAM(I1) + DO 170 J1=1,3 + IDLAM(I1,J1)=KFDP(K1,J1) + 170 CONTINUE + LKNT=LKNT+1 + 180 CONTINUE +C...Add the decays to SUSY particles. + CALL PYHEXT(KF,XLAM,IDLAM,LKNT) + ENDIF +C...Zero the branching ratios for use in loop mode +C...thanks to K. Matchev (FNAL) + DO 185 IDC=MDCY(KC,2),MDCY(KC,2)+MDCY(KC,3)-1 + BRAT(IDC)=0D0 + 185 CONTINUE + +C...Set stable particles. + IF(LKNT.EQ.0) THEN + MDCY(KC,1)=0 + MWID(KC)=0 + PMAS(KC,2)=1D-6 + PMAS(KC,3)=1D-5 + PMAS(KC,4)=0D0 + +C...Store branching ratios in the standard tables. + ELSE + IDC=MDCY(KC,2)+MDCY(KC,3)-1 + DELM=1D6 + DO 200 IL=1,LKNT + IDCSV=IDC + 190 IDC=IDC+1 + BRAT(IDC)=0D0 + IF(IDC.EQ.MDCY(KC,2)+MDCY(KC,3)) IDC=MDCY(KC,2) + IF(IDLAM(IL,1).EQ.KFDP(IDC,1).AND.IDLAM(IL,2).EQ. + & KFDP(IDC,2).AND.IDLAM(IL,3).EQ.KFDP(IDC,3)) THEN + BRAT(IDC)=XLAM(IL)/XLAM(0) + XMDIF=PMAS(KC,1) + IF(MDME(IDC,1).GE.1) THEN + XMDIF=XMDIF-PMAS(PYCOMP(KFDP(IDC,1)),1)- + & PMAS(PYCOMP(KFDP(IDC,2)),1) + IF(KFDP(IDC,3).NE.0) XMDIF=XMDIF- + & PMAS(PYCOMP(KFDP(IDC,3)),1) + ENDIF + IF(I.LE.32) THEN + IF(XMDIF.GE.0D0) THEN + DELM=MIN(DELM,XMDIF) + ELSE + WRITE(MSTU(11),*) ' ERROR WITH DELM ',DELM,XMDIF + WRITE(MSTU(11),*) ' KF = ',KF + WRITE(MSTU(11),*) ' KF(decay) = ',(KFDP(IDC,J),J=1,3) + ENDIF + ENDIF + GOTO 200 + ELSEIF(IDC.EQ.IDCSV) THEN + WRITE(MSTU(11),*) ' Error in PYMSIN: SUSY decay ', + & 'channel not recognized:' + WRITE(MSTU(11),*) KF,' -> ',(IDLAM(I,J),J=1,3) + GOTO 200 + ELSE + GOTO 190 + ENDIF + 200 CONTINUE + +C...Store width, cutoff and lifetime. + PMAS(KC,2)=XLAM(0) + IF(PMAS(KC,2).LT.0.1D0*DELM) THEN + PMAS(KC,3)=PMAS(KC,2)*10D0 + ELSE + PMAS(KC,3)=0.95D0*DELM + ENDIF + IF(PMAS(KC,2).NE.0D0) THEN + PMAS(KC,4)=PARU(3)/PMAS(KC,2)*1D-12 + ENDIF + ENDIF + 210 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYAPPS +C...Uses approximate analytical formulae to determine the full set of +C...MSSM parameters from SUGRA input. +C...See M. Drees and S.P. Martin, hep-ph/9504124 + + SUBROUTINE PYAPPS + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + SAVE /PYDAT1/,/PYDAT2/,/PYMSSM/ + + IMSS(5)=0 + XMT=PMAS(6,1) + XMZ2=PMAS(23,1)**2 + XMW2=PMAS(24,1)**2 + TANB=RMSS(5) + BETA=ATAN(TANB) + XW=PARU(102) + XMG=RMSS(1) + XMG2=XMG*XMG + XM0=RMSS(8) + XM02=XM0*XM0 + AT=-RMSS(16) + RMSS(15)=AT + RMSS(17)=AT + COSB=COS(BETA) + SINB=TANB/SQRT(TANB**2+1D0) + COSB=SINB/TANB + + DTERM=XMZ2*COS(2D0*BETA) + XMER=SQRT(XM02+0.15D0*XMG2-XW*DTERM) + XMEL=SQRT(XM02+0.52D0*XMG2-(0.5D0-XW)*DTERM) + RMSS(6)=XMEL + RMSS(7)=XMER + XMUR=SQRT(PYRNMQ(2,2D0/3D0*XW*DTERM)) + XMDR=SQRT(PYRNMQ(3,-1D0/3D0*XW*DTERM)) + XMUL=SQRT(PYRNMQ(1,(0.5D0-2D0/3D0*XW)*DTERM)) + XMDL=SQRT(PYRNMQ(1,-(0.5D0-1D0/3D0*XW)*DTERM)) + DO 100 I=1,5,2 + PMAS(PYCOMP(KSUSY1+I),1)=XMDL + PMAS(PYCOMP(KSUSY2+I),1)=XMDR + PMAS(PYCOMP(KSUSY1+I+1),1)=XMUL + PMAS(PYCOMP(KSUSY2+I+1),1)=XMUR + 100 CONTINUE + XARG=XMEL**2-XMW2*ABS(COS(2D0*BETA)) + IF(XARG.LT.0D0) THEN + WRITE(MSTU(11),*) ' SNEUTRINO MASS IS NEGATIVE'// + & ' FROM THE SUM RULE. ' + WRITE(MSTU(11),*) ' TRY A SMALLER VALUE OF TAN(BETA). ' + RETURN + ELSE + XARG=SQRT(XARG) + ENDIF + DO 110 I=11,15,2 + PMAS(PYCOMP(KSUSY1+I),1)=XMEL + PMAS(PYCOMP(KSUSY2+I),1)=XMER + PMAS(PYCOMP(KSUSY1+I+1),1)=XARG + PMAS(PYCOMP(KSUSY2+I+1),1)=9999D0 + 110 CONTINUE + XMNU=XARG + + RMT=PYRNMT(XMT) + XTOP=(RMT/150D0/SINB)**2*(.9D0*XM02+2.1D0*XMG2+ + &(1D0-(RMT/190D0/SINB)**3)*(.24D0*AT**2+AT*XMG)) + RMB=3D0 + XBOT=(RMB/150D0/COSB)**2*(.9D0*XM02+2.1D0*XMG2+ + &(1D0-(RMB/190D0/COSB)**3)*(.24D0*AT**2+AT*XMG)) + XTAU=1D-4/COSB**2*(XM02+0.15D0*XMG2+AT**2/3D0) + ATP=AT*(1D0-(RMT/190D0/SINB)**2)+XMG*(3.47D0-1.9D0*(RMT/190D0/ + &SINB)**2) + RMSS(16)=-ATP +C XMU2=-XM02-0.52D0*XMG2-0.5D0*XMZ2+XTOP/(1D0-1D0/TANB**2) +C..... + XMU2=-.5D0*XMZ2+(SINB**2*(XM02+.52D0*XMG2-XTOP)- + &COSB**2*(XM02+.52D0*XMG2-XBOT-XTAU/3D0))/(COSB**2-SINB**2) +C XMA2=(XMNU**2+XMU2-XBOT-XTAU/3D0)/SINB**2 +C..... + XMA2=2D0*(XM02+.52D0*XMG2)-XTOP-XBOT-XTAU/3D0+2D0*XMU2 + XMU=SIGN(SQRT(XMU2),RMSS(4)) + RMSS(4)=XMU + RMSS(19)=SQRT(XMA2) + ARG=XM02+0.15D0*XMG2-2D0*XTAU/3D0-XW*DTERM + IF(ARG.GT.0D0) THEN + RMSS(14)=SQRT(ARG) + ELSE + WRITE(MSTU(11),*) ' RIGHT STAU MASS < 0 ' + STOP + ENDIF + ARG=XM02+0.52D0*XMG2-XTAU/3D0-(0.5D0-XW)*DTERM + IF(ARG.GT.0D0) THEN + RMSS(13)=SQRT(ARG) + ELSE + WRITE(MSTU(11),*) ' LEFT STAU MASS < 0 ' + STOP + ENDIF + ARG=PYRNMQ(1,-(XBOT+XTOP)/3D0) + IF(ARG.GT.0D0) THEN + RMSS(10)=SQRT(ARG) + ELSE + RMSS(10)=-SQRT(-ARG) + ENDIF + ARG=PYRNMQ(2,-2D0*XTOP/3D0) + IF(ARG.GT.0D0) THEN + RMSS(12)=SQRT(ARG) + ELSE + RMSS(12)=-SQRT(-ARG) + ENDIF + ARG=PYRNMQ(3,-2D0*XBOT/3D0) + IF(ARG.GT.0D0) THEN + RMSS(11)=SQRT(ARG) + ELSE + RMSS(11)=-SQRT(-ARG) + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYRNMQ +C...Determines the running mass of quarks. + + FUNCTION PYRNMQ(ID,DTERM) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblock. + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + SAVE /PYMSSM/ + +C...Local variables. + DOUBLE PRECISION PI,R + DOUBLE PRECISION TOL + DOUBLE PRECISION CI(3) + EXTERNAL PYALPS + DOUBLE PRECISION PYALPS + DATA TOL/0.001D0/ + DATA PI,R/3.141592654D0,.61803399D0/ + DATA CI/0.47D0,0.07D0,0.02D0/ + + C=1D0-R + CA=CI(ID) + AG=(0.71D0)**2/4D0/PI + AG=RMSS(20) + XM0=RMSS(8) + XMG=RMSS(1) + XM02=XM0*XM0 + XMG2=XMG*XMG + + AS=PYALPS(XM02+6D0*XMG2) + CG=8D0/9D0*((AS/AG)**2-1D0) + BX=XM02+(CA+CG)*XMG2+DTERM + AX=MIN(50D0**2,0.5D0*BX) + CX=MAX(2000D0**2,2D0*BX) + + X0=AX + X3=CX + IF(ABS(CX-BX).GT.ABS(BX-AX))THEN + X1=BX + X2=BX+C*(CX-BX) + ELSE + X2=BX + X1=BX-C*(BX-AX) + ENDIF + AS1=PYALPS(X1) + CG=8D0/9D0*((AS1/AG)**2-1D0) + F1=ABS(XM02+(CA+CG)*XMG2+DTERM-X1) + AS2=PYALPS(X2) + CG=8D0/9D0*((AS2/AG)**2-1D0) + F2=ABS(XM02+(CA+CG)*XMG2+DTERM-X2) + 100 IF(ABS(X3-X0).GT.TOL*(ABS(X1)+ABS(X2))) THEN + IF(F2.LT.F1) THEN + X0=X1 + X1=X2 + X2=R*X1+C*X3 + F1=F2 + AS2=PYALPS(X2) + CG=8D0/9D0*((AS2/AG)**2-1D0) + F2=ABS(XM02+(CA+CG)*XMG2+DTERM-X2) + ELSE + X3=X2 + X2=X1 + X1=R*X2+C*X0 + F2=F1 + AS1=PYALPS(X1) + CG=8D0/9D0*((AS1/AG)**2-1D0) + F1=ABS(XM02+(CA+CG)*XMG2+DTERM-X1) + ENDIF + GOTO 100 + ENDIF + IF(F1.LT.F2) THEN + PYRNMQ=X1 + XMIN=X1 + ELSE + PYRNMQ=X2 + XMIN=X2 + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYRNMT +C...Determines the running mass of the top quark. + + FUNCTION PYRNMT(XMT) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblock. + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + SAVE /PYMSSM/ + +C...Local variables. + DOUBLE PRECISION XMT + DOUBLE PRECISION PI,R + DOUBLE PRECISION TOL + EXTERNAL PYALPS + DOUBLE PRECISION PYALPS + DATA TOL/0.001D0/ + DATA PI,R/3.141592654D0,0.61803399D0/ + + C=1D0-R + + BX=XMT + AX=MIN(50D0,BX*0.5D0) + CX=MAX(300D0,2D0*BX) + + X0=AX + X3=CX + IF(ABS(CX-BX).GT.ABS(BX-AX))THEN + X1=BX + X2=BX+C*(CX-BX) + ELSE + X2=BX + X1=BX-C*(BX-AX) + ENDIF + AS1=PYALPS(X1**2)/PI + F1=ABS(XMT/(1D0+4D0/3D0*AS1+11D0*AS1**2)-X1) + AS2=PYALPS(X2**2)/PI + F2=ABS(XMT/(1D0+4D0/3D0*AS2+11D0*AS2**2)-X2) + 100 IF(ABS(X3-X0).GT.TOL*(ABS(X1)+ABS(X2))) THEN + IF(F2.LT.F1) THEN + X0=X1 + X1=X2 + X2=R*X1+C*X3 + F1=F2 + AS2=PYALPS(X2**2)/PI + F2=ABS(XMT/(1D0+4D0/3D0*AS2+11D0*AS2**2)-X2) + ELSE + X3=X2 + X2=X1 + X1=R*X2+C*X0 + F2=F1 + AS1=PYALPS(X1**2)/PI + F1=ABS(XMT/(1D0+4D0/3D0*AS1+11D0*AS1**2)-X1) + ENDIF + GOTO 100 + ENDIF + IF(F1.LT.F2) THEN + PYRNMT=X1 + XMIN=X1 + ELSE + PYRNMT=X2 + XMIN=X2 + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYTHRG +C...Calculates the mass eigenstates of the third generation sfermions. +C...Created: 5-31-96 + + SUBROUTINE PYTHRG + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2), + &SFMIX(16,4) + SAVE /PYDAT1/,/PYDAT2/,/PYMSSM/,/PYSSMT/ + +C...Local variables. + DOUBLE PRECISION BETA + DOUBLE PRECISION PYRNMT + DOUBLE PRECISION AM2(2,2),RT(2,2),DI(2,2) + DOUBLE PRECISION XMZ2,XMW2,TANB,XMU,COS2B,XMQL2,XMQR2 + DOUBLE PRECISION XMF,XMF2,DIFF,SAME,XMF12,XMF22,SMALL + DOUBLE PRECISION SIN2T,COS2T,TWOT,ATR,AMQR,XXX,YYY,AMQL + INTEGER ID1(3),ID2(3),ID3(3),ID4(3) + INTEGER IF,I,J,II,JJ,IT,L + LOGICAL DTERM + DATA SMALL/1D-3/ + DATA ID1/10,10,13/ + DATA ID2/5,6,15/ + DATA ID3/15,16,17/ + DATA ID4/11,12,14/ + DATA DTERM/.TRUE./ + + XMZ2=PMAS(23,1)**2 + XMW2=PMAS(24,1)**2 + TANB=RMSS(5) + XMU=-RMSS(4) + BETA=ATAN(TANB) + COS2B=COS(2D0*BETA) + +C...OPTION TO FIX T1, T2, B1 MASSES AND MIXINGS + + IOPT=IMSS(5) + IF(IOPT.EQ.1) THEN + CTT=RMSS(27) + CTT2=CTT**2 + STT2=1D0-CTT2 + STT=SQRT(STT2) + XM12=RMSS(12)**2 + XM22=RMSS(10)**2 + XMQL2=CTT2*XM12+STT2*XM22 + XMQR2=STT2*XM12+CTT2*XM22 + XMFR=PMAS(6,1) + XMF2=PYRNMT(XMFR)**2 + ATOP=-XMU/TANB+CTT*STT*(XM22-XM12)/SQRT(XMF2) + ATMT=SQRT(XMF2)*(ATOP+XMU/TANB) + XTEST=(XMQL2-XMQR2)*(CTT2-STT2) + IF(XTEST.GT.4D0*STT*CTT*ATMT) THEN + STT=-STT + ATOP=-XMU/TANB+CTT*STT*(XM22-XM12)/SQRT(XMF2) + ENDIF + RMSS(16)=ATOP +C......SUBTRACT OUT D-TERM AND FERMION MASS + XMQL2=XMQL2-XMF2-(4D0*XMW2-XMZ2)*COS2B/6D0 + XMQR2=XMQR2-XMF2+(XMW2-XMZ2)*COS2B*2D0/3D0 + IF(XMQL2.GE.0D0) THEN + RMSS(10)=SQRT(XMQL2) + ELSE + RMSS(10)=-SQRT(-XMQL2) + ENDIF + IF(XMQR2.GE.0D0) THEN + RMSS(12)=SQRT(XMQR2) + ELSE + RMSS(12)=-SQRT(-XMQR2) + ENDIF +C SAME FOR BOTTOM SQUARK + CTT=RMSS(26) + CTT2=CTT**2 + STT2=1D0-CTT2 + STT=MAX(SQRT(STT2),1D-6) + XMF=3D00 + XMF2=XMF**2 + XM12=RMSS(11)**2 + XMQL2=RMSS(10)**2-(2D0*XMW2+XMZ2)*COS2B/6D0+XMF2 + IF(ABS(CTT).EQ.1D0) THEN + XM22=XM12 + XM12=XMQL2 + XMQR2=XM22 + ELSEIF(CTT.EQ.0D0) THEN + XM22=XMQL2 + XMQR2=XM12 + ELSE + XM22=(XMQL2-CTT2*XM12)/STT2 + XMQR2=STT2*XM12+CTT2*XM22 + ENDIF + ABOT=-XMU*TANB+CTT*STT*(XM22-XM12)/SQRT(XMF2) + ATMT=SQRT(XMF2)*(ABOT+XMU*TANB) + XTEST=(XMQL2-XMQR2)*(CTT2-STT2) + IF(XTEST.GT.4D0*STT*CTT*ATMT) THEN + STT=-STT + ABOT=-XMU*TANB+CTT*STT*(XM22-XM12)/SQRT(XMF2) + ENDIF + RMSS(15)=ABOT +C......SUBTRACT OUT D-TERM AND FERMION MASS + XMQR2=XMQR2-(XMW2-XMZ2)*COS2B/3D0-XMF2 + IF(XMQR2.GE.0D0) THEN + RMSS(11)=SQRT(XMQR2) + ELSE + RMSS(11)=-SQRT(-XMQR2) + ENDIF +C SAME FOR TAU SLEPTON + CTT=RMSS(28) + CTT2=CTT**2 + STT2=1D0-CTT2 + STT=SQRT(STT2) + XM12=RMSS(14)**2 + XM22=RMSS(13)**2 + XMQL2=CTT2*XM12+STT2*XM22 + XMQR2=STT2*XM12+CTT2*XM22 + XMFR=PMAS(15,1) + XMF2=XMFR**2 + ATAU=-XMU*TANB+CTT*STT*(XM22-XM12)/SQRT(XMF2) + ATMT=SQRT(XMF2)*(ATAU+XMU*TANB) + XTEST=(XMQL2-XMQR2)*(CTT2-STT2) + IF(XTEST.GT.4D0*STT*CTT*ATMT) THEN + STT=-STT + ATAU=-XMU*TANB+CTT*STT*(XM22-XM12)/SQRT(XMF2) + ENDIF + RMSS(17)=ATAU +C......SUBTRACT OUT D-TERM AND FERMION MASS + XMQL2=XMQL2-XMF2+(-.5D0*XMZ2+XMW2)*COS2B + XMQR2=XMQR2-XMF2+(XMZ2-XMW2)*COS2B + IF(XMQL2.GE.0D0) THEN + RMSS(13)=SQRT(XMQL2) + ELSE + RMSS(13)=-SQRT(-XMQL2) + ENDIF + IF(XMQR2.GE.0D0) THEN + RMSS(14)=SQRT(XMQR2) + ELSE + RMSS(14)=-SQRT(-XMQR2) + ENDIF + ENDIF + DO 170 L=1,3 + AMQL=RMSS(ID1(L)) + IF(AMQL.LT.0D0) THEN + XMQL2=-AMQL**2 + ELSE + XMQL2=AMQL**2 + ENDIF + IF=ID2(L) + XMF=PMAS(IF,1) + IF(L.EQ.1) XMF=3D0 + IF(L.EQ.2) XMF=PYRNMT(XMF) + XMF2=XMF**2 + ATR=RMSS(ID3(L)) + AMQR=RMSS(ID4(L)) + IF(AMQR.LT.0D0) THEN + XMQR2=-AMQR**2 + ELSE + XMQR2=AMQR**2 + ENDIF + AM2(1,1)=XMQL2+XMF2 + AM2(2,2)=XMQR2+XMF2 + IF(DTERM) THEN + IF(L.EQ.1) THEN + AM2(1,1)=AM2(1,1)-(2D0*XMW2+XMZ2)*COS2B/6D0 + AM2(2,2)=AM2(2,2)+(XMW2-XMZ2)*COS2B/3D0 + AM2(1,2)=XMF*(ATR+XMU*TANB) + ELSEIF(L.EQ.2) THEN + AM2(1,1)=AM2(1,1)+(4D0*XMW2-XMZ2)*COS2B/6D0 + AM2(2,2)=AM2(2,2)-(XMW2-XMZ2)*COS2B*2D0/3D0 + AM2(1,2)=XMF*(ATR+XMU/TANB) + ELSEIF(L.EQ.3) THEN + IF(IMSS(8).EQ.1) THEN + AM2(1,1)=RMSS(6)**2 + AM2(2,2)=RMSS(7)**2 + AM2(1,2)=0D0 + RMSS(13)=RMSS(6) + RMSS(14)=RMSS(7) + ELSE + AM2(1,2)=XMF*(ATR+XMU*TANB) + ENDIF + ENDIF + ENDIF + AM2(2,1)=AM2(1,2) + DETM=AM2(1,1)*AM2(2,2)-AM2(2,1)**2 + IF(DETM.LT.0D0) THEN + WRITE(MSTU(11),*) ID1(L),DETM + CALL PYERRM(30,' NEGATIVE**2 MASS FOR SFERMION ') + ENDIF + SAME=0.5D0*(AM2(1,1)+AM2(2,2)) + DIFF=0.5D0*SQRT((AM2(1,1)-AM2(2,2))**2+4D0*AM2(1,2)*AM2(2,1)) + XMF12=SAME-DIFF + XMF22=SAME+DIFF + IT=0 + IF(XMF22-XMF12.GT.0D0) THEN + RT(1,1) = SQRT(MAX(0D0,(XMF22-AM2(1,1))/(XMF22-XMF12))) + RT(2,2) = RT(1,1) + RT(1,2) = -SIGN(SQRT(MAX(0D0,1D0-RT(1,1)**2)), + & AM2(1,2)/(XMF22-XMF12)) + RT(2,1) = -RT(1,2) + ELSE + RT(1,1) = 1D0 + RT(2,2) = RT(1,1) + RT(1,2) = 0D0 + RT(2,1) = -RT(1,2) + ENDIF + 100 CONTINUE + IT=IT+1 + + DO 140 I=1,2 + DO 130 JJ=1,2 + DI(I,JJ)=0D0 + DO 120 II=1,2 + DO 110 J=1,2 + DI(I,JJ)=DI(I,JJ)+RT(I,J)*AM2(J,II)*RT(JJ,II) + 110 CONTINUE + 120 CONTINUE + 130 CONTINUE + 140 CONTINUE + + IF(DI(1,1).GT.DI(2,2)) THEN + WRITE(MSTU(11),*) ' ERROR IN DIAGONALIZATION ' + WRITE(MSTU(11),*) L,SQRT(XMF12),SQRT(XMF22) + WRITE(MSTU(11),*) AM2 + WRITE(MSTU(11),*) DI + WRITE(MSTU(11),*) RT + DI(1,1)=-RT(2,1) + DI(2,2)=RT(1,2) + DI(1,2)=-RT(2,2) + DI(2,1)=RT(1,1) + DO 160 I=1,2 + DO 150 J=1,2 + RT(I,J)=DI(I,J) + 150 CONTINUE + 160 CONTINUE + GOTO 100 + ELSEIF(ABS(DI(1,2)*DI(2,1)/DI(1,1)/DI(2,2)).GT.SMALL) THEN + WRITE(MSTU(11),*) ' ERROR IN DIAGONALIZATION,'// + & ' OFF DIAGONAL ELEMENTS ' + WRITE(MSTU(11),*) 'MASSES = ',L,SQRT(XMF12),SQRT(XMF22) + WRITE(MSTU(11),*) DI + WRITE(MSTU(11),*) ' ROTATION = ',RT +C...STOP + ELSEIF(DI(1,1).LT.0D0.OR.DI(2,2).LT.0D0) THEN + WRITE(MSTU(11),*) ' ERROR IN DIAGONALIZATION,'// + & ' NEGATIVE MASSES ' + STOP + ENDIF + PMAS(PYCOMP(KSUSY1+IF),1)=SQRT(XMF12) + PMAS(PYCOMP(KSUSY2+IF),1)=SQRT(XMF22) + SFMIX(IF,1)=RT(1,1) + SFMIX(IF,2)=RT(1,2) + SFMIX(IF,3)=RT(2,1) + SFMIX(IF,4)=RT(2,2) + 170 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYINOM +C...Finds the mass eigenstates and mixing matrices for neutralinos +C...and charginos. + + SUBROUTINE PYINOM + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2), + &SFMIX(16,4) + SAVE /PYDAT1/,/PYDAT2/,/PYMSSM/,/PYSSMT/ + +C...Local variables. + DOUBLE PRECISION XMW,XMZ + DOUBLE PRECISION AR(4,4),WR(4),ZR(4,4) + DOUBLE PRECISION ZP(4,4) + DOUBLE PRECISION DETX,XI(2,2) + DOUBLE PRECISION XXX,YYY,XMH,XML + DOUBLE PRECISION COSW,SINW + DOUBLE PRECISION XMU + DOUBLE PRECISION TERMB,TERMC,DISCR,XMH2,XML2 + DOUBLE PRECISION TANB,AL,BE,COSA,COSB,SINA,SINB,XW + DOUBLE PRECISION XM1,XM2,XM3,BETA + DOUBLE PRECISION Q2,AEM,A1,A2,A3,AQ,RM1,RM2 + DOUBLE PRECISION ARG,X0,X1,AX0,AX1,AT,BT + DOUBLE PRECISION Y0,Y1,AMGX0,AM1X0,AMGX1,AM1X1 + DOUBLE PRECISION ARGX0,AR1X0,ARGX1,AR1X1 + DOUBLE PRECISION PYALPS,PYALEM + DOUBLE PRECISION PYRNM3 + INTEGER IERR,INDEX(4),I,J,K,L,IOPT,ILR,KFNCHI(4) + DATA KFNCHI/1000022,1000023,1000025,1000035/ + + IOPT=IMSS(2) + IF(IMSS(1).EQ.2) THEN + IOPT=1 + ENDIF +C...M1, M2, AND M3 ARE INDEPENDENT + IF(IOPT.EQ.0) THEN + XM1=RMSS(1) + XM2=RMSS(2) + XM3=RMSS(3) + ELSEIF(IOPT.GE.1) THEN + Q2=PMAS(23,1)**2 + AEM=PYALEM(Q2) + A2=AEM/PARU(102) + A1=AEM/(1D0-PARU(102)) + XM1=RMSS(1) + XM2=RMSS(2) + IF(IMSS(1).EQ.2) XM1=RMSS(1)/RMSS(20)*A1*5D0/3D0 + IF(IOPT.EQ.1) THEN + XM2=XM1*A2/A1*3D0/5D0 + RMSS(2)=XM2 + ELSEIF(IOPT.EQ.3) THEN + XM1=XM2*5D0/3D0*A1/A2 + RMSS(1)=XM1 + ENDIF + XM3=PYRNM3(XM2/A2) + RMSS(3)=XM3 + IF(XM3.LE.0D0) THEN + WRITE(MSTU(11),*) ' ERROR WITH M3 = ',XM3 + STOP + ENDIF + ENDIF + +C...GLUINO MASS + IF(IMSS(3).EQ.1) THEN + PMAS(PYCOMP(KSUSY1+21),1)=XM3 + ELSE + AQ=0D0 + DO 110 I=1,4 + DO 100 ILR=1,2 + RM1=PMAS(PYCOMP(ILR*KSUSY1+I),1)**2/XM3**2 + AQ=AQ+0.5D0*((2D0-RM1)*(RM1*LOG(RM1)-1D0) + & +(1D0-RM1)**2*LOG(ABS(1D0-RM1))) + 100 CONTINUE + 110 CONTINUE + + DO 130 I=5,6 + DO 120 ILR=1,2 + RM1=PMAS(PYCOMP(ILR*KSUSY1+I),1)**2/XM3**2 + RM2=PMAS(I,1)**2/XM3**2 + ARG=(RM1-RM2-1D0)**2-4D0*RM2**2 + IF(ARG.GE.0D0) THEN + X0=0.5D0*(1D0+RM2-RM1-SQRT(ARG)) + AX0=ABS(X0) + X1=0.5D0*(1D0+RM2-RM1+SQRT(ARG)) + AX1=ABS(X1) + IF(X0.EQ.1D0) THEN + AT=-1D0 + BT=0.25D0 + ELSEIF(X0.EQ.0D0) THEN + AT=0D0 + BT=-0.25D0 + ELSE + AT=0.5D0*LOG(ABS(1D0-X0))*(1D0-X0**2)+ + & 0.5D0*X0**2*LOG(AX0) + BT=(-1D0-2D0*X0)/4D0 + ENDIF + IF(X1.EQ.1D0) THEN + AT=-1D0+AT + BT=0.25D0+BT + ELSEIF(X1.EQ.0D0) THEN + AT=0D0+AT + BT=-0.25D0+BT + ELSE + AT=0.5D0*LOG(ABS(1D0-X1))*(1D0-X1**2)+0.5D0* + & X1**2*LOG(AX1)+AT + BT=(-1D0-2D0*X1)/4D0+BT + ENDIF + AQ=AQ+AT+BT + ELSE + X0=0.5D0*(1D0+RM2-RM1) + Y0=-0.5D0*SQRT(-ARG) + AMGX0=SQRT(X0**2+Y0**2) + AM1X0=SQRT((1D0-X0)**2+Y0**2) + ARGX0=ATAN2(-X0,-Y0) + AR1X0=ATAN2(1D0-X0,Y0) + X1=X0 + Y1=-Y0 + AMGX1=AMGX0 + AM1X1=AM1X0 + ARGX1=ATAN2(-X1,-Y1) + AR1X1=ATAN2(1D0-X1,Y1) + AT=0.5D0*LOG(AM1X0)*(1D0-X0**2+3D0*Y0**2) + & +0.5D0*(X0**2-Y0**2)*LOG(AMGX0) + BT=(-1D0-2D0*X0)/4D0+X0*Y0*( AR1X0-ARGX0 ) + AT=AT+0.5D0*LOG(AM1X1)*(1D0-X1**2+3D0*Y1**2) + & +0.5D0*(X1**2-Y1**2)*LOG(AMGX1) + BT=BT+(-1D0-2D0*X1)/4D0+X1*Y1*( AR1X1-ARGX1 ) + AQ=AQ+AT+BT + ENDIF + 120 CONTINUE + 130 CONTINUE + PMAS(PYCOMP(KSUSY1+21),1)=XM3*(1D0+PYALPS(XM3**2)/(2D0*PARU(2))* + & (15D0+AQ)) + ENDIF + +C...NEUTRALINO MASSES + XMZ=PMAS(23,1) + XMW=PMAS(24,1) + XMU=RMSS(4) + SINW=SQRT(PARU(102)) + COSW=SQRT(1D0-PARU(102)) + TANB=RMSS(5) + BETA=ATAN(TANB) + COSB=COS(BETA) + SINB=TANB*COSB + AR(1,1) = XM1 + AR(2,2) = XM2 + AR(3,3) = 0D0 + AR(4,4) = 0D0 + AR(1,2) = 0D0 + AR(2,1) = 0D0 + AR(1,3) = -XMZ*SINW*COSB + AR(3,1) = AR(1,3) + AR(1,4) = XMZ*SINW*SINB + AR(4,1) = AR(1,4) + AR(2,3) = XMZ*COSW*COSB + AR(3,2) = AR(2,3) + AR(2,4) = -XMZ*COSW*SINB + AR(4,2) = AR(2,4) + AR(3,4) = -XMU + AR(4,3) = -XMU + CALL PYEIG4(AR,WR,ZR) + DO 150 I=1,4 + SMZ(I)=WR(I) + PMAS(PYCOMP(KFNCHI(I)),1)=ABS(SMZ(I)) + DO 140 J=1,4 + ZMIX(I,J)=ZR(I,J) + IF(ABS(ZMIX(I,J)).LT.1D-6) ZMIX(I,J)=0D0 + 140 CONTINUE + 150 CONTINUE + +C...CHARGINO MASSES + AR(1,1) = XM2 + AR(2,2) = XMU + AR(1,2) = SQRT(2D0)*XMW*SINB + AR(2,1) = SQRT(2D0)*XMW*COSB + TERMB=AR(1,1)**2+AR(2,2)**2+AR(1,2)**2+AR(2,1)**2 + TERMC=(AR(1,1)**2-AR(2,2)**2)**2+(AR(1,2)**2-AR(2,1)**2)**2 + TERMC=TERMC+2D0*(AR(1,1)**2+AR(2,2)**2)* + &(AR(1,2)**2+AR(2,1)**2)+ + &8D0*AR(1,1)*AR(2,2)*AR(1,2)*AR(2,1) + DISCR=TERMC + IF(DISCR.LT.0D0) THEN + WRITE(MSTU(11),*) ' PROBLEM WITH DISCR ' + ELSE + DISCR=SQRT(DISCR) + ENDIF + XML2=0.5D0*(TERMB-DISCR) + XMH2=0.5D0*(TERMB+DISCR) + XML=SQRT(XML2) + XMH=SQRT(XMH2) + PMAS(PYCOMP(KSUSY1+24),1)=XML + PMAS(PYCOMP(KSUSY1+37),1)=XMH + SMW(1)=XML + SMW(2)=XMH + XXX=AR(1,1)**2+AR(2,1)**2 + YYY=AR(1,1)*AR(1,2)+AR(2,2)*AR(2,1) + VMIX(2,2) = YYY/SQRT(YYY**2+(XML2-XXX)**2) + VMIX(1,1) = SIGN(VMIX(2,2),AR(1,1)*AR(2,2)-0.5D0*AR(1,2)**2) + VMIX(2,1) = -(XML2-XXX)/SQRT(YYY**2+(XML2-XXX)**2) + VMIX(1,2) = -SIGN(VMIX(2,1),AR(1,1)*AR(2,2)-0.5D0*AR(1,2)**2) + ZR(1,1) = XML + ZR(1,2) = 0D0 + ZR(2,1) = 0D0 + ZR(2,2) = XMH + DETX = AR(1,1)*AR(2,2)-AR(1,2)*AR(2,1) + XI(1,1) = AR(2,2)/DETX + XI(2,2) = AR(1,1)/DETX + XI(1,2) = -AR(1,2)/DETX + XI(2,1) = -AR(2,1)/DETX + DO 190 I=1,2 + DO 180 J=1,2 + UMIX(I,J)=0D0 + DO 170 K=1,2 + DO 160 L=1,2 + UMIX(I,J)=UMIX(I,J)+ZR(I,K)*VMIX(K,L)*XI(L,J) + 160 CONTINUE + 170 CONTINUE + 180 CONTINUE + 190 CONTINUE + + RETURN + END + + + +C********************************************************************* + +C...PYRNM3 +C...Calculates the running of M3, the SU(3) gluino mass parameter. + + FUNCTION PYRNM3(RGUT) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP + +C...Local variables. + DOUBLE PRECISION PI,R + DOUBLE PRECISION TOL + EXTERNAL PYALPS + DOUBLE PRECISION PYALPS + DATA TOL/0.001D0/ + DATA PI,R/3.141592654D0,0.61803399D0/ + + C=1D0-R + + BX=RGUT*PYALPS(RGUT**2) + AX=MIN(50D0,BX*0.5D0) + CX=MAX(2000D0,2D0*BX) + + X0=AX + X3=CX + IF(ABS(CX-BX).GT.ABS(BX-AX))THEN + X1=BX + X2=BX+C*(CX-BX) + ELSE + X2=BX + X1=BX-C*(BX-AX) + ENDIF + AS1=PYALPS(X1**2) + F1=ABS(X1-RGUT*AS1) + AS2=PYALPS(X2**2) + F2=ABS(X2-RGUT*AS2) + 100 IF(ABS(X3-X0).GT.TOL*(ABS(X1)+ABS(X2))) THEN + IF(F2.LT.F1) THEN + X0=X1 + X1=X2 + X2=R*X1+C*X3 + F1=F2 + AS2=PYALPS(X2**2) + F2=ABS(X2-RGUT*AS2) + ELSE + X3=X2 + X2=X1 + X1=R*X2+C*X0 + F2=F1 + AS1=PYALPS(X1**2) + F1=ABS(X1-RGUT*AS1) + ENDIF + GOTO 100 + ENDIF + IF(F1.LT.F2) THEN + PYRNM3=X1 + XMIN=X1 + ELSE + PYRNM3=X2 + XMIN=X2 + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYEIG4 +C...Finds eigenvalues and eigenvectors to a 4 * 4 matrix. +C...Specific application: mixing in neutralino sector. + + SUBROUTINE PYEIG4(A,W,Z) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP + +C...Arrays: in call and local. + DIMENSION A(4,4),W(4),Z(4,4),X(4),D(4,4),E(4) + +C...Coefficients of fourth-degree equation from matrix. +C...x**4 + b3 * x**3 + b2 * x**2 + b1 * x + b0 = 0. + B3=-(A(1,1)+A(2,2)+A(3,3)+A(4,4)) + B2=0D0 + DO 110 I=1,3 + DO 100 J=I+1,4 + B2=B2+A(I,I)*A(J,J)-A(I,J)*A(J,I) + 100 CONTINUE + 110 CONTINUE + B1=0D0 + B0=0D0 + DO 120 I=1,4 + I1=MOD(I,4)+1 + I2=MOD(I+1,4)+1 + I3=MOD(I+2,4)+1 + B1=B1+A(I,I)*(-A(I1,I1)*A(I2,I2)+A(I1,I2)*A(I2,I1)+ + & A(I1,I3)*A(I3,I1)+A(I2,I3)*A(I3,I2))- + & A(I,I1)*A(I1,I2)*A(I2,I)-A(I,I2)*A(I2,I1)*A(I1,I) + B0=B0+(-1D0)**(I+1)*A(1,I)*( + & A(2,I1)*(A(3,I2)*A(4,I3)-A(3,I3)*A(4,I2))+ + & A(2,I2)*(A(3,I3)*A(4,I1)-A(3,I1)*A(4,I3))+ + & A(2,I3)*(A(3,I1)*A(4,I2)-A(3,I2)*A(4,I1))) + 120 CONTINUE + +C...Coefficients of third-degree equation needed for +C...separation into two second-degree equations. +C...u**3 + c2 * u**2 + c1 * u + c0 = 0. + C2=-B2 + C1=B1*B3-4D0*B0 + C0=-B1**2-B0*B3**2+4D0*B0*B2 + CQ=C1/3D0-C2**2/9D0 + CR=C1*C2/6D0-C0/2D0-C2**3/27D0 + CQR=CQ**3+CR**2 + +C...Cases with one or three real roots. + IF(CQR.GE.0D0) THEN + S1=(CR+SQRT(CQR))**(1D0/3D0) + S2=(CR-SQRT(CQR))**(1D0/3D0) + U=S1+S2-C2/3D0 + ELSE + SABS=SQRT(-CQ) + THE=ACOS(CR/SABS**3)/3D0 + SRE=SABS*COS(THE) + U=2D0*SRE-C2/3D0 + ENDIF + +C...Find and solve two second-degree equations. + P1=B3/2D0-SQRT(B3**2/4D0+U-B2) + P2=B3/2D0+SQRT(B3**2/4D0+U-B2) + Q1=U/2D0+SQRT(U**2/4D0-B0) + Q2=U/2D0-SQRT(U**2/4D0-B0) + IF(ABS(P1*Q1+P2*Q2-B1).LT.ABS(P1*Q2+P2*Q1-B1)) THEN + QSAV=Q1 + Q1=Q2 + Q2=QSAV + ENDIF + X(1)=-P1/2D0+SQRT(P1**2/4D0-Q1) + X(2)=-P1/2D0-SQRT(P1**2/4D0-Q1) + X(3)=-P2/2D0+SQRT(P2**2/4D0-Q2) + X(4)=-P2/2D0-SQRT(P2**2/4D0-Q2) + +C...Order eigenvalues in asceding mass. + W(1)=X(1) + DO 150 I1=2,4 + DO 130 I2=I1-1,1,-1 + IF(ABS(X(I1)).GE.ABS(W(I2))) GOTO 140 + W(I2+1)=W(I2) + 130 CONTINUE + 140 W(I2+1)=X(I1) + 150 CONTINUE + +C...Find equation system for eigenvectors. + DO 250 I=1,4 + DO 170 J1=1,4 + D(J1,J1)=A(J1,J1)-W(I) + DO 160 J2=J1+1,4 + D(J1,J2)=A(J1,J2) + D(J2,J1)=A(J2,J1) + 160 CONTINUE + 170 CONTINUE + +C...Find largest element in matrix. + DAMAX=0D0 + DO 190 J1=1,4 + DO 180 J2=1,4 + IF(ABS(D(J1,J2)).LE.DAMAX) GOTO 180 + JA=J1 + JB=J2 + DAMAX=ABS(D(J1,J2)) + 180 CONTINUE + 190 CONTINUE + +C...Subtract others by multiple of row selected above. + DAMAX=0D0 + DO 210 J3=JA+1,JA+3 + J1=J3-4*((J3-1)/4) + RL=D(J1,JB)/D(JA,JB) + DO 200 J2=1,4 + D(J1,J2)=D(J1,J2)-RL*D(JA,J2) + IF(ABS(D(J1,J2)).LE.DAMAX) GOTO 200 + JC=J1 + JD=J2 + DAMAX=ABS(D(J1,J2)) + 200 CONTINUE + 210 CONTINUE + +C...Do one more subtraction of a row. + DAMAX=0D0 + DO 230 J3=JC+1,JC+3 + J1=J3-4*((J3-1)/4) + IF(J1.EQ.JA) GOTO 230 + RL=D(J1,JD)/D(JC,JD) + DO 220 J2=1,4 + IF(J2.EQ.JB) GOTO 220 + D(J1,J2)=D(J1,J2)-RL*D(JC,J2) + IF(ABS(D(J1,J2)).LE.DAMAX) GOTO 220 + JE=J1 + DAMAX=ABS(D(J1,J2)) + 220 CONTINUE + 230 CONTINUE + +C...Construct unnormalized eigenvector. + JF1=JD+1-4*(JD/4) + JF2=JD+2-4*((JD+1)/4) + IF(JF1.EQ.JB) JF1=JD+3-4*((JD+2)/4) + IF(JF2.EQ.JB) JF2=JD+3-4*((JD+2)/4) + E(JF1)=-D(JE,JF2) + E(JF2)=D(JE,JF1) + E(JD)=-(D(JC,JF1)*E(JF1)+D(JC,JF2)*E(JF2))/D(JC,JD) + E(JB)=-(D(JA,JF1)*E(JF1)+D(JA,JF2)*E(JF2)+D(JA,JD)*E(JD))/ + & D(JA,JB) + +C...Normalize and fill in final array. + EA=SQRT(E(1)**2+E(2)**2+E(3)**2+E(4)**2) + SGN=(-1D0)**INT(PYR(0)+0.5D0) + DO 240 J=1,4 + Z(I,J)=SGN*E(J)/EA + 240 CONTINUE + 250 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYHGGM +C...Determines the Higgs boson mass spectrum using several inputs. + + SUBROUTINE PYHGGM(ALPHA) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + SAVE /PYDAT1/,/PYDAT2/,/PYPARS/,/PYMSSM/ + +C...Local variables. + DOUBLE PRECISION AT,AB,XMU,TANB,XM32,XMT2 + DOUBLE PRECISION ALPHA + INTEGER I,J,IHOPT,II,JJ,IT + DOUBLE PRECISION DMA,DTANB,DMQ,DMUR,DMTOP,DAU,DAD + DOUBLE PRECISION DMU,DMH,DHM,DMHCH,DSA,DCA,DTANBA + DOUBLE PRECISION DMC,DMDR,DMHP,DHMP,DAMP + DOUBLE PRECISION DSTOP1,DSTOP2,DSBOT1,DSBOT2 + + IHOPT=IMSS(4) + IF(IHOPT.EQ.2) THEN + ALPHA=RMSS(18) + RETURN + ENDIF + AT=RMSS(16) + AB=RMSS(15) + XMU=RMSS(4) + TANB=RMSS(5) + + DMA=RMSS(19) + DTANB=TANB + DMQ=RMSS(10) + DMUR=RMSS(12) + DMDR=RMSS(11) + DMTOP=PMAS(6,1) + DMC=PMAS(PYCOMP(KSUSY1+37),1) + DAU=AT + DAD=AB + DMU=XMU + + IF(IHOPT.EQ.0) THEN + CALL PYSUBH (DMA,DTANB,DMQ,DMUR,DMTOP,DAU,DAD,DMU,DMH,DHM, + & DMHCH,DSA,DCA,DTANBA) + ELSEIF(IHOPT.EQ.1) THEN + CALL PYSUBH (DMA,DTANB,DMQ,DMUR,DMTOP,DAU,DAD,DMU,DMH,DHM, + & DMHCH,DSA,DCA,DTANBA) + CALL PYPOLE(3,DMC,DMA,DTANB,DMQ,DMUR,DMDR,DMTOP,DAU,DAD,DMU, + & DMH,DMHP,DHM,DHMP,DAMP,DSA,DCA, + & DSTOP1,DSTOP2,DSBOT1,DSBOT2,DTANBA) + DMH=DMHP + DHM=DHMP + DMA=DAMP + IF(ABS(PMAS(PYCOMP(1000006),1)-DSTOP2).GT.5D-1) THEN + WRITE(MSTU(11),*) ' STOP1 MASS DOES NOT MATCH IN PYHGGM ' + WRITE(MSTU(11),*) ' STOP1 MASSES = ', + & PMAS(PYCOMP(1000006),1),DSTOP2 + ENDIF + IF(ABS(PMAS(PYCOMP(2000006),1)-DSTOP1).GT.5D-1) THEN + WRITE(MSTU(11),*) ' STOP2 MASS DOES NOT MATCH IN PYHGGM ' + WRITE(MSTU(11),*) ' STOP2 MASSES = ', + & PMAS(PYCOMP(2000006),1),DSTOP1 + ENDIF + IF(ABS(PMAS(PYCOMP(1000005),1)-DSBOT2).GT.5D-1) THEN + WRITE(MSTU(11),*) ' SBOT1 MASS DOES NOT MATCH IN PYHGGM ' + WRITE(MSTU(11),*) ' SBOT1 MASSES = ', + & PMAS(PYCOMP(1000005),1),DSBOT2 + ENDIF + IF(ABS(PMAS(PYCOMP(2000005),1)-DSBOT1).GT.5D-1) THEN + WRITE(MSTU(11),*) ' SBOT2 MASS DOES NOT MATCH IN PYHGGM ' + WRITE(MSTU(11),*) ' SBOT2 MASSES = ', + & PMAS(PYCOMP(2000005),1),DSBOT1 + ENDIF + + ENDIF + + ALPHA=ACOS(DCA) + + PMAS(25,1)=DMH + PMAS(35,1)=DHM + PMAS(36,1)=DMA + PMAS(37,1)=DMHCH + + RETURN + END + +C********************************************************************* + +C...PYSUBH +C...This routine computes the renormalization group improved +C...values of Higgs masses and couplings in the MSSM. + +C...Program based on the work by M. Carena, J.R. Espinosa, +c...M. Quiros and C.E.M. Wagner, CERN-preprint CERN-TH/95-45 + +C...Input: MA,TANB = TAN(BETA),MQ,MUR,MTOP,AU,AD,MU +C...All masses in GeV units. MA is the CP-odd Higgs mass, +C...MTOP is the physical top mass, MQ and MUR are the soft +C...supersymmetry breaking mass parameters of left handed +C...and right handed stops respectively, AU and AD are the +C...stop and sbottom trilinear soft breaking terms, +C...respectively, and MU is the supersymmetric +C...Higgs mass parameter. We use the conventions from +C...the physics report of Haber and Kane: left right +C...stop mixing term proportional to (AU - MU/TANB) +C...We use as input TANB defined at the scale MTOP + +C...Output: MH,HM,MHCH, SA = SIN(ALPHA), CA= COS(ALPHA), TANBA +C...where MH and HM are the lightest and heaviest CP-even +C...Higgs masses, MHCH is the charged Higgs mass and +C...ALPHA is the Higgs mixing angle +C...TANBA is the angle TANB at the CP-odd Higgs mass scale + +C...Range of validity: +C...(STOP1**2 - STOP2**2)/(STOP2**2 + STOP1**2) < 0.5 +C...(SBOT1**2 - SBOT2**2)/(SBOT2**2 + SBOT2**2) < 0.5 +C...where STOP1, STOP2, SBOT1 and SBOT2 are the stop and +C...are the sbottom mass eigenvalues, respectively. This +C...range automatically excludes the existence of tachyons. +C...For the charged Higgs mass computation, the method is +C...valid if +C...2 * |MB * AD* TANB| < M_SUSY**2, 2 * |MTOP * AU| < M_SUSY**2 +C...2 * |MB * MU * TANB| < M_SUSY**2, 2 * |MTOP * MU| < M_SUSY**2 +C...where M_SUSY**2 is the average of the squared stop mass +C...eigenvalues, M_SUSY**2 = (STOP1**2 + STOP2**2)/2. The sbottom +C...masses have been assumed to be of order of the stop ones +C...M_SUSY**2 = (MQ**2 + MUR**2)*0.5 + MTOP**2 + + SUBROUTINE PYSUBH (XMA,TANB,XMQ,XMUR,XMTOP,AU,AD,XMU,XMH,XHM, + &XMHCH,SA,CA,TANBA) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYHTRI/HHH(7) + SAVE /PYDAT1/,/PYDAT2/ + +C...Local variables. + DOUBLE PRECISION PYALEM,PYALPS + DOUBLE PRECISION TANB,XMQ,XMUR,XMTOP,AU,AD,XMU,XMH,XHM + DOUBLE PRECISION XMHCH,SA,CA + DOUBLE PRECISION XMA,AEM,ALP1,ALP2,ALPH3Z,V,PI + DOUBLE PRECISION Q02 + DOUBLE PRECISION TANBA,TANBT,XMB,ALP3 + DOUBLE PRECISION RMTOP,XMS,T,SINB,COSB + DOUBLE PRECISION XLAM1,XLAM2,XLAM3,XLAM4,XLAM5,XLAM6 + DOUBLE PRECISION XLAM7,XAU,XAD,G1,G2,G3,HU,HD,HU2 + DOUBLE PRECISION HD2,HU4,HD4,SINBT,COSBT + DOUBLE PRECISION TRM2,DETM2,XMH2,XHM2,XMHCH2 + DOUBLE PRECISION SINALP,COSALP,AUD,PI2,XMS2,XMS4,AD2 + DOUBLE PRECISION COS2BT,AU2,XMU2,XMZ,XMS3 + + XMZ = PMAS(23,1) + Q02=XMZ**2 + AEM=PYALEM(Q02) + ALP1=AEM/(1D0-PARU(102)) + ALP2=AEM/PARU(102) + ALPH3Z=PYALPS(Q02) + + ALP1 = 0.0101D0 + ALP2 = 0.0337D0 + ALPH3Z = 0.12D0 + + V = 174.1D0 + PI = PARU(1) + TANBA = TANB + TANBT = TANB + +C...MBOTTOM(MTOP) = 3. GEV + XMB = 3D0 + ALP3 = ALPH3Z/(1D0 +(11D0 - 10D0/3D0)/4D0/PI*ALPH3Z* + &LOG(XMTOP**2/XMZ**2)) + +C...RMTOP= RUNNING TOP QUARK MASS + RMTOP = XMTOP/(1D0+4D0*ALP3/3D0/PI) + XMS = ((XMQ**2 + XMUR**2)/2D0 + XMTOP**2)**0.5D0 + T = LOG(XMS**2/XMTOP**2) + SINB = TANB/((1D0 + TANB**2)**0.5D0) + COSB = SINB/TANB +C...IF(MA.LE.XMTOP) TANBA = TANBT + IF(XMA.GT.XMTOP) + &TANBA = TANBT*(1D0-3D0/32D0/PI**2* + &(RMTOP**2/V**2/SINB**2-XMB**2/V**2/COSB**2)* + &LOG(XMA**2/XMTOP**2)) + + SINBT = TANBT/SQRT(1D0 + TANBT**2) + COSBT = 1D0/SQRT(1D0 + TANBT**2) + COS2BT = (TANBT**2 - 1D0)/(TANBT**2 + 1D0) + G1 = SQRT(ALP1*4D0*PI) + G2 = SQRT(ALP2*4D0*PI) + G3 = SQRT(ALP3*4D0*PI) + HU = RMTOP/V/SINBT + HD = XMB/V/COSBT + HU2=HU*HU + HD2=HD*HD + HU4=HU2*HU2 + HD4=HD2*HD2 + AU2=AU**2 + AD2=AD**2 + XMS2=XMS**2 + XMS3=XMS**3 + XMS4=XMS2*XMS2 + XMU2=XMU*XMU + PI2=PI*PI + + XAU = (2D0*AU2/XMS2)*(1D0 - AU2/12D0/XMS2) + XAD = (2D0*AD2/XMS2)*(1D0 - AD2/12D0/XMS2) + AUD = (-6D0*XMU2/XMS2 - ( XMU2- AD*AU)**2/XMS4 + &+ 3D0*(AU + AD)**2/XMS2)/6D0 + XLAM1 = ((G1**2 + G2**2)/4D0)*(1D0-3D0*HD2*T/8D0/PI2) + &+(3D0*HD4/8D0/PI2) * (T + XAD/2D0 + (3D0*HD2/2D0 + HU2/2D0 + &- 8D0*G3**2) * (XAD*T + T**2)/16D0/PI2) + &-(3D0*HU4* XMU**4/96D0/PI2/XMS4) * (1+ (9D0*HU2 -5D0* HD2 + &- 16D0*G3**2) *T/16D0/PI2) + XLAM2 = ((G1**2 + G2**2)/4D0)*(1D0-3D0*HU2*T/8D0/PI2) + &+(3D0*HU4/8D0/PI2) * (T + XAU/2D0 + (3D0*HU2/2D0 + HD2/2D0 + &- 8D0*G3**2) * (XAU*T + T**2)/16D0/PI2) + &-(3D0*HD4* XMU**4/96D0/PI2/XMS4) * (1+ (9D0*HD2 -5D0* HU2 + &- 16D0*G3**2) *T/16D0/PI2) + XLAM3 = ((G2**2 - G1**2)/4D0)*(1D0-3D0* + &(HU2 + HD2)*T/16D0/PI2) + &+(6D0*HU2*HD2/16D0/PI2) * (T + AUD/2D0 + (HU2 + HD2 + &- 8D0*G3**2) * (AUD*T + T**2)/16D0/PI2) + &+(3D0*HU4/96D0/PI2) * (3D0*XMU2/XMS2 - XMU2*AU2/ + &XMS4)* (1D0+ (6D0*HU2 -2D0* HD2/2D0 + &- 16D0*G3**2) *T/16D0/PI2) + &+(3D0*HD4/96D0/PI2) * (3D0*XMU2/XMS2 - XMU2*AD2/ + &XMS4)*(1D0+ (6D0*HD2 -2D0* HU2 + &- 16D0*G3**2) *T/16D0/PI2) + XLAM4 = (- G2**2/2D0)*(1D0-3D0*(HU2 + HD2)*T/16D0/PI2) + &-(6D0*HU2*HD2/16D0/PI2) * (T + AUD/2D0 + (HU2 + HD2 + &- 8D0*G3**2) * (AUD*T + T**2)/16D0/PI2) + &+(3D0*HU4/96D0/PI2) * (3D0*XMU2/XMS2 - XMU2*AU2/ + &XMS4)* + &(1+ (6D0*HU2 -2D0* HD2 + &- 16D0*G3**2) *T/16D0/PI2) + &+(3D0*HD4/96D0/PI2) * (3D0*XMU2/XMS2 - XMU2*AD2/ + &XMS4)* + &(1+ (6D0*HD2 -2D0* HU2/2D0 + &- 16D0*G3**2) *T/16D0/PI2) + XLAM5 = -(3D0*HU4* XMU2*AU2/96D0/PI2/XMS4) * + &(1- (2D0*HD2 -6D0* HU2 + 16D0*G3**2) *T/16D0/PI2) + &-(3D0*HD4* XMU2*AD2/96D0/PI2/XMS4) * + &(1- (2D0*HU2 -6D0* HD2 + 16D0*G3**2) *T/16D0/PI2) + XLAM6 = (3D0*HU4* XMU**3*AU/96D0/PI2/XMS4) * + &(1- (7D0*HD2/2D0 -15D0* HU2/2D0 + 16D0*G3**2) *T/16D0/PI2) + &+(3D0*HD4* XMU *(AD**3/XMS3 - 6D0*AD/XMS )/96D0/PI2/XMS) * + &(1- (HU2/2D0 -9D0* HD2/2D0 + 16D0*G3**2) *T/16D0/PI2) + XLAM7 = (3D0*HD4* XMU**3*AD/96D0/PI2/XMS4) * + &(1- (7D0*HU2/2D0 -15D0* HD2/2D0 + 16D0*G3**2) *T/16D0/PI2) + &+(3D0*HU4* XMU *(AU**3/XMS3 - 6D0*AU/XMS )/96D0/PI2/XMS) * + &(1- (HD2/2D0 -9D0* HU2/2D0 + 16D0*G3**2) *T/16D0/PI2) + HHH(1)=XLAM1 + HHH(2)=XLAM2 + HHH(3)=XLAM3 + HHH(4)=XLAM4 + HHH(5)=XLAM5 + HHH(6)=XLAM6 + HHH(7)=XLAM7 + TRM2 = XMA**2 + 2D0*V**2* (XLAM1* COSBT**2 + + &2D0* XLAM6*SINBT*COSBT + &+ XLAM5*SINBT**2 + XLAM2* SINBT**2 + 2D0* XLAM7*SINBT*COSBT + &+ XLAM5*COSBT**2) + DETM2 = 4D0*V**4*(-(SINBT*COSBT*(XLAM3 + XLAM4) + + &XLAM6*COSBT**2 + &+ XLAM7* SINBT**2)**2 + (XLAM1* COSBT**2 + + &2D0* XLAM6* COSBT*SINBT + &+ XLAM5*SINBT**2)*(XLAM2* SINBT**2 +2D0* XLAM7* COSBT*SINBT + &+ XLAM5*COSBT**2)) + XMA**2*2D0*V**2 * + &((XLAM1* COSBT**2 +2D0* + &XLAM6* COSBT*SINBT + XLAM5*SINBT**2)*COSBT**2 + + &(XLAM2* SINBT**2 +2D0* XLAM7* COSBT*SINBT + XLAM5*COSBT**2) + &*SINBT**2 + &+2D0*SINBT*COSBT* (SINBT*COSBT*(XLAM3 + &+ XLAM4) + XLAM6*COSBT**2 + &+ XLAM7* SINBT**2)) + + XMH2 = (TRM2 - SQRT(TRM2**2 - 4D0* DETM2))/2D0 + XHM2 = (TRM2 + SQRT(TRM2**2 - 4D0* DETM2))/2D0 + XHM = SQRT(XHM2) + XMH = SQRT(XMH2) + XMHCH2 = XMA**2 + (XLAM5 - XLAM4)* V**2 + XMHCH = SQRT(XMHCH2) + + SINALP = SQRT(((TRM2**2 - 4D0* DETM2)**0.5D0) - + &((2D0*V**2*(XLAM1* COSBT**2 + 2D0* + &XLAM6* COSBT*SINBT + &+ XLAM5*SINBT**2) + XMA**2*SINBT**2) + &- (2D0*V**2*(XLAM2* SINBT**2 +2D0* XLAM7* COSBT*SINBT + &+ XLAM5*COSBT**2) + XMA**2*COSBT**2)))/ + &SQRT(((TRM2**2 - 4D0* DETM2)**0.5D0))/2D0**0.5D0 + + COSALP = (2D0*(2D0*V**2*(SINBT*COSBT*(XLAM3 + XLAM4) + + &XLAM6*COSBT**2 + XLAM7* SINBT**2) - + &XMA**2*SINBT*COSBT))/2D0**0.5D0/ + &SQRT(((TRM2**2 - 4D0* DETM2)**0.5D0)* + &(((TRM2**2 - 4D0* DETM2)**0.5D0) - + &((2D0*V**2*(XLAM1* COSBT**2 + 2D0* + &XLAM6* COSBT*SINBT + &+ XLAM5*SINBT**2) + XMA**2*SINBT**2) + &- (2D0*V**2*(XLAM2* SINBT**2 +2D0* XLAM7* COSBT*SINBT + &+ XLAM5*COSBT**2) + XMA**2*COSBT**2)))) + + SA = -SINALP + CA = -COSALP + + 100 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYPOLE +C...This subroutine computes the CP-even higgs and CP-odd pole +c...Higgs masses and mixing angles. + +C...Program based on the work by M. Carena, M. Quiros +C...and C.E.M. Wagner, "Effective potential methods and +C...the Higgs mass spectrum in the MSSM", CERN-TH/95-157 + +C...Inputs: IHIGGS(explained below),MCHI,MA,TANB,MQ,MUR,MDR,MTOP, +C...AT,AB,MU +C...where MCHI is the largest chargino mass, MA is the running +C...CP-odd higgs mass, TANB is the value of the ratio of vacuum +C...expectaion values at the scale MTOP, MQ is the third generation +C...left handed squark mass parameter, MUR is the third generation +C...right handed stop mass parameter, MDR is the third generation +C...right handed sbottom mass parameter, MTOP is the pole top quark +C...mass; AT,AB are the soft supersymmetry breaking trilinear +C...couplings of the stop and sbottoms, respectively, and MU is the +C...supersymmetric mass parameter + +C...The parameter IHIGGS=0,1,2,3 corresponds to the +c...number of Higgses whose pole mass is computed +c...by the subroutine PYVACU(...). If IHIGGS=0 only running +c...masses are given, what makes the running of the program +c...much faster and it is quite generally a good approximation +c...(for a theoretical discussion see ref. below). +c...If IHIGGS=1, only the pole +c...mass for H is computed. If IHIGGS=2, then h and H, and +c...if IHIGGS=3, then h,H,A polarizations are computed + +C...Output: MH and MHP which are the lightest CP-even Higgs running +C...and pole masses, respectively; HM and HMP are the heaviest CP-even +C...Higgs running and pole masses, repectively; SA and CA are the +C...SIN(ALPHA) and COS(ALPHA) where ALPHA is the Higgs mixing angle +C...AMP is the CP-odd Higgs pole mass. STOP1,STOP2,SBOT1 and SBOT2 +C...are the stop and sbottom mass eigenvalues. Finally, TANBA is +C...the value of TANB at the CP-odd Higgs mass scale + +C...This subroutine makes use of CERN library subroutine +C...integration package, which makes the computation of the +C...pole Higgs masses somewhat faster. We thank P. Janot for this +C...improvement. Those who are not able to call the CERN +C...libraries, please use the subroutine SUBHPOLE2.F, which +C...although somewhat slower, gives identical results + + SUBROUTINE PYPOLE(IHIGGS,XMC,XMA,TANB,XMQ,XMUR,XMDR,XMT,AT,AB,XMU, + &XMH,XMHP,HM,HMP,AMP,SA,CA,STOP1,STOP2,SBOT1,SBOT2,TANBA) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + +C...Parameters. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + INTEGER PYK,PYCHGE,PYCOMP + +C...Local variables. + DIMENSION DELTA(2,2),COUPT(2,2),T(2,2),SSTOP2(2), + &SSBOT2(2),B(2,2),COUPB(2,2), + &HCOUPT(2,2),HCOUPB(2,2), + &ACOUPT(2,2),ACOUPB(2,2),PR(3), POLAR(3) + + DELTA(1,1) = 1D0 + DELTA(2,2) = 1D0 + DELTA(1,2) = 0D0 + DELTA(2,1) = 0D0 + V = 174.1D0 + XMZ=91.18D0 + PI=3.14159D0 + ALP3Z=0.12D0 + ALP3=1D0/(1D0/ALP3Z+23D0/6D0/PI*LOG(XMT/XMZ)) + +C RXMT = XMT/(1D0+4*ALP3/3D0/PI) + RXMT = PYRNMT(XMT) + + HT = RXMT /V + CALL PYRGHM(XMC,XMA,TANB,XMQ,XMUR,XMDR,XMT,AT,AB, + &XMU,XMH,HM,SA,CA,TANBA) + SINB = TANB/(TANB**2+1D0)**0.5D0 + COSB = 1D0/(TANB**2+1D0)**0.5D0 + COS2B = SINB**2 - COSB**2 + SINBPA = SINB*CA + COSB*SA + COSBPA = COSB*CA - SINB*SA + RMBOT = 3D0 + XMQ2 = XMQ**2 + XMUR2 = XMUR**2 + IF(XMUR.LT.0D0) XMUR2=-XMUR2 + XMDR2 = XMDR**2 + XMST11 = RXMT**2 + XMQ2 - 0.35D0*XMZ**2*COS2B + XMST22 = RXMT**2 + XMUR2 - 0.15D0*XMZ**2*COS2B + IF(XMST11.LT.0D0) GOTO 500 + IF(XMST22.LT.0D0) GOTO 500 + XMSB11 = RMBOT**2 + XMQ2 + 0.42D0*XMZ**2*COS2B + XMSB22 = RMBOT**2 + XMDR2 + 0.08D0*XMZ**2*COS2B + IF(XMSB11.LT.0D0) GOTO 500 + IF(XMSB22.LT.0D0) GOTO 500 + WMST11 = RXMT**2 + XMQ2 + WMST22 = RXMT**2 + XMUR2 + XMST12 = RXMT*(AT - XMU/TANB) + XMSB12 = RMBOT*(AB - XMU*TANB) + +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +C...STOP EIGENVALUES CALCULATION +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + + STOP12 = 0.5D0*(XMST11+XMST22) + + &0.5D0*((XMST11+XMST22)**2 - + &4D0*(XMST11*XMST22 - XMST12**2))**0.5D0 + STOP22 = 0.5D0*(XMST11+XMST22) - + &0.5D0*((XMST11+XMST22)**2 - 4D0*(XMST11*XMST22 - + &XMST12**2))**0.5D0 + + IF(STOP22.LT.0D0) GOTO 500 + SSTOP2(1) = STOP12 + SSTOP2(2) = STOP22 + STOP1 = STOP12**0.5D0 + STOP2 = STOP22**0.5D0 + STOP1W = STOP1 + STOP2W = STOP2 + + IF(XMST12.EQ.0D0) XST11 = 1D0 + IF(XMST12.EQ.0D0) XST12 = 0D0 + IF(XMST12.EQ.0D0) XST21 = 0D0 + IF(XMST12.EQ.0D0) XST22 = 1D0 + + IF(XMST12.EQ.0D0) GOTO 110 + + 100 XST11 = XMST12/(XMST12**2+(XMST11-STOP12)**2)**0.5D0 + XST12 = - (XMST11-STOP12)/(XMST12**2+(XMST11-STOP12)**2)**0.5D0 + XST21 = XMST12/(XMST12**2+(XMST11-STOP22)**2)**0.5D0 + XST22 = - (XMST11-STOP22)/(XMST12**2+(XMST11-STOP22)**2)**0.5D0 + + 110 T(1,1) = XST11 + T(2,2) = XST22 + T(1,2) = XST12 + T(2,1) = XST21 + + SBOT12 = 0.5D0*(XMSB11+XMSB22) + + &0.5D0*((XMSB11+XMSB22)**2 - + &4D0*(XMSB11*XMSB22 - XMSB12**2))**0.5D0 + SBOT22 = 0.5D0*(XMSB11+XMSB22) - + &0.5D0*((XMSB11+XMSB22)**2 - 4D0*(XMSB11*XMSB22 - + &XMSB12**2))**0.5D0 + IF(SBOT22.LT.0D0) GOTO 500 + SBOT1 = SBOT12**0.5D0 + SBOT2 = SBOT22**0.5D0 + + SSBOT2(1) = SBOT12 + SSBOT2(2) = SBOT22 + + IF(XMSB12.EQ.0D0) XSB11 = 1D0 + IF(XMSB12.EQ.0D0) XSB12 = 0D0 + IF(XMSB12.EQ.0D0) XSB21 = 0D0 + IF(XMSB12.EQ.0D0) XSB22 = 1D0 + + IF(XMSB12.EQ.0D0) GOTO 130 + + 120 XSB11 = XMSB12/(XMSB12**2+(XMSB11-SBOT12)**2)**0.5D0 + XSB12 = - (XMSB11-SBOT12)/(XMSB12**2+(XMSB11-SBOT12)**2)**0.5D0 + XSB21 = XMSB12/(XMSB12**2+(XMSB11-SBOT22)**2)**0.5D0 + XSB22 = - (XMSB11-SBOT22)/(XMSB12**2+(XMSB11-SBOT22)**2)**0.5D0 + + 130 B(1,1) = XSB11 + B(2,2) = XSB22 + B(1,2) = XSB12 + B(2,1) = XSB21 + + + SINT = 0.2320D0 + SQR = 2D0**0.5D0 + VP = 174.1D0*SQR + +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +C...STARTING OF LIGHT HIGGS +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + + IF(IHIGGS.EQ.0) GOTO 490 + + DO 150 I = 1,2 + DO 140 J = 1,2 + COUPT(I,J) = + & SINT*XMZ**2*2D0*SQR/174.1D0/3D0*SINBPA*(DELTA(I,J) + + & (3D0 - 8D0*SINT)/4D0/SINT*T(1,I)*T(1,J)) + & -RXMT**2/174.1D0**2*VP/SINB*CA*DELTA(I,J) + & -RXMT/VP/SINB*(AT*CA + XMU*SA)*(T(1,I)*T(2,J) + + & T(1,J)*T(2,I)) + 140 CONTINUE + 150 CONTINUE + + + DO 170 I = 1,2 + DO 160 J = 1,2 + COUPB(I,J) = + & -SINT*XMZ**2*2D0*SQR/174.1D0/6D0*SINBPA*(DELTA(I,J) + + & (3D0 - 4D0*SINT)/2D0/SINT*B(1,I)*B(1,J)) + & +RMBOT**2/174.1D0**2*VP/COSB*SA*DELTA(I,J) + & +RMBOT/VP/COSB*(AB*SA + XMU*CA)*(B(1,I)*B(2,J) + + & B(1,J)*B(2,I)) + 160 CONTINUE + 170 CONTINUE + + PRUN = XMH + EPS = 1D-4*PRUN + ITER = 0 + 180 ITER = ITER + 1 + DO 230 I3 = 1,3 + + PR(I3)=PRUN+(I3-2)*EPS/2 + P2=PR(I3)**2 + POLT = 0D0 + DO 200 I = 1,2 + DO 190 J = 1,2 + POLT = POLT + COUPT(I,J)**2*3D0* + & PYFINT(P2,SSTOP2(I),SSTOP2(J))/16D0/PI**2 + 190 CONTINUE + 200 CONTINUE + POLB = 0D0 + DO 220 I = 1,2 + DO 210 J = 1,2 + POLB = POLB + COUPB(I,J)**2*3D0* + & PYFINT(P2,SSBOT2(I),SSBOT2(J))/16D0/PI**2 + 210 CONTINUE + 220 CONTINUE + RXMT2 = RXMT**2 + XMT2=XMT**2 + + POLTT = + & 3D0*RXMT**2/8D0/PI**2/ V **2* + & CA**2/SINB**2 * + & (-2D0*XMT**2+0.5D0*P2)* + & PYFINT(P2,XMT2,XMT2) + + POL = POLT + POLB + POLTT + POLAR(I3) = P2 - XMH**2 - POL + 230 CONTINUE + DERIV = (POLAR(3)-POLAR(1))/EPS + DRUN = - POLAR(2)/DERIV + PRUN = PRUN + DRUN + P2 = PRUN**2 + IF( ABS(DRUN) .LT. 1D-4 .OR.ITER.GT.100 ) GOTO 240 + GOTO 180 + 240 CONTINUE + + XMHP = P2**0.5D0 + +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +C...END OF LIGHT HIGGS +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + + 250 IF(IHIGGS.EQ.1) GOTO 490 + +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +C... STARTING OF HEAVY HIGGS +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + + DO 270 I = 1,2 + DO 260 J = 1,2 + HCOUPT(I,J) = + & -SINT*XMZ**2*2D0*SQR/174.1D0/3D0*COSBPA*(DELTA(I,J) + + & (3D0 - 8D0*SINT)/4D0/SINT*T(1,I)*T(1,J)) + & -RXMT**2/174.1D0**2*VP/SINB*SA*DELTA(I,J) + & -RXMT/VP/SINB*(AT*SA - XMU*CA)*(T(1,I)*T(2,J) + + & T(1,J)*T(2,I)) + 260 CONTINUE + 270 CONTINUE + + DO 290 I = 1,2 + DO 280 J = 1,2 + HCOUPB(I,J) = + & SINT*XMZ**2*2D0*SQR/174.1D0/6D0*COSBPA*(DELTA(I,J) + + & (3D0 - 4D0*SINT)/2D0/SINT*B(1,I)*B(1,J)) + & -RMBOT**2/174.1D0**2*VP/COSB*CA*DELTA(I,J) + & -RMBOT/VP/COSB*(AB*CA - XMU*SA)*(B(1,I)*B(2,J) + + & B(1,J)*B(2,I)) + HCOUPB(I,J)=0D0 + 280 CONTINUE + 290 CONTINUE + + PRUN = HM + EPS = 1D-4*PRUN + ITER = 0 + 300 ITER = ITER + 1 + DO 350 I3 = 1,3 + PR(I3)=PRUN+(I3-2)*EPS/2 + HP2=PR(I3)**2 + + HPOLT = 0D0 + DO 320 I = 1,2 + DO 310 J = 1,2 + HPOLT = HPOLT + HCOUPT(I,J)**2*3D0* + & PYFINT(HP2,SSTOP2(I),SSTOP2(J))/16D0/PI**2 + 310 CONTINUE + 320 CONTINUE + + HPOLB = 0D0 + DO 340 I = 1,2 + DO 330 J = 1,2 + HPOLB = HPOLB + HCOUPB(I,J)**2*3D0* + & PYFINT(HP2,SSBOT2(I),SSBOT2(J))/16D0/PI**2 + 330 CONTINUE + 340 CONTINUE + + RXMT2 = RXMT**2 + XMT2 = XMT**2 + + HPOLTT = + & 3D0*RXMT**2/8D0/PI**2/ V **2* + & SA**2/SINB**2 * + & (-2D0*XMT**2+0.5D0*HP2)* + & PYFINT(HP2,XMT2,XMT2) + + HPOL = HPOLT + HPOLB + HPOLTT + POLAR(I3) =HP2-HM**2-HPOL + 350 CONTINUE + DERIV = (POLAR(3)-POLAR(1))/EPS + DRUN = - POLAR(2)/DERIV + PRUN = PRUN + DRUN + HP2 = PRUN**2 + IF( ABS(DRUN) .LT. 1D-4 .OR.ITER.GT.100 ) GOTO 360 + GOTO 300 + 360 CONTINUE + + + 370 CONTINUE + HMP = HP2**0.5D0 + +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +C... END OF HEAVY HIGGS +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + + IF(IHIGGS.EQ.2) GOTO 490 + +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +C...BEGINNING OF PSEUDOSCALAR HIGGS +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + + DO 390 I = 1,2 + DO 380 J = 1,2 + ACOUPT(I,J) = + & -RXMT/VP/SINB*(AT*COSB + XMU*SINB)* + & (T(1,I)*T(2,J) -T(1,J)*T(2,I)) + 380 CONTINUE + 390 CONTINUE + DO 410 I = 1,2 + DO 400 J = 1,2 + ACOUPB(I,J) = + & RMBOT/VP/COSB*(AB*SINB + XMU*COSB)* + & (B(1,I)*B(2,J) -B(1,J)*B(2,I)) + 400 CONTINUE + 410 CONTINUE + + PRUN = XMA + EPS = 1D-4*PRUN + ITER = 0 + 420 ITER = ITER + 1 + DO 470 I3 = 1,3 + PR(I3)=PRUN+(I3-2)*EPS/2 + AP2=PR(I3)**2 + APOLT = 0D0 + DO 440 I = 1,2 + DO 430 J = 1,2 + APOLT = APOLT + ACOUPT(I,J)**2*3D0* + & PYFINT(AP2,SSTOP2(I),SSTOP2(J))/16D0/PI**2 + 430 CONTINUE + 440 CONTINUE + APOLB = 0D0 + DO 460 I = 1,2 + DO 450 J = 1,2 + APOLB = APOLB + ACOUPB(I,J)**2*3D0* + & PYFINT(AP2,SSBOT2(I),SSBOT2(J))/16D0/PI**2 + 450 CONTINUE + 460 CONTINUE + RXMT2 = RXMT**2 + XMT2=XMT**2 + APOLTT = + & 3D0*RXMT**2/8D0/PI**2/ V **2* + & COSB**2/SINB**2 * + & (-0.5D0*AP2)* + & PYFINT(AP2,XMT2,XMT2) + APOL = APOLT + APOLB + APOLTT + POLAR(I3) = AP2 - XMA**2 -APOL + 470 CONTINUE + DERIV = (POLAR(3)-POLAR(1))/EPS + DRUN = - POLAR(2)/DERIV + PRUN = PRUN + DRUN + AP2 = PRUN**2 + IF( ABS(DRUN) .LT. 1D-4 .OR.ITER.GT.100 ) GOTO 480 + GOTO 420 + 480 CONTINUE + + AMP = AP2**0.5D0 + +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +C...END OF PSEUDOSCALAR HIGGS +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + + IF(IHIGGS.EQ.3) GOTO 490 + + 490 CONTINUE + RETURN + 500 CONTINUE + WRITE(MSTU(11),*) ' EXITING IN PYVACU ' + WRITE(MSTU(11),*) ' XMST11,XMST22 = ',XMST11,XMST22 + WRITE(MSTU(11),*) ' XMSB11,XMSB22 = ',XMSB11,XMSB22 + WRITE(MSTU(11),*) ' STOP22,SBOT22 = ',STOP22,SBOT22 + STOP + END + +C********************************************************************* + +C...PYVACU +C...Computes Higgs masses and mixing angles, see PYPOLE above. + + SUBROUTINE PYVACU(IHIGGS,XMC,XMA,TANB,XMQ,XMUR,XMDR, + &XMT,AT,AB,XMU,XMH,XMHP,HM,HMP,AMP,STOP1,STOP2, + &SBOT1,SBOT2,SA,CA,STOP1W,STOP2W,TANBA) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) +C...Parameters. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + INTEGER PYK,PYCHGE,PYCOMP + +C...Local variables. + DIMENSION DELTA(2,2),COUPT(2,2),T(2,2),SSTOP2(2), + &SSBOT2(2),B(2,2),COUPB(2,2), + &HCOUPT(2,2),HCOUPB(2,2), + &ACOUPT(2,2),ACOUPB(2,2),PR(3), POLAR(3) + + DELTA(1,1) = 1D0 + DELTA(2,2) = 1D0 + DELTA(1,2) = 0D0 + DELTA(2,1) = 0D0 + V = 174.1D0 + XMZ=91.18D0 + PI=3.14159D0 + ALP3Z=0.12D0 + ALP3=1D0/(1D0/ALP3Z+23D0/6D0/PI*LOG(XMT/XMZ)) + +C RXMT = XMT/(1D0+4*ALP3/3D0/PI) + RXMT = PYRNMT(XMT) + + HT = RXMT /V + CALL PYRGHM(XMC,XMA,TANB,XMQ,XMUR,XMDR,XMT,AT,AB, + &XMU,XMH,HM,SA,CA,TANBA) + SINB = TANB/(TANB**2+1D0)**0.5D0 + COSB = 1D0/(TANB**2+1D0)**0.5D0 + COS2B = SINB**2 - COSB**2 + SINBPA = SINB*CA + COSB*SA + COSBPA = COSB*CA - SINB*SA + RMBOT = 3D0 + XMQ2 = XMQ**2 + XMUR2 = XMUR**2 + IF(XMUR.LT.0D0) XMUR2=-XMUR2 + XMDR2 = XMDR**2 + XMST11 = RXMT**2 + XMQ2 - 0.35D0*XMZ**2*COS2B + XMST22 = RXMT**2 + XMUR2 - 0.15D0*XMZ**2*COS2B + IF(XMST11.LT.0D0) GOTO 500 + IF(XMST22.LT.0D0) GOTO 500 + XMSB11 = RMBOT**2 + XMQ2 + 0.42D0*XMZ**2*COS2B + XMSB22 = RMBOT**2 + XMDR2 + 0.08D0*XMZ**2*COS2B + IF(XMSB11.LT.0D0) GOTO 500 + IF(XMSB22.LT.0D0) GOTO 500 + WMST11 = RXMT**2 + XMQ2 + WMST22 = RXMT**2 + XMUR2 + XMST12 = RXMT*(AT - XMU/TANB) + XMSB12 = RMBOT*(AB - XMU*TANB) + +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +C...STOP EIGENVALUES CALCULATION +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + + STOP12 = 0.5D0*(XMST11+XMST22) + + &0.5D0*((XMST11+XMST22)**2 - + &4D0*(XMST11*XMST22 - XMST12**2))**0.5D0 + STOP22 = 0.5D0*(XMST11+XMST22) - + &0.5D0*((XMST11+XMST22)**2 - 4D0*(XMST11*XMST22 - + &XMST12**2))**0.5D0 + + IF(STOP22.LT.0D0) GOTO 500 + SSTOP2(1) = STOP12 + SSTOP2(2) = STOP22 + STOP1 = STOP12**0.5D0 + STOP2 = STOP22**0.5D0 + STOP1W = STOP1 + STOP2W = STOP2 + + IF(XMST12.EQ.0D0) XST11 = 1D0 + IF(XMST12.EQ.0D0) XST12 = 0D0 + IF(XMST12.EQ.0D0) XST21 = 0D0 + IF(XMST12.EQ.0D0) XST22 = 1D0 + + IF(XMST12.EQ.0D0) GOTO 110 + + 100 XST11 = XMST12/(XMST12**2+(XMST11-STOP12)**2)**0.5D0 + XST12 = - (XMST11-STOP12)/(XMST12**2+(XMST11-STOP12)**2)**0.5D0 + XST21 = XMST12/(XMST12**2+(XMST11-STOP22)**2)**0.5D0 + XST22 = - (XMST11-STOP22)/(XMST12**2+(XMST11-STOP22)**2)**0.5D0 + + 110 T(1,1) = XST11 + T(2,2) = XST22 + T(1,2) = XST12 + T(2,1) = XST21 + + SBOT12 = 0.5D0*(XMSB11+XMSB22) + + &0.5D0*((XMSB11+XMSB22)**2 - + &4D0*(XMSB11*XMSB22 - XMSB12**2))**0.5D0 + SBOT22 = 0.5D0*(XMSB11+XMSB22) - + &0.5D0*((XMSB11+XMSB22)**2 - 4D0*(XMSB11*XMSB22 - + &XMSB12**2))**0.5D0 + IF(SBOT22.LT.0D0) GOTO 500 + SBOT1 = SBOT12**0.5D0 + SBOT2 = SBOT22**0.5D0 + + SSBOT2(1) = SBOT12 + SSBOT2(2) = SBOT22 + + IF(XMSB12.EQ.0D0) XSB11 = 1D0 + IF(XMSB12.EQ.0D0) XSB12 = 0D0 + IF(XMSB12.EQ.0D0) XSB21 = 0D0 + IF(XMSB12.EQ.0D0) XSB22 = 1D0 + + IF(XMSB12.EQ.0D0) GOTO 130 + + 120 XSB11 = XMSB12/(XMSB12**2+(XMSB11-SBOT12)**2)**0.5D0 + XSB12 = - (XMSB11-SBOT12)/(XMSB12**2+(XMSB11-SBOT12)**2)**0.5D0 + XSB21 = XMSB12/(XMSB12**2+(XMSB11-SBOT22)**2)**0.5D0 + XSB22 = - (XMSB11-SBOT22)/(XMSB12**2+(XMSB11-SBOT22)**2)**0.5D0 + + 130 B(1,1) = XSB11 + B(2,2) = XSB22 + B(1,2) = XSB12 + B(2,1) = XSB21 + + + SINT = 0.2320D0 + SQR = 2D0**0.5D0 + VP = 174.1D0*SQR + +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +C...STARTING OF LIGHT HIGGS +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + + IF(IHIGGS.EQ.0) GOTO 490 + + DO 150 I = 1,2 + DO 140 J = 1,2 + COUPT(I,J) = + & SINT*XMZ**2*2D0*SQR/174.1D0/3D0*SINBPA*(DELTA(I,J) + + & (3D0 - 8D0*SINT)/4D0/SINT*T(1,I)*T(1,J)) + & -RXMT**2/174.1D0**2*VP/SINB*CA*DELTA(I,J) + & -RXMT/VP/SINB*(AT*CA + XMU*SA)*(T(1,I)*T(2,J) + + & T(1,J)*T(2,I)) + 140 CONTINUE + 150 CONTINUE + + + DO 170 I = 1,2 + DO 160 J = 1,2 + COUPB(I,J) = + & -SINT*XMZ**2*2D0*SQR/174.1D0/6D0*SINBPA*(DELTA(I,J) + + & (3D0 - 4D0*SINT)/2D0/SINT*B(1,I)*B(1,J)) + & +RMBOT**2/174.1D0**2*VP/COSB*SA*DELTA(I,J) + & +RMBOT/VP/COSB*(AB*SA + XMU*CA)*(B(1,I)*B(2,J) + + & B(1,J)*B(2,I)) + 160 CONTINUE + 170 CONTINUE + + PRUN = XMH + EPS = 1D-4*PRUN + ITER = 0 + 180 ITER = ITER + 1 + DO 230 I3 = 1,3 + + PR(I3)=PRUN+(I3-2)*EPS/2 + P2=PR(I3)**2 + POLT = 0D0 + DO 200 I = 1,2 + DO 190 J = 1,2 + POLT = POLT + COUPT(I,J)**2*3D0* + & PYFINT(P2,SSTOP2(I),SSTOP2(J))/16D0/PI**2 + 190 CONTINUE + 200 CONTINUE + POLB = 0D0 + DO 220 I = 1,2 + DO 210 J = 1,2 + POLB = POLB + COUPB(I,J)**2*3D0* + & PYFINT(P2,SSBOT2(I),SSBOT2(J))/16D0/PI**2 + 210 CONTINUE + 220 CONTINUE + RXMT2 = RXMT**2 + XMT2=XMT**2 + + POLTT = + & 3D0*RXMT**2/8D0/PI**2/ V **2* + & CA**2/SINB**2 * + & (-2D0*XMT**2+0.5D0*P2)* + & PYFINT(P2,XMT2,XMT2) + + POL = POLT + POLB + POLTT + POLAR(I3) = P2 - XMH**2 - POL + 230 CONTINUE + DERIV = (POLAR(3)-POLAR(1))/EPS + DRUN = - POLAR(2)/DERIV + PRUN = PRUN + DRUN + P2 = PRUN**2 + IF( ABS(DRUN) .LT. 1D-4 ) GOTO 240 + GOTO 180 + 240 CONTINUE + + XMHP = P2**0.5D0 + +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +C...END OF LIGHT HIGGS +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + + 250 IF(IHIGGS.EQ.1) GOTO 490 + +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +C... STARTING OF HEAVY HIGGS +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + + DO 270 I = 1,2 + DO 260 J = 1,2 + HCOUPT(I,J) = + & -SINT*XMZ**2*2D0*SQR/174.1D0/3D0*COSBPA*(DELTA(I,J) + + & (3D0 - 8D0*SINT)/4D0/SINT*T(1,I)*T(1,J)) + & -RXMT**2/174.1D0**2*VP/SINB*SA*DELTA(I,J) + & -RXMT/VP/SINB*(AT*SA - XMU*CA)*(T(1,I)*T(2,J) + + & T(1,J)*T(2,I)) + 260 CONTINUE + 270 CONTINUE + + DO 290 I = 1,2 + DO 280 J = 1,2 + HCOUPB(I,J) = + & SINT*XMZ**2*2D0*SQR/174.1D0/6D0*COSBPA*(DELTA(I,J) + + & (3D0 - 4D0*SINT)/2D0/SINT*B(1,I)*B(1,J)) + & -RMBOT**2/174.1D0**2*VP/COSB*CA*DELTA(I,J) + & -RMBOT/VP/COSB*(AB*CA - XMU*SA)*(B(1,I)*B(2,J) + + & B(1,J)*B(2,I)) + HCOUPB(I,J)=0D0 + 280 CONTINUE + 290 CONTINUE + + PRUN = HM + EPS = 1D-4*PRUN + ITER = 0 + 300 ITER = ITER + 1 + DO 350 I3 = 1,3 + PR(I3)=PRUN+(I3-2)*EPS/2 + HP2=PR(I3)**2 + + HPOLT = 0D0 + DO 320 I = 1,2 + DO 310 J = 1,2 + HPOLT = HPOLT + HCOUPT(I,J)**2*3D0* + & PYFINT(HP2,SSTOP2(I),SSTOP2(J))/16D0/PI**2 + 310 CONTINUE + 320 CONTINUE + + HPOLB = 0D0 + DO 340 I = 1,2 + DO 330 J = 1,2 + HPOLB = HPOLB + HCOUPB(I,J)**2*3D0* + & PYFINT(HP2,SSBOT2(I),SSBOT2(J))/16D0/PI**2 + 330 CONTINUE + 340 CONTINUE + + RXMT2 = RXMT**2 + XMT2 = XMT**2 + + HPOLTT = + & 3D0*RXMT**2/8D0/PI**2/ V **2* + & SA**2/SINB**2 * + & (-2D0*XMT**2+0.5D0*HP2)* + & PYFINT(HP2,XMT2,XMT2) + + HPOL = HPOLT + HPOLB + HPOLTT + POLAR(I3) =HP2-HM**2-HPOL + 350 CONTINUE + DERIV = (POLAR(3)-POLAR(1))/EPS + DRUN = - POLAR(2)/DERIV + PRUN = PRUN + DRUN + HP2 = PRUN**2 + IF( ABS(DRUN) .LT. 1D-4 ) GOTO 360 + GOTO 300 + 360 CONTINUE + + + 370 CONTINUE + HMP = HP2**0.5D0 + +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +C... END OF HEAVY HIGGS +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + + IF(IHIGGS.EQ.2) GOTO 490 + +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +C...BEGINNING OF PSEUDOSCALAR HIGGS +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + + DO 390 I = 1,2 + DO 380 J = 1,2 + ACOUPT(I,J) = + & -RXMT/VP/SINB*(AT*COSB + XMU*SINB)* + & (T(1,I)*T(2,J) -T(1,J)*T(2,I)) + 380 CONTINUE + 390 CONTINUE + DO 410 I = 1,2 + DO 400 J = 1,2 + ACOUPB(I,J) = + & RMBOT/VP/COSB*(AB*SINB + XMU*COSB)* + & (B(1,I)*B(2,J) -B(1,J)*B(2,I)) + 400 CONTINUE + 410 CONTINUE + + PRUN = XMA + EPS = 1D-4*PRUN + ITER = 0 + 420 ITER = ITER + 1 + DO 470 I3 = 1,3 + PR(I3)=PRUN+(I3-2)*EPS/2 + AP2=PR(I3)**2 + APOLT = 0D0 + DO 440 I = 1,2 + DO 430 J = 1,2 + APOLT = APOLT + ACOUPT(I,J)**2*3D0* + & PYFINT(AP2,SSTOP2(I),SSTOP2(J))/16D0/PI**2 + 430 CONTINUE + 440 CONTINUE + APOLB = 0D0 + DO 460 I = 1,2 + DO 450 J = 1,2 + APOLB = APOLB + ACOUPB(I,J)**2*3D0* + & PYFINT(AP2,SSBOT2(I),SSBOT2(J))/16D0/PI**2 + 450 CONTINUE + 460 CONTINUE + RXMT2 = RXMT**2 + XMT2=XMT**2 + APOLTT = + & 3D0*RXMT**2/8D0/PI**2/ V **2* + & COSB**2/SINB**2 * + & (-0.5D0*AP2)* + & PYFINT(AP2,XMT2,XMT2) + APOL = APOLT + APOLB + APOLTT + POLAR(I3) = AP2 - XMA**2 -APOL + 470 CONTINUE + DERIV = (POLAR(3)-POLAR(1))/EPS + DRUN = - POLAR(2)/DERIV + PRUN = PRUN + DRUN + AP2 = PRUN**2 + IF( ABS(DRUN) .LT. 1D-4 ) GOTO 480 + GOTO 420 + 480 CONTINUE + + AMP = AP2**0.5D0 + +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +C...END OF PSEUDOSCALAR HIGGS +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + + IF(IHIGGS.EQ.3) GOTO 490 + + 490 CONTINUE + RETURN + 500 CONTINUE + WRITE(MSTU(11),*) ' EXITING IN PYVACU ' + WRITE(MSTU(11),*) ' XMST11,XMST22 = ',XMST11,XMST22 + WRITE(MSTU(11),*) ' XMSB11,XMSB22 = ',XMSB11,XMSB22 + WRITE(MSTU(11),*) ' STOP22,SBOT22 = ',STOP22,SBOT22 + STOP + END + +C********************************************************************* + +C...PYRGHM +C...Auxiliary routine to PYVACU for SUSY Higgs calculations. + + SUBROUTINE PYRGHM(XMC,XMA,TANB,XMQ,XMUR,XMDL,XMT,AU,AD,XMU, + &XMHP,HMP,SA,CA,TANBA) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP + COMMON/PYHTRI/HHH(7) + +C...Local variables. + DIMENSION VH(2,2),XM2(2,2),XM2P(2,2) + + XMZ = 91.18D0 + ALP1 = 0.0101D0 + ALP2 = 0.0337D0 + ALP3Z = 0.12D0 + V = 174.1D0 + PI = 3.14159D0 + TANBA = TANB + TANBT = TANB + +C...MBOTTOM(XMT) = 3. GEV + XMB = 3D0 + ALP3 = ALP3Z/(1D0 +(11D0 - 10D0/3D0)/4D0/PI*ALP3Z* + &LOG(XMT**2/XMZ**2)) + +C...RXMT= RUNNING TOP QUARK MASS + RXMT = XMT/(1D0+4D0*ALP3/3D0/PI) + TQ = LOG((XMQ**2+XMT**2)/XMT**2) + TU = LOG((XMUR**2 + XMT**2)/XMT**2) + TD = LOG((XMDL**2 + XMT**2)/XMT**2) + SINB = TANB/((1D0 + TANB**2)**0.5D0) + COSB = SINB/TANB + IF(XMA.GT.XMT) + &TANBA = TANB*(1D0-3D0/32D0/PI**2* + &(RXMT**2/V**2/SINB**2-XMB**2/V**2/COSB**2)* + &LOG(XMA**2/XMT**2)) + IF(XMA.LT.XMT.OR.XMA.EQ.XMT) TANBT = TANBA + SINB = TANBT/((1D0 + TANBT**2)**0.5D0) + COSB = 1D0/((1D0 + TANBT**2)**0.5D0) + COS2B = (TANBT**2 - 1D0)/(TANBT**2 + 1D0) + G1 = (ALP1*4D0*PI)**0.5D0 + G2 = (ALP2*4D0*PI)**0.5D0 + G3 = (ALP3*4D0*PI)**0.5D0 + HU = RXMT/V/SINB + HD = XMB/V/COSB + + CALL PYGFXX(XMA,TANBA,XMQ,XMUR,XMDL,XMT,AU,AD, + &XMU,VH,STOP1,STOP2) + + IF(XMQ.GT.XMUR) TP = TQ - TU + IF(XMQ.LT.XMUR.OR.XMQ.EQ.XMUR) TP = TU - TQ + IF(XMQ.GT.XMUR) TDP = TU + IF(XMQ.LT.XMUR.OR.XMQ.EQ.XMUR) TDP = TQ + IF(XMQ.GT.XMDL) TPD = TQ - TD + IF(XMQ.LT.XMDL.OR.XMQ.EQ.XMDL) TPD = TD - TQ + IF(XMQ.GT.XMDL) TDPD = TD + IF(XMQ.LT.XMDL.OR.XMQ.EQ.XMDL) TDPD = TQ + + IF(XMQ.GT.XMDL) DLAM1 = 6D0/96D0/PI**2*G1**2*HD**2*TPD + IF(XMQ.LT.XMDL.OR.XMQ.EQ.XMDL) DLAM1 = 3D0/32D0/PI**2* + &HD**2*(G1**2/3D0+G2**2)*TPD + + IF(XMQ.GT.XMUR) DLAM2 =12D0/96D0/PI**2*G1**2*HU**2*TP + IF(XMQ.LT.XMUR.OR.XMQ.EQ.XMUR) DLAM2 = 3D0/32D0/PI**2* + &HU**2*(-G1**2/3D0+G2**2)*TP + + DLAM3 = 0D0 + DLAM4 = 0D0 + + IF(XMQ.GT.XMDL) DLAM3 = -1D0/32D0/PI**2*G1**2*HD**2*TPD + IF(XMQ.LT.XMDL.OR.XMQ.EQ.XMDL) DLAM3 = 3D0/64D0/PI**2*HD**2* + &(G2**2-G1**2/3D0)*TPD + + IF(XMQ.GT.XMUR) DLAM3 = DLAM3 - + &1D0/16D0/PI**2*G1**2*HU**2*TP + IF(XMQ.LT.XMUR.OR.XMQ.EQ.XMUR) DLAM3 = DLAM3 + + &3D0/64D0/PI**2*HU**2*(G2**2+G1**2/3D0)*TP + + IF(XMQ.LT.XMUR) DLAM4 = -3D0/32D0/PI**2*G2**2*HU**2*TP + IF(XMQ.LT.XMDL) DLAM4 = DLAM4 - 3D0/32D0/PI**2*G2**2* + &HD**2*TPD + + XLAM1 = ((G1**2 + G2**2)/4D0)* + &(1D0-3D0*HD**2*(TPD + TDPD)/8D0/PI**2) + &+(3D0*HD**4/16D0/PI**2) *TPD*(1D0 + &+ (3D0*HD**2/2D0 + HU**2/2D0 + &- 8D0*G3**2) * (TPD + 2D0*TDPD)/16D0/PI**2) + &+(3D0*HD**4/8D0/PI**2) *TDPD*(1D0 + (3D0*HD**2/2D0 + HU**2/2D0 + &- 8D0*G3**2) * TDPD/16D0/PI**2) + DLAM1 + XLAM2 = ((G1**2 + G2**2)/4D0)*(1D0-3D0*HU**2* + &(TP + TDP)/8D0/PI**2) + &+(3D0*HU**4/16D0/PI**2) *TP*(1D0 + &+ (3D0*HU**2/2D0 + HD**2/2D0 + &- 8D0*G3**2) * (TP + 2D0*TDP)/16D0/PI**2) + &+(3D0*HU**4/8D0/PI**2) *TDP*(1D0 + (3D0*HU**2/2D0 + HD**2/2D0 + &- 8D0*G3**2) * TDP/16D0/PI**2) + DLAM2 + XLAM3 = ((G2**2 - G1**2)/4D0)*(1D0-3D0* + &(HU**2)*(TP + TDP)/16D0/PI**2 -3D0* + &(HD**2)*(TPD + TDPD)/16D0/PI**2) +DLAM3 + XLAM4 = (- G2**2/2D0)*(1D0 + &-3D0*(HU**2)*(TP + TDP)/16D0/PI**2 + &-3D0*(HD**2)*(TPD + TDPD)/16D0/PI**2) +DLAM4 + + XLAM5 = 0D0 + XLAM6 = 0D0 + XLAM7 = 0D0 + +C...Defined now in PYSUBH +C HHH(1)=XLAM1 +C HHH(2)=XLAM2 +C HHH(3)=XLAM3 +C HHH(4)=XLAM4 +C HHH(5)=XLAM5 +C HHH(6)=XLAM6 +C HHH(7)=XLAM7 + + XM2(1,1) = 2D0*V**2*(XLAM1*COSB**2+2D0*XLAM6* + &COSB*SINB + XLAM5*SINB**2) + XMA**2*SINB**2 + + XM2(2,2) = 2D0*V**2*(XLAM5*COSB**2+2D0*XLAM7* + &COSB*SINB + XLAM2*SINB**2) + XMA**2*COSB**2 + XM2(1,2) = 2D0*V**2*(XLAM6*COSB**2+(XLAM3+XLAM4)* + &COSB*SINB + XLAM7*SINB**2) - XMA**2*SINB*COSB + + XM2(2,1) = XM2(1,2) + +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +C...THIS IS THE CONTRIBUTION FROM LIGHT CHARGINOS/NEUTRALINOS +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + + XMSSU=(0.5D0*(XMQ**2+XMUR**2)+XMT**2)**0.5D0 + + IF(XMC.GT.XMSSU) GOTO 100 + IF(XMC.LT.XMT) XMC=XMT + + TCHAR=LOG(XMSSU**2/XMC**2) + + DEL12=(9D0/64D0/PI**2*G2**4+5D0/192D0/PI**2*G1**4)*TCHAR + DEL3P4=(3D0/64D0/PI**2*G2**4+7D0/192D0/PI**2*G1**4 + &+4D0/32/PI**2*G1**2*G2**2)*TCHAR + + DEM112=2D0*DEL12*V**2*COSB**2 + DEM222=2D0*DEL12*V**2*SINB**2 + DEM122=2D0*DEL3P4*V**2*SINB*COSB + + XM2(1,1)=XM2(1,1)+DEM112 + XM2(2,2)=XM2(2,2)+DEM222 + XM2(1,2)=XM2(1,2)+DEM122 + XM2(2,1)=XM2(2,1)+DEM122 + + 100 CONTINUE + +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +C...END OF CHARGINOS/NEUTRALINOS +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + + DO 120 I = 1,2 + DO 110 J = 1,2 + XM2P(I,J) = XM2(I,J) + VH(I,J) + 110 CONTINUE + 120 CONTINUE + + TRM2P = XM2P(1,1) + XM2P(2,2) + DETM2P = XM2P(1,1)*XM2P(2,2) - XM2P(1,2)*XM2P(2,1) + + XMH2P = (TRM2P - (TRM2P**2 - 4D0* DETM2P)**0.5D0)/2D0 + HM2P = (TRM2P + (TRM2P**2 - 4D0* DETM2P)**0.5D0)/2D0 + HMP = HM2P**0.5D0 + IF(XMH2P.LT.0D0) GOTO 130 + XMHP = XMH2P**0.5D0 + S2ALP = 2D0*XM2P(1,2)/(TRM2P**2-4D0*DETM2P)**0.5D0 + C2ALP = (XM2P(1,1)-XM2P(2,2))/(TRM2P**2-4D0*DETM2P)**0.5D0 + IF(C2ALP.GT.0D0) ALP = ASIN(S2ALP)/2D0 + IF(C2ALP.LT.0D0) ALP = -PI/2D0-ASIN(S2ALP)/2D0 + SA = SIN(ALP) + CA = COS(ALP) + SQBMA = (SINB*CA - COSB*SA)**2 + 130 XIN = 1D0 + 140 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYGFXX +C...Auxiliary routine to PYRGHM for SUSY Higgs calculations. + + SUBROUTINE PYGFXX(XMA,TANB,XMQ,XMUR,XMDL,XMT,AT,AB,XMU,VH, + &STOP1,STOP2) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP + +C...Local variables. + DIMENSION DIAH(2),VH(2,2),VH1(2,2),VH2(2,2), + &VH3T(2,2),VH3B(2,2), + &HMIX(2,2),AL(2,2),XM2(2,2) + +C...Statement function. + G(X,Y) = 2D0 - (X+Y)/(X-Y)*LOG(X/Y) + + IF(DABS(XMU).LT.0.000001D0) XMU = 0.000001D0 + XMQ2 = XMQ**2 + XMUR2 = XMUR**2 + XMDL2 = XMDL**2 + TANBA = TANB + SINBA = TANBA/(TANBA**2+1D0)**0.5D0 + COSBA = SINBA/TANBA + + SINB = TANB/(TANB**2+1D0)**0.5D0 + COSB = SINB/TANB + PI = 3.14159D0 + G2 = (0.0336D0*4D0*PI)**0.5D0 + G12 = (0.0101D0*4D0*PI) + G1 = G12**0.5D0 + XMZ = 91.18D0 + V = 174.1D0 + MW = (G2**2*V**2/2D0)**0.5D0 + ALP3 = 0.12D0/(1D0+23/12D0/PI*0.12D0*LOG(XMT**2/XMZ**2)) + + XMB = 3D0 + IF(XMQ.GT.XMUR) XMST = XMQ + IF(XMUR.GT.XMQ.OR.XMUR.EQ.XMQ) XMST = XMUR + + XMSUT = (XMST**2 + XMT**2)**0.5D0 + + IF(XMQ.GT.XMDL) XMSB = XMQ + IF(XMDL.GT.XMQ.OR.XMDL.EQ.XMQ) XMSB = XMDL + + XMSUB = (XMSB**2 + XMB**2)**0.5D0 + + TT = LOG(XMSUT**2/XMT**2) + TB = LOG(XMSUB**2/XMT**2) + + RXMT = XMT/(1D0+4D0*ALP3/3D0/PI) + HT = RXMT/(174.1D0*SINB) + HTST = RXMT/174.1D0 + HB = XMB/174.1D0/COSB + G32 = ALP3*4D0*PI + BT2 = -(8D0*G32 - 9D0*HT**2/2D0 - HB**2/2D0)/(4D0*PI)**2 + BB2 = -(8D0*G32 - 9D0*HB**2/2D0 - HT**2/2D0)/(4D0*PI)**2 + AL2 = 3D0/8D0/PI**2*HT**2 + BT2ST = -(8D0*G32 - 9D0*HTST**2/2D0)/(4D0*PI)**2 + ALST = 3D0/8D0/PI**2*HTST**2 + AL1 = 3D0/8D0/PI**2*HB**2 + + AL(1,1) = AL1 + AL(1,2) = (AL2+AL1)/2D0 + AL(2,1) = (AL2+AL1)/2D0 + AL(2,2) = AL2 + + XMT4 = RXMT**4*(1D0+2D0*BT2*TT- AL2*TT) + XMT2 = SQRT(XMT4) + XMBOT4 = XMB**4*(1D0+2D0*BB2*TB - AL1*TB) + XMBOT2 = SQRT(XMBOT4) + + IF(XMA.GT.XMT) THEN + VI = 174.1D0*(1D0 + 3D0/32D0/PI**2*HTST**2* + & LOG(XMT**2/XMA**2)) + H1I = VI* COSBA + H2I = VI*SINBA + H1T = H1I*(1D0+3D0/8D0/PI**2*HB**2*LOG(XMA**2/XMSUT**2))**0.25D0 + H2T = H2I*(1D0+3D0/8D0/PI**2*HT**2*LOG(XMA**2/XMSUT**2))**0.25D0 + H1B = H1I*(1D0+3D0/8D0/PI**2*HB**2*LOG(XMA**2/XMSUB**2))**0.25D0 + H2B = H2I*(1D0+3D0/8D0/PI**2*HT**2*LOG(XMA**2/XMSUB**2))**0.25D0 + ELSE + VI = 174.1D0 + H1I = VI*COSB + H2I = VI*SINB + H1T = H1I*(1D0+3D0/8D0/PI**2*HB**2*LOG(XMT**2/XMSUT**2))**0.25D0 + H2T = H2I*(1D0+3D0/8D0/PI**2*HT**2*LOG(XMT**2/XMSUT**2))**0.25D0 + H1B = H1I*(1D0+3D0/8D0/PI**2*HB**2*LOG(XMT**2/XMSUB**2))**0.25D0 + H2B = H2I*(1D0+3D0/8D0/PI**2*HT**2*LOG(XMT**2/XMSUB**2))**0.25D0 + ENDIF + + TANBST = H2T/H1T + SINBT = TANBST/(1D0+TANBST**2)**0.5D0 + COSBT = SINBT/TANBST + + TANBSB = H2B/H1B + SINBB = TANBSB/(1D0+TANBSB**2)**0.5D0 + COSBB = SINBB/TANBSB + + STOP12 = (XMQ2 + XMUR2)*0.5D0 + XMT2 + &+1D0/8D0*(G2**2+G1**2)*(H1T**2-H2T**2) + &+(((G2**2-5D0*G1**2/3D0)/4D0*(H1T**2-H2T**2) + + &XMQ2 - XMUR2)**2*0.25D0 + XMT2*(AT-XMU/TANBST)**2)**0.5D0 + STOP22 = (XMQ2 + XMUR2)*0.5D0 + XMT2 + &+1D0/8D0*(G2**2+G1**2)*(H1T**2-H2T**2) + &- (((G2**2-5D0*G1**2/3D0)/4D0*(H1T**2-H2T**2) + + &XMQ2 - XMUR2)**2*0.25D0 + &+ XMT2*(AT-XMU/TANBST)**2)**0.5D0 + IF(STOP22.LT.0D0) GOTO 120 + SBOT12 = (XMQ2 + XMDL2)*0.5D0 + &- 1D0/8D0*(G2**2+G1**2)*(H1B**2-H2B**2) + &+ (((G1**2/3D0-G2**2)/4D0*(H1B**2-H2B**2) + + &XMQ2 - XMDL2)**2*0.25D0 + XMBOT2*(AB-XMU*TANBSB)**2)**0.5D0 + SBOT22 = (XMQ2 + XMDL2)*0.5D0 + &- 1D0/8D0*(G2**2+G1**2)*(H1B**2-H2B**2) + &- (((G1**2/3D0-G2**2)/4D0*(H1B**2-H2B**2) + + &XMQ2 - XMDL2)**2*0.25D0 + XMBOT2*(AB-XMU*TANBSB)**2)**0.5D0 + IF(SBOT22.LT.0D0) GOTO 120 + + STOP1 = STOP12**0.5D0 + STOP2 = STOP22**0.5D0 + SBOT1 = SBOT12**0.5D0 + SBOT2 = SBOT22**0.5D0 + + VH1(1,1) = 1D0/TANBST + VH1(2,1) = -1D0 + VH1(1,2) = -1D0 + VH1(2,2) = TANBST + VH2(1,1) = TANBST + VH2(1,2) = -1D0 + VH2(2,1) = -1D0 + VH2(2,2) = 1D0/TANBST + +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +C...D-TERMS +CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + STW=0.2320D0 + + F1T=(XMQ2-XMUR2)/(STOP12-STOP22)*(0.5D0-4D0/3D0*STW)* + &LOG(STOP1/STOP2) + &+(0.5D0-2D0/3D0*STW)*LOG(STOP1*STOP2/(XMQ2+XMT2)) + &+ 2D0/3D0*STW*LOG(STOP1*STOP2/(XMUR2+XMT2)) + + F1B=(XMQ2-XMDL2)/(SBOT12-SBOT22)*(-0.5D0+2D0/3D0*STW)* + &LOG(SBOT1/SBOT2) + &+(-0.5D0+1D0/3D0*STW)*LOG(SBOT1*SBOT2/(XMQ2+XMBOT2)) + &- 1D0/3D0*STW*LOG(SBOT1*SBOT2/(XMDL2+XMBOT2)) + + F2T=XMT2**0.5D0*(AT-XMU/TANBST)/(STOP12-STOP22)* + &(-0.5D0*LOG(STOP12/STOP22) + &+(4D0/3D0*STW-0.5D0)*(XMQ2-XMUR2)/(STOP12-STOP22)* + &G(STOP12,STOP22)) + + F2B=XMBOT2**0.5D0*(AB-XMU*TANBSB)/(SBOT12-SBOT22)* + &(0.5D0*LOG(SBOT12/SBOT22) + &+(-2D0/3D0*STW+0.5D0)*(XMQ2-XMDL2)/(SBOT12-SBOT22)* + &G(SBOT12,SBOT22)) + + VH3B(1,1) = XMBOT4/(COSBB**2)*(LOG(SBOT1**2*SBOT2**2/ + &(XMQ2+XMBOT2)/(XMDL2+XMBOT2)) + &+ 2D0*(AB*(AB-XMU*TANBSB)/(SBOT1**2-SBOT2**2))* + &LOG(SBOT1**2/SBOT2**2)) + + &XMBOT4/(COSBB**2)*(AB*(AB-XMU*TANBSB)/ + &(SBOT1**2-SBOT2**2))**2*G(SBOT12,SBOT22) + + VH3T(1,1) = + &XMT4/(SINBT**2)*(XMU*(-AT+XMU/TANBST)/(STOP1**2 + &-STOP2**2))**2*G(STOP12,STOP22) + + VH3B(1,1)=VH3B(1,1)+ + &XMZ**2*(2*XMBOT2*F1B-XMBOT2**0.5D0*AB*F2B) + + VH3T(1,1) = VH3T(1,1) + + &XMZ**2*(XMT2**0.5D0*XMU/TANBST*F2T) + + VH3T(2,2) = XMT4/(SINBT**2)*(LOG(STOP1**2*STOP2**2/ + &(XMQ2+XMT2)/(XMUR2+XMT2)) + &+ 2D0*(AT*(AT-XMU/TANBST)/(STOP1**2-STOP2**2))* + &LOG(STOP1**2/STOP2**2)) + + &XMT4/(SINBT**2)*(AT*(AT-XMU/TANBST)/ + &(STOP1**2-STOP2**2))**2*G(STOP12,STOP22) + + VH3B(2,2) = + &XMBOT4/(COSBB**2)*(XMU*(-AB+XMU*TANBSB)/(SBOT1**2 + &-SBOT2**2))**2*G(SBOT12,SBOT22) + + VH3T(2,2)=VH3T(2,2)+ + &XMZ**2*(-2*XMT2*F1T+XMT2**0.5D0*AT*F2T) + + VH3B(2,2) = VH3B(2,2) -XMZ**2*XMBOT2**0.5D0*XMU*TANBSB*F2B + + VH3T(1,2) = - + &XMT4/(SINBT**2)*XMU*(AT-XMU/TANBST)/ + &(STOP1**2-STOP2**2)*(LOG(STOP1**2/STOP2**2) + AT* + &(AT - XMU/TANBST)/(STOP1**2-STOP2**2)*G(STOP12,STOP22)) + + VH3B(1,2) = + &- XMBOT4/(COSBB**2)*XMU*(AT-XMU*TANBSB)/ + &(SBOT1**2-SBOT2**2)*(LOG(SBOT1**2/SBOT2**2) + AB* + &(AB - XMU*TANBSB)/(SBOT1**2-SBOT2**2)*G(SBOT12,SBOT22)) + + VH3T(1,2)=VH3T(1,2) + + &XMZ**2*(XMT2/TANBST*F1T-XMT2**0.5D0*(AT/TANBST+XMU)/2D0*F2T) + + VH3B(1,2)=VH3B(1,2) + &+XMZ**2*(-XMBOT2*TANBSB*F1B+XMBOT2**0.5D0*(AB*TANBSB+XMU)/2D0*F2B) + + VH3T(2,1) = VH3T(1,2) + VH3B(2,1) = VH3B(1,2) + + TQ = LOG((XMQ2 + XMT2)/XMT2) + TU = LOG((XMUR2+XMT2)/XMT2) + TQD = LOG((XMQ2 + XMB**2)/XMB**2) + TD = LOG((XMDL2+XMB**2)/XMB**2) + + DO 110 I = 1,2 + DO 100 J = 1,2 + + VH(I,J) = + & 6D0/(8D0*PI**2*(H1T**2+H2T**2)) + & *VH3T(I,J)*0.5D0*(1D0-AL(I,J)*TT/2D0) + + & 6D0/(8D0*PI**2*(H1B**2+H2B**2)) + & *VH3B(I,J)*0.5D0*(1D0-AL(I,J)*TB/2D0) + + 100 CONTINUE + 110 CONTINUE + + GOTO 150 + 120 DO 140 I =1,2 + DO 130 J = 1,2 + VH(I,J) = -1D+15 + 130 CONTINUE + 140 CONTINUE + + 150 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYFINT +C...Auxiliary routine to PYVACU for SUSY Higgs calculations. + + FUNCTION PYFINT(A,B,C) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblock. + COMMON/PYINTS/XXM(20) + SAVE/PYINTS/ + +C...Local variables. + EXTERNAL PYFISB + DOUBLE PRECISION PYFISB + + XXM(1)=A + XXM(2)=B + XXM(3)=C + XLO=0D0 + XHI=1D0 + PYFINT = PYGAUS(PYFISB,XLO,XHI,1D-3) + + RETURN + END + +C********************************************************************* + +C...PYFISB +C...Auxiliary routine to PYFINT for SUSY Higgs calculations. + + FUNCTION PYFISB(X) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblock. + COMMON/PYINTS/XXM(20) + SAVE/PYINTS/ + + PYFISB = LOG(ABS(X*XXM(2)+(1-X)*XXM(3)-X*(1-X)*XXM(1))/ + &(X*(XXM(2)-XXM(3))+XXM(3))) + + RETURN + END + +C********************************************************************* + +C...PYSFDC +C...Calculates decays of sfermions. + + SUBROUTINE PYSFDC(KFIN,XLAM,IDLAM,IKNT) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2), + &SFMIX(16,4) + SAVE /PYDAT1/,/PYDAT2/,/PYMSSM/,/PYSSMT/ + +C...Local variables. + INTEGER KFIN,KCIN + DOUBLE PRECISION XMI,XMJ,XMF,XMSF1,XMSF2,XMW,XMW2,XMZ, + &XMZ2,AXMJ,AXMI + DOUBLE PRECISION XMI2,XMI3,XMJ2,XMA2,XMB2,XMFP + DOUBLE PRECISION PYLAMF,XL + DOUBLE PRECISION TANW,XW,AEM,C1,AS + DOUBLE PRECISION CA,CB,AL,AR,BL,BR,ALP,ARP,BLP,BRP + DOUBLE PRECISION CH1,CH2,CH3,CH4 + DOUBLE PRECISION XMBOT,XMTOP + DOUBLE PRECISION XLAM(0:200) + INTEGER IDLAM(200,3) + INTEGER LKNT,IX,IC,ILR,IDU,J,IJ,I,IKNT,IFL,IFP,II + DOUBLE PRECISION SR2 + DOUBLE PRECISION CBETA,SBETA,GR,GL,F12K,F21K + DOUBLE PRECISION CW + DOUBLE PRECISION BETA,ALFA,XMU,AT,AB,ATRIT,ATRIB,ATRIL + DOUBLE PRECISION COSA,SINA,TANB + DOUBLE PRECISION PYALEM,PI,PYALPS,EI,PYRNMT + DOUBLE PRECISION GHRR,GHLL,GHLR,CF,XMB,BLR + INTEGER IG,KF1,KF2,ILR2,IDP + INTEGER IGG(4),KFNCHI(4),KFCCHI(2) + DATA IGG/23,25,35,36/ + DATA PI/3.141592654D0/ + DATA SR2/1.4142136D0/ + DATA KFNCHI/1000022,1000023,1000025,1000035/ + DATA KFCCHI/1000024,1000037/ + +C...COUNT THE NUMBER OF DECAY MODES + LKNT=0 + +C...NO NU_R DECAYS + IF(KFIN.EQ.KSUSY2+12.OR.KFIN.EQ.KSUSY2+14.OR. + &KFIN.EQ.KSUSY2+16) RETURN + + XMW=PMAS(24,1) + XMW2=XMW**2 + XMZ=PMAS(23,1) + XMZ2=XMZ**2 + XW=PARU(102) + TANW = SQRT(XW/(1D0-XW)) + CW=SQRT(1D0-XW) + +C...KCIN + KCIN=PYCOMP(KFIN) +C...ILR is 1 for left and 2 for right. + ILR=KFIN/KSUSY1 +C...IFL is matching non-SUSY flavour. + IFL=MOD(KFIN,KSUSY1) +C...IDU is weak isospin, 1 for down and 2 for up. + IDU=2-MOD(IFL,2) + + XMI=PMAS(KCIN,1) + XMI2=XMI**2 + AEM=PYALEM(XMI2) + AS =PYALPS(XMI2) + C1=AEM/XW + XMI3=XMI**3 + EI=KCHG(IFL,1)/3D0 + + XMBOT=3D0 + XMTOP=PYRNMT(PMAS(6,1)) + XMBOT=0D0 + + TANB=RMSS(5) + BETA=ATAN(TANB) + ALFA=RMSS(18) + CBETA=COS(BETA) + SBETA=TANB*CBETA + SINA=SIN(ALFA) + COSA=COS(ALFA) + XMU=-RMSS(4) + ATRIT=RMSS(16) + ATRIB=RMSS(15) + ATRIL=RMSS(17) + +C...2-BODY DECAYS OF SFERMION -> GRAVITINO + FERMION + + IF(IMSS(11).EQ.1) THEN + XMP=RMSS(29) + IDG=39+KSUSY1 + XMGR=PMAS(PYCOMP(IDG),1) + XFAC=(XMI2/(XMP*XMGR))**2*XMI/48D0/PI + IF(IFL.EQ.5) THEN + XMF=XMBOT + ELSEIF(IFL.EQ.6) THEN + XMF=XMTOP + ELSE + XMF=PMAS(IFL,1) + ENDIF + IF(XMI.GT.XMGR+XMF) THEN + LKNT=LKNT+1 + IDLAM(LKNT,1)=IDG + IDLAM(LKNT,2)=IFL + IDLAM(LKNT,3)=0 + XLAM(LKNT)=XFAC*(1D0-XMF**2/XMI2)**4 + ENDIF + ENDIF + +C...2-BODY DECAYS OF SFERMION -> FERMION + GAUGE/GAUGINO + +C...CHARGED DECAYS: + DO 100 IX=1,2 +C...DI -> U CHI1-,CHI2- + IF(IDU.EQ.1) THEN + XMFP=PMAS(IFL+1,1) + XMF =PMAS(IFL,1) +C...UI -> D CHI1+,CHI2+ + ELSE + XMFP=PMAS(IFL-1,1) + XMF =PMAS(IFL,1) + ENDIF + XMJ=SMW(IX) + AXMJ=ABS(XMJ) + IF(XMI.GE.AXMJ+XMFP) THEN + XMA2=XMJ**2 + XMB2=XMFP**2 + IF(IDU.EQ.2) THEN + IF(IFL.EQ.6) THEN + XMFP=XMBOT + XMF =XMTOP + ELSEIF(IFL.LT.6) THEN + XMF=0D0 + XMFP=0D0 + ENDIF + BL=VMIX(IX,1) + AL=-XMFP*UMIX(IX,2)/SR2/XMW/CBETA + BR=-XMF*VMIX(IX,2)/SR2/XMW/SBETA + AR=0D0 + ELSE + IF(IFL.EQ.5) THEN + XMF =XMBOT + XMFP=XMTOP + ELSEIF(IFL.LT.5) THEN + XMF=0D0 + XMFP=0D0 + ENDIF + BL=UMIX(IX,1) + AL=-XMFP*VMIX(IX,2)/SR2/XMW/SBETA + BR=-XMF*UMIX(IX,2)/SR2/XMW/CBETA + AR=0D0 + ENDIF + + ALP=SFMIX(IFL,1)*AL + SFMIX(IFL,2)*AR + BLP=SFMIX(IFL,1)*BL + SFMIX(IFL,2)*BR + ARP=SFMIX(IFL,4)*AR + SFMIX(IFL,3)*AL + BRP=SFMIX(IFL,4)*BR + SFMIX(IFL,3)*BL + AL=ALP + BL=BLP + AR=ARP + BR=BRP + +C...F1 -> F` CHI + IF(ILR.EQ.1) THEN + CA=AL + CB=BL +C...F2 -> F` CHI + ELSE + CA=AR + CB=BR + ENDIF + LKNT=LKNT+1 + XL=PYLAMF(XMI2,XMA2,XMB2) +C...SPIN AVERAGE = 1/1 NOT 1/2....NO COLOR ENHANCEMENT + XLAM(LKNT)=2D0*C1/8D0/XMI3*SQRT(XL)*((XMI2-XMB2-XMA2)* + & (CA**2+CB**2)-4D0*CA*CB*XMJ*XMFP) + IDLAM(LKNT,3)=0 + IF(IDU.EQ.1) THEN + IDLAM(LKNT,1)=-KFCCHI(IX) + IDLAM(LKNT,2)=IFL+1 + ELSE + IDLAM(LKNT,1)=KFCCHI(IX) + IDLAM(LKNT,2)=IFL-1 + ENDIF + ENDIF + 100 CONTINUE + +C...NEUTRAL DECAYS + DO 110 IX=1,4 +C...DI -> D CHI10 + XMF=PMAS(IFL,1) + XMJ=SMZ(IX) + AXMJ=ABS(XMJ) + IF(XMI.GE.AXMJ+XMF) THEN + XMA2=XMJ**2 + XMB2=XMF**2 + IF(IDU.EQ.1) THEN + IF(IFL.EQ.5) THEN + XMF=XMBOT + ELSEIF(IFL.LT.5) THEN + XMF=0D0 + ENDIF + BL=-ZMIX(IX,2)+TANW*ZMIX(IX,1)*(2D0*EI+1) + AL=XMF*ZMIX(IX,3)/XMW/CBETA + AR=-2D0*EI*TANW*ZMIX(IX,1) + BR=AL + ELSE + IF(IFL.EQ.6) THEN + XMF=XMTOP + ELSEIF(IFL.LT.5) THEN + XMF=0D0 + ENDIF + BL=ZMIX(IX,2)+TANW*ZMIX(IX,1)*(2D0*EI-1) + AL=XMF*ZMIX(IX,4)/XMW/SBETA + AR=-2D0*EI*TANW*ZMIX(IX,1) + BR=AL + ENDIF + + ALP=SFMIX(IFL,1)*AL + SFMIX(IFL,2)*AR + BLP=SFMIX(IFL,1)*BL + SFMIX(IFL,2)*BR + ARP=SFMIX(IFL,4)*AR + SFMIX(IFL,3)*AL + BRP=SFMIX(IFL,4)*BR + SFMIX(IFL,3)*BL + AL=ALP + BL=BLP + AR=ARP + BR=BRP + +C...F1 -> F CHI + IF(ILR.EQ.1) THEN + CA=AL + CB=BL +C...F2 -> F CHI + ELSE + CA=AR + CB=BR + ENDIF + LKNT=LKNT+1 + XL=PYLAMF(XMI2,XMA2,XMB2) +C...SPIN AVERAGE = 1/1 NOT 1/2....NO COLOR ENHANCEMENT + XLAM(LKNT)=C1/8D0/XMI3*SQRT(XL)*((XMI2-XMB2-XMA2)* + & (CA**2+CB**2)-4D0*CA*CB*XMJ*XMF) + IDLAM(LKNT,1)=KFNCHI(IX) + IDLAM(LKNT,2)=IFL + IDLAM(LKNT,3)=0 + ENDIF + 110 CONTINUE + +C...2-BODY DECAYS TO SM GAUGE AND HIGGS BOSONS +C...IG=23,25,35,36 + DO 120 II=1,4 + IG=IGG(II) + IF(ILR.EQ.1) GOTO 120 + XMB=PMAS(IG,1) + XMSF1=PMAS(PYCOMP(KFIN-KSUSY1),1) + IF(XMI.LT.XMSF1+XMB) GOTO 120 + IF(IG.EQ.23) THEN + BL=-SIGN(.5D0,EI)/CW+EI*XW/CW + BR=EI*XW/CW + BLR=0D0 + ELSEIF(IG.EQ.25) THEN + IF(IFL.EQ.5) THEN + XMF=XMBOT + ELSEIF(IFL.EQ.6) THEN + XMF=XMTOP + ELSEIF(IFL.LT.5) THEN + XMF=0D0 + ELSE + XMF=PMAS(IFL,1) + ENDIF + IF(IDU.EQ.2) THEN + GHLL=XMZ/CW*(0.5D0-EI*XW)*(-SIN(ALFA+BETA))+ + & XMF**2/XMW*COSA/SBETA + GHRR=XMZ/CW*(EI*XW)*(-SIN(ALFA+BETA))+ + & XMF**2/XMW*COSA/SBETA + ELSE + GHLL=XMZ/CW*(0.5D0-EI*XW)*(-SIN(ALFA+BETA))+ + & XMF**2/XMW*(-SINA)/CBETA + GHRR=XMZ/CW*(EI*XW)*(-SIN(ALFA+BETA))+ + & XMF**2/XMW*(-SINA)/CBETA + ENDIF + IF(IFL.EQ.5) THEN + AT=ATRIB + ELSEIF(IFL.EQ.6) THEN + AT=ATRIT + ELSEIF(IFL.EQ.15) THEN + AT=ATRIL + ELSE + AT=0D0 + ENDIF + IF(IDU.EQ.2) THEN + GHLR=XMF/2D0/XMW/SBETA*(-XMU*SINA+ + & AT*COSA) + ELSE + GHLR=XMF/2D0/XMW/CBETA*(XMU*COSA- + & AT*SINA) + ENDIF + BL=GHLL + BR=GHRR + BLR=-GHLR + ELSEIF(IG.EQ.35) THEN + IF(IFL.EQ.5) THEN + XMF=XMBOT + ELSEIF(IFL.EQ.6) THEN + XMF=XMTOP + ELSEIF(IFL.LT.5) THEN + XMF=0D0 + ELSE + XMF=PMAS(IFL,1) + ENDIF + IF(IDU.EQ.2) THEN + GHLL=XMZ/CW*(0.5D0-EI*XW)*COS(ALFA+BETA)+ + & XMF**2/XMW*SINA/SBETA + GHRR=XMZ/CW*(EI*XW)*COS(ALFA+BETA)+ + & XMF**2/XMW*SINA/SBETA + ELSE + GHLL=XMZ/CW*(0.5D0-EI*XW)*COS(ALFA+BETA)+ + & XMF**2/XMW*COSA/CBETA + GHRR=XMZ/CW*(EI*XW)*COS(ALFA+BETA)+ + & XMF**2/XMW*COSA/CBETA + ENDIF + IF(IFL.EQ.5) THEN + AT=ATRIB + ELSEIF(IFL.EQ.6) THEN + AT=ATRIT + ELSEIF(IFL.EQ.15) THEN + AT=ATRIL + ELSE + AT=0D0 + ENDIF + IF(IDU.EQ.2) THEN + GHLR=XMF/2D0/XMW/SBETA*(XMU*COSA+ + & AT*SINA) + ELSE + GHLR=XMF/2D0/XMW/CBETA*(XMU*SINA+ + & AT*COSA) + ENDIF + BL=GHLL + BR=GHRR + BLR=GHLR + ELSEIF(IG.EQ.36) THEN + GHLL=0D0 + GHRR=0D0 + IF(IFL.EQ.5) THEN + XMF=XMBOT + ELSEIF(IFL.EQ.6) THEN + XMF=XMTOP + ELSEIF(IFL.LT.5) THEN + XMF=0D0 + ELSE + XMF=PMAS(IFL,1) + ENDIF + IF(IFL.EQ.5) THEN + AT=ATRIB + ELSEIF(IFL.EQ.6) THEN + AT=ATRIT + ELSEIF(IFL.EQ.15) THEN + AT=ATRIL + ELSE + AT=0D0 + ENDIF + IF(IDU.EQ.2) THEN + GHLR=XMF/2D0/XMW*(-XMU+AT/TANB) + ELSE + GHLR=XMF/2D0/XMW/(-XMU+AT*TANB) + ENDIF + BL=GHLL + BR=GHRR + BLR=GHLR + ENDIF + AL=SFMIX(IFL,1)*SFMIX(IFL,3)*BL+ + & SFMIX(IFL,2)*SFMIX(IFL,4)*BR+ + & (SFMIX(IFL,1)*SFMIX(IFL,4)+SFMIX(IFL,3)*SFMIX(IFL,2))*BLR + XL=PYLAMF(XMI2,XMSF1**2,XMB**2) + LKNT=LKNT+1 + IF(IG.EQ.23) THEN + XLAM(LKNT)=C1/4D0/XMI3*XL**1.5D0/XMB**2*AL**2 + ELSE + XLAM(LKNT)=C1/4D0/XMI3*SQRT(XL)*AL**2 + ENDIF + IDLAM(LKNT,3)=0 + IDLAM(LKNT,1)=KFIN-KSUSY1 + IDLAM(LKNT,2)=IG + 120 CONTINUE + +C...SF -> SF' + W + XMB=PMAS(24,1) + IF(MOD(IFL,2).EQ.0) THEN + KF1=KSUSY1+IFL-1 + ELSE + KF1=KSUSY1+IFL+1 + ENDIF + KF2=KF1+KSUSY1 + XMSF1=PMAS(PYCOMP(KF1),1) + XMSF2=PMAS(PYCOMP(KF2),1) + IF(XMI.GT.XMB+XMSF1) THEN + IF(MOD(IFL,2).EQ.0) THEN + IF(ILR.EQ.1) THEN + AL=1D0/SR2*SFMIX(IFL,1)*SFMIX(IFL-1,1) + ELSE + AL=1D0/SR2*SFMIX(IFL,3)*SFMIX(IFL-1,1) + ENDIF + ELSE + IF(ILR.EQ.1) THEN + AL=1D0/SR2*SFMIX(IFL,1)*SFMIX(IFL+1,1) + ELSE + AL=1D0/SR2*SFMIX(IFL,3)*SFMIX(IFL+1,1) + ENDIF + ENDIF + XL=PYLAMF(XMI2,XMSF1**2,XMB**2) + LKNT=LKNT+1 + XLAM(LKNT)=C1/4D0/XMI3*XL**1.5D0/XMB**2*AL**2 + IDLAM(LKNT,3)=0 + IDLAM(LKNT,1)=KF1 + IDLAM(LKNT,2)=SIGN(24,KCHG(IFL,1)) + ENDIF + IF(XMI.GT.XMB+XMSF2) THEN + IF(MOD(IFL,2).EQ.0) THEN + IF(ILR.EQ.1) THEN + AL=1D0/SR2*SFMIX(IFL,1)*SFMIX(IFL-1,3) + ELSE + AL=1D0/SR2*SFMIX(IFL,3)*SFMIX(IFL-1,3) + ENDIF + ELSE + IF(ILR.EQ.1) THEN + AL=1D0/SR2*SFMIX(IFL,1)*SFMIX(IFL+1,3) + ELSE + AL=1D0/SR2*SFMIX(IFL,3)*SFMIX(IFL+1,3) + ENDIF + ENDIF + XL=PYLAMF(XMI2,XMSF2**2,XMB**2) + LKNT=LKNT+1 + XLAM(LKNT)=C1/4D0/XMI3*XL**1.5D0/XMB**2*AL**2 + IDLAM(LKNT,3)=0 + IDLAM(LKNT,1)=KF2 + IDLAM(LKNT,2)=SIGN(24,KCHG(IFL,1)) + ENDIF + +C...SF -> SF' + HC + XMB=PMAS(37,1) + IF(MOD(IFL,2).EQ.0) THEN + KF1=KSUSY1+IFL-1 + ELSE + KF1=KSUSY1+IFL+1 + ENDIF + KF2=KF1+KSUSY1 + XMSF1=PMAS(PYCOMP(KF1),1) + XMSF2=PMAS(PYCOMP(KF2),1) + IF(XMI.GT.XMB+XMSF1) THEN + XMF=0D0 + XMFP=0D0 + AT=0D0 + AB=0D0 + IF(MOD(IFL,2).EQ.0) THEN +C...T1-> B1 HC + IF(ILR.EQ.1) THEN + CH1=-SFMIX(IFL,1)*SFMIX(IFL-1,1) + CH2= SFMIX(IFL,2)*SFMIX(IFL-1,2) + CH3=-SFMIX(IFL,1)*SFMIX(IFL-1,2) + CH4=-SFMIX(IFL,2)*SFMIX(IFL-1,1) +C...T2-> B1 HC + ELSE + CH1= SFMIX(IFL,3)*SFMIX(IFL-1,1) + CH2=-SFMIX(IFL,4)*SFMIX(IFL-1,2) + CH3= SFMIX(IFL,3)*SFMIX(IFL-1,2) + CH4= SFMIX(IFL,4)*SFMIX(IFL-1,1) + ENDIF + IF(IFL.EQ.6) THEN + XMF=XMTOP + XMFP=XMBOT + AT=ATRIT + AB=ATRIB + ENDIF + ELSE +C...B1 -> T1 HC + IF(ILR.EQ.1) THEN + CH1=-SFMIX(IFL+1,1)*SFMIX(IFL,1) + CH2= SFMIX(IFL+1,2)*SFMIX(IFL,2) + CH3=-SFMIX(IFL+1,1)*SFMIX(IFL,2) + CH4=-SFMIX(IFL+1,2)*SFMIX(IFL,1) +C...B2-> T1 HC + ELSE + CH1= SFMIX(IFL,3)*SFMIX(IFL+1,1) + CH2=-SFMIX(IFL,4)*SFMIX(IFL+1,2) + CH3= SFMIX(IFL,4)*SFMIX(IFL+1,1) + CH4= SFMIX(IFL,3)*SFMIX(IFL+1,2) + ENDIF + IF(IFL.EQ.5) THEN + XMF=XMTOP + XMFP=XMBOT + AT=ATRIT + AB=ATRIB + ENDIF + ENDIF + XL=PYLAMF(XMI2,XMSF1**2,XMB**2) + LKNT=LKNT+1 + AL=CH1*(XMW2*2D0*CBETA*SBETA-XMFP**2*TANB-XMF**2/TANB)+ + & CH2*2D0*XMF*XMFP/(2D0*CBETA*SBETA)+ + & CH3*XMFP*(-XMU+AB*TANB)+CH4*XMF*(-XMU+AT/TANB) + XLAM(LKNT)=C1/8D0/XMI3*SQRT(XL)/XMW2*AL**2 + IDLAM(LKNT,3)=0 + IDLAM(LKNT,1)=KF1 + IDLAM(LKNT,2)=SIGN(37,KCHG(IFL,1)) + ENDIF + IF(XMI.GT.XMB+XMSF2) THEN + XMF=0D0 + XMFP=0D0 + AT=0D0 + AB=0D0 + IF(MOD(IFL,2).EQ.0) THEN +C...T1-> B2 HC + IF(ILR.EQ.1) THEN + CH1= SFMIX(IFL-1,3)*SFMIX(IFL,1) + CH2=-SFMIX(IFL-1,4)*SFMIX(IFL,2) + CH3= SFMIX(IFL-1,4)*SFMIX(IFL,1) + CH4= SFMIX(IFL-1,3)*SFMIX(IFL,2) +C...T2-> B2 HC + ELSE + CH1= -SFMIX(IFL,3)*SFMIX(IFL-1,3) + CH2= SFMIX(IFL,4)*SFMIX(IFL-1,4) + CH3= -SFMIX(IFL,3)*SFMIX(IFL-1,4) + CH4= -SFMIX(IFL,4)*SFMIX(IFL-1,3) + ENDIF + IF(IFL.EQ.6) THEN + XMF=XMTOP + XMFP=XMBOT + AT=ATRIT + AB=ATRIB + ENDIF + ELSE +C...B1 -> T2 HC + IF(ILR.EQ.1) THEN + CH1= SFMIX(IFL+1,3)*SFMIX(IFL,1) + CH2=-SFMIX(IFL+1,4)*SFMIX(IFL,2) + CH3= SFMIX(IFL+1,3)*SFMIX(IFL,2) + CH4= SFMIX(IFL+1,4)*SFMIX(IFL,1) +C...B2-> T2 HC + ELSE + CH1= -SFMIX(IFL+1,3)*SFMIX(IFL,3) + CH2= SFMIX(IFL+1,4)*SFMIX(IFL,4) + CH3= -SFMIX(IFL+1,3)*SFMIX(IFL,4) + CH4= -SFMIX(IFL+1,4)*SFMIX(IFL,3) + ENDIF + IF(IFL.EQ.5) THEN + XMF=XMTOP + XMFP=XMBOT + AT=ATRIT + AB=ATRIB + ENDIF + ENDIF + XL=PYLAMF(XMI2,XMSF1**2,XMB**2) + LKNT=LKNT+1 + AL=CH1*(XMW2*2D0*CBETA*SBETA-XMFP**2*TANB-XMF**2/TANB)+ + & CH2*2D0*XMF*XMFP/(2D0*CBETA*SBETA)+ + & CH3*XMFP*(-XMU+AB*TANB)+CH4*XMF*(-XMU+AT/TANB) + XLAM(LKNT)=C1/8D0/XMI3*SQRT(XL)/XMW2*AL**2 + IDLAM(LKNT,3)=0 + IDLAM(LKNT,1)=KF2 + IDLAM(LKNT,2)=SIGN(37,KCHG(IFL,1)) + ENDIF + +C...2-BODY DECAYS OF SQUARK -> QUARK GLUINO + + IF(IFL.LE.6) THEN + XMFP=0D0 + XMF=0D0 + IF(IFL.EQ.6) XMF=PMAS(6,1) + IF(IFL.EQ.5) XMF=PMAS(5,1) + XMJ=PMAS(PYCOMP(KSUSY1+21),1) + AXMJ=ABS(XMJ) + IF(XMI.GE.AXMJ+XMF) THEN + AL=-SFMIX(IFL,3) + BL=SFMIX(IFL,1) + AR=-SFMIX(IFL,4) + BR=SFMIX(IFL,2) +C...F1 -> F CHI + IF(ILR.EQ.1) THEN + CA=AL + CB=BL +C...F2 -> F CHI + ELSE + CA=AR + CB=BR + ENDIF + LKNT=LKNT+1 + XMA2=XMJ**2 + XMB2=XMF**2 + XL=PYLAMF(XMI2,XMA2,XMB2) + XLAM(LKNT)=4D0/3D0*AS/2D0/XMI3*SQRT(XL)*((XMI2-XMB2-XMA2)* + & (CA**2+CB**2)+4D0*CA*CB*XMJ*XMF) + IDLAM(LKNT,1)=KSUSY1+21 + IDLAM(LKNT,2)=IFL + IDLAM(LKNT,3)=0 + ENDIF + ENDIF + +C...IF NOTHING ELSE FOR T1, THEN T1* -> C+CHI0 + IF(KFIN.EQ.KSUSY1+6.AND.PMAS(KCIN,1).GT. + &PMAS(PYCOMP(KSUSY1+22),1)+PMAS(4,1)) THEN +C...THIS IS A BACK-OF-THE-ENVELOPE ESTIMATE +C...M = 1/(16PI**2)G**3 = G*2/(4PI) G/(4PI) = C1 * G/(4PI) +C...M*M = C1**2 * G**2/(16PI**2) +C...G = 1/(8PI)P/MI**2 * M*M = C1**3/(32PI**2)*LAM/(2*MI**3) + LKNT=LKNT+1 + XL=PYLAMF(XMI2,0D0,PMAS(PYCOMP(KSUSY1+22),1)**2) + XLAM(LKNT)=C1**3/64D0/PI**2/XMI3*SQRT(XL) + IF(XLAM(LKNT).EQ.0) XLAM(LKNT)=1D-3 + IDLAM(LKNT,1)=KSUSY1+22 + IDLAM(LKNT,2)=4 + IDLAM(LKNT,3)=0 + ENDIF + + IKNT=LKNT + XLAM(0)=0D0 + DO 130 I=1,IKNT + IF(XLAM(I).LT.0D0) XLAM(I)=0D0 + XLAM(0)=XLAM(0)+XLAM(I) + 130 CONTINUE + IF(XLAM(0).EQ.0D0) XLAM(0)=1D-3 + + RETURN + END + +C********************************************************************* + +C...PYGLUI +C...Calculates gluino decay modes. + + SUBROUTINE PYGLUI(KFIN,XLAM,IDLAM,IKNT) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2), + &SFMIX(16,4) + COMMON/PYINTS/XXM(20) + SAVE /PYDAT1/,/PYDAT2/,/PYMSSM/,/PYSSMT/,/PYINTS/ + +C...Local variables. + INTEGER KFIN,KCIN,KF + DOUBLE PRECISION XMI,XMJ,XMF,XMSF1,XMSF2,XMW,XMW2, + &XMZ,XMZ2,AXMJ,AXMI + DOUBLE PRECISION XMI2,XMI3,XMJ2,XMA2,XMB2,XMFP + DOUBLE PRECISION C1L,C1R,D1L,D1R + DOUBLE PRECISION C2L,C2R,D2L,D2R + DOUBLE PRECISION PYLAMF,XL + DOUBLE PRECISION TANW,XW,AEM,C1,AS,S12MAX,S12MIN + DOUBLE PRECISION CA,CB,AL,AR,BL,BR + DOUBLE PRECISION ALFA,BETA + DOUBLE PRECISION SW,CW,SINB,COSB,QT,T3 + DOUBLE PRECISION XLAM(0:200) + INTEGER IDLAM(200,3) + INTEGER LKNT,IX,IC,ILR,IDU,J,IJ,I,IKNT,IFL + DOUBLE PRECISION SR2 + DOUBLE PRECISION GAM + DOUBLE PRECISION PYALEM,PI,PYALPS,EI + EXTERNAL PYGAUS,PYXXZ5,PYXXW5,PYXXZ2 + DOUBLE PRECISION PYGAUS,PYXXZ5,PYXXW5,PYXXZ2 + DOUBLE PRECISION PREC + INTEGER KFNCHI(4),KFCCHI(2) + DATA PI/3.141592654D0/ + DATA SR2/1.4142136D0/ + DATA PREC/1D-2/ + DATA KFNCHI/1000022,1000023,1000025,1000035/ + DATA KFCCHI/1000024,1000037/ + +C...COUNT THE NUMBER OF DECAY MODES + LKNT=0 + IF(KFIN.NE.KSUSY1+21) RETURN + KCIN=PYCOMP(KFIN) + + XMW=PMAS(24,1) + XMW2=XMW**2 + XMZ=PMAS(23,1) + XMZ2=XMZ**2 + XW=PARU(102) + TANW = SQRT(XW/(1D0-XW)) + + XMI=PMAS(KCIN,1) + AXMI=ABS(XMI) + XMI2=XMI**2 + AEM=PYALEM(XMI2) + AS =PYALPS(XMI2) + C1=AEM/XW + XMI3=XMI**3 + BETA=ATAN(RMSS(5)) + +C...2-BODY DECAYS OF GLUINO -> GRAVITINO GLUON + + IF(IMSS(11).EQ.1) THEN + XMP=RMSS(29) + IDG=39+KSUSY1 + XMGR=PMAS(PYCOMP(IDG),1) + XFAC=(XMI2/(XMP*XMGR))**2*XMI/48D0/PI + IF(AXMI.GT.XMGR) THEN + LKNT=LKNT+1 + IDLAM(LKNT,1)=IDG + IDLAM(LKNT,2)=21 + IDLAM(LKNT,3)=0 + XLAM(LKNT)=XFAC + ENDIF + ENDIF + +C...2-BODY DECAYS OF GLUINO -> QUARK SQUARK + + DO 110 IFL=1,6 + DO 100 ILR=1,2 + XMJ=PMAS(PYCOMP(ILR*KSUSY1+IFL),1) + AXMJ=ABS(XMJ) + XMF=PMAS(IFL,1) + IDU=3-(1+MOD(IFL,2)) + IF(XMI.GE.AXMJ+XMF) THEN +C...Minus sign difference from gluino-quark-squark feynman rules + AL=SFMIX(IFL,1) + BL=-SFMIX(IFL,3) + AR=SFMIX(IFL,2) + BR=-SFMIX(IFL,4) +C...F1 -> F CHI + IF(ILR.EQ.1) THEN + CA=AL + CB=BL +C...F2 -> F CHI + ELSE + CA=AR + CB=BR + ENDIF + LKNT=LKNT+1 + XMA2=XMJ**2 + XMB2=XMF**2 + XL=PYLAMF(XMI2,XMA2,XMB2) + XLAM(LKNT)=4D0/8D0*AS/4D0/XMI3*SQRT(XL)*((XMI2+XMB2-XMA2)* + & (CA**2+CB**2)-4D0*CA*CB*XMI*XMF) + IDLAM(LKNT,1)=ILR*KSUSY1+IFL + IDLAM(LKNT,2)=-IFL + IDLAM(LKNT,3)=0 + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=-IDLAM(LKNT-1,1) + IDLAM(LKNT,2)=-IDLAM(LKNT-1,2) + IDLAM(LKNT,3)=0 + ENDIF + 100 CONTINUE + 110 CONTINUE + +C...3-BODY DECAYS TO GAUGINO FERMION-FERMION +C...GLUINO -> NI Q QBAR + DO 160 IX=1,4 + XMJ=SMZ(IX) + AXMJ=ABS(XMJ) + IF(XMI.GE.AXMJ) THEN + XXM(1)=0D0 + XXM(2)=XMJ + XXM(3)=0D0 + XXM(4)=XMI + XXM(5)=PMAS(PYCOMP(KSUSY1+1),1) + XXM(6)=PMAS(PYCOMP(KSUSY2+1),1) + XXM(7)=1D6 + XXM(8)=0D0 + XXM(9)=0D0 + XXM(10)=0D0 + S12MIN=0D0 + S12MAX=(XMI-AXMJ)**2 +C...D-TYPE QUARKS + XXM(11)=0D0 + XXM(12)=0D0 + XXM(13)=1D0 + XXM(14)=-SR2*(-0.5D0*ZMIX(IX,2)+TANW*ZMIX(IX,1)/6D0) + XXM(15)=1D0 + XXM(16)=SR2*(-TANW*ZMIX(IX,1)/3D0) + IF( XXM(5).LT.AXMI .OR. XXM(6).LT.AXMI ) GOTO 120 + IF(XMI.GE.AXMJ+2D0*PMAS(1,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=C1*AS/XMI3/(16D0*PI)* + & PYGAUS(PYXXZ5,S12MIN,S12MAX,1D-2) + IDLAM(LKNT,1)=KFNCHI(IX) + IDLAM(LKNT,2)=1 + IDLAM(LKNT,3)=-1 + ENDIF + IF(XMI.GE.AXMJ+2D0*PMAS(3,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFNCHI(IX) + IDLAM(LKNT,2)=3 + IDLAM(LKNT,3)=-3 + ENDIF + 120 CONTINUE + IF( XXM(5).LT.AXMI .OR. XXM(6).LT.AXMI ) GOTO 130 + IF(XMI.GE.AXMJ+2D0*PMAS(5,1)) THEN + CALL PYTBBN(IX,80,-1D0/3D0,AXMI,GAM) + LKNT=LKNT+1 + XLAM(LKNT)=GAM + IDLAM(LKNT,1)=KFNCHI(IX) + IDLAM(LKNT,2)=5 + IDLAM(LKNT,3)=-5 + ENDIF +C...U-TYPE QUARKS + 130 CONTINUE + XXM(5)=PMAS(PYCOMP(KSUSY1+2),1) + XXM(6)=PMAS(PYCOMP(KSUSY2+2),1) + XXM(13)=1D0 + XXM(14)=-SR2*(0.5D0*ZMIX(IX,2)+TANW*ZMIX(IX,1)/6D0) + XXM(15)=1D0 + XXM(16)=SR2*(2D0*TANW*ZMIX(IX,1)/3D0) + IF( XXM(5).LT.AXMI .OR. XXM(6).LT.AXMI ) GOTO 140 + IF(XMI.GE.AXMJ+2D0*PMAS(2,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=C1*AS/XMI3/(16D0*PI)* + & PYGAUS(PYXXZ5,S12MIN,S12MAX,1D-2) + IDLAM(LKNT,1)=KFNCHI(IX) + IDLAM(LKNT,2)=2 + IDLAM(LKNT,3)=-2 + ENDIF + IF(XMI.GE.AXMJ+2D0*PMAS(4,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFNCHI(IX) + IDLAM(LKNT,2)=4 + IDLAM(LKNT,3)=-4 + ENDIF + 140 CONTINUE +C...INCLUDE THE DECAY GLUINO -> NJ + T + T~ +C...IF THE DECAY GLUINO -> ST + T CANNOT OCCUR + IF(XMI.GE.PMAS(PYCOMP(KSUSY1+6),1)+PMAS(6,1)) GOTO 150 + XMF=PMAS(6,1) + IF(XMI.GE.AXMJ+2D0*XMF) THEN + CALL PYTBBN(IX,80,2D0/3D0,AXMI,GAM) + LKNT=LKNT+1 + XLAM(LKNT)=GAM + IDLAM(LKNT,1)=KFNCHI(IX) + IDLAM(LKNT,2)=6 + IDLAM(LKNT,3)=-6 + ENDIF + 150 CONTINUE + ENDIF + 160 CONTINUE + +C...GLUINO -> CI Q QBAR' + DO 190 IX=1,2 + XMJ=SMW(IX) + AXMJ=ABS(XMJ) + IF(XMI.GE.AXMJ) THEN + S12MIN=0D0 + S12MAX=(AXMI-AXMJ)**2 + XXM(1)=0D0 + XXM(2)=XMJ + XXM(3)=0D0 + XXM(4)=XMI + XXM(5)=0D0 + XXM(6)=0D0 + XXM(9)=1D6 + XXM(10)=0D0 + XXM(7)=UMIX(IX,1)*SR2 + XXM(8)=VMIX(IX,1)*SR2 + XXM(11)=PMAS(PYCOMP(KSUSY1+1),1) + XXM(12)=PMAS(PYCOMP(KSUSY1+2),1) + IF( XXM(11).LT.AXMI .OR. XXM(12).LT.AXMI ) GOTO 170 + IF(XMI.GE.AXMJ+PMAS(1,1)+PMAS(2,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=0.5D0*C1*AS/XMI3/(16D0*PI)* + & PYGAUS(PYXXW5,S12MIN,S12MAX,PREC) + IDLAM(LKNT,1)=KFCCHI(IX) + IDLAM(LKNT,2)=1 + IDLAM(LKNT,3)=-2 + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=-IDLAM(LKNT-1,1) + IDLAM(LKNT,2)=-IDLAM(LKNT-1,2) + IDLAM(LKNT,3)=-IDLAM(LKNT-1,3) + ENDIF + IF(XMI.GE.AXMJ+PMAS(3,1)+PMAS(4,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFCCHI(IX) + IDLAM(LKNT,2)=3 + IDLAM(LKNT,3)=-4 + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=-IDLAM(LKNT-1,1) + IDLAM(LKNT,2)=-IDLAM(LKNT-1,2) + IDLAM(LKNT,3)=-IDLAM(LKNT-1,3) + ENDIF + 170 CONTINUE + + IF(XMI.GE.PMAS(PYCOMP(KSUSY1+5),1)+PMAS(5,1)) GOTO 180 + IF(XMI.GE.PMAS(PYCOMP(KSUSY1+6),1)+PMAS(6,1)) GOTO 180 + XMF=PMAS(6,1) + XMFP=PMAS(5,1) + IF(XMI.GE.AXMJ+XMF+XMFP) THEN + CALL PYTBBC(IX,80,AXMI,GAM) + LKNT=LKNT+1 + XLAM(LKNT)=GAM + IDLAM(LKNT,1)=KFCCHI(IX) + IDLAM(LKNT,2)=5 + IDLAM(LKNT,3)=-6 + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=-IDLAM(LKNT-1,1) + IDLAM(LKNT,2)=-IDLAM(LKNT-1,2) + IDLAM(LKNT,3)=-IDLAM(LKNT-1,3) + ENDIF + 180 CONTINUE + ENDIF + 190 CONTINUE + + IKNT=LKNT + XLAM(0)=0D0 + DO 200 I=1,IKNT + IF(XLAM(I).LT.0D0) XLAM(I)=0D0 + XLAM(0)=XLAM(0)+XLAM(I) + 200 CONTINUE + IF(XLAM(0).EQ.0D0) XLAM(0)=1D-6 + + RETURN + END + +C********************************************************************* + +C...PYTECM +C...Finds the s-hat dependent eigenvalues of the inverse propagator +C...matrix for gamma, Z, technirho, and techniomega to optimize the +C...phase space generation. + + SUBROUTINE PYTECM(S1,S2) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + SAVE /PYDAT1/,/PYDAT2/,/PYPARS/ + +C...Local variables. + DOUBLE PRECISION AR(4,4),WR(4),ZR(4,4),ZI(4,4),WORK(12,12), + &AT(4,4),WI(4),FV1(4),FV2(4),FV3(4),sh,aem,tanw,ct2w,qupd,alprht, + &far,fao,fzr,fzo,shr,R1,R2,S1,S2,WDTP(0:200),WDTE(0:200,0:5) + INTEGER i,j,ierr + + SH=PMAS(54,1)**2 + AEM=PYALEM(SH) + + TANW=SQRT(PARU(102)/(1D0-PARU(102))) + CT2W=(1D0-2D0*PARU(102))/(2D0*PARU(102)/TANW) + QUPD=2D0*PARP(143)-1D0 + + ALPRHT=2.91D0*(3D0/PARP(144)) + FAR=SQRT(AEM/ALPRHT) + FAO=FAR*QUPD + FZR=FAR*CT2W + FZO=-FAO*TANW + + AR(1,1) = SH + AR(2,2) = SH-PMAS(23,1)**2 + AR(3,3) = SH-PMAS(54,1)**2 + AR(4,4) = SH-PMAS(56,1)**2 + AR(1,2) = 0D0 + AR(2,1) = 0D0 + AR(1,3) = -SH*FAR + AR(3,1) = AR(1,3) + AR(1,4) = -SH*FAO + AR(4,1) = AR(1,4) + AR(2,3) = -SH*FZR + AR(3,2) = AR(2,3) + AR(2,4) = -SH*FZO + AR(4,2) = AR(2,4) + AR(3,4) = 0D0 + AR(4,3) = 0D0 +CCCCCCCC + DO 110 I=1,4 + DO 100 J=1,4 + AT(I,J)=0D0 + 100 CONTINUE + 110 CONTINUE + SHR=SQRT(SH) + CALL PYWIDT(23,SH,WDTP,WDTE) + AT(2,2) = WDTP(0)*SHR + CALL PYWIDT(54,SH,WDTP,WDTE) + AT(3,3) = WDTP(0)*SHR + CALL PYWIDT(56,SH,WDTP,WDTE) + AT(4,4) = WDTP(0)*SHR +CCCC + CALL PYEICG(4,4,AR,AT,WR,WI,0,ZR,ZI,FV1,FV2,FV3,IERR) + DO 120 I=1,4 + WI(I)=SQRT(ABS(SH-WR(I))) + WR(I)=ABS(WR(I)) + 120 CONTINUE + R1=MIN(WR(1),WR(2),WR(3),WR(4)) + R2=1D20 + S1=0D0 + S2=0D0 + DO 130 I=1,4 + IF(ABS(WR(I)-R1).LT.1D-6) THEN + S1=WI(I) + GOTO 130 + ENDIF + IF(WR(I).LE.R2) THEN + R2=WR(I) + S2=WI(I) + ENDIF + 130 CONTINUE + S1=S1**2 + S2=S2**2 + RETURN + END + + + +C********************************************************************* + +C...PYEIGC +C...Finds eigenvalues of a general complex matrix + + SUBROUTINE PYEICG(NM,N,AR,AI,WR,WI,MATZ,ZR,ZI,FV1,FV2,FV3,IERR) +C + INTEGER N,NM,IS1,IS2,IERR,MATZ + DOUBLE PRECISION AR(NM,N),AI(NM,N),WR(N),WI(N),ZR(NM,N),ZI(NM,N), + X FV1(N),FV2(N),FV3(N) +C +C THIS SUBROUTINE CALLS THE RECOMMENDED SEQUENCE OF +C SUBROUTINES FROM THE EIGENSYSTEM SUBROUTINE PACKAGE (EISPACK) +C TO FIND THE EIGENVALUES AND EIGENVECTORS (IF DESIRED) +C OF A COMPLEX GENERAL MATRIX. +C +C ON INPUT +C +C NM MUST BE SET TO THE ROW DIMENSION OF THE TWO-DIMENSIONAL +C ARRAY PARAMETERS AS DECLARED IN THE CALLING PROGRAM +C DIMENSION STATEMENT. +C +C N IS THE ORDER OF THE MATRIX A=(AR,AI). +C +C AR AND AI CONTAIN THE REAL AND IMAGINARY PARTS, +C RESPECTIVELY, OF THE COMPLEX GENERAL MATRIX. +C +C MATZ IS AN INTEGER VARIABLE SET EQUAL TO ZERO IF +C ONLY EIGENVALUES ARE DESIRED. OTHERWISE IT IS SET TO +C ANY NON-ZERO INTEGER FOR BOTH EIGENVALUES AND EIGENVECTORS. +C +C ON OUTPUT +C +C WR AND WI CONTAIN THE REAL AND IMAGINARY PARTS, +C RESPECTIVELY, OF THE EIGENVALUES. +C +C ZR AND ZI CONTAIN THE REAL AND IMAGINARY PARTS, +C RESPECTIVELY, OF THE EIGENVECTORS IF MATZ IS NOT ZERO. +C +C IERR IS AN INTEGER OUTPUT VARIABLE SET EQUAL TO AN ERROR +C COMPLETION CODE DESCRIBED IN THE DOCUMENTATION FOR COMQR +C AND COMQR2. THE NORMAL COMPLETION CODE IS ZERO. +C +C FV1, FV2, AND FV3 ARE TEMPORARY STORAGE ARRAYS. +C +C QUESTIONS AND COMMENTS SHOULD BE DIRECTED TO BURTON S. GARBOW, +C MATHEMATICS AND COMPUTER SCIENCE DIV, ARGONNE NATIONAL LABORATORY +C +C THIS VERSION DATED AUGUST 1983. +C +C ------------------------------------------------------------------ +C + IF (N .LE. NM) GO TO 10 + IERR = 10 * N + GO TO 50 +C + 10 CALL CBAL(NM,N,AR,AI,IS1,IS2,FV1) + CALL CORTH(NM,N,IS1,IS2,AR,AI,FV2,FV3) + IF (MATZ .NE. 0) GO TO 20 +C .......... FIND EIGENVALUES ONLY .......... + CALL COMQR(NM,N,IS1,IS2,AR,AI,WR,WI,IERR) + GO TO 50 +C .......... FIND BOTH EIGENVALUES AND EIGENVECTORS .......... + 20 CALL COMQR2(NM,N,IS1,IS2,FV2,FV3,AR,AI,WR,WI,ZR,ZI,IERR) + IF (IERR .NE. 0) GO TO 50 + CALL CBABK2(NM,N,IS1,IS2,FV1,N,ZR,ZI) + 50 RETURN + END + SUBROUTINE CBABK2(NM,N,LOW,IGH,SCALE,M,ZR,ZI) +C + INTEGER I,J,K,M,N,II,NM,IGH,LOW + DOUBLE PRECISION SCALE(N),ZR(NM,M),ZI(NM,M) + DOUBLE PRECISION S +C +C THIS SUBROUTINE IS A TRANSLATION OF THE ALGOL PROCEDURE +C CBABK2, WHICH IS A COMPLEX VERSION OF BALBAK, +C NUM. MATH. 13, 293-304(1969) BY PARLETT AND REINSCH. +C HANDBOOK FOR AUTO. COMP., VOL.II-LINEAR ALGEBRA, 315-326(1971). +C +C THIS SUBROUTINE FORMS THE EIGENVECTORS OF A COMPLEX GENERAL +C MATRIX BY BACK TRANSFORMING THOSE OF THE CORRESPONDING +C BALANCED MATRIX DETERMINED BY CBAL. +C +C ON INPUT +C +C NM MUST BE SET TO THE ROW DIMENSION OF TWO-DIMENSIONAL +C ARRAY PARAMETERS AS DECLARED IN THE CALLING PROGRAM +C DIMENSION STATEMENT. +C +C N IS THE ORDER OF THE MATRIX. +C +C LOW AND IGH ARE INTEGERS DETERMINED BY CBAL. +C +C SCALE CONTAINS INFORMATION DETERMINING THE PERMUTATIONS +C AND SCALING FACTORS USED BY CBAL. +C +C M IS THE NUMBER OF EIGENVECTORS TO BE BACK TRANSFORMED. +C +C ZR AND ZI CONTAIN THE REAL AND IMAGINARY PARTS, +C RESPECTIVELY, OF THE EIGENVECTORS TO BE +C BACK TRANSFORMED IN THEIR FIRST M COLUMNS. +C +C ON OUTPUT +C +C ZR AND ZI CONTAIN THE REAL AND IMAGINARY PARTS, +C RESPECTIVELY, OF THE TRANSFORMED EIGENVECTORS +C IN THEIR FIRST M COLUMNS. +C +C QUESTIONS AND COMMENTS SHOULD BE DIRECTED TO BURTON S. GARBOW, +C MATHEMATICS AND COMPUTER SCIENCE DIV, ARGONNE NATIONAL LABORATORY +C +C THIS VERSION DATED AUGUST 1983. +C +C ------------------------------------------------------------------ +C + IF (M .EQ. 0) GO TO 200 + IF (IGH .EQ. LOW) GO TO 120 +C + DO 110 I = LOW, IGH + S = SCALE(I) +C .......... LEFT HAND EIGENVECTORS ARE BACK TRANSFORMED +C IF THE FOREGOING STATEMENT IS REPLACED BY +C S=1.0D0/SCALE(I). .......... + DO 100 J = 1, M + ZR(I,J) = ZR(I,J) * S + ZI(I,J) = ZI(I,J) * S + 100 CONTINUE +C + 110 CONTINUE +C .......... FOR I=LOW-1 STEP -1 UNTIL 1, +C IGH+1 STEP 1 UNTIL N DO -- .......... + 120 DO 140 II = 1, N + I = II + IF (I .GE. LOW .AND. I .LE. IGH) GO TO 140 + IF (I .LT. LOW) I = LOW - II + K = SCALE(I) + IF (K .EQ. I) GO TO 140 +C + DO 130 J = 1, M + S = ZR(I,J) + ZR(I,J) = ZR(K,J) + ZR(K,J) = S + S = ZI(I,J) + ZI(I,J) = ZI(K,J) + ZI(K,J) = S + 130 CONTINUE +C + 140 CONTINUE +C + 200 RETURN + END + SUBROUTINE CBAL(NM,N,AR,AI,LOW,IGH,SCALE) +C + INTEGER I,J,K,L,M,N,JJ,NM,IGH,LOW,IEXC + DOUBLE PRECISION AR(NM,N),AI(NM,N),SCALE(N) + DOUBLE PRECISION C,F,G,R,S,B2,RADIX + LOGICAL NOCONV +C +C THIS SUBROUTINE IS A TRANSLATION OF THE ALGOL PROCEDURE +C CBALANCE, WHICH IS A COMPLEX VERSION OF BALANCE, +C NUM. MATH. 13, 293-304(1969) BY PARLETT AND REINSCH. +C HANDBOOK FOR AUTO. COMP., VOL.II-LINEAR ALGEBRA, 315-326(1971). +C +C THIS SUBROUTINE BALANCES A COMPLEX MATRIX AND ISOLATES +C EIGENVALUES WHENEVER POSSIBLE. +C +C ON INPUT +C +C NM MUST BE SET TO THE ROW DIMENSION OF TWO-DIMENSIONAL +C ARRAY PARAMETERS AS DECLARED IN THE CALLING PROGRAM +C DIMENSION STATEMENT. +C +C N IS THE ORDER OF THE MATRIX. +C +C AR AND AI CONTAIN THE REAL AND IMAGINARY PARTS, +C RESPECTIVELY, OF THE COMPLEX MATRIX TO BE BALANCED. +C +C ON OUTPUT +C +C AR AND AI CONTAIN THE REAL AND IMAGINARY PARTS, +C RESPECTIVELY, OF THE BALANCED MATRIX. +C +C LOW AND IGH ARE TWO INTEGERS SUCH THAT AR(I,J) AND AI(I,J) +C ARE EQUAL TO ZERO IF +C (1) I IS GREATER THAN J AND +C (2) J=1,...,LOW-1 OR I=IGH+1,...,N. +C +C SCALE CONTAINS INFORMATION DETERMINING THE +C PERMUTATIONS AND SCALING FACTORS USED. +C +C SUPPOSE THAT THE PRINCIPAL SUBMATRIX IN ROWS LOW THROUGH IGH +C HAS BEEN BALANCED, THAT P(J) DENOTES THE INDEX INTERCHANGED +C WITH J DURING THE PERMUTATION STEP, AND THAT THE ELEMENTS +C OF THE DIAGONAL MATRIX USED ARE DENOTED BY D(I,J). THEN +C SCALE(J) = P(J), FOR J = 1,...,LOW-1 +C = D(J,J) J = LOW,...,IGH +C = P(J) J = IGH+1,...,N. +C THE ORDER IN WHICH THE INTERCHANGES ARE MADE IS N TO IGH+1, +C THEN 1 TO LOW-1. +C +C NOTE THAT 1 IS RETURNED FOR IGH IF IGH IS ZERO FORMALLY. +C +C THE ALGOL PROCEDURE EXC CONTAINED IN CBALANCE APPEARS IN +C CBAL IN LINE. (NOTE THAT THE ALGOL ROLES OF IDENTIFIERS +C K,L HAVE BEEN REVERSED.) +C +C ARITHMETIC IS REAL THROUGHOUT. +C +C QUESTIONS AND COMMENTS SHOULD BE DIRECTED TO BURTON S. GARBOW, +C MATHEMATICS AND COMPUTER SCIENCE DIV, ARGONNE NATIONAL LABORATORY +C +C THIS VERSION DATED AUGUST 1983. +C +C ------------------------------------------------------------------ +C + RADIX = 16.0D0 +C + B2 = RADIX * RADIX + K = 1 + L = N + GO TO 100 +C .......... IN-LINE PROCEDURE FOR ROW AND +C COLUMN EXCHANGE .......... + 20 SCALE(M) = J + IF (J .EQ. M) GO TO 50 +C + DO 30 I = 1, L + F = AR(I,J) + AR(I,J) = AR(I,M) + AR(I,M) = F + F = AI(I,J) + AI(I,J) = AI(I,M) + AI(I,M) = F + 30 CONTINUE +C + DO 40 I = K, N + F = AR(J,I) + AR(J,I) = AR(M,I) + AR(M,I) = F + F = AI(J,I) + AI(J,I) = AI(M,I) + AI(M,I) = F + 40 CONTINUE +C + 50 GO TO (80,130), IEXC +C .......... SEARCH FOR ROWS ISOLATING AN EIGENVALUE +C AND PUSH THEM DOWN .......... + 80 IF (L .EQ. 1) GO TO 280 + L = L - 1 +C .......... FOR J=L STEP -1 UNTIL 1 DO -- .......... + 100 DO 120 JJ = 1, L + J = L + 1 - JJ +C + DO 110 I = 1, L + IF (I .EQ. J) GO TO 110 + IF (AR(J,I) .NE. 0.0D0 .OR. AI(J,I) .NE. 0.0D0) GO TO 120 + 110 CONTINUE +C + M = L + IEXC = 1 + GO TO 20 + 120 CONTINUE +C + GO TO 140 +C .......... SEARCH FOR COLUMNS ISOLATING AN EIGENVALUE +C AND PUSH THEM LEFT .......... + 130 K = K + 1 +C + 140 DO 170 J = K, L +C + DO 150 I = K, L + IF (I .EQ. J) GO TO 150 + IF (AR(I,J) .NE. 0.0D0 .OR. AI(I,J) .NE. 0.0D0) GO TO 170 + 150 CONTINUE +C + M = K + IEXC = 2 + GO TO 20 + 170 CONTINUE +C .......... NOW BALANCE THE SUBMATRIX IN ROWS K TO L .......... + DO 180 I = K, L + 180 SCALE(I) = 1.0D0 +C .......... ITERATIVE LOOP FOR NORM REDUCTION .......... + 190 NOCONV = .FALSE. +C + DO 270 I = K, L + C = 0.0D0 + R = 0.0D0 +C + DO 200 J = K, L + IF (J .EQ. I) GO TO 200 + C = C + DABS(AR(J,I)) + DABS(AI(J,I)) + R = R + DABS(AR(I,J)) + DABS(AI(I,J)) + 200 CONTINUE +C .......... GUARD AGAINST ZERO C OR R DUE TO UNDERFLOW .......... + IF (C .EQ. 0.0D0 .OR. R .EQ. 0.0D0) GO TO 270 + G = R / RADIX + F = 1.0D0 + S = C + R + 210 IF (C .GE. G) GO TO 220 + F = F * RADIX + C = C * B2 + GO TO 210 + 220 G = R * RADIX + 230 IF (C .LT. G) GO TO 240 + F = F / RADIX + C = C / B2 + GO TO 230 +C .......... NOW BALANCE .......... + 240 IF ((C + R) / F .GE. 0.95D0 * S) GO TO 270 + G = 1.0D0 / F + SCALE(I) = SCALE(I) * F + NOCONV = .TRUE. +C + DO 250 J = K, N + AR(I,J) = AR(I,J) * G + AI(I,J) = AI(I,J) * G + 250 CONTINUE +C + DO 260 J = 1, L + AR(J,I) = AR(J,I) * F + AI(J,I) = AI(J,I) * F + 260 CONTINUE +C + 270 CONTINUE +C + IF (NOCONV) GO TO 190 +C + 280 LOW = K + IGH = L + RETURN + END + SUBROUTINE CDIV(AR,AI,BR,BI,CR,CI) + DOUBLE PRECISION AR,AI,BR,BI,CR,CI +C +C COMPLEX DIVISION, (CR,CI) = (AR,AI)/(BR,BI) +C + DOUBLE PRECISION S,ARS,AIS,BRS,BIS + S = DABS(BR) + DABS(BI) + ARS = AR/S + AIS = AI/S + BRS = BR/S + BIS = BI/S + S = BRS**2 + BIS**2 + CR = (ARS*BRS + AIS*BIS)/S + CI = (AIS*BRS - ARS*BIS)/S + RETURN + END + SUBROUTINE COMQR(NM,N,LOW,IGH,HR,HI,WR,WI,IERR) +C + INTEGER I,J,L,N,EN,LL,NM,IGH,ITN,ITS,LOW,LP1,ENM1,IERR + DOUBLE PRECISION HR(NM,N),HI(NM,N),WR(N),WI(N) + DOUBLE PRECISION SI,SR,TI,TR,XI,XR,YI,YR,ZZI,ZZR,NORM,TST1,TST2, + X PYTHAG +C +C THIS SUBROUTINE IS A TRANSLATION OF A UNITARY ANALOGUE OF THE +C ALGOL PROCEDURE COMLR, NUM. MATH. 12, 369-376(1968) BY MARTIN +C AND WILKINSON. +C HANDBOOK FOR AUTO. COMP., VOL.II-LINEAR ALGEBRA, 396-403(1971). +C THE UNITARY ANALOGUE SUBSTITUTES THE QR ALGORITHM OF FRANCIS +C (COMP. JOUR. 4, 332-345(1962)) FOR THE LR ALGORITHM. +C +C THIS SUBROUTINE FINDS THE EIGENVALUES OF A COMPLEX +C UPPER HESSENBERG MATRIX BY THE QR METHOD. +C +C ON INPUT +C +C NM MUST BE SET TO THE ROW DIMENSION OF TWO-DIMENSIONAL +C ARRAY PARAMETERS AS DECLARED IN THE CALLING PROGRAM +C DIMENSION STATEMENT. +C +C N IS THE ORDER OF THE MATRIX. +C +C LOW AND IGH ARE INTEGERS DETERMINED BY THE BALANCING +C SUBROUTINE CBAL. IF CBAL HAS NOT BEEN USED, +C SET LOW=1, IGH=N. +C +C HR AND HI CONTAIN THE REAL AND IMAGINARY PARTS, +C RESPECTIVELY, OF THE COMPLEX UPPER HESSENBERG MATRIX. +C THEIR LOWER TRIANGLES BELOW THE SUBDIAGONAL CONTAIN +C INFORMATION ABOUT THE UNITARY TRANSFORMATIONS USED IN +C THE REDUCTION BY CORTH, IF PERFORMED. +C +C ON OUTPUT +C +C THE UPPER HESSENBERG PORTIONS OF HR AND HI HAVE BEEN +C DESTROYED. THEREFORE, THEY MUST BE SAVED BEFORE +C CALLING COMQR IF SUBSEQUENT CALCULATION OF +C EIGENVECTORS IS TO BE PERFORMED. +C +C WR AND WI CONTAIN THE REAL AND IMAGINARY PARTS, +C RESPECTIVELY, OF THE EIGENVALUES. IF AN ERROR +C EXIT IS MADE, THE EIGENVALUES SHOULD BE CORRECT +C FOR INDICES IERR+1,...,N. +C +C IERR IS SET TO +C ZERO FOR NORMAL RETURN, +C J IF THE LIMIT OF 30*N ITERATIONS IS EXHAUSTED +C WHILE THE J-TH EIGENVALUE IS BEING SOUGHT. +C +C CALLS CDIV FOR COMPLEX DIVISION. +C CALLS CSROOT FOR COMPLEX SQUARE ROOT. +C CALLS PYTHAG FOR DSQRT(A*A + B*B) . +C +C QUESTIONS AND COMMENTS SHOULD BE DIRECTED TO BURTON S. GARBOW, +C MATHEMATICS AND COMPUTER SCIENCE DIV, ARGONNE NATIONAL LABORATORY +C +C THIS VERSION DATED AUGUST 1983. +C +C ------------------------------------------------------------------ +C + IERR = 0 + IF (LOW .EQ. IGH) GO TO 180 +C .......... CREATE REAL SUBDIAGONAL ELEMENTS .......... + L = LOW + 1 +C + DO 170 I = L, IGH + LL = MIN0(I+1,IGH) + IF (HI(I,I-1) .EQ. 0.0D0) GO TO 170 + NORM = PYTHAG(HR(I,I-1),HI(I,I-1)) + YR = HR(I,I-1) / NORM + YI = HI(I,I-1) / NORM + HR(I,I-1) = NORM + HI(I,I-1) = 0.0D0 +C + DO 155 J = I, IGH + SI = YR * HI(I,J) - YI * HR(I,J) + HR(I,J) = YR * HR(I,J) + YI * HI(I,J) + HI(I,J) = SI + 155 CONTINUE +C + DO 160 J = LOW, LL + SI = YR * HI(J,I) + YI * HR(J,I) + HR(J,I) = YR * HR(J,I) - YI * HI(J,I) + HI(J,I) = SI + 160 CONTINUE +C + 170 CONTINUE +C .......... STORE ROOTS ISOLATED BY CBAL .......... + 180 DO 200 I = 1, N + IF (I .GE. LOW .AND. I .LE. IGH) GO TO 200 + WR(I) = HR(I,I) + WI(I) = HI(I,I) + 200 CONTINUE +C + EN = IGH + TR = 0.0D0 + TI = 0.0D0 + ITN = 30*N +C .......... SEARCH FOR NEXT EIGENVALUE .......... + 220 IF (EN .LT. LOW) GO TO 1001 + ITS = 0 + ENM1 = EN - 1 +C .......... LOOK FOR SINGLE SMALL SUB-DIAGONAL ELEMENT +C FOR L=EN STEP -1 UNTIL LOW D0 -- .......... + 240 DO 260 LL = LOW, EN + L = EN + LOW - LL + IF (L .EQ. LOW) GO TO 300 + TST1 = DABS(HR(L-1,L-1)) + DABS(HI(L-1,L-1)) + X + DABS(HR(L,L)) + DABS(HI(L,L)) + TST2 = TST1 + DABS(HR(L,L-1)) + IF (TST2 .EQ. TST1) GO TO 300 + 260 CONTINUE +C .......... FORM SHIFT .......... + 300 IF (L .EQ. EN) GO TO 660 + IF (ITN .EQ. 0) GO TO 1000 + IF (ITS .EQ. 10 .OR. ITS .EQ. 20) GO TO 320 + SR = HR(EN,EN) + SI = HI(EN,EN) + XR = HR(ENM1,EN) * HR(EN,ENM1) + XI = HI(ENM1,EN) * HR(EN,ENM1) + IF (XR .EQ. 0.0D0 .AND. XI .EQ. 0.0D0) GO TO 340 + YR = (HR(ENM1,ENM1) - SR) / 2.0D0 + YI = (HI(ENM1,ENM1) - SI) / 2.0D0 + CALL CSROOT(YR**2-YI**2+XR,2.0D0*YR*YI+XI,ZZR,ZZI) + IF (YR * ZZR + YI * ZZI .GE. 0.0D0) GO TO 310 + ZZR = -ZZR + ZZI = -ZZI + 310 CALL CDIV(XR,XI,YR+ZZR,YI+ZZI,XR,XI) + SR = SR - XR + SI = SI - XI + GO TO 340 +C .......... FORM EXCEPTIONAL SHIFT .......... + 320 SR = DABS(HR(EN,ENM1)) + DABS(HR(ENM1,EN-2)) + SI = 0.0D0 +C + 340 DO 360 I = LOW, EN + HR(I,I) = HR(I,I) - SR + HI(I,I) = HI(I,I) - SI + 360 CONTINUE +C + TR = TR + SR + TI = TI + SI + ITS = ITS + 1 + ITN = ITN - 1 +C .......... REDUCE TO TRIANGLE (ROWS) .......... + LP1 = L + 1 +C + DO 500 I = LP1, EN + SR = HR(I,I-1) + HR(I,I-1) = 0.0D0 + NORM = PYTHAG(PYTHAG(HR(I-1,I-1),HI(I-1,I-1)),SR) + XR = HR(I-1,I-1) / NORM + WR(I-1) = XR + XI = HI(I-1,I-1) / NORM + WI(I-1) = XI + HR(I-1,I-1) = NORM + HI(I-1,I-1) = 0.0D0 + HI(I,I-1) = SR / NORM +C + DO 490 J = I, EN + YR = HR(I-1,J) + YI = HI(I-1,J) + ZZR = HR(I,J) + ZZI = HI(I,J) + HR(I-1,J) = XR * YR + XI * YI + HI(I,I-1) * ZZR + HI(I-1,J) = XR * YI - XI * YR + HI(I,I-1) * ZZI + HR(I,J) = XR * ZZR - XI * ZZI - HI(I,I-1) * YR + HI(I,J) = XR * ZZI + XI * ZZR - HI(I,I-1) * YI + 490 CONTINUE +C + 500 CONTINUE +C + SI = HI(EN,EN) + IF (SI .EQ. 0.0D0) GO TO 540 + NORM = PYTHAG(HR(EN,EN),SI) + SR = HR(EN,EN) / NORM + SI = SI / NORM + HR(EN,EN) = NORM + HI(EN,EN) = 0.0D0 +C .......... INVERSE OPERATION (COLUMNS) .......... + 540 DO 600 J = LP1, EN + XR = WR(J-1) + XI = WI(J-1) +C + DO 580 I = L, J + YR = HR(I,J-1) + YI = 0.0D0 + ZZR = HR(I,J) + ZZI = HI(I,J) + IF (I .EQ. J) GO TO 560 + YI = HI(I,J-1) + HI(I,J-1) = XR * YI + XI * YR + HI(J,J-1) * ZZI + 560 HR(I,J-1) = XR * YR - XI * YI + HI(J,J-1) * ZZR + HR(I,J) = XR * ZZR + XI * ZZI - HI(J,J-1) * YR + HI(I,J) = XR * ZZI - XI * ZZR - HI(J,J-1) * YI + 580 CONTINUE +C + 600 CONTINUE +C + IF (SI .EQ. 0.0D0) GO TO 240 +C + DO 630 I = L, EN + YR = HR(I,EN) + YI = HI(I,EN) + HR(I,EN) = SR * YR - SI * YI + HI(I,EN) = SR * YI + SI * YR + 630 CONTINUE +C + GO TO 240 +C .......... A ROOT FOUND .......... + 660 WR(EN) = HR(EN,EN) + TR + WI(EN) = HI(EN,EN) + TI + EN = ENM1 + GO TO 220 +C .......... SET ERROR -- ALL EIGENVALUES HAVE NOT +C CONVERGED AFTER 30*N ITERATIONS .......... + 1000 IERR = EN + 1001 RETURN + END + SUBROUTINE COMQR2(NM,N,LOW,IGH,ORTR,ORTI,HR,HI,WR,WI,ZR,ZI,IERR) +C MESHED OVERFLOW CONTROL WITH VECTORS OF ISOLATED ROOTS (10/19/89 BSG) +C MESHED OVERFLOW CONTROL WITH TRIANGULAR MULTIPLY (10/30/89 BSG) +C + INTEGER I,J,K,L,M,N,EN,II,JJ,LL,NM,NN,IGH,IP1, + X ITN,ITS,LOW,LP1,ENM1,IEND,IERR + DOUBLE PRECISION HR(NM,N),HI(NM,N),WR(N),WI(N),ZR(NM,N),ZI(NM,N), + X ORTR(IGH),ORTI(IGH) + DOUBLE PRECISION SI,SR,TI,TR,XI,XR,YI,YR,ZZI,ZZR,NORM,TST1,TST2, + X PYTHAG +C +C THIS SUBROUTINE IS A TRANSLATION OF A UNITARY ANALOGUE OF THE +C ALGOL PROCEDURE COMLR2, NUM. MATH. 16, 181-204(1970) BY PETERS +C AND WILKINSON. +C HANDBOOK FOR AUTO. COMP., VOL.II-LINEAR ALGEBRA, 372-395(1971). +C THE UNITARY ANALOGUE SUBSTITUTES THE QR ALGORITHM OF FRANCIS +C (COMP. JOUR. 4, 332-345(1962)) FOR THE LR ALGORITHM. +C +C THIS SUBROUTINE FINDS THE EIGENVALUES AND EIGENVECTORS +C OF A COMPLEX UPPER HESSENBERG MATRIX BY THE QR +C METHOD. THE EIGENVECTORS OF A COMPLEX GENERAL MATRIX +C CAN ALSO BE FOUND IF CORTH HAS BEEN USED TO REDUCE +C THIS GENERAL MATRIX TO HESSENBERG FORM. +C +C ON INPUT +C +C NM MUST BE SET TO THE ROW DIMENSION OF TWO-DIMENSIONAL +C ARRAY PARAMETERS AS DECLARED IN THE CALLING PROGRAM +C DIMENSION STATEMENT. +C +C N IS THE ORDER OF THE MATRIX. +C +C LOW AND IGH ARE INTEGERS DETERMINED BY THE BALANCING +C SUBROUTINE CBAL. IF CBAL HAS NOT BEEN USED, +C SET LOW=1, IGH=N. +C +C ORTR AND ORTI CONTAIN INFORMATION ABOUT THE UNITARY TRANS- +C FORMATIONS USED IN THE REDUCTION BY CORTH, IF PERFORMED. +C ONLY ELEMENTS LOW THROUGH IGH ARE USED. IF THE EIGENVECTORS +C OF THE HESSENBERG MATRIX ARE DESIRED, SET ORTR(J) AND +C ORTI(J) TO 0.0D0 FOR THESE ELEMENTS. +C +C HR AND HI CONTAIN THE REAL AND IMAGINARY PARTS, +C RESPECTIVELY, OF THE COMPLEX UPPER HESSENBERG MATRIX. +C THEIR LOWER TRIANGLES BELOW THE SUBDIAGONAL CONTAIN FURTHER +C INFORMATION ABOUT THE TRANSFORMATIONS WHICH WERE USED IN THE +C REDUCTION BY CORTH, IF PERFORMED. IF THE EIGENVECTORS OF +C THE HESSENBERG MATRIX ARE DESIRED, THESE ELEMENTS MAY BE +C ARBITRARY. +C +C ON OUTPUT +C +C ORTR, ORTI, AND THE UPPER HESSENBERG PORTIONS OF HR AND HI +C HAVE BEEN DESTROYED. +C +C WR AND WI CONTAIN THE REAL AND IMAGINARY PARTS, +C RESPECTIVELY, OF THE EIGENVALUES. IF AN ERROR +C EXIT IS MADE, THE EIGENVALUES SHOULD BE CORRECT +C FOR INDICES IERR+1,...,N. +C +C ZR AND ZI CONTAIN THE REAL AND IMAGINARY PARTS, +C RESPECTIVELY, OF THE EIGENVECTORS. THE EIGENVECTORS +C ARE UNNORMALIZED. IF AN ERROR EXIT IS MADE, NONE OF +C THE EIGENVECTORS HAS BEEN FOUND. +C +C IERR IS SET TO +C ZERO FOR NORMAL RETURN, +C J IF THE LIMIT OF 30*N ITERATIONS IS EXHAUSTED +C WHILE THE J-TH EIGENVALUE IS BEING SOUGHT. +C +C CALLS CDIV FOR COMPLEX DIVISION. +C CALLS CSROOT FOR COMPLEX SQUARE ROOT. +C CALLS PYTHAG FOR DSQRT(A*A + B*B) . +C +C QUESTIONS AND COMMENTS SHOULD BE DIRECTED TO BURTON S. GARBOW, +C MATHEMATICS AND COMPUTER SCIENCE DIV, ARGONNE NATIONAL LABORATORY +C +C THIS VERSION DATED OCTOBER 1989. +C +C ------------------------------------------------------------------ +C + IERR = 0 +C .......... INITIALIZE EIGENVECTOR MATRIX .......... + DO 101 J = 1, N +C + DO 100 I = 1, N + ZR(I,J) = 0.0D0 + ZI(I,J) = 0.0D0 + 100 CONTINUE + ZR(J,J) = 1.0D0 + 101 CONTINUE +C .......... FORM THE MATRIX OF ACCUMULATED TRANSFORMATIONS +C FROM THE INFORMATION LEFT BY CORTH .......... + IEND = IGH - LOW - 1 + IF (IEND) 180, 150, 105 +C .......... FOR I=IGH-1 STEP -1 UNTIL LOW+1 DO -- .......... + 105 DO 140 II = 1, IEND + I = IGH - II + IF (ORTR(I) .EQ. 0.0D0 .AND. ORTI(I) .EQ. 0.0D0) GO TO 140 + IF (HR(I,I-1) .EQ. 0.0D0 .AND. HI(I,I-1) .EQ. 0.0D0) GO TO 140 +C .......... NORM BELOW IS NEGATIVE OF H FORMED IN CORTH .......... + NORM = HR(I,I-1) * ORTR(I) + HI(I,I-1) * ORTI(I) + IP1 = I + 1 +C + DO 110 K = IP1, IGH + ORTR(K) = HR(K,I-1) + ORTI(K) = HI(K,I-1) + 110 CONTINUE +C + DO 130 J = I, IGH + SR = 0.0D0 + SI = 0.0D0 +C + DO 115 K = I, IGH + SR = SR + ORTR(K) * ZR(K,J) + ORTI(K) * ZI(K,J) + SI = SI + ORTR(K) * ZI(K,J) - ORTI(K) * ZR(K,J) + 115 CONTINUE +C + SR = SR / NORM + SI = SI / NORM +C + DO 120 K = I, IGH + ZR(K,J) = ZR(K,J) + SR * ORTR(K) - SI * ORTI(K) + ZI(K,J) = ZI(K,J) + SR * ORTI(K) + SI * ORTR(K) + 120 CONTINUE +C + 130 CONTINUE +C + 140 CONTINUE +C .......... CREATE REAL SUBDIAGONAL ELEMENTS .......... + 150 L = LOW + 1 +C + DO 170 I = L, IGH + LL = MIN0(I+1,IGH) + IF (HI(I,I-1) .EQ. 0.0D0) GO TO 170 + NORM = PYTHAG(HR(I,I-1),HI(I,I-1)) + YR = HR(I,I-1) / NORM + YI = HI(I,I-1) / NORM + HR(I,I-1) = NORM + HI(I,I-1) = 0.0D0 +C + DO 155 J = I, N + SI = YR * HI(I,J) - YI * HR(I,J) + HR(I,J) = YR * HR(I,J) + YI * HI(I,J) + HI(I,J) = SI + 155 CONTINUE +C + DO 160 J = 1, LL + SI = YR * HI(J,I) + YI * HR(J,I) + HR(J,I) = YR * HR(J,I) - YI * HI(J,I) + HI(J,I) = SI + 160 CONTINUE +C + DO 165 J = LOW, IGH + SI = YR * ZI(J,I) + YI * ZR(J,I) + ZR(J,I) = YR * ZR(J,I) - YI * ZI(J,I) + ZI(J,I) = SI + 165 CONTINUE +C + 170 CONTINUE +C .......... STORE ROOTS ISOLATED BY CBAL .......... + 180 DO 200 I = 1, N + IF (I .GE. LOW .AND. I .LE. IGH) GO TO 200 + WR(I) = HR(I,I) + WI(I) = HI(I,I) + 200 CONTINUE +C + EN = IGH + TR = 0.0D0 + TI = 0.0D0 + ITN = 30*N +C .......... SEARCH FOR NEXT EIGENVALUE .......... + 220 IF (EN .LT. LOW) GO TO 680 + ITS = 0 + ENM1 = EN - 1 +C .......... LOOK FOR SINGLE SMALL SUB-DIAGONAL ELEMENT +C FOR L=EN STEP -1 UNTIL LOW DO -- .......... + 240 DO 260 LL = LOW, EN + L = EN + LOW - LL + IF (L .EQ. LOW) GO TO 300 + TST1 = DABS(HR(L-1,L-1)) + DABS(HI(L-1,L-1)) + X + DABS(HR(L,L)) + DABS(HI(L,L)) + TST2 = TST1 + DABS(HR(L,L-1)) + IF (TST2 .EQ. TST1) GO TO 300 + 260 CONTINUE +C .......... FORM SHIFT .......... + 300 IF (L .EQ. EN) GO TO 660 + IF (ITN .EQ. 0) GO TO 1000 + IF (ITS .EQ. 10 .OR. ITS .EQ. 20) GO TO 320 + SR = HR(EN,EN) + SI = HI(EN,EN) + XR = HR(ENM1,EN) * HR(EN,ENM1) + XI = HI(ENM1,EN) * HR(EN,ENM1) + IF (XR .EQ. 0.0D0 .AND. XI .EQ. 0.0D0) GO TO 340 + YR = (HR(ENM1,ENM1) - SR) / 2.0D0 + YI = (HI(ENM1,ENM1) - SI) / 2.0D0 + CALL CSROOT(YR**2-YI**2+XR,2.0D0*YR*YI+XI,ZZR,ZZI) + IF (YR * ZZR + YI * ZZI .GE. 0.0D0) GO TO 310 + ZZR = -ZZR + ZZI = -ZZI + 310 CALL CDIV(XR,XI,YR+ZZR,YI+ZZI,XR,XI) + SR = SR - XR + SI = SI - XI + GO TO 340 +C .......... FORM EXCEPTIONAL SHIFT .......... + 320 SR = DABS(HR(EN,ENM1)) + DABS(HR(ENM1,EN-2)) + SI = 0.0D0 +C + 340 DO 360 I = LOW, EN + HR(I,I) = HR(I,I) - SR + HI(I,I) = HI(I,I) - SI + 360 CONTINUE +C + TR = TR + SR + TI = TI + SI + ITS = ITS + 1 + ITN = ITN - 1 +C .......... REDUCE TO TRIANGLE (ROWS) .......... + LP1 = L + 1 +C + DO 500 I = LP1, EN + SR = HR(I,I-1) + HR(I,I-1) = 0.0D0 + NORM = PYTHAG(PYTHAG(HR(I-1,I-1),HI(I-1,I-1)),SR) + XR = HR(I-1,I-1) / NORM + WR(I-1) = XR + XI = HI(I-1,I-1) / NORM + WI(I-1) = XI + HR(I-1,I-1) = NORM + HI(I-1,I-1) = 0.0D0 + HI(I,I-1) = SR / NORM +C + DO 490 J = I, N + YR = HR(I-1,J) + YI = HI(I-1,J) + ZZR = HR(I,J) + ZZI = HI(I,J) + HR(I-1,J) = XR * YR + XI * YI + HI(I,I-1) * ZZR + HI(I-1,J) = XR * YI - XI * YR + HI(I,I-1) * ZZI + HR(I,J) = XR * ZZR - XI * ZZI - HI(I,I-1) * YR + HI(I,J) = XR * ZZI + XI * ZZR - HI(I,I-1) * YI + 490 CONTINUE +C + 500 CONTINUE +C + SI = HI(EN,EN) + IF (SI .EQ. 0.0D0) GO TO 540 + NORM = PYTHAG(HR(EN,EN),SI) + SR = HR(EN,EN) / NORM + SI = SI / NORM + HR(EN,EN) = NORM + HI(EN,EN) = 0.0D0 + IF (EN .EQ. N) GO TO 540 + IP1 = EN + 1 +C + DO 520 J = IP1, N + YR = HR(EN,J) + YI = HI(EN,J) + HR(EN,J) = SR * YR + SI * YI + HI(EN,J) = SR * YI - SI * YR + 520 CONTINUE +C .......... INVERSE OPERATION (COLUMNS) .......... + 540 DO 600 J = LP1, EN + XR = WR(J-1) + XI = WI(J-1) +C + DO 580 I = 1, J + YR = HR(I,J-1) + YI = 0.0D0 + ZZR = HR(I,J) + ZZI = HI(I,J) + IF (I .EQ. J) GO TO 560 + YI = HI(I,J-1) + HI(I,J-1) = XR * YI + XI * YR + HI(J,J-1) * ZZI + 560 HR(I,J-1) = XR * YR - XI * YI + HI(J,J-1) * ZZR + HR(I,J) = XR * ZZR + XI * ZZI - HI(J,J-1) * YR + HI(I,J) = XR * ZZI - XI * ZZR - HI(J,J-1) * YI + 580 CONTINUE +C + DO 590 I = LOW, IGH + YR = ZR(I,J-1) + YI = ZI(I,J-1) + ZZR = ZR(I,J) + ZZI = ZI(I,J) + ZR(I,J-1) = XR * YR - XI * YI + HI(J,J-1) * ZZR + ZI(I,J-1) = XR * YI + XI * YR + HI(J,J-1) * ZZI + ZR(I,J) = XR * ZZR + XI * ZZI - HI(J,J-1) * YR + ZI(I,J) = XR * ZZI - XI * ZZR - HI(J,J-1) * YI + 590 CONTINUE +C + 600 CONTINUE +C + IF (SI .EQ. 0.0D0) GO TO 240 +C + DO 630 I = 1, EN + YR = HR(I,EN) + YI = HI(I,EN) + HR(I,EN) = SR * YR - SI * YI + HI(I,EN) = SR * YI + SI * YR + 630 CONTINUE +C + DO 640 I = LOW, IGH + YR = ZR(I,EN) + YI = ZI(I,EN) + ZR(I,EN) = SR * YR - SI * YI + ZI(I,EN) = SR * YI + SI * YR + 640 CONTINUE +C + GO TO 240 +C .......... A ROOT FOUND .......... + 660 HR(EN,EN) = HR(EN,EN) + TR + WR(EN) = HR(EN,EN) + HI(EN,EN) = HI(EN,EN) + TI + WI(EN) = HI(EN,EN) + EN = ENM1 + GO TO 220 +C .......... ALL ROOTS FOUND. BACKSUBSTITUTE TO FIND +C VECTORS OF UPPER TRIANGULAR FORM .......... + 680 NORM = 0.0D0 +C + DO 720 I = 1, N +C + DO 720 J = I, N + TR = DABS(HR(I,J)) + DABS(HI(I,J)) + IF (TR .GT. NORM) NORM = TR + 720 CONTINUE +C + IF (N .EQ. 1 .OR. NORM .EQ. 0.0D0) GO TO 1001 +C .......... FOR EN=N STEP -1 UNTIL 2 DO -- .......... + DO 800 NN = 2, N + EN = N + 2 - NN + XR = WR(EN) + XI = WI(EN) + HR(EN,EN) = 1.0D0 + HI(EN,EN) = 0.0D0 + ENM1 = EN - 1 +C .......... FOR I=EN-1 STEP -1 UNTIL 1 DO -- .......... + DO 780 II = 1, ENM1 + I = EN - II + ZZR = 0.0D0 + ZZI = 0.0D0 + IP1 = I + 1 +C + DO 740 J = IP1, EN + ZZR = ZZR + HR(I,J) * HR(J,EN) - HI(I,J) * HI(J,EN) + ZZI = ZZI + HR(I,J) * HI(J,EN) + HI(I,J) * HR(J,EN) + 740 CONTINUE +C + YR = XR - WR(I) + YI = XI - WI(I) + IF (YR .NE. 0.0D0 .OR. YI .NE. 0.0D0) GO TO 765 + TST1 = NORM + YR = TST1 + 760 YR = 0.01D0 * YR + TST2 = NORM + YR + IF (TST2 .GT. TST1) GO TO 760 + 765 CONTINUE + CALL CDIV(ZZR,ZZI,YR,YI,HR(I,EN),HI(I,EN)) +C .......... OVERFLOW CONTROL .......... + TR = DABS(HR(I,EN)) + DABS(HI(I,EN)) + IF (TR .EQ. 0.0D0) GO TO 780 + TST1 = TR + TST2 = TST1 + 1.0D0/TST1 + IF (TST2 .GT. TST1) GO TO 780 + DO 770 J = I, EN + HR(J,EN) = HR(J,EN)/TR + HI(J,EN) = HI(J,EN)/TR + 770 CONTINUE +C + 780 CONTINUE +C + 800 CONTINUE +C .......... END BACKSUBSTITUTION .......... +C .......... VECTORS OF ISOLATED ROOTS .......... + DO 840 I = 1, N + IF (I .GE. LOW .AND. I .LE. IGH) GO TO 840 +C + DO 820 J = I, N + ZR(I,J) = HR(I,J) + ZI(I,J) = HI(I,J) + 820 CONTINUE +C + 840 CONTINUE +C .......... MULTIPLY BY TRANSFORMATION MATRIX TO GIVE +C VECTORS OF ORIGINAL FULL MATRIX. +C FOR J=N STEP -1 UNTIL LOW DO -- .......... + DO 880 JJ = LOW, N + J = N + LOW - JJ + M = MIN0(J,IGH) +C + DO 880 I = LOW, IGH + ZZR = 0.0D0 + ZZI = 0.0D0 +C + DO 860 K = LOW, M + ZZR = ZZR + ZR(I,K) * HR(K,J) - ZI(I,K) * HI(K,J) + ZZI = ZZI + ZR(I,K) * HI(K,J) + ZI(I,K) * HR(K,J) + 860 CONTINUE +C + ZR(I,J) = ZZR + ZI(I,J) = ZZI + 880 CONTINUE +C + GO TO 1001 +C .......... SET ERROR -- ALL EIGENVALUES HAVE NOT +C CONVERGED AFTER 30*N ITERATIONS .......... + 1000 IERR = EN + 1001 RETURN + END + SUBROUTINE CORTH(NM,N,LOW,IGH,AR,AI,ORTR,ORTI) +C + INTEGER I,J,M,N,II,JJ,LA,MP,NM,IGH,KP1,LOW + DOUBLE PRECISION AR(NM,N),AI(NM,N),ORTR(IGH),ORTI(IGH) + DOUBLE PRECISION F,G,H,FI,FR,SCALE,PYTHAG +C +C THIS SUBROUTINE IS A TRANSLATION OF A COMPLEX ANALOGUE OF +C THE ALGOL PROCEDURE ORTHES, NUM. MATH. 12, 349-368(1968) +C BY MARTIN AND WILKINSON. +C HANDBOOK FOR AUTO. COMP., VOL.II-LINEAR ALGEBRA, 339-358(1971). +C +C GIVEN A COMPLEX GENERAL MATRIX, THIS SUBROUTINE +C REDUCES A SUBMATRIX SITUATED IN ROWS AND COLUMNS +C LOW THROUGH IGH TO UPPER HESSENBERG FORM BY +C UNITARY SIMILARITY TRANSFORMATIONS. +C +C ON INPUT +C +C NM MUST BE SET TO THE ROW DIMENSION OF TWO-DIMENSIONAL +C ARRAY PARAMETERS AS DECLARED IN THE CALLING PROGRAM +C DIMENSION STATEMENT. +C +C N IS THE ORDER OF THE MATRIX. +C +C LOW AND IGH ARE INTEGERS DETERMINED BY THE BALANCING +C SUBROUTINE CBAL. IF CBAL HAS NOT BEEN USED, +C SET LOW=1, IGH=N. +C +C AR AND AI CONTAIN THE REAL AND IMAGINARY PARTS, +C RESPECTIVELY, OF THE COMPLEX INPUT MATRIX. +C +C ON OUTPUT +C +C AR AND AI CONTAIN THE REAL AND IMAGINARY PARTS, +C RESPECTIVELY, OF THE HESSENBERG MATRIX. INFORMATION +C ABOUT THE UNITARY TRANSFORMATIONS USED IN THE REDUCTION +C IS STORED IN THE REMAINING TRIANGLES UNDER THE +C HESSENBERG MATRIX. +C +C ORTR AND ORTI CONTAIN FURTHER INFORMATION ABOUT THE +C TRANSFORMATIONS. ONLY ELEMENTS LOW THROUGH IGH ARE USED. +C +C CALLS PYTHAG FOR DSQRT(A*A + B*B) . +C +C QUESTIONS AND COMMENTS SHOULD BE DIRECTED TO BURTON S. GARBOW, +C MATHEMATICS AND COMPUTER SCIENCE DIV, ARGONNE NATIONAL LABORATORY +C +C THIS VERSION DATED AUGUST 1983. +C +C ------------------------------------------------------------------ +C + LA = IGH - 1 + KP1 = LOW + 1 + IF (LA .LT. KP1) GO TO 200 +C + DO 180 M = KP1, LA + H = 0.0D0 + ORTR(M) = 0.0D0 + ORTI(M) = 0.0D0 + SCALE = 0.0D0 +C .......... SCALE COLUMN (ALGOL TOL THEN NOT NEEDED) .......... + DO 90 I = M, IGH + 90 SCALE = SCALE + DABS(AR(I,M-1)) + DABS(AI(I,M-1)) +C + IF (SCALE .EQ. 0.0D0) GO TO 180 + MP = M + IGH +C .......... FOR I=IGH STEP -1 UNTIL M DO -- .......... + DO 100 II = M, IGH + I = MP - II + ORTR(I) = AR(I,M-1) / SCALE + ORTI(I) = AI(I,M-1) / SCALE + H = H + ORTR(I) * ORTR(I) + ORTI(I) * ORTI(I) + 100 CONTINUE +C + G = DSQRT(H) + F = PYTHAG(ORTR(M),ORTI(M)) + IF (F .EQ. 0.0D0) GO TO 103 + H = H + F * G + G = G / F + ORTR(M) = (1.0D0 + G) * ORTR(M) + ORTI(M) = (1.0D0 + G) * ORTI(M) + GO TO 105 +C + 103 ORTR(M) = G + AR(M,M-1) = SCALE +C .......... FORM (I-(U*UT)/H) * A .......... + 105 DO 130 J = M, N + FR = 0.0D0 + FI = 0.0D0 +C .......... FOR I=IGH STEP -1 UNTIL M DO -- .......... + DO 110 II = M, IGH + I = MP - II + FR = FR + ORTR(I) * AR(I,J) + ORTI(I) * AI(I,J) + FI = FI + ORTR(I) * AI(I,J) - ORTI(I) * AR(I,J) + 110 CONTINUE +C + FR = FR / H + FI = FI / H +C + DO 120 I = M, IGH + AR(I,J) = AR(I,J) - FR * ORTR(I) + FI * ORTI(I) + AI(I,J) = AI(I,J) - FR * ORTI(I) - FI * ORTR(I) + 120 CONTINUE +C + 130 CONTINUE +C .......... FORM (I-(U*UT)/H)*A*(I-(U*UT)/H) .......... + DO 160 I = 1, IGH + FR = 0.0D0 + FI = 0.0D0 +C .......... FOR J=IGH STEP -1 UNTIL M DO -- .......... + DO 140 JJ = M, IGH + J = MP - JJ + FR = FR + ORTR(J) * AR(I,J) - ORTI(J) * AI(I,J) + FI = FI + ORTR(J) * AI(I,J) + ORTI(J) * AR(I,J) + 140 CONTINUE +C + FR = FR / H + FI = FI / H +C + DO 150 J = M, IGH + AR(I,J) = AR(I,J) - FR * ORTR(J) - FI * ORTI(J) + AI(I,J) = AI(I,J) + FR * ORTI(J) - FI * ORTR(J) + 150 CONTINUE +C + 160 CONTINUE +C + ORTR(M) = SCALE * ORTR(M) + ORTI(M) = SCALE * ORTI(M) + AR(M,M-1) = -G * AR(M,M-1) + AI(M,M-1) = -G * AI(M,M-1) + 180 CONTINUE +C + 200 RETURN + END + SUBROUTINE CSROOT(XR,XI,YR,YI) + DOUBLE PRECISION XR,XI,YR,YI +C +C (YR,YI) = COMPLEX DSQRT(XR,XI) +C BRANCH CHOSEN SO THAT YR .GE. 0.0 AND SIGN(YI) .EQ. SIGN(XI) +C + DOUBLE PRECISION S,TR,TI,PYTHAG + TR = XR + TI = XI + S = DSQRT(0.5D0*(PYTHAG(TR,TI) + DABS(TR))) + IF (TR .GE. 0.0D0) YR = S + IF (TI .LT. 0.0D0) S = -S + IF (TR .LE. 0.0D0) YI = S + IF (TR .LT. 0.0D0) YR = 0.5D0*(TI/YI) + IF (TR .GT. 0.0D0) YI = 0.5D0*(TI/YR) + RETURN + END + DOUBLE PRECISION FUNCTION PYTHAG(A,B) + DOUBLE PRECISION A,B +C +C FINDS DSQRT(A**2+B**2) WITHOUT OVERFLOW OR DESTRUCTIVE UNDERFLOW +C + DOUBLE PRECISION P,R,S,T,U + P = DMAX1(DABS(A),DABS(B)) + IF (P .EQ. 0.0D0) GO TO 20 + R = (DMIN1(DABS(A),DABS(B))/P)**2 + 10 CONTINUE + T = 4.0D0 + R + IF (T .EQ. 4.0D0) GO TO 20 + S = R/T + U = 1.0D0 + 2.0D0*S + P = U*P + R = (S/U)**2 * R + GO TO 10 + 20 PYTHAG = P + RETURN + END + +C********************************************************************* + +C...PYTBBN +C...Calculates the three-body decay of gluinos into +C...neutralinos and third generation fermions. + + SUBROUTINE PYTBBN(I,NN,E,XMGLU,GAM) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2), + &SFMIX(16,4) + SAVE /PYDAT1/,/PYDAT2/,/PYMSSM/,/PYSSMT/ + +C...Local variables. + EXTERNAL PYSIMP,PYLAMF + DOUBLE PRECISION PYSIMP,PYLAMF + INTEGER LIN,NN + DOUBLE PRECISION COSD,SIND,COSD2,SIND2,COS2D,SIN2D + DOUBLE PRECISION HL,HR,FL,FR,HL2,HR2,FL2,FR2 + DOUBLE PRECISION XMS2(2),XM,XM2,XMG,XMG2,XMR,XMR2 + DOUBLE PRECISION SBAR,SMIN,SMAX,XMQA,W,GRS,G(0:6),SUMME(0:100) + DOUBLE PRECISION FF,HH,HFL,HFR,HRFL,HLFR,XMQ4,XM24 + DOUBLE PRECISION XLN1,XLN2,B1,B2 + DOUBLE PRECISION E,XMGLU,GAM + DOUBLE PRECISION HRB(4),HLB(4),FLB(4),FRB(4) + SAVE HRB,HLB,FLB,FRB + DOUBLE PRECISION ALPHAW,ALPHAS,GSU2 + DOUBLE PRECISION HLT(4),HRT(4),FLT(4),FRT(4) + SAVE HLT,HRT,FLT,FRT + DOUBLE PRECISION AMC(2),AMN(4),AN(4,4),ZN(3),FLU(4),FRU(4), + &FLD(4),FRD(4) + SAVE AMC,AMN,AN,ZN,FLU,FRU,FLD,FRD + DOUBLE PRECISION AMBOT,AMSB(2),SINC,COSC + DOUBLE PRECISION AMTOP,AMST(2),SINA,COSA + SAVE AMSB,AMST + DOUBLE PRECISION SINW,COSW,TANW,COSW2,SINW2 + DOUBLE PRECISION ROT1(4,4) + LOGICAL IFIRST + SAVE IFIRST + DATA IFIRST/.TRUE./ + + TANB=RMSS(5) + SINB=TANB/SQRT(1D0+TANB**2) + COSB=SINB/TANB + XW=PARU(102) + SINW=SQRT(XW) + COSW=SQRT(1D0-XW) + TANW=SINW/COSW + AMW=PMAS(24,1) + COSC=SFMIX(5,1) + SINC=SFMIX(5,3) + COSA=SFMIX(6,1) + SINA=SFMIX(6,3) + AMBOT=0D0 + AMTOP=PYRNMT(PMAS(6,1)) + W2=SQRT(2D0) + FAKT1=AMBOT/W2/AMW/COSB + FAKT2=AMTOP/W2/AMW/SINB + IF(IFIRST) THEN + DO 110 II=1,4 + AMN(II)=SMZ(II) + DO 100 J=1,4 + ROT1(II,J)=0D0 + AN(II,J)=0D0 + 100 CONTINUE + 110 CONTINUE + ROT1(1,1)=COSW + ROT1(1,2)=-SINW + ROT1(2,1)=-ROT1(1,2) + ROT1(2,2)=ROT1(1,1) + ROT1(3,3)=COSB + ROT1(3,4)=SINB + ROT1(4,3)=-ROT1(3,4) + ROT1(4,4)=ROT1(3,3) + DO 140 II=1,4 + DO 130 J=1,4 + DO 120 JJ=1,4 + AN(II,J)=AN(II,J)+ZMIX(II,JJ)*ROT1(JJ,J) + 120 CONTINUE + 130 CONTINUE + 140 CONTINUE + DO 150 J=1,4 + ZN(1)=-FAKT2*(-SINB*AN(J,3)+COSB*AN(J,4)) + ZN(2)=-2D0*W2/3D0*SINW*(TANW*AN(J,2)-AN(J,1)) + ZN(3)=-2*W2/3D0*SINW*AN(J,1)-W2*(0.5D0-2D0/3D0* + & XW)*AN(J,2)/COSW + HRT(J)=ZN(1)*COSA-ZN(3)*SINA + HLT(J)=ZN(1)*COSA+ZN(2)*SINA + FLT(J)=ZN(3)*COSA+ZN(1)*SINA + FRT(J)=ZN(2)*COSA-ZN(1)*SINA + FLU(J)=ZN(3) + FRU(J)=ZN(2) + ZN(1)=-FAKT1*(COSB*AN(J,3)+SINB*AN(J,4)) + ZN(2)=W2/3D0*SINW*(TANW*AN(J,2)-AN(J,1)) + ZN(3)=W2/3D0*SINW*AN(J,1)+W2*(0.5D0-XW/3D0)*AN(J,2)/COSW + HRB(J)=ZN(1)*COSC-ZN(3)*SINC + HLB(J)=ZN(1)*COSC+ZN(2)*SINC + FLB(J)=ZN(3)*COSC+ZN(1)*SINC + FRB(J)=ZN(2)*COSC-ZN(1)*SINC + FLD(J)=ZN(3) + FRD(J)=ZN(2) + 150 CONTINUE + AMST(1)=PMAS(PYCOMP(KSUSY1+6),1) + AMST(2)=PMAS(PYCOMP(KSUSY2+6),1) + AMSB(1)=PMAS(PYCOMP(KSUSY1+5),1) + AMSB(2)=PMAS(PYCOMP(KSUSY2+5),1) + IFIRST=.FALSE. + ENDIF + + IF(NINT(3D0*E).EQ.2) THEN + HL=HLT(I) + HR=HRT(I) + FL=FLT(I) + FR=FRT(I) + COSD=SFMIX(6,1) + SIND=SFMIX(6,3) + XMS2(1)=PMAS(PYCOMP(KSUSY1+6),1)**2 + XMS2(2)=PMAS(PYCOMP(KSUSY2+6),1)**2 + XM=PMAS(6,1) + ELSE + HL=HLB(I) + HR=HRB(I) + FL=FLB(I) + FR=FRB(I) + COSD=SFMIX(5,1) + SIND=SFMIX(5,3) + XMS2(1)=PMAS(PYCOMP(KSUSY1+5),1)**2 + XMS2(2)=PMAS(PYCOMP(KSUSY2+5),1)**2 + XM=PMAS(5,1) + ENDIF + COSD2=COSD*COSD + SIND2=SIND*SIND + COS2D=COSD2-SIND2 + SIN2D=SIND*COSD*2D0 + HL2=HL*HL + HR2=HR*HR + FL2=FL*FL + FR2=FR*FR + FF=FL*FR + HH=HL*HR + HFL=HL*FL + HFR=HR*FR + HRFL=HR*FL + HLFR=HL*FR + XM2=XM*XM + XMG=XMGLU + XMG2=XMG*XMG + ALPHAW=PYALEM(XMG2) + ALPHAS=PYALPS(XMG2) + XMR=AMN(I) + XMR2=XMR*XMR + XMQ4=XMG*XM2*XMR + XM24=(XMG2+XM2)*(XM2+XMR2) + SMIN=4D0*XM2 + SMAX=(XMG-ABS(XMR))**2 + XMQA=XMG2+2D0*XM2+XMR2 + DO 170 LIN=1,NN-1 + SBAR=SMIN+DBLE(LIN)*(SMAX-SMIN)/DBLE(NN) + GRS=SBAR-XMQA + W=PYLAMF(XMG2,XMR2,SBAR)*(0.25D0-XM2/SBAR) + W=DSQRT(W) + XLN1=LOG(ABS((GRS/2D0+XMS2(1)-W)/(GRS/2D0+XMS2(1)+W))) + XLN2=LOG(ABS((GRS/2D0+XMS2(2)-W)/(GRS/2D0+XMS2(2)+W))) + B1=1D0/(GRS/2D0+XMS2(1)-W)-1D0/(GRS/2D0+XMS2(1)+W) + B2=1D0/(GRS/2D0+XMS2(2)-W)-1D0/(GRS/2D0+XMS2(2)+W) + G(0)=-2D0*(HL2+FL2+HR2+FR2+(HFR-HFL)*SIN2D + & +2D0*(FF*SIND2-HH*COSD2))*W + G(1)=((HL2+FL2)*(XMQA-2D0*XMS2(1)-2D0*XM*XMG*SIN2D) + & +4D0*HFL*XM*XMR)*XLN1 + & +((HL2+FL2)*((XMQA-XMS2(1))*XMS2(1)-XM24 + & +2D0*XM*XMG*(XM2+XMR2-XMS2(1))*SIN2D) + & -4D0*HFL*XMR*XM*(XMG2+XM2-XMS2(1)) + & +8D0*HFL*XMQ4*SIN2D)*B1 + G(2)=((HR2+FR2)*(XMQA-2D0*XMS2(2)+2D0*XM*XMG*SIN2D) + & +4D0*HFR*XMR*XM)*XLN2 + & +((HR2+FR2)*((XMQA-XMS2(2))*XMS2(2)-XM24 + & +2D0*XMG*XM*SIN2D*(XMS2(2)-XM2-XMR2)) + & +4D0*HFR*XM*XMR*(XMS2(2)-XMG2-XM2) + & -8D0*HFR*XMQ4*SIN2D)*B2 + G(3)=(2D0*HFL*SIN2D*(XMS2(1)*(GRS+XMS2(1))+XM2*(SBAR-XMG2-XMR2) + & +XMG2*XMR2+XM2*XM2)-2D0*XMR*XMG*(HL2*SIND2+FL2*COSD2)*SBAR + & -2D0*XMG*XM*HFL*(SBAR+XMR2-XMG2) + & +XMR*XM*(HL2+FL2)*SIN2D*(SBAR+XMG2-XMR2) + & -4D0*XMQ4*(HL2-FL2)*COS2D)/(GRS+2D0*XMS2(1))*XLN1 + G(4)=4D0*COS2D*XM*XMG/(XMS2(1)-XMS2(2))* + & (((HLFR+HRFL)*(XM2+XMR2)+2D0*XM*XMR*(HH+FF))*(XLN1-XLN2) + & +(HLFR+HRFL)*(XMS2(2)*XLN2-XMS2(1)*XLN1)) + G(5)=(2D0*(HH*COSD2-FF*SIND2) + & *((XMS2(2)*(XMS2(2)+GRS)+XM2*XM2+XMG2*XMR2)*XLN2 + & +(XMS2(1)*(XMS2(1)+GRS)+XM2*XM2+XMG2*XMR2)*XLN1) + & +XM*((HH-FF)*SIN2D*XMG-(HRFL-HLFR)*XMR) + & *((GRS+XMS2(1)*2D0)*XLN1-(GRS+XMS2(2)*2D0)*XLN2) + & +((HRFL-HLFR)*XMR*(SIN2D*XMG*(SBAR-4D0*XM2) + & +COS2D*XM*(SBAR+XMG2-XMR2)) + & +2D0*(FF*COSD2-HH*SIND2)*XM2*(SBAR-XMG2-XMR2)) + & *(XLN1+XLN2))/(GRS+XMS2(1)+XMS2(2)) + G(6)=(-2D0*HFR*SIN2D*(XMS2(2)*(GRS+XMS2(2))+XM2*(SBAR-XMG2-XMR2) + & +XMG2*XMR2+XM2*XM2)-2D0*XMR*XMG*(HR2*SIND2+FR2*COSD2)*SBAR + & -2D0*XMG*XM*HFR*(SBAR+XMR2-XMG2) + & -XMR*XM*(HR2+FR2)*SIN2D*(SBAR+XMG2-XMR2) + & -4D0*XMQ4*(HR2-FR2)*COS2D)/(GRS+2D0*XMS2(2))*XLN2 + SUMME(LIN)=0D0 + DO 160 J=0,6 + SUMME(LIN)=SUMME(LIN)+G(J) + 160 CONTINUE + 170 CONTINUE + SUMME(0)=0D0 + SUMME(NN)=0D0 + GAM = ALPHAW * ALPHAS * PYSIMP(SUMME,SMIN,SMAX,NN) + &/ (16D0 * PARU(1) * PARU(102) * XMGLU**3) + + RETURN + END + +C********************************************************************* + +C...PYTBBC +C...Calculates the three-body decay of gluinos into +C...charginos and third generation fermions. + + SUBROUTINE PYTBBC(I,NN,XMGLU,GAM) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2), + &SFMIX(16,4) + SAVE /PYDAT1/,/PYDAT2/,/PYMSSM/,/PYSSMT/ + +C...Local variables. + EXTERNAL PYSIMP,PYLAMF + DOUBLE PRECISION PYSIMP,PYLAMF + INTEGER I,NN,LIN + DOUBLE PRECISION XMG,XMG2,XMB,XMB2,XMR,XMR2 + DOUBLE PRECISION XMT,XMT2,XMST(4),XMSB(4) + DOUBLE PRECISION ULR(2),VLR(2),XMQ2,XMQ4,AM,W,SBAR,SMIN,SMAX + DOUBLE PRECISION SUMME(0:100),A(4,8) + DOUBLE PRECISION COS2A,SIN2A,COS2C,SIN2C + DOUBLE PRECISION GRS,XMQ3,XMGBTR,XMGTBR,ANT1,ANT2,ANB1,ANB2 + DOUBLE PRECISION XMGLU,GAM + DOUBLE PRECISION XX1(2),XX2(2),AAA(2),BBB(2),CCC(2), + &DDD(2),EEE(2),FFF(2) + SAVE XX1,XX2,AAA,BBB,CCC,DDD,EEE,FFF + DOUBLE PRECISION ALPHAW,ALPHAS,GSU2 + DOUBLE PRECISION AMC(2),AMN(4) + SAVE AMC,AMN + DOUBLE PRECISION AMBOT,AMSB(2),SINC,COSC + DOUBLE PRECISION AMTOP,AMST(2),SINA,COSA + SAVE AMSB,AMST + DOUBLE PRECISION SINW,COSW,TANW,COSW2,SINW2 + LOGICAL IFIRST + SAVE IFIRST + DATA IFIRST/.TRUE./ + + TANB=RMSS(5) + SINB=TANB/SQRT(1D0+TANB**2) + COSB=SINB/TANB + XW=PARU(102) + SINW=SQRT(XW) + COSW=SQRT(1D0-XW) + AMW=PMAS(24,1) + COSC=SFMIX(5,1) + SINC=SFMIX(5,3) + COSA=SFMIX(6,1) + SINA=SFMIX(6,3) + AMBOT=0D0 + AMTOP=PYRNMT(PMAS(6,1)) + W2=SQRT(2D0) + AMW=PMAS(24,1) + FAKT1=AMBOT/W2/AMW/COSB + FAKT2=AMTOP/W2/AMW/SINB + IF(IFIRST) THEN + AMC(1)=SMW(1) + AMC(2)=SMW(2) + DO 100 JJ=1,2 + CCC(JJ)=FAKT1*UMIX(JJ,2)*SINC-UMIX(JJ,1)*COSC + EEE(JJ)=FAKT2*VMIX(JJ,2)*COSC + DDD(JJ)=FAKT1*UMIX(JJ,2)*COSC+UMIX(JJ,1)*SINC + FFF(JJ)=FAKT2*VMIX(JJ,2)*SINC + XX1(JJ)=FAKT2*VMIX(JJ,2)*SINA-VMIX(JJ,1)*COSA + AAA(JJ)=FAKT1*UMIX(JJ,2)*COSA + XX2(JJ)=FAKT2*VMIX(JJ,2)*COSA+VMIX(JJ,1)*SINA + BBB(JJ)=FAKT1*UMIX(JJ,2)*SINA + 100 CONTINUE + AMST(1)=PMAS(PYCOMP(KSUSY1+6),1) + AMST(2)=PMAS(PYCOMP(KSUSY2+6),1) + AMSB(1)=PMAS(PYCOMP(KSUSY1+5),1) + AMSB(2)=PMAS(PYCOMP(KSUSY2+5),1) + IFIRST=.FALSE. + ENDIF + AMTOP=PMAS(6,1) + + ULR(1)=XX1(I)*XX1(I)+AAA(I)*AAA(I) + ULR(2)=XX2(I)*XX2(I)+BBB(I)*BBB(I) + VLR(1)=CCC(I)*CCC(I)+EEE(I)*EEE(I) + VLR(2)=DDD(I)*DDD(I)+FFF(I)*FFF(I) + + COS2A=COSA**2-SINA**2 + SIN2A=SINA*COSA*2D0 + COS2C=COSC**2-SINC**2 + SIN2C=SINC*COSC*2D0 + + XMG=XMGLU + XMT=AMTOP + XMB=0D0 + XMR=AMC(I) + XMG2=XMG*XMG + ALPHAW=PYALEM(XMG2) + ALPHAS=PYALPS(XMG2) + XMT2=XMT*XMT + XMB2=XMB*XMB + XMR2=XMR*XMR + XMQ2=XMG2+XMT2+XMB2+XMR2 + XMQ4=XMG*XMT*XMB*XMR + XMQ3=XMG2*XMR2+XMT2*XMB2 + XMGBTR=(XMG2+XMB2)*(XMT2+XMR2) + XMGTBR=(XMG2+XMT2)*(XMB2+XMR2) + + XMST(1)=AMST(1)*AMST(1) + XMST(2)=AMST(1)*AMST(1) + XMST(3)=AMST(2)*AMST(2) + XMST(4)=AMST(2)*AMST(2) + XMSB(1)=AMSB(1)*AMSB(1) + XMSB(2)=AMSB(2)*AMSB(2) + XMSB(3)=AMSB(1)*AMSB(1) + XMSB(4)=AMSB(2)*AMSB(2) + + A(1,1)=-COSA*SINC*CCC(I)*AAA(I)-SINA*COSC*EEE(I)*XX1(I) + A(1,2)=XMG*XMB*(COSA*COSC*CCC(I)*AAA(I)+SINA*SINC*EEE(I)*XX1(I)) + A(1,3)=-XMG*XMR*(COSA*COSC*CCC(I)*XX1(I)+SINA*SINC*EEE(I)*AAA(I)) + A(1,4)=XMB*XMR*(COSA*SINC*CCC(I)*XX1(I)+SINA*COSC*EEE(I)*AAA(I)) + A(1,5)=XMG*XMT*(COSA*COSC*EEE(I)*XX1(I)+SINA*SINC*CCC(I)*AAA(I)) + A(1,6)=-XMT*XMB*(COSA*SINC*EEE(I)*XX1(I)+SINA*COSC*CCC(I)*AAA(I)) + A(1,7)=XMT*XMR*(COSA*SINC*EEE(I)*AAA(I)+SINA*COSC*CCC(I)*XX1(I)) + A(1,8)=-XMQ4*(COSA*COSC*EEE(I)*AAA(I)+SINA*SINC*CCC(I)*XX1(I)) + + A(2,1)=-COSA*COSC*DDD(I)*AAA(I)-SINA*SINC*FFF(I)*XX1(I) + A(2,2)=-XMG*XMB*(COSA*SINC*DDD(I)*AAA(I)+SINA*COSC*FFF(I)*XX1(I)) + A(2,3)=XMG*XMR*(COSA*SINC*DDD(I)*XX1(I)+SINA*COSC*FFF(I)*AAA(I)) + A(2,4)=XMB*XMR*(COSA*COSC*DDD(I)*XX1(I)+SINA*SINC*FFF(I)*AAA(I)) + A(2,5)=XMG*XMT*(COSA*SINC*FFF(I)*XX1(I)+SINA*COSC*DDD(I)*AAA(I)) + A(2,6)=XMT*XMB*(COSA*COSC*FFF(I)*XX1(I)+SINA*SINC*DDD(I)*AAA(I)) + A(2,7)=-XMT*XMR*(COSA*COSC*FFF(I)*AAA(I)+SINA*SINC*DDD(I)*XX1(I)) + A(2,8)=-XMQ4*(COSA*SINC*FFF(I)*AAA(I)+SINA*COSC*DDD(I)*XX1(I)) + + A(3,1)=-COSA*COSC*EEE(I)*XX2(I)-SINA*SINC*CCC(I)*BBB(I) + A(3,2)=XMG*XMB*(COSA*SINC*EEE(I)*XX2(I)+SINA*COSC*CCC(I)*BBB(I)) + A(3,3)=XMG*XMR*(COSA*SINC*EEE(I)*BBB(I)+SINA*COSC*CCC(I)*XX2(I)) + A(3,4)=-XMB*XMR*(COSA*COSC*EEE(I)*BBB(I)+SINA*SINC*CCC(I)*XX2(I)) + A(3,5)=-XMG*XMT*(COSA*SINC*CCC(I)*BBB(I)+SINA*COSC*EEE(I)*XX2(I)) + A(3,6)=XMT*XMB*(COSA*COSC*CCC(I)*BBB(I)+SINA*SINC*EEE(I)*XX2(I)) + A(3,7)=XMT*XMR*(COSA*COSC*CCC(I)*XX2(I)+SINA*SINC*EEE(I)*BBB(I)) + A(3,8)=-XMQ4*(COSA*SINC*CCC(I)*XX2(I)+SINA*COSC*EEE(I)*BBB(I)) + + A(4,1)=-COSA*SINC*FFF(I)*XX2(I)-SINA*COSC*DDD(I)*BBB(I) + A(4,2)=-XMG*XMB*(COSA*COSC*FFF(I)*XX2(I)+SINA*SINC*DDD(I)*BBB(I)) + A(4,3)=-XMG*XMR*(COSA*COSC*FFF(I)*BBB(I)+SINA*SINC*DDD(I)*XX2(I)) + A(4,4)=-XMB*XMR*(COSA*SINC*FFF(I)*BBB(I)+SINA*COSC*DDD(I)*XX2(I)) + A(4,5)=-XMG*XMT*(COSA*COSC*DDD(I)*BBB(I)+SINA*SINC*FFF(I)*XX2(I)) + A(4,6)=-XMT*XMB*(COSA*SINC*DDD(I)*BBB(I)+SINA*COSC*FFF(I)*XX2(I)) + A(4,7)=-XMT*XMR*(COSA*SINC*DDD(I)*XX2(I)+SINA*COSC*FFF(I)*BBB(I)) + A(4,8)=-XMQ4*(COSA*COSC*DDD(I)*XX2(I)+SINA*SINC*FFF(I)*BBB(I)) + + SMAX=(XMG-ABS(XMR))**2 + SMIN=(XMB+XMT)**2+0.1D0 + + DO 120 LIN=0,NN-1 + SBAR=SMIN+DBLE(LIN)*(SMAX-SMIN)/DBLE(NN) + AM=(XMG2-XMR2)*(XMT2-XMB2)/2D0/SBAR + GRS=SBAR-XMQ2 + W=PYLAMF(SBAR,XMB2,XMT2)*PYLAMF(SBAR,XMG2,XMR2) + W=DSQRT(W)/2D0/SBAR + ANT1=LOG(ABS((GRS/2D0+AM+XMST(1)-W)/(GRS/2D0+AM+XMST(1)+W))) + ANT2=LOG(ABS((GRS/2D0+AM+XMST(3)-W)/(GRS/2D0+AM+XMST(3)+W))) + ANB1=LOG(ABS((GRS/2D0-AM+XMSB(1)-W)/(GRS/2D0-AM+XMSB(1)+W))) + ANB2=LOG(ABS((GRS/2D0-AM+XMSB(2)-W)/(GRS/2D0-AM+XMSB(2)+W))) + SUMME(LIN)=-ULR(1)*W+(ULR(1)*(XMQ2/2D0-XMST(1)-XMG*XMT*SIN2A) + & +2D0*XX1(I)*AAA(I)*XMR*XMB)*ANT1 + & +(ULR(1)/2D0*(XMST(1)*(XMQ2-XMST(1))-XMGTBR + & -2D0*XMG*XMT*SIN2A*(XMST(1)-XMB2-XMR2)) + & +2D0*XX1(I)*AAA(I)*XMR*XMB*(XMST(1)-XMG2-XMT2) + & +4D0*SIN2A*XX1(I)*AAA(I)*XMQ4) + & *(1D0/(GRS/2D0+AM+XMST(1)-W)-1D0/(GRS/2D0+AM+XMST(1)+W)) + SUMME(LIN)=SUMME(LIN)-ULR(2)*W + & +(ULR(2)*(XMQ2/2D0-XMST(3)+XMG*XMT*SIN2A) + & -2D0*XX2(I)*BBB(I)*XMR*XMB)*ANT2 + & +(ULR(2)/2D0*(XMST(3)*(XMQ2-XMST(3))-XMGTBR + & +2D0*XMG*XMT*SIN2A*(XMST(3)-XMB2-XMR2)) + & -2D0*XX2(I)*BBB(I)*XMR*XMB*(XMST(3)-XMG2-XMT2) + & +4D0*SIN2A*XX2(I)*BBB(I)*XMQ4) + & *(1D0/(GRS/2D0+AM+XMST(3)-W)-1D0/(GRS/2D0+AM+XMST(3)+W)) + SUMME(LIN)=SUMME(LIN)-VLR(1)*W + & +(VLR(1)*(XMQ2/2D0-XMSB(1)-XMG*XMB*SIN2C) + & +2D0*CCC(I)*EEE(I)*XMR*XMT)*ANB1 + & +(VLR(1)/2D0*(XMSB(1)*(XMQ2-XMSB(1))-XMGBTR + & -2D0*XMG*XMB*SIN2C*(XMSB(1)-XMT2-XMR2)) + & +2D0*CCC(I)*EEE(I)*XMR*XMT*(XMSB(1)-XMG2-XMB2) + & +4D0*SIN2C*CCC(I)*EEE(I)*XMQ4) + & *(1D0/(GRS/2D0-AM+XMSB(1)-W)-1D0/(GRS/2D0-AM+XMSB(1)+W)) + SUMME(LIN)=SUMME(LIN)-VLR(2)*W + & +(VLR(2)*(XMQ2/2D0-XMSB(2)+XMG*XMB*SIN2C) + & -2D0*DDD(I)*FFF(I)*XMR*XMT)*ANB2 + & +(VLR(2)/2D0*(XMSB(2)*(XMQ2-XMSB(2))-XMGBTR + & +2D0*XMG*XMB*SIN2C*(XMSB(2)-XMT2-XMR2)) + & -2D0*DDD(I)*FFF(I)*XMR*XMT*(XMSB(2)-XMG2-XMB2) + & +4D0*SIN2C*DDD(I)*FFF(I)*XMQ4) + & *(1D0/(GRS/2D0-AM+XMSB(2)-W)-1D0/(GRS/2D0-AM+XMSB(2)+W)) + SUMME(LIN)=SUMME(LIN)+2D0*XMG*XMT*COS2A/(XMST(3)-XMST(1)) + & *((AAA(I)*BBB(I)-XX1(I)*XX2(I)) + & *((XMST(3)-XMB2-XMR2)*ANT2-(XMST(1)-XMB2-XMR2)*ANT1) + & +2D0*(AAA(I)*XX2(I)-XX1(I)*BBB(I))*XMB*XMR*(ANT2-ANT1)) + SUMME(LIN)=SUMME(LIN)+2D0*XMG*XMB*COS2C/(XMSB(2)-XMSB(1)) + & *((EEE(I)*FFF(I)-CCC(I)*DDD(I)) + & *((XMSB(2)-XMT2-XMR2)*ANB2-(XMSB(1)-XMT2-XMR2)*ANB1) + & +2D0*(EEE(I)*DDD(I)-CCC(I)*FFF(I))*XMT*XMR*(ANB2-ANB1)) + DO 110 J=1,4 + SUMME(LIN)=SUMME(LIN)-2D0*A(J,1)*W + & +((-A(J,1)*(XMSB(J)*(GRS+XMSB(J))+XMQ3) + & +A(J,2)*(XMSB(J)-XMT2-XMR2)+A(J,3)*(SBAR-XMB2-XMT2) + & +A(J,4)*(XMSB(J)+SBAR-XMB2-XMR2) + & -A(J,5)*(XMSB(J)+SBAR-XMG2-XMT2)+A(J,6)*(XMG2+XMR2-SBAR) + & -A(J,7)*(XMSB(J)-XMG2-XMB2)+2D0*A(J,8)) + & *LOG(ABS((GRS/2D0+XMSB(J)-AM-W)/(GRS/2D0+XMSB(J)-AM+W))) + & -(A(J,1)*(XMST(J)*(GRS+XMST(J))+XMQ3) + & +A(J,2)*(XMST(J)+SBAR-XMG2-XMB2)-A(J,3)*(SBAR-XMB2-XMT2) + & +A(J,4)*(XMST(J)-XMG2-XMT2)-A(J,5)*(XMST(J)-XMR2-XMB2) + & -A(J,6)*(XMG2+XMR2-SBAR) + & -A(J,7)*(XMST(J)+SBAR-XMT2-XMR2)-2D0*A(J,8)) + & *LOG(ABS((GRS/2D0+XMST(J)+AM-W)/(GRS/2D0+XMST(J)+AM+W)))) + & /(GRS+XMSB(J)+XMST(J)) + 110 CONTINUE + 120 CONTINUE + SUMME(NN)=0D0 + GAM= ALPHAW * ALPHAS * PYSIMP(SUMME,SMIN,SMAX,NN) + &/ (16D0 * PARU(1) * PARU(102) * XMGLU**3) + + RETURN + END + +C********************************************************************* + +C...PYNJDC +C...Calculates decay widths for the neutralinos (admixtures of +C...Bino, W3-ino, Higgs1-ino, Higgs2-ino) + +C...Input: KCIN = KF code for particle +C...Output: XLAM = widths +C... IDLAM = KF codes for decay particles +C... IKNT = number of decay channels defined +C...AUTHOR: STEPHEN MRENNA +C...Last change: +C...10-15-95: force decay chi^0_2 -> chi^0_1 + gamma +C...when CHIGAMMA .NE. 0 +C...10 FEB 96: Calculate this decay for small tan(beta) + + SUBROUTINE PYNJDC(KFIN,XLAM,IDLAM,IKNT) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2), + &SFMIX(16,4) + COMMON/PYINTS/XXM(20) + SAVE /PYDAT1/,/PYDAT2/,/PYMSSM/,/PYSSMT/,/PYINTS/ + +C...Local variables. + INTEGER KFIN,KCIN + DOUBLE PRECISION XMI,XMJ,XMF,XMSF1,XMSF2,XMW,XMW2, + &XMZ,XMZ2,AXMJ,AXMI + DOUBLE PRECISION XMFP,XMF1,XMF2,XMSL,XMG,XMK + DOUBLE PRECISION S12MIN,S12MAX + DOUBLE PRECISION XMI2,XMI3,XMJ2,XMH,XMH2,XMHP,XMHP2,XMA2,XMB2 + DOUBLE PRECISION PYLAMF,XL,QIJ,RIJ + DOUBLE PRECISION TANW,XW,AEM,C1,AS,EI,T3 + DOUBLE PRECISION PYX2XH,PYX2XG + DOUBLE PRECISION XLAM(0:200) + INTEGER IDLAM(200,3) + INTEGER LKNT,IX,IH,J,IJ,I,IKNT,FID + INTEGER ITH(3),KF1,KF2 + INTEGER ITHC + DOUBLE PRECISION ETAH(3),CH(3),DH(3),EH(3) + DOUBLE PRECISION SR2 + DOUBLE PRECISION CBETA,SBETA,GR,GL,F12K,F21K + DOUBLE PRECISION GAMCON,XMT1,XMT2 + DOUBLE PRECISION PYALEM,PI,PYALPS + DOUBLE PRECISION AL,BL,AR,BR,ALP,ARP,BLP,BRP + DOUBLE PRECISION RAT1,RAT2 + DOUBLE PRECISION T3T,CA,CB,FCOL + DOUBLE PRECISION ALFA,BETA,TANB + DOUBLE PRECISION PYXXGA + EXTERNAL PYXXW5,PYGAUS,PYXXZ5 + DOUBLE PRECISION PYXXW5,PYGAUS,PYXXZ5 + DOUBLE PRECISION PREC + INTEGER KFNCHI(4),KFCCHI(2) + DATA ETAH/1D0,1D0,-1D0/ + DATA ITH/25,35,36/ + DATA ITHC/37/ + DATA PREC/1D-2/ + DATA PI/3.141592654D0/ + DATA SR2/1.4142136D0/ + DATA KFNCHI/1000022,1000023,1000025,1000035/ + DATA KFCCHI/1000024,1000037/ + +C...COUNT THE NUMBER OF DECAY MODES + LKNT=0 + + XMW=PMAS(24,1) + XMW2=XMW**2 + XMZ=PMAS(23,1) + XMZ2=XMZ**2 + XW=1D0-XMW2/XMZ2 + TANW = SQRT(XW/(1D0-XW)) + +C...IX IS 1 - 4 DEPENDING ON SEQUENCE NUMBER + KCIN=PYCOMP(KFIN) + IX=1 + IF(KFIN.EQ.KFNCHI(2)) IX=2 + IF(KFIN.EQ.KFNCHI(3)) IX=3 + IF(KFIN.EQ.KFNCHI(4)) IX=4 + + XMI=SMZ(IX) + XMI2=XMI**2 + AXMI=ABS(XMI) + AEM=PYALEM(XMI2) + AS =PYALPS(XMI2) + C1=AEM/XW + XMI3=ABS(XMI**3) + + TANB=RMSS(5) + BETA=ATAN(TANB) + ALFA=RMSS(18) + CBETA=COS(BETA) + SBETA=TANB*CBETA + CALFA=COS(ALFA) + SALFA=SIN(ALFA) + +C...CHECK ALL 2-BODY DECAYS TO GAUGE AND HIGGS BOSONS + IF(IX.EQ.1.AND.IMSS(11).EQ.0) GOTO 260 + +C...FORCE CHI0_2 -> CHI0_1 + GAMMA + IF(IX.EQ.2 .AND. IMSS(10).NE.0 ) THEN + XMJ=SMZ(1) + AXMJ=ABS(XMJ) + LKNT=LKNT+1 + GAMCON=AEM**3/8D0/PI/XMW2/XW + XMT1=(PMAS(PYCOMP(KSUSY1+6),1)/PMAS(6,1))**2 + XMT2=(PMAS(PYCOMP(KSUSY2+6),1)/PMAS(6,1))**2 + XLAM(LKNT)=PYXXGA(GAMCON,AXMI,AXMJ,XMT1,XMT2) + IDLAM(LKNT,1)=KSUSY1+22 + IDLAM(LKNT,2)=22 + IDLAM(LKNT,3)=0 + WRITE(MSTU(11),*) 'FORCED N2 -> N1 + GAMMA ',XLAM(LKNT) + GOTO 300 + ENDIF + +C...GRAVITINO DECAY MODES + + IF(IMSS(11).EQ.1) THEN + XMP=RMSS(29) + IDG=39+KSUSY1 + XMGR=PMAS(PYCOMP(IDG),1) + SINW=SQRT(XW) + COSW=SQRT(1D0-XW) + XFAC=(XMI2/(XMP*XMGR))**2*AXMI/48D0/PI + IF(AXMI.GT.XMGR+PMAS(22,1)) THEN + LKNT=LKNT+1 + IDLAM(LKNT,1)=IDG + IDLAM(LKNT,2)=22 + IDLAM(LKNT,3)=0 + XLAM(LKNT)=XFAC*(ZMIX(IX,1)*COSW+ZMIX(IX,2)*SINW)**2 + ENDIF + IF(AXMI.GT.XMGR+XMZ) THEN + LKNT=LKNT+1 + IDLAM(LKNT,1)=IDG + IDLAM(LKNT,2)=23 + IDLAM(LKNT,3)=0 + XLAM(LKNT)=XFAC*((ZMIX(IX,1)*SINW-ZMIX(IX,2)*COSW)**2 + + $ .5D0*(ZMIX(IX,3)*CBETA-ZMIX(IX,4)*SBETA)**2)*(1D0-XMZ2/XMI2)**4 + ENDIF + IF(AXMI.GT.XMGR+PMAS(25,1)) THEN + LKNT=LKNT+1 + IDLAM(LKNT,1)=IDG + IDLAM(LKNT,2)=25 + IDLAM(LKNT,3)=0 + XLAM(LKNT)=XFAC*((ZMIX(IX,3)*SALFA-ZMIX(IX,4)*CALFA)**2)* + $ .5D0*(1D0-PMAS(25,1)**2/XMI2)**4 + ENDIF + IF(AXMI.GT.XMGR+PMAS(35,1)) THEN + LKNT=LKNT+1 + IDLAM(LKNT,1)=IDG + IDLAM(LKNT,2)=35 + IDLAM(LKNT,3)=0 + XLAM(LKNT)=XFAC*((ZMIX(IX,3)*CALFA+ZMIX(IX,4)*SALFA)**2)* + $ .5D0*(1D0-PMAS(35,1)**2/XMI2)**4 + ENDIF + IF(AXMI.GT.XMGR+PMAS(36,1)) THEN + LKNT=LKNT+1 + IDLAM(LKNT,1)=IDG + IDLAM(LKNT,2)=36 + IDLAM(LKNT,3)=0 + XLAM(LKNT)=XFAC*((ZMIX(IX,3)*SBETA+ZMIX(IX,4)*CBETA)**2)* + $ .5D0*(1D0-PMAS(36,1)**2/XMI2)**4 + ENDIF + IF(IX.EQ.1) GOTO 260 + ENDIF + + DO 180 IJ=1,IX-1 + XMJ=SMZ(IJ) + AXMJ=ABS(XMJ) + XMJ2=XMJ**2 + +C...CHI0_I -> CHI0_J + GAMMA + IF(AXMI.GE.AXMJ.AND.SBETA/CBETA.LE.2D0) THEN + RAT1=ZMIX(IJ,1)**2+ZMIX(IJ,2)**2 + RAT1=RAT1/( 1D-6+ZMIX(IX,3)**2+ZMIX(IX,4)**2 ) + RAT2=ZMIX(IX,1)**2+ZMIX(IX,2)**2 + RAT2=RAT2/( 1D-6+ZMIX(IJ,3)**2+ZMIX(IJ,4)**2 ) + IF((RAT1.GT. 0.90D0 .AND. RAT1.LT. 1.10D0) .OR. + & (RAT2.GT. 0.90D0 .AND. RAT2.LT. 1.10D0)) THEN + LKNT=LKNT+1 + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=22 + IDLAM(LKNT,3)=0 + GAMCON=AEM**3/8D0/PI/XMW2/XW + XMT1=(PMAS(PYCOMP(KSUSY1+6),1)/PMAS(6,1))**2 + XMT2=(PMAS(PYCOMP(KSUSY2+6),1)/PMAS(6,1))**2 + XLAM(LKNT)=PYXXGA(GAMCON,AXMI,AXMJ,XMT1,XMT2) + ENDIF + ENDIF + +C...CHI0_I -> CHI0_J + Z0 + IF(AXMI.GE.AXMJ+XMZ) THEN + LKNT=LKNT+1 + GL=-0.5D0*(ZMIX(IX,3)*ZMIX(IJ,3)-ZMIX(IX,4)*ZMIX(IJ,4)) + GR=-GL + XLAM(LKNT)=PYX2XG(C1/XMW2,XMI,XMJ,XMZ,GL,GR) + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=23 + IDLAM(LKNT,3)=0 + ELSEIF(AXMI.GE.AXMJ) THEN + FID=11 + EI=KCHG(FID,1)/3D0 + T3=-0.5D0 + XXM(1)=0D0 + XXM(2)=XMJ + XXM(3)=0D0 + XXM(4)=XMI + XXM(5)=PMAS(PYCOMP(KSUSY1+11),1) + XXM(6)=PMAS(PYCOMP(KSUSY2+11),1) + XXM(7)=XMZ + XXM(8)=PMAS(23,2) + XXM(9)=-0.5D0*(ZMIX(IX,3)*ZMIX(IJ,3)-ZMIX(IX,4)*ZMIX(IJ,4)) + XXM(10)=-XXM(9) + XXM(11)=(T3-EI*XW)/(1D0-XW) + XXM(12)=-EI*XW/(1D0-XW) + XXM(13)=-SR2*(T3*ZMIX(IX,2)-TANW*(T3-EI)*ZMIX(IX,1)) + XXM(14)=-SR2*(T3*ZMIX(IJ,2)-TANW*(T3-EI)*ZMIX(IJ,1)) + XXM(15)=SR2*TANW*(EI*ZMIX(IX,1)) + XXM(16)=SR2*TANW*(EI*ZMIX(IJ,1)) + S12MIN=0D0 + S12MAX=(AXMI-AXMJ)**2 + +C...CHARGED LEPTONS + IF( XXM(5).LT.AXMI ) THEN + XXM(5)=1D6 + ENDIF + IF(XXM(6).LT.AXMI ) THEN + XXM(6)=1D6 + ENDIF + IF(AXMI.GE.AXMJ+2D0*PMAS(11,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=C1**2/XMI3/(16D0*PI)* + & PYGAUS(PYXXZ5,S12MIN,S12MAX,1D-3) + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=11 + IDLAM(LKNT,3)=-11 + IF(AXMI.GE.AXMJ+2D0*PMAS(13,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=13 + IDLAM(LKNT,3)=-13 + ENDIF + ENDIF + 100 CONTINUE + IF(ABS(SFMIX(15,1)).GT.ABS(SFMIX(15,2))) THEN + XXM(5)=PMAS(PYCOMP(KSUSY1+15),1) + XXM(6)=PMAS(PYCOMP(KSUSY2+15),1) + ELSE + XXM(6)=PMAS(PYCOMP(KSUSY1+15),1) + XXM(5)=PMAS(PYCOMP(KSUSY2+15),1) + ENDIF + IF( XXM(5).LT.AXMI ) THEN + XXM(5)=1D6 + ENDIF + IF(XXM(6).LT.AXMI ) THEN + XXM(6)=1D6 + ENDIF + + IF(AXMI.GE.AXMJ+2D0*PMAS(15,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=C1**2/XMI3/(16D0*PI)* + & PYGAUS(PYXXZ5,S12MIN,S12MAX,1D-3) + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=15 + IDLAM(LKNT,3)=-15 + ENDIF + +C...NEUTRINOS + 110 CONTINUE + FID=12 + EI=KCHG(FID,1)/3D0 + T3=0.5D0 + XXM(5)=PMAS(PYCOMP(KSUSY1+12),1) + XXM(6)=1D6 + XXM(11)=(T3-EI*XW)/(1D0-XW) + XXM(12)=-EI*XW/(1D0-XW) + XXM(13)=-SR2*(T3*ZMIX(IX,2)-TANW*(T3-EI)*ZMIX(IX,1)) + XXM(14)=-SR2*(T3*ZMIX(IJ,2)-TANW*(T3-EI)*ZMIX(IJ,1)) + XXM(15)=SR2*TANW*(EI*ZMIX(IX,1)) + XXM(16)=SR2*TANW*(EI*ZMIX(IJ,1)) + + IF( XXM(5).LT.AXMI ) THEN + XXM(5)=1D6 + ENDIF + + LKNT=LKNT+1 + XLAM(LKNT)=C1**2/XMI3/(16D0*PI)* + & PYGAUS(PYXXZ5,S12MIN,S12MAX,1D-3) + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=12 + IDLAM(LKNT,3)=-12 + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=14 + IDLAM(LKNT,3)=-14 + 120 CONTINUE + XXM(5)=PMAS(PYCOMP(KSUSY1+16),1) + IF( XXM(5).LT.AXMI ) THEN + XXM(5)=1D6 + ENDIF + LKNT=LKNT+1 + XLAM(LKNT)=C1**2/XMI3/(16D0*PI)* + & PYGAUS(PYXXZ5,S12MIN,S12MAX,1D-3) + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=16 + IDLAM(LKNT,3)=-16 + +C...D-TYPE QUARKS + 130 CONTINUE + XXM(5)=PMAS(PYCOMP(KSUSY1+1),1) + XXM(6)=PMAS(PYCOMP(KSUSY2+1),1) + FID=1 + EI=KCHG(FID,1)/3D0 + T3=-0.5D0 + + XXM(11)=(T3-EI*XW)/(1D0-XW) + XXM(12)=-EI*XW/(1D0-XW) + XXM(13)=-SR2*(T3*ZMIX(IX,2)-TANW*(T3-EI)*ZMIX(IX,1)) + XXM(14)=-SR2*(T3*ZMIX(IJ,2)-TANW*(T3-EI)*ZMIX(IJ,1)) + XXM(15)=SR2*TANW*(EI*ZMIX(IX,1)) + XXM(16)=SR2*TANW*(EI*ZMIX(IJ,1)) + + IF( XXM(5).LT.AXMI .AND. XXM(6).LT.AXMI ) GOTO 140 + IF( XXM(5).LT.AXMI ) THEN + XXM(5)=1D6 + ELSEIF( XXM(6).LT.AXMI ) THEN + XXM(6)=1D6 + ENDIF + IF(AXMI.GE.AXMJ+2D0*PMAS(1,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=C1**2/XMI3/(16D0*PI)* + & PYGAUS(PYXXZ5,S12MIN,S12MAX,1D-3)*3D0 + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=1 + IDLAM(LKNT,3)=-1 + IF(AXMI.GE.AXMJ+2D0*PMAS(3,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=3 + IDLAM(LKNT,3)=-3 + ENDIF + ENDIF + 140 CONTINUE + IF(ABS(SFMIX(5,1)).GT.ABS(SFMIX(5,2))) THEN + XXM(5)=PMAS(PYCOMP(KSUSY1+5),1) + XXM(6)=PMAS(PYCOMP(KSUSY2+5),1) + ELSE + XXM(6)=PMAS(PYCOMP(KSUSY1+5),1) + XXM(5)=PMAS(PYCOMP(KSUSY2+5),1) + ENDIF + IF( XXM(5).LT.AXMI .AND. XXM(6).LT.AXMI ) GOTO 150 + IF(XXM(5).LT.AXMI) THEN + XXM(5)=1D6 + ELSEIF(XXM(6).LT.AXMI) THEN + XXM(6)=1D6 + ENDIF + IF(AXMI.GE.AXMJ+2D0*PMAS(5,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=C1**2/XMI3/(16D0*PI)* + & PYGAUS(PYXXZ5,S12MIN,S12MAX,1D-3)*3D0 + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=5 + IDLAM(LKNT,3)=-5 + ENDIF + +C...U-TYPE QUARKS + 150 CONTINUE + XXM(5)=PMAS(PYCOMP(KSUSY1+2),1) + XXM(6)=PMAS(PYCOMP(KSUSY2+2),1) + FID=2 + EI=KCHG(FID,1)/3D0 + T3=0.5D0 + + XXM(11)=(T3-EI*XW)/(1D0-XW) + XXM(12)=-EI*XW/(1D0-XW) + XXM(13)=-SR2*(T3*ZMIX(IX,2)-TANW*(T3-EI)*ZMIX(IX,1)) + XXM(14)=-SR2*(T3*ZMIX(IJ,2)-TANW*(T3-EI)*ZMIX(IJ,1)) + XXM(15)=SR2*TANW*(EI*ZMIX(IX,1)) + XXM(16)=SR2*TANW*(EI*ZMIX(IJ,1)) + + IF( XXM(5).LT.AXMI .AND. XXM(6).LT.AXMI ) GOTO 160 + IF(XXM(5).LT.AXMI) THEN + XXM(5)=1D6 + ELSEIF(XXM(6).LT.AXMI) THEN + XXM(6)=1D6 + ENDIF + IF(AXMI.GE.AXMJ+2D0*PMAS(2,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=C1**2/XMI3/(16D0*PI)* + & PYGAUS(PYXXZ5,S12MIN,S12MAX,1D-3)*3D0 + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=2 + IDLAM(LKNT,3)=-2 + IF(AXMI.GE.AXMJ+2D0*PMAS(4,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=4 + IDLAM(LKNT,3)=-4 + ENDIF + ENDIF + 160 CONTINUE + ENDIF + +C...CHI0_I -> CHI0_J + H0_K + EH(1)=SIN(ALFA) + EH(2)=COS(ALFA) + EH(3)=-SIN(BETA) + DH(1)=COS(ALFA) + DH(2)=-SIN(ALFA) + DH(3)=COS(BETA) + + QIJ=ZMIX(IX,3)*ZMIX(IJ,2)+ZMIX(IJ,3)*ZMIX(IX,2)- + & TANW*(ZMIX(IX,3)*ZMIX(IJ,1)+ZMIX(IJ,3)*ZMIX(IX,1)) + RIJ=ZMIX(IX,4)*ZMIX(IJ,2)+ZMIX(IJ,4)*ZMIX(IX,2)- + & TANW*(ZMIX(IX,4)*ZMIX(IJ,1)+ZMIX(IJ,4)*ZMIX(IX,1)) + + DO 170 IH=1,3 + XMH=PMAS(ITH(IH),1) + XMH2=XMH**2 + IF(AXMI.GE.AXMJ+XMH) THEN + LKNT=LKNT+1 + XL=PYLAMF(XMI2,XMJ2,XMH2) + F21K=0.5D0*(QIJ*EH(IH)+RIJ*DH(IH)) + F12K=F21K +C...SIGN OF MASSES I,J + XMK=XMJ + IF(IH.EQ.3) XMK=-XMK + XLAM(LKNT)=PYX2XH(C1,XMI,XMK,XMH,F12K,F21K) + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=ITH(IH) + IDLAM(LKNT,3)=0 + ENDIF + 170 CONTINUE + 180 CONTINUE + +C...CHI0_I -> CHI+_J + W- + DO 220 IJ=1,2 + XMJ=SMW(IJ) + AXMJ=ABS(XMJ) + XMJ2=XMJ**2 + IF(AXMI.GE.AXMJ+XMW) THEN + LKNT=LKNT+1 + GL=ZMIX(IX,2)*VMIX(IJ,1)-ZMIX(IX,4)*VMIX(IJ,2)/SR2 + GR=ZMIX(IX,2)*UMIX(IJ,1)+ZMIX(IX,3)*UMIX(IJ,2)/SR2 + XLAM(LKNT)=PYX2XG(C1/XMW2,XMI,XMJ,XMW,GL,GR) + IDLAM(LKNT,1)=KFCCHI(IJ) + IDLAM(LKNT,2)=-24 + IDLAM(LKNT,3)=0 + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=-KFCCHI(IJ) + IDLAM(LKNT,2)=24 + IDLAM(LKNT,3)=0 + ELSEIF(AXMI.GE.AXMJ) THEN + S12MIN=0D0 + S12MAX=(AXMI-AXMJ)**2 + XXM(5)=ZMIX(IX,2)*VMIX(IJ,1)-ZMIX(IX,4)*VMIX(IJ,2)/SR2 + XXM(6)=ZMIX(IX,2)*UMIX(IJ,1)+ZMIX(IX,3)*UMIX(IJ,2)/SR2 + +C...LEPTONS + FID=11 + EI=KCHG(FID,1)/3D0 + T3=-0.5D0 + XXM(7)=-SR2*(T3*ZMIX(IX,2)-TANW*(T3-EI)*ZMIX(IX,1))*UMIX(IJ,1) + FID=12 + EI=KCHG(FID,1)/3D0 + T3=0.5D0 + XXM(8)=-SR2*(T3*ZMIX(IX,2)-TANW*(T3-EI)*ZMIX(IX,1))*VMIX(IJ,1) + + XXM(1)=0D0 + XXM(2)=XMJ + XXM(3)=0D0 + XXM(4)=XMI + XXM(9)=PMAS(24,1) + XXM(10)=PMAS(24,2) + XXM(11)=PMAS(PYCOMP(KSUSY1+11),1) + XXM(12)=PMAS(PYCOMP(KSUSY1+12),1) + IF( XXM(11).LT.AXMI .AND. XXM(12).LT.AXMI ) GOTO 190 + IF(XXM(11).LT.AXMI) THEN + XXM(11)=1D6 + ELSEIF(XXM(12).LT.AXMI) THEN + XXM(12)=1D6 + ENDIF + IF(AXMI.GE.AXMJ+PMAS(11,1)+PMAS(12,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=C1**2/XMI3/(16D0*PI)* + & PYGAUS(PYXXW5,S12MIN,S12MAX,PREC) + IDLAM(LKNT,1)=KFCCHI(IJ) + IDLAM(LKNT,2)=11 + IDLAM(LKNT,3)=-12 + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=-IDLAM(LKNT-1,1) + IDLAM(LKNT,2)=-IDLAM(LKNT-1,2) + IDLAM(LKNT,3)=-IDLAM(LKNT-1,3) + IF(AXMI.GE.AXMJ+PMAS(13,1)+PMAS(14,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFCCHI(IJ) + IDLAM(LKNT,2)=13 + IDLAM(LKNT,3)=-14 + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=-IDLAM(LKNT-1,1) + IDLAM(LKNT,2)=-IDLAM(LKNT-1,2) + IDLAM(LKNT,3)=-IDLAM(LKNT-1,3) + ENDIF + ENDIF + 190 CONTINUE + IF(ABS(SFMIX(15,1)).GT.ABS(SFMIX(15,2))) THEN + XXM(11)=PMAS(PYCOMP(KSUSY1+15),1) + XXM(12)=PMAS(PYCOMP(KSUSY1+16),1) + ELSE + XXM(11)=PMAS(PYCOMP(KSUSY2+15),1) + XXM(12)=PMAS(PYCOMP(KSUSY1+16),1) + ENDIF + + IF(XXM(11).LT.AXMI) THEN + XXM(11)=1D6 + ENDIF + IF(XXM(12).LT.AXMI) THEN + XXM(12)=1D6 + ENDIF + IF(AXMI.GE.AXMJ+PMAS(15,1)+PMAS(16,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=C1**2/XMI3/(16D0*PI)* + & PYGAUS(PYXXW5,S12MIN,S12MAX,PREC) + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFCCHI(IJ) + IDLAM(LKNT,2)=15 + IDLAM(LKNT,3)=-16 + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=-IDLAM(LKNT-1,1) + IDLAM(LKNT,2)=-IDLAM(LKNT-1,2) + IDLAM(LKNT,3)=-IDLAM(LKNT-1,3) + ENDIF + +C...NOW, DO THE QUARKS + 200 CONTINUE + FID=1 + EI=KCHG(FID,1)/3D0 + T3=-0.5D0 + XXM(7)=-SR2*(T3*ZMIX(IX,2)-TANW*(T3-EI)*ZMIX(IX,1))*UMIX(IJ,1) + FID=2 + EI=KCHG(FID,1)/3D0 + T3=0.5D0 + XXM(8)=-SR2*(T3*ZMIX(IX,2)-TANW*(T3-EI)*ZMIX(IX,1))*VMIX(IJ,1) + + XXM(11)=PMAS(PYCOMP(KSUSY1+1),1) + XXM(12)=PMAS(PYCOMP(KSUSY1+2),1) + IF( XXM(11).LT.AXMI .AND. XXM(12).LT.AXMI ) GOTO 210 + IF(XXM(11).LT.AXMI) THEN + XXM(11)=1D6 + ELSEIF(XXM(12).LT.AXMI) THEN + XXM(12)=1D6 + ENDIF + IF(AXMI.GE.AXMJ+PMAS(2,1)+PMAS(1,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=3D0*C1**2/XMI3/(16D0*PI)* + & PYGAUS(PYXXW5,S12MIN,S12MAX,PREC) + IDLAM(LKNT,1)=KFCCHI(IJ) + IDLAM(LKNT,2)=1 + IDLAM(LKNT,3)=-2 + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=-IDLAM(LKNT-1,1) + IDLAM(LKNT,2)=-IDLAM(LKNT-1,2) + IDLAM(LKNT,3)=-IDLAM(LKNT-1,3) + IF(AXMI.GE.AXMJ+PMAS(3,1)+PMAS(4,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFCCHI(IJ) + IDLAM(LKNT,2)=3 + IDLAM(LKNT,3)=-4 + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=-IDLAM(LKNT-1,1) + IDLAM(LKNT,2)=-IDLAM(LKNT-1,2) + IDLAM(LKNT,3)=-IDLAM(LKNT-1,3) + ENDIF + ENDIF + 210 CONTINUE + ENDIF + 220 CONTINUE + 230 CONTINUE + +C...CHI0_I -> CHI+_I + H- + DO 240 IJ=1,2 + XMJ=SMW(IJ) + AXMJ=ABS(XMJ) + XMJ2=XMJ**2 + XMHP=PMAS(ITHC,1) + XMHP2=XMHP**2 + IF(AXMI.GE.AXMJ+XMHP) THEN + LKNT=LKNT+1 + GL=CBETA*(ZMIX(IX,4)*VMIX(IJ,1)+(ZMIX(IX,2)+ + & ZMIX(IX,1)*TANW)*VMIX(IJ,2)/SR2) + GR=SBETA*(ZMIX(IX,3)*UMIX(IJ,1)-(ZMIX(IX,2)+ + & ZMIX(IX,1)*TANW)*UMIX(IJ,2)/SR2) + XLAM(LKNT)=PYX2XH(C1,XMI,XMJ,XMHP,GL,GR) + IDLAM(LKNT,1)=KFCCHI(IJ) + IDLAM(LKNT,2)=-ITHC + IDLAM(LKNT,3)=0 + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=-IDLAM(LKNT-1,1) + IDLAM(LKNT,2)=-IDLAM(LKNT-1,2) + IDLAM(LKNT,3)=-IDLAM(LKNT-1,3) + ELSE + + ENDIF + 240 CONTINUE + +C...2-BODY DECAYS TO FERMION SFERMION + DO 250 J=1,16 + IF(J.GE.7.AND.J.LE.10) GOTO 250 + KF1=KSUSY1+J + KF2=KSUSY2+J + XMSF1=PMAS(PYCOMP(KF1),1) + XMSF2=PMAS(PYCOMP(KF2),1) + XMF=PMAS(J,1) + IF(J.LE.6) THEN + FCOL=3D0 + ELSE + FCOL=1D0 + ENDIF + + EI=KCHG(J,1)/3D0 + T3T=SIGN(1D0,EI) + IF(J.EQ.12.OR.J.EQ.14.OR.J.EQ.16) T3T=1D0 + IF(MOD(J,2).EQ.0) THEN + BL=T3T*ZMIX(IX,2)+TANW*ZMIX(IX,1)*(2D0*EI-T3T) + AL=XMF*ZMIX(IX,4)/XMW/SBETA + AR=-2D0*EI*TANW*ZMIX(IX,1) + BR=AL + ELSE + BL=T3T*ZMIX(IX,2)+TANW*ZMIX(IX,1)*(2D0*EI-T3T) + AL=XMF*ZMIX(IX,3)/XMW/CBETA + AR=-2D0*EI*TANW*ZMIX(IX,1) + BR=AL + ENDIF + +C...D~ D_L + IF(AXMI.GE.XMF+XMSF1) THEN + LKNT=LKNT+1 + XMA2=XMSF1**2 + XMB2=XMF**2 + XL=PYLAMF(XMI2,XMA2,XMB2) + CA=AL*SFMIX(J,1)+AR*SFMIX(J,2) + CB=BL*SFMIX(J,1)+BR*SFMIX(J,2) + XLAM(LKNT)=0.5D0*FCOL*C1/8D0/XMI3*SQRT(XL)*( (XMI2+XMB2-XMA2)* + & (CA**2+CB**2)+4D0*CA*CB*XMF*XMI) + IDLAM(LKNT,1)=KF1 + IDLAM(LKNT,2)=-J + IDLAM(LKNT,3)=0 + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=-IDLAM(LKNT-1,1) + IDLAM(LKNT,2)=-IDLAM(LKNT-1,2) + IDLAM(LKNT,3)=0 + ENDIF + +C...D~ D_R + IF(AXMI.GE.XMF+XMSF2) THEN + LKNT=LKNT+1 + XMA2=XMSF2**2 + XMB2=XMF**2 + CA=AL*SFMIX(J,3)+AR*SFMIX(J,4) + CB=BL*SFMIX(J,3)+BR*SFMIX(J,4) + XL=PYLAMF(XMI2,XMA2,XMB2) + XLAM(LKNT)=0.5D0*FCOL*C1/8D0/XMI3*SQRT(XL)*( (XMI2+XMB2-XMA2)* + & (CA**2+CB**2)+4D0*CA*CB*XMF*XMI) + IDLAM(LKNT,1)=KF2 + IDLAM(LKNT,2)=-J + IDLAM(LKNT,3)=0 + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=-IDLAM(LKNT-1,1) + IDLAM(LKNT,2)=-IDLAM(LKNT-1,2) + IDLAM(LKNT,3)=0 + ENDIF + 250 CONTINUE + 260 CONTINUE +C...3-BODY DECAY TO Q Q~ GLUINO + XMJ=PMAS(PYCOMP(KSUSY1+21),1) + IF(AXMI.GE.XMJ) THEN + AXMJ=ABS(XMJ) + XXM(1)=0D0 + XXM(2)=XMJ + XXM(3)=0D0 + XXM(4)=XMI + XXM(5)=PMAS(PYCOMP(KSUSY1+1),1) + XXM(6)=PMAS(PYCOMP(KSUSY2+1),1) + XXM(7)=1D6 + XXM(8)=0D0 + XXM(9)=0D0 + XXM(10)=0D0 + S12MIN=0D0 + S12MAX=(AXMI-AXMJ)**2 +C...ALL QUARKS BUT T + XXM(11)=0D0 + XXM(12)=0D0 + XXM(13)=1D0 + XXM(14)=-SR2*(-0.5D0*ZMIX(IX,2)+TANW*ZMIX(IX,1)/6D0) + XXM(15)=1D0 + XXM(16)=SR2*(-TANW*ZMIX(IX,1)/3D0) + IF( XXM(5).LT.AXMI .OR. XXM(6).LT.AXMI ) GOTO 270 + IF(AXMI.GE.AXMJ+2D0*PMAS(1,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=4D0*C1*AS/XMI3/(16D0*PI)* + & PYGAUS(PYXXZ5,S12MIN,S12MAX,1D-3) + IDLAM(LKNT,1)=KSUSY1+21 + IDLAM(LKNT,2)=1 + IDLAM(LKNT,3)=-1 + IF(AXMI.GE.AXMJ+2D0*PMAS(3,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KSUSY1+21 + IDLAM(LKNT,2)=3 + IDLAM(LKNT,3)=-3 + ENDIF + ENDIF + 270 CONTINUE + IF(ABS(SFMIX(5,1)).GT.ABS(SFMIX(5,2))) THEN + XXM(5)=PMAS(PYCOMP(KSUSY1+5),1) + XXM(6)=PMAS(PYCOMP(KSUSY2+5),1) + ELSE + XXM(6)=PMAS(PYCOMP(KSUSY1+5),1) + XXM(5)=PMAS(PYCOMP(KSUSY2+5),1) + ENDIF + IF( XXM(5).LT.AXMI .OR. XXM(6).LT.AXMI ) GOTO 280 + IF(AXMI.GE.AXMJ+2D0*PMAS(5,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=0.5D0*C1*AS/XMI3/(16D0*PI)* + & PYGAUS(PYXXZ5,S12MIN,S12MAX,1D-3) + IDLAM(LKNT,1)=KSUSY1+21 + IDLAM(LKNT,2)=5 + IDLAM(LKNT,3)=-5 + ENDIF +C...U-TYPE QUARKS + 280 CONTINUE + XXM(5)=PMAS(PYCOMP(KSUSY1+2),1) + XXM(6)=PMAS(PYCOMP(KSUSY2+2),1) + XXM(13)=1D0 + XXM(14)=-SR2*(0.5D0*ZMIX(IX,2)+TANW*ZMIX(IX,1)/6D0) + XXM(15)=1D0 + XXM(16)=SR2*(2D0*TANW*ZMIX(IX,1)/3D0) + IF( XXM(5).LT.AXMI .OR. XXM(6).LT.AXMI ) GOTO 290 + IF(AXMI.GE.AXMJ+2D0*PMAS(2,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=0.5D0*C1*AS/XMI3/(16D0*PI)* + & PYGAUS(PYXXZ5,S12MIN,S12MAX,1D-3) + IDLAM(LKNT,1)=KSUSY1+21 + IDLAM(LKNT,2)=2 + IDLAM(LKNT,3)=-2 + IF(AXMI.GE.AXMJ+2D0*PMAS(4,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KSUSY1+21 + IDLAM(LKNT,2)=4 + IDLAM(LKNT,3)=-4 + ENDIF + ENDIF + 290 CONTINUE + ENDIF + + 300 IKNT=LKNT + XLAM(0)=0D0 + DO 310 I=1,IKNT + IF(XLAM(I).LT.0D0) XLAM(I)=0D0 + XLAM(0)=XLAM(0)+XLAM(I) + 310 CONTINUE + IF(XLAM(0).EQ.0D0) XLAM(0)=1D-6 + + RETURN + END + +C********************************************************************* + +C...PYCJDC +C...Calculate decay widths for the charginos (admixtures of +C...charged Wino and charged Higgsino. + +C...Input: KCIN = KF code for particle +C...Output: XLAM = widths +C... IDLAM = KF codes for decay particles +C... IKNT = number of decay channels defined +C...AUTHOR: STEPHEN MRENNA +C...Last change: +C...10-16-95: force decay chi^+_1 -> chi^0_1 e+ nu_e +C...when CHIENU .NE. 0 + + SUBROUTINE PYCJDC(KFIN,XLAM,IDLAM,IKNT) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2), + &SFMIX(16,4) + COMMON/PYINTS/XXM(20) + SAVE /PYDAT1/,/PYDAT2/,/PYMSSM/,/PYSSMT/,/PYINTS/ + +C...Local variables. + INTEGER KFIN,KCIN + DOUBLE PRECISION XMI,XMJ,XMF,XMSF1,XMSF2,XMW,XMW2, + &XMZ,XMZ2,AXMJ,AXMI + DOUBLE PRECISION XMFP,XMF1,XMF2,XMSL,XMG + DOUBLE PRECISION S12MIN,S12MAX + DOUBLE PRECISION XMI2,XMI3,XMJ2,XMH,XMH2,XMHP,XMHP2,XMA2,XMB2,XMK + DOUBLE PRECISION PYLAMF,XL + DOUBLE PRECISION TANW,XW,AEM,C1,AS,EI,T3,BETA,ALFA + DOUBLE PRECISION PYX2XH,PYX2XG + DOUBLE PRECISION XLAM(0:200) + INTEGER IDLAM(200,3) + INTEGER LKNT,IX,IH,J,IJ,I,IKNT,FID + INTEGER ITH(3) + INTEGER ITHC + DOUBLE PRECISION ETAH(3),CH(3),DH(3),EH(3) + DOUBLE PRECISION SR2 + DOUBLE PRECISION CBETA,SBETA,GR,GL,F12K,F21K,TANB + + DOUBLE PRECISION PYALEM,PI,PYALPS + DOUBLE PRECISION AL,BL,AR,BR,ALP,BLP,ARP,BRP + DOUBLE PRECISION CA,CB,FCOL + INTEGER KF1,KF2,ISF + INTEGER KFNCHI(4),KFCCHI(2) + + DOUBLE PRECISION TEMP + EXTERNAL PYGAUS,PYXXZ5,PYXXW5,PYXXZ2 + DOUBLE PRECISION PYGAUS,PYXXZ5,PYXXW5,PYXXZ2 + DOUBLE PRECISION PREC + DATA ITH/25,35,36/ + DATA ITHC/37/ + DATA ETAH/1D0,1D0,-1D0/ + DATA SR2/1.4142136D0/ + DATA PI/3.141592654D0/ + DATA PREC/1D-2/ + DATA KFNCHI/1000022,1000023,1000025,1000035/ + DATA KFCCHI/1000024,1000037/ + +C...COUNT THE NUMBER OF DECAY MODES + LKNT=0 + XMW=PMAS(24,1) + XMW2=XMW**2 + XMZ=PMAS(23,1) + XMZ2=XMZ**2 + XW=1D0-XMW2/XMZ2 + TANW = SQRT(XW/(1D0-XW)) + +C...1 OR 2 DEPENDING ON CHARGINO TYPE + IX=1 + IF(KFIN.EQ.KFCCHI(2)) IX=2 + KCIN=PYCOMP(KFIN) + + XMI=SMW(IX) + XMI2=XMI**2 + AXMI=ABS(XMI) + AEM=PYALEM(XMI2) + AS =PYALPS(XMI2) + C1=AEM/XW + XMI3=ABS(XMI**3) + TANB=RMSS(5) + BETA=ATAN(TANB) + CBETA=COS(BETA) + SBETA=TANB*CBETA + ALFA=RMSS(18) + +C...GRAVITINO DECAY MODES + + IF(IMSS(11).EQ.1) THEN + XMP=RMSS(29) + IDG=39+KSUSY1 + XMGR=PMAS(PYCOMP(IDG),1) + SINW=SQRT(XW) + COSW=SQRT(1D0-XW) + XFAC=(XMI2/(XMP*XMGR))**2*AXMI/48D0/PI + IF(AXMI.GT.XMGR+XMW) THEN + LKNT=LKNT+1 + IDLAM(LKNT,1)=IDG + IDLAM(LKNT,2)=24 + IDLAM(LKNT,3)=0 + XLAM(LKNT)=XFAC*(.5D0*(VMIX(IX,1)**2+UMIX(IX,1)**2)+ + & .5D0*((VMIX(IX,2)*SBETA)**2+(UMIX(IX,2)*CBETA)**2))* + & (1D0-XMW2/XMI2)**4 + ENDIF + IF(AXMI.GT.XMGR+PMAS(37,1)) THEN + LKNT=LKNT+1 + IDLAM(LKNT,1)=IDG + IDLAM(LKNT,2)=37 + IDLAM(LKNT,3)=0 + XLAM(LKNT)=XFAC*(.5D0*((VMIX(IX,2)*CBETA)**2+ + & (UMIX(IX,2)*SBETA)**2)) + & *(1D0-PMAS(37,1)**2/XMI2)**4 + ENDIF + ENDIF + +C...CHECK ALL 2-BODY DECAYS TO GAUGE AND HIGGS BOSONS + IF(IX.EQ.1) GOTO 150 + XMJ=SMW(1) + AXMJ=ABS(XMJ) + XMJ2=XMJ**2 + +C...CHI_2+ -> CHI_1+ + Z0 + IF(AXMI.GE.AXMJ+XMZ) THEN + LKNT=LKNT+1 + GL=VMIX(2,1)*VMIX(1,1)+0.5D0*VMIX(2,2)*VMIX(1,2) + GR=UMIX(2,1)*UMIX(1,1)+0.5D0*UMIX(2,2)*UMIX(1,2) + XLAM(LKNT)=PYX2XG(C1/XMW2,XMI,XMJ,XMZ,GL,GR) + IDLAM(LKNT,1)=KFCCHI(1) + IDLAM(LKNT,2)=23 + IDLAM(LKNT,3)=0 + +C...CHARGED LEPTONS + ELSEIF(AXMI.GE.AXMJ) THEN + XXM(5)=-(VMIX(2,1)*VMIX(1,1)+0.5D0*VMIX(2,2)*VMIX(1,2)) + XXM(6)=-(UMIX(2,1)*UMIX(1,1)+0.5D0*UMIX(2,2)*UMIX(1,2)) + XXM(9)=XMZ + XXM(10)=PMAS(23,2) + XXM(1)=0D0 + XXM(2)=XMJ + XXM(3)=0D0 + XXM(4)=XMI + S12MIN=0D0 + S12MAX=(AXMJ-AXMI)**2 + XXM(7)= (-0.5D0+XW)/(1D0-XW) + XXM(8)= XW/(1D0-XW) + XXM(11)=PMAS(PYCOMP(KSUSY1+12),1) + XXM(12)=VMIX(2,1)*VMIX(1,1) + IF( XXM(11).LT.AXMI ) THEN + XXM(11)=1D6 + ENDIF + IF(AXMI.GE.AXMJ+2D0*PMAS(11,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=C1**2/XMI3/(16D0*PI)* + & PYGAUS(PYXXZ2,S12MIN,S12MAX,PREC) + IDLAM(LKNT,1)=KFCCHI(1) + IDLAM(LKNT,2)=11 + IDLAM(LKNT,3)=-11 + IF(AXMI.GE.AXMJ+2D0*PMAS(13,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFCCHI(1) + IDLAM(LKNT,2)=13 + IDLAM(LKNT,3)=-13 + IF(AXMI.GE.AXMJ+2D0*PMAS(15,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFCCHI(1) + IDLAM(LKNT,2)=15 + IDLAM(LKNT,3)=-15 + ENDIF + ENDIF + ENDIF + +C...NEUTRINOS + 100 CONTINUE + XXM(7)= (0.5D0)/(1D0-XW) + XXM(8)= 0D0 + XXM(11)=PMAS(PYCOMP(KSUSY1+11),1) + XXM(12)=UMIX(2,1)*UMIX(1,1) + IF( XXM(11).LT.AXMI ) THEN + XXM(11)=1D6 + ENDIF + IF(AXMI.GE.AXMJ+2D0*PMAS(12,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=C1**2/XMI3/(16D0*PI)* + & PYGAUS(PYXXZ2,S12MIN,S12MAX,PREC) + IDLAM(LKNT,1)=KFCCHI(1) + IDLAM(LKNT,2)=12 + IDLAM(LKNT,3)=-12 + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFCCHI(1) + IDLAM(LKNT,2)=14 + IDLAM(LKNT,3)=-14 + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFCCHI(1) + IDLAM(LKNT,2)=16 + IDLAM(LKNT,3)=-16 + ENDIF + +C...D-TYPE QUARKS + 110 CONTINUE + XXM(7)= (-0.5D0+XW/3D0)/(1D0-XW) + XXM(8)= XW/3D0/(1D0-XW) + XXM(11)=PMAS(PYCOMP(KSUSY1+2),1) + XXM(12)=VMIX(2,1)*VMIX(1,1) + IF( XXM(11).LT.AXMI ) GOTO 120 + IF(AXMI.GE.AXMJ+2D0*PMAS(1,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=3D0*C1**2/XMI3/(16D0*PI)* + & PYGAUS(PYXXZ2,S12MIN,S12MAX,PREC) + IDLAM(LKNT,1)=KFCCHI(1) + IDLAM(LKNT,2)=1 + IDLAM(LKNT,3)=-1 + IF(AXMI.GE.AXMJ+2D0*PMAS(3,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFCCHI(1) + IDLAM(LKNT,2)=3 + IDLAM(LKNT,3)=-3 + IF(AXMI.GE.AXMJ+2D0*PMAS(5,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFCCHI(1) + IDLAM(LKNT,2)=5 + IDLAM(LKNT,3)=-5 + ENDIF + ENDIF + ENDIF + +C...U-TYPE QUARKS + 120 CONTINUE + XXM(7)= (0.5D0-2D0*XW/3D0)/(1D0-XW) + XXM(8)= -2D0*XW/3D0/(1D0-XW) + XXM(11)=PMAS(PYCOMP(KSUSY1+1),1) + XXM(12)=UMIX(2,1)*UMIX(1,1) + IF( XXM(11).LT.AXMI ) GOTO 130 + IF(AXMI.GE.AXMJ+2D0*PMAS(2,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=3D0*C1**2/XMI3/(16D0*PI)* + & PYGAUS(PYXXZ2,S12MIN,S12MAX,PREC) + IDLAM(LKNT,1)=KFCCHI(1) + IDLAM(LKNT,2)=2 + IDLAM(LKNT,3)=-2 + IF(AXMI.GE.AXMJ+2D0*PMAS(4,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFCCHI(1) + IDLAM(LKNT,2)=4 + IDLAM(LKNT,3)=-4 + ENDIF + ENDIF + 130 CONTINUE + ENDIF + +C...CHI_2+ -> CHI_1+ + H0_K + EH(2)=COS(ALFA) + EH(1)=SIN(ALFA) + EH(3)=-SBETA + DH(2)=-SIN(ALFA) + DH(1)=COS(ALFA) + DH(3)=COS(BETA) + DO 140 IH=1,3 + XMH=PMAS(ITH(IH),1) + XMH2=XMH**2 +C...NO 3-BODY OPTION + IF(AXMI.GE.AXMJ+XMH) THEN + LKNT=LKNT+1 + XL=PYLAMF(XMI2,XMJ2,XMH2) + F21K=(VMIX(2,1)*UMIX(1,2)*EH(IH) - + & VMIX(2,2)*UMIX(1,1)*DH(IH))/SR2 + F12K=(VMIX(1,1)*UMIX(2,2)*EH(IH) - + & VMIX(1,2)*UMIX(2,1)*DH(IH))/SR2 + XMK=XMJ*ETAH(IH) + XLAM(LKNT)=PYX2XH(C1,XMI,XMK,XMH,F12K,F21K) + IDLAM(LKNT,1)=KFCCHI(1) + IDLAM(LKNT,2)=ITH(IH) + IDLAM(LKNT,3)=0 + ENDIF + 140 CONTINUE + +C...CHI1 JUMPS TO HERE + 150 CONTINUE + +C...CHI+_I -> CHI0_J + W+ + DO 180 IJ=1,4 + XMJ=SMZ(IJ) + AXMJ=ABS(XMJ) + XMJ2=XMJ**2 + IF(AXMI.GE.AXMJ+XMW) THEN + LKNT=LKNT+1 + GL=ZMIX(IJ,2)*VMIX(IX,1)-ZMIX(IJ,4)*VMIX(IX,2)/SR2 + GR=ZMIX(IJ,2)*UMIX(IX,1)+ZMIX(IJ,3)*UMIX(IX,2)/SR2 + XLAM(LKNT)=PYX2XG(C1/XMW2,XMI,XMJ,XMW,GL,GR) + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=24 + IDLAM(LKNT,3)=0 + +C...LEPTONS + ELSEIF(AXMI.GE.AXMJ) THEN + XMF1=0D0 + XMF2=0D0 + S12MIN=(XMF1+XMF2)**2 + S12MAX=(AXMJ-AXMI)**2 + XXM(5)=-1D0/SR2*ZMIX(IJ,4)*VMIX(IX,2)+ZMIX(IJ,2)*VMIX(IX,1) + XXM(6)= 1D0/SR2*ZMIX(IJ,3)*UMIX(IX,2)+ZMIX(IJ,2)*UMIX(IX,1) + FID=11 + EI=KCHG(FID,1)/3D0 + T3=-0.5D0 + XXM(7)=-SR2*(T3*ZMIX(IJ,2)-TANW*(T3-EI)*ZMIX(IJ,1))*UMIX(IX,1) + FID=12 + EI=KCHG(FID,1)/3D0 + T3=0.5D0 + XXM(8)=-SR2*(T3*ZMIX(IJ,2)-TANW*(T3-EI)*ZMIX(IJ,1))*VMIX(IX,1) + + XXM(4)=XMI + XXM(1)=XMF1 + XXM(2)=XMJ + XXM(3)=XMF2 + XXM(9)=PMAS(24,1) + XXM(10)=PMAS(24,2) + XXM(11)=PMAS(PYCOMP(KSUSY1+11),1) + XXM(12)=PMAS(PYCOMP(KSUSY1+12),1) + +C...1/(2PI)**3*/(32*M**3)*G^4, G^2/(4*PI)= AEM/XW, +C...--> 1/(16PI)/M**3*(AEM/XW)**2 + + IF(XXM(11).LT.AXMI) THEN + XXM(11)=1D6 + ENDIF + IF(XXM(12).LT.AXMI) THEN + XXM(12)=1D6 + ENDIF + IF(AXMI.GE.AXMJ+PMAS(11,1)+PMAS(12,1)) THEN + LKNT=LKNT+1 + TEMP=PYGAUS(PYXXW5,S12MIN,S12MAX,PREC) + XLAM(LKNT)=C1**2/XMI3/(16D0*PI)*TEMP + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=-11 + IDLAM(LKNT,3)=12 + +C...ONLY DECAY CHI+1 -> E+ NU_E + IF( IMSS(12).NE. 0 ) GOTO 220 + IF(AXMI.GE.AXMJ+PMAS(13,1)+PMAS(14,1)) THEN + LKNT=LKNT+1 + XXM(11)=PMAS(PYCOMP(KSUSY1+13),1) + XXM(12)=PMAS(PYCOMP(KSUSY1+14),1) + IF(XXM(11).LT.AXMI) THEN + XXM(11)=1D6 + ELSEIF(XXM(12).LT.AXMI) THEN + XXM(12)=1D6 + ENDIF + TEMP=PYGAUS(PYXXW5,S12MIN,S12MAX,PREC) + XLAM(LKNT)=C1**2/XMI3/(16D0*PI)*TEMP + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=-13 + IDLAM(LKNT,3)=14 + IF(AXMI.GE.AXMJ+PMAS(15,1)+PMAS(16,1)) THEN + LKNT=LKNT+1 + IF(ABS(SFMIX(15,1)).GT.ABS(SFMIX(15,2))) THEN + XXM(11)=PMAS(PYCOMP(KSUSY1+15),1) + ELSE + XXM(11)=PMAS(PYCOMP(KSUSY2+15),1) + ENDIF + XXM(12)=PMAS(PYCOMP(KSUSY1+16),1) + IF(XXM(11).LT.AXMI) THEN + XXM(11)=1D6 + ENDIF + IF(XXM(12).LT.AXMI) THEN + XXM(12)=1D6 + ENDIF + TEMP=PYGAUS(PYXXW5,S12MIN,S12MAX,PREC) + XLAM(LKNT)=C1**2/XMI3/(16D0*PI)*TEMP + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=-15 + IDLAM(LKNT,3)=16 + ENDIF + ENDIF + ENDIF + +C...NOW, DO THE QUARKS + 160 CONTINUE + FID=1 + EI=KCHG(FID,1)/3D0 + T3=-0.5D0 + XXM(7)=-SR2*(T3*ZMIX(IJ,2)-TANW*(T3-EI)*ZMIX(IJ,1))*UMIX(IX,1) + FID=1 + EI=KCHG(FID,1)/3D0 + T3=0.5D0 + XXM(8)=-SR2*(T3*ZMIX(IJ,2)-TANW*(T3-EI)*ZMIX(IJ,1))*VMIX(IX,1) + + XXM(11)=PMAS(PYCOMP(KSUSY1+1),1) + XXM(12)=PMAS(PYCOMP(KSUSY1+2),1) + IF( XXM(11).LT.AXMI .AND. XXM(12).LT.AXMI ) GOTO 170 + IF(XXM(11).LT.AXMI) THEN + XXM(11)=1D6 + ELSEIF(XXM(12).LT.AXMI) THEN + XXM(12)=1D6 + ENDIF + IF(AXMI.GE.AXMJ+PMAS(1,1)+PMAS(2,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=3D0*C1**2/XMI3/(16D0*PI)* + & PYGAUS(PYXXW5,S12MIN,S12MAX,PREC) + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=-1 + IDLAM(LKNT,3)=2 + IF(AXMI.GE.AXMJ+PMAS(3,1)+PMAS(4,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=-3 + IDLAM(LKNT,3)=4 + ENDIF + ENDIF + 170 CONTINUE + ENDIF + 180 CONTINUE + +C...CHI+_I -> CHI0_J + H+ + DO 190 IJ=1,4 + XMJ=SMZ(IJ) + AXMJ=ABS(XMJ) + XMJ2=XMJ**2 + XMHP=PMAS(ITHC,1) + XMHP2=XMHP**2 + IF(AXMI.GE.AXMJ+XMHP) THEN + LKNT=LKNT+1 + GL=CBETA*(ZMIX(IJ,4)*VMIX(IX,1)+(ZMIX(IJ,2)+ + & ZMIX(IJ,1)*TANW)*VMIX(IX,2)/SR2) + GR=SBETA*(ZMIX(IJ,3)*UMIX(IX,1)-(ZMIX(IJ,2)+ + & ZMIX(IJ,1)*TANW)*UMIX(IX,2)/SR2) + XLAM(LKNT)=PYX2XH(C1,XMI,XMJ,XMHP,GL,GR) + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=ITHC + IDLAM(LKNT,3)=0 + ELSE + + ENDIF + 190 CONTINUE + +C...2-BODY DECAYS TO FERMION SFERMION + DO 200 J=1,16 + IF(J.GE.7.AND.J.LE.10) GOTO 200 + IF(MOD(J,2).EQ.0) THEN + KF1=KSUSY1+J-1 + ELSE + KF1=KSUSY1+J+1 + ENDIF + KF2=KF1+KSUSY1 + XMSF1=PMAS(PYCOMP(KF1),1) + XMSF2=PMAS(PYCOMP(KF2),1) + XMF=PMAS(J,1) + IF(J.LE.6) THEN + FCOL=3D0 + ELSE + FCOL=1D0 + ENDIF + +C...U~ D_L + IF(MOD(J,2).EQ.0) THEN + XMFP=PMAS(J-1,1) + AL=UMIX(IX,1) + BL=-XMF*VMIX(IX,2)/XMW/SBETA/SR2 + AR=-XMFP*UMIX(IX,2)/XMW/CBETA/SR2 + BR=0D0 + ISF=J-1 + ELSE + XMFP=PMAS(J+1,1) + AL=VMIX(IX,1) + BL=-XMF*UMIX(IX,2)/XMW/CBETA/SR2 + BR=0D0 + AR=-XMFP*VMIX(IX,2)/XMW/SBETA/SR2 + ISF=J+1 + ENDIF + +C...~U_L D + IF(AXMI.GE.XMF+XMSF1) THEN + LKNT=LKNT+1 + XMA2=XMSF1**2 + XMB2=XMF**2 + XL=PYLAMF(XMI2,XMA2,XMB2) + CA=AL*SFMIX(ISF,1)+AR*SFMIX(ISF,2) + CB=BL*SFMIX(ISF,1)+BR*SFMIX(ISF,2) + XLAM(LKNT)=FCOL*C1/8D0/XMI3*SQRT(XL)*( (XMI2+XMB2-XMA2)* + & (CA**2+CB**2)+4D0*CA*CB*XMF*XMI) + IDLAM(LKNT,3)=0 + IF(MOD(J,2).EQ.0) THEN + IDLAM(LKNT,1)=-KF1 + IDLAM(LKNT,2)=J + ELSE + IDLAM(LKNT,1)=KF1 + IDLAM(LKNT,2)=-J + ENDIF + ENDIF + +C...U~ D_R + IF(AXMI.GE.XMF+XMSF2) THEN + LKNT=LKNT+1 + XMA2=XMSF2**2 + XMB2=XMF**2 + CA=AL*SFMIX(ISF,3)+AR*SFMIX(ISF,4) + CB=BL*SFMIX(ISF,3)+BR*SFMIX(ISF,4) + XL=PYLAMF(XMI2,XMA2,XMB2) + XLAM(LKNT)=FCOL*C1/8D0/XMI3*SQRT(XL)*( (XMI2+XMB2-XMA2)* + & (CA**2+CB**2)+4D0*CA*CB*XMF*XMI) + IDLAM(LKNT,3)=0 + IF(MOD(J,2).EQ.0) THEN + IDLAM(LKNT,1)=-KF2 + IDLAM(LKNT,2)=J + ELSE + IDLAM(LKNT,1)=KF2 + IDLAM(LKNT,2)=-J + ENDIF + ENDIF + 200 CONTINUE + +C...3-BODY DECAY TO Q Q~' GLUINO, ONLY IF IT CANNOT PROCEED THROUGH +C...A 2-BODY -- 2-BODY CHAIN + XMJ=PMAS(PYCOMP(KSUSY1+21),1) + IF(AXMI.GE.XMJ) THEN + AXMJ=ABS(XMJ) + S12MIN=0D0 + S12MAX=(AXMI-AXMJ)**2 + XXM(1)=0D0 + XXM(2)=XMJ + XXM(3)=0D0 + XXM(4)=XMI + XXM(5)=0D0 + XXM(6)=0D0 + XXM(9)=1D6 + XXM(10)=0D0 + XXM(7)=UMIX(IX,1)*SR2 + XXM(8)=VMIX(IX,1)*SR2 + XXM(11)=PMAS(PYCOMP(KSUSY1+1),1) + XXM(12)=PMAS(PYCOMP(KSUSY1+2),1) + IF( XXM(11).LT.AXMI .OR. XXM(12).LT.AXMI ) GOTO 210 + IF(AXMI.GE.AXMJ+PMAS(1,1)+PMAS(2,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=4D0*C1*AS/XMI3/(16D0*PI)* + & PYGAUS(PYXXW5,S12MIN,S12MAX,PREC) + IDLAM(LKNT,1)=KSUSY1+21 + IDLAM(LKNT,2)=-1 + IDLAM(LKNT,3)=2 + IF(AXMI.GE.AXMJ+PMAS(3,1)+PMAS(4,1)) THEN + LKNT=LKNT+1 + XLAM(LKNT)=XLAM(LKNT-1) + IDLAM(LKNT,1)=KSUSY1+21 + IDLAM(LKNT,2)=-3 + IDLAM(LKNT,3)=4 + ENDIF + ENDIF + 210 CONTINUE + ENDIF + + 220 IKNT=LKNT + XLAM(0)=0D0 + DO 230 I=1,IKNT + XLAM(0)=XLAM(0)+XLAM(I) + IF(XLAM(I).LT.0D0) THEN + WRITE(MSTU(11),*) ' XLAM(I) = ',XLAM(I),KCIN, + & (IDLAM(I,J),J=1,3) + XLAM(I)=0D0 + ENDIF + 230 CONTINUE + IF(XLAM(0).EQ.0D0) THEN + XLAM(0)=1D-6 + WRITE(MSTU(11),*) ' XLAM(0) = ',XLAM(0) + WRITE(MSTU(11),*) LKNT + WRITE(MSTU(11),*) (XLAM(J),J=1,LKNT) + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYXXZ5 +C...Calculates chi0 -> chi0 + f + ~f. + + FUNCTION PYXXZ5(X) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYINTS/XXM(20) + SAVE /PYDAT1/,/PYINTS/ + +C...Local variables. + DOUBLE PRECISION PYXXZ5,X + DOUBLE PRECISION XM12,XM22,XM32,S,S23,S13,WPROP2 + DOUBLE PRECISION WW,WF1,WF2,WFL1,WFL2 + DOUBLE PRECISION SIJ + DOUBLE PRECISION SR2,OL,OR,FLD,FLU,XMV,XMG,XMSU,XMSD + DOUBLE PRECISION LE,RE,LE2,RE2,OL2,OR2,FLI,FLJ,FRI,FRJ + DOUBLE PRECISION S23MIN,S23MAX,S23AVE,S23DEL + INTEGER I + DATA SR2/1.4142136D0/ + +C...Statement functions. +C...Integral from x to y of (t-a)(b-t) dt. + TINT(X,Y,A,B)=(X-Y)*(-(X**2+X*Y+Y**2)/3D0+(B+A)*(X+Y)/2D0-A*B) +C...Integral from x to y of (t-a)(b-t)/(t-c) dt. + TINT2(X,Y,A,B,C)=(X-Y)*(-0.5D0*(X+Y)+(B+A-C))- + &LOG(ABS((X-C)/(Y-C)))*(C-B)*(C-A) +C...Integral from x to y of (t-a)(b-t)/(t-c)**2 dt. + TINT3(X,Y,A,B,C)=-(X-Y)+(C-A)*(C-B)*(Y-X)/(X-C)/(Y-C)+ + &(B+A-2D0*C)*LOG(ABS((X-C)/(Y-C))) +C...Integral from x to y of (t-a)/(b-t) dt. + UTINT(X,Y,A,B)=LOG(ABS((X-A)/(B-X)*(B-Y)/(Y-A)))/(B-A) +C...Integral from x to y of 1/(t-a) dt. + TPROP(X,Y,A)=LOG(ABS((X-A)/(Y-A))) + + XM12=XXM(1)**2 + XM22=XXM(2)**2 + XM32=XXM(3)**2 + S=XXM(4)**2 + S13=X + + S23AVE=XM22+XM32-0.5D0/X*(X+XM32-XM12)*(X+XM22-S) + S23DEL=0.5D0/X*SQRT( ( (X-XM12-XM32)**2-4D0*XM12*XM32)* + &( (X-XM22-S)**2 -4D0*XM22*S ) ) + + S23MIN=(S23AVE-S23DEL) + S23MAX=(S23AVE+S23DEL) + + XMV=XXM(7) + XMG=XXM(8) + XMSD=XXM(5)**2 + XMSU=XXM(6)**2 + OL=XXM(9) + OR=XXM(10) + OL2=OL**2 + OR2=OR**2 + LE=XXM(11) + RE=XXM(12) + LE2=LE**2 + RE2=RE**2 + FLI=XXM(13) + FLJ=XXM(14) + FRI=XXM(15) + FRJ=XXM(16) + + WPROP2=(S13-XMV**2)**2+(XMV*XMG)**2 + SIJ=2D0*XXM(2)*XXM(4)*S13 + + IF(XMV.LE.1000D0) THEN + WW=2D0*(LE2+RE2)*(OL2)*( 2D0*TINT(S23MAX,S23MIN,XM22,S) + & +SIJ*(S23MAX-S23MIN) )/WPROP2 + IF(XXM(5).LE.10000D0) THEN + WFL1=2D0*FLI*FLJ*OL*LE*( 2D0*TINT2(S23MAX,S23MIN,XM22,S,XMSD) + & + SIJ*TPROP(S23MAX,S23MIN,XMSD) ) + WFL1=WFL1*(S13-XMV**2)/WPROP2 + ELSE + WFL1=0D0 + ENDIF + IF(XXM(6).LE.10000D0) THEN + WFL2=2D0*FRI*FRJ*OR*RE*( 2D0*TINT2(S23MAX,S23MIN,XM22,S,XMSU) + & + SIJ*TPROP(S23MAX,S23MIN,XMSU) ) + WFL2=WFL2*(S13-XMV**2)/WPROP2 + ELSE + WFL2=0D0 + ENDIF + ELSE + WW=0D0 + WFL1=0D0 + WFL2=0D0 + ENDIF + IF(XXM(5).LE.10000D0) THEN + WF1=0.5D0*(FLI*FLJ)**2*( 2D0*TINT3(S23MAX,S23MIN,XM22,S,XMSD) + & + SIJ*UTINT(S23MAX,S23MIN,XMSD,XM22+S-S13-XMSD) ) + ELSE + WF1=0D0 + ENDIF + IF(XXM(6).LE.10000D0) THEN + WF2=0.5D0*(FRI*FRJ)**2*( 2D0*TINT3(S23MAX,S23MIN,XM22,S,XMSU) + & + SIJ*UTINT(S23MAX,S23MIN,XMSU,XM22+S-S13-XMSU) ) + ELSE + WF2=0D0 + ENDIF + +C...WFL1=0.0 +C...WFL2=0.0 + PYXXZ5=(WW+WF1+WF2+WFL1+WFL2) + IF(PYXXZ5.LT.0D0) THEN + WRITE(MSTU(11),*) ' NEGATIVE WT IN PYXXZ5 ' + WRITE(MSTU(11),*) XXM(1),XXM(2),XXM(3),XXM(4) + WRITE(MSTU(11),*) (XXM(I),I=5,8) + WRITE(MSTU(11),*) (XXM(I),I=9,12) + WRITE(MSTU(11),*) (XXM(I),I=13,16) + WRITE(MSTU(11),*) WW,WF1,WF2,WFL1,WFL2 + WRITE(MSTU(11),*) S23MIN,S23MAX + PYXXZ5=0D0 + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYXXW5 +C...Calculates chi0(+) -> chi+(0) + f + ~f'. + + FUNCTION PYXXW5(X) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYINTS/XXM(20) + SAVE /PYDAT1/,/PYINTS/ + +C...Local variables. + DOUBLE PRECISION PYXXW5,X + DOUBLE PRECISION XM12,XM22,XM32,S,S23,S13,S12,WPROP2 + DOUBLE PRECISION WW,WU,WD,WWU,WWD,WUD + DOUBLE PRECISION SR2,OL,OR,FLD,FLU,XMV,XMG,XMSD,XMSU + DOUBLE PRECISION SIJ + DOUBLE PRECISION S23MIN,S23MAX,S23AVE,S23DEL + INTEGER IK + SAVE IK + DATA IK/0/ + DATA SR2/1.4142136D0/ + +C...Statement functions. +C...Integral from x to y of (t-a)(b-t) dt. + TINT(X,Y,A,B)=(X-Y)*(-(X**2+X*Y+Y**2)/3D0+(B+A)*(X+Y)/2D0-A*B) +C...Integral from x to y of (t-a)(b-t)/(t-c) dt. + TINT2(X,Y,A,B,C)=(X-Y)*(-0.5D0*(X+Y)+(B+A-C))- + &LOG(ABS((X-C)/(Y-C)))*(C-B)*(C-A) +C...Integral from x to y of (t-a)(b-t)/(t-c)**2 dt. + TINT3(X,Y,A,B,C)=-(X-Y)+(C-A)*(C-B)*(Y-X)/(X-C)/(Y-C)+ + &(B+A-2D0*C)*LOG(ABS((X-C)/(Y-C))) +C...Integral from x to y of (t-a)/(b-t) dt. + UTINT(X,Y,A,B)=LOG(ABS((X-A)/(B-X)*(B-Y)/(Y-A)))/(B-A) +C...Integral from x to y of 1/(t-a) dt. + TPROP(X,Y,A)=LOG(ABS((X-A)/(Y-A))) + + XM12=XXM(1)**2 + XM22=XXM(2)**2 + XM32=XXM(3)**2 + S=XXM(4)**2 + S13=X + IF(XXM(1).EQ.0.AND.XXM(3).EQ.0D0) THEN + S23AVE=0.5D0*(XM22+S-S13) + S23DEL=0.5D0*SQRT( (X-XM22-S)**2-4D0*XM22*S ) + ELSE + S23AVE=XM22+XM32-0.5D0/X*(X+XM32-XM12)*(X+XM22-S) + S23DEL=0.5D0/X*SQRT( ( (X-XM12-XM32)**2-4D0*XM12*XM32)* + & ( (X-XM22-S)**2 -4D0*XM22*S ) ) + ENDIF + S23MIN=(S23AVE-S23DEL) + S23MAX=(S23AVE+S23DEL) + IF(S23DEL.LT.1D-3) THEN + PYXXW5=0D0 + RETURN + ENDIF + XMV=XXM(9) + XMG=XXM(10) + XMSD=XXM(11)**2 + XMSU=XXM(12)**2 + OL=XXM(5) + OR=XXM(6) + FLD=XXM(7) + FLU=XXM(8) + + WPROP2=((S13-XMV**2)**2+(XMV*XMG)**2) + SIJ=S13*XXM(2)*XXM(4) + IF(XMV.LE.1000D0) THEN + WW=(OR**2+OL**2)*TINT(S23MAX,S23MIN,XM22,S) + & -2D0*OL*OR*SIJ*(S23MAX-S23MIN) + WW=WW/WPROP2 + IF(XXM(11).LE.10000D0) THEN + WWD=OL*SIJ*TPROP(S23MAX,S23MIN,XMSD) + & -OR*TINT2(S23MAX,S23MIN,XM22,S,XMSD) + WWD=-WWD*SR2*FLD + WWD=WWD*(S13-XMV**2)/WPROP2 + ELSE + WWD=0D0 + ENDIF + IF(XXM(12).LE.10000D0) THEN + WWU=OR*SIJ*TPROP(S23MAX,S23MIN,XMSU) + & -OL*TINT2(S23MAX,S23MIN,XM22,S,XMSU) + WWU=WWU*SR2*FLU + WWU=WWU*(S13-XMV**2)/WPROP2 + ELSE + WWU=0D0 + ENDIF + ELSE + WW=0D0 + WWD=0D0 + WWU=0D0 + ENDIF + IF(XXM(12).LE.10000D0) THEN + WU=0.5D0*FLU**2*TINT3(S23MAX,S23MIN,XM22,S,XMSU) + ELSE + WU=0D0 + ENDIF + IF(XXM(11).LE.10000D0) THEN + WD=0.5D0*FLD**2*TINT3(S23MAX,S23MIN,XM22,S,XMSD) + ELSE + WD=0D0 + ENDIF + IF(XXM(11).LE.10000D0.AND.XXM(12).LE.10000D0) THEN + WUD=FLU*FLD*SIJ*UTINT(S23MAX,S23MIN,XMSD,XM22+S-S13-XMSU) + ELSE + WUD=0D0 + ENDIF + + PYXXW5=WW+WU+WD+WWU+WWD+WUD + + IF(PYXXW5.LT.0D0) THEN + IF(IK.EQ.0) THEN + WRITE(MSTU(11),*) ' NEGATIVE WT IN PYXXW5 ' + WRITE(MSTU(11),*) WW,WU,WD + WRITE(MSTU(11),*) WWD,WWU,WUD + WRITE(MSTU(11),*) SQRT(S13) + WRITE(MSTU(11),*) TINT(S23MAX,S23MIN,XM22,S) + IK=1 + ENDIF + PYXXW5=0D0 + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYXXGA +C...Calculates chi0_i -> chi0_j + gamma. + + FUNCTION PYXXGA(C0,XM1,XM2,XMTR,XMTL) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP + +C...Local variables. + DOUBLE PRECISION PYXXGA,C0,XM1,XM2,XMTR,XMTL + DOUBLE PRECISION F1,F2 + + F1=(1D0+XMTR/(1D0-XMTR)*LOG(XMTR))/(1D0-XMTR) + F2=(1D0+XMTL/(1D0-XMTL)*LOG(XMTL))/(1D0-XMTL) + PYXXGA=C0*((XM1**2-XM2**2)/XM1)**3 + PYXXGA=PYXXGA*(2D0/3D0*(F1+F2)-13D0/12D0)**2 + + RETURN + END + +C********************************************************************* + +C...PYX2XG +C...Calculates the decay rate for ino -> ino + gauge boson. + + FUNCTION PYX2XG(C1,XM1,XM2,XM3,GL,GR) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP + +C...Local variables. + DOUBLE PRECISION PYX2XG,XM1,XM2,XM3,GL,GR + DOUBLE PRECISION XL,PYLAMF,C1 + DOUBLE PRECISION XMI2,XMJ2,XMV2,XMI3 + + XMI2=XM1**2 + XMI3=ABS(XM1**3) + XMJ2=XM2**2 + XMV2=XM3**2 + XL=PYLAMF(XMI2,XMJ2,XMV2) + PYX2XG=C1/8D0/XMI3*SQRT(XL) + &*((GL**2+GR**2)*(XL+3D0*XMV2*(XMI2+XMJ2-XMV2))- + &12D0*GL*GR*XM1*XM2*XMV2) + + RETURN + END + +C********************************************************************* + +C...PYX2XH +C...Calculates the decay rate for ino -> ino + H. + + FUNCTION PYX2XH(C1,XM1,XM2,XM3,GL,GR) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP + +C...Local variables. + DOUBLE PRECISION PYX2XH,XM1,XM2,XM3,GL,GR + DOUBLE PRECISION XL,PYLAMF,C1 + DOUBLE PRECISION XMI2,XMJ2,XMV2,XMI3 + + XMI2=XM1**2 + XMI3=ABS(XM1**3) + XMJ2=XM2**2 + XMV2=XM3**2 + XL=PYLAMF(XMI2,XMJ2,XMV2) + PYX2XH=C1/8D0/XMI3*SQRT(XL) + &*((GL**2+GR**2)*(XMI2+XMJ2-XMV2)+ + &4D0*GL*GR*XM1*XM2) + + RETURN + END + +C********************************************************************* + +C...PYXXZ2 +C...Calculates chi+ -> chi+ + f + ~f. + + FUNCTION PYXXZ2(X) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYINTS/XXM(20) + SAVE /PYDAT1/,/PYINTS/ + +C...Local variables. + DOUBLE PRECISION PYXXZ2,X + DOUBLE PRECISION XM12,XM22,XM32,S,S23,S13,S12,WPROP2 + DOUBLE PRECISION WW,WU,WD,WWU,WWD,WUD + DOUBLE PRECISION SR2,OL,OR,FLD,FLU,XMV,XMG,XMSL + DOUBLE PRECISION SIJ + DOUBLE PRECISION LE,RE,LE2,RE2,OL2,OR2,CT + DOUBLE PRECISION S23MIN,S23MAX,S23AVE,S23DEL + INTEGER I + DATA SR2/1.4142136D0/ + +C...Statement functions. +C...Integral from x to y of (t-a)(b-t) dt. + TINT(X,Y,A,B)=(X-Y)*(-(X**2+X*Y+Y**2)/3D0+(B+A)*(X+Y)/2D0-A*B) +C...Integral from x to y of (t-a)(b-t)/(t-c) dt. + TINT2(X,Y,A,B,C)=(X-Y)*(-0.5D0*(X+Y)+(B+A-C))- + &LOG(ABS((X-C)/(Y-C)))*(C-B)*(C-A) +C...Integral from x to y of (t-a)(b-t)/(t-c)**2 dt. + TINT3(X,Y,A,B,C)=-(X-Y)+(C-A)*(C-B)*(Y-X)/(X-C)/(Y-C)+ + &(B+A-2D0*C)*LOG(ABS((X-C)/(Y-C))) +C...Integral from x to y of 1/(t-a) dt. + TPROP(X,Y,A)=LOG(ABS((X-A)/(Y-A))) + + XM12=XXM(1)**2 + XM22=XXM(2)**2 + XM32=XXM(3)**2 + S=XXM(4)**2 + S13=X + IF(XXM(1).EQ.0.AND.XXM(3).EQ.0D0) THEN + S23AVE=0.5D0*(XM22+S-S13) + S23DEL=0.5D0*SQRT( (X-XM22-S)**2-4D0*XM22*S ) + ELSE + S23AVE=XM22+XM32-0.5D0/X*(X+XM32-XM12)*(X+XM22-S) + S23DEL=0.5D0/X*SQRT( ( (X-XM12-XM32)**2-4D0*XM12*XM32)* + & ( (X-XM22-S)**2 -4D0*XM22*S ) ) + ENDIF + S23MIN=(S23AVE-S23DEL) + S23MAX=(S23AVE+S23DEL) + IF(S23DEL.LT.1D-3) THEN + PYXXZ2=0D0 + RETURN + ENDIF + + XMV=XXM(9) + XMG=XXM(10) + XMSL=XXM(11)**2 + OL=XXM(5) + OR=XXM(6) + OL2=OL**2 + OR2=OR**2 + LE=XXM(7) + RE=XXM(8) + LE2=LE**2 + RE2=RE**2 + CT=XXM(12) + + WPROP2=(S13-XMV**2)**2+(XMV*XMG)**2 + SIJ=XXM(2)*XXM(4)*S13 + WW=(LE2+RE2)*(OR2+OL2)*2D0*TINT(S23MAX,S23MIN,XM22,S) + &- 4D0*(LE2+RE2)*OL*OR*SIJ*(S23MAX-S23MIN) + WW=WW/WPROP2 + IF(XMSL.GT.1D4*S) THEN + WD=0D0 + WWD=0D0 + ELSE + WD=0.5D0*CT**2*TINT3(S23MAX,S23MIN,XM22,S,XMSL) + WWD=OL*TINT2(S23MAX,S23MIN,XM22,S,XMSL)- + & OR*SIJ*TPROP(S23MAX,S23MIN,XMSL) + WWD=2D0*WWD*LE*CT*(S13-XMV**2)/WPROP2 + ENDIF + + PYXXZ2=(WW+WD+WWD) + IF(PYXXZ2.LT.0D0) THEN + WRITE(MSTU(11),*) ' NEGATIVE WT IN PYXXZ2 ' + WRITE(MSTU(11),*) WW,WD,WWD + WRITE(MSTU(11),*) S23MIN,S23MAX + WRITE(MSTU(11),*) (XXM(I),I=1,4) + WRITE(MSTU(11),*) (XXM(I),I=5,8) + WRITE(MSTU(11),*) (XXM(I),I=9,12) + PYXXZ2=0D0 + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYHEXT +C...Calculates the non-standard decay modes of the Higgs boson. + + SUBROUTINE PYHEXT(KFIN,XLAM,IDLAM,IKNT) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2), + &SFMIX(16,4) + SAVE /PYDAT1/,/PYDAT2/,/PYPARS/,/PYMSSM/,/PYSSMT/ + +C...Local variables. + INTEGER KFIN + DOUBLE PRECISION XMI,XMJ,XMF,XMSF1,XMSF2,XMW,XMW2, + &XMZ,XMZ2,AXMJ,AXMI + DOUBLE PRECISION XMFP,XMF1,XMF2,XMSL,XMG + DOUBLE PRECISION S12MIN,S12MAX + DOUBLE PRECISION XMI2,XMI3,XMJ2,XMH,XMH2,XMHP,XMHP2,XMA2,XMB2 + DOUBLE PRECISION PYLAMF,XL,CF,EI + INTEGER IDU,IC,ILR,IFL + DOUBLE PRECISION TANW,XW,AEM,C1,AS + DOUBLE PRECISION PYH2XX,GHLL,GHRR,GHLR + DOUBLE PRECISION XLAM(0:200) + INTEGER IDLAM(200,3) + INTEGER LKNT,IX,IH,J,IJ,I,IKNT,IK + INTEGER ITH(4) + INTEGER KFNCHI(4),KFCCHI(2) + DOUBLE PRECISION ETAH(3),CH(3),DH(3),EH(3) + DOUBLE PRECISION SR2 + DOUBLE PRECISION BETA,ALFA + DOUBLE PRECISION CBETA,SBETA,GR,GL,F12K,F21K,TANB + DOUBLE PRECISION PYALEM,PI,PYALPS + DOUBLE PRECISION AL,BL,AR,BR,ALP,ARP,BLP,BRP,ALR + DOUBLE PRECISION XMK,AXMK,XMK2,COSA,SINA,CW,XML + DOUBLE PRECISION XMUZ,ATRIT,ATRIB,ATRIL + DOUBLE PRECISION XMJL,XMJR,XM1,XM2 + DATA ITH/25,35,36,37/ + DATA ETAH/1D0,1D0,-1D0/ + DATA SR2/1.4142136D0/ + DATA PI/3.141592654D0/ + DATA KFNCHI/1000022,1000023,1000025,1000035/ + DATA KFCCHI/1000024,1000037/ + +C...COUNT THE NUMBER OF DECAY MODES + LKNT=IKNT + + XMW=PMAS(24,1) + XMW2=XMW**2 + XMZ=PMAS(23,1) + XMZ2=XMZ**2 + XW=PARU(102) + TANW = SQRT(XW/(1D0-XW)) + CW=SQRT(1D0-XW) + +C...1 - 4 DEPENDING ON Higgs species. + IH=1 + IF(KFIN.EQ.ITH(2)) IH=2 + IF(KFIN.EQ.ITH(3)) IH=3 + IF(KFIN.EQ.ITH(4)) IH=4 + + XMI=PMAS(KFIN,1) + XMI2=XMI**2 + AXMI=ABS(XMI) + AEM=PYALEM(XMI2) + AS =PYALPS(XMI2) + C1=AEM/XW + XMI3=ABS(XMI**3) + + TANB=RMSS(5) + BETA=ATAN(TANB) + CBETA=COS(BETA) + SBETA=TANB*CBETA + ALFA=RMSS(18) + COSA=COS(ALFA) + SINA=SIN(ALFA) + ATRIT=RMSS(16) + ATRIB=RMSS(15) + ATRIL=RMSS(17) + XMUZ=-RMSS(4) + + IF(IH.EQ.4) GOTO 180 + +C...CHECK ALL 2-BODY DECAYS TO GAUGE AND HIGGS BOSONS +C...H0_K -> CHI0_I + CHI0_J + EH(1)=SINA + EH(2)=COSA + EH(3)=-SBETA + DH(1)=COSA + DH(2)=-SINA + DH(3)=CBETA + DO 110 IJ=1,4 + XMJ=SMZ(IJ) + AXMJ=ABS(XMJ) + DO 100 IK=1,IJ + XMK=SMZ(IK) + AXMK=ABS(XMK) + IF(AXMI.GE.AXMJ+AXMK) THEN + LKNT=LKNT+1 + F21K=0.5D0* + & EH(IH)*( ZMIX(IK,3)*ZMIX(IJ,2)+ZMIX(IJ,3)*ZMIX(IK,2) + & -TANW*(ZMIX(IK,3)*ZMIX(IJ,1)+ZMIX(IJ,3)*ZMIX(IK,1)) )+ + & 0.5D0*DH(IH)*( ZMIX(IK,4)*ZMIX(IJ,2)+ZMIX(IJ,4)*ZMIX(IK,2) + & -TANW*(ZMIX(IK,4)*ZMIX(IJ,1)+ZMIX(IJ,4)*ZMIX(IK,1)) ) + F12K=0.5D0* + & EH(IH)*(ZMIX(IJ,3)*ZMIX(IK,2)+ZMIX(IK,3)*ZMIX(IJ,2) + & -TANW*(ZMIX(IJ,3)*ZMIX(IK,1)+ZMIX(IK,3)*ZMIX(IJ,1)))+ + & 0.5D0*DH(IH)*( ZMIX(IJ,4)*ZMIX(IK,2)+ZMIX(IK,4)*ZMIX(IJ,2) + & -TANW*(ZMIX(IJ,4)*ZMIX(IK,1)+ZMIX(IK,4)*ZMIX(IJ,1)) ) +C...SIGN OF MASSES I,J + XML=XMK*ETAH(IH) + XLAM(LKNT)=PYH2XX(C1,XMI,XMJ,XML,F12K,F21K) + IF(IJ.EQ.IK) XLAM(LKNT)=XLAM(LKNT)*0.5D0 + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=KFNCHI(IK) + IDLAM(LKNT,3)=0 + ENDIF + 100 CONTINUE + 110 CONTINUE + +C...H0_K -> CHI+_I CHI-_J + DO 130 IJ=1,2 + XMJ=SMW(IJ) + AXMJ=ABS(XMJ) + DO 120 IK=1,2 + XMK=SMW(IK) + AXMK=ABS(XMK) + IF(AXMI.GE.AXMJ+AXMK) THEN + LKNT=LKNT+1 + F21K=(VMIX(IJ,1)*UMIX(IK,2)*EH(IH) - + & VMIX(IJ,2)*UMIX(IK,1)*DH(IH))/SR2 + F12K=(VMIX(IK,1)*UMIX(IJ,2)*EH(IH) - + & VMIX(IK,2)*UMIX(IJ,1)*DH(IH))/SR2 + XML=-XMK*ETAH(IH) + XLAM(LKNT)=PYH2XX(C1,XMI,XMJ,XML,F12K,F21K) + IDLAM(LKNT,1)=KFCCHI(IJ) + IDLAM(LKNT,2)=-KFCCHI(IK) + IDLAM(LKNT,3)=0 + ENDIF + 120 CONTINUE + 130 CONTINUE + +C...HIGGS TO SFERMION SFERMION + DO 160 IFL=1,16 + IF(IFL.GE.7.AND.IFL.LE.10) GOTO 160 + IJ=KSUSY1+IFL + XMJL=PMAS(PYCOMP(IJ),1) + XMJR=PMAS(PYCOMP(IJ+KSUSY1),1) + IF(AXMI.GE.2D0*MIN(XMJL,XMJR)) THEN + XMJ=XMJL + XMJ2=XMJ**2 + XL=PYLAMF(XMI2,XMJ2,XMJ2) + XMF=PMAS(IFL,1) + EI=KCHG(IFL,1)/3D0 + IDU=2-MOD(IFL,2) + + IF(IH.EQ.1) THEN + IF(IDU.EQ.1) THEN + GHLL=-XMZ/CW*(0.5D0+EI*XW)*SIN(ALFA+BETA)+ + & XMF**2/XMW*SINA/CBETA + GHRR=XMZ/CW*(EI*XW)*SIN(ALFA+BETA)+ + & XMF**2/XMW*SINA/CBETA + IF(IFL.EQ.5) THEN + GHLR=-XMF/2D0/XMW/CBETA*(XMUZ*COSA- + & ATRIB*SINA) + ELSEIF(IFL.EQ.15) THEN + GHLR=-XMF/2D0/XMW/CBETA*(XMUZ*COSA- + & ATRIL*SINA) + ELSE + GHLR=0D0 + ENDIF + ELSE + GHLL=XMZ/CW*(0.5D0-EI*XW)*SIN(ALFA+BETA)- + & XMF**2/XMW*COSA/SBETA + GHRR=XMZ/CW*(EI*XW)*SIN(ALFA+BETA)- + & XMF**2/XMW*COSA/SBETA + IF(IFL.EQ.6) THEN + GHLR=XMF/2D0/XMW/SBETA*(XMUZ*SINA- + & ATRIT*COSA) + ELSE + GHLR=0D0 + ENDIF + ENDIF + + ELSEIF(IH.EQ.2) THEN + IF(IDU.EQ.1) THEN + GHLL=XMZ/CW*(0.5D0+EI*XW)*COS(ALFA+BETA)- + & XMF**2/XMW*COSA/CBETA + GHRR=-XMZ/CW*(EI*XW)*COS(ALFA+BETA)- + & XMF**2/XMW*COSA/CBETA + IF(IFL.EQ.5) THEN + GHLR=-XMF/2D0/XMW/CBETA*(XMUZ*SINA+ + & ATRIB*COSA) + ELSEIF(IFL.EQ.15) THEN + GHLR=-XMF/2D0/XMW/CBETA*(XMUZ*SINA+ + & ATRIL*COSA) + ELSE + GHLR=0D0 + ENDIF + ELSE + GHLL=-XMZ/CW*(0.5D0-EI*XW)*COS(ALFA+BETA)- + & XMF**2/XMW*SINA/SBETA + GHRR=-XMZ/CW*(EI*XW)*COS(ALFA+BETA)- + & XMF**2/XMW*SINA/SBETA + IF(IFL.EQ.6) THEN + GHLR=-XMF/2D0/XMW/SBETA*(XMUZ*COSA+ + & ATRIT*SINA) + ELSE + GHLR=0D0 + ENDIF + ENDIF + + ELSEIF(IH.EQ.3) THEN + GHLL=0D0 + GHRR=0D0 + GHLR=0D0 + IF(IDU.EQ.1) THEN + IF(IFL.EQ.5) THEN + GHLR=XMF/2D0/XMW*(ATRIB*TANB-XMUZ) + ELSEIF(IFL.EQ.15) THEN + GHLR=XMF/2D0/XMW*(ATRIL*TANB-XMUZ) + ENDIF + ELSE + IF(IFL.EQ.6) THEN + GHLR=XMF/2D0/XMW*(ATRIT/TANB-XMUZ) + ENDIF + ENDIF + ENDIF + IF(IH.EQ.3) GOTO 140 + + AL=SFMIX(IFL,1)**2 + AR=SFMIX(IFL,2)**2 + ALR=SFMIX(IFL,1)*SFMIX(IFL,2) + IF(IFL.LE.6) THEN + CF=3D0 + ELSE + CF=1D0 + ENDIF + + IF(AXMI.GE.2D0*XMJ) THEN + LKNT=LKNT+1 + XLAM(LKNT)=CF*SQRT(XL)/4D0*C1/XMI3* + & (GHLL*AL+GHRR*AR + & +2D0*GHLR*ALR)**2 + IDLAM(LKNT,1)=IJ + IDLAM(LKNT,2)=-IJ + IDLAM(LKNT,3)=0 + ENDIF + + IF(AXMI.GE.2D0*XMJR) THEN + LKNT=LKNT+1 + AL=SFMIX(IFL,3)**2 + AR=SFMIX(IFL,4)**2 + ALR=SFMIX(IFL,3)*SFMIX(IFL,4) + XMJ=XMJR + XMJ2=XMJ**2 + XL=PYLAMF(XMI2,XMJ2,XMJ2) + XLAM(LKNT)=CF*SQRT(XL)/4D0*C1/XMI3* + & (GHLL*AL+GHRR*AR + & +2D0*GHLR*ALR)**2 + IDLAM(LKNT,1)=IJ+KSUSY1 + IDLAM(LKNT,2)=-(IJ+KSUSY1) + IDLAM(LKNT,3)=0 + ENDIF + 140 CONTINUE + + IF(AXMI.GE.XMJL+XMJR) THEN + LKNT=LKNT+1 + AL=SFMIX(IFL,1)*SFMIX(IFL,3) + AR=SFMIX(IFL,2)*SFMIX(IFL,4) + ALR=SFMIX(IFL,1)*SFMIX(IFL,4)+SFMIX(IFL,2)*SFMIX(IFL,3) + XMJ=XMJR + XMJ2=XMJ**2 + XL=PYLAMF(XMI2,XMJ2,XMJL**2) + XLAM(LKNT)=CF*SQRT(XL)/4D0*C1/XMI3* + & (GHLL*AL+GHRR*AR)**2 + IDLAM(LKNT,1)=IJ + IDLAM(LKNT,2)=-(IJ+KSUSY1) + IDLAM(LKNT,3)=0 + LKNT=LKNT+1 + IDLAM(LKNT,1)=-IJ + IDLAM(LKNT,2)=IJ+KSUSY1 + IDLAM(LKNT,3)=0 + XLAM(LKNT)=XLAM(LKNT-1) + ENDIF + ENDIF + 150 CONTINUE + 160 CONTINUE + 170 CONTINUE + + GOTO 230 + 180 CONTINUE + +C...H+ -> CHI+_I + CHI0_J + DO 200 IJ=1,4 + XMJ=SMZ(IJ) + AXMJ=ABS(XMJ) + XMJ2=XMJ**2 + DO 190 IK=1,2 + XMK=SMW(IK) + AXMK=ABS(XMK) + XMK2=XMK**2 + IF(AXMI.GE.AXMJ+AXMK) THEN + LKNT=LKNT+1 + GL=CBETA*(ZMIX(IJ,4)*VMIX(IK,1)+(ZMIX(IJ,2)+ZMIX(IJ,1)* + & TANW)*VMIX(IK,2)/SR2) + GR=SBETA*(ZMIX(IJ,3)*UMIX(IK,1)-(ZMIX(IJ,2)+ZMIX(IJ,1)* + & TANW)*UMIX(IK,2)/SR2) + XLAM(LKNT)=PYH2XX(C1,XMI,XMJ,-XMK,GL,GR) + IDLAM(LKNT,1)=KFNCHI(IJ) + IDLAM(LKNT,2)=KFCCHI(IK) + IDLAM(LKNT,3)=0 + ENDIF + 190 CONTINUE + 200 CONTINUE + + GL=-XMW/SR2*(SIN(2D0*BETA)-PMAS(6,1)**2/TANB/XMW2) + GR=-PMAS(6,1)/SR2/XMW*(XMUZ-ATRIT/TANB) + AL=0D0 + AR=0D0 + CF=3D0 + +C...H+ -> T_1 B_1~ + XM1=PMAS(PYCOMP(KSUSY1+6),1) + XM2=PMAS(PYCOMP(KSUSY1+5),1) + IF(XMI.GE.XM1+XM2) THEN + XL=PYLAMF(XMI2,XM1**2,XM2**2) + LKNT=LKNT+1 + XLAM(LKNT)=CF*SQRT(XL)/4D0*C1/XMI3* + & (GL*SFMIX(6,1)*SFMIX(5,1)+GR*SFMIX(6,2)*SFMIX(5,1))**2 + IDLAM(LKNT,1)=KSUSY1+6 + IDLAM(LKNT,2)=-(KSUSY1+5) + IDLAM(LKNT,3)=0 + ENDIF + +C...H+ -> T_2 B_1~ + XM1=PMAS(PYCOMP(KSUSY2+6),1) + XM2=PMAS(PYCOMP(KSUSY1+5),1) + IF(XMI.GE.XM1+XM2) THEN + XL=PYLAMF(XMI2,XM1**2,XM2**2) + LKNT=LKNT+1 + XLAM(LKNT)=CF*SQRT(XL)/4D0*C1/XMI3* + & (GL*SFMIX(6,3)*SFMIX(5,1)+GR*SFMIX(6,4)*SFMIX(5,1))**2 + IDLAM(LKNT,1)=KSUSY2+6 + IDLAM(LKNT,2)=-(KSUSY1+5) + IDLAM(LKNT,3)=0 + ENDIF + +C...H+ -> T_1 B_2~ + XM1=PMAS(PYCOMP(KSUSY1+6),1) + XM2=PMAS(PYCOMP(KSUSY2+5),1) + IF(XMI.GE.XM1+XM2) THEN + XL=PYLAMF(XMI2,XM1**2,XM2**2) + LKNT=LKNT+1 + XLAM(LKNT)=CF*SQRT(XL)/4D0*C1/XMI3* + & (GL*SFMIX(6,1)*SFMIX(5,3)+GR*SFMIX(6,2)*SFMIX(5,3))**2 + IDLAM(LKNT,1)=KSUSY1+6 + IDLAM(LKNT,2)=-(KSUSY2+5) + IDLAM(LKNT,3)=0 + ENDIF + +C...H+ -> T_2 B_2~ + XM1=PMAS(PYCOMP(KSUSY2+6),1) + XM2=PMAS(PYCOMP(KSUSY2+5),1) + IF(XMI.GE.XM1+XM2) THEN + XL=PYLAMF(XMI2,XM1**2,XM2**2) + LKNT=LKNT+1 + XLAM(LKNT)=CF*SQRT(XL)/4D0*C1/XMI3* + & (GL*SFMIX(6,3)*SFMIX(5,3)+GR*SFMIX(6,4)*SFMIX(5,3))**2 + IDLAM(LKNT,1)=KSUSY2+6 + IDLAM(LKNT,2)=-(KSUSY2+5) + IDLAM(LKNT,3)=0 + ENDIF + +C...H+ -> UL DL~ + GL=-XMW/SR2*SIN(2D0*BETA) + DO 210 IJ=1,3,2 + XM1=PMAS(PYCOMP(KSUSY1+IJ),1) + XM2=PMAS(PYCOMP(KSUSY1+IJ+1),1) + IF(XMI.GE.XM1+XM2) THEN + XL=PYLAMF(XMI2,XM1**2,XM2**2) + LKNT=LKNT+1 + XLAM(LKNT)=CF*SQRT(XL)/4D0*C1/XMI3*(GL)**2 + IDLAM(LKNT,1)=-(KSUSY1+IJ) + IDLAM(LKNT,2)=KSUSY1+IJ+1 + IDLAM(LKNT,3)=0 + ENDIF + 210 CONTINUE + +C...H+ -> EL~ NUL + CF=1D0 + DO 220 IJ=11,13,2 + XM1=PMAS(PYCOMP(KSUSY1+IJ),1) + XM2=PMAS(PYCOMP(KSUSY1+IJ+1),1) + IF(XMI.GE.XM1+XM2) THEN + XL=PYLAMF(XMI2,XM1**2,XM2**2) + LKNT=LKNT+1 + XLAM(LKNT)=CF*SQRT(XL)/4D0*C1/XMI3*(GL)**2 + IDLAM(LKNT,1)=-(KSUSY1+IJ) + IDLAM(LKNT,2)=KSUSY1+IJ+1 + IDLAM(LKNT,3)=0 + ENDIF + 220 CONTINUE + +C...H+ -> TAU1 NUTAUL + XM1=PMAS(PYCOMP(KSUSY1+15),1) + XM2=PMAS(PYCOMP(KSUSY1+16),1) + IF(XMI.GE.XM1+XM2) THEN + XL=PYLAMF(XMI2,XM1**2,XM2**2) + LKNT=LKNT+1 + XLAM(LKNT)=CF*SQRT(XL)/4D0*C1/XMI3*(GL)**2*SFMIX(15,1)**2 + IDLAM(LKNT,1)=-(KSUSY1+15) + IDLAM(LKNT,2)= KSUSY1+16 + IDLAM(LKNT,3)=0 + ENDIF + +C...H+ -> TAU2 NUTAUL + XM1=PMAS(PYCOMP(KSUSY2+15),1) + XM2=PMAS(PYCOMP(KSUSY1+16),1) + IF(XMI.GE.XM1+XM2) THEN + XL=PYLAMF(XMI2,XM1**2,XM2**2) + LKNT=LKNT+1 + XLAM(LKNT)=CF*SQRT(XL)/4D0*C1/XMI3*(GL)**2*SFMIX(15,3)**2 + IDLAM(LKNT,1)=-(KSUSY2+15) + IDLAM(LKNT,2)= KSUSY1+16 + IDLAM(LKNT,3)=0 + ENDIF + + 230 CONTINUE + IKNT=LKNT + XLAM(0)=0D0 + DO 240 I=1,IKNT + IF(XLAM(I).LE.0D0) XLAM(I)=0D0 + XLAM(0)=XLAM(0)+XLAM(I) + 240 CONTINUE + IF(XLAM(0).EQ.0D0) XLAM(0)=1D-6 + + RETURN + END + +C********************************************************************* + +C...PYH2XX +C...Calculates the decay rate for a Higgs to an ino pair. + + FUNCTION PYH2XX(C1,XM1,XM2,XM3,GL,GR) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYDAT1/ + +C...Local variables. + DOUBLE PRECISION PYH2XX,XM1,XM2,XM3,GL,GR + DOUBLE PRECISION XL,PYLAMF,C1 + DOUBLE PRECISION XMI2,XMJ2,XMK2,XMI3 + + XMI2=XM1**2 + XMI3=ABS(XM1**3) + XMJ2=XM2**2 + XMK2=XM3**2 + XL=PYLAMF(XMI2,XMJ2,XMK2) + PYH2XX=C1/4D0/XMI3*SQRT(XL) + &*((GL**2+GR**2)*(XMI2-XMJ2-XMK2)- + &4D0*GL*GR*XM3*XM2) + IF(PYH2XX.LT.0D0) THEN + WRITE(MSTU(11),*) ' NEGATIVE WIDTH IN PYH2XX ' + WRITE(MSTU(11),*) XMI2,XMJ2,XMK2,GL,GR,XM1,XM2,XM3 + STOP + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYGAUS +C...Integration by adaptive Gaussian quadrature. +C...Adapted from the CERNLIB DGAUSS routine by K.S. Kolbig. + + FUNCTION PYGAUS(F, A, B, EPS) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP + +C...Local declarations. + EXTERNAL F + DOUBLE PRECISION F,W(12), X(12) + DATA X( 1) /9.6028985649753623D-1/, W( 1) /1.0122853629037626D-1/ + DATA X( 2) /7.9666647741362674D-1/, W( 2) /2.2238103445337447D-1/ + DATA X( 3) /5.2553240991632899D-1/, W( 3) /3.1370664587788729D-1/ + DATA X( 4) /1.8343464249564980D-1/, W( 4) /3.6268378337836198D-1/ + DATA X( 5) /9.8940093499164993D-1/, W( 5) /2.7152459411754095D-2/ + DATA X( 6) /9.4457502307323258D-1/, W( 6) /6.2253523938647893D-2/ + DATA X( 7) /8.6563120238783174D-1/, W( 7) /9.5158511682492785D-2/ + DATA X( 8) /7.5540440835500303D-1/, W( 8) /1.2462897125553387D-1/ + DATA X( 9) /6.1787624440264375D-1/, W( 9) /1.4959598881657673D-1/ + DATA X(10) /4.5801677765722739D-1/, W(10) /1.6915651939500254D-1/ + DATA X(11) /2.8160355077925891D-1/, W(11) /1.8260341504492359D-1/ + DATA X(12) /9.5012509837637440D-2/, W(12) /1.8945061045506850D-1/ + +C...The Gaussian quadrature algorithm. + H = 0D0 + IF(B .EQ. A) GO TO 140 + CONST = 5D-3 / ABS(B-A) + BB = A + 100 CONTINUE + AA = BB + BB = B + 110 CONTINUE + C1 = 0.5D0*(BB+AA) + C2 = 0.5D0*(BB-AA) + S8 = 0D0 + DO 120 I = 1, 4 + U = C2*X(I) + S8 = S8 + W(I) * (F(C1+U) + F(C1-U)) + 120 CONTINUE + S16 = 0D0 + DO 130 I = 5, 12 + U = C2*X(I) + S16 = S16 + W(I) * (F(C1+U) + F(C1-U)) + 130 CONTINUE + S16 = C2*S16 + IF(DABS(S16-C2*S8) .LE. EPS*(1D0+DABS(S16))) THEN + H = H + S16 + IF(BB .NE. B) GO TO 100 + ELSE + BB = C1 + IF(1D0 + CONST*ABS(C2) .NE. 1D0) GO TO 110 + H = 0D0 + CALL PYERRM(18,'(PYGAUS:) too high accuracy required') + GO TO 140 + ENDIF + 140 CONTINUE + PYGAUS = H + + RETURN + END + +C********************************************************************* + +C...PYSIMP +C...Simpson formula for an integral. + + FUNCTION PYSIMP(Y,X0,X1,N) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP + +C...Local variables. + DOUBLE PRECISION Y,X0,X1,H,S + DIMENSION Y(0:N) + + S=0D0 + H=(X1-X0)/N + DO 100 I=0,N-2,2 + S=S+Y(I)+4D0*Y(I+1)+Y(I+2) + 100 CONTINUE + PYSIMP=S*H/3D0 + + RETURN + END + +C********************************************************************* + +C...PYLAMF +C...The standard lambda function. + + FUNCTION PYLAMF(X,Y,Z) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP + +C...Local variables. + DOUBLE PRECISION PYLAMF,X,Y,Z + + PYLAMF=(X-(Y+Z))**2-4D0*Y*Z + IF(PYLAMF.LT.0D0) PYLAMF=0D0 + + RETURN + END + +C********************************************************************* + +C...PYTBDY +C...Generates 3-body decays of gauginos. + + SUBROUTINE PYTBDY(XM) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYDAT3/,/PYPARS/ + +C...Local variables. + DOUBLE PRECISION XM(5) + DOUBLE PRECISION S12MIN,S12MAX,YJACO1,S23AVE,S23DF1,S23DF2 + DOUBLE PRECISION D1,D2,D3,P1,P2,P3,CTHE1,STHE1,CTHE3,STHE3 + DOUBLE PRECISION CPHI1,SPHI1 + DOUBLE PRECISION S23DEL,EPS + DOUBLE PRECISION GOLDEN,AX,BX,CX,TOL,XMIN,R,C + PARAMETER (R=0.61803399D0,C=1D0-R,TOL=1D-3) + DOUBLE PRECISION F1,F2,X0,X1,X2,X3 + DATA EPS/1D-6/ + +C...GENERATE S12 + S12MIN=(XM(1)+XM(2))**2 + S12MAX=(XM(5)-XM(3))**2 + YJACO1=S12MAX-S12MIN + +C...FIND S12* + AX=S12MIN + CX=S12MAX + BX=S12MIN+0.5D0*YJACO1 + X0=AX + X3=CX + IF(ABS(CX-BX).GT.ABS(BX-AX))THEN + X1=BX + X2=BX+C*(CX-BX) + ELSE + X2=BX + X1=BX-C*(BX-AX) + ENDIF + +C...SOLVE FOR F1 AND F2 + S23DF1=(X1-XM(2)**2-XM(1)**2)**2 + &-(2D0*XM(1)*XM(2))**2 + S23DF2=(X1-XM(3)**2-XM(5)**2)**2 + &-(2D0*XM(3)*XM(5))**2 + S23DF1=S23DF1*EPS + S23DF2=S23DF2*EPS + S23DEL=SQRT(S23DF1*S23DF2)/(2D0*X1) + F1=-2D0*S23DEL/EPS + S23DF1=(X2-XM(2)**2-XM(1)**2)**2 + &-(2D0*XM(1)*XM(2))**2 + S23DF2=(X2-XM(3)**2-XM(5)**2)**2 + &-(2D0*XM(3)*XM(5))**2 + S23DF1=S23DF1*EPS + S23DF2=S23DF2*EPS + S23DEL=SQRT(S23DF1*S23DF2)/(2D0*X2) + F2=-2D0*S23DEL/EPS + + 100 IF(ABS(X3-X0).GT.TOL*(ABS(X1)+ABS(X2)))THEN + IF(F2.LT.F1)THEN + X0=X1 + X1=X2 + X2=R*X1+C*X3 + F1=F2 + S23DF1=(X2-XM(2)**2-XM(1)**2)**2 + & -(2D0*XM(1)*XM(2))**2 + S23DF2=(X2-XM(3)**2-XM(5)**2)**2 + & -(2D0*XM(3)*XM(5))**2 + S23DF1=S23DF1*EPS + S23DF2=S23DF2*EPS + S23DEL=SQRT(S23DF1*S23DF2)/(2D0*X2) + F2=-2D0*S23DEL/EPS + ELSE + X3=X2 + X2=X1 + X1=R*X2+C*X0 + F2=F1 + S23DF1=(X1-XM(2)**2-XM(1)**2)**2 + & -(2D0*XM(1)*XM(2))**2 + S23DF2=(X1-XM(3)**2-XM(5)**2)**2 + & -(2D0*XM(3)*XM(5))**2 + S23DF1=S23DF1*EPS + S23DF2=S23DF2*EPS + S23DEL=SQRT(S23DF1*S23DF2)/(2D0*X1) + F1=-2D0*S23DEL/EPS + ENDIF + GOTO 100 + ENDIF +C...WE WANT THE MAXIMUM, NOT THE MINIMUM + IF(F1.LT.F2)THEN + GOLDEN=-F1 + XMIN=X1 + ELSE + GOLDEN=-F2 + XMIN=X2 + ENDIF + + IKNT=0 + 110 S12=S12MIN+PYR(0)*YJACO1 + IKNT=IKNT+1 +C...GENERATE S23 + S23AVE=XM(2)**2+XM(3)**2-(S12+XM(2)**2-XM(1)**2) + &*(S12+XM(3)**2-XM(5)**2)/(2D0*S12) + S23DF1=(S12-XM(2)**2-XM(1)**2)**2 + &-(2D0*XM(1)*XM(2))**2 + S23DF2=(S12-XM(3)**2-XM(5)**2)**2 + &-(2D0*XM(3)*XM(5))**2 + S23DF1=S23DF1*EPS + S23DF2=S23DF2*EPS + S23DEL=SQRT(S23DF1*S23DF2)/(2D0*S12) + S23DEL=S23DEL/EPS + S23MIN=S23AVE-S23DEL + S23MAX=S23AVE+S23DEL + YJACO2=S23MAX-S23MIN + S23=S23MIN+PYR(0)*YJACO2 + +C...CHECK THE SAMPLING + IF(IKNT.GT.100) THEN + WRITE(MSTU(11),*) ' IKNT > 100 IN PYTBDY ' + GOTO 120 + ENDIF + IF(YJACO2.LT.PYR(0)*GOLDEN) GOTO 110 + 120 D3=(XM(5)**2+XM(3)**2-S12)/(2D0*XM(5)) + D1=(XM(5)**2+XM(1)**2-S23)/(2D0*XM(5)) + D2=XM(5)-D1-D3 + P1=SQRT(D1*D1-XM(1)**2) + P2=SQRT(D2*D2-XM(2)**2) + P3=SQRT(D3*D3-XM(3)**2) + CTHE1=2D0*PYR(0)-1D0 + ANG1=2D0*PYR(0)*PARU(1) + CPHI1=COS(ANG1) + SPHI1=SIN(ANG1) + ARG=1D0-CTHE1**2 + IF(ARG.LT.0D0.AND.ARG.GT.-1D-3) ARG=0D0 + STHE1=SQRT(ARG) + P(N+1,1)=P1*STHE1*CPHI1 + P(N+1,2)=P1*STHE1*SPHI1 + P(N+1,3)=P1*CTHE1 + P(N+1,4)=D1 + +C...GET CPHI3 + ANG3=2D0*PYR(0)*PARU(1) + CPHI3=COS(ANG3) + SPHI3=SIN(ANG3) + CTHE3=(P2**2-P1**2-P3**2)/2D0/P1/P3 + ARG=1D0-CTHE3**2 + IF(ARG.LT.0D0.AND.ARG.GT.-1D-3) ARG=0D0 + STHE3=SQRT(ARG) + P(N+3,1)=-P3*STHE3*CPHI3*CTHE1*CPHI1 + &+P3*STHE3*SPHI3*SPHI1 + &+P3*CTHE3*STHE1*CPHI1 + P(N+3,2)=-P3*STHE3*CPHI3*CTHE1*SPHI1 + &-P3*STHE3*SPHI3*CPHI1 + &+P3*CTHE3*STHE1*SPHI1 + P(N+3,3)=P3*STHE3*CPHI3*STHE1 + &+P3*CTHE3*CTHE1 + P(N+3,4)=D3 + + DO 130 I=1,3 + P(N+2,I)=-P(N+1,I)-P(N+3,I) + 130 CONTINUE + P(N+2,4)=D2 + + RETURN + END + +C********************************************************************* + +C...PY1ENT +C...Stores one parton/particle in commonblock PYJETS. + + SUBROUTINE PY1ENT(IP,KF,PE,THE,PHI) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ + +C...Standard checks. + MSTU(28)=0 + IF(MSTU(12).GE.1) CALL PYLIST(0) + IPA=MAX(1,IABS(IP)) + IF(IPA.GT.MSTU(4)) CALL PYERRM(21, + &'(PY1ENT:) writing outside PYJETS memory') + KC=PYCOMP(KF) + IF(KC.EQ.0) CALL PYERRM(12,'(PY1ENT:) unknown flavour code') + +C...Find mass. Reset K, P and V vectors. + PM=0D0 + IF(MSTU(10).EQ.1) PM=P(IPA,5) + IF(MSTU(10).GE.2) PM=PYMASS(KF) + DO 100 J=1,5 + K(IPA,J)=0 + P(IPA,J)=0D0 + V(IPA,J)=0D0 + 100 CONTINUE + +C...Store parton/particle in K and P vectors. + K(IPA,1)=1 + IF(IP.LT.0) K(IPA,1)=2 + K(IPA,2)=KF + P(IPA,5)=PM + P(IPA,4)=MAX(PE,PM) + PA=SQRT(P(IPA,4)**2-P(IPA,5)**2) + P(IPA,1)=PA*SIN(THE)*COS(PHI) + P(IPA,2)=PA*SIN(THE)*SIN(PHI) + P(IPA,3)=PA*COS(THE) + +C...Set N. Optionally fragment/decay. + N=IPA + IF(IP.EQ.0) CALL PYEXEC + + RETURN + END + +C********************************************************************* + +C...PY2ENT +C...Stores two partons/particles in their CM frame, +C...with the first along the +z axis. + + SUBROUTINE PY2ENT(IP,KF1,KF2,PECM) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ + +C...Standard checks. + MSTU(28)=0 + IF(MSTU(12).GE.1) CALL PYLIST(0) + IPA=MAX(1,IABS(IP)) + IF(IPA.GT.MSTU(4)-1) CALL PYERRM(21, + &'(PY2ENT:) writing outside PYJETS memory') + KC1=PYCOMP(KF1) + KC2=PYCOMP(KF2) + IF(KC1.EQ.0.OR.KC2.EQ.0) CALL PYERRM(12, + &'(PY2ENT:) unknown flavour code') + +C...Find masses. Reset K, P and V vectors. + PM1=0D0 + IF(MSTU(10).EQ.1) PM1=P(IPA,5) + IF(MSTU(10).GE.2) PM1=PYMASS(KF1) + PM2=0D0 + IF(MSTU(10).EQ.1) PM2=P(IPA+1,5) + IF(MSTU(10).GE.2) PM2=PYMASS(KF2) + DO 110 I=IPA,IPA+1 + DO 100 J=1,5 + K(I,J)=0 + P(I,J)=0D0 + V(I,J)=0D0 + 100 CONTINUE + 110 CONTINUE + +C...Check flavours. + KQ1=KCHG(KC1,2)*ISIGN(1,KF1) + KQ2=KCHG(KC2,2)*ISIGN(1,KF2) + IF(MSTU(19).EQ.1) THEN + MSTU(19)=0 + ELSE + IF(KQ1+KQ2.NE.0.AND.KQ1+KQ2.NE.4) CALL PYERRM(2, + & '(PY2ENT:) unphysical flavour combination') + ENDIF + K(IPA,2)=KF1 + K(IPA+1,2)=KF2 + +C...Store partons/particles in K vectors for normal case. + IF(IP.GE.0) THEN + K(IPA,1)=1 + IF(KQ1.NE.0.AND.KQ2.NE.0) K(IPA,1)=2 + K(IPA+1,1)=1 + +C...Store partons in K vectors for parton shower evolution. + ELSE + K(IPA,1)=3 + K(IPA+1,1)=3 + K(IPA,4)=MSTU(5)*(IPA+1) + K(IPA,5)=K(IPA,4) + K(IPA+1,4)=MSTU(5)*IPA + K(IPA+1,5)=K(IPA+1,4) + ENDIF + +C...Check kinematics and store partons/particles in P vectors. + IF(PECM.LE.PM1+PM2) CALL PYERRM(13, + &'(PY2ENT:) energy smaller than sum of masses') + PA=SQRT(MAX(0D0,(PECM**2-PM1**2-PM2**2)**2-(2D0*PM1*PM2)**2))/ + &(2D0*PECM) + P(IPA,3)=PA + P(IPA,4)=SQRT(PM1**2+PA**2) + P(IPA,5)=PM1 + P(IPA+1,3)=-PA + P(IPA+1,4)=SQRT(PM2**2+PA**2) + P(IPA+1,5)=PM2 + +C...Set N. Optionally fragment/decay. + N=IPA+1 + IF(IP.EQ.0) CALL PYEXEC + + RETURN + END + +C********************************************************************* + +C...PY3ENT +C...Stores three partons or particles in their CM frame, +C...with the first along the +z axis and the third in the (x,z) +C...plane with x > 0. + + SUBROUTINE PY3ENT(IP,KF1,KF2,KF3,PECM,X1,X3) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ + +C...Standard checks. + MSTU(28)=0 + IF(MSTU(12).GE.1) CALL PYLIST(0) + IPA=MAX(1,IABS(IP)) + IF(IPA.GT.MSTU(4)-2) CALL PYERRM(21, + &'(PY3ENT:) writing outside PYJETS memory') + KC1=PYCOMP(KF1) + KC2=PYCOMP(KF2) + KC3=PYCOMP(KF3) + IF(KC1.EQ.0.OR.KC2.EQ.0.OR.KC3.EQ.0) CALL PYERRM(12, + &'(PY3ENT:) unknown flavour code') + +C...Find masses. Reset K, P and V vectors. + PM1=0D0 + IF(MSTU(10).EQ.1) PM1=P(IPA,5) + IF(MSTU(10).GE.2) PM1=PYMASS(KF1) + PM2=0D0 + IF(MSTU(10).EQ.1) PM2=P(IPA+1,5) + IF(MSTU(10).GE.2) PM2=PYMASS(KF2) + PM3=0D0 + IF(MSTU(10).EQ.1) PM3=P(IPA+2,5) + IF(MSTU(10).GE.2) PM3=PYMASS(KF3) + DO 110 I=IPA,IPA+2 + DO 100 J=1,5 + K(I,J)=0 + P(I,J)=0D0 + V(I,J)=0D0 + 100 CONTINUE + 110 CONTINUE + +C...Check flavours. + KQ1=KCHG(KC1,2)*ISIGN(1,KF1) + KQ2=KCHG(KC2,2)*ISIGN(1,KF2) + KQ3=KCHG(KC3,2)*ISIGN(1,KF3) + IF(MSTU(19).EQ.1) THEN + MSTU(19)=0 + ELSEIF(KQ1.EQ.0.AND.KQ2.EQ.0.AND.KQ3.EQ.0) THEN + ELSEIF(KQ1.NE.0.AND.KQ2.EQ.2.AND.(KQ1+KQ3.EQ.0.OR. + & KQ1+KQ3.EQ.4)) THEN + ELSE + CALL PYERRM(2,'(PY3ENT:) unphysical flavour combination') + ENDIF + K(IPA,2)=KF1 + K(IPA+1,2)=KF2 + K(IPA+2,2)=KF3 + +C...Store partons/particles in K vectors for normal case. + IF(IP.GE.0) THEN + K(IPA,1)=1 + IF(KQ1.NE.0.AND.(KQ2.NE.0.OR.KQ3.NE.0)) K(IPA,1)=2 + K(IPA+1,1)=1 + IF(KQ2.NE.0.AND.KQ3.NE.0) K(IPA+1,1)=2 + K(IPA+2,1)=1 + +C...Store partons in K vectors for parton shower evolution. + ELSE + K(IPA,1)=3 + K(IPA+1,1)=3 + K(IPA+2,1)=3 + KCS=4 + IF(KQ1.EQ.-1) KCS=5 + K(IPA,KCS)=MSTU(5)*(IPA+1) + K(IPA,9-KCS)=MSTU(5)*(IPA+2) + K(IPA+1,KCS)=MSTU(5)*(IPA+2) + K(IPA+1,9-KCS)=MSTU(5)*IPA + K(IPA+2,KCS)=MSTU(5)*IPA + K(IPA+2,9-KCS)=MSTU(5)*(IPA+1) + ENDIF + +C...Check kinematics. + MKERR=0 + IF(0.5D0*X1*PECM.LE.PM1.OR.0.5D0*(2D0-X1-X3)*PECM.LE.PM2.OR. + &0.5D0*X3*PECM.LE.PM3) MKERR=1 + PA1=SQRT(MAX(1D-10,(0.5D0*X1*PECM)**2-PM1**2)) + PA2=SQRT(MAX(1D-10,(0.5D0*(2D0-X1-X3)*PECM)**2-PM2**2)) + PA3=SQRT(MAX(1D-10,(0.5D0*X3*PECM)**2-PM3**2)) + CTHE2=(PA3**2-PA1**2-PA2**2)/(2D0*PA1*PA2) + CTHE3=(PA2**2-PA1**2-PA3**2)/(2D0*PA1*PA3) + IF(ABS(CTHE2).GE.1.001D0.OR.ABS(CTHE3).GE.1.001D0) MKERR=1 + CTHE3=MAX(-1D0,MIN(1D0,CTHE3)) + IF(MKERR.NE.0) CALL PYERRM(13, + &'(PY3ENT:) unphysical kinematical variable setup') + +C...Store partons/particles in P vectors. + P(IPA,3)=PA1 + P(IPA,4)=SQRT(PA1**2+PM1**2) + P(IPA,5)=PM1 + P(IPA+2,1)=PA3*SQRT(1D0-CTHE3**2) + P(IPA+2,3)=PA3*CTHE3 + P(IPA+2,4)=SQRT(PA3**2+PM3**2) + P(IPA+2,5)=PM3 + P(IPA+1,1)=-P(IPA+2,1) + P(IPA+1,3)=-P(IPA,3)-P(IPA+2,3) + P(IPA+1,4)=SQRT(P(IPA+1,1)**2+P(IPA+1,3)**2+PM2**2) + P(IPA+1,5)=PM2 + +C...Set N. Optionally fragment/decay. + N=IPA+2 + IF(IP.EQ.0) CALL PYEXEC + + RETURN + END + +C********************************************************************* + +C...PY4ENT +C...Stores four partons or particles in their CM frame, with +C...the first along the +z axis, the last in the xz plane with x > 0 +C...and the second having y < 0 and y > 0 with equal probability. + + SUBROUTINE PY4ENT(IP,KF1,KF2,KF3,KF4,PECM,X1,X2,X4,X12,X14) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ + +C...Standard checks. + MSTU(28)=0 + IF(MSTU(12).GE.1) CALL PYLIST(0) + IPA=MAX(1,IABS(IP)) + IF(IPA.GT.MSTU(4)-3) CALL PYERRM(21, + &'(PY4ENT:) writing outside PYJETS momory') + KC1=PYCOMP(KF1) + KC2=PYCOMP(KF2) + KC3=PYCOMP(KF3) + KC4=PYCOMP(KF4) + IF(KC1.EQ.0.OR.KC2.EQ.0.OR.KC3.EQ.0.OR.KC4.EQ.0) CALL PYERRM(12, + &'(PY4ENT:) unknown flavour code') + +C...Find masses. Reset K, P and V vectors. + PM1=0D0 + IF(MSTU(10).EQ.1) PM1=P(IPA,5) + IF(MSTU(10).GE.2) PM1=PYMASS(KF1) + PM2=0D0 + IF(MSTU(10).EQ.1) PM2=P(IPA+1,5) + IF(MSTU(10).GE.2) PM2=PYMASS(KF2) + PM3=0D0 + IF(MSTU(10).EQ.1) PM3=P(IPA+2,5) + IF(MSTU(10).GE.2) PM3=PYMASS(KF3) + PM4=0D0 + IF(MSTU(10).EQ.1) PM4=P(IPA+3,5) + IF(MSTU(10).GE.2) PM4=PYMASS(KF4) + DO 110 I=IPA,IPA+3 + DO 100 J=1,5 + K(I,J)=0 + P(I,J)=0D0 + V(I,J)=0D0 + 100 CONTINUE + 110 CONTINUE + +C...Check flavours. + KQ1=KCHG(KC1,2)*ISIGN(1,KF1) + KQ2=KCHG(KC2,2)*ISIGN(1,KF2) + KQ3=KCHG(KC3,2)*ISIGN(1,KF3) + KQ4=KCHG(KC4,2)*ISIGN(1,KF4) + IF(MSTU(19).EQ.1) THEN + MSTU(19)=0 + ELSEIF(KQ1.EQ.0.AND.KQ2.EQ.0.AND.KQ3.EQ.0.AND.KQ4.EQ.0) THEN + ELSEIF(KQ1.NE.0.AND.KQ2.EQ.2.AND.KQ3.EQ.2.AND.(KQ1+KQ4.EQ.0.OR. + & KQ1+KQ4.EQ.4)) THEN + ELSEIF(KQ1.NE.0.AND.KQ1+KQ2.EQ.0.AND.KQ3.NE.0.AND.KQ3+KQ4.EQ.0D0) + & THEN + ELSE + CALL PYERRM(2,'(PY4ENT:) unphysical flavour combination') + ENDIF + K(IPA,2)=KF1 + K(IPA+1,2)=KF2 + K(IPA+2,2)=KF3 + K(IPA+3,2)=KF4 + +C...Store partons/particles in K vectors for normal case. + IF(IP.GE.0) THEN + K(IPA,1)=1 + IF(KQ1.NE.0.AND.(KQ2.NE.0.OR.KQ3.NE.0.OR.KQ4.NE.0)) K(IPA,1)=2 + K(IPA+1,1)=1 + IF(KQ2.NE.0.AND.KQ1+KQ2.NE.0.AND.(KQ3.NE.0.OR.KQ4.NE.0)) + & K(IPA+1,1)=2 + K(IPA+2,1)=1 + IF(KQ3.NE.0.AND.KQ4.NE.0) K(IPA+2,1)=2 + K(IPA+3,1)=1 + +C...Store partons for parton shower evolution from q-g-g-qbar or +C...g-g-g-g event. + ELSEIF(KQ1+KQ2.NE.0) THEN + K(IPA,1)=3 + K(IPA+1,1)=3 + K(IPA+2,1)=3 + K(IPA+3,1)=3 + KCS=4 + IF(KQ1.EQ.-1) KCS=5 + K(IPA,KCS)=MSTU(5)*(IPA+1) + K(IPA,9-KCS)=MSTU(5)*(IPA+3) + K(IPA+1,KCS)=MSTU(5)*(IPA+2) + K(IPA+1,9-KCS)=MSTU(5)*IPA + K(IPA+2,KCS)=MSTU(5)*(IPA+3) + K(IPA+2,9-KCS)=MSTU(5)*(IPA+1) + K(IPA+3,KCS)=MSTU(5)*IPA + K(IPA+3,9-KCS)=MSTU(5)*(IPA+2) + +C...Store partons for parton shower evolution from q-qbar-q-qbar event. + ELSE + K(IPA,1)=3 + K(IPA+1,1)=3 + K(IPA+2,1)=3 + K(IPA+3,1)=3 + K(IPA,4)=MSTU(5)*(IPA+1) + K(IPA,5)=K(IPA,4) + K(IPA+1,4)=MSTU(5)*IPA + K(IPA+1,5)=K(IPA+1,4) + K(IPA+2,4)=MSTU(5)*(IPA+3) + K(IPA+2,5)=K(IPA+2,4) + K(IPA+3,4)=MSTU(5)*(IPA+2) + K(IPA+3,5)=K(IPA+3,4) + ENDIF + +C...Check kinematics. + MKERR=0 + IF(0.5D0*X1*PECM.LE.PM1.OR.0.5D0*X2*PECM.LE.PM2.OR. + &0.5D0*(2D0-X1-X2-X4)*PECM.LE.PM3.OR.0.5D0*X4*PECM.LE.PM4) + &MKERR=1 + PA1=SQRT(MAX(1D-10,(0.5D0*X1*PECM)**2-PM1**2)) + PA2=SQRT(MAX(1D-10,(0.5D0*X2*PECM)**2-PM2**2)) + PA4=SQRT(MAX(1D-10,(0.5D0*X4*PECM)**2-PM4**2)) + X24=X1+X2+X4-1D0-X12-X14+(PM3**2-PM1**2-PM2**2-PM4**2)/PECM**2 + CTHE4=(X1*X4-2D0*X14)*PECM**2/(4D0*PA1*PA4) + IF(ABS(CTHE4).GE.1.002D0) MKERR=1 + CTHE4=MAX(-1D0,MIN(1D0,CTHE4)) + STHE4=SQRT(1D0-CTHE4**2) + CTHE2=(X1*X2-2D0*X12)*PECM**2/(4D0*PA1*PA2) + IF(ABS(CTHE2).GE.1.002D0) MKERR=1 + CTHE2=MAX(-1D0,MIN(1D0,CTHE2)) + STHE2=SQRT(1D0-CTHE2**2) + CPHI2=((X2*X4-2D0*X24)*PECM**2-4D0*PA2*CTHE2*PA4*CTHE4)/ + &MAX(1D-8*PECM**2,4D0*PA2*STHE2*PA4*STHE4) + IF(ABS(CPHI2).GE.1.05D0) MKERR=1 + CPHI2=MAX(-1D0,MIN(1D0,CPHI2)) + IF(MKERR.EQ.1) CALL PYERRM(13, + &'(PY4ENT:) unphysical kinematical variable setup') + +C...Store partons/particles in P vectors. + P(IPA,3)=PA1 + P(IPA,4)=SQRT(PA1**2+PM1**2) + P(IPA,5)=PM1 + P(IPA+3,1)=PA4*STHE4 + P(IPA+3,3)=PA4*CTHE4 + P(IPA+3,4)=SQRT(PA4**2+PM4**2) + P(IPA+3,5)=PM4 + P(IPA+1,1)=PA2*STHE2*CPHI2 + P(IPA+1,2)=PA2*STHE2*SQRT(1D0-CPHI2**2)*(-1D0)**INT(PYR(0)+0.5D0) + P(IPA+1,3)=PA2*CTHE2 + P(IPA+1,4)=SQRT(PA2**2+PM2**2) + P(IPA+1,5)=PM2 + P(IPA+2,1)=-P(IPA+1,1)-P(IPA+3,1) + P(IPA+2,2)=-P(IPA+1,2) + P(IPA+2,3)=-P(IPA,3)-P(IPA+1,3)-P(IPA+3,3) + P(IPA+2,4)=SQRT(P(IPA+2,1)**2+P(IPA+2,2)**2+P(IPA+2,3)**2+PM3**2) + P(IPA+2,5)=PM3 + +C...Set N. Optionally fragment/decay. + N=IPA+3 + IF(IP.EQ.0) CALL PYEXEC + + RETURN + END + +C********************************************************************* + +C...PY2FRM +C...An interface from a two-fermion generator to include +C...parton showers and hadronization. + + SUBROUTINE PY2FRM(IRAD,ITAU,ICOM) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYJETS/,/PYDAT1/ +C...Local arrays. + DIMENSION IJOIN(2),INTAU(2) + +C...Call PYHEPC to convert input from HEPEVT to PYJETS common. + IF(ICOM.EQ.0) THEN + MSTU(28)=0 + CALL PYHEPC(2) + ENDIF + +C...Loop through entries and pick up all final fermions/antifermions. + I1=0 + I2=0 + DO 100 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 100 + KFA=IABS(K(I,2)) + IF((KFA.GE.1.AND.KFA.LE.6).OR.(KFA.GE.11.AND.KFA.LE.16)) THEN + IF(K(I,2).GT.0) THEN + IF(I1.EQ.0) THEN + I1=I + ELSE + CALL PYERRM(16,'(PY2FRM:) more than one fermion') + ENDIF + ELSE + IF(I2.EQ.0) THEN + I2=I + ELSE + CALL PYERRM(16,'(PY2FRM:) more than one antifermion') + ENDIF + ENDIF + ENDIF + 100 CONTINUE + +C...Check that event is arranged according to conventions. + IF(I1.EQ.0.OR.I2.EQ.0) THEN + CALL PYERRM(16,'(PY2FRM:) event contains too few fermions') + ENDIF + IF(I2.LT.I1) THEN + CALL PYERRM(6,'(PY2FRM:) fermions arranged in wrong order') + ENDIF + +C...Check whether fermion pair is quarks or leptons. + IF(IABS(K(I1,2)).LT.10.AND.IABS(K(I2,2)).LT.10) THEN + IQL12=1 + ELSEIF(IABS(K(I1,2)).GT.10.AND.IABS(K(I2,2)).GT.10) THEN + IQL12=2 + ELSE + CALL PYERRM(16,'(PY2FRM:) fermion pair inconsistent') + ENDIF + +C...Decide whether to allow or not photon radiation in showers. + MSTJ(41)=2 + IF(IRAD.EQ.0) MSTJ(41)=1 + +C...Do colour joining and parton showers. + IP1=I1 + IP2=I2 + IF(IQL12.EQ.1) THEN + IJOIN(1)=IP1 + IJOIN(2)=IP2 + CALL PYJOIN(2,IJOIN) + ENDIF + IF(IQL12.EQ.1.OR.IRAD.EQ.1) THEN + PM12S=(P(IP1,4)+P(IP2,4))**2-(P(IP1,1)+P(IP2,1))**2- + & (P(IP1,2)+P(IP2,2))**2-(P(IP1,3)+P(IP2,3))**2 + CALL PYSHOW(IP1,IP2,SQRT(MAX(0D0,PM12S))) + ENDIF + +C...Do fragmentation and decays. Possibly except tau decay. + IF(ITAU.EQ.0) THEN + NTAU=0 + DO 110 I=1,N + IF(IABS(K(I,2)).EQ.15.AND.K(I,1).EQ.1) THEN + NTAU=NTAU+1 + INTAU(NTAU)=I + K(I,1)=11 + ENDIF + 110 CONTINUE + ENDIF + CALL PYEXEC + IF(ITAU.EQ.0) THEN + DO 120 I=1,NTAU + K(INTAU(I),1)=1 + 120 CONTINUE + ENDIF + +C...Call PYHEPC to convert output from PYJETS to HEPEVT common. + IF(ICOM.EQ.0) THEN + MSTU(28)=0 + CALL PYHEPC(1) + ENDIF + + END + +C********************************************************************* + +C...PY4FRM +C...An interface from a four-fermion generator to include +C...parton showers and hadronization. + + SUBROUTINE PY4FRM(ATOTSQ,A1SQ,A2SQ,ISTRAT,IRAD,ITAU,ICOM) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYJETS/,/PYDAT1/ +C...Local arrays. + DIMENSION IJOIN(2),INTAU(4) + +C...Call PYHEPC to convert input from HEPEVT to PYJETS common. + IF(ICOM.EQ.0) THEN + MSTU(28)=0 + CALL PYHEPC(2) + ENDIF + +C...Loop through entries and pick up all final fermions/antifermions. + I1=0 + I2=0 + I3=0 + I4=0 + DO 100 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 100 + KFA=IABS(K(I,2)) + IF((KFA.GE.1.AND.KFA.LE.6).OR.(KFA.GE.11.AND.KFA.LE.16)) THEN + IF(K(I,2).GT.0) THEN + IF(I1.EQ.0) THEN + I1=I + ELSEIF(I3.EQ.0) THEN + I3=I + ELSE + CALL PYERRM(16,'(PY4FRM:) more than two fermions') + ENDIF + ELSE + IF(I2.EQ.0) THEN + I2=I + ELSEIF(I4.EQ.0) THEN + I4=I + ELSE + CALL PYERRM(16,'(PY4FRM:) more than two antifermions') + ENDIF + ENDIF + ENDIF + 100 CONTINUE + +C...Check that event is arranged according to conventions. + IF(I3.EQ.0.OR.I4.EQ.0) THEN + CALL PYERRM(16,'(PY4FRM:) event contains too few fermions') + ENDIF + IF(I2.LT.I1.OR.I3.LT.I2.OR.I4.LT.I3) THEN + CALL PYERRM(6,'(PY4FRM:) fermions arranged in wrong order') + ENDIF + +C...Check which fermion pairs are quarks and which leptons. + IF(IABS(K(I1,2)).LT.10.AND.IABS(K(I2,2)).LT.10) THEN + IQL12=1 + ELSEIF(IABS(K(I1,2)).GT.10.AND.IABS(K(I2,2)).GT.10) THEN + IQL12=2 + ELSE + CALL PYERRM(16,'(PY4FRM:) first fermion pair inconsistent') + ENDIF + IF(IABS(K(I3,2)).LT.10.AND.IABS(K(I4,2)).LT.10) THEN + IQL34=1 + ELSEIF(IABS(K(I3,2)).GT.10.AND.IABS(K(I4,2)).GT.10) THEN + IQL34=2 + ELSE + CALL PYERRM(16,'(PY4FRM:) second fermion pair inconsistent') + ENDIF + +C...Decide whether to allow or not photon radiation in showers. + MSTJ(41)=2 + IF(IRAD.EQ.0) MSTJ(41)=1 + +C...Decide on dipole pairing. + IP1=I1 + IP2=I2 + IP3=I3 + IP4=I4 + IF(IQL12.EQ.IQL34) THEN + R1SQ=A1SQ + R2SQ=A2SQ + DELTA=ATOTSQ-A1SQ-A2SQ + IF(ISTRAT.EQ.1) THEN + IF(DELTA.GT.0D0) R1SQ=R1SQ+DELTA + IF(DELTA.LT.0D0) R2SQ=MAX(0D0,R2SQ+DELTA) + ELSEIF(ISTRAT.EQ.2) THEN + IF(DELTA.GT.0D0) R2SQ=R2SQ+DELTA + IF(DELTA.LT.0D0) R1SQ=MAX(0D0,R1SQ+DELTA) + ENDIF + IF(R2SQ.GT.PYR(0)*(R1SQ+R2SQ)) THEN + IP2=I4 + IP4=I2 + ENDIF + ENDIF + +C...Do colour joinings and parton showers. + IF(IQL12.EQ.1) THEN + IJOIN(1)=IP1 + IJOIN(2)=IP2 + CALL PYJOIN(2,IJOIN) + ENDIF + IF(IQL12.EQ.1.OR.IRAD.EQ.1) THEN + PM12S=(P(IP1,4)+P(IP2,4))**2-(P(IP1,1)+P(IP2,1))**2- + & (P(IP1,2)+P(IP2,2))**2-(P(IP1,3)+P(IP2,3))**2 + CALL PYSHOW(IP1,IP2,SQRT(MAX(0D0,PM12S))) + ENDIF + IF(IQL34.EQ.1) THEN + IJOIN(1)=IP3 + IJOIN(2)=IP4 + CALL PYJOIN(2,IJOIN) + ENDIF + IF(IQL34.EQ.1.OR.IRAD.EQ.1) THEN + PM34S=(P(IP3,4)+P(IP4,4))**2-(P(IP3,1)+P(IP4,1))**2- + & (P(IP3,2)+P(IP4,2))**2-(P(IP3,3)+P(IP4,3))**2 + CALL PYSHOW(IP3,IP4,SQRT(MAX(0D0,PM34S))) + ENDIF + +C...Do fragmentation and decays. Possibly except tau decay. + IF(ITAU.EQ.0) THEN + NTAU=0 + DO 110 I=1,N + IF(IABS(K(I,2)).EQ.15.AND.K(I,1).EQ.1) THEN + NTAU=NTAU+1 + INTAU(NTAU)=I + K(I,1)=11 + ENDIF + 110 CONTINUE + ENDIF + CALL PYEXEC + IF(ITAU.EQ.0) THEN + DO 120 I=1,NTAU + K(INTAU(I),1)=1 + 120 CONTINUE + ENDIF + +C...Call PYHEPC to convert output from PYJETS to HEPEVT common. + IF(ICOM.EQ.0) THEN + MSTU(28)=0 + CALL PYHEPC(1) + ENDIF + + END + +C********************************************************************* + +C...PY6FRM +C...An interface from a six-fermion generator to include +C...parton showers and hadronization. + + SUBROUTINE PY6FRM(P12,P13,P21,P23,P31,P32,PTOP,IRAD,ITAU,ICOM) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYJETS/,/PYDAT1/ +C...Local arrays. + DIMENSION IJOIN(2),INTAU(6),BETA(3),BETAO(3),BETAN(3) + +C...Call PYHEPC to convert input from HEPEVT to PYJETS common. + IF(ICOM.EQ.0) THEN + MSTU(28)=0 + CALL PYHEPC(2) + ENDIF + +C...Loop through entries and pick up all final fermions/antifermions. + I1=0 + I2=0 + I3=0 + I4=0 + I5=0 + I6=0 + DO 100 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 100 + KFA=IABS(K(I,2)) + IF((KFA.GE.1.AND.KFA.LE.6).OR.(KFA.GE.11.AND.KFA.LE.16)) THEN + IF(K(I,2).GT.0) THEN + IF(I1.EQ.0) THEN + I1=I + ELSEIF(I3.EQ.0) THEN + I3=I + ELSEIF(I5.EQ.0) THEN + I5=I + ELSE + CALL PYERRM(16,'(PY6FRM:) more than three fermions') + ENDIF + ELSE + IF(I2.EQ.0) THEN + I2=I + ELSEIF(I4.EQ.0) THEN + I4=I + ELSEIF(I6.EQ.0) THEN + I6=I + ELSE + CALL PYERRM(16,'(PY6FRM:) more than three antifermions') + ENDIF + ENDIF + ENDIF + 100 CONTINUE + +C...Check that event is arranged according to conventions. + IF(I5.EQ.0.OR.I6.EQ.0) THEN + CALL PYERRM(16,'(PY6FRM:) event contains too few fermions') + ENDIF + IF(I2.LT.I1.OR.I3.LT.I2.OR.I4.LT.I3.OR.I5.LT.I4.OR.I6.LT.I5) THEN + CALL PYERRM(6,'(PY6FRM:) fermions arranged in wrong order') + ENDIF + +C...Check which fermion pairs are quarks and which leptons. + IF(IABS(K(I1,2)).LT.10.AND.IABS(K(I2,2)).LT.10) THEN + IQL12=1 + ELSEIF(IABS(K(I1,2)).GT.10.AND.IABS(K(I2,2)).GT.10) THEN + IQL12=2 + ELSE + CALL PYERRM(16,'(PY6FRM:) first fermion pair inconsistent') + ENDIF + IF(IABS(K(I3,2)).LT.10.AND.IABS(K(I4,2)).LT.10) THEN + IQL34=1 + ELSEIF(IABS(K(I3,2)).GT.10.AND.IABS(K(I4,2)).GT.10) THEN + IQL34=2 + ELSE + CALL PYERRM(16,'(PY6FRM:) second fermion pair inconsistent') + ENDIF + IF(IABS(K(I5,2)).LT.10.AND.IABS(K(I6,2)).LT.10) THEN + IQL56=1 + ELSEIF(IABS(K(I5,2)).GT.10.AND.IABS(K(I6,2)).GT.10) THEN + IQL56=2 + ELSE + CALL PYERRM(16,'(PY6FRM:) third fermion pair inconsistent') + ENDIF + +C...Decide whether to allow or not photon radiation in showers. + MSTJ(41)=2 + IF(IRAD.EQ.0) MSTJ(41)=1 + +C...Allow dipole pairings only among leptons and quarks separately. + P12D=P12 + P13D=0D0 + IF(IQL34.EQ.IQL56) P13D=P13 + P21D=0D0 + IF(IQL12.EQ.IQL34) P21D=P21 + P23D=0D0 + IF(IQL12.EQ.IQL34.AND.IQL12.EQ.IQL56) P23D=P23 + P31D=0D0 + IF(IQL12.EQ.IQL34.AND.IQL12.EQ.IQL56) P31D=P31 + P32D=0D0 + IF(IQL12.EQ.IQL56) P32D=P32 + +C...Decide whether t+tbar. + ITOP=0 + IF(PYR(0).LT.PTOP) THEN + ITOP=1 + +C...If t+tbar: reconstruct t's. + IT=N+1 + ITB=N+2 + DO 110 J=1,5 + K(IT,J)=0 + K(ITB,J)=0 + P(IT,J)=P(I1,J)+P(I3,J)+P(I4,J) + P(ITB,J)=P(I2,J)+P(I5,J)+P(I6,J) + V(IT,J)=0D0 + V(ITB,J)=0D0 + 110 CONTINUE + K(IT,1)=1 + K(ITB,1)=1 + K(IT,2)=6 + K(ITB,2)=-6 + P(IT,5)=SQRT(MAX(0D0,P(IT,4)**2-P(IT,1)**2-P(IT,2)**2- + & P(IT,3)**2)) + P(ITB,5)=SQRT(MAX(0D0,P(ITB,4)**2-P(ITB,1)**2-P(ITB,2)**2- + & P(ITB,3)**2)) + N=N+2 + +C...If t+tbar: colour join t's and let them shower. + IJOIN(1)=IT + IJOIN(2)=ITB + CALL PYJOIN(2,IJOIN) + PMTTS=(P(IT,4)+P(ITB,4))**2-(P(IT,1)+P(ITB,1))**2- + & (P(IT,2)+P(ITB,2))**2-(P(IT,3)+P(ITB,3))**2 + CALL PYSHOW(IT,ITB,SQRT(MAX(0D0,PMTTS))) + +C...If t+tbar: pick up the t's after shower. + ITNEW=IT + ITBNEW=ITB + DO 120 I=ITB+1,N + IF(K(I,2).EQ.6) ITNEW=I + IF(K(I,2).EQ.-6) ITBNEW=I + 120 CONTINUE + +C...If t+tbar: loop over two top systems. + DO 200 IT1=1,2 + IF(IT1.EQ.1) THEN + ITO=IT + ITN=ITNEW + IBO=I1 + IW1=I3 + IW2=I4 + ELSE + ITO=ITB + ITN=ITBNEW + IBO=I2 + IW1=I5 + IW2=I6 + ENDIF + IF(IABS(K(IBO,2)).NE.5) CALL PYERRM(6, + & '(PY6FRM:) not b in t decay') + +C...If t+tbar: find boost from original to new top frame. + DO 130 J=1,3 + BETAO(J)=P(ITO,J)/P(ITO,4) + BETAN(J)=P(ITN,J)/P(ITN,4) + 130 CONTINUE + +C...If t+tbar: boost copy of b by t shower and connect it in colour. + N=N+1 + IB=N + K(IB,1)=3 + K(IB,2)=K(IBO,2) + K(IB,3)=ITN + DO 140 J=1,5 + P(IB,J)=P(IBO,J) + V(IB,J)=0D0 + 140 CONTINUE + CALL PYROBO(IB,IB,0D0,0D0,-BETAO(1),-BETAO(2),-BETAO(3)) + CALL PYROBO(IB,IB,0D0,0D0,BETAN(1),BETAN(2),BETAN(3)) + K(IB,4)=MSTU(5)*ITN + K(IB,5)=MSTU(5)*ITN + K(ITN,4)=K(ITN,4)+IB + K(ITN,5)=K(ITN,5)+IB + K(ITN,1)=K(ITN,1)+10 + K(IBO,1)=K(IBO,1)+10 + +C...If t+tbar: construct W recoiling against b. + N=N+1 + IW=N + DO 150 J=1,5 + K(IW,J)=0 + V(IW,J)=0D0 + 150 CONTINUE + K(IW,1)=1 + KCHW=PYCHGE(K(IW1,2))+PYCHGE(K(IW2,2)) + IF(IABS(KCHW).EQ.3) THEN + K(IW,2)=ISIGN(24,KCHW) + ELSE + CALL PYERRM(16,'(PY6FRM:) fermion pair inconsistent with W') + ENDIF + K(IW,3)=IW1 + +C...If t+tbar: construct W momentum, including boost by t shower. + DO 160 J=1,4 + P(IW,J)=P(IW1,J)+P(IW2,J) + 160 CONTINUE + P(IW,5)=SQRT(MAX(0D0,P(IW,4)**2-P(IW,1)**2-P(IW,2)**2- + & P(IW,3)**2)) + CALL PYROBO(IW,IW,0D0,0D0,-BETAO(1),-BETAO(2),-BETAO(3)) + CALL PYROBO(IW,IW,0D0,0D0,BETAN(1),BETAN(2),BETAN(3)) + +C...If t+tbar: boost b and W to top rest frame. + DO 170 J=1,3 + BETA(J)=(P(IB,J)+P(IW,J))/(P(IB,4)+P(IW,4)) + 170 CONTINUE + CALL PYROBO(IB,IB,0D0,0D0,-BETA(1),-BETA(2),-BETA(3)) + CALL PYROBO(IW,IW,0D0,0D0,-BETA(1),-BETA(2),-BETA(3)) + +C...If t+tbar: let b shower and pick up modified W. + PMTS=(P(IB,4)+P(IW,4))**2-(P(IB,1)+P(IW,1))**2- + & (P(IB,2)+P(IW,2))**2-(P(IB,3)+P(IW,3))**2 + CALL PYSHOW(IB,IW,SQRT(MAX(0D0,PMTS))) + DO 180 I=IW,N + IF(IABS(K(I,2)).EQ.24) IWM=I + 180 CONTINUE + +C...If t+tbar: take copy of W decay products. + DO 190 J=1,5 + K(N+1,J)=K(IW1,J) + P(N+1,J)=P(IW1,J) + V(N+1,J)=V(IW1,J) + K(N+2,J)=K(IW2,J) + P(N+2,J)=P(IW2,J) + V(N+2,J)=V(IW2,J) + 190 CONTINUE + K(IW1,1)=K(IW1,1)+10 + K(IW2,1)=K(IW2,1)+10 + K(IWM,1)=K(IWM,1)+10 + K(IWM,4)=N+1 + K(IWM,5)=N+2 + K(N+1,3)=IWM + K(N+2,3)=IWM + IF(IT1.EQ.1) THEN + I3=N+1 + I4=N+2 + ELSE + I5=N+1 + I6=N+2 + ENDIF + N=N+2 + +C...If t+tbar: boost W decay products, first by effects of t shower, +C...then by those of b shower. b and its shower simple boost back. + CALL PYROBO(N-1,N,0D0,0D0,-BETAO(1),-BETAO(2),-BETAO(3)) + CALL PYROBO(N-1,N,0D0,0D0,BETAN(1),BETAN(2),BETAN(3)) + CALL PYROBO(N-1,N,0D0,0D0,-BETA(1),-BETA(2),-BETA(3)) + CALL PYROBO(N-1,N,0D0,0D0,-P(IW,1)/P(IW,4), + & -P(IW,2)/P(IW,4),-P(IW,3)/P(IW,4)) + CALL PYROBO(N-1,N,0D0,0D0,P(IWM,1)/P(IWM,4), + & P(IWM,2)/P(IWM,4),P(IWM,3)/P(IWM,4)) + CALL PYROBO(IB,IB,0D0,0D0,BETA(1),BETA(2),BETA(3)) + CALL PYROBO(IW,N,0D0,0D0,BETA(1),BETA(2),BETA(3)) + 200 CONTINUE + ENDIF + +C...Decide on dipole pairing. + IP1=I1 + IP3=I3 + IP5=I5 + PRN=PYR(0)*(P12D+P13D+P21D+P23D+P31D+P32D) + IF(ITOP.EQ.1.OR.PRN.LT.P12D) THEN + IP2=I2 + IP4=I4 + IP6=I6 + ELSEIF(PRN.LT.P12D+P13D) THEN + IP2=I2 + IP4=I6 + IP6=I4 + ELSEIF(PRN.LT.P12D+P13D+P21D) THEN + IP2=I4 + IP4=I2 + IP6=I6 + ELSEIF(PRN.LT.P12D+P13D+P21D+P23D) THEN + IP2=I4 + IP4=I6 + IP6=I2 + ELSEIF(PRN.LT.P12D+P13D+P21D+P23D+P31D) THEN + IP2=I6 + IP4=I2 + IP6=I4 + ELSE + IP2=I6 + IP4=I4 + IP6=I2 + ENDIF + +C...Do colour joinings and parton showers +C...(except ones already made for t+tbar). + IF(ITOP.EQ.0) THEN + IF(IQL12.EQ.1) THEN + IJOIN(1)=IP1 + IJOIN(2)=IP2 + CALL PYJOIN(2,IJOIN) + ENDIF + IF(IQL12.EQ.1.OR.IRAD.EQ.1) THEN + PM12S=(P(IP1,4)+P(IP2,4))**2-(P(IP1,1)+P(IP2,1))**2- + & (P(IP1,2)+P(IP2,2))**2-(P(IP1,3)+P(IP2,3))**2 + CALL PYSHOW(IP1,IP2,SQRT(MAX(0D0,PM12S))) + ENDIF + ENDIF + IF(IQL34.EQ.1) THEN + IJOIN(1)=IP3 + IJOIN(2)=IP4 + CALL PYJOIN(2,IJOIN) + ENDIF + IF(IQL34.EQ.1.OR.IRAD.EQ.1) THEN + PM34S=(P(IP3,4)+P(IP4,4))**2-(P(IP3,1)+P(IP4,1))**2- + & (P(IP3,2)+P(IP4,2))**2-(P(IP3,3)+P(IP4,3))**2 + CALL PYSHOW(IP3,IP4,SQRT(MAX(0D0,PM34S))) + ENDIF + IF(IQL56.EQ.1) THEN + IJOIN(1)=IP5 + IJOIN(2)=IP6 + CALL PYJOIN(2,IJOIN) + ENDIF + IF(IQL56.EQ.1.OR.IRAD.EQ.1) THEN + PM56S=(P(IP5,4)+P(IP6,4))**2-(P(IP5,1)+P(IP6,1))**2- + & (P(IP5,2)+P(IP6,2))**2-(P(IP5,3)+P(IP6,3))**2 + CALL PYSHOW(IP5,IP6,SQRT(MAX(0D0,PM56S))) + ENDIF + +C...Do fragmentation and decays. Possibly except tau decay. + IF(ITAU.EQ.0) THEN + NTAU=0 + DO 210 I=1,N + IF(IABS(K(I,2)).EQ.15.AND.K(I,1).EQ.1) THEN + NTAU=NTAU+1 + INTAU(NTAU)=I + K(I,1)=11 + ENDIF + 210 CONTINUE + ENDIF + CALL PYEXEC + IF(ITAU.EQ.0) THEN + DO 220 I=1,NTAU + K(INTAU(I),1)=1 + 220 CONTINUE + ENDIF + +C...Call PYHEPC to convert output from PYJETS to HEPEVT common. + IF(ICOM.EQ.0) THEN + MSTU(28)=0 + CALL PYHEPC(1) + ENDIF + + END + +C********************************************************************* + +C...PY4JET +C...An interface from a four-parton generator to include +C...parton showers and hadronization. + + SUBROUTINE PY4JET(PMAX,IRAD,ICOM) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYJETS/,/PYDAT1/ +C...Local arrays. + DIMENSION IJOIN(2),PTOT(4),BETA(3) + +C...Call PYHEPC to convert input from HEPEVT to PYJETS common. + IF(ICOM.EQ.0) THEN + MSTU(28)=0 + CALL PYHEPC(2) + ENDIF + +C...Loop through entries and pick up all final partons. + I1=0 + I2=0 + I3=0 + I4=0 + DO 100 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 100 + KFA=IABS(K(I,2)) + IF((KFA.GE.1.AND.KFA.LE.6).OR.KFA.EQ.21) THEN + IF(K(I,2).GT.0.AND.K(I,2).LE.6) THEN + IF(I1.EQ.0) THEN + I1=I + ELSEIF(I3.EQ.0) THEN + I3=I + ELSE + CALL PYERRM(16,'(PY4JET:) more than two quarks') + ENDIF + ELSEIF(K(I,2).LT.0) THEN + IF(I2.EQ.0) THEN + I2=I + ELSEIF(I4.EQ.0) THEN + I4=I + ELSE + CALL PYERRM(16,'(PY4JET:) more than two antiquarks') + ENDIF + ELSE + IF(I3.EQ.0) THEN + I3=I + ELSEIF(I4.EQ.0) THEN + I4=I + ELSE + CALL PYERRM(16,'(PY4JET:) more than two gluons') + ENDIF + ENDIF + ENDIF + 100 CONTINUE + +C...Check that event is arranged according to conventions. + IF(I1.EQ.0.OR.I2.EQ.0.OR.I3.EQ.0.OR.I4.EQ.0) THEN + CALL PYERRM(16,'(PY4JET:) event contains too few partons') + ENDIF + IF(I2.LT.I1.OR.I3.LT.I2.OR.I4.LT.I3) THEN + CALL PYERRM(6,'(PY4JET:) partons arranged in wrong order') + ENDIF + +C...Check whether second pair are quarks or gluons. + IF(IABS(K(I3,2)).LT.10.AND.IABS(K(I4,2)).LT.10) THEN + IQG34=1 + ELSEIF(K(I3,2).EQ.21.AND.K(I4,2).EQ.21) THEN + IQG34=2 + ELSE + CALL PYERRM(16,'(PY4JET:) second parton pair inconsistent') + ENDIF + +C...Boost partons to their cm frame. + DO 110 J=1,4 + PTOT(J)=P(I1,J)+P(I2,J)+P(I3,J)+P(I4,J) + 110 CONTINUE + ECM=SQRT(MAX(0D0,PTOT(4)**2-PTOT(1)**2-PTOT(2)**2-PTOT(3)**2)) + DO 120 J=1,3 + BETA(J)=PTOT(J)/PTOT(4) + 120 CONTINUE + CALL PYROBO(I1,I1,0D0,0D0,-BETA(1),-BETA(2),-BETA(3)) + CALL PYROBO(I2,I2,0D0,0D0,-BETA(1),-BETA(2),-BETA(3)) + CALL PYROBO(I3,I3,0D0,0D0,-BETA(1),-BETA(2),-BETA(3)) + CALL PYROBO(I4,I4,0D0,0D0,-BETA(1),-BETA(2),-BETA(3)) + NSAV=N + +C...Decide and set up shower history for q qbar q' qbar' events. + IF(IQG34.EQ.1) THEN + W1=PY4JTW(0,I1,I3,I4) + W2=PY4JTW(0,I2,I3,I4) + IF(W1.GT.PYR(0)*(W1+W2)) THEN + CALL PY4JTS(0,I1,I3,I4,I2,QMAX) + ELSE + CALL PY4JTS(0,I2,I3,I4,I1,QMAX) + ENDIF + +C...Decide and set up shower history for q qbar g g events. + ELSE + W1=PY4JTW(I1,I3,I2,I4) + W2=PY4JTW(I1,I4,I2,I3) + W3=PY4JTW(0,I3,I1,I4) + W4=PY4JTW(0,I4,I1,I3) + W5=PY4JTW(0,I3,I2,I4) + W6=PY4JTW(0,I4,I2,I3) + W7=PY4JTW(0,I1,I3,I4) + W8=PY4JTW(0,I2,I3,I4) + WR=(W1+W2+W3+W4+W5+W6+W7+W8)*PYR(0) + IF(W1.GT.WR) THEN + CALL PY4JTS(I1,I3,I2,I4,0,QMAX) + ELSEIF(W1+W2.GT.WR) THEN + CALL PY4JTS(I1,I4,I2,I3,0,QMAX) + ELSEIF(W1+W2+W3.GT.WR) THEN + CALL PY4JTS(0,I3,I1,I4,I2,QMAX) + ELSEIF(W1+W2+W3+W4.GT.WR) THEN + CALL PY4JTS(0,I4,I1,I3,I2,QMAX) + ELSEIF(W1+W2+W3+W4+W5.GT.WR) THEN + CALL PY4JTS(0,I3,I2,I4,I1,QMAX) + ELSEIF(W1+W2+W3+W4+W5+W6.GT.WR) THEN + CALL PY4JTS(0,I4,I2,I3,I1,QMAX) + ELSEIF(W1+W2+W3+W4+W5+W6+W7.GT.WR) THEN + CALL PY4JTS(0,I1,I3,I4,I2,QMAX) + ELSE + CALL PY4JTS(0,I2,I3,I4,I1,QMAX) + ENDIF + ENDIF + +C...Boost back original partons and mark them as deleted. + CALL PYROBO(I1,I1,0D0,0D0,BETA(1),BETA(2),BETA(3)) + CALL PYROBO(I2,I2,0D0,0D0,BETA(1),BETA(2),BETA(3)) + CALL PYROBO(I3,I3,0D0,0D0,BETA(1),BETA(2),BETA(3)) + CALL PYROBO(I4,I4,0D0,0D0,BETA(1),BETA(2),BETA(3)) + K(I1,1)=K(I1,1)+10 + K(I2,1)=K(I2,1)+10 + K(I3,1)=K(I3,1)+10 + K(I4,1)=K(I4,1)+10 + +C...Rotate shower initiating partons to be along z axis. + PHI=PYANGL(P(NSAV+1,1),P(NSAV+1,2)) + CALL PYROBO(NSAV+1,NSAV+6,0D0,-PHI,0D0,0D0,0D0) + THE=PYANGL(P(NSAV+1,3),P(NSAV+1,1)) + CALL PYROBO(NSAV+1,NSAV+6,-THE,0D0,0D0,0D0,0D0) + +C...Set up copy of shower initiating partons as on mass shell. + DO 140 I=N+1,N+2 + DO 130 J=1,5 + K(I,J)=0 + P(I,J)=0D0 + V(I,J)=V(I1,J) + 130 CONTINUE + K(I,1)=1 + K(I,2)=K(I-6,2) + 140 CONTINUE + IF(K(NSAV+1,2).EQ.K(I1,2)) THEN + K(N+1,3)=I1 + P(N+1,5)=P(I1,5) + K(N+2,3)=I2 + P(N+2,5)=P(I2,5) + ELSE + K(N+1,3)=I2 + P(N+1,5)=P(I2,5) + K(N+2,3)=I1 + P(N+2,5)=P(I1,5) + ENDIF + PABS=SQRT(MAX(0D0,(ECM**2-P(N+1,5)**2-P(N+2,5)**2)**2- + &(2D0*P(N+1,5)*P(N+2,5))**2))/(2D0*ECM) + P(N+1,3)=PABS + P(N+1,4)=SQRT(PABS**2+P(N+1,5)**2) + P(N+2,3)=-PABS + P(N+2,4)=SQRT(PABS**2+P(N+2,5)**2) + N=N+2 + +C...Decide whether to allow or not photon radiation in showers. +C...Connect up colours. + MSTJ(41)=2 + IF(IRAD.EQ.0) MSTJ(41)=1 + IJOIN(1)=N-1 + IJOIN(2)=N + CALL PYJOIN(2,IJOIN) + +C...Decide on maximum virtuality and do parton shower. + IF(PMAX.LT.PARJ(82)) THEN + PQMAX=QMAX + ELSE + PQMAX=PMAX + ENDIF + CALL PYSHOW(NSAV+1,-8,PQMAX) + +C...Rotate and boost back system. + CALL PYROBO(NSAV+1,N,THE,PHI,BETA(1),BETA(2),BETA(3)) + +C...Do fragmentation and decays. + CALL PYEXEC + +C...Call PYHEPC to convert output from PYJETS to HEPEVT common. + IF(ICOM.EQ.0) THEN + MSTU(28)=0 + CALL PYHEPC(1) + ENDIF + + RETURN + END + +C********************************************************************* + +C...PY4JTW +C...Auxiliary to PY4JET, to evaluate weight of configuration. + + FUNCTION PY4JTW(IA1,IA2,IA3,IA4) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + SAVE /PYJETS/ + +C...First case: when both original partons radiate. +C...IA1 /= 0: N+1 -> IA1 + IA2, N+2 -> IA3 + IA4. + IF(IA1.NE.0) THEN + DO 100 J=1,4 + P(N+1,J)=P(IA1,J)+P(IA2,J) + P(N+2,J)=P(IA3,J)+P(IA4,J) + 100 CONTINUE + P(N+1,5)=SQRT(MAX(0D0,P(N+1,4)**2-P(N+1,1)**2-P(N+1,2)**2- + & P(N+1,3)**2)) + P(N+2,5)=SQRT(MAX(0D0,P(N+2,4)**2-P(N+2,1)**2-P(N+2,2)**2- + & P(N+2,3)**2)) + Z1=P(IA1,4)/P(N+1,4) + WT1=(4D0/3D0)*((1D0+Z1**2)/(1D0-Z1))/(P(N+1,5)**2-P(IA1,5)**2) + Z2=P(IA3,4)/P(N+2,4) + WT2=(4D0/3D0)*((1D0+Z2**2)/(1D0-Z2))/(P(N+2,5)**2-P(IA3,5)**2) + +C...Second case: when one original parton radiates to three. +C...IA1 = 0: N+1 -> IA2 + N+2, N+2 -> IA3 + IA4. + ELSE + DO 110 J=1,4 + P(N+2,J)=P(IA3,J)+P(IA4,J) + P(N+1,J)=P(N+2,J)+P(IA2,J) + 110 CONTINUE + P(N+1,5)=SQRT(MAX(0D0,P(N+1,4)**2-P(N+1,1)**2-P(N+1,2)**2- + & P(N+1,3)**2)) + P(N+2,5)=SQRT(MAX(0D0,P(N+2,4)**2-P(N+2,1)**2-P(N+2,2)**2- + & P(N+2,3)**2)) + IF(K(IA2,2).EQ.21) THEN + Z1=P(N+2,4)/P(N+1,4) + WT1=(4D0/3D0)*((1D0+Z1**2)/(1D0-Z1))/(P(N+1,5)**2- + & P(IA3,5)**2) + ELSE + Z1=P(IA2,4)/P(N+1,4) + WT1=(4D0/3D0)*((1D0+Z1**2)/(1D0-Z1))/(P(N+1,5)**2- + & P(IA2,5)**2) + ENDIF + Z2=P(IA3,4)/P(N+2,4) + IF(K(IA2,2).EQ.21) THEN + WT2=(4D0/3D0)*((1D0+Z2**2)/(1D0-Z2))/(P(N+2,5)**2- + & P(IA3,5)**2) + ELSEIF(K(IA3,2).EQ.21) THEN + WT2=3D0*((1D0-Z2*(1D0-Z2))**2/(Z2*(1D0-Z2)))/P(N+2,5)**2 + ELSE + WT2=0.5D0*(Z2**2+(1D0-Z2)**2) + ENDIF + ENDIF + +C...Total weight. + PY4JTW=WT1*WT2 + + RETURN + END + +C********************************************************************* + +C...PY4JTS +C...Auxiliary to PY4JET, to set up chosen configuration. + + SUBROUTINE PY4JTS(IA1,IA2,IA3,IA4,IA5,QMAX) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + SAVE /PYJETS/ + +C...Reset info. + DO 110 I=N+1,N+6 + DO 100 J=1,5 + K(I,J)=0 + V(I,J)=V(IA2,J) + 100 CONTINUE + K(I,1)=16 + 110 CONTINUE + +C...First case: when both original partons radiate. +C...N+1 -> (IA1=N+3) + (IA2=N+4), N+2 -> (IA3=N+5) + (IA4=N+6). + IF(IA1.NE.0) THEN + +C...Set up flavour and history pointers for new partons. + K(N+1,2)=K(IA1,2) + K(N+2,2)=K(IA3,2) + K(N+3,2)=K(IA1,2) + K(N+4,2)=K(IA2,2) + K(N+5,2)=K(IA3,2) + K(N+6,2)=K(IA4,2) + K(N+1,3)=IA1 + K(N+1,4)=N+3 + K(N+1,5)=N+4 + K(N+2,3)=IA3 + K(N+2,4)=N+5 + K(N+2,5)=N+6 + K(N+3,3)=N+1 + K(N+4,3)=N+1 + K(N+5,3)=N+2 + K(N+6,3)=N+2 + +C...Set up momenta for new partons. + DO 120 J=1,5 + P(N+1,J)=P(IA1,J)+P(IA2,J) + P(N+2,J)=P(IA3,J)+P(IA4,J) + P(N+3,J)=P(IA1,J) + P(N+4,J)=P(IA2,J) + P(N+5,J)=P(IA3,J) + P(N+6,J)=P(IA4,J) + 120 CONTINUE + P(N+1,5)=SQRT(MAX(0D0,P(N+1,4)**2-P(N+1,1)**2-P(N+1,2)**2- + & P(N+1,3)**2)) + P(N+2,5)=SQRT(MAX(0D0,P(N+2,4)**2-P(N+2,1)**2-P(N+2,2)**2- + & P(N+2,3)**2)) + QMAX=MIN(P(N+1,5),P(N+2,5)) + +C...Second case: q radiates twice. +C...N+1 -> (IA2=N+4) + N+3, N+3 -> (IA3=N+5) + (IA4=N+6), +C...IA5=N+2 does not radiate. + ELSEIF(K(IA2,2).EQ.21) THEN + +C...Set up flavour and history pointers for new partons. + K(N+1,2)=K(IA3,2) + K(N+2,2)=K(IA5,2) + K(N+3,2)=K(IA3,2) + K(N+4,2)=K(IA2,2) + K(N+5,2)=K(IA3,2) + K(N+6,2)=K(IA4,2) + K(N+1,3)=IA3 + K(N+1,4)=N+3 + K(N+1,5)=N+4 + K(N+2,3)=IA5 + K(N+3,3)=N+1 + K(N+3,4)=N+5 + K(N+3,5)=N+6 + K(N+4,3)=N+1 + K(N+5,3)=N+3 + K(N+6,3)=N+3 + +C...Set up momenta for new partons. + DO 130 J=1,5 + P(N+1,J)=P(IA2,J)+P(IA3,J)+P(IA4,J) + P(N+2,J)=P(IA5,J) + P(N+3,J)=P(IA3,J)+P(IA4,J) + P(N+4,J)=P(IA2,J) + P(N+5,J)=P(IA3,J) + P(N+6,J)=P(IA4,J) + 130 CONTINUE + P(N+1,5)=SQRT(MAX(0D0,P(N+1,4)**2-P(N+1,1)**2-P(N+1,2)**2- + & P(N+1,3)**2)) + P(N+3,5)=SQRT(MAX(0D0,P(N+3,4)**2-P(N+3,1)**2-P(N+3,2)**2- + & P(N+3,3)**2)) + QMAX=P(N+3,5) + +C...Third case: q radiates g, g branches. +C...N+1 -> (IA2=N+3) + N+4, N+4 -> (IA3=N+5) + (IA4=N+6), +C...IA5=N+2 does not radiate. + ELSE + +C...Set up flavour and history pointers for new partons. + K(N+1,2)=K(IA2,2) + K(N+2,2)=K(IA5,2) + K(N+3,2)=K(IA2,2) + K(N+4,2)=21 + K(N+5,2)=K(IA3,2) + K(N+6,2)=K(IA4,2) + K(N+1,3)=IA2 + K(N+1,4)=N+3 + K(N+1,5)=N+4 + K(N+2,3)=IA5 + K(N+3,3)=N+1 + K(N+4,3)=N+1 + K(N+4,4)=N+5 + K(N+4,5)=N+6 + K(N+5,3)=N+4 + K(N+6,3)=N+4 + +C...Set up momenta for new partons. + DO 140 J=1,5 + P(N+1,J)=P(IA2,J)+P(IA3,J)+P(IA4,J) + P(N+2,J)=P(IA5,J) + P(N+3,J)=P(IA2,J) + P(N+4,J)=P(IA3,J)+P(IA4,J) + P(N+5,J)=P(IA3,J) + P(N+6,J)=P(IA4,J) + 140 CONTINUE + P(N+1,5)=SQRT(MAX(0D0,P(N+1,4)**2-P(N+1,1)**2-P(N+1,2)**2- + & P(N+1,3)**2)) + P(N+4,5)=SQRT(MAX(0D0,P(N+4,4)**2-P(N+4,1)**2-P(N+4,2)**2- + & P(N+4,3)**2)) + QMAX=P(N+4,5) + + ENDIF + N=N+6 + + RETURN + END + +C********************************************************************* + +C...PYJOIN +C...Connects a sequence of partons with colour flow indices, +C...as required for subsequent shower evolution (or other operations). + + SUBROUTINE PYJOIN(NJOIN,IJOIN) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ +C...Local array. + DIMENSION IJOIN(*) + +C...Check that partons are of right types to be connected. + IF(NJOIN.LT.2) GOTO 120 + KQSUM=0 + DO 100 IJN=1,NJOIN + I=IJOIN(IJN) + IF(I.LE.0.OR.I.GT.N) GOTO 120 + IF(K(I,1).LT.1.OR.K(I,1).GT.3) GOTO 120 + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0) GOTO 120 + KQ=KCHG(KC,2)*ISIGN(1,K(I,2)) + IF(KQ.EQ.0) GOTO 120 + IF(IJN.NE.1.AND.IJN.NE.NJOIN.AND.KQ.NE.2) GOTO 120 + IF(KQ.NE.2) KQSUM=KQSUM+KQ + IF(IJN.EQ.1) KQS=KQ + 100 CONTINUE + IF(KQSUM.NE.0) GOTO 120 + +C...Connect the partons sequentially (closing for gluon loop). + KCS=(9-KQS)/2 + IF(KQS.EQ.2) KCS=INT(4.5D0+PYR(0)) + DO 110 IJN=1,NJOIN + I=IJOIN(IJN) + K(I,1)=3 + IF(IJN.NE.1) IP=IJOIN(IJN-1) + IF(IJN.EQ.1) IP=IJOIN(NJOIN) + IF(IJN.NE.NJOIN) IN=IJOIN(IJN+1) + IF(IJN.EQ.NJOIN) IN=IJOIN(1) + K(I,KCS)=MSTU(5)*IN + K(I,9-KCS)=MSTU(5)*IP + IF(IJN.EQ.1.AND.KQS.NE.2) K(I,9-KCS)=0 + IF(IJN.EQ.NJOIN.AND.KQS.NE.2) K(I,KCS)=0 + 110 CONTINUE + +C...Error exit: no action taken. + RETURN + 120 CALL PYERRM(12, + &'(PYJOIN:) given entries can not be joined by one string') + + RETURN + END + +C********************************************************************* + +C...PYGIVE +C...Sets values of commonblock variables. + + SUBROUTINE PYGIVE(CHIN) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYDAT4/CHAF(500,2) + CHARACTER CHAF*16 + COMMON/PYDATR/MRPY(6),RRPY(100) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + COMMON/PYINT3/XSFX(2,-40:40),ISIG(1000,3),SIGH(1000) + COMMON/PYINT4/MWID(500),WIDS(500,5) + COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3) + COMMON/PYINT6/PROC(0:500) + CHARACTER PROC*28 + COMMON/PYINT7/SIGT(0:6,0:6,0:5) + COMMON/PYINT8/XPVMD(-6:6),XPANL(-6:6),XPANH(-6:6),XPBEH(-6:6), + &XPDIR(-6:6) + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYDAT3/,/PYDAT4/,/PYDATR/, + &/PYSUBS/,/PYPARS/,/PYINT1/,/PYINT2/,/PYINT3/,/PYINT4/, + &/PYINT5/,/PYINT6/,/PYINT7/,/PYINT8/,/PYMSSM/ +C...Local arrays and character variables. + CHARACTER CHIN*(*),CHFIX*104,CHBIT*104,CHOLD*8,CHNEW*8,CHOLD2*28, + &CHNEW2*28,CHNAM*6,CHVAR(49)*6,CHALP(2)*26,CHIND*8,CHINI*10, + &CHINR*16 + DIMENSION MSVAR(49,8) + +C...For each variable to be translated give: name, +C...integer/real/character, no. of indices, lower&upper index bounds. + DATA CHVAR/'N','K','P','V','MSTU','PARU','MSTJ','PARJ','KCHG', + &'PMAS','PARF','VCKM','MDCY','MDME','BRAT','KFDP','CHAF','MRPY', + &'RRPY','MSEL','MSUB','KFIN','CKIN','MSTP','PARP','MSTI','PARI', + &'MINT','VINT','ISET','KFPR','COEF','ICOL','XSFX','ISIG','SIGH', + &'MWID','WIDS','NGEN','XSEC','PROC','SIGT','XPVMD','XPANL', + &'XPANH','XPBEH','XPDIR','IMSS','RMSS'/ + DATA ((MSVAR(I,J),J=1,8),I=1,49)/ 1,7*0, 1,2,1,4000,1,5,2*0, + &2,2,1,4000,1,5,2*0, 2,2,1,4000,1,5,2*0, 1,1,1,200,4*0, + &2,1,1,200,4*0, 1,1,1,200,4*0, 2,1,1,200,4*0, + &1,2,1,500,1,4,2*0, 2,2,1,500,1,4,2*0, 2,1,1,2000,4*0, + &2,2,1,4,1,4,2*0, 1,2,1,500,1,3,2*0, 1,2,1,4000,1,2,2*0, + &2,1,1,4000,4*0, 1,2,1,4000,1,5,2*0, 3,2,1,500,1,2,2*0, + &1,1,1,6,4*0, 2,1,1,100,4*0, + &1,7*0, 1,1,1,500,4*0, 1,2,1,2,-40,40,2*0, 2,1,1,200,4*0, + &1,1,1,200,4*0, 2,1,1,200,4*0, 1,1,1,200,4*0, 2,1,1,200,4*0, + &1,1,1,400,4*0, 2,1,1,400,4*0, 1,1,1,500,4*0, + &1,2,1,500,1,2,2*0, 2,2,1,500,1,20,2*0, 1,3,1,40,1,4,1,2, + &2,2,1,2,-40,40,2*0, 1,2,1,1000,1,3,2*0, 2,1,1,1000,4*0, + &1,1,1,500,4*0, 2,2,1,500,1,5,2*0, 1,2,0,500,1,3,2*0, + &2,2,0,500,1,3,2*0, 4,1,0,500,4*0, 2,3,0,6,0,6,0,5, + &2,1,-6,6,4*0, 2,1,-6,6,4*0, 2,1,-6,6,4*0, + &2,1,-6,6,4*0, 2,1,-6,6,4*0, 1,1,0,99,4*0, 2,1,0,99,4*0/ + DATA CHALP/'abcdefghijklmnopqrstuvwxyz', + &'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/ + +C...Length of character variable. Subdivide it into instructions. + IF(MSTU(12).GE.1) CALL PYLIST(0) + CHBIT=CHIN//' ' + LBIT=101 + 100 LBIT=LBIT-1 + IF(CHBIT(LBIT:LBIT).EQ.' ') GOTO 100 + LTOT=0 + DO 110 LCOM=1,LBIT + IF(CHBIT(LCOM:LCOM).EQ.' ') GOTO 110 + LTOT=LTOT+1 + CHFIX(LTOT:LTOT)=CHBIT(LCOM:LCOM) + 110 CONTINUE + LLOW=0 + 120 LHIG=LLOW+1 + 130 LHIG=LHIG+1 + IF(LHIG.LE.LTOT.AND.CHFIX(LHIG:LHIG).NE.';') GOTO 130 + LBIT=LHIG-LLOW-1 + CHBIT(1:LBIT)=CHFIX(LLOW+1:LHIG-1) + +C...Identify commonblock variable. + LNAM=1 + 140 LNAM=LNAM+1 + IF(CHBIT(LNAM:LNAM).NE.'('.AND.CHBIT(LNAM:LNAM).NE.'='.AND. + &LNAM.LE.6) GOTO 140 + CHNAM=CHBIT(1:LNAM-1)//' ' + DO 160 LCOM=1,LNAM-1 + DO 150 LALP=1,26 + IF(CHNAM(LCOM:LCOM).EQ.CHALP(1)(LALP:LALP)) CHNAM(LCOM:LCOM)= + & CHALP(2)(LALP:LALP) + 150 CONTINUE + 160 CONTINUE + IVAR=0 + DO 170 IV=1,49 + IF(CHNAM.EQ.CHVAR(IV)) IVAR=IV + 170 CONTINUE + IF(IVAR.EQ.0) THEN + CALL PYERRM(18,'(PYGIVE:) do not recognize variable '//CHNAM) + LLOW=LHIG + IF(LLOW.LT.LTOT) GOTO 120 + RETURN + ENDIF + +C...Identify any indices. + I1=0 + I2=0 + I3=0 + NINDX=0 + IF(CHBIT(LNAM:LNAM).EQ.'(') THEN + LIND=LNAM + 180 LIND=LIND+1 + IF(CHBIT(LIND:LIND).NE.')'.AND.CHBIT(LIND:LIND).NE.',') GOTO 180 + CHIND=' ' + IF((CHBIT(LNAM+1:LNAM+1).EQ.'C'.OR.CHBIT(LNAM+1:LNAM+1).EQ.'c') + & .AND.(IVAR.EQ.9.OR.IVAR.EQ.10.OR.IVAR.EQ.13.OR.IVAR.EQ.17)) + & THEN + CHIND(LNAM-LIND+11:8)=CHBIT(LNAM+2:LIND-1) + READ(CHIND,'(I8)') KF + I1=PYCOMP(KF) + ELSEIF(CHBIT(LNAM+1:LNAM+1).EQ.'C'.OR.CHBIT(LNAM+1:LNAM+1).EQ. + & 'c') THEN + CALL PYERRM(18,'(PYGIVE:) not allowed to use C index for '// + & CHNAM) + LLOW=LHIG + IF(LLOW.LT.LTOT) GOTO 120 + RETURN + ELSE + CHIND(LNAM-LIND+10:8)=CHBIT(LNAM+1:LIND-1) + READ(CHIND,'(I8)') I1 + ENDIF + LNAM=LIND + IF(CHBIT(LNAM:LNAM).EQ.')') LNAM=LNAM+1 + NINDX=1 + ENDIF + IF(CHBIT(LNAM:LNAM).EQ.',') THEN + LIND=LNAM + 190 LIND=LIND+1 + IF(CHBIT(LIND:LIND).NE.')'.AND.CHBIT(LIND:LIND).NE.',') GOTO 190 + CHIND=' ' + CHIND(LNAM-LIND+10:8)=CHBIT(LNAM+1:LIND-1) + READ(CHIND,'(I8)') I2 + LNAM=LIND + IF(CHBIT(LNAM:LNAM).EQ.')') LNAM=LNAM+1 + NINDX=2 + ENDIF + IF(CHBIT(LNAM:LNAM).EQ.',') THEN + LIND=LNAM + 200 LIND=LIND+1 + IF(CHBIT(LIND:LIND).NE.')'.AND.CHBIT(LIND:LIND).NE.',') GOTO 200 + CHIND=' ' + CHIND(LNAM-LIND+10:8)=CHBIT(LNAM+1:LIND-1) + READ(CHIND,'(I8)') I3 + LNAM=LIND+1 + NINDX=3 + ENDIF + +C...Check that indices allowed. + IERR=0 + IF(NINDX.NE.MSVAR(IVAR,2)) IERR=1 + IF(NINDX.GE.1.AND.(I1.LT.MSVAR(IVAR,3).OR.I1.GT.MSVAR(IVAR,4))) + &IERR=2 + IF(NINDX.GE.2.AND.(I2.LT.MSVAR(IVAR,5).OR.I2.GT.MSVAR(IVAR,6))) + &IERR=3 + IF(NINDX.EQ.3.AND.(I3.LT.MSVAR(IVAR,7).OR.I3.GT.MSVAR(IVAR,8))) + &IERR=4 + IF(CHBIT(LNAM:LNAM).NE.'=') IERR=5 + IF(IERR.GE.1) THEN + CALL PYERRM(18,'(PYGIVE:) unallowed indices for '// + & CHBIT(1:LNAM-1)) + LLOW=LHIG + IF(LLOW.LT.LTOT) GOTO 120 + RETURN + ENDIF + +C...Save old value of variable. + IF(IVAR.EQ.1) THEN + IOLD=N + ELSEIF(IVAR.EQ.2) THEN + IOLD=K(I1,I2) + ELSEIF(IVAR.EQ.3) THEN + ROLD=P(I1,I2) + ELSEIF(IVAR.EQ.4) THEN + ROLD=V(I1,I2) + ELSEIF(IVAR.EQ.5) THEN + IOLD=MSTU(I1) + ELSEIF(IVAR.EQ.6) THEN + ROLD=PARU(I1) + ELSEIF(IVAR.EQ.7) THEN + IOLD=MSTJ(I1) + ELSEIF(IVAR.EQ.8) THEN + ROLD=PARJ(I1) + ELSEIF(IVAR.EQ.9) THEN + IOLD=KCHG(I1,I2) + ELSEIF(IVAR.EQ.10) THEN + ROLD=PMAS(I1,I2) + ELSEIF(IVAR.EQ.11) THEN + ROLD=PARF(I1) + ELSEIF(IVAR.EQ.12) THEN + ROLD=VCKM(I1,I2) + ELSEIF(IVAR.EQ.13) THEN + IOLD=MDCY(I1,I2) + ELSEIF(IVAR.EQ.14) THEN + IOLD=MDME(I1,I2) + ELSEIF(IVAR.EQ.15) THEN + ROLD=BRAT(I1) + ELSEIF(IVAR.EQ.16) THEN + IOLD=KFDP(I1,I2) + ELSEIF(IVAR.EQ.17) THEN + CHOLD=CHAF(I1,I2) + ELSEIF(IVAR.EQ.18) THEN + IOLD=MRPY(I1) + ELSEIF(IVAR.EQ.19) THEN + ROLD=RRPY(I1) + ELSEIF(IVAR.EQ.20) THEN + IOLD=MSEL + ELSEIF(IVAR.EQ.21) THEN + IOLD=MSUB(I1) + ELSEIF(IVAR.EQ.22) THEN + IOLD=KFIN(I1,I2) + ELSEIF(IVAR.EQ.23) THEN + ROLD=CKIN(I1) + ELSEIF(IVAR.EQ.24) THEN + IOLD=MSTP(I1) + ELSEIF(IVAR.EQ.25) THEN + ROLD=PARP(I1) + ELSEIF(IVAR.EQ.26) THEN + IOLD=MSTI(I1) + ELSEIF(IVAR.EQ.27) THEN + ROLD=PARI(I1) + ELSEIF(IVAR.EQ.28) THEN + IOLD=MINT(I1) + ELSEIF(IVAR.EQ.29) THEN + ROLD=VINT(I1) + ELSEIF(IVAR.EQ.30) THEN + IOLD=ISET(I1) + ELSEIF(IVAR.EQ.31) THEN + IOLD=KFPR(I1,I2) + ELSEIF(IVAR.EQ.32) THEN + ROLD=COEF(I1,I2) + ELSEIF(IVAR.EQ.33) THEN + IOLD=ICOL(I1,I2,I3) + ELSEIF(IVAR.EQ.34) THEN + ROLD=XSFX(I1,I2) + ELSEIF(IVAR.EQ.35) THEN + IOLD=ISIG(I1,I2) + ELSEIF(IVAR.EQ.36) THEN + ROLD=SIGH(I1) + ELSEIF(IVAR.EQ.37) THEN + IOLD=MWID(I1) + ELSEIF(IVAR.EQ.38) THEN + ROLD=WIDS(I1,I2) + ELSEIF(IVAR.EQ.39) THEN + IOLD=NGEN(I1,I2) + ELSEIF(IVAR.EQ.40) THEN + ROLD=XSEC(I1,I2) + ELSEIF(IVAR.EQ.41) THEN + CHOLD2=PROC(I1) + ELSEIF(IVAR.EQ.42) THEN + ROLD=SIGT(I1,I2,I3) + ELSEIF(IVAR.EQ.43) THEN + ROLD=XPVMD(I1) + ELSEIF(IVAR.EQ.44) THEN + ROLD=XPANL(I1) + ELSEIF(IVAR.EQ.45) THEN + ROLD=XPANH(I1) + ELSEIF(IVAR.EQ.46) THEN + ROLD=XPBEH(I1) + ELSEIF(IVAR.EQ.47) THEN + ROLD=XPDIR(I1) + ELSEIF(IVAR.EQ.48) THEN + IOLD=IMSS(I1) + ELSEIF(IVAR.EQ.49) THEN + ROLD=RMSS(I1) + ENDIF + +C...Print current value of variable. Loop back. + IF(LNAM.GE.LBIT) THEN + CHBIT(LNAM:14)=' ' + CHBIT(15:60)=' has the value ' + IF(MSVAR(IVAR,1).EQ.1) THEN + WRITE(CHBIT(51:60),'(I10)') IOLD + ELSEIF(MSVAR(IVAR,1).EQ.2) THEN + WRITE(CHBIT(47:60),'(F14.5)') ROLD + ELSEIF(MSVAR(IVAR,1).EQ.3) THEN + CHBIT(53:60)=CHOLD + ELSE + CHBIT(33:60)=CHOLD + ENDIF + IF(MSTU(13).GE.1) WRITE(MSTU(11),5000) CHBIT(1:60) + LLOW=LHIG + IF(LLOW.LT.LTOT) GOTO 120 + RETURN + ENDIF + +C...Read in new variable value. + IF(MSVAR(IVAR,1).EQ.1) THEN + CHINI=' ' + CHINI(LNAM-LBIT+11:10)=CHBIT(LNAM+1:LBIT) + READ(CHINI,'(I10)') INEW + ELSEIF(MSVAR(IVAR,1).EQ.2) THEN + CHINR=' ' + CHINR(LNAM-LBIT+17:16)=CHBIT(LNAM+1:LBIT) + READ(CHINR,*) RNEW + ELSEIF(MSVAR(IVAR,1).EQ.3) THEN + CHNEW=CHBIT(LNAM+1:LBIT)//' ' + ELSE + CHNEW2=CHBIT(LNAM+1:LBIT)//' ' + ENDIF + +C...Store new variable value. + IF(IVAR.EQ.1) THEN + N=INEW + ELSEIF(IVAR.EQ.2) THEN + K(I1,I2)=INEW + ELSEIF(IVAR.EQ.3) THEN + P(I1,I2)=RNEW + ELSEIF(IVAR.EQ.4) THEN + V(I1,I2)=RNEW + ELSEIF(IVAR.EQ.5) THEN + MSTU(I1)=INEW + ELSEIF(IVAR.EQ.6) THEN + PARU(I1)=RNEW + ELSEIF(IVAR.EQ.7) THEN + MSTJ(I1)=INEW + ELSEIF(IVAR.EQ.8) THEN + PARJ(I1)=RNEW + ELSEIF(IVAR.EQ.9) THEN + KCHG(I1,I2)=INEW + ELSEIF(IVAR.EQ.10) THEN + PMAS(I1,I2)=RNEW + ELSEIF(IVAR.EQ.11) THEN + PARF(I1)=RNEW + ELSEIF(IVAR.EQ.12) THEN + VCKM(I1,I2)=RNEW + ELSEIF(IVAR.EQ.13) THEN + MDCY(I1,I2)=INEW + ELSEIF(IVAR.EQ.14) THEN + MDME(I1,I2)=INEW + ELSEIF(IVAR.EQ.15) THEN + BRAT(I1)=RNEW + ELSEIF(IVAR.EQ.16) THEN + KFDP(I1,I2)=INEW + ELSEIF(IVAR.EQ.17) THEN + CHAF(I1,I2)=CHNEW + ELSEIF(IVAR.EQ.18) THEN + MRPY(I1)=INEW + ELSEIF(IVAR.EQ.19) THEN + RRPY(I1)=RNEW + ELSEIF(IVAR.EQ.20) THEN + MSEL=INEW + ELSEIF(IVAR.EQ.21) THEN + MSUB(I1)=INEW + ELSEIF(IVAR.EQ.22) THEN + KFIN(I1,I2)=INEW + ELSEIF(IVAR.EQ.23) THEN + CKIN(I1)=RNEW + ELSEIF(IVAR.EQ.24) THEN + MSTP(I1)=INEW + ELSEIF(IVAR.EQ.25) THEN + PARP(I1)=RNEW + ELSEIF(IVAR.EQ.26) THEN + MSTI(I1)=INEW + ELSEIF(IVAR.EQ.27) THEN + PARI(I1)=RNEW + ELSEIF(IVAR.EQ.28) THEN + MINT(I1)=INEW + ELSEIF(IVAR.EQ.29) THEN + VINT(I1)=RNEW + ELSEIF(IVAR.EQ.30) THEN + ISET(I1)=INEW + ELSEIF(IVAR.EQ.31) THEN + KFPR(I1,I2)=INEW + ELSEIF(IVAR.EQ.32) THEN + COEF(I1,I2)=RNEW + ELSEIF(IVAR.EQ.33) THEN + ICOL(I1,I2,I3)=INEW + ELSEIF(IVAR.EQ.34) THEN + XSFX(I1,I2)=RNEW + ELSEIF(IVAR.EQ.35) THEN + ISIG(I1,I2)=INEW + ELSEIF(IVAR.EQ.36) THEN + SIGH(I1)=RNEW + ELSEIF(IVAR.EQ.37) THEN + MWID(I1)=INEW + ELSEIF(IVAR.EQ.38) THEN + WIDS(I1,I2)=RNEW + ELSEIF(IVAR.EQ.39) THEN + NGEN(I1,I2)=INEW + ELSEIF(IVAR.EQ.40) THEN + XSEC(I1,I2)=RNEW + ELSEIF(IVAR.EQ.41) THEN + PROC(I1)=CHNEW2 + ELSEIF(IVAR.EQ.42) THEN + SIGT(I1,I2,I3)=RNEW + ELSEIF(IVAR.EQ.43) THEN + XPVMD(I1)=RNEW + ELSEIF(IVAR.EQ.44) THEN + XPANL(I1)=RNEW + ELSEIF(IVAR.EQ.45) THEN + XPANH(I1)=RNEW + ELSEIF(IVAR.EQ.46) THEN + XPBEH(I1)=RNEW + ELSEIF(IVAR.EQ.47) THEN + XPDIR(I1)=RNEW + ELSEIF(IVAR.EQ.48) THEN + IMSS(I1)=INEW + ELSEIF(IVAR.EQ.49) THEN + RMSS(I1)=RNEW + ENDIF + +C...Write old and new value. Loop back. + CHBIT(LNAM:14)=' ' + CHBIT(15:60)=' changed from to ' + IF(MSVAR(IVAR,1).EQ.1) THEN + WRITE(CHBIT(33:42),'(I10)') IOLD + WRITE(CHBIT(51:60),'(I10)') INEW + IF(MSTU(13).GE.1) WRITE(MSTU(11),5000) CHBIT(1:60) + ELSEIF(MSVAR(IVAR,1).EQ.2) THEN + WRITE(CHBIT(29:42),'(F14.5)') ROLD + WRITE(CHBIT(47:60),'(F14.5)') RNEW + IF(MSTU(13).GE.1) WRITE(MSTU(11),5000) CHBIT(1:60) + ELSEIF(MSVAR(IVAR,1).EQ.3) THEN + CHBIT(35:42)=CHOLD + CHBIT(53:60)=CHNEW + IF(MSTU(13).GE.1) WRITE(MSTU(11),5000) CHBIT(1:60) + ELSE + CHBIT(15:88)=' changed from '//CHOLD2//' to '//CHNEW2 + IF(MSTU(13).GE.1) WRITE(MSTU(11),5100) CHBIT(1:88) + ENDIF + LLOW=LHIG + IF(LLOW.LT.LTOT) GOTO 120 + +C...Format statement for output on unit MSTU(11) (by default 6). + 5000 FORMAT(5X,A60) + 5100 FORMAT(5X,A88) + + RETURN + END + +C********************************************************************* + +C...PYEXEC +C...Administrates the fragmentation and decay chain. + + SUBROUTINE PYEXEC + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYINT4/MWID(500),WIDS(500,5) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYDAT3/,/PYINT4/ +C...Local array. + DIMENSION PS(2,6),IJOIN(100) + +C...Initialize and reset. + MSTU(24)=0 + IF(MSTU(12).GE.1) CALL PYLIST(0) + MSTU(31)=MSTU(31)+1 + MSTU(1)=0 + MSTU(2)=0 + MSTU(3)=0 + IF(MSTU(17).LE.0) MSTU(90)=0 + MCONS=1 + +C...Sum up momentum, energy and charge for starting entries. + NSAV=N + DO 110 I=1,2 + DO 100 J=1,6 + PS(I,J)=0D0 + 100 CONTINUE + 110 CONTINUE + DO 130 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 130 + DO 120 J=1,4 + PS(1,J)=PS(1,J)+P(I,J) + 120 CONTINUE + PS(1,6)=PS(1,6)+PYCHGE(K(I,2)) + 130 CONTINUE + PARU(21)=PS(1,4) + +C...Prepare system for subsequent fragmentation/decay. + CALL PYPREP(0) + +C...Loop through jet fragmentation and particle decays. + MBE=0 + 140 MBE=MBE+1 + IP=0 + 150 IP=IP+1 + KC=0 + IF(K(IP,1).GT.0.AND.K(IP,1).LE.10) KC=PYCOMP(K(IP,2)) + IF(KC.EQ.0) THEN + +C...Deal with any remaining undecayed resonance +C...(normally the task of PYEVNT, so seldom used). + ELSEIF(MWID(KC).NE.0) THEN + IBEG=IP + IF(KCHG(KC,2).NE.0.AND.K(I,1).NE.3) THEN + IBEG=IP+1 + 160 IBEG=IBEG-1 + IF(IBEG.GE.2.AND.K(IBEG,1).EQ.2) GOTO 160 + IF(K(IBEG,1).NE.2) IBEG=IBEG+1 + IEND=IP-1 + 170 IEND=IEND+1 + IF(IEND.LT.N.AND.K(IEND,1).EQ.2) GOTO 170 + IF(IEND.LT.N.AND.KCHG(PYCOMP(K(IEND,2)),2).EQ.0) GOTO 170 + NJOIN=0 + DO 180 I=IBEG,IEND + IF(KCHG(PYCOMP(K(IEND,2)),2).NE.0) THEN + NJOIN=NJOIN+1 + IJOIN(NJOIN)=I + ENDIF + 180 CONTINUE + ENDIF + CALL PYRESD(IP) + CALL PYPREP(IBEG) + +C...Particle decay if unstable and allowed. Save long-lived particle +C...decays until second pass after Bose-Einstein effects. + ELSEIF(KCHG(KC,2).EQ.0) THEN + IF(MSTJ(21).GE.1.AND.MDCY(KC,1).GE.1.AND.(MSTJ(51).LE.0.OR.MBE + & .EQ.2.OR.PMAS(KC,2).GE.PARJ(91).OR.IABS(K(IP,2)).EQ.311)) + & CALL PYDECY(IP) + +C...Decay products may develop a shower. + IF(MSTJ(92).GT.0) THEN + IP1=MSTJ(92) + QMAX=SQRT(MAX(0D0,(P(IP1,4)+P(IP1+1,4))**2-(P(IP1,1)+P(IP1+1, + & 1))**2-(P(IP1,2)+P(IP1+1,2))**2-(P(IP1,3)+P(IP1+1,3))**2)) + CALL PYSHOW(IP1,IP1+1,QMAX) + CALL PYPREP(IP1) + MSTJ(92)=0 + ELSEIF(MSTJ(92).LT.0) THEN + IP1=-MSTJ(92) + CALL PYSHOW(IP1,-3,P(IP,5)) + CALL PYPREP(IP1) + MSTJ(92)=0 + ENDIF + +C...Jet fragmentation: string or independent fragmentation. + ELSEIF(K(IP,1).EQ.1.OR.K(IP,1).EQ.2) THEN + MFRAG=MSTJ(1) + IF(MFRAG.GE.1.AND.K(IP,1).EQ.1) MFRAG=2 + IF(MSTJ(21).GE.2.AND.K(IP,1).EQ.2.AND.N.GT.IP) THEN + IF(K(IP+1,1).EQ.1.AND.K(IP+1,3).EQ.K(IP,3).AND. + & K(IP,3).GT.0.AND.K(IP,3).LT.IP) THEN + IF(KCHG(PYCOMP(K(K(IP,3),2)),2).EQ.0) MFRAG=MIN(1,MFRAG) + ENDIF + ENDIF + IF(MFRAG.EQ.1) CALL PYSTRF(IP) + IF(MFRAG.EQ.2) CALL PYINDF(IP) + IF(MFRAG.EQ.2.AND.K(IP,1).EQ.1) MCONS=0 + IF(MFRAG.EQ.2.AND.(MSTJ(3).LE.0.OR.MOD(MSTJ(3),5).EQ.0)) MCONS=0 + ENDIF + +C...Loop back if enough space left in PYJETS and no error abort. + IF(MSTU(24).NE.0.AND.MSTU(21).GE.2) THEN + ELSEIF(IP.LT.N.AND.N.LT.MSTU(4)-20-MSTU(32)) THEN + GOTO 150 + ELSEIF(IP.LT.N) THEN + CALL PYERRM(11,'(PYEXEC:) no more memory left in PYJETS') + ENDIF + +C...Include simple Bose-Einstein effect parametrization if desired. + IF(MBE.EQ.1.AND.MSTJ(51).GE.1) THEN + CALL PYBOEI(NSAV) + GOTO 140 + ENDIF + +C...Check that momentum, energy and charge were conserved. + DO 200 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 200 + DO 190 J=1,4 + PS(2,J)=PS(2,J)+P(I,J) + 190 CONTINUE + PS(2,6)=PS(2,6)+PYCHGE(K(I,2)) + 200 CONTINUE + PDEV=(ABS(PS(2,1)-PS(1,1))+ABS(PS(2,2)-PS(1,2))+ABS(PS(2,3)- + &PS(1,3))+ABS(PS(2,4)-PS(1,4)))/(1D0+ABS(PS(2,4))+ABS(PS(1,4))) + IF(MCONS.EQ.1.AND.PDEV.GT.PARU(11)) CALL PYERRM(15, + &'(PYEXEC:) four-momentum was not conserved') + IF(MCONS.EQ.1.AND.ABS(PS(2,6)-PS(1,6)).GT.0.1D0) CALL PYERRM(15, + &'(PYEXEC:) charge was not conserved') + + RETURN + END + +C********************************************************************* + +C...PYPREP +C...Rearranges partons along strings. +C...Allows small systems to collapse into one or two particles. +C...Checks flavours and colour singlet invarient masses. + + SUBROUTINE PYPREP(IP) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYDAT3/ +C...Local arrays. + DIMENSION DPS(5),DPC(5),UE(3),PG(5), + &E1(3),E2(3),E3(3),E4(3),ECL(3) + +C...Function to give four-product. + FOUR(I,J)=P(I,4)*P(J,4)-P(I,1)*P(J,1)-P(I,2)*P(J,2)-P(I,3)*P(J,3) + +C...Rearrange parton shower product listing along strings: begin loop. + I1=N + DO 130 MQGST=1,2 + DO 120 I=MAX(1,IP),N + IF(K(I,1).NE.3) GOTO 120 + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0) GOTO 120 + KQ=KCHG(KC,2) + IF(KQ.EQ.0.OR.(MQGST.EQ.1.AND.KQ.EQ.2)) GOTO 120 + +C...Pick up loose string end. + KCS=4 + IF(KQ*ISIGN(1,K(I,2)).LT.0) KCS=5 + IA=I + NSTP=0 + 100 NSTP=NSTP+1 + IF(NSTP.GT.4*N) THEN + CALL PYERRM(14,'(PYPREP:) caught in infinite loop') + RETURN + ENDIF + +C...Copy undecayed parton. + IF(K(IA,1).EQ.3) THEN + IF(I1.GE.MSTU(4)-MSTU(32)-5) THEN + CALL PYERRM(11,'(PYPREP:) no more memory left in PYJETS') + RETURN + ENDIF + I1=I1+1 + K(I1,1)=2 + IF(NSTP.GE.2.AND.KCHG(PYCOMP(K(IA,2)),2).NE.2) K(I1,1)=1 + K(I1,2)=K(IA,2) + K(I1,3)=IA + K(I1,4)=0 + K(I1,5)=0 + DO 110 J=1,5 + P(I1,J)=P(IA,J) + V(I1,J)=V(IA,J) + 110 CONTINUE + K(IA,1)=K(IA,1)+10 + IF(K(I1,1).EQ.1) GOTO 120 + ENDIF + +C...Go to next parton in colour space. + IB=IA + IF(MOD(K(IB,KCS)/MSTU(5)**2,2).EQ.0.AND.MOD(K(IB,KCS),MSTU(5)) + & .NE.0) THEN + IA=MOD(K(IB,KCS),MSTU(5)) + K(IB,KCS)=K(IB,KCS)+MSTU(5)**2 + MREV=0 + ELSE + IF(K(IB,KCS).GE.2*MSTU(5)**2.OR.MOD(K(IB,KCS)/MSTU(5), + & MSTU(5)).EQ.0) KCS=9-KCS + IA=MOD(K(IB,KCS)/MSTU(5),MSTU(5)) + K(IB,KCS)=K(IB,KCS)+2*MSTU(5)**2 + MREV=1 + ENDIF + IF(IA.LE.0.OR.IA.GT.N) THEN + CALL PYERRM(12,'(PYPREP:) colour rearrangement failed') + RETURN + ENDIF + IF(MOD(K(IA,4)/MSTU(5),MSTU(5)).EQ.IB.OR.MOD(K(IA,5)/MSTU(5), + & MSTU(5)).EQ.IB) THEN + IF(MREV.EQ.1) KCS=9-KCS + IF(MOD(K(IA,KCS)/MSTU(5),MSTU(5)).NE.IB) KCS=9-KCS + K(IA,KCS)=K(IA,KCS)+2*MSTU(5)**2 + ELSE + IF(MREV.EQ.0) KCS=9-KCS + IF(MOD(K(IA,KCS),MSTU(5)).NE.IB) KCS=9-KCS + K(IA,KCS)=K(IA,KCS)+MSTU(5)**2 + ENDIF + IF(IA.NE.I) GOTO 100 + K(I1,1)=1 + 120 CONTINUE + 130 CONTINUE + N=I1 + +C...Done if no checks on small-mass systems. + IF(MSTJ(14).LT.0) RETURN + IF(MSTJ(14).EQ.0) GOTO 540 + +C...Find lowest-mass colour singlet jet system. + NS=N + 140 NSIN=N-NS + PDMIN=1D0+PARJ(32) + IC=0 + DO 190 I=MAX(1,IP),N + IF(K(I,1).NE.1.AND.K(I,1).NE.2) THEN + ELSEIF(K(I,1).EQ.2.AND.IC.EQ.0) THEN + NSIN=NSIN+1 + IC=I + DO 150 J=1,4 + DPS(J)=P(I,J) + 150 CONTINUE + MSTJ(93)=1 + DPS(5)=PYMASS(K(I,2)) + ELSEIF(K(I,1).EQ.2) THEN + DO 160 J=1,4 + DPS(J)=DPS(J)+P(I,J) + 160 CONTINUE + ELSEIF(IC.NE.0.AND.KCHG(PYCOMP(K(I,2)),2).NE.0) THEN + DO 170 J=1,4 + DPS(J)=DPS(J)+P(I,J) + 170 CONTINUE + MSTJ(93)=1 + DPS(5)=DPS(5)+PYMASS(K(I,2)) + PD=SQRT(MAX(0D0,DPS(4)**2-DPS(1)**2-DPS(2)**2-DPS(3)**2))- + & DPS(5) + IF(PD.LT.PDMIN) THEN + PDMIN=PD + DO 180 J=1,5 + DPC(J)=DPS(J) + 180 CONTINUE + IC1=IC + IC2=I + ENDIF + IC=0 + ELSE + NSIN=NSIN+1 + ENDIF + 190 CONTINUE + +C...Done if lowest-mass system above threshold for string frag. + IF(PDMIN.GE.PARJ(32)) GOTO 540 + +C...Fill small-mass system as cluster. + NSAV=N + PECM=SQRT(MAX(0D0,DPC(4)**2-DPC(1)**2-DPC(2)**2-DPC(3)**2)) + K(N+1,1)=11 + K(N+1,2)=91 + K(N+1,3)=IC1 + P(N+1,1)=DPC(1) + P(N+1,2)=DPC(2) + P(N+1,3)=DPC(3) + P(N+1,4)=DPC(4) + P(N+1,5)=PECM + +C...Set up history, assuming cluster -> 2 hadrons. + NBODY=2 + K(N+1,4)=N+2 + K(N+1,5)=N+3 + K(N+2,1)=1 + K(N+3,1)=1 + IF(MSTU(16).NE.2) THEN + K(N+2,3)=N+1 + K(N+3,3)=N+1 + ELSE + K(N+2,3)=IC1 + K(N+3,3)=IC2 + ENDIF + K(N+2,4)=0 + K(N+3,4)=0 + K(N+2,5)=0 + K(N+3,5)=0 + V(N+1,5)=0D0 + V(N+2,5)=0D0 + V(N+3,5)=0D0 + +C...Form two particles from flavours of lowest-mass system, if feasible. + NTRY = 0 + 200 NTRY = NTRY + 1 +C...Open string. + IF(IABS(K(IC1,2)).NE.21) THEN + KC1=PYCOMP(K(IC1,2)) + KC2=PYCOMP(K(IC2,2)) + IF(KC1.EQ.0.OR.KC2.EQ.0) GOTO 540 + KQ1=KCHG(KC1,2)*ISIGN(1,K(IC1,2)) + KQ2=KCHG(KC2,2)*ISIGN(1,K(IC2,2)) + IF(KQ1+KQ2.NE.0) GOTO 540 +C...Start with qq, if there is one. Only allow for rank 1 popcorn meson + 210 K1=K(IC1,2) + IF(IABS(K(IC2,2)).GT.10) K1=K(IC2,2) + MSTU(125)=0 + CALL PYDCYK(K1,0,KFLN,K(N+2,2)) + CALL PYDCYK(K(IC1,2)+K(IC2,2)-K1,-KFLN,KFLDMP,K(N+3,2)) + IF(K(N+2,2).EQ.0.OR.K(N+3,2).EQ.0) GOTO 210 +C...Closed string. + ELSE + IF(IABS(K(IC2,2)).NE.21) GOTO 540 +C...No room for popcorn mesons in closed string -> 2 hadrons. + MSTU(125)=0 + 220 CALL PYDCYK(1+INT((2D0+PARJ(2))*PYR(0)),0,KFLN,KFDMP) + CALL PYDCYK(KFLN,0,KFLM,K(N+2,2)) + CALL PYDCYK(-KFLN,-KFLM,KFLDMP,K(N+3,2)) + IF(K(N+2,2).EQ.0.OR.K(N+3,2).EQ.0) GOTO 220 + ENDIF + P(N+2,5)=PYMASS(K(N+2,2)) + P(N+3,5)=PYMASS(K(N+3,2)) + +C...If it does not work: try again (a number of times), give up +C...(if no place to shuffle momentum), or form one hadron. + IF(P(N+2,5)+P(N+3,5)+PARJ(64).GE.PECM) THEN + IF(NTRY.LT.MSTJ(17)) THEN + GOTO 200 + ELSEIF(NSIN.EQ.1) THEN + GOTO 540 + ELSE + GOTO 290 + END IF + END IF + +C...Perform two-particle decay of jet system. +C...First step: find reference axis in decaying system rest frame. +C...(Borrow slot N+2 for temporary direction.) + DO 230 J=1,4 + P(N+2,J)=P(IC1,J) + 230 CONTINUE + DO 250 I=IC1+1,IC2-1 + IF((K(I,1).EQ.1.OR.K(I,1).EQ.2).AND. + & KCHG(PYCOMP(K(I,2)),2).NE.0) THEN + FRAC1=FOUR(IC2,I)/(FOUR(IC1,I)+FOUR(IC2,I)) + DO 240 J=1,4 + P(N+2,J)=P(N+2,J)+FRAC1*P(I,J) + 240 CONTINUE + ENDIF + 250 CONTINUE + CALL PYROBO(N+2,N+2,0D0,0D0,-DPC(1)/DPC(4),-DPC(2)/DPC(4), + &-DPC(3)/DPC(4)) + THE1=PYANGL(P(N+2,3),SQRT(P(N+2,1)**2+P(N+2,2)**2)) + PHI1=PYANGL(P(N+2,1),P(N+2,2)) + +C...Second step: generate isotropic/anisotropic decay. + PA=SQRT((PECM**2-(P(N+2,5)+P(N+3,5))**2)*(PECM**2- + &(P(N+2,5)-P(N+3,5))**2))/(2D0*PECM) + 260 UE(3)=PYR(0) + PT2=(1D0-UE(3)**2)*PA**2 + IF(MSTJ(16).LE.0) THEN + PREV=0.5D0 + ELSE + IF(EXP(-PT2/(2D0*PARJ(21)**2)).LT.PYR(0)) GOTO 260 + PR1=P(N+2,5)**2+PT2 + PR2=P(N+3,5)**2+PT2 + ALAMBD=SQRT(MAX(0D0,(PECM**2-PR1-PR2)**2-4D0*PR1*PR2)) + PREVCF=PARJ(42) + IF(MSTJ(11).EQ.2) PREVCF=PARJ(39) + PREV=1D0/(1D0+EXP(MIN(50D0,PREVCF*ALAMBD))) + ENDIF + IF(PYR(0).LT.PREV) UE(3)=-UE(3) + PHI=PARU(2)*PYR(0) + UE(1)=SQRT(1D0-UE(3)**2)*COS(PHI) + UE(2)=SQRT(1D0-UE(3)**2)*SIN(PHI) + DO 270 J=1,3 + P(N+2,J)=PA*UE(J) + P(N+3,J)=-PA*UE(J) + 270 CONTINUE + P(N+2,4)=SQRT(PA**2+P(N+2,5)**2) + P(N+3,4)=SQRT(PA**2+P(N+3,5)**2) + +C...Third step: move back to event frame and set production vertex. + CALL PYROBO(N+2,N+3,THE1,PHI1,DPC(1)/DPC(4),DPC(2)/DPC(4), + &DPC(3)/DPC(4)) + DO 280 J=1,4 + V(N+1,J)=V(IC1,J) + V(N+2,J)=V(IC1,J) + V(N+3,J)=V(IC2,J) + 280 CONTINUE + N=N+3 + GOTO 520 + +C...Else form one particle, if possible. + 290 NBODY=1 + K(N+1,5)=N+2 + DO 300 J=1,4 + V(N+1,J)=V(IC1,J) + V(N+2,J)=V(IC1,J) + 300 CONTINUE + +C...Select hadron flavour from available quark flavours. + 310 IF(IABS(K(IC1,2)).GT.100.AND.IABS(K(IC2,2)).GT.100) THEN + GOTO 540 + ELSEIF(IABS(K(IC1,2)).NE.21) THEN + CALL PYKFDI(K(IC1,2),K(IC2,2),KFLDMP,K(N+2,2)) + ELSE + KFLN=1+INT((2D0+PARJ(2))*PYR(0)) + CALL PYKFDI(KFLN,-KFLN,KFLDMP,K(N+2,2)) + ENDIF + IF(K(N+2,2).EQ.0) GOTO 310 + P(N+2,5)=PYMASS(K(N+2,2)) + +C...Use old algorithm for E/p conservation? (EN) + IF (MSTJ(16).LE.0) GOTO 480 + +C...Find the string piece closest to the cluster by a loop +C...over the undecayed partons not in present cluster. (EN) + DGLOMI=1D30 + IBEG=0 + I0=0 + DO 340 I1=MAX(1,IP),N-1 + IF(I1.GE.IC1-1.AND.I1.LE.IC2) THEN + I0=0 + ELSEIF(K(I1,1).EQ.2) THEN + IF(I0.EQ.0) I0=I1 + I2=I1 + 320 I2=I2+1 + IF(KCHG(PYCOMP(K(I2,2)),2).EQ.0) GOTO 320 + +C...Define velocity vectors e1, e2, ecl and differences e3, e4. + DO 330 J=1,3 + E1(J)=P(I1,J)/P(I1,4) + E2(J)=P(I2,J)/P(I2,4) + ECL(J)=P(N+1,J)/P(N+1,4) + E3(J)=E2(J)-E1(J) + E4(J)=ECL(J)-E1(J) + 330 CONTINUE + +C...Calculate minimal D=(e4-alpha*e3)**2 for 0 0: emit a 'gluon' (EN) + IF (P(N+1,5).GE.P(N+2,5)) THEN + +C...Construct 'gluon' that is needed to put hadron on the mass shell. + FRAC=P(N+2,5)/P(N+1,5) + DO 350 J=1,5 + P(N+2,J)=FRAC*P(N+1,J) + PG(J)=(1D0-FRAC)*P(N+1,J) + 350 CONTINUE + +C... Copy string with new gluon put in. + N=N+2 + I=IBEG-1 + 360 I=I+1 + IF(K(I,1).NE.1.AND.K(I,1).NE.2) GOTO 360 + IF(KCHG(PYCOMP(K(I,2)),2).EQ.0) GOTO 360 + N=N+1 + DO 370 J=1,5 + K(N,J)=K(I,J) + P(N,J)=P(I,J) + V(N,J)=V(I,J) + 370 CONTINUE + K(I,1)=K(I,1)+10 + K(I,4)=N + K(I,5)=N + K(N,3)=I + IF(I.EQ.IPCS) THEN + N=N+1 + DO 380 J=1,5 + K(N,J)=K(N-1,J) + P(N,J)=PG(J) + V(N,J)=V(N-1,J) + 380 CONTINUE + K(N,2)=21 + K(N,3)=NSAV+1 + ENDIF + IF(K(I,1).EQ.12) GOTO 360 + GOTO 520 + +C...Delta_m = m_clus - m_had < 0: have to absorb a 'gluon' instead, +C...from string piece endpoints. + ELSE + +C...Begin by copying string that should give energy to cluster. + N=N+2 + I=IBEG-1 + 390 I=I+1 + IF(K(I,1).NE.1.AND.K(I,1).NE.2) GOTO 390 + IF(KCHG(PYCOMP(K(I,2)),2).EQ.0) GOTO 390 + N=N+1 + DO 400 J=1,5 + K(N,J)=K(I,J) + P(N,J)=P(I,J) + V(N,J)=V(I,J) + 400 CONTINUE + K(I,1)=K(I,1)+10 + K(I,4)=N + K(I,5)=N + K(N,3)=I + IF(I.EQ.IPCS) I1=N + IF(K(I,1).EQ.12) GOTO 390 + I2=I1+1 + +C...Set initial Phad. + DO 410 J=1,4 + P(NSAV+2,J)=P(NSAV+1,J) + 410 CONTINUE + +C...Calculate Pg, a part of which will be added to Phad later. (EN) + 420 IF(MSTJ(16).EQ.1) THEN + ALPHA=1D0 + BETA=1D0 + ELSE + ALPHA=FOUR(NSAV+1,I2)/FOUR(I1,I2) + BETA=FOUR(NSAV+1,I1)/FOUR(I1,I2) + ENDIF + DO 430 J=1,4 + PG(J)=ALPHA*P(I1,J)+BETA*P(I2,J) + 430 CONTINUE + PG(5)=SQRT(MAX(1D-20,PG(4)**2-PG(1)**2-PG(2)**2-PG(3)**2)) + +C..Solve 2nd order equation, use the best (smallest) solution. (EN) + PMSCOL=P(NSAV+2,4)**2-P(NSAV+2,1)**2-P(NSAV+2,2)**2- + & P(NSAV+2,3)**2 + PCLPG=(P(NSAV+2,4)*PG(4)-P(NSAV+2,1)*PG(1)- + & P(NSAV+2,2)*PG(2)-P(NSAV+2,3)*PG(3))/PG(5)**2 + DELTA=SQRT(PCLPG**2+(P(NSAV+2,5)**2-PMSCOL)/PG(5)**2)-PCLPG + +C...If all gluon energy eaten, zero it and take a step back. + ITER=0 + IF(DELTA*ALPHA.GT.1D0.AND.I1.GT.NSAV+3) THEN + ITER=1 + DO 440 J=1,4 + P(NSAV+2,J)=P(NSAV+2,J)+P(I1,J) + P(I1,J)=0D0 + 440 CONTINUE + P(I1,5)=0D0 + I1=I1-1 + ENDIF + IF(DELTA*BETA.GT.1D0.AND.I2.LT.N) THEN + ITER=1 + DO 450 J=1,4 + P(NSAV+2,J)=P(NSAV+2,J)+P(I2,J) + P(I2,J)=0D0 + 450 CONTINUE + P(I2,5)=0D0 + I2=I2+1 + ENDIF + IF(ITER.EQ.1) GOTO 420 + +C...If also all endpoint energy eaten, revert to old procedure. + IF((1D0-DELTA*ALPHA)*P(I1,4).LT.P(I1,5).OR. + & (1D0-DELTA*BETA)*P(I2,4).LT.P(I2,5)) THEN + DO 460 I=NSAV+3,N + IM=K(I,3) + K(IM,1)=K(IM,1)-10 + K(IM,4)=0 + K(IM,5)=0 + 460 CONTINUE + N=NSAV + GOTO 480 + ENDIF + +C... Construct the collapsed hadron and modified string partons. + DO 470 J=1,4 + P(NSAV+2,J)=P(NSAV+2,J)+DELTA*PG(J) + P(I1,J)=(1D0-DELTA*ALPHA)*P(I1,J) + P(I2,J)=(1D0-DELTA*BETA)*P(I2,J) + 470 CONTINUE + P(I1,5)=(1D0-DELTA*ALPHA)*P(I1,5) + P(I2,5)=(1D0-DELTA*BETA)*P(I2,5) + +C...Finished with string collapse in new scheme. + GOTO 520 + ENDIF + +C... Use old algorithm; by choice or when in trouble. + 480 CONTINUE +C...Find parton/particle which combines to largest extra mass. + IR=0 + HA=0D0 + HSM=0D0 + DO 500 MCOMB=1,3 + IF(IR.NE.0) GOTO 500 + DO 490 I=MAX(1,IP),N + IF(K(I,1).LE.0.OR.K(I,1).GT.10.OR.(I.GE.IC1.AND.I.LE.IC2 + & .AND.K(I,1).GE.1.AND.K(I,1).LE.2)) GOTO 490 + IF(MCOMB.EQ.1) KCI=PYCOMP(K(I,2)) + IF(MCOMB.EQ.1.AND.KCI.EQ.0) GOTO 490 + IF(MCOMB.EQ.1.AND.KCHG(KCI,2).EQ.0.AND.I.LE.NS) GOTO 490 + IF(MCOMB.EQ.2.AND.IABS(K(I,2)).GT.10.AND.IABS(K(I,2)).LE.100) + & GOTO 490 + HCR=DPC(4)*P(I,4)-DPC(1)*P(I,1)-DPC(2)*P(I,2)-DPC(3)*P(I,3) + HSR=2D0*HCR+PECM**2-P(N+2,5)**2-2D0*P(N+2,5)*P(I,5) + IF(HSR.GT.HSM) THEN + IR=I + HA=HCR + HSM=HSR + ENDIF + 490 CONTINUE + 500 CONTINUE + +C...Shuffle energy and momentum to put new particle on mass shell. + IF(IR.NE.0) THEN + HB=PECM**2+HA + HC=P(N+2,5)**2+HA + HD=P(IR,5)**2+HA + HK2=0.5D0*(HB*SQRT(MAX(0D0,((HB+HC)**2-4D0*(HB+HD)*P(N+2,5)**2)/ + & (HA**2-(PECM*P(IR,5))**2)))-(HB+HC))/(HB+HD) + HK1=(0.5D0*(P(N+2,5)**2-PECM**2)+HD*HK2)/HB + DO 510 J=1,4 + P(N+2,J)=(1D0+HK1)*DPC(J)-HK2*P(IR,J) + P(IR,J)=(1D0+HK2)*P(IR,J)-HK1*DPC(J) + 510 CONTINUE + N=N+2 + ELSE + CALL PYERRM(3,'(PYPREP:) no match for collapsing cluster') + RETURN + ENDIF + +C...Mark collapsed system and store daughter pointers. Iterate. + 520 DO 530 I=IC1,IC2 + IF((K(I,1).EQ.1.OR.K(I,1).EQ.2).AND. + & KCHG(PYCOMP(K(I,2)),2).NE.0) THEN + K(I,1)=K(I,1)+10 + IF(MSTU(16).NE.2) THEN + K(I,4)=NSAV+1 + K(I,5)=NSAV+1 + ELSE + K(I,4)=NSAV+2 + K(I,5)=NSAV+1+NBODY + ENDIF + ENDIF + 530 CONTINUE + IF(N.LT.MSTU(4)-MSTU(32)-5) GOTO 140 + +C...Check flavours and invariant masses in parton systems. + 540 NP=0 + KFN=0 + KQS=0 + DO 550 J=1,5 + DPS(J)=0D0 + 550 CONTINUE + DO 580 I=MAX(1,IP),N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 580 + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0) GOTO 580 + KQ=KCHG(KC,2)*ISIGN(1,K(I,2)) + IF(KQ.EQ.0) GOTO 580 + NP=NP+1 + IF(KQ.NE.2) THEN + KFN=KFN+1 + KQS=KQS+KQ + MSTJ(93)=1 + DPS(5)=DPS(5)+PYMASS(K(I,2)) + ENDIF + DO 560 J=1,4 + DPS(J)=DPS(J)+P(I,J) + 560 CONTINUE + IF(K(I,1).EQ.1) THEN + IF(NP.NE.1.AND.(KFN.EQ.1.OR.KFN.GE.3.OR.KQS.NE.0)) CALL + & PYERRM(2,'(PYPREP:) unphysical flavour combination') + IF(NP.NE.1.AND.DPS(4)**2-DPS(1)**2-DPS(2)**2-DPS(3)**2.LT. + & (0.9D0*PARJ(32)+DPS(5))**2) THEN + CALL PYERRM(3,'(PYPREP:) too small mass in jet system') + END IF + NP=0 + KFN=0 + KQS=0 + DO 570 J=1,5 + DPS(J)=0D0 + 570 CONTINUE + ENDIF + 580 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYSTRF +C...Handles the fragmentation of an arbitrary colour singlet +C...jet system according to the Lund string fragmentation model. + + SUBROUTINE PYSTRF(IP) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ +C...Local arrays. All MOPS variables ends with MO + DIMENSION DPS(5),KFL(3),PMQ(3),PX(3),PY(3),GAM(3),IE(2),PR(2), + &IN(9),DHM(4),DHG(4),DP(5,5),IRANK(2),MJU(4),IJU(3),PJU(5,5), + &TJU(5),KFJH(2),NJS(2),KFJS(2),PJS(4,5),MSTU9T(8),PARU9T(8), + &INMO(9),PM2QMO(2),XTMO(2) + +C...Function: four-product of two vectors. + FOUR(I,J)=P(I,4)*P(J,4)-P(I,1)*P(J,1)-P(I,2)*P(J,2)-P(I,3)*P(J,3) + DFOUR(I,J)=DP(I,4)*DP(J,4)-DP(I,1)*DP(J,1)-DP(I,2)*DP(J,2)- + &DP(I,3)*DP(J,3) + +C...Reset counters. Identify parton system. + MSTJ(91)=0 + NSAV=N + MSTU90=MSTU(90) + NP=0 + KQSUM=0 + DO 100 J=1,5 + DPS(J)=0D0 + 100 CONTINUE + MJU(1)=0 + MJU(2)=0 + I=IP-1 + 110 I=I+1 + IF(I.GT.MIN(N,MSTU(4)-MSTU(32))) THEN + CALL PYERRM(12,'(PYSTRF:) failed to reconstruct jet system') + IF(MSTU(21).GE.1) RETURN + ENDIF + IF(K(I,1).NE.1.AND.K(I,1).NE.2.AND.K(I,1).NE.41) GOTO 110 + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0) GOTO 110 + KQ=KCHG(KC,2)*ISIGN(1,K(I,2)) + IF(KQ.EQ.0) GOTO 110 + IF(N+5*NP+11.GT.MSTU(4)-MSTU(32)-5) THEN + CALL PYERRM(11,'(PYSTRF:) no more memory left in PYJETS') + IF(MSTU(21).GE.1) RETURN + ENDIF + +C...Take copy of partons to be considered. Check flavour sum. + NP=NP+1 + DO 120 J=1,5 + K(N+NP,J)=K(I,J) + P(N+NP,J)=P(I,J) + IF(J.NE.4) DPS(J)=DPS(J)+P(I,J) + 120 CONTINUE + DPS(4)=DPS(4)+SQRT(P(I,1)**2+P(I,2)**2+P(I,3)**2+P(I,5)**2) + K(N+NP,3)=I + IF(KQ.NE.2) KQSUM=KQSUM+KQ + IF(K(I,1).EQ.41) THEN + KQSUM=KQSUM+2*KQ + IF(KQSUM.EQ.KQ) MJU(1)=N+NP + IF(KQSUM.NE.KQ) MJU(2)=N+NP + ENDIF + IF(K(I,1).EQ.2.OR.K(I,1).EQ.41) GOTO 110 + IF(KQSUM.NE.0) THEN + CALL PYERRM(12,'(PYSTRF:) unphysical flavour combination') + IF(MSTU(21).GE.1) RETURN + ENDIF + +C...Boost copied system to CM frame (for better numerical precision). + IF(ABS(DPS(3)).LT.0.99D0*DPS(4)) THEN + MBST=0 + MSTU(33)=1 + CALL PYROBO(N+1,N+NP,0D0,0D0,-DPS(1)/DPS(4),-DPS(2)/DPS(4), + & -DPS(3)/DPS(4)) + ELSE + MBST=1 + HHBZ=SQRT(MAX(1D-6,DPS(4)+DPS(3))/MAX(1D-6,DPS(4)-DPS(3))) + DO 130 I=N+1,N+NP + HHPMT=P(I,1)**2+P(I,2)**2+P(I,5)**2 + IF(P(I,3).GT.0D0) THEN + HHPEZ=MAX(1D-10,(P(I,4)+P(I,3))/HHBZ) + P(I,3)=0.5D0*(HHPEZ-HHPMT/HHPEZ) + P(I,4)=0.5D0*(HHPEZ+HHPMT/HHPEZ) + ELSE + HHPEZ=MAX(1D-10,(P(I,4)-P(I,3))*HHBZ) + P(I,3)=-0.5D0*(HHPEZ-HHPMT/HHPEZ) + P(I,4)=0.5D0*(HHPEZ+HHPMT/HHPEZ) + ENDIF + 130 CONTINUE + ENDIF + +C...Search for very nearby partons that may be recombined. + NTRYR=0 + PARU12=PARU(12) + PARU13=PARU(13) + MJU(3)=MJU(1) + MJU(4)=MJU(2) + NR=NP + 140 IF(NR.GE.3) THEN + PDRMIN=2D0*PARU12 + DO 150 I=N+1,N+NR + IF(I.EQ.N+NR.AND.IABS(K(N+1,2)).NE.21) GOTO 150 + I1=I+1 + IF(I.EQ.N+NR) I1=N+1 + IF(K(I,1).EQ.41.OR.K(I1,1).EQ.41) GOTO 150 + IF(MJU(1).NE.0.AND.I1.LT.MJU(1).AND.IABS(K(I1,2)).NE.21) + & GOTO 150 + IF(MJU(2).NE.0.AND.I.GT.MJU(2).AND.IABS(K(I,2)).NE.21) + & GOTO 150 + PAP=SQRT((P(I,1)**2+P(I,2)**2+P(I,3)**2)*(P(I1,1)**2+ + & P(I1,2)**2+P(I1,3)**2)) + PVP=P(I,1)*P(I1,1)+P(I,2)*P(I1,2)+P(I,3)*P(I1,3) + PDR=4D0*(PAP-PVP)**2/MAX(1D-6,PARU13**2*PAP+2D0*(PAP-PVP)) + IF(PDR.LT.PDRMIN) THEN + IR=I + PDRMIN=PDR + ENDIF + 150 CONTINUE + +C...Recombine very nearby partons to avoid machine precision problems. + IF(PDRMIN.LT.PARU12.AND.IR.EQ.N+NR) THEN + DO 160 J=1,4 + P(N+1,J)=P(N+1,J)+P(N+NR,J) + 160 CONTINUE + P(N+1,5)=SQRT(MAX(0D0,P(N+1,4)**2-P(N+1,1)**2-P(N+1,2)**2- + & P(N+1,3)**2)) + NR=NR-1 + GOTO 140 + ELSEIF(PDRMIN.LT.PARU12) THEN + DO 170 J=1,4 + P(IR,J)=P(IR,J)+P(IR+1,J) + 170 CONTINUE + P(IR,5)=SQRT(MAX(0D0,P(IR,4)**2-P(IR,1)**2-P(IR,2)**2- + & P(IR,3)**2)) + DO 190 I=IR+1,N+NR-1 + K(I,2)=K(I+1,2) + DO 180 J=1,5 + P(I,J)=P(I+1,J) + 180 CONTINUE + 190 CONTINUE + IF(IR.EQ.N+NR-1) K(IR,2)=K(N+NR,2) + NR=NR-1 + IF(MJU(1).GT.IR) MJU(1)=MJU(1)-1 + IF(MJU(2).GT.IR) MJU(2)=MJU(2)-1 + GOTO 140 + ENDIF + ENDIF + NTRYR=NTRYR+1 + +C...Reset particle counter. Skip ahead if no junctions are present; +C...this is usually the case! + NRS=MAX(5*NR+11,NP) + NTRY=0 + 200 NTRY=NTRY+1 + IF(NTRY.GT.100.AND.NTRYR.LE.4) THEN + PARU12=4D0*PARU12 + PARU13=2D0*PARU13 + GOTO 140 + ELSEIF(NTRY.GT.100) THEN + CALL PYERRM(14,'(PYSTRF:) caught in infinite loop') + IF(MSTU(21).GE.1) RETURN + ENDIF + I=N+NRS + MSTU(90)=MSTU90 + IF(MJU(1).EQ.0.AND.MJU(2).EQ.0) GOTO 580 + IF(MSTJ(12).GE.4) CALL PYERRM(29,'(PYSTRF:) sorry,'// + & ' junction strings not handled by MSTJ(12)>3 options') + DO 570 JT=1,2 + NJS(JT)=0 + IF(MJU(JT).EQ.0) GOTO 570 + JS=3-2*JT + +C...Find and sum up momentum on three sides of junction. Check flavours. + DO 220 IU=1,3 + IJU(IU)=0 + DO 210 J=1,5 + PJU(IU,J)=0D0 + 210 CONTINUE + 220 CONTINUE + IU=0 + DO 240 I1=N+1+(JT-1)*(NR-1),N+NR+(JT-1)*(1-NR),JS + IF(K(I1,2).NE.21.AND.IU.LE.2) THEN + IU=IU+1 + IJU(IU)=I1 + ENDIF + DO 230 J=1,4 + PJU(IU,J)=PJU(IU,J)+P(I1,J) + 230 CONTINUE + 240 CONTINUE + DO 250 IU=1,3 + PJU(IU,5)=SQRT(PJU(IU,1)**2+PJU(IU,2)**2+PJU(IU,3)**2) + 250 CONTINUE + IF(K(IJU(3),2)/100.NE.10*K(IJU(1),2)+K(IJU(2),2).AND. + & K(IJU(3),2)/100.NE.10*K(IJU(2),2)+K(IJU(1),2)) THEN + CALL PYERRM(12,'(PYSTRF:) unphysical flavour combination') + IF(MSTU(21).GE.1) RETURN + ENDIF + +C...Calculate (approximate) boost to rest frame of junction. + T12=(PJU(1,1)*PJU(2,1)+PJU(1,2)*PJU(2,2)+PJU(1,3)*PJU(2,3))/ + & (PJU(1,5)*PJU(2,5)) + T13=(PJU(1,1)*PJU(3,1)+PJU(1,2)*PJU(3,2)+PJU(1,3)*PJU(3,3))/ + & (PJU(1,5)*PJU(3,5)) + T23=(PJU(2,1)*PJU(3,1)+PJU(2,2)*PJU(3,2)+PJU(2,3)*PJU(3,3))/ + & (PJU(2,5)*PJU(3,5)) + T11=SQRT((2D0/3D0)*(1D0-T12)*(1D0-T13)/(1D0-T23)) + T22=SQRT((2D0/3D0)*(1D0-T12)*(1D0-T23)/(1D0-T13)) + TSQ=SQRT((2D0*T11*T22+T12-1D0)*(1D0+T12)) + T1F=(TSQ-T22*(1D0+T12))/(1D0-T12**2) + T2F=(TSQ-T11*(1D0+T12))/(1D0-T12**2) + DO 260 J=1,3 + TJU(J)=-(T1F*PJU(1,J)/PJU(1,5)+T2F*PJU(2,J)/PJU(2,5)) + 260 CONTINUE + TJU(4)=SQRT(1D0+TJU(1)**2+TJU(2)**2+TJU(3)**2) + DO 270 IU=1,3 + PJU(IU,5)=TJU(4)*PJU(IU,4)-TJU(1)*PJU(IU,1)-TJU(2)*PJU(IU,2)- + & TJU(3)*PJU(IU,3) + 270 CONTINUE + +C...Put junction at rest if motion could give inconsistencies. + IF(PJU(1,5)+PJU(2,5).GT.PJU(1,4)+PJU(2,4)) THEN + DO 280 J=1,3 + TJU(J)=0D0 + 280 CONTINUE + TJU(4)=1D0 + PJU(1,5)=PJU(1,4) + PJU(2,5)=PJU(2,4) + PJU(3,5)=PJU(3,4) + ENDIF + +C...Start preparing for fragmentation of two strings from junction. + ISTA=I + DO 550 IU=1,2 + NS=IJU(IU+1)-IJU(IU) + +C...Junction strings: find longitudinal string directions. + DO 310 IS=1,NS + IS1=IJU(IU)+IS-1 + IS2=IJU(IU)+IS + DO 290 J=1,5 + DP(1,J)=0.5D0*P(IS1,J) + IF(IS.EQ.1) DP(1,J)=P(IS1,J) + DP(2,J)=0.5D0*P(IS2,J) + IF(IS.EQ.NS) DP(2,J)=-PJU(IU,J) + 290 CONTINUE + IF(IS.EQ.NS) DP(2,4)=SQRT(PJU(IU,1)**2+PJU(IU,2)**2+ + & PJU(IU,3)**2) + IF(IS.EQ.NS) DP(2,5)=0D0 + DP(3,5)=DFOUR(1,1) + DP(4,5)=DFOUR(2,2) + DHKC=DFOUR(1,2) + IF(DP(3,5)+2D0*DHKC+DP(4,5).LE.0D0) THEN + DP(1,4)=SQRT(DP(1,1)**2+DP(1,2)**2+DP(1,3)**2) + DP(2,4)=SQRT(DP(2,1)**2+DP(2,2)**2+DP(2,3)**2) + DP(3,5)=0D0 + DP(4,5)=0D0 + DHKC=DFOUR(1,2) + ENDIF + DHKS=SQRT(DHKC**2-DP(3,5)*DP(4,5)) + DHK1=0.5D0*((DP(4,5)+DHKC)/DHKS-1D0) + DHK2=0.5D0*((DP(3,5)+DHKC)/DHKS-1D0) + IN1=N+NR+4*IS-3 + P(IN1,5)=SQRT(DP(3,5)+2D0*DHKC+DP(4,5)) + DO 300 J=1,4 + P(IN1,J)=(1D0+DHK1)*DP(1,J)-DHK2*DP(2,J) + P(IN1+1,J)=(1D0+DHK2)*DP(2,J)-DHK1*DP(1,J) + 300 CONTINUE + 310 CONTINUE + +C...Junction strings: initialize flavour, momentum and starting pos. + ISAV=I + MSTU91=MSTU(90) + 320 NTRY=NTRY+1 + IF(NTRY.GT.100.AND.NTRYR.LE.4) THEN + PARU12=4D0*PARU12 + PARU13=2D0*PARU13 + GOTO 140 + ELSEIF(NTRY.GT.100) THEN + CALL PYERRM(14,'(PYSTRF:) caught in infinite loop') + IF(MSTU(21).GE.1) RETURN + ENDIF + I=ISAV + MSTU(90)=MSTU91 + IRANKJ=0 + IE(1)=K(N+1+(JT/2)*(NP-1),3) + IN(4)=N+NR+1 + IN(5)=IN(4)+1 + IN(6)=N+NR+4*NS+1 + DO 340 JQ=1,2 + DO 330 IN1=N+NR+2+JQ,N+NR+4*NS-2+JQ,4 + P(IN1,1)=2-JQ + P(IN1,2)=JQ-1 + P(IN1,3)=1D0 + 330 CONTINUE + 340 CONTINUE + KFL(1)=K(IJU(IU),2) + PX(1)=0D0 + PY(1)=0D0 + GAM(1)=0D0 + DO 350 J=1,5 + PJU(IU+3,J)=0D0 + 350 CONTINUE + +C...Junction strings: find initial transverse directions. + DO 360 J=1,4 + DP(1,J)=P(IN(4),J) + DP(2,J)=P(IN(4)+1,J) + DP(3,J)=0D0 + DP(4,J)=0D0 + 360 CONTINUE + DP(1,4)=SQRT(DP(1,1)**2+DP(1,2)**2+DP(1,3)**2) + DP(2,4)=SQRT(DP(2,1)**2+DP(2,2)**2+DP(2,3)**2) + DP(5,1)=DP(1,1)/DP(1,4)-DP(2,1)/DP(2,4) + DP(5,2)=DP(1,2)/DP(1,4)-DP(2,2)/DP(2,4) + DP(5,3)=DP(1,3)/DP(1,4)-DP(2,3)/DP(2,4) + IF(DP(5,1)**2.LE.DP(5,2)**2+DP(5,3)**2) DP(3,1)=1D0 + IF(DP(5,1)**2.GT.DP(5,2)**2+DP(5,3)**2) DP(3,3)=1D0 + IF(DP(5,2)**2.LE.DP(5,1)**2+DP(5,3)**2) DP(4,2)=1D0 + IF(DP(5,2)**2.GT.DP(5,1)**2+DP(5,3)**2) DP(4,3)=1D0 + DHC12=DFOUR(1,2) + DHCX1=DFOUR(3,1)/DHC12 + DHCX2=DFOUR(3,2)/DHC12 + DHCXX=1D0/SQRT(1D0+2D0*DHCX1*DHCX2*DHC12) + DHCY1=DFOUR(4,1)/DHC12 + DHCY2=DFOUR(4,2)/DHC12 + DHCYX=DHCXX*(DHCX1*DHCY2+DHCX2*DHCY1)*DHC12 + DHCYY=1D0/SQRT(1D0+2D0*DHCY1*DHCY2*DHC12-DHCYX**2) + DO 370 J=1,4 + DP(3,J)=DHCXX*(DP(3,J)-DHCX2*DP(1,J)-DHCX1*DP(2,J)) + P(IN(6),J)=DP(3,J) + P(IN(6)+1,J)=DHCYY*(DP(4,J)-DHCY2*DP(1,J)-DHCY1*DP(2,J)- + & DHCYX*DP(3,J)) + 370 CONTINUE + +C...Junction strings: produce new particle, origin. + 380 I=I+1 + IF(2*I-NSAV.GE.MSTU(4)-MSTU(32)-5) THEN + CALL PYERRM(11,'(PYSTRF:) no more memory left in PYJETS') + IF(MSTU(21).GE.1) RETURN + ENDIF + IRANKJ=IRANKJ+1 + K(I,1)=1 + K(I,3)=IE(1) + K(I,4)=0 + K(I,5)=0 + +C...Junction strings: generate flavour, hadron, pT, z and Gamma. + 390 CALL PYKFDI(KFL(1),0,KFL(3),K(I,2)) + IF(K(I,2).EQ.0) GOTO 320 + IF(IRANKJ.EQ.1.AND.IABS(KFL(1)).LE.10.AND. + & IABS(KFL(3)).GT.10) THEN + IF(PYR(0).GT.PARJ(19)) GOTO 390 + ENDIF + P(I,5)=PYMASS(K(I,2)) + CALL PYPTDI(KFL(1),PX(3),PY(3)) + PR(1)=P(I,5)**2+(PX(1)+PX(3))**2+(PY(1)+PY(3))**2 + CALL PYZDIS(KFL(1),KFL(3),PR(1),Z) + IF(IABS(KFL(1)).GE.4.AND.IABS(KFL(1)).LE.8.AND. + & MSTU(90).LT.8) THEN + MSTU(90)=MSTU(90)+1 + MSTU(90+MSTU(90))=I + PARU(90+MSTU(90))=Z + ENDIF + GAM(3)=(1D0-Z)*(GAM(1)+PR(1)/Z) + DO 400 J=1,3 + IN(J)=IN(3+J) + 400 CONTINUE + +C...Junction strings: stepping within or from 'low' string region easy. + IF(IN(1)+1.EQ.IN(2).AND.Z*P(IN(1)+2,3)*P(IN(2)+2,3)* + & P(IN(1),5)**2.GE.PR(1)) THEN + P(IN(1)+2,4)=Z*P(IN(1)+2,3) + P(IN(2)+2,4)=PR(1)/(P(IN(1)+2,4)*P(IN(1),5)**2) + DO 410 J=1,4 + P(I,J)=(PX(1)+PX(3))*P(IN(3),J)+(PY(1)+PY(3))*P(IN(3)+1,J) + 410 CONTINUE + GOTO 500 + ELSEIF(IN(1)+1.EQ.IN(2)) THEN + P(IN(2)+2,4)=P(IN(2)+2,3) + P(IN(2)+2,1)=1D0 + IN(2)=IN(2)+4 + IF(IN(2).GT.N+NR+4*NS) GOTO 320 + IF(FOUR(IN(1),IN(2)).LE.1D-2) THEN + P(IN(1)+2,4)=P(IN(1)+2,3) + P(IN(1)+2,1)=0D0 + IN(1)=IN(1)+4 + ENDIF + ENDIF + +C...Junction strings: find new transverse directions. + 420 IF(IN(1).GT.N+NR+4*NS.OR.IN(2).GT.N+NR+4*NS.OR. + & IN(1).GT.IN(2)) GOTO 320 + IF(IN(1).NE.IN(4).OR.IN(2).NE.IN(5)) THEN + DO 430 J=1,4 + DP(1,J)=P(IN(1),J) + DP(2,J)=P(IN(2),J) + DP(3,J)=0D0 + DP(4,J)=0D0 + 430 CONTINUE + DP(1,4)=SQRT(DP(1,1)**2+DP(1,2)**2+DP(1,3)**2) + DP(2,4)=SQRT(DP(2,1)**2+DP(2,2)**2+DP(2,3)**2) + DHC12=DFOUR(1,2) + IF(DHC12.LE.1D-2) THEN + P(IN(1)+2,4)=P(IN(1)+2,3) + P(IN(1)+2,1)=0D0 + IN(1)=IN(1)+4 + GOTO 420 + ENDIF + IN(3)=N+NR+4*NS+5 + DP(5,1)=DP(1,1)/DP(1,4)-DP(2,1)/DP(2,4) + DP(5,2)=DP(1,2)/DP(1,4)-DP(2,2)/DP(2,4) + DP(5,3)=DP(1,3)/DP(1,4)-DP(2,3)/DP(2,4) + IF(DP(5,1)**2.LE.DP(5,2)**2+DP(5,3)**2) DP(3,1)=1D0 + IF(DP(5,1)**2.GT.DP(5,2)**2+DP(5,3)**2) DP(3,3)=1D0 + IF(DP(5,2)**2.LE.DP(5,1)**2+DP(5,3)**2) DP(4,2)=1D0 + IF(DP(5,2)**2.GT.DP(5,1)**2+DP(5,3)**2) DP(4,3)=1D0 + DHCX1=DFOUR(3,1)/DHC12 + DHCX2=DFOUR(3,2)/DHC12 + DHCXX=1D0/SQRT(1D0+2D0*DHCX1*DHCX2*DHC12) + DHCY1=DFOUR(4,1)/DHC12 + DHCY2=DFOUR(4,2)/DHC12 + DHCYX=DHCXX*(DHCX1*DHCY2+DHCX2*DHCY1)*DHC12 + DHCYY=1D0/SQRT(1D0+2D0*DHCY1*DHCY2*DHC12-DHCYX**2) + DO 440 J=1,4 + DP(3,J)=DHCXX*(DP(3,J)-DHCX2*DP(1,J)-DHCX1*DP(2,J)) + P(IN(3),J)=DP(3,J) + P(IN(3)+1,J)=DHCYY*(DP(4,J)-DHCY2*DP(1,J)-DHCY1*DP(2,J)- + & DHCYX*DP(3,J)) + 440 CONTINUE +C...Express pT with respect to new axes, if sensible. + PXP=-(PX(3)*FOUR(IN(6),IN(3))+PY(3)*FOUR(IN(6)+1,IN(3))) + PYP=-(PX(3)*FOUR(IN(6),IN(3)+1)+PY(3)*FOUR(IN(6)+1,IN(3)+1)) + IF(ABS(PXP**2+PYP**2-PX(3)**2-PY(3)**2).LT.0.01D0) THEN + PX(3)=PXP + PY(3)=PYP + ENDIF + ENDIF + +C...Junction strings: sum up known four-momentum, coefficients for m2. + DO 470 J=1,4 + DHG(J)=0D0 + P(I,J)=PX(1)*P(IN(6),J)+PY(1)*P(IN(6)+1,J)+PX(3)*P(IN(3),J)+ + & PY(3)*P(IN(3)+1,J) + DO 450 IN1=IN(4),IN(1)-4,4 + P(I,J)=P(I,J)+P(IN1+2,3)*P(IN1,J) + 450 CONTINUE + DO 460 IN2=IN(5),IN(2)-4,4 + P(I,J)=P(I,J)+P(IN2+2,3)*P(IN2,J) + 460 CONTINUE + 470 CONTINUE + DHM(1)=FOUR(I,I) + DHM(2)=2D0*FOUR(I,IN(1)) + DHM(3)=2D0*FOUR(I,IN(2)) + DHM(4)=2D0*FOUR(IN(1),IN(2)) + +C...Junction strings: find coefficients for Gamma expression. + DO 490 IN2=IN(1)+1,IN(2),4 + DO 480 IN1=IN(1),IN2-1,4 + DHC=2D0*FOUR(IN1,IN2) + DHG(1)=DHG(1)+P(IN1+2,1)*P(IN2+2,1)*DHC + IF(IN1.EQ.IN(1)) DHG(2)=DHG(2)-P(IN2+2,1)*DHC + IF(IN2.EQ.IN(2)) DHG(3)=DHG(3)+P(IN1+2,1)*DHC + IF(IN1.EQ.IN(1).AND.IN2.EQ.IN(2)) DHG(4)=DHG(4)-DHC + 480 CONTINUE + 490 CONTINUE + +C...Junction strings: solve (m2, Gamma) equation system for energies. + DHS1=DHM(3)*DHG(4)-DHM(4)*DHG(3) + IF(ABS(DHS1).LT.1D-4) GOTO 320 + DHS2=DHM(4)*(GAM(3)-DHG(1))-DHM(2)*DHG(3)-DHG(4)* + & (P(I,5)**2-DHM(1))+DHG(2)*DHM(3) + DHS3=DHM(2)*(GAM(3)-DHG(1))-DHG(2)*(P(I,5)**2-DHM(1)) + P(IN(2)+2,4)=0.5D0*(SQRT(MAX(0D0,DHS2**2-4D0*DHS1*DHS3))/ + & ABS(DHS1)-DHS2/DHS1) + IF(DHM(2)+DHM(4)*P(IN(2)+2,4).LE.0D0) GOTO 320 + P(IN(1)+2,4)=(P(I,5)**2-DHM(1)-DHM(3)*P(IN(2)+2,4))/ + & (DHM(2)+DHM(4)*P(IN(2)+2,4)) + +C...Junction strings: step to new region if necessary. + IF(P(IN(2)+2,4).GT.P(IN(2)+2,3)) THEN + P(IN(2)+2,4)=P(IN(2)+2,3) + P(IN(2)+2,1)=1D0 + IN(2)=IN(2)+4 + IF(IN(2).GT.N+NR+4*NS) GOTO 320 + IF(FOUR(IN(1),IN(2)).LE.1D-2) THEN + P(IN(1)+2,4)=P(IN(1)+2,3) + P(IN(1)+2,1)=0D0 + IN(1)=IN(1)+4 + ENDIF + GOTO 420 + ELSEIF(P(IN(1)+2,4).GT.P(IN(1)+2,3)) THEN + P(IN(1)+2,4)=P(IN(1)+2,3) + P(IN(1)+2,1)=0D0 + IN(1)=IN(1)+JS + GOTO 890 + ENDIF + +C...Junction strings: particle four-momentum, remainder, loop back. + 500 DO 510 J=1,4 + P(I,J)=P(I,J)+P(IN(1)+2,4)*P(IN(1),J)+ + & P(IN(2)+2,4)*P(IN(2),J) + PJU(IU+3,J)=PJU(IU+3,J)+P(I,J) + 510 CONTINUE + IF(P(I,4).LT.P(I,5)) GOTO 320 + PJU(IU+3,5)=TJU(4)*PJU(IU+3,4)-TJU(1)*PJU(IU+3,1)- + & TJU(2)*PJU(IU+3,2)-TJU(3)*PJU(IU+3,3) + IF(PJU(IU+3,5).LT.PJU(IU,5)) THEN + KFL(1)=-KFL(3) + PX(1)=-PX(3) + PY(1)=-PY(3) + GAM(1)=GAM(3) + IF(IN(3).NE.IN(6)) THEN + DO 520 J=1,4 + P(IN(6),J)=P(IN(3),J) + P(IN(6)+1,J)=P(IN(3)+1,J) + 520 CONTINUE + ENDIF + DO 530 JQ=1,2 + IN(3+JQ)=IN(JQ) + P(IN(JQ)+2,3)=P(IN(JQ)+2,3)-P(IN(JQ)+2,4) + P(IN(JQ)+2,1)=P(IN(JQ)+2,1)-(3-2*JQ)*P(IN(JQ)+2,4) + 530 CONTINUE + GOTO 380 + ENDIF + +C...Junction strings: save quantities left after each string. + IF(IABS(KFL(1)).GT.10) GOTO 320 + I=I-1 + KFJH(IU)=KFL(1) + DO 540 J=1,4 + PJU(IU+3,J)=PJU(IU+3,J)-P(I+1,J) + 540 CONTINUE + 550 CONTINUE + +C...Junction strings: put together to new effective string endpoint. + NJS(JT)=I-ISTA + KFJS(JT)=K(K(MJU(JT+2),3),2) + KFLS=2*INT(PYR(0)+3D0*PARJ(4)/(1D0+3D0*PARJ(4)))+1 + IF(KFJH(1).EQ.KFJH(2)) KFLS=3 + IF(ISTA.NE.I) KFJS(JT)=ISIGN(1000*MAX(IABS(KFJH(1)), + & IABS(KFJH(2)))+100*MIN(IABS(KFJH(1)),IABS(KFJH(2)))+ + & KFLS,KFJH(1)) + DO 560 J=1,4 + PJS(JT,J)=PJU(1,J)+PJU(2,J)+P(MJU(JT),J) + PJS(JT+2,J)=PJU(4,J)+PJU(5,J) + 560 CONTINUE + PJS(JT,5)=SQRT(MAX(0D0,PJS(JT,4)**2-PJS(JT,1)**2-PJS(JT,2)**2- + & PJS(JT,3)**2)) + 570 CONTINUE + +C...Open versus closed strings. Choose breakup region for latter. + 580 IF(MJU(1).NE.0.AND.MJU(2).NE.0) THEN + NS=MJU(2)-MJU(1) + NB=MJU(1)-N + ELSEIF(MJU(1).NE.0) THEN + NS=N+NR-MJU(1) + NB=MJU(1)-N + ELSEIF(MJU(2).NE.0) THEN + NS=MJU(2)-N + NB=1 + ELSEIF(IABS(K(N+1,2)).NE.21) THEN + NS=NR-1 + NB=1 + ELSE + NS=NR+1 + W2SUM=0D0 + DO 590 IS=1,NR + P(N+NR+IS,1)=0.5D0*FOUR(N+IS,N+IS+1-NR*(IS/NR)) + W2SUM=W2SUM+P(N+NR+IS,1) + 590 CONTINUE + W2RAN=PYR(0)*W2SUM + NB=0 + 600 NB=NB+1 + W2SUM=W2SUM-P(N+NR+NB,1) + IF(W2SUM.GT.W2RAN.AND.NB.LT.NR) GOTO 600 + ENDIF + +C...Find longitudinal string directions (i.e. lightlike four-vectors). + DO 630 IS=1,NS + IS1=N+IS+NB-1-NR*((IS+NB-2)/NR) + IS2=N+IS+NB-NR*((IS+NB-1)/NR) + DO 610 J=1,5 + DP(1,J)=P(IS1,J) + IF(IABS(K(IS1,2)).EQ.21) DP(1,J)=0.5D0*DP(1,J) + IF(IS1.EQ.MJU(1)) DP(1,J)=PJS(1,J)-PJS(3,J) + DP(2,J)=P(IS2,J) + IF(IABS(K(IS2,2)).EQ.21) DP(2,J)=0.5D0*DP(2,J) + IF(IS2.EQ.MJU(2)) DP(2,J)=PJS(2,J)-PJS(4,J) + 610 CONTINUE + DP(3,5)=DFOUR(1,1) + DP(4,5)=DFOUR(2,2) + DHKC=DFOUR(1,2) + IF(DP(3,5)+2D0*DHKC+DP(4,5).LE.0D0) THEN + DP(3,5)=DP(1,5)**2 + DP(4,5)=DP(2,5)**2 + DP(1,4)=SQRT(DP(1,1)**2+DP(1,2)**2+DP(1,3)**2+DP(1,5)**2) + DP(2,4)=SQRT(DP(2,1)**2+DP(2,2)**2+DP(2,3)**2+DP(2,5)**2) + DHKC=DFOUR(1,2) + ENDIF + DHKS=SQRT(DHKC**2-DP(3,5)*DP(4,5)) + DHK1=0.5D0*((DP(4,5)+DHKC)/DHKS-1D0) + DHK2=0.5D0*((DP(3,5)+DHKC)/DHKS-1D0) + IN1=N+NR+4*IS-3 + P(IN1,5)=SQRT(DP(3,5)+2D0*DHKC+DP(4,5)) + DO 620 J=1,4 + P(IN1,J)=(1D0+DHK1)*DP(1,J)-DHK2*DP(2,J) + P(IN1+1,J)=(1D0+DHK2)*DP(2,J)-DHK1*DP(1,J) + 620 CONTINUE + 630 CONTINUE + +C...Begin initialization: sum up energy, set starting position. + ISAV=I + MSTU91=MSTU(90) + 640 NTRY=NTRY+1 + IF(NTRY.GT.100.AND.NTRYR.LE.4) THEN + PARU12=4D0*PARU12 + PARU13=2D0*PARU13 + GOTO 140 + ELSEIF(NTRY.GT.100) THEN + CALL PYERRM(14,'(PYSTRF:) caught in infinite loop') + IF(MSTU(21).GE.1) RETURN + ENDIF + I=ISAV + MSTU(90)=MSTU91 + DO 660 J=1,4 + P(N+NRS,J)=0D0 + DO 650 IS=1,NR + P(N+NRS,J)=P(N+NRS,J)+P(N+IS,J) + 650 CONTINUE + 660 CONTINUE + DO 680 JT=1,2 + IRANK(JT)=0 + IF(MJU(JT).NE.0) IRANK(JT)=NJS(JT) + IF(NS.GT.NR) IRANK(JT)=1 + IE(JT)=K(N+1+(JT/2)*(NP-1),3) + IN(3*JT+1)=N+NR+1+4*(JT/2)*(NS-1) + IN(3*JT+2)=IN(3*JT+1)+1 + IN(3*JT+3)=N+NR+4*NS+2*JT-1 + DO 670 IN1=N+NR+2+JT,N+NR+4*NS-2+JT,4 + P(IN1,1)=2-JT + P(IN1,2)=JT-1 + P(IN1,3)=1D0 + 670 CONTINUE + 680 CONTINUE +C.. MOPS variables and switches + NRVMO=0 + XBMO=1D0 + MSTU(121)=0 + MSTU(122)=0 + +C...Initialize flavour and pT variables for open string. + IF(NS.LT.NR) THEN + PX(1)=0D0 + PY(1)=0D0 + IF(NS.EQ.1.AND.MJU(1)+MJU(2).EQ.0) CALL PYPTDI(0,PX(1),PY(1)) + PX(2)=-PX(1) + PY(2)=-PY(1) + DO 690 JT=1,2 + KFL(JT)=K(IE(JT),2) + IF(MJU(JT).NE.0) KFL(JT)=KFJS(JT) + MSTJ(93)=1 + PMQ(JT)=PYMASS(KFL(JT)) + GAM(JT)=0D0 + 690 CONTINUE + +C...Closed string: random initial breakup flavour, pT and vertex. + ELSE + KFL(3)=INT(1D0+(2D0+PARJ(2))*PYR(0))*(-1)**INT(PYR(0)+0.5D0) + IBMO=0 + 700 CALL PYKFDI(KFL(3),0,KFL(1),KDUMP) +C.. Closed string: first vertex diq attempt => enforced second +C.. vertex diq + IF(IABS(KFL(1)).GT.10)THEN + IBMO=1 + MSTU(121)=0 + GOTO 700 + ENDIF + IF(IBMO.EQ.1) MSTU(121)=-1 + KFL(2)=-KFL(1) + CALL PYPTDI(KFL(1),PX(1),PY(1)) + PX(2)=-PX(1) + PY(2)=-PY(1) + PR3=MIN(25D0,0.1D0*P(N+NR+1,5)**2) + 710 CALL PYZDIS(KFL(1),KFL(2),PR3,Z) + ZR=PR3/(Z*P(N+NR+1,5)**2) + IF(ZR.GE.1D0) GOTO 710 + DO 720 JT=1,2 + MSTJ(93)=1 + PMQ(JT)=PYMASS(KFL(JT)) + GAM(JT)=PR3*(1D0-Z)/Z + IN1=N+NR+3+4*(JT/2)*(NS-1) + P(IN1,JT)=1D0-Z + P(IN1,3-JT)=JT-1 + P(IN1,3)=(2-JT)*(1D0-Z)+(JT-1)*Z + P(IN1+1,JT)=ZR + P(IN1+1,3-JT)=2-JT + P(IN1+1,3)=(2-JT)*(1D0-ZR)+(JT-1)*ZR + 720 CONTINUE + ENDIF +C.. MOPS variables + DO 730 JT=1,2 + XTMO(JT)=1D0 + PM2QMO(JT)=PMQ(JT)**2 + IF(IABS(KFL(JT)).GT.10) PM2QMO(JT)=0D0 + 730 CONTINUE + +C...Find initial transverse directions (i.e. spacelike four-vectors). + DO 770 JT=1,2 + IF(JT.EQ.1.OR.NS.EQ.NR-1) THEN + IN1=IN(3*JT+1) + IN3=IN(3*JT+3) + DO 740 J=1,4 + DP(1,J)=P(IN1,J) + DP(2,J)=P(IN1+1,J) + DP(3,J)=0D0 + DP(4,J)=0D0 + 740 CONTINUE + DP(1,4)=SQRT(DP(1,1)**2+DP(1,2)**2+DP(1,3)**2) + DP(2,4)=SQRT(DP(2,1)**2+DP(2,2)**2+DP(2,3)**2) + DP(5,1)=DP(1,1)/DP(1,4)-DP(2,1)/DP(2,4) + DP(5,2)=DP(1,2)/DP(1,4)-DP(2,2)/DP(2,4) + DP(5,3)=DP(1,3)/DP(1,4)-DP(2,3)/DP(2,4) + IF(DP(5,1)**2.LE.DP(5,2)**2+DP(5,3)**2) DP(3,1)=1D0 + IF(DP(5,1)**2.GT.DP(5,2)**2+DP(5,3)**2) DP(3,3)=1D0 + IF(DP(5,2)**2.LE.DP(5,1)**2+DP(5,3)**2) DP(4,2)=1D0 + IF(DP(5,2)**2.GT.DP(5,1)**2+DP(5,3)**2) DP(4,3)=1D0 + DHC12=DFOUR(1,2) + DHCX1=DFOUR(3,1)/DHC12 + DHCX2=DFOUR(3,2)/DHC12 + DHCXX=1D0/SQRT(1D0+2D0*DHCX1*DHCX2*DHC12) + DHCY1=DFOUR(4,1)/DHC12 + DHCY2=DFOUR(4,2)/DHC12 + DHCYX=DHCXX*(DHCX1*DHCY2+DHCX2*DHCY1)*DHC12 + DHCYY=1D0/SQRT(1D0+2D0*DHCY1*DHCY2*DHC12-DHCYX**2) + DO 750 J=1,4 + DP(3,J)=DHCXX*(DP(3,J)-DHCX2*DP(1,J)-DHCX1*DP(2,J)) + P(IN3,J)=DP(3,J) + P(IN3+1,J)=DHCYY*(DP(4,J)-DHCY2*DP(1,J)-DHCY1*DP(2,J)- + & DHCYX*DP(3,J)) + 750 CONTINUE + ELSE + DO 760 J=1,4 + P(IN3+2,J)=P(IN3,J) + P(IN3+3,J)=P(IN3+1,J) + 760 CONTINUE + ENDIF + 770 CONTINUE + +C...Remove energy used up in junction string fragmentation. + IF(MJU(1)+MJU(2).GT.0) THEN + DO 790 JT=1,2 + IF(NJS(JT).EQ.0) GOTO 790 + DO 780 J=1,4 + P(N+NRS,J)=P(N+NRS,J)-PJS(JT+2,J) + 780 CONTINUE + 790 CONTINUE + ENDIF + +C...Produce new particle: side, origin. + 800 I=I+1 + IF(2*I-NSAV.GE.MSTU(4)-MSTU(32)-5) THEN + CALL PYERRM(11,'(PYSTRF:) no more memory left in PYJETS') + IF(MSTU(21).GE.1) RETURN + ENDIF +C.. New side priority for popcorn systems + IF(MSTU(121).LE.0)THEN + JT=1.5D0+PYR(0) + IF(IABS(KFL(3-JT)).GT.10) JT=3-JT + IF(IABS(KFL(3-JT)).GE.4.AND.IABS(KFL(3-JT)).LE.8) JT=3-JT + ENDIF + JR=3-JT + JS=3-2*JT + IRANK(JT)=IRANK(JT)+1 + K(I,1)=1 + K(I,3)=IE(JT) + K(I,4)=0 + K(I,5)=0 + +C...Generate flavour, hadron and pT. + 810 CONTINUE + CALL PYKFDI(KFL(JT),0,KFL(3),K(I,2)) + IF(K(I,2).EQ.0) GOTO 640 + MU90MO=MSTU(90) + IF(MSTU(121).EQ.-1) GOTO 840 + IF(IRANK(JT).EQ.1.AND.IABS(KFL(JT)).LE.10.AND. + &IABS(KFL(3)).GT.10) THEN + IF(PYR(0).GT.PARJ(19)) GOTO 810 + ENDIF + P(I,5)=PYMASS(K(I,2)) + CALL PYPTDI(KFL(JT),PX(3),PY(3)) + PR(JT)=P(I,5)**2+(PX(JT)+PX(3))**2+(PY(JT)+PY(3))**2 + +C...Final hadrons for small invariant mass. + MSTJ(93)=1 + PMQ(3)=PYMASS(KFL(3)) + PARJST=PARJ(33) + IF(MSTJ(11).EQ.2) PARJST=PARJ(34) + WMIN=PARJST+PMQ(1)+PMQ(2)+PARJ(36)*PMQ(3) + IF(IABS(KFL(JT)).GT.10.AND.IABS(KFL(3)).GT.10) WMIN= + &WMIN-0.5D0*PARJ(36)*PMQ(3) + WREM2=FOUR(N+NRS,N+NRS) + IF(WREM2.LT.0.10D0) GOTO 640 + IF(WREM2.LT.MAX(WMIN*(1D0+(2D0*PYR(0)-1D0)*PARJ(37)), + &PARJ(32)+PMQ(1)+PMQ(2))**2) GOTO 1010 + +C...Choose z, which gives Gamma. Shift z for heavy flavours. + CALL PYZDIS(KFL(JT),KFL(3),PR(JT),Z) + IF(IABS(KFL(JT)).GE.4.AND.IABS(KFL(JT)).LE.8.AND. + &MSTU(90).LT.8) THEN + MSTU(90)=MSTU(90)+1 + MSTU(90+MSTU(90))=I + PARU(90+MSTU(90))=Z + ENDIF + KFL1A=IABS(KFL(1)) + KFL2A=IABS(KFL(2)) + IF(MAX(MOD(KFL1A,10),MOD(KFL1A/1000,10),MOD(KFL2A,10), + &MOD(KFL2A/1000,10)).GE.4) THEN + PR(JR)=(PMQ(JR)+PMQ(3))**2+(PX(JR)-PX(3))**2+(PY(JR)-PY(3))**2 + PW12=SQRT(MAX(0D0,(WREM2-PR(1)-PR(2))**2-4D0*PR(1)*PR(2))) + Z=(WREM2+PR(JT)-PR(JR)+PW12*(2D0*Z-1D0))/(2D0*WREM2) + PR(JR)=(PMQ(JR)+PARJST)**2+(PX(JR)-PX(3))**2+(PY(JR)-PY(3))**2 + IF((1D0-Z)*(WREM2-PR(JT)/Z).LT.PR(JR)) GOTO 1010 + ENDIF + GAM(3)=(1D0-Z)*(GAM(JT)+PR(JT)/Z) + +C.. MOPS baryon model modification + XTMO3=(1D0-Z)*XTMO(JT) + IF(IABS(KFL(3)).LE.10) NRVMO=0 + IF(IABS(KFL(3)).GT.10.AND.MSTJ(12).GE.4) THEN + GTSTMO=1D0 + PTSTMO=1D0 + RTSTMO=PYR(0) + IF(IABS(KFL(JT)).LE.10)THEN + XBMO=MIN(XTMO3,1D0-(2D-10)) + GBMO=GAM(3) + PMMO=0D0 + PGMO=GBMO+LOG(1D0-XBMO)*PM2QMO(JT) + GTSTMO=1D0-PARF(192)**PGMO + ELSE + IF(IRANK(JT).EQ.1) THEN + GBMO=GAM(JT) + PMMO=0D0 + XBMO=1D0 + ENDIF + IF(XBMO.LT.1D0-(1D-10))THEN + PGNMO=GBMO*XTMO3/XBMO+PM2QMO(JT)*LOG(1D0-XTMO3) + GTSTMO=(1D0-PARF(192)**PGNMO)/(1D0-PARF(192)**PGMO) + PGMO=PGNMO + ENDIF + IF(MSTJ(12).GE.5)THEN + PMNMO=SQRT((XBMO-XTMO3)*(GAM(3)/XTMO3-GBMO/XBMO)) + PMMO=PMMO+PMAS(PYCOMP(K(I,2)),1)-PMAS(PYCOMP(K(I,2)),3) + PTSTMO=EXP((PMMO-PMNMO)*PARF(193)) + PMMO=PMNMO + ENDIF + ENDIF + +C.. MOPS Accepting popcorn system hadron. + IF(PTSTMO*GTSTMO.GT.RTSTMO) THEN + IF(IRANK(JT).EQ.1.OR.IABS(KFL(JT)).LE.10) THEN + NRVMO=I-N-NR + IF(I+NRVMO.GT.MSTU(4)-MSTU(32)-5) THEN + CALL PYERRM(11, + & '(PYSTRF:) no more memory left in PYJETS') + IF(MSTU(21).GE.1) RETURN + ENDIF + IMO=I + KFLMO=KFL(JT) + PMQMO=PMQ(JT) + PXMO=PX(JT) + PYMO=PY(JT) + GAMMO=GAM(JT) + IRMO=IRANK(JT) + XMO=XTMO(JT) + DO 830 J=1,9 + IF(J.LE.5) THEN + DO 820 LINE=1,I-N-NR + P(MSTU(4)-MSTU(32)-LINE,J)=P(N+NR+LINE,J) + K(MSTU(4)-MSTU(32)-LINE,J)=K(N+NR+LINE,J) + 820 CONTINUE + ENDIF + INMO(J)=IN(J) + 830 CONTINUE + ENDIF + ELSE +C..Reject popcorn system, flag=-1 if enforcing new one + MSTU(121)=-1 + IF(PTSTMO.GT.RTSTMO) MSTU(121)=-2 + ENDIF + ENDIF + + +C..Lift restoring string outside MOPS block + 840 IF(MSTU(121).LT.0) THEN + IF(MSTU(121).EQ.-2) MSTU(121)=0 + MSTU(90)=MU90MO + NRVMO=0 + IF(IRANK(JT).EQ.1.OR.IABS(KFL(JT)).LE.10) GOTO 810 + I=IMO + KFL(JT)=KFLMO + PMQ(JT)=PMQMO + PX(JT)=PXMO + PY(JT)=PYMO + GAM(JT)=GAMMO + IRANK(JT)=IRMO + XTMO(JT)=XMO + DO 860 J=1,9 + IF(J.LE.5) THEN + DO 850 LINE=1,I-N-NR + P(N+NR+LINE,J)=P(MSTU(4)-MSTU(32)-LINE,J) + K(N+NR+LINE,J)=K(MSTU(4)-MSTU(32)-LINE,J) + 850 CONTINUE + ENDIF + IN(J)=INMO(J) + 860 CONTINUE + GOTO 810 + ENDIF + XTMO(JT)=XTMO3 +C.. MOPS end of modification + + DO 870 J=1,3 + IN(J)=IN(3*JT+J) + 870 CONTINUE + +C...Stepping within or from 'low' string region easy. + IF(IN(1)+1.EQ.IN(2).AND.Z*P(IN(1)+2,3)*P(IN(2)+2,3)* + &P(IN(1),5)**2.GE.PR(JT)) THEN + P(IN(JT)+2,4)=Z*P(IN(JT)+2,3) + P(IN(JR)+2,4)=PR(JT)/(P(IN(JT)+2,4)*P(IN(1),5)**2) + DO 880 J=1,4 + P(I,J)=(PX(JT)+PX(3))*P(IN(3),J)+(PY(JT)+PY(3))*P(IN(3)+1,J) + 880 CONTINUE + GOTO 970 + ELSEIF(IN(1)+1.EQ.IN(2)) THEN + P(IN(JR)+2,4)=P(IN(JR)+2,3) + P(IN(JR)+2,JT)=1D0 + IN(JR)=IN(JR)+4*JS + IF(JS*IN(JR).GT.JS*IN(4*JR)) GOTO 640 + IF(FOUR(IN(1),IN(2)).LE.1D-2) THEN + P(IN(JT)+2,4)=P(IN(JT)+2,3) + P(IN(JT)+2,JT)=0D0 + IN(JT)=IN(JT)+4*JS + ENDIF + ENDIF + +C...Find new transverse directions (i.e. spacelike string vectors). + 890 IF(JS*IN(1).GT.JS*IN(3*JR+1).OR.JS*IN(2).GT.JS*IN(3*JR+2).OR. + &IN(1).GT.IN(2)) GOTO 640 + IF(IN(1).NE.IN(3*JT+1).OR.IN(2).NE.IN(3*JT+2)) THEN + DO 900 J=1,4 + DP(1,J)=P(IN(1),J) + DP(2,J)=P(IN(2),J) + DP(3,J)=0D0 + DP(4,J)=0D0 + 900 CONTINUE + DP(1,4)=SQRT(DP(1,1)**2+DP(1,2)**2+DP(1,3)**2) + DP(2,4)=SQRT(DP(2,1)**2+DP(2,2)**2+DP(2,3)**2) + DHC12=DFOUR(1,2) + IF(DHC12.LE.1D-2) THEN + P(IN(JT)+2,4)=P(IN(JT)+2,3) + P(IN(JT)+2,JT)=0D0 + IN(JT)=IN(JT)+4*JS + GOTO 890 + ENDIF + IN(3)=N+NR+4*NS+5 + DP(5,1)=DP(1,1)/DP(1,4)-DP(2,1)/DP(2,4) + DP(5,2)=DP(1,2)/DP(1,4)-DP(2,2)/DP(2,4) + DP(5,3)=DP(1,3)/DP(1,4)-DP(2,3)/DP(2,4) + IF(DP(5,1)**2.LE.DP(5,2)**2+DP(5,3)**2) DP(3,1)=1D0 + IF(DP(5,1)**2.GT.DP(5,2)**2+DP(5,3)**2) DP(3,3)=1D0 + IF(DP(5,2)**2.LE.DP(5,1)**2+DP(5,3)**2) DP(4,2)=1D0 + IF(DP(5,2)**2.GT.DP(5,1)**2+DP(5,3)**2) DP(4,3)=1D0 + DHCX1=DFOUR(3,1)/DHC12 + DHCX2=DFOUR(3,2)/DHC12 + DHCXX=1D0/SQRT(1D0+2D0*DHCX1*DHCX2*DHC12) + DHCY1=DFOUR(4,1)/DHC12 + DHCY2=DFOUR(4,2)/DHC12 + DHCYX=DHCXX*(DHCX1*DHCY2+DHCX2*DHCY1)*DHC12 + DHCYY=1D0/SQRT(1D0+2D0*DHCY1*DHCY2*DHC12-DHCYX**2) + DO 910 J=1,4 + DP(3,J)=DHCXX*(DP(3,J)-DHCX2*DP(1,J)-DHCX1*DP(2,J)) + P(IN(3),J)=DP(3,J) + P(IN(3)+1,J)=DHCYY*(DP(4,J)-DHCY2*DP(1,J)-DHCY1*DP(2,J)- + & DHCYX*DP(3,J)) + 910 CONTINUE +C...Express pT with respect to new axes, if sensible. + PXP=-(PX(3)*FOUR(IN(3*JT+3),IN(3))+PY(3)* + & FOUR(IN(3*JT+3)+1,IN(3))) + PYP=-(PX(3)*FOUR(IN(3*JT+3),IN(3)+1)+PY(3)* + & FOUR(IN(3*JT+3)+1,IN(3)+1)) + IF(ABS(PXP**2+PYP**2-PX(3)**2-PY(3)**2).LT.0.01D0) THEN + PX(3)=PXP + PY(3)=PYP + ENDIF + ENDIF + +C...Sum up known four-momentum. Gives coefficients for m2 expression. + DO 940 J=1,4 + DHG(J)=0D0 + P(I,J)=PX(JT)*P(IN(3*JT+3),J)+PY(JT)*P(IN(3*JT+3)+1,J)+ + & PX(3)*P(IN(3),J)+PY(3)*P(IN(3)+1,J) + DO 920 IN1=IN(3*JT+1),IN(1)-4*JS,4*JS + P(I,J)=P(I,J)+P(IN1+2,3)*P(IN1,J) + 920 CONTINUE + DO 930 IN2=IN(3*JT+2),IN(2)-4*JS,4*JS + P(I,J)=P(I,J)+P(IN2+2,3)*P(IN2,J) + 930 CONTINUE + 940 CONTINUE + DHM(1)=FOUR(I,I) + DHM(2)=2D0*FOUR(I,IN(1)) + DHM(3)=2D0*FOUR(I,IN(2)) + DHM(4)=2D0*FOUR(IN(1),IN(2)) + +C...Find coefficients for Gamma expression. + DO 960 IN2=IN(1)+1,IN(2),4 + DO 950 IN1=IN(1),IN2-1,4 + DHC=2D0*FOUR(IN1,IN2) + DHG(1)=DHG(1)+P(IN1+2,JT)*P(IN2+2,JT)*DHC + IF(IN1.EQ.IN(1)) DHG(2)=DHG(2)-JS*P(IN2+2,JT)*DHC + IF(IN2.EQ.IN(2)) DHG(3)=DHG(3)+JS*P(IN1+2,JT)*DHC + IF(IN1.EQ.IN(1).AND.IN2.EQ.IN(2)) DHG(4)=DHG(4)-DHC + 950 CONTINUE + 960 CONTINUE + +C...Solve (m2, Gamma) equation system for energies taken. + DHS1=DHM(JR+1)*DHG(4)-DHM(4)*DHG(JR+1) + IF(ABS(DHS1).LT.1D-4) GOTO 640 + DHS2=DHM(4)*(GAM(3)-DHG(1))-DHM(JT+1)*DHG(JR+1)-DHG(4)* + &(P(I,5)**2-DHM(1))+DHG(JT+1)*DHM(JR+1) + DHS3=DHM(JT+1)*(GAM(3)-DHG(1))-DHG(JT+1)*(P(I,5)**2-DHM(1)) + P(IN(JR)+2,4)=0.5D0*(SQRT(MAX(0D0,DHS2**2-4D0*DHS1*DHS3))/ + &ABS(DHS1)-DHS2/DHS1) + IF(DHM(JT+1)+DHM(4)*P(IN(JR)+2,4).LE.0D0) GOTO 640 + P(IN(JT)+2,4)=(P(I,5)**2-DHM(1)-DHM(JR+1)*P(IN(JR)+2,4))/ + &(DHM(JT+1)+DHM(4)*P(IN(JR)+2,4)) + +C...Step to new region if necessary. + IF(P(IN(JR)+2,4).GT.P(IN(JR)+2,3)) THEN + P(IN(JR)+2,4)=P(IN(JR)+2,3) + P(IN(JR)+2,JT)=1D0 + IN(JR)=IN(JR)+4*JS + IF(JS*IN(JR).GT.JS*IN(4*JR)) GOTO 640 + IF(FOUR(IN(1),IN(2)).LE.1D-2) THEN + P(IN(JT)+2,4)=P(IN(JT)+2,3) + P(IN(JT)+2,JT)=0D0 + IN(JT)=IN(JT)+4*JS + ENDIF + GOTO 890 + ELSEIF(P(IN(JT)+2,4).GT.P(IN(JT)+2,3)) THEN + P(IN(JT)+2,4)=P(IN(JT)+2,3) + P(IN(JT)+2,JT)=0D0 + IN(JT)=IN(JT)+4*JS + GOTO 890 + ENDIF + +C...Four-momentum of particle. Remaining quantities. Loop back. + 970 DO 980 J=1,4 + P(I,J)=P(I,J)+P(IN(1)+2,4)*P(IN(1),J)+P(IN(2)+2,4)*P(IN(2),J) + P(N+NRS,J)=P(N+NRS,J)-P(I,J) + 980 CONTINUE + IF(P(I,4).LT.P(I,5)) GOTO 640 + KFL(JT)=-KFL(3) + PMQ(JT)=PMQ(3) + PX(JT)=-PX(3) + PY(JT)=-PY(3) + GAM(JT)=GAM(3) + IF(IN(3).NE.IN(3*JT+3)) THEN + DO 990 J=1,4 + P(IN(3*JT+3),J)=P(IN(3),J) + P(IN(3*JT+3)+1,J)=P(IN(3)+1,J) + 990 CONTINUE + ENDIF + DO 1000 JQ=1,2 + IN(3*JT+JQ)=IN(JQ) + P(IN(JQ)+2,3)=P(IN(JQ)+2,3)-P(IN(JQ)+2,4) + P(IN(JQ)+2,JT)=P(IN(JQ)+2,JT)-JS*(3-2*JQ)*P(IN(JQ)+2,4) + 1000 CONTINUE + GOTO 800 + +C...Final hadron: side, flavour, hadron, mass. + 1010 I=I+1 + K(I,1)=1 + K(I,3)=IE(JR) + K(I,4)=0 + K(I,5)=0 + CALL PYKFDI(KFL(JR),-KFL(3),KFLDMP,K(I,2)) + IF(K(I,2).EQ.0) GOTO 640 + P(I,5)=PYMASS(K(I,2)) + PR(JR)=P(I,5)**2+(PX(JR)-PX(3))**2+(PY(JR)-PY(3))**2 + +C...Final two hadrons: find common setup of four-vectors. + JQ=1 + IF(P(IN(4)+2,3)*P(IN(5)+2,3)*FOUR(IN(4),IN(5)).LT. + &P(IN(7)+2,3)*P(IN(8)+2,3)*FOUR(IN(7),IN(8))) JQ=2 + DHC12=FOUR(IN(3*JQ+1),IN(3*JQ+2)) + DHR1=FOUR(N+NRS,IN(3*JQ+2))/DHC12 + DHR2=FOUR(N+NRS,IN(3*JQ+1))/DHC12 + IF(IN(4).NE.IN(7).OR.IN(5).NE.IN(8)) THEN + PX(3-JQ)=-FOUR(N+NRS,IN(3*JQ+3))-PX(JQ) + PY(3-JQ)=-FOUR(N+NRS,IN(3*JQ+3)+1)-PY(JQ) + PR(3-JQ)=P(I+(JT+JQ-3)**2-1,5)**2+(PX(3-JQ)+(2*JQ-3)*JS* + & PX(3))**2+(PY(3-JQ)+(2*JQ-3)*JS*PY(3))**2 + ENDIF + +C...Solve kinematics for final two hadrons, if possible. + WREM2=WREM2+(PX(1)+PX(2))**2+(PY(1)+PY(2))**2 + FD=(SQRT(PR(1))+SQRT(PR(2)))/SQRT(WREM2) + IF(MJU(1)+MJU(2).NE.0.AND.I.EQ.ISAV+2.AND.FD.GE.1D0) GOTO 200 + IF(FD.GE.1D0) GOTO 640 + FA=WREM2+PR(JT)-PR(JR) + FB=SQRT(MAX(0D0,FA**2-4D0*WREM2*PR(JT))) + PREVCF=PARJ(42) + IF(MSTJ(11).EQ.2) PREVCF=PARJ(39) + PREV=1D0/(1D0+EXP(MIN(50D0,PREVCF*FB))) + FB=SIGN(FB,JS*(PYR(0)-PREV)) + KFL1A=IABS(KFL(1)) + KFL2A=IABS(KFL(2)) + IF(MAX(MOD(KFL1A,10),MOD(KFL1A/1000,10),MOD(KFL2A,10), + &MOD(KFL2A/1000,10)).GE.6) FB=SIGN(SQRT(MAX(0D0,FA**2- + &4D0*WREM2*PR(JT))),DBLE(JS)) + DO 1020 J=1,4 + P(I-1,J)=(PX(JT)+PX(3))*P(IN(3*JQ+3),J)+(PY(JT)+PY(3))* + & P(IN(3*JQ+3)+1,J)+0.5D0*(DHR1*(FA+FB)*P(IN(3*JQ+1),J)+ + & DHR2*(FA-FB)*P(IN(3*JQ+2),J))/WREM2 + P(I,J)=P(N+NRS,J)-P(I-1,J) + 1020 CONTINUE + IF(P(I-1,4).LT.P(I-1,5).OR.P(I,4).LT.P(I,5)) GOTO 640 + +C...Mark jets as fragmented and give daughter pointers. + N=I-NRS+1 + DO 1030 I=NSAV+1,NSAV+NP + IM=K(I,3) + K(IM,1)=K(IM,1)+10 + IF(MSTU(16).NE.2) THEN + K(IM,4)=NSAV+1 + K(IM,5)=NSAV+1 + ELSE + K(IM,4)=NSAV+2 + K(IM,5)=N + ENDIF + 1030 CONTINUE + +C...Document string system. Move up particles. + NSAV=NSAV+1 + K(NSAV,1)=11 + K(NSAV,2)=92 + K(NSAV,3)=IP + K(NSAV,4)=NSAV+1 + K(NSAV,5)=N + DO 1040 J=1,4 + P(NSAV,J)=DPS(J) + V(NSAV,J)=V(IP,J) + 1040 CONTINUE + P(NSAV,5)=SQRT(MAX(0D0,DPS(4)**2-DPS(1)**2-DPS(2)**2-DPS(3)**2)) + V(NSAV,5)=0D0 + DO 1060 I=NSAV+1,N + DO 1050 J=1,5 + K(I,J)=K(I+NRS-1,J) + P(I,J)=P(I+NRS-1,J) + V(I,J)=0D0 + 1050 CONTINUE + 1060 CONTINUE + MSTU91=MSTU(90) + DO 1070 IZ=MSTU90+1,MSTU91 + MSTU9T(IZ)=MSTU(90+IZ)-NRS+1-NSAV+N + PARU9T(IZ)=PARU(90+IZ) + 1070 CONTINUE + MSTU(90)=MSTU90 + +C...Order particles in rank along the chain. Update mother pointer. + DO 1090 I=NSAV+1,N + DO 1080 J=1,5 + K(I-NSAV+N,J)=K(I,J) + P(I-NSAV+N,J)=P(I,J) + 1080 CONTINUE + 1090 CONTINUE + I1=NSAV + DO 1120 I=N+1,2*N-NSAV + IF(K(I,3).NE.IE(1)) GOTO 1120 + I1=I1+1 + DO 1100 J=1,5 + K(I1,J)=K(I,J) + P(I1,J)=P(I,J) + 1100 CONTINUE + IF(MSTU(16).NE.2) K(I1,3)=NSAV + DO 1110 IZ=MSTU90+1,MSTU91 + IF(MSTU9T(IZ).EQ.I) THEN + MSTU(90)=MSTU(90)+1 + MSTU(90+MSTU(90))=I1 + PARU(90+MSTU(90))=PARU9T(IZ) + ENDIF + 1110 CONTINUE + 1120 CONTINUE + DO 1150 I=2*N-NSAV,N+1,-1 + IF(K(I,3).EQ.IE(1)) GOTO 1150 + I1=I1+1 + DO 1130 J=1,5 + K(I1,J)=K(I,J) + P(I1,J)=P(I,J) + 1130 CONTINUE + IF(MSTU(16).NE.2) K(I1,3)=NSAV + DO 1140 IZ=MSTU90+1,MSTU91 + IF(MSTU9T(IZ).EQ.I) THEN + MSTU(90)=MSTU(90)+1 + MSTU(90+MSTU(90))=I1 + PARU(90+MSTU(90))=PARU9T(IZ) + ENDIF + 1140 CONTINUE + 1150 CONTINUE + +C...Boost back particle system. Set production vertices. + IF(MBST.EQ.0) THEN + MSTU(33)=1 + CALL PYROBO(NSAV+1,N,0D0,0D0,DPS(1)/DPS(4),DPS(2)/DPS(4), + & DPS(3)/DPS(4)) + ELSE + DO 1160 I=NSAV+1,N + HHPMT=P(I,1)**2+P(I,2)**2+P(I,5)**2 + IF(P(I,3).GT.0D0) THEN + HHPEZ=(P(I,4)+P(I,3))*HHBZ + P(I,3)=0.5D0*(HHPEZ-HHPMT/HHPEZ) + P(I,4)=0.5D0*(HHPEZ+HHPMT/HHPEZ) + ELSE + HHPEZ=(P(I,4)-P(I,3))/HHBZ + P(I,3)=-0.5D0*(HHPEZ-HHPMT/HHPEZ) + P(I,4)=0.5D0*(HHPEZ+HHPMT/HHPEZ) + ENDIF + 1160 CONTINUE + ENDIF + DO 1180 I=NSAV+1,N + DO 1170 J=1,4 + V(I,J)=V(IP,J) + 1170 CONTINUE + 1180 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYINDF +C...Handles the fragmentation of a jet system (or a single +C...jet) according to independent fragmentation models. + + SUBROUTINE PYINDF(IP) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ +C...Local arrays. + DIMENSION DPS(5),PSI(4),NFI(3),NFL(3),IFET(3),KFLF(3), + &KFLO(2),PXO(2),PYO(2),WO(2) + +C.. MOPS error message + IF(MSTJ(12).GT.3) CALL PYERRM(9,'(PYINDF:) MSTJ(12)>3 options'// + &' are not treated as expected in independent fragmentation') + +C...Reset counters. Identify parton system and take copy. Check flavour. + NSAV=N + MSTU90=MSTU(90) + NJET=0 + KQSUM=0 + DO 100 J=1,5 + DPS(J)=0D0 + 100 CONTINUE + I=IP-1 + 110 I=I+1 + IF(I.GT.MIN(N,MSTU(4)-MSTU(32))) THEN + CALL PYERRM(12,'(PYINDF:) failed to reconstruct jet system') + IF(MSTU(21).GE.1) RETURN + ENDIF + IF(K(I,1).NE.1.AND.K(I,1).NE.2) GOTO 110 + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0) GOTO 110 + KQ=KCHG(KC,2)*ISIGN(1,K(I,2)) + IF(KQ.EQ.0) GOTO 110 + NJET=NJET+1 + IF(KQ.NE.2) KQSUM=KQSUM+KQ + DO 120 J=1,5 + K(NSAV+NJET,J)=K(I,J) + P(NSAV+NJET,J)=P(I,J) + DPS(J)=DPS(J)+P(I,J) + 120 CONTINUE + K(NSAV+NJET,3)=I + IF(K(I,1).EQ.2.OR.(MSTJ(3).LE.5.AND.N.GT.I.AND. + &K(I+1,1).EQ.2)) GOTO 110 + IF(NJET.NE.1.AND.KQSUM.NE.0) THEN + CALL PYERRM(12,'(PYINDF:) unphysical flavour combination') + IF(MSTU(21).GE.1) RETURN + ENDIF + +C...Boost copied system to CM frame. Find CM energy and sum flavours. + IF(NJET.NE.1) THEN + MSTU(33)=1 + CALL PYROBO(NSAV+1,NSAV+NJET,0D0,0D0,-DPS(1)/DPS(4), + & -DPS(2)/DPS(4),-DPS(3)/DPS(4)) + ENDIF + PECM=0D0 + DO 130 J=1,3 + NFI(J)=0 + 130 CONTINUE + DO 140 I=NSAV+1,NSAV+NJET + PECM=PECM+P(I,4) + KFA=IABS(K(I,2)) + IF(KFA.LE.3) THEN + NFI(KFA)=NFI(KFA)+ISIGN(1,K(I,2)) + ELSEIF(KFA.GT.1000) THEN + KFLA=MOD(KFA/1000,10) + KFLB=MOD(KFA/100,10) + IF(KFLA.LE.3) NFI(KFLA)=NFI(KFLA)+ISIGN(1,K(I,2)) + IF(KFLB.LE.3) NFI(KFLB)=NFI(KFLB)+ISIGN(1,K(I,2)) + ENDIF + 140 CONTINUE + +C...Loop over attempts made. Reset counters. + NTRY=0 + 150 NTRY=NTRY+1 + IF(NTRY.GT.200) THEN + CALL PYERRM(14,'(PYINDF:) caught in infinite loop') + IF(MSTU(21).GE.1) RETURN + ENDIF + N=NSAV+NJET + MSTU(90)=MSTU90 + DO 160 J=1,3 + NFL(J)=NFI(J) + IFET(J)=0 + KFLF(J)=0 + 160 CONTINUE + +C...Loop over jets to be fragmented. + DO 230 IP1=NSAV+1,NSAV+NJET + MSTJ(91)=0 + NSAV1=N + MSTU91=MSTU(90) + +C...Initial flavour and momentum values. Jet along +z axis. + KFLH=IABS(K(IP1,2)) + IF(KFLH.GT.10) KFLH=MOD(KFLH/1000,10) + KFLO(2)=0 + WF=P(IP1,4)+SQRT(P(IP1,1)**2+P(IP1,2)**2+P(IP1,3)**2) + +C...Initial values for quark or diquark jet. + 170 IF(IABS(K(IP1,2)).NE.21) THEN + NSTR=1 + KFLO(1)=K(IP1,2) + CALL PYPTDI(0,PXO(1),PYO(1)) + WO(1)=WF + +C...Initial values for gluon treated like random quark jet. + ELSEIF(MSTJ(2).LE.2) THEN + NSTR=1 + IF(MSTJ(2).EQ.2) MSTJ(91)=1 + KFLO(1)=INT(1D0+(2D0+PARJ(2))*PYR(0))*(-1)**INT(PYR(0)+0.5D0) + CALL PYPTDI(0,PXO(1),PYO(1)) + WO(1)=WF + +C...Initial values for gluon treated like quark-antiquark jet pair, +C...sharing energy according to Altarelli-Parisi splitting function. + ELSE + NSTR=2 + IF(MSTJ(2).EQ.4) MSTJ(91)=1 + KFLO(1)=INT(1D0+(2D0+PARJ(2))*PYR(0))*(-1)**INT(PYR(0)+0.5D0) + KFLO(2)=-KFLO(1) + CALL PYPTDI(0,PXO(1),PYO(1)) + PXO(2)=-PXO(1) + PYO(2)=-PYO(1) + WO(1)=WF*PYR(0)**(1D0/3D0) + WO(2)=WF-WO(1) + ENDIF + +C...Initial values for rank, flavour, pT and W+. + DO 220 ISTR=1,NSTR + 180 I=N + MSTU(90)=MSTU91 + IRANK=0 + KFL1=KFLO(ISTR) + PX1=PXO(ISTR) + PY1=PYO(ISTR) + W=WO(ISTR) + +C...New hadron. Generate flavour and hadron species. + 190 I=I+1 + IF(I.GE.MSTU(4)-MSTU(32)-NJET-5) THEN + CALL PYERRM(11,'(PYINDF:) no more memory left in PYJETS') + IF(MSTU(21).GE.1) RETURN + ENDIF + IRANK=IRANK+1 + K(I,1)=1 + K(I,3)=IP1 + K(I,4)=0 + K(I,5)=0 + 200 CALL PYKFDI(KFL1,0,KFL2,K(I,2)) + IF(K(I,2).EQ.0) GOTO 180 + IF(IRANK.EQ.1.AND.IABS(KFL1).LE.10.AND.IABS(KFL2).GT.10) THEN + IF(PYR(0).GT.PARJ(19)) GOTO 200 + ENDIF + +C...Find hadron mass. Generate four-momentum. + P(I,5)=PYMASS(K(I,2)) + CALL PYPTDI(KFL1,PX2,PY2) + P(I,1)=PX1+PX2 + P(I,2)=PY1+PY2 + PR=P(I,5)**2+P(I,1)**2+P(I,2)**2 + CALL PYZDIS(KFL1,KFL2,PR,Z) + MZSAV=0 + IF(IABS(KFL1).GE.4.AND.IABS(KFL1).LE.8.AND.MSTU(90).LT.8) THEN + MZSAV=1 + MSTU(90)=MSTU(90)+1 + MSTU(90+MSTU(90))=I + PARU(90+MSTU(90))=Z + ENDIF + P(I,3)=0.5D0*(Z*W-PR/MAX(1D-4,Z*W)) + P(I,4)=0.5D0*(Z*W+PR/MAX(1D-4,Z*W)) + IF(MSTJ(3).GE.1.AND.IRANK.EQ.1.AND.KFLH.GE.4.AND. + & P(I,3).LE.0.001D0) THEN + IF(W.GE.P(I,5)+0.5D0*PARJ(32)) GOTO 180 + P(I,3)=0.0001D0 + P(I,4)=SQRT(PR) + Z=P(I,4)/W + ENDIF + +C...Remaining flavour and momentum. + KFL1=-KFL2 + PX1=-PX2 + PY1=-PY2 + W=(1D0-Z)*W + DO 210 J=1,5 + V(I,J)=0D0 + 210 CONTINUE + +C...Check if pL acceptable. Go back for new hadron if enough energy. + IF(MSTJ(3).GE.0.AND.P(I,3).LT.0D0) THEN + I=I-1 + IF(MZSAV.EQ.1) MSTU(90)=MSTU(90)-1 + ENDIF + IF(W.GT.PARJ(31)) GOTO 190 + N=I + 220 CONTINUE + IF(MOD(MSTJ(3),5).EQ.4.AND.N.EQ.NSAV1) WF=WF+0.1D0*PARJ(32) + IF(MOD(MSTJ(3),5).EQ.4.AND.N.EQ.NSAV1) GOTO 170 + +C...Rotate jet to new direction. + THE=PYANGL(P(IP1,3),SQRT(P(IP1,1)**2+P(IP1,2)**2)) + PHI=PYANGL(P(IP1,1),P(IP1,2)) + MSTU(33)=1 + CALL PYROBO(NSAV1+1,N,THE,PHI,0D0,0D0,0D0) + K(K(IP1,3),4)=NSAV1+1 + K(K(IP1,3),5)=N + +C...End of jet generation loop. Skip conservation in some cases. + 230 CONTINUE + IF(NJET.EQ.1.OR.MSTJ(3).LE.0) GOTO 490 + IF(MOD(MSTJ(3),5).NE.0.AND.N-NSAV-NJET.LT.2) GOTO 150 + +C...Subtract off produced hadron flavours, finished if zero. + DO 240 I=NSAV+NJET+1,N + KFA=IABS(K(I,2)) + KFLA=MOD(KFA/1000,10) + KFLB=MOD(KFA/100,10) + KFLC=MOD(KFA/10,10) + IF(KFLA.EQ.0) THEN + IF(KFLB.LE.3) NFL(KFLB)=NFL(KFLB)-ISIGN(1,K(I,2))*(-1)**KFLB + IF(KFLC.LE.3) NFL(KFLC)=NFL(KFLC)+ISIGN(1,K(I,2))*(-1)**KFLB + ELSE + IF(KFLA.LE.3) NFL(KFLA)=NFL(KFLA)-ISIGN(1,K(I,2)) + IF(KFLB.LE.3) NFL(KFLB)=NFL(KFLB)-ISIGN(1,K(I,2)) + IF(KFLC.LE.3) NFL(KFLC)=NFL(KFLC)-ISIGN(1,K(I,2)) + ENDIF + 240 CONTINUE + NREQ=(IABS(NFL(1))+IABS(NFL(2))+IABS(NFL(3))-IABS(NFL(1)+ + &NFL(2)+NFL(3)))/2+IABS(NFL(1)+NFL(2)+NFL(3))/3 + IF(NREQ.EQ.0) GOTO 320 + +C...Take away flavour of low-momentum particles until enough freedom. + NREM=0 + 250 IREM=0 + P2MIN=PECM**2 + DO 260 I=NSAV+NJET+1,N + P2=P(I,1)**2+P(I,2)**2+P(I,3)**2 + IF(K(I,1).EQ.1.AND.P2.LT.P2MIN) IREM=I + IF(K(I,1).EQ.1.AND.P2.LT.P2MIN) P2MIN=P2 + 260 CONTINUE + IF(IREM.EQ.0) GOTO 150 + K(IREM,1)=7 + KFA=IABS(K(IREM,2)) + KFLA=MOD(KFA/1000,10) + KFLB=MOD(KFA/100,10) + KFLC=MOD(KFA/10,10) + IF(KFLA.GE.4.OR.KFLB.GE.4) K(IREM,1)=8 + IF(K(IREM,1).EQ.8) GOTO 250 + IF(KFLA.EQ.0) THEN + ISGN=ISIGN(1,K(IREM,2))*(-1)**KFLB + IF(KFLB.LE.3) NFL(KFLB)=NFL(KFLB)+ISGN + IF(KFLC.LE.3) NFL(KFLC)=NFL(KFLC)-ISGN + ELSE + IF(KFLA.LE.3) NFL(KFLA)=NFL(KFLA)+ISIGN(1,K(IREM,2)) + IF(KFLB.LE.3) NFL(KFLB)=NFL(KFLB)+ISIGN(1,K(IREM,2)) + IF(KFLC.LE.3) NFL(KFLC)=NFL(KFLC)+ISIGN(1,K(IREM,2)) + ENDIF + NREM=NREM+1 + NREQ=(IABS(NFL(1))+IABS(NFL(2))+IABS(NFL(3))-IABS(NFL(1)+ + &NFL(2)+NFL(3)))/2+IABS(NFL(1)+NFL(2)+NFL(3))/3 + IF(NREQ.GT.NREM) GOTO 250 + DO 270 I=NSAV+NJET+1,N + IF(K(I,1).EQ.8) K(I,1)=1 + 270 CONTINUE + +C...Find combination of existing and new flavours for hadron. + 280 NFET=2 + IF(NFL(1)+NFL(2)+NFL(3).NE.0) NFET=3 + IF(NREQ.LT.NREM) NFET=1 + IF(IABS(NFL(1))+IABS(NFL(2))+IABS(NFL(3)).EQ.0) NFET=0 + DO 290 J=1,NFET + IFET(J)=1+(IABS(NFL(1))+IABS(NFL(2))+IABS(NFL(3)))*PYR(0) + KFLF(J)=ISIGN(1,NFL(1)) + IF(IFET(J).GT.IABS(NFL(1))) KFLF(J)=ISIGN(2,NFL(2)) + IF(IFET(J).GT.IABS(NFL(1))+IABS(NFL(2))) KFLF(J)=ISIGN(3,NFL(3)) + 290 CONTINUE + IF(NFET.EQ.2.AND.(IFET(1).EQ.IFET(2).OR.KFLF(1)*KFLF(2).GT.0)) + &GOTO 280 + IF(NFET.EQ.3.AND.(IFET(1).EQ.IFET(2).OR.IFET(1).EQ.IFET(3).OR. + &IFET(2).EQ.IFET(3).OR.KFLF(1)*KFLF(2).LT.0.OR.KFLF(1)*KFLF(3) + &.LT.0.OR.KFLF(1)*(NFL(1)+NFL(2)+NFL(3)).LT.0)) GOTO 280 + IF(NFET.EQ.0) KFLF(1)=1+INT((2D0+PARJ(2))*PYR(0)) + IF(NFET.EQ.0) KFLF(2)=-KFLF(1) + IF(NFET.EQ.1) KFLF(2)=ISIGN(1+INT((2D0+PARJ(2))*PYR(0)),-KFLF(1)) + IF(NFET.LE.2) KFLF(3)=0 + IF(KFLF(3).NE.0) THEN + KFLFC=ISIGN(1000*MAX(IABS(KFLF(1)),IABS(KFLF(3)))+ + & 100*MIN(IABS(KFLF(1)),IABS(KFLF(3)))+1,KFLF(1)) + IF(KFLF(1).EQ.KFLF(3).OR.(1D0+3D0*PARJ(4))*PYR(0).GT.1D0) + & KFLFC=KFLFC+ISIGN(2,KFLFC) + ELSE + KFLFC=KFLF(1) + ENDIF + CALL PYKFDI(KFLFC,KFLF(2),KFLDMP,KF) + IF(KF.EQ.0) GOTO 280 + DO 300 J=1,MAX(2,NFET) + NFL(IABS(KFLF(J)))=NFL(IABS(KFLF(J)))-ISIGN(1,KFLF(J)) + 300 CONTINUE + +C...Store hadron at random among free positions. + NPOS=MIN(1+INT(PYR(0)*NREM),NREM) + DO 310 I=NSAV+NJET+1,N + IF(K(I,1).EQ.7) NPOS=NPOS-1 + IF(K(I,1).EQ.1.OR.NPOS.NE.0) GOTO 310 + K(I,1)=1 + K(I,2)=KF + P(I,5)=PYMASS(K(I,2)) + P(I,4)=SQRT(P(I,1)**2+P(I,2)**2+P(I,3)**2+P(I,5)**2) + 310 CONTINUE + NREM=NREM-1 + NREQ=(IABS(NFL(1))+IABS(NFL(2))+IABS(NFL(3))-IABS(NFL(1)+ + &NFL(2)+NFL(3)))/2+IABS(NFL(1)+NFL(2)+NFL(3))/3 + IF(NREM.GT.0) GOTO 280 + +C...Compensate for missing momentum in global scheme (3 options). + 320 IF(MOD(MSTJ(3),5).NE.0.AND.MOD(MSTJ(3),5).NE.4) THEN + DO 340 J=1,3 + PSI(J)=0D0 + DO 330 I=NSAV+NJET+1,N + PSI(J)=PSI(J)+P(I,J) + 330 CONTINUE + 340 CONTINUE + PSI(4)=PSI(1)**2+PSI(2)**2+PSI(3)**2 + PWS=0D0 + DO 350 I=NSAV+NJET+1,N + IF(MOD(MSTJ(3),5).EQ.1) PWS=PWS+P(I,4) + IF(MOD(MSTJ(3),5).EQ.2) PWS=PWS+SQRT(P(I,5)**2+(PSI(1)*P(I,1)+ + & PSI(2)*P(I,2)+PSI(3)*P(I,3))**2/PSI(4)) + IF(MOD(MSTJ(3),5).EQ.3) PWS=PWS+1D0 + 350 CONTINUE + DO 370 I=NSAV+NJET+1,N + IF(MOD(MSTJ(3),5).EQ.1) PW=P(I,4) + IF(MOD(MSTJ(3),5).EQ.2) PW=SQRT(P(I,5)**2+(PSI(1)*P(I,1)+ + & PSI(2)*P(I,2)+PSI(3)*P(I,3))**2/PSI(4)) + IF(MOD(MSTJ(3),5).EQ.3) PW=1D0 + DO 360 J=1,3 + P(I,J)=P(I,J)-PSI(J)*PW/PWS + 360 CONTINUE + P(I,4)=SQRT(P(I,1)**2+P(I,2)**2+P(I,3)**2+P(I,5)**2) + 370 CONTINUE + +C...Compensate for missing momentum withing each jet separately. + ELSEIF(MOD(MSTJ(3),5).EQ.4) THEN + DO 390 I=N+1,N+NJET + K(I,1)=0 + DO 380 J=1,5 + P(I,J)=0D0 + 380 CONTINUE + 390 CONTINUE + DO 410 I=NSAV+NJET+1,N + IR1=K(I,3) + IR2=N+IR1-NSAV + K(IR2,1)=K(IR2,1)+1 + PLS=(P(I,1)*P(IR1,1)+P(I,2)*P(IR1,2)+P(I,3)*P(IR1,3))/ + & (P(IR1,1)**2+P(IR1,2)**2+P(IR1,3)**2) + DO 400 J=1,3 + P(IR2,J)=P(IR2,J)+P(I,J)-PLS*P(IR1,J) + 400 CONTINUE + P(IR2,4)=P(IR2,4)+P(I,4) + P(IR2,5)=P(IR2,5)+PLS + 410 CONTINUE + PSS=0D0 + DO 420 I=N+1,N+NJET + IF(K(I,1).NE.0) PSS=PSS+P(I,4)/(PECM*(0.8D0*P(I,5)+0.2D0)) + 420 CONTINUE + DO 440 I=NSAV+NJET+1,N + IR1=K(I,3) + IR2=N+IR1-NSAV + PLS=(P(I,1)*P(IR1,1)+P(I,2)*P(IR1,2)+P(I,3)*P(IR1,3))/ + & (P(IR1,1)**2+P(IR1,2)**2+P(IR1,3)**2) + DO 430 J=1,3 + P(I,J)=P(I,J)-P(IR2,J)/K(IR2,1)+(1D0/(P(IR2,5)*PSS)-1D0)* + & PLS*P(IR1,J) + 430 CONTINUE + P(I,4)=SQRT(P(I,1)**2+P(I,2)**2+P(I,3)**2+P(I,5)**2) + 440 CONTINUE + ENDIF + +C...Scale momenta for energy conservation. + IF(MOD(MSTJ(3),5).NE.0) THEN + PMS=0D0 + PES=0D0 + PQS=0D0 + DO 450 I=NSAV+NJET+1,N + PMS=PMS+P(I,5) + PES=PES+P(I,4) + PQS=PQS+P(I,5)**2/P(I,4) + 450 CONTINUE + IF(PMS.GE.PECM) GOTO 150 + NECO=0 + 460 NECO=NECO+1 + PFAC=(PECM-PQS)/(PES-PQS) + PES=0D0 + PQS=0D0 + DO 480 I=NSAV+NJET+1,N + DO 470 J=1,3 + P(I,J)=PFAC*P(I,J) + 470 CONTINUE + P(I,4)=SQRT(P(I,1)**2+P(I,2)**2+P(I,3)**2+P(I,5)**2) + PES=PES+P(I,4) + PQS=PQS+P(I,5)**2/P(I,4) + 480 CONTINUE + IF(NECO.LT.10.AND.ABS(PECM-PES).GT.2D-6*PECM) GOTO 460 + ENDIF + +C...Origin of produced particles and parton daughter pointers. + 490 DO 500 I=NSAV+NJET+1,N + IF(MSTU(16).NE.2) K(I,3)=NSAV+1 + IF(MSTU(16).EQ.2) K(I,3)=K(K(I,3),3) + 500 CONTINUE + DO 510 I=NSAV+1,NSAV+NJET + I1=K(I,3) + K(I1,1)=K(I1,1)+10 + IF(MSTU(16).NE.2) THEN + K(I1,4)=NSAV+1 + K(I1,5)=NSAV+1 + ELSE + K(I1,4)=K(I1,4)-NJET+1 + K(I1,5)=K(I1,5)-NJET+1 + IF(K(I1,5).LT.K(I1,4)) THEN + K(I1,4)=0 + K(I1,5)=0 + ENDIF + ENDIF + 510 CONTINUE + +C...Document independent fragmentation system. Remove copy of jets. + NSAV=NSAV+1 + K(NSAV,1)=11 + K(NSAV,2)=93 + K(NSAV,3)=IP + K(NSAV,4)=NSAV+1 + K(NSAV,5)=N-NJET+1 + DO 520 J=1,4 + P(NSAV,J)=DPS(J) + V(NSAV,J)=V(IP,J) + 520 CONTINUE + P(NSAV,5)=SQRT(MAX(0D0,DPS(4)**2-DPS(1)**2-DPS(2)**2-DPS(3)**2)) + V(NSAV,5)=0D0 + DO 540 I=NSAV+NJET,N + DO 530 J=1,5 + K(I-NJET+1,J)=K(I,J) + P(I-NJET+1,J)=P(I,J) + V(I-NJET+1,J)=V(I,J) + 530 CONTINUE + 540 CONTINUE + N=N-NJET+1 + DO 550 IZ=MSTU90+1,MSTU(90) + MSTU(90+IZ)=MSTU(90+IZ)-NJET+1 + 550 CONTINUE + +C...Boost back particle system. Set production vertices. + IF(NJET.NE.1) CALL PYROBO(NSAV+1,N,0D0,0D0,DPS(1)/DPS(4), + &DPS(2)/DPS(4),DPS(3)/DPS(4)) + DO 570 I=NSAV+1,N + DO 560 J=1,4 + V(I,J)=V(IP,J) + 560 CONTINUE + 570 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYDECY +C...Handles the decay of unstable particles. + + SUBROUTINE PYDECY(IP) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYDAT3/ +C...Local arrays. + DIMENSION VDCY(4),KFLO(4),KFL1(4),PV(10,5),RORD(10),UE(3),BE(3), + &WTCOR(10),PTAU(4),PCMTAU(4),DBETAU(3) + CHARACTER CIDC*4 + DATA WTCOR/2D0,5D0,15D0,60D0,250D0,1500D0,1.2D4,1.2D5,150D0,16D0/ + +C...Functions: momentum in two-particle decays and four-product. + PAWT(A,B,C)=SQRT((A**2-(B+C)**2)*(A**2-(B-C)**2))/(2D0*A) + FOUR(I,J)=P(I,4)*P(J,4)-P(I,1)*P(J,1)-P(I,2)*P(J,2)-P(I,3)*P(J,3) + +C...Initial values. + NTRY=0 + NSAV=N + KFA=IABS(K(IP,2)) + KFS=ISIGN(1,K(IP,2)) + KC=PYCOMP(KFA) + MSTJ(92)=0 + +C...Choose lifetime and determine decay vertex. + IF(K(IP,1).EQ.5) THEN + V(IP,5)=0D0 + ELSEIF(K(IP,1).NE.4) THEN + V(IP,5)=-PMAS(KC,4)*LOG(PYR(0)) + ENDIF + DO 100 J=1,4 + VDCY(J)=V(IP,J)+V(IP,5)*P(IP,J)/P(IP,5) + 100 CONTINUE + +C...Determine whether decay allowed or not. + MOUT=0 + IF(MSTJ(22).EQ.2) THEN + IF(PMAS(KC,4).GT.PARJ(71)) MOUT=1 + ELSEIF(MSTJ(22).EQ.3) THEN + IF(VDCY(1)**2+VDCY(2)**2+VDCY(3)**2.GT.PARJ(72)**2) MOUT=1 + ELSEIF(MSTJ(22).EQ.4) THEN + IF(VDCY(1)**2+VDCY(2)**2.GT.PARJ(73)**2) MOUT=1 + IF(ABS(VDCY(3)).GT.PARJ(74)) MOUT=1 + ENDIF + IF(MOUT.EQ.1.AND.K(IP,1).NE.5) THEN + K(IP,1)=4 + RETURN + ENDIF + +C...Interface to external tau decay library (for tau polarization). + IF(KFA.EQ.15.AND.MSTJ(28).GE.1) THEN + +C...Starting values for pointers and momenta. + ITAU=IP + DO 110 J=1,4 + PTAU(J)=P(ITAU,J) + PCMTAU(J)=P(ITAU,J) + 110 CONTINUE + +C...Iterate to find position and code of mother of tau. + IMTAU=ITAU + 120 IMTAU=K(IMTAU,3) + + IF(IMTAU.EQ.0) THEN +C...If no known origin then impossible to do anything further. + KFORIG=0 + IORIG=0 + + ELSEIF(K(IMTAU,2).EQ.K(ITAU,2)) THEN +C...If tau -> tau + gamma then add gamma energy and loop. + IF(K(K(IMTAU,4),2).EQ.22) THEN + DO 130 J=1,4 + PCMTAU(J)=PCMTAU(J)+P(K(IMTAU,4),J) + 130 CONTINUE + ELSEIF(K(K(IMTAU,5),2).EQ.22) THEN + DO 140 J=1,4 + PCMTAU(J)=PCMTAU(J)+P(K(IMTAU,5),J) + 140 CONTINUE + ENDIF + GOTO 120 + + ELSEIF(IABS(K(IMTAU,2)).GT.100) THEN +C...If coming from weak decay of hadron then W is not stored in record, +C...but can be reconstructed by adding neutrino momentum. + KFORIG=-ISIGN(24,K(ITAU,2)) + IORIG=0 + DO 160 II=K(IMTAU,4),K(IMTAU,5) + IF(K(II,2)*ISIGN(1,K(ITAU,2)).EQ.-16) THEN + DO 150 J=1,4 + PCMTAU(J)=PCMTAU(J)+P(II,J) + 150 CONTINUE + ENDIF + 160 CONTINUE + + ELSE +C...If coming from resonance decay then find latest copy of this +C...resonance (may not completely agree). + KFORIG=K(IMTAU,2) + IORIG=IMTAU + DO 170 II=IMTAU+1,IP-1 + IF(K(II,2).EQ.KFORIG.AND.K(II,3).EQ.IORIG.AND. + & ABS(P(II,5)-P(IORIG,5)).LT.1D-5*P(IORIG,5)) IORIG=II + 170 CONTINUE + DO 180 J=1,4 + PCMTAU(J)=P(IORIG,J) + 180 CONTINUE + ENDIF + +C...Boost tau to rest frame of production process (where known) +C...and rotate it to sit along +z axis. + DO 190 J=1,3 + DBETAU(J)=PCMTAU(J)/PCMTAU(4) + 190 CONTINUE + IF(KFORIG.NE.0) CALL PYROBO(ITAU,ITAU,0D0,0D0,-DBETAU(1), + & -DBETAU(2),-DBETAU(3)) + PHITAU=PYANGL(P(ITAU,1),P(ITAU,2)) + CALL PYROBO(ITAU,ITAU,0D0,-PHITAU,0D0,0D0,0D0) + THETAU=PYANGL(P(ITAU,3),P(ITAU,1)) + CALL PYROBO(ITAU,ITAU,-THETAU,0D0,0D0,0D0,0D0) + +C...Call tau decay routine (if meaningful) and fill extra info. + IF(KFORIG.NE.0.OR.MSTJ(28).EQ.2) THEN + CALL PYTAUD(ITAU,IORIG,KFORIG,NDECAY) + DO 200 II=NSAV+1,NSAV+NDECAY + K(II,1)=1 + K(II,3)=IP + K(II,4)=0 + K(II,5)=0 + 200 CONTINUE + N=NSAV+NDECAY + ENDIF + +C...Boost back decay tau and decay products. + DO 210 J=1,4 + P(ITAU,J)=PTAU(J) + 210 CONTINUE + IF(KFORIG.NE.0.OR.MSTJ(28).EQ.2) THEN + CALL PYROBO(NSAV+1,N,THETAU,PHITAU,0D0,0D0,0D0) + IF(KFORIG.NE.0) CALL PYROBO(NSAV+1,N,0D0,0D0,DBETAU(1), + & DBETAU(2),DBETAU(3)) + +C...Skip past ordinary tau decay treatment. + MMAT=0 + MBST=0 + ND=0 + GOTO 630 + ENDIF + ENDIF + +C...B-Bbar mixing: flip sign of meson appropriately. + MMIX=0 + IF((KFA.EQ.511.OR.KFA.EQ.531).AND.MSTJ(26).GE.1) THEN + XBBMIX=PARJ(76) + IF(KFA.EQ.531) XBBMIX=PARJ(77) + IF(SIN(0.5D0*XBBMIX*V(IP,5)/PMAS(KC,4))**2.GT.PYR(0)) MMIX=1 + IF(MMIX.EQ.1) KFS=-KFS + ENDIF + +C...Check existence of decay channels. Particle/antiparticle rules. + KCA=KC + IF(MDCY(KC,2).GT.0) THEN + MDMDCY=MDME(MDCY(KC,2),2) + IF(MDMDCY.GT.80.AND.MDMDCY.LE.90) KCA=MDMDCY + ENDIF + IF(MDCY(KCA,2).LE.0.OR.MDCY(KCA,3).LE.0) THEN + CALL PYERRM(9,'(PYDECY:) no decay channel defined') + RETURN + ENDIF + IF(MOD(KFA/1000,10).EQ.0.AND.KCA.EQ.85) KFS=-KFS + IF(KCHG(KC,3).EQ.0) THEN + KFSP=1 + KFSN=0 + IF(PYR(0).GT.0.5D0) KFS=-KFS + ELSEIF(KFS.GT.0) THEN + KFSP=1 + KFSN=0 + ELSE + KFSP=0 + KFSN=1 + ENDIF + +C...Sum branching ratios of allowed decay channels. + 220 NOPE=0 + BRSU=0D0 + DO 230 IDL=MDCY(KCA,2),MDCY(KCA,2)+MDCY(KCA,3)-1 + IF(MDME(IDL,1).NE.1.AND.KFSP*MDME(IDL,1).NE.2.AND. + & KFSN*MDME(IDL,1).NE.3) GOTO 230 + IF(MDME(IDL,2).GT.100) GOTO 230 + NOPE=NOPE+1 + BRSU=BRSU+BRAT(IDL) + 230 CONTINUE + IF(NOPE.EQ.0) THEN + CALL PYERRM(2,'(PYDECY:) all decay channels closed by user') + RETURN + ENDIF + +C...Select decay channel among allowed ones. + 240 RBR=BRSU*PYR(0) + IDL=MDCY(KCA,2)-1 + 250 IDL=IDL+1 + IF(MDME(IDL,1).NE.1.AND.KFSP*MDME(IDL,1).NE.2.AND. + &KFSN*MDME(IDL,1).NE.3) THEN + IF(IDL.LT.MDCY(KCA,2)+MDCY(KCA,3)-1) GOTO 250 + ELSEIF(MDME(IDL,2).GT.100) THEN + IF(IDL.LT.MDCY(KCA,2)+MDCY(KCA,3)-1) GOTO 250 + ELSE + IDC=IDL + RBR=RBR-BRAT(IDL) + IF(IDL.LT.MDCY(KCA,2)+MDCY(KCA,3)-1.AND.RBR.GT.0D0) GOTO 250 + ENDIF + +C...Start readout of decay channel: matrix element, reset counters. + MMAT=MDME(IDC,2) + 260 NTRY=NTRY+1 + IF(MOD(NTRY,200).EQ.0) THEN + WRITE(CIDC,'(I4)') IDC +C...Do not print warning for some well-known special cases. + IF(KFA.NE.113.AND.KFA.NE.115.AND.KFA.NE.215) + & CALL PYERRM(4,'(PYDECY:) caught in loop for decay channel'// + & CIDC) + GOTO 240 + ENDIF + IF(NTRY.GT.1000) THEN + CALL PYERRM(14,'(PYDECY:) caught in infinite loop') + IF(MSTU(21).GE.1) RETURN + ENDIF + I=N + NP=0 + NQ=0 + MBST=0 + IF(MMAT.GE.11.AND.P(IP,4).GT.20D0*P(IP,5)) MBST=1 + DO 270 J=1,4 + PV(1,J)=0D0 + IF(MBST.EQ.0) PV(1,J)=P(IP,J) + 270 CONTINUE + IF(MBST.EQ.1) PV(1,4)=P(IP,5) + PV(1,5)=P(IP,5) + PS=0D0 + PSQ=0D0 + MREM=0 + MHADDY=0 + IF(KFA.GT.80) MHADDY=1 +C.. Random flavour and popcorn system memory. + IRNDMO=0 + JTMO=0 + MSTU(121)=0 + MSTU(125)=10 + +C...Read out decay products. Convert to standard flavour code. + JTMAX=5 + IF(MDME(IDC+1,2).EQ.101) JTMAX=10 + DO 280 JT=1,JTMAX + IF(JT.LE.5) KP=KFDP(IDC,JT) + IF(JT.GE.6) KP=KFDP(IDC+1,JT-5) + IF(KP.EQ.0) GOTO 280 + KPA=IABS(KP) + KCP=PYCOMP(KPA) + IF(KPA.GT.80) MHADDY=1 + IF(KCHG(KCP,3).EQ.0.AND.KPA.NE.81.AND.KPA.NE.82) THEN + KFP=KP + ELSEIF(KPA.NE.81.AND.KPA.NE.82) THEN + KFP=KFS*KP + ELSEIF(KPA.EQ.81.AND.MOD(KFA/1000,10).EQ.0) THEN + KFP=-KFS*MOD(KFA/10,10) + ELSEIF(KPA.EQ.81.AND.MOD(KFA/100,10).GE.MOD(KFA/10,10)) THEN + KFP=KFS*(100*MOD(KFA/10,100)+3) + ELSEIF(KPA.EQ.81) THEN + KFP=KFS*(1000*MOD(KFA/10,10)+100*MOD(KFA/100,10)+1) + ELSEIF(KP.EQ.82) THEN + CALL PYDCYK(-KFS*INT(1D0+(2D0+PARJ(2))*PYR(0)),0,KFP,KDUMP) + IF(KFP.EQ.0) GOTO 260 + KFP=-KFP + IRNDMO=1 + MSTJ(93)=1 + IF(PV(1,5).LT.PARJ(32)+2D0*PYMASS(KFP)) GOTO 260 + ELSEIF(KP.EQ.-82) THEN + KFP=MSTU(124) + ENDIF + IF(KPA.EQ.81.OR.KPA.EQ.82) KCP=PYCOMP(KFP) + +C...Add decay product to event record or to quark flavour list. + KFPA=IABS(KFP) + KQP=KCHG(KCP,2) + IF(MMAT.GE.11.AND.MMAT.LE.30.AND.KQP.NE.0) THEN + NQ=NQ+1 + KFLO(NQ)=KFP +C...set rndmflav popcorn system pointer + IF(KP.EQ.82.AND.MSTU(121).GT.0) JTMO=NQ + MSTJ(93)=2 + PSQ=PSQ+PYMASS(KFLO(NQ)) + ELSEIF((MMAT.EQ.42.OR.MMAT.EQ.43.OR.MMAT.EQ.48).AND.NP.EQ.3.AND. + & MOD(NQ,2).EQ.1) THEN + NQ=NQ-1 + PS=PS-P(I,5) + K(I,1)=1 + KFI=K(I,2) + CALL PYKFDI(KFP,KFI,KFLDMP,K(I,2)) + IF(K(I,2).EQ.0) GOTO 260 + MSTJ(93)=1 + P(I,5)=PYMASS(K(I,2)) + PS=PS+P(I,5) + ELSE + I=I+1 + NP=NP+1 + IF(MMAT.NE.33.AND.KQP.NE.0) NQ=NQ+1 + IF(MMAT.EQ.33.AND.KQP.NE.0.AND.KQP.NE.2) NQ=NQ+1 + K(I,1)=1+MOD(NQ,2) + IF(MMAT.EQ.4.AND.JT.LE.2.AND.KFP.EQ.21) K(I,1)=2 + IF(MMAT.EQ.4.AND.JT.EQ.3) K(I,1)=1 + K(I,2)=KFP + K(I,3)=IP + K(I,4)=0 + K(I,5)=0 + P(I,5)=PYMASS(KFP) + PS=PS+P(I,5) + ENDIF + 280 CONTINUE + +C...Check masses for resonance decays. + IF(MHADDY.EQ.0) THEN + IF(PS+PARJ(64).GT.PV(1,5)) GOTO 240 + ENDIF + +C...Choose decay multiplicity in phase space model. + 290 IF(MMAT.GE.11.AND.MMAT.LE.30) THEN + PSP=PS + CNDE=PARJ(61)*LOG(MAX((PV(1,5)-PS-PSQ)/PARJ(62),1.1D0)) + IF(MMAT.EQ.12) CNDE=CNDE+PARJ(63) + 300 NTRY=NTRY+1 +C...Reset popcorn flags if new attempt. Re-select rndmflav if failed. + IF(IRNDMO.EQ.0) THEN + MSTU(121)=0 + JTMO=0 + ELSEIF(IRNDMO.EQ.1) THEN + IRNDMO=2 + ELSE + GOTO 260 + ENDIF + IF(NTRY.GT.1000) THEN + CALL PYERRM(14,'(PYDECY:) caught in infinite loop') + IF(MSTU(21).GE.1) RETURN + ENDIF + IF(MMAT.LE.20) THEN + GAUSS=SQRT(-2D0*CNDE*LOG(MAX(1D-10,PYR(0))))* + & SIN(PARU(2)*PYR(0)) + ND=0.5D0+0.5D0*NP+0.25D0*NQ+CNDE+GAUSS + IF(ND.LT.NP+NQ/2.OR.ND.LT.2.OR.ND.GT.10) GOTO 300 + IF(MMAT.EQ.13.AND.ND.EQ.2) GOTO 300 + IF(MMAT.EQ.14.AND.ND.LE.3) GOTO 300 + IF(MMAT.EQ.15.AND.ND.LE.4) GOTO 300 + ELSE + ND=MMAT-20 + ENDIF +C.. Set maximum popcorn meson number. Test rndmflav popcorn size. + MSTU(125)=ND-NQ/2 + IF(MSTU(121).GT.MSTU(125)) GOTO 300 + +C...Form hadrons from flavour content. + DO 310 JT=1,NQ + KFL1(JT)=KFLO(JT) + 310 CONTINUE + IF(ND.EQ.NP+NQ/2) GOTO 330 + DO 320 I=N+NP+1,N+ND-NQ/2 +C.. Stick to started popcorn system, else pick side at random + JT=JTMO + IF(JT.EQ.0) JT=1+INT((NQ-1)*PYR(0)) + CALL PYDCYK(KFL1(JT),0,KFL2,K(I,2)) + IF(K(I,2).EQ.0) GOTO 300 + MSTU(125)=MSTU(125)-1 + JTMO=0 + IF(MSTU(121).GT.0) JTMO=JT + KFL1(JT)=-KFL2 + 320 CONTINUE + 330 JT=2 + JT2=3 + JT3=4 + IF(NQ.EQ.4.AND.PYR(0).LT.PARJ(66)) JT=4 + IF(JT.EQ.4.AND.ISIGN(1,KFL1(1)*(10-IABS(KFL1(1))))* + & ISIGN(1,KFL1(JT)*(10-IABS(KFL1(JT)))).GT.0) JT=3 + IF(JT.EQ.3) JT2=2 + IF(JT.EQ.4) JT3=2 + CALL PYDCYK(KFL1(1),KFL1(JT),KFLDMP,K(N+ND-NQ/2+1,2)) + IF(K(N+ND-NQ/2+1,2).EQ.0) GOTO 300 + IF(NQ.EQ.4) CALL PYDCYK(KFL1(JT2),KFL1(JT3),KFLDMP,K(N+ND,2)) + IF(NQ.EQ.4.AND.K(N+ND,2).EQ.0) GOTO 300 + +C...Check that sum of decay product masses not too large. + PS=PSP + DO 340 I=N+NP+1,N+ND + K(I,1)=1 + K(I,3)=IP + K(I,4)=0 + K(I,5)=0 + P(I,5)=PYMASS(K(I,2)) + PS=PS+P(I,5) + 340 CONTINUE + IF(PS+PARJ(64).GT.PV(1,5)) GOTO 300 + +C...Rescale energy to subtract off spectator quark mass. + ELSEIF((MMAT.EQ.31.OR.MMAT.EQ.33.OR.MMAT.EQ.44) + & .AND.NP.GE.3) THEN + PS=PS-P(N+NP,5) + PQT=(P(N+NP,5)+PARJ(65))/PV(1,5) + DO 350 J=1,5 + P(N+NP,J)=PQT*PV(1,J) + PV(1,J)=(1D0-PQT)*PV(1,J) + 350 CONTINUE + IF(PS+PARJ(64).GT.PV(1,5)) GOTO 260 + ND=NP-1 + MREM=1 + +C...Fully specified final state: check mass broadening effects. + ELSE + IF(NP.GE.2.AND.PS+PARJ(64).GT.PV(1,5)) GOTO 260 + ND=NP + ENDIF + +C...Determine position of grandmother, number of sisters. + NM=0 + KFAS=0 + MSGN=0 + IF(MMAT.EQ.3) THEN + IM=K(IP,3) + IF(IM.LT.0.OR.IM.GE.IP) IM=0 + IF(IM.NE.0) KFAM=IABS(K(IM,2)) + IF(IM.NE.0) THEN + DO 360 IL=MAX(IP-2,IM+1),MIN(IP+2,N) + IF(K(IL,3).EQ.IM) NM=NM+1 + IF(K(IL,3).EQ.IM.AND.IL.NE.IP) ISIS=IL + 360 CONTINUE + IF(NM.NE.2.OR.KFAM.LE.100.OR.MOD(KFAM,10).NE.1.OR. + & MOD(KFAM/1000,10).NE.0) NM=0 + IF(NM.EQ.2) THEN + KFAS=IABS(K(ISIS,2)) + IF((KFAS.LE.100.OR.MOD(KFAS,10).NE.1.OR. + & MOD(KFAS/1000,10).NE.0).AND.KFAS.NE.22) NM=0 + ENDIF + ENDIF + ENDIF + +C...Kinematics of one-particle decays. + IF(ND.EQ.1) THEN + DO 370 J=1,4 + P(N+1,J)=P(IP,J) + 370 CONTINUE + GOTO 630 + ENDIF + +C...Calculate maximum weight ND-particle decay. + PV(ND,5)=P(N+ND,5) + IF(ND.GE.3) THEN + WTMAX=1D0/WTCOR(ND-2) + PMAX=PV(1,5)-PS+P(N+ND,5) + PMIN=0D0 + DO 380 IL=ND-1,1,-1 + PMAX=PMAX+P(N+IL,5) + PMIN=PMIN+P(N+IL+1,5) + WTMAX=WTMAX*PAWT(PMAX,PMIN,P(N+IL,5)) + 380 CONTINUE + ENDIF + +C...Find virtual gamma mass in Dalitz decay. + 390 IF(ND.EQ.2) THEN + ELSEIF(MMAT.EQ.2) THEN + PMES=4D0*PMAS(11,1)**2 + PMRHO2=PMAS(131,1)**2 + PGRHO2=PMAS(131,2)**2 + 400 PMST=PMES*(P(IP,5)**2/PMES)**PYR(0) + WT=(1+0.5D0*PMES/PMST)*SQRT(MAX(0D0,1D0-PMES/PMST))* + & (1D0-PMST/P(IP,5)**2)**3*(1D0+PGRHO2/PMRHO2)/ + & ((1D0-PMST/PMRHO2)**2+PGRHO2/PMRHO2) + IF(WT.LT.PYR(0)) GOTO 400 + PV(2,5)=MAX(2.00001D0*PMAS(11,1),SQRT(PMST)) + +C...M-generator gives weight. If rejected, try again. + ELSE + 410 RORD(1)=1D0 + DO 440 IL1=2,ND-1 + RSAV=PYR(0) + DO 420 IL2=IL1-1,1,-1 + IF(RSAV.LE.RORD(IL2)) GOTO 430 + RORD(IL2+1)=RORD(IL2) + 420 CONTINUE + 430 RORD(IL2+1)=RSAV + 440 CONTINUE + RORD(ND)=0D0 + WT=1D0 + DO 450 IL=ND-1,1,-1 + PV(IL,5)=PV(IL+1,5)+P(N+IL,5)+(RORD(IL)-RORD(IL+1))* + & (PV(1,5)-PS) + WT=WT*PAWT(PV(IL,5),PV(IL+1,5),P(N+IL,5)) + 450 CONTINUE + IF(WT.LT.PYR(0)*WTMAX) GOTO 410 + ENDIF + +C...Perform two-particle decays in respective CM frame. + 460 DO 480 IL=1,ND-1 + PA=PAWT(PV(IL,5),PV(IL+1,5),P(N+IL,5)) + UE(3)=2D0*PYR(0)-1D0 + PHI=PARU(2)*PYR(0) + UE(1)=SQRT(1D0-UE(3)**2)*COS(PHI) + UE(2)=SQRT(1D0-UE(3)**2)*SIN(PHI) + DO 470 J=1,3 + P(N+IL,J)=PA*UE(J) + PV(IL+1,J)=-PA*UE(J) + 470 CONTINUE + P(N+IL,4)=SQRT(PA**2+P(N+IL,5)**2) + PV(IL+1,4)=SQRT(PA**2+PV(IL+1,5)**2) + 480 CONTINUE + +C...Lorentz transform decay products to lab frame. + DO 490 J=1,4 + P(N+ND,J)=PV(ND,J) + 490 CONTINUE + DO 530 IL=ND-1,1,-1 + DO 500 J=1,3 + BE(J)=PV(IL,J)/PV(IL,4) + 500 CONTINUE + GA=PV(IL,4)/PV(IL,5) + DO 520 I=N+IL,N+ND + BEP=BE(1)*P(I,1)+BE(2)*P(I,2)+BE(3)*P(I,3) + DO 510 J=1,3 + P(I,J)=P(I,J)+GA*(GA*BEP/(1D0+GA)+P(I,4))*BE(J) + 510 CONTINUE + P(I,4)=GA*(P(I,4)+BEP) + 520 CONTINUE + 530 CONTINUE + +C...Check that no infinite loop in matrix element weight. + NTRY=NTRY+1 + IF(NTRY.GT.800) GOTO 560 + +C...Matrix elements for omega and phi decays. + IF(MMAT.EQ.1) THEN + WT=(P(N+1,5)*P(N+2,5)*P(N+3,5))**2-(P(N+1,5)*FOUR(N+2,N+3))**2 + & -(P(N+2,5)*FOUR(N+1,N+3))**2-(P(N+3,5)*FOUR(N+1,N+2))**2 + & +2D0*FOUR(N+1,N+2)*FOUR(N+1,N+3)*FOUR(N+2,N+3) + IF(MAX(WT*WTCOR(9)/P(IP,5)**6,0.001D0).LT.PYR(0)) GOTO 390 + +C...Matrix elements for pi0 or eta Dalitz decay to gamma e+ e-. + ELSEIF(MMAT.EQ.2) THEN + FOUR12=FOUR(N+1,N+2) + FOUR13=FOUR(N+1,N+3) + WT=(PMST-0.5D0*PMES)*(FOUR12**2+FOUR13**2)+ + & PMES*(FOUR12*FOUR13+FOUR12**2+FOUR13**2) + IF(WT.LT.PYR(0)*0.25D0*PMST*(P(IP,5)**2-PMST)**2) GOTO 460 + +C...Matrix element for S0 -> S1 + V1 -> S1 + S2 + S3 (S scalar, +C...V vector), of form cos**2(theta02) in V1 rest frame, and for +C...S0 -> gamma + V1 -> gamma + S2 + S3, of form sin**2(theta02). + ELSEIF(MMAT.EQ.3.AND.NM.EQ.2) THEN + FOUR10=FOUR(IP,IM) + FOUR12=FOUR(IP,N+1) + FOUR02=FOUR(IM,N+1) + PMS1=P(IP,5)**2 + PMS0=P(IM,5)**2 + PMS2=P(N+1,5)**2 + IF(KFAS.NE.22) HNUM=(FOUR10*FOUR12-PMS1*FOUR02)**2 + IF(KFAS.EQ.22) HNUM=PMS1*(2D0*FOUR10*FOUR12*FOUR02- + & PMS1*FOUR02**2-PMS0*FOUR12**2-PMS2*FOUR10**2+PMS1*PMS0*PMS2) + HNUM=MAX(1D-6*PMS1**2*PMS0*PMS2,HNUM) + HDEN=(FOUR10**2-PMS1*PMS0)*(FOUR12**2-PMS1*PMS2) + IF(HNUM.LT.PYR(0)*HDEN) GOTO 460 + +C...Matrix element for "onium" -> g + g + g or gamma + g + g. + ELSEIF(MMAT.EQ.4) THEN + HX1=2D0*FOUR(IP,N+1)/P(IP,5)**2 + HX2=2D0*FOUR(IP,N+2)/P(IP,5)**2 + HX3=2D0*FOUR(IP,N+3)/P(IP,5)**2 + WT=((1D0-HX1)/(HX2*HX3))**2+((1D0-HX2)/(HX1*HX3))**2+ + & ((1D0-HX3)/(HX1*HX2))**2 + IF(WT.LT.2D0*PYR(0)) GOTO 390 + IF(K(IP+1,2).EQ.22.AND.(1D0-HX1)*P(IP,5)**2.LT.4D0*PARJ(32)**2) + & GOTO 390 + +C...Effective matrix element for nu spectrum in tau -> nu + hadrons. + ELSEIF(MMAT.EQ.41) THEN + HX1=2D0*FOUR(IP,N+1)/P(IP,5)**2 + HXM=MIN(0.75D0,2D0*(1D0-PS/P(IP,5))) + IF(HX1*(3D0-2D0*HX1).LT.PYR(0)*HXM*(3D0-2D0*HXM)) GOTO 390 + +C...Matrix elements for weak decays (only semileptonic for c and b) + ELSEIF((MMAT.EQ.42.OR.MMAT.EQ.43.OR.MMAT.EQ.44.OR.MMAT.EQ.48) + & .AND.ND.EQ.3) THEN + IF(MBST.EQ.0) WT=FOUR(IP,N+1)*FOUR(N+2,N+3) + IF(MBST.EQ.1) WT=P(IP,5)*P(N+1,4)*FOUR(N+2,N+3) + IF(WT.LT.PYR(0)*P(IP,5)*PV(1,5)**3/WTCOR(10)) GOTO 390 + ELSEIF(MMAT.EQ.42.OR.MMAT.EQ.43.OR.MMAT.EQ.44.OR.MMAT.EQ.48) THEN + DO 550 J=1,4 + P(N+NP+1,J)=0D0 + DO 540 IS=N+3,N+NP + P(N+NP+1,J)=P(N+NP+1,J)+P(IS,J) + 540 CONTINUE + 550 CONTINUE + IF(MBST.EQ.0) WT=FOUR(IP,N+1)*FOUR(N+2,N+NP+1) + IF(MBST.EQ.1) WT=P(IP,5)*P(N+1,4)*FOUR(N+2,N+NP+1) + IF(WT.LT.PYR(0)*P(IP,5)*PV(1,5)**3/WTCOR(10)) GOTO 390 + ENDIF + +C...Scale back energy and reattach spectator. + 560 IF(MREM.EQ.1) THEN + DO 570 J=1,5 + PV(1,J)=PV(1,J)/(1D0-PQT) + 570 CONTINUE + ND=ND+1 + MREM=0 + ENDIF + +C...Low invariant mass for system with spectator quark gives particle, +C...not two jets. Readjust momenta accordingly. + IF(MMAT.EQ.31.AND.ND.EQ.3) THEN + MSTJ(93)=1 + PM2=PYMASS(K(N+2,2)) + MSTJ(93)=1 + PM3=PYMASS(K(N+3,2)) + IF(P(N+2,5)**2+P(N+3,5)**2+2D0*FOUR(N+2,N+3).GE. + & (PARJ(32)+PM2+PM3)**2) GOTO 630 + K(N+2,1)=1 + KFTEMP=K(N+2,2) + CALL PYKFDI(KFTEMP,K(N+3,2),KFLDMP,K(N+2,2)) + IF(K(N+2,2).EQ.0) GOTO 260 + P(N+2,5)=PYMASS(K(N+2,2)) + PS=P(N+1,5)+P(N+2,5) + PV(2,5)=P(N+2,5) + MMAT=0 + ND=2 + GOTO 460 + ELSEIF(MMAT.EQ.44) THEN + MSTJ(93)=1 + PM3=PYMASS(K(N+3,2)) + MSTJ(93)=1 + PM4=PYMASS(K(N+4,2)) + IF(P(N+3,5)**2+P(N+4,5)**2+2D0*FOUR(N+3,N+4).GE. + & (PARJ(32)+PM3+PM4)**2) GOTO 600 + K(N+3,1)=1 + KFTEMP=K(N+3,2) + CALL PYKFDI(KFTEMP,K(N+4,2),KFLDMP,K(N+3,2)) + IF(K(N+3,2).EQ.0) GOTO 260 + P(N+3,5)=PYMASS(K(N+3,2)) + DO 580 J=1,3 + P(N+3,J)=P(N+3,J)+P(N+4,J) + 580 CONTINUE + P(N+3,4)=SQRT(P(N+3,1)**2+P(N+3,2)**2+P(N+3,3)**2+P(N+3,5)**2) + HA=P(N+1,4)**2-P(N+2,4)**2 + HB=HA-(P(N+1,5)**2-P(N+2,5)**2) + HC=(P(N+1,1)-P(N+2,1))**2+(P(N+1,2)-P(N+2,2))**2+ + & (P(N+1,3)-P(N+2,3))**2 + HD=(PV(1,4)-P(N+3,4))**2 + HE=HA**2-2D0*HD*(P(N+1,4)**2+P(N+2,4)**2)+HD**2 + HF=HD*HC-HB**2 + HG=HD*HC-HA*HB + HH=(SQRT(HG**2+HE*HF)-HG)/(2D0*HF) + DO 590 J=1,3 + PCOR=HH*(P(N+1,J)-P(N+2,J)) + P(N+1,J)=P(N+1,J)+PCOR + P(N+2,J)=P(N+2,J)-PCOR + 590 CONTINUE + P(N+1,4)=SQRT(P(N+1,1)**2+P(N+1,2)**2+P(N+1,3)**2+P(N+1,5)**2) + P(N+2,4)=SQRT(P(N+2,1)**2+P(N+2,2)**2+P(N+2,3)**2+P(N+2,5)**2) + ND=ND-1 + ENDIF + +C...Check invariant mass of W jets. May give one particle or start over. + 600 IF((MMAT.EQ.42.OR.MMAT.EQ.43.OR.MMAT.EQ.44.OR.MMAT.EQ.48) + &.AND.IABS(K(N+1,2)).LT.10) THEN + PMR=SQRT(MAX(0D0,P(N+1,5)**2+P(N+2,5)**2+2D0*FOUR(N+1,N+2))) + MSTJ(93)=1 + PM1=PYMASS(K(N+1,2)) + MSTJ(93)=1 + PM2=PYMASS(K(N+2,2)) + IF(PMR.GT.PARJ(32)+PM1+PM2) GOTO 610 + KFLDUM=INT(1.5D0+PYR(0)) + CALL PYKFDI(K(N+1,2),-ISIGN(KFLDUM,K(N+1,2)),KFLDMP,KF1) + CALL PYKFDI(K(N+2,2),-ISIGN(KFLDUM,K(N+2,2)),KFLDMP,KF2) + IF(KF1.EQ.0.OR.KF2.EQ.0) GOTO 260 + PSM=PYMASS(KF1)+PYMASS(KF2) + IF((MMAT.EQ.42.OR.MMAT.EQ.48).AND.PMR.GT.PARJ(64)+PSM) GOTO 610 + IF(MMAT.GE.43.AND.PMR.GT.0.2D0*PARJ(32)+PSM) GOTO 610 + IF(MMAT.EQ.48) GOTO 390 + IF(ND.EQ.4.OR.KFA.EQ.15) GOTO 260 + K(N+1,1)=1 + KFTEMP=K(N+1,2) + CALL PYKFDI(KFTEMP,K(N+2,2),KFLDMP,K(N+1,2)) + IF(K(N+1,2).EQ.0) GOTO 260 + P(N+1,5)=PYMASS(K(N+1,2)) + K(N+2,2)=K(N+3,2) + P(N+2,5)=P(N+3,5) + PS=P(N+1,5)+P(N+2,5) + IF(PS+PARJ(64).GT.PV(1,5)) GOTO 260 + PV(2,5)=P(N+3,5) + MMAT=0 + ND=2 + GOTO 460 + ENDIF + +C...Phase space decay of partons from W decay. + 610 IF((MMAT.EQ.42.OR.MMAT.EQ.48).AND.IABS(K(N+1,2)).LT.10) THEN + KFLO(1)=K(N+1,2) + KFLO(2)=K(N+2,2) + K(N+1,1)=K(N+3,1) + K(N+1,2)=K(N+3,2) + DO 620 J=1,5 + PV(1,J)=P(N+1,J)+P(N+2,J) + P(N+1,J)=P(N+3,J) + 620 CONTINUE + PV(1,5)=PMR + N=N+1 + NP=0 + NQ=2 + PS=0D0 + MSTJ(93)=2 + PSQ=PYMASS(KFLO(1)) + MSTJ(93)=2 + PSQ=PSQ+PYMASS(KFLO(2)) + MMAT=11 + GOTO 290 + ENDIF + +C...Boost back for rapidly moving particle. + 630 N=N+ND + IF(MBST.EQ.1) THEN + DO 640 J=1,3 + BE(J)=P(IP,J)/P(IP,4) + 640 CONTINUE + GA=P(IP,4)/P(IP,5) + DO 660 I=NSAV+1,N + BEP=BE(1)*P(I,1)+BE(2)*P(I,2)+BE(3)*P(I,3) + DO 650 J=1,3 + P(I,J)=P(I,J)+GA*(GA*BEP/(1D0+GA)+P(I,4))*BE(J) + 650 CONTINUE + P(I,4)=GA*(P(I,4)+BEP) + 660 CONTINUE + ENDIF + +C...Fill in position of decay vertex. + DO 680 I=NSAV+1,N + DO 670 J=1,4 + V(I,J)=VDCY(J) + 670 CONTINUE + V(I,5)=0D0 + 680 CONTINUE + +C...Set up for parton shower evolution from jets. + IF(MSTJ(23).GE.1.AND.MMAT.EQ.4.AND.K(NSAV+1,2).EQ.21) THEN + K(NSAV+1,1)=3 + K(NSAV+2,1)=3 + K(NSAV+3,1)=3 + K(NSAV+1,4)=MSTU(5)*(NSAV+2) + K(NSAV+1,5)=MSTU(5)*(NSAV+3) + K(NSAV+2,4)=MSTU(5)*(NSAV+3) + K(NSAV+2,5)=MSTU(5)*(NSAV+1) + K(NSAV+3,4)=MSTU(5)*(NSAV+1) + K(NSAV+3,5)=MSTU(5)*(NSAV+2) + MSTJ(92)=-(NSAV+1) + ELSEIF(MSTJ(23).GE.1.AND.MMAT.EQ.4) THEN + K(NSAV+2,1)=3 + K(NSAV+3,1)=3 + K(NSAV+2,4)=MSTU(5)*(NSAV+3) + K(NSAV+2,5)=MSTU(5)*(NSAV+3) + K(NSAV+3,4)=MSTU(5)*(NSAV+2) + K(NSAV+3,5)=MSTU(5)*(NSAV+2) + MSTJ(92)=NSAV+2 + ELSEIF(MSTJ(23).GE.1.AND.(MMAT.EQ.32.OR.MMAT.EQ.44).AND. + & IABS(K(NSAV+1,2)).LE.10.AND.IABS(K(NSAV+2,2)).LE.10) THEN + K(NSAV+1,1)=3 + K(NSAV+2,1)=3 + K(NSAV+1,4)=MSTU(5)*(NSAV+2) + K(NSAV+1,5)=MSTU(5)*(NSAV+2) + K(NSAV+2,4)=MSTU(5)*(NSAV+1) + K(NSAV+2,5)=MSTU(5)*(NSAV+1) + MSTJ(92)=NSAV+1 + ELSEIF(MSTJ(23).GE.1.AND.(MMAT.EQ.32.OR.MMAT.EQ.44).AND. + & IABS(K(NSAV+1,2)).LE.20.AND.IABS(K(NSAV+2,2)).LE.20) THEN + MSTJ(92)=NSAV+1 + ELSEIF(MSTJ(23).GE.1.AND.MMAT.EQ.33.AND.IABS(K(NSAV+2,2)).EQ.21) + & THEN + K(NSAV+1,1)=3 + K(NSAV+2,1)=3 + K(NSAV+3,1)=3 + KCP=PYCOMP(K(NSAV+1,2)) + KQP=KCHG(KCP,2)*ISIGN(1,K(NSAV+1,2)) + JCON=4 + IF(KQP.LT.0) JCON=5 + K(NSAV+1,JCON)=MSTU(5)*(NSAV+2) + K(NSAV+2,9-JCON)=MSTU(5)*(NSAV+1) + K(NSAV+2,JCON)=MSTU(5)*(NSAV+3) + K(NSAV+3,9-JCON)=MSTU(5)*(NSAV+2) + MSTJ(92)=NSAV+1 + ELSEIF(MSTJ(23).GE.1.AND.MMAT.EQ.33) THEN + K(NSAV+1,1)=3 + K(NSAV+3,1)=3 + K(NSAV+1,4)=MSTU(5)*(NSAV+3) + K(NSAV+1,5)=MSTU(5)*(NSAV+3) + K(NSAV+3,4)=MSTU(5)*(NSAV+1) + K(NSAV+3,5)=MSTU(5)*(NSAV+1) + MSTJ(92)=NSAV+1 + ENDIF + +C...Mark decayed particle; special option for B-Bbar mixing. + IF(K(IP,1).EQ.5) K(IP,1)=15 + IF(K(IP,1).LE.10) K(IP,1)=11 + IF(MMIX.EQ.1.AND.MSTJ(26).EQ.2.AND.K(IP,1).EQ.11) K(IP,1)=12 + K(IP,4)=NSAV+1 + K(IP,5)=N + + RETURN + END + + +C********************************************************************* + +C...PYDCYK +C...Handles flavour production in the decay of unstable particles +C...and small string clusters. + + SUBROUTINE PYDCYK(KFL1,KFL2,KFL3,KF) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYDAT1/,/PYDAT2/ + + +C.. Call PYKFDI directly if no popcorn option is on + IF(MSTJ(12).LT.2) THEN + CALL PYKFDI(KFL1,KFL2,KFL3,KF) + MSTU(124)=KFL3 + RETURN + ENDIF + + KFL3=0 + KF=0 + IF(KFL1.EQ.0) RETURN + KF1A=IABS(KFL1) + KF2A=IABS(KFL2) + + NSTO=130 + NMAX=MIN(MSTU(125),10) + +C.. Identify rank 0 cluster qq + IRANK=1 + IF(KF1A.GT.10.AND.KF1A.LT.10000) IRANK=0 + + IF(KF2A.GT.0)THEN +C.. Join jets: Fails if store not empty + IF(MSTU(121).GT.0) THEN + MSTU(121)=0 + RETURN + ENDIF + CALL PYKFDI(KFL1,KFL2,KFL3,KF) + ELSEIF(KF1A.GT.10.AND.MSTU(121).GT.0)THEN +C.. Pick popcorn meson from store, return same qq, decrease store + KF=MSTU(NSTO+MSTU(121)) + KFL3=-KFL1 + MSTU(121)=MSTU(121)-1 + ELSE +C.. Generate new flavour. Then done if no diquark is generated + 100 CALL PYKFDI(KFL1,0,KFL3,KF) + IF(MSTU(121).EQ.-1) GOTO 100 + MSTU(124)=KFL3 + IF(KF.EQ.0.OR.IABS(KFL3).LE.10) RETURN + +C.. Simple case if no dynamical popcorn suppressions are considered + IF(MSTJ(12).LT.4) THEN + IF(MSTU(121).EQ.0) RETURN + NMES=1 + KFPREV=-KFL3 + CALL PYKFDI(KFPREV,0,KFL3,KFM) +C.. Due to eta+eta' suppr., a qq->M+qq attempt might end as qq->B+q + IF(IABS(KFL3).LE.10)THEN + KFL3=-KFPREV + RETURN + ENDIF + GOTO 120 + ENDIF + +C test output qq against fake Gamma, then return if no popcorn. + GB=2D0 + IF(IRANK.NE.0)THEN + CALL PYZDIS(1,2103,5D0,Z) + GB=5D0*(1D0-Z)/Z + IF(1D0-PARF(192)**GB.LT.PYR(0)) THEN + MSTU(121)=0 + GOTO 100 + ENDIF + ENDIF + IF(MSTU(121).EQ.0) RETURN + +C..Set store size memory. Pick fake dynamical variables of qq. + NMES=MSTU(121) + CALL PYPTDI(1,PX3,PY3) + X=1D0 + POPM=0D0 + G=GB + POPG=GB + +C.. Pick next popcorn meson, test with fake dynamical variables + 110 KFPREV=-KFL3 + PX1=-PX3 + PY1=-PY3 + CALL PYKFDI(KFPREV,0,KFL3,KFM) + IF(MSTU(121).EQ.-1) GOTO 100 + CALL PYPTDI(KFL3,PX3,PY3) + PM=PYMASS(KFM)**2+(PX1+PX3)**2+(PY1+PY3)**2 + CALL PYZDIS(KFPREV,KFL3,PM,Z) + G=(1D0-Z)*(G+PM/Z) + X=(1D0-Z)*X + + PTST=1D0 + GTST=1D0 + RTST=PYR(0) + IF(MSTJ(12).GT.4)THEN + POPMN=SQRT((1D0-X)*(G/X-GB)) + POPM=POPM+PMAS(PYCOMP(KFM),1)-PMAS(PYCOMP(KFM),3) + PTST=EXP((POPM-POPMN)*PARF(193)) + POPM=POPMN + ENDIF + IF(IRANK.NE.0)THEN + POPGN=X*GB + GTST=(1D0-PARF(192)**POPGN)/(1D0-PARF(192)**POPG) + POPG=POPGN + ENDIF + IF(RTST.GT.PTST*GTST)THEN + MSTU(121)=0 + IF(RTST.GT.PTST) MSTU(121)=-1 + GOTO 100 + ENDIF + +C.. Store meson + 120 IF(NMES.LE.NMAX) MSTU(NSTO+MSTU(121)+1)=KFM + IF(MSTU(121).GT.0) GOTO 110 + +C.. Test accepted system size. If OK set global popcorn size variable. + IF(NMES.GT.NMAX)THEN + KF=0 + KFL3=0 + RETURN + ENDIF + MSTU(121)=NMES + ENDIF + + RETURN + END + +C******************************************************************** + +C...PYKFDI +C...Generates a new flavour pair and combines off a hadron + + SUBROUTINE PYKFDI(KFL1,KFL2,KFL3,KF) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYDAT1/,/PYDAT2/ +C...Local arrays. + DIMENSION PD(7) + + IF(MSTU(123).EQ.0.AND.MSTJ(12).GT.0) CALL PYKFIN + +C...Default flavour values. Input consistency checks. + KF1A=IABS(KFL1) + KF2A=IABS(KFL2) + KFL3=0 + KF=0 + IF(KF1A.EQ.0) RETURN + IF(KF2A.NE.0)THEN + IF(KF1A.LE.10.AND.KF2A.LE.10.AND.KFL1*KFL2.GT.0) RETURN + IF(KF1A.GT.10.AND.KF2A.GT.10) RETURN + IF((KF1A.GT.10.OR.KF2A.GT.10).AND.KFL1*KFL2.LT.0) RETURN + ENDIF + +C...Check if tabulated flavour probabilities are to be used. + IF(MSTJ(15).EQ.1) THEN + IF(MSTJ(12).GE.5) CALL PYERRM(29, + & '(PYKFDI:) Sorry, option MSTJ(15)=1 not available' // + & ' together with MSTJ(12)>=5 modification') + KTAB1=-1 + IF(KF1A.GE.1.AND.KF1A.LE.6) KTAB1=KF1A + KFL1A=MOD(KF1A/1000,10) + KFL1B=MOD(KF1A/100,10) + KFL1S=MOD(KF1A,10) + IF(KFL1A.GE.1.AND.KFL1A.LE.4.AND.KFL1B.GE.1.AND.KFL1B.LE.4) + & KTAB1=6+KFL1A*(KFL1A-2)+2*KFL1B+(KFL1S-1)/2 + IF(KFL1A.GE.1.AND.KFL1A.LE.4.AND.KFL1A.EQ.KFL1B) KTAB1=KTAB1-1 + IF(KF1A.GE.1.AND.KF1A.LE.6) KFL1A=KF1A + KTAB2=0 + IF(KF2A.NE.0) THEN + KTAB2=-1 + IF(KF2A.GE.1.AND.KF2A.LE.6) KTAB2=KF2A + KFL2A=MOD(KF2A/1000,10) + KFL2B=MOD(KF2A/100,10) + KFL2S=MOD(KF2A,10) + IF(KFL2A.GE.1.AND.KFL2A.LE.4.AND.KFL2B.GE.1.AND.KFL2B.LE.4) + & KTAB2=6+KFL2A*(KFL2A-2)+2*KFL2B+(KFL2S-1)/2 + IF(KFL2A.GE.1.AND.KFL2A.LE.4.AND.KFL2A.EQ.KFL2B) KTAB2=KTAB2-1 + ENDIF + IF(KTAB1.GE.0.AND.KTAB2.GE.0) GOTO 140 + ENDIF + +C.. Recognize rank 0 diquark case + 100 IRANK=1 + KFDIQ=MAX(KF1A,KF2A) + IF(KFDIQ.GT.10.AND.KFDIQ.LT.10000) IRANK=0 + +C.. Join two flavours to meson or baryon. Test for popcorn. + IF(KF2A.GT.0)THEN + MBARY=0 + IF(KFDIQ.GT.10) THEN + IF(IRANK.EQ.0.AND.MSTJ(12).LT.5) + & CALL PYNMES(KFDIQ) + IF(MSTU(121).NE.0) THEN + MSTU(121)=0 + RETURN + ENDIF + MBARY=2 + ENDIF + KFQOLD=KF1A + KFQVER=KF2A + GOTO 130 + ENDIF + +C.. Separate incoming flavours, curtain flavour consistency check + KFIN=KFL1 + KFQOLD=KF1A + KFQPOP=KF1A/10000 + IF(KF1A.GT.10)THEN + KFIN=-KFL1 + KFL1A=MOD(KF1A/1000,10) + KFL1B=MOD(KF1A/100,10) + IF(IRANK.EQ.0)THEN + QAWT=1D0 + IF(KFL1A.GE.3) QAWT=PARF(136+KFL1A/4) + IF(KFL1B.GE.3) QAWT=QAWT/PARF(136+KFL1B/4) + KFQPOP=KFL1A+(KFL1B-KFL1A)*INT(1D0/(QAWT+1D0)+PYR(0)) + ENDIF + IF(KFQPOP.NE.KFL1B.AND.KFQPOP.NE.KFL1A) THEN + MSTU(121)=0 + RETURN + ENDIF + KFQOLD=KFL1A+KFL1B-KFQPOP + ENDIF + +C...Meson/baryon choice. Set number of mesons if starting a popcorn +C...system. + 110 MBARY=0 + IF(KF1A.LE.10.AND.MSTJ(12).GT.0)THEN + IF(MSTU(121).EQ.-1.OR.(1D0+PARJ(1))*PYR(0).GT.1D0)THEN + MBARY=1 + CALL PYNMES(0) + ENDIF + ELSEIF(KF1A.GT.10)THEN + MBARY=2 + IF(IRANK.EQ.0) CALL PYNMES(KF1A) + IF(MSTU(121).GT.0) MBARY=-1 + ENDIF + +C..x->H+q: Choose single vertex quark. Jump to form hadron. + IF(MBARY.EQ.0.OR.MBARY.EQ.2)THEN + KFQVER=1+INT((2D0+PARJ(2))*PYR(0)) + KFL3=ISIGN(KFQVER,-KFIN) + GOTO 130 + ENDIF + +C..x->H+qq: (IDW=proper PARF position for diquark weights) + IDW=160 + IF(MBARY.EQ.1)THEN + IF(MSTU(121).EQ.0) IDW=150 + SQWT=PARF(IDW+1) + IF(MSTU(121).GT.0) SQWT=SQWT*PARF(135)*PARF(138)**MSTU(121) + KFQPOP=1+INT((2D0+SQWT)*PYR(0)) +C.. Shift to s-curtain parameters if needed + IF(KFQPOP.GE.3.AND.MSTJ(12).GE.5)THEN + PARF(194)=PARF(138)*PARF(139) + PARF(193)=PARJ(8)+PARJ(9) + ENDIF + ENDIF + +C.. x->H+qq: Get vertex quark + IF(MBARY.EQ.-1.AND.MSTJ(12).GE.5)THEN + IDW=MSTU(122) + MSTU(121)=MSTU(121)-1 + IF(IDW.EQ.170) THEN + IF(MSTU(121).EQ.0)THEN + IPOS=3*MIN(KFQPOP-1,2)+MIN(KFQOLD-1,2) + ELSE + IPOS=3*3+3*MAX(0,MIN(KFQPOP-2,1))+MIN(KFQOLD-1,2) + ENDIF + ELSE + IF(MSTU(121).EQ.0)THEN + IPOS=3*5+5*MIN(KFQPOP-1,3)+MIN(KFQOLD-1,4) + ELSE + IPOS=3*5+5*4+MIN(KFQOLD-1,4) + ENDIF + ENDIF + IPOS=200+30*IPOS+1 + + IMES=-1 + RMES=PYR(0)*PARF(194) + 120 IMES=IMES+1 + RMES=RMES-PARF(IPOS+IMES) + IF(IMES.EQ.30) THEN + MSTU(121)=-1 + KF=-111 + RETURN + ENDIF + IF(RMES.GT.0D0) GOTO 120 + KMUL=IMES/5 + KFJ=2*KMUL+1 + IF(KMUL.EQ.2) KFJ=10003 + IF(KMUL.EQ.3) KFJ=10001 + IF(KMUL.EQ.4) KFJ=20003 + IF(KMUL.EQ.5) KFJ=5 + IDIAG=0 + KFQVER=MOD(IMES,5)+1 + IF(KFQVER.GE.KFQOLD) KFQVER=KFQVER+1 + IF(KFQVER.GT.3)THEN + IDIAG=KFQVER-3 + KFQVER=KFQOLD + ENDIF + ELSE + IF(MBARY.EQ.-1) IDW=170 + SQWT=PARF(IDW+2) + IF(KFQPOP.EQ.3) SQWT=PARF(IDW+3) + IF(KFQPOP.GT.3) SQWT=PARF(IDW+3)*(1D0/PARF(IDW+5)+1D0)/2D0 + KFQVER=MIN(3,1+INT((2D0+SQWT)*PYR(0))) + IF(KFQPOP.LT.3.AND.KFQVER.LT.3)THEN + KFQVER=KFQPOP + IF(PYR(0).GT.PARF(IDW+4)) KFQVER=3-KFQPOP + ENDIF + ENDIF + +C..x->H+qq: form outgoing diquark with KFQPOP flag at 10000-pos + KFLDS=3 + IF(KFQPOP.NE.KFQVER)THEN + SWT=PARF(IDW+7) + IF(KFQVER.EQ.3) SWT=PARF(IDW+6) + IF(KFQPOP.GE.3) SWT=PARF(IDW+5) + IF((1D0+SWT)*PYR(0).LT.1D0) KFLDS=1 + ENDIF + KFDIQ=900*MAX(KFQVER,KFQPOP)+100*(KFQVER+KFQPOP)+KFLDS + & +10000*KFQPOP + KFL3=ISIGN(KFDIQ,KFIN) + +C..x->M+y: flavour for meson. + 130 IF(MBARY.LE.0)THEN + KFLA=MAX(KFQOLD,KFQVER) + KFLB=MIN(KFQOLD,KFQVER) + KFS=ISIGN(1,KFL1) + IF(KFLA.NE.KFQOLD) KFS=-KFS +C... Form meson, with spin and flavour mixing for diagonal states. + IF(MBARY.EQ.-1.AND.MSTJ(12).GE.5)THEN + IF(IDIAG.GT.0) KF=110*IDIAG+KFJ + IF(IDIAG.EQ.0) KF=(100*KFLA+10*KFLB+KFJ)*KFS*(-1)**KFLA + RETURN + ENDIF + IF(KFLA.LE.2) KMUL=INT(PARJ(11)+PYR(0)) + IF(KFLA.EQ.3) KMUL=INT(PARJ(12)+PYR(0)) + IF(KFLA.GE.4) KMUL=INT(PARJ(13)+PYR(0)) + IF(KMUL.EQ.0.AND.PARJ(14).GT.0D0)THEN + IF(PYR(0).LT.PARJ(14)) KMUL=2 + ELSEIF(KMUL.EQ.1.AND.PARJ(15)+PARJ(16)+PARJ(17).GT.0D0)THEN + RMUL=PYR(0) + IF(RMUL.LT.PARJ(15)) KMUL=3 + IF(KMUL.EQ.1.AND.RMUL.LT.PARJ(15)+PARJ(16)) KMUL=4 + IF(KMUL.EQ.1.AND.RMUL.LT.PARJ(15)+PARJ(16)+PARJ(17)) KMUL=5 + ENDIF + KFLS=3 + IF(KMUL.EQ.0.OR.KMUL.EQ.3) KFLS=1 + IF(KMUL.EQ.5) KFLS=5 + IF(KFLA.NE.KFLB)THEN + KF=(100*KFLA+10*KFLB+KFLS)*KFS*(-1)**KFLA + ELSE + RMIX=PYR(0) + IMIX=2*KFLA+10*KMUL + IF(KFLA.LE.3) KF=110*(1+INT(RMIX+PARF(IMIX-1))+ + & INT(RMIX+PARF(IMIX)))+KFLS + IF(KFLA.GE.4) KF=110*KFLA+KFLS + ENDIF + IF(KMUL.EQ.2.OR.KMUL.EQ.3) KF=KF+ISIGN(10000,KF) + IF(KMUL.EQ.4) KF=KF+ISIGN(20000,KF) + +C..Optional extra suppression of eta and eta'. +C..Allow shift to qq->B+q in old version (set IRANK to 0) + IF(KF.EQ.221.OR.KF.EQ.331)THEN + IF(PYR(0).GT.PARJ(25+KF/300))THEN + IF(KF2A.GT.0) GOTO 130 + IF(MSTJ(12).LT.4) IRANK=0 + GOTO 110 + ENDIF + ENDIF + MSTU(121)=0 + +C.. x->B+y: Flavour for baryon + ELSE + KFLA=KFQVER + IF(KF1A.LE.10) KFLA=KFQOLD + KFLB=MOD(KFDIQ/1000,10) + KFLC=MOD(KFDIQ/100,10) + KFLDS=MOD(KFDIQ,10) + KFLD=MAX(KFLA,KFLB,KFLC) + KFLF=MIN(KFLA,KFLB,KFLC) + KFLE=KFLA+KFLB+KFLC-KFLD-KFLF + +C... SU(6) factors for formation of baryon. + KBARY=3 + KDMAX=5 + KFLG=KFLB + IF(KFLB.NE.KFLC)THEN + KBARY=2*KFLDS-1 + KDMAX=1+KFLDS/2 + IF(KFLB.GT.2) KDMAX=KDMAX+2 + ENDIF + IF(KFLA.NE.KFLB.AND.KFLA.NE.KFLC)THEN + KBARY=KBARY+1 + KFLG=KFLA + ENDIF + + SU6MAX=PARF(140+KDMAX) + SU6DEC=PARJ(18) + SU6S =PARF(146) + IF(MSTJ(12).GE.5.AND.IRANK.EQ.0) THEN + SU6MAX=1D0 + SU6DEC=1D0 + SU6S =1D0 + ENDIF + SU6OCT=PARF(60+KBARY) + IF(KFLG.GT.MAX(KFLA+KFLB-KFLG,2))THEN + SU6OCT=SU6OCT*4*SU6S/(3*SU6S+1) + IF(KBARY.EQ.2) SU6OCT=PARF(60+KBARY)*4/(3*SU6S+1) + ELSE + IF(KBARY.EQ.6) SU6OCT=SU6OCT*(3+SU6S)/(3*SU6S+1) + ENDIF + SU6WT=SU6OCT+SU6DEC*PARF(70+KBARY) + +C.. SU(6) test. Old options enforce new baryon if q->B+qq is rejected. + IF(SU6WT.LT.PYR(0)*SU6MAX.AND.KF2A.EQ.0)THEN + MSTU(121)=0 + IF(MSTJ(12).LE.2.AND.MBARY.EQ.1) MSTU(121)=-1 + GOTO 110 + ENDIF + +C.. Form baryon. Distinguish Lambda- and Sigmalike baryons. + KSIG=1 + KFLS=2 + IF(SU6WT*PYR(0).GT.SU6OCT) KFLS=4 + IF(KFLS.EQ.2.AND.KFLD.GT.KFLE.AND.KFLE.GT.KFLF)THEN + KSIG=KFLDS/3 + IF(KFLA.NE.KFLD) KSIG=INT(3*SU6S/(3*SU6S+KFLDS**2)+PYR(0)) + ENDIF + KF=ISIGN(1000*KFLD+100*KFLE+10*KFLF+KFLS,KFL1) + IF(KSIG.EQ.0) KF=ISIGN(1000*KFLD+100*KFLF+10*KFLE+KFLS,KFL1) + ENDIF + RETURN + +C...Use tabulated probabilities to select new flavour and hadron. + 140 IF(KTAB2.EQ.0.AND.MSTJ(12).LE.0) THEN + KT3L=1 + KT3U=6 + ELSEIF(KTAB2.EQ.0.AND.KTAB1.GE.7.AND.MSTJ(12).LE.1) THEN + KT3L=1 + KT3U=6 + ELSEIF(KTAB2.EQ.0) THEN + KT3L=1 + KT3U=22 + ELSE + KT3L=KTAB2 + KT3U=KTAB2 + ENDIF + RFL=0D0 + DO 160 KTS=0,2 + DO 150 KT3=KT3L,KT3U + RFL=RFL+PARF(120+80*KTAB1+25*KTS+KT3) + 150 CONTINUE + 160 CONTINUE + RFL=PYR(0)*RFL + DO 180 KTS=0,2 + KTABS=KTS + DO 170 KT3=KT3L,KT3U + KTAB3=KT3 + RFL=RFL-PARF(120+80*KTAB1+25*KTS+KT3) + IF(RFL.LE.0D0) GOTO 190 + 170 CONTINUE + 180 CONTINUE + 190 CONTINUE + +C...Reconstruct flavour of produced quark/diquark. + IF(KTAB3.LE.6) THEN + KFL3A=KTAB3 + KFL3B=0 + KFL3=ISIGN(KFL3A,KFL1*(2*KTAB1-13)) + ELSE + KFL3A=1 + IF(KTAB3.GE.8) KFL3A=2 + IF(KTAB3.GE.11) KFL3A=3 + IF(KTAB3.GE.16) KFL3A=4 + KFL3B=(KTAB3-6-KFL3A*(KFL3A-2))/2 + KFL3=1000*KFL3A+100*KFL3B+1 + IF(KFL3A.EQ.KFL3B.OR.KTAB3.NE.6+KFL3A*(KFL3A-2)+2*KFL3B) KFL3= + & KFL3+2 + KFL3=ISIGN(KFL3,KFL1*(13-2*KTAB1)) + ENDIF + +C...Reconstruct meson code. + IF(KFL3A.EQ.KFL1A.AND.KFL3B.EQ.KFL1B.AND.(KFL3A.LE.3.OR. + &KFL3B.NE.0)) THEN + RFL=PYR(0)*(PARF(143+80*KTAB1+25*KTABS)+PARF(144+80*KTAB1+ + & 25*KTABS)+PARF(145+80*KTAB1+25*KTABS)) + KF=110+2*KTABS+1 + IF(RFL.GT.PARF(143+80*KTAB1+25*KTABS)) KF=220+2*KTABS+1 + IF(RFL.GT.PARF(143+80*KTAB1+25*KTABS)+PARF(144+80*KTAB1+ + & 25*KTABS)) KF=330+2*KTABS+1 + ELSEIF(KTAB1.LE.6.AND.KTAB3.LE.6) THEN + KFLA=MAX(KTAB1,KTAB3) + KFLB=MIN(KTAB1,KTAB3) + KFS=ISIGN(1,KFL1) + IF(KFLA.NE.KF1A) KFS=-KFS + KF=(100*KFLA+10*KFLB+2*KTABS+1)*KFS*(-1)**KFLA + ELSEIF(KTAB1.GE.7.AND.KTAB3.GE.7) THEN + KFS=ISIGN(1,KFL1) + IF(KFL1A.EQ.KFL3A) THEN + KFLA=MAX(KFL1B,KFL3B) + KFLB=MIN(KFL1B,KFL3B) + IF(KFLA.NE.KFL1B) KFS=-KFS + ELSEIF(KFL1A.EQ.KFL3B) THEN + KFLA=KFL3A + KFLB=KFL1B + KFS=-KFS + ELSEIF(KFL1B.EQ.KFL3A) THEN + KFLA=KFL1A + KFLB=KFL3B + ELSEIF(KFL1B.EQ.KFL3B) THEN + KFLA=MAX(KFL1A,KFL3A) + KFLB=MIN(KFL1A,KFL3A) + IF(KFLA.NE.KFL1A) KFS=-KFS + ELSE + CALL PYERRM(2,'(PYKFDI:) no matching flavours for qq -> qq') + GOTO 100 + ENDIF + KF=(100*KFLA+10*KFLB+2*KTABS+1)*KFS*(-1)**KFLA + +C...Reconstruct baryon code. + ELSE + IF(KTAB1.GE.7) THEN + KFLA=KFL3A + KFLB=KFL1A + KFLC=KFL1B + ELSE + KFLA=KFL1A + KFLB=KFL3A + KFLC=KFL3B + ENDIF + KFLD=MAX(KFLA,KFLB,KFLC) + KFLF=MIN(KFLA,KFLB,KFLC) + KFLE=KFLA+KFLB+KFLC-KFLD-KFLF + IF(KTABS.EQ.0) KF=ISIGN(1000*KFLD+100*KFLF+10*KFLE+2,KFL1) + IF(KTABS.GE.1) KF=ISIGN(1000*KFLD+100*KFLE+10*KFLF+2*KTABS,KFL1) + ENDIF + +C...Check that constructed flavour code is an allowed one. + IF(KFL2.NE.0) KFL3=0 + KC=PYCOMP(KF) + IF(KC.EQ.0) THEN + CALL PYERRM(2,'(PYKFDI:) user-defined flavour probabilities '// + & 'failed') + GOTO 100 + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYNMES +C...Generates number of popcorn mesons and stores some relevant +C...parameters. + + SUBROUTINE PYNMES(KFDIQ) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYDAT1/,/PYDAT2/ + + MSTU(121)=0 + IF(MSTJ(12).LT.2) RETURN + +C..Old version: Get 1 or 0 popcorn mesons + IF(MSTJ(12).LT.5)THEN + POPWT=PARF(131) + IF(KFDIQ.NE.0) THEN + KFDIQA=IABS(KFDIQ) + KFA=MOD(KFDIQA/1000,10) + KFB=MOD(KFDIQA/100,10) + KFS=MOD(KFDIQA,10) + POPWT=PARF(132) + IF(KFA.EQ.3) POPWT=PARF(133) + IF(KFB.EQ.3) POPWT=PARF(134) + IF(KFS.EQ.1) POPWT=POPWT*SQRT(PARJ(4)) + ENDIF + MSTU(121)=INT(POPWT/(1D0+POPWT)+PYR(0)) + RETURN + ENDIF + +C..New version: Store popcorn- or rank 0 diquark parameters + MSTU(122)=170 + PARF(193)=PARJ(8) + PARF(194)=PARF(139) + IF(KFDIQ.NE.0) THEN + MSTU(122)=180 + PARF(193)=PARJ(10) + PARF(194)=PARF(140) + ENDIF + IF(PARF(194).LT.1D-5.OR.PARF(194).GT.1D0-1D-5) THEN + IF(PARF(194).GT.1D0-1D-5) CALL PYERRM(9, + & '(PYNMES:) Neglecting too large popcorn possibility') + RETURN + ENDIF + +C..New version: Get number of popcorn mesons + 100 RTST=PYR(0) + MSTU(121)=-1 + 110 MSTU(121)=MSTU(121)+1 + RTST=RTST/PARF(194) + IF(RTST.LT.1D0) GOTO 110 + IF(KFDIQ.EQ.0.AND.PYR(0)*(2D0+PARF(135)*PARF(161)).GT. + & (2D0+PARF(135)*PARF(161)*PARF(138)**MSTU(121))) GOTO 100 + RETURN + END + +C*************************************************************** + +C...PYKFIN +C...Precalculates a set of diquark and popcorn weights. + + SUBROUTINE PYKFIN + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYDAT1/,/PYDAT2/ + + DIMENSION SU6(12),SU6M(7),QBB(7),QBM(7),DMB(14) + + + MSTU(123)=1 +C..Diquark indices for dimensional variables + IUD1=1 + IUU1=2 + IUS0=3 + ISU0=4 + IUS1=5 + ISU1=6 + ISS1=7 + +C.. *** SU(6) factors ** +C..Modify with decuplet- (and Sigma/Lambda-) suppression. + PARF(146)=1D0 + IF(MSTJ(12).GE.5) PARF(146)=3D0*PARJ(18)/(2D0*PARJ(18)+1D0) + IF(PARJ(18).LT.1D0-1D-5.AND.MSTJ(12).LT.5) CALL PYERRM(9, + & '(PYKFIN:) PARJ(18)<1 combined with 0 B+B+.. + DO 120 I=1,7 + QBB(I)=QBB(I)*QBM(I) + 120 CONTINUE + + IF(MSTJ(12).GE.5)THEN +C..New version: tau for rank 0 diquark. + DMB(7+ISU0)=EXP(-PARJ(10)*PMUS0) + DMB(7+IUS0)=PARJ(2)*DMB(7+ISU0) + DMB(7+ISS1)=6D0*PARJ(2)*EXP(-PARJ(10)*PMSS1)*DMB(7+ISU0) + DMB(7+IUU1)=6D0*EXP(-PARJ(10)*PMUD1) + DMB(7+ISU1)=3D0*EXP(-PARJ(10)*PMUS1)*DMB(7+ISU0) + DMB(7+IUS1)=PARJ(2)*DMB(7+ISU1) + DMB(7+IUD1)=DMB(7+IUU1)/2D0 + +C..New version: curtain flavour ratios. +C.. s/u for q->B+M+... +C.. s/u for rank 0 diquark: su -> ...M+B+... +C.. Q/q for heavy rank 0 diquark: Qu -> ...M+B+... + WU=1D0+QBM(IUD1)+QBM(IUS0)+QBM(IUS1)+QBM(IUU1) + PARF(135)=(2D0*(QBM(ISU0)+QBM(ISU1))+QBM(ISS1))/WU + WU=1D0+DMB(7+IUD1)+DMB(7+IUS0)+DMB(7+IUS1)+DMB(7+IUU1) + PARF(136)=(2D0*(DMB(7+ISU0)+DMB(7+ISU1))+DMB(7+ISS1))/WU + PARF(137)=(DMB(7+ISU0)+DMB(7+ISU1))* + & (2D0+DMB(7+ISS1)/(2D0*DMB(7+ISU1)))/WU + ELSE +C..Old version: reset unused rank 0 diquark weights and +C.. unused diquark SU(6) survival weights + DO 130 I=1,7 + IF(MSTJ(12).LT.3) DMB(I)=1D0 + DMB(7+I)=1D0 + 130 CONTINUE + +C..Old version: Shuffle PARJ(7) into tau + QBM(IUS0)=QBM(IUS0)*PARJ(7) + QBM(ISS1)=QBM(ISS1)*PARJ(7) + QBM(IUS1)=QBM(IUS1)*PARJ(7) + +C..Old version: curtain flavour ratios. +C.. s/u for q->B+M+... +C.. s/u for rank 0 diquark: su -> ...M+B+... +C.. Q/q for heavy rank 0 diquark: Qu -> ...M+B+... + WU=1D0+QBM(IUD1)+QBM(IUS0)+QBM(IUS1)+QBM(IUU1) + PARF(135)=(2D0*(QBM(ISU0)+QBM(ISU1))+QBM(ISS1))/WU + PARF(136)=PARF(135)*PARJ(6)*QBM(ISU0)/QBM(IUS0) + PARF(137)=(1D0+QBM(IUD1))*(2D0+QBM(IUS0))/WU + ENDIF + +C..Combine diquark SU(6) survival, SU(6)max, tau and T into factors for: +C.. rank0 D->M+B+..; D->M+B+..; q->B+M+..; q->B+B.. + DO 140 I=1,7 + DMB(7+I)=DMB(7+I)*DMB(I) + DMB(I)=DMB(I)*QBM(I) + QBM(I)=QBM(I)*SU6M(I)/SU6MUD + QBB(I)=QBB(I)*SU6M(I)/SU6MUD + 140 CONTINUE + +C.. *** Popcorn factors *** + + IF(MSTJ(12).LT.5)THEN +C.. Old version: Resulting popcorn weights. + PARF(138)=PARJ(6) + WS=PARF(135)*PARF(138) + WQ=WU*PARJ(5)/3D0 + PARF(132)=WQ*QBM(IUD1)/QBB(IUD1) + PARF(133)=WQ* + & (QBM(IUS1)/QBB(IUS1)+WS*QBM(ISU1)/QBB(ISU1))/2D0 + PARF(134)=WQ*WS*QBM(ISS1)/QBB(ISS1) + PARF(131)=WQ*(1D0+QBM(IUD1)+QBM(IUU1)+QBM(IUS0)+QBM(IUS1)+ + & WS*(QBM(ISU0)+QBM(ISU1)+QBM(ISS1)/2D0))/ + & (1D0+QBB(IUD1)+QBB(IUU1)+ + & 2D0*(QBB(IUS0)+QBB(IUS1))+QBB(ISS1)/2D0) + ELSE +C..New version: Store weights for popcorn mesons, +C..get prel. popcorn weights. + DO 150 IPOS=201,1400 + PARF(IPOS)=0D0 + 150 CONTINUE + DO 160 I=138,140 + PARF(I)=0D0 + 160 CONTINUE + IPOS=200 + PARF(193)=PARJ(8) + DO 240 MR=0,7,7 + IF(MR.EQ.7) PARF(193)=PARJ(10) + SQWT=2D0*(DMB(MR+IUS0)+DMB(MR+IUS1))/ + & (1D0+DMB(MR+IUD1)+DMB(MR+IUU1)) + QQWT=DMB(MR+IUU1)/(1D0+DMB(MR+IUD1)+DMB(MR+IUU1)) + DO 230 NMES=0,1 + IF(NMES.EQ.1) SQWT=PARJ(2) + DO 220 KFQPOP=1,4 + IF(MR.EQ.0.AND.KFQPOP.GT.3) GOTO 220 + IF(NMES.EQ.0.AND.KFQPOP.GE.3)THEN + SQWT=DMB(MR+ISS1)/(DMB(MR+ISU0)+DMB(MR+ISU1)) + QQWT=0.5D0 + IF(MR.EQ.0) PARF(193)=PARJ(8)+PARJ(9) + IF(KFQPOP.EQ.4) SQWT=SQWT*(1D0/DMB(7+ISU1)+1D0)/2D0 + ENDIF + DO 210 KFQOLD =1,5 + IF(MR.EQ.0.AND.KFQOLD.GT.3) GOTO 210 + IF(NMES.EQ.1) THEN + IF(MR.EQ.0.AND.KFQPOP.EQ.1) GOTO 210 + IF(MR.EQ.7.AND.KFQPOP.NE.1) GOTO 210 + ENDIF + WTTOT=0D0 + WTFAIL=0D0 + DO 190 KMUL=0,5 + PJWT=PARJ(12+KMUL) + IF(KMUL.EQ.0) PJWT=1D0-PARJ(14) + IF(KMUL.EQ.1) PJWT=1D0-PARJ(15)-PARJ(16)-PARJ(17) + IF(PJWT.LE.0D0) GOTO 190 + IF(PJWT.GT.1D0) PJWT=1D0 + IMES=5*KMUL + IMIX=2*KFQOLD+10*KMUL + KFJ=2*KMUL+1 + IF(KMUL.EQ.2) KFJ=10003 + IF(KMUL.EQ.3) KFJ=10001 + IF(KMUL.EQ.4) KFJ=20003 + IF(KMUL.EQ.5) KFJ=5 + DO 180 KFQVER =1,3 + KFLA=MAX(KFQOLD,KFQVER) + KFLB=MIN(KFQOLD,KFQVER) + SWT=PARJ(11+KFLA/3+KFLA/4) + IF(KMUL.EQ.0.OR.KMUL.EQ.2) SWT=1D0-SWT + SWT=SWT*PJWT + QWT=SQWT/(2D0+SQWT) + IF(KFQVER.LT.3)THEN + IF(KFQVER.EQ.KFQPOP) QWT=(1D0-QWT)*QQWT + IF(KFQVER.NE.KFQPOP) QWT=(1D0-QWT)*(1D0-QQWT) + ENDIF + IF(KFQVER.NE.KFQOLD)THEN + IMES=IMES+1 + KFM=100*KFLA+10*KFLB+KFJ + PMM=PMAS(PYCOMP(KFM),1)-PMAS(PYCOMP(KFM),3) + PARF(IPOS+IMES)=QWT*SWT*EXP(-PARF(193)*PMM) + WTTOT=WTTOT+PARF(IPOS+IMES) + ELSE + DO 170 ID=3,5 + IF(ID.EQ.3) DWT=1D0-PARF(IMIX-1) + IF(ID.EQ.4) DWT=PARF(IMIX-1)-PARF(IMIX) + IF(ID.EQ.5) DWT=PARF(IMIX) + KFM=110*(ID-2)+KFJ + PMM=PMAS(PYCOMP(KFM),1)-PMAS(PYCOMP(KFM),3) + PARF(IPOS+5*KMUL+ID)=QWT*SWT*DWT*EXP(-PARF(193)*PMM) + IF(KMUL.EQ.0.AND.ID.GT.3) THEN + WTFAIL=WTFAIL+QWT*SWT*DWT*(1D0-PARJ(21+ID)) + PARF(IPOS+5*KMUL+ID)= + & PARF(IPOS+5*KMUL+ID)*PARJ(21+ID) + ENDIF + WTTOT=WTTOT+PARF(IPOS+5*KMUL+ID) + 170 CONTINUE + ENDIF + 180 CONTINUE + 190 CONTINUE + DO 200 IMES=1,30 + PARF(IPOS+IMES)=PARF(IPOS+IMES)/(1D0-WTFAIL) + 200 CONTINUE + IF(MR.EQ.7) PARF(140)= + & MAX(PARF(140),WTTOT/(1D0-WTFAIL)) + IF(MR.EQ.0) PARF(139-KFQPOP/3)= + & MAX(PARF(139-KFQPOP/3),WTTOT/(1D0-WTFAIL)) + IPOS=IPOS+30 + 210 CONTINUE + 220 CONTINUE + 230 CONTINUE + 240 CONTINUE + IF(PARF(139).GT.1D-10) PARF(138)=PARF(138)/PARF(139) + MSTU(121)=0 + + ENDIF + +C..Recombine diquark weights to flavour and spin ratios + PARF(151)=(2D0*(QBB(ISU0)+QBB(ISU1))+QBB(ISS1))/ + & (1D0+QBB(IUD1)+QBB(IUU1)+QBB(IUS0)+QBB(IUS1)) + PARF(152)=2D0*(QBB(IUS0)+QBB(IUS1))/(1D0+QBB(IUD1)+QBB(IUU1)) + PARF(153)=QBB(ISS1)/(QBB(ISU0)+QBB(ISU1)) + PARF(154)=QBB(IUU1)/(1D0+QBB(IUD1)+QBB(IUU1)) + PARF(155)=QBB(ISU1)/QBB(ISU0) + PARF(156)=QBB(IUS1)/QBB(IUS0) + PARF(157)=QBB(IUD1) + + PARF(161)=(2D0*(QBM(ISU0)+QBM(ISU1))+QBM(ISS1))/ + & (1D0+QBM(IUD1)+QBM(IUU1)+QBM(IUS0)+QBM(IUS1)) + PARF(162)=2D0*(QBM(IUS0)+QBM(IUS1))/(1D0+QBM(IUD1)+QBM(IUU1)) + PARF(163)=QBM(ISS1)/(QBM(ISU0)+QBM(ISU1)) + PARF(164)=QBM(IUU1)/(1D0+QBM(IUD1)+QBM(IUU1)) + PARF(165)=QBM(ISU1)/QBM(ISU0) + PARF(166)=QBM(IUS1)/QBM(IUS0) + PARF(167)=QBM(IUD1) + + PARF(171)=(2D0*(DMB(ISU0)+DMB(ISU1))+DMB(ISS1))/ + & (1D0+DMB(IUD1)+DMB(IUU1)+DMB(IUS0)+DMB(IUS1)) + PARF(172)=2D0*(DMB(IUS0)+DMB(IUS1))/(1D0+DMB(IUD1)+DMB(IUU1)) + PARF(173)=DMB(ISS1)/(DMB(ISU0)+DMB(ISU1)) + PARF(174)=DMB(IUU1)/(1D0+DMB(IUD1)+DMB(IUU1)) + PARF(175)=DMB(ISU1)/DMB(ISU0) + PARF(176)=DMB(IUS1)/DMB(IUS0) + PARF(177)=DMB(IUD1) + + PARF(185)=DMB(7+ISU1)/DMB(7+ISU0) + PARF(186)=DMB(7+IUS1)/DMB(7+IUS0) + PARF(187)=DMB(7+IUD1) + + RETURN + END + + +C********************************************************************* + +C...PYPTDI +C...Generates transverse momentum according to a Gaussian. + + SUBROUTINE PYPTDI(KFL,PX,PY) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYDAT1/ + +C...Generate p_T and azimuthal angle, gives p_x and p_y. + KFLA=IABS(KFL) + PT=PARJ(21)*SQRT(-LOG(MAX(1D-10,PYR(0)))) + IF(PARJ(23).GT.PYR(0)) PT=PARJ(24)*PT + IF(MSTJ(91).EQ.1) PT=PARJ(22)*PT + IF(KFLA.EQ.0.AND.MSTJ(13).LE.0) PT=0D0 + PHI=PARU(2)*PYR(0) + PX=PT*COS(PHI) + PY=PT*SIN(PHI) + + RETURN + END + +C********************************************************************* + +C...PYZDIS +C...Generates the longitudinal splitting variable z. + + SUBROUTINE PYZDIS(KFL1,KFL2,PR,Z) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYDAT1/,/PYDAT2/ + +C...Check if heavy flavour fragmentation. + KFLA=IABS(KFL1) + KFLB=IABS(KFL2) + KFLH=KFLA + IF(KFLA.GE.10) KFLH=MOD(KFLA/1000,10) + +C...Lund symmetric scaling function: determine parameters of shape. + IF(MSTJ(11).EQ.1.OR.(MSTJ(11).EQ.3.AND.KFLH.LE.3).OR. + &MSTJ(11).GE.4) THEN + FA=PARJ(41) + IF(MSTJ(91).EQ.1) FA=PARJ(43) + IF(KFLB.GE.10) FA=FA+PARJ(45) + FBB=PARJ(42) + IF(MSTJ(91).EQ.1) FBB=PARJ(44) + FB=FBB*PR + FC=1D0 + IF(KFLA.GE.10) FC=FC-PARJ(45) + IF(KFLB.GE.10) FC=FC+PARJ(45) + IF(MSTJ(11).GE.4.AND.KFLH.GE.4.AND.KFLH.LE.5) THEN + FRED=PARJ(46) + IF(MSTJ(11).EQ.5.AND.KFLH.EQ.5) FRED=PARJ(47) + FC=FC+FRED*FBB*PARF(100+KFLH)**2 + ELSEIF(MSTJ(11).GE.4.AND.KFLH.GE.6.AND.KFLH.LE.8) THEN + FRED=PARJ(46) + IF(MSTJ(11).EQ.5) FRED=PARJ(48) + FC=FC+FRED*FBB*PMAS(KFLH,1)**2 + ENDIF + MC=1 + IF(ABS(FC-1D0).GT.0.01D0) MC=2 + +C...Determine position of maximum. Special cases for a = 0 or a = c. + IF(FA.LT.0.02D0) THEN + MA=1 + ZMAX=1D0 + IF(FC.GT.FB) ZMAX=FB/FC + ELSEIF(ABS(FC-FA).LT.0.01D0) THEN + MA=2 + ZMAX=FB/(FB+FC) + ELSE + MA=3 + ZMAX=0.5D0*(FB+FC-SQRT((FB-FC)**2+4D0*FA*FB))/(FC-FA) + IF(ZMAX.GT.0.9999D0.AND.FB.GT.100D0) ZMAX=MIN(ZMAX,1D0-FA/FB) + ENDIF + +C...Subdivide z range if distribution very peaked near endpoint. + MMAX=2 + IF(ZMAX.LT.0.1D0) THEN + MMAX=1 + ZDIV=2.75D0*ZMAX + IF(MC.EQ.1) THEN + FINT=1D0-LOG(ZDIV) + ELSE + ZDIVC=ZDIV**(1D0-FC) + FINT=1D0+(1D0-1D0/ZDIVC)/(FC-1D0) + ENDIF + ELSEIF(ZMAX.GT.0.85D0.AND.FB.GT.1D0) THEN + MMAX=3 + FSCB=SQRT(4D0+(FC/FB)**2) + ZDIV=FSCB-1D0/ZMAX-(FC/FB)*LOG(ZMAX*0.5D0*(FSCB+FC/FB)) + IF(MA.GE.2) ZDIV=ZDIV+(FA/FB)*LOG(1D0-ZMAX) + ZDIV=MIN(ZMAX,MAX(0D0,ZDIV)) + FINT=1D0+FB*(1D0-ZDIV) + ENDIF + +C...Choice of z, preweighted for peaks at low or high z. + 100 Z=PYR(0) + FPRE=1D0 + IF(MMAX.EQ.1) THEN + IF(FINT*PYR(0).LE.1D0) THEN + Z=ZDIV*Z + ELSEIF(MC.EQ.1) THEN + Z=ZDIV**Z + FPRE=ZDIV/Z + ELSE + Z=(ZDIVC+Z*(1D0-ZDIVC))**(1D0/(1D0-FC)) + FPRE=(ZDIV/Z)**FC + ENDIF + ELSEIF(MMAX.EQ.3) THEN + IF(FINT*PYR(0).LE.1D0) THEN + Z=ZDIV+LOG(Z)/FB + FPRE=EXP(FB*(Z-ZDIV)) + ELSE + Z=ZDIV+Z*(1D0-ZDIV) + ENDIF + ENDIF + +C...Weighting according to correct formula. + IF(Z.LE.0D0.OR.Z.GE.1D0) GOTO 100 + FEXP=FC*LOG(ZMAX/Z)+FB*(1D0/ZMAX-1D0/Z) + IF(MA.GE.2) FEXP=FEXP+FA*LOG((1D0-Z)/(1D0-ZMAX)) + FVAL=EXP(MAX(-50D0,MIN(50D0,FEXP))) + IF(FVAL.LT.PYR(0)*FPRE) GOTO 100 + +C...Generate z according to Field-Feynman, SLAC, (1-z)**c OR z**c. + ELSE + FC=PARJ(50+MAX(1,KFLH)) + IF(MSTJ(91).EQ.1) FC=PARJ(59) + 110 Z=PYR(0) + IF(FC.GE.0D0.AND.FC.LE.1D0) THEN + IF(FC.GT.PYR(0)) Z=1D0-Z**(1D0/3D0) + ELSEIF(FC.GT.-1.AND.FC.LT.0D0) THEN + IF(-4D0*FC*Z*(1D0-Z)**2.LT.PYR(0)*((1D0-Z)**2-FC*Z)**2) + & GOTO 110 + ELSE + IF(FC.GT.0D0) Z=1D0-Z**(1D0/FC) + IF(FC.LT.0D0) Z=Z**(-1D0/FC) + ENDIF + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYSHOW +C...Generates timelike parton showers from given partons. + + SUBROUTINE PYSHOW(IP1,IP2,QMAX) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ +C...Local arrays. + DIMENSION PMTH(5,50),PS(5),PMA(4),PMSD(4),IEP(4),IPA(4), + &KFLA(4),KFLD(4),KFL(4),ITRY(4),ISI(4),ISL(4),DP(4),DPT(5,4), + &KSH(0:40),KCII(2),NIIS(2),IIIS(2,2),THEIIS(2,2),PHIIIS(2,2), + &ISII(2),ISSET(3) + +C...Check that QMAX not too low. + IF(MSTJ(41).LE.0) THEN + RETURN + ELSEIF(MSTJ(41).EQ.1) THEN + IF(QMAX.LE.PARJ(82).AND.IP2.GT.-5) RETURN + ELSE + IF(QMAX.LE.MIN(PARJ(82),PARJ(83),PARJ(90)).AND.IP2.GT.-5) + & RETURN + ENDIF + +C...Initialization of cutoff masses etc. + DO 100 IFL=0,40 + KSH(IFL)=0 + 100 CONTINUE + KSH(21)=1 + PMTH(1,21)=PYMASS(21) + PMTH(2,21)=SQRT(PMTH(1,21)**2+0.25D0*PARJ(82)**2) + PMTH(3,21)=2D0*PMTH(2,21) + PMTH(4,21)=PMTH(3,21) + PMTH(5,21)=PMTH(3,21) + PMTH(1,22)=PYMASS(22) + PMTH(2,22)=SQRT(PMTH(1,22)**2+0.25D0*PARJ(83)**2) + PMTH(3,22)=2D0*PMTH(2,22) + PMTH(4,22)=PMTH(3,22) + PMTH(5,22)=PMTH(3,22) + PMQTH1=PARJ(82) + IF(MSTJ(41).GE.2) PMQTH1=MIN(PARJ(82),PARJ(83)) + PMQT1E=MIN(PMQTH1,PARJ(90)) + PMQTH2=PMTH(2,21) + IF(MSTJ(41).GE.2) PMQTH2=MIN(PMTH(2,21),PMTH(2,22)) + PMQT2E=MIN(PMQTH2,0.5D0*PARJ(90)) + DO 110 IFL=1,8 + KSH(IFL)=1 + PMTH(1,IFL)=PYMASS(IFL) + PMTH(2,IFL)=SQRT(PMTH(1,IFL)**2+0.25D0*PMQTH1**2) + PMTH(3,IFL)=PMTH(2,IFL)+PMQTH2 + PMTH(4,IFL)=SQRT(PMTH(1,IFL)**2+0.25D0*PARJ(82)**2)+PMTH(2,21) + PMTH(5,IFL)=SQRT(PMTH(1,IFL)**2+0.25D0*PARJ(83)**2)+PMTH(2,22) + 110 CONTINUE + DO 120 IFL=11,17,2 + IF(MSTJ(41).GE.2) KSH(IFL)=1 + PMTH(1,IFL)=PYMASS(IFL) + PMTH(2,IFL)=SQRT(PMTH(1,IFL)**2+0.25D0*PARJ(90)**2) + PMTH(3,IFL)=PMTH(2,IFL)+0.5D0*PARJ(90) + PMTH(4,IFL)=PMTH(3,IFL) + PMTH(5,IFL)=PMTH(3,IFL) + 120 CONTINUE + PT2MIN=MAX(0.5D0*PARJ(82),1.1D0*PARJ(81))**2 + ALAMS=PARJ(81)**2 + ALFM=LOG(PT2MIN/ALAMS) + +C...Store positions of shower initiating partons. + MPSPD=0 + IF(IP1.GT.0.AND.IP1.LE.MIN(N,MSTU(4)-MSTU(32)).AND.IP2.EQ.0) THEN + NPA=1 + IPA(1)=IP1 + ELSEIF(MIN(IP1,IP2).GT.0.AND.MAX(IP1,IP2).LE.MIN(N,MSTU(4)- + & MSTU(32))) THEN + NPA=2 + IPA(1)=IP1 + IPA(2)=IP2 + ELSEIF(IP1.GT.0.AND.IP1.LE.MIN(N,MSTU(4)-MSTU(32)).AND.IP2.LT.0 + & .AND.IP2.GE.-3) THEN + NPA=IABS(IP2) + DO 130 I=1,NPA + IPA(I)=IP1+I-1 + 130 CONTINUE + ELSEIF(IP1.GT.0.AND.IP1.LE.MIN(N,MSTU(4)-MSTU(32)).AND. + &IP2.EQ.-8) THEN + MPSPD=1 + NPA=2 + IPA(1)=IP1+6 + IPA(2)=IP1+7 + ELSE + CALL PYERRM(12, + & '(PYSHOW:) failed to reconstruct showering system') + IF(MSTU(21).GE.1) RETURN + ENDIF + +C...Check on phase space available for emission. + IREJ=0 + DO 140 J=1,5 + PS(J)=0D0 + 140 CONTINUE + PM=0D0 + DO 160 I=1,NPA + KFLA(I)=IABS(K(IPA(I),2)) + PMA(I)=P(IPA(I),5) +C...Special cutoff masses for t, l, h with variable masses. + IFLA=KFLA(I) + IF(KFLA(I).GE.6.AND.KFLA(I).LE.8) THEN + IFLA=37+KFLA(I)+ISIGN(2,K(IPA(I),2)) + PMTH(1,IFLA)=PMA(I) + PMTH(2,IFLA)=SQRT(PMTH(1,IFLA)**2+0.25D0*PMQTH1**2) + PMTH(3,IFLA)=PMTH(2,IFLA)+PMQTH2 + PMTH(4,IFLA)=SQRT(PMTH(1,IFLA)**2+0.25D0*PARJ(82)**2)+ + & PMTH(2,21) + PMTH(5,IFLA)=SQRT(PMTH(1,IFLA)**2+0.25D0*PARJ(83)**2)+ + & PMTH(2,22) + ENDIF + IF(KFLA(I).LE.40) THEN + IF(KSH(KFLA(I)).EQ.1) PMA(I)=PMTH(3,IFLA) + ENDIF + PM=PM+PMA(I) + IF(KFLA(I).GT.40) THEN + IREJ=IREJ+1 + ELSE + IF(KSH(KFLA(I)).EQ.0.OR.PMA(I).GT.QMAX) IREJ=IREJ+1 + ENDIF + DO 150 J=1,4 + PS(J)=PS(J)+P(IPA(I),J) + 150 CONTINUE + 160 CONTINUE + IF(IREJ.EQ.NPA.AND.IP2.GT.-5) RETURN + PS(5)=SQRT(MAX(0D0,PS(4)**2-PS(1)**2-PS(2)**2-PS(3)**2)) + IF(NPA.EQ.1) PS(5)=PS(4) + IF(PS(5).LE.PM+PMQT1E) RETURN + +C...Check if 3-jet matrix elements to be used. + M3JC=0 + IF(NPA.EQ.2.AND.MSTJ(47).GE.1.AND.MPSPD.EQ.0) THEN + IF(KFLA(1).GE.1.AND.KFLA(1).LE.8.AND.KFLA(2).GE.1.AND. + & KFLA(2).LE.8) M3JC=1 + IF((KFLA(1).EQ.11.OR.KFLA(1).EQ.13.OR.KFLA(1).EQ.15.OR. + & KFLA(1).EQ.17).AND.KFLA(2).EQ.KFLA(1)) M3JC=1 + IF((KFLA(1).EQ.11.OR.KFLA(1).EQ.13.OR.KFLA(1).EQ.15.OR. + & KFLA(1).EQ.17).AND.KFLA(2).EQ.KFLA(1)+1) M3JC=1 + IF((KFLA(1).EQ.12.OR.KFLA(1).EQ.14.OR.KFLA(1).EQ.16.OR. + & KFLA(1).EQ.18).AND.KFLA(2).EQ.KFLA(1)-1) M3JC=1 + IF(MSTJ(47).EQ.2.OR.MSTJ(47).EQ.4) M3JC=1 + M3JCM=0 + IF(M3JC.EQ.1.AND.MSTJ(47).GE.3.AND.KFLA(1).EQ.KFLA(2)) THEN + M3JCM=1 + PQMES=PMTH(1,KFLA(1))**2 + QME=4D0*PQMES/PS(5)**2 + RESCZ=MIN(1D0,LOG(PMTH(2,KFLA(1))/PS(5))/ + & LOG(PMTH(2,21)/PS(5))) + ENDIF + ENDIF + +C...Find if interference with initial state partons. + MIIS=0 + IF(MSTJ(50).GE.1.AND.MSTJ(50).LE.3.AND.NPA.EQ.2.AND.MPSPD.EQ.0) + &MIIS=MSTJ(50) + IF(MIIS.NE.0) THEN + DO 180 I=1,2 + KCII(I)=0 + KCA=PYCOMP(KFLA(I)) + IF(KCA.NE.0) KCII(I)=KCHG(KCA,2)*ISIGN(1,K(IPA(I),2)) + NIIS(I)=0 + IF(KCII(I).NE.0) THEN + DO 170 J=1,2 + ICSI=MOD(K(IPA(I),3+J)/MSTU(5),MSTU(5)) + IF(ICSI.GT.0.AND.ICSI.NE.IPA(1).AND.ICSI.NE.IPA(2).AND. + & (KCII(I).EQ.(-1)**(J+1).OR.KCII(I).EQ.2)) THEN + NIIS(I)=NIIS(I)+1 + IIIS(I,NIIS(I))=ICSI + ENDIF + 170 CONTINUE + ENDIF + 180 CONTINUE + IF(NIIS(1)+NIIS(2).EQ.0) MIIS=0 + ENDIF + +C...Boost interfering initial partons to rest frame +C...and reconstruct their polar and azimuthal angles. + IF(MIIS.NE.0) THEN + DO 200 I=1,2 + DO 190 J=1,5 + K(N+I,J)=K(IPA(I),J) + P(N+I,J)=P(IPA(I),J) + V(N+I,J)=0D0 + 190 CONTINUE + 200 CONTINUE + DO 220 I=3,2+NIIS(1) + DO 210 J=1,5 + K(N+I,J)=K(IIIS(1,I-2),J) + P(N+I,J)=P(IIIS(1,I-2),J) + V(N+I,J)=0D0 + 210 CONTINUE + 220 CONTINUE + DO 240 I=3+NIIS(1),2+NIIS(1)+NIIS(2) + DO 230 J=1,5 + K(N+I,J)=K(IIIS(2,I-2-NIIS(1)),J) + P(N+I,J)=P(IIIS(2,I-2-NIIS(1)),J) + V(N+I,J)=0D0 + 230 CONTINUE + 240 CONTINUE + CALL PYROBO(N+1,N+2+NIIS(1)+NIIS(2),0D0,0D0,-PS(1)/PS(4), + & -PS(2)/PS(4),-PS(3)/PS(4)) + PHI=PYANGL(P(N+1,1),P(N+1,2)) + CALL PYROBO(N+1,N+2+NIIS(1)+NIIS(2),0D0,-PHI,0D0,0D0,0D0) + THE=PYANGL(P(N+1,3),P(N+1,1)) + CALL PYROBO(N+1,N+2+NIIS(1)+NIIS(2),-THE,0D0,0D0,0D0,0D0) + DO 250 I=3,2+NIIS(1) + THEIIS(1,I-2)=PYANGL(P(N+I,3),SQRT(P(N+I,1)**2+P(N+I,2)**2)) + PHIIIS(1,I-2)=PYANGL(P(N+I,1),P(N+I,2)) + 250 CONTINUE + DO 260 I=3+NIIS(1),2+NIIS(1)+NIIS(2) + THEIIS(2,I-2-NIIS(1))=PARU(1)-PYANGL(P(N+I,3), + & SQRT(P(N+I,1)**2+P(N+I,2)**2)) + PHIIIS(2,I-2-NIIS(1))=PYANGL(P(N+I,1),P(N+I,2)) + 260 CONTINUE + ENDIF + +C...Define imagined single initiator of shower for parton system. + NS=N + IF(N.GT.MSTU(4)-MSTU(32)-5) THEN + CALL PYERRM(11,'(PYSHOW:) no more memory left in PYJETS') + IF(MSTU(21).GE.1) RETURN + ENDIF + 265 N=NS + IF(NPA.GE.2) THEN + K(N+1,1)=11 + K(N+1,2)=21 + K(N+1,3)=0 + K(N+1,4)=0 + K(N+1,5)=0 + P(N+1,1)=0D0 + P(N+1,2)=0D0 + P(N+1,3)=0D0 + P(N+1,4)=PS(5) + P(N+1,5)=PS(5) + V(N+1,5)=PS(5)**2 + N=N+1 + ENDIF + +C...Loop over partons that may branch. + NEP=NPA + IM=NS + IF(NPA.EQ.1) IM=NS-1 + 270 IM=IM+1 + IF(N.GT.NS) THEN + IF(IM.GT.N) GOTO 510 + KFLM=IABS(K(IM,2)) + IF(KFLM.GT.40) GOTO 270 + IF(KSH(KFLM).EQ.0) GOTO 270 + IFLM=KFLM + IF(KFLM.GE.6.AND.KFLM.LE.8) IFLM=37+KFLM+ISIGN(2,K(IM,2)) + IF(P(IM,5).LT.PMTH(2,IFLM)) GOTO 270 + IGM=K(IM,3) + ELSE + IGM=-1 + ENDIF + IF(N+NEP.GT.MSTU(4)-MSTU(32)-5) THEN + CALL PYERRM(11,'(PYSHOW:) no more memory left in PYJETS') + IF(MSTU(21).GE.1) RETURN + ENDIF + +C...Position of aunt (sister to branching parton). +C...Origin and flavour of daughters. + IAU=0 + IF(IGM.GT.0) THEN + IF(K(IM-1,3).EQ.IGM) IAU=IM-1 + IF(N.GE.IM+1.AND.K(IM+1,3).EQ.IGM) IAU=IM+1 + ENDIF + IF(IGM.GE.0) THEN + K(IM,4)=N+1 + DO 280 I=1,NEP + K(N+I,3)=IM + 280 CONTINUE + ELSE + K(N+1,3)=IPA(1) + ENDIF + IF(IGM.LE.0) THEN + DO 290 I=1,NEP + K(N+I,2)=K(IPA(I),2) + 290 CONTINUE + ELSEIF(KFLM.NE.21) THEN + K(N+1,2)=K(IM,2) + K(N+2,2)=K(IM,5) + ELSEIF(K(IM,5).EQ.21) THEN + K(N+1,2)=21 + K(N+2,2)=21 + ELSE + K(N+1,2)=K(IM,5) + K(N+2,2)=-K(IM,5) + ENDIF + +C...Reset flags on daughters and tries made. + DO 300 IP=1,NEP + K(N+IP,1)=3 + K(N+IP,4)=0 + K(N+IP,5)=0 + KFLD(IP)=IABS(K(N+IP,2)) + IF(KCHG(PYCOMP(KFLD(IP)),2).EQ.0) K(N+IP,1)=1 + ITRY(IP)=0 + ISL(IP)=0 + ISI(IP)=0 + IF(KFLD(IP).LE.40) THEN + IF(KSH(KFLD(IP)).EQ.1) ISI(IP)=1 + ENDIF + 300 CONTINUE + ISLM=0 + +C...Maximum virtuality of daughters. + IF(IGM.LE.0) THEN + DO 310 I=1,NPA + IF(NPA.GE.3) P(N+I,4)=(PS(4)*P(IPA(I),4)-PS(1)*P(IPA(I),1)- + & PS(2)*P(IPA(I),2)-PS(3)*P(IPA(I),3))/PS(5) + P(N+I,5)=MIN(QMAX,PS(5)) + IF(IP2.LE.-5) P(N+I,5)=MAX(P(N+I,5), + & 2D0*PMTH(3,IABS(K(N+I,2)))) + IF(NPA.GE.3) P(N+I,5)=MIN(P(N+I,5),P(N+I,4)) + IF(ISI(I).EQ.0) P(N+I,5)=P(IPA(I),5) + 310 CONTINUE + ELSE + IF(MSTJ(43).LE.2) PEM=V(IM,2) + IF(MSTJ(43).GE.3) PEM=P(IM,4) + P(N+1,5)=MIN(P(IM,5),V(IM,1)*PEM) + P(N+2,5)=MIN(P(IM,5),(1D0-V(IM,1))*PEM) + IF(K(N+2,2).EQ.22) P(N+2,5)=PMTH(1,22) + ENDIF + DO 320 I=1,NEP + PMSD(I)=P(N+I,5) + IF(ISI(I).EQ.1) THEN + IFLD=KFLD(I) + IF(KFLD(I).GE.6.AND.KFLD(I).LE.8) IFLD=37+KFLD(I)+ + & ISIGN(2,K(N+I,2)) + IF(P(N+I,5).LE.PMTH(3,IFLD)) P(N+I,5)=PMTH(1,IFLD) + ENDIF + V(N+I,5)=P(N+I,5)**2 + 320 CONTINUE + +C...Choose one of the daughters for evolution. + 330 INUM=0 + IF(NEP.EQ.1) INUM=1 + DO 340 I=1,NEP + IF(INUM.EQ.0.AND.ISL(I).EQ.1) INUM=I + 340 CONTINUE + DO 350 I=1,NEP + IF(INUM.EQ.0.AND.ITRY(I).EQ.0.AND.ISI(I).EQ.1) THEN + IFLD=KFLD(I) + IF(KFLD(I).GE.6.AND.KFLD(I).LE.8) IFLD=37+KFLD(I)+ + & ISIGN(2,K(N+I,2)) + IF(P(N+I,5).GE.PMTH(2,IFLD)) INUM=I + ENDIF + 350 CONTINUE + IF(INUM.EQ.0) THEN + RMAX=0D0 + DO 360 I=1,NEP + IF(ISI(I).EQ.1.AND.PMSD(I).GE.PMQT2E) THEN + RPM=P(N+I,5)/PMSD(I) + IFLD=KFLD(I) + IF(KFLD(I).GE.6.AND.KFLD(I).LE.8) IFLD=37+KFLD(I)+ + & ISIGN(2,K(N+I,2)) + IF(RPM.GT.RMAX.AND.P(N+I,5).GE.PMTH(2,IFLD)) THEN + RMAX=RPM + INUM=I + ENDIF + ENDIF + 360 CONTINUE + ENDIF + +C...Cancel choice of predetermined daughter already treated. + INUM=MAX(1,INUM) + INUMT=INUM + IF(MPSPD.EQ.1.AND.IGM.EQ.0.AND.ITRY(INUMT).GE.1) THEN + IF(K(IP1-1+INUM,4).GT.0) INUM=3-INUM + ELSEIF(MPSPD.EQ.1.AND.IM.EQ.NS+2.AND.ITRY(INUMT).GE.1) THEN + IF(KFLD(INUMT).NE.21.AND.K(IP1+2,4).GT.0) INUM=3-INUM + IF(KFLD(INUMT).EQ.21.AND.K(IP1+3,4).GT.0) INUM=3-INUM + ENDIF + +C...Store information on choice of evolving daughter. + IEP(1)=N+INUM + DO 370 I=2,NEP + IEP(I)=IEP(I-1)+1 + IF(IEP(I).GT.N+NEP) IEP(I)=N+1 + 370 CONTINUE + DO 380 I=1,NEP + KFL(I)=IABS(K(IEP(I),2)) + 380 CONTINUE + ITRY(INUM)=ITRY(INUM)+1 + IF(ITRY(INUM).GT.200) THEN + CALL PYERRM(14,'(PYSHOW:) caught in infinite loop') + IF(MSTU(21).GE.1) RETURN + ENDIF + Z=0.5D0 + IF(KFL(1).GT.40) GOTO 430 + IF(KSH(KFL(1)).EQ.0) GOTO 430 + IFL=KFL(1) + IF(KFL(1).GE.6.AND.KFL(1).LE.8) IFL=37+KFL(1)+ + &ISIGN(2,K(IEP(1),2)) + IF(P(IEP(1),5).LT.PMTH(2,IFL)) GOTO 430 + +C...Check if evolution already predetermined for daughter. + IPSPD=0 + IF(MPSPD.EQ.1.AND.IGM.EQ.0) THEN + IF(K(IP1-1+INUM,4).GT.0) IPSPD=IP1-1+INUM + ELSEIF(MPSPD.EQ.1.AND.IM.EQ.NS+2) THEN + IF(KFL(1).NE.21.AND.K(IP1+2,4).GT.0) IPSPD=IP1+2 + IF(KFL(1).EQ.21.AND.K(IP1+3,4).GT.0) IPSPD=IP1+3 + ENDIF + ISSET(INUM)=0 + IF(IPSPD.NE.0) ISSET(INUM)=1 + +C...Select side for interference with initial state partons. + IF(MIIS.GE.1.AND.IEP(1).LE.NS+3) THEN + III=IEP(1)-NS-1 + ISII(III)=0 + IF(IABS(KCII(III)).EQ.1.AND.NIIS(III).EQ.1) THEN + ISII(III)=1 + ELSEIF(KCII(III).EQ.2.AND.NIIS(III).EQ.1) THEN + IF(PYR(0).GT.0.5D0) ISII(III)=1 + ELSEIF(KCII(III).EQ.2.AND.NIIS(III).EQ.2) THEN + ISII(III)=1 + IF(PYR(0).GT.0.5D0) ISII(III)=2 + ENDIF + ENDIF + +C...Calculate allowed z range. + IF(NEP.EQ.1) THEN + PMED=PS(4) + ELSEIF(IGM.EQ.0.OR.MSTJ(43).LE.2) THEN + PMED=P(IM,5) + ELSE + IF(INUM.EQ.1) PMED=V(IM,1)*PEM + IF(INUM.EQ.2) PMED=(1D0-V(IM,1))*PEM + ENDIF + IF(MOD(MSTJ(43),2).EQ.1) THEN + ZC=PMTH(2,21)/PMED + ZCE=PMTH(2,22)/PMED + IF(KFL(1).GE.11.AND.KFL(1).LE.18) ZCE=0.5D0*PARJ(90)/PMED + ELSE + ZC=0.5D0*(1D0-SQRT(MAX(0D0,1D0-(2D0*PMTH(2,21)/PMED)**2))) + IF(ZC.LT.1D-6) ZC=(PMTH(2,21)/PMED)**2 + PMTMPE=PMTH(2,22) + IF(KFL(1).GE.11.AND.KFL(1).LE.18) PMTMPE=0.5D0*PARJ(90) + ZCE=0.5D0*(1D0-SQRT(MAX(0D0,1D0-(2D0*PMTMPE/PMED)**2))) + IF(ZCE.LT.1D-6) ZCE=(PMTMPE/PMED)**2 + ENDIF + ZC=MIN(ZC,0.491D0) + ZCE=MIN(ZCE,0.49991D0) + IF(((MSTJ(41).EQ.1.AND.ZC.GT.0.49D0).OR.(MSTJ(41).GE.2.AND. + &MIN(ZC,ZCE).GT.0.4999D0)).AND.IPSPD.EQ.0) THEN + P(IEP(1),5)=PMTH(1,IFL) + V(IEP(1),5)=P(IEP(1),5)**2 + GOTO 430 + ENDIF + +C...Integral of Altarelli-Parisi z kernel for QCD. + IF(MSTJ(49).EQ.0.AND.KFL(1).EQ.21) THEN + FBR=6D0*LOG((1D0-ZC)/ZC)+MSTJ(45)*0.5D0 + ELSEIF(MSTJ(49).EQ.0) THEN + FBR=(8D0/3D0)*LOG((1D0-ZC)/ZC) + +C...Integral of Altarelli-Parisi z kernel for scalar gluon. + ELSEIF(MSTJ(49).EQ.1.AND.KFL(1).EQ.21) THEN + FBR=(PARJ(87)+MSTJ(45)*PARJ(88))*(1D0-2D0*ZC) + ELSEIF(MSTJ(49).EQ.1) THEN + FBR=(1D0-2D0*ZC)/3D0 + IF(IGM.EQ.0.AND.M3JC.EQ.1) FBR=4D0*FBR + +C...Integral of Altarelli-Parisi z kernel for Abelian vector gluon. + ELSEIF(KFL(1).EQ.21) THEN + FBR=6D0*MSTJ(45)*(0.5D0-ZC) + ELSE + FBR=2D0*LOG((1D0-ZC)/ZC) + ENDIF + +C...Reset QCD probability for lepton. + IF(KFL(1).GE.11.AND.KFL(1).LE.18) FBR=0D0 + +C...Integral of Altarelli-Parisi kernel for photon emission. + IF(MSTJ(41).GE.2.AND.KFL(1).GE.1.AND.KFL(1).LE.18) THEN + FBRE=(KCHG(KFL(1),1)/3D0)**2*2D0*LOG((1D0-ZCE)/ZCE) + IF(MSTJ(41).EQ.10) FBRE=PARJ(84)*FBRE + ENDIF + +C...Inner veto algorithm starts. Find maximum mass for evolution. + 390 PMS=V(IEP(1),5) + IF(IGM.GE.0) THEN + PM2=0D0 + DO 400 I=2,NEP + PM=P(IEP(I),5) + IF(KFL(I).LE.40) THEN + IFLI=KFL(I) + IF(KFL(I).GE.6.AND.KFL(I).LE.8) IFLI=37+KFL(I)+ + & ISIGN(2,K(IEP(I),2)) + IF(KSH(KFL(I)).EQ.1) PM=PMTH(2,IFLI) + ENDIF + PM2=PM2+PM + 400 CONTINUE + PMS=MIN(PMS,(P(IM,5)-PM2)**2) + ENDIF + +C...Select mass for daughter in QCD evolution. + B0=27D0/6D0 + DO 410 IFF=4,MSTJ(45) + IF(PMS.GT.4D0*PMTH(2,IFF)**2) B0=(33D0-2D0*IFF)/6D0 + 410 CONTINUE +C...Already predetermined choice. + IF(IPSPD.NE.0) THEN + PMSQCD=P(IPSPD,5)**2 + ELSEIF(FBR.LT.1D-3) THEN + PMSQCD=0D0 + ELSEIF(MSTJ(44).LE.0) THEN + PMSQCD=PMS*EXP(MAX(-50D0,LOG(PYR(0))*PARU(2)/(PARU(111)*FBR))) + ELSEIF(MSTJ(44).EQ.1) THEN + PMSQCD=4D0*ALAMS*(0.25D0*PMS/ALAMS)**(PYR(0)**(B0/FBR)) + ELSE + PMSQCD=PMS*EXP(MAX(-50D0,ALFM*B0*LOG(PYR(0))/FBR)) + ENDIF + IF(ZC.GT.0.49D0.OR.PMSQCD.LE.PMTH(4,IFL)**2) PMSQCD= + & PMTH(2,IFL)**2 + V(IEP(1),5)=PMSQCD + MCE=1 + +C...Select mass for daughter in QED evolution. + IF(MSTJ(41).GE.2.AND.KFL(1).GE.1.AND.KFL(1).LE.18.AND. + &IPSPD.EQ.0) THEN + PMSQED=PMS*EXP(MAX(-50D0,LOG(PYR(0))*PARU(2)/(PARU(101)*FBRE))) + IF(ZCE.GT.0.4999D0.OR.PMSQED.LE.PMTH(5,IFL)**2) PMSQED= + & PMTH(2,IFL)**2 + IF(PMSQED.GT.PMSQCD) THEN + V(IEP(1),5)=PMSQED + MCE=2 + ENDIF + ENDIF + +C...Check whether daughter mass below cutoff. + P(IEP(1),5)=SQRT(V(IEP(1),5)) + IF(P(IEP(1),5).LE.PMTH(3,IFL)) THEN + P(IEP(1),5)=PMTH(1,IFL) + V(IEP(1),5)=P(IEP(1),5)**2 + GOTO 430 + ENDIF + +C...Already predetermined choice of z, and flavour in g -> qqbar. + IF(IPSPD.NE.0) THEN + IPSGD1=K(IPSPD,4) + IPSGD2=K(IPSPD,5) + PMSGD1=P(IPSGD1,5)**2 + PMSGD2=P(IPSGD2,5)**2 + ALAMPS=SQRT(MAX(1D-10,(PMSQCD-PMSGD1-PMSGD2)**2- + & 4D0*PMSGD1*PMSGD2)) + Z=0.5D0*(PMSQCD*(2D0*P(IPSGD1,4)/P(IPSPD,4)-1D0)+ALAMPS- + & PMSGD1+PMSGD2)/ALAMPS + Z=MAX(0.00001D0,MIN(0.99999D0,Z)) + IF(KFL(1).NE.21) THEN + K(IEP(1),5)=21 + ELSE + K(IEP(1),5)=IABS(K(IPSGD1,2)) + ENDIF + +C...Select z value of branching: q -> qgamma. + ELSEIF(MCE.EQ.2) THEN + Z=1D0-(1D0-ZCE)*(ZCE/(1D0-ZCE))**PYR(0) + IF(1D0+Z**2.LT.2D0*PYR(0)) GOTO 390 + K(IEP(1),5)=22 + +C...Select z value of branching: q -> qg, g -> gg, g -> qqbar. + ELSEIF(MSTJ(49).NE.1.AND.KFL(1).NE.21) THEN + Z=1D0-(1D0-ZC)*(ZC/(1D0-ZC))**PYR(0) + IF(IGM.EQ.0.AND.M3JCM.EQ.1) Z=1D0-(1D0-Z)**RESCZ + IF(1D0+Z**2.LT.2D0*PYR(0)) GOTO 390 + K(IEP(1),5)=21 + ELSEIF(MSTJ(49).EQ.0.AND.MSTJ(45)*0.5D0.LT.PYR(0)*FBR) THEN + Z=(1D0-ZC)*(ZC/(1D0-ZC))**PYR(0) + IF(PYR(0).GT.0.5D0) Z=1D0-Z + IF((1D0-Z*(1D0-Z))**2.LT.PYR(0)) GOTO 390 + K(IEP(1),5)=21 + ELSEIF(MSTJ(49).NE.1) THEN + Z=PYR(0) + IF(Z**2+(1D0-Z)**2.LT.PYR(0)) GOTO 390 + KFLB=1+INT(MSTJ(45)*PYR(0)) + PMQ=4D0*PMTH(2,KFLB)**2/V(IEP(1),5) + IF(PMQ.GE.1D0) GOTO 390 + IF(MSTJ(44).LE.2) THEN + IF(Z.LT.ZC.OR.Z.GT.1D0-ZC) GOTO 390 + PMQ0=4D0*PMTH(2,21)**2/V(IEP(1),5) + IF(MOD(MSTJ(43),2).EQ.0.AND.(1D0+0.5D0*PMQ)*SQRT(1D0-PMQ) + & .LT.PYR(0)*(1D0+0.5D0*PMQ0)*SQRT(1D0-PMQ0)) GOTO 390 + ELSE + IF((1D0+0.5D0*PMQ)*SQRT(1D0-PMQ).LT.PYR(0)) GOTO 390 + ENDIF + K(IEP(1),5)=KFLB + +C...Ditto for scalar gluon model. + ELSEIF(KFL(1).NE.21) THEN + Z=1D0-SQRT(ZC**2+PYR(0)*(1D0-2D0*ZC)) + K(IEP(1),5)=21 + ELSEIF(PYR(0)*(PARJ(87)+MSTJ(45)*PARJ(88)).LE.PARJ(87)) THEN + Z=ZC+(1D0-2D0*ZC)*PYR(0) + K(IEP(1),5)=21 + ELSE + Z=ZC+(1D0-2D0*ZC)*PYR(0) + KFLB=1+INT(MSTJ(45)*PYR(0)) + PMQ=4D0*PMTH(2,KFLB)**2/V(IEP(1),5) + IF(PMQ.GE.1D0) GOTO 390 + K(IEP(1),5)=KFLB + ENDIF + +C...Correct to alpha_s(pT^2) (optionally m^2/4 for g -> q qbar). + IF(MCE.EQ.1.AND.MSTJ(44).GE.2.AND.IPSPD.EQ.0) THEN + IF(KFL(1).EQ.21.AND.K(IEP(1),5).LT.10.AND.MSTJ(44).EQ.3) THEN + IF(ALFM/LOG(V(IEP(1),5)*0.25D0/ALAMS).LT.PYR(0)) GOTO 390 + ELSE + IF(Z*(1D0-Z)*V(IEP(1),5).LT.PT2MIN) GOTO 390 + IF(ALFM/LOG(V(IEP(1),5)*Z*(1D0-Z)/ALAMS).LT.PYR(0)) GOTO 390 + ENDIF + ENDIF + +C...Check if z consistent with chosen m. + IF(KFL(1).EQ.21) THEN + KFLGD1=IABS(K(IEP(1),5)) + KFLGD2=KFLGD1 + ELSE + KFLGD1=KFL(1) + KFLGD2=IABS(K(IEP(1),5)) + ENDIF + IF(NEP.EQ.1) THEN + PED=PS(4) + ELSEIF(NEP.GE.3) THEN + PED=P(IEP(1),4) + ELSEIF(IGM.EQ.0.OR.MSTJ(43).LE.2) THEN + PED=0.5D0*(V(IM,5)+V(IEP(1),5)-PM2**2)/P(IM,5) + ELSE + IF(IEP(1).EQ.N+1) PED=V(IM,1)*PEM + IF(IEP(1).EQ.N+2) PED=(1D0-V(IM,1))*PEM + ENDIF + IF(MOD(MSTJ(43),2).EQ.1) THEN + IFLGD1=KFLGD1 + IF(KFLGD1.GE.6.AND.KFLGD1.LE.8) IFLGD1=IFL + PMQTH3=0.5D0*PARJ(82) + IF(KFLGD2.EQ.22) PMQTH3=0.5D0*PARJ(83) + IF(KFL(1).GE.11.AND.KFL(1).LE.18) PMQTH3=0.5D0*PARJ(90) + PMQ1=(PMTH(1,IFLGD1)**2+PMQTH3**2)/V(IEP(1),5) + PMQ2=(PMTH(1,KFLGD2)**2+PMQTH3**2)/V(IEP(1),5) + ZD=SQRT(MAX(0D0,(1D0-V(IEP(1),5)/PED**2)*((1D0-PMQ1-PMQ2)**2- + & 4D0*PMQ1*PMQ2))) + ZH=1D0+PMQ1-PMQ2 + ELSE + ZD=SQRT(MAX(0D0,1D0-V(IEP(1),5)/PED**2)) + ZH=1D0 + ENDIF + IF(KFL(1).EQ.21.AND.K(IEP(1),5).LT.10.AND.MSTJ(44).EQ.3) THEN + ELSEIF(IPSPD.NE.0) THEN + ELSE + ZL=0.5D0*(ZH-ZD) + ZU=0.5D0*(ZH+ZD) + IF(Z.LT.ZL.OR.Z.GT.ZU) GOTO 390 + ENDIF + IF(KFL(1).EQ.21) V(IEP(1),3)=LOG(ZU*(1D0-ZL)/MAX(1D-20,ZL* + &(1D0-ZU))) + IF(KFL(1).NE.21) V(IEP(1),3)=LOG((1D0-ZL)/MAX(1D-10,1D0-ZU)) + +C...Width suppression for q -> q + g. + IF(MSTJ(40).NE.0.AND.KFL(1).NE.21.AND.IPSPD.EQ.0) THEN + IF(IGM.EQ.0) THEN + EGLU=0.5D0*PS(5)*(1D0-Z)*(1D0+V(IEP(1),5)/V(NS+1,5)) + ELSE + EGLU=PMED*(1D0-Z) + ENDIF + CHI=PARJ(89)**2/(PARJ(89)**2+EGLU**2) + IF(MSTJ(40).EQ.1) THEN + IF(CHI.LT.PYR(0)) GOTO 390 + ELSEIF(MSTJ(40).EQ.2) THEN + IF(1D0-CHI.LT.PYR(0)) GOTO 390 + ENDIF + ENDIF + +C...Three-jet matrix element correction (on both sides). + IF(IGM.EQ.0.AND.M3JC.EQ.1) THEN + X1=Z*(1D0+V(IEP(1),5)/V(NS+1,5)) + X2=1D0-V(IEP(1),5)/V(NS+1,5) + X3=(1D0-X1)+(1D0-X2) + IF(MCE.EQ.2) THEN + KI1=K(IPA(INUM),2) + KI2=K(IPA(3-INUM),2) + QF1=KCHG(IABS(KI1),1)*ISIGN(1,KI1)/3D0 + QF2=KCHG(IABS(KI2),1)*ISIGN(1,KI2)/3D0 + WSHOW=QF1**2*(1D0-X1)/X3*(1D0+(X1/(2D0-X2))**2)+ + & QF2**2*(1D0-X2)/X3*(1D0+(X2/(2D0-X1))**2) + WME=(QF1*(1D0-X1)/X3-QF2*(1D0-X2)/X3)**2*(X1**2+X2**2) + ELSEIF(MSTJ(49).NE.1.AND.M3JCM.NE.1) THEN + WSHOW=1D0+(1D0-X1)/X3*(X1/(2D0-X2))**2+ + & (1D0-X2)/X3*(X2/(2D0-X1))**2 + WME=X1**2+X2**2 + ELSEIF(MSTJ(49).NE.1) THEN + X1=(1D0+(V(IEP(1),5)-PQMES)/V(NS+1,5))* + & (Z+(1D0-Z)*PQMES/V(IEP(1),5)) + X2=1D0-(V(IEP(1),5)-PQMES)/V(NS+1,5) + X3=(1D0-X1)+(1D0-X2) + Z1SH=(X1-(PQMES/V(NS+1,5))*(X3/MAX(1D-10,1D0-X2)))/(2D0-X2) + Z2SH=(X2-(PQMES/V(NS+1,5))*(X3/MAX(1D-10,1D0-X1)))/(2D0-X1) + WSHOW=(((1D0-X1)/(2D0-X2))*(1D0+Z1SH**2)/MAX(1D-10,1D0-Z1SH)+ + & ((1D0-X2)/(2D0-X1))*(1D0+Z2SH**2)/MAX(1D-10,1D0-Z2SH))/RESCZ + WME=X1**2+X2**2-QME*X3-0.5D0*QME**2- + & (0.5D0*QME+0.25D0*QME**2)*((1D0-X2)/MAX(1D-10,1D0-X1)+ + & (1D0-X1)/MAX(1D-10,1D0-X2)) + ELSE + WSHOW=4D0*X3*((1D0-X1)/(2D0-X2)**2+(1D0-X2)/(2D0-X1)**2) + WME=X3**2 + IF(MSTJ(102).GE.2) WME=X3**2-2D0*(1D0+X3)*(1D0-X1)*(1D0-X2)* + & PARJ(171) + ENDIF + IF(WME.LT.PYR(0)*WSHOW) GOTO 390 + +C...Impose angular ordering by rejection of nonordered emission. + ELSEIF(MCE.EQ.1.AND.IGM.GT.0.AND.MSTJ(42).GE.2.AND.IPSPD.EQ.0) + &THEN + PEMAO=V(IM,1)*P(IM,4) + IF(IEP(1).EQ.N+2) PEMAO=(1D0-V(IM,1))*P(IM,4) + IF(KFL(1).EQ.21.AND.K(IEP(1),5).LE.10.AND.MSTJ(42).EQ.4) THEN + MAOD=0 + ELSEIF(KFL(1).EQ.21.AND.K(IEP(1),5).LE.10.AND.MSTJ(42).EQ.3) + & THEN + MAOD=1 + PMDAO=PMTH(2,K(IEP(1),5)) + THE2ID=Z*(1D0-Z)*PEMAO**2/(V(IEP(1),5)-4D0*PMDAO**2) + ELSE + MAOD=1 + THE2ID=Z*(1D0-Z)*PEMAO**2/V(IEP(1),5) + ENDIF + MAOM=1 + IAOM=IM + 420 IF(K(IAOM,5).EQ.22) THEN + IAOM=K(IAOM,3) + IF(K(IAOM,3).LE.NS) MAOM=0 + IF(MAOM.EQ.1) GOTO 420 + ENDIF + IF(MAOM.EQ.1.AND.MAOD.EQ.1) THEN + THE2IM=V(IAOM,1)*(1D0-V(IAOM,1))*P(IAOM,4)**2/V(IAOM,5) + IF(THE2ID.LT.THE2IM) GOTO 390 + ENDIF + ENDIF + +C...Impose user-defined maximum angle at first branching. + IF(MSTJ(48).EQ.1.AND.IPSPD.EQ.0) THEN + IF(NEP.EQ.1.AND.IM.EQ.NS) THEN + THE2ID=Z*(1D0-Z)*PS(4)**2/V(IEP(1),5) + IF(PARJ(85)**2*THE2ID.LT.1D0) GOTO 390 + ELSEIF(NEP.EQ.2.AND.IEP(1).EQ.NS+2) THEN + THE2ID=Z*(1D0-Z)*(0.5D0*P(IM,4))**2/V(IEP(1),5) + IF(PARJ(85)**2*THE2ID.LT.1D0) GOTO 390 + ELSEIF(NEP.EQ.2.AND.IEP(1).EQ.NS+3) THEN + THE2ID=Z*(1D0-Z)*(0.5D0*P(IM,4))**2/V(IEP(1),5) + IF(PARJ(86)**2*THE2ID.LT.1D0) GOTO 390 + ENDIF + ENDIF + +C...Impose angular constraint in first branching from interference +C...with initial state partons. + IF(MIIS.GE.2.AND.IEP(1).LE.NS+3) THEN + THE2D=MAX((1D0-Z)/Z,Z/(1D0-Z))*V(IEP(1),5)/(0.5D0*P(IM,4))**2 + IF(IEP(1).EQ.NS+2.AND.ISII(1).GE.1) THEN + IF(THE2D.GT.THEIIS(1,ISII(1))**2) GOTO 390 + ELSEIF(IEP(1).EQ.NS+3.AND.ISII(2).GE.1) THEN + IF(THE2D.GT.THEIIS(2,ISII(2))**2) GOTO 390 + ENDIF + ENDIF + +C...End of inner veto algorithm. Check if only one leg evolved so far. + 430 V(IEP(1),1)=Z + ISL(1)=0 + ISL(2)=0 + IF(NEP.EQ.1) GOTO 460 + IF(NEP.EQ.2.AND.P(IEP(1),5)+P(IEP(2),5).GE.P(IM,5)) GOTO 330 + DO 440 I=1,NEP + IF(ITRY(I).EQ.0.AND.KFLD(I).LE.40) THEN + IF(KSH(KFLD(I)).EQ.1) THEN + IFLD=KFLD(I) + IF(KFLD(I).GE.6.AND.KFLD(I).LE.8) IFLD=37+KFLD(I)+ + & ISIGN(2,K(N+I,2)) + IF(P(N+I,5).GE.PMTH(2,IFLD)) GOTO 330 + ENDIF + ENDIF + 440 CONTINUE + +C...Check if chosen multiplet m1,m2,z1,z2 is physical. + IF(NEP.EQ.3) THEN + PA1S=(P(N+1,4)+P(N+1,5))*(P(N+1,4)-P(N+1,5)) + PA2S=(P(N+2,4)+P(N+2,5))*(P(N+2,4)-P(N+2,5)) + PA3S=(P(N+3,4)+P(N+3,5))*(P(N+3,4)-P(N+3,5)) + PTS=0.25D0*(2D0*PA1S*PA2S+2D0*PA1S*PA3S+2D0*PA2S*PA3S- + & PA1S**2-PA2S**2-PA3S**2)/PA1S + IF(PTS.LE.0D0) GOTO 330 + ELSEIF(IGM.EQ.0.OR.MSTJ(43).LE.2.OR.MOD(MSTJ(43),2).EQ.0) THEN + DO 450 I1=N+1,N+2 + KFLDA=IABS(K(I1,2)) + IF(KFLDA.GT.40) GOTO 450 + IF(KSH(KFLDA).EQ.0) GOTO 450 + IFLDA=KFLDA + IF(KFLDA.GE.6.AND.KFLDA.LE.8) IFLDA=37+KFLDA+ + & ISIGN(2,K(I1,2)) + IF(P(I1,5).LT.PMTH(2,IFLDA)) GOTO 450 + IF(KFLDA.EQ.21) THEN + KFLGD1=IABS(K(I1,5)) + KFLGD2=KFLGD1 + ELSE + KFLGD1=KFLDA + KFLGD2=IABS(K(I1,5)) + ENDIF + I2=2*N+3-I1 + IF(IGM.EQ.0.OR.MSTJ(43).LE.2) THEN + PED=0.5D0*(V(IM,5)+V(I1,5)-V(I2,5))/P(IM,5) + ELSE + IF(I1.EQ.N+1) ZM=V(IM,1) + IF(I1.EQ.N+2) ZM=1D0-V(IM,1) + PML=SQRT((V(IM,5)-V(N+1,5)-V(N+2,5))**2- + & 4D0*V(N+1,5)*V(N+2,5)) + PED=PEM*(0.5D0*(V(IM,5)-PML+V(I1,5)-V(I2,5))+PML*ZM)/ + & V(IM,5) + ENDIF + IF(MOD(MSTJ(43),2).EQ.1) THEN + PMQTH3=0.5D0*PARJ(82) + IF(KFLGD2.EQ.22) PMQTH3=0.5D0*PARJ(83) + IF(KFLDA.GE.11.AND.KFLDA.LE.18) PMQTH3=0.5D0*PARJ(90) + IFLGD1=KFLGD1 + IF(KFLGD1.GE.6.AND.KFLGD1.LE.8) IFLGD1=IFLDA + PMQ1=(PMTH(1,IFLGD1)**2+PMQTH3**2)/V(I1,5) + PMQ2=(PMTH(1,KFLGD2)**2+PMQTH3**2)/V(I1,5) + ZD=SQRT(MAX(0D0,(1D0-V(I1,5)/PED**2)*((1D0-PMQ1-PMQ2)**2- + & 4D0*PMQ1*PMQ2))) + ZH=1D0+PMQ1-PMQ2 + ELSE + ZD=SQRT(MAX(0D0,1D0-V(I1,5)/PED**2)) + ZH=1D0 + ENDIF + IF(KFLDA.EQ.21.AND.KFLGD1.LT.10.AND.MSTJ(44).EQ.3) THEN + ELSE + ZL=0.5D0*(ZH-ZD) + ZU=0.5D0*(ZH+ZD) + IF(I1.EQ.N+1.AND.(V(I1,1).LT.ZL.OR.V(I1,1).GT.ZU).AND. + & ISSET(1).EQ.0) THEN + ISL(1)=1 + ELSEIF(I1.EQ.N+2.AND.(V(I1,1).LT.ZL.OR.V(I1,1).GT.ZU).AND. + & ISSET(2).EQ.0) THEN + ISL(2)=1 + ENDIF + ENDIF + IF(KFLDA.EQ.21) V(I1,4)=LOG(ZU*(1D0-ZL)/MAX(1D-20, + & ZL*(1D0-ZU))) + IF(KFLDA.NE.21) V(I1,4)=LOG((1D0-ZL)/MAX(1D-10,1D0-ZU)) + 450 CONTINUE + IF(ISL(1).EQ.1.AND.ISL(2).EQ.1.AND.ISLM.NE.0) THEN + ISL(3-ISLM)=0 + ISLM=3-ISLM + ELSEIF(ISL(1).EQ.1.AND.ISL(2).EQ.1) THEN + ZDR1=MAX(0D0,V(N+1,3)/MAX(1D-6,V(N+1,4))-1D0) + ZDR2=MAX(0D0,V(N+2,3)/MAX(1D-6,V(N+2,4))-1D0) + IF(ZDR2.GT.PYR(0)*(ZDR1+ZDR2)) ISL(1)=0 + IF(ISL(1).EQ.1) ISL(2)=0 + IF(ISL(1).EQ.0) ISLM=1 + IF(ISL(2).EQ.0) ISLM=2 + ENDIF + IF(ISL(1).EQ.1.OR.ISL(2).EQ.1) GOTO 330 + ENDIF + IFLD1=KFLD(1) + IF(KFLD(1).GE.6.AND.KFLD(1).LE.8) IFLD1=37+KFLD(1)+ + &ISIGN(2,K(N+1,2)) + IFLD2=KFLD(2) + IF(KFLD(2).GE.6.AND.KFLD(2).LE.8) IFLD2=37+KFLD(2)+ + &ISIGN(2,K(N+2,2)) + IF(IGM.GT.0) THEN + IF(MOD(MSTJ(43),2).EQ.1.AND.(P(N+1,5).GE. + & PMTH(2,IFLD1).OR.P(N+2,5).GE.PMTH(2,IFLD2))) THEN + PMQ1=V(N+1,5)/V(IM,5) + PMQ2=V(N+2,5)/V(IM,5) + ZD=SQRT(MAX(0D0,(1D0-V(IM,5)/PEM**2)*((1D0-PMQ1-PMQ2)**2- + & 4D0*PMQ1*PMQ2))) + ZH=1D0+PMQ1-PMQ2 + ZL=0.5D0*(ZH-ZD) + ZU=0.5D0*(ZH+ZD) + IF(V(IM,1).LT.ZL.OR.V(IM,1).GT.ZU) GOTO 330 + ENDIF + ENDIF + +C...Accepted branch. Construct four-momentum for initial partons. + 460 MAZIP=0 + MAZIC=0 + IF(NEP.EQ.1) THEN + P(N+1,1)=0D0 + P(N+1,2)=0D0 + P(N+1,3)=SQRT(MAX(0D0,(P(IPA(1),4)+P(N+1,5))*(P(IPA(1),4)- + & P(N+1,5)))) + P(N+1,4)=P(IPA(1),4) + V(N+1,2)=P(N+1,4) + ELSEIF(IGM.EQ.0.AND.NEP.EQ.2) THEN + PED1=0.5D0*(V(IM,5)+V(N+1,5)-V(N+2,5))/P(IM,5) + P(N+1,1)=0D0 + P(N+1,2)=0D0 + P(N+1,3)=SQRT(MAX(0D0,(PED1+P(N+1,5))*(PED1-P(N+1,5)))) + P(N+1,4)=PED1 + P(N+2,1)=0D0 + P(N+2,2)=0D0 + P(N+2,3)=-P(N+1,3) + P(N+2,4)=P(IM,5)-PED1 + V(N+1,2)=P(N+1,4) + V(N+2,2)=P(N+2,4) + ELSEIF(NEP.EQ.3) THEN + P(N+1,1)=0D0 + P(N+1,2)=0D0 + P(N+1,3)=SQRT(MAX(0D0,PA1S)) + P(N+2,1)=SQRT(PTS) + P(N+2,2)=0D0 + P(N+2,3)=0.5D0*(PA3S-PA2S-PA1S)/P(N+1,3) + P(N+3,1)=-P(N+2,1) + P(N+3,2)=0D0 + P(N+3,3)=-(P(N+1,3)+P(N+2,3)) + V(N+1,2)=P(N+1,4) + V(N+2,2)=P(N+2,4) + V(N+3,2)=P(N+3,4) + +C...Construct transverse momentum for ordinary branching in shower. + ELSE + ZM=V(IM,1) + LOOPPT=0 + 465 LOOPPT=LOOPPT+1 + PZM=SQRT(MAX(0D0,(PEM+P(IM,5))*(PEM-P(IM,5)))) + PMLS=(V(IM,5)-V(N+1,5)-V(N+2,5))**2-4D0*V(N+1,5)*V(N+2,5) + IF(PZM.LE.0D0) THEN + PTS=0D0 + ELSEIF(K(IM,2).EQ.21.AND.IABS(K(N+1,2)).LE.10.AND. + & MSTJ(44).EQ.3) THEN + PTS=PMLS*ZM*(1D0-ZM)/V(IM,5) + ELSEIF(MOD(MSTJ(43),2).EQ.1) THEN + PTS=(PEM**2*(ZM*(1D0-ZM)*V(IM,5)-(1D0-ZM)*V(N+1,5)- + & ZM*V(N+2,5))-0.25D0*PMLS)/PZM**2 + ELSE + PTS=PMLS*(ZM*(1D0-ZM)*PEM**2/V(IM,5)-0.25D0)/PZM**2 + ENDIF + IF(PTS.LT.0D0.AND.LOOPPT.LT.10) THEN + ZM=0.05D0+0.9D0*ZM + GOTO 465 + ELSEIF(PTS.LT.0D0) THEN + GOTO 265 + ENDIF + PT=SQRT(MAX(0D0,PTS)) + +C...Find coefficient of azimuthal asymmetry due to gluon polarization. + HAZIP=0D0 + IF(MSTJ(49).NE.1.AND.MOD(MSTJ(46),2).EQ.1.AND.K(IM,2).EQ.21 + & .AND.IAU.NE.0) THEN + IF(K(IGM,3).NE.0) MAZIP=1 + ZAU=V(IGM,1) + IF(IAU.EQ.IM+1) ZAU=1D0-V(IGM,1) + IF(MAZIP.EQ.0) ZAU=0D0 + IF(K(IGM,2).NE.21) THEN + HAZIP=2D0*ZAU/(1D0+ZAU**2) + ELSE + HAZIP=(ZAU/(1D0-ZAU*(1D0-ZAU)))**2 + ENDIF + IF(K(N+1,2).NE.21) THEN + HAZIP=HAZIP*(-2D0*ZM*(1D0-ZM))/(1D0-2D0*ZM*(1D0-ZM)) + ELSE + HAZIP=HAZIP*(ZM*(1D0-ZM)/(1D0-ZM*(1D0-ZM)))**2 + ENDIF + ENDIF + +C...Find coefficient of azimuthal asymmetry due to soft gluon +C...interference. + HAZIC=0D0 + IF(MSTJ(49).NE.2.AND.MSTJ(46).GE.2.AND.(K(N+1,2).EQ.21.OR. + & K(N+2,2).EQ.21).AND.IAU.NE.0) THEN + IF(K(IGM,3).NE.0) MAZIC=N+1 + IF(K(IGM,3).NE.0.AND.K(N+1,2).NE.21) MAZIC=N+2 + IF(K(IGM,3).NE.0.AND.K(N+1,2).EQ.21.AND.K(N+2,2).EQ.21.AND. + & ZM.GT.0.5D0) MAZIC=N+2 + IF(K(IAU,2).EQ.22) MAZIC=0 + ZS=ZM + IF(MAZIC.EQ.N+2) ZS=1D0-ZM + ZGM=V(IGM,1) + IF(IAU.EQ.IM-1) ZGM=1D0-V(IGM,1) + IF(MAZIC.EQ.0) ZGM=1D0 + IF(MAZIC.NE.0) HAZIC=(P(IM,5)/P(IGM,5))* + & SQRT((1D0-ZS)*(1D0-ZGM)/(ZS*ZGM)) + HAZIC=MIN(0.95D0,HAZIC) + ENDIF + ENDIF + +C...Construct energies for ordinary branching in shower. + 470 IF(NEP.EQ.2.AND.IGM.GT.0) THEN + IF(K(IM,2).EQ.21.AND.IABS(K(N+1,2)).LE.10.AND. + & MSTJ(44).EQ.3) THEN + P(N+1,4)=0.5D0*(PEM*(V(IM,5)+V(N+1,5)-V(N+2,5))+ + & PZM*SQRT(MAX(0D0,PMLS))*(2D0*ZM-1D0))/V(IM,5) + ELSEIF(MOD(MSTJ(43),2).EQ.1) THEN + P(N+1,4)=PEM*V(IM,1) + ELSE + P(N+1,4)=PEM*(0.5D0*(V(IM,5)-SQRT(PMLS)+V(N+1,5)-V(N+2,5))+ + & SQRT(PMLS)*ZM)/V(IM,5) + ENDIF + +C...Already predetermined choice of phi angle or not + PHI=PARU(2)*PYR(0) + IF(MPSPD.EQ.1.AND.IGM.EQ.NS+1) THEN + IPSPD=IP1+IM-NS-2 + IF(K(IPSPD,4).GT.0) THEN + IPSGD1=K(IPSPD,4) + IF(IM.EQ.NS+2) THEN + PHI=PYANGL(P(IPSGD1,1),P(IPSGD1,2)) + ELSE + PHI=PYANGL(-P(IPSGD1,1),P(IPSGD1,2)) + ENDIF + ENDIF + ELSEIF(MPSPD.EQ.1.AND.IGM.EQ.NS+2) THEN + IPSPD=IP1+IM-NS-2 + IF(K(IPSPD,4).GT.0) THEN + IPSGD1=K(IPSPD,4) + PHIPSM=PYANGL(P(IPSPD,1),P(IPSPD,2)) + THEPSM=PYANGL(P(IPSPD,3),SQRT(P(IPSPD,1)**2+P(IPSPD,2)**2)) + CALL PYROBO(IPSGD1,IPSGD1,0D0,-PHIPSM,0D0,0D0,0D0) + CALL PYROBO(IPSGD1,IPSGD1,-THEPSM,0D0,0D0,0D0,0D0) + PHI=PYANGL(P(IPSGD1,1),P(IPSGD1,2)) + CALL PYROBO(IPSGD1,IPSGD1,THEPSM,PHIPSM,0D0,0D0,0D0) + ENDIF + ENDIF + +C...Construct momenta for ordinary branching in shower. + P(N+1,1)=PT*COS(PHI) + P(N+1,2)=PT*SIN(PHI) + IF(K(IM,2).EQ.21.AND.IABS(K(N+1,2)).LE.10.AND. + & MSTJ(44).EQ.3) THEN + P(N+1,3)=0.5D0*(PZM*(V(IM,5)+V(N+1,5)-V(N+2,5))+ + & PEM*SQRT(MAX(0D0,PMLS))*(2D0*ZM-1D0))/V(IM,5) + ELSEIF(PZM.GT.0D0) THEN + P(N+1,3)=0.5D0*(V(N+2,5)-V(N+1,5)-V(IM,5)+ + & 2D0*PEM*P(N+1,4))/PZM + ELSE + P(N+1,3)=0D0 + ENDIF + P(N+2,1)=-P(N+1,1) + P(N+2,2)=-P(N+1,2) + P(N+2,3)=PZM-P(N+1,3) + P(N+2,4)=PEM-P(N+1,4) + IF(MSTJ(43).LE.2) THEN + V(N+1,2)=(PEM*P(N+1,4)-PZM*P(N+1,3))/P(IM,5) + V(N+2,2)=(PEM*P(N+2,4)-PZM*P(N+2,3))/P(IM,5) + ENDIF + ENDIF + +C...Rotate and boost daughters. + IF(IGM.GT.0) THEN + IF(MSTJ(43).LE.2) THEN + BEX=P(IGM,1)/P(IGM,4) + BEY=P(IGM,2)/P(IGM,4) + BEZ=P(IGM,3)/P(IGM,4) + GA=P(IGM,4)/P(IGM,5) + GABEP=GA*(GA*(BEX*P(IM,1)+BEY*P(IM,2)+BEZ*P(IM,3))/(1D0+GA)- + & P(IM,4)) + ELSE + BEX=0D0 + BEY=0D0 + BEZ=0D0 + GA=1D0 + GABEP=0D0 + ENDIF + PTIMB=SQRT((P(IM,1)+GABEP*BEX)**2+(P(IM,2)+GABEP*BEY)**2) + THE=PYANGL(P(IM,3)+GABEP*BEZ,PTIMB) + IF(PTIMB.GT.1D-4) THEN + PHI=PYANGL(P(IM,1)+GABEP*BEX,P(IM,2)+GABEP*BEY) + ELSE + PHI=0D0 + ENDIF + DO 480 I=N+1,N+2 + DP(1)=COS(THE)*COS(PHI)*P(I,1)-SIN(PHI)*P(I,2)+ + & SIN(THE)*COS(PHI)*P(I,3) + DP(2)=COS(THE)*SIN(PHI)*P(I,1)+COS(PHI)*P(I,2)+ + & SIN(THE)*SIN(PHI)*P(I,3) + DP(3)=-SIN(THE)*P(I,1)+COS(THE)*P(I,3) + DP(4)=P(I,4) + DBP=BEX*DP(1)+BEY*DP(2)+BEZ*DP(3) + DGABP=GA*(GA*DBP/(1D0+GA)+DP(4)) + P(I,1)=DP(1)+DGABP*BEX + P(I,2)=DP(2)+DGABP*BEY + P(I,3)=DP(3)+DGABP*BEZ + P(I,4)=GA*(DP(4)+DBP) + 480 CONTINUE + ENDIF + +C...Weight with azimuthal distribution, if required. + IF(MAZIP.NE.0.OR.MAZIC.NE.0) THEN + DO 490 J=1,3 + DPT(1,J)=P(IM,J) + DPT(2,J)=P(IAU,J) + DPT(3,J)=P(N+1,J) + 490 CONTINUE + DPMA=DPT(1,1)*DPT(2,1)+DPT(1,2)*DPT(2,2)+DPT(1,3)*DPT(2,3) + DPMD=DPT(1,1)*DPT(3,1)+DPT(1,2)*DPT(3,2)+DPT(1,3)*DPT(3,3) + DPMM=DPT(1,1)**2+DPT(1,2)**2+DPT(1,3)**2 + DO 500 J=1,3 + DPT(4,J)=DPT(2,J)-DPMA*DPT(1,J)/MAX(1D-10,DPMM) + DPT(5,J)=DPT(3,J)-DPMD*DPT(1,J)/MAX(1D-10,DPMM) + 500 CONTINUE + DPT(4,4)=SQRT(DPT(4,1)**2+DPT(4,2)**2+DPT(4,3)**2) + DPT(5,4)=SQRT(DPT(5,1)**2+DPT(5,2)**2+DPT(5,3)**2) + IF(MIN(DPT(4,4),DPT(5,4)).GT.0.1D0*PARJ(82)) THEN + CAD=(DPT(4,1)*DPT(5,1)+DPT(4,2)*DPT(5,2)+ + & DPT(4,3)*DPT(5,3))/(DPT(4,4)*DPT(5,4)) + IF(MAZIP.NE.0) THEN + IF(1D0+HAZIP*(2D0*CAD**2-1D0).LT.PYR(0)*(1D0+ABS(HAZIP))) + & GOTO 470 + ENDIF + IF(MAZIC.NE.0) THEN + IF(MAZIC.EQ.N+2) CAD=-CAD + IF((1D0-HAZIC)*(1D0-HAZIC*CAD)/(1D0+HAZIC**2-2D0*HAZIC*CAD) + & .LT.PYR(0)) GOTO 470 + ENDIF + ENDIF + ENDIF + +C...Azimuthal anisotropy due to interference with initial state partons. + IF(MOD(MIIS,2).EQ.1.AND.IGM.EQ.NS+1.AND.(K(N+1,2).EQ.21.OR. + &K(N+2,2).EQ.21)) THEN + III=IM-NS-1 + IF(ISII(III).GE.1) THEN + IAZIID=N+1 + IF(K(N+1,2).NE.21) IAZIID=N+2 + IF(K(N+1,2).EQ.21.AND.K(N+2,2).EQ.21.AND. + & P(N+1,4).GT.P(N+2,4)) IAZIID=N+2 + THEIID=PYANGL(P(IAZIID,3),SQRT(P(IAZIID,1)**2+P(IAZIID,2)**2)) + IF(III.EQ.2) THEIID=PARU(1)-THEIID + PHIIID=PYANGL(P(IAZIID,1),P(IAZIID,2)) + HAZII=MIN(0.95D0,THEIID/THEIIS(III,ISII(III))) + CAD=COS(PHIIID-PHIIIS(III,ISII(III))) + PHIREL=ABS(PHIIID-PHIIIS(III,ISII(III))) + IF(PHIREL.GT.PARU(1)) PHIREL=PARU(2)-PHIREL + IF((1D0-HAZII)*(1D0-HAZII*CAD)/(1D0+HAZII**2-2D0*HAZII*CAD) + & .LT.PYR(0)) GOTO 470 + ENDIF + ENDIF + +C...Continue loop over partons that may branch, until none left. + IF(IGM.GE.0) K(IM,1)=14 + N=N+NEP + NEP=2 + IF(N.GT.MSTU(4)-MSTU(32)-5) THEN + CALL PYERRM(11,'(PYSHOW:) no more memory left in PYJETS') + IF(MSTU(21).GE.1) N=NS + IF(MSTU(21).GE.1) RETURN + ENDIF + GOTO 270 + +C...Set information on imagined shower initiator. + 510 IF(NPA.GE.2) THEN + K(NS+1,1)=11 + K(NS+1,2)=94 + K(NS+1,3)=IP1 + IF(IP2.GT.0.AND.IP2.LT.IP1) K(NS+1,3)=IP2 + K(NS+1,4)=NS+2 + K(NS+1,5)=NS+1+NPA + IIM=1 + ELSE + IIM=0 + ENDIF + +C...Reconstruct string drawing information. + DO 520 I=NS+1+IIM,N + IF(K(I,1).LE.10.AND.K(I,2).EQ.22) THEN + K(I,1)=1 + ELSEIF(K(I,1).LE.10.AND.IABS(K(I,2)).GE.11.AND. + & IABS(K(I,2)).LE.18) THEN + K(I,1)=1 + ELSEIF(K(I,1).LE.10) THEN + K(I,4)=MSTU(5)*(K(I,4)/MSTU(5)) + K(I,5)=MSTU(5)*(K(I,5)/MSTU(5)) + ELSEIF(K(MOD(K(I,4),MSTU(5))+1,2).NE.22) THEN + ID1=MOD(K(I,4),MSTU(5)) + IF(K(I,2).GE.1.AND.K(I,2).LE.8) ID1=MOD(K(I,4),MSTU(5))+1 + ID2=2*MOD(K(I,4),MSTU(5))+1-ID1 + K(I,4)=MSTU(5)*(K(I,4)/MSTU(5))+ID1 + K(I,5)=MSTU(5)*(K(I,5)/MSTU(5))+ID2 + K(ID1,4)=K(ID1,4)+MSTU(5)*I + K(ID1,5)=K(ID1,5)+MSTU(5)*ID2 + K(ID2,4)=K(ID2,4)+MSTU(5)*ID1 + K(ID2,5)=K(ID2,5)+MSTU(5)*I + ELSE + ID1=MOD(K(I,4),MSTU(5)) + ID2=ID1+1 + K(I,4)=MSTU(5)*(K(I,4)/MSTU(5))+ID1 + K(I,5)=MSTU(5)*(K(I,5)/MSTU(5))+ID1 + IF(IABS(K(I,2)).LE.10.OR.K(ID1,1).GE.11) THEN + K(ID1,4)=K(ID1,4)+MSTU(5)*I + K(ID1,5)=K(ID1,5)+MSTU(5)*I + ELSE + K(ID1,4)=0 + K(ID1,5)=0 + ENDIF + K(ID2,4)=0 + K(ID2,5)=0 + ENDIF + 520 CONTINUE + +C...Transformation from CM frame. + IF(NPA.GE.2) THEN + BEX=PS(1)/PS(4) + BEY=PS(2)/PS(4) + BEZ=PS(3)/PS(4) + GA=PS(4)/PS(5) + GABEP=GA*(GA*(BEX*P(IPA(1),1)+BEY*P(IPA(1),2)+BEZ*P(IPA(1),3)) + & /(1D0+GA)-P(IPA(1),4)) + ELSE + BEX=0D0 + BEY=0D0 + BEZ=0D0 + GABEP=0D0 + ENDIF + THE=PYANGL(P(IPA(1),3)+GABEP*BEZ,SQRT((P(IPA(1),1) + &+GABEP*BEX)**2+(P(IPA(1),2)+GABEP*BEY)**2)) + PHI=PYANGL(P(IPA(1),1)+GABEP*BEX,P(IPA(1),2)+GABEP*BEY) + IF(NPA.EQ.3) THEN + CHI=PYANGL(COS(THE)*COS(PHI)*(P(IPA(2),1)+GABEP*BEX)+COS(THE)* + & SIN(PHI)*(P(IPA(2),2)+GABEP*BEY)-SIN(THE)*(P(IPA(2),3)+GABEP* + & BEZ),-SIN(PHI)*(P(IPA(2),1)+GABEP*BEX)+COS(PHI)*(P(IPA(2),2)+ + & GABEP*BEY)) + MSTU(33)=1 + CALL PYROBO(NS+1,N,0D0,CHI,0D0,0D0,0D0) + ENDIF + MSTU(33)=1 + CALL PYROBO(NS+1,N,THE,PHI,BEX,BEY,BEZ) + +C...Decay vertex of shower. + DO 540 I=NS+1,N + DO 530 J=1,5 + V(I,J)=V(IP1,J) + 530 CONTINUE + 540 CONTINUE + +C...Delete trivial shower, else connect initiators. + IF(N.LE.NS+NPA+IIM) THEN + N=NS + ELSE + DO 550 IP=1,NPA + K(IPA(IP),1)=14 + K(IPA(IP),4)=K(IPA(IP),4)+NS+IIM+IP + K(IPA(IP),5)=K(IPA(IP),5)+NS+IIM+IP + K(NS+IIM+IP,3)=IPA(IP) + IF(IIM.EQ.1.AND.MSTU(16).NE.2) K(NS+IIM+IP,3)=NS+1 + IF(K(NS+IIM+IP,1).NE.1) THEN + K(NS+IIM+IP,4)=MSTU(5)*IPA(IP)+K(NS+IIM+IP,4) + K(NS+IIM+IP,5)=MSTU(5)*IPA(IP)+K(NS+IIM+IP,5) + ENDIF + 550 CONTINUE + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYBOEI +C...Modifies an event so as to approximately take into account +C...Bose-Einstein effects according to a simple phenomenological +C...parametrization. + + SUBROUTINE PYBOEI(NSAV) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ +C...Local arrays and data. + DIMENSION DPS(4),KFBE(9),NBE(0:10),BEI(100),BEI3(100), + &BEIW(100),BEI3W(100) + DATA KFBE/211,-211,111,321,-321,130,310,221,331/ +C...Statement function: squared invariant mass. + SDIP(I,J)=((P(I,4)+P(J,4))**2-(P(I,3)+P(J,3))**2- + &(P(I,2)+P(J,2))**2-(P(I,1)+P(J,1))**2) + +C...Boost event to overall CM frame. Calculate CM energy. + IF((MSTJ(51).NE.1.AND.MSTJ(51).NE.2).OR.N-NSAV.LE.1) RETURN + DO 100 J=1,4 + DPS(J)=0D0 + 100 CONTINUE + DO 120 I=1,N + KFA=IABS(K(I,2)) + IF(K(I,1).LE.10.AND.((KFA.GT.10.AND.KFA.LE.20).OR.KFA.EQ.22) + & .AND.K(I,3).GT.0) THEN + KFMA=IABS(K(K(I,3),2)) + IF(KFMA.GT.10.AND.KFMA.LE.80) K(I,1)=-K(I,1) + ENDIF + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 120 + DO 110 J=1,4 + DPS(J)=DPS(J)+P(I,J) + 110 CONTINUE + 120 CONTINUE + CALL PYROBO(0,0,0D0,0D0,-DPS(1)/DPS(4),-DPS(2)/DPS(4), + &-DPS(3)/DPS(4)) + PECM=0D0 + DO 130 I=1,N + IF(K(I,1).GE.1.AND.K(I,1).LE.10) PECM=PECM+P(I,4) + 130 CONTINUE + +C...Reserve copy of particles by species at end of record. + IWP=0 + IWN=0 + NBE(0)=N+MSTU(3) + NMAX=NBE(0) + SMMIN=PECM + DO 180 IBE=1,MIN(10,MSTJ(52)+1) + NBE(IBE)=NBE(IBE-1) + DO 170 I=NSAV+1,N + IF(IBE.EQ.MIN(10,MSTJ(52)+1)) THEN + DO 140 IIBE=1,IBE-1 + IF(K(I,2).EQ.KFBE(IIBE)) GOTO 170 + 140 CONTINUE + ELSE + IF(K(I,2).NE.KFBE(IBE)) GOTO 170 + ENDIF + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 170 + IF(NBE(IBE).GE.MSTU(4)-MSTU(32)-5) THEN + CALL PYERRM(11,'(PYBOEI:) no more memory left in PYJETS') + RETURN + ENDIF + NBE(IBE)=NBE(IBE)+1 + NMAX=NBE(IBE) + K(NBE(IBE),1)=I + K(NBE(IBE),5)=0 + SMMIN=MIN(SMMIN,P(I,5)) + IF(MSTJ(53).NE.0.OR.MSTJ(56).GT.0) THEN + IM=I + 150 IF(K(IM,3).GT.0) THEN + IM=K(IM,3) + IF(ABS(K(IM,2)).NE.24) GOTO 150 + K(NBE(IBE),5)=K(IM,2) + IF(IWP.EQ.0.AND.K(IM,2).EQ.24) IWP=IM + IF(IWN.EQ.0.AND.K(IM,2).EQ.-24) IWN=IM + ENDIF + ENDIF + DO 160 J=1,3 + P(NBE(IBE),J)=0D0 + V(NBE(IBE),J)=0D0 + 160 CONTINUE + P(NBE(IBE),5)=-1.0D0 + 170 CONTINUE + 180 CONTINUE + IF(NBE(MIN(9,MSTJ(52)))-NBE(0).LE.1) GOTO 500 + +C...Calculate separation between W+ and W- + SIGW=PARJ(93) + IF(IWP.GT.0.AND.IWN.GT.0.AND.MSTJ(56).GT.0) THEN + DMW=PMAS(24,1) + DGW=PMAS(24,2) + DMP=P(IWP,5) + DMN=P(IWN,5) + TAUPD=DMP/SQRT((DMP**2-DMW**2)**2+(DGW*(DMP**2)/DMW)**2) + TAUND=DMN/SQRT((DMN**2-DMW**2)**2+(DGW*(DMN**2)/DMW)**2) + TAUP=-TAUPD*LOG(PYR(IDUM)) + TAUN=-TAUND*LOG(PYR(IDUM)) + DXP=TAUP*PYP(IWP,8)/DMP + DXN=TAUN*PYP(IWN,8)/DMN + DX=DXP+DXN + SIGW=1.0D0/(1.0D0/PARJ(93)+REAL(MSTJ(56))*DX) + ELSE + SIGW=PARJ(93) + ENDIF + + IF(MSTJ(57).EQ.1.AND.MSTJ(54).LT.0) THEN + DO 210 IBE=1,MIN(9,MSTJ(52)) + DO 200 I1M=NBE(IBE-1)+1,NBE(IBE)-1 + Q2MIN=PECM**2 + I1=K(I1M,1) + DO 190 I2M=NBE(IBE-1)+1,NBE(IBE)-1 + IF(I2M.EQ.I1M) GOTO 190 + I2=K(I2M,1) + Q2=(P(I1,4)+P(I2,4))**2-(P(I1,1)+P(I2,1))**2- + & (P(I1,2)+P(I2,2))**2-(P(I1,3)+P(I2,3))**2- + & (P(I1,5)+P(I2,5))**2 + IF(Q2.GT.0.0D0.AND.Q2.LT.Q2MIN) THEN + Q2MIN=Q2 + ENDIF + 190 CONTINUE + P(I1M,5)=Q2MIN + 200 CONTINUE + 210 CONTINUE + ENDIF + +C...Tabulate integral for subsequent momentum shift. + DO 390 IBE=1,MIN(9,MSTJ(52)) + IF(IBE.NE.1.AND.IBE.NE.4.AND.IBE.LE.7) GOTO 260 + IF(IBE.EQ.1.AND.MAX(NBE(1)-NBE(0),NBE(2)-NBE(1),NBE(3)-NBE(2)) + & .LE.1) GOTO 260 + IF(IBE.EQ.4.AND.MAX(NBE(4)-NBE(3),NBE(5)-NBE(4),NBE(6)-NBE(5), + & NBE(7)-NBE(6)).LE.1) GOTO 260 + IF(IBE.GE.8.AND.NBE(IBE)-NBE(IBE-1).LE.1) GOTO 260 + IF(IBE.EQ.1) PMHQ=2D0*PYMASS(211) + IF(IBE.EQ.4) PMHQ=2D0*PYMASS(321) + IF(IBE.EQ.8) PMHQ=2D0*PYMASS(221) + IF(IBE.EQ.9) PMHQ=2D0*PYMASS(331) + QDEL=0.1D0*MIN(PMHQ,PARJ(93)) + QDEL3=0.1D0*MIN(PMHQ,PARJ(93)*3.0D0) + QDELW=0.1D0*MIN(PMHQ,SIGW) + QDEL3W=0.1D0*MIN(PMHQ,SIGW*3.0D0) + IF(MSTJ(51).EQ.1) THEN + NBIN=MIN(100,NINT(9D0*PARJ(93)/QDEL)) + NBIN3=MIN(100,NINT(27D0*PARJ(93)/QDEL3)) + NBINW=MIN(100,NINT(9D0*SIGW/QDELW)) + NBIN3W=MIN(100,NINT(27D0*SIGW/QDEL3W)) + BEEX=EXP(0.5D0*QDEL/PARJ(93)) + BEEX3=EXP(0.5D0*QDEL3/(3.0D0*PARJ(93))) + BEEXW=EXP(0.5D0*QDELW/SIGW) + BEEX3W=EXP(0.5D0*QDEL3W/(3.0D0*SIGW)) + BERT=EXP(-QDEL/PARJ(93)) + BERT3=EXP(-QDEL3/(3.0D0*PARJ(93))) + BERTW=EXP(-QDELW/SIGW) + BERT3W=EXP(-QDEL3W/(3.0D0*SIGW)) + ELSE + NBIN=MIN(100,NINT(3D0*PARJ(93)/QDEL)) + NBIN3=MIN(100,NINT(9D0*PARJ(93)/QDEL3)) + NBINW=MIN(100,NINT(3D0*SIGW/QDELW)) + NBIN3W=MIN(100,NINT(9D0*SIGW/QDEL3W)) + ENDIF + DO 220 IBIN=1,NBIN + QBIN=QDEL*(IBIN-0.5D0) + BEI(IBIN)=QDEL*(QBIN**2+QDEL**2/12D0)/SQRT(QBIN**2+PMHQ**2) + IF(MSTJ(51).EQ.1) THEN + BEEX=BEEX*BERT + BEI(IBIN)=BEI(IBIN)*BEEX + ELSE + BEI(IBIN)=BEI(IBIN)*EXP(-(QBIN/PARJ(93))**2) + ENDIF + IF(IBIN.GE.2) BEI(IBIN)=BEI(IBIN)+BEI(IBIN-1) + 220 CONTINUE + DO 230 IBIN=1,NBIN3 + QBIN=QDEL3*(IBIN-0.5D0) + BEI3(IBIN)=QDEL3*(QBIN**2+QDEL3**2/12D0)/SQRT(QBIN**2+PMHQ**2) + IF(MSTJ(51).EQ.1) THEN + BEEX3=BEEX3*BERT3 + BEI3(IBIN)=BEI3(IBIN)*BEEX3 + ELSE + BEI3(IBIN)=BEI3(IBIN)*EXP(-(QBIN/(3.0D0*PARJ(93)))**2) + ENDIF + IF(IBIN.GE.2) BEI3(IBIN)=BEI3(IBIN)+BEI3(IBIN-1) + 230 CONTINUE + DO 240 IBIN=1,NBINW + QBIN=QDELW*(IBIN-0.5D0) + BEIW(IBIN)=QDELW*(QBIN**2+QDELW**2/12D0)/SQRT(QBIN**2+PMHQ**2) + IF(MSTJ(51).EQ.1) THEN + BEEXW=BEEXW*BERTW + BEIW(IBIN)=BEIW(IBIN)*BEEXW + ELSE + BEIW(IBIN)=BEIW(IBIN)*EXP(-(QBIN/SIGW)**2) + ENDIF + IF(IBIN.GE.2) BEIW(IBIN)=BEIW(IBIN)+BEIW(IBIN-1) + 240 CONTINUE + DO 250 IBIN=1,NBIN3W + QBIN=QDEL3W*(IBIN-0.5D0) + BEI3W(IBIN)=QDEL3W*(QBIN**2+QDEL3W**2/12D0)/ + & SQRT(QBIN**2+PMHQ**2) + IF(MSTJ(51).EQ.1) THEN + BEEX3W=BEEX3W*BERT3W + BEI3W(IBIN)=BEI3W(IBIN)*BEEX3W + ELSE + BEI3W(IBIN)=BEI3W(IBIN)*EXP(-(QBIN/(3.0D0*SIGW))**2) + ENDIF + IF(IBIN.GE.2) BEI3W(IBIN)=BEI3W(IBIN)+BEI3W(IBIN-1) + 250 CONTINUE + +C...Loop through particle pairs and find old relative momentum. + 260 DO 380 I1M=NBE(IBE-1)+1,NBE(IBE)-1 + I1=K(I1M,1) + DO 370 I2M=I1M+1,NBE(IBE) + IF(MSTJ(53).EQ.1.AND.K(I1M,5).NE.K(I2M,5)) GOTO 370 + IF(MSTJ(53).EQ.2.AND.K(I1M,5).EQ.K(I2M,5)) GOTO 370 + I2=K(I2M,1) + Q2OLD=(P(I1,4)+P(I2,4))**2-(P(I1,1)+P(I2,1))**2-(P(I1,2)+ + & P(I2,2))**2-(P(I1,3)+P(I2,3))**2-(P(I1,5)+P(I2,5))**2 + IF(Q2OLD.LE.0.0D0) GOTO 370 + QOLD=SQRT(Q2OLD) + +C...Calculate new relative momentum. + QMOV=0.0D0 + QMOV3=0.0D0 + QMOVW=0.0D0 + QMOV3W=0.0D0 + IF(QOLD.LT.1D-3*QDEL) THEN + GOTO 270 + ELSEIF(QOLD.LE.QDEL) THEN + QMOV=QOLD/3D0 + ELSEIF(QOLD.LT.(NBIN-0.1D0)*QDEL) THEN + RBIN=QOLD/QDEL + IBIN=RBIN + RINP=(RBIN**3-IBIN**3)/(3*IBIN*(IBIN+1)+1) + QMOV=(BEI(IBIN)+RINP*(BEI(IBIN+1)-BEI(IBIN)))* + & SQRT(Q2OLD+PMHQ**2)/Q2OLD + ELSE + QMOV=BEI(NBIN)*SQRT(Q2OLD+PMHQ**2)/Q2OLD + ENDIF + 270 Q2NEW=Q2OLD*(QOLD/(QOLD+3D0*PARJ(92)*QMOV))**(2D0/3D0) + IF(QOLD.LT.1D-3*QDEL3) THEN + GOTO 280 + ELSEIF(QOLD.LE.QDEL3) THEN + QMOV3=QOLD/3D0 + ELSEIF(QOLD.LT.(NBIN3-0.1D0)*QDEL3) THEN + RBIN3=QOLD/QDEL3 + IBIN3=RBIN3 + RINP3=(RBIN3**3-IBIN3**3)/(3*IBIN3*(IBIN3+1)+1) + QMOV3=(BEI3(IBIN3)+RINP3*(BEI3(IBIN3+1)-BEI3(IBIN3)))* + & SQRT(Q2OLD+PMHQ**2)/Q2OLD + ELSE + QMOV3=BEI3(NBIN3)*SQRT(Q2OLD+PMHQ**2)/Q2OLD + ENDIF + 280 Q2NEW3=Q2OLD*(QOLD/(QOLD+3D0*PARJ(92)*QMOV3))**(2D0/3D0) + RSCALE=1.0D0 + IF(MSTJ(54).EQ.2) + & RSCALE=1.0D0-EXP(-(QOLD/(2D0*PARJ(93)))**2) + IF(MSTJ(56).LE.0.OR.IWP.EQ.0.OR.IWN.EQ.0.OR. + & K(I1M,5).EQ.K(I2M,5)) GOTO 310 + + IF(QOLD.LT.1D-3*QDELW) THEN + GOTO 290 + ELSEIF(QOLD.LE.QDELW) THEN + QMOVW=QOLD/3D0 + ELSEIF(QOLD.LT.(NBINW-0.1D0)*QDELW) THEN + RBINW=QOLD/QDELW + IBINW=RBINW + RINPW=(RBINW**3-IBINW**3)/(3*IBINW*(IBINW+1)+1) + QMOVW=(BEIW(IBINW)+RINPW*(BEIW(IBINW+1)-BEIW(IBINW)))* + & SQRT(Q2OLD+PMHQ**2)/Q2OLD + ELSE + QMOVW=BEIW(NBINW)*SQRT(Q2OLD+PMHQ**2)/Q2OLD + ENDIF + 290 Q2NEW=Q2OLD*(QOLD/(QOLD+3D0*PARJ(92)*QMOVW))**(2D0/3D0) + IF(QOLD.LT.1D-3*QDEL3W) THEN + GOTO 300 + ELSEIF(QOLD.LE.QDEL3W) THEN + QMOV3W=QOLD/3D0 + ELSEIF(QOLD.LT.(NBIN3W-0.1D0)*QDEL3W) THEN + RBIN3W=QOLD/QDEL3W + IBIN3W=RBIN3W + RINP3W=(RBIN3W**3-IBIN3W**3)/(3*IBIN3W*(IBIN3W+1)+1) + QMOV3W=(BEI3W(IBIN3W)+RINP3W*(BEI3W(IBIN3W+1)- + & BEI3W(IBIN3W)))*SQRT(Q2OLD+PMHQ**2)/Q2OLD + ELSE + QMOV3W=BEI3W(NBIN3W)*SQRT(Q2OLD+PMHQ**2)/Q2OLD + ENDIF + 300 Q2NEW3=Q2OLD*(QOLD/(QOLD+3D0*PARJ(92)*QMOV3W))**(2D0/3D0) + IF(MSTJ(54).EQ.2) + & RSCALE=1.0D0-EXP(-(QOLD/(2D0*SIGW))**2) + + 310 CALL PYBESQ(I1,I2,NMAX,Q2OLD,Q2NEW) + DO 320 J=1,3 + P(I1M,J)=P(I1M,J)+P(NMAX+1,J) + P(I2M,J)=P(I2M,J)+P(NMAX+2,J) + 320 CONTINUE + IF(MSTJ(54).GE.1) THEN + CALL PYBESQ(I1,I2,NMAX,Q2OLD,Q2NEW3) + DO 330 J=1,3 + V(I1M,J)=V(I1M,J)+P(NMAX+1,J)*RSCALE + V(I2M,J)=V(I2M,J)+P(NMAX+2,J)*RSCALE + 330 CONTINUE + ELSEIF(MSTJ(54).LE.-1) THEN + EDEL=P(I1,4)+P(I2,4)- + & SQRT(MAX(Q2NEW-Q2OLD+(P(I1,4)+P(I2,4))**2,0.0D0)) + A2=(P(I1,1)-P(I2,1))**2+(P(I1,2)-P(I2,2))**2+ + & (P(I1,3)-P(I2,3))**2 + WMAX=-1.0D20 + MI3=0 + MI4=0 + S12=SDIP(I1,I2) + SM1=(P(I1,5)+SMMIN)**2 + DO 350 I3M=NBE(0)+1,NBE(MIN(10,MSTJ(52)+1)) + IF(I3M.EQ.I1M.OR.I3M.EQ.I2M) GOTO 350 + IF(MSTJ(53).EQ.1.AND.K(I3M,5).NE.K(I1M,5)) GOTO 350 + IF(MSTJ(53).EQ.-2.AND.K(I1M,5).EQ.K(I2M,5).AND. + & K(I3M,5).NE.K(I1M,5)) GOTO 350 + I3=K(I3M,1) + IF(K(I3,2).EQ.K(I1,2)) GOTO 350 + S13=SDIP(I1,I3) + S23=SDIP(I2,I3) + SM3=(P(I3,5)+SMMIN)**2 + IF(MSTJ(54).EQ.-2) THEN + WI=(MIN(S12*SM3,S13*MIN(SM1,SM3), + & S23*MIN(SM1,SM3))*SM1) + ELSE + WI=((P(I1,4)+P(I2,4)+P(I3,4))**2- + & (P(I1,3)+P(I2,3)+P(I3,3))**2- + & (P(I1,2)+P(I2,2)+P(I3,2))**2- + & (P(I1,1)+P(I2,1)+P(I3,1))**2) + ENDIF + IF(MSTJ(57).EQ.1.AND.P(I3M,5).GT.0) THEN + IF (WMAX*WI.GE.(1.0D0-EXP(-P(I3M,5)/(PARJ(93)**2)))) + & GOTO 350 + ELSE + IF(WMAX*WI.GE.1.0) GOTO 350 + ENDIF + DO 340 I4M=I3M+1,NBE(MIN(10,MSTJ(52)+1)) + IF(I4M.EQ.I1M.OR.I4M.EQ.I2M) GOTO 340 + IF(MSTJ(53).EQ.1.AND.K(I4M,5).NE.K(I1M,5)) GOTO 340 + IF(MSTJ(53).EQ.-2.AND.K(I1M,5).EQ.K(I2M,5).AND. + & K(I4M,5).NE.K(I1M,5)) GOTO 340 + I4=K(I4M,1) + IF(K(I3,2).EQ.K(I4,2).OR.K(I4,2).EQ.K(I1,2)) + & GOTO 340 + IF((P(I3,4)+P(I4,4)+EDEL)**2.LT. + & (P(I3,1)+P(I4,1))**2+(P(I3,2)+P(I4,2))**2+ + & (P(I3,3)+P(I4,3))**2+(P(I3,5)+P(I4,5))**2) + & GOTO 340 + IF(MSTJ(54).EQ.-2) THEN + S14=SDIP(I1,I4) + S24=SDIP(I2,I4) + S34=SDIP(I3,I4) + W=S12*MIN(MIN(S23,S24),MIN(S13,S14))*S34 + W=MIN(W,S13*MIN(MIN(S23,S34),S12)*S24) + W=MIN(W,S14*MIN(MIN(S24,S34),S12)*S23) + W=MIN(W,MIN(S23,S24)*S13*S14) + W=1.0D0/W + ELSE +C...weight=1-cos(theta)/mtot2 + S1234=(P(I1,4)+P(I2,4)+P(I3,4)+P(I4,4))**2- + & (P(I1,3)+P(I2,3)+P(I3,3)+P(I4,3))**2- + & (P(I1,2)+P(I2,2)+P(I3,2)+P(I4,2))**2- + & (P(I1,1)+P(I2,1)+P(I3,1)+P(I4,1))**2 + W=1.0D0/S1234 + IF(W.LE.WMAX) GOTO 340 + ENDIF + IF(MSTJ(57).EQ.1.AND.P(I3M,5).GT.0) + & W=W*(1.0D0-EXP(-P(I3M,5)/(PARJ(93)**2))) + IF(MSTJ(57).EQ.1.AND.P(I4M,5).GT.0) + & W=W*(1.0D0-EXP(-P(I4M,5)/(PARJ(93)**2))) + IF(W.LE.WMAX) GOTO 340 + MI3=I3M + MI4=I4M + WMAX=W + 340 CONTINUE + 350 CONTINUE + IF(MI4.EQ.0) GOTO 370 + I3=K(MI3,1) + I4=K(MI4,1) + EOLD=P(I3,4)+P(I4,4) + ENEW=EOLD+EDEL + P2=(P(I3,1)+P(I4,1))**2+(P(I3,2)+P(I4,2))**2+ + & (P(I3,3)+P(I4,3))**2 + Q2NEWP=MAX(0.0D0,ENEW**2-P2-(P(I3,5)+P(I4,5))**2) + Q2OLDP=MAX(0.0D0,EOLD**2-P2-(P(I3,5)+P(I4,5))**2) + CALL PYBESQ(I3,I4,NMAX,Q2OLDP,Q2NEWP) + DO 360 J=1,3 + V(MI3,J)=V(MI3,J)+P(NMAX+1,J) + V(MI4,J)=V(MI4,J)+P(NMAX+2,J) + 360 CONTINUE + ENDIF + 370 CONTINUE + 380 CONTINUE + 390 CONTINUE + +C...Shift momenta and recalculate energies. + ESUMP=0.0D0 + ESUM=0.0D0 + PROD=0.0D0 + DO 420 IM=NBE(0)+1,NBE(MIN(10,MSTJ(52)+1)) + I=K(IM,1) + ESUMP=ESUMP+P(I,4) + DO 400 J=1,3 + P(I,J)=P(I,J)+P(IM,J) + 400 CONTINUE + P(I,4)=SQRT(P(I,5)**2+P(I,1)**2+P(I,2)**2+P(I,3)**2) + ESUM=ESUM+P(I,4) + DO 410 J=1,3 + PROD=PROD+V(IM,J)*P(I,J)/P(I,4) + 410 CONTINUE + 420 CONTINUE + + PARJ(96)=0.0D0 + IF(MSTJ(54).NE.0.AND.PROD.NE.0.0D0) THEN + 430 ALPHA=(ESUMP-ESUM)/PROD + PARJ(96)=PARJ(96)+ALPHA + PROD=0.0D0 + ESUM=0.0D0 + DO 460 IM=NBE(0)+1,NBE(MIN(10,MSTJ(52)+1)) + I=K(IM,1) + DO 440 J=1,3 + P(I,J)=P(I,J)+ALPHA*V(IM,J) + 440 CONTINUE + P(I,4)=SQRT(P(I,5)**2+P(I,1)**2+P(I,2)**2+P(I,3)**2) + ESUM=ESUM+P(I,4) + DO 450 J=1,3 + PROD=PROD+V(IM,J)*P(I,J)/P(I,4) + 450 CONTINUE + 460 CONTINUE + IF(PROD.NE.0.0D0.AND.ABS(ESUMP-ESUM)/PECM.GT.0.00001D0) + & GOTO 430 + ENDIF + +C...Rescale all momenta for energy conservation. + PES=0D0 + PQS=0D0 + DO 470 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 470 + PES=PES+P(I,4) + PQS=PQS+P(I,5)**2/P(I,4) + 470 CONTINUE + PARJ(95)=PES-PECM + FAC=(PECM-PQS)/(PES-PQS) + DO 490 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 490 + DO 480 J=1,3 + P(I,J)=FAC*P(I,J) + 480 CONTINUE + P(I,4)=SQRT(P(I,5)**2+P(I,1)**2+P(I,2)**2+P(I,3)**2) + 490 CONTINUE + +C...Boost back to correct reference frame. + 500 CALL PYROBO(0,0,0D0,0D0,DPS(1)/DPS(4),DPS(2)/DPS(4),DPS(3)/DPS(4)) + DO 510 I=1,N + IF(K(I,1).LT.0) K(I,1)=-K(I,1) + 510 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYBESQ +C...Calculates the momentum shift in a system of two particles assuming +C...the relative momentum squared should be shifted to Q2NEW. NI is the +C...last position occupied in /PYJETS/. + + SUBROUTINE PYBESQ(I1,I2,NI,Q2OLD,Q2NEW) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYJETS/,/PYDAT1/ +C...Local arrays and data. + DIMENSION DP(5) + SAVE HC1 + + IF(MSTJ(55).EQ.0) THEN + DQ2=Q2NEW-Q2OLD + DP2=(P(I1,1)-P(I2,1))**2+(P(I1,2)-P(I2,2))**2+ + & (P(I1,3)-P(I2,3))**2 + DP12=P(I1,1)**2+P(I1,2)**2+P(I1,3)**2 + & -P(I2,1)**2-P(I2,2)**2-P(I2,3)**2 + SE=P(I1,4)+P(I2,4) + DE=P(I1,4)-P(I2,4) + DQ2SE=DQ2+SE**2 + DA=SE*DE*DP12-DP2*DQ2SE + DB=DP2*DQ2SE-DP12**2 + HA=(DA+SQRT(MAX(DA**2+DQ2*(DQ2+SE**2-DE**2)*DB,0D0)))/(2D0*DB) + DO 100 J=1,3 + PD=HA*(P(I1,J)-P(I2,J)) + P(NI+1,J)=PD + P(NI+2,J)=-PD + 100 CONTINUE + RETURN + ENDIF + + K(NI+1,1)=1 + K(NI+2,1)=1 + DO 110 J=1,5 + P(NI+1,J)=P(I1,J) + P(NI+2,J)=P(I2,J) + DP(J)=P(I1,J)+P(I2,J) + 110 CONTINUE + +C...Boost to cms and rotate first particle to z-axis + CALL PYROBO(NI+1,NI+2,0.0D0,0.0D0, + &-DP(1)/DP(4),-DP(2)/DP(4),-DP(3)/DP(4)) + PHI=PYANGL(P(NI+1,1),P(NI+1,2)) + THE=PYANGL(P(NI+1,3),SQRT(P(NI+1,1)**2+P(NI+1,2)**2)) + S=Q2NEW+(P(I1,5)+P(I2,5))**2 + PZ=0.5D0*SQRT(Q2NEW*(S-(P(I1,5)-P(I2,5))**2)/S) + P(NI+1,1)=0.0D0 + P(NI+1,2)=0.0D0 + P(NI+1,3)=PZ + P(NI+1,4)=SQRT(PZ**2+P(I1,5)**2) + P(NI+2,1)=0.0D0 + P(NI+2,2)=0.0D0 + P(NI+2,3)=-PZ + P(NI+2,4)=SQRT(PZ**2+P(I2,5)**2) + DP(4)=SQRT(DP(1)**2+DP(2)**2+DP(3)**2+S) + CALL PYROBO(NI+1,NI+2,THE,PHI, + &DP(1)/DP(4),DP(2)/DP(4),DP(3)/DP(4)) + + DO 120 J=1,3 + P(NI+1,J)=P(NI+1,J)-P(I1,J) + P(NI+2,J)=P(NI+2,J)-P(I2,J) + 120 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYMASS +C...Gives the mass of a particle/parton. + + FUNCTION PYMASS(KF) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYDAT1/,/PYDAT2/ + +C...Reset variables. Compressed code. Special case for popcorn diquarks. + PYMASS=0D0 + KFA=IABS(KF) + KC=PYCOMP(KF) + IF(KC.EQ.0) THEN + MSTJ(93)=0 + RETURN + ENDIF + +C...Guarantee use of constituent masses for internal checks. + IF((MSTJ(93).EQ.1.OR.MSTJ(93).EQ.2).AND. + &(KFA.LE.10.OR.MOD(KFA/10,10).EQ.0)) THEN + PARF(106)=PMAS(6,1) + PARF(107)=PMAS(7,1) + PARF(108)=PMAS(8,1) + IF(KFA.LE.10) THEN + PYMASS=PARF(100+KFA) + IF(MSTJ(93).EQ.2) PYMASS=MAX(0D0,PYMASS-PARF(121)) + ELSEIF(MSTJ(93).EQ.1) THEN + PYMASS=PARF(100+MOD(KFA/1000,10))+PARF(100+MOD(KFA/100,10)) + ELSE + PYMASS=MAX(0D0,PMAS(KC,1)-PARF(122)-2D0*PARF(112)/3D0) + ENDIF + +C...Other masses can be read directly off table. + ELSE + PYMASS=PMAS(KC,1) + ENDIF + +C...Optional mass broadening according to truncated Breit-Wigner +C...(either in m or in m^2). + IF(MSTJ(24).GE.1.AND.PMAS(KC,2).GT.1D-4) THEN + IF(MSTJ(24).EQ.1.OR.(MSTJ(24).EQ.2.AND.KFA.GT.100)) THEN + PYMASS=PYMASS+0.5D0*PMAS(KC,2)*TAN((2D0*PYR(0)-1D0)* + & ATAN(2D0*PMAS(KC,3)/PMAS(KC,2))) + ELSE + PM0=PYMASS + PMLOW=ATAN((MAX(0D0,PM0-PMAS(KC,3))**2-PM0**2)/ + & (PM0*PMAS(KC,2))) + PMUPP=ATAN(((PM0+PMAS(KC,3))**2-PM0**2)/(PM0*PMAS(KC,2))) + PYMASS=SQRT(MAX(0D0,PM0**2+PM0*PMAS(KC,2)*TAN(PMLOW+ + & (PMUPP-PMLOW)*PYR(0)))) + ENDIF + ENDIF + MSTJ(93)=0 + + RETURN + END + +C********************************************************************* + +C...PYMRUN +C...Gives the running, current-algebra mass of a d, u, s, c or b quark, +C...for Higgs couplings. Everything else sent on to PYMASS. + + FUNCTION PYMRUN(KF,Q2) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + SAVE /PYDAT1/,/PYDAT2/,/PYPARS/ + +C...Most masses not handled here. + KFA=IABS(KF) + IF(KFA.EQ.0.OR.KFA.GT.5) THEN + PYMRUN=PYMASS(KF) + +C...Current-algebra masses, but no Q2 dependence. + ELSEIF(MSTP(37).NE.1.OR.MSTP(2).LE.0) THEN + PYMRUN=PARF(90+KFA) + +C...Running current-algebra masses. + ELSE + AS=PYALPS(Q2) + PYMRUN=PARF(90+KFA)* + & (LOG(MAX(4D0,PARP(37)**2*PARF(90+KFA)**2/PARU(117)**2))/ + & LOG(MAX(4D0,Q2/PARU(117)**2)))**(12D0/(33D0-2D0*MSTU(118))) + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYNAME +C...Gives the particle/parton name as a character string. + + SUBROUTINE PYNAME(KF,CHAU) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT4/CHAF(500,2) + CHARACTER CHAF*16 + SAVE /PYDAT1/,/PYDAT2/,/PYDAT4/ +C...Local character variable. + CHARACTER CHAU*16 + +C...Read out code with distinction particle/antiparticle. + CHAU=' ' + KC=PYCOMP(KF) + IF(KC.NE.0) CHAU=CHAF(KC,(3-ISIGN(1,KF))/2) + + + RETURN + END + +C********************************************************************* + +C...PYCHGE +C...Gives three times the charge for a particle/parton. + + FUNCTION PYCHGE(KF) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYDAT2/ + +C...Read out charge and change sign for antiparticle. + PYCHGE=0 + KC=PYCOMP(KF) + IF(KC.NE.0) PYCHGE=KCHG(KC,1)*ISIGN(1,KF) + + RETURN + END + +C********************************************************************* + +C...PYCOMP +C...Compress the standard KF codes for use in mass and decay arrays; +C...also checks whether a given code actually is defined. + + FUNCTION PYCOMP(KF) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYDAT1/,/PYDAT2/ +C...Local arrays and saved data. + DIMENSION KFORD(100:500),KCORD(101:500) + SAVE KFORD,KCORD,NFORD,KFLAST,KCLAST + +C...Whenever necessary reorder codes for faster search. + IF(MSTU(20).EQ.0) THEN + NFORD=100 + KFORD(100)=0 + DO 120 I=101,500 + KFA=KCHG(I,4) + IF(KFA.LE.100) GOTO 120 + NFORD=NFORD+1 + DO 100 I1=NFORD-1,0,-1 + IF(KFA.GE.KFORD(I1)) GOTO 110 + KFORD(I1+1)=KFORD(I1) + KCORD(I1+1)=KCORD(I1) + 100 CONTINUE + 110 KFORD(I1+1)=KFA + KCORD(I1+1)=I + 120 CONTINUE + MSTU(20)=1 + KFLAST=0 + KCLAST=0 + ENDIF + +C...Fast action if same code as in latest call. + IF(KF.EQ.KFLAST) THEN + PYCOMP=KCLAST + RETURN + ENDIF + +C...Starting values. Remove internal diquark flags. + PYCOMP=0 + KFA=IABS(KF) + IF(MOD(KFA/10,10).EQ.0.AND.KFA.LT.100000 + & .AND.MOD(KFA/1000,10).GT.0) KFA=MOD(KFA,10000) + +C...Simple cases: direct translation. + IF(KFA.GT.KFORD(NFORD)) THEN + ELSEIF(KFA.LE.100) THEN + PYCOMP=KFA + +C...Else binary search. + ELSE + IMIN=100 + IMAX=NFORD+1 + 130 IAVG=(IMIN+IMAX)/2 + IF(KFORD(IAVG).GT.KFA) THEN + IMAX=IAVG + IF(IMAX.GT.IMIN+1) GOTO 130 + ELSEIF(KFORD(IAVG).LT.KFA) THEN + IMIN=IAVG + IF(IMAX.GT.IMIN+1) GOTO 130 + ELSE + PYCOMP=KCORD(IAVG) + ENDIF + ENDIF + +C...Check if antiparticle allowed. + IF(PYCOMP.NE.0.AND.KF.LT.0) THEN + IF(KCHG(PYCOMP,3).EQ.0) PYCOMP=0 + ENDIF + +C...Save codes for possible future fast action. + KFLAST=KF + KCLAST=PYCOMP + + RETURN + END + +C********************************************************************* + +C...PYERRM +C...Informs user of errors in program execution. + + SUBROUTINE PYERRM(MERR,CHMESS) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYJETS/,/PYDAT1/ +C...Local character variable. + CHARACTER CHMESS*(*) + +C...Write first few warnings, then be silent. + IF(MERR.LE.10) THEN + MSTU(27)=MSTU(27)+1 + MSTU(28)=MERR + IF(MSTU(25).EQ.1.AND.MSTU(27).LE.MSTU(26)) WRITE(MSTU(11),5000) + & MERR,MSTU(31),CHMESS + +C...Write first few errors, then be silent or stop program. + ELSEIF(MERR.LE.20) THEN + MSTU(23)=MSTU(23)+1 + MSTU(24)=MERR-10 + IF(MSTU(21).GE.1.AND.MSTU(23).LE.MSTU(22)) WRITE(MSTU(11),5100) + & MERR-10,MSTU(31),CHMESS + IF(MSTU(21).GE.2.AND.MSTU(23).GT.MSTU(22)) THEN + WRITE(MSTU(11),5100) MERR-10,MSTU(31),CHMESS + WRITE(MSTU(11),5200) + IF(MERR.NE.17) CALL PYLIST(2) + STOP + ENDIF + +C...Stop program in case of irreparable error. + ELSE + WRITE(MSTU(11),5300) MERR-20,MSTU(31),CHMESS + STOP + ENDIF + +C...Formats for output. + 5000 FORMAT(/5X,'Advisory warning type',I2,' given after',I9, + &' PYEXEC calls:'/5X,A) + 5100 FORMAT(/5X,'Error type',I2,' has occured after',I9, + &' PYEXEC calls:'/5X,A) + 5200 FORMAT(5X,'Execution will be stopped after listing of last ', + &'event!') + 5300 FORMAT(/5X,'Fatal error type',I2,' has occured after',I9, + &' PYEXEC calls:'/5X,A/5X,'Execution will now be stopped!') + + RETURN + END + +C********************************************************************* + +C...PYALEM +C...Calculates the running alpha_electromagnetic. + + FUNCTION PYALEM(Q2) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYDAT1/ + +C...Calculate real part of photon vacuum polarization. +C...For leptons simplify by using asymptotic (Q^2 >> m^2) expressions. +C...For hadrons use parametrization of H. Burkhardt et al. +C...See R. Kleiss et al, CERN 89-08, vol. 3, pp. 129-131. + AEMPI=PARU(101)/(3D0*PARU(1)) + IF(MSTU(101).LE.0.OR.Q2.LT.2D-6) THEN + RPIGG=0D0 + ELSEIF(MSTU(101).EQ.2.AND.Q2.LT.PARU(104)) THEN + RPIGG=0D0 + ELSEIF(MSTU(101).EQ.2) THEN + RPIGG=1D0-PARU(101)/PARU(103) + ELSEIF(Q2.LT.0.09D0) THEN + RPIGG=AEMPI*(13.4916D0+LOG(Q2))+0.00835D0*LOG(1D0+Q2) + ELSEIF(Q2.LT.9D0) THEN + RPIGG=AEMPI*(16.3200D0+2D0*LOG(Q2))+ + & 0.00238D0*LOG(1D0+3.927D0*Q2) + ELSEIF(Q2.LT.1D4) THEN + RPIGG=AEMPI*(13.4955D0+3D0*LOG(Q2))+0.00165D0+ + & 0.00299D0*LOG(1D0+Q2) + ELSE + RPIGG=AEMPI*(13.4955D0+3D0*LOG(Q2))+0.00221D0+ + & 0.00293D0*LOG(1D0+Q2) + ENDIF + +C...Calculate running alpha_em. + PYALEM=PARU(101)/(1D0-RPIGG) + PARU(108)=PYALEM + + RETURN + END + +C********************************************************************* + +C...PYALPS +C...Gives the value of alpha_strong. + + FUNCTION PYALPS(Q2) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYDAT1/,/PYDAT2/ + +C...Constant alpha_strong trivial. Pick artificial Lambda. + IF(MSTU(111).LE.0) THEN + PYALPS=PARU(111) + MSTU(118)=MSTU(112) + PARU(117)=0.2D0 + IF(Q2.GT.0.04D0) PARU(117)=SQRT(Q2)*EXP(-6D0*PARU(1)/ + & ((33D0-2D0*MSTU(112))*PARU(111))) + PARU(118)=PARU(111) + RETURN + ENDIF + +C...Find effective Q2, number of flavours and Lambda. + Q2EFF=Q2 + IF(MSTU(115).GE.2) Q2EFF=MAX(Q2,PARU(114)) + NF=MSTU(112) + ALAM2=PARU(112)**2 + 100 IF(NF.GT.MAX(2,MSTU(113))) THEN + Q2THR=PARU(113)*PMAS(NF,1)**2 + IF(Q2EFF.LT.Q2THR) THEN + NF=NF-1 + ALAM2=ALAM2*(Q2THR/ALAM2)**(2D0/(33D0-2D0*NF)) + GOTO 100 + ENDIF + ENDIF + 110 IF(NF.LT.MIN(8,MSTU(114))) THEN + Q2THR=PARU(113)*PMAS(NF+1,1)**2 + IF(Q2EFF.GT.Q2THR) THEN + NF=NF+1 + ALAM2=ALAM2*(ALAM2/Q2THR)**(2D0/(33D0-2D0*NF)) + GOTO 110 + ENDIF + ENDIF + IF(MSTU(115).EQ.1) Q2EFF=Q2EFF+ALAM2 + PARU(117)=SQRT(ALAM2) + +C...Evaluate first or second order alpha_strong. + B0=(33D0-2D0*NF)/6D0 + ALGQ=LOG(MAX(1.0001D0,Q2EFF/ALAM2)) + IF(MSTU(111).EQ.1) THEN + PYALPS=MIN(PARU(115),PARU(2)/(B0*ALGQ)) + ELSE + B1=(153D0-19D0*NF)/6D0 + PYALPS=MIN(PARU(115),PARU(2)/(B0*ALGQ)*(1D0-B1*LOG(ALGQ)/ + & (B0**2*ALGQ))) + ENDIF + MSTU(118)=NF + PARU(118)=PYALPS + + RETURN + END + +C********************************************************************* + +C...PYANGL +C...Reconstructs an angle from given x and y coordinates. + + FUNCTION PYANGL(X,Y) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYDAT1/ + + PYANGL=0D0 + R=SQRT(X**2+Y**2) + IF(R.LT.1D-20) RETURN + IF(ABS(X)/R.LT.0.8D0) THEN + PYANGL=SIGN(ACOS(X/R),Y) + ELSE + PYANGL=ASIN(Y/R) + IF(X.LT.0D0.AND.PYANGL.GE.0D0) THEN + PYANGL=PARU(1)-PYANGL + ELSEIF(X.LT.0D0) THEN + PYANGL=-PARU(1)-PYANGL + ENDIF + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYR +C...Generates random numbers uniformly distributed between +C...0 and 1, excluding the endpoints. + + FUNCTION PYR(IDUMMY) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDATR/MRPY(6),RRPY(100) + SAVE /PYDATR/ +C...Equivalence between commonblock and local variables. + EQUIVALENCE (MRPY1,MRPY(1)),(MRPY2,MRPY(2)),(MRPY3,MRPY(3)), + &(MRPY4,MRPY(4)),(MRPY5,MRPY(5)),(MRPY6,MRPY(6)), + &(RRPY98,RRPY(98)),(RRPY99,RRPY(99)),(RRPY00,RRPY(100)) + +C...Initialize generation from given seed. + IF(MRPY2.EQ.0) THEN + IJ=MOD(MRPY1/30082,31329) + KL=MOD(MRPY1,30082) + I=MOD(IJ/177,177)+2 + J=MOD(IJ,177)+2 + K=MOD(KL/169,178)+1 + L=MOD(KL,169) + DO 110 II=1,97 + S=0D0 + T=0.5D0 + DO 100 JJ=1,48 + M=MOD(MOD(I*J,179)*K,179) + I=J + J=K + K=M + L=MOD(53*L+1,169) + IF(MOD(L*M,64).GE.32) S=S+T + T=0.5D0*T + 100 CONTINUE + RRPY(II)=S + 110 CONTINUE + TWOM24=1D0 + DO 120 I24=1,24 + TWOM24=0.5D0*TWOM24 + 120 CONTINUE + RRPY98=362436D0*TWOM24 + RRPY99=7654321D0*TWOM24 + RRPY00=16777213D0*TWOM24 + MRPY2=1 + MRPY3=0 + MRPY4=97 + MRPY5=33 + ENDIF + +C...Generate next random number. + 130 RUNI=RRPY(MRPY4)-RRPY(MRPY5) + IF(RUNI.LT.0D0) RUNI=RUNI+1D0 + RRPY(MRPY4)=RUNI + MRPY4=MRPY4-1 + IF(MRPY4.EQ.0) MRPY4=97 + MRPY5=MRPY5-1 + IF(MRPY5.EQ.0) MRPY5=97 + RRPY98=RRPY98-RRPY99 + IF(RRPY98.LT.0D0) RRPY98=RRPY98+RRPY00 + RUNI=RUNI-RRPY98 + IF(RUNI.LT.0D0) RUNI=RUNI+1D0 + IF(RUNI.LE.0D0.OR.RUNI.GE.1D0) GOTO 130 + +C...Update counters. Random number to output. + MRPY3=MRPY3+1 + IF(MRPY3.EQ.1000000000) THEN + MRPY2=MRPY2+1 + MRPY3=0 + ENDIF + PYR=RUNI + + RETURN + END + +C********************************************************************* + +C...PYRGET +C...Dumps the state of the random number generator on a file +C...for subsequent startup from this state onwards. + + SUBROUTINE PYRGET(LFN,MOVE) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDATR/MRPY(6),RRPY(100) + SAVE /PYDATR/ +C...Local character variable. + CHARACTER CHERR*8 + +C...Backspace required number of records (or as many as there are). + IF(MOVE.LT.0) THEN + NBCK=MIN(MRPY(6),-MOVE) + DO 100 IBCK=1,NBCK + BACKSPACE(LFN,ERR=110,IOSTAT=IERR) + 100 CONTINUE + MRPY(6)=MRPY(6)-NBCK + ENDIF + +C...Unformatted write on unit LFN. + WRITE(LFN,ERR=110,IOSTAT=IERR) (MRPY(I1),I1=1,5), + &(RRPY(I2),I2=1,100) + MRPY(6)=MRPY(6)+1 + RETURN + +C...Write error. + 110 WRITE(CHERR,'(I8)') IERR + CALL PYERRM(18,'(PYRGET:) error when accessing file, IOSTAT ='// + &CHERR) + + RETURN + END + +C********************************************************************* + +C...PYRSET +C...Reads a state of the random number generator from a file +C...for subsequent generation from this state onwards. + + SUBROUTINE PYRSET(LFN,MOVE) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDATR/MRPY(6),RRPY(100) + SAVE /PYDATR/ +C...Local character variable. + CHARACTER CHERR*8 + +C...Backspace required number of records (or as many as there are). + IF(MOVE.LT.0) THEN + NBCK=MIN(MRPY(6),-MOVE) + DO 100 IBCK=1,NBCK + BACKSPACE(LFN,ERR=120,IOSTAT=IERR) + 100 CONTINUE + MRPY(6)=MRPY(6)-NBCK + ENDIF + +C...Unformatted read from unit LFN. + NFOR=1+MAX(0,MOVE) + DO 110 IFOR=1,NFOR + READ(LFN,ERR=120,IOSTAT=IERR) (MRPY(I1),I1=1,5), + & (RRPY(I2),I2=1,100) + 110 CONTINUE + MRPY(6)=MRPY(6)+NFOR + RETURN + +C...Write error. + 120 WRITE(CHERR,'(I8)') IERR + CALL PYERRM(18,'(PYRSET:) error when accessing file, IOSTAT ='// + &CHERR) + + RETURN + END + +C********************************************************************* + +C...PYROBO +C...Performs rotations and boosts. + + SUBROUTINE PYROBO(IMI,IMA,THE,PHI,BEX,BEY,BEZ) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYJETS/,/PYDAT1/ +C...Local arrays. + DIMENSION ROT(3,3),PR(3),VR(3),DP(4),DV(4) + +C...Find and check range of rotation/boost. + IMIN=IMI + IF(IMIN.LE.0) IMIN=1 + IF(MSTU(1).GT.0) IMIN=MSTU(1) + IMAX=IMA + IF(IMAX.LE.0) IMAX=N + IF(MSTU(2).GT.0) IMAX=MSTU(2) + IF(IMIN.GT.MSTU(4).OR.IMAX.GT.MSTU(4)) THEN + CALL PYERRM(11,'(PYROBO:) range outside PYJETS memory') + RETURN + ENDIF + +C...Optional resetting of V (when not set before.) + IF(MSTU(33).NE.0) THEN + DO 110 I=MIN(IMIN,MSTU(4)),MIN(IMAX,MSTU(4)) + DO 100 J=1,5 + V(I,J)=0D0 + 100 CONTINUE + 110 CONTINUE + MSTU(33)=0 + ENDIF + +C...Rotate, typically from z axis to direction (theta,phi). + IF(THE**2+PHI**2.GT.1D-20) THEN + ROT(1,1)=COS(THE)*COS(PHI) + ROT(1,2)=-SIN(PHI) + ROT(1,3)=SIN(THE)*COS(PHI) + ROT(2,1)=COS(THE)*SIN(PHI) + ROT(2,2)=COS(PHI) + ROT(2,3)=SIN(THE)*SIN(PHI) + ROT(3,1)=-SIN(THE) + ROT(3,2)=0D0 + ROT(3,3)=COS(THE) + DO 140 I=IMIN,IMAX + IF(K(I,1).LE.0) GOTO 140 + DO 120 J=1,3 + PR(J)=P(I,J) + VR(J)=V(I,J) + 120 CONTINUE + DO 130 J=1,3 + P(I,J)=ROT(J,1)*PR(1)+ROT(J,2)*PR(2)+ROT(J,3)*PR(3) + V(I,J)=ROT(J,1)*VR(1)+ROT(J,2)*VR(2)+ROT(J,3)*VR(3) + 130 CONTINUE + 140 CONTINUE + ENDIF + +C...Boost, typically from rest to momentum/energy=beta. + IF(BEX**2+BEY**2+BEZ**2.GT.1D-20) THEN + DBX=BEX + DBY=BEY + DBZ=BEZ + DB=SQRT(DBX**2+DBY**2+DBZ**2) + EPS1=1D0-1D-12 + IF(DB.GT.EPS1) THEN +C...Rescale boost vector if too close to unity. + CALL PYERRM(3,'(PYROBO:) boost vector too large') + DBX=DBX*(EPS1/DB) + DBY=DBY*(EPS1/DB) + DBZ=DBZ*(EPS1/DB) + DB=EPS1 + ENDIF + DGA=1D0/SQRT(1D0-DB**2) + DO 160 I=IMIN,IMAX + IF(K(I,1).LE.0) GOTO 160 + DO 150 J=1,4 + DP(J)=P(I,J) + DV(J)=V(I,J) + 150 CONTINUE + DBP=DBX*DP(1)+DBY*DP(2)+DBZ*DP(3) + DGABP=DGA*(DGA*DBP/(1D0+DGA)+DP(4)) + P(I,1)=DP(1)+DGABP*DBX + P(I,2)=DP(2)+DGABP*DBY + P(I,3)=DP(3)+DGABP*DBZ + P(I,4)=DGA*(DP(4)+DBP) + DBV=DBX*DV(1)+DBY*DV(2)+DBZ*DV(3) + DGABV=DGA*(DGA*DBV/(1D0+DGA)+DV(4)) + V(I,1)=DV(1)+DGABV*DBX + V(I,2)=DV(2)+DGABV*DBY + V(I,3)=DV(3)+DGABV*DBZ + V(I,4)=DGA*(DV(4)+DBV) + 160 CONTINUE + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYEDIT +C...Performs global manipulations on the event record, in particular +C...to exclude unstable or undetectable partons/particles. + + SUBROUTINE PYEDIT(MEDIT) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ +C...Local arrays. + DIMENSION NS(2),PTS(2),PLS(2) + +C...Remove unwanted partons/particles. + IF((MEDIT.GE.0.AND.MEDIT.LE.3).OR.MEDIT.EQ.5) THEN + IMAX=N + IF(MSTU(2).GT.0) IMAX=MSTU(2) + I1=MAX(1,MSTU(1))-1 + DO 110 I=MAX(1,MSTU(1)),IMAX + IF(K(I,1).EQ.0.OR.K(I,1).GT.20) GOTO 110 + IF(MEDIT.EQ.1) THEN + IF(K(I,1).GT.10) GOTO 110 + ELSEIF(MEDIT.EQ.2) THEN + IF(K(I,1).GT.10) GOTO 110 + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0.OR.KC.EQ.12.OR.KC.EQ.14.OR.KC.EQ.16.OR.KC.EQ.18) + & GOTO 110 + ELSEIF(MEDIT.EQ.3) THEN + IF(K(I,1).GT.10) GOTO 110 + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0) GOTO 110 + IF(KCHG(KC,2).EQ.0.AND.PYCHGE(K(I,2)).EQ.0) GOTO 110 + ELSEIF(MEDIT.EQ.5) THEN + IF(K(I,1).EQ.13.OR.K(I,1).EQ.14) GOTO 110 + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0) GOTO 110 + IF(K(I,1).GE.11.AND.KCHG(KC,2).EQ.0) GOTO 110 + ENDIF + +C...Pack remaining partons/particles. Origin no longer known. + I1=I1+1 + DO 100 J=1,5 + K(I1,J)=K(I,J) + P(I1,J)=P(I,J) + V(I1,J)=V(I,J) + 100 CONTINUE + K(I1,3)=0 + 110 CONTINUE + IF(I1.LT.N) MSTU(3)=0 + IF(I1.LT.N) MSTU(70)=0 + N=I1 + +C...Selective removal of class of entries. New position of retained. + ELSEIF(MEDIT.GE.11.AND.MEDIT.LE.15) THEN + I1=0 + DO 120 I=1,N + K(I,3)=MOD(K(I,3),MSTU(5)) + IF(MEDIT.EQ.11.AND.K(I,1).LT.0) GOTO 120 + IF(MEDIT.EQ.12.AND.K(I,1).EQ.0) GOTO 120 + IF(MEDIT.EQ.13.AND.(K(I,1).EQ.11.OR.K(I,1).EQ.12.OR. + & K(I,1).EQ.15).AND.K(I,2).NE.94) GOTO 120 + IF(MEDIT.EQ.14.AND.(K(I,1).EQ.13.OR.K(I,1).EQ.14.OR. + & K(I,2).EQ.94)) GOTO 120 + IF(MEDIT.EQ.15.AND.K(I,1).GE.21) GOTO 120 + I1=I1+1 + K(I,3)=K(I,3)+MSTU(5)*I1 + 120 CONTINUE + +C...Find new event history information and replace old. + DO 140 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.20.OR.K(I,3)/MSTU(5).EQ.0) + & GOTO 140 + ID=I + 130 IM=MOD(K(ID,3),MSTU(5)) + IF(MEDIT.EQ.13.AND.IM.GT.0.AND.IM.LE.N) THEN + IF((K(IM,1).EQ.11.OR.K(IM,1).EQ.12.OR.K(IM,1).EQ.15).AND. + & K(IM,2).NE.94) THEN + ID=IM + GOTO 130 + ENDIF + ELSEIF(MEDIT.EQ.14.AND.IM.GT.0.AND.IM.LE.N) THEN + IF(K(IM,1).EQ.13.OR.K(IM,1).EQ.14.OR.K(IM,2).EQ.94) THEN + ID=IM + GOTO 130 + ENDIF + ENDIF + K(I,3)=MSTU(5)*(K(I,3)/MSTU(5)) + IF(IM.NE.0) K(I,3)=K(I,3)+K(IM,3)/MSTU(5) + IF(K(I,1).NE.3.AND.K(I,1).NE.13.AND.K(I,1).NE.14) THEN + IF(K(I,4).GT.0.AND.K(I,4).LE.MSTU(4)) K(I,4)= + & K(K(I,4),3)/MSTU(5) + IF(K(I,5).GT.0.AND.K(I,5).LE.MSTU(4)) K(I,5)= + & K(K(I,5),3)/MSTU(5) + ELSE + KCM=MOD(K(I,4)/MSTU(5),MSTU(5)) + IF(KCM.GT.0.AND.KCM.LE.MSTU(4)) KCM=K(KCM,3)/MSTU(5) + KCD=MOD(K(I,4),MSTU(5)) + IF(KCD.GT.0.AND.KCD.LE.MSTU(4)) KCD=K(KCD,3)/MSTU(5) + K(I,4)=MSTU(5)**2*(K(I,4)/MSTU(5)**2)+MSTU(5)*KCM+KCD + KCM=MOD(K(I,5)/MSTU(5),MSTU(5)) + IF(KCM.GT.0.AND.KCM.LE.MSTU(4)) KCM=K(KCM,3)/MSTU(5) + KCD=MOD(K(I,5),MSTU(5)) + IF(KCD.GT.0.AND.KCD.LE.MSTU(4)) KCD=K(KCD,3)/MSTU(5) + K(I,5)=MSTU(5)**2*(K(I,5)/MSTU(5)**2)+MSTU(5)*KCM+KCD + ENDIF + 140 CONTINUE + +C...Pack remaining entries. + I1=0 + MSTU90=MSTU(90) + MSTU(90)=0 + DO 170 I=1,N + IF(K(I,3)/MSTU(5).EQ.0) GOTO 170 + I1=I1+1 + DO 150 J=1,5 + K(I1,J)=K(I,J) + P(I1,J)=P(I,J) + V(I1,J)=V(I,J) + 150 CONTINUE + K(I1,3)=MOD(K(I1,3),MSTU(5)) + DO 160 IZ=1,MSTU90 + IF(I.EQ.MSTU(90+IZ)) THEN + MSTU(90)=MSTU(90)+1 + MSTU(90+MSTU(90))=I1 + PARU(90+MSTU(90))=PARU(90+IZ) + ENDIF + 160 CONTINUE + 170 CONTINUE + IF(I1.LT.N) MSTU(3)=0 + IF(I1.LT.N) MSTU(70)=0 + N=I1 + +C...Fill in some missing daughter pointers (lost in colour flow). + ELSEIF(MEDIT.EQ.16) THEN + DO 220 I=1,N + IF(K(I,1).LE.10.OR.K(I,1).GT.20) GOTO 220 + IF(K(I,4).NE.0.OR.K(I,5).NE.0) GOTO 220 +C...Find daughters who point to mother. + DO 180 I1=I+1,N + IF(K(I1,3).NE.I) THEN + ELSEIF(K(I,4).EQ.0) THEN + K(I,4)=I1 + ELSE + K(I,5)=I1 + ENDIF + 180 CONTINUE + IF(K(I,5).EQ.0) K(I,5)=K(I,4) + IF(K(I,4).NE.0) GOTO 220 +C...Find daughters who point to documentation version of mother. + IM=K(I,3) + IF(IM.LE.0.OR.IM.GE.I) GOTO 220 + IF(K(IM,1).LE.20.OR.K(IM,1).GT.30) GOTO 220 + IF(K(IM,2).NE.K(I,2).OR.ABS(P(IM,5)-P(I,5)).GT.1D-2) GOTO 220 + DO 190 I1=I+1,N + IF(K(I1,3).NE.IM) THEN + ELSEIF(K(I,4).EQ.0) THEN + K(I,4)=I1 + ELSE + K(I,5)=I1 + ENDIF + 190 CONTINUE + IF(K(I,5).EQ.0) K(I,5)=K(I,4) + IF(K(I,4).NE.0) GOTO 220 +C...Find daughters who point to documentation daughters who, +C...in their turn, point to documentation mother. + ID1=IM + ID2=IM + DO 200 I1=IM+1,I-1 + IF(K(I1,3).EQ.IM.AND.K(I1,1).GT.20.AND.K(I1,1).LE.30) THEN + ID2=I1 + IF(ID1.EQ.IM) ID1=I1 + ENDIF + 200 CONTINUE + DO 210 I1=I+1,N + IF(K(I1,3).NE.ID1.AND.K(I1,3).NE.ID2) THEN + ELSEIF(K(I,4).EQ.0) THEN + K(I,4)=I1 + ELSE + K(I,5)=I1 + ENDIF + 210 CONTINUE + IF(K(I,5).EQ.0) K(I,5)=K(I,4) + 220 CONTINUE + +C...Save top entries at bottom of PYJETS commonblock. + ELSEIF(MEDIT.EQ.21) THEN + IF(2*N.GE.MSTU(4)) THEN + CALL PYERRM(11,'(PYEDIT:) no more memory left in PYJETS') + RETURN + ENDIF + DO 240 I=1,N + DO 230 J=1,5 + K(MSTU(4)-I,J)=K(I,J) + P(MSTU(4)-I,J)=P(I,J) + V(MSTU(4)-I,J)=V(I,J) + 230 CONTINUE + 240 CONTINUE + MSTU(32)=N + +C...Restore bottom entries of commonblock PYJETS to top. + ELSEIF(MEDIT.EQ.22) THEN + DO 260 I=1,MSTU(32) + DO 250 J=1,5 + K(I,J)=K(MSTU(4)-I,J) + P(I,J)=P(MSTU(4)-I,J) + V(I,J)=V(MSTU(4)-I,J) + 250 CONTINUE + 260 CONTINUE + N=MSTU(32) + +C...Mark primary entries at top of commonblock PYJETS as untreated. + ELSEIF(MEDIT.EQ.23) THEN + I1=0 + DO 270 I=1,N + KH=K(I,3) + IF(KH.GE.1) THEN + IF(K(KH,1).GT.20) KH=0 + ENDIF + IF(KH.NE.0) GOTO 280 + I1=I1+1 + IF(K(I,1).GT.10.AND.K(I,1).LE.20) K(I,1)=K(I,1)-10 + 270 CONTINUE + 280 N=I1 + +C...Place largest axis along z axis and second largest in xy plane. + ELSEIF(MEDIT.EQ.31.OR.MEDIT.EQ.32) THEN + CALL PYROBO(1,N+MSTU(3),0D0,-PYANGL(P(MSTU(61),1), + & P(MSTU(61),2)),0D0,0D0,0D0) + CALL PYROBO(1,N+MSTU(3),-PYANGL(P(MSTU(61),3), + & P(MSTU(61),1)),0D0,0D0,0D0,0D0) + CALL PYROBO(1,N+MSTU(3),0D0,-PYANGL(P(MSTU(61)+1,1), + & P(MSTU(61)+1,2)),0D0,0D0,0D0) + IF(MEDIT.EQ.31) RETURN + +C...Rotate to put slim jet along +z axis. + DO 290 IS=1,2 + NS(IS)=0 + PTS(IS)=0D0 + PLS(IS)=0D0 + 290 CONTINUE + DO 300 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 300 + IF(MSTU(41).GE.2) THEN + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0.OR.KC.EQ.12.OR.KC.EQ.14.OR.KC.EQ.16.OR. + & KC.EQ.18) GOTO 300 + IF(MSTU(41).GE.3.AND.KCHG(KC,2).EQ.0.AND.PYCHGE(K(I,2)) + & .EQ.0) GOTO 300 + ENDIF + IS=2D0-SIGN(0.5D0,P(I,3)) + NS(IS)=NS(IS)+1 + PTS(IS)=PTS(IS)+SQRT(P(I,1)**2+P(I,2)**2) + 300 CONTINUE + IF(NS(1)*PTS(2)**2.LT.NS(2)*PTS(1)**2) + & CALL PYROBO(1,N+MSTU(3),PARU(1),0D0,0D0,0D0,0D0) + +C...Rotate to put second largest jet into -z,+x quadrant. + DO 310 I=1,N + IF(P(I,3).GE.0D0) GOTO 310 + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 310 + IF(MSTU(41).GE.2) THEN + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0.OR.KC.EQ.12.OR.KC.EQ.14.OR.KC.EQ.16.OR. + & KC.EQ.18) GOTO 310 + IF(MSTU(41).GE.3.AND.KCHG(KC,2).EQ.0.AND.PYCHGE(K(I,2)) + & .EQ.0) GOTO 310 + ENDIF + IS=2D0-SIGN(0.5D0,P(I,1)) + PLS(IS)=PLS(IS)-P(I,3) + 310 CONTINUE + IF(PLS(2).GT.PLS(1)) CALL PYROBO(1,N+MSTU(3),0D0,PARU(1), + & 0D0,0D0,0D0) + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYLIST +C...Gives program heading, or lists an event, or particle +C...data, or current parameter values. + + SUBROUTINE PYLIST(MLIST) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter statement to help give large particle numbers. + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYDAT3/ +C...Local arrays, character variables and data. + CHARACTER CHAP*16,CHAC*16,CHAN*16,CHAD(5)*16,CHDL(7)*4 + DIMENSION PS(6) + DATA CHDL/'(())',' ','()','!!','<>','==','(==)'/ + +C...Initialization printout: version number and date of last change. + IF(MLIST.EQ.0.OR.MSTU(12).EQ.1) THEN + CALL PYLOGO + MSTU(12)=0 + IF(MLIST.EQ.0) RETURN + ENDIF + +C...List event data, including additional lines after N. + IF(MLIST.GE.1.AND.MLIST.LE.3) THEN + IF(MLIST.EQ.1) WRITE(MSTU(11),5100) + IF(MLIST.EQ.2) WRITE(MSTU(11),5200) + IF(MLIST.EQ.3) WRITE(MSTU(11),5300) + LMX=12 + IF(MLIST.GE.2) LMX=16 + ISTR=0 + IMAX=N + IF(MSTU(2).GT.0) IMAX=MSTU(2) + DO 120 I=MAX(1,MSTU(1)),MAX(IMAX,N+MAX(0,MSTU(3))) + IF((I.GT.IMAX.AND.I.LE.N).OR.K(I,1).LT.0) GOTO 120 + +C...Get particle name, pad it and check it is not too long. + CALL PYNAME(K(I,2),CHAP) + LEN=0 + DO 100 LEM=1,16 + IF(CHAP(LEM:LEM).NE.' ') LEN=LEM + 100 CONTINUE + MDL=(K(I,1)+19)/10 + LDL=0 + IF(MDL.EQ.2.OR.MDL.GE.8) THEN + CHAC=CHAP + IF(LEN.GT.LMX) CHAC(LMX:LMX)='?' + ELSE + LDL=1 + IF(MDL.EQ.1.OR.MDL.EQ.7) LDL=2 + IF(LEN.EQ.0) THEN + CHAC=CHDL(MDL)(1:2*LDL)//' ' + ELSE + CHAC=CHDL(MDL)(1:LDL)//CHAP(1:MIN(LEN,LMX-2*LDL))// + & CHDL(MDL)(LDL+1:2*LDL)//' ' + IF(LEN+2*LDL.GT.LMX) CHAC(LMX:LMX)='?' + ENDIF + ENDIF + +C...Add information on string connection. + IF(K(I,1).EQ.1.OR.K(I,1).EQ.2.OR.K(I,1).EQ.11.OR.K(I,1).EQ.12) + & THEN + KC=PYCOMP(K(I,2)) + KCC=0 + IF(KC.NE.0) KCC=KCHG(KC,2) + IF(IABS(K(I,2)).EQ.39) THEN + IF(LEN+2*LDL+3.LE.LMX) CHAC(LMX-1:LMX-1)='X' + ELSEIF(KCC.NE.0.AND.ISTR.EQ.0) THEN + ISTR=1 + IF(LEN+2*LDL+3.LE.LMX) CHAC(LMX-1:LMX-1)='A' + ELSEIF(KCC.NE.0.AND.(K(I,1).EQ.2.OR.K(I,1).EQ.12)) THEN + IF(LEN+2*LDL+3.LE.LMX) CHAC(LMX-1:LMX-1)='I' + ELSEIF(KCC.NE.0) THEN + ISTR=0 + IF(LEN+2*LDL+3.LE.LMX) CHAC(LMX-1:LMX-1)='V' + ENDIF + ENDIF + +C...Write data for particle/jet. + IF(MLIST.EQ.1.AND.ABS(P(I,4)).LT.9999D0) THEN + WRITE(MSTU(11),5400) I,CHAC(1:12),(K(I,J1),J1=1,3), + & (P(I,J2),J2=1,5) + ELSEIF(MLIST.EQ.1.AND.ABS(P(I,4)).LT.99999D0) THEN + WRITE(MSTU(11),5500) I,CHAC(1:12),(K(I,J1),J1=1,3), + & (P(I,J2),J2=1,5) + ELSEIF(MLIST.EQ.1) THEN + WRITE(MSTU(11),5600) I,CHAC(1:12),(K(I,J1),J1=1,3), + & (P(I,J2),J2=1,5) + ELSEIF(MSTU(5).EQ.10000.AND.(K(I,1).EQ.3.OR.K(I,1).EQ.13.OR. + & K(I,1).EQ.14)) THEN + WRITE(MSTU(11),5700) I,CHAC,(K(I,J1),J1=1,3), + & K(I,4)/100000000,MOD(K(I,4)/10000,10000),MOD(K(I,4),10000), + & K(I,5)/100000000,MOD(K(I,5)/10000,10000),MOD(K(I,5),10000), + & (P(I,J2),J2=1,5) + ELSE + WRITE(MSTU(11),5800) I,CHAC,(K(I,J1),J1=1,5), + & (P(I,J2),J2=1,5) + ENDIF + IF(MLIST.EQ.3) WRITE(MSTU(11),5900) (V(I,J),J=1,5) + +C...Insert extra separator lines specified by user. + IF(MSTU(70).GE.1) THEN + ISEP=0 + DO 110 J=1,MIN(10,MSTU(70)) + IF(I.EQ.MSTU(70+J)) ISEP=1 + 110 CONTINUE + IF(ISEP.EQ.1.AND.MLIST.EQ.1) WRITE(MSTU(11),6000) + IF(ISEP.EQ.1.AND.MLIST.GE.2) WRITE(MSTU(11),6100) + ENDIF + 120 CONTINUE + +C...Sum of charges and momenta. + DO 130 J=1,6 + PS(J)=PYP(0,J) + 130 CONTINUE + IF(MLIST.EQ.1.AND.ABS(PS(4)).LT.9999D0) THEN + WRITE(MSTU(11),6200) PS(6),(PS(J),J=1,5) + ELSEIF(MLIST.EQ.1.AND.ABS(PS(4)).LT.99999D0) THEN + WRITE(MSTU(11),6300) PS(6),(PS(J),J=1,5) + ELSEIF(MLIST.EQ.1) THEN + WRITE(MSTU(11),6400) PS(6),(PS(J),J=1,5) + ELSE + WRITE(MSTU(11),6500) PS(6),(PS(J),J=1,5) + ENDIF + +C...Give simple list of KF codes defined in program. + ELSEIF(MLIST.EQ.11) THEN + WRITE(MSTU(11),6600) + DO 140 KF=1,80 + CALL PYNAME(KF,CHAP) + CALL PYNAME(-KF,CHAN) + IF(CHAP.NE.' '.AND.CHAN.EQ.' ') WRITE(MSTU(11),6700) KF,CHAP + IF(CHAN.NE.' ') WRITE(MSTU(11),6700) KF,CHAP,-KF,CHAN + 140 CONTINUE + DO 170 KFLS=1,3,2 + DO 160 KFLA=1,5 + DO 150 KFLB=1,KFLA-(3-KFLS)/2 + KF=1000*KFLA+100*KFLB+KFLS + CALL PYNAME(KF,CHAP) + CALL PYNAME(-KF,CHAN) + WRITE(MSTU(11),6700) KF,CHAP,-KF,CHAN + 150 CONTINUE + 160 CONTINUE + 170 CONTINUE + KF=130 + CALL PYNAME(KF,CHAP) + WRITE(MSTU(11),6700) KF,CHAP + KF=310 + CALL PYNAME(KF,CHAP) + WRITE(MSTU(11),6700) KF,CHAP + DO 200 KMUL=0,5 + KFLS=3 + IF(KMUL.EQ.0.OR.KMUL.EQ.3) KFLS=1 + IF(KMUL.EQ.5) KFLS=5 + KFLR=0 + IF(KMUL.EQ.2.OR.KMUL.EQ.3) KFLR=1 + IF(KMUL.EQ.4) KFLR=2 + DO 190 KFLB=1,5 + DO 180 KFLC=1,KFLB-1 + KF=10000*KFLR+100*KFLB+10*KFLC+KFLS + CALL PYNAME(KF,CHAP) + CALL PYNAME(-KF,CHAN) + WRITE(MSTU(11),6700) KF,CHAP,-KF,CHAN + 180 CONTINUE + KF=10000*KFLR+110*KFLB+KFLS + CALL PYNAME(KF,CHAP) + WRITE(MSTU(11),6700) KF,CHAP + 190 CONTINUE + 200 CONTINUE + KF=100443 + CALL PYNAME(KF,CHAP) + WRITE(MSTU(11),6700) KF,CHAP + KF=100553 + CALL PYNAME(KF,CHAP) + WRITE(MSTU(11),6700) KF,CHAP + DO 240 KFLSP=1,3 + KFLS=2+2*(KFLSP/3) + DO 230 KFLA=1,5 + DO 220 KFLB=1,KFLA + DO 210 KFLC=1,KFLB + IF(KFLSP.EQ.1.AND.(KFLA.EQ.KFLB.OR.KFLB.EQ.KFLC)) + & GOTO 210 + IF(KFLSP.EQ.2.AND.KFLA.EQ.KFLC) GOTO 210 + IF(KFLSP.EQ.1) KF=1000*KFLA+100*KFLC+10*KFLB+KFLS + IF(KFLSP.GE.2) KF=1000*KFLA+100*KFLB+10*KFLC+KFLS + CALL PYNAME(KF,CHAP) + CALL PYNAME(-KF,CHAN) + WRITE(MSTU(11),6700) KF,CHAP,-KF,CHAN + 210 CONTINUE + 220 CONTINUE + 230 CONTINUE + 240 CONTINUE + DO 250 KF=KSUSY1+1,KSUSY1+40 + CALL PYNAME(KF,CHAP) + CALL PYNAME(-KF,CHAN) + IF(CHAP.NE.' '.AND.CHAN.EQ.' ') WRITE(MSTU(11),6700) KF,CHAP + IF(CHAN.NE.' ') WRITE(MSTU(11),6700) KF,CHAP,-KF,CHAN + 250 CONTINUE + DO 260 KF=KSUSY2+1,KSUSY2+40 + CALL PYNAME(KF,CHAP) + CALL PYNAME(-KF,CHAN) + IF(CHAP.NE.' '.AND.CHAN.EQ.' ') WRITE(MSTU(11),6700) KF,CHAP + IF(CHAN.NE.' ') WRITE(MSTU(11),6700) KF,CHAP,-KF,CHAN + 260 CONTINUE + DO 270 KF=KEXCIT+1,KEXCIT+40 + CALL PYNAME(KF,CHAP) + CALL PYNAME(-KF,CHAN) + IF(CHAP.NE.' '.AND.CHAN.EQ.' ') WRITE(MSTU(11),6700) KF,CHAP + IF(CHAN.NE.' ') WRITE(MSTU(11),6700) KF,CHAP,-KF,CHAN + 270 CONTINUE + +C...List parton/particle data table. Check whether to be listed. + ELSEIF(MLIST.EQ.12) THEN + WRITE(MSTU(11),6800) + DO 300 KC=1,MSTU(6) + KF=KCHG(KC,4) + IF(KF.EQ.0) GOTO 300 + IF(KF.LT.MSTU(1).OR.(MSTU(2).GT.0.AND.KF.GT.MSTU(2))) + & GOTO 300 + +C...Find particle name and mass. Print information. + CALL PYNAME(KF,CHAP) + IF(KF.LE.100.AND.CHAP.EQ.' '.AND.MDCY(KC,2).EQ.0) GOTO 300 + CALL PYNAME(-KF,CHAN) + WRITE(MSTU(11),6900) KF,KC,CHAP,CHAN,(KCHG(KC,J1),J1=1,3), + & (PMAS(KC,J2),J2=1,4),MDCY(KC,1) + +C...Particle decay: channel number, branching ratios, matrix element, +C...decay products. + DO 290 IDC=MDCY(KC,2),MDCY(KC,2)+MDCY(KC,3)-1 + DO 280 J=1,5 + CALL PYNAME(KFDP(IDC,J),CHAD(J)) + 280 CONTINUE + WRITE(MSTU(11),7000) IDC,MDME(IDC,1),MDME(IDC,2),BRAT(IDC), + & (CHAD(J),J=1,5) + 290 CONTINUE + 300 CONTINUE + +C...List parameter value table. + ELSEIF(MLIST.EQ.13) THEN + WRITE(MSTU(11),7100) + DO 310 I=1,200 + WRITE(MSTU(11),7200) I,MSTU(I),PARU(I),MSTJ(I),PARJ(I),PARF(I) + 310 CONTINUE + ENDIF + +C...Format statements for output on unit MSTU(11) (by default 6). + 5100 FORMAT(///28X,'Event listing (summary)'//4X,'I particle/jet KS', + &5X,'KF orig p_x p_y p_z E m'/) + 5200 FORMAT(///28X,'Event listing (standard)'//4X,'I particle/jet', + &' K(I,1) K(I,2) K(I,3) K(I,4) K(I,5) P(I,1)', + &' P(I,2) P(I,3) P(I,4) P(I,5)'/) + 5300 FORMAT(///28X,'Event listing (with vertices)'//4X,'I particle/j', + &'et K(I,1) K(I,2) K(I,3) K(I,4) K(I,5) P(I,1)', + &' P(I,2) P(I,3) P(I,4) P(I,5)'/73X, + &'V(I,1) V(I,2) V(I,3) V(I,4) V(I,5)'/) + 5400 FORMAT(1X,I4,1X,A12,1X,I2,I8,1X,I4,5F9.3) + 5500 FORMAT(1X,I4,1X,A12,1X,I2,I8,1X,I4,5F9.2) + 5600 FORMAT(1X,I4,1X,A12,1X,I2,I8,1X,I4,5F9.1) + 5700 FORMAT(1X,I4,2X,A16,1X,I3,1X,I9,1X,I4,2(3X,I1,2I4),5F13.5) + 5800 FORMAT(1X,I4,2X,A16,1X,I3,1X,I9,1X,I4,2(3X,I9),5F13.5) + 5900 FORMAT(66X,5(1X,F12.3)) + 6000 FORMAT(1X,78('=')) + 6100 FORMAT(1X,130('=')) + 6200 FORMAT(19X,'sum:',F6.2,5X,5F9.3) + 6300 FORMAT(19X,'sum:',F6.2,5X,5F9.2) + 6400 FORMAT(19X,'sum:',F6.2,5X,5F9.1) + 6500 FORMAT(19X,'sum charge:',F6.2,3X,'sum momentum and inv. mass:', + &5F13.5) + 6600 FORMAT(///20X,'List of KF codes in program'/) + 6700 FORMAT(4X,I9,4X,A16,6X,I9,4X,A16) + 6800 FORMAT(///30X,'Particle/parton data table'//8X,'KF',5X,'KC',4X, + &'particle',8X,'antiparticle',6X,'chg col anti',8X,'mass',7X, + &'width',7X,'w-cut',5X,'lifetime',1X,'decay'/11X,'IDC',1X,'on/off', + &1X,'ME',3X,'Br.rat.',4X,'decay products') + 6900 FORMAT(/1X,I9,3X,I4,4X,A16,A16,3I5,1X,F12.5,2(1X,F11.5), + &1X,1P,E13.5,3X,I2) + 7000 FORMAT(10X,I4,2X,I3,2X,I3,2X,F10.6,4X,5A16) + 7100 FORMAT(///20X,'Parameter value table'//4X,'I',3X,'MSTU(I)', + &8X,'PARU(I)',3X,'MSTJ(I)',8X,'PARJ(I)',8X,'PARF(I)') + 7200 FORMAT(1X,I4,1X,I9,1X,F14.5,1X,I9,1X,F14.5,1X,F14.5) + + RETURN + END + +C********************************************************************* + +C...PYLOGO +C...Writes a logo for the program. + + SUBROUTINE PYLOGO + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Parameter for length of information block. + PARAMETER (IREFER=17) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200) + SAVE /PYDAT1/,/PYPARS/ +C...Local arrays and character variables. + INTEGER IDATI(6) + CHARACTER MONTH(12)*3, LOGO(48)*32, REFER(2*IREFER)*36, LINE*79, + &VERS*1, SUBV*3, DATE*2, YEAR*4, HOUR*2, MINU*2, SECO*2 + +C...Data on months, logo, titles, and references. + DATA MONTH/'Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep', + &'Oct','Nov','Dec'/ + DATA (LOGO(J),J=1,19)/ + &' *......* ', + &' *:::!!:::::::::::* ', + &' *::::::!!::::::::::::::* ', + &' *::::::::!!::::::::::::::::* ', + &' *:::::::::!!:::::::::::::::::* ', + &' *:::::::::!!:::::::::::::::::* ', + &' *::::::::!!::::::::::::::::*! ', + &' *::::::!!::::::::::::::* !! ', + &' !! *:::!!:::::::::::* !! ', + &' !! !* -><- * !! ', + &' !! !! !! ', + &' !! !! !! ', + &' !! !! ', + &' !! ep !! ', + &' !! !! ', + &' !! pp !! ', + &' !! e+e- !! ', + &' !! !! ', + &' !! '/ + DATA (LOGO(J),J=20,38)/ + &'Welcome to the Lund Monte Carlo!', + &' ', + &'PPP Y Y TTTTT H H III A ', + &'P P Y Y T H H I A A ', + &'PPP Y T HHHHH I AAAAA', + &'P Y T H H I A A', + &'P Y T H H III A A', + &' ', + &'This is PYTHIA version x.xxx ', + &'Last date of change: xx xxx 199x', + &' ', + &'Now is xx xxx 199x at xx:xx:xx ', + &' ', + &'Disclaimer: this program comes ', + &'without any guarantees. Beware ', + &'of errors and use common sense ', + &'when interpreting results. ', + &' ', + &'Copyright T. Sjostrand (2000) '/ + DATA (REFER(J),J=1,18)/ + &'An archive of program versions and d', + &'ocumentation is found on the web: ', + &'http://www.thep.lu.se/~torbjorn/Pyth', + &'ia.html ', + &' ', + &' ', + &'When you cite this program, currentl', + &'y the official reference is ', + &'T. Sjostrand, Computer Physics Commu', + &'n. 82 (1994) 74. ', + &'The supersymmetry extensions are des', + &'cribed in ', + &'S. Mrenna, Computer Physics Commun. ', + &'101 (1997) 232 ', + &'Also remember that the program, to a', + &' large extent, represents original ', + &'physics research. Other publications', + &' of special relevance to your '/ + DATA (REFER(J),J=19,2*IREFER)/ + &'studies may therefore deserve separa', + &'te mention. ', + &' ', + &' ', + &'Main author: Torbjorn Sjostrand; Dep', + &'artment of Theoretical Physics 2, ', + &' Lund University, Solvegatan 14A, S', + &'-223 62 Lund, Sweden; ', + &' phone: + 46 - 46 - 222 48 16; e-ma', + &'il: torbjorn@thep.lu.se ', + &'SUSY author: Stephen Mrenna, Physics', + &' Department, UC Davis, ', + &' One Shields Avenue, Davis, CA 9561', + &'6, USA; ', + &' phone: + 1 - 530 - 752 - 2661; e-m', + &'ail: mrenna@physics.ucdavis.edu '/ + +C...Check that PYDATA linked. + IF(MSTP(183)/10.NE.199.AND.MSTP(183)/10.NE.200) THEN + WRITE(*,'(1X,A)') + & 'Error: PYDATA has not been linked.' + WRITE(*,'(1X,A)') 'Execution stopped!' + STOP + +C...Write current version number and current date+time. + ELSE + WRITE(VERS,'(I1)') MSTP(181) + LOGO(28)(24:24)=VERS + WRITE(SUBV,'(I3)') MSTP(182) + LOGO(28)(26:28)=SUBV + IF(MSTP(182).LT.100) LOGO(28)(26:26)='0' + WRITE(DATE,'(I2)') MSTP(185) + LOGO(29)(22:23)=DATE + LOGO(29)(25:27)=MONTH(MSTP(184)) + WRITE(YEAR,'(I4)') MSTP(183) + LOGO(29)(29:32)=YEAR + CALL PYTIME(IDATI) + IF(IDATI(1).LE.0) THEN + LOGO(31)=' ' + ELSE + WRITE(DATE,'(I2)') IDATI(3) + LOGO(31)(8:9)=DATE + LOGO(31)(11:13)=MONTH(MAX(1,MIN(12,IDATI(2)))) + WRITE(YEAR,'(I4)') IDATI(1) + LOGO(31)(15:18)=YEAR + WRITE(HOUR,'(I2)') IDATI(4) + LOGO(31)(23:24)=HOUR + WRITE(MINU,'(I2)') IDATI(5) + LOGO(31)(26:27)=MINU + IF(IDATI(5).LT.10) LOGO(31)(26:26)='0' + WRITE(SECO,'(I2)') IDATI(6) + LOGO(31)(29:30)=SECO + IF(IDATI(6).LT.10) LOGO(31)(29:29)='0' + ENDIF + ENDIF + +C...Loop over lines in header. Define page feed and side borders. + DO 100 ILIN=1,29+IREFER + LINE=' ' + IF(ILIN.EQ.1) THEN + LINE(1:1)='1' + ELSE + LINE(2:3)='**' + LINE(78:79)='**' + ENDIF + +C...Separator lines and logos. + IF(ILIN.EQ.2.OR.ILIN.EQ.3.OR.ILIN.GE.28+IREFER) THEN + LINE(4:77)='***********************************************'// + & '***************************' + ELSEIF(ILIN.GE.6.AND.ILIN.LE.24) THEN + LINE(6:37)=LOGO(ILIN-5) + LINE(44:75)=LOGO(ILIN+14) + ELSEIF(ILIN.GE.26.AND.ILIN.LE.25+IREFER) THEN + LINE(5:40)=REFER(2*ILIN-51) + LINE(41:76)=REFER(2*ILIN-50) + ENDIF + +C...Write lines to appropriate unit. + WRITE(MSTU(11),'(A79)') LINE + 100 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYUPDA +C...Facilitates the updating of particle and decay data +C...by allowing it to be done in an external file. + + SUBROUTINE PYUPDA(MUPDA,LFN) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + COMMON/PYDAT4/CHAF(500,2) + CHARACTER CHAF*16 + COMMON/PYINT4/MWID(500),WIDS(500,5) + SAVE /PYDAT1/,/PYDAT2/,/PYDAT3/,/PYDAT4/,/PYINT4/ +C...Local arrays, character variables and data. + CHARACTER CHINL*120,CHKF*9,CHVAR(22)*9,CHLIN*72, + &CHBLK(20)*72,CHOLD*16,CHTMP*16,CHNEW*16,CHCOM*24 + DATA CHVAR/ 'KCHG(I,1)','KCHG(I,2)','KCHG(I,3)','KCHG(I,4)', + &'PMAS(I,1)','PMAS(I,2)','PMAS(I,3)','PMAS(I,4)','MDCY(I,1)', + &'MDCY(I,2)','MDCY(I,3)','MDME(I,1)','MDME(I,2)','BRAT(I) ', + &'KFDP(I,1)','KFDP(I,2)','KFDP(I,3)','KFDP(I,4)','KFDP(I,5)', + &'CHAF(I,1)','CHAF(I,2)','MWID(I) '/ + +C...Write header if not yet done. + IF(MSTU(12).GE.1) CALL PYLIST(0) + +C...Write information on file for editing. + IF(MUPDA.EQ.1) THEN + DO 110 KC=1,500 + WRITE(LFN,5000) KCHG(KC,4),(CHAF(KC,J1),J1=1,2), + & (KCHG(KC,J2),J2=1,3),(PMAS(KC,J3),J3=1,4), + & MWID(KC),MDCY(KC,1) + DO 100 IDC=MDCY(KC,2),MDCY(KC,2)+MDCY(KC,3)-1 + WRITE(LFN,5100) MDME(IDC,1),MDME(IDC,2),BRAT(IDC), + & (KFDP(IDC,J),J=1,5) + 100 CONTINUE + 110 CONTINUE + +C...Read complete set of information from edited file or +C...read partial set of new or updated information from edited file. + ELSEIF(MUPDA.EQ.2.OR.MUPDA.EQ.3) THEN + +C...Reset counters. + KCC=100 + NDC=0 + CHKF=' ' + IF(MUPDA.EQ.2) THEN + DO 120 I=1,MSTU(6) + KCHG(I,4)=0 + 120 CONTINUE + ELSE + DO 130 KC=1,MSTU(6) + IF(KC.GT.100.AND.KCHG(KC,4).GT.100) KCC=KC + NDC=MAX(NDC,MDCY(KC,2)+MDCY(KC,3)-1) + 130 CONTINUE + ENDIF + +C...Begin of loop: read new line; unknown whether particle or +C...decay data. + 140 READ(LFN,5200,END=190) CHINL + +C...Identify particle code and whether already defined (for MUPDA=3). + IF(CHINL(2:10).NE.' ') THEN + CHKF=CHINL(2:10) + READ(CHKF,5300) KF + IF(MUPDA.EQ.2) THEN + IF(KF.LE.100) THEN + KC=KF + ELSE + KCC=KCC+1 + KC=KCC + ENDIF + ELSE + KCREP=0 + IF(KF.LE.100) THEN + KCREP=KF + ELSE + DO 150 KCR=101,KCC + IF(KCHG(KCR,4).EQ.KF) KCREP=KCR + 150 CONTINUE + ENDIF +C...Remove duplicate old decay data. + IF(KCREP.NE.0.AND.MDCY(KCREP,3).GT.0) THEN + IDCREP=MDCY(KCREP,2) + NDCREP=MDCY(KCREP,3) + DO 160 I=1,KCC + IF(MDCY(I,2).GT.IDCREP) MDCY(I,2)=MDCY(I,2)-NDCREP + 160 CONTINUE + DO 180 I=IDCREP,NDC-NDCREP + MDME(I,1)=MDME(I+NDCREP,1) + MDME(I,2)=MDME(I+NDCREP,2) + BRAT(I)=BRAT(I+NDCREP) + DO 170 J=1,5 + KFDP(I,J)=KFDP(I+NDCREP,J) + 170 CONTINUE + 180 CONTINUE + NDC=NDC-NDCREP + KC=KCREP + ELSEIF(KCREP.NE.0) THEN + KC=KCREP + ELSE + KCC=KCC+1 + KC=KCC + ENDIF + ENDIF + +C...Study line with particle data. + IF(KC.GT.MSTU(6)) CALL PYERRM(27, + & '(PYUPDA:) Particle arrays full by KF ='//CHKF) + READ(CHINL,5000) KCHG(KC,4),(CHAF(KC,J1),J1=1,2), + & (KCHG(KC,J2),J2=1,3),(PMAS(KC,J3),J3=1,4), + & MWID(KC),MDCY(KC,1) + MDCY(KC,2)=0 + MDCY(KC,3)=0 + +C...Study line with decay data. + ELSE + NDC=NDC+1 + IF(NDC.GT.MSTU(7)) CALL PYERRM(27, + & '(PYUPDA:) Decay data arrays full by KF ='//CHKF) + IF(MDCY(KC,2).EQ.0) MDCY(KC,2)=NDC + MDCY(KC,3)=MDCY(KC,3)+1 + READ(CHINL,5100) MDME(NDC,1),MDME(NDC,2),BRAT(NDC), + & (KFDP(NDC,J),J=1,5) + ENDIF + +C...End of loop; ensure that PYCOMP tables are updated. + GOTO 140 + 190 CONTINUE + MSTU(20)=0 + +C...Perform possible tests that new information is consistent. + DO 220 KC=1,MSTU(6) + KF=KCHG(KC,4) + IF(KF.EQ.0) GOTO 220 + WRITE(CHKF,5300) KF + IF(MIN(PMAS(KC,1),PMAS(KC,2),PMAS(KC,3),PMAS(KC,1)-PMAS(KC,3), + & PMAS(KC,4)).LT.0D0.OR.MDCY(KC,3).LT.0) CALL PYERRM(17, + & '(PYUPDA:) Mass/width/life/(# channels) wrong for KF ='//CHKF) + BRSUM=0D0 + DO 210 IDC=MDCY(KC,2),MDCY(KC,2)+MDCY(KC,3)-1 + IF(MDME(IDC,2).GT.80) GOTO 210 + KQ=KCHG(KC,1) + PMS=PMAS(KC,1)-PMAS(KC,3)-PARJ(64) + MERR=0 + DO 200 J=1,5 + KP=KFDP(IDC,J) + IF(KP.EQ.0.OR.KP.EQ.81.OR.IABS(KP).EQ.82) THEN + IF(KP.EQ.81) KQ=0 + ELSEIF(PYCOMP(KP).EQ.0) THEN + MERR=3 + ELSE + KQ=KQ-PYCHGE(KP) + KPC=PYCOMP(KP) + PMS=PMS-PMAS(KPC,1) + IF(MSTJ(24).GT.0) PMS=PMS+0.5D0*MIN(PMAS(KPC,2), + & PMAS(KPC,3)) + ENDIF + 200 CONTINUE + IF(KQ.NE.0) MERR=MAX(2,MERR) + IF(MWID(KC).EQ.0.AND.KF.NE.311.AND.PMS.LT.0D0) + & MERR=MAX(1,MERR) + IF(MERR.EQ.3) CALL PYERRM(17, + & '(PYUPDA:) Unknown particle code in decay of KF ='//CHKF) + IF(MERR.EQ.2) CALL PYERRM(17, + & '(PYUPDA:) Charge not conserved in decay of KF ='//CHKF) + IF(MERR.EQ.1) CALL PYERRM(7, + & '(PYUPDA:) Kinematically unallowed decay of KF ='//CHKF) + BRSUM=BRSUM+BRAT(IDC) + 210 CONTINUE + WRITE(CHTMP,5500) BRSUM + IF(ABS(BRSUM).GT.0.0005D0.AND.ABS(BRSUM-1D0).GT.0.0005D0) + & CALL PYERRM(7,'(PYUPDA:) Sum of branching ratios is '// + & CHTMP(9:16)//' for KF ='//CHKF) + 220 CONTINUE + +C...Write DATA statements for inclusion in program. + ELSEIF(MUPDA.EQ.4) THEN + +C...Find out how many codes and decay channels are actually used. + KCC=0 + NDC=0 + DO 230 I=1,MSTU(6) + IF(KCHG(I,4).NE.0) THEN + KCC=I + NDC=MAX(NDC,MDCY(I,2)+MDCY(I,3)-1) + ENDIF + 230 CONTINUE + +C...Initialize writing of DATA statements for inclusion in program. + DO 300 IVAR=1,22 + NDIM=MSTU(6) + IF(IVAR.GE.12.AND.IVAR.LE.19) NDIM=MSTU(7) + NLIN=1 + CHLIN=' ' + CHLIN(7:35)='DATA ('//CHVAR(IVAR)//',I= 1, )/' + LLIN=35 + CHOLD='START' + +C...Loop through variables for conversion to characters. + DO 280 IDIM=1,NDIM + IF(IVAR.EQ.1) WRITE(CHTMP,5400) KCHG(IDIM,1) + IF(IVAR.EQ.2) WRITE(CHTMP,5400) KCHG(IDIM,2) + IF(IVAR.EQ.3) WRITE(CHTMP,5400) KCHG(IDIM,3) + IF(IVAR.EQ.4) WRITE(CHTMP,5400) KCHG(IDIM,4) + IF(IVAR.EQ.5) WRITE(CHTMP,5500) PMAS(IDIM,1) + IF(IVAR.EQ.6) WRITE(CHTMP,5500) PMAS(IDIM,2) + IF(IVAR.EQ.7) WRITE(CHTMP,5500) PMAS(IDIM,3) + IF(IVAR.EQ.8) WRITE(CHTMP,5500) PMAS(IDIM,4) + IF(IVAR.EQ.9) WRITE(CHTMP,5400) MDCY(IDIM,1) + IF(IVAR.EQ.10) WRITE(CHTMP,5400) MDCY(IDIM,2) + IF(IVAR.EQ.11) WRITE(CHTMP,5400) MDCY(IDIM,3) + IF(IVAR.EQ.12) WRITE(CHTMP,5400) MDME(IDIM,1) + IF(IVAR.EQ.13) WRITE(CHTMP,5400) MDME(IDIM,2) + IF(IVAR.EQ.14) WRITE(CHTMP,5600) BRAT(IDIM) + IF(IVAR.EQ.15) WRITE(CHTMP,5400) KFDP(IDIM,1) + IF(IVAR.EQ.16) WRITE(CHTMP,5400) KFDP(IDIM,2) + IF(IVAR.EQ.17) WRITE(CHTMP,5400) KFDP(IDIM,3) + IF(IVAR.EQ.18) WRITE(CHTMP,5400) KFDP(IDIM,4) + IF(IVAR.EQ.19) WRITE(CHTMP,5400) KFDP(IDIM,5) + IF(IVAR.EQ.20) CHTMP=CHAF(IDIM,1) + IF(IVAR.EQ.21) CHTMP=CHAF(IDIM,2) + IF(IVAR.EQ.22) WRITE(CHTMP,5400) MWID(IDIM) + +C...Replace variables beyond what is properly defined. + IF(IVAR.LE.4) THEN + IF(IDIM.GT.KCC) CHTMP=' 0' + ELSEIF(IVAR.LE.8) THEN + IF(IDIM.GT.KCC) CHTMP=' 0.0' + ELSEIF(IVAR.LE.11) THEN + IF(IDIM.GT.KCC) CHTMP=' 0' + ELSEIF(IVAR.LE.13) THEN + IF(IDIM.GT.NDC) CHTMP=' 0' + ELSEIF(IVAR.LE.14) THEN + IF(IDIM.GT.NDC) CHTMP=' 0.0' + ELSEIF(IVAR.LE.19) THEN + IF(IDIM.GT.NDC) CHTMP=' 0' + ELSEIF(IVAR.LE.21) THEN + IF(IDIM.GT.KCC) CHTMP=' ' + ELSE + IF(IDIM.GT.KCC) CHTMP=' 0' + ENDIF + +C...Length of variable, trailing decimal zeros, quotation marks. + LLOW=1 + LHIG=1 + DO 240 LL=1,16 + IF(CHTMP(17-LL:17-LL).NE.' ') LLOW=17-LL + IF(CHTMP(LL:LL).NE.' ') LHIG=LL + 240 CONTINUE + CHNEW=CHTMP(LLOW:LHIG)//' ' + LNEW=1+LHIG-LLOW + IF((IVAR.GE.5.AND.IVAR.LE.8).OR.IVAR.EQ.14) THEN + LNEW=LNEW+1 + 250 LNEW=LNEW-1 + IF(LNEW.GE.2.AND.CHNEW(LNEW:LNEW).EQ.'0') GOTO 250 + IF(CHNEW(LNEW:LNEW).EQ.'.') LNEW=LNEW-1 + IF(LNEW.EQ.0) THEN + CHNEW(1:3)='0D0' + LNEW=3 + ELSE + CHNEW(LNEW+1:LNEW+2)='D0' + LNEW=LNEW+2 + ENDIF + ELSEIF(IVAR.EQ.20.OR.IVAR.EQ.21) THEN + DO 260 LL=LNEW,1,-1 + IF(CHNEW(LL:LL).EQ.'''') THEN + CHTMP=CHNEW + CHNEW=CHTMP(1:LL)//''''//CHTMP(LL+1:11) + LNEW=LNEW+1 + ENDIF + 260 CONTINUE + LNEW=MIN(14,LNEW) + CHTMP=CHNEW + CHNEW(1:LNEW+2)=''''//CHTMP(1:LNEW)//'''' + LNEW=LNEW+2 + ENDIF + +C...Form composite character string, often including repetition counter. + IF(CHNEW.NE.CHOLD) THEN + NRPT=1 + CHOLD=CHNEW + CHCOM=CHNEW + LCOM=LNEW + ELSE + LRPT=LNEW+1 + IF(NRPT.GE.2) LRPT=LNEW+3 + IF(NRPT.GE.10) LRPT=LNEW+4 + IF(NRPT.GE.100) LRPT=LNEW+5 + IF(NRPT.GE.1000) LRPT=LNEW+6 + LLIN=LLIN-LRPT + NRPT=NRPT+1 + WRITE(CHTMP,5400) NRPT + LRPT=1 + IF(NRPT.GE.10) LRPT=2 + IF(NRPT.GE.100) LRPT=3 + IF(NRPT.GE.1000) LRPT=4 + CHCOM(1:LRPT+1+LNEW)=CHTMP(17-LRPT:16)//'*'//CHNEW(1:LNEW) + LCOM=LRPT+1+LNEW + ENDIF + +C...Add characters to end of line, to new line (after storing old line), +C...or to new block of lines (after writing old block). + IF(LLIN+LCOM.LE.70) THEN + CHLIN(LLIN+1:LLIN+LCOM+1)=CHCOM(1:LCOM)//',' + LLIN=LLIN+LCOM+1 + ELSEIF(NLIN.LE.19) THEN + CHLIN(LLIN+1:72)=' ' + CHBLK(NLIN)=CHLIN + NLIN=NLIN+1 + CHLIN(6:6+LCOM+1)='&'//CHCOM(1:LCOM)//',' + LLIN=6+LCOM+1 + ELSE + CHLIN(LLIN:72)='/'//' ' + CHBLK(NLIN)=CHLIN + WRITE(CHTMP,5400) IDIM-NRPT + CHBLK(1)(30:33)=CHTMP(13:16) + DO 270 ILIN=1,NLIN + WRITE(LFN,5700) CHBLK(ILIN) + 270 CONTINUE + NLIN=1 + CHLIN=' ' + CHLIN(7:35+LCOM+1)='DATA ('//CHVAR(IVAR)// + & ',I= , )/'//CHCOM(1:LCOM)//',' + WRITE(CHTMP,5400) IDIM-NRPT+1 + CHLIN(25:28)=CHTMP(13:16) + LLIN=35+LCOM+1 + ENDIF + 280 CONTINUE + +C...Write final block of lines. + CHLIN(LLIN:72)='/'//' ' + CHBLK(NLIN)=CHLIN + WRITE(CHTMP,5400) NDIM + CHBLK(1)(30:33)=CHTMP(13:16) + DO 290 ILIN=1,NLIN + WRITE(LFN,5700) CHBLK(ILIN) + 290 CONTINUE + 300 CONTINUE + ENDIF + +C...Formats for reading and writing particle data. + 5000 FORMAT(1X,I9,2X,A16,2X,A16,3I3,3F12.5,1P,E13.5,2I3) + 5100 FORMAT(10X,2I5,F12.6,5I10) + 5200 FORMAT(A120) + 5300 FORMAT(I9) + 5400 FORMAT(I16) + 5500 FORMAT(F16.5) + 5600 FORMAT(F16.6) + 5700 FORMAT(A72) + + RETURN + END + +C********************************************************************* + +C...PYK +C...Provides various integer-valued event related data. + + FUNCTION PYK(I,J) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ + +C...Default value. For I=0 number of entries, number of stable entries +C...or 3 times total charge. + PYK=0 + IF(I.LT.0.OR.I.GT.MSTU(4).OR.J.LE.0) THEN + ELSEIF(I.EQ.0.AND.J.EQ.1) THEN + PYK=N + ELSEIF(I.EQ.0.AND.(J.EQ.2.OR.J.EQ.6)) THEN + DO 100 I1=1,N + IF(J.EQ.2.AND.K(I1,1).GE.1.AND.K(I1,1).LE.10) PYK=PYK+1 + IF(J.EQ.6.AND.K(I1,1).GE.1.AND.K(I1,1).LE.10) PYK=PYK+ + & PYCHGE(K(I1,2)) + 100 CONTINUE + ELSEIF(I.EQ.0) THEN + +C...For I > 0 direct readout of K matrix or charge. + ELSEIF(J.LE.5) THEN + PYK=K(I,J) + ELSEIF(J.EQ.6) THEN + PYK=PYCHGE(K(I,2)) + +C...Status (existing/fragmented/decayed), parton/hadron separation. + ELSEIF(J.LE.8) THEN + IF(K(I,1).GE.1.AND.K(I,1).LE.10) PYK=1 + IF(J.EQ.8) PYK=PYK*K(I,2) + ELSEIF(J.LE.12) THEN + KFA=IABS(K(I,2)) + KC=PYCOMP(KFA) + KQ=0 + IF(KC.NE.0) KQ=KCHG(KC,2) + IF(J.EQ.9.AND.KC.NE.0.AND.KQ.NE.0) PYK=K(I,2) + IF(J.EQ.10.AND.KC.NE.0.AND.KQ.EQ.0) PYK=K(I,2) + IF(J.EQ.11) PYK=KC + IF(J.EQ.12) PYK=KQ*ISIGN(1,K(I,2)) + +C...Heaviest flavour in hadron/diquark. + ELSEIF(J.EQ.13) THEN + KFA=IABS(K(I,2)) + PYK=MOD(KFA/100,10)*(-1)**MOD(KFA/100,10) + IF(KFA.LT.10) PYK=KFA + IF(MOD(KFA/1000,10).NE.0) PYK=MOD(KFA/1000,10) + PYK=PYK*ISIGN(1,K(I,2)) + +C...Particle history: generation, ancestor, rank. + ELSEIF(J.LE.15) THEN + I2=I + I1=I + 110 PYK=PYK+1 + I2=I1 + I1=K(I1,3) + IF(I1.GT.0) THEN + IF(K(I1,1).GT.0.AND.K(I1,1).LE.20) GOTO 110 + ENDIF + IF(J.EQ.15) PYK=I2 + ELSEIF(J.EQ.16) THEN + KFA=IABS(K(I,2)) + IF(K(I,1).LE.20.AND.((KFA.GE.11.AND.KFA.LE.20).OR.KFA.EQ.22.OR. + & (KFA.GT.100.AND.MOD(KFA/10,10).NE.0))) THEN + I1=I + 120 I2=I1 + I1=K(I1,3) + IF(I1.GT.0) THEN + KFAM=IABS(K(I1,2)) + ILP=1 + IF(KFAM.NE.0.AND.KFAM.LE.10) ILP=0 + IF(KFAM.EQ.21.OR.KFAM.EQ.91.OR.KFAM.EQ.92.OR.KFAM.EQ.93) + & ILP=0 + IF(KFAM.GT.100.AND.MOD(KFAM/10,10).EQ.0) ILP=0 + IF(ILP.EQ.1) GOTO 120 + ENDIF + IF(K(I1,1).EQ.12) THEN + DO 130 I3=I1+1,I2 + IF(K(I3,3).EQ.K(I2,3).AND.K(I3,2).NE.91.AND.K(I3,2).NE.92 + & .AND.K(I3,2).NE.93) PYK=PYK+1 + 130 CONTINUE + ELSE + I3=I2 + 140 PYK=PYK+1 + I3=I3+1 + IF(I3.LT.N.AND.K(I3,3).EQ.K(I2,3)) GOTO 140 + ENDIF + ENDIF + +C...Particle coming from collapsing jet system or not. + ELSEIF(J.EQ.17) THEN + I1=I + 150 PYK=PYK+1 + I3=I1 + I1=K(I1,3) + I0=MAX(1,I1) + KC=PYCOMP(K(I0,2)) + IF(I1.EQ.0.OR.K(I0,1).LE.0.OR.K(I0,1).GT.20.OR.KC.EQ.0) THEN + IF(PYK.EQ.1) PYK=-1 + IF(PYK.GT.1) PYK=0 + RETURN + ENDIF + IF(KCHG(KC,2).EQ.0) GOTO 150 + IF(K(I1,1).NE.12) PYK=0 + IF(K(I1,1).NE.12) RETURN + I2=I1 + 160 I2=I2+1 + IF(I2.LT.N.AND.K(I2,1).NE.11) GOTO 160 + K3M=K(I3-1,3) + IF(K3M.GE.I1.AND.K3M.LE.I2) PYK=0 + K3P=K(I3+1,3) + IF(I3.LT.N.AND.K3P.GE.I1.AND.K3P.LE.I2) PYK=0 + +C...Number of decay products. Colour flow. + ELSEIF(J.EQ.18) THEN + IF(K(I,1).EQ.11.OR.K(I,1).EQ.12) PYK=MAX(0,K(I,5)-K(I,4)+1) + IF(K(I,4).EQ.0.OR.K(I,5).EQ.0) PYK=0 + ELSEIF(J.LE.22) THEN + IF(K(I,1).NE.3.AND.K(I,1).NE.13.AND.K(I,1).NE.14) RETURN + IF(J.EQ.19) PYK=MOD(K(I,4)/MSTU(5),MSTU(5)) + IF(J.EQ.20) PYK=MOD(K(I,5)/MSTU(5),MSTU(5)) + IF(J.EQ.21) PYK=MOD(K(I,4),MSTU(5)) + IF(J.EQ.22) PYK=MOD(K(I,5),MSTU(5)) + ELSE + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYP +C...Provides various real-valued event related data. + + FUNCTION PYP(I,J) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ +C...Local array. + DIMENSION PSUM(4) + +C...Set default value. For I = 0 sum of momenta or charges, +C...or invariant mass of system. + PYP=0D0 + IF(I.LT.0.OR.I.GT.MSTU(4).OR.J.LE.0) THEN + ELSEIF(I.EQ.0.AND.J.LE.4) THEN + DO 100 I1=1,N + IF(K(I1,1).GT.0.AND.K(I1,1).LE.10) PYP=PYP+P(I1,J) + 100 CONTINUE + ELSEIF(I.EQ.0.AND.J.EQ.5) THEN + DO 120 J1=1,4 + PSUM(J1)=0D0 + DO 110 I1=1,N + IF(K(I1,1).GT.0.AND.K(I1,1).LE.10) PSUM(J1)=PSUM(J1)+ + & P(I1,J1) + 110 CONTINUE + 120 CONTINUE + PYP=SQRT(MAX(0D0,PSUM(4)**2-PSUM(1)**2-PSUM(2)**2-PSUM(3)**2)) + ELSEIF(I.EQ.0.AND.J.EQ.6) THEN + DO 130 I1=1,N + IF(K(I1,1).GT.0.AND.K(I1,1).LE.10) PYP=PYP+PYCHGE(K(I1,2))/3D0 + 130 CONTINUE + ELSEIF(I.EQ.0) THEN + +C...Direct readout of P matrix. + ELSEIF(J.LE.5) THEN + PYP=P(I,J) + +C...Charge, total momentum, transverse momentum, transverse mass. + ELSEIF(J.LE.12) THEN + IF(J.EQ.6) PYP=PYCHGE(K(I,2))/3D0 + IF(J.EQ.7.OR.J.EQ.8) PYP=P(I,1)**2+P(I,2)**2+P(I,3)**2 + IF(J.EQ.9.OR.J.EQ.10) PYP=P(I,1)**2+P(I,2)**2 + IF(J.EQ.11.OR.J.EQ.12) PYP=P(I,5)**2+P(I,1)**2+P(I,2)**2 + IF(J.EQ.8.OR.J.EQ.10.OR.J.EQ.12) PYP=SQRT(PYP) + +C...Theta and phi angle in radians or degrees. + ELSEIF(J.LE.16) THEN + IF(J.LE.14) PYP=PYANGL(P(I,3),SQRT(P(I,1)**2+P(I,2)**2)) + IF(J.GE.15) PYP=PYANGL(P(I,1),P(I,2)) + IF(J.EQ.14.OR.J.EQ.16) PYP=PYP*180D0/PARU(1) + +C...True rapidity, rapidity with pion mass, pseudorapidity. + ELSEIF(J.LE.19) THEN + PMR=0D0 + IF(J.EQ.17) PMR=P(I,5) + IF(J.EQ.18) PMR=PYMASS(211) + PR=MAX(1D-20,PMR**2+P(I,1)**2+P(I,2)**2) + PYP=SIGN(LOG(MIN((SQRT(PR+P(I,3)**2)+ABS(P(I,3)))/SQRT(PR), + & 1D20)),P(I,3)) + +C...Energy and momentum fractions (only to be used in CM frame). + ELSEIF(J.LE.25) THEN + IF(J.EQ.20) PYP=2D0*SQRT(P(I,1)**2+P(I,2)**2+P(I,3)**2)/PARU(21) + IF(J.EQ.21) PYP=2D0*P(I,3)/PARU(21) + IF(J.EQ.22) PYP=2D0*SQRT(P(I,1)**2+P(I,2)**2)/PARU(21) + IF(J.EQ.23) PYP=2D0*P(I,4)/PARU(21) + IF(J.EQ.24) PYP=(P(I,4)+P(I,3))/PARU(21) + IF(J.EQ.25) PYP=(P(I,4)-P(I,3))/PARU(21) + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYSPHE +C...Performs sphericity tensor analysis to give sphericity, +C...aplanarity and the related event axes. + + SUBROUTINE PYSPHE(SPH,APL) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ +C...Local arrays. + DIMENSION SM(3,3),SV(3,3) + +C...Calculate matrix to be diagonalized. + NP=0 + DO 110 J1=1,3 + DO 100 J2=J1,3 + SM(J1,J2)=0D0 + 100 CONTINUE + 110 CONTINUE + PS=0D0 + DO 140 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 140 + IF(MSTU(41).GE.2) THEN + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0.OR.KC.EQ.12.OR.KC.EQ.14.OR.KC.EQ.16.OR. + & KC.EQ.18) GOTO 140 + IF(MSTU(41).GE.3.AND.KCHG(KC,2).EQ.0.AND.PYCHGE(K(I,2)).EQ.0) + & GOTO 140 + ENDIF + NP=NP+1 + PA=SQRT(P(I,1)**2+P(I,2)**2+P(I,3)**2) + PWT=1D0 + IF(ABS(PARU(41)-2D0).GT.0.001D0) PWT= + & MAX(1D-10,PA)**(PARU(41)-2D0) + DO 130 J1=1,3 + DO 120 J2=J1,3 + SM(J1,J2)=SM(J1,J2)+PWT*P(I,J1)*P(I,J2) + 120 CONTINUE + 130 CONTINUE + PS=PS+PWT*PA**2 + 140 CONTINUE + +C...Very low multiplicities (0 or 1) not considered. + IF(NP.LE.1) THEN + CALL PYERRM(8,'(PYSPHE:) too few particles for analysis') + SPH=-1D0 + APL=-1D0 + RETURN + ENDIF + DO 160 J1=1,3 + DO 150 J2=J1,3 + SM(J1,J2)=SM(J1,J2)/PS + 150 CONTINUE + 160 CONTINUE + +C...Find eigenvalues to matrix (third degree equation). + SQ=(SM(1,1)*SM(2,2)+SM(1,1)*SM(3,3)+SM(2,2)*SM(3,3)- + &SM(1,2)**2-SM(1,3)**2-SM(2,3)**2)/3D0-1D0/9D0 + SR=-0.5D0*(SQ+1D0/9D0+SM(1,1)*SM(2,3)**2+SM(2,2)*SM(1,3)**2+ + &SM(3,3)*SM(1,2)**2-SM(1,1)*SM(2,2)*SM(3,3))+ + &SM(1,2)*SM(1,3)*SM(2,3)+1D0/27D0 + SP=COS(ACOS(MAX(MIN(SR/SQRT(-SQ**3),1D0),-1D0))/3D0) + P(N+1,4)=1D0/3D0+SQRT(-SQ)*MAX(2D0*SP,SQRT(3D0*(1D0-SP**2))-SP) + P(N+3,4)=1D0/3D0+SQRT(-SQ)*MIN(2D0*SP,-SQRT(3D0*(1D0-SP**2))-SP) + P(N+2,4)=1D0-P(N+1,4)-P(N+3,4) + IF(P(N+2,4).LT.1D-5) THEN + CALL PYERRM(8,'(PYSPHE:) all particles back-to-back') + SPH=-1D0 + APL=-1D0 + RETURN + ENDIF + +C...Find first and last eigenvector by solving equation system. + DO 240 I=1,3,2 + DO 180 J1=1,3 + SV(J1,J1)=SM(J1,J1)-P(N+I,4) + DO 170 J2=J1+1,3 + SV(J1,J2)=SM(J1,J2) + SV(J2,J1)=SM(J1,J2) + 170 CONTINUE + 180 CONTINUE + SMAX=0D0 + DO 200 J1=1,3 + DO 190 J2=1,3 + IF(ABS(SV(J1,J2)).LE.SMAX) GOTO 190 + JA=J1 + JB=J2 + SMAX=ABS(SV(J1,J2)) + 190 CONTINUE + 200 CONTINUE + SMAX=0D0 + DO 220 J3=JA+1,JA+2 + J1=J3-3*((J3-1)/3) + RL=SV(J1,JB)/SV(JA,JB) + DO 210 J2=1,3 + SV(J1,J2)=SV(J1,J2)-RL*SV(JA,J2) + IF(ABS(SV(J1,J2)).LE.SMAX) GOTO 210 + JC=J1 + SMAX=ABS(SV(J1,J2)) + 210 CONTINUE + 220 CONTINUE + JB1=JB+1-3*(JB/3) + JB2=JB+2-3*((JB+1)/3) + P(N+I,JB1)=-SV(JC,JB2) + P(N+I,JB2)=SV(JC,JB1) + P(N+I,JB)=-(SV(JA,JB1)*P(N+I,JB1)+SV(JA,JB2)*P(N+I,JB2))/ + & SV(JA,JB) + PA=SQRT(P(N+I,1)**2+P(N+I,2)**2+P(N+I,3)**2) + SGN=(-1D0)**INT(PYR(0)+0.5D0) + DO 230 J=1,3 + P(N+I,J)=SGN*P(N+I,J)/PA + 230 CONTINUE + 240 CONTINUE + +C...Middle axis orthogonal to other two. Fill other codes. + SGN=(-1D0)**INT(PYR(0)+0.5D0) + P(N+2,1)=SGN*(P(N+1,2)*P(N+3,3)-P(N+1,3)*P(N+3,2)) + P(N+2,2)=SGN*(P(N+1,3)*P(N+3,1)-P(N+1,1)*P(N+3,3)) + P(N+2,3)=SGN*(P(N+1,1)*P(N+3,2)-P(N+1,2)*P(N+3,1)) + DO 260 I=1,3 + K(N+I,1)=31 + K(N+I,2)=95 + K(N+I,3)=I + K(N+I,4)=0 + K(N+I,5)=0 + P(N+I,5)=0D0 + DO 250 J=1,5 + V(I,J)=0D0 + 250 CONTINUE + 260 CONTINUE + +C...Calculate sphericity and aplanarity. Select storing option. + SPH=1.5D0*(P(N+2,4)+P(N+3,4)) + APL=1.5D0*P(N+3,4) + MSTU(61)=N+1 + MSTU(62)=NP + IF(MSTU(43).LE.1) MSTU(3)=3 + IF(MSTU(43).GE.2) N=N+3 + + RETURN + END + +C********************************************************************* + +C...PYTHRU +C...Performs thrust analysis to give thrust, oblateness +C...and the related event axes. + + SUBROUTINE PYTHRU(THR,OBL) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ +C...Local arrays. + DIMENSION TDI(3),TPR(3) + +C...Take copy of particles that are to be considered in thrust analysis. + NP=0 + PS=0D0 + DO 100 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 100 + IF(MSTU(41).GE.2) THEN + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0.OR.KC.EQ.12.OR.KC.EQ.14.OR.KC.EQ.16.OR. + & KC.EQ.18) GOTO 100 + IF(MSTU(41).GE.3.AND.KCHG(KC,2).EQ.0.AND.PYCHGE(K(I,2)).EQ.0) + & GOTO 100 + ENDIF + IF(N+NP+MSTU(44)+15.GE.MSTU(4)-MSTU(32)-5) THEN + CALL PYERRM(11,'(PYTHRU:) no more memory left in PYJETS') + THR=-2D0 + OBL=-2D0 + RETURN + ENDIF + NP=NP+1 + K(N+NP,1)=23 + P(N+NP,1)=P(I,1) + P(N+NP,2)=P(I,2) + P(N+NP,3)=P(I,3) + P(N+NP,4)=SQRT(P(I,1)**2+P(I,2)**2+P(I,3)**2) + P(N+NP,5)=1D0 + IF(ABS(PARU(42)-1D0).GT.0.001D0) P(N+NP,5)= + & P(N+NP,4)**(PARU(42)-1D0) + PS=PS+P(N+NP,4)*P(N+NP,5) + 100 CONTINUE + +C...Very low multiplicities (0 or 1) not considered. + IF(NP.LE.1) THEN + CALL PYERRM(8,'(PYTHRU:) too few particles for analysis') + THR=-1D0 + OBL=-1D0 + RETURN + ENDIF + +C...Loop over thrust and major. T axis along z direction in latter case. + DO 320 ILD=1,2 + IF(ILD.EQ.2) THEN + K(N+NP+1,1)=31 + PHI=PYANGL(P(N+NP+1,1),P(N+NP+1,2)) + MSTU(33)=1 + CALL PYROBO(N+1,N+NP+1,0D0,-PHI,0D0,0D0,0D0) + THE=PYANGL(P(N+NP+1,3),P(N+NP+1,1)) + CALL PYROBO(N+1,N+NP+1,-THE,0D0,0D0,0D0,0D0) + ENDIF + +C...Find and order particles with highest p (pT for major). + DO 110 ILF=N+NP+4,N+NP+MSTU(44)+4 + P(ILF,4)=0D0 + 110 CONTINUE + DO 160 I=N+1,N+NP + IF(ILD.EQ.2) P(I,4)=SQRT(P(I,1)**2+P(I,2)**2) + DO 130 ILF=N+NP+MSTU(44)+3,N+NP+4,-1 + IF(P(I,4).LE.P(ILF,4)) GOTO 140 + DO 120 J=1,5 + P(ILF+1,J)=P(ILF,J) + 120 CONTINUE + 130 CONTINUE + ILF=N+NP+3 + 140 DO 150 J=1,5 + P(ILF+1,J)=P(I,J) + 150 CONTINUE + 160 CONTINUE + +C...Find and order initial axes with highest thrust (major). + DO 170 ILG=N+NP+MSTU(44)+5,N+NP+MSTU(44)+15 + P(ILG,4)=0D0 + 170 CONTINUE + NC=2**(MIN(MSTU(44),NP)-1) + DO 250 ILC=1,NC + DO 180 J=1,3 + TDI(J)=0D0 + 180 CONTINUE + DO 200 ILF=1,MIN(MSTU(44),NP) + SGN=P(N+NP+ILF+3,5) + IF(2**ILF*((ILC+2**(ILF-1)-1)/2**ILF).GE.ILC) SGN=-SGN + DO 190 J=1,4-ILD + TDI(J)=TDI(J)+SGN*P(N+NP+ILF+3,J) + 190 CONTINUE + 200 CONTINUE + TDS=TDI(1)**2+TDI(2)**2+TDI(3)**2 + DO 220 ILG=N+NP+MSTU(44)+MIN(ILC,10)+4,N+NP+MSTU(44)+5,-1 + IF(TDS.LE.P(ILG,4)) GOTO 230 + DO 210 J=1,4 + P(ILG+1,J)=P(ILG,J) + 210 CONTINUE + 220 CONTINUE + ILG=N+NP+MSTU(44)+4 + 230 DO 240 J=1,3 + P(ILG+1,J)=TDI(J) + 240 CONTINUE + P(ILG+1,4)=TDS + 250 CONTINUE + +C...Iterate direction of axis until stable maximum. + P(N+NP+ILD,4)=0D0 + ILG=0 + 260 ILG=ILG+1 + THP=0D0 + 270 THPS=THP + DO 280 J=1,3 + IF(THP.LE.1D-10) TDI(J)=P(N+NP+MSTU(44)+4+ILG,J) + IF(THP.GT.1D-10) TDI(J)=TPR(J) + TPR(J)=0D0 + 280 CONTINUE + DO 300 I=N+1,N+NP + SGN=SIGN(P(I,5),TDI(1)*P(I,1)+TDI(2)*P(I,2)+TDI(3)*P(I,3)) + DO 290 J=1,4-ILD + TPR(J)=TPR(J)+SGN*P(I,J) + 290 CONTINUE + 300 CONTINUE + THP=SQRT(TPR(1)**2+TPR(2)**2+TPR(3)**2)/PS + IF(THP.GE.THPS+PARU(48)) GOTO 270 + +C...Save good axis. Try new initial axis until a number of tries agree. + IF(THP.LT.P(N+NP+ILD,4)-PARU(48).AND.ILG.LT.MIN(10,NC)) GOTO 260 + IF(THP.GT.P(N+NP+ILD,4)+PARU(48)) THEN + IAGR=0 + SGN=(-1D0)**INT(PYR(0)+0.5D0) + DO 310 J=1,3 + P(N+NP+ILD,J)=SGN*TPR(J)/(PS*THP) + 310 CONTINUE + P(N+NP+ILD,4)=THP + P(N+NP+ILD,5)=0D0 + ENDIF + IAGR=IAGR+1 + IF(IAGR.LT.MSTU(45).AND.ILG.LT.MIN(10,NC)) GOTO 260 + 320 CONTINUE + +C...Find minor axis and value by orthogonality. + SGN=(-1D0)**INT(PYR(0)+0.5D0) + P(N+NP+3,1)=-SGN*P(N+NP+2,2) + P(N+NP+3,2)=SGN*P(N+NP+2,1) + P(N+NP+3,3)=0D0 + THP=0D0 + DO 330 I=N+1,N+NP + THP=THP+P(I,5)*ABS(P(N+NP+3,1)*P(I,1)+P(N+NP+3,2)*P(I,2)) + 330 CONTINUE + P(N+NP+3,4)=THP/PS + P(N+NP+3,5)=0D0 + +C...Fill axis information. Rotate back to original coordinate system. + DO 350 ILD=1,3 + K(N+ILD,1)=31 + K(N+ILD,2)=96 + K(N+ILD,3)=ILD + K(N+ILD,4)=0 + K(N+ILD,5)=0 + DO 340 J=1,5 + P(N+ILD,J)=P(N+NP+ILD,J) + V(N+ILD,J)=0D0 + 340 CONTINUE + 350 CONTINUE + CALL PYROBO(N+1,N+3,THE,PHI,0D0,0D0,0D0) + +C...Calculate thrust and oblateness. Select storing option. + THR=P(N+1,4) + OBL=P(N+2,4)-P(N+3,4) + MSTU(61)=N+1 + MSTU(62)=NP + IF(MSTU(43).LE.1) MSTU(3)=3 + IF(MSTU(43).GE.2) N=N+3 + + RETURN + END + +C********************************************************************* + +C...PYCLUS +C...Subdivides the particle content of an event into jets/clusters. + + SUBROUTINE PYCLUS(NJET) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ +C...Local arrays and saved variables. + DIMENSION PS(5) + SAVE NSAV,NP,PS,PSS,RINIT,NPRE,NREM + +C...Functions: distance measure in pT, (pseudo)mass or Durham pT. + R2T(I1,I2)=(P(I1,5)*P(I2,5)-P(I1,1)*P(I2,1)-P(I1,2)*P(I2,2)- + &P(I1,3)*P(I2,3))*2D0*P(I1,5)*P(I2,5)/(0.0001D0+P(I1,5)+P(I2,5))**2 + R2M(I1,I2)=2D0*P(I1,4)*P(I2,4)*(1D0-(P(I1,1)*P(I2,1)+P(I1,2)* + &P(I2,2)+P(I1,3)*P(I2,3))/(P(I1,5)*P(I2,5))) + R2D(I1,I2)=2D0*MIN(P(I1,4),P(I2,4))**2*(1D0-(P(I1,1)*P(I2,1)+ + &P(I1,2)*P(I2,2)+P(I1,3)*P(I2,3))/(P(I1,5)*P(I2,5))) + +C...If first time, reset. If reentering, skip preliminaries. + IF(MSTU(48).LE.0) THEN + NP=0 + DO 100 J=1,5 + PS(J)=0D0 + 100 CONTINUE + PSS=0D0 + PIMASS=PMAS(PYCOMP(211),1) + ELSE + NJET=NSAV + IF(MSTU(43).GE.2) N=N-NJET + DO 110 I=N+1,N+NJET + P(I,5)=SQRT(P(I,1)**2+P(I,2)**2+P(I,3)**2) + 110 CONTINUE + IF(MSTU(46).LE.3.OR.MSTU(46).EQ.5) THEN + R2ACC=PARU(44)**2 + ELSE + R2ACC=PARU(45)*PS(5)**2 + ENDIF + NLOOP=0 + GOTO 300 + ENDIF + +C...Find which particles are to be considered in cluster search. + DO 140 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 140 + IF(MSTU(41).GE.2) THEN + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0.OR.KC.EQ.12.OR.KC.EQ.14.OR.KC.EQ.16.OR. + & KC.EQ.18) GOTO 140 + IF(MSTU(41).GE.3.AND.KCHG(KC,2).EQ.0.AND.PYCHGE(K(I,2)).EQ.0) + & GOTO 140 + ENDIF + IF(N+2*NP.GE.MSTU(4)-MSTU(32)-5) THEN + CALL PYERRM(11,'(PYCLUS:) no more memory left in PYJETS') + NJET=-1 + RETURN + ENDIF + +C...Take copy of these particles, with space left for jets later on. + NP=NP+1 + K(N+NP,3)=I + DO 120 J=1,5 + P(N+NP,J)=P(I,J) + 120 CONTINUE + IF(MSTU(42).EQ.0) P(N+NP,5)=0D0 + IF(MSTU(42).EQ.1.AND.K(I,2).NE.22) P(N+NP,5)=PIMASS + P(N+NP,4)=SQRT(P(N+NP,5)**2+P(I,1)**2+P(I,2)**2+P(I,3)**2) + P(N+NP,5)=SQRT(P(I,1)**2+P(I,2)**2+P(I,3)**2) + DO 130 J=1,4 + PS(J)=PS(J)+P(N+NP,J) + 130 CONTINUE + PSS=PSS+P(N+NP,5) + 140 CONTINUE + DO 160 I=N+1,N+NP + K(I+NP,3)=K(I,3) + DO 150 J=1,5 + P(I+NP,J)=P(I,J) + 150 CONTINUE + 160 CONTINUE + PS(5)=SQRT(MAX(0D0,PS(4)**2-PS(1)**2-PS(2)**2-PS(3)**2)) + +C...Very low multiplicities not considered. + IF(NP.LT.MSTU(47)) THEN + CALL PYERRM(8,'(PYCLUS:) too few particles for analysis') + NJET=-1 + RETURN + ENDIF + +C...Find precluster configuration. If too few jets, make harder cuts. + NLOOP=0 + IF(MSTU(46).LE.3.OR.MSTU(46).EQ.5) THEN + R2ACC=PARU(44)**2 + ELSE + R2ACC=PARU(45)*PS(5)**2 + ENDIF + RINIT=1.25D0*PARU(43) + IF(NP.LE.MSTU(47)+2) RINIT=0D0 + 170 RINIT=0.8D0*RINIT + NPRE=0 + NREM=NP + DO 180 I=N+NP+1,N+2*NP + K(I,4)=0 + 180 CONTINUE + +C...Sum up small momentum region. Jet if enough absolute momentum. + IF(MSTU(46).LE.2) THEN + DO 190 J=1,4 + P(N+1,J)=0D0 + 190 CONTINUE + DO 210 I=N+NP+1,N+2*NP + IF(P(I,5).GT.2D0*RINIT) GOTO 210 + NREM=NREM-1 + K(I,4)=1 + DO 200 J=1,4 + P(N+1,J)=P(N+1,J)+P(I,J) + 200 CONTINUE + 210 CONTINUE + P(N+1,5)=SQRT(P(N+1,1)**2+P(N+1,2)**2+P(N+1,3)**2) + IF(P(N+1,5).GT.2D0*RINIT) NPRE=1 + IF(RINIT.GE.0.2D0*PARU(43).AND.NPRE+NREM.LT.MSTU(47)) GOTO 170 + IF(NREM.EQ.0) GOTO 170 + ENDIF + +C...Find fastest remaining particle. + 220 NPRE=NPRE+1 + PMAX=0D0 + DO 230 I=N+NP+1,N+2*NP + IF(K(I,4).NE.0.OR.P(I,5).LE.PMAX) GOTO 230 + IMAX=I + PMAX=P(I,5) + 230 CONTINUE + DO 240 J=1,5 + P(N+NPRE,J)=P(IMAX,J) + 240 CONTINUE + NREM=NREM-1 + K(IMAX,4)=NPRE + +C...Sum up precluster around it according to pT separation. + IF(MSTU(46).LE.2) THEN + DO 260 I=N+NP+1,N+2*NP + IF(K(I,4).NE.0) GOTO 260 + R2=R2T(I,IMAX) + IF(R2.GT.RINIT**2) GOTO 260 + NREM=NREM-1 + K(I,4)=NPRE + DO 250 J=1,4 + P(N+NPRE,J)=P(N+NPRE,J)+P(I,J) + 250 CONTINUE + 260 CONTINUE + P(N+NPRE,5)=SQRT(P(N+NPRE,1)**2+P(N+NPRE,2)**2+P(N+NPRE,3)**2) + +C...Sum up precluster around it according to mass or +C...Durham pT separation. + ELSE + 270 IMIN=0 + R2MIN=RINIT**2 + DO 280 I=N+NP+1,N+2*NP + IF(K(I,4).NE.0) GOTO 280 + IF(MSTU(46).LE.4) THEN + R2=R2M(I,N+NPRE) + ELSE + R2=R2D(I,N+NPRE) + ENDIF + IF(R2.GE.R2MIN) GOTO 280 + IMIN=I + R2MIN=R2 + 280 CONTINUE + IF(IMIN.NE.0) THEN + DO 290 J=1,4 + P(N+NPRE,J)=P(N+NPRE,J)+P(IMIN,J) + 290 CONTINUE + P(N+NPRE,5)=SQRT(P(N+NPRE,1)**2+P(N+NPRE,2)**2+P(N+NPRE,3)**2) + NREM=NREM-1 + K(IMIN,4)=NPRE + GOTO 270 + ENDIF + ENDIF + +C...Check if more preclusters to be found. Start over if too few. + IF(RINIT.GE.0.2D0*PARU(43).AND.NPRE+NREM.LT.MSTU(47)) GOTO 170 + IF(NREM.GT.0) GOTO 220 + NJET=NPRE + +C...Reassign all particles to nearest jet. Sum up new jet momenta. + 300 TSAV=0D0 + PSJT=0D0 + 310 IF(MSTU(46).LE.1) THEN + DO 330 I=N+1,N+NJET + DO 320 J=1,4 + V(I,J)=0D0 + 320 CONTINUE + 330 CONTINUE + DO 360 I=N+NP+1,N+2*NP + R2MIN=PSS**2 + DO 340 IJET=N+1,N+NJET + IF(P(IJET,5).LT.RINIT) GOTO 340 + R2=R2T(I,IJET) + IF(R2.GE.R2MIN) GOTO 340 + IMIN=IJET + R2MIN=R2 + 340 CONTINUE + K(I,4)=IMIN-N + DO 350 J=1,4 + V(IMIN,J)=V(IMIN,J)+P(I,J) + 350 CONTINUE + 360 CONTINUE + PSJT=0D0 + DO 380 I=N+1,N+NJET + DO 370 J=1,4 + P(I,J)=V(I,J) + 370 CONTINUE + P(I,5)=SQRT(P(I,1)**2+P(I,2)**2+P(I,3)**2) + PSJT=PSJT+P(I,5) + 380 CONTINUE + ENDIF + +C...Find two closest jets. + R2MIN=2D0*MAX(R2ACC,PS(5)**2) + DO 400 ITRY1=N+1,N+NJET-1 + DO 390 ITRY2=ITRY1+1,N+NJET + IF(MSTU(46).LE.2) THEN + R2=R2T(ITRY1,ITRY2) + ELSEIF(MSTU(46).LE.4) THEN + R2=R2M(ITRY1,ITRY2) + ELSE + R2=R2D(ITRY1,ITRY2) + ENDIF + IF(R2.GE.R2MIN) GOTO 390 + IMIN1=ITRY1 + IMIN2=ITRY2 + R2MIN=R2 + 390 CONTINUE + 400 CONTINUE + +C...If allowed, join two closest jets and start over. + IF(NJET.GT.MSTU(47).AND.R2MIN.LT.R2ACC) THEN + IREC=MIN(IMIN1,IMIN2) + IDEL=MAX(IMIN1,IMIN2) + DO 410 J=1,4 + P(IREC,J)=P(IMIN1,J)+P(IMIN2,J) + 410 CONTINUE + P(IREC,5)=SQRT(P(IREC,1)**2+P(IREC,2)**2+P(IREC,3)**2) + DO 430 I=IDEL+1,N+NJET + DO 420 J=1,5 + P(I-1,J)=P(I,J) + 420 CONTINUE + 430 CONTINUE + IF(MSTU(46).GE.2) THEN + DO 440 I=N+NP+1,N+2*NP + IORI=N+K(I,4) + IF(IORI.EQ.IDEL) K(I,4)=IREC-N + IF(IORI.GT.IDEL) K(I,4)=K(I,4)-1 + 440 CONTINUE + ENDIF + NJET=NJET-1 + GOTO 300 + +C...Divide up broad jet if empty cluster in list of final ones. + ELSEIF(NJET.EQ.MSTU(47).AND.MSTU(46).LE.1.AND.NLOOP.LE.2) THEN + DO 450 I=N+1,N+NJET + K(I,5)=0 + 450 CONTINUE + DO 460 I=N+NP+1,N+2*NP + K(N+K(I,4),5)=K(N+K(I,4),5)+1 + 460 CONTINUE + IEMP=0 + DO 470 I=N+1,N+NJET + IF(K(I,5).EQ.0) IEMP=I + 470 CONTINUE + IF(IEMP.NE.0) THEN + NLOOP=NLOOP+1 + ISPL=0 + R2MAX=0D0 + DO 480 I=N+NP+1,N+2*NP + IF(K(N+K(I,4),5).LE.1.OR.P(I,5).LT.RINIT) GOTO 480 + IJET=N+K(I,4) + R2=R2T(I,IJET) + IF(R2.LE.R2MAX) GOTO 480 + ISPL=I + R2MAX=R2 + 480 CONTINUE + IF(ISPL.NE.0) THEN + IJET=N+K(ISPL,4) + DO 490 J=1,4 + P(IEMP,J)=P(ISPL,J) + P(IJET,J)=P(IJET,J)-P(ISPL,J) + 490 CONTINUE + P(IEMP,5)=P(ISPL,5) + P(IJET,5)=SQRT(P(IJET,1)**2+P(IJET,2)**2+P(IJET,3)**2) + IF(NLOOP.LE.2) GOTO 300 + ENDIF + ENDIF + ENDIF + +C...If generalized thrust has not yet converged, continue iteration. + IF(MSTU(46).LE.1.AND.NLOOP.LE.2.AND.PSJT/PSS.GT.TSAV+PARU(48)) + &THEN + TSAV=PSJT/PSS + GOTO 310 + ENDIF + +C...Reorder jets according to energy. + DO 510 I=N+1,N+NJET + DO 500 J=1,5 + V(I,J)=P(I,J) + 500 CONTINUE + 510 CONTINUE + DO 540 INEW=N+1,N+NJET + PEMAX=0D0 + DO 520 ITRY=N+1,N+NJET + IF(V(ITRY,4).LE.PEMAX) GOTO 520 + IMAX=ITRY + PEMAX=V(ITRY,4) + 520 CONTINUE + K(INEW,1)=31 + K(INEW,2)=97 + K(INEW,3)=INEW-N + K(INEW,4)=0 + DO 530 J=1,5 + P(INEW,J)=V(IMAX,J) + 530 CONTINUE + V(IMAX,4)=-1D0 + K(IMAX,5)=INEW + 540 CONTINUE + +C...Clean up particle-jet assignments and jet information. + DO 550 I=N+NP+1,N+2*NP + IORI=K(N+K(I,4),5) + K(I,4)=IORI-N + IF(K(K(I,3),1).NE.3) K(K(I,3),4)=IORI-N + K(IORI,4)=K(IORI,4)+1 + 550 CONTINUE + IEMP=0 + PSJT=0D0 + DO 570 I=N+1,N+NJET + K(I,5)=0 + PSJT=PSJT+P(I,5) + P(I,5)=SQRT(MAX(P(I,4)**2-P(I,5)**2,0D0)) + DO 560 J=1,5 + V(I,J)=0D0 + 560 CONTINUE + IF(K(I,4).EQ.0) IEMP=I + 570 CONTINUE + +C...Select storing option. Output variables. Check for failure. + MSTU(61)=N+1 + MSTU(62)=NP + MSTU(63)=NPRE + PARU(61)=PS(5) + PARU(62)=PSJT/PSS + PARU(63)=SQRT(R2MIN) + IF(NJET.LE.1) PARU(63)=0D0 + IF(IEMP.NE.0) THEN + CALL PYERRM(8,'(PYCLUS:) failed to reconstruct as requested') + NJET=-1 + RETURN + ENDIF + IF(MSTU(43).LE.1) MSTU(3)=MAX(0,NJET) + IF(MSTU(43).GE.2) N=N+MAX(0,NJET) + NSAV=NJET + + RETURN + END + +C********************************************************************* + +C...PYCELL +C...Provides a simple way of jet finding in eta-phi-ET coordinates, +C...as used for calorimeters at hadron colliders. + + SUBROUTINE PYCELL(NJET) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ + +C...Loop over all particles. Find cell that was hit by given particle. + PTLRAT=1D0/SINH(PARU(51))**2 + NP=0 + NC=N + DO 110 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 110 + IF(P(I,1)**2+P(I,2)**2.LE.PTLRAT*P(I,3)**2) GOTO 110 + IF(MSTU(41).GE.2) THEN + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0.OR.KC.EQ.12.OR.KC.EQ.14.OR.KC.EQ.16.OR. + & KC.EQ.18) GOTO 110 + IF(MSTU(41).GE.3.AND.KCHG(KC,2).EQ.0.AND.PYCHGE(K(I,2)).EQ.0) + & GOTO 110 + ENDIF + NP=NP+1 + PT=SQRT(P(I,1)**2+P(I,2)**2) + ETA=SIGN(LOG((SQRT(PT**2+P(I,3)**2)+ABS(P(I,3)))/PT),P(I,3)) + IETA=MAX(1,MIN(MSTU(51),1+INT(MSTU(51)*0.5D0* + & (ETA/PARU(51)+1D0)))) + PHI=PYANGL(P(I,1),P(I,2)) + IPHI=MAX(1,MIN(MSTU(52),1+INT(MSTU(52)*0.5D0* + & (PHI/PARU(1)+1D0)))) + IETPH=MSTU(52)*IETA+IPHI + +C...Add to cell already hit, or book new cell. + DO 100 IC=N+1,NC + IF(IETPH.EQ.K(IC,3)) THEN + K(IC,4)=K(IC,4)+1 + P(IC,5)=P(IC,5)+PT + GOTO 110 + ENDIF + 100 CONTINUE + IF(NC.GE.MSTU(4)-MSTU(32)-5) THEN + CALL PYERRM(11,'(PYCELL:) no more memory left in PYJETS') + NJET=-2 + RETURN + ENDIF + NC=NC+1 + K(NC,3)=IETPH + K(NC,4)=1 + K(NC,5)=2 + P(NC,1)=(PARU(51)/MSTU(51))*(2*IETA-1-MSTU(51)) + P(NC,2)=(PARU(1)/MSTU(52))*(2*IPHI-1-MSTU(52)) + P(NC,5)=PT + 110 CONTINUE + +C...Smear true bin content by calorimeter resolution. + IF(MSTU(53).GE.1) THEN + DO 130 IC=N+1,NC + PEI=P(IC,5) + IF(MSTU(53).EQ.2) PEI=P(IC,5)*COSH(P(IC,1)) + 120 PEF=PEI+PARU(55)*SQRT(-2D0*LOG(MAX(1D-10,PYR(0)))*PEI)* + & COS(PARU(2)*PYR(0)) + IF(PEF.LT.0D0.OR.PEF.GT.PARU(56)*PEI) GOTO 120 + P(IC,5)=PEF + IF(MSTU(53).EQ.2) P(IC,5)=PEF/COSH(P(IC,1)) + 130 CONTINUE + ENDIF + +C...Remove cells below threshold. + IF(PARU(58).GT.0D0) THEN + NCC=NC + NC=N + DO 140 IC=N+1,NCC + IF(P(IC,5).GT.PARU(58)) THEN + NC=NC+1 + K(NC,3)=K(IC,3) + K(NC,4)=K(IC,4) + K(NC,5)=K(IC,5) + P(NC,1)=P(IC,1) + P(NC,2)=P(IC,2) + P(NC,5)=P(IC,5) + ENDIF + 140 CONTINUE + ENDIF + +C...Find initiator cell: the one with highest pT of not yet used ones. + NJ=NC + 150 ETMAX=0D0 + DO 160 IC=N+1,NC + IF(K(IC,5).NE.2) GOTO 160 + IF(P(IC,5).LE.ETMAX) GOTO 160 + ICMAX=IC + ETA=P(IC,1) + PHI=P(IC,2) + ETMAX=P(IC,5) + 160 CONTINUE + IF(ETMAX.LT.PARU(52)) GOTO 220 + IF(NJ.GE.MSTU(4)-MSTU(32)-5) THEN + CALL PYERRM(11,'(PYCELL:) no more memory left in PYJETS') + NJET=-2 + RETURN + ENDIF + K(ICMAX,5)=1 + NJ=NJ+1 + K(NJ,4)=0 + K(NJ,5)=1 + P(NJ,1)=ETA + P(NJ,2)=PHI + P(NJ,3)=0D0 + P(NJ,4)=0D0 + P(NJ,5)=0D0 + +C...Sum up unused cells within required distance of initiator. + DO 170 IC=N+1,NC + IF(K(IC,5).EQ.0) GOTO 170 + IF(ABS(P(IC,1)-ETA).GT.PARU(54)) GOTO 170 + DPHIA=ABS(P(IC,2)-PHI) + IF(DPHIA.GT.PARU(54).AND.DPHIA.LT.PARU(2)-PARU(54)) GOTO 170 + PHIC=P(IC,2) + IF(DPHIA.GT.PARU(1)) PHIC=PHIC+SIGN(PARU(2),PHI) + IF((P(IC,1)-ETA)**2+(PHIC-PHI)**2.GT.PARU(54)**2) GOTO 170 + K(IC,5)=-K(IC,5) + K(NJ,4)=K(NJ,4)+K(IC,4) + P(NJ,3)=P(NJ,3)+P(IC,5)*P(IC,1) + P(NJ,4)=P(NJ,4)+P(IC,5)*PHIC + P(NJ,5)=P(NJ,5)+P(IC,5) + 170 CONTINUE + +C...Reject cluster below minimum ET, else accept. + IF(P(NJ,5).LT.PARU(53)) THEN + NJ=NJ-1 + DO 180 IC=N+1,NC + IF(K(IC,5).LT.0) K(IC,5)=-K(IC,5) + 180 CONTINUE + ELSEIF(MSTU(54).LE.2) THEN + P(NJ,3)=P(NJ,3)/P(NJ,5) + P(NJ,4)=P(NJ,4)/P(NJ,5) + IF(ABS(P(NJ,4)).GT.PARU(1)) P(NJ,4)=P(NJ,4)-SIGN(PARU(2), + & P(NJ,4)) + DO 190 IC=N+1,NC + IF(K(IC,5).LT.0) K(IC,5)=0 + 190 CONTINUE + ELSE + DO 200 J=1,4 + P(NJ,J)=0D0 + 200 CONTINUE + DO 210 IC=N+1,NC + IF(K(IC,5).GE.0) GOTO 210 + P(NJ,1)=P(NJ,1)+P(IC,5)*COS(P(IC,2)) + P(NJ,2)=P(NJ,2)+P(IC,5)*SIN(P(IC,2)) + P(NJ,3)=P(NJ,3)+P(IC,5)*SINH(P(IC,1)) + P(NJ,4)=P(NJ,4)+P(IC,5)*COSH(P(IC,1)) + K(IC,5)=0 + 210 CONTINUE + ENDIF + GOTO 150 + +C...Arrange clusters in falling ET sequence. + 220 DO 250 I=1,NJ-NC + ETMAX=0D0 + DO 230 IJ=NC+1,NJ + IF(K(IJ,5).EQ.0) GOTO 230 + IF(P(IJ,5).LT.ETMAX) GOTO 230 + IJMAX=IJ + ETMAX=P(IJ,5) + 230 CONTINUE + K(IJMAX,5)=0 + K(N+I,1)=31 + K(N+I,2)=98 + K(N+I,3)=I + K(N+I,4)=K(IJMAX,4) + K(N+I,5)=0 + DO 240 J=1,5 + P(N+I,J)=P(IJMAX,J) + V(N+I,J)=0D0 + 240 CONTINUE + 250 CONTINUE + NJET=NJ-NC + +C...Convert to massless or massive four-vectors. + IF(MSTU(54).EQ.2) THEN + DO 260 I=N+1,N+NJET + ETA=P(I,3) + P(I,1)=P(I,5)*COS(P(I,4)) + P(I,2)=P(I,5)*SIN(P(I,4)) + P(I,3)=P(I,5)*SINH(ETA) + P(I,4)=P(I,5)*COSH(ETA) + P(I,5)=0D0 + 260 CONTINUE + ELSEIF(MSTU(54).GE.3) THEN + DO 270 I=N+1,N+NJET + P(I,5)=SQRT(MAX(0D0,P(I,4)**2-P(I,1)**2-P(I,2)**2-P(I,3)**2)) + 270 CONTINUE + ENDIF + +C...Information about storage. + MSTU(61)=N+1 + MSTU(62)=NP + MSTU(63)=NC-N + IF(MSTU(43).LE.1) MSTU(3)=MAX(0,NJET) + IF(MSTU(43).GE.2) N=N+MAX(0,NJET) + + RETURN + END + +C********************************************************************* + +C...PYJMAS +C...Determines, approximately, the two jet masses that minimize +C...the sum m_H^2 + m_L^2, a la Clavelli and Wyler. + + SUBROUTINE PYJMAS(PMH,PML) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ +C...Local arrays. + DIMENSION SM(3,3),SAX(3),PS(3,5) + +C...Reset. + NP=0 + DO 120 J1=1,3 + DO 100 J2=J1,3 + SM(J1,J2)=0D0 + 100 CONTINUE + DO 110 J2=1,4 + PS(J1,J2)=0D0 + 110 CONTINUE + 120 CONTINUE + PSS=0D0 + PIMASS=PMAS(PYCOMP(211),1) + +C...Take copy of particles that are to be considered in mass analysis. + DO 170 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 170 + IF(MSTU(41).GE.2) THEN + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0.OR.KC.EQ.12.OR.KC.EQ.14.OR.KC.EQ.16.OR. + & KC.EQ.18) GOTO 170 + IF(MSTU(41).GE.3.AND.KCHG(KC,2).EQ.0.AND.PYCHGE(K(I,2)).EQ.0) + & GOTO 170 + ENDIF + IF(N+NP+1.GE.MSTU(4)-MSTU(32)-5) THEN + CALL PYERRM(11,'(PYJMAS:) no more memory left in PYJETS') + PMH=-2D0 + PML=-2D0 + RETURN + ENDIF + NP=NP+1 + DO 130 J=1,5 + P(N+NP,J)=P(I,J) + 130 CONTINUE + IF(MSTU(42).EQ.0) P(N+NP,5)=0D0 + IF(MSTU(42).EQ.1.AND.K(I,2).NE.22) P(N+NP,5)=PIMASS + P(N+NP,4)=SQRT(P(N+NP,5)**2+P(I,1)**2+P(I,2)**2+P(I,3)**2) + +C...Fill information in sphericity tensor and total momentum vector. + DO 150 J1=1,3 + DO 140 J2=J1,3 + SM(J1,J2)=SM(J1,J2)+P(I,J1)*P(I,J2) + 140 CONTINUE + 150 CONTINUE + PSS=PSS+(P(I,1)**2+P(I,2)**2+P(I,3)**2) + DO 160 J=1,4 + PS(3,J)=PS(3,J)+P(N+NP,J) + 160 CONTINUE + 170 CONTINUE + +C...Very low multiplicities (0 or 1) not considered. + IF(NP.LE.1) THEN + CALL PYERRM(8,'(PYJMAS:) too few particles for analysis') + PMH=-1D0 + PML=-1D0 + RETURN + ENDIF + PARU(61)=SQRT(MAX(0D0,PS(3,4)**2-PS(3,1)**2-PS(3,2)**2- + &PS(3,3)**2)) + +C...Find largest eigenvalue to matrix (third degree equation). + DO 190 J1=1,3 + DO 180 J2=J1,3 + SM(J1,J2)=SM(J1,J2)/PSS + 180 CONTINUE + 190 CONTINUE + SQ=(SM(1,1)*SM(2,2)+SM(1,1)*SM(3,3)+SM(2,2)*SM(3,3)- + &SM(1,2)**2-SM(1,3)**2-SM(2,3)**2)/3D0-1D0/9D0 + SR=-0.5D0*(SQ+1D0/9D0+SM(1,1)*SM(2,3)**2+SM(2,2)*SM(1,3)**2+ + &SM(3,3)*SM(1,2)**2-SM(1,1)*SM(2,2)*SM(3,3))+ + &SM(1,2)*SM(1,3)*SM(2,3)+1D0/27D0 + SP=COS(ACOS(MAX(MIN(SR/SQRT(-SQ**3),1D0),-1D0))/3D0) + SMA=1D0/3D0+SQRT(-SQ)*MAX(2D0*SP,SQRT(3D0*(1D0-SP**2))-SP) + +C...Find largest eigenvector by solving equation system. + DO 210 J1=1,3 + SM(J1,J1)=SM(J1,J1)-SMA + DO 200 J2=J1+1,3 + SM(J2,J1)=SM(J1,J2) + 200 CONTINUE + 210 CONTINUE + SMAX=0D0 + DO 230 J1=1,3 + DO 220 J2=1,3 + IF(ABS(SM(J1,J2)).LE.SMAX) GOTO 220 + JA=J1 + JB=J2 + SMAX=ABS(SM(J1,J2)) + 220 CONTINUE + 230 CONTINUE + SMAX=0D0 + DO 250 J3=JA+1,JA+2 + J1=J3-3*((J3-1)/3) + RL=SM(J1,JB)/SM(JA,JB) + DO 240 J2=1,3 + SM(J1,J2)=SM(J1,J2)-RL*SM(JA,J2) + IF(ABS(SM(J1,J2)).LE.SMAX) GOTO 240 + JC=J1 + SMAX=ABS(SM(J1,J2)) + 240 CONTINUE + 250 CONTINUE + JB1=JB+1-3*(JB/3) + JB2=JB+2-3*((JB+1)/3) + SAX(JB1)=-SM(JC,JB2) + SAX(JB2)=SM(JC,JB1) + SAX(JB)=-(SM(JA,JB1)*SAX(JB1)+SM(JA,JB2)*SAX(JB2))/SM(JA,JB) + +C...Divide particles into two initial clusters by hemisphere. + DO 270 I=N+1,N+NP + PSAX=P(I,1)*SAX(1)+P(I,2)*SAX(2)+P(I,3)*SAX(3) + IS=1 + IF(PSAX.LT.0D0) IS=2 + K(I,3)=IS + DO 260 J=1,4 + PS(IS,J)=PS(IS,J)+P(I,J) + 260 CONTINUE + 270 CONTINUE + PMS=MAX(1D-10,PS(1,4)**2-PS(1,1)**2-PS(1,2)**2-PS(1,3)**2)+ + &MAX(1D-10,PS(2,4)**2-PS(2,1)**2-PS(2,2)**2-PS(2,3)**2) + +C...Reassign one particle at a time; find maximum decrease of m^2 sum. + 280 PMD=0D0 + IM=0 + DO 290 J=1,4 + PS(3,J)=PS(1,J)-PS(2,J) + 290 CONTINUE + DO 300 I=N+1,N+NP + PPS=P(I,4)*PS(3,4)-P(I,1)*PS(3,1)-P(I,2)*PS(3,2)-P(I,3)*PS(3,3) + IF(K(I,3).EQ.1) PMDI=2D0*(P(I,5)**2-PPS) + IF(K(I,3).EQ.2) PMDI=2D0*(P(I,5)**2+PPS) + IF(PMDI.LT.PMD) THEN + PMD=PMDI + IM=I + ENDIF + 300 CONTINUE + +C...Loop back if significant reduction in sum of m^2. + IF(PMD.LT.-PARU(48)*PMS) THEN + PMS=PMS+PMD + IS=K(IM,3) + DO 310 J=1,4 + PS(IS,J)=PS(IS,J)-P(IM,J) + PS(3-IS,J)=PS(3-IS,J)+P(IM,J) + 310 CONTINUE + K(IM,3)=3-IS + GOTO 280 + ENDIF + +C...Final masses and output. + MSTU(61)=N+1 + MSTU(62)=NP + PS(1,5)=SQRT(MAX(0D0,PS(1,4)**2-PS(1,1)**2-PS(1,2)**2-PS(1,3)**2)) + PS(2,5)=SQRT(MAX(0D0,PS(2,4)**2-PS(2,1)**2-PS(2,2)**2-PS(2,3)**2)) + PMH=MAX(PS(1,5),PS(2,5)) + PML=MIN(PS(1,5),PS(2,5)) + + RETURN + END + +C********************************************************************* + +C...PYFOWO +C...Calculates the first few Fox-Wolfram moments. + + SUBROUTINE PYFOWO(H10,H20,H30,H40) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ + +C...Copy momenta for particles and calculate H0. + NP=0 + H0=0D0 + HD=0D0 + DO 110 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 110 + IF(MSTU(41).GE.2) THEN + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0.OR.KC.EQ.12.OR.KC.EQ.14.OR.KC.EQ.16.OR. + & KC.EQ.18) GOTO 110 + IF(MSTU(41).GE.3.AND.KCHG(KC,2).EQ.0.AND.PYCHGE(K(I,2)).EQ.0) + & GOTO 110 + ENDIF + IF(N+NP.GE.MSTU(4)-MSTU(32)-5) THEN + CALL PYERRM(11,'(PYFOWO:) no more memory left in PYJETS') + H10=-1D0 + H20=-1D0 + H30=-1D0 + H40=-1D0 + RETURN + ENDIF + NP=NP+1 + DO 100 J=1,3 + P(N+NP,J)=P(I,J) + 100 CONTINUE + P(N+NP,4)=SQRT(P(I,1)**2+P(I,2)**2+P(I,3)**2) + H0=H0+P(N+NP,4) + HD=HD+P(N+NP,4)**2 + 110 CONTINUE + H0=H0**2 + +C...Very low multiplicities (0 or 1) not considered. + IF(NP.LE.1) THEN + CALL PYERRM(8,'(PYFOWO:) too few particles for analysis') + H10=-1D0 + H20=-1D0 + H30=-1D0 + H40=-1D0 + RETURN + ENDIF + +C...Calculate H1 - H4. + H10=0D0 + H20=0D0 + H30=0D0 + H40=0D0 + DO 130 I1=N+1,N+NP + DO 120 I2=I1+1,N+NP + CTHE=(P(I1,1)*P(I2,1)+P(I1,2)*P(I2,2)+P(I1,3)*P(I2,3))/ + & (P(I1,4)*P(I2,4)) + H10=H10+P(I1,4)*P(I2,4)*CTHE + H20=H20+P(I1,4)*P(I2,4)*(1.5D0*CTHE**2-0.5D0) + H30=H30+P(I1,4)*P(I2,4)*(2.5D0*CTHE**3-1.5D0*CTHE) + H40=H40+P(I1,4)*P(I2,4)*(4.375D0*CTHE**4-3.75D0*CTHE**2+ + & 0.375D0) + 120 CONTINUE + 130 CONTINUE + +C...Calculate H1/H0 - H4/H0. Output. + MSTU(61)=N+1 + MSTU(62)=NP + H10=(HD+2D0*H10)/H0 + H20=(HD+2D0*H20)/H0 + H30=(HD+2D0*H30)/H0 + H40=(HD+2D0*H40)/H0 + + RETURN + END + +C********************************************************************* + +C...PYTABU +C...Evaluates various properties of an event, with statistics +C...accumulated during the course of the run and +C...printed at the end. + + SUBROUTINE PYTABU(MTABU) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYDAT3/ +C...Local arrays, character variables, saved variables and data. + DIMENSION KFIS(100,2),NPIS(100,0:10),KFFS(400),NPFS(400,4), + &FEVFM(10,4),FM1FM(3,10,4),FM2FM(3,10,4),FMOMA(4),FMOMS(4), + &FEVEE(50),FE1EC(50),FE2EC(50),FE1EA(25),FE2EA(25), + &KFDM(8),KFDC(200,0:8),NPDC(200) + SAVE NEVIS,NKFIS,KFIS,NPIS,NEVFS,NPRFS,NFIFS,NCHFS,NKFFS, + &KFFS,NPFS,NEVFM,NMUFM,FM1FM,FM2FM,NEVEE,FE1EC,FE2EC,FE1EA, + &FE2EA,NEVDC,NKFDC,NREDC,KFDC,NPDC + CHARACTER CHAU*16,CHIS(2)*12,CHDC(8)*12 + DATA NEVIS/0/,NKFIS/0/,NEVFS/0/,NPRFS/0/,NFIFS/0/,NCHFS/0/, + &NKFFS/0/,NEVFM/0/,NMUFM/0/,FM1FM/120*0D0/,FM2FM/120*0D0/, + &NEVEE/0/,FE1EC/50*0D0/,FE2EC/50*0D0/,FE1EA/25*0D0/,FE2EA/25*0D0/, + &NEVDC/0/,NKFDC/0/,NREDC/0/ + +C...Reset statistics on initial parton state. + IF(MTABU.EQ.10) THEN + NEVIS=0 + NKFIS=0 + +C...Identify and order flavour content of initial state. + ELSEIF(MTABU.EQ.11) THEN + NEVIS=NEVIS+1 + KFM1=2*IABS(MSTU(161)) + IF(MSTU(161).GT.0) KFM1=KFM1-1 + KFM2=2*IABS(MSTU(162)) + IF(MSTU(162).GT.0) KFM2=KFM2-1 + KFMN=MIN(KFM1,KFM2) + KFMX=MAX(KFM1,KFM2) + DO 100 I=1,NKFIS + IF(KFMN.EQ.KFIS(I,1).AND.KFMX.EQ.KFIS(I,2)) THEN + IKFIS=-I + GOTO 110 + ELSEIF(KFMN.LT.KFIS(I,1).OR.(KFMN.EQ.KFIS(I,1).AND. + & KFMX.LT.KFIS(I,2))) THEN + IKFIS=I + GOTO 110 + ENDIF + 100 CONTINUE + IKFIS=NKFIS+1 + 110 IF(IKFIS.LT.0) THEN + IKFIS=-IKFIS + ELSE + IF(NKFIS.GE.100) RETURN + DO 130 I=NKFIS,IKFIS,-1 + KFIS(I+1,1)=KFIS(I,1) + KFIS(I+1,2)=KFIS(I,2) + DO 120 J=0,10 + NPIS(I+1,J)=NPIS(I,J) + 120 CONTINUE + 130 CONTINUE + NKFIS=NKFIS+1 + KFIS(IKFIS,1)=KFMN + KFIS(IKFIS,2)=KFMX + DO 140 J=0,10 + NPIS(IKFIS,J)=0 + 140 CONTINUE + ENDIF + NPIS(IKFIS,0)=NPIS(IKFIS,0)+1 + +C...Count number of partons in initial state. + NP=0 + DO 160 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.12) THEN + ELSEIF(IABS(K(I,2)).GT.80.AND.IABS(K(I,2)).LE.100) THEN + ELSEIF(IABS(K(I,2)).GT.100.AND.MOD(IABS(K(I,2))/10,10).NE.0) + & THEN + ELSE + IM=I + 150 IM=K(IM,3) + IF(IM.LE.0.OR.IM.GT.N) THEN + NP=NP+1 + ELSEIF(K(IM,1).LE.0.OR.K(IM,1).GT.20) THEN + NP=NP+1 + ELSEIF(IABS(K(IM,2)).GT.80.AND.IABS(K(IM,2)).LE.100) THEN + ELSEIF(IABS(K(IM,2)).GT.100.AND.MOD(IABS(K(IM,2))/10,10) + & .NE.0) THEN + ELSE + GOTO 150 + ENDIF + ENDIF + 160 CONTINUE + NPCO=MAX(NP,1) + IF(NP.GE.6) NPCO=6 + IF(NP.GE.8) NPCO=7 + IF(NP.GE.11) NPCO=8 + IF(NP.GE.16) NPCO=9 + IF(NP.GE.26) NPCO=10 + NPIS(IKFIS,NPCO)=NPIS(IKFIS,NPCO)+1 + MSTU(62)=NP + +C...Write statistics on initial parton state. + ELSEIF(MTABU.EQ.12) THEN + FAC=1D0/MAX(1,NEVIS) + WRITE(MSTU(11),5000) NEVIS + DO 170 I=1,NKFIS + KFMN=KFIS(I,1) + IF(KFMN.EQ.0) KFMN=KFIS(I,2) + KFM1=(KFMN+1)/2 + IF(2*KFM1.EQ.KFMN) KFM1=-KFM1 + CALL PYNAME(KFM1,CHAU) + CHIS(1)=CHAU(1:12) + IF(CHAU(13:13).NE.' ') CHIS(1)(12:12)='?' + KFMX=KFIS(I,2) + IF(KFIS(I,1).EQ.0) KFMX=0 + KFM2=(KFMX+1)/2 + IF(2*KFM2.EQ.KFMX) KFM2=-KFM2 + CALL PYNAME(KFM2,CHAU) + CHIS(2)=CHAU(1:12) + IF(CHAU(13:13).NE.' ') CHIS(2)(12:12)='?' + WRITE(MSTU(11),5100) CHIS(1),CHIS(2),FAC*NPIS(I,0), + & (NPIS(I,J)/DBLE(NPIS(I,0)),J=1,10) + 170 CONTINUE + +C...Copy statistics on initial parton state into /PYJETS/. + ELSEIF(MTABU.EQ.13) THEN + FAC=1D0/MAX(1,NEVIS) + DO 190 I=1,NKFIS + KFMN=KFIS(I,1) + IF(KFMN.EQ.0) KFMN=KFIS(I,2) + KFM1=(KFMN+1)/2 + IF(2*KFM1.EQ.KFMN) KFM1=-KFM1 + KFMX=KFIS(I,2) + IF(KFIS(I,1).EQ.0) KFMX=0 + KFM2=(KFMX+1)/2 + IF(2*KFM2.EQ.KFMX) KFM2=-KFM2 + K(I,1)=32 + K(I,2)=99 + K(I,3)=KFM1 + K(I,4)=KFM2 + K(I,5)=NPIS(I,0) + DO 180 J=1,5 + P(I,J)=FAC*NPIS(I,J) + V(I,J)=FAC*NPIS(I,J+5) + 180 CONTINUE + 190 CONTINUE + N=NKFIS + DO 200 J=1,5 + K(N+1,J)=0 + P(N+1,J)=0D0 + V(N+1,J)=0D0 + 200 CONTINUE + K(N+1,1)=32 + K(N+1,2)=99 + K(N+1,5)=NEVIS + MSTU(3)=1 + +C...Reset statistics on number of particles/partons. + ELSEIF(MTABU.EQ.20) THEN + NEVFS=0 + NPRFS=0 + NFIFS=0 + NCHFS=0 + NKFFS=0 + +C...Identify whether particle/parton is primary or not. + ELSEIF(MTABU.EQ.21) THEN + NEVFS=NEVFS+1 + MSTU(62)=0 + DO 260 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.20.OR.K(I,1).EQ.13) GOTO 260 + MSTU(62)=MSTU(62)+1 + KC=PYCOMP(K(I,2)) + MPRI=0 + IF(K(I,3).LE.0.OR.K(I,3).GT.N) THEN + MPRI=1 + ELSEIF(K(K(I,3),1).LE.0.OR.K(K(I,3),1).GT.20) THEN + MPRI=1 + ELSEIF(K(K(I,3),2).GE.91.AND.K(K(I,3),2).LE.93) THEN + MPRI=1 + ELSEIF(KC.EQ.0) THEN + ELSEIF(K(K(I,3),1).EQ.13) THEN + IM=K(K(I,3),3) + IF(IM.LE.0.OR.IM.GT.N) THEN + MPRI=1 + ELSEIF(K(IM,1).LE.0.OR.K(IM,1).GT.20) THEN + MPRI=1 + ENDIF + ELSEIF(KCHG(KC,2).EQ.0) THEN + KCM=PYCOMP(K(K(I,3),2)) + IF(KCM.NE.0) THEN + IF(KCHG(KCM,2).NE.0) MPRI=1 + ENDIF + ENDIF + IF(KC.NE.0.AND.MPRI.EQ.1) THEN + IF(KCHG(KC,2).EQ.0) NPRFS=NPRFS+1 + ENDIF + IF(K(I,1).LE.10) THEN + NFIFS=NFIFS+1 + IF(PYCHGE(K(I,2)).NE.0) NCHFS=NCHFS+1 + ENDIF + +C...Fill statistics on number of particles/partons in event. + KFA=IABS(K(I,2)) + KFS=3-ISIGN(1,K(I,2))-MPRI + DO 210 IP=1,NKFFS + IF(KFA.EQ.KFFS(IP)) THEN + IKFFS=-IP + GOTO 220 + ELSEIF(KFA.LT.KFFS(IP)) THEN + IKFFS=IP + GOTO 220 + ENDIF + 210 CONTINUE + IKFFS=NKFFS+1 + 220 IF(IKFFS.LT.0) THEN + IKFFS=-IKFFS + ELSE + IF(NKFFS.GE.400) RETURN + DO 240 IP=NKFFS,IKFFS,-1 + KFFS(IP+1)=KFFS(IP) + DO 230 J=1,4 + NPFS(IP+1,J)=NPFS(IP,J) + 230 CONTINUE + 240 CONTINUE + NKFFS=NKFFS+1 + KFFS(IKFFS)=KFA + DO 250 J=1,4 + NPFS(IKFFS,J)=0 + 250 CONTINUE + ENDIF + NPFS(IKFFS,KFS)=NPFS(IKFFS,KFS)+1 + 260 CONTINUE + +C...Write statistics on particle/parton composition of events. + ELSEIF(MTABU.EQ.22) THEN + FAC=1D0/MAX(1,NEVFS) + WRITE(MSTU(11),5200) NEVFS,FAC*NPRFS,FAC*NFIFS,FAC*NCHFS + DO 270 I=1,NKFFS + CALL PYNAME(KFFS(I),CHAU) + KC=PYCOMP(KFFS(I)) + MDCYF=0 + IF(KC.NE.0) MDCYF=MDCY(KC,1) + WRITE(MSTU(11),5300) KFFS(I),CHAU,MDCYF,(FAC*NPFS(I,J),J=1,4), + & FAC*(NPFS(I,1)+NPFS(I,2)+NPFS(I,3)+NPFS(I,4)) + 270 CONTINUE + +C...Copy particle/parton composition information into /PYJETS/. + ELSEIF(MTABU.EQ.23) THEN + FAC=1D0/MAX(1,NEVFS) + DO 290 I=1,NKFFS + K(I,1)=32 + K(I,2)=99 + K(I,3)=KFFS(I) + K(I,4)=0 + K(I,5)=NPFS(I,1)+NPFS(I,2)+NPFS(I,3)+NPFS(I,4) + DO 280 J=1,4 + P(I,J)=FAC*NPFS(I,J) + V(I,J)=0D0 + 280 CONTINUE + P(I,5)=FAC*K(I,5) + V(I,5)=0D0 + 290 CONTINUE + N=NKFFS + DO 300 J=1,5 + K(N+1,J)=0 + P(N+1,J)=0D0 + V(N+1,J)=0D0 + 300 CONTINUE + K(N+1,1)=32 + K(N+1,2)=99 + K(N+1,5)=NEVFS + P(N+1,1)=FAC*NPRFS + P(N+1,2)=FAC*NFIFS + P(N+1,3)=FAC*NCHFS + MSTU(3)=1 + +C...Reset factorial moments statistics. + ELSEIF(MTABU.EQ.30) THEN + NEVFM=0 + NMUFM=0 + DO 330 IM=1,3 + DO 320 IB=1,10 + DO 310 IP=1,4 + FM1FM(IM,IB,IP)=0D0 + FM2FM(IM,IB,IP)=0D0 + 310 CONTINUE + 320 CONTINUE + 330 CONTINUE + +C...Find particles to include, with (pion,pseudo)rapidity and azimuth. + ELSEIF(MTABU.EQ.31) THEN + NEVFM=NEVFM+1 + NLOW=N+MSTU(3) + NUPP=NLOW + DO 410 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 410 + IF(MSTU(41).GE.2) THEN + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0.OR.KC.EQ.12.OR.KC.EQ.14.OR.KC.EQ.16.OR. + & KC.EQ.18) GOTO 410 + IF(MSTU(41).GE.3.AND.KCHG(KC,2).EQ.0.AND. + & PYCHGE(K(I,2)).EQ.0) GOTO 410 + ENDIF + PMR=0D0 + IF(MSTU(42).EQ.1.AND.K(I,2).NE.22) PMR=PYMASS(211) + IF(MSTU(42).GE.2) PMR=P(I,5) + PR=MAX(1D-20,PMR**2+P(I,1)**2+P(I,2)**2) + YETA=SIGN(LOG(MIN((SQRT(PR+P(I,3)**2)+ABS(P(I,3)))/SQRT(PR), + & 1D20)),P(I,3)) + IF(ABS(YETA).GT.PARU(57)) GOTO 410 + PHI=PYANGL(P(I,1),P(I,2)) + IYETA=512D0*(YETA+PARU(57))/(2D0*PARU(57)) + IYETA=MAX(0,MIN(511,IYETA)) + IPHI=512D0*(PHI+PARU(1))/PARU(2) + IPHI=MAX(0,MIN(511,IPHI)) + IYEP=0 + DO 340 IB=0,9 + IYEP=IYEP+4**IB*(2*MOD(IYETA/2**IB,2)+MOD(IPHI/2**IB,2)) + 340 CONTINUE + +C...Order particles in (pseudo)rapidity and/or azimuth. + IF(NUPP.GT.MSTU(4)-5-MSTU(32)) THEN + CALL PYERRM(11,'(PYTABU:) no more memory left in PYJETS') + RETURN + ENDIF + NUPP=NUPP+1 + IF(NUPP.EQ.NLOW+1) THEN + K(NUPP,1)=IYETA + K(NUPP,2)=IPHI + K(NUPP,3)=IYEP + ELSE + DO 350 I1=NUPP-1,NLOW+1,-1 + IF(IYETA.GE.K(I1,1)) GOTO 360 + K(I1+1,1)=K(I1,1) + 350 CONTINUE + 360 K(I1+1,1)=IYETA + DO 370 I1=NUPP-1,NLOW+1,-1 + IF(IPHI.GE.K(I1,2)) GOTO 380 + K(I1+1,2)=K(I1,2) + 370 CONTINUE + 380 K(I1+1,2)=IPHI + DO 390 I1=NUPP-1,NLOW+1,-1 + IF(IYEP.GE.K(I1,3)) GOTO 400 + K(I1+1,3)=K(I1,3) + 390 CONTINUE + 400 K(I1+1,3)=IYEP + ENDIF + 410 CONTINUE + K(NUPP+1,1)=2**10 + K(NUPP+1,2)=2**10 + K(NUPP+1,3)=4**10 + +C...Calculate sum of factorial moments in event. + DO 480 IM=1,3 + DO 430 IB=1,10 + DO 420 IP=1,4 + FEVFM(IB,IP)=0D0 + 420 CONTINUE + 430 CONTINUE + DO 450 IB=1,10 + IF(IM.LE.2) IBIN=2**(10-IB) + IF(IM.EQ.3) IBIN=4**(10-IB) + IAGR=K(NLOW+1,IM)/IBIN + NAGR=1 + DO 440 I=NLOW+2,NUPP+1 + ICUT=K(I,IM)/IBIN + IF(ICUT.EQ.IAGR) THEN + NAGR=NAGR+1 + ELSE + IF(NAGR.EQ.1) THEN + ELSEIF(NAGR.EQ.2) THEN + FEVFM(IB,1)=FEVFM(IB,1)+2D0 + ELSEIF(NAGR.EQ.3) THEN + FEVFM(IB,1)=FEVFM(IB,1)+6D0 + FEVFM(IB,2)=FEVFM(IB,2)+6D0 + ELSEIF(NAGR.EQ.4) THEN + FEVFM(IB,1)=FEVFM(IB,1)+12D0 + FEVFM(IB,2)=FEVFM(IB,2)+24D0 + FEVFM(IB,3)=FEVFM(IB,3)+24D0 + ELSE + FEVFM(IB,1)=FEVFM(IB,1)+NAGR*(NAGR-1D0) + FEVFM(IB,2)=FEVFM(IB,2)+NAGR*(NAGR-1D0)*(NAGR-2D0) + FEVFM(IB,3)=FEVFM(IB,3)+NAGR*(NAGR-1D0)*(NAGR-2D0)* + & (NAGR-3D0) + FEVFM(IB,4)=FEVFM(IB,4)+NAGR*(NAGR-1D0)*(NAGR-2D0)* + & (NAGR-3D0)*(NAGR-4D0) + ENDIF + IAGR=ICUT + NAGR=1 + ENDIF + 440 CONTINUE + 450 CONTINUE + +C...Add results to total statistics. + DO 470 IB=10,1,-1 + DO 460 IP=1,4 + IF(FEVFM(1,IP).LT.0.5D0) THEN + FEVFM(IB,IP)=0D0 + ELSEIF(IM.LE.2) THEN + FEVFM(IB,IP)=2D0**((IB-1)*IP)*FEVFM(IB,IP)/FEVFM(1,IP) + ELSE + FEVFM(IB,IP)=4D0**((IB-1)*IP)*FEVFM(IB,IP)/FEVFM(1,IP) + ENDIF + FM1FM(IM,IB,IP)=FM1FM(IM,IB,IP)+FEVFM(IB,IP) + FM2FM(IM,IB,IP)=FM2FM(IM,IB,IP)+FEVFM(IB,IP)**2 + 460 CONTINUE + 470 CONTINUE + 480 CONTINUE + NMUFM=NMUFM+(NUPP-NLOW) + MSTU(62)=NUPP-NLOW + +C...Write accumulated statistics on factorial moments. + ELSEIF(MTABU.EQ.32) THEN + FAC=1D0/MAX(1,NEVFM) + IF(MSTU(42).LE.0) WRITE(MSTU(11),5400) NEVFM,'eta' + IF(MSTU(42).EQ.1) WRITE(MSTU(11),5400) NEVFM,'ypi' + IF(MSTU(42).GE.2) WRITE(MSTU(11),5400) NEVFM,'y ' + DO 510 IM=1,3 + WRITE(MSTU(11),5500) + DO 500 IB=1,10 + BYETA=2D0*PARU(57) + IF(IM.NE.2) BYETA=BYETA/2**(IB-1) + BPHI=PARU(2) + IF(IM.NE.1) BPHI=BPHI/2**(IB-1) + IF(IM.LE.2) BNAVE=FAC*NMUFM/DBLE(2**(IB-1)) + IF(IM.EQ.3) BNAVE=FAC*NMUFM/DBLE(4**(IB-1)) + DO 490 IP=1,4 + FMOMA(IP)=FAC*FM1FM(IM,IB,IP) + FMOMS(IP)=SQRT(MAX(0D0,FAC*(FAC*FM2FM(IM,IB,IP)- + & FMOMA(IP)**2))) + 490 CONTINUE + WRITE(MSTU(11),5600) BYETA,BPHI,BNAVE,(FMOMA(IP),FMOMS(IP), + & IP=1,4) + 500 CONTINUE + 510 CONTINUE + +C...Copy statistics on factorial moments into /PYJETS/. + ELSEIF(MTABU.EQ.33) THEN + FAC=1D0/MAX(1,NEVFM) + DO 540 IM=1,3 + DO 530 IB=1,10 + I=10*(IM-1)+IB + K(I,1)=32 + K(I,2)=99 + K(I,3)=1 + IF(IM.NE.2) K(I,3)=2**(IB-1) + K(I,4)=1 + IF(IM.NE.1) K(I,4)=2**(IB-1) + K(I,5)=0 + P(I,1)=2D0*PARU(57)/K(I,3) + V(I,1)=PARU(2)/K(I,4) + DO 520 IP=1,4 + P(I,IP+1)=FAC*FM1FM(IM,IB,IP) + V(I,IP+1)=SQRT(MAX(0D0,FAC*(FAC*FM2FM(IM,IB,IP)- + & P(I,IP+1)**2))) + 520 CONTINUE + 530 CONTINUE + 540 CONTINUE + N=30 + DO 550 J=1,5 + K(N+1,J)=0 + P(N+1,J)=0D0 + V(N+1,J)=0D0 + 550 CONTINUE + K(N+1,1)=32 + K(N+1,2)=99 + K(N+1,5)=NEVFM + MSTU(3)=1 + +C...Reset statistics on Energy-Energy Correlation. + ELSEIF(MTABU.EQ.40) THEN + NEVEE=0 + DO 560 J=1,25 + FE1EC(J)=0D0 + FE2EC(J)=0D0 + FE1EC(51-J)=0D0 + FE2EC(51-J)=0D0 + FE1EA(J)=0D0 + FE2EA(J)=0D0 + 560 CONTINUE + +C...Find particles to include, with proper assumed mass. + ELSEIF(MTABU.EQ.41) THEN + NEVEE=NEVEE+1 + NLOW=N+MSTU(3) + NUPP=NLOW + ECM=0D0 + DO 570 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GT.10) GOTO 570 + IF(MSTU(41).GE.2) THEN + KC=PYCOMP(K(I,2)) + IF(KC.EQ.0.OR.KC.EQ.12.OR.KC.EQ.14.OR.KC.EQ.16.OR. + & KC.EQ.18) GOTO 570 + IF(MSTU(41).GE.3.AND.KCHG(KC,2).EQ.0.AND. + & PYCHGE(K(I,2)).EQ.0) GOTO 570 + ENDIF + PMR=0D0 + IF(MSTU(42).EQ.1.AND.K(I,2).NE.22) PMR=PYMASS(211) + IF(MSTU(42).GE.2) PMR=P(I,5) + IF(NUPP.GT.MSTU(4)-5-MSTU(32)) THEN + CALL PYERRM(11,'(PYTABU:) no more memory left in PYJETS') + RETURN + ENDIF + NUPP=NUPP+1 + P(NUPP,1)=P(I,1) + P(NUPP,2)=P(I,2) + P(NUPP,3)=P(I,3) + P(NUPP,4)=SQRT(PMR**2+P(I,1)**2+P(I,2)**2+P(I,3)**2) + P(NUPP,5)=MAX(1D-10,SQRT(P(I,1)**2+P(I,2)**2+P(I,3)**2)) + ECM=ECM+P(NUPP,4) + 570 CONTINUE + IF(NUPP.EQ.NLOW) RETURN + +C...Analyze Energy-Energy Correlation in event. + FAC=(2D0/ECM**2)*50D0/PARU(1) + DO 580 J=1,50 + FEVEE(J)=0D0 + 580 CONTINUE + DO 600 I1=NLOW+2,NUPP + DO 590 I2=NLOW+1,I1-1 + CTHE=(P(I1,1)*P(I2,1)+P(I1,2)*P(I2,2)+P(I1,3)*P(I2,3))/ + & (P(I1,5)*P(I2,5)) + THE=ACOS(MAX(-1D0,MIN(1D0,CTHE))) + ITHE=MAX(1,MIN(50,1+INT(50D0*THE/PARU(1)))) + FEVEE(ITHE)=FEVEE(ITHE)+FAC*P(I1,4)*P(I2,4) + 590 CONTINUE + 600 CONTINUE + DO 610 J=1,25 + FE1EC(J)=FE1EC(J)+FEVEE(J) + FE2EC(J)=FE2EC(J)+FEVEE(J)**2 + FE1EC(51-J)=FE1EC(51-J)+FEVEE(51-J) + FE2EC(51-J)=FE2EC(51-J)+FEVEE(51-J)**2 + FE1EA(J)=FE1EA(J)+(FEVEE(51-J)-FEVEE(J)) + FE2EA(J)=FE2EA(J)+(FEVEE(51-J)-FEVEE(J))**2 + 610 CONTINUE + MSTU(62)=NUPP-NLOW + +C...Write statistics on Energy-Energy Correlation. + ELSEIF(MTABU.EQ.42) THEN + FAC=1D0/MAX(1,NEVEE) + WRITE(MSTU(11),5700) NEVEE + DO 620 J=1,25 + FEEC1=FAC*FE1EC(J) + FEES1=SQRT(MAX(0D0,FAC*(FAC*FE2EC(J)-FEEC1**2))) + FEEC2=FAC*FE1EC(51-J) + FEES2=SQRT(MAX(0D0,FAC*(FAC*FE2EC(51-J)-FEEC2**2))) + FEECA=FAC*FE1EA(J) + FEESA=SQRT(MAX(0D0,FAC*(FAC*FE2EA(J)-FEECA**2))) + WRITE(MSTU(11),5800) 3.6D0*(J-1),3.6D0*J,FEEC1,FEES1, + & FEEC2,FEES2,FEECA,FEESA + 620 CONTINUE + +C...Copy statistics on Energy-Energy Correlation into /PYJETS/. + ELSEIF(MTABU.EQ.43) THEN + FAC=1D0/MAX(1,NEVEE) + DO 630 I=1,25 + K(I,1)=32 + K(I,2)=99 + K(I,3)=0 + K(I,4)=0 + K(I,5)=0 + P(I,1)=FAC*FE1EC(I) + V(I,1)=SQRT(MAX(0D0,FAC*(FAC*FE2EC(I)-P(I,1)**2))) + P(I,2)=FAC*FE1EC(51-I) + V(I,2)=SQRT(MAX(0D0,FAC*(FAC*FE2EC(51-I)-P(I,2)**2))) + P(I,3)=FAC*FE1EA(I) + V(I,3)=SQRT(MAX(0D0,FAC*(FAC*FE2EA(I)-P(I,3)**2))) + P(I,4)=PARU(1)*(I-1)/50D0 + P(I,5)=PARU(1)*I/50D0 + V(I,4)=3.6D0*(I-1) + V(I,5)=3.6D0*I + 630 CONTINUE + N=25 + DO 640 J=1,5 + K(N+1,J)=0 + P(N+1,J)=0D0 + V(N+1,J)=0D0 + 640 CONTINUE + K(N+1,1)=32 + K(N+1,2)=99 + K(N+1,5)=NEVEE + MSTU(3)=1 + +C...Reset statistics on decay channels. + ELSEIF(MTABU.EQ.50) THEN + NEVDC=0 + NKFDC=0 + NREDC=0 + +C...Identify and order flavour content of final state. + ELSEIF(MTABU.EQ.51) THEN + NEVDC=NEVDC+1 + NDS=0 + DO 670 I=1,N + IF(K(I,1).LE.0.OR.K(I,1).GE.6) GOTO 670 + NDS=NDS+1 + IF(NDS.GT.8) THEN + NREDC=NREDC+1 + RETURN + ENDIF + KFM=2*IABS(K(I,2)) + IF(K(I,2).LT.0) KFM=KFM-1 + DO 650 IDS=NDS-1,1,-1 + IIN=IDS+1 + IF(KFM.LT.KFDM(IDS)) GOTO 660 + KFDM(IDS+1)=KFDM(IDS) + 650 CONTINUE + IIN=1 + 660 KFDM(IIN)=KFM + 670 CONTINUE + +C...Find whether old or new final state. + DO 690 IDC=1,NKFDC + IF(NDS.LT.KFDC(IDC,0)) THEN + IKFDC=IDC + GOTO 700 + ELSEIF(NDS.EQ.KFDC(IDC,0)) THEN + DO 680 I=1,NDS + IF(KFDM(I).LT.KFDC(IDC,I)) THEN + IKFDC=IDC + GOTO 700 + ELSEIF(KFDM(I).GT.KFDC(IDC,I)) THEN + GOTO 690 + ENDIF + 680 CONTINUE + IKFDC=-IDC + GOTO 700 + ENDIF + 690 CONTINUE + IKFDC=NKFDC+1 + 700 IF(IKFDC.LT.0) THEN + IKFDC=-IKFDC + ELSEIF(NKFDC.GE.200) THEN + NREDC=NREDC+1 + RETURN + ELSE + DO 720 IDC=NKFDC,IKFDC,-1 + NPDC(IDC+1)=NPDC(IDC) + DO 710 I=0,8 + KFDC(IDC+1,I)=KFDC(IDC,I) + 710 CONTINUE + 720 CONTINUE + NKFDC=NKFDC+1 + KFDC(IKFDC,0)=NDS + DO 730 I=1,NDS + KFDC(IKFDC,I)=KFDM(I) + 730 CONTINUE + NPDC(IKFDC)=0 + ENDIF + NPDC(IKFDC)=NPDC(IKFDC)+1 + +C...Write statistics on decay channels. + ELSEIF(MTABU.EQ.52) THEN + FAC=1D0/MAX(1,NEVDC) + WRITE(MSTU(11),5900) NEVDC + DO 750 IDC=1,NKFDC + DO 740 I=1,KFDC(IDC,0) + KFM=KFDC(IDC,I) + KF=(KFM+1)/2 + IF(2*KF.NE.KFM) KF=-KF + CALL PYNAME(KF,CHAU) + CHDC(I)=CHAU(1:12) + IF(CHAU(13:13).NE.' ') CHDC(I)(12:12)='?' + 740 CONTINUE + WRITE(MSTU(11),6000) FAC*NPDC(IDC),(CHDC(I),I=1,KFDC(IDC,0)) + 750 CONTINUE + IF(NREDC.NE.0) WRITE(MSTU(11),6100) FAC*NREDC + +C...Copy statistics on decay channels into /PYJETS/. + ELSEIF(MTABU.EQ.53) THEN + FAC=1D0/MAX(1,NEVDC) + DO 780 IDC=1,NKFDC + K(IDC,1)=32 + K(IDC,2)=99 + K(IDC,3)=0 + K(IDC,4)=0 + K(IDC,5)=KFDC(IDC,0) + DO 760 J=1,5 + P(IDC,J)=0D0 + V(IDC,J)=0D0 + 760 CONTINUE + DO 770 I=1,KFDC(IDC,0) + KFM=KFDC(IDC,I) + KF=(KFM+1)/2 + IF(2*KF.NE.KFM) KF=-KF + IF(I.LE.5) P(IDC,I)=KF + IF(I.GE.6) V(IDC,I-5)=KF + 770 CONTINUE + V(IDC,5)=FAC*NPDC(IDC) + 780 CONTINUE + N=NKFDC + DO 790 J=1,5 + K(N+1,J)=0 + P(N+1,J)=0D0 + V(N+1,J)=0D0 + 790 CONTINUE + K(N+1,1)=32 + K(N+1,2)=99 + K(N+1,5)=NEVDC + V(N+1,5)=FAC*NREDC + MSTU(3)=1 + ENDIF + +C...Format statements for output on unit MSTU(11) (default 6). + 5000 FORMAT(///20X,'Event statistics - initial state'/ + &20X,'based on an analysis of ',I6,' events'// + &3X,'Main flavours after',8X,'Fraction',4X,'Subfractions ', + &'according to fragmenting system multiplicity'/ + &4X,'hard interaction',24X,'1',7X,'2',7X,'3',7X,'4',7X,'5', + &6X,'6-7',5X,'8-10',3X,'11-15',3X,'16-25',4X,'>25'/) + 5100 FORMAT(3X,A12,1X,A12,F10.5,1X,10F8.4) + 5200 FORMAT(///20X,'Event statistics - final state'/ + &20X,'based on an analysis of ',I7,' events'// + &5X,'Mean primary multiplicity =',F10.4/ + &5X,'Mean final multiplicity =',F10.4/ + &5X,'Mean charged multiplicity =',F10.4// + &5X,'Number of particles produced per event (directly and via ', + &'decays/branchings)'/ + &8X,'KF Particle/jet MDCY',10X,'Particles',13X,'Antiparticles', + &8X,'Total'/35X,'prim seco prim seco'/) + 5300 FORMAT(1X,I9,4X,A16,I2,5(1X,F11.6)) + 5400 FORMAT(///20X,'Factorial moments analysis of multiplicity'/ + &20X,'based on an analysis of ',I6,' events'// + &3X,'delta-',A3,' delta-phi /bin',10X,'',18X,'', + &18X,'',18X,''/35X,4(' value error ')) + 5500 FORMAT(10X) + 5600 FORMAT(2X,2F10.4,F12.4,4(F12.4,F10.4)) + 5700 FORMAT(///20X,'Energy-Energy Correlation and Asymmetry'/ + &20X,'based on an analysis of ',I6,' events'// + &2X,'theta range',8X,'EEC(theta)',8X,'EEC(180-theta)',7X, + &'EECA(theta)'/2X,'in degrees ',3(' value error')/) + 5800 FORMAT(2X,F4.1,' - ',F4.1,3(F11.4,F9.4)) + 5900 FORMAT(///20X,'Decay channel analysis - final state'/ + &20X,'based on an analysis of ',I6,' events'// + &2X,'Probability',10X,'Complete final state'/) + 6000 FORMAT(2X,F9.5,5X,8(A12,1X)) + 6100 FORMAT(2X,F9.5,5X,'into other channels (more than 8 particles ', + &'or table overflow)') + + RETURN + END + +C********************************************************************* + +C...PYEEVT +C...Handles the generation of an e+e- annihilation jet event. + + SUBROUTINE PYEEVT(KFL,ECM) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ + +C...Check input parameters. + IF(MSTU(12).GE.1) CALL PYLIST(0) + IF(KFL.LT.0.OR.KFL.GT.8) THEN + CALL PYERRM(16,'(PYEEVT:) called with unknown flavour code') + IF(MSTU(21).GE.1) RETURN + ENDIF + IF(KFL.LE.5) ECMMIN=PARJ(127)+2.02D0*PARF(100+MAX(1,KFL)) + IF(KFL.GE.6) ECMMIN=PARJ(127)+2.02D0*PMAS(KFL,1) + IF(ECM.LT.ECMMIN) THEN + CALL PYERRM(16,'(PYEEVT:) called with too small CM energy') + IF(MSTU(21).GE.1) RETURN + ENDIF + +C...Check consistency of MSTJ options set. + IF(MSTJ(109).EQ.2.AND.MSTJ(110).NE.1) THEN + CALL PYERRM(6, + & '(PYEEVT:) MSTJ(109) value requires MSTJ(110) = 1') + MSTJ(110)=1 + ENDIF + IF(MSTJ(109).EQ.2.AND.MSTJ(111).NE.0) THEN + CALL PYERRM(6, + & '(PYEEVT:) MSTJ(109) value requires MSTJ(111) = 0') + MSTJ(111)=0 + ENDIF + +C...Initialize alpha_strong and total cross-section. + MSTU(111)=MSTJ(108) + IF(MSTJ(108).EQ.2.AND.(MSTJ(101).EQ.0.OR.MSTJ(101).EQ.1)) + &MSTU(111)=1 + PARU(112)=PARJ(121) + IF(MSTU(111).EQ.2) PARU(112)=PARJ(122) + IF(MSTJ(116).GT.0.AND.(MSTJ(116).GE.2.OR.ABS(ECM-PARJ(151)).GE. + &PARJ(139).OR.10*MSTJ(102)+KFL.NE.MSTJ(119))) CALL PYXTEE(KFL,ECM, + &XTOT) + IF(MSTJ(116).GE.3) MSTJ(116)=1 + PARJ(171)=0D0 + +C...Add initial e+e- to event record (documentation only). + NTRY=0 + 100 NTRY=NTRY+1 + IF(NTRY.GT.100) THEN + CALL PYERRM(14,'(PYEEVT:) caught in an infinite loop') + RETURN + ENDIF + MSTU(24)=0 + NC=0 + IF(MSTJ(115).GE.2) THEN + NC=NC+2 + CALL PY1ENT(NC-1,11,0.5D0*ECM,0D0,0D0) + K(NC-1,1)=21 + CALL PY1ENT(NC,-11,0.5D0*ECM,PARU(1),0D0) + K(NC,1)=21 + ENDIF + +C...Radiative photon (in initial state). + MK=0 + ECMC=ECM + IF(MSTJ(107).GE.1.AND.MSTJ(116).GE.1) CALL PYRADK(ECM,MK,PAK, + &THEK,PHIK,ALPK) + IF(MK.EQ.1) ECMC=SQRT(ECM*(ECM-2D0*PAK)) + IF(MSTJ(115).GE.1.AND.MK.EQ.1) THEN + NC=NC+1 + CALL PY1ENT(NC,22,PAK,THEK,PHIK) + K(NC,3)=MIN(MSTJ(115)/2,1) + ENDIF + +C...Virtual exchange boson (gamma or Z0). + IF(MSTJ(115).GE.3) THEN + NC=NC+1 + KF=22 + IF(MSTJ(102).EQ.2) KF=23 + MSTU10=MSTU(10) + MSTU(10)=1 + P(NC,5)=ECMC + CALL PY1ENT(NC,KF,ECMC,0D0,0D0) + K(NC,1)=21 + K(NC,3)=1 + MSTU(10)=MSTU10 + ENDIF + +C...Choice of flavour and jet configuration. + CALL PYXKFL(KFL,ECM,ECMC,KFLC) + IF(KFLC.EQ.0) GOTO 100 + CALL PYXJET(ECMC,NJET,CUT) + KFLN=21 + IF(NJET.EQ.4) CALL PYX4JT(NJET,CUT,KFLC,ECMC,KFLN,X1,X2,X4, + &X12,X14) + IF(NJET.EQ.3) CALL PYX3JT(NJET,CUT,KFLC,ECMC,X1,X3) + IF(NJET.EQ.2) MSTJ(120)=1 + +C...Fill jet configuration and origin. + IF(NJET.EQ.2.AND.MSTJ(101).NE.5) CALL PY2ENT(NC+1,KFLC,-KFLC,ECMC) + IF(NJET.EQ.2.AND.MSTJ(101).EQ.5) CALL PY2ENT(-(NC+1),KFLC,-KFLC, + &ECMC) + IF(NJET.EQ.3) CALL PY3ENT(NC+1,KFLC,21,-KFLC,ECMC,X1,X3) + IF(NJET.EQ.4.AND.KFLN.EQ.21) CALL PY4ENT(NC+1,KFLC,KFLN,KFLN, + &-KFLC,ECMC,X1,X2,X4,X12,X14) + IF(NJET.EQ.4.AND.KFLN.NE.21) CALL PY4ENT(NC+1,KFLC,-KFLN,KFLN, + &-KFLC,ECMC,X1,X2,X4,X12,X14) + IF(MSTU(24).NE.0) GOTO 100 + DO 110 IP=NC+1,N + K(IP,3)=K(IP,3)+MIN(MSTJ(115)/2,1)+(MSTJ(115)/3)*(NC-1) + 110 CONTINUE + +C...Angular orientation according to matrix element. + IF(MSTJ(106).EQ.1) THEN + CALL PYXDIF(NC,NJET,KFLC,ECMC,CHI,THE,PHI) + CALL PYROBO(NC+1,N,0D0,CHI,0D0,0D0,0D0) + CALL PYROBO(NC+1,N,THE,PHI,0D0,0D0,0D0) + ENDIF + +C...Rotation and boost from radiative photon. + IF(MK.EQ.1) THEN + DBEK=-PAK/(ECM-PAK) + NMIN=NC+1-MSTJ(115)/3 + CALL PYROBO(NMIN,N,0D0,-PHIK,0D0,0D0,0D0) + CALL PYROBO(NMIN,N,ALPK,0D0,DBEK*SIN(THEK),0D0,DBEK*COS(THEK)) + CALL PYROBO(NMIN,N,0D0,PHIK,0D0,0D0,0D0) + ENDIF + +C...Generate parton shower. Rearrange along strings and check. + IF(MSTJ(101).EQ.5) THEN + CALL PYSHOW(N-1,N,ECMC) + MSTJ14=MSTJ(14) + IF(MSTJ(105).EQ.-1) MSTJ(14)=-1 + IF(MSTJ(105).GE.0) MSTU(28)=0 + CALL PYPREP(0) + MSTJ(14)=MSTJ14 + IF(MSTJ(105).GE.0.AND.MSTU(28).NE.0) GOTO 100 + ENDIF + +C...Fragmentation/decay generation. Information for PYTABU. + IF(MSTJ(105).EQ.1) CALL PYEXEC + MSTU(161)=KFLC + MSTU(162)=-KFLC + + RETURN + END + +C********************************************************************* + +C...PYXTEE +C...Calculates total cross-section, including initial state +C...radiation effects. + + SUBROUTINE PYXTEE(KFL,ECM,XTOT) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYDAT1/,/PYDAT2/ + +C...Status, (optimized) Q^2 scale, alpha_strong. + PARJ(151)=ECM + MSTJ(119)=10*MSTJ(102)+KFL + IF(MSTJ(111).EQ.0) THEN + Q2R=ECM**2 + ELSEIF(MSTU(111).EQ.0) THEN + PARJ(168)=MIN(1D0,MAX(PARJ(128),EXP(-12D0*PARU(1)/ + & ((33D0-2D0*MSTU(112))*PARU(111))))) + Q2R=PARJ(168)*ECM**2 + ELSE + PARJ(168)=MIN(1D0,MAX(PARJ(128),PARU(112)/ECM, + & (2D0*PARU(112)/ECM)**2)) + Q2R=PARJ(168)*ECM**2 + ENDIF + ALSPI=PYALPS(Q2R)/PARU(1) + +C...QCD corrections factor in R. + IF(MSTJ(101).EQ.0.OR.MSTJ(109).EQ.1) THEN + RQCD=1D0 + ELSEIF(IABS(MSTJ(101)).EQ.1.AND.MSTJ(109).EQ.0) THEN + RQCD=1D0+ALSPI + ELSEIF(MSTJ(109).EQ.0) THEN + RQCD=1D0+ALSPI+(1.986D0-0.115D0*MSTU(118))*ALSPI**2 + IF(MSTJ(111).EQ.1) RQCD=MAX(1D0,RQCD+(33D0-2D0*MSTU(112))/12D0* + & LOG(PARJ(168))*ALSPI**2) + ELSEIF(IABS(MSTJ(101)).EQ.1) THEN + RQCD=1D0+(3D0/4D0)*ALSPI + ELSE + RQCD=1D0+(3D0/4D0)*ALSPI-(3D0/32D0+0.519D0*MSTU(118))*ALSPI**2 + ENDIF + +C...Calculate Z0 width if default value not acceptable. + IF(MSTJ(102).GE.3) THEN + RVA=3D0*(3D0+(4D0*PARU(102)-1D0)**2)+6D0*RQCD*(2D0+ + & (1D0-8D0*PARU(102)/3D0)**2+(4D0*PARU(102)/3D0-1D0)**2) + DO 100 KFLC=5,6 + VQ=1D0 + IF(MOD(MSTJ(103),2).EQ.1) VQ=SQRT(MAX(0D0,1D0- + & (2D0*PYMASS(KFLC)/ ECM)**2)) + IF(KFLC.EQ.5) VF=4D0*PARU(102)/3D0-1D0 + IF(KFLC.EQ.6) VF=1D0-8D0*PARU(102)/3D0 + RVA=RVA+3D0*RQCD*(0.5D0*VQ*(3D0-VQ**2)*VF**2+VQ**3) + 100 CONTINUE + PARJ(124)=PARU(101)*PARJ(123)*RVA/(48D0*PARU(102)* + & (1D0-PARU(102))) + ENDIF + +C...Calculate propagator and related constants for QFD case. + POLL=1D0-PARJ(131)*PARJ(132) + IF(MSTJ(102).GE.2) THEN + SFF=1D0/(16D0*PARU(102)*(1D0-PARU(102))) + SFW=ECM**4/((ECM**2-PARJ(123)**2)**2+(PARJ(123)*PARJ(124))**2) + SFI=SFW*(1D0-(PARJ(123)/ECM)**2) + VE=4D0*PARU(102)-1D0 + SF1I=SFF*(VE*POLL+PARJ(132)-PARJ(131)) + SF1W=SFF**2*((VE**2+1D0)*POLL+2D0*VE*(PARJ(132)-PARJ(131))) + HF1I=SFI*SF1I + HF1W=SFW*SF1W + ENDIF + +C...Loop over different flavours: charge, velocity. + RTOT=0D0 + RQQ=0D0 + RQV=0D0 + RVA=0D0 + DO 110 KFLC=1,MAX(MSTJ(104),KFL) + IF(KFL.GT.0.AND.KFLC.NE.KFL) GOTO 110 + MSTJ(93)=1 + PMQ=PYMASS(KFLC) + IF(ECM.LT.2D0*PMQ+PARJ(127)) GOTO 110 + QF=KCHG(KFLC,1)/3D0 + VQ=1D0 + IF(MOD(MSTJ(103),2).EQ.1) VQ=SQRT(1D0-(2D0*PMQ/ECM)**2) + +C...Calculate R and sum of charges for QED or QFD case. + RQQ=RQQ+3D0*QF**2*POLL + IF(MSTJ(102).LE.1) THEN + RTOT=RTOT+3D0*0.5D0*VQ*(3D0-VQ**2)*QF**2*POLL + ELSE + VF=SIGN(1D0,QF)-4D0*QF*PARU(102) + RQV=RQV-6D0*QF*VF*SF1I + RVA=RVA+3D0*(VF**2+1D0)*SF1W + RTOT=RTOT+3D0*(0.5D0*VQ*(3D0-VQ**2)*(QF**2*POLL- + & 2D0*QF*VF*HF1I+VF**2*HF1W)+VQ**3*HF1W) + ENDIF + 110 CONTINUE + RSUM=RQQ + IF(MSTJ(102).GE.2) RSUM=RQQ+SFI*RQV+SFW*RVA + +C...Calculate cross-section, including QCD corrections. + PARJ(141)=RQQ + PARJ(142)=RTOT + PARJ(143)=RTOT*RQCD + PARJ(144)=PARJ(143) + PARJ(145)=PARJ(141)*86.8D0/ECM**2 + PARJ(146)=PARJ(142)*86.8D0/ECM**2 + PARJ(147)=PARJ(143)*86.8D0/ECM**2 + PARJ(148)=PARJ(147) + PARJ(157)=RSUM*RQCD + PARJ(158)=0D0 + PARJ(159)=0D0 + XTOT=PARJ(147) + IF(MSTJ(107).LE.0) RETURN + +C...Virtual cross-section. + XKL=PARJ(135) + XKU=MIN(PARJ(136),1D0-(2D0*PARJ(127)/ECM)**2) + ALE=2D0*LOG(ECM/PYMASS(11))-1D0 + SIGV=ALE/3D0+2D0*LOG(ECM**2/(PYMASS(13)*PYMASS(15)))/3D0-4D0/3D0+ + &1.526D0*LOG(ECM**2/0.932D0) + +C...Soft and hard radiative cross-section in QED case. + IF(MSTJ(102).LE.1) THEN + SIGV=1.5D0*ALE-0.5D0+PARU(1)**2/3D0+2D0*SIGV + SIGS=ALE*(2D0*LOG(XKL)-LOG(1D0-XKL)-XKL) + SIGH=ALE*(2D0*LOG(XKU/XKL)-LOG((1D0-XKU)/(1D0-XKL))-(XKU-XKL)) + +C...Soft and hard radiative cross-section in QFD case. + ELSE + SZM=1D0-(PARJ(123)/ECM)**2 + SZW=PARJ(123)*PARJ(124)/ECM**2 + PARJ(161)=-RQQ/RSUM + PARJ(162)=-(RQQ+RQV+RVA)/RSUM + PARJ(163)=(RQV*(1D0-0.5D0*SZM-SFI)+RVA*(1.5D0-SZM-SFW))/RSUM + PARJ(164)=(RQV*SZW**2*(1D0-2D0*SFW)+RVA*(2D0*SFI+SZW**2- + & 4D0+3D0*SZM-SZM**2))/(SZW*RSUM) + SIGV=1.5D0*ALE-0.5D0+PARU(1)**2/3D0+((2D0*RQQ+SFI*RQV)/ + & RSUM)*SIGV+(SZW*SFW*RQV/RSUM)*PARU(1)*20D0/9D0 + SIGS=ALE*(2D0*LOG(XKL)+PARJ(161)*LOG(1D0-XKL)+PARJ(162)*XKL+ + & PARJ(163)*LOG(((XKL-SZM)**2+SZW**2)/(SZM**2+SZW**2))+ + & PARJ(164)*(ATAN((XKL-SZM)/SZW)-ATAN(-SZM/SZW))) + SIGH=ALE*(2D0*LOG(XKU/XKL)+PARJ(161)*LOG((1D0-XKU)/ + & (1D0-XKL))+PARJ(162)*(XKU-XKL)+PARJ(163)* + & LOG(((XKU-SZM)**2+SZW**2)/((XKL-SZM)**2+SZW**2))+ + & PARJ(164)*(ATAN((XKU-SZM)/SZW)-ATAN((XKL-SZM)/SZW))) + ENDIF + +C...Total cross-section and fraction of hard photon events. + PARJ(160)=SIGH/(PARU(1)/PARU(101)+SIGV+SIGS+SIGH) + PARJ(157)=RSUM*(1D0+(PARU(101)/PARU(1))*(SIGV+SIGS+SIGH))*RQCD + PARJ(144)=PARJ(157) + PARJ(148)=PARJ(144)*86.8D0/ECM**2 + XTOT=PARJ(148) + + RETURN + END + +C********************************************************************* + +C...PYRADK +C...Generates initial state photon radiation. + + SUBROUTINE PYRADK(ECM,MK,PAK,THEK,PHIK,ALPK) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYDAT1/ + +C...Function: cumulative hard photon spectrum in QFD case. + FXK(XX)=2D0*LOG(XX)+PARJ(161)*LOG(1D0-XX)+PARJ(162)*XX+ + &PARJ(163)*LOG((XX-SZM)**2+SZW**2)+PARJ(164)*ATAN((XX-SZM)/SZW) + +C...Determine whether radiative photon or not. + MK=0 + PAK=0D0 + IF(PARJ(160).LT.PYR(0)) RETURN + MK=1 + +C...Photon energy range. Find photon momentum in QED case. + XKL=PARJ(135) + XKU=MIN(PARJ(136),1D0-(2D0*PARJ(127)/ECM)**2) + IF(MSTJ(102).LE.1) THEN + 100 XK=1D0/(1D0+(1D0/XKL-1D0)*((1D0/XKU-1D0)/(1D0/XKL-1D0))**PYR(0)) + IF(1D0+(1D0-XK)**2.LT.2D0*PYR(0)) GOTO 100 + +C...Ditto in QFD case, by numerical inversion of integrated spectrum. + ELSE + SZM=1D0-(PARJ(123)/ECM)**2 + SZW=PARJ(123)*PARJ(124)/ECM**2 + FXKL=FXK(XKL) + FXKU=FXK(XKU) + FXKD=1D-4*(FXKU-FXKL) + FXKR=FXKL+PYR(0)*(FXKU-FXKL) + NXK=0 + 110 NXK=NXK+1 + XK=0.5D0*(XKL+XKU) + FXKV=FXK(XK) + IF(FXKV.GT.FXKR) THEN + XKU=XK + FXKU=FXKV + ELSE + XKL=XK + FXKL=FXKV + ENDIF + IF(NXK.LT.15.AND.FXKU-FXKL.GT.FXKD) GOTO 110 + XK=XKL+(XKU-XKL)*(FXKR-FXKL)/(FXKU-FXKL) + ENDIF + PAK=0.5D0*ECM*XK + +C...Photon polar and azimuthal angle. + PME=2D0*(PYMASS(11)/ECM)**2 + 120 CTHM=PME*(2D0/PME)**PYR(0) + IF(1D0-(XK**2*CTHM*(1D0-0.5D0*CTHM)+2D0*(1D0-XK)*PME/MAX(PME, + &CTHM*(1D0-0.5D0*CTHM)))/(1D0+(1D0-XK)**2).LT.PYR(0)) GOTO 120 + CTHE=1D0-CTHM + IF(PYR(0).GT.0.5D0) CTHE=-CTHE + STHE=SQRT(MAX(0D0,(CTHM-PME)*(2D0-CTHM))) + THEK=PYANGL(CTHE,STHE) + PHIK=PARU(2)*PYR(0) + +C...Rotation angle for hadronic system. + SGN=1D0 + IF(0.5D0*(2D0-XK*(1D0-CTHE))**2/((2D0-XK)**2+(XK*CTHE)**2).GT. + &PYR(0)) SGN=-1D0 + ALPK=ASIN(SGN*STHE*(XK-SGN*(2D0*SQRT(1D0-XK)-2D0+XK)*CTHE)/ + &(2D0-XK*(1D0-SGN*CTHE))) + + RETURN + END + +C********************************************************************* + +C...PYXKFL +C...Selects flavour for produced qqbar pair. + + SUBROUTINE PYXKFL(KFL,ECM,ECMC,KFLC) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYDAT1/,/PYDAT2/ + +C...Calculate maximum weight in QED or QFD case. + IF(MSTJ(102).LE.1) THEN + RFMAX=4D0/9D0 + ELSE + POLL=1D0-PARJ(131)*PARJ(132) + SFF=1D0/(16D0*PARU(102)*(1D0-PARU(102))) + SFW=ECMC**4/((ECMC**2-PARJ(123)**2)**2+(PARJ(123)*PARJ(124))**2) + SFI=SFW*(1D0-(PARJ(123)/ECMC)**2) + VE=4D0*PARU(102)-1D0 + HF1I=SFI*SFF*(VE*POLL+PARJ(132)-PARJ(131)) + HF1W=SFW*SFF**2*((VE**2+1D0)*POLL+2D0*VE*(PARJ(132)-PARJ(131))) + RFMAX=MAX(4D0/9D0*POLL-4D0/3D0*(1D0-8D0*PARU(102)/3D0)*HF1I+ + & ((1D0-8D0*PARU(102)/3D0)**2+1D0)*HF1W,1D0/9D0*POLL+2D0/3D0* + & (-1D0+4D0*PARU(102)/3D0)*HF1I+((-1D0+4D0*PARU(102)/3D0)**2+ + & 1D0)*HF1W) + ENDIF + +C...Choose flavour. Gives charge and velocity. + NTRY=0 + 100 NTRY=NTRY+1 + IF(NTRY.GT.100) THEN + CALL PYERRM(14,'(PYXKFL:) caught in an infinite loop') + KFLC=0 + RETURN + ENDIF + KFLC=KFL + IF(KFL.LE.0) KFLC=1+INT(MSTJ(104)*PYR(0)) + MSTJ(93)=1 + PMQ=PYMASS(KFLC) + IF(ECM.LT.2D0*PMQ+PARJ(127)) GOTO 100 + QF=KCHG(KFLC,1)/3D0 + VQ=1D0 + IF(MOD(MSTJ(103),2).EQ.1) VQ=SQRT(MAX(0D0,1D0-(2D0*PMQ/ECMC)**2)) + +C...Calculate weight in QED or QFD case. + IF(MSTJ(102).LE.1) THEN + RF=QF**2 + RFV=0.5D0*VQ*(3D0-VQ**2)*QF**2 + ELSE + VF=SIGN(1D0,QF)-4D0*QF*PARU(102) + RF=QF**2*POLL-2D0*QF*VF*HF1I+(VF**2+1D0)*HF1W + RFV=0.5D0*VQ*(3D0-VQ**2)*(QF**2*POLL-2D0*QF*VF*HF1I+VF**2*HF1W)+ + & VQ**3*HF1W + IF(RFV.GT.0D0) PARJ(171)=MIN(1D0,VQ**3*HF1W/RFV) + ENDIF + +C...Weighting or new event (radiative photon). Cross-section update. + IF(KFL.LE.0.AND.RF.LT.PYR(0)*RFMAX) GOTO 100 + PARJ(158)=PARJ(158)+1D0 + IF(ECMC.LT.2D0*PMQ+PARJ(127).OR.RFV.LT.PYR(0)*RF) KFLC=0 + IF(MSTJ(107).LE.0.AND.KFLC.EQ.0) GOTO 100 + IF(KFLC.NE.0) PARJ(159)=PARJ(159)+1D0 + PARJ(144)=PARJ(157)*PARJ(159)/PARJ(158) + PARJ(148)=PARJ(144)*86.8D0/ECM**2 + + RETURN + END + +C********************************************************************* + +C...PYXJET +C...Selects number of jets in matrix element approach. + + SUBROUTINE PYXJET(ECM,NJET,CUT) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYDAT1/ +C...Local array and data. + DIMENSION ZHUT(5) + DATA ZHUT/3.0922D0, 6.2291D0, 7.4782D0, 7.8440D0, 8.2560D0/ + +C...Trivial result for two-jets only, including parton shower. + IF(MSTJ(101).EQ.0.OR.MSTJ(101).EQ.5) THEN + CUT=0D0 + +C...QCD and Abelian vector gluon theory: Q^2 for jet rate and R. + ELSEIF(MSTJ(109).EQ.0.OR.MSTJ(109).EQ.2) THEN + CF=4D0/3D0 + IF(MSTJ(109).EQ.2) CF=1D0 + IF(MSTJ(111).EQ.0) THEN + Q2=ECM**2 + Q2R=ECM**2 + ELSEIF(MSTU(111).EQ.0) THEN + PARJ(169)=MIN(1D0,PARJ(129)) + Q2=PARJ(169)*ECM**2 + PARJ(168)=MIN(1D0,MAX(PARJ(128),EXP(-12D0*PARU(1)/ + & ((33D0-2D0*MSTU(112))*PARU(111))))) + Q2R=PARJ(168)*ECM**2 + ELSE + PARJ(169)=MIN(1D0,MAX(PARJ(129),(2D0*PARU(112)/ECM)**2)) + Q2=PARJ(169)*ECM**2 + PARJ(168)=MIN(1D0,MAX(PARJ(128),PARU(112)/ECM, + & (2D0*PARU(112)/ECM)**2)) + Q2R=PARJ(168)*ECM**2 + ENDIF + +C...alpha_strong for R and R itself. + ALSPI=(3D0/4D0)*CF*PYALPS(Q2R)/PARU(1) + IF(IABS(MSTJ(101)).EQ.1) THEN + RQCD=1D0+ALSPI + ELSEIF(MSTJ(109).EQ.0) THEN + RQCD=1D0+ALSPI+(1.986D0-0.115D0*MSTU(118))*ALSPI**2 + IF(MSTJ(111).EQ.1) RQCD=MAX(1D0,RQCD+ + & (33D0-2D0*MSTU(112))/12D0*LOG(PARJ(168))*ALSPI**2) + ELSE + RQCD=1D0+ALSPI-(3D0/32D0+0.519D0*MSTU(118))*(4D0*ALSPI/3D0)**2 + ENDIF + +C...alpha_strong for jet rate. Initial value for y cut. + ALSPI=(3D0/4D0)*CF*PYALPS(Q2)/PARU(1) + CUT=MAX(0.001D0,PARJ(125),(PARJ(126)/ECM)**2) + IF(IABS(MSTJ(101)).LE.1.OR.(MSTJ(109).EQ.0.AND.MSTJ(111).EQ.0)) + & CUT=MAX(CUT,EXP(-SQRT(0.75D0/ALSPI))/2D0) + IF(MSTJ(110).EQ.2) CUT=MAX(0.01D0,MIN(0.05D0,CUT)) + +C...Parametrization of first order three-jet cross-section. + 100 IF(MSTJ(101).EQ.0.OR.CUT.GE.0.25D0) THEN + PARJ(152)=0D0 + ELSE + PARJ(152)=(2D0*ALSPI/3D0)*((3D0-6D0*CUT+2D0*LOG(CUT))* + & LOG(CUT/(1D0-2D0*CUT))+(2.5D0+1.5D0*CUT-6.571D0)* + & (1D0-3D0*CUT)+5.833D0*(1D0-3D0*CUT)**2-3.894D0* + & (1D0-3D0*CUT)**3+1.342D0*(1D0-3D0*CUT)**4)/RQCD + IF(MSTJ(109).EQ.2.AND.(MSTJ(101).EQ.2.OR.MSTJ(101).LE.-2)) + & PARJ(152)=0D0 + ENDIF + +C...Parametrization of second order three-jet cross-section. + IF(IABS(MSTJ(101)).LE.1.OR.MSTJ(101).EQ.3.OR.MSTJ(109).EQ.2.OR. + & CUT.GE.0.25D0) THEN + PARJ(153)=0D0 + ELSEIF(MSTJ(110).LE.1) THEN + CT=LOG(1D0/CUT-2D0) + PARJ(153)=ALSPI**2*CT**2*(2.419D0+0.5989D0*CT+0.6782D0*CT**2- + & 0.2661D0*CT**3+0.01159D0*CT**4)/RQCD + +C...Interpolation in second/first order ratio for Zhu parametrization. + ELSEIF(MSTJ(110).EQ.2) THEN + IZA=0 + DO 110 IY=1,5 + IF(ABS(CUT-0.01D0*IY).LT.0.0001D0) IZA=IY + 110 CONTINUE + IF(IZA.NE.0) THEN + ZHURAT=ZHUT(IZA) + ELSE + IZ=100D0*CUT + ZHURAT=ZHUT(IZ)+(100D0*CUT-IZ)*(ZHUT(IZ+1)-ZHUT(IZ)) + ENDIF + PARJ(153)=ALSPI*PARJ(152)*ZHURAT + ENDIF + +C...Shift in second order three-jet cross-section with optimized Q^2. + IF(MSTJ(111).EQ.1.AND.IABS(MSTJ(101)).GE.2.AND.MSTJ(101).NE.3 + & .AND.CUT.LT.0.25D0) PARJ(153)=PARJ(153)+ + & (33D0-2D0*MSTU(112))/12D0*LOG(PARJ(169))*ALSPI*PARJ(152) + +C...Parametrization of second order four-jet cross-section. + IF(IABS(MSTJ(101)).LE.1.OR.CUT.GE.0.125D0) THEN + PARJ(154)=0D0 + ELSE + CT=LOG(1D0/CUT-5D0) + IF(CUT.LE.0.018D0) THEN + XQQGG=6.349D0-4.330D0*CT+0.8304D0*CT**2 + IF(MSTJ(109).EQ.2) XQQGG=(4D0/3D0)**2*(3.035D0-2.091D0*CT+ + & 0.4059D0*CT**2) + XQQQQ=1.25D0*(-0.1080D0+0.01486D0*CT+0.009364D0*CT**2) + IF(MSTJ(109).EQ.2) XQQQQ=8D0*XQQQQ + ELSE + XQQGG=-0.09773D0+0.2959D0*CT-0.2764D0*CT**2+0.08832D0*CT**3 + IF(MSTJ(109).EQ.2) XQQGG=(4D0/3D0)**2*(-0.04079D0+ + & 0.1340D0*CT-0.1326D0*CT**2+0.04365D0*CT**3) + XQQQQ=1.25D0*(0.003661D0-0.004888D0*CT-0.001081D0*CT**2+ + & 0.002093D0*CT**3) + IF(MSTJ(109).EQ.2) XQQQQ=8D0*XQQQQ + ENDIF + PARJ(154)=ALSPI**2*CT**2*(XQQGG+XQQQQ)/RQCD + PARJ(155)=XQQQQ/(XQQGG+XQQQQ) + ENDIF + +C...If negative three-jet rate, change y' optimization parameter. + IF(MSTJ(111).EQ.1.AND.PARJ(152)+PARJ(153).LT.0D0.AND. + & PARJ(169).LT.0.99D0) THEN + PARJ(169)=MIN(1D0,1.2D0*PARJ(169)) + Q2=PARJ(169)*ECM**2 + ALSPI=(3D0/4D0)*CF*PYALPS(Q2)/PARU(1) + GOTO 100 + ENDIF + +C...If too high cross-section, use harder cuts, or fail. + IF(PARJ(152)+PARJ(153)+PARJ(154).GE.1) THEN + IF(MSTJ(110).EQ.2.AND.CUT.GT.0.0499D0.AND.MSTJ(111).EQ.1.AND. + & PARJ(169).LT.0.99D0) THEN + PARJ(169)=MIN(1D0,1.2D0*PARJ(169)) + Q2=PARJ(169)*ECM**2 + ALSPI=(3D0/4D0)*CF*PYALPS(Q2)/PARU(1) + GOTO 100 + ELSEIF(MSTJ(110).EQ.2.AND.CUT.GT.0.0499D0) THEN + CALL PYERRM(26, + & '(PYXJET:) no allowed y cut value for Zhu parametrization') + ENDIF + CUT=0.26D0*(4D0*CUT)**(PARJ(152)+PARJ(153)+ + & PARJ(154))**(-1D0/3D0) + IF(MSTJ(110).EQ.2) CUT=MAX(0.01D0,MIN(0.05D0,CUT)) + GOTO 100 + ENDIF + +C...Scalar gluon (first order only). + ELSE + ALSPI=PYALPS(ECM**2)/PARU(1) + CUT=MAX(0.001D0,PARJ(125),(PARJ(126)/ECM)**2,EXP(-3D0/ALSPI)) + PARJ(152)=0D0 + IF(CUT.LT.0.25D0) PARJ(152)=(ALSPI/3D0)*((1D0-2D0*CUT)* + & LOG((1D0-2D0*CUT)/CUT)+0.5D0*(9D0*CUT**2-1D0)) + PARJ(153)=0D0 + PARJ(154)=0D0 + ENDIF + +C...Select number of jets. + PARJ(150)=CUT + IF(MSTJ(101).EQ.0.OR.MSTJ(101).EQ.5) THEN + NJET=2 + ELSEIF(MSTJ(101).LE.0) THEN + NJET=MIN(4,2-MSTJ(101)) + ELSE + RNJ=PYR(0) + NJET=2 + IF(PARJ(152)+PARJ(153)+PARJ(154).GT.RNJ) NJET=3 + IF(PARJ(154).GT.RNJ) NJET=4 + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYX3JT +C...Selects the kinematical variables of three-jet events. + + SUBROUTINE PYX3JT(NJET,CUT,KFL,ECM,X1,X2) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYDAT1/ +C...Local array. + DIMENSION ZHUP(5,12) + +C...Coefficients of Zhu second order parametrization. + DATA ((ZHUP(IC1,IC2),IC2=1,12),IC1=1,5)/ + &18.29D0, 89.56D0, 4.541D0, -52.09D0, -109.8D0, 24.90D0, + &11.63D0, 3.683D0, 17.50D0,0.002440D0, -1.362D0,-0.3537D0, + &11.42D0, 6.299D0, -22.55D0, -8.915D0, 59.25D0, -5.855D0, + &-32.85D0, -1.054D0, -16.90D0,0.006489D0,-0.8156D0,0.01095D0, + &7.847D0, -3.964D0, -35.83D0, 1.178D0, 29.39D0, 0.2806D0, + &47.82D0, -12.36D0, -56.72D0, 0.04054D0,-0.4365D0, 0.6062D0, + &5.441D0, -56.89D0, -50.27D0, 15.13D0, 114.3D0, -18.19D0, + &97.05D0, -1.890D0, -139.9D0, 0.08153D0,-0.4984D0, 0.9439D0, + &-17.65D0, 51.44D0, -58.32D0, 70.95D0, -255.7D0, -78.99D0, + &476.9D0, 29.65D0, -239.3D0, 0.4745D0, -1.174D0, 6.081D0/ + +C...Dilogarithm of x for x<0.5 (x>0.5 obtained by analytic trick). + DILOG(X)=X+X**2/4D0+X**3/9D0+X**4/16D0+X**5/25D0+X**6/36D0+ + &X**7/49D0 + +C...Event type. Mass effect factors and other common constants. + MSTJ(120)=2 + MSTJ(121)=0 + PMQ=PYMASS(KFL) + QME=(2D0*PMQ/ECM)**2 + IF(MSTJ(109).NE.1) THEN + CUTL=LOG(CUT) + CUTD=LOG(1D0/CUT-2D0) + IF(MSTJ(109).EQ.0) THEN + CF=4D0/3D0 + CN=3D0 + TR=2D0 + WTMX=MIN(20D0,37D0-6D0*CUTD) + IF(MSTJ(110).EQ.2) WTMX=2D0*(7.5D0+80D0*CUT) + ELSE + CF=1D0 + CN=0D0 + TR=12D0 + WTMX=0D0 + ENDIF + +C...Alpha_strong and effects of optimized Q^2 scale. Maximum weight. + ALS2PI=PARU(118)/PARU(2) + WTOPT=0D0 + IF(MSTJ(111).EQ.1) WTOPT=(33D0-2D0*MSTU(112))/6D0* + & LOG(PARJ(169))*ALS2PI + WTMAX=MAX(0D0,1D0+WTOPT+ALS2PI*WTMX) + +C...Choose three-jet events in allowed region. + 100 NJET=3 + 110 Y13L=CUTL+CUTD*PYR(0) + Y23L=CUTL+CUTD*PYR(0) + Y13=EXP(Y13L) + Y23=EXP(Y23L) + Y12=1D0-Y13-Y23 + IF(Y12.LE.CUT) GOTO 110 + IF(Y13**2+Y23**2+2D0*Y12.LE.2D0*PYR(0)) GOTO 110 + +C...Second order corrections. + IF(MSTJ(101).EQ.2.AND.MSTJ(110).LE.1) THEN + Y12L=LOG(Y12) + Y13M=LOG(1D0-Y13) + Y23M=LOG(1D0-Y23) + Y12M=LOG(1D0-Y12) + IF(Y13.LE.0.5D0) Y13I=DILOG(Y13) + IF(Y13.GE.0.5D0) Y13I=1.644934D0-Y13L*Y13M-DILOG(1D0-Y13) + IF(Y23.LE.0.5D0) Y23I=DILOG(Y23) + IF(Y23.GE.0.5D0) Y23I=1.644934D0-Y23L*Y23M-DILOG(1D0-Y23) + IF(Y12.LE.0.5D0) Y12I=DILOG(Y12) + IF(Y12.GE.0.5D0) Y12I=1.644934D0-Y12L*Y12M-DILOG(1D0-Y12) + WT1=(Y13**2+Y23**2+2D0*Y12)/(Y13*Y23) + WT2=CF*(-2D0*(CUTL-Y12L)**2-3D0*CUTL-1D0+3.289868D0+ + & 2D0*(2D0*CUTL-Y12L)*CUT/Y12)+ + & CN*((CUTL-Y12L)**2-(CUTL-Y13L)**2-(CUTL-Y23L)**2- + & 11D0*CUTL/6D0+67D0/18D0+1.644934D0-(2D0*CUTL-Y12L)*CUT/Y12+ + & (2D0*CUTL-Y13L)*CUT/Y13+(2D0*CUTL-Y23L)*CUT/Y23)+ + & TR*(2D0*CUTL/3D0-10D0/9D0)+ + & CF*(Y12/(Y12+Y13)+Y12/(Y12+Y23)+(Y12+Y23)/Y13+(Y12+Y13)/Y23+ + & Y13L*(4D0*Y12**2+2D0*Y12*Y13+4D0*Y12*Y23+Y13*Y23)/ + & (Y12+Y23)**2+Y23L*(4D0*Y12**2+2D0*Y12*Y23+4D0*Y12*Y13+ + & Y13*Y23)/(Y12+Y13)**2)/WT1+ + & CN*(Y13L*Y13/(Y12+Y23)+Y23L*Y23/(Y12+Y13))/WT1+(CN-2D0*CF)* + & ((Y12**2+(Y12+Y13)**2)*(Y12L*Y23L-Y12L*Y12M-Y23L* + & Y23M+1.644934D0-Y12I-Y23I)/(Y13*Y23)+(Y12**2+(Y12+Y23)**2)* + & (Y12L*Y13L-Y12L*Y12M-Y13L*Y13M+1.644934D0-Y12I-Y13I)/ + & (Y13*Y23)+(Y13**2+Y23**2)/(Y13*Y23*(Y13+Y23))- + & 2D0*Y12L*Y12**2/(Y13+Y23)**2-4D0*Y12L*Y12/(Y13+Y23))/WT1- + & CN*(Y13L*Y23L-Y13L*Y13M-Y23L*Y23M+1.644934D0-Y13I-Y23I) + IF(1D0+WTOPT+ALS2PI*WT2.LE.0D0) MSTJ(121)=1 + IF(1D0+WTOPT+ALS2PI*WT2.LE.WTMAX*PYR(0)) GOTO 110 + PARJ(156)=(WTOPT+ALS2PI*WT2)/(1D0+WTOPT+ALS2PI*WT2) + + ELSEIF(MSTJ(101).EQ.2.AND.MSTJ(110).EQ.2) THEN +C...Second order corrections; Zhu parametrization of ERT. + ZX=(Y23-Y13)**2 + ZY=1D0-Y12 + IZA=0 + DO 120 IY=1,5 + IF(ABS(CUT-0.01D0*IY).LT.0.0001D0) IZA=IY + 120 CONTINUE + IF(IZA.NE.0) THEN + IZ=IZA + WT2=ZHUP(IZ,1)+ZHUP(IZ,2)*ZX+ZHUP(IZ,3)*ZX**2+(ZHUP(IZ,4)+ + & ZHUP(IZ,5)*ZX)*ZY+(ZHUP(IZ,6)+ZHUP(IZ,7)*ZX)*ZY**2+ + & (ZHUP(IZ,8)+ZHUP(IZ,9)*ZX)*ZY**3+ZHUP(IZ,10)/(ZX-ZY**2)+ + & ZHUP(IZ,11)/(1D0-ZY)+ZHUP(IZ,12)/ZY + ELSE + IZ=100D0*CUT + WTL=ZHUP(IZ,1)+ZHUP(IZ,2)*ZX+ZHUP(IZ,3)*ZX**2+(ZHUP(IZ,4)+ + & ZHUP(IZ,5)*ZX)*ZY+(ZHUP(IZ,6)+ZHUP(IZ,7)*ZX)*ZY**2+ + & (ZHUP(IZ,8)+ZHUP(IZ,9)*ZX)*ZY**3+ZHUP(IZ,10)/(ZX-ZY**2)+ + & ZHUP(IZ,11)/(1D0-ZY)+ZHUP(IZ,12)/ZY + IZ=IZ+1 + WTU=ZHUP(IZ,1)+ZHUP(IZ,2)*ZX+ZHUP(IZ,3)*ZX**2+(ZHUP(IZ,4)+ + & ZHUP(IZ,5)*ZX)*ZY+(ZHUP(IZ,6)+ZHUP(IZ,7)*ZX)*ZY**2+ + & (ZHUP(IZ,8)+ZHUP(IZ,9)*ZX)*ZY**3+ZHUP(IZ,10)/(ZX-ZY**2)+ + & ZHUP(IZ,11)/(1D0-ZY)+ZHUP(IZ,12)/ZY + WT2=WTL+(WTU-WTL)*(100D0*CUT+1D0-IZ) + ENDIF + IF(1D0+WTOPT+2D0*ALS2PI*WT2.LE.0D0) MSTJ(121)=1 + IF(1D0+WTOPT+2D0*ALS2PI*WT2.LE.WTMAX*PYR(0)) GOTO 110 + PARJ(156)=(WTOPT+2D0*ALS2PI*WT2)/(1D0+WTOPT+2D0*ALS2PI*WT2) + ENDIF + +C...Impose mass cuts (gives two jets). For fixed jet number new try. + X1=1D0-Y23 + X2=1D0-Y13 + X3=1D0-Y12 + IF(4D0*Y23*Y13*Y12/X3**2.LE.QME) NJET=2 + IF(MOD(MSTJ(103),4).GE.2.AND.IABS(MSTJ(101)).LE.1.AND.QME*X3+ + & 0.5D0*QME**2+(0.5D0*QME+0.25D0*QME**2)*((1D0-X2)/(1D0-X1)+ + & (1D0-X1)/(1D0-X2)).GT.(X1**2+X2**2)*PYR(0)) NJET=2 + IF(MSTJ(101).EQ.-1.AND.NJET.EQ.2) GOTO 100 + +C...Scalar gluon model (first order only, no mass effects). + ELSE + 130 NJET=3 + 140 X3=SQRT(4D0*CUT**2+PYR(0)*((1D0-CUT)**2-4D0*CUT**2)) + IF(LOG((X3-CUT)/CUT).LE.PYR(0)*LOG((1D0-2D0*CUT)/CUT)) GOTO 140 + YD=SIGN(2D0*CUT*((X3-CUT)/CUT)**PYR(0)-X3,PYR(0)-0.5D0) + X1=1D0-0.5D0*(X3+YD) + X2=1D0-0.5D0*(X3-YD) + IF(4D0*(1D0-X1)*(1D0-X2)*(1D0-X3)/X3**2.LE.QME) NJET=2 + IF(MSTJ(102).GE.2) THEN + IF(X3**2-2D0*(1D0+X3)*(1D0-X1)*(1D0-X2)*PARJ(171).LT. + & X3**2*PYR(0)) NJET=2 + ENDIF + IF(MSTJ(101).EQ.-1.AND.NJET.EQ.2) GOTO 130 + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYX4JT +C...Selects the kinematical variables of four-jet events. + + SUBROUTINE PYX4JT(NJET,CUT,KFL,ECM,KFLN,X1,X2,X4,X12,X14) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYDAT1/ +C...Local arrays. + DIMENSION WTA(4),WTB(4),WTC(4),WTD(4),WTE(4) + +C...Common constants. Colour factors for QCD and Abelian gluon theory. + PMQ=PYMASS(KFL) + QME=(2D0*PMQ/ECM)**2 + CT=LOG(1D0/CUT-5D0) + IF(MSTJ(109).EQ.0) THEN + CF=4D0/3D0 + CN=3D0 + TR=2.5D0 + ELSE + CF=1D0 + CN=0D0 + TR=15D0 + ENDIF + +C...Choice of process (qqbargg or qqbarqqbar). + 100 NJET=4 + IT=1 + IF(PARJ(155).GT.PYR(0)) IT=2 + IF(MSTJ(101).LE.-3) IT=-MSTJ(101)-2 + IF(IT.EQ.1) WTMX=0.7D0/CUT**2 + IF(IT.EQ.1.AND.MSTJ(109).EQ.2) WTMX=0.6D0/CUT**2 + IF(IT.EQ.2) WTMX=0.1125D0*CF*TR/CUT**2 + ID=1 + +C...Sample the five kinematical variables (for qqgg preweighted in y34). + 110 Y134=3D0*CUT+(1D0-6D0*CUT)*PYR(0) + Y234=3D0*CUT+(1D0-6D0*CUT)*PYR(0) + IF(IT.EQ.1) Y34=(1D0-5D0*CUT)*EXP(-CT*PYR(0)) + IF(IT.EQ.2) Y34=CUT+(1D0-6D0*CUT)*PYR(0) + IF(Y34.LE.Y134+Y234-1D0.OR.Y34.GE.Y134*Y234) GOTO 110 + VT=PYR(0) + CP=COS(PARU(1)*PYR(0)) + Y14=(Y134-Y34)*VT + Y13=Y134-Y14-Y34 + VB=Y34*(1D0-Y134-Y234+Y34)/((Y134-Y34)*(Y234-Y34)) + Y24=0.5D0*(Y234-Y34)*(1D0-4D0*SQRT(MAX(0D0,VT*(1D0-VT)* + &VB*(1D0-VB)))*CP-(1D0-2D0*VT)*(1D0-2D0*VB)) + Y23=Y234-Y34-Y24 + Y12=1D0-Y134-Y23-Y24 + IF(MIN(Y12,Y13,Y14,Y23,Y24).LE.CUT) GOTO 110 + Y123=Y12+Y13+Y23 + Y124=Y12+Y14+Y24 + +C...Calculate matrix elements for qqgg or qqqq process. + IC=0 + WTTOT=0D0 + 120 IC=IC+1 + IF(IT.EQ.1) THEN + WTA(IC)=(Y12*Y34**2-Y13*Y24*Y34+Y14*Y23*Y34+3D0*Y12*Y23*Y34+ + & 3D0*Y12*Y14*Y34+4D0*Y12**2*Y34-Y13*Y23*Y24+2D0*Y12*Y23*Y24- + & Y13*Y14*Y24-2D0*Y12*Y13*Y24+2D0*Y12**2*Y24+Y14*Y23**2+2D0*Y12* + & Y23**2+Y14**2*Y23+4D0*Y12*Y14*Y23+4D0*Y12**2*Y23+2D0*Y12*Y14**2+ + & 2D0*Y12*Y13*Y14+4D0*Y12**2*Y14+2D0*Y12**2*Y13+2D0*Y12**3)/ + & (2D0*Y13*Y134*Y234*Y24)+(Y24*Y34+Y12*Y34+Y13*Y24- + & Y14*Y23+Y12*Y13)/(Y13*Y134**2)+2D0*Y23*(1D0-Y13)/ + & (Y13*Y134*Y24)+Y34/(2D0*Y13*Y24) + WTB(IC)=(Y12*Y24*Y34+Y12*Y14*Y34-Y13*Y24**2+Y13*Y14*Y24+2D0*Y12* + & Y14*Y24)/(Y13*Y134*Y23*Y14)+Y12*(1D0+Y34)*Y124/(Y134*Y234*Y14* + & Y24)-(2D0*Y13*Y24+Y14**2+Y13*Y23+2D0*Y12*Y13)/(Y13*Y134*Y14)+ + & Y12*Y123*Y124/(2D0*Y13*Y14*Y23*Y24) + WTC(IC)=-(5D0*Y12*Y34**2+2D0*Y12*Y24*Y34+2D0*Y12*Y23*Y34+ + & 2D0*Y12*Y14*Y34+2D0*Y12*Y13*Y34+4D0*Y12**2*Y34-Y13*Y24**2+ + & Y14*Y23*Y24+Y13*Y23*Y24+Y13*Y14*Y24-Y12*Y14*Y24-Y13**2*Y24- + & 3D0*Y12*Y13*Y24-Y14*Y23**2-Y14**2*Y23+Y13*Y14*Y23- + & 3D0*Y12*Y14*Y23-Y12*Y13*Y23)/(4D0*Y134*Y234*Y34**2)+ + & (3D0*Y12*Y34**2-3D0*Y13*Y24*Y34+3D0*Y12*Y24*Y34+ + & 3D0*Y14*Y23*Y34-Y13*Y24**2-Y12*Y23*Y34+6D0*Y12*Y14*Y34+ + & 2D0*Y12*Y13*Y34-2D0*Y12**2*Y34+Y14*Y23*Y24-3D0*Y13*Y23*Y24- + & 2D0*Y13*Y14*Y24+4D0*Y12*Y14*Y24+2D0*Y12*Y13*Y24+ + & 3D0*Y14*Y23**2+2D0*Y14**2*Y23+2D0*Y14**2*Y12+ + & 2D0*Y12**2*Y14+6D0*Y12*Y14*Y23-2D0*Y12*Y13**2- + & 2D0*Y12**2*Y13)/(4D0*Y13*Y134*Y234*Y34) + WTC(IC)=WTC(IC)+(2D0*Y12*Y34**2-2D0*Y13*Y24*Y34+Y12*Y24*Y34+ + & 4D0*Y13*Y23*Y34+4D0*Y12*Y14*Y34+2D0*Y12*Y13*Y34+2D0*Y12**2*Y34- + & Y13*Y24**2+3D0*Y14*Y23*Y24+4D0*Y13*Y23*Y24-2D0*Y13*Y14*Y24+ + & 4D0*Y12*Y14*Y24+2D0*Y12*Y13*Y24+2D0*Y14*Y23**2+4D0*Y13*Y23**2+ + & 2D0*Y13*Y14*Y23+2D0*Y12*Y14*Y23+4D0*Y12*Y13*Y23+2D0*Y12*Y14**2+ + & 4D0*Y12**2*Y13+4D0*Y12*Y13*Y14+2D0*Y12**2*Y14)/ + & (4D0*Y13*Y134*Y24*Y34)-(Y12*Y34**2-2D0*Y14*Y24*Y34- + & 2D0*Y13*Y24*Y34-Y14*Y23*Y34+Y13*Y23*Y34+Y12*Y14*Y34+ + & 2D0*Y12*Y13*Y34-2D0*Y14**2*Y24-4D0*Y13*Y14*Y24- + & 4D0*Y13**2*Y24-Y14**2*Y23-Y13**2*Y23+Y12*Y13*Y14- + & Y12*Y13**2)/(2D0*Y13*Y34*Y134**2)+(Y12*Y34**2- + & 4D0*Y14*Y24*Y34-2D0*Y13*Y24*Y34-2D0*Y14*Y23*Y34- + & 4D0*Y13*Y23*Y34-4D0*Y12*Y14*Y34-4D0*Y12*Y13*Y34- + & 2D0*Y13*Y14*Y24+2D0*Y13**2*Y24+2D0*Y14**2*Y23- + & 2D0*Y13*Y14*Y23-Y12*Y14**2-6D0*Y12*Y13*Y14- + & Y12*Y13**2)/(4D0*Y34**2*Y134**2) + WTTOT=WTTOT+Y34*CF*(CF*WTA(IC)+(CF-0.5D0*CN)*WTB(IC)+ + & CN*WTC(IC))/8D0 + ELSE + WTD(IC)=(Y13*Y23*Y34+Y12*Y23*Y34-Y12**2*Y34+Y13*Y23*Y24+2D0*Y12* + & Y23*Y24-Y14*Y23**2+Y12*Y13*Y24+Y12*Y14*Y23+Y12*Y13*Y14)/(Y13**2* + & Y123**2)-(Y12*Y34**2-Y13*Y24*Y34+Y12*Y24*Y34-Y14*Y23*Y34-Y12* + & Y23*Y34-Y13*Y24**2+Y14*Y23*Y24-Y13*Y23*Y24-Y13**2*Y24+Y14* + & Y23**2)/(Y13**2*Y123*Y134)+(Y13*Y14*Y12+Y34*Y14*Y12-Y34**2*Y12+ + & Y13*Y14*Y24+2D0*Y34*Y14*Y24-Y23*Y14**2+Y34*Y13*Y24+Y34*Y23*Y14+ + & Y34*Y13*Y23)/(Y13**2*Y134**2)-(Y34*Y12**2-Y13*Y24*Y12+Y34*Y24* + & Y12-Y23*Y14*Y12-Y34*Y14*Y12-Y13*Y24**2+Y23*Y14*Y24-Y13*Y14*Y24- + & Y13**2*Y24+Y23*Y14**2)/(Y13**2*Y134*Y123) + WTE(IC)=(Y12*Y34*(Y23-Y24+Y14+Y13)+Y13*Y24**2-Y14*Y23*Y24+Y13* + & Y23*Y24+Y13*Y14*Y24+Y13**2*Y24-Y14*Y23*(Y14+Y23+Y13))/(Y13*Y23* + & Y123*Y134)-Y12*(Y12*Y34-Y23*Y24-Y13*Y24-Y14*Y23-Y14*Y13)/(Y13* + & Y23*Y123**2)-(Y14+Y13)*(Y24+Y23)*Y34/(Y13*Y23*Y134*Y234)+ + & (Y12*Y34*(Y14-Y24+Y23+Y13)+Y13*Y24**2-Y23*Y14*Y24+Y13*Y14*Y24+ + & Y13*Y23*Y24+Y13**2*Y24-Y23*Y14*(Y14+Y23+Y13))/(Y13*Y14*Y134* + & Y123)-Y34*(Y34*Y12-Y14*Y24-Y13*Y24-Y23*Y14-Y23*Y13)/(Y13*Y14* + & Y134**2)-(Y23+Y13)*(Y24+Y14)*Y12/(Y13*Y14*Y123*Y124) + WTTOT=WTTOT+CF*(TR*WTD(IC)+(CF-0.5D0*CN)*WTE(IC))/16D0 + ENDIF + +C...Permutations of momenta in matrix element. Weighting. + 130 IF(IC.EQ.1.OR.IC.EQ.3.OR.ID.EQ.2.OR.ID.EQ.3) THEN + YSAV=Y13 + Y13=Y14 + Y14=YSAV + YSAV=Y23 + Y23=Y24 + Y24=YSAV + YSAV=Y123 + Y123=Y124 + Y124=YSAV + ENDIF + IF(IC.EQ.2.OR.IC.EQ.4.OR.ID.EQ.3.OR.ID.EQ.4) THEN + YSAV=Y13 + Y13=Y23 + Y23=YSAV + YSAV=Y14 + Y14=Y24 + Y24=YSAV + YSAV=Y134 + Y134=Y234 + Y234=YSAV + ENDIF + IF(IC.LE.3) GOTO 120 + IF(ID.EQ.1.AND.WTTOT.LT.PYR(0)*WTMX) GOTO 110 + IC=5 + +C...qqgg events: string configuration and event type. + IF(IT.EQ.1) THEN + IF(MSTJ(109).EQ.0.AND.ID.EQ.1) THEN + PARJ(156)=Y34*(2D0*(WTA(1)+WTA(2)+WTA(3)+WTA(4))+4D0*(WTC(1)+ + & WTC(2)+WTC(3)+WTC(4)))/(9D0*WTTOT) + IF(WTA(2)+WTA(4)+2D0*(WTC(2)+WTC(4)).GT.PYR(0)*(WTA(1)+WTA(2)+ + & WTA(3)+WTA(4)+2D0*(WTC(1)+WTC(2)+WTC(3)+WTC(4)))) ID=2 + IF(ID.EQ.2) GOTO 130 + ELSEIF(MSTJ(109).EQ.2.AND.ID.EQ.1) THEN + PARJ(156)=Y34*(WTA(1)+WTA(2)+WTA(3)+WTA(4))/(8D0*WTTOT) + IF(WTA(2)+WTA(4).GT.PYR(0)*(WTA(1)+WTA(2)+WTA(3)+WTA(4))) ID=2 + IF(ID.EQ.2) GOTO 130 + ENDIF + MSTJ(120)=3 + IF(MSTJ(109).EQ.0.AND.0.5D0*Y34*(WTC(1)+WTC(2)+WTC(3)+ + & WTC(4)).GT.PYR(0)*WTTOT) MSTJ(120)=4 + KFLN=21 + +C...Mass cuts. Kinematical variables out. + IF(Y12.LE.CUT+QME) NJET=2 + IF(NJET.EQ.2) GOTO 150 + Q12=0.5D0*(1D0-SQRT(1D0-QME/Y12)) + X1=1D0-(1D0-Q12)*Y234-Q12*Y134 + X4=1D0-(1D0-Q12)*Y134-Q12*Y234 + X2=1D0-Y124 + X12=(1D0-Q12)*Y13+Q12*Y23 + X14=Y12-0.5D0*QME + IF(Y134*Y234/((1D0-X1)*(1D0-X4)).LE.PYR(0)) NJET=2 + +C...qqbarqqbar events: string configuration, choose new flavour. + ELSE + IF(ID.EQ.1) THEN + WTR=PYR(0)*(WTD(1)+WTD(2)+WTD(3)+WTD(4)) + IF(WTR.LT.WTD(2)+WTD(3)+WTD(4)) ID=2 + IF(WTR.LT.WTD(3)+WTD(4)) ID=3 + IF(WTR.LT.WTD(4)) ID=4 + IF(ID.GE.2) GOTO 130 + ENDIF + MSTJ(120)=5 + PARJ(156)=CF*TR*(WTD(1)+WTD(2)+WTD(3)+WTD(4))/(16D0*WTTOT) + 140 KFLN=1+INT(5D0*PYR(0)) + IF(KFLN.NE.KFL.AND.0.2D0*PARJ(156).LE.PYR(0)) GOTO 140 + IF(KFLN.EQ.KFL.AND.1D0-0.8D0*PARJ(156).LE.PYR(0)) GOTO 140 + IF(KFLN.GT.MSTJ(104)) NJET=2 + PMQN=PYMASS(KFLN) + QMEN=(2D0*PMQN/ECM)**2 + +C...Mass cuts. Kinematical variables out. + IF(Y24.LE.CUT+QME.OR.Y13.LE.1.1D0*QMEN) NJET=2 + IF(NJET.EQ.2) GOTO 150 + Q24=0.5D0*(1D0-SQRT(1D0-QME/Y24)) + Q13=0.5D0*(1D0-SQRT(1D0-QMEN/Y13)) + X1=1D0-(1D0-Q24)*Y123-Q24*Y134 + X4=1D0-(1D0-Q24)*Y134-Q24*Y123 + X2=1D0-(1D0-Q13)*Y234-Q13*Y124 + X12=(1D0-Q24)*((1D0-Q13)*Y14+Q13*Y34)+Q24*((1D0-Q13)*Y12+ + & Q13*Y23) + X14=Y24-0.5D0*QME + X34=(1D0-Q24)*((1D0-Q13)*Y23+Q13*Y12)+Q24*((1D0-Q13)*Y34+ + & Q13*Y14) + IF(PMQ**2+PMQN**2+MIN(X12,X34)*ECM**2.LE. + & (PARJ(127)+PMQ+PMQN)**2) NJET=2 + IF(Y123*Y134/((1D0-X1)*(1D0-X4)).LE.PYR(0)) NJET=2 + ENDIF + 150 IF(MSTJ(101).LE.-2.AND.NJET.EQ.2) GOTO 100 + + RETURN + END + +C********************************************************************* + +C...PYXDIF +C...Gives the angular orientation of events. + + SUBROUTINE PYXDIF(NC,NJET,KFL,ECM,CHI,THE,PHI) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ + +C...Charge. Factors depending on polarization for QED case. + QF=KCHG(KFL,1)/3D0 + POLL=1D0-PARJ(131)*PARJ(132) + POLD=PARJ(132)-PARJ(131) + IF(MSTJ(102).LE.1.OR.MSTJ(109).EQ.1) THEN + HF1=POLL + HF2=0D0 + HF3=PARJ(133)**2 + HF4=0D0 + +C...Factors depending on flavour, energy and polarization for QFD case. + ELSE + SFF=1D0/(16D0*PARU(102)*(1D0-PARU(102))) + SFW=ECM**4/((ECM**2-PARJ(123)**2)**2+(PARJ(123)*PARJ(124))**2) + SFI=SFW*(1D0-(PARJ(123)/ECM)**2) + AE=-1D0 + VE=4D0*PARU(102)-1D0 + AF=SIGN(1D0,QF) + VF=AF-4D0*QF*PARU(102) + HF1=QF**2*POLL-2D0*QF*VF*SFI*SFF*(VE*POLL-AE*POLD)+ + & (VF**2+AF**2)*SFW*SFF**2*((VE**2+AE**2)*POLL-2D0*VE*AE*POLD) + HF2=-2D0*QF*AF*SFI*SFF*(AE*POLL-VE*POLD)+2D0*VF*AF*SFW*SFF**2* + & (2D0*VE*AE*POLL-(VE**2+AE**2)*POLD) + HF3=PARJ(133)**2*(QF**2-2D0*QF*VF*SFI*SFF*VE+(VF**2+AF**2)* + & SFW*SFF**2*(VE**2-AE**2)) + HF4=-PARJ(133)**2*2D0*QF*VF*SFW*(PARJ(123)*PARJ(124)/ECM**2)* + & SFF*AE + ENDIF + +C...Mass factor. Differential cross-sections for two-jet events. + SQ2=SQRT(2D0) + QME=0D0 + IF(MSTJ(103).GE.4.AND.IABS(MSTJ(101)).LE.1.AND.MSTJ(102).LE.1.AND. + &MSTJ(109).NE.1) QME=(2D0*PYMASS(KFL)/ECM)**2 + IF(NJET.EQ.2) THEN + SIGU=4D0*SQRT(1D0-QME) + SIGL=2D0*QME*SQRT(1D0-QME) + SIGT=0D0 + SIGI=0D0 + SIGA=0D0 + SIGP=4D0 + +C...Kinematical variables. Reduce four-jet event to three-jet one. + ELSE + IF(NJET.EQ.3) THEN + X1=2D0*P(NC+1,4)/ECM + X2=2D0*P(NC+3,4)/ECM + ELSE + ECMR=P(NC+1,4)+P(NC+4,4)+SQRT((P(NC+2,1)+P(NC+3,1))**2+ + & (P(NC+2,2)+P(NC+3,2))**2+(P(NC+2,3)+P(NC+3,3))**2) + X1=2D0*P(NC+1,4)/ECMR + X2=2D0*P(NC+4,4)/ECMR + ENDIF + +C...Differential cross-sections for three-jet (or reduced four-jet). + XQ=(1D0-X1)/(1D0-X2) + CT12=(X1*X2-2D0*X1-2D0*X2+2D0+QME)/SQRT((X1**2-QME)*(X2**2-QME)) + ST12=SQRT(1D0-CT12**2) + IF(MSTJ(109).NE.1) THEN + SIGU=2D0*X1**2+X2**2*(1D0+CT12**2)-QME*(3D0+CT12**2-X1-X2)- + & QME*X1/XQ+0.5D0*QME*((X2**2-QME)*ST12**2-2D0*X2)*XQ + SIGL=(X2*ST12)**2-QME*(3D0-CT12**2-2.5D0*(X1+X2)+X1*X2+QME)+ + & 0.5D0*QME*(X1**2-X1-QME)/XQ+0.5D0*QME*((X2**2-QME)*CT12**2- + & X2)*XQ + SIGT=0.5D0*(X2**2-QME-0.5D0*QME*(X2**2-QME)/XQ)*ST12**2 + SIGI=((1D0-0.5D0*QME*XQ)*(X2**2-QME)*ST12*CT12+ + & QME*(1D0-X1-X2+0.5D0*X1*X2+0.5D0*QME)*ST12/CT12)/SQ2 + SIGA=X2**2*ST12/SQ2 + SIGP=2D0*(X1**2-X2**2*CT12) + +C...Differential cross-sect for scalar gluons (no mass effects). + ELSE + X3=2D0-X1-X2 + XT=X2*ST12 + CT13=SQRT(MAX(0D0,1D0-(XT/X3)**2)) + SIGU=(1D0-PARJ(171))*(X3**2-0.5D0*XT**2)+ + & PARJ(171)*(X3**2-0.5D0*XT**2-4D0*(1D0-X1)*(1D0-X2)**2/X1) + SIGL=(1D0-PARJ(171))*0.5D0*XT**2+ + & PARJ(171)*0.5D0*(1D0-X1)**2*XT**2 + SIGT=(1D0-PARJ(171))*0.25D0*XT**2+ + & PARJ(171)*0.25D0*XT**2*(1D0-2D0*X1) + SIGI=-(0.5D0/SQ2)*((1D0-PARJ(171))*XT*X3*CT13+ + & PARJ(171)*XT*((1D0-2D0*X1)*X3*CT13-X1*(X1-X2))) + SIGA=(0.25D0/SQ2)*XT*(2D0*(1D0-X1)-X1*X3) + SIGP=X3**2-2D0*(1D0-X1)*(1D0-X2)/X1 + ENDIF + ENDIF + +C...Upper bounds for differential cross-section. + HF1A=ABS(HF1) + HF2A=ABS(HF2) + HF3A=ABS(HF3) + HF4A=ABS(HF4) + SIGMAX=(2D0*HF1A+HF3A+HF4A)*ABS(SIGU)+2D0*(HF1A+HF3A+HF4A)* + &ABS(SIGL)+2D0*(HF1A+2D0*HF3A+2D0*HF4A)*ABS(SIGT)+2D0*SQ2* + &(HF1A+2D0*HF3A+2D0*HF4A)*ABS(SIGI)+4D0*SQ2*HF2A*ABS(SIGA)+ + &2D0*HF2A*ABS(SIGP) + +C...Generate angular orientation according to differential cross-sect. + 100 CHI=PARU(2)*PYR(0) + CTHE=2D0*PYR(0)-1D0 + PHI=PARU(2)*PYR(0) + CCHI=COS(CHI) + SCHI=SIN(CHI) + C2CHI=COS(2D0*CHI) + S2CHI=SIN(2D0*CHI) + THE=ACOS(CTHE) + STHE=SIN(THE) + C2PHI=COS(2D0*(PHI-PARJ(134))) + S2PHI=SIN(2D0*(PHI-PARJ(134))) + SIG=((1D0+CTHE**2)*HF1+STHE**2*(C2PHI*HF3-S2PHI*HF4))*SIGU+ + &2D0*(STHE**2*HF1-STHE**2*(C2PHI*HF3-S2PHI*HF4))*SIGL+ + &2D0*(STHE**2*C2CHI*HF1+((1D0+CTHE**2)*C2CHI*C2PHI-2D0*CTHE*S2CHI* + &S2PHI)*HF3-((1D0+CTHE**2)*C2CHI*S2PHI+2D0*CTHE*S2CHI*C2PHI)*HF4)* + &SIGT-2D0*SQ2*(2D0*STHE*CTHE*CCHI*HF1-2D0*STHE*(CTHE*CCHI*C2PHI- + &SCHI*S2PHI)*HF3+2D0*STHE*(CTHE*CCHI*S2PHI+SCHI*C2PHI)*HF4)*SIGI+ + &4D0*SQ2*STHE*CCHI*HF2*SIGA+2D0*CTHE*HF2*SIGP + IF(SIG.LT.SIGMAX*PYR(0)) GOTO 100 + + RETURN + END + +C********************************************************************* + +C...PYONIA +C...Generates Upsilon and toponium decays into three gluons +C...or two gluons and a photon. + + SUBROUTINE PYONIA(KFL,ECM) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4) + SAVE /PYJETS/,/PYDAT1/,/PYDAT2/ + +C...Printout. Check input parameters. + IF(MSTU(12).GE.1) CALL PYLIST(0) + IF(KFL.LT.0.OR.KFL.GT.8) THEN + CALL PYERRM(16,'(PYONIA:) called with unknown flavour code') + IF(MSTU(21).GE.1) RETURN + ENDIF + IF(ECM.LT.PARJ(127)+2.02D0*PARF(101)) THEN + CALL PYERRM(16,'(PYONIA:) called with too small CM energy') + IF(MSTU(21).GE.1) RETURN + ENDIF + +C...Initial e+e- and onium state (optional). + NC=0 + IF(MSTJ(115).GE.2) THEN + NC=NC+2 + CALL PY1ENT(NC-1,11,0.5D0*ECM,0D0,0D0) + K(NC-1,1)=21 + CALL PY1ENT(NC,-11,0.5D0*ECM,PARU(1),0D0) + K(NC,1)=21 + ENDIF + KFLC=IABS(KFL) + IF(MSTJ(115).GE.3.AND.KFLC.GE.5) THEN + NC=NC+1 + KF=110*KFLC+3 + MSTU10=MSTU(10) + MSTU(10)=1 + P(NC,5)=ECM + CALL PY1ENT(NC,KF,ECM,0D0,0D0) + K(NC,1)=21 + K(NC,3)=1 + MSTU(10)=MSTU10 + ENDIF + +C...Choose x1 and x2 according to matrix element. + NTRY=0 + 100 X1=PYR(0) + X2=PYR(0) + X3=2D0-X1-X2 + IF(X3.GE.1D0.OR.((1D0-X1)/(X2*X3))**2+((1D0-X2)/(X1*X3))**2+ + &((1D0-X3)/(X1*X2))**2.LE.2D0*PYR(0)) GOTO 100 + NTRY=NTRY+1 + NJET=3 + IF(MSTJ(101).LE.4) CALL PY3ENT(NC+1,21,21,21,ECM,X1,X3) + IF(MSTJ(101).GE.5) CALL PY3ENT(-(NC+1),21,21,21,ECM,X1,X3) + +C...Photon-gluon-gluon events. Small system modifications. Jet origin. + MSTU(111)=MSTJ(108) + IF(MSTJ(108).EQ.2.AND.(MSTJ(101).EQ.0.OR.MSTJ(101).EQ.1)) + &MSTU(111)=1 + PARU(112)=PARJ(121) + IF(MSTU(111).EQ.2) PARU(112)=PARJ(122) + QF=0D0 + IF(KFLC.NE.0) QF=KCHG(KFLC,1)/3D0 + RGAM=7.2D0*QF**2*PARU(101)/PYALPS(ECM**2) + MK=0 + ECMC=ECM + IF(PYR(0).GT.RGAM/(1D0+RGAM)) THEN + IF(1D0-MAX(X1,X2,X3).LE.MAX((PARJ(126)/ECM)**2,PARJ(125))) + & NJET=2 + IF(NJET.EQ.2.AND.MSTJ(101).LE.4) CALL PY2ENT(NC+1,21,21,ECM) + IF(NJET.EQ.2.AND.MSTJ(101).GE.5) CALL PY2ENT(-(NC+1),21,21,ECM) + ELSE + MK=1 + ECMC=SQRT(1D0-X1)*ECM + IF(ECMC.LT.2D0*PARJ(127)) GOTO 100 + K(NC+1,1)=1 + K(NC+1,2)=22 + K(NC+1,4)=0 + K(NC+1,5)=0 + IF(MSTJ(101).GE.5) K(NC+2,4)=MSTU(5)*(NC+3) + IF(MSTJ(101).GE.5) K(NC+2,5)=MSTU(5)*(NC+3) + IF(MSTJ(101).GE.5) K(NC+3,4)=MSTU(5)*(NC+2) + IF(MSTJ(101).GE.5) K(NC+3,5)=MSTU(5)*(NC+2) + NJET=2 + IF(ECMC.LT.4D0*PARJ(127)) THEN + MSTU10=MSTU(10) + MSTU(10)=1 + P(NC+2,5)=ECMC + CALL PY1ENT(NC+2,83,0.5D0*(X2+X3)*ECM,PARU(1),0D0) + MSTU(10)=MSTU10 + NJET=0 + ENDIF + ENDIF + DO 110 IP=NC+1,N + K(IP,3)=K(IP,3)+(MSTJ(115)/2)+(KFLC/5)*(MSTJ(115)/3)*(NC-1) + 110 CONTINUE + +C...Differential cross-sections. Upper limit for cross-section. + IF(MSTJ(106).EQ.1) THEN + SQ2=SQRT(2D0) + HF1=1D0-PARJ(131)*PARJ(132) + HF3=PARJ(133)**2 + CT13=(X1*X3-2D0*X1-2D0*X3+2D0)/(X1*X3) + ST13=SQRT(1D0-CT13**2) + SIGL=0.5D0*X3**2*((1D0-X2)**2+(1D0-X3)**2)*ST13**2 + SIGU=(X1*(1D0-X1))**2+(X2*(1D0-X2))**2+(X3*(1D0-X3))**2-SIGL + SIGT=0.5D0*SIGL + SIGI=(SIGL*CT13/ST13+0.5D0*X1*X3*(1D0-X2)**2*ST13)/SQ2 + SIGMAX=(2D0*HF1+HF3)*ABS(SIGU)+2D0*(HF1+HF3)*ABS(SIGL)+2D0*(HF1+ + & 2D0*HF3)*ABS(SIGT)+2D0*SQ2*(HF1+2D0*HF3)*ABS(SIGI) + +C...Angular orientation of event. + 120 CHI=PARU(2)*PYR(0) + CTHE=2D0*PYR(0)-1D0 + PHI=PARU(2)*PYR(0) + CCHI=COS(CHI) + SCHI=SIN(CHI) + C2CHI=COS(2D0*CHI) + S2CHI=SIN(2D0*CHI) + THE=ACOS(CTHE) + STHE=SIN(THE) + C2PHI=COS(2D0*(PHI-PARJ(134))) + S2PHI=SIN(2D0*(PHI-PARJ(134))) + SIG=((1D0+CTHE**2)*HF1+STHE**2*C2PHI*HF3)*SIGU+2D0*(STHE**2*HF1- + & STHE**2*C2PHI*HF3)*SIGL+2D0*(STHE**2*C2CHI*HF1+((1D0+CTHE**2)* + & C2CHI*C2PHI-2D0*CTHE*S2CHI*S2PHI)*HF3)*SIGT- + & 2D0*SQ2*(2D0*STHE*CTHE*CCHI*HF1-2D0*STHE* + & (CTHE*CCHI*C2PHI-SCHI*S2PHI)*HF3)*SIGI + IF(SIG.LT.SIGMAX*PYR(0)) GOTO 120 + CALL PYROBO(NC+1,N,0D0,CHI,0D0,0D0,0D0) + CALL PYROBO(NC+1,N,THE,PHI,0D0,0D0,0D0) + ENDIF + +C...Generate parton shower. Rearrange along strings and check. + IF(MSTJ(101).GE.5.AND.NJET.GE.2) THEN + CALL PYSHOW(NC+MK+1,-NJET,ECMC) + MSTJ14=MSTJ(14) + IF(MSTJ(105).EQ.-1) MSTJ(14)=-1 + IF(MSTJ(105).GE.0) MSTU(28)=0 + CALL PYPREP(0) + MSTJ(14)=MSTJ14 + IF(MSTJ(105).GE.0.AND.MSTU(28).NE.0) GOTO 100 + ENDIF + +C...Generate fragmentation. Information for PYTABU: + IF(MSTJ(105).EQ.1) CALL PYEXEC + MSTU(161)=110*KFLC+3 + MSTU(162)=0 + + RETURN + END + +C********************************************************************* + +C...PYBOOK +C...Books a histogram. + + SUBROUTINE PYBOOK(ID,TITLE,NX,XL,XU) + +C...Double precision declaration. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) +C...Commonblock. + COMMON/PYBINS/IHIST(4),INDX(1000),BIN(20000) + SAVE /PYBINS/ +C...Local character variables. + CHARACTER TITLE*(*), TITFX*60 + +C...Check that input is sensible. Find initial address in memory. + IF(ID.LE.0.OR.ID.GT.IHIST(1)) CALL PYERRM(28, + &'(PYBOOK:) not allowed histogram number') + IF(NX.LE.0.OR.NX.GT.100) CALL PYERRM(28, + &'(PYBOOK:) not allowed number of bins') + IF(XL.GE.XU) CALL PYERRM(28, + &'(PYBOOK:) x limits in wrong order') + INDX(ID)=IHIST(4) + IHIST(4)=IHIST(4)+28+NX + IF(IHIST(4).GT.IHIST(2)) CALL PYERRM(28, + &'(PYBOOK:) out of histogram space') + IS=INDX(ID) + +C...Store histogram size and reset contents. + BIN(IS+1)=NX + BIN(IS+2)=XL + BIN(IS+3)=XU + BIN(IS+4)=(XU-XL)/NX + CALL PYNULL(ID) + +C...Store title by conversion to integer to double precision. + TITFX=TITLE//' ' + DO 100 IT=1,20 + BIN(IS+8+NX+IT)=256**2*ICHAR(TITFX(3*IT-2:3*IT-2))+ + & 256*ICHAR(TITFX(3*IT-1:3*IT-1))+ICHAR(TITFX(3*IT:3*IT)) + 100 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYFILL +C...Fills entry in histogram. + + SUBROUTINE PYFILL(ID,X,W) + +C...Double precision declaration. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) +C...Commonblock. + COMMON/PYBINS/IHIST(4),INDX(1000),BIN(20000) + SAVE /PYBINS/ + +C...Find initial address in memory. Increase number of entries. + IF(ID.LE.0.OR.ID.GT.IHIST(1)) CALL PYERRM(28, + &'(PYFILL:) not allowed histogram number') + IS=INDX(ID) + IF(IS.EQ.0) CALL PYERRM(28, + &'(PYFILL:) filling unbooked histogram') + BIN(IS+5)=BIN(IS+5)+1D0 + +C...Find bin in x, including under/overflow, and fill. + IF(X.LT.BIN(IS+2)) THEN + BIN(IS+6)=BIN(IS+6)+W + ELSEIF(X.GE.BIN(IS+3)) THEN + BIN(IS+8)=BIN(IS+8)+W + ELSE + BIN(IS+7)=BIN(IS+7)+W + IX=(X-BIN(IS+2))/BIN(IS+4) + IX=MAX(0,MIN(NINT(BIN(IS+1))-1,IX)) + BIN(IS+9+IX)=BIN(IS+9+IX)+W + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYFACT +C...Multiplies histogram contents by factor. + + SUBROUTINE PYFACT(ID,F) + +C...Double precision declaration. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) +C...Commonblock. + COMMON/PYBINS/IHIST(4),INDX(1000),BIN(20000) + SAVE /PYBINS/ + +C...Find initial address in memory. Multiply all contents bins. + IF(ID.LE.0.OR.ID.GT.IHIST(1)) CALL PYERRM(28, + &'(PYFACT:) not allowed histogram number') + IS=INDX(ID) + IF(IS.EQ.0) CALL PYERRM(28, + &'(PYFACT:) scaling unbooked histogram') + DO 100 IX=IS+6,IS+8+NINT(BIN(IS+1)) + BIN(IX)=F*BIN(IX) + 100 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYOPER +C...Performs operations between histograms. + + SUBROUTINE PYOPER(ID1,OPER,ID2,ID3,F1,F2) + +C...Double precision declaration. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) +C...Commonblock. + COMMON/PYBINS/IHIST(4),INDX(1000),BIN(20000) + SAVE /PYBINS/ +C...Character variable. + CHARACTER OPER*(*) + +C...Find initial addresses in memory, and histogram size. + IF(ID1.LE.0.OR.ID1.GT.IHIST(1)) CALL PYERRM(28, + &'(PYFACT:) not allowed histogram number') + IS1=INDX(ID1) + IS2=INDX(MIN(IHIST(1),MAX(1,ID2))) + IS3=INDX(MIN(IHIST(1),MAX(1,ID3))) + NX=NINT(BIN(IS3+1)) + IF(OPER.EQ.'M'.AND.ID3.EQ.0) NX=NINT(BIN(IS2+1)) + +C...Update info on number of histogram entries. + IF(OPER.EQ.'+'.OR.OPER.EQ.'-'.OR.OPER.EQ.'*'.OR.OPER.EQ.'/') THEN + BIN(IS3+5)=BIN(IS1+5)+BIN(IS2+5) + ELSEIF(OPER.EQ.'A'.OR.OPER.EQ.'S'.OR.OPER.EQ.'L') THEN + BIN(IS3+5)=BIN(IS1+5) + ENDIF + +C...Operations on pair of histograms: addition, subtraction, +C...multiplication, division. + IF(OPER.EQ.'+') THEN + DO 100 IX=6,8+NX + BIN(IS3+IX)=F1*BIN(IS1+IX)+F2*BIN(IS2+IX) + 100 CONTINUE + ELSEIF(OPER.EQ.'-') THEN + DO 110 IX=6,8+NX + BIN(IS3+IX)=F1*BIN(IS1+IX)-F2*BIN(IS2+IX) + 110 CONTINUE + ELSEIF(OPER.EQ.'*') THEN + DO 120 IX=6,8+NX + BIN(IS3+IX)=F1*BIN(IS1+IX)*F2*BIN(IS2+IX) + 120 CONTINUE + ELSEIF(OPER.EQ.'/') THEN + DO 130 IX=6,8+NX + FA2=F2*BIN(IS2+IX) + IF(ABS(FA2).LE.1D-20) THEN + BIN(IS3+IX)=0D0 + ELSE + BIN(IS3+IX)=F1*BIN(IS1+IX)/FA2 + ENDIF + 130 CONTINUE + +C...Operations on single histogram: multiplication+addition, +C...square root+addition, logarithm+addition. + ELSEIF(OPER.EQ.'A') THEN + DO 140 IX=6,8+NX + BIN(IS3+IX)=F1*BIN(IS1+IX)+F2 + 140 CONTINUE + ELSEIF(OPER.EQ.'S') THEN + DO 150 IX=6,8+NX + BIN(IS3+IX)=F1*SQRT(MAX(0D0,BIN(IS1+IX)))+F2 + 150 CONTINUE + ELSEIF(OPER.EQ.'L') THEN + ZMIN=1D20 + DO 160 IX=9,8+NX + IF(BIN(IS1+IX).LT.ZMIN.AND.BIN(IS1+IX).GT.1D-20) + & ZMIN=0.8D0*BIN(IS1+IX) + 160 CONTINUE + DO 170 IX=6,8+NX + BIN(IS3+IX)=F1*LOG10(MAX(ZMIN,BIN(IS1+IX)))+F2 + 170 CONTINUE + +C...Operation on two or three histograms: average and +C...standard deviation. + ELSEIF(OPER.EQ.'M') THEN + DO 180 IX=6,8+NX + IF(ABS(BIN(IS1+IX)).LE.1D-20) THEN + BIN(IS2+IX)=0D0 + ELSE + BIN(IS2+IX)=BIN(IS2+IX)/BIN(IS1+IX) + ENDIF + IF(ID3.NE.0) THEN + IF(ABS(BIN(IS1+IX)).LE.1D-20) THEN + BIN(IS3+IX)=0D0 + ELSE + BIN(IS3+IX)=SQRT(MAX(0D0,BIN(IS3+IX)/BIN(IS1+IX)- + & BIN(IS2+IX)**2)) + ENDIF + ENDIF + BIN(IS1+IX)=F1*BIN(IS1+IX) + 180 CONTINUE + ENDIF + + RETURN + END + +C********************************************************************* + +C...PYHIST +C...Prints and resets all histograms. + + SUBROUTINE PYHIST + +C...Double precision declaration. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) +C...Commonblock. + COMMON/PYBINS/IHIST(4),INDX(1000),BIN(20000) + SAVE /PYBINS/ + +C...Loop over histograms, print and reset used ones. + DO 100 ID=1,IHIST(1) + IS=INDX(ID) + IF(IS.NE.0.AND.NINT(BIN(IS+5)).GT.0) THEN + CALL PYPLOT(ID) + CALL PYNULL(ID) + ENDIF + 100 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYPLOT +C...Prints a histogram (but does not reset it). + + SUBROUTINE PYPLOT(ID) + +C...Double precision declaration. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYBINS/IHIST(4),INDX(1000),BIN(20000) + SAVE /PYDAT1/,/PYBINS/ +C...Local arrays and character variables. + DIMENSION IDATI(6), IROW(100), IFRA(100), DYAC(10) + CHARACTER TITLE*60, OUT*100, CHA(0:11)*1 + +C...Steps in histogram scale. Character sequence. + DATA DYAC/.04,.05,.06,.08,.10,.12,.15,.20,.25,.30/ + DATA CHA/'0','1','2','3','4','5','6','7','8','9','X','-'/ + +C...Find initial address in memory; skip if empty histogram. + IF(ID.LE.0.OR.ID.GT.IHIST(1)) RETURN + IS=INDX(ID) + IF(IS.EQ.0) RETURN + IF(NINT(BIN(IS+5)).LE.0) THEN + WRITE(MSTU(11),5000) ID + RETURN + ENDIF + +C...Number of histogram lines and x bins. + LIN=IHIST(3)-18 + NX=NINT(BIN(IS+1)) + +C...Extract title by conversion from double precision via integer. + DO 100 IT=1,20 + IEQ=NINT(BIN(IS+8+NX+IT)) + TITLE(3*IT-2:3*IT)=CHAR(IEQ/256**2)//CHAR(MOD(IEQ,256**2)/256) + & //CHAR(MOD(IEQ,256)) + 100 CONTINUE + +C...Find time; print title. + CALL PYTIME(IDATI) + IF(IDATI(1).GT.0) THEN + WRITE(MSTU(11),5100) ID, TITLE, (IDATI(J),J=1,5) + ELSE + WRITE(MSTU(11),5200) ID, TITLE + ENDIF + +C...Find minimum and maximum bin content. + YMIN=BIN(IS+9) + YMAX=BIN(IS+9) + DO 110 IX=IS+10,IS+8+NX + IF(BIN(IX).LT.YMIN) YMIN=BIN(IX) + IF(BIN(IX).GT.YMAX) YMAX=BIN(IX) + 110 CONTINUE + +C...Determine scale and step size for y axis. + IF(YMAX-YMIN.GT.LIN*DYAC(1)*1D-9) THEN + IF(YMIN.GT.0D0.AND.YMIN.LT.0.1D0*YMAX) YMIN=0D0 + IF(YMAX.LT.0D0.AND.YMAX.GT.0.1D0*YMIN) YMAX=0D0 + IPOT=INT(LOG10(YMAX-YMIN)+10D0)-10 + IF(YMAX-YMIN.LT.LIN*DYAC(1)*10D0**IPOT) IPOT=IPOT-1 + IF(YMAX-YMIN.GT.LIN*DYAC(10)*10D0**IPOT) IPOT=IPOT+1 + DELY=DYAC(1) + DO 120 IDEL=1,9 + IF(YMAX-YMIN.GE.LIN*DYAC(IDEL)*10D0**IPOT) DELY=DYAC(IDEL+1) + 120 CONTINUE + DY=DELY*10D0**IPOT + +C...Convert bin contents to integer form; fractional fill in top row. + DO 130 IX=1,NX + CTA=ABS(BIN(IS+8+IX))/DY + IROW(IX)=SIGN(CTA+0.95D0,BIN(IS+8+IX)) + IFRA(IX)=10D0*(CTA+1.05D0-DBLE(INT(CTA+0.95D0))) + 130 CONTINUE + IRMI=SIGN(ABS(YMIN)/DY+0.95D0,YMIN) + IRMA=SIGN(ABS(YMAX)/DY+0.95D0,YMAX) + +C...Print histogram row by row. + DO 150 IR=IRMA,IRMI,-1 + IF(IR.EQ.0) GOTO 150 + OUT=' ' + DO 140 IX=1,NX + IF(IR.EQ.IROW(IX)) OUT(IX:IX)=CHA(IFRA(IX)) + IF(IR*(IROW(IX)-IR).GT.0) OUT(IX:IX)=CHA(10) + 140 CONTINUE + WRITE(MSTU(11),5300) IR*DELY, IPOT, OUT + 150 CONTINUE + +C...Print sign and value of bin contents. + IPOT=INT(LOG10(MAX(YMAX,-YMIN))+10.0001D0)-10 + OUT=' ' + DO 160 IX=1,NX + IF(BIN(IS+8+IX).LT.-10D0**(IPOT-4)) OUT(IX:IX)=CHA(11) + IROW(IX)=NINT(10D0**(3-IPOT)*ABS(BIN(IS+8+IX))) + 160 CONTINUE + WRITE(MSTU(11),5400) OUT + DO 180 IR=4,1,-1 + DO 170 IX=1,NX + OUT(IX:IX)=CHA(MOD(IROW(IX),10**IR)/10**(IR-1)) + 170 CONTINUE + WRITE(MSTU(11),5500) IPOT+IR-4, OUT + 180 CONTINUE + +C...Print sign and value of lower bin edge. + IPOT=INT(LOG10(MAX(-BIN(IS+2),BIN(IS+3)-BIN(IS+4)))+ + & 10.0001D0)-10 + OUT=' ' + DO 190 IX=1,NX + IF(BIN(IS+2)+(IX-1)*BIN(IS+4).LT.-10D0**(IPOT-3)) + & OUT(IX:IX)=CHA(11) + IROW(IX)=NINT(10D0**(2-IPOT)*ABS(BIN(IS+2)+(IX-1)*BIN(IS+4))) + 190 CONTINUE + WRITE(MSTU(11),5600) OUT + DO 210 IR=3,1,-1 + DO 200 IX=1,NX + OUT(IX:IX)=CHA(MOD(IROW(IX),10**IR)/10**(IR-1)) + 200 CONTINUE + WRITE(MSTU(11),5500) IPOT+IR-3, OUT + 210 CONTINUE + ENDIF + +C...Calculate and print statistics. + CSUM=0D0 + CXSUM=0D0 + CXXSUM=0D0 + DO 220 IX=1,NX + CTA=ABS(BIN(IS+8+IX)) + X=BIN(IS+2)+(IX-0.5D0)*BIN(IS+4) + CSUM=CSUM+CTA + CXSUM=CXSUM+CTA*X + CXXSUM=CXXSUM+CTA*X**2 + 220 CONTINUE + XMEAN=CXSUM/MAX(CSUM,1D-20) + XRMS=SQRT(MAX(0D0,CXXSUM/MAX(CSUM,1D-20)-XMEAN**2)) + WRITE(MSTU(11),5700) NINT(BIN(IS+5)),XMEAN,BIN(IS+6), + &BIN(IS+2),BIN(IS+7),XRMS,BIN(IS+8),BIN(IS+3) + +C...Formats for output. + 5000 FORMAT(/5X,'Histogram no',I5,' : no entries') + 5100 FORMAT('1'/5X,'Histogram no',I5,6X,A60,5X,I4,'-',I2,'-',I2,1X, + &I2,':',I2/) + 5200 FORMAT('1'/5X,'Histogram no',I5,6X,A60/) + 5300 FORMAT(2X,F7.2,'*10**',I2,3X,A100) + 5400 FORMAT(/8X,'Contents',3X,A100) + 5500 FORMAT(9X,'*10**',I2,3X,A100) + 5600 FORMAT(/8X,'Low edge',3X,A100) + 5700 FORMAT(/5X,'Entries =',I12,1P,6X,'Mean =',D12.4,6X,'Underflow =' + &,D12.4,6X,'Low edge =',D12.4/5X,'All chan =',D12.4,6X, + &'Rms =',D12.4,6X,'Overflow =',D12.4,6X,'High edge =',D12.4) + + RETURN + END + +C********************************************************************* + +C...PYNULL +C...Resets bin contents of a histogram. + + SUBROUTINE PYNULL(ID) + +C...Double precision declaration. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) +C...Commonblock. + COMMON/PYBINS/IHIST(4),INDX(1000),BIN(20000) + SAVE /PYBINS/ + + IF(ID.LE.0.OR.ID.GT.IHIST(1)) RETURN + IS=INDX(ID) + IF(IS.EQ.0) RETURN + DO 100 IX=IS+5,IS+8+NINT(BIN(IS+1)) + BIN(IX)=0D0 + 100 CONTINUE + + RETURN + END + +C********************************************************************* + +C...PYDUMP +C...Dumps histogram contents on file for reading by other program. +C...Can also read back own dump. + + SUBROUTINE PYDUMP(MDUMP,LFN,NHI,IHI) + +C...Double precision declaration. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) +C...Commonblock. + COMMON/PYBINS/IHIST(4),INDX(1000),BIN(20000) + SAVE /PYBINS/ +C...Local arrays and character variables. + DIMENSION IHI(*),ISS(100),VAL(5) + CHARACTER TITLE*60,FORMAT*13 + +C...Dump all histograms that have been booked, +C...including titles and ranges, one after the other. + IF(MDUMP.EQ.1) THEN + +C...Loop over histograms and find which are wanted and booked. + IF(NHI.LE.0) THEN + NW=IHIST(1) + ELSE + NW=NHI + ENDIF + DO 130 IW=1,NW + IF(NHI.EQ.0) THEN + ID=IW + ELSE + ID=IHI(IW) + ENDIF + IS=INDX(ID) + IF(IS.NE.0) THEN + +C...Write title, histogram size, filling statistics. + NX=NINT(BIN(IS+1)) + DO 100 IT=1,20 + IEQ=NINT(BIN(IS+8+NX+IT)) + TITLE(3*IT-2:3*IT)=CHAR(IEQ/256**2)// + & CHAR(MOD(IEQ,256**2)/256)//CHAR(MOD(IEQ,256)) + 100 CONTINUE + WRITE(LFN,5100) ID,TITLE + WRITE(LFN,5200) NX,BIN(IS+2),BIN(IS+3) + WRITE(LFN,5300) NINT(BIN(IS+5)),BIN(IS+6),BIN(IS+7), + & BIN(IS+8) + + +C...Write histogram contents, in groups of five. + DO 120 IXG=1,(NX+4)/5 + DO 110 IXV=1,5 + IX=5*IXG+IXV-5 + IF(IX.LE.NX) THEN + VAL(IXV)=BIN(IS+8+IX) + ELSE + VAL(IXV)=0D0 + ENDIF + 110 CONTINUE + WRITE(LFN,5400) (VAL(IXV),IXV=1,5) + 120 CONTINUE + +C...Go to next histogram; finish. + ELSEIF(NHI.GT.0) THEN + CALL PYERRM(8,'(PYDUMP:) unknown histogram number') + ENDIF + 130 CONTINUE + +C...Read back in histograms dumped MDUMP=1. + ELSEIF(MDUMP.EQ.2) THEN + +C...Read histogram number, title and range, and book. + 140 READ(LFN,5100,END=170) ID,TITLE + READ(LFN,5200) NX,XL,XU + CALL PYBOOK(ID,TITLE,NX,XL,XU) + IS=INDX(ID) + +C...Read filling statistics. + READ(LFN,5300) NENTRY,BIN(IS+6),BIN(IS+7),BIN(IS+8) + BIN(IS+5)=DBLE(NENTRY) + +C...Read histogram contents, in groups of five. + DO 160 IXG=1,(NX+4)/5 + READ(LFN,5400) (VAL(IXV),IXV=1,5) + DO 150 IXV=1,5 + IX=5*IXG+IXV-5 + IF(IX.LE.NX) BIN(IS+8+IX)=VAL(IXV) + 150 CONTINUE + 160 CONTINUE + +C...Go to next histogram; finish. + GOTO 140 + 170 CONTINUE + +C...Write histogram contents in column format, +C...convenient e.g. for GNUPLOT input. + ELSEIF(MDUMP.EQ.3) THEN + +C...Find addresses to wanted histograms. + NSS=0 + IF(NHI.LE.0) THEN + NW=IHIST(1) + ELSE + NW=NHI + ENDIF + DO 180 IW=1,NW + IF(NHI.EQ.0) THEN + ID=IW + ELSE + ID=IHI(IW) + ENDIF + IS=INDX(ID) + IF(IS.NE.0.AND.NSS.LT.100) THEN + NSS=NSS+1 + ISS(NSS)=IS + ELSEIF(NSS.GE.100) THEN + CALL PYERRM(8,'(PYDUMP:) too many histograms requested') + ELSEIF(NHI.GT.0) THEN + CALL PYERRM(8,'(PYDUMP:) unknown histogram number') + ENDIF + 180 CONTINUE + +C...Check that they have common number of x bins. Fix format. + NX=NINT(BIN(ISS(1)+1)) + DO 190 IW=2,NSS + IF(NINT(BIN(ISS(IW)+1)).NE.NX) THEN + CALL PYERRM(8,'(PYDUMP:) different number of bins') + RETURN + ENDIF + 190 CONTINUE + FORMAT='(1P,000E12.4)' + WRITE(FORMAT(5:7),'(I3)') NSS+1 + +C...Write histogram contents; first column x values. + DO 200 IX=1,NX + X=BIN(ISS(1)+2)+(IX-0.5D0)*BIN(ISS(1)+4) + WRITE(LFN,FORMAT) X, (BIN(ISS(IW)+8+IX),IW=1,NSS) + 200 CONTINUE + + ENDIF + +C...Formats for output. + 5100 FORMAT(I5,5X,A60) + 5200 FORMAT(I5,1P,2D12.4) + 5300 FORMAT(I12,1P,3D12.4) + 5400 FORMAT(1P,5D12.4) + + RETURN + END + +C********************************************************************* + +C...PYKCUT +C...Dummy routine, which the user can replace in order to make cuts on +C...the kinematics on the parton level before the matrix elements are +C...evaluated and the event is generated. The cross-section estimates +C...will automatically take these cuts into account, so the given +C...values are for the allowed phase space region only. MCUT=0 means +C...that the event has passed the cuts, MCUT=1 that it has failed. + + SUBROUTINE PYKCUT(MCUT) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + SAVE /PYDAT1/,/PYINT1/,/PYINT2/ + +C...Set default value (accepting event) for MCUT. + MCUT=0 + +C...Read out subprocess number. + ISUB=MINT(1) + ISTSB=ISET(ISUB) + +C...Read out tau, y*, cos(theta), tau' (where defined, else =0). + TAU=VINT(21) + YST=VINT(22) + CTH=0D0 + IF(ISTSB.EQ.2.OR.ISTSB.EQ.4) CTH=VINT(23) + TAUP=0D0 + IF(ISTSB.GE.3.AND.ISTSB.LE.5) TAUP=VINT(26) + +C...Calculate x_1, x_2, x_F. + IF(ISTSB.LE.2.OR.ISTSB.GE.5) THEN + X1=SQRT(TAU)*EXP(YST) + X2=SQRT(TAU)*EXP(-YST) + ELSE + X1=SQRT(TAUP)*EXP(YST) + X2=SQRT(TAUP)*EXP(-YST) + ENDIF + XF=X1-X2 + +C...Calculate shat, that, uhat, p_T^2. + SHAT=TAU*VINT(2) + SQM3=VINT(63) + SQM4=VINT(64) + RM3=SQM3/SHAT + RM4=SQM4/SHAT + BE34=SQRT(MAX(0D0,(1D0-RM3-RM4)**2-4D0*RM3*RM4)) + RPTS=4D0*VINT(71)**2/SHAT + BE34L=SQRT(MAX(0D0,(1D0-RM3-RM4)**2-4D0*RM3*RM4-RPTS)) + RM34=2D0*RM3*RM4 + RSQM=1D0+RM34 + RTHM=(4D0*RM3*RM4+RPTS)/(1D0-RM3-RM4+BE34L) + THAT=-0.5D0*SHAT*MAX(RTHM,1D0-RM3-RM4-BE34*CTH) + UHAT=-0.5D0*SHAT*MAX(RTHM,1D0-RM3-RM4+BE34*CTH) + PT2=MAX(VINT(71)**2,0.25D0*SHAT*BE34**2*(1D0-CTH**2)) + +C...Decisions by user to be put here. + +C...Stop program if this routine is ever called. +C...You should not copy these lines to your own routine. + WRITE(MSTU(11),5000) + IF(PYR(0).LT.10D0) STOP + +C...Format for error printout. + 5000 FORMAT(1X,'Error: you did not link your PYKCUT routine ', + &'correctly.'/1X,'Dummy routine in PYTHIA file called instead.'/ + &1X,'Execution stopped!') + + RETURN + END + +C********************************************************************* + +C...PYEVWT +C...Dummy routine, which the user can replace in order to multiply the +C...standard PYTHIA differential cross-section by a process- and +C...kinematics-dependent factor WTXS. For MSTP(142)=1 this corresponds +C...to generation of weighted events, with weight 1/WTXS, while for +C...MSTP(142)=2 it corresponds to a modification of the underlying +C...physics. + + SUBROUTINE PYEVWT(WTXS) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYINT1/MINT(400),VINT(400) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + SAVE /PYDAT1/,/PYINT1/,/PYINT2/ + +C...Set default weight for WTXS. + WTXS=1D0 + +C...Read out subprocess number. + ISUB=MINT(1) + ISTSB=ISET(ISUB) + +C...Read out tau, y*, cos(theta), tau' (where defined, else =0). + TAU=VINT(21) + YST=VINT(22) + CTH=0D0 + IF(ISTSB.EQ.2.OR.ISTSB.EQ.4) CTH=VINT(23) + TAUP=0D0 + IF(ISTSB.GE.3.AND.ISTSB.LE.5) TAUP=VINT(26) + +C...Read out x_1, x_2, x_F, shat, that, uhat, p_T^2. + X1=VINT(41) + X2=VINT(42) + XF=X1-X2 + SHAT=VINT(44) + THAT=VINT(45) + UHAT=VINT(46) + PT2=VINT(48) + +C...Modifications by user to be put here. + +C...Stop program if this routine is ever called. +C...You should not copy these lines to your own routine. + WRITE(MSTU(11),5000) + IF(PYR(0).LT.10D0) STOP + +C...Format for error printout. + 5000 FORMAT(1X,'Error: you did not link your PYEVWT routine ', + &'correctly.'/1X,'Dummy routine in PYTHIA file called instead.'/ + &1X,'Execution stopped!') + + RETURN + END + +C********************************************************************* + +C...PYUPIN +C...Dummy copy of routine to be called by user to set up a user-defined +C...process. + + SUBROUTINE PYUPIN(ISUB,TITLE,SIGMAX) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2) + COMMON/PYINT6/PROC(0:500) + CHARACTER PROC*28 + SAVE /PYDAT1/,/PYINT2/,/PYINT6/ +C...Local character variable. + CHARACTER*(*) TITLE + +C...Check that subprocess number free. + IF(ISUB.LT.1.OR.ISUB.GT.500.OR.ISET(ISUB).GE.0) THEN + WRITE(MSTU(11),5000) ISUB + STOP + ENDIF + +C...Fill information on new process. + ISET(ISUB)=11 + COEF(ISUB,1)=SIGMAX + PROC(ISUB)=TITLE//' ' + +C...Format for error output. + 5000 FORMAT(1X,'Error: user-defined subprocess code ',I4, + &' not allowed.'//1X,'Execution stopped!') + + RETURN + END + +C********************************************************************* + +C...PYUPEV +C...Dummy routine, to be replaced by user. When called from PYTHIA +C...the subprocess number ISUB will be given, and PYUPEV is supposed +C...to generate an event of this type, to be stored in the PYUPPR +C...commonblock. SIGEV gives the differential cross-section associated +C...with the event, i.e. the acceptance probability of the event is +C...taken to be SIGEV/SIGMAX, where SIGMAX was given in the PYUPIN +C...call. + + SUBROUTINE PYUPEV(ISUB,SIGEV) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + COMMON/PYUPPR/NUP,KUP(20,7),NFUP,IFUP(10,2),PUP(20,5),Q2UP(0:10) + SAVE /PYDAT1/,/PYUPPR/ + +C...Stop program if this routine is ever called. +C...You should not copy these lines to your own routine. + WRITE(MSTU(11),5000) + IF(PYR(0).LT.10D0) STOP + SIGEV=ISUB + +C...Format for error printout. + 5000 FORMAT(1X,'Error: you did not link your PYUPEV routine ', + &'correctly.'/1X,'Dummy routine in PYTHIA file called instead.'/ + &1X,'Execution stopped!') + + RETURN + END + +C********************************************************************* +C...PYTAUD +C...Dummy routine, to be replaced by user, to handle the decay of a +C...polarized tau lepton. +C...Input: +C...ITAU is the position where the decaying tau is stored in /PYJETS/. +C...IORIG is the position where the mother of the tau is stored; +C... is 0 when the mother is not stored. +C...KFORIG is the flavour of the mother of the tau; +C... is 0 when the mother is not known. +C...Note that IORIG=0 does not necessarily imply KFORIG=0; +C... e.g. in B hadron semileptonic decays the W propagator +C... is not explicitly stored but the W code is still unambiguous. +C...Output: +C...NDECAY is the number of decay products in the current tau decay. +C...These decay products should be added to the /PYJETS/ common block, +C...in positions N+1 through N+NDECAY. For each product I you must +C...give the flavour codes K(I,2) and the five-momenta P(I,1), P(I,2), +C...P(I,3), P(I,4) and P(I,5). The rest will be stored automatically. + + SUBROUTINE PYTAUD(ITAU,IORIG,KFORIG,NDECAY) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP +C...Commonblocks. + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) + SAVE /PYJETS/,/PYDAT1/ + +C...Stop program if this routine is ever called. +C...You should not copy these lines to your own routine. + NDECAY=ITAU+IORIG+KFORIG + WRITE(MSTU(11),5000) + IF(PYR(0).LT.10D0) STOP + +C...Format for error printout. + 5000 FORMAT(1X,'Error: you did not link your PYTAUD routine ', + &'correctly.'/1X,'Dummy routine in PYTHIA file called instead.'/ + &1X,'Execution stopped!') + + RETURN + END + +C********************************************************************* + +C...PYTIME +C...Finds current date and time. +C...Since this task is not standardized in Fortran 77, the routine +C...is dummy, to be replaced by the user. Examples are given for +C...the Fortran 90 routine and DEC Fortran 77, and what to do if +C...you do not have access to suitable routines. + + SUBROUTINE PYTIME(IDATI) + +C...Double precision and integer declarations. + IMPLICIT DOUBLE PRECISION(A-H, O-Z) + IMPLICIT INTEGER(I-N) + INTEGER PYK,PYCHGE,PYCOMP + CHARACTER*8 ATIME +C...Local array. + INTEGER IDATI(6),IDTEMP(3) + +C...Example 0: if you do not have suitable routines. + DO 100 J=1,6 + IDATI(J)=0 + 100 CONTINUE + +C...Example 1: Fortran 90 routine. +C INTEGER IVAL(8) +C CALL DATE_AND_TIME(VALUES=IVAL) +C IDATI(1)=IVAL(1) +C IDATI(2)=IVAL(2) +C IDATI(3)=IVAL(3) +C IDATI(4)=IVAL(5) +C IDATI(5)=IVAL(6) +C IDATI(6)=IVAL(7) + +C...Example 2: DEC Fortran 77. AIX. +C CALL IDATE(IMON,IDAY,IYEAR) +C IF(IYEAR.LT.70) THEN +C IDATI(1)=2000+IYEAR +C ELSEIF(IYEAR.LT.100) THEN +C IDATI(1)=1900+IYEAR +C ELSE +C IDATI(1)=IYEAR +C ENDIF +C IDATI(2)=IMON +C IDATI(3)=IDAY +C CALL ITIME(IHOUR,IMIN,ISEC) +C IDATI(4)=IHOUR +C IDATI(5)=IMIN +C IDATI(6)=ISEC + +C...Example 3: DEC Fortran, IRIX, IRIX64. +C CALL IDATE(IMON,IDAY,IYEAR) +C IF(IYEAR.LT.70) THEN +C IDATI(1)=2000+IYEAR +C ELSEIF(IYEAR.LT.100) THEN +C IDATI(1)=1900+IYEAR +C ELSE +C IDATI(1)=IYEAR +C ENDIF +C IDATI(2)=IMON +C IDATI(3)=IDAY +C CALL TIME(ATIME) +C IHOUR=0 +C IMIN=0 +C ISEC=0 +C READ(ATIME(1:2),'(I2)') IHOUR +C READ(ATIME(4:5),'(I2)') IMIN +C READ(ATIME(7:8),'(I2)') ISEC +C IDATI(4)=IHOUR +C IDATI(5)=IMIN +C IDATI(6)=ISEC + +C...Example 4: GNU LINUX libU77, SunOS. +C CALL IDATE(IDTEMP) +C IDATI(1)=IDTEMP(3) +C IDATI(2)=IDTEMP(2) +C IDATI(3)=IDTEMP(1) +C CALL ITIME(IDTEMP) +C IDATI(4)=IDTEMP(1) +C IDATI(5)=IDTEMP(2) +C IDATI(6)=IDTEMP(3) + + RETURN + END diff --git a/PYTHIA6/pythia6_address.c b/PYTHIA6/pythia6_address.c new file mode 100644 index 00000000000..e19af5a7145 --- /dev/null +++ b/PYTHIA6/pythia6_address.c @@ -0,0 +1,30 @@ +#if defined(CERNLIB_WINNT) + #define pythia6_addressc PYTHIA^_ADDRESSC + #define pythia6_addressf PYTHIA^_ADDRESSF + #define pythia6_addressi PYTHIA^_ADDRESSI + #define pythia6_addressd PYTHIA^_ADDRESSD + #define type_of_call _stdcall +#else + #define pythia6_addressc pythia6_addressc_ + #define pythia6_addressf pythia6_addressf_ + #define pythia6_addressi pythia6_addressi_ + #define pythia6_addressd pythia6_addressd_ + #define type_of_call +#endif + +char* type_of_call pythia6_addressc(char *arg) +{ + return arg; +} +int* type_of_call pythia6_addressi(int *arg) +{ + return arg; +} +float* type_of_call pythia6_addressf(float *arg) +{ + return arg; +} +double* type_of_call pythia6_addressd(double *arg) +{ + return arg; +} diff --git a/PYTHIA6/pythia6_common_block_address.F b/PYTHIA6/pythia6_common_block_address.F new file mode 100644 index 00000000000..d74b5594d24 --- /dev/null +++ b/PYTHIA6/pythia6_common_block_address.F @@ -0,0 +1,72 @@ + integer function pythia6_common_block_address(common_block_name) +c----------------------------------------------------------------------- +c revision history: +c ----------------- +c *0001 Jun 29 1998 P.Murat: created +c *0002 Apr 30 1999 P.Murat: force loading in the BLOCK DATA +c----------------------------------------------------------------------- +#include "pythia6.inc" +c#include "stdhep.inc" +c + character*(*) common_block_name + external pydata +c +c----------------------------------------------------------------------- + integer adrressc, pythia6_addressi, pythia6_addressf + integer pythia6_addressd + integer common_block_address +c----------------------------------------------------------------------- + common_block_address = 0 +c----------------------------------------------------------------------- +c GEANT common-blocks +c----------------------------------------------------------------------- + if (common_block_name.eq."HEPEVT") then + common_block_address = pythia6_addressi(NEVHEP) + elseif (common_block_name.eq."PYJETS") then + common_block_address = pythia6_addressi(N) + elseif (common_block_name.eq."PYDAT1") then + common_block_address = pythia6_addressi(MSTU) + elseif (common_block_name.eq."PYDAT2") then + common_block_address = pythia6_addressi(KCHG) + elseif (common_block_name.eq."PYDAT3") then + common_block_address = pythia6_addressi(MDCY) + elseif (common_block_name.eq."PYDAT4") then + common_block_address = pythia6_addressc(CHAF) + elseif (common_block_name.eq."PYDATR") then + common_block_address = pythia6_addressi(MRPY) + elseif (common_block_name.eq."PYSUBS") then + common_block_address = pythia6_addressi(MSEL) + elseif (common_block_name.eq."PYPARS") then + common_block_address = pythia6_addressi(MSTP) + elseif (common_block_name.eq."PYINT1") then + common_block_address = pythia6_addressi(MINT) + elseif (common_block_name.eq."PYINT2") then + common_block_address = pythia6_addressi(ISET) + elseif (common_block_name.eq."PYINT3") then + common_block_address = pythia6_addressd(XSFX) + elseif (common_block_name.eq."PYINT4") then + common_block_address = pythia6_addressi(MWID) + elseif (common_block_name.eq."PYINT5" ) then + common_block_address = pythia6_addressi(NGENPD) + elseif (common_block_name.eq."PYINT6" ) then + common_block_address = pythia6_addressc(PROC) + elseif (common_block_name.eq."PYINT7") then + common_block_address = pythia6_addressd(SIGT) + elseif (common_block_name.eq."PYINT8") then + common_block_address = pythia6_addressd(XPVMD) + elseif (common_block_name.eq."PYINT9") then + common_block_address = pythia6_addressd(VXPVMD) + elseif (common_block_name.eq."PYUPPR") then + common_block_address = pythia6_addressi(NUP) + elseif (common_block_name.eq."PYMSSM") then + common_block_address = pythia6_addressi(IMSS) + elseif (common_block_name.eq."PYSSMT") then + common_block_address = pythia6_addressd(ZMIX) + elseif (common_block_name.eq."PYINTS") then + common_block_address = pythia6_addressd(XXM(1)) + elseif (common_block_name.eq."PYBINS") then + common_block_address = pythia6_addressi(IHIST(1)) + endif +c + pythia6_common_block_address = common_block_address + end diff --git a/PYTHIA6/pythia_doc.ps b/PYTHIA6/pythia_doc.ps new file mode 100644 index 00000000000..32cb1191f5a --- /dev/null +++ b/PYTHIA6/pythia_doc.ps @@ -0,0 +1,48863 @@ +%!PS-Adobe-2.0 +%%Creator: dvipsk 5.58f Copyright 1986, 1994 Radical Eye Software +%%Title: pythia57_98dec.dvi +%%Pages: 330 +%%PageOrder: Ascend +%%BoundingBox: 0 0 596 842 +%%DocumentPaperSizes: A4 +%%EndComments +%DVIPSCommandLine: /usr/local/bin/dvips pythia57_98dec +%DVIPSParameters: dpi=600, comments removed +%DVIPSSource: TeX output 1998.12.29:1152 +%%BeginProcSet: tex.pro +/TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N +/X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72 +mul N /landplus90{false}def /@rigin{isls{[0 landplus90{1 -1}{-1 1} +ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale +isls{landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div +hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul +TR[matrix currentmatrix{dup dup round sub abs 0.00001 lt{round}if} +forall round exch round exch]setmatrix}N /@landscape{/isls true N}B +/@manualfeed{statusdict /manualfeed true put}B /@copies{/#copies X}B +/FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0]N /nn 0 N /IE 0 N /ctr 0 N /df-tail{ +/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N /FontBBox FBB N +string /base X array /BitMaps X /BuildChar{CharBuilder}N /Encoding IE N +end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[}B /df{ +/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0] +N df-tail}B /E{pop nn dup definefont setfont}B /ch-width{ch-data dup +length 5 sub get}B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{ +128 ch-data dup length 3 sub get sub}B /ch-yoff{ch-data dup length 2 sub +get 127 sub}B /ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data +dup type /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N +/rc 0 N /gp 0 N /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup +/base get 2 index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx +0 ch-xoff ch-yoff ch-height sub ch-xoff ch-width add ch-yoff +setcachedevice ch-width ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-yoff +.1 sub]{ch-image}imagemask restore}B /D{/cc X dup type /stringtype ne{]} +if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{dup dup +length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I{ +cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin +0 0 moveto /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul +add .99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore userdict +/eop-hook known{eop-hook}if showpage}N /@start{userdict /start-hook +known{start-hook}if pop /VResolution X /Resolution X 1000 div /DVImag X +/IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put cvn put}for +65781.76 div /vsize X 65781.76 div /hsize X}N /p{show}N /RMat[1 0 0 -1 0 +0]N /BDot 260 string N /rulex 0 N /ruley 0 N /v{/ruley X /rulex X V}B /V +{}B /RV statusdict begin /product where{pop product dup length 7 ge{0 7 +getinterval dup(Display)eq exch 0 4 getinterval(NeXT)eq or}{pop false} +ifelse}{false}ifelse end{{gsave TR -.1 .1 TR 1 1 scale rulex ruley false +RMat{BDot}imagemask grestore}}{{gsave TR -.1 .1 TR rulex ruley scale 1 1 +false RMat{BDot}imagemask grestore}}ifelse B /QV{gsave newpath transform +round exch round exch itransform moveto rulex 0 rlineto 0 ruley neg +rlineto rulex neg 0 rlineto fill grestore}B /a{moveto}B /delta 0 N /tail +{dup /delta X 0 rmoveto}B /M{S p delta add tail}B /b{S p tail}B /c{-4 M} +B /d{-3 M}B /e{-2 M}B /f{-1 M}B /g{0 M}B /h{1 M}B /i{2 M}B /j{3 M}B /k{ +4 M}B /w{0 rmoveto}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B /o{p -1 w}B /q{ +p 1 w}B /r{p 2 w}B /s{p 3 w}B /t{p 4 w}B /x{0 S rmoveto}B /y{3 2 roll p +a}B /bos{/SS save N}B /eos{SS restore}B end +%%EndProcSet +TeXDict begin 39158280 55380996 1000 600 600 (pythia57_98dec.dvi) +@start /Fa 2 119 df<07E01FF000FFE07FFC00FFE1FFFF00FFE7E0FF80FFEF807F800F +FE007FC00FFC003FC00FFC003FC00FF8003FC00FF8003FC00FF0003FC00FF0003FC00FF0 +003FC00FF0003FC00FF0003FC00FF0003FC00FF0003FC00FF0003FC00FF0003FC00FF000 +3FC00FF0003FC00FF0003FC00FF0003FC00FF0003FC00FF0003FC00FF0003FC0FFFF03FF +FCFFFF03FFFCFFFF03FFFCFFFF03FFFC261E7C9D2D>110 D118 D E /Fb 2 28 df<00000000003FF0000000000003FFFE00000000001FFFFF8000 +0000007FFFFFC000000001FFE07FE000000003FE001FF00000000FF8000FF80000001FE0 +000FF80000003F80000FFC0000007F00000FFC000000FC00000FFC000001F800000FFE00 +0003F000000FFE000007E000000FFE00000FC000000FFE00000F8000001FFE00001F8000 +001FFC00003F0000001FFC00003E0000001FFC00007E0000003FFC00007C0000003FF800 +00FC0000003FF80000F80000003FF80000F80000007FF00001F80000007FF00001F00000 +00FFE00001F0007FFEFFC00003F001FFFFFF800003E003FFFFFF000003E007FFFFFE0000 +03E007E00FFF000007E007C03FFF800007C007FFFFFFC00007C007FFFFFFC00007C003FF +FFFFE0000FC000FFF07FF0000F800000007FF0000F800000007FF0000F800000007FF800 +1F800000007FF8001F000000007FF8001F000000007FF8001F000000007FF8003F000000 +00FFF8003E00000000FFF8003E00000000FFF8003E00000000FFF8007E00000001FFF800 +7C00000001FFF0007C00000001FFF0007C00000001FFF000FC00000003FFF000FC000000 +03FFE000FC00000003FFE000FC00000003FFC001FC00000007FFC001FC00000007FF8001 +FC0000000FFF8001FE0000000FFF0003FE0000001FFE0003FF0000001FFE0003FF000000 +3FFC0003FF8000007FF80007EFC00000FFF00007C7F00001FFE00007C3FC0007FF800007 +C1FF001FFF00000FC0FFFFFFFC00000F803FFFFFF000000F800FFFFFC000000F8003FFFE +0000001F800006000000001F000000000000001F000000000000001F000000000000003F +000000000000003E000000000000003E000000000000003E000000000000007E00000000 +0000007C000000000000007C000000000000007C00000000000000FC00000000000000F8 +00000000000000F800000000000000F800000000000000F800000000000000F000000000 +0000003F597EC542>12 D<000000FFFFFFFFF800000FFFFFFFFFFC00007FFFFFFFFFFC00 +00FFFFFFFFFFFE0003FFFFFFFFFFFE0007FFFFFFFFFFFC001FFFFFFFFFFFFC003FFFFFFF +FFFFF8007FFFFFFFFFFFF000FFFFFFFFFFFFE001FFFE00FFFC000001FFF0003FFC000003 +FFC0001FFE000007FF80000FFE000007FF00000FFE00000FFE00000FFE00000FFE00000F +FE00001FFC00000FFE00001FFC00000FFE00003FF800000FFE00003FF800000FFE00003F +F800001FFE00007FF800001FFC00007FF000001FFC00007FF000001FFC00007FF000003F +FC0000FFF000003FF80000FFE000003FF80000FFE000003FF80000FFE000007FF00000FF +E000007FF00000FFE00000FFE000007FE00000FFC000007FE00001FFC000007FE00001FF +8000007FE00003FF0000003FE00007FE0000003FF0000FFC0000001FF0001FF80000000F +FC007FF000000007FF03FFE000000003FFFFFF8000000000FFFFFE00000000003FFFF000 +0000000007FF80000000003F2D7CAB44>27 D E /Fc 1 34 df<0000000000000000001E +000000000000000000000000001F000000000000000000000000001F0000000000000000 +00000000001F000000000000000000000000001F000000000000000000000000001F8000 +00000000000000000000000F800000000000000000000000000F80000000000000000000 +0000000FC000000000000000000000000007C000000000000000000000000007C0000000 +00000000000000000007E000000000000000000000000003E00000000000000000000000 +0003F000000000000000000000000001F800000000000000000000000001F80000000000 +0000000000000000FC000000000000000000000000007E00000000000000000000000000 +7E000000000000000000000000003F000000000000000000000000001F80000000000000 +0000000000000FC000000000000000000000000007E000000000000000000000000007F0 +00000000000000000000000003FC00000000000000000000000001FE0000000000000000 +00000000007F800000000000000000000000003FC00000000000000000000000001FF000 +7FFFFFFFFFFFFFFFFFFFFFFFFE00FFFFFFFFFFFFFFFFFFFFFFFFFF80FFFFFFFFFFFFFFFF +FFFFFFFFFF80FFFFFFFFFFFFFFFFFFFFFFFFFF807FFFFFFFFFFFFFFFFFFFFFFFFE000000 +0000000000000000001FF00000000000000000000000003FC00000000000000000000000 +007F80000000000000000000000001FE00000000000000000000000003FC000000000000 +00000000000007F000000000000000000000000007E00000000000000000000000000FC0 +0000000000000000000000001F800000000000000000000000003F000000000000000000 +000000007E000000000000000000000000007E00000000000000000000000000FC000000 +00000000000000000001F800000000000000000000000001F80000000000000000000000 +0003F000000000000000000000000003E000000000000000000000000007E00000000000 +0000000000000007C000000000000000000000000007C00000000000000000000000000F +C00000000000000000000000000F800000000000000000000000000F8000000000000000 +00000000001F800000000000000000000000001F000000000000000000000000001F0000 +00000000000000000000001F000000000000000000000000001F00000000000000000000 +0000001E00000000693F79BC78>33 D E /Fd 3 64 df0 D<01E003F003F003F003F007E007E007C00FC00FC00F800F801F00 +1F001E001E003E003C003C007800780078007000F000E00060000C1A7E9B12>48 +D<0000180000000038000000003800000000380000000038000000003800000000380000 +000038000000003800000000380000000038000000003800000000380000000038000000 +003800000000380000000038000000003800000000380000000038000000003800000000 +380000000038000000003800000000380000000038000000003800000000380000000038 +00000000380000000038000000003800007FFFFFFFFEFFFFFFFFFE7FFFFFFFFE27237CA2 +31>63 D E /Fe 7 107 df<000FC000007FF00001F07C0003C01E0307801E060F000F06 +1E000F063E000F8C3E00078C7C0007987C0007987C0007B0F80007E0F80007E0F80007C0 +F80007807800078078000FC078001FC23C0073C31E03E1C60FFF81FC01FC007820177E95 +28>11 D<00000FC000007FE00000F0700001803800070038000E003C000C003C0018003C +0030003C0070003C0060007800C0007800C0007000C000F0018000E00181FFC00183FF80 +0183FFC00301F9E0030000F0030000F0030000F0060000F8060000F8060000F8060000F8 +0C0001F00C0001F00C0001F00C0003E01C0003C01E0007C01E0007801B000F0031C03E00 +30FFF800307FE0003000000060000000600000006000000060000000C0000000C0000000 +C0000000C00000001E2E7EA323>I<03FFFFE00FFFFFE01FFFFFE03FFFFFC0780C0000E0 +0C0000C01C0000001C000000180000003800000038000000380000003800000078000000 +7000000070000000F0000000F0000000F0000001E0000001E0000000C000001B167D941D +>28 D<00001FF0000000FFFE000007F01F80000F8007C0003E0003E0007C0001F000F800 +00F803F00000F803E00000FC07C000007C0F8000007C1F8000007E1F0000007E3F000000 +7E3E0000007E7E0000007E7E0000007EFC000000FCFC000000FCFC000000FCFC000000F8 +FC000001F8F8000001F8F8000003F0F8000003E0FC000007E0FC000007C07C01E00F807C +07F01F003E0E183E003F18087C001F180DF0000FD80FE00003F81F800001FFFE0040003F +EE004000000E00C000000F018000000F878000000FFF0000000FFF00000007FE00000007 +FC00000003F800000001E000272D7CA230>81 D<0000E00001F0000318000718000E1800 +0C18001C30003C3000383000783000786000706000F0C000F0C000E18001E18001E30001 +E60003C60003CC0003D80003F00003E00007E00007C0000780000780000F80001F800037 +8000678000C380100380300380E00181C001FF0000FE0015257FA31A>96 +D<0038007C007C00780070000000000000000000000000000007801FC038E030E060F0C1 +E0C1E0C1E003C003C003C0078007800F000F040F061E0C1E0C1E181C181E700FE007800F +237DA116>105 D<00001800003C00007C00007C00003800000000000000000000000000 +0000000000000000000780001FE00038E00060F000C0F000C0F00180F00180F00001E000 +01E00001E00001E00003C00003C00003C00003C0000780000780000780000780000F0000 +0F00000F00000F00001E00001E00381E00783C00F83800F8780070F0007FC0001F000016 +2D81A119>I E /Ff 10 121 df<00003800000000380000000038000000003800000000 +380000000038000000003800000000380000000038000000003800000000380000000038 +0000000038000000003800000000380000000038000000003800000000380000FFFFFFFF +FEFFFFFFFFFEFFFFFFFFFE00003800000000380000000038000000003800000000380000 +000038000000003800000000380000000038000000003800000000380000000038000000 +003800000000380000000038000000003800000000380000000038000027277C9F2F>43 +D<00FF0003FFC00781E00F00F01E00783C003C3C003C78001E78001E78001E78001EF800 +1FF8001FF8001FF8001FF8001FF8001FF8001FF8001FF8001FF8001FF8001FF8001FF800 +1F78001E78001E7C003E3C003C3C003C1E00780F00F00781E003FFC000FF0018227DA01E +>48 D<00E00001E00007E000FFE000F9E00001E00001E00001E00001E00001E00001E000 +01E00001E00001E00001E00001E00001E00001E00001E00001E00001E00001E00001E000 +01E00001E00001E00001E00001E00001E00001E00003F000FFFFC0FFFFC012217AA01E> +I<01FC0007FF801C0FC03003E06001F06000F8F800F8FC00FCFC00FCFC007C78007C3000 +FC0000FC0000F80000F80001F00003E00003C0000780000F00001E0000380000700000E0 +0001C00C03800C0600180C00181800183FFFF87FFFF8FFFFF0FFFFF016217CA01E>I<00 +00E00001E00001E00003E00007E00007E0000DE0001DE00039E00031E00061E000E1E000 +C1E00181E00381E00701E00601E00C01E01C01E01801E03001E07001E0E001E0FFFFFFFF +FFFF0001E00001E00001E00001E00001E00001E00003F0003FFF003FFF18227DA11E>52 +D<01FC00000FFF00001E0780003C03C0003E01E0003E00E0003E00F0001C00F0000000F0 +000001F00000FFF00007FFF0001FC0F0003F00F0007C00F0007C00F000F800F0C0F800F0 +C0F800F0C0F801F0C07C0370C03E0E79801FFC3F0007F01E001A187D961E>97 +D<0C003F003F003F003F000C0000000000000000000000000000000F00FF00FF001F000F +000F000F000F000F000F000F000F000F000F000F000F000F000F000F000F00FFE0FFE00B +237DA212>105 D<0F07F007F000FF1FFC1FFC00FF703E703E001FC01EC01E000F800F80 +0F000F800F800F000F000F000F000F000F000F000F000F000F000F000F000F000F000F00 +0F000F000F000F000F000F000F000F000F000F000F000F000F000F000F000F000F000F00 +0F000F000F000F000F000F000F000F000F000F00FFF0FFF0FFF0FFF0FFF0FFF02C167D95 +32>109 D<0F07F000FF1FFC00FF703E001FC01E000F800F000F800F000F000F000F000F +000F000F000F000F000F000F000F000F000F000F000F000F000F000F000F000F000F000F +000F000F000F000F000F000F00FFF0FFF0FFF0FFF01C167D9522>I<7FE07FE07FE07FE0 +0FC03F0007C03C0003E0380001F0700000F8E000007DC000003F8000001F0000000F0000 +001F8000003BC0000071E00000E0F00001C0780003807C0007803E001F803F00FFC07FF0 +FFC07FF01C157E9420>120 D E /Fg 40 119 df12 D<0000001E0000003E0000007C000000F8000001F0000003E000 +0007E000000FC000001F8000001F0000003F0000007E000000FC000000FC000001F80000 +03F0000003F0000007E0000007E000000FC000000FC000001F8000001F8000003F000000 +3F0000007E0000007E000000FE000000FC000001FC000001F8000001F8000003F8000003 +F0000003F0000007F0000007F0000007E000000FE000000FE000000FE000000FC000001F +C000001FC000001FC000001FC000001F8000003F8000003F8000003F8000003F8000003F +8000007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F +000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE +000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE +000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE0000007F +0000007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F0000003F +8000003F8000003F8000003F8000003F8000001F8000001FC000001FC000001FC000001F +C000000FC000000FE000000FE000000FE0000007E0000007F0000007F0000003F0000003 +F0000003F8000001F8000001F8000001FC000000FC000000FE0000007E0000007E000000 +3F0000003F0000001F8000001F8000000FC000000FC0000007E0000007E0000003F00000 +03F0000001F8000000FC000000FC0000007E0000003F0000001F0000001F8000000FC000 +0007E0000003E0000001F0000000F80000007C0000003E0000001E1F94718232>16 +DI<000000000F000000001F0000 +00003E000000007C00000000F800000001F000000003E000000007C00000000FC0000000 +1F800000001F000000003E000000007E00000000FC00000001F800000001F000000003F0 +00000007E000000007C00000000FC00000001F800000001F800000003F000000003E0000 +00007E00000000FC00000000FC00000001F800000001F800000003F000000003F0000000 +07E000000007E00000000FE00000000FC00000000FC00000001F800000001F800000003F +800000003F000000003F000000007F000000007E00000000FE00000000FE00000000FC00 +000001FC00000001FC00000001F800000003F800000003F800000003F800000003F00000 +0007F000000007F000000007F000000007E00000000FE00000000FE00000000FE0000000 +0FC00000000FC00000001FC00000001FC00000001FC00000001FC00000001F800000003F +800000003F800000003F800000003F800000003F800000003F800000003F000000007F00 +0000007F000000007F000000007F000000007F000000007F000000007F000000007F0000 +00007F000000007F00000000FE00000000FE00000000FE00000000FE00000000FE000000 +00FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000 +FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE +00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00 +000000FE00000000FE00000000FE000000007F000000007F000000007F000000007F0000 +00007F000000007F000000007F000000007F000000007F000000007F000000003F000000 +003F800000003F800000003F800000003F800000003F800000003F800000001F80000000 +1FC00000001FC00000001FC00000001FC00000000FC00000000FC00000000FE00000000F +E00000000FE000000007E000000007F000000007F000000007F000000003F000000003F8 +00000003F800000003F800000001F800000001FC00000001FC00000000FC00000000FE00 +000000FE000000007E000000007F000000003F000000003F000000003F800000001F8000 +00001F800000000FC00000000FC00000000FE000000007E000000007E000000003F00000 +0003F000000001F800000001F800000000FC00000000FC000000007E000000003E000000 +003F000000001F800000001F800000000FC000000007C000000007E000000003F0000000 +01F000000001F800000000FC000000007E000000003E000000001F000000001F80000000 +0FC000000007C000000003E000000001F000000000F8000000007C000000003E00000000 +1F000000000F28C66E823D>II<000000001E000000007E00000001FE00000007FE0000000FF80000003FE00000007F +C0000000FF80000001FE00000003FC00000007F800000007F00000000FF00000001FE000 +00001FC00000003FC00000003F800000007F800000007F000000007F00000000FF000000 +00FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000 +FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE +00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00 +000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE0000 +0000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE000000 +00FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000 +FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE +00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000001FE00 +000001FC00000001FC00000001FC00000003F800000003F800000007F800000007F00000 +000FE00000000FE00000001FC00000003F800000007F80000000FF00000001FE00000003 +FC00000007F00000001FE00000003FC0000000FF00000000FC00000000FC00000000FF00 +0000003FC00000001FE000000007F000000003FC00000001FE00000000FF000000007F80 +0000003F800000001FC00000000FE00000000FE000000007F000000007F800000003F800 +000003F800000001FC00000001FC00000001FC00000001FE00000000FE00000000FE0000 +0000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE000000 +00FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000 +FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE +00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00 +000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE0000 +0000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE000000 +00FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000 +FE00000000FE00000000FE00000000FE00000000FE00000000FF000000007F000000007F +000000007F800000003F800000003FC00000001FC00000001FE00000000FF000000007F0 +00000007F800000003FC00000001FE00000000FF800000007FC00000003FE00000000FF8 +00000007FE00000001FE000000007E000000001E27C675823E>26 +DI<0000000001E000000000 +03E00000000007C0000000000F80000000001F80000000001F00000000003E0000000000 +7C0000000000F80000000001F80000000001F00000000003E00000000007E0000000000F +C0000000000F80000000001F80000000003F00000000003E00000000007E0000000000FC +0000000000FC0000000001F80000000003F80000000003F00000000007F00000000007E0 +000000000FE0000000000FC0000000001FC0000000001F80000000003F80000000003F00 +000000007F00000000007E0000000000FE0000000000FC0000000001FC0000000001FC00 +00000001F80000000003F80000000003F00000000007F00000000007F00000000007E000 +0000000FE0000000000FE0000000001FC0000000001FC0000000001FC0000000003F8000 +0000003F80000000003F80000000007F80000000007F00000000007F0000000000FF0000 +000000FE0000000000FE0000000000FE0000000001FE0000000001FC0000000001FC0000 +000001FC0000000003FC0000000003FC0000000003F80000000003F80000000007F80000 +000007F80000000007F80000000007F00000000007F0000000000FF0000000000FF00000 +00000FF0000000000FE0000000000FE0000000000FE0000000001FE0000000001FE00000 +00001FE0000000001FE0000000001FC0000000001FC0000000003FC0000000003FC00000 +00003FC0000000003FC0000000003FC0000000003FC0000000003FC0000000003F800000 +00007F80000000007F80000000007F80000000007F80000000007F80000000007F800000 +00007F80000000007F80000000007F80000000007F80000000007F80000000007F800000 +00007F0000000000FF0000000000FF0000000000FF0000000000FF0000000000FF000000 +0000FF0000000000FF0000000000FF0000000000FF0000000000FF0000000000FF000000 +0000FF0000000000FF0000000000FF0000000000FF0000000000FF0000000000FF000000 +0000FF0000000000FF0000000000FF0000000000FF0000000000FF0000000000FF000000 +0000FF0000000000FF0000000000FF0000000000FF0000000000FF0000000000FF000000 +0000FF0000000000FF0000000000FF0000000000FF0000000000FF0000000000FF000000 +0000FF0000000000FF0000000000FF00000000007F00000000007F80000000007F800000 +00007F80000000007F80000000007F80000000007F80000000007F80000000007F800000 +00007F80000000007F80000000007F80000000007F80000000003F80000000003FC00000 +00003FC0000000003FC0000000003FC0000000003FC0000000003FC0000000003FC00000 +00001FC0000000001FC0000000001FE0000000001FE0000000001FE0000000001FE00000 +00000FE0000000000FE0000000000FE0000000000FF0000000000FF0000000000FF00000 +000007F00000000007F00000000007F80000000007F80000000007F80000000003F80000 +000003F80000000003FC0000000003FC0000000001FC0000000001FC0000000001FC0000 +000001FE0000000000FE0000000000FE0000000000FE0000000000FF00000000007F0000 +0000007F00000000007F80000000003F80000000003F80000000003F80000000001FC000 +0000001FC0000000001FC0000000000FE0000000000FE00000000007E00000000007F000 +00000007F00000000003F00000000003F80000000001F80000000001FC0000000001FC00 +00000000FC0000000000FE00000000007E00000000007F00000000003F00000000003F80 +000000001F80000000001FC0000000000FC0000000000FE00000000007E00000000007F0 +0000000003F00000000003F80000000001F80000000000FC0000000000FC00000000007E +00000000003E00000000003F00000000001F80000000000F80000000000FC00000000007 +E00000000003E00000000001F00000000001F80000000000F800000000007C0000000000 +3E00000000001F00000000001F80000000000F800000000007C00000000003E000000000 +01E02BF86C8242>32 DIII<0000000003C0000000000FC0000000003FC0000000007FC000 +000001FF0000000003FE0000000007FC000000000FF0000000001FE0000000003FC00000 +00007F8000000000FF0000000001FF0000000001FE0000000003FC0000000007FC000000 +0007F8000000000FF0000000000FF0000000001FF0000000001FE0000000001FE0000000 +003FC0000000003FC0000000003FC0000000003FC0000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F8000000000FF8000000000FF00000000 +00FF0000000000FF0000000001FF0000000001FE0000000001FE0000000003FC00000000 +03FC0000000003F80000000007F80000000007F0000000000FF0000000001FE000000000 +1FC0000000003FC0000000007F8000000000FF0000000001FE0000000003FC0000000007 +F8000000000FF0000000001FC0000000003F8000000000FF0000000000FC0000000000FC +0000000000FF00000000003F80000000001FC0000000000FF00000000007F80000000003 +FC0000000001FE0000000000FF00000000007F80000000003FC0000000001FC000000000 +1FE0000000000FF00000000007F00000000007F80000000003F80000000003FC00000000 +03FC0000000001FE0000000001FE0000000001FF0000000000FF0000000000FF00000000 +00FF0000000000FF80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000007F80000000007F80000000007F80000000007F80000000 +007F80000000007F80000000003FC0000000003FC0000000003FC0000000003FC0000000 +001FE0000000001FE0000000001FF0000000000FF0000000000FF00000000007F8000000 +0007FC0000000003FC0000000001FE0000000001FF0000000000FF00000000007F800000 +00003FC0000000001FE0000000000FF00000000007FC0000000003FE0000000001FF0000 +0000007FC0000000003FC0000000000FC00000000003C02AF8748243>40 +DI<0000000000600000000000F000000000 +01F80000000001F80000000001F80000000003F00000000003F00000000003F000000000 +07E00000000007E00000000007E0000000000FC0000000000FC0000000000FC000000000 +1F80000000001F80000000001F80000000003F00000000003F00000000003F0000000000 +7E00000000007E00000000007E0000000000FC0000000000FC0000000000FC0000000001 +F80000000001F80000000001F80000000003F00000000003F00000000003F00000000007 +E00000000007E00000000007E00000000007E0000000000FC0000000000FC0000000000F +C0000000001F80000000001F80000000001F80000000003F00000000003F00000000003F +00000000007E00000000007E00000000007E0000000000FC0000000000FC0000000000FC +0000000001F80000000001F80000000001F80000000003F00000000003F00000000003F0 +0000000007E00000000007E00000000007E0000000000FC0000000000FC0000000000FC0 +000000001F80000000001F80000000001F80000000001F80000000003F00000000003F00 +000000003F00000000007E00000000007E00000000007E0000000000FC0000000000FC00 +00000000FC0000000001F80000000001F80000000001F80000000003F00000000003F000 +00000003F00000000007E00000000007E00000000007E0000000000FC0000000000FC000 +0000000FC0000000001F80000000001F80000000001F80000000003F00000000003F0000 +0000003F00000000003F00000000007E00000000007E00000000007E0000000000FC0000 +000000FC0000000000FC0000000001F80000000001F80000000001F80000000003F00000 +000003F00000000003F00000000007E00000000007E00000000007E0000000000FC00000 +00000FC0000000000FC0000000001F80000000001F80000000001F80000000003F000000 +00003F00000000003F00000000007E00000000007E00000000007E0000000000FC000000 +0000FC0000000000FC0000000000FC00000000007E00000000007E00000000007E000000 +00003F00000000003F00000000003F00000000001F80000000001F80000000001F800000 +00000FC0000000000FC0000000000FC00000000007E00000000007E00000000007E00000 +000003F00000000003F00000000003F00000000001F80000000001F80000000001F80000 +000000FC0000000000FC0000000000FC00000000007E00000000007E00000000007E0000 +0000003F00000000003F00000000003F00000000003F00000000001F80000000001F8000 +0000001F80000000000FC0000000000FC0000000000FC00000000007E00000000007E000 +00000007E00000000003F00000000003F00000000003F00000000001F80000000001F800 +00000001F80000000000FC0000000000FC0000000000FC00000000007E00000000007E00 +000000007E00000000003F00000000003F00000000003F00000000001F80000000001F80 +000000001F80000000001F80000000000FC0000000000FC0000000000FC00000000007E0 +0000000007E00000000007E00000000003F00000000003F00000000003F00000000001F8 +0000000001F80000000001F80000000000FC0000000000FC0000000000FC00000000007E +00000000007E00000000007E00000000003F00000000003F00000000003F00000000001F +80000000001F80000000001F80000000000FC0000000000FC0000000000FC00000000007 +E00000000007E00000000007E00000000007E00000000003F00000000003F00000000003 +F00000000001F80000000001F80000000001F80000000000FC0000000000FC0000000000 +FC00000000007E00000000007E00000000007E00000000003F00000000003F0000000000 +3F00000000001F80000000001F80000000001F80000000000FC0000000000FC000000000 +0FC00000000007E00000000007E00000000007E00000000003F00000000003F000000000 +03F00000000001F80000000001F80000000001F80000000000F00000000000602DF87482 +43>I<300000000000780000000000FC0000000000FC0000000000FC00000000007E0000 +0000007E00000000007E00000000003F00000000003F00000000003F00000000001F8000 +0000001F80000000001F80000000000FC0000000000FC0000000000FC00000000007E000 +00000007E00000000007E00000000003F00000000003F00000000003F00000000001F800 +00000001F80000000001F80000000000FC0000000000FC0000000000FC00000000007E00 +000000007E00000000007E00000000003F00000000003F00000000003F00000000003F00 +000000001F80000000001F80000000001F80000000000FC0000000000FC0000000000FC0 +0000000007E00000000007E00000000007E00000000003F00000000003F00000000003F0 +0000000001F80000000001F80000000001F80000000000FC0000000000FC0000000000FC +00000000007E00000000007E00000000007E00000000003F00000000003F00000000003F +00000000001F80000000001F80000000001F80000000000FC0000000000FC0000000000F +C0000000000FC00000000007E00000000007E00000000007E00000000003F00000000003 +F00000000003F00000000001F80000000001F80000000001F80000000000FC0000000000 +FC0000000000FC00000000007E00000000007E00000000007E00000000003F0000000000 +3F00000000003F00000000001F80000000001F80000000001F80000000000FC000000000 +0FC0000000000FC00000000007E00000000007E00000000007E00000000007E000000000 +03F00000000003F00000000003F00000000001F80000000001F80000000001F800000000 +00FC0000000000FC0000000000FC00000000007E00000000007E00000000007E00000000 +003F00000000003F00000000003F00000000001F80000000001F80000000001F80000000 +000FC0000000000FC0000000000FC00000000007E00000000007E00000000007E0000000 +0003F00000000003F00000000003F00000000001F80000000001F80000000001F8000000 +0001F80000000003F00000000003F00000000003F00000000007E00000000007E0000000 +0007E0000000000FC0000000000FC0000000000FC0000000001F80000000001F80000000 +001F80000000003F00000000003F00000000003F00000000007E00000000007E00000000 +007E0000000000FC0000000000FC0000000000FC0000000001F80000000001F800000000 +01F80000000003F00000000003F00000000003F00000000007E00000000007E000000000 +07E00000000007E0000000000FC0000000000FC0000000000FC0000000001F8000000000 +1F80000000001F80000000003F00000000003F00000000003F00000000007E0000000000 +7E00000000007E0000000000FC0000000000FC0000000000FC0000000001F80000000001 +F80000000001F80000000003F00000000003F00000000003F00000000007E00000000007 +E00000000007E0000000000FC0000000000FC0000000000FC0000000000FC0000000001F +80000000001F80000000001F80000000003F00000000003F00000000003F00000000007E +00000000007E00000000007E0000000000FC0000000000FC0000000000FC0000000001F8 +0000000001F80000000001F80000000003F00000000003F00000000003F00000000007E0 +0000000007E00000000007E0000000000FC0000000000FC0000000000FC0000000001F80 +000000001F80000000001F80000000003F00000000003F00000000003F00000000003F00 +000000007E00000000007E00000000007E0000000000FC0000000000FC0000000000FC00 +00000001F80000000001F80000000001F80000000003F00000000003F00000000003F000 +00000007E00000000007E00000000007E0000000000FC0000000000FC0000000000FC000 +0000001F80000000001F80000000001F80000000003F00000000003F00000000003F0000 +0000007E00000000007E00000000007E0000000000FC0000000000FC0000000000FC0000 +0000007800000000003000000000002DF8778243>I<00000000007C0000000000FC0000 +000001F80000000001F80000000003F00000000007E0000000000FC0000000000FC00000 +00001F80000000003F00000000007F00000000007E0000000000FC0000000001FC000000 +0001F80000000003F80000000007F00000000007E0000000000FE0000000000FC0000000 +001FC0000000003F80000000003F80000000007F00000000007F0000000000FE00000000 +00FE0000000001FC0000000001FC0000000003F80000000003F80000000007F000000000 +07F0000000000FF0000000000FE0000000001FE0000000001FC0000000003FC000000000 +3F80000000003F80000000007F80000000007F0000000000FF0000000000FF0000000000 +FE0000000001FE0000000001FC0000000003FC0000000003FC0000000003F80000000007 +F80000000007F80000000007F8000000000FF0000000000FF0000000000FF0000000001F +E0000000001FE0000000001FE0000000003FE0000000003FC0000000003FC0000000003F +C0000000007FC0000000007F80000000007F80000000007F8000000000FF8000000000FF +0000000000FF0000000000FF0000000001FF0000000001FE0000000001FE0000000001FE +0000000003FE0000000003FE0000000003FC0000000003FC0000000003FC0000000007FC +0000000007FC0000000007FC0000000007F80000000007F80000000007F8000000000FF8 +000000000FF8000000000FF8000000000FF8000000000FF0000000000FF0000000001FF0 +000000001FF0000000001FF0000000001FF0000000001FF0000000001FF0000000001FE0 +000000001FE0000000003FE0000000003FE0000000003FE0000000003FE0000000003FE0 +000000003FE0000000003FE0000000003FE0000000003FC0000000003FC0000000007FC0 +000000007FC0000000007FC0000000007FC0000000007FC0000000007FC0000000007FC0 +000000007FC0000000007FC0000000007FC0000000007FC0000000007FC0000000007FC0 +000000007FC0000000007F8000000000FF8000000000FF8000000000FF8000000000FF80 +00000000FF8000000000FF8000000000FF8000000000FF8000000000FF8000000000FF80 +00000000FF8000000000FF8000000000FF8000000000FF8000000000FF8000000000FF80 +00000000FF8000000000FF8000000000FF8000000000FF8000000000FF8000000000FF80 +00000000FF8000000000FF80000000002E95688149>48 DI<000001F0000007F000000F +F000003FF000007FF00001FFC00003FF800007FF00000FFE00001FFC00003FF800007FF0 +00007FE00000FFC00001FF800003FF800003FF000007FE000007FE00000FFC00000FFC00 +001FF800001FF800003FF800003FF000003FF000007FF000007FE000007FE000007FE000 +007FE00000FFE00000FFC00000FFC00000FFC00000FFC00000FFC00000FFC00000FFC000 +00FFC00000FFC00000FFC00000FFC00000FFC00000FFC00000FFC00000FFC00000FFC000 +00FFC00000FFC00000FFC00000FFC00000FFC00000FFC00000FFC00000FFC00000FFC000 +00FFC00000FFC00000FFC00000FFC00000FFC00000FFC00000FFC00000FFC00000FFC000 +00FFC00000FFC00000FFC00000FFC00000FFC00000FFC00000FFC00000FFC00000FFC000 +001C4B607E4A>56 DII<00001FF800001FF800001FF800001FF800001FF800001FF800 +001FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF800 +001FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF800 +001FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF800 +001FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF800 +001FF800003FF800003FF000003FF000003FF000003FF000007FE000007FE000007FE000 +00FFC00000FFC00001FFC00001FF800003FF800003FF000007FF000007FE00000FFC0000 +1FFC00003FF800003FF000007FE00000FFC00001FF800003FF00000FFE00001FFC00003F +F80000FFF00000FFC00000FF800000FE000000F80000001D4B73804A>I<00001FF80000 +1FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF80000 +1FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF80000 +1FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF80000 +1FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF80000 +1FF800001FF800001FF800001FF800001FF800001FF800003FF800003FF000003FF00000 +3FF000003FF000007FE000007FE000007FE000007FC00000FFC00000FFC00001FF800001 +FF800001FF000003FF000003FE000007FE00000FFC00000FF800001FF800003FF000003F +E000007FC00000FF800001FF000003FE000007FC00000FF800001FF000007FE00000FF80 +0000FF000000FC000000FF000000FF8000007FE000001FF000000FF8000007FC000003FE +000001FF000000FF8000007FC000003FE000003FF000001FF800000FF800000FFC000007 +FE000003FE000003FF000001FF000001FF800001FF800000FFC00000FFC000007FC00000 +7FE000007FE000007FE000003FF000003FF000003FF000003FF000003FF800001FF80000 +1FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF80000 +1FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF80000 +1FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF80000 +1FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF80000 +1FF800001FF800001FF800001FF800001FF800001FF81D9773804A>III64 D<0000000007FC0000000007FC0000000007 +FC0000000007FC0000000007FC0000000007FC0000000007FC0000000007FC0000000007 +FC0000000007FC0000000007FC0000000007FC0000000007FC0000000007FC0000000007 +FC0000000007FC0000000007FC0000000007FC0000000007FC0000000007FC0000000007 +FC0000000007FC0000000007FC0000000007FC0000000007F8000000000FF8000000000F +F8000000000FF8000000000FF8000000000FF8000000000FF8000000000FF8000000000F +F8000000000FF8000000000FF8000000000FF8000000000FF8000000000FF8000000000F +F8000000000FF0000000000FF0000000001FF0000000001FF0000000001FF0000000001F +F0000000001FF0000000001FF0000000001FF0000000001FF0000000001FE0000000001F +E0000000003FE0000000003FE0000000003FE0000000003FE0000000003FE0000000003F +E0000000003FC0000000003FC0000000007FC0000000007FC0000000007FC0000000007F +C0000000007F80000000007F80000000007F8000000000FF8000000000FF8000000000FF +8000000000FF0000000000FF0000000000FF0000000001FF0000000001FF0000000001FE +0000000001FE0000000001FE0000000003FE0000000003FC0000000003FC0000000003FC +0000000007FC0000000007F80000000007F80000000007F8000000000FF8000000000FF0 +000000000FF0000000000FF0000000001FF0000000001FE0000000001FE0000000001FE0 +000000003FC0000000003FC0000000003FC0000000007F80000000007F80000000007F80 +000000007F0000000000FF0000000000FF0000000000FE0000000001FE0000000001FC00 +00000003FC0000000003FC0000000003F80000000007F80000000007F00000000007F000 +0000000FF0000000000FE0000000001FE0000000001FC0000000003FC0000000003F8000 +0000003F80000000007F00000000007F0000000000FE0000000000FE0000000001FC0000 +000001FC0000000003F80000000003F80000000007F00000000007F0000000000FE00000 +00000FC0000000001FC0000000001F80000000003F80000000007F00000000007E000000 +0000FE0000000000FC0000000001F80000000003F80000000003F00000000007E0000000 +000FC0000000000FC0000000001F80000000003F00000000007E00000000007E00000000 +00FC0000000000F800000000002E957E8349>I80 +D<000000007F0000000001FFC000000003C0F00000000780380000000F00780000001F01 +FC0000001E01FC0000003E01FC0000003E01FC0000007E01FC0000007C00700000007C00 +00000000FC0000000000FC0000000000FC0000000000FC0000000001F80000000001F800 +00000001F80000000001F80000000001F80000000001F80000000001F80000000001F800 +00000003F80000000003F80000000003F80000000003F80000000003F00000000003F000 +00000003F00000000003F00000000007F00000000007F00000000007F00000000007F000 +00000007F00000000007F00000000007F00000000007F00000000007F0000000000FE000 +0000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE000 +0000000FE0000000000FE0000000000FE0000000001FC0000000001FC0000000001FC000 +0000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC000 +0000001F80000000001F80000000001F80000000001F80000000003F80000000003F8000 +0000003F80000000003F80000000003F00000000003F00000000003F00000000003F0000 +0000003F00000000003F00000000003F00000000003E00000000007E00000000007E0000 +0000007E00000000007E00000000007C00000038007C000000FE00FC000000FE00F80000 +00FE00F8000000FE01F0000000FE01E00000007803E00000007007C00000003C0F800000 +000FFE0000000003F8000000002E5C7C7F27>82 D88 +DI<00000000 +00000007C0000000000000001FF0000000000000007C3C00000000000000F80E00000000 +000001F83E00000000000001F07F00000000000003E0FF00000000000007E0FF00000000 +000007E0FF0000000000000FC0FF0000000000000FC07E0000000000001F803C00000000 +00001F80000000000000001F80000000000000003F00000000000000003F000000000000 +00007F00000000000000007F00000000000000007E0000000000000000FE000000000000 +0000FE0000000000000000FE0000000000000000FC0000000000000001FC000000000000 +0001FC0000000000000001FC0000000000000003F80000000000000003F8000000000000 +0003F80000000000000003F80000000000000007F80000000000000007F0000000000000 +0007F00000000000000007F0000000000000000FF0000000000000000FF0000000000000 +000FE0000000000000000FE0000000000000001FE0000000000000001FE0000000000000 +001FC0000000000000001FC0000000000000001FC0000000000000003FC0000000000000 +003FC0000000000000003FC0000000000000003F80000000000000007F80000000000000 +007F80000000000000007F80000000000000007F8000000000000000FF00000000000000 +00FF0000000000000000FF0000000000000000FF0000000000000000FF00000000000000 +01FF0000000000000001FE0000000000000001FE0000000000000001FE00000000000000 +03FE0000000000000003FE0000000000000003FE0000000000000003FC00000000000000 +03FC0000000000000007FC0000000000000007FC0000000000000007FC00000000000000 +07F80000000000000007F8000000000000000FF8000000000000000FF800000000000000 +0FF8000000000000000FF8000000000000001FF0000000000000001FF000000000000000 +1FF0000000000000001FF0000000000000001FF0000000000000003FF000000000000000 +3FE0000000000000003FE0000000000000003FE0000000000000003FE000000000000000 +7FE0000000000000007FC0000000000000007FC0000000000000007FC000000000000000 +7FC000000000000000FFC000000000000000FF8000000000000000FF8000000000000000 +FF8000000000000000FF8000000000000001FF8000000000000001FF0000000000000001 +FF0000000000000001FF0000000000000001FF0000000000000003FF0000000000000003 +FE0000000000000003FE0000000000000003FE0000000000000003FE0000000000000003 +FE0000000000000007FC0000000000000007FC0000000000000007FC0000000000000007 +FC0000000000000007FC000000000000000FF8000000000000000FF8000000000000000F +F8000000000000000FF8000000000000000FF0000000000000000FF0000000000000001F +F0000000000000001FF0000000000000001FF0000000000000001FE0000000000000001F +E0000000000000003FE0000000000000003FE0000000000000003FE0000000000000003F +C0000000000000003FC0000000000000003FC0000000000000007FC0000000000000007F +80000000000000007F80000000000000007F80000000000000007F80000000000000007F +8000000000000000FF0000000000000000FF0000000000000000FF0000000000000000FF +0000000000000000FE0000000000000001FE0000000000000001FE0000000000000001FE +0000000000000001FC0000000000000001FC0000000000000001FC0000000000000003FC +0000000000000003FC0000000000000003F80000000000000003F80000000000000007F8 +0000000000000007F80000000000000007F00000000000000007F00000000000000007F0 +000000000000000FF0000000000000000FE0000000000000000FE0000000000000000FE0 +000000000000000FE0000000000000001FC0000000000000001FC0000000000000001FC0 +000000000000001F80000000000000003F80000000000000003F80000000000000003F80 +000000000000003F00000000000000007F00000000000000007F00000000000000007E00 +00000000000000FE0000000000000000FC0000000000000000FC0000000000003C01F800 +00000000007E01F8000000000000FF01F8000000000000FF03F0000000000000FF03E000 +0000000000FF07E0000000000000FE07C00000000000007C0F80000000000000701F0000 +00000000003C3E000000000000000FFC0000000000000003F00000000000000048B87B7F +2E>I104 DI<00000003C00000000FC00000003FC0000000FFC0000003FF00000007FC +0000000FF80000001FE00000003FC00000007F80000000FF00000000FF00000001FE0000 +0001FC00000001FC00000003FC00000003F800000003F800000003F800000003F8000000 +03F800000003F800000003F800000003F800000003F800000003F800000003F800000003 +F800000003F800000003F800000003F800000003F800000003F800000003F800000003F8 +00000003F800000003F800000003F800000003F800000003F800000003F800000003F800 +000003F800000003F800000003F800000003F800000003F800000003F800000003F80000 +0003F800000003F800000003F800000003F800000003F800000003F800000003F8000000 +03F800000003F800000007F800000007F000000007F00000000FF00000000FE00000001F +E00000001FC00000003F800000007F80000000FF00000001FC00000007F80000000FF000 +00003FC0000000FF80000000FE00000000FE00000000FF800000003FC00000000FF00000 +0007F800000001FC00000000FF000000007F800000003F800000001FC00000001FE00000 +000FE00000000FF000000007F000000007F000000007F800000003F800000003F8000000 +03F800000003F800000003F800000003F800000003F800000003F800000003F800000003 +F800000003F800000003F800000003F800000003F800000003F800000003F800000003F8 +00000003F800000003F800000003F800000003F800000003F800000003F800000003F800 +000003F800000003F800000003F800000003F800000003F800000003F800000003F80000 +0003F800000003F800000003F800000003F800000003F800000003F800000003F8000000 +03F800000003F800000003F800000003F800000003FC00000001FC00000001FC00000001 +FE00000000FF00000000FF000000007F800000003FC00000001FE00000000FF800000007 +FC00000003FF00000000FFC00000003FC00000000FC000000003C02294768237>110 +DI<0000000000000000 +00300000000000000000007800000000000000000078000000000000000000F800000000 +0000000000F8000000000000000000F0000000000000000001F0000000000000000001F0 +000000000000000001E0000000000000000003E0000000000000000003E0000000000000 +000003C0000000000000000007C0000000000000000007C0000000000000000007800000 +0000000000000F8000000000000000000F8000000000000000000F000000000000000000 +1F0000000000000000001F0000000000000000001E0000000000000000003E0000000000 +000000003E0000000000000000003C0000000000000000007C0000000000000000007C00 +000000000000000078000000000000000000F8000000000000000000F800000000000000 +0000F0000000000000000000F0000000000000000001F0000000000000000001F0000000 +000000000001E0000000000000000003E0000000000000000003E0000000000000000003 +C0000000000000000007C0000000000000000007C0000000000000000007800000000000 +0000000F8000000000000000000F8000000000000000000F0000000000000000001F0000 +000000000000001F0000000000000000001E0000000000000000003E0000000000000000 +003E0000000000000000003C0000000000000000007C0000000000000000007C00000000 +000000000078000000000000000000F8000000000000000000F8000000000000000000F0 +000000000000000001F0000000000000000001F0000000000000000001E0000000000000 +000003E0000000000000000003E0000000000000000003C0000000000000000003C00000 +00000000000007C0000000000000000007C0000000000000000007800000000000000000 +0F8000000000000000000F8000000000000000000F0000000000000000001F0000000000 +000000001F0000000000000000001E0000000000000000003E0000000000000000003E00 +00000000000000003C0000000000000000007C0000000010000000007C00000000300000 +000078000000007000000000F800000000F800000000F800000000F800000000F0000000 +01F800000001F000000003F800000001F000000007FC00000001E00000000FFC00000003 +E00000001DFC00000003E000000038FE00000003C000000070FE00000007C000000060FE +00000007C0000000C0FE0000000780000000407F0000000780000000007F0000000F8000 +0000007F0000000F80000000003F8000000F00000000003F8000001F00000000003F8000 +001F00000000003F8000001E00000000001FC000003E00000000001FC000003E00000000 +001FC000003C00000000000FE000007C00000000000FE000007C00000000000FE0000078 +00000000000FE00000F8000000000007F00000F8000000000007F00000F0000000000007 +F00001F0000000000003F80001F0000000000003F80001E0000000000003F80003E00000 +00000003F80003E0000000000001FC0003C0000000000001FC0007C0000000000001FC00 +07C0000000000000FE000780000000000000FE000F80000000000000FE000F8000000000 +0000FE000F000000000000007F001F000000000000007F001F000000000000007F001E00 +0000000000003F801E000000000000003F803E000000000000003F803E00000000000000 +3F803C000000000000001FC07C000000000000001FC07C000000000000001FC078000000 +000000000FE0F8000000000000000FE0F8000000000000000FE0F0000000000000000FE1 +F00000000000000007F1F00000000000000007F1E00000000000000007F3E00000000000 +000003FBE00000000000000003FBC00000000000000003FFC00000000000000003FFC000 +00000000000001FF800000000000000001FF800000000000000001FF8000000000000000 +00FF000000000000000000FF000000000000000000FF000000000000000000FE00000000 +00000000007E0000000000000000007E0000000000000000007C0000000000000000003C +000000000000000000380000000000004D96788353>113 D<0000000000000000003000 +000000000000000078000000000000000000780000000000000000007800000000000000 +0000F8000000000000000000F8000000000000000000F0000000000000000000F0000000 +000000000000F0000000000000000001F0000000000000000001F0000000000000000001 +E0000000000000000001E0000000000000000001E0000000000000000003E00000000000 +00000003E0000000000000000003C0000000000000000003C0000000000000000003C000 +0000000000000007C0000000000000000007C00000000000000000078000000000000000 +000780000000000000000007800000000000000000078000000000000000000F80000000 +00000000000F8000000000000000000F0000000000000000000F0000000000000000000F +0000000000000000001F0000000000000000001F0000000000000000001E000000000000 +0000001E0000000000000000001E0000000000000000003E0000000000000000003E0000 +000000000000003C0000000000000000003C0000000000000000003C0000000000000000 +007C0000000000000000007C000000000000000000780000000000000000007800000000 +000000000078000000000000000000F8000000000000000000F8000000000000000000F0 +000000000000000000F0000000000000000000F0000000000000000000F0000000000000 +000001F0000000000000000001F0000000000000000001E0000000000000000001E00000 +00000000000001E0000000000000000003E0000000000000000003E00000000000000000 +03C0000000000000000003C0000000000000000003C0000000000000000007C000000000 +0000000007C0000000000000000007800000000000000000078000000000000000000780 +00000000000000000F8000000000000000000F8000000000000000000F00000000000000 +00000F0000000000000000000F0000000000000000000F0000000000000000001F000000 +0000000000001F0000000000000000001E0000000000000000001E000000000000000000 +1E0000000000000000003E0000000000000000003E0000000000000000003C0000000000 +000000003C0000000000000000003C0000000000000000007C0000000000000000007C00 +000000000000000078000000000000000000780000000000000000007800000000000000 +0000F8000000000000000000F8000000000000000000F0000000000000000000F0000000 +000000000000F0000000000000000000F0000000000000000001F0000000000000000001 +F0000000000000000001E0000000000000000001E0000000000000000001E00000000000 +00000003E0000000000000000003E0000000000000000003C0000000000000000003C000 +0000000000000003C0000000000000000007C0000000000000000007C000000000000000 +000780000000000000000007800000000000000000078000000000000000000F80000000 +00000000000F8000000000000000000F0000000000000000000F0000000000000000000F +0000000000000000000F0000000000000000001F0000000000000000001F000000000000 +0000001E0000000000000000001E0000000000000000001E0000000000000000003E0000 +000000000000003E0000000000000000003C0000000000000000003C0000000000000000 +003C0000000000000000007C0000000010000000007C0000000010000000007800000000 +30000000007800000000300000000078000000007000000000F8000000007000000000F8 +00000000F800000000F000000000F800000000F000000001F800000000F000000001F800 +000001F000000003F800000001F000000003F800000001E000000007FC00000001E00000 +0007FC00000001E00000000DFC00000001E00000001DFC00000003E000000019FC000000 +03E000000038FE00000003C000000030FE00000003C000000070FE00000003C000000060 +FE00000007C0000000E0FE00000007C0000000C0FE0000000780000000407F0000000780 +000000007F0000000780000000007F0000000F80000000007F0000000F80000000007F00 +00000F00000000007F0000000F00000000003F8000000F00000000003F8000001F000000 +00003F8000001F00000000003F8000001E00000000003F8000001E00000000003F800000 +1E00000000001FC000001E00000000001FC000003E00000000001FC000003E0000000000 +1FC000003C00000000001FC000003C00000000001FC000003C00000000000FE000007C00 +000000000FE000007C00000000000FE000007800000000000FE000007800000000000FE0 +00007800000000000FE00000F8000000000007F00000F8000000000007F00000F0000000 +000007F00000F0000000000007F00000F0000000000007F00001F0000000000003F80001 +F0000000000003F80001E0000000000003F80001E0000000000003F80001E00000000000 +03F80001E0000000000003F80003E0000000000001FC0003E0000000000001FC0003C000 +0000000001FC0003C0000000000001FC0003C0000000000001FC0007C0000000000001FC +0007C0000000000000FE000780000000000000FE000780000000000000FE000780000000 +000000FE000F80000000000000FE000F80000000000000FE000F000000000000007F000F +000000000000007F000F000000000000007F001F000000000000007F001F000000000000 +007F001E000000000000007F001E000000000000003F801E000000000000003F801E0000 +00000000003F803E000000000000003F803E000000000000003F803C000000000000001F +C03C000000000000001FC03C000000000000001FC07C000000000000001FC07C00000000 +0000001FC078000000000000001FC078000000000000000FE078000000000000000FE0F8 +000000000000000FE0F8000000000000000FE0F0000000000000000FE0F0000000000000 +000FE0F00000000000000007F1F00000000000000007F1F00000000000000007F1E00000 +000000000007F1E00000000000000007F1E00000000000000007F3E00000000000000003 +FBE00000000000000003FBC00000000000000003FBC00000000000000003FBC000000000 +00000003FBC00000000000000003FFC00000000000000001FFC00000000000000001FF80 +0000000000000001FF800000000000000001FF800000000000000001FF80000000000000 +0000FF800000000000000000FF000000000000000000FF000000000000000000FF000000 +000000000000FF000000000000000000FF0000000000000000007E000000000000000000 +7E0000000000000000007E0000000000000000007E0000000000000000007E0000000000 +000000007C0000000000000000003C0000000000000000003C0000000000000000003800 +00000000004DFA788353>115 D<00000000000030000000000000780000000000007800 +000000000078000000000000780000000000007800000000000078000000000000780000 +000000007800000000000078000000000000780000000000007800000000000078000000 +000000780000000000007800000000000078000000000000780000000000007800180000 +0000780018000000007800380000000078003C0000000078007C000000007800FC000000 +007800FE000000007801FE000000007801FE000000007803FF0000000078037F00000000 +78077F0000000078063F80000000780E3F80000000780C3F80000000781C1FC000000078 +181FC000000078381FC000000078300FE000000078600FE000000078600FE000000078C0 +0FE000000078C007F0000000780007F0000000780007F0000000780003F8000000780003 +F8000000780003F8000000780001FC000000780001FC000000780001FC000000780000FE +000000780000FE000000780000FE0000007800007F0000007800007F0000007800007F00 +00007800003F8000007800003F8000007800003F8000007800001FC000007800001FC000 +007800001FC000007800000FE000007800000FE000007800000FE0000078000007F00000 +78000007F0000078000007F0000078000003F8000078000003F8000078000003F8000078 +000001FC000078000001FC000078000001FC000078000000FE000078000000FE00007800 +0000FE0000780000007F0000780000007F0000780000007F0000780000003F8000780000 +003F8000780000003F8000780000001FC000780000001FC000780000001FC00078000000 +0FE000780000000FE000780000000FE0007800000007F0007800000007F0007800000007 +F0007800000003F8007800000003F8007800000003F8007800000001FC007800000001FC +007800000001FC007800000001FC007800000000FE007800000000FE007800000000FE00 +78000000007F0078000000007F0078000000007F0078000000003F8078000000003F8078 +000000003F8078000000001FC078000000001FC078000000001FC078000000000FE07800 +0000000FE078000000000FE0780000000007F0780000000007F0780000000007F0780000 +000003F8780000000003F8780000000003F8780000000001FC780000000001FC78000000 +0001FC780000000000FE780000000000FE780000000000FE7800000000007F7800000000 +007F7800000000007F7800000000003FF800000000003FF800000000003FF80000000000 +1FF800000000001FF800000000001FF800000000000FF800000000000FF800000000000F +F8000000000007F8000000000007F8000000000007F8000000000003F8000000000003F8 +000000000003F8000000000001F8000000000001F8000000000001F8000000000000F800 +0000000000F8000000000000F800000000000070000000000000603597778158>I<60F0 +F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0 +F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0600436468158>I<7FFFFFFEFFFFFFFFFFFFFFFFFF +FFFFFEF0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0 +000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0 +000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0 +000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0 +000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0 +000000F0000000F0000000600000002034468358>I E /Fh 58 123 +df<0001FC0000000FFF0000003F07C000007C03E00001F801F00C03F001F00C07E000F8 +0C0FC000F81C0F8000FC181F80007C183F00007C383F00007C307F00007C707E00007C60 +7E00007CE07E00007CC0FE00007DC0FC00007F80FC00007F00FC00007E00FC00007E00FC +00007C00FC00007C007C00007C007C0000FE007C0003FE0C3E00073E0C1F001E3E1C0F81 +F81F3803FFE00FF000FE0003C0261F7D9D2D>11 D<0000007E00000001FFC000000781E0 +00001E00F000003800F000007000F80000E000780001C0007800038000F800030000F800 +070000F800060000F8000E0001F8000C0001F0001C0001F000180003E000180007C00038 +00078000301FEF0000303FFE0000703FFE0000601FEF000060000F8000600007C000E000 +07C000C00007E000C00007E000C00007E001C00007E001800007E001800007E001800007 +E00380000FE00300000FC00300000FC00300000FC00700001F800700001F800700003F00 +0700003F000F80007E000D80007C000DC000F8000CE001F0001C7003E000183C0F800018 +1FFE00001803F80000380000000030000000003000000000300000000070000000006000 +00000060000000006000000000E000000000C000000000C000000000C000000000253C7E +AE28>I<001F00000000FFC0003001FFF0007007FFF800600FFFF800E00F807C00C01E00 +3C01C03C001E018038000E0380700007030060000707006000030600E000030600000003 +8E000000018C000000019C000000019800000001B800000001B000000001B000000001F0 +00000001E000000001E000000001E000000001C000000001C00000000180000000018000 +000003800000000380000000038000000003800000000700000000070000000007000000 +0007000000000E000000000E000000000E000000000E000000001C000000001C00000000 +1C00000000180000242C7F9D24>I<0003FE001FFE007E0000F80003F00007E0000FC000 +1F80001F80003F00003F00007F00007FFFF07FFFF07E00007E0000FC0000FC0000FC0000 +7C00007C00007C00007C00003E00003E00001F00080F801C07C0F801FFE0007F00171E7D +9C1D>15 D<07C007E00FE03FF81CF8783E3879E01E307B801F707F001F607F001F60FE00 +1FE0FC001FC0FC001FC0F8001F81F8003F01F8003F01F0003E01F0003E03F0007E03F000 +7E03E0007C03E0007C07E000FC07E000FC07C000F807C000F80FC001F80FC001F80F8001 +F00F8001F01F8003F01F8003F01F0003E00E0003E0000007E0000007E0000007C0000007 +C000000FC000000FC000000F8000000F8000001F8000001F8000001F0000001F0000000E +00202C7E9D23>17 D<00007C000001FF000003C780000783C0001F03E0001E01E0003E01 +E0007C01F000F801F000F801F001F001F003F001F003E001F007E001F007E001F00FC001 +F00FC003F00FC003F01F8003F01F8003F01F8007F03F8007E03F0007E03FFFFFE03FFFFF +E07F000FC07E000FC07E000FC07E001FC07E001F807C001F80FC001F00FC003F00FC003F +00FC007E00FC007E00F8007C00F800FC007800F8007801F0007801F0007C03E0003C07C0 +003C0F80001C0F00001E3E00000FF8000003E000001C307DAE21>I<001C000000003E00 +0380003E0007C0007E000FC0007E000F80007C000F80007C000F8000FC001F8000FC001F +0000F8001F0000F8001F0001F8003F0001F8003E0001F0003E0001F0003E0003F0007E00 +03F0007C0003E0007C0003E0007C0007E000FC0807E000F81807C000F81807C000F8180F +C001F8380FC001F8300FE003F0300FE007F0701FE00EF8601FF83C78E01F7FF03FC01F1F +C00F003F000000003F000000003E000000003E000000007E000000007E000000007C0000 +00007C00000000FC00000000FC00000000F800000000F8000000007000000000252C7E9D +2A>22 D<01F00007003FF0000F803FF0000F8003F0001F8003F0001F0003E0001F0003E0 +003F0007E0003E0007E0003E0007C0007C0007C0007C000FC000F8000FC001F8000F8001 +F0000F8003E0001F8007E0001F8007C0001F000F80001F001F00003F003E00003F007C00 +003E00F000003E03E000007E07C000007E0F0000007C3E0000007CF8000000FFE0000000 +FF00000000F800000000211E7D9D23>I<00FFFFFFF803FFFFFFF807FFFFFFF80FFFFFFF +F01E0380C0003C0300C000700301C000700701C000E007018000C006018000000E038000 +000E038000000E038000001C038000001C038000003C038000003C078000003807800000 +78078000007807800000F007C00000F007C00001F007C00001F007C00003E007E00003E0 +07E00007E003E00007C003E00007C003E000038001C000251E7E9C29>25 +D<00001F8000007FF00001F0F80003E07C0007803E000F003E001F001F003E001F007C00 +1F007C001F00F8001F00F8003F01F8003F01F0003F01F0003F03F0007F03F0007E03E000 +7E03E0007E07E000FC07E000FC07C000F807C001F80FC003F00FC003E00FE007C00FE00F +801FF01F001FB83E001F1FF8001F07C0003F0000003F0000003E0000003E0000007E0000 +007E0000007C0000007C000000FC000000FC000000F8000000F800000070000000202C7E +9D24>I<00FFFFFF8003FFFFFF8007FFFFFF800FFFFFFF001E00E000003C00E000007000 +C000007001C00000E001C00000C001C000000003C000000003C000000003800000000380 +0000000780000000078000000007800000000F000000000F000000000F000000001F0000 +00001F000000001E000000003E000000003E000000003E000000003E000000007C000000 +007C0000000038000000211E7E9C1F>28 D<000000600000000060000000006000000000 +E000000000E000000000C000000000C000000001C000000001C000000001800000000180 +000000038000000003800000000300000000030000000007000000003FE0000003FFF800 +000FC63E00003E0E0F80007C0E07C001F00C03E003E00C01F007C01C01F00F801C00F01F +801800F81F001800F83E003800F83E003800F87C003000F87C003000F87C007001F8FC00 +7001F0F8006001F0F8006003F0F800E003E0F800E007E07800C007C07C00C00F807C01C0 +1F003C01C03E003E01807C001F0180F8000F8383E00003E39F800000FFFE0000001FF000 +000007000000000700000000060000000006000000000E000000000E000000000C000000 +000C000000001C000000001C000000001800000000180000000018000000253C7DAD2A> +30 D<07E00000001FF800000C38FC00001C307E000018707F000038203F000070003F00 +00E0001F8001C0001F800380000FC00700000FC00E000007C01C000007E038000007E070 +000003E0E0000003F0C0000003F1C0000001F380000001FF00000001FE00000000FC0000 +0000FC00000000FC00000000FC00000001FE00000003FE000000073E0000000E3F000000 +0C3F0000001C1F000000381F800000701F800000E00F800001C00FC00003800FC0000700 +07E0000E0007E0001C0003F000380003F010700003F838600001F830E00000FC70C00000 +7FE00000001F80262C7E9D2C>I<0000000600000000000600000000000600000000000E +00000000000C00000000000C00000000000C00000000001C000000000018000000000018 +000000000018000000000038000000000030000000000030000000000030000000000070 +000001E00060070007F800601F800E3C00601F801C3E00E01FC0383E00C01FC0303E00C0 +0FC0703E00C007C0607E01C00780E07C01800380C07C01800380C0FC0180038080F80380 +038000F80300030001F80300030001F00300030001F00700070003F00600060003E00600 +0E0003E006000C0003E00E001C0003E00C00180003C00C00380003E00C00700003E01C00 +E00003E01801C00001F01803800001F0180F000000FC381C0000003F30F80000000FFFE0 +00000001FF0000000000700000000000600000000000600000000000600000000000E000 +00000000C00000000000C00000000000C00000000001C000000000018000000000018000 +00000001800000000001800000002A3C7EAD2E>I<000000000E00018000003F00038000 +003F00070000003F80060000003F800E0000001F800C0000000F801C0000000F00180000 +00070038000000070030000C00070030001E00070070001E00060060001E00060060003E +00060060003C000E00E0003C000C00C0003C000C00C00038001C00E00078003800E00070 +003800E00070007000E000F000F000F001F801E000F003F803E0007C0FFC0FC0007FFFBF +FF80007FFF3FFF00003FFC1FFE00001FF80FF8000007E007E00000291F7F9D2C>I<0000 +000FC00300003FE0070000FFF80E0001FFF80C0003E07C1C0007803C380007001C30000E +000E30001C000E70001C000E600038000E600030000EE00030000CC00060000CC0006000 +0CC000C0001CC000C00018C000C00038C001800030C001800070E0018000E0E0038001E0 +70038003C078030007803C07001F001F87007E000FF703FC0007FFFFF00001FFFFC00000 +7FFF0000001FF80000001E000000001E000000001E000000003C000000003C000000003C +000000007C000000007C000000007C00000000F800000000F800000000F8000000007000 +0000272C7C9D2E>39 D<3C7EFFFFFFFF7E3C08087A8714>58 D<3C007E00FF00FF00FF80 +FF807F803D80018001800180038003000300070006000E001C0038007000600009157A87 +14>I<0000000001C00000000007C0000000001FC0000000007F0000000001FC00000000 +07F0000000001FC0000000007F0000000001FC0000000007F0000000000FC0000000003F +0000000000FC0000000003F8000000000FE0000000003F8000000000FE0000000003F800 +0000000FE0000000003F8000000000FE0000000000F80000000000FE00000000003F8000 +0000000FE00000000003F80000000000FE00000000003F80000000000FE00000000003F8 +0000000000FC00000000003F00000000000FC00000000007F00000000001FC0000000000 +7F00000000001FC00000000007F00000000001FC00000000007F00000000001FC0000000 +0007C00000000001C02A2B7AA537>I<000000C0000001C0000003C00000038000000380 +00000780000007000000070000000F0000000E0000000E0000001E0000001C0000001C00 +00003C00000038000000780000007000000070000000F0000000E0000000E0000001E000 +0001C0000001C0000003C00000038000000780000007000000070000000F0000000E0000 +000E0000001E0000001C0000001C0000003C000000380000003800000078000000700000 +00F0000000E0000000E0000001E0000001C0000001C0000003C000000380000003800000 +07800000070000000F0000000E0000000E0000001E0000001C0000001C0000003C000000 +3800000038000000780000007000000070000000F0000000E0000000E00000001A437CB1 +23>II<00000000700000000000700000000000F0000000 +0001F00000000001F00000000003F80000000003F80000000007F8000000000DF8000000 +000DF80000000019F80000000039F80000000031F80000000061FC0000000060FC000000 +00C0FC0000000180FC0000000180FC0000000300FC0000000700FC0000000600FC000000 +0C00FE0000000C007E00000018007E00000030007E00000030007E00000060007E000000 +E0007E000000C0007E00000180007F000001FFFFFF000003FFFFFF00000600003F000006 +00003F00000C00003F00001C00003F00001800003F00003000003F80003000001F800060 +00001F8000C000001F8001C000001F8003C000001F8007C000001F800FC000003FC0FFF8 +0007FFFEFFF80007FFFE2F2F7DAE35>65 D<003FFFFFFF00003FFFFFFFC00000FE0007F0 +0000FE0001F80000FC0000FC0000FC00007E0001FC00007E0001FC00007F0001F800007F +0001F800007F0003F800007F0003F800007E0003F00000FE0003F00000FE0007F00001FC +0007F00001F80007E00003F00007E00007E0000FE0001FC0000FE0007F00000FC003FC00 +000FFFFFF800001FFFFFFE00001FC0003F80001F80000FC0001F80000FE0003F800007E0 +003F800007F0003F000007F0003F000003F0007F000003F0007F000003F0007E000007F0 +007E000007F000FE000007E000FE00000FE000FC00000FC000FC00001FC001FC00003F80 +01FC00007F0001F80000FE0001F80003F80003F8000FF000FFFFFFFFC000FFFFFFFC0000 +302D7CAC35>I<0000007FC003000003FFF80700001FC03E0F00007E00071F0001F80003 +BF0003F00001FE000FC00000FE001F8000007E003F0000007E007E0000007C00FC000000 +3C01F80000003C03F80000003C07F0000000380FE0000000380FE0000000381FC0000000 +381FC0000000303F80000000003F80000000007F80000000007F00000000007F00000000 +007F0000000000FF0000000000FE0000000000FE0000000000FE0000000000FE00000000 +00FE0000000000FE0000000180FE0000000380FE0000000300FE00000003007E00000007 +007E00000006007E0000000E003F0000001C003F00000038001F80000070000F800000E0 +0007C00001C00003E00007800001F8001E0000007E00F80000001FFFE000000003FF0000 +00302F7CAD32>I<003FFFFFFE0000003FFFFFFFC0000000FE0007F0000000FE0001F800 +0000FC00007E000000FC00003F000001FC00001F000001FC00001F800001F800000F8000 +01F800000FC00003F8000007C00003F8000007E00003F0000007E00003F0000007E00007 +F0000007E00007F0000007E00007E0000007E00007E0000007E0000FE0000007E0000FE0 +000007E0000FC000000FE0000FC000000FE0001FC000000FE0001FC000000FC0001F8000 +001FC0001F8000001FC0003F8000001F80003F8000003F80003F0000003F00003F000000 +3F00007F0000007E00007F0000007E00007E000000FC00007E000000F80000FE000001F8 +0000FE000003F00000FC000007E00000FC00000FC00001FC00001F000001FC00003E0000 +01F80000FC000001F80003F0000003F8001FC00000FFFFFFFF000000FFFFFFF800000033 +2D7CAC3A>I<003FFFFFFFFF80003FFFFFFFFF800000FE00007F800000FE00000F800000 +FC000007800000FC000007800001FC000003800001FC000003000001F8000003000001F8 +000003000003F8000003000003F8000003000003F0000003000003F0003003000007F000 +7003000007F0007000000007E0006000000007E000E00000000FE000E00000000FE001E0 +0000000FC007C00000000FFFFFC00000001FFFFFC00000001FC007C00000001F80038000 +00001F8003800000003F8003800000003F8003800000003F0003000C00003F0003000C00 +007F0003001C00007F0000001800007E0000003800007E000000300000FE000000700000 +FE000000E00000FC000000E00000FC000001C00001FC000003C00001FC000007800001F8 +00000F800001F800001F800003F80001FF0000FFFFFFFFFF0000FFFFFFFFFE0000312D7D +AC34>I<003FFFFFFFFF003FFFFFFFFF0000FE00007F0000FE00001F0000FC00000F0000 +FC00000F0001FC0000070001FC0000060001F80000060001F80000060003F80000060003 +F80000060003F00000060003F00030060007F00070060007F00070000007E00060000007 +E000E000000FE000E000000FE001E000000FC007C000000FFFFFC000001FFFFFC000001F +C007C000001F80038000001F80038000003F80038000003F80038000003F00030000003F +00030000007F00030000007F00000000007E00000000007E0000000000FE0000000000FE +0000000000FC0000000000FC0000000001FC0000000001FC0000000001F80000000001F8 +0000000003F800000000FFFFF0000000FFFFF0000000302D7DAC2D>I<003FFFFC0FFFFF +003FFFFC0FFFFF0000FE00003F800000FE00003F800000FC00003F000000FC00003F0000 +01FC00007F000001FC00007E000001F800007E000001F800007E000003F80000FE000003 +F80000FC000003F00000FC000003F00000FC000007F00001FC000007F00001F8000007E0 +0001F8000007E00001F800000FE00003F800000FE00003F000000FC00003F000000FFFFF +FFF000001FFFFFFFF000001FC00007E000001F800007E000001F800007E000003F80000F +E000003F80000FC000003F00000FC000003F00000FC000007F00001FC000007F00001F80 +00007E00001F8000007E00001F800000FE00003F800000FE00003F000000FC00003F0000 +00FC00003F000001FC00007F000001FC00007E000001F800007E000001F800007E000003 +F80000FE0000FFFFE03FFFF800FFFFE03FFFF800382D7CAC3A>72 +D<003FFFFE0000003FFFFE00000000FF0000000000FE0000000000FC0000000000FC0000 +000001FC0000000001FC0000000001F80000000001F80000000003F80000000003F80000 +000003F00000000003F00000000007F00000000007F00000000007E00000000007E00000 +00000FE0000000000FE0000000000FC0000000000FC0000000001FC0000000001FC00000 +00001F80000000001F80000000003F80000000003F80000000003F00000180003F000001 +80007F00000380007F00000300007E00000700007E0000060000FE00000E0000FE00000E +0000FC00001C0000FC00003C0001FC00003C0001FC0000780001F80001F80001F80003F0 +0003F8001FF000FFFFFFFFF000FFFFFFFFE000292D7DAC30>76 D<003FFFFFFF0000003F +FFFFFFE0000000FE0007F0000000FE0001FC000000FC00007E000000FC00007E000001FC +00003F000001FC00003F000001F800003F000001F800003F800003F800003F000003F800 +007F000003F000007F000003F000007F000007F00000FE000007F00000FE000007E00000 +FC000007E00001F800000FE00003F000000FE00007E000000FC0001F8000000FC000FF00 +00000FFFFFF80000001FFFFFC00000001F8000000000001F8000000000001F8000000000 +003F8000000000003F0000000000003F0000000000003F0000000000007F000000000000 +7E0000000000007E0000000000007E000000000000FE000000000000FC000000000000FC +000000000000FC000000000001FC000000000001F8000000000001F8000000000003F800 +00000000FFFFE000000000FFFFE000000000312D7DAC2D>80 D<0000007FC000000007FF +F80000001F80FE0000007C001F800001F8000FC00007E00007E0000FC00003F0001F0000 +01F0003E000001F8007E000000FC00FC000000FC01F8000000FC03F0000000FE07F00000 +007E07E00000007E0FE00000007E1FC00000007E1FC00000007E3F800000007E3F800000 +00FE3F80000000FE7F00000000FE7F00000000FE7F00000000FEFE00000001FCFE000000 +01FCFE00000001FCFE00000003F8FE00000003F8FE00000003F0FE00000007F0FC000000 +07E0FE0000000FE0FE0000000FC0FE0000001F807E0000003F007E003E003F003E00FF00 +7E003F01C380FC001F0381C1F8001F8700C3E0000FC600CFC00007E600DF000003F600FE +000000FF03F80000003FFFE001800007FEE00180000000E00380000000F00300000000F0 +0700000000F00F00000000F83E00000000FFFE00000000FFFC00000000FFF800000000FF +F8000000007FF0000000007FC0000000001F00002F3B7CAD38>I<003FFFFFF80000003F +FFFFFF00000000FE001FC0000000FE0007E0000000FC0003F0000000FC0001F8000001FC +0000FC000001FC0000FC000001F80000FE000001F80000FE000003F80000FE000003F800 +01FC000003F00001FC000003F00001FC000007F00003F8000007F00003F0000007E00007 +E0000007E0000FC000000FE0001F8000000FE0007E0000000FC003F80000000FFFFFE000 +00001FFFFF000000001FC007C00000001F8003E00000001F8001F00000003F8001F80000 +003F8000F80000003F0000FC0000003F0000FC0000007F0001FC0000007F0001FC000000 +7E0001F80000007E0001F8000000FE0003F8000000FE0003F8000000FC0003F8000000FC +0003F8000001FC0003F8038001FC0003F8030001F80003F8030001F80003F8070003F800 +01FC0E00FFFFE000FC3C00FFFFE0007FF000000000000FC000312E7CAC35>I +86 DI<000FFFFC007FFF00 +0FFFFC007FFF00007FC0000FF000003F80000F8000003F80000F0000001FC0001E000000 +1FC000180000000FC000300000000FE0006000000007E000C000000007F0018000000003 +F0030000000003F8060000000003F80C0000000001FC180000000001FC300000000000FE +600000000000FEC000000000007F8000000000007F0000000000003F8000000000003F80 +00000000001FC000000000003FC000000000006FC00000000000CFE0000000000187E000 +0000000307F0000000000703F0000000000E03F8000000001C03F8000000003801FC0000 +00007001FC00000000E000FE00000001C000FE0000000380007F0000000700007F000000 +0E00003F8000001C00003F8000003800001FC000007000001FC00001F000001FE00007F8 +00003FE000FFFE0003FFFF00FFFE0003FFFF00382D7EAC3A>I<0000078000001FC00000 +3CE0000078600000F0600001E0600001E0600003C0600003C0E0000780C0000F80C0000F +80C0001F01C0001F0180001F0180003E0380003E0300003E0700007C0600007C0E00007C +1C0000FC180000F8380000F8700000F8E00001F8C00001F1C00001F3800001F7000001FE +000001FC000003F8000003F0000003E0000003E0000003E0000007E000000FE000001DE0 +000039E0000071E00040E1E000C000E003C000F0070000F00E0000787C00003FF000000F +80001B3080AE1D>96 D<0007E000001FF800007C1CE000F80DE001F00FE003E007E007C0 +07E00FC007E01F8007C01F8007C03F0007C03F000FC07F000F807E000F807E000F807E00 +1F80FE001F00FC001F00FC001F00FC003F02FC003E06FC003E06F8003E06F8007E0E7C00 +FE0C7C00FC0C7C01FC1C3E07BE181F0E1E380FFC0FF003F003C01F1F7D9D25>I<00F800 +001FF800001FF8000001F8000001F8000001F0000001F0000003F0000003F0000003E000 +0003E0000007E0000007E0000007C0000007C000000FC000000FC7E0000F9FF8000FB83C +001FF01E001FE01F001FC01F001F800F803F000F803F000F803E000F803E000F807E001F +807E001F807C001F807C001F807C003F80FC003F00F8003F00F8003F00F8007E00F8007E +00F8007C00F800FC00F800F8007801F0007803F0007807E0003C0F80001E1F00000FFC00 +0003F00000192F7DAD1E>I<0001F800000FFE00003E0780007C018001F801C003F007C0 +07E00FC00FC00FC00F800F801F800F803F0000003F0000007F0000007E0000007E000000 +7E000000FE000000FC000000FC000000FC000000FC000000FC000000FC0000607C0000E0 +7C0001C07C0003803E000F001E001C000F81F80007FFE00000FE00001B1F7D9D1F>I<00 +00001F000003FF000003FF0000003F0000003F0000003E0000003E0000007E0000007E00 +00007C0000007C000000FC000000FC000000F8000000F8000001F80007E1F8001FF9F000 +7C1DF000F80FF001F00FF003E007E007C007E00FC007E01F8007E01F8007C03F0007C03F +000FC07F000FC07E000F807E000F807E001F80FE001F80FC001F00FC001F00FC003F02FC +003F06FC003E06F8003E06F8007E0E7C00FE0C7C00FC0C7C01FC1C3E07BE181F0E1E380F +FC0FF003F003C0202F7DAD24>I<0003F800000FFE00003E078000F8038001F003C003E0 +01C007C001C00FC003C01F8003801F8007803F000F003F001E007F01FC007FFFF0007FFF +00007E000000FE000000FC000000FC000000FC000000FC0000007C0000007C0000607C00 +00E07C0001C03E0003803E000F001F001C000F81F80003FFE00000FE00001B1F7D9D21> +I<0000007C00000001FF00000007C38000000F878000000F0F8000001F1F8000001F1F80 +00001F1F8000003E0E0000003E000000003E000000003E000000007E000000007C000000 +007C000000007C000000007C00000000FC0000003FFFF800003FFFF8000000F800000000 +F800000000F800000001F800000001F000000001F000000001F000000001F000000003F0 +00000003E000000003E000000003E000000003E000000007E000000007C000000007C000 +000007C000000007C000000007C00000000FC00000000F800000000F800000000F800000 +000F800000001F800000001F000000001F000000001F000000001F000000003E00000000 +3E000000003E000000383C000000FC3C000000FC78000000FC78000000FCF0000000F0F0 +000000E1E00000007FC00000001F00000000213D7CAE22>I<0000FC000003FF00000F83 +9C001F01BC003E01FC007C00FC00F800FC01F800FC03F000FC03F000F807E000F807E001 +F80FE001F80FC001F00FC001F00FC003F01FC003F01F8003E01F8003E01F8007E01F8007 +E01F8007C01F8007C00F800FC00F801FC007803F8007C07F8003E1FF8000FF9F80003E1F +0000001F0000003F0000003F0000003E0000003E0000007E0038007C00FC00FC00FC00F8 +00FC01F000F807E000F00F80007FFE00001FF800001E2C7E9D22>I<001F00000003FF00 +000003FF000000003F000000003F000000003E000000003E000000007E000000007E0000 +00007C000000007C00000000FC00000000FC00000000F800000000F800000001F8000000 +01F83F000001F1FFC00001F3C1F00003FF00F00003FC00F80003F800F80003F800F80007 +F000F80007E000F80007E000F80007C000F8000FC001F8000FC001F0000F8001F0000F80 +01F0001F8003F0001F8003E0001F0003E0001F0007E0003F0007C0403F0007C0C03E000F +C0C03E000F80C07E000F81C07E001F01807C001F03807C001F0700FC000F0600FC000F1E +00F80007F800700001E000222F7DAD29>I<000700000F80001FC0001FC0000F80000700 +00000000000000000000000000000000000000000000000000000001E00007F8000E3C00 +1C3E00383E00303E00703E00607E00E07C00C07C00C0FC0080F80000F80001F80001F000 +03F00003E00003E00007E00007C04007C0C00FC0C00F80C00F81C01F01801F03801F0700 +0F06000F1E0007F80001F000122E7EAC18>I<000000E0000001F0000003F0000003F000 +0003F0000001C00000000000000000000000000000000000000000000000000000000000 +0000000000000000007C000003FE0000078F80000E0780001C0780003807C0003007C000 +700FC000600F8000E00F8000C00F8000801F8000001F8000001F0000001F0000003F0000 +003F0000003E0000003E0000007E0000007E0000007C0000007C000000FC000000FC0000 +00F8000000F8000001F8000001F8000001F0000001F0000003F0000003F0000003E00000 +03E0000007E0003807C000FC0FC000FC0F8000FC1F0000F83E0000F0F800007FF000001F +8000001C3B81AC1D>I<001F000003FF000003FF0000003F0000003F0000003E0000003E +0000007E0000007E0000007C0000007C000000FC000000FC000000F8000000F8000001F8 +000001F800F801F003FC01F00F0E03F01C1E03F0387E03E0707E03E0E07E07E1C07E07E3 +803807C7000007CE00000FDC00000FF800000FF800000FFF80001F9FE0001F83F0001F01 +F8001F00F8003F00F8043F00F80C3E00F80C3E00F80C7E00F81C7E00F8187C00F0387C00 +F830FC00F870FC0078E0F8003FC070000F801F2F7DAD25>I<007C0FFC0FFC00FC00FC00 +F800F801F801F801F001F003F003F003E003E007E007E007C007C00FC00FC00F800F801F +801F801F001F003F003F003E003E007E007E007C007C00FC08FC18F818F818F838F830F0 +30F070F86078E03FC00F000E2F7DAD15>I<078007F0007E00001FE01FFC03FF800018F0 +781F0783E0003878E00F1E01E0003079C00FB801F000707F800FB001F000607F000FF001 +F00060FE000FE001F000E0FE000FC001F000C0FC000FC001F000C0F8000F8001F00081F8 +001F8003F00001F8001F8003E00001F0001F0003E00001F0001F0003E00003F0003F0007 +E00003F0003F0007C00003E0003E0007C00003E0003E000FC00007E0007E000F808007E0 +007E000F818007C0007C001F818007C0007C001F01800FC000FC003F03800FC000FC003E +03000F8000F8003E07000F8000F8003E0E001F8001F8001E0C001F8001F8001E3C001F00 +01F0000FF0000E0000E00003E000391F7E9D3E>I<07C007E0001FE03FF80018F8783E00 +3879E01E00307B801F00707F001F00607F001F0060FE001F00E0FC001F00C0FC001F00C0 +F8001F0081F8003F0001F8003E0001F0003E0001F0003E0003F0007E0003F0007C0003E0 +007C0003E000FC0007E000F80807E000F81807C001F81807C001F0180FC001F0380FC003 +E0300F8003E0700F8003E0E01F8001E0C01F8001E3C01F0000FF000E00003E00251F7E9D +2B>I<007C01F80000FE07FE0001CF8E0F0003879C07800307B807C00707F007C00607E0 +03E0060FC003E00E0F8003E00C0F8003E00C0F8003E0081F8007E0001F8007E0001F0007 +E0001F0007E0003F000FE0003F000FC0003E000FC0003E000FC0007E001F80007E001F80 +007C001F00007C003F0000FC003E0000FC007C0000FC00FC0000FE01F80001FF03E00001 +FB87C00001F1FF000001F0FC000003F000000003F000000003E000000003E000000007E0 +00000007E000000007C000000007C00000000FC00000000FC0000000FFFC000000FFFC00 +0000232B829D24>112 D<0007E030001FF870007C1CF000F80DF001F00FF003E007E007 +C007E00FC003E01F8007E01F8007C03F0007C03F0007C07F000FC07E000F807E000F807E +000F80FE001F80FC001F00FC001F00FC001F00FC003F00FC003E00F8003E00F8007E007C +00FE007C00FC007C01FC003E07FC001F0EFC000FFCF80003F0F8000000F8000001F80000 +01F0000001F0000001F0000003F0000003E0000003E0000007E0000007E00000FFFE0000 +FFFE001C2B7D9D20>I<07C01F000FF07FC01CF8E0E03879C1E0307B87E0707F07E0607E +07E060FC07E0E0FC0380C0F80000C0F8000081F8000001F8000001F0000001F0000003F0 +000003F0000003E0000003E0000007E0000007E0000007C0000007C000000FC000000FC0 +00000F8000000F8000001F8000001F8000001F0000000E0000001B1F7E9D20>I<0007E0 +003FF800781E00F00601E00703C00F03C01F03C01F07C01E07C00C07E00007F80007FF80 +03FFE001FFF000FFF8003FFC0001FC0000FC00007C78003CFC003CFC003CFC007CF80078 +E000F8E000F06001E07807C01FFF0007F800181F7C9D21>I<000E00001F00001F00003F +00003F00003E00003E00007E00007E00007C00007C0000FC0000FC00FFFFF8FFFFF801F8 +0001F80001F00001F00003F00003F00003E00003E00007E00007E00007C00007C0000FC0 +000FC0000F80000F80001F80101F80301F00301F00701F00601F00E01E01C01E03801F07 +000F0E0007FC0001F000152B7EA919>I<003F007C0000FFC1FF0001C1E383800380F703 +C00700F60FC00E00FE0FC01C00FC0FC01800FC0FC03800FC07003000F800003000F80000 +2001F800000001F000000001F000000001F000000003F000000003E000000003E0000000 +03E000000007E001000007E003000007C003003807C007007C0FC00600FC0FC00E00FC1F +C00C00FC1BC01C00F03BE038007071E0F0003FE0FFC0000F803F0000221F7E9D28>120 +D<01E0000007F8000E0E3C001F1C3E003F383E003E303E003E703E003E607E007EE07C00 +7CC07C007CC0FC007C80F800FC00F800F801F800F801F000F801F001F803F001F003E001 +F003E001F003E003F007E003E007C003E007C003E007C007E007C007C003C00FC003E01F +C003E03FC001F07F80007FEF80001F8F8000001F8000001F0000001F003E003E003E003E +007E007C007E00F8007C01F0007003E0003007C0003C0F80000FFE000003F00000202C7E +9D23>I<001E0030003F803000FFC07001FFE0E001FFF1C003C0FFC003803F8003000700 +07000E0000001C0000003800000070000000E0000001C0000003800000070000001E0000 +003800000070000000E0004001C000C0038000C0070001C00E0003800FE007801FF81F00 +387FFF00703FFE00601FFC00E00FF000C003C0001C1F7D9D21>I +E /Fi 36 122 df<000000007000000000E000000001C000000003800000000700000000 +0E000000003C000000007800000000F800000000F000000001E000000003C00000000780 +0000000F800000001F000000001E000000003E000000007C000000007800000000F80000 +0001F000000001E000000003E000000007C000000007C00000000F800000000F80000000 +1F000000001F000000003F000000003E000000007E000000007C000000007C00000000F8 +00000000F800000001F800000001F000000001F000000003F000000003E000000003E000 +000007E000000007C000000007C00000000FC00000000FC00000000F800000000F800000 +001F800000001F800000001F000000001F000000003F000000003F000000003E00000000 +3E000000003E000000007E000000007E000000007C000000007C000000007C000000007C +000000007C000000007C00000000F800000000F800000000F800000000F800000000F800 +000000F800000000F800000000F800000000F800000000F800000000F800000000780000 +0000780000000078000000007800000000780000000078000000007C000000003C000000 +003C000000003C000000003C000000001E000000001E000000000E000000000F00000000 +0F0000000007000000000380000000038000000001C000000001C000000000E000000000 +60000000246472CA28>40 D<000000600000000060000000007000000000380000000038 +000000001C000000001E000000000E000000000F000000000F0000000007000000000780 +0000000780000000078000000003C000000003C000000003C000000003C000000003C000 +000003E000000003E000000001E000000001E000000001E000000001E000000001E00000 +0001E000000001E000000003E000000003E000000003E000000003E000000003E0000000 +03E000000003E000000003E000000003E000000007E000000007E000000007C000000007 +C000000007C000000007C00000000FC00000000FC00000000F800000000F800000001F80 +0000001F800000001F000000001F000000003F000000003F000000003E000000003E0000 +00007E000000007E000000007C00000000FC00000000FC00000000F800000001F8000000 +01F800000001F000000003F000000003E000000003E000000007E000000007C00000000F +C00000000F800000000F800000001F000000001F000000003E000000003E000000007C00 +0000007800000000F800000001F000000001F000000003E000000003C000000007C00000 +000F800000000F000000001E000000003E000000007C000000007800000000F000000001 +E000000003C000000007800000000F000000001E000000003C000000007800000000E000 +000000C00000000023647FCA28>I<00F003FC07FC07FC0FFE0FFE0FFE0FFE07FC03CC00 +0C001C00180018003800300070006000E001C00180038007000E001C0038007000E000C0 +000F1D7A891E>44 D<7FFFFFFFFFFFFFFFFFFFFFFEFFFFFE1805789723>I<0F003FC07F +C07FC0FFC0FFC0FFC0FF807F003C000A0A76891E>I<0000000000038000000000000007 +8000000000000007800000000000000FC00000000000000FC00000000000001FC0000000 +0000001FC00000000000003FC00000000000007FC00000000000007FC0000000000000FF +C0000000000000FFC0000000000001FFC0000000000001FFC0000000000003BFC0000000 +000007BFC00000000000073FC000000000000F3FC000000000000E3FC000000000001C3F +C000000000001C3FE00000000000383FE00000000000381FE00000000000701FE0000000 +0000F01FE00000000000E01FE00000000001C01FE00000000001C01FE00000000003801F +E00000000003801FE00000000007001FE00000000007001FE0000000000E001FE0000000 +001E001FE0000000001C001FE00000000038001FE00000000038001FF00000000070001F +F00000000070000FF000000000E0000FF000000001E0000FF000000001C0000FF0000000 +03C0000FF00000000380000FF00000000700000FF000000007FFFFFFF00000000FFFFFFF +F00000000FFFFFFFF00000001C00000FF00000003C00000FF00000003800000FF0000000 +7000000FF00000007000000FF0000000E000000FF8000000E000000FF8000001C0000007 +F8000001C0000007F800000380000007F800000780000007F800000700000007F800000E +00000007F800001E00000007F800001E00000007F800003C00000007F800007C00000007 +F80000FC00000007F80001FC0000000FFC0007FE0000001FFC00FFFFE00007FFFFF8FFFF +E00007FFFFF8FFFFE00007FFFFF03D477BC648>65 D<0000FFFFFFFFFC00000000FFFFFF +FFFF80000000FFFFFFFFFFE000000001FF80001FF000000000FF000007F800000001FF00 +0003FC00000001FF000001FE00000001FE000001FF00000001FE000000FF00000001FE00 +0000FF80000003FE0000007F80000003FC0000007F80000003FC0000007F80000003FC00 +00007F80000007FC0000007F80000007F80000007F80000007F8000000FF80000007F800 +0000FF8000000FF8000000FF0000000FF0000001FF0000000FF0000001FE0000000FF000 +0003FE0000001FF0000003FC0000001FE0000007F80000001FE000000FF80000001FE000 +001FF00000003FE000003FE00000003FC000007F800000003FC00000FF000000003FC000 +03FC000000007FC0000FF8000000007F8000FFC0000000007FFFFFFF00000000007FFFFF +FFE000000000FF800007F800000000FF000001FC00000000FF000000FE00000000FF0000 +007F00000001FF0000007F80000001FE0000003FC0000001FE0000003FC0000001FE0000 +003FC0000003FE0000003FE0000003FC0000003FE0000003FC0000003FE0000003FC0000 +003FE0000007FC0000003FE0000007F80000003FE0000007F80000003FE0000007F80000 +003FE000000FF80000003FC000000FF00000007FC000000FF00000007FC000000FF00000 +00FF8000001FF0000000FF8000001FE0000001FF0000001FE0000001FE0000001FE00000 +03FE0000003FE0000007FC0000003FC000000FF80000003FC000001FF00000007FC00000 +3FE00000007FC000007FC00000007F800001FF00000000FF80000FFE000000FFFFFFFFFF +F8000000FFFFFFFFFFC0000000FFFFFFFFFE0000000041447AC345>I<000000000FF800 +0300000000FFFF000700000007FFFFC00F0000001FF803E01F0000007FC000F81E000000 +FF00007C3E000003FC00003C7E00000FF000001EFE00001FE000000FFC00003FC0000007 +FC00007F00000007FC0000FE00000003FC0001FC00000003F80003FC00000003F80007F8 +00000001F8000FF000000001F8001FE000000001F0003FC000000001F0007FC000000001 +F0007F8000000001F000FF8000000001E001FF0000000001E001FF0000000001E003FE00 +00000001E003FE0000000001C007FC0000000001C007FC0000000001C00FF80000000001 +C00FF80000000000001FF80000000000001FF00000000000001FF00000000000003FF000 +00000000003FE00000000000003FE00000000000003FE00000000000007FE00000000000 +007FC00000000000007FC00000000000007FC00000000000007FC0000000000000FF8000 +0000000000FF80000000000000FF80000000000000FF80000000000000FF800000000038 +00FF80000000003800FF80000000007800FF80000000007000FF80000000007000FF8000 +000000F0007F8000000000E0007F8000000001E0007F8000000001C0007F8000000003C0 +003F800000000380003F800000000780003FC00000000F00001FC00000000E00001FC000 +00001E00000FE00000003C00000FF000000078000007F0000000F0000003F8000001E000 +0003FC000007C0000001FE00000F800000007F00003E000000003FC000FC000000001FF8 +07F00000000007FFFFC00000000001FFFF0000000000001FF000000000404872C546>I< +0000FFFFFFFFFFFFC00000FFFFFFFFFFFFC00000FFFFFFFFFFFFC0000001FF800003FF80 +000000FF0000007F80000001FF0000003F80000001FF0000001F80000001FE0000000F80 +000001FE0000000F80000001FE0000000F80000003FE0000000700000003FC0000000700 +000003FC0000000700000003FC0000000700000007FC0000000700000007F80000000F00 +000007F80000000E00000007F80000000E0000000FF80000000E0000000FF00007000E00 +00000FF00007000E0000000FF0000F000E0000001FF0000E00000000001FE0000E000000 +00001FE0000E00000000001FE0001E00000000003FE0001C00000000003FC0003C000000 +00003FC0007C00000000003FC000FC00000000007FC003F800000000007FFFFFF8000000 +00007FFFFFF800000000007FFFFFF80000000000FF8003F00000000000FF0001F0000000 +0000FF0000F00000000000FF0000F00000000001FF0000E00000000001FE0000E0000000 +0001FE0000E00000000001FE0001E00000000003FE0001C00070000003FC0001C0007000 +0003FC0001C000F0000003FC0001C000E0000007FC00000000E0000007F800000001E000 +0007F800000001C0000007F800000003C000000FF8000000038000000FF0000000078000 +000FF0000000070000000FF00000000F0000001FF00000000F0000001FE00000001E0000 +001FE00000003E0000001FE00000003C0000003FE00000007C0000003FC0000000FC0000 +003FC0000001F80000007FC0000003F80000007FC000000FF00000007F8000003FF00000 +00FF800003FFE00000FFFFFFFFFFFFE00000FFFFFFFFFFFFE00000FFFFFFFFFFFFC00000 +42447AC342>69 D<0000FFFFFF803FFFFFE00000FFFFFF803FFFFFE00000FFFFFF803FFF +FFE0000001FF8000007FE000000000FF0000003FC000000001FF0000007FC000000001FF +0000007FC000000001FE0000007F8000000001FE0000007F8000000001FE000000FF8000 +000003FE000000FF8000000003FC000000FF0000000003FC000000FF0000000003FC0000 +01FF0000000007FC000001FF0000000007F8000001FE0000000007F8000001FE00000000 +07F8000003FE000000000FF8000003FE000000000FF0000003FC000000000FF0000003FC +000000000FF0000007FC000000001FF0000007FC000000001FE0000007F8000000001FE0 +000007F8000000001FE000000FF8000000003FE000000FF8000000003FC000000FF00000 +00003FC000000FF0000000003FC000001FF0000000007FC000001FF0000000007FFFFFFF +FFE0000000007FFFFFFFFFE0000000007FFFFFFFFFE000000000FF8000003FE000000000 +FF0000003FC000000000FF0000003FC000000000FF0000007FC000000001FF0000007FC0 +00000001FE0000007F8000000001FE0000007F8000000001FE000000FF8000000003FE00 +0000FF8000000003FC000000FF0000000003FC000000FF0000000003FC000001FF000000 +0007FC000001FF0000000007F8000001FE0000000007F8000001FE0000000007F8000003 +FE000000000FF8000003FE000000000FF0000003FC000000000FF0000003FC000000000F +F0000007FC000000001FF0000007FC000000001FE0000007F8000000001FE0000007F800 +0000001FE000000FF8000000003FE000000FF8000000003FC000000FF0000000003FC000 +000FF0000000007FC000001FF0000000007FC000001FF0000000007F8000001FE0000000 +00FFC000003FF0000000FFFFFF803FFFFFE00000FFFFFF803FFFFFE00000FFFFFF803FFF +FFE000004B447AC348>72 D<00007FFFFFE00000FFFFFFE00000FFFFFFE0000000FFE000 +0000007F8000000000FF8000000000FF8000000000FF0000000000FF0000000000FF0000 +000001FF0000000001FE0000000001FE0000000001FE0000000003FE0000000003FC0000 +000003FC0000000003FC0000000007FC0000000007F80000000007F80000000007F80000 +00000FF8000000000FF0000000000FF0000000000FF0000000001FF0000000001FE00000 +00001FE0000000001FE0000000003FE0000000003FC0000000003FC0000000003FC00000 +00007FC0000000007F80000000007F80000000007F8000000000FF8000000000FF000000 +0000FF0000000000FF0000000001FF0000000001FE0000000001FE0000000001FE000000 +0003FE0000000003FC0000000003FC0000000003FC0000000007FC0000000007F8000000 +0007F80000000007F8000000000FF8000000000FF0000000000FF0000000000FF0000000 +001FF0000000001FE0000000001FE0000000003FE0000000003FE0000000003FC0000000 +00FFE0000000FFFFFFE00000FFFFFFE00000FFFFFFC000002B447BC326>I<01FFFFFFFF +FFFFF803FFFFFFFFFFFFF803FFFFFFFFFFFFF803FF0007FC001FF007F80007F80007F007 +E0000FF80003F007C0000FF80001F00F80000FF00001F00F00000FF00000F00F00000FF0 +0000F01E00001FF00000E01E00001FE00000E01C00001FE00000E03C00001FE00000E038 +00003FE00000E03800003FC00001E07800003FC00001C07000003FC00001C0F000007FC0 +0001C0E000007F800001C0E000007F800001C0E000007F800001C0000000FF8000000000 +0000FF00000000000000FF00000000000000FF00000000000001FF00000000000001FE00 +000000000001FE00000000000001FE00000000000003FE00000000000003FC0000000000 +0003FC00000000000003FC00000000000007FC00000000000007F800000000000007F800 +000000000007F80000000000000FF80000000000000FF00000000000000FF00000000000 +000FF00000000000001FF00000000000001FE00000000000001FE00000000000001FE000 +00000000003FE00000000000003FC00000000000003FC00000000000003FC00000000000 +007FC00000000000007F800000000000007F800000000000007F80000000000000FF8000 +0000000000FF00000000000000FF00000000000000FF00000000000001FF000000000000 +01FE00000000000001FE00000000000003FE00000000000003FE00000000000007FE0000 +000000000FFF00000000007FFFFFFFC00000007FFFFFFFC00000007FFFFFFF800000003D +446FC346>84 D87 +D<00001F80000000007FE000000001F07070000007C039F800000F801DF800001F001FF8 +00003E000FF000007E000FF00000FC000FF00001F80007F00001F80007E00003F00007E0 +0007F00007E00007E0000FE0000FE0000FC0000FE0000FC0001FC0000FC0001FC0001FC0 +003FC0001F80003F80001F80003F80001F80003F80003F80007F80003F00007F00003F00 +007F00003F00007F00007F00007F00007E0000FE00007E0000FE00007E0000FE0000FE03 +80FE0000FC0780FE0000FC0700FE0000FC07007E0001FC07007E0001FC0F007E0003F80E +007E0007F80E003E000FF81E003E000FF81C001F001CF81C001F0038F838000F80F07878 +0007C3E07C700001FF801FE000007E00078000292D76AB32>97 D<000FE0000007FFE000 +0007FFE0000007FFE00000001FC00000000FC00000001FC00000001FC00000001F800000 +001F800000001F800000003F800000003F000000003F000000003F000000007F00000000 +7E000000007E000000007E00000000FE00000000FC00000000FC00000000FC00000001FC +00000001F800000001F81F800001F87FE00003F9E0F80003F3C07C0003F7003E0003FE00 +3E0007FC001F0007F8001F0007F8001F0007F0001F800FE0001F800FE0001F800FC0001F +800FC0001F801FC0001F801F80001F801F80001F801F80003F803F80003F803F00003F80 +3F00003F803F00007F807F00007F007E00007F007E00007F007E0000FF007E0000FE00FC +0000FE00FC0000FE00FC0001FC00FC0001FC00FC0003F800FC0003F8007C0003F0007C00 +07E0007C000FE0007C000FC0007C001F80003C003F00003E007E00001E00FC00000F01F8 +00000783E0000003FF80000000FE000000214676C42D>I<00000FE00000007FF8000001 +F81E000007E00F00000F800780001F000380007E0003C000FC001FC001FC003FC001F800 +3FC003F0007F8007F0007F800FE0007F800FE0003E001FC00000001FC00000003F800000 +003F800000007F800000007F000000007F000000007F00000000FF00000000FE00000000 +FE00000000FE00000000FE00000000FC00000000FC00000000FC00000000FC00000000FC +00000000FC00000180FC000003C0FC00000780FC000007807C00000F007E00001E003E00 +007C003E0000F0001F0003E0000F800F800007C07E000001FFF80000007FC00000222D75 +AB2D>I<0000000007F000000003FFF000000003FFF000000003FFF0000000000FE00000 +000007E0000000000FE0000000000FE0000000000FC0000000000FC0000000001FC00000 +00001FC0000000001F80000000001F80000000003F80000000003F80000000003F000000 +00003F00000000007F00000000007F00000000007E00000000007E0000000000FE000000 +0000FE0000000000FC0000001F80FC0000007FE1FC000001F071FC000007C039F800000F +801DF800001F001FF800003E000FF800007E000FF00000FC000FF00001F80007F00001F8 +0007F00003F00007E00007F00007E00007E0000FE0000FE0000FE0000FE0000FC0001FC0 +000FC0001FC0001FC0003FC0001FC0003F80001F80003F80001F80003F80003F80007F80 +003F80007F00003F00007F00003F00007F00007F00007F00007F0000FE00007E0000FE00 +007E0000FE0000FE0380FE0000FE0780FE0000FC0700FE0000FC07007E0001FC07007E00 +01FC0F007E0003F80E007E0007F80E003E000FF81E003E000FF81C001F001CF81C001F00 +38F838000F80F078780007C3E07C700001FF801FE000007E000780002C4676C432>I<00 +000FE00000007FF8000001F83E000007C00F00001F800780003F000780007E0007C000FC +0003C001F80003C003F00007C007F000078007E00007800FE0000F801FC0000F001FC000 +1F003F80003E003F8000FC003F8007F0007F80FFC0007FFFFE00007FFFC000007F000000 +00FF00000000FE00000000FE00000000FE00000000FE00000000FE00000000FC00000000 +FC00000000FC00000000FC00000000FC00000180FC000003C07C000007807C000007807E +00000F003E00001E003E00007C001F0000F0000F0003E00007800F800003C07E000001FF +F80000003FC00000222D75AB2D>I<000000000F80000000003FE000000000F870000000 +01F03800000003E0F800000007E1FC00000007C3FC0000000FC7FC0000000FC7FC000000 +0F87F80000001F83F00000001F81E00000001F80000000003F80000000003F0000000000 +3F00000000003F00000000003F00000000007F00000000007E00000000007E0000000000 +7E00000000007E0000000000FE0000000000FC0000000000FC0000000000FC00000001FF +FFFE000001FFFFFE000001FFFFFE00000001F80000000001F80000000001F80000000003 +F80000000003F00000000003F00000000003F00000000003F00000000007F00000000007 +E00000000007E00000000007E00000000007E0000000000FE0000000000FC0000000000F +C0000000000FC0000000000FC0000000001FC0000000001F80000000001F80000000001F +80000000001F80000000003F80000000003F00000000003F00000000003F00000000003F +00000000003F00000000007F00000000007E00000000007E00000000007E0000000000FE +0000000000FC0000000000FC0000000000FC0000000000FC0000000001FC0000000001F8 +0000000001F80000000001F80000000001F80000000003F00000000003F00000000003F0 +0000000003E00000000007E00000001C07E00000007F07C0000000FF07C0000000FF0F80 +000000FF0F80000000FF0F00000000FE1F00000000F81E00000000F03C00000000787800 +0000001FF00000000007C0000000002E5A83C51E>I<000000FC0000000003FF00000000 +0F83838000003E01CFC000007C00EFC00000F800FFC00001F0007FC00003F0007F800007 +E0003F80000FC0003F80001FC0003F80001F80003F00003F80003F00003F00007F00007F +00007F00007F00007E0000FE00007E0000FE0000FE0001FE0000FE0001FC0000FC0001FC +0000FC0001FC0001FC0003FC0001FC0003F80001F80003F80001F80003F80003F80003F8 +0003F80003F00003F00003F00003F00003F00007F00003F00007F00003F00007E00003F0 +0007E00003F0000FE00003F0001FE00003F0001FC00001F0003FC00001F0007FC00000F8 +00FFC00000F801DF8000007C039F8000003E0F3F8000000FFC3F80000003F03F00000000 +003F00000000007F00000000007F00000000007E00000000007E0000000000FE00000000 +00FE0000000000FC0000000000FC00001C0001F800007F0001F80000FF0003F00000FF00 +07F00000FF000FE00000FE000FC00000FE003F000000F8007E0000007C01F80000001FFF +E000000003FF000000002A407BAB2D>I<0000FE000000007FFE000000007FFE00000000 +7FFE0000000001FC0000000000FC0000000001FC0000000001FC0000000001F800000000 +01F80000000003F80000000003F80000000003F00000000003F00000000007F000000000 +07F00000000007E00000000007E0000000000FE0000000000FE0000000000FC000000000 +0FC0000000001FC0000000001FC0000000001F80000000001F807F0000003F83FFC00000 +3F8F81F000003F1E00F800003F3800FC00007F70007C00007FE0007C00007FC0007E0000 +7FC0007E0000FF80007E0000FF00007E0000FF00007E0000FE00007E0001FC0000FE0001 +FC0000FC0001F80000FC0001F80000FC0003F80001FC0003F80001F80003F00001F80003 +F00001F80007F00003F80007F00003F00007E00003F00007E00007F0000FE00007E0000F +E00007E0000FC0000FE0000FC0000FC0001FC0000FC0781FC0001FC0701F80001F80701F +80001F80703F80003F80F03F80003F00E03F00003F00E03F00003F01E07F00003E01C07F +00003E03C07E00003E03807E00003E0700FE00001E0F00FE00001F1E00FC00000FF80038 +000003E0002D467AC432>I<00003C00007E0000FE0001FE0001FE0001FE0000FC000070 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000007C0001FF0003C7800703C00F03E00E03E01C03E01C07E03807E03807E0 +7807E0700FE0700FC0701FC0F01F80E01F80003F80003F00003F00007F00007E00007E00 +00FE0000FC0001FC0001F80001F80003F80003F00003F01E07F01C07E01C07E01C0FE03C +0FC0380FC0380FC0780F80700F80F00F80E00F81C00783C007C78003FE0000F800174378 +C11E>I<0000FE000000007FFE000000007FFE000000007FFE0000000001FC0000000000 +FC0000000001FC0000000001FC0000000001F80000000001F80000000003F80000000003 +F80000000003F00000000003F00000000007F00000000007F00000000007E00000000007 +E0000000000FE0000000000FE0000000000FC0000000000FC0000000001FC0000000001F +C0000000001F80000000001F80007E00003F8001FF00003F800783C0003F000E07C0003F +003C1FC0007F00701FC0007F00603FC0007E00E03FC0007E01C03FC000FE03803F8000FE +07000E0000FC0E00000000FC1C00000001FC3800000001FC7000000001F8E000000001F9 +C000000003FB8000000003FF0000000003FF0000000003FFF000000007F3FC00000007F0 +7F00000007E01FC0000007E00FE000000FE007E000000FE007F000000FC003F000000FC0 +03F000001FC003F00F001FC003F00F001F8003F00E001F8003F00E003F8003F01E003F80 +03F01C003F0003E01C003F0003E01C007F0003E038007F0003E038007E0003E078007E00 +03E07000FE0001E0E000FE0001F1E000FC00007F80003800001F00002A467AC42D>107 +D<0003F801FFF801FFF801FFF80007F00003F00007F00007F00007E00007E0000FE0000F +E0000FC0000FC0001FC0001FC0001F80001F80003F80003F80003F00003F00007F00007F +00007E00007E0000FE0000FE0000FC0000FC0001FC0001FC0001F80001F80003F80003F8 +0003F00003F00007F00007F00007E00007E0000FE0000FE0000FC0000FC0001FC0001FC0 +001F80001F80003F80003F80003F00003F00007F01C07F03C07E03807E03807E0780FE07 +00FC0700FC0700FC0F00FC0E007C1E007C1C003C3C003E78001FF00007C000154678C419 +>I<01F0000FE00007F0000003FC007FF8003FFC0000071E01F03E00F81F00000E1F03C0 +1F01E00F80001E0F87001F83800FC0001C0F8E000F870007C0003C0F9C000F8E0007C000 +380FB8000FDC0007E000380FF8000FFC0007E000781FF0000FF80007E000701FE0000FF0 +0007E000701FE0000FF00007E000701FC0000FE00007E000F01F80001FC0000FE000E03F +80001FC0000FC000E03F00001F80000FC000003F00001F80000FC000003F00003F80001F +C000007F00003F80001F8000007E00003F00001F8000007E00003F00001F8000007E0000 +7F00003F800000FE00007F00003F000000FC00007E00003F000000FC00007E00007F0000 +00FC0000FE00007E000001FC0000FE00007E000001F80000FC0000FE000001F80000FC00 +00FC000001F80001FC0000FC078003F80001FC0001FC070003F00001F80001F8070003F0 +0001F80001F8070003F00003F80003F80F0007F00003F80003F00E0007E00003F00003F0 +0E0007E00003F00003F01E0007E00007F00003E01C000FE00007F00003E03C000FC00007 +E00003E038000FC00007E00003E070000FC0000FE00001E0F0001FC0000FE00001F1E000 +1F80000FC00000FF8000070000038000003E0000492D78AB50>I<01F0000FE00003FC00 +7FF800071E01F03E000E0F03C01F001E0F87001F801C0F8E000F803C0F9C000F80380FB8 +000FC0380FF8000FC0781FF0000FC0701FE0000FC0701FE0000FC0701FC0000FC0F01F80 +001FC0E03F80001F80E03F00001F80003F00001F80003F00003F80007F00003F00007E00 +003F00007E00003F00007E00007F0000FE00007E0000FC00007E0000FC0000FE0000FC00 +00FC0001FC0000FC0001F80001FC0001F80001F80001F80001F80F03F80003F80E03F000 +03F00E03F00003F00E03F00007F01E07F00007E01C07E00007E01C07E00007E03C07E000 +07C0380FE00007C0780FC00007C0700FC00007C0E00FC00003C1E01FC00003E3C01F8000 +01FF00070000007C00302D78AB37>I<00000FE00000007FFC000001F83E000007E00F80 +000F8007C0001F0007C0007E0003E000FC0003F000FC0003F001F80001F003F00001F807 +F00001F80FE00001F80FE00001F81FC00001F81FC00001F83F800001F83F800003F87F80 +0003F87F000003F87F000003F87F000007F8FF000007F0FE000007F0FE000007F0FE0000 +0FF0FE00000FE0FC00000FE0FC00001FC0FC00001FC0FC00001F80FC00003F80FC00003F +00FC00007F00FC00007E00FC0000FC007C0001F8007E0003F0003E0003E0003E0007C000 +1F001F80000F803E000007C0FC000001FFF00000003F800000252D75AB32>I<0003E000 +7E000007F801FF80000E3C0783E0001C1E0F01F0003C1F1C00F800381F3800F800781F70 +007C00701FE0007C00701FE0007C00703FC0007E00E03F80007E00E03F80007E00E03F00 +007E01E07F00007E01C07F00007E01C07E00007E00007E00007E0000FE0000FE0000FE00 +00FE0000FC0000FE0000FC0000FE0001FC0001FE0001FC0001FC0001F80001FC0001F800 +01FC0003F80003FC0003F80003F80003F00003F80003F00003F80007F00007F00007F000 +07F00007E0000FE00007E0000FE0000FE0000FC0000FE0001F80000FE0003F80000FE000 +3F00001FF0007E00001FF000FC00001FF001F800001FB803F000003F9C07E000003F9E0F +8000003F07FE0000003F01F80000007F00000000007F00000000007E00000000007E0000 +000000FE0000000000FE0000000000FC0000000000FC0000000001FC0000000001FC0000 +000001F80000000001F80000000003F80000000003F80000000007F800000000FFFFF000 +0000FFFFF0000000FFFFE00000002F3F7FAB32>I<01F0003F8003FC01FFF0071E03C0F8 +0E0F0F007C1E0F9E01FC1C0F9C01FC1C0FB803FC380FF003FC380FF003FC381FE003F878 +1FE000E0701FC00000701FC00000F01F800000E03F800000E03F000000003F000000003F +000000007F000000007E000000007E000000007E00000000FE00000000FC00000000FC00 +000000FC00000001FC00000001F800000001F800000001F800000003F800000003F00000 +0003F000000003F000000007F000000007E000000007E000000007E00000000FE0000000 +0FC00000000FC00000000FC00000001FC00000001F800000000700000000262D78AB29> +114 D<00000FE00000007FF8000001F01E000003C00F000007800780000F000380001E00 +03C0001E0007C0003C001FC0003C001FC0007C003F800078003F80007C003F80007C000E +00007C000000007E000000007F000000007FF00000007FFF0000003FFFC000001FFFF000 +000FFFF8000007FFFC000000FFFC0000000FFE00000001FE00000000FE000000007F0000 +00003F000E00003F003F00001E007F80001E007F80001E007F80003E00FF00003C00FF00 +003C00FC000078007000007800700000F000780001E0003C0003C0001E000F80000F803E +000003FFF80000007FC00000222D7AAB28>I<000070000001F8000001F8000001F80000 +03F8000003F0000003F0000003F0000007F0000007E0000007E0000007E000000FE00000 +0FC000000FC000000FC000001FC000001F8000001F80007FFFFFE0FFFFFFE0FFFFFFC000 +3F0000003F0000007F0000007E0000007E0000007E000000FE000000FC000000FC000000 +FC000001FC000001F8000001F8000001F8000003F8000003F0000003F0000003F0000007 +F0000007E0000007E0000007E000000FE000000FC000000FC000000FC007801FC007001F +8007001F800F001F800E003F801E003F001C003F003C003F0038003F0070001F00F0001F +01E0000F03C0000F87800007FE000001F800001B3F78BD20>I<007C0000000001FF0000 +070003C780001F800703C0001F800F03E0001F800E03E0003F801C03E0003F801C07E000 +3F003807E0003F003807E0007F007807E0007F00700FE0007E00700FC0007E00701FC000 +FE00F01F8000FE00E01F8000FC00003F8000FC00003F0001FC00003F0001FC00007F0001 +F800007E0001F800007E0003F80000FE0003F80000FC0003F00000FC0003F00000FC0007 +F00001FC0007F00001F80007E00001F80007E00001F8000FE03803F8000FE07803F0000F +C07003F0000FC07003F0000FC07003F0001FC0F003F0001F80E003F0003F80E001F0003F +81E001F0007F81C001F800EF83C000F801EF8380007C03C78780003E0F07C700001FFE01 +FE000003F00078002D2D78AB34>I<007C00003801FF0000FC03C78001FE0703C001FE0F +03E001FE0E03E001FE1C03E000FE1C07E0007E3807E0007E3807E0003E7807E0003E700F +E0001E700FC0001E701FC0001EF01F80001CE01F80001C003F80001C003F00003C003F00 +0038007F000038007E000038007E00007800FE00007000FC00007000FC00007000FC0000 +F001FC0000E001F80000E001F80001E001F80001C001F80001C003F000038003F0000380 +03F000070003F000070003F0000E0001F0000E0001F0001C0001F800380000F800780000 +FC00F000007C01E000003F078000000FFF00000003F80000272D78AB2D>I<007C000000 +00038001FF00000E000FC003C780003F001FE00703C0003F001FE00E03E0003F001FE00E +03E0007F001FE01C03E0007E000FE01C07E0007E0007E03807E0007E0007E03807E000FE +0003E07807E000FC0003E0700FE000FC0003E0700FC000FC0001E0701FC001FC0001E0F0 +1F8001F80001C0E01F8001F80001C0003F8001F80001C0003F0003F80003C0003F0003F0 +000380007F0003F0000380007E0003F0000380007E0007F000078000FE0007F000070000 +FC0007E000070000FC0007E000070000FC000FE0000F0001FC000FE0000E0001F8000FC0 +000E0001F8000FC0000E0001F8000FC0001C0001F8000FC0001C0003F0001F80001C0003 +F0001F8000380003F0001F8000380003F0001F8000700001F0001F8000700001F0003F80 +00E00001F8003F8000E00001F8007FC001C00000F800F7C003C00000FC00E7E007800000 +7E01C3E00F0000001F0781F81E0000000FFF007FF800000001FC000FE000003B2D78AB41 +>I<0000F8003F000007FE00FFE0000F0F83C0F0001C07C780F8003803CF03F8007003EE +03F800E003FC07F801E003FC07F801C003F807F803C003F807F0038003F801C0078003F0 +0000070003F00000070007F000000F0007E000000E0007E00000000007E0000000000FE0 +000000000FC0000000000FC0000000000FC0000000001FC0000000001F80000000001F80 +000000001F80000000003F80000000003F00000000003F00000000003F00000000007F00 +03C000007F00038000007E00038000007E0003800000FE0007001E00FE0007003F00FE00 +0F007F81FC000E007F81FE001C00FF83FE003C00FF03BE007800FE079E00F0007C0F1F01 +E0003C1E0F83C0001FF803FF000007E000FC00002D2D7CAB2D>I<007C0000000001FF00 +00070003C780001F800703C0001F800F03E0001F800E03E0003F801C03E0003F001C07E0 +003F003807E0003F003807E0007F007807E0007E00700FE0007E00700FC0007E00701FC0 +00FE00F01F8000FC00E01F8000FC00003F8000FC00003F0001FC00003F0001F800007F00 +01F800007E0001F800007E0003F80000FE0003F00000FC0003F00000FC0003F00000FC00 +07F00001FC0007E00001F80007E00001F80007E00001F8000FE00003F8000FC00003F000 +0FC00003F0000FC00003F0001FC00003F0001F800003F0001F800003F0003F800001F000 +3F800001F0007F000001F800FF000000F801FF0000007C03FF0000003E0F7E0000001FFE +7E00000003F07E0000000000FE0000000000FC0000000000FC0000000001FC0000000001 +F800001F0001F800007F8003F000007F8003F000007F8007E00000FF000FC00000FF000F +800000FE001F800000F0003F00000070007E0000007800F80000003801F00000001E07C0 +0000000FFF0000000001FC00000000294078AB2F>I E /Fj 75 123 +df<000003FC00000000001FFF0000000000FE07C000000003F001F000000007E000F800 +00001FC000FC000E003F80007C000E007F00003E000C00FE00003F000C01FC00003F001C +03F800001F001807F800001F801807F000001F80380FF000001F80301FE000001F80701F +E000001FC0603FC000001FC0603FC000001FC0E03FC000000FC0C07F8000000FC1C07F80 +00000FC1807F8000000FC380FF8000000FC700FF0000000FC600FF0000000FCE00FF0000 +000FDC00FF0000001FD800FE0000001FF800FE0000001FF000FE0000001FE000FE000000 +1FC000FE0000001FC000FE0000001FC000FE0000001FC000FE0000001FC0007E0000003F +C0007E0000007FC0003F000000EFC0383F000003CFC0381F80000F07C0300FC0001C07C0 +7007E000F803E0E001F00FE001E1C0007FFF0000FF80001FF000003E00372D7CAB3E>11 +D<0000000003F800000000001FFF00000000007C0F8000000001E003E0000000078001F0 +0000000E0001F00000001C0000F8000000380000F8000000700000FC000000E00000FC00 +0001C00000FC000001800000FC000003800000FC000007000000FC000006000000FC0000 +0E000001FC00000C000001FC00001C000001F8000018000001F8000038000003F0000030 +000003F0000070000007E0000060000007E000006000000FC00000E000000F800000C000 +001F000000C000003E000001C007FE7C000001801FFFF8000001801807E0000001801FFF +F80000038007FCFC0000030000007E0000030000007E0000030000003F0000070000003F +0000060000003F8000060000001F8000060000001FC0000E0000001FC0000C0000001FC0 +000C0000001FC0000C0000003FC0001C0000003FC000180000003FC000180000003FC000 +180000003FC000380000007FC000300000007F8000300000007F8000300000007F800070 +000000FF800070000000FF000070000000FF000070000001FE0000F0000001FE0000F000 +0001FC0000F0000003FC0000F0000003F80001F0000007F80001B8000007F00001980000 +0FE000019800001FC000039C00003F8000030E00007F000003060000FE000003078001F8 +00000701C003F000000600F01FC0000006003FFF00000006000FF00000000E0000000000 +000C0000000000000C0000000000000C0000000000001C00000000000018000000000000 +180000000000001800000000000038000000000000300000000000003000000000000030 +00000000000070000000000000600000000000006000000000000060000000000000E000 +0000000000E000000000000036597DC537>I<0001FC000000000007FF000000E0001FFF +C00000E0007FFFE00001C000FFFFF000018001FFFFF800038003FE07F800030007F000FC +00070007C0007C0006000F00003E000E001E00001E000C001C00000F000C003C00000700 +1C0038000007001800700000030038007000000380300060000001807000600000018060 +00E000000180E00000000001C0C00000000000C0C00000000000C1C00000000000C18000 +00000000C3800000000000C3000000000000E3000000000000E700000000000066000000 +0000006E0000000000006C0000000000006C0000000000007C0000000000007800000000 +0000780000000000007800000000000070000000000000F0000000000000E00000000000 +00E0000000000000E0000000000000C0000000000000C0000000000000C0000000000001 +C0000000000001C000000000000180000000000003800000000000038000000000000380 +0000000000038000000000000700000000000007000000000000070000000000000F0000 +000000000E0000000000000E0000000000000E0000000000000E0000000000001C000000 +0000001C0000000000001C0000000000001C000000000000380000000000003800000000 +00003800000033417EAB33>I<0000007800000007FFE000001FFFFC00003C7FFE000070 +07FE00006003FE0000E000FE0000C000380000C000000000C000000000E000000000E000 +000000E000000000F000000000F000000000F8000000007C000000007C000000007E0000 +00003E000000003F000000003F800000001FC00000001FC00000000FE00000000FF00000 +0007F000000007F80000003FFC000000FFFC000003E1FE000007C1FE00001F00FF00003E +00FF00007C007F8000F8007F8001F8003F8003F0003F8007E0003FC007C0001FC00FC000 +1FC01F80001FC01F80001FC03F00001FC03F00000FC07F00000FC07E00000FC07E00000F +C07E00000FC0FE00001F80FC00001F80FC00001F80FC00001F80FC00001F00F800001F00 +F800003F00F800003F00F800003E00F800007E00F800007C00F800007C00FC0000F8007C +0000F8007C0001F0003E0003E0003E0003E0001F0007C0000F800F800007C01F000003E0 +7C000000FFF00000001FC0000027487CC62B>I<000007FE00007FFF0001FFFE0007F800 +001FE000003F8000007F000000FE000001FC000003F8000007F800000FF000000FE00000 +1FE000003FE000003FC000003FC000007FFFFFC07FFFFFE07FFFFFE07F800000FF800000 +FF000000FF000000FF000000FF000000FF000000FF000000FE000000FE0000007E000000 +7F0000007F0000003F0000003F0000003F8000001F8000000FC0000007C0000C03E0003C +01F000F000FC07C0003FFF000007F800202C7CAA27>I<00F80003FC0003FE001FFF0007 +1F007C0FC00E0F80E007E01C0FC3C003E01807C70003F01807CE0001F03807DC0001F830 +07D80001F8300FF80001F8700FF00001F8600FE00001F8600FE00001F8E00FC00003F8C0 +1FC00003F0C01F800003F0001F800003F0001F800007F0003F800007F0003F000007E000 +3F000007E0003F00000FE0007F00000FE0007E00000FC0007E00000FC0007E00001FC000 +FE00001FC000FC00001F8000FC00001F8000FC00003F8001FC00003F8001F800003F0001 +F800003F0001F800007F0003F800007F0003F000007E0003F000007E0003F00000FE0007 +F00000FE0007E00000FC0007E00000FC0007E00001FC000FE00001FC000FC00001F80003 +800001F80000000003F80000000003F80000000003F00000000003F00000000007F00000 +000007F00000000007E00000000007E0000000000FE0000000000FE0000000000FC00000 +00000FC0000000001FC0000000001FC0000000001F80000000001F80000000003F800000 +00003F80000000003F00000000000E00002D417DAB30>17 D<0000007E00000001FF8000 +0007C3E000001F01F000003E00F000007C00F80000FC00F80001F8007C0003F0007C0003 +E0007C0007E0007E000FC0007E001FC0007E001F80007E003F80007E007F00007F007F00 +007F00FE00007F00FE00007F01FE00007F01FC00007F03FC00007F03F80000FF07F80000 +FF07F80000FF07F00000FF0FF00000FE0FF00001FE0FF00001FE1FE00001FE1FE00001FE +1FE00003FE3FE00003FC3FC00003FC3FFFFFFFFC3FFFFFFFFC7FFFFFFFF87F800007F87F +800007F87F80000FF8FF80000FF0FF00000FF0FF00000FF0FF00001FE0FF00001FE0FE00 +001FE0FE00003FC0FE00003FC0FE00003F80FE00007F80FE00007F00FC00007F00FC0000 +FE00FC0000FE00FC0001FC00FC0001FC00FC0001F800FC0003F800FC0003F000FC0007E0 +007C000FC0007C000FC0007C001F80007E003F00003E003E00003E007C00001E00F80000 +0F01F000000783C0000003FF00000000FC00000028477CC52D>I<000E00000000001F00 +0003E0003F00001FF8003F00007FF8003F0000E7F8007F0003C7F8007F000707F0007E00 +0E07F0007E001C03C000FE0078000000FE00E0000000FC01C0000000FC0380000001FC07 +00000001FC1E00000001F83800000001F87000000003F9E000000003FF8000000003FFF8 +00000003FFFFC0000007F07FF0000007F003FC000007E000FF000007E0003F80000FE000 +1FC0000FE0001FC0000FC0000FC0000FC0000FC0001FC0000FC0071FC0000FC0061F8000 +0FC0061F80000FC0063F80000FC00E3F80000FC00C3F00000F800C3F00000F801C7F0000 +0F80187F00000F80387E00000F80307E000007C070FE000007C0E0FE000003E1C0FC0000 +00FF80380000003E00302D7BAB38>20 D<0007C00000000007F80000000000FE00000000 +007F00000000003F80000000001FC0000000001FC0000000001FC0000000000FE0000000 +000FE0000000000FE00000000007F00000000007F00000000007F00000000003F8000000 +0003F80000000003F80000000001FC0000000001FC0000000001FC0000000000FE000000 +0000FE0000000000FE00000000007F00000000007F00000000007F00000000003F800000 +00003F80000000003F80000000001FC0000000001FC0000000001FC0000000000FE00000 +00000FE0000000000FE00000000007F00000000007F00000000007F0000000000FF80000 +00001FF8000000003BF80000000071FC00000000F1FC00000001E1FC00000003C0FE0000 +000780FE0000000F00FE0000001E007F0000003E007F0000007C007F000000F8003F8000 +01F0003F800003E0003F800007C0001FC0000FC0001FC0001F80001FC0003F00000FC000 +7E00000FE000FC00000FE001F8000007E003F8000007F007F0000007F00FE0000003F01F +C0000003F83F80000003F87F00000001FCFF00000001FCFE00000001FEFC00000000FE78 +000000007E2F467BC439>I<000070000000000000F800000E000001F800003F000001F8 +00003F000001F800003F000003F800007F000003F800007F000003F000007E000003F000 +007E000007F00000FE000007F00000FE000007E00000FC000007E00000FC00000FE00001 +FC00000FE00001FC00000FC00001F800000FC00001F800001FC00003F800001FC00003F8 +00001F800003F000001F800003F000003F800007F000003F800007F000003F000007E000 +003F000007E000007F00000FE000007F00000FE000007E00000FC000007E00000FC00000 +FE00001FC01800FE00001FC03800FC00001F803000FC00001F803001FC00003F807001FC +00003F806001FC00007F006001FC0000FF006003FE0000FF00E003FE0001DF00C003FE00 +039F01C003FF00071F018007FF801E0F838007F7C07807870007E1FFE003FE0007E07F80 +00F8000FE000000000000FE000000000000FC000000000000FC000000000001FC0000000 +00001FC000000000001F8000000000001F8000000000003F8000000000003F8000000000 +003F0000000000003F0000000000007F0000000000007F0000000000007E000000000000 +7E000000000000FE000000000000FE000000000000FC0000000000003800000000000035 +417DAB3B>I<003F800000701FFF800000F83FFF800001F83FFF000001F8007F000001F8 +007F000003F8007F000003F0007E000003F0007E000007F000FE000007E000FE000007E0 +00FC00000FC000FC00000FC001FC00001FC001FC00001F8001F800003F8001F800003F00 +03F800007E0003F800007E0003F00000FC0003F00001F80007F00001F80007F00003F000 +07E00007E00007E00007C0000FE0000FC0000FE0001F80000FC0003F00000FC0007E0000 +1FC000FC00001FC001F800001F8003F000001F8007C000003F800F8000003F801F000000 +3F003C0000003F00F80000007F01E00000007F07C00000007E1F000000007EFC00000000 +FFE000000000FF8000000000F800000000002D2C7BAB30>I<000FFFFFFFFFE0003FFFFF +FFFFF0007FFFFFFFFFF001FFFFFFFFFFE003FFFFFFFFFFC007E0060030000007800E0030 +00000F000E003000001E000C007000003C000C0070000038001C0060000070001C006000 +0060001800E00000E0003800E0000040003800E0000000003800E0000000007000E00000 +00007001C0000000007001C000000000F001C000000000E001C000000001E001C0000000 +01E003C000000001C003C000000003C003C000000003C003C000000003C003C000000007 +8003C0000000078003E00000000F8003E00000000F8003E00000001F0003E00000001F00 +03E00000001F0003E00000003F0003F00000003E0003F00000007E0003F00000007E0003 +F0000000FC0003F8000000FC0003F8000001FC0001F8000001F80001F8000001F80001F8 +000000F00000E00000342C7EAA37>25 D<00000007F0000000001FFE000000007C1F0000 +0001F00FC0000007C007E000000F8003E000001F0003F000003E0001F800007E0001F800 +00FC0001F80000F80001FC0001F80001FC0003F00001FC0003F00001FC0007E00001FC00 +07E00001FC000FC00001FC000FC00003FC001FC00003FC001F800003FC001F800003FC00 +1F800007FC003F800007F8003F000007F8003F000007F8007F00000FF8007F00000FF000 +7E00000FF0007E00000FE000FE00001FE000FE00001FC000FC00003FC000FC00003F8001 +FC00007F8001FC00007F0001FC0000FE0001FC0000FC0003FE0001F80003FE0003F00003 +F70007E00003F3800FC00007F1C01F000007F0E07E000007E07FF8000007E01FC000000F +E0000000000FE0000000000FC0000000000FC0000000001FC0000000001FC0000000001F +80000000001F80000000003F80000000003F80000000003F00000000003F00000000007F +00000000007F00000000007E00000000007E0000000000FE0000000000FE0000000000FC +00000000003800000000002E417DAB32>I<000003FFFFFFE000001FFFFFFFF00000FFFF +FFFFF00001FFFFFFFFE00007FFFFFFFFC0000FF80FF80000001FC003F80000003F8001FC +0000007E0000FC000000FC00007E000001F800007E000003F000003E000007F000003F00 +0007E000003F00000FC000003F00000FC000003F00001F8000003F00001F8000003F0000 +3F8000003F00003F0000003F00003F0000007F00007F0000007E00007E0000007E00007E +0000007E00007E000000FE0000FE000000FC0000FC000000FC0000FC000001FC0000FC00 +0001F80000FC000001F80000FC000003F000007C000003E000007C000007E000007C0000 +0FC000007C00000F8000003E00001F0000003E00003E0000001F00007C0000001F0000F8 +0000000F8003F000000007C007C000000001F03F00000000007FFC00000000001FE00000 +0000342C7DAA37>I<000FFFFFFFFC003FFFFFFFFE007FFFFFFFFE01FFFFFFFFFC03FFFF +FFFFF807E001C000000780018000000F00038000001E00038000001C0003800000380003 +800000700007000000600007000000E0000700000040000F00000000000F00000000000E +00000000001E00000000001E00000000001E00000000001E00000000003C00000000003C +00000000003C00000000007C00000000007C0000000000780000000000F80000000000F8 +0000000000F80000000000F80000000001F00000000001F00000000001F00000000003F0 +0000000003F00000000003E00000000007E00000000007E00000000007E0000000000FE0 +000000000FE0000000000FC00000000007800000002F2C7EAA2A>I<000000001C000000 +0000001C0000000000001800000000000018000000000000380000000000003800000000 +000030000000000000300000000000007000000000000070000000000000600000000000 +0060000000000000E0000000000000E0000000000000C0000000000000C0000000000001 +C0000000000001C000000000000180000000000001800000000000038000000000000380 +00000000000300000000000003000000000000070000000000007FE00000000007FFFE00 +0000001FC63F80000000FE0E07C0000001F80E03F0000007E00C00F800001FC00C00FC00 +003F001C007E00007E001C003F0000FC0018003F0001F80018001F8003F80038001F8007 +F00038001F800FE00030001FC00FE00030001FC01FC00070001FC01FC00070001FC03F80 +0060001FC03F800060001FC07F0000E0001FC07F0000E0001FC07F0000C0003FC0FF0000 +C0003F80FE0001C0003F80FE0001C0003F80FE000180007F80FE000180007F00FE000380 +007F00FC00038000FE00FC00030000FE00FC00030001FC00FE00070003F800FE00070003 +F8007E00060007F0007E0006000FE0003F000E001FC0003F000E003F80001F800C007F00 +000F800C00FC000007C01C01F8000003E01C07E0000001F8181F800000007E18FE000000 +001FFFF80000000001FF8000000000003000000000000030000000000000700000000000 +00700000000000006000000000000060000000000000E0000000000000E0000000000000 +C0000000000000C0000000000001C0000000000001C00000000000018000000000000180 +000000000003800000000000038000000000000300000000000003000000000000030000 +00000032597BC43A>30 D<007E000000000001FF8000000006078FE00000000E0607F000 +00001C0E03F8000000380C03FC000000701C01FC000000E00001FE000000C00000FE0000 +01C00000FF0000038000007F0000070000007F00000E0000003F80001C0000003F800038 +0000003F8000700000001FC000600000001FC000E00000001FC001C00000000FE0038000 +00000FE0070000000007E00E0000000007F01C0000000007F0380000000007F030000000 +0003F8700000000003F8E00000000003F9C00000000001FF800000000001FF0000000000 +01FE000000000000FC000000000000FE000000000000FE0000000000007E000000000000 +FF000000000001FF000000000003FF0000000000073F80000000000E3F80000000001C3F +8000000000181FC000000000381FC000000000701FC000000000E00FC000000001C00FE0 +00000003800FE0000000070007F00000000E0007F00000000C0007F00000001C0003F800 +0000380003F8000000700003F8000000E00001FC000001C00001FC000003800001FE0000 +07000000FE000006000000FF00000E0000007F00701C0000007F8060380000003F80E070 +0000001FC0C0E00000000FE3C0C000000003FF000000000000FC0037407DAB3D>I<0000 +000000300000000000000030000000000000003000000000000000700000000000000060 +0000000000000060000000000000006000000000000000E000000000000000C000000000 +000000C000000000000000C000000000000001C000000000000001800000000000000180 +000000000000018000000000000003800000000000000300000000000000030000000000 +000003000000000000000700000000000000060000000000000006000000000000000600 +0000000000000E000000000000000C000000003E00000C00070000FF80000C001F8003C3 +C0001C003FC00703E00018003FC00601F00018007FC00E01F00018003FC01C01F0003800 +3FC01803F00030001FC03803F00030000FC03003F000300007C07003F000700007C06007 +F000600003C06007E000600003C06007E000600003C0E00FE000E0000380C00FC000C000 +0180001FC000C0000180001F8000C0000380001F8001C0000300003F800180000300003F +000180000300003F000180000700007F000380000600007E000300000600007E00030000 +0E00007E000300000C0000FE000700001C0000FC00060000180000FC00060000380000FC +00060000700000FC000E0000600000FC000C0000E00000FC000C0001C00000FC000C0003 +800000FC001C0007000000FC0018000E0000007E0018001C0000007E001800380000003F +003800700000001F803000E00000000FC03003C000000007F0300F0000000001FE707C00 +000000003FFFF0000000000003FF800000000000006000000000000000E0000000000000 +00C000000000000000C000000000000000C000000000000001C000000000000001800000 +000000000180000000000000018000000000000003800000000000000300000000000000 +030000000000000003000000000000000700000000000000060000000000000006000000 +0000000006000000000000000E000000000000000C00000000003A597DC43F>I<000000 +0000000E000018000000003F000038000000007F800070000000007F80006000000000FF +8000E0000000007F8001C0000000007F800180000000003F800380000000001F80030000 +0000001F800700000000000F800600000000000F800E000000000007800C000000000007 +800C000000000007001C000006000007001800000F000007001800000F00000700380000 +1E000006003000001E000006003000001E000006003000001E00000E007000003C00000C +006000003C00000C006000003C00001C006000003C000018006000003800003800600000 +7800003800E000007000007000E000007000007000E00000F00000E000F00001F00001E0 +00F00001F00003C000F00003F00003C000780007F80007800078000FF8001F80007C001F +7C003F00007E007E7E007E00007F83FE7F03FC00003FFFFC3FFFF800003FFFF83FFFF000 +001FFFF01FFFE000000FFFC01FFFC0000007FF0007FF00000001FC0001F8000000392D7F +AB3D>I<00000000007F000030000003FFC0007000000FFFE000E000001FFFF001C00000 +3FFFF8038000007F01F803000000F8007C07000001F0003C06000003E0001C0E000003C0 +001E0C00000780000E1C00000700000E1800000E00000E1800000C00000E3800001C0000 +0630000018000006300000300000063000003000000E7000006000000C6000006000000C +6000004000000C600000C000001CE00000C0000018E0000180000018C0000180000038E0 +000180000030E0000300000070E00003000000E0600003000000E0700007000001C07000 +07000003807800060000078038000600000F003C000E00001E001E000E00007C001F800E +0000F8000FC01C0003F00007F01C000FE00003FE1C003FC00001FFFC03FF0000007FFFFF +FE0000003FFFFFF80000000FFFFFE000000001FFFF80000000007FF80000000000F80000 +00000000F8000000000000F0000000000000F0000000000001F0000000000001F0000000 +000001F0000000000003E0000000000003E0000000000003E0000000000007E000000000 +0007E0000000000007C000000000000FC000000000000FC000000000000FC00000000000 +0FC000000000001FC000000000001F8000000000000F000000000037417BAB40>39 +D<1E007F807F80FFC0FFC0FFC0FFC07F807F801E000A0A78891B>58 +D<1E007F80FF80FFC0FFC0FFE0FFE0FFE07FE01E60006000600060006000E000C000C000 +C001C0018003800300070006000E001C003800700060000B1D78891B>I<000000000000 +01C000000000000007E00000000000001FE00000000000007FC0000000000001FF000000 +00000007FC0000000000001FF00000000000007FC0000000000001FF0000000000000FFC +0000000000003FF0000000000000FFC0000000000003FF0000000000000FF80000000000 +003FE0000000000000FF80000000000003FE0000000000001FF80000000000007FE00000 +00000001FF80000000000007FE0000000000001FF00000000000007FC0000000000001FF +00000000000007FC0000000000001FF00000000000007FC0000000000000FF0000000000 +0000FF000000000000007FC00000000000001FF000000000000007FC00000000000001FF +000000000000007FC00000000000001FF000000000000007FE00000000000001FF800000 +000000007FE00000000000001FF800000000000003FE00000000000000FF800000000000 +003FE00000000000000FF800000000000003FF00000000000000FFC00000000000003FF0 +0000000000000FFC00000000000001FF000000000000007FC00000000000001FF0000000 +00000007FC00000000000001FF000000000000007FC00000000000001FE0000000000000 +07E000000000000001C03B3878B44C>I<0000000018000000003C000000007C00000000 +7C000000007800000000F800000000F800000000F000000001F000000001F000000001E0 +00000003E000000003E000000003C000000007C000000007C000000007800000000F8000 +00000F800000001F000000001F000000001E000000003E000000003E000000003C000000 +007C000000007C000000007800000000F800000000F800000000F000000001F000000001 +F000000003E000000003E000000003C000000007C000000007C000000007800000000F80 +0000000F800000000F000000001F000000001F000000001E000000003E000000003E0000 +00003C000000007C000000007C00000000F800000000F800000000F000000001F0000000 +01F000000001E000000003E000000003E000000003C000000007C000000007C000000007 +800000000F800000000F800000000F000000001F000000001F000000003E000000003E00 +0000003C000000007C000000007C000000007800000000F800000000F800000000F00000 +0001F000000001F000000001E000000003E000000003E000000007C000000007C0000000 +07800000000F800000000F800000000F000000001F000000001F000000001E000000003E +000000003E000000003C000000007C000000007C000000007800000000F800000000F800 +000000F000000000600000000026647BCA31>I<7000000000000000FC00000000000000 +FF000000000000007FC00000000000001FF000000000000007FC00000000000001FF0000 +00000000007FC00000000000001FF000000000000007FE00000000000001FF8000000000 +00007FE00000000000001FF800000000000003FE00000000000000FF800000000000003F +E00000000000000FF800000000000003FF00000000000000FFC00000000000003FF00000 +000000000FFC00000000000001FF000000000000007FC00000000000001FF00000000000 +0007FC00000000000001FF000000000000007FC00000000000001FE00000000000001FE0 +0000000000007FC0000000000001FF00000000000007FC0000000000001FF00000000000 +007FC0000000000001FF0000000000000FFC0000000000003FF0000000000000FFC00000 +00000003FF0000000000000FF80000000000003FE0000000000000FF80000000000003FE +0000000000001FF80000000000007FE0000000000001FF80000000000007FE0000000000 +001FF00000000000007FC0000000000001FF00000000000007FC0000000000001FF00000 +000000007FC0000000000000FF00000000000000FC000000000000007000000000000000 +3B3878B44C>I<000000000000300000000000000000700000000000000000F000000000 +00000000F00000000000000001F00000000000000003F00000000000000003F000000000 +00000007F80000000000000007F8000000000000000FF8000000000000001FF800000000 +0000001FF80000000000000037F80000000000000037F80000000000000067F800000000 +000000E7F800000000000000C7F80000000000000187FC0000000000000187FC00000000 +00000307FC0000000000000703FC0000000000000603FC0000000000000C03FC00000000 +00000C03FC0000000000001803FC0000000000003803FC0000000000003003FC00000000 +00006003FE0000000000006003FE000000000000C003FE000000000001C001FE00000000 +00018001FE0000000000030001FE0000000000030001FE0000000000060001FE00000000 +000E0001FE00000000000C0001FE0000000000180001FE0000000000180001FF00000000 +00300001FF0000000000700000FF0000000000600000FF0000000000C00000FF00000000 +00C00000FF0000000001800000FF0000000003FFFFFFFF0000000003FFFFFFFF00000000 +07FFFFFFFF0000000006000000FF800000000C000000FF800000001C0000007F80000000 +180000007F80000000300000007F80000000300000007F80000000600000007F80000000 +E00000007F80000000C00000007F80000001800000007F80000001800000007FC0000003 +000000007FC0000007000000003FC0000006000000003FC000000E000000003FC000001C +000000003FC000003C000000003FC000007C000000003FC00000FE000000007FE00007FF +00000001FFE0007FFFF000007FFFFFC0FFFFF000007FFFFFC0FFFFE000007FFFFFC04247 +7DC649>65 D<0000FFFFFFFFFF80000000FFFFFFFFFFF0000000FFFFFFFFFFFC00000000 +FFC00003FF000000007F800000FF80000000FF8000003FC0000000FF8000003FE0000000 +FF0000001FE0000000FF0000000FF0000000FF0000000FF0000001FF0000000FF8000001 +FE00000007F8000001FE00000007F8000001FE00000007F8000003FE00000007F8000003 +FC00000007F8000003FC0000000FF8000003FC0000000FF8000007FC0000000FF0000007 +F80000001FF0000007F80000001FE0000007F80000003FE000000FF80000003FC000000F +F00000007F8000000FF0000000FF0000000FF0000001FE0000001FF0000003FC0000001F +E0000007F80000001FE000001FF00000001FE000003FC00000003FE00001FF000000003F +C0001FFC000000003FFFFFFFF0000000003FFFFFFFFE000000007FC000007F800000007F +8000001FC00000007F8000000FF00000007F80000007F8000000FF80000003FC000000FF +00000003FC000000FF00000001FE000000FF00000001FE000001FF00000001FF000001FE +00000001FF000001FE00000001FF000001FE00000001FF000003FE00000001FF000003FC +00000001FF000003FC00000001FF000003FC00000001FF000007FC00000001FE000007F8 +00000003FE000007F800000003FE000007F800000007FC00000FF800000007FC00000FF0 +0000000FF800000FF00000001FF000000FF00000001FF000001FF00000003FE000001FE0 +0000007FC000001FE0000001FF8000003FE0000003FE0000003FE000000FFC0000003FC0 +00003FF8000000FFC00001FFE00000FFFFFFFFFFFF800000FFFFFFFFFFFC000000FFFFFF +FFFFC000000045447CC34A>I<0000000001FF800018000000003FFFF0003800000001FF +FFFC003800000007FF007E00780000001FF0000F80F00000007F800003C1F0000001FE00 +0001C3F0000003FC000000E7F000000FF00000007FE000001FE00000003FE000003FC000 +00003FE00000FF000000001FE00001FE000000001FC00003FC000000000FC00007F80000 +00000FC0000FF8000000000FC0000FF0000000000F80001FE0000000000780003FC00000 +00000780007FC000000000078000FF8000000000070000FF0000000000070001FF000000 +0000070003FE0000000000070003FE0000000000060007FC0000000000060007FC000000 +000006000FF8000000000006000FF8000000000000001FF8000000000000001FF0000000 +000000001FF0000000000000003FF0000000000000003FE0000000000000003FE0000000 +000000003FE0000000000000007FE0000000000000007FC0000000000000007FC0000000 +000000007FC0000000000000007FC000000000000000FF8000000000000000FF80000000 +00000000FF8000000000000000FF8000000000000000FF800000000000C000FF80000000 +0000C000FF800000000001C000FF80000000000180007F80000000000180007F80000000 +000380007F80000000000300007F80000000000700007F80000000000600003FC0000000 +000E00003FC0000000001C00003FC0000000001800001FC0000000003800001FE0000000 +007000000FE000000000E000000FF000000001C0000007F80000000380000003F8000000 +0700000001FC0000000E00000000FE0000003C000000007F00000078000000003FC00001 +E0000000001FF0000FC00000000007FE007F000000000001FFFFFC0000000000003FFFE0 +00000000000007FF000000000045487CC546>I<0000FFFFFFFFFF8000000000FFFFFFFF +FFF000000000FFFFFFFFFFFC0000000000FFC00007FF00000000007F8000007FC0000000 +00FF8000001FE000000000FF8000000FF000000000FF00000007F800000000FF00000003 +FC00000000FF00000001FC00000001FF00000000FE00000001FE00000000FE00000001FE +000000007F00000001FE000000007F00000003FE000000003F80000003FC000000003F80 +000003FC000000003F80000003FC000000003FC0000007FC000000003FC0000007F80000 +00003FC0000007F8000000003FC0000007F8000000003FC000000FF8000000003FC00000 +0FF0000000003FE000000FF0000000003FE000000FF0000000003FE000001FF000000000 +3FE000001FE0000000003FC000001FE0000000003FC000001FE0000000003FC000003FE0 +000000003FC000003FC0000000007FC000003FC0000000007FC000003FC0000000007FC0 +00007FC0000000007F8000007F8000000000FF8000007F8000000000FF8000007F800000 +0000FF800000FF8000000000FF000000FF0000000001FF000000FF0000000001FE000000 +FF0000000001FE000001FF0000000003FE000001FE0000000003FC000001FE0000000007 +FC000001FE0000000007F8000003FE000000000FF0000003FC000000000FF0000003FC00 +0000001FE0000003FC000000001FC0000007FC000000003FC0000007F8000000003F8000 +0007F8000000007F00000007F800000000FE0000000FF800000001FC0000000FF0000000 +03FC0000000FF000000007F80000000FF00000000FE00000001FF00000001FC00000001F +E00000003F800000001FE0000000FF000000003FE0000001FC000000003FE000000FF800 +0000003FC000003FE000000000FFC00003FF80000000FFFFFFFFFFFE00000000FFFFFFFF +FFF000000000FFFFFFFFFF00000000004B447CC351>I<0000FFFFFFFFFFFFFC0000FFFF +FFFFFFFFFC0000FFFFFFFFFFFFFC000000FFC000003FFC0000007F80000003F8000000FF +80000001F8000000FF80000000F8000000FF0000000078000000FF0000000078000000FF +0000000038000001FF0000000038000001FE0000000038000001FE0000000038000001FE +0000000038000003FE0000000030000003FC0000000030000003FC0000000030000003FC +0000000030000007FC0000000030000007F80000600030000007F80000600030000007F8 +0000E0003000000FF80000C0000000000FF00000C0000000000FF00000C0000000000FF0 +0001C0000000001FF0000180000000001FE0000380000000001FE0000780000000001FE0 +000F80000000003FE0007F00000000003FFFFFFF00000000003FFFFFFF00000000003FFF +FFFF00000000007FC0007E00000000007F80001E00000000007F80001E00000000007F80 +000E0000000000FF80000C0000000000FF00000C0000000000FF00000C0000000000FF00 +001C0000000001FF0000180003000001FE0000180003000001FE0000180007000001FE00 +00180006000003FE0000000006000003FC000000000E000003FC000000000C000003FC00 +0000001C000007FC0000000018000007F80000000038000007F80000000030000007F800 +0000007000000FF8000000007000000FF000000000E000000FF000000001E000000FF000 +000001C000001FF000000003C000001FE000000007C000001FE00000000F8000003FE000 +00003F8000003FE00000007F0000003FC0000003FF000000FFC000003FFE0000FFFFFFFF +FFFFFE0000FFFFFFFFFFFFFE0000FFFFFFFFFFFFFC000046447CC348>I<0000FFFFFFFF +FFFFF80000FFFFFFFFFFFFF80000FFFFFFFFFFFFF8000000FFC000003FF80000007F8000 +0007F0000000FF80000003F0000000FF80000001F0000000FF00000000F0000000FF0000 +0000F0000000FF0000000070000001FF0000000070000001FE0000000070000001FE0000 +000070000001FE0000000070000003FE0000000060000003FC0000000060000003FC0000 +000060000003FC0000000060000007FC0000000060000007F80000000060000007F80000 +C00060000007F80001C0006000000FF8000180000000000FF0000180000000000FF00001 +80000000000FF0000380000000001FF0000300000000001FE0000700000000001FE00007 +00000000001FE0000F00000000003FE0001E00000000003FC000FE00000000003FFFFFFE +00000000003FFFFFFE00000000007FFFFFFC00000000007F8000FC00000000007F80003C +00000000007F80003C0000000000FF8000180000000000FF0000180000000000FF000018 +0000000000FF0000380000000001FF0000300000000001FE0000300000000001FE000030 +0000000001FE0000700000000003FE0000600000000003FC0000000000000003FC000000 +0000000003FC0000000000000007FC0000000000000007F80000000000000007F8000000 +0000000007F8000000000000000FF8000000000000000FF0000000000000000FF0000000 +000000000FF0000000000000001FF0000000000000001FE0000000000000001FE0000000 +000000003FE0000000000000003FE0000000000000003FE000000000000000FFE0000000 +000000FFFFFFF80000000000FFFFFFF80000000000FFFFFFF8000000000045447CC33F> +I<0000000001FF800018000000003FFFF0003800000001FFFFFC003800000007FF007E00 +780000001FF0000F80F00000007F800003C1F0000001FE000001C3F0000003FC000000E7 +F000000FF00000007FE000001FE00000003FE000003FC00000003FE00000FF000000001F +E00001FE000000001FC00003FC000000000FC00007F8000000000FC0000FF8000000000F +C0000FF0000000000F80001FE0000000000780003FC0000000000780007FC00000000007 +8000FF8000000000070000FF0000000000070001FF0000000000070003FE000000000007 +0003FE0000000000060007FC0000000000060007FC000000000006000FF8000000000006 +000FF8000000000000001FF8000000000000001FF0000000000000001FF0000000000000 +003FF0000000000000003FE0000000000000003FE0000000000000003FE0000000000000 +007FE0000000000000007FC0000000000000007FC0000000000000007FC0000000000000 +007FC000000000000000FF8000000000000000FF80000001FFFFFF80FF80000003FFFFFF +80FF80000003FFFFFF80FF8000000000FFE000FF80000000007FC000FF80000000007FC0 +00FF80000000007FC0007F80000000007F80007F80000000007F80007F8000000000FF80 +007F8000000000FF00007F8000000000FF00003FC000000000FF00003FC000000001FF00 +003FC000000001FE00001FE000000001FE00001FE000000001FE00000FE000000003FE00 +000FF000000003FC000007F800000007FC000003F80000000FFC000001FC0000001FFC00 +0000FE0000003DF80000007F80000078F80000003FC00001E0F80000001FF00007C07800 +000007FE007F007000000001FFFFFC0030000000003FFFF000000000000007FF00000000 +0045487CC54D>I<0000FFFFFFE003FFFFFF800000FFFFFFE003FFFFFF800000FFFFFFE0 +03FFFFFF80000000FFE0000003FF80000000007F80000001FE0000000000FF80000003FE +0000000000FF80000003FE0000000000FF00000003FC0000000000FF00000003FC000000 +0000FF00000007FC0000000001FF00000007FC0000000001FE00000007F80000000001FE +00000007F80000000001FE0000000FF80000000003FE0000000FF80000000003FC000000 +0FF00000000003FC0000000FF00000000003FC0000001FF00000000007FC0000001FF000 +00000007F80000001FE00000000007F80000001FE00000000007F80000003FE000000000 +0FF80000003FE0000000000FF00000003FC0000000000FF00000003FC0000000000FF000 +00007FC0000000001FF00000007FC0000000001FE00000007F80000000001FE00000007F +80000000001FE0000000FF80000000003FE0000000FF80000000003FFFFFFFFFFF000000 +00003FFFFFFFFFFF00000000003FFFFFFFFFFF00000000007FC0000001FF00000000007F +80000001FE00000000007F80000001FE00000000007F80000003FE0000000000FF800000 +03FE0000000000FF00000003FC0000000000FF00000003FC0000000000FF00000007FC00 +00000001FF00000007FC0000000001FE00000007F80000000001FE00000007F800000000 +01FE0000000FF80000000003FE0000000FF80000000003FC0000000FF00000000003FC00 +00000FF00000000003FC0000001FF00000000007FC0000001FF00000000007F80000001F +E00000000007F80000001FE00000000007F80000003FE0000000000FF80000003FE00000 +00000FF00000003FC0000000000FF00000003FC0000000000FF00000007FC0000000001F +F00000007FC0000000001FE00000007F80000000001FE00000007F80000000003FE00000 +00FF80000000003FE0000000FF80000000003FC0000000FF0000000000FFE0000003FF80 +000000FFFFFFE003FFFFFF800000FFFFFFE003FFFFFF800000FFFFFFE003FFFFFF800000 +51447CC351>I<00007FFFFFF800007FFFFFF800007FFFFFF00000007FF0000000003FC0 +000000007FC0000000007FC0000000007F80000000007F80000000007F8000000000FF80 +00000000FF0000000000FF0000000000FF0000000001FF0000000001FE0000000001FE00 +00000001FE0000000003FE0000000003FC0000000003FC0000000003FC0000000007FC00 +00000007F80000000007F80000000007F8000000000FF8000000000FF0000000000FF000 +0000000FF0000000001FF0000000001FE0000000001FE0000000001FE0000000003FE000 +0000003FC0000000003FC0000000003FC0000000007FC0000000007F80000000007F8000 +0000007F8000000000FF8000000000FF0000000000FF0000000000FF0000000001FF0000 +000001FE0000000001FE0000000001FE0000000003FE0000000003FC0000000003FC0000 +000003FC0000000007FC0000000007F80000000007F80000000007F8000000000FF80000 +00000FF0000000000FF0000000001FF0000000001FF0000000001FE0000000007FF00000 +007FFFFFF00000FFFFFFF00000FFFFFFF000002D447DC32B>I<0000001FFFFFFC000000 +3FFFFFFC0000003FFFFFF8000000000FFE000000000007FC000000000007FC0000000000 +07FC000000000007F8000000000007F800000000000FF800000000000FF800000000000F +F000000000000FF000000000001FF000000000001FF000000000001FE000000000001FE0 +00000000003FE000000000003FE000000000003FC000000000003FC000000000007FC000 +000000007FC000000000007F8000000000007F800000000000FF800000000000FF800000 +000000FF000000000000FF000000000001FF000000000001FF000000000001FE00000000 +0001FE000000000003FE000000000003FE000000000003FC000000000003FC0000000000 +07FC000000000007FC000000000007F8000000000007F800000000000FF800000000000F +F800000000000FF000000000000FF000000000001FF000000000001FF000000000001FE0 +00000000001FE000000000003FE000000000003FE000000000003FC000000F80003FC000 +003FE0007FC000003FE0007F8000007FE0007F8000007FE0007F8000007FE000FF000000 +FFC000FF000000FFC001FE000000FF0001FE0000006C0003FC000000600007F800000070 +000FF000000030001FE000000038003F800000001C007F000000000F81FC0000000003FF +F000000000007F8000000000364679C336>I<0000FFFFFFE00001FFFFC00000FFFFFFE0 +0001FFFFC00000FFFFFFE00001FFFFC0000000FFE00000003FF8000000007F800000001F +E000000000FF800000001F0000000000FF800000003E0000000000FF0000000078000000 +0000FF00000000F00000000000FF00000001C00000000001FF00000003800000000001FE +00000007000000000001FE0000001C000000000001FE00000038000000000003FE000000 +70000000000003FC000000E0000000000003FC00000380000000000003FC000007000000 +00000007FC00000E00000000000007F800003800000000000007F8000070000000000000 +07F80000E00000000000000FF80001C00000000000000FF00007000000000000000FF000 +0E000000000000000FF0001C000000000000001FF00078000000000000001FE000F80000 +00000000001FE001FC000000000000001FE003FC000000000000003FE00FFC0000000000 +00003FC01FFE000000000000003FC03BFE000000000000003FC0E1FF000000000000007F +C1C1FF000000000000007F8380FF800000000000007F8700FF800000000000007F9C00FF +80000000000000FFB8007FC0000000000000FF70007FC0000000000000FFC0003FE00000 +00000000FF80003FE0000000000001FF00003FE0000000000001FE00001FF00000000000 +01FE00001FF0000000000001FE00000FF8000000000003FE00000FF8000000000003FC00 +000FFC000000000003FC000007FC000000000003FC000007FC000000000007FC000003FE +000000000007F8000003FE000000000007F8000001FF000000000007F8000001FF000000 +00000FF8000001FF00000000000FF0000000FF80000000000FF0000000FF80000000000F +F00000007FC0000000001FF00000007FC0000000001FE00000007FC0000000001FE00000 +003FE0000000003FE00000003FE0000000003FE00000003FF0000000003FC00000003FF8 +00000000FFE00000007FFC000000FFFFFFE0000FFFFFE00000FFFFFFE0001FFFFFE00000 +FFFFFFE0001FFFFFE0000052447CC353>I<0000FFFFFFF800000000FFFFFFF800000000 +FFFFFFF80000000000FFE00000000000007FC0000000000000FF80000000000000FF8000 +0000000000FF00000000000000FF00000000000000FF00000000000001FF000000000000 +01FE00000000000001FE00000000000001FE00000000000003FE00000000000003FC0000 +0000000003FC00000000000003FC00000000000007FC00000000000007F8000000000000 +07F800000000000007F80000000000000FF80000000000000FF00000000000000FF00000 +000000000FF00000000000001FF00000000000001FE00000000000001FE0000000000000 +1FE00000000000003FE00000000000003FC00000000000003FC00000000000003FC00000 +000000007FC00000000000007F800000000000007F800000000000007F80000000000000 +FF80000000000000FF00000000000000FF00000000000000FF00000000000001FF000000 +00000001FE00000000C00001FE00000000C00001FE00000001C00003FE00000001800003 +FC00000003800003FC00000003000003FC00000003000007FC00000007000007F8000000 +06000007F80000000E000007F80000001E00000FF80000001C00000FF00000003C00000F +F00000003800000FF00000007800001FF0000000F800001FE0000001F000001FE0000003 +F000003FE000000FF000003FE000001FE000003FC00000FFE00000FFC00007FFC000FFFF +FFFFFFFFC000FFFFFFFFFFFFC000FFFFFFFFFFFF80003A447CC342>I<0000FFFFC00000 +000003FFFE0000FFFFC00000000007FFFE0000FFFFC0000000000FFFFE000000FFC00000 +00000FFE000000006FE0000000001BF800000000EFE0000000001FF800000000EFE00000 +000037F800000000CFE00000000067F000000000CFE00000000067F000000000CFE00000 +0000CFF000000001CFE0000000018FF0000000018FE0000000018FE00000000187F00000 +00030FE00000000187F0000000031FE00000000387F0000000061FE00000000307F00000 +000C1FC00000000307F00000000C1FC00000000307F0000000183FC00000000707F00000 +00303FC00000000607F0000000303F800000000603F8000000603F800000000603F80000 +00607F800000000E03F8000000C07F800000000C03F8000001807F000000000C03F80000 +01807F000000000C03F800000300FF000000001C03F800000600FF000000001803F80000 +0600FE000000001801FC00000C00FE000000001801FC00000C01FE000000003801FC0000 +1801FE000000003001FC00003001FC000000003001FC00003001FC000000003001FC0000 +6003FC000000007001FC0000C003FC000000006001FC0000C003F8000000006000FE0001 +8003F8000000006000FE00018007F800000000E000FE00030007F800000000C000FE0006 +0007F000000000C000FE00060007F000000000C000FE000C000FF000000001C000FE0018 +000FF0000000018000FE0018000FE00000000180007F0030000FE00000000180007F0030 +001FE00000000380007F0060001FE00000000300007F00C0001FC00000000300007F00C0 +001FC00000000300007F0180003FC00000000700007F0300003FC00000000600007F0300 +003F800000000600003F8600003F800000000600003F8600007F800000000E00003F8C00 +007F800000000C00003F9800007F000000000C00003F9800007F000000000C00003FB000 +00FF000000001C00003FE00000FF000000001800003FE00000FE000000003800001FC000 +00FE000000003800001FC00001FE000000007800001F800001FE00000000FC00001F0000 +01FC00000003FF00001F000007FE000000FFFFF8001E0007FFFFFE0000FFFFF8001C0007 +FFFFFE0000FFFFF8000C0007FFFFFE00005F447BC35E>I<0000FFFFC000000FFFFF8000 +00FFFFE000000FFFFF800000FFFFE000000FFFFF800000007FE00000007FE0000000007F +F00000001F80000000007FF00000000F0000000000EFF80000000E0000000000CFF80000 +000E0000000000C7F80000000C0000000000C7FC0000001C0000000001C7FC0000001C00 +0000000183FE00000018000000000183FE00000018000000000181FF0000003800000000 +0381FF00000038000000000300FF00000030000000000300FF80000030000000000300FF +800000700000000007007FC00000700000000006007FC00000600000000006003FC00000 +600000000006003FE00000E0000000000E003FE00000E0000000000C001FF00000C00000 +00000C001FF00000C0000000000C000FF80001C0000000001C000FF80001C00000000018 +0007F800018000000000180007FC00018000000000180007FC00038000000000380003FE +00038000000000300003FE00030000000000300001FE00030000000000300001FF000700 +00000000700001FF00070000000000600000FF80060000000000600000FF800600000000 +006000007FC00E0000000000E000007FC00E0000000000C000003FC00C0000000000C000 +003FE00C0000000000C000003FE01C0000000001C000001FF01C00000000018000001FF0 +1800000000018000000FF01800000000018000000FF83800000000038000000FF8380000 +00000300000007FC30000000000300000007FC30000000000300000003FE700000000007 +00000003FE70000000000600000001FE60000000000600000001FF600000000006000000 +01FFE0000000000E00000000FFE0000000000C00000000FFC0000000000C000000007FC0 +000000000C000000007FC0000000001C000000007FC00000000018000000003F80000000 +0038000000003F800000000038000000001F800000000078000000001F8000000000FC00 +0000000F0000000003FF000000000F00000000FFFFF80000000F00000000FFFFF8000000 +0700000000FFFFF8000000060000000051447CC34E>I<0000000003FF00000000000000 +7FFFF0000000000001FC01FC00000000000FE0007F00000000003F00001FC000000000FE +000007E000000001F8000003F000000007F0000001F80000000FC0000000FC0000001F80 +000000FE0000007F000000007E000000FE000000007F000001FC000000003F000003F800 +0000003F800007F0000000003F80000FF0000000001FC0000FE0000000001FC0001FC000 +0000001FC0003F80000000001FE0007F80000000001FE0007F00000000001FE000FF0000 +0000001FE001FE00000000000FE001FE00000000001FF003FC00000000001FF003FC0000 +0000001FF007F800000000001FF007F800000000001FF00FF800000000001FF00FF00000 +0000001FF01FF000000000001FE01FF000000000001FE01FE000000000003FE03FE00000 +0000003FE03FE000000000003FE03FE000000000003FE07FC000000000007FC07FC00000 +0000007FC07FC000000000007FC07FC00000000000FF807FC00000000000FF80FF800000 +000000FF80FF800000000001FF00FF800000000001FF00FF800000000001FF00FF800000 +000003FE00FF800000000003FE00FF800000000007FC00FF800000000007F800FF800000 +00000FF8007F80000000000FF0007F80000000001FF0007F80000000001FE0007F800000 +00003FC0007F80000000007F80003FC0000000007F80003FC000000000FF00003FC00000 +0001FE00001FC000000003FC00001FE000000007F800000FE000000007F0000007F00000 +000FE0000007F00000003F80000003F80000007F00000001FC000000FE00000000FE0000 +01F8000000007F000007F0000000003F80001FC0000000000FE0007F000000000003F803 +FC000000000000FFFFE00000000000000FFE000000000044487CC54B>I<0000FFFFFFFF +FE00000000FFFFFFFFFFE0000000FFFFFFFFFFF800000000FFC0000FFE000000007F8000 +01FF00000000FF8000007F80000000FF8000003FC0000000FF0000001FE0000000FF0000 +001FE0000001FF0000000FF0000001FF0000000FF0000001FE0000000FF0000001FE0000 +000FF8000003FE0000000FF8000003FE0000000FF8000003FC0000000FF8000003FC0000 +000FF8000007FC0000000FF8000007FC0000001FF0000007F80000001FF0000007F80000 +001FF000000FF80000003FE000000FF80000003FE000000FF00000003FC000000FF00000 +007FC000001FF00000007F8000001FF0000000FF0000001FE0000001FE0000001FE00000 +03FC0000003FE0000007F80000003FE000000FF00000003FC000003FC00000003FC00000 +FF000000007FC00007FC000000007FFFFFFFF0000000007FFFFFFF80000000007F800000 +0000000000FF8000000000000000FF8000000000000000FF0000000000000000FF000000 +0000000001FF0000000000000001FF0000000000000001FE0000000000000001FE000000 +0000000003FE0000000000000003FE0000000000000003FC0000000000000003FC000000 +0000000007FC0000000000000007FC0000000000000007F80000000000000007F8000000 +000000000FF8000000000000000FF8000000000000000FF0000000000000000FF0000000 +000000001FF0000000000000001FF0000000000000001FE0000000000000001FE0000000 +000000003FE0000000000000003FE0000000000000003FC000000000000000FFE0000000 +000000FFFFFFE00000000000FFFFFFE00000000000FFFFFFE0000000000045447CC33F> +I<0000000003FF000000000000007FFFF0000000000001FC01FC00000000000FE0007F00 +000000003F80001FC000000000FE00000FE000000001F8000003F000000007F0000003F8 +0000000FE0000001FC0000001F80000000FE0000007F00000000FE000000FE000000007F +000001FC000000007F000003F8000000003F800007F8000000003F80000FF0000000003F +C0000FE0000000001FC0001FC0000000001FC0003FC0000000001FE0007F80000000001F +E0007F80000000001FE000FF00000000001FE001FE00000000001FE001FE00000000001F +F003FE00000000001FF003FC00000000001FF007FC00000000001FF007F800000000001F +F00FF800000000001FF00FF000000000001FF01FF000000000001FE01FF000000000003F +E01FE000000000003FE03FE000000000003FE03FE000000000003FE03FE000000000003F +E07FC000000000007FC07FC000000000007FC07FC000000000007FC07FC000000000007F +807FC00000000000FF80FF800000000000FF80FF800000000000FF00FF800000000001FF +00FF800000000001FF00FF800000000003FE00FF800000000003FE00FF800000000003FC +00FF800000000007F800FF800000000007F8007F80000000000FF0007F80000000000FF0 +007F80000000001FE0007F80000000003FC0007F80000000003F80003F80001F00007F80 +003FC000FFC000FF00003FC001E0E001FE00001FC003807001FC00001FC007003003F800 +000FE006003807F0000007E00E00180FE0000007F00C00181F80000003F80C00183F0000 +0001F81C001CFE00000000FC18001DF8000000007E18001FF0000000003F9C001FC00000 +00000FEC007F000000000003FE03FC000060000000FFFFFC0000600000000FFE1C0000E0 +00000000001E0000C000000000001E0001C000000000001E0001C000000000001E000380 +00000000003F00078000000000003F000F8000000000003F803F0000000000003FC0FF00 +00000000003FFFFE0000000000001FFFFC0000000000001FFFFC0000000000001FFFF800 +00000000001FFFF00000000000000FFFE00000000000000FFFC000000000000003FF0000 +000000000000FC00000044597CC54D>I<0000FFFFFFFFF000000000FFFFFFFFFF000000 +00FFFFFFFFFFE000000000FFC0003FF8000000007F800007FC00000000FF800001FE0000 +0000FF8000007F00000000FF0000003F80000000FF0000003FC0000000FF0000001FE000 +0001FF0000001FE0000001FE0000001FE0000001FE0000001FF0000001FE0000001FF000 +0003FE0000001FF0000003FC0000001FF0000003FC0000001FF0000003FC0000001FF000 +0007FC0000003FE0000007F80000003FE0000007F80000003FE0000007F80000007FC000 +000FF80000007F8000000FF0000000FF8000000FF0000000FF0000000FF0000001FE0000 +001FF0000003FC0000001FE0000007F80000001FE000000FE00000001FE000001FC00000 +003FE000007F000000003FC00003FC000000003FC0001FF0000000003FFFFFFF80000000 +007FFFFFFE00000000007F80007F80000000007F80000FC0000000007F800007F0000000 +00FF800003F800000000FF000003FC00000000FF000001FC00000000FF000001FE000000 +01FF000001FE00000001FE000000FE00000001FE000000FE00000001FE000001FE000000 +03FE000001FE00000003FC000001FE00000003FC000001FE00000003FC000003FE000000 +07FC000003FE00000007F8000003FE00000007F8000003FE00000007F8000007FC000000 +0FF8000007FC0000000FF0000007FC0000000FF0000007FC0000000FF0000007FC000000 +1FF0000007FC0018001FE0000007FC0018001FE0000007FC0018003FE0000007F8003800 +3FE0000007F80030003FC0000007FC007000FFE0000003FC00E0FFFFFFE00003FC01C0FF +FFFFE00001FC0380FFFFFFE00000FE0F000000000000003FFE0000000000000007F00045 +467CC34A>I<00000000FF80018000000007FFF003800000003FFFFC0380000000FF007E +0780000001F8000F0F80000007E000079F0000000FC00003FF0000001F000001FF000000 +3E000000FF0000007C000000FE0000007C0000007E000000F80000007E000001F0000000 +7E000001F00000003C000003E00000003C000003E00000003C000007E00000003C000007 +C000000038000007C000000038000007C00000003800000FC00000003800000FC0000000 +3000000FE00000003000000FE00000003000000FE00000000000000FF000000000000007 +F800000000000007FC00000000000007FF00000000000003FFE0000000000003FFFC0000 +00000001FFFFC00000000000FFFFFC00000000007FFFFF00000000003FFFFFC000000000 +0FFFFFE00000000003FFFFF800000000003FFFF8000000000007FFFC0000000000007FFE +0000000000000FFE00000000000003FE00000000000001FF00000000000000FF00000000 +0000007F000000000000007F000000000000003F000000000000003F000006000000003F +000006000000003F000006000000003F000006000000003F00000E000000003E00000E00 +0000003E00000C000000003E00000C000000007E00001E000000007C00001E000000007C +00001E00000000F800001E00000000F000003F00000001F000003F00000003E000003F80 +000007C000003F8000000F8000007FC000001F0000007FE000003E0000007CF800007C00 +0000787E0001F8000000F01FC00FE0000000E007FFFF80000000E001FFFE00000000C000 +3FF00000000039487BC53C>I<01FFFFFFFFFFFFFFC003FFFFFFFFFFFFFFC003FFFFFFFF +FFFFFFC003FF0000FF8000FF8007F00000FF00001F8007E00001FF00000F8007800001FF +000007800F000001FE000007800F000001FE000003800E000001FE000003801C000003FE +000003001C000003FC0000030018000003FC0000030038000003FC0000030030000007FC +0000030030000007F80000070070000007F80000060060000007F800000600E000000FF8 +00000600C000000FF000000600C000000FF000000600C000000FF0000006000000001FF0 +000000000000001FE0000000000000001FE0000000000000001FE0000000000000003FE0 +000000000000003FC0000000000000003FC0000000000000003FC0000000000000007FC0 +000000000000007F80000000000000007F80000000000000007F8000000000000000FF80 +00000000000000FF0000000000000000FF0000000000000000FF0000000000000001FF00 +00000000000001FE0000000000000001FE0000000000000001FE0000000000000003FE00 +00000000000003FC0000000000000003FC0000000000000003FC0000000000000007FC00 +00000000000007F80000000000000007F80000000000000007F8000000000000000FF800 +0000000000000FF0000000000000000FF0000000000000000FF0000000000000001FF000 +0000000000001FE0000000000000001FE0000000000000001FE0000000000000003FE000 +0000000000003FC0000000000000003FC0000000000000007FC0000000000000007FC000 +000000000000FFC000000000000003FFE000000000001FFFFFFFFC000000001FFFFFFFFC +000000001FFFFFFFF80000000042447EC339>I<7FFFFF8000001FFFF8FFFFFF8000003F +FFF8FFFFFF8000003FFFF801FFE000000003FF0000FF8000000001FC0000FF8000000000 +F00000FF8000000000E00000FF8000000001C00000FF8000000001C000007F8000000003 +8000007F80000000030000007F80000000060000007F80000000060000007F800000000C +0000007FC0000000180000007FC0000000180000003FC0000000300000003FC000000070 +0000003FC0000000600000003FC0000000C00000003FC0000000C00000003FC000000180 +0000003FE0000003000000003FE0000003000000001FE0000006000000001FE000000E00 +0000001FE000000C000000001FE0000018000000001FE0000018000000001FF000003000 +0000001FF0000060000000001FF0000060000000000FF00000C0000000000FF00001C000 +0000000FF0000180000000000FF0000300000000000FF0000300000000000FF800060000 +0000000FF8000C00000000000FF8000C000000000007F80018000000000007F800300000 +00000007F80030000000000007F80060000000000007F800E0000000000007FC00C00000 +00000007FC0180000000000003FC0180000000000003FC0300000000000003FC06000000 +00000003FC0600000000000003FC0C00000000000003FC1C00000000000003FE18000000 +00000003FE3000000000000001FE3000000000000001FE6000000000000001FEC0000000 +00000001FEC000000000000001FF8000000000000001FF8000000000000001FF00000000 +00000001FE0000000000000000FE0000000000000000FC0000000000000000F800000000 +00000000F80000000000000000F00000000000000000F00000000000000000E000000000 +000045467BC339>86 DI<00003FFFFFE000 +1FFFFF00003FFFFFE0001FFFFF00003FFFFFE0001FFFFF0000007FFE000003FFE0000000 +3FF8000001FE000000001FF0000000FC000000001FF0000000F0000000000FF8000001E0 +000000000FF8000001C00000000007FC000003800000000007FC000006000000000007FC +00000E000000000003FE00001C000000000003FE000038000000000001FF000070000000 +000001FF0000E0000000000001FF8001C0000000000000FF800180000000000000FF8003 +000000000000007FC006000000000000007FC00C000000000000003FE018000000000000 +003FE030000000000000003FE060000000000000001FF0C0000000000000001FF1C00000 +00000000000FFB80000000000000000FFF00000000000000000FFE000000000000000007 +FC000000000000000007FC000000000000000003FE000000000000000003FE0000000000 +00000003FE000000000000000001FF000000000000000003FF000000000000000006FF80 +000000000000000CFF80000000000000001C7FC000000000000000387FC0000000000000 +00707FC000000000000000E03FE000000000000001C03FE000000000000003801FF00000 +0000000003001FF000000000000006001FF00000000000000C000FF80000000000001800 +0FF8000000000000300007FC000000000000600007FC000000000000C00007FC00000000 +0001800003FE000000000003800003FE000000000007000001FF00000000000E000001FF +00000000001C000001FF000000000038000000FF800000000030000000FF8000000000E0 +0000007FC000000001C00000007FC000000003C00000003FE000000007800000003FE000 +00001F800000003FE00000003FC00000007FF0000003FFE0000001FFF800007FFFFC0000 +1FFFFFF000FFFFFC00001FFFFFF000FFFFFC00001FFFFFF00050447EC351>II<00000FFFFFFFFFFFC000001FFFFFFFFFFFC000001FFFFFFFFFFF8000001FFF8000 +01FF0000001FF8000001FF0000003FE0000003FE0000003F80000007FC0000003F000000 +0FF80000007E0000001FF00000007C0000003FE0000000780000007FC0000000F0000000 +FF80000000F0000000FF80000000E0000001FF00000000C0000003FE00000001C0000007 +FC00000001C000000FF8000000018000001FF0000000038000003FE0000000030000007F +C000000003000000FF8000000003000000FF8000000000000001FF0000000000000003FE +0000000000000007FC000000000000000FF8000000000000001FF0000000000000003FE0 +000000000000007FC000000000000000FF8000000000000000FF8000000000000001FF00 +00000000000003FE0000000000000007FC000000000000000FF8000000000000001FF000 +0000000000003FE0000000000000007FC0000000000000007FC000000000000000FF8000 +000000000001FF0000000000000003FE0000000000000007FC000006000000000FF80000 +06000000001FF0000006000000003FE000000E000000007FC000000C000000007FC00000 +0C00000000FF8000001C00000001FF0000001800000003FE0000003800000007FC000000 +380000000FF8000000700000001FF0000000700000003FE0000000F00000007FC0000000 +E00000007FC0000001E0000000FF80000003E0000001FF00000007C0000003FE0000000F +C0000007FC0000001FC000000FF80000003F8000001FF0000000FF8000003FE0000003FF +8000003FE000003FFF0000007FFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFE +00000042447BC343>I<00000003C00000000FF00000003E380000007818000000F81C00 +0000F00C000001E00C000003E00C000003C00C000007C00C00000F800C00000F801C0000 +1F001800001F001800003E001800003E003800007C003000007C00300000FC00300000F8 +00700001F800600001F800E00001F000C00003F001C00003F001800007E003800007E003 +000007E00700000FE00600000FC00E00000FC01C00000FC01800001FC03800001F807000 +001F806000001F80E000003F81C000003F038000003F070000003F060000007F0E000000 +7E1C0000007E380000007E700000007EE00000007FC00000007F800000007F00000000FE +00000000FE00000000FC00000000FC00000000FC00000000F800000001F800000003F800 +000007780000000E780000001C78000000387C000000707C000000E07C000060003C0001 +E0003C000380003C000700001E000E00001E003C00000F007000000783E0000003FF8000 +0000FC000026477FC529>96 D<00000FC0000000007FF000000001F8381C000007E01C7E +00000FC00E7E00003F0007FE00007F0003FC0000FE0003FC0001FC0003FC0001F80001FC +0003F80001F80007F00001F8000FF00001F8000FE00003F8001FE00003F0001FE00003F0 +003FC00003F0003FC00007F0007FC00007E0007F800007E0007F800007E0007F80000FE0 +00FF80000FC000FF00000FC000FF00000FC000FF00001FC000FF00001F8000FE00001F80 +00FE00001F8000FE00003F8030FE00003F0070FE00003F0060FE00003F0060FE00007F00 +E0FE00007F00C0FE0000FE00C07E0001FE00C07E0003FE01C03E00073E01803F000E3E03 +801F001C3E03000F80381F070007C0F00F0E0001FFC007FC00007F0001F0002C2D7CAB33 +>I<000FE0000007FFE0000007FFE0000007FFE00000001FC00000000FC00000001FC000 +00001FC00000001F800000001F800000001F800000003F800000003F000000003F000000 +003F000000007F000000007E000000007E000000007E00000000FE00000000FC00000000 +FC00000000FC00000001FC00000001F800000001F80FC00001F83FF00003F8F07C0003F3 +C03E0003F7001F0003FE001F8007FC000F8007F8000FC007F0000FC007F0000FE00FE000 +0FE00FC0000FE00FC0000FE00FC0000FE01FC0000FE01F80000FE01F80000FE01F80001F +E03F80001FE03F00001FE03F00001FE03F00003FE07F00003FC07E00003FC07E00003FC0 +7E00007FC07E00007F80FC00007F80FC00007F00FC0000FF00FC0000FF00FC0001FE007C +0001FC007C0001FC007C0003F8007C0007F0007C0007E0003C000FE0003E001FC0001E00 +3F80001F007E00000F00FC000007C1F0000001FFC00000007F00000023467CC429>I<00 +0007F80000003FFF000000FC07C00003F000E00007E00070001F800030003F000070007E +0003F800FE0007F801FC0007F803F8000FF007F8000FF007F0000FF00FF00007C01FE000 +00001FE00000003FC00000003FC00000007FC00000007F800000007F800000007F800000 +00FF80000000FF00000000FF00000000FF00000000FF00000000FE00000000FE00000000 +FE00000000FE00000000FE00000000FE00000018FE00000038FE000000707E000000E07E +000001C03F000003803F000007001F80001E000F8000380007C001F00003F00FC00000FF +FE0000001FF00000252D7CAB2A>I<0000000001FC00000000FFFC00000000FFFC000000 +00FFFC0000000003F80000000001F80000000003F80000000003F80000000003F0000000 +0003F00000000007F00000000007F00000000007E00000000007E0000000000FE0000000 +000FE0000000000FC0000000000FC0000000001FC0000000001FC0000000001F80000000 +001F80000000003F80000000003F80000000003F0000000FC03F0000007FF07F000001F8 +387F000007E01C7E00000FC00E7E00003F0007FE00007F0003FE0000FE0003FC0001FC00 +03FC0001F80001FC0003F80001FC0007F00001F8000FF00001F8000FE00003F8001FE000 +03F8001FE00003F0003FC00003F0003FC00007F0007FC00007F0007F800007E0007F8000 +07E0007F80000FE000FF80000FE000FF00000FC000FF00000FC000FF00001FC000FF0000 +1FC000FE00001F8000FE00001F8000FE00003F8030FE00003F8070FE00003F0060FE0000 +3F0060FE00007F00E0FE00007F00C0FE0000FE00C07E0001FE00C07E0003FE01C03E0007 +3E01803F000E3E03801F001C3E03000F80381F070007C0F00F0E0001FFC007FC00007F00 +01F0002E467CC433>I<000007F80000003FFE000001FC07800003F003C0000FC001E000 +1F8000E0007F0000E000FE00007001FC00007003F80000F007F80000E007F00000E00FF0 +0001E01FE00001C01FE00003C03FC00007803FC0001F003FC000FC007FC01FF0007FFFFF +80007FFFF000007F80000000FF80000000FF00000000FF00000000FF00000000FF000000 +00FF00000000FE00000000FE00000000FE00000000FE00000000FE000000187E00000038 +7E000000707F000000E03F000001C03F000003801F000007000F80001E000FC000380007 +E001F00001F00FC000007FFE0000001FF00000252D7CAB2D>I<0000000007E000000000 +1FF8000000007C1C00000000F80E00000001F03E00000003E07F00000003E0FF00000007 +E1FF00000007C1FF00000007C1FE0000000FC0FC0000000FC0780000000FC0000000001F +80000000001F80000000001F80000000001F80000000003F80000000003F00000000003F +00000000003F00000000003F00000000007F00000000007E00000000007E00000000007E +00000000007E00000000FFFFFF800000FFFFFF800000FFFFFF80000000FC0000000000FC +0000000000FC0000000001FC0000000001F80000000001F80000000001F80000000001F8 +0000000003F80000000003F00000000003F00000000003F00000000003F00000000007F0 +0000000007E00000000007E00000000007E00000000007E0000000000FE0000000000FC0 +000000000FC0000000000FC0000000000FC0000000000FC0000000001FC0000000001F80 +000000001F80000000001F80000000001F80000000003F80000000003F00000000003F00 +000000003F00000000003F00000000007F00000000007E00000000007E00000000007E00 +000000007E0000000000FC0000000000FC0000000000FC0000000000FC0000000000F800 +00000001F80000000001F80000000001F00000000001F00000001C03F00000007F03E000 +0000FF03E0000000FF03C0000000FF07C0000000FF0780000000FE0F00000000F80F0000 +0000601E00000000783C000000001FF00000000007C000000000305A7BC530>I<000000 +7E0000000003FF800000000FC1E0E000001F0073F000007E0033F00000FC003FF00001F8 +001FF00003F8001FE00007F0000FE0000FE0000FE0000FE0000FE0001FC0000FC0003FC0 +000FC0003F80001FC0007F80001FC0007F00001F8000FF00001F8000FF00003F8001FF00 +003F8001FE00003F0001FE00003F0001FE00007F0003FE00007F0003FC00007E0003FC00 +007E0003FC0000FE0003FC0000FE0003F80000FC0003F80000FC0003F80001FC0003F800 +01FC0003F80001F80003F80001F80003F80003F80003F80007F80001F80007F00001F800 +0FF00000F8001FF00000FC003FF000007C0077E000003E01E7E000001F078FE0000007FE +0FE0000001F80FC0000000000FC0000000001FC0000000001FC0000000001F8000000000 +1F80000000003F80000000003F80000000003F00000000003F00001C00007E00007F0000 +FE0000FF0000FC0000FF0001F80000FF0003F80000FE0007F00000FE000FC00000F8001F +8000007C00FE0000001FFFF800000003FFC00000002C407EAB2F>I<0000FE000000007F +FE000000007FFE000000007FFE0000000001FC0000000000FC0000000001FC0000000001 +FC0000000001F80000000001F80000000003F80000000003F80000000003F00000000003 +F00000000007F00000000007F00000000007E00000000007E0000000000FE0000000000F +E0000000000FC0000000000FC0000000001FC0000000001FC0000000001F80000000001F +803FC000003F81FFF000003F87C0FC00003F0E007E00003F3C003E00007F70003F00007F +E0001F00007FC0001F80007F80001F8000FF80001F8000FF00001F8000FE00001F8000FE +00001F8001FC00003F8001FC00003F0001F800003F0001F800003F0003F800007F0003F8 +00007E0003F000007E0003F000007E0007F00000FE0007F00000FC0007E00000FC0007E0 +0001FC000FE00001F8000FE00001F8000FC00003F8000FC00003F0001FC00003F0071FC0 +0007F0061F800007E0061F80000FE0063F80000FC00E3F80000FC00C3F00000FC01C3F00 +000F80187F00000F80387F00000F80307E00000F80707E00000F80E0FE00000781C0FE00 +0007C380FC000001FF00380000007C0030467BC438>I<00001E0000003F0000007F0000 +00FF000000FF000000FF0000007E00000038000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000003E000000FF800001C3C0000781E0000601F0000E01F0001C01F0001803F00038 +03F0003003F0003003F0007007F0006007E0006007E000E00FE000C00FC000001FC00000 +1F8000001F8000003F8000003F0000003F0000007F0000007E000000FE000000FC000000 +FC000001FC000001F8000001F8038003F8030003F0030007F0030007E0070007E0060007 +E00E0007E00C0007C01C0007C0180007C0380007C0700003C0E00003E1C00000FF800000 +3E000019437DC121>I<000000003C00000000FE00000000FE00000001FE00000001FE00 +000001FE00000001FC000000007000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000FC00000003FF0000000F078000001C07C000003803 +E000007003E00000E003E00000C003E00001C003E000018007E000038007E000030007E0 +00070007E00006000FE0000E000FE0000C000FC00000000FC00000001FC00000001FC000 +00001F800000001F800000003F800000003F800000003F000000003F000000007F000000 +007F000000007E000000007E00000000FE00000000FE00000000FC00000000FC00000001 +FC00000001FC00000001F800000001F800000003F800000003F800000003F000000003F0 +00000007F000000007F000000007E000000007E00000000FE00000000FE00000000FC000 +00000FC00000001FC00000001F800000001F800000003F80001C003F00007F003F0000FF +007E0000FF00FC0000FF00FC0000FE01F80000FE03E00000F807C00000781F8000003FFE +00000007F0000000275681C128>I<0000FE000000007FFE000000007FFE000000007FFE +0000000001FC0000000000FC0000000001FC0000000001FC0000000001F80000000001F8 +0000000003F80000000003F80000000003F00000000003F00000000007F00000000007F0 +0000000007E00000000007E0000000000FE0000000000FE0000000000FC0000000000FC0 +000000001FC0000000001FC0000000001F80000000001F80003F00003F8000FFC0003F80 +03C0E0003F000703E0003F001E0FE0007F00380FE0007F00701FE0007E00E01FE0007E01 +C01FE000FE01801FC000FE0380070000FC0700000000FC0E00000001FC1C00000001FC38 +00000001F87000000001F8E000000003FBC000000003FF0000000003FF8000000003FFF8 +00000007F1FE00000007F03F80000007E00FE0000007E007F000000FE003F000000FE003 +F800000FC001F800000FC001F800001FC001F801C01FC001F801801F8001F801801F8001 +F801803F8001F803803F8001F803003F0001F003003F0001F007007F0001F006007F0001 +F00E007E0001F00C007E0001F01C00FE0000F03800FE0000787000FC00003FE000380000 +0F80002B467BC433>I<0003F801FFF801FFF801FFF80007F00003F00007F00007F00007 +E00007E0000FE0000FE0000FC0000FC0001FC0001FC0001F80001F80003F80003F80003F +00003F00007F00007F00007E00007E0000FE0000FE0000FC0000FC0001FC0001FC0001F8 +0001F80003F80003F80003F00003F00007F00007F00007E00007E0000FE0000FE0000FC0 +000FC0001FC0001FC0001F80001F80003F80003F80003F00003F00007F00607F00E07E00 +C07E00C07E01C0FE0180FC0180FC0180FC03807C03007C07007C06003E0E001E1C000FF8 +0003E00015467CC41D>I<00F80003FC00007F800003FE001FFF0003FFE000071F007C0F +C00F81F8000E0F80E007E01C00FC001C0FC3C003E078007C001807C70003F0E0007E0018 +07CE0001F1C0003E003807DC0001FB80003F003007D80001FB00003F00300FF80001FF00 +003F00700FF00001FE00003F00600FE00001FC00003F00600FE00001FC00003F00E00FC0 +0003F800007F00C01FC00003F800007E00C01F800003F000007E00001F800003F000007E +00001F800007F00000FE00003F800007F00000FC00003F000007E00000FC00003F000007 +E00000FC00003F00000FE00001FC00007F00000FE00001F800007E00000FC00001F80000 +7E00000FC00003F800007E00001FC00003F00000FE00001FC00003F00000FC00001F8000 +07F00000FC00001F800007E00000FC00003F800007E00E01FC00003F80000FE00C01F800 +003F00000FC00C01F800003F00001FC00C01F800007F00001F801C03F800007F00001F80 +1803F000007E00001F803803F000007E00001F003003F00000FE00001F007007F00000FE +00001F006007E00000FC00001F00E007E00000FC00001F01C007E00001FC00000F03800F +E00001FC00000F87000FC00001F8000003FE000380000070000000F8004F2D7DAB55>I< +00F80003FC000003FE001FFF0000071F007C0FC0000E0F80E007E0000C07C3C003E0001C +07C70003F0001807CE0001F0003807DC0001F8003007D80001F800300FF80001F800700F +F00001F800600FE00001F800600FE00001F800E00FC00003F800C01FC00003F000C01F80 +0003F000001F800003F000001F800007F000003F800007E000003F000007E000003F0000 +07E000003F00000FE000007F00000FC000007E00000FC000007E00001FC000007E00001F +800000FE00001F800000FC00003F800000FC00003F000000FC00003F007001FC00007F00 +6001F800007E006001F80000FE006001F80000FC00E003F80000FC00C003F00000FC01C0 +03F00000F8018003F00000F8038007F00000F8030007E00000F8070007E00000F80E0007 +E00000781C000FE000007C38000FC000001FF0000380000007C000342D7DAB3A>I<0003 +E0003F8000000FF800FFE000001C7C03C0F80000383E07007C0000703F1E007E0000601F +38003F0000601F70003F0000E01F60001F8000C01FE0001F8000C03FC0001F8001C03F80 +001FC001803F00001FC001803F00001FC003807F00001FC003007F00001FC003007E0000 +1FC000007E00001FC00000FE00003FC00000FE00003FC00000FC00003FC00000FC00003F +C00001FC00007FC00001FC00007F800001F800007F800001F800007F800003F80000FF80 +0003F80000FF000003F00000FF000003F00000FE000007F00001FE000007F00001FC0000 +07E00003FC000007E00003F800000FE00007F800000FE00007F000000FE0000FE000000F +E0000FC000001FF0001F8000001FF0003F0000001FB8007E0000001F9800FC0000003F9C +01F80000003F8F07E00000003F03FF800000003F00FC000000007F0000000000007F0000 +000000007E0000000000007E000000000000FE000000000000FE000000000000FC000000 +000000FC000000000001FC000000000001FC000000000001F8000000000001F800000000 +0003F8000000000003F8000000000007F80000000000FFFFF000000000FFFFF000000000 +FFFFE000000000323F83AB31>112 D<00000FC00300003FF0070000F83C0F0003E00E1E +000FC0063E001F80073E003F00037E007F0003FC00FE0001FC01FC0001FC01FC0001FC03 +F80001F807F80001F807F00001F80FF00003F80FF00003F01FE00003F01FE00003F03FE0 +0007F03FC00007E03FC00007E03FC00007E07FC0000FE07F80000FC07F80000FC07F8000 +0FC07F80001FC07F00001F80FF00001F80FF00001F80FF00003F807F00003F007F00003F +007E00003F007E00007F007F0000FE003F0001FE003F0001FE003F0003FE001F8007FC00 +0F801EFC0007C038FC0003E0F1FC0001FFC1F800003F01F800000001F800000003F80000 +0003F000000003F000000003F000000007F000000007E000000007E000000007E0000000 +0FE00000000FC00000000FC00000001FC00000001FC00000003FC000001FFFFF80001FFF +FF80001FFFFF00283F7DAB2B>I<00F8000FC003FE007FF0070F00F0380E0F83C07C0C07 +C701FC1C07CE01FC1807DC03FC3807D803FC3007F803FC300FF003F8700FE000E0600FE0 +0000600FC00000E00FC00000C01FC00000C01F800000001F800000001F800000003F8000 +00003F000000003F000000003F000000007F000000007E000000007E000000007E000000 +00FE00000000FC00000000FC00000000FC00000001FC00000001F800000001F800000001 +F800000003F800000003F000000003F000000003F000000007F000000007E000000007E0 +00000007E00000000FE00000000FC00000000380000000262D7DAB2C>I<00000FF00000 +007FFE000001F00F8000078001C0000F0000E0001E000060003C000060003C0001F00078 +0007F000780007F000F8000FE000F0000FE000F8000FE000F800038000FC00000000FE00 +000000FF00000000FFF80000007FFF8000007FFFE000003FFFF800001FFFFC000007FFFE +000000FFFE00000007FF00000000FF000000007F000000003F800000001F800E00001F80 +3F00000F007F80000F007F80000F007F80001F00FF00001E00FF00001E00FC00003C0060 +00003C006000007800700000F000380001E0001C0007C0000F803F000003FFFC0000007F +E00000242D7BAB2E>I<00001C0000007E0000007E0000007E000000FE000000FC000000 +FC000000FC000001FC000001F8000001F8000001F8000003F8000003F0000003F0000003 +F0000007F0000007E0000007E0007FFFFFFCFFFFFFFCFFFFFFF8000FC000000FC000001F +C000001F8000001F8000001F8000003F8000003F0000003F0000003F0000007F0000007E +0000007E0000007E000000FE000000FC000000FC000000FC000001FC000001F8000001F8 +000001F8000003F8000003F0000003F0000003F0007007F0006007E0006007E000E007E0 +00C00FE001C00FC001800FC003800FC0070007C0060007C00E0007C01C0003E0380001E0 +F00000FFC000003F00001E3F7EBD23>I<003E000000000000FF800000E00003C3C00003 +F0000703E00003F0000601F00003F0000E01F00007F0001C01F00007F0001803F00007E0 +003803F00007E0003003F0000FE0003003F0000FE0007007F0000FC0006007E0000FC000 +6007E0001FC000E00FE0001FC000C00FC0001F8000001FC0001F8000001F80003F800000 +1F80003F8000003F80003F0000003F00003F0000003F00007F0000007F00007F0000007E +00007E0000007E00007E0000007E0000FE000000FE0000FE000000FC0000FC000000FC00 +00FC000000FC0001FC018000FC0001FC038001F80001F8030001F80001F8030001F80001 +F8070001F80003F8060001F80003F0060000F80007F0060000F8000FF00E0000FC000DF0 +0C00007C001DF01C00007C0039F01800003E00F0F83800001F03C07870000007FF803FE0 +000001FC000F8000312D7DAB38>I<003E00000E0000FF80003F8003C3C0007F800703E0 +007F800601F0007F800E01F0007F801C01F0007F801803F0003F803803F0001F803003F0 +000F803003F0000F807007F00007806007E00007806007E0000780E00FE0000700C00FC0 +000300001FC0000300001F80000700001F80000600003F80000600003F00000600003F00 +000E00007F00000C00007E00000C00007E00000C00007E00001C0000FE0000180000FC00 +00180000FC0000380000FC0000300000FC0000700001F80000600001F80000E00001F800 +00C00001F80001C00000F80001800000F80003800000FC0007000000FC00060000007C00 +0E0000007E001C0000003F00780000000F81E000000007FFC000000000FE000000292D7D +AB2F>I<0000FC0007E00003FF801FFC000F07C0781E001C03E0E01F003801F1C07F0070 +00F1807F00E000FB80FF01C000FF00FF018000FE00FF038000FE00FE030000FE00380700 +00FC0000060000FC0000060001FC00000E0001F800000C0001F80000000001F800000000 +03F80000000003F00000000003F00000000003F00000000007F00000000007E000000000 +07E00000000007E0000000000FE0000000000FC0000000000FC0000000000FC000000000 +1FC0003800001FC0003000001F80003000001F80007000003F8000601E003F8000603F00 +3F8000E07F807F8001C07F806F800180FF80EF800380FF01CF800700FE0187C00E007C03 +83C01C003C0F01E078001FFC00FFE00003F0003F8000302D7EAB37>120 +D<003E0000000000FF800000E003C3C00003F00703E00003F00601F00003F00E01F00007 +F01C01F00007E01803F00007E03803F00007E03003F0000FE07003F0000FC06007F0000F +C06007E0000FC06007E0001FC0E00FE0001F80C00FC0001F80001FC0001F80001F80003F +80001F80003F00003F80003F00003F00003F00003F00007F00007F00007E00007E00007E +00007E00007E00007E0000FE0000FE0000FC0000FC0000FC0000FC0000FC0000FC0001FC +0000FC0001F80001F80001F80001F80001F80001F80003F80001F80003F00001F80003F0 +0000F80007F00000F8000FF00000FC000FE000007C001FE000007C003FE000003E00FFE0 +00001F03CFC0000007FF8FC0000001FC0FC0000000001FC0000000001F80000000001F80 +000000003F80000000003F000007C0007F00001FE0007E00001FE000FC00001FE000FC00 +003FC001F800003FC003F000003F8003E00000380007C0000018000F8000001C001F0000 +000E007C0000000781F800000003FFE0000000007F000000002C407DAB30>I<00007C00 +01800001FF0003800003FF800300000FFFC00700001FFFE00E00001FFFF01C00003F03F8 +38000078007EF8000070001FF00000600001E00000E00001C00000C00003800000000007 +00000000000E00000000001C0000000000380000000000700000000000E00000000001C0 +000000000380000000000700000000000E00000000001C00000000003800000000007000 +00000000E00000000003C0000000000700000000000E00000000001C00001C0000380000 +180000700000180000E00000380001C00000300001800000700003900000F00007FF0001 +E0000FEFC007C0001E03F01FC0001C01FFFF80003800FFFF00007000FFFE000060007FFC +0000E0003FF00000C0000FC00000292D7CAB2D>I E /Fk 11 107 +df0 D<3C7EFFFFFFFF7E3C08 +087A9414>I<60000000C0E0000001C0F0000003C078000007803C00000F001E00001E00 +0F00003C00078000780003C000F00001E001E00000F003C0000078078000003C0F000000 +1E1E0000000F3C00000007F800000003F000000001E000000003F000000007F80000000F +3C0000001E1E0000003C0F0000007807800000F003C00001E001E00003C000F000078000 +78000F00003C001E00001E003C00000F007800000780F0000003C0E0000001C060000000 +C0222376A137>I<000C0000001E0000001E0000001E0000001E0000001E0000601E0180 +781E0780FC0C0FC07F0C3F803F8C7F0007CCF80001FFE000007F8000001E0000007F8000 +01FFE00007CCF8003F8C7F007F0C3F80FC0C0FC0781E0780601E0180001E0000001E0000 +001E0000001E0000001E0000000C00001A1D7C9E23>I<00000300000000000380000000 +000380000000000380000000000380000000000380000000000380000000000380000000 +000380000000000380000000000380000000000380000000000380000000000380000000 +000380000000000380000000000380000000000380000000000380000000000380000000 +0003800000000003800000FFFFFFFFFFFCFFFFFFFFFFFCFFFFFFFFFFFC00000380000000 +000380000000000380000000000380000000000380000000000380000000000380000000 +000380000000000380000000000380000000000380000000000380000000000380000000 +0003800000000003800000000003800000000003800000000003800000000003800000FF +FFFFFFFFFCFFFFFFFFFFFCFFFFFFFFFFFC2E2F7CAD37>6 D<007F800001FFE00007FFF8 +000FC0FC001F003E003C000F00380007007800078070000380F00003C0E00001C0E00001 +C0E00001C0E00001C0E00001C0E00001C0E00001C0F00003C07000038078000780380007 +003C000F001F003E000FC0FC0007FFF80001FFE000007F80001A1B7C9D23>14 +D<00000000000E000000000000000E000000000000000E000000000000000F0000000000 +000007000000000000000780000000000000038000000000000003C000000000000001C0 +00000000000001E000000000000000F00000000000000078000000000000007C00000000 +0000003E000000000000000F0000000000000007C0FFFFFFFFFFFFFFF8FFFFFFFFFFFFFF +FCFFFFFFFFFFFFFFF800000000000007C00000000000000F000000000000003E00000000 +0000007C000000000000007800000000000000F000000000000001E000000000000001C0 +00000000000003C000000000000003800000000000000780000000000000070000000000 +00000F000000000000000E000000000000000E000000000000000E00003E237CA147>33 +D<007800FE01FE01FE01FE03FE03FC03FC03FC07F807F807F807F007F00FE00FE00FE00F +C01FC01F801F801F803F003F003F003E007E007C007C007C00F800F800F800F0000F227E +A413>48 D<003F80000007F00000FFF000003FFC0003FFFC0000FFFF0007FFFF0001F807 +800F80FF8007C001C01E003FC00F8000E03C001FE01F00007038000FF03E000030700007 +F83C000038700003FC78000018600001FEF0000018E00000FFE000001CC000007FE00000 +0CC000007FC000000CC000003FC000000CC000001FE000000CC000000FF000000CC00000 +0FF800000CC000001FF800000CE000001FFC00001C6000003DFE00001860000078FF0000 +38700000F07F800038300001F03FC00070380003E01FE000F01C0007C00FF001E00E000F +8007FC07C007807E0003FFFF8003FFFC0000FFFF0000FFF000003FFC00003F80000007F0 +003E1F7C9D47>I<00000180000000000380000000000380000000000380000000000380 +000000000380000000000380000000000380000000000380000000000380000000000380 +000000000380000000000380000000000380000000000380000000000380000000000380 +000000000380000000000380000000000380000000000380000000000380000000000380 +000000000380000000000380000000000380000000000380000000000380000000000380 +000000000380000000000380000000000380000000000380000000000380000000000380 +000000000380000000000380000000000380000000000380000000000380000000000380 +00000000038000000000038000007FFFFFFFFFFEFFFFFFFFFFFE7FFFFFFFFFFE2F2E7CAD +38>63 D106 D E /Fl 58 121 df<0000FF807E000007FFE1FF80001F807FC3C0003E +007F87E0007C00FF07E000F800FE07E001F000FE07E003F000FC018003E0007C000003E0 +007C000003E0007C000003E0007C000003E0007C000003E0007C000003E0007C000003E0 +007C000003E0007C000003E0007C0000FFFFFFFFFC00FFFFFFFFFC0003E0007C000003E0 +007C000003E0007C000003E0007C000003E0007C000003E0007C000003E0007C000003E0 +007C000003E0007C000003E0007C000003E0007C000003E0007C000003E0007C000003E0 +007C000003E0007C000003E0007C000003E0007C000003E0007C000003E0007C000003E0 +007C000003E0007C000003E0007C000003E0007C000003E0007C000007F000FE00007FFF +0FFFF0007FFF0FFFF0002B2F7FAE29>11 D<0000FF00000007FFE000001F80F000003E00 +3800007C007C0000F800FC0001F000FC0003F000FC0003E000780003E000300003E00000 +0003E000000003E000000003E000000003E000000003E000000003E000000003E0007C00 +FFFFFFFC00FFFFFFFC0003E000FC0003E0007C0003E0007C0003E0007C0003E0007C0003 +E0007C0003E0007C0003E0007C0003E0007C0003E0007C0003E0007C0003E0007C0003E0 +007C0003E0007C0003E0007C0003E0007C0003E0007C0003E0007C0003E0007C0003E000 +7C0003E0007C0003E0007C0003E0007C0003E0007C0007F000FE007FFF0FFFE07FFF0FFF +E0232F7FAE27>I<0000FFC0000007FFFC00001F807C00003E00FC00007C00FC0000F800 +FC0001F000FC0003F0007C0003E0007C0003E0007C0003E0007C0003E0007C0003E0007C +0003E0007C0003E0007C0003E0007C0003E0007C0003E0007C00FFFFFFFC00FFFFFFFC00 +03E0007C0003E0007C0003E0007C0003E0007C0003E0007C0003E0007C0003E0007C0003 +E0007C0003E0007C0003E0007C0003E0007C0003E0007C0003E0007C0003E0007C0003E0 +007C0003E0007C0003E0007C0003E0007C0003E0007C0003E0007C0003E0007C0003E000 +7C0003E0007C0003E0007C0007F000FE007FFF0FFFE07FFF0FFFE0232F7FAE27>I<0003 +0007000E001C0038007000F001E001C003C0078007800F000F001E001E001E003C003C00 +3C003C0078007800780078007800F800F800F000F000F000F000F000F000F000F000F000 +F000F000F800F800780078007800780078003C003C003C003C001E001E001E000F000F00 +0780078003C001C001E000F000700038001C000E0007000310437AB11B>40 +DI<0000 +038000000000038000000000038000000000038000000000038000000000038000000000 +038000000000038000000000038000000000038000000000038000000000038000000000 +038000000000038000000000038000000000038000000000038000000000038000000000 +03800000000003800000000003800000000003800000FFFFFFFFFFFCFFFFFFFFFFFCFFFF +FFFFFFFC0000038000000000038000000000038000000000038000000000038000000000 +038000000000038000000000038000000000038000000000038000000000038000000000 +038000000000038000000000038000000000038000000000038000000000038000000000 +038000000000038000000000038000000000038000000000038000002E2F7CA737>43 +D<003FC00000FFF00003E07C0007C03E000F801F000F000F001E0007801E0007803E0007 +C03E0007C07C0003E07C0003E07C0003E07C0003E07C0003E0FC0003F0FC0003F0FC0003 +F0FC0003F0FC0003F0FC0003F0FC0003F0FC0003F0FC0003F0FC0003F0FC0003F0FC0003 +F0FC0003F0FC0003F0FC0003F0FC0003F07C0003E07C0003E07C0003E07E0007E03E0007 +C03E0007C03E0007C01F000F800F000F000F801F0007C03E0003F0FC0000FFF000003FC0 +001C2D7DAB23>48 D<000C00003C00007C0003FC00FFFC00FC7C00007C00007C00007C00 +007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00 +007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00 +007C00007C00007C00007C00007C00007C00007C00007C0000FE007FFFFE7FFFFE172C7A +AB23>I<007F800001FFF0000780FC000E003F001C001F8038000FC070000FC0600007E0 +F00007E0FC0007F0FE0007F0FE0003F0FE0003F0FE0003F07C0007F0000007F0000007F0 +000007E000000FE000000FC000001FC000001F8000003F0000007E0000007C000000F800 +0001F0000003E0000007C000000F8000001E0000003C00000078000000F0003000E00030 +01C0003003800060070000600E0000E01FFFFFE03FFFFFE07FFFFFC0FFFFFFC0FFFFFFC0 +1C2C7DAB23>I<003FC00001FFF00007C0FC000E007E001C003F001C001F803F001FC03F +001FC03F800FC03F000FC03F000FC00C001FC000001FC000001F8000001F8000003F0000 +003E0000007C000000F8000003F00000FFC00000FFF0000000FC0000003F0000001F8000 +001FC000000FC000000FE000000FE0000007F0000007F0380007F07C0007F0FE0007F0FE +0007F0FE0007F0FE000FE0F8000FE060000FC070001FC038001F801E003F000780FC0001 +FFF000007FC0001C2D7DAB23>I<00000E0000000E0000001E0000003E0000003E000000 +7E000000FE000000FE000001BE000003BE0000033E0000063E00000E3E00000C3E000018 +3E0000383E0000303E0000603E0000E03E0000C03E0001803E0003803E0003003E000600 +3E000E003E000C003E0018003E0038003E0030003E0060003E00E0003E00FFFFFFFCFFFF +FFFC00003E0000003E0000003E0000003E0000003E0000003E0000003E0000003E000000 +3E0000007F00001FFFFC001FFFFC1E2D7EAC23>I<0C0001800FC01F800FFFFF000FFFFE +000FFFFC000FFFF0000FFFC0000C7E00000C0000000C0000000C0000000C0000000C0000 +000C0000000C0000000C0000000C1FC0000C7FF8000DE07C000F801F000F001F800E000F +800C0007C0000007E0000007E0000003E0000003F0000003F0000003F0000003F0780003 +F0FC0003F0FC0003F0FC0003F0FC0003F0F80007E0E00007E0600007C070000FC038000F +801C001F000E003E000780F80001FFE000007F80001C2D7DAB23>I<0003F800000FFE00 +003E078000F8018001F007C003E00FC007C00FC00F800FC00F800FC01F0007801F000000 +3E0000003E0000007E0000007E0000007C0000007C0FC000FC3FF000FCF07C00FDC01E00 +FF800F00FF000F80FF0007C0FE0007E0FE0007E0FE0003E0FC0003F0FC0003F0FC0003F0 +FC0003F07C0003F07C0003F07C0003F07E0003F07E0003F03E0003E03E0007E01E0007E0 +1F0007C00F000F8007801F0003C03E0001E07C00007FF000001FC0001C2D7DAB23>I<30 +0000003C0000003FFFFFF83FFFFFF83FFFFFF07FFFFFF07FFFFFE0700001C06000018060 +000380C0000700C0000E00C0000C0000001C000000380000003000000070000000E00000 +01C0000001C00000038000000380000007000000070000000F0000000E0000001E000000 +1E0000003E0000003E0000003E0000003C0000007C0000007C0000007C0000007C000000 +FC000000FC000000FC000000FC000000FC000000FC000000FC000000FC000000FC000000 +7800001D2E7CAC23>I<001FC00000FFF00003E07C0007801E000F000F001E0007801E00 +07803C0003C03C0003C03C0003C03C0003C03E0003C03E0007C03F0007801FC00F801FE0 +0F001FF81E000FFC3C0007FFF80003FFE00000FFE000003FF80000FFFC0003C7FF000783 +FF801F00FFC01E003FC03C001FE07C0007E0780003F0F80003F0F00001F0F00000F0F000 +00F0F00000F0F00000F0F80000E0780001E07C0001C03C0003C01E0007800F800F0007E0 +3C0001FFF000003FC0001C2D7DAB23>I<003F800000FFF00003E0780007C03E000F801F +001F000F003E000F803E0007807E0007C07C0007C0FC0007E0FC0003E0FC0003E0FC0003 +E0FC0003F0FC0003F0FC0003F0FC0003F0FC0003F07C0007F07E0007F07E0007F03E000F +F01F000FF00F001FF007803BF003E0F3F000FFC3F0003F03E0000003E0000007E0000007 +E0000007C0000007C000000FC01E000F803F000F003F001F003F003E003F003C003E0078 +001C00F0000E03E00007FF800001FE00001C2D7DAB23>I +61 D<000001800000000003C00000000003C00000000003C00000000007E00000000007 +E0000000000FF0000000000FF0000000000FF0000000001BF80000000019F80000000019 +F80000000030FC0000000030FC0000000070FE00000000607E00000000607E00000000C0 +3F00000000C03F00000000C03F00000001801F80000001801F80000003801FC000000300 +0FC0000003000FC00000060007E00000060007E00000060007E000000C0003F000000C00 +03F000001FFFFFF800001FFFFFF80000180001F80000300000FC0000300000FC00003000 +00FC00006000007E00006000007E0000E000007F0000C000003F0000C000003F0001C000 +001F8003C000001F8007C000001FC00FF000003FE0FFFC0003FFFFFFFC0003FFFF302F7E +AE35>65 D<00001FF000C00000FFFE01C00003F00F83C0000F8001E3C0003F000077C000 +7C00003FC001F800001FC003F000000FC007E0000007C007E0000007C00FC0000003C01F +C0000003C01F80000001C03F80000001C03F00000001C07F00000000C07F00000000C07F +00000000C0FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE +0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE00000000007F +00000000007F00000000C07F00000000C03F00000000C03F80000000C01F80000001C01F +C0000001800FC00000018007E00000038007E00000070003F00000060001F800000E0000 +7C00001C00003F00007800000F8001E0000003F00FC0000000FFFE000000001FF000002A +2F7CAD33>67 DII +I72 DI<007FFFF0007FFFF00000FF +0000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E +0000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E +0000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E +0000007E0000007E0000007E0000007E0038007E00FE007E00FE007E00FE007E00FE00FE +00FE00FC007800FC007001F8003803F0001E07E00007FF800001FC00001C2E7DAC24>I< +FFFFF80000FFFFF8000003FC00000001F800000001F800000001F800000001F800000001 +F800000001F800000001F800000001F800000001F800000001F800000001F800000001F8 +00000001F800000001F800000001F800000001F800000001F800000001F800000001F800 +000001F800000001F800000001F800000001F800000001F800000001F800000001F80000 +0C01F800000C01F800000C01F800000C01F800001801F800001801F800001801F8000018 +01F800003801F800003801F800007801F80000F801F80001F801F80007F003F8001FF0FF +FFFFFFF0FFFFFFFFF0262D7EAC2C>76 DII80 D<00003FF000000001FFFE00000007E01F8000001F8007E000003E0001F00000FC00 +00FC0001F800007E0003F000003F0007E000001F8007C000000F800FC000000FC01F8000 +0007E01F80000007E03F80000007F03F00000003F07F00000003F87F00000003F87F0000 +0003F87E00000001F8FE00000001FCFE00000001FCFE00000001FCFE00000001FCFE0000 +0001FCFE00000001FCFE00000001FCFE00000001FCFE00000001FCFE00000001FC7E0000 +0001F87F00000003F87F00000003F83F00000003F03F00000003F01F80000007E01F8000 +0007E00FC007800FC00FC01FE00FC007E038701F8003F070183F0001F8601C7E0000FC60 +0CFC00007E600FF800001FF00FE0000007F81F80000001FFFF000C00003FF7000C000000 +07800C00000007801C00000003C01C00000003E03C00000003F07800000003FFF8000000 +01FFF800000001FFF000000001FFF000000000FFE0000000007FC0000000001F002E3B7C +AD37>I<003F803001FFF07007C07C700F000EF01E0007F03C0003F0780001F0780000F0 +700000F0F0000070F0000070F0000070F0000030F8000030F8000030FC0000007E000000 +7F0000003FE000003FFE00001FFFE0000FFFFC0007FFFF0001FFFF80003FFFE00003FFE0 +00003FF0000007F8000001F8000000F8000000FC0000007CC000007CC000003CC000003C +C000003CE000003CE000003CE0000078F0000078F8000070FC0000F0FE0001E0F78003C0 +E3F00F00E07FFE00C00FF0001E2F7CAD27>83 D<7FFFFFFFFFF87FFFFFFFFFF87F000FC0 +03F87C000FC000F870000FC0003870000FC0003860000FC0001860000FC00018E0000FC0 +001CE0000FC0001CC0000FC0000CC0000FC0000CC0000FC0000CC0000FC0000CC0000FC0 +000C00000FC0000000000FC0000000000FC0000000000FC0000000000FC0000000000FC0 +000000000FC0000000000FC0000000000FC0000000000FC0000000000FC0000000000FC0 +000000000FC0000000000FC0000000000FC0000000000FC0000000000FC0000000000FC0 +000000000FC0000000000FC0000000000FC0000000000FC0000000000FC0000000000FC0 +000000000FC0000000000FC0000000000FC0000000001FE00000001FFFFFE000001FFFFF +E0002E2D7EAC33>I86 DI<3FFFFFFFC03FFFFFFFC03FF0001FC03F80003F803E00007F003C00007F003800 +00FE00380001FC00700001FC00700003F800700007F000600007F00060000FE00060001F +C00060001FC00000003F800000007F000000007F00000000FE00000001FC00000001FC00 +000003F800000003F000000007F00000000FE00000000FE00000001FC00000003F800000 +003F800060007F00006000FE00006000FE00006001FC00006003F80000E003F80000E007 +F00000E00FE00000C00FE00001C01FC00001C03F800003C03F800007C07F00001FC0FE00 +00FFC0FFFFFFFFC0FFFFFFFFC0232D7CAC2B>90 D<00FF000007FFC0000F01F0001C00F8 +003F007C003F003E003F003E003F003F001E001F0000001F0000001F0000001F0000001F +000007FF00007FFF0001FE1F0007F01F001FC01F003F801F007F001F007E001F00FE001F +06FC001F06FC001F06FC001F06FC003F06FE003F067E007F067F00EF8C1F83C7FC0FFF03 +F801FC01E01F207D9E23>97 D<07C0000000FFC0000000FFC00000000FC000000007C000 +000007C000000007C000000007C000000007C000000007C000000007C000000007C00000 +0007C000000007C000000007C000000007C000000007C0FE000007C7FF800007CF03E000 +07DC01F00007F8007C0007F0007E0007E0003E0007C0001F0007C0001F8007C0001F8007 +C0000F8007C0000FC007C0000FC007C0000FC007C0000FC007C0000FC007C0000FC007C0 +000FC007C0000FC007C0000FC007C0001F8007C0001F8007C0001F0007C0003F0007E000 +3E0007F0007C0007B000F80007BC01F000070E07E0000607FF80000001FC0000222F7EAD +27>I<001FE000007FFC0001F01E0003E0070007C01F800F801F801F001F803F001F803E +000F007E0000007E0000007C000000FC000000FC000000FC000000FC000000FC000000FC +000000FC000000FC000000FC0000007E0000007E0000007E0000C03F0000C01F0001C01F +8001800FC0038007E0070001F03E00007FF800001FC0001A207E9E1F>I<000000F80000 +001FF80000001FF800000001F800000000F800000000F800000000F800000000F8000000 +00F800000000F800000000F800000000F800000000F800000000F800000000F800000000 +F800000FE0F800007FF8F80001F81EF80003E007F80007C003F8000F8001F8001F0001F8 +003F0000F8003E0000F8007E0000F8007E0000F800FC0000F800FC0000F800FC0000F800 +FC0000F800FC0000F800FC0000F800FC0000F800FC0000F800FC0000F8007C0000F8007E +0000F8007E0000F8003E0001F8001F0001F8001F8003F8000F8007F80003E00EFC0001F0 +3CFFC0007FF0FFC0001FC0F800222F7EAD27>I<001F800000FFF00003E0780007C03E00 +0F801E001F001F001F000F803E000F807E0007807E0007C07C0007C0FC0007C0FC0007C0 +FC0007C0FFFFFFC0FFFFFFC0FC000000FC000000FC000000FC000000FC0000007E000000 +7E0000003E0000C03F0000C01F0001C00F8003800FC0030003E00F0001F03C00007FF800 +001FC0001A207E9E1F>I<0003F0000FFC003E1E007C3F00F83F01F03F01F03F03E00C03 +E00003E00003E00003E00003E00003E00003E00003E00003E00003E000FFFFE0FFFFE003 +E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003 +E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E00007 +F0007FFF807FFF80182F7FAE16>I<003F00F800FFC3FE03E1FF1E07807C1E0F807C0C1F +003E001F003E003E001F003E001F003E001F003E001F003E001F003E001F003E001F001F +003E001F003E000F807C00078078000FE1F0000CFFC0001C3F00001C0000001C0000001C +0000001E0000001F0000000FFFF8000FFFFF0007FFFFC00FFFFFF01E0007F83C0000F878 +00007CF800007CF000003CF000003CF000003CF000003CF800007C7C0000F83E0001F01F +0003E007E01F8001FFFE00003FF0001F2D7E9D23>I<07C0000000FFC0000000FFC00000 +000FC000000007C000000007C000000007C000000007C000000007C000000007C0000000 +07C000000007C000000007C000000007C000000007C000000007C000000007C0FE000007 +C3FF800007C703E00007DE01F00007F801F00007F000F80007F000F80007E000F80007E0 +00F80007C000F80007C000F80007C000F80007C000F80007C000F80007C000F80007C000 +F80007C000F80007C000F80007C000F80007C000F80007C000F80007C000F80007C000F8 +0007C000F80007C000F80007C000F80007C000F8000FE001FC00FFFE1FFFC0FFFE1FFFC0 +222E7EAD27>I<07800FC01FE01FE01FE01FE00FC0078000000000000000000000000000 +00000007C0FFC0FFC00FC007C007C007C007C007C007C007C007C007C007C007C007C007 +C007C007C007C007C007C007C007C007C007C007C00FE0FFFCFFFC0E2E7EAD14>I<000F +00001F80003FC0003FC0003FC0003FC0001F80000F000000000000000000000000000000 +000000000000000000000007C000FFC000FFC0000FC00007C00007C00007C00007C00007 +C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007 +C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007 +C00007C00007C03007C07807C0FC0F80FC0F80FC0F00F81F00783E003FF80007E000123C +83AD16>I<07C0FFC0FFC00FC007C007C007C007C007C007C007C007C007C007C007C007 +C007C007C007C007C007C007C007C007C007C007C007C007C007C007C007C007C007C007 +C007C007C007C007C007C007C007C007C007C00FE0FFFEFFFE0F2E7EAD14>108 +D<07C07F0007F000FFC3FFC03FFC00FFC783F0783F000FCE01F8E01F8007DC00F9C00F80 +07F800FF800FC007F0007F0007C007E0007E0007C007E0007E0007C007C0007C0007C007 +C0007C0007C007C0007C0007C007C0007C0007C007C0007C0007C007C0007C0007C007C0 +007C0007C007C0007C0007C007C0007C0007C007C0007C0007C007C0007C0007C007C000 +7C0007C007C0007C0007C007C0007C0007C007C0007C0007C007C0007C0007C007C0007C +0007C007C0007C0007C00FE000FE000FE0FFFE0FFFE0FFFEFFFE0FFFE0FFFE371E7E9D3C +>I<07C0FE0000FFC3FF8000FFC703E0000FDE01F00007F801F00007F000F80007F000F8 +0007E000F80007E000F80007C000F80007C000F80007C000F80007C000F80007C000F800 +07C000F80007C000F80007C000F80007C000F80007C000F80007C000F80007C000F80007 +C000F80007C000F80007C000F80007C000F80007C000F80007C000F8000FE001FC00FFFE +1FFFC0FFFE1FFFC0221E7E9D27>I<001FE000007FF80001F03E0003C00F00078007800F +0003C01F0003E03E0001F03E0001F07C0000F87C0000F87C0000F8FC0000FCFC0000FCFC +0000FCFC0000FCFC0000FCFC0000FCFC0000FCFC0000FCFC0000FC7C0000F87C0000F83E +0001F03E0001F01F0003E01F0003E00F8007C007C00F8001F03E00007FF800001FE0001E +207E9E23>I<07C0FE0000FFC7FF8000FFCF03E0000FDC01F00007F800FC0007F0007E00 +07E0003E0007C0003F0007C0001F8007C0001F8007C0001F8007C0000FC007C0000FC007 +C0000FC007C0000FC007C0000FC007C0000FC007C0000FC007C0000FC007C0001FC007C0 +001F8007C0001F8007C0003F0007C0003F0007E0007E0007F0007C0007F000F80007FC01 +F00007CE07E00007C7FF800007C1FC000007C000000007C000000007C000000007C00000 +0007C000000007C000000007C000000007C000000007C00000000FE0000000FFFE000000 +FFFE000000222B7E9D27>I<000FE01800007FF8380001F81C380003E00E780007C00778 +000F8003F8001F8001F8003F0001F8003F0001F8007E0000F8007E0000F800FE0000F800 +FC0000F800FC0000F800FC0000F800FC0000F800FC0000F800FC0000F800FC0000F800FC +0000F8007E0000F8007E0000F8007E0000F8003F0001F8001F0001F8001F8003F8000FC0 +07F80003E00EF80001F03CF800007FF0F800001FC0F800000000F800000000F800000000 +F800000000F800000000F800000000F800000000F800000000F800000000F800000001FC +0000001FFFC000001FFFC0222B7E9D25>I<0781F8FF87FEFF8E3F0F9C3F07B83F07B03F +07F01E07E00007E00007E00007E00007C00007C00007C00007C00007C00007C00007C000 +07C00007C00007C00007C00007C00007C00007C00007C00007C0000FE000FFFF00FFFF00 +181E7E9D1C>I<01FE1807FFB81E01F83C00F8780078F00038F00038F00018F00018F800 +18FC0018FF00007FF0003FFF001FFFC00FFFF001FFF8001FFC0001FCC0007EC0003EC000 +3EE0001EE0001EF0001EF0001EF8003CF8003CFC0078FF01F0E3FFC0C0FF0017207E9E1C +>I<00600000600000600000600000E00000E00000E00001E00003E00003E00007E0001F +E000FFFFF0FFFFF003E00003E00003E00003E00003E00003E00003E00003E00003E00003 +E00003E00003E00003E00003E00003E00003E01803E01803E01803E01803E01803E01803 +E01803E03801F03001F07000F860003FE0000F80152A7FA81B>I<07C000F800FFC01FF8 +00FFC01FF8000FC001F80007C000F80007C000F80007C000F80007C000F80007C000F800 +07C000F80007C000F80007C000F80007C000F80007C000F80007C000F80007C000F80007 +C000F80007C000F80007C000F80007C000F80007C000F80007C000F80007C001F80007C0 +01F80007C001F80007C003F80003E007F80003E00EFC0001F81CFFC0007FF8FFC0001FE0 +F800221F7E9D27>III +I E /Fm 33 122 df<000000000C000000001E000000003E000000003E000000003C0000 +00007C000000007C000000007800000000F800000000F800000000F000000001F0000000 +01F000000003E000000003E000000003C000000007C000000007C000000007800000000F +800000000F800000000F000000001F000000001F000000003E000000003E000000003C00 +0000007C000000007C000000007800000000F800000000F800000000F000000001F00000 +0001F000000003E000000003E000000003C000000007C000000007C00000000780000000 +0F800000000F800000000F000000001F000000001F000000003E000000003E000000003C +000000007C000000007C000000007800000000F800000000F800000001F000000001F000 +000001E000000003E000000003E000000003C000000007C000000007C000000007800000 +000F800000000F800000001F000000001F000000001E000000003E000000003E00000000 +3C000000007C000000007C000000007800000000F800000000F800000001F000000001F0 +00000001E000000003E000000003E000000003C000000007C000000007C0000000078000 +00000F800000000F800000001F000000001F000000001E000000003E000000003E000000 +003C000000007C000000007C000000007800000000F800000000F800000000F000000000 +6000000000276479CA37>47 D<000000003800000000000000007C00000000000000007C +00000000000000007C0000000000000000FE0000000000000000FE0000000000000000FE +0000000000000001FF0000000000000001FF0000000000000003FF8000000000000003FF +8000000000000003FF8000000000000007FFC0000000000000077FC0000000000000077F +C00000000000000E7FE00000000000000E3FE00000000000000E3FE00000000000001C1F +F00000000000001C1FF00000000000003C1FF8000000000000380FF8000000000000380F +F8000000000000780FFC0000000000007007FC0000000000007007FC000000000000E007 +FE000000000000E003FE000000000000E003FE000000000001C001FF000000000001C001 +FF000000000003C001FF8000000000038000FF8000000000038000FF8000000000078000 +FFC0000000000700007FC0000000000700007FC0000000000E00007FE0000000000E0000 +3FE0000000000E00003FE0000000001C00001FF0000000001C00001FF0000000003C0000 +1FF8000000003800000FF8000000003800000FF8000000007FFFFFFFFC000000007FFFFF +FFFC000000007FFFFFFFFC00000000E0000007FE00000000E0000003FE00000001E00000 +03FF00000001C0000001FF00000001C0000001FF00000003C0000001FF80000003800000 +00FF8000000380000000FF8000000700000000FFC0000007000000007FC0000007000000 +007FC000000E000000003FE000000E000000003FE000001E000000003FF000001E000000 +001FF000003E000000001FF000003E000000001FF800007E000000001FF80001FF000000 +001FFC0007FFC00000007FFF00FFFFFC00001FFFFFFEFFFFFC00001FFFFFFEFFFFFC0000 +1FFFFFFE47477CC651>65 D<00000003FF00000C0000003FFFF0001C000001FFFFFC003C +00000FFE007F003C00001FF0000FC07C00007F800003E0FC0001FF000000F0FC0003FC00 +000079FC0007F80000003FFC001FF00000001FFC003FE00000000FFC007FC000000007FC +007F8000000003FC00FF0000000003FC01FE0000000001FC03FE0000000001FC03FC0000 +000000FC07FC0000000000FC0FF800000000007C0FF800000000007C1FF000000000003C +1FF000000000003C3FF000000000003C3FF000000000003C3FE000000000001C7FE00000 +0000001C7FE000000000001C7FE000000000001C7FE00000000000007FC0000000000000 +FFC0000000000000FFC0000000000000FFC0000000000000FFC0000000000000FFC00000 +00000000FFC0000000000000FFC0000000000000FFC0000000000000FFC0000000000000 +FFC0000000000000FFC0000000000000FFC00000000000007FC00000000000007FE00000 +000000007FE00000000000007FE000000000001C7FE000000000001C3FE000000000001C +3FF000000000001C3FF000000000001C1FF000000000003C1FF00000000000380FF80000 +000000380FF800000000003807FC00000000007803FC00000000007003FE0000000000F0 +01FE0000000000E000FF0000000001E0007F8000000001C0007FC000000003C0003FE000 +00000780001FF00000000F000007F80000001E000003FC0000003C000001FF0000007800 +00007F800001F00000001FF00007C00000000FFE007F8000000001FFFFFE00000000003F +FFF0000000000003FF8000003E4879C54E>67 D70 +D<00000003FF800006000000003FFFF0000E00000001FFFFFE001E00000007FF003F801E +0000001FF00007C03E0000007FC00001F07E000001FF000000F87E000003FC0000003CFE +000007F80000001FFE00000FF00000000FFE00001FE000000007FE00003FC000000003FE +00007F8000000003FE0000FF0000000001FE0001FF0000000000FE0003FE0000000000FE +0003FC00000000007E0007FC00000000007E000FF800000000003E000FF800000000003E +001FF800000000001E001FF000000000001E001FF000000000001E003FF000000000001E +003FE000000000000E007FE000000000000E007FE000000000000E007FE000000000000E +007FE0000000000000007FC000000000000000FFC000000000000000FFC0000000000000 +00FFC000000000000000FFC000000000000000FFC000000000000000FFC0000000000000 +00FFC000000000000000FFC000000000000000FFC000000000000000FFC0000000000000 +00FFC000000000000000FFC0000000000000007FC00000007FFFFFFC7FE00000007FFFFF +FC7FE00000007FFFFFFC7FE0000000001FFF007FE00000000007FE003FE00000000003FE +003FF00000000003FE001FF00000000003FE001FF00000000003FE001FF80000000003FE +000FF80000000003FE000FF80000000003FE0007FC0000000003FE0003FC0000000003FE +0003FE0000000003FE0001FF0000000003FE0000FF0000000003FE00007F8000000003FE +00003FC000000003FE00001FE000000007FE00000FF000000007FE000007F80000000FFE +000003FE0000001EFE000001FF0000003C7E0000007FC00000F83E0000001FF80003F01E +00000007FF001FC00E00000001FFFFFF0006000000003FFFFC00000000000003FFC00000 +00464879C555>II<0007FFFFFFC00007FFFFFFC00007FFFFFFC0000001 +FFF0000000007FE0000000003FE0000000003FE0000000003FE0000000003FE000000000 +3FE0000000003FE0000000003FE0000000003FE0000000003FE0000000003FE000000000 +3FE0000000003FE0000000003FE0000000003FE0000000003FE0000000003FE000000000 +3FE0000000003FE0000000003FE0000000003FE0000000003FE0000000003FE000000000 +3FE0000000003FE0000000003FE0000000003FE0000000003FE0000000003FE000000000 +3FE0000000003FE0000000003FE0000000003FE0000000003FE0000000003FE000000000 +3FE0000000003FE0000000003FE0000000003FE0000000003FE0000000003FE000000000 +3FE0000000003FE0000000003FE0000000003FE0000000003FE0000000003FE0000E0000 +3FE0003F80003FE0007FC0003FE000FFE0003FE000FFE0003FE000FFE0003FE000FFE000 +3FE000FFE0007FC000FFC0007FC0007FC0007F80007F0000FF8000780000FF00003C0001 +FE00001E0003FC00000F0003F8000007800FF0000001F01FC00000007FFF000000000FF8 +0000002A467AC338>74 DII80 D<0001FF8000C0000FFFF001C0003FFFFC03C000FF007F03C001F800 +0F87C003F00003E7C007C00001FFC00F800000FFC01F8000007FC01F0000003FC03E0000 +001FC03E0000001FC07E0000000FC07C0000000FC07C00000007C0FC00000007C0FC0000 +0003C0FC00000003C0FC00000003C0FE00000003C0FE00000001C0FF00000001C0FF0000 +0001C0FF80000001C07FC0000000007FE0000000007FF0000000003FFC000000003FFFC0 +0000001FFFFC0000000FFFFFC000000FFFFFFC000007FFFFFF800003FFFFFFE00000FFFF +FFF800007FFFFFFC00001FFFFFFE000003FFFFFF0000003FFFFF80000003FFFFC0000000 +3FFFC000000003FFE000000000FFE0000000007FF0000000001FF0000000001FF0000000 +000FF80000000007F8E000000007F8E000000003F8E000000003F8E000000001F8E00000 +0001F8E000000001F8F000000001F8F000000001F8F000000001F0F800000001F0F80000 +0003F0FC00000003F0FC00000003E0FE00000007E0FF00000007C0FF8000000F80FFC000 +001F80FFE000003F00F8F800007E00F87F0000FC00F01FE007F000F007FFFFE000E001FF +FF0000C0001FFC00002D4879C53D>83 D<3FFFFFFFFFFFFFFF003FFFFFFFFFFFFFFF003F +FFFFFFFFFFFFFF003FF8000FFE0007FF003FC00007FC0000FF003F000007FC00003F007E +000007FC00001F807C000007FC00000F807C000007FC00000F8078000007FC0000078078 +000007FC0000078078000007FC0000078070000007FC0000038070000007FC0000038070 +000007FC0000038070000007FC0000038070000007FC00000380E0000007FC000001C0E0 +000007FC000001C0E0000007FC000001C0E0000007FC000001C0E0000007FC000001C000 +000007FC0000000000000007FC0000000000000007FC0000000000000007FC0000000000 +000007FC0000000000000007FC0000000000000007FC0000000000000007FC0000000000 +000007FC0000000000000007FC0000000000000007FC0000000000000007FC0000000000 +000007FC0000000000000007FC0000000000000007FC0000000000000007FC0000000000 +000007FC0000000000000007FC0000000000000007FC0000000000000007FC0000000000 +000007FC0000000000000007FC0000000000000007FC0000000000000007FC0000000000 +000007FC0000000000000007FC0000000000000007FC0000000000000007FC0000000000 +000007FC0000000000000007FC0000000000000007FC0000000000000007FC0000000000 +000007FC0000000000000007FC0000000000000007FC0000000000000007FC0000000000 +000007FC0000000000000007FC0000000000000007FC0000000000000007FC0000000000 +00000FFE000000000000003FFF800000000001FFFFFFFFF000000001FFFFFFFFF0000000 +01FFFFFFFFF0000042437BC24E>I<00000070000000000000F8000000000000F8000000 +000000F8000000000001FC000000000001FC000000000003FE000000000003FE00000000 +0003FE000000000007FF0000000000077F0000000000077F00000000000E3F8000000000 +0E3F80000000001E3FC0000000001C1FC0000000001C1FC000000000380FE00000000038 +0FE000000000380FE0000000007007F0000000007007F000000000F007F800000000E003 +F800000000E003F800000001C001FC00000001C001FC00000001C001FC000000038000FE +000000038000FE000000078000FF0000000700007F0000000700007F0000000FFFFFFF80 +00000FFFFFFF8000001FFFFFFFC000001C00001FC000001C00001FC000003C00001FE000 +003800000FE000003800000FE0000070000007F0000070000007F00000F0000007F80000 +E0000003F80001E0000003F80001E0000003FC0003F0000001FC0007F0000003FE001FF8 +000007FF00FFFF00007FFFF8FFFF00007FFFF8FFFF00007FFFF835357CB43D>97 +DI<000001FF00018000001F +FFF003800000FFFFFC07800003FF007E0F800007F8000F9F80001FE00003DF80003FC000 +01FF8000FF000000FF8001FE0000007F8003FC0000003F8003FC0000003F8007F8000000 +1F800FF00000000F801FF00000000F801FE000000007803FE000000007803FC000000007 +803FC000000007807FC000000003807FC000000003807FC00000000380FF800000000000 +FF800000000000FF800000000000FF800000000000FF800000000000FF800000000000FF +800000000000FF800000000000FF800000000000FF800000000000FF8000000000007FC0 +00000000007FC000000003807FC000000003803FC000000003803FC000000003803FE000 +000003801FE000000007801FF000000007000FF00000000F0007F80000000E0003FC0000 +001E0003FC0000001C0001FE0000003C0000FF0000007800003FC00000F000001FE00003 +E0000007F80007C0000003FF807F00000000FFFFFC000000001FFFF00000000001FF8000 +0031357BB33B>II +II<000003FF00030000001F +FFE007000000FFFFF80F000003FF00FE1F00000FF8001F3F00001FE00007BF00007F8000 +03FF0000FF000001FF0001FE000000FF0003FC0000007F0007F80000003F0007F8000000 +3F000FF00000001F001FF00000001F001FE00000000F003FE00000000F003FC00000000F +003FC00000000F007FC000000007007FC000000007007F800000000700FF800000000000 +FF800000000000FF800000000000FF800000000000FF800000000000FF800000000000FF +800000000000FF800000000000FF800000000000FF800000000000FF800001FFFFF87FC0 +0001FFFFF87FC00001FFFFF87FC0000001FF803FC0000000FF003FC00000007F003FE000 +00007F001FE00000007F001FF00000007F000FF00000007F0007F80000007F0007FC0000 +007F0003FC0000007F0001FE0000007F0000FF000000FF00007FC00000FF00001FE00001 +FF00000FF80007DF000003FF803F8F000000FFFFFE070000001FFFF80300000003FF8000 +0035357BB340>III107 +DIII<000007FF00000000003FFFE000000001FE03FC00000007 +F0007F0000000FC0001F8000003F80000FE000007F000007F00000FE000003F80001FC00 +0001FC0003F8000000FE0007F00000007F0007F00000007F000FE00000003F801FE00000 +003FC01FE00000003FC03FC00000001FE03FC00000001FE03FC00000001FE07FC0000000 +1FF07F800000000FF07F800000000FF07F800000000FF0FF800000000FF8FF800000000F +F8FF800000000FF8FF800000000FF8FF800000000FF8FF800000000FF8FF800000000FF8 +FF800000000FF8FF800000000FF8FF800000000FF87F800000000FF07FC00000001FF07F +C00000001FF03FC00000001FE03FC00000001FE03FE00000003FE01FE00000003FC01FE0 +0000003FC00FF00000007F8007F00000007F0007F8000000FF0003F8000000FE0001FC00 +0001FC0000FE000003F800007F000007F000003F80000FE000000FC0001F80000007F000 +7F00000001FE03FC000000003FFFE00000000007FF00000035357BB33F>II114 +D<000FF00180007FFE038001FFFF878007F00FEF800FC001FF801F0000FF803E00003F80 +3E00001F807C00001F807C00000F80F800000F80F800000780F800000780F800000780FC +00000380FC00000380FE00000380FF000000007F800000007FC00000003FF80000003FFF +8000001FFFFC00000FFFFFC00007FFFFF00003FFFFF80000FFFFFE00001FFFFF000003FF +FF8000001FFFC0000001FFC00000003FE00000001FE00000000FE000000007F000000003 +F0E0000003F0E0000001F0E0000001F0E0000001F0F0000001F0F0000001F0F0000001E0 +F8000003E0F8000003E0FC000007C0FE00000F80FF80001F00FFE0003E00FBFE00FC00F0 +FFFFF800E01FFFE000C003FF000024357BB32E>I<7FFFFFFFFFFFC07FFFFFFFFFFFC07F +FFFFFFFFFFC07F8007FC003FC07E0003F8000FC07C0003F80007C0780003F80003C07000 +03F80001C0700003F80001C0F00003F80001E0F00003F80001E0E00003F80000E0E00003 +F80000E0E00003F80000E0E00003F80000E0E00003F80000E0E00003F80000E0000003F8 +000000000003F8000000000003F8000000000003F8000000000003F8000000000003F800 +0000000003F8000000000003F8000000000003F8000000000003F8000000000003F80000 +00000003F8000000000003F8000000000003F8000000000003F8000000000003F8000000 +000003F8000000000003F8000000000003F8000000000003F8000000000003F800000000 +0003F8000000000003F8000000000003F8000000000003F8000000000003F80000000000 +03F8000000000003F8000000000007FC00000000000FFE000000000FFFFFFE0000000FFF +FFFE0000000FFFFFFE000033327CB13B>II119 D +121 D E /Fn 38 113 df<7FFFFFFFFFFFFFE0FFFFFFFFFFFFFFF0FFFFFFFFFFFFFFF07F +FFFFFFFFFFFFE03C04789A4D>0 D<1F003F807FC0FFE0FFE0FFE0FFE0FFE07FC03F801F +000B0B789E1C>I<600000000006F8000000000FFC000000001F7E000000003F3F000000 +007E1F80000000FC0FC0000001F807E0000003F003F0000007E001F800000FC000FC0000 +1F80007E00003F00003F00007E00001F8000FC00000FC001F8000007E003F0000003F007 +E0000001F80FC0000000FC1F800000007E3F000000003F7E000000001FFC000000000FF8 +0000000007F00000000007F0000000000FF8000000001FFC000000003F7E000000007E3F +00000000FC1F80000001F80FC0000003F007E0000007E003F000000FC001F800001F8000 +FC00003F00007E00007E00003F0000FC00001F8001F800000FC003F0000007E007E00000 +03F00FC0000001F81F80000000FC3F000000007E7E000000003FFC000000001FF8000000 +000F600000000006303072B04D>I<00007000000000F800000000F800000000F8000000 +00F800000000F800000000F800000000F800000000F80000000070000078007000F07C00 +7001F0FF007007F87F80700FF03FE0703FE00FF0707F8003F870FE0000FE73F800003F77 +E000000FFF80000003FE00000000F800000003FE0000000FFF8000003F77E00000FE73F8 +0003F870FE000FF0707F803FE0703FE07F80700FF0FF007007F87C007001F078007000F0 +00007000000000F800000000F800000000F800000000F800000000F800000000F8000000 +00F800000000F800000000700000252B7AAD32>I<00000000C00000000000000001E000 +00000000000001E00000000000000001E00000000000000001E00000000000000001E000 +00000000000001E00000000000000001E00000000000000001E00000000000000001E000 +00000000000001E00000000000000001E00000000000000001E00000000000000001E000 +00000000000001E00000000000000001E00000000000000001E00000000000000001E000 +00000000000001E00000000000000001E00000000000000001E00000000000000001E000 +00000000000001E00000000000000001E00000000000000001E00000000000000001E000 +00000000000001E00000000000000001E00000000000000001E00000000000000001E000 +00000000000001E0000000007FFFFFFFFFFFFFFF80FFFFFFFFFFFFFFFFC0FFFFFFFFFFFF +FFFFC07FFFFFFFFFFFFFFF8000000001E00000000000000001E00000000000000001E000 +00000000000001E00000000000000001E00000000000000001E00000000000000001E000 +00000000000001E00000000000000001E00000000000000001E00000000000000001E000 +00000000000001E00000000000000001E00000000000000001E00000000000000001E000 +00000000000001E00000000000000001E00000000000000001E00000000000000001E000 +00000000000001E00000000000000001E00000000000000001E00000000000000001E000 +00000000000001E00000000000000001E00000000000000001E00000000000000001E000 +0000007FFFFFFFFFFFFFFF80FFFFFFFFFFFFFFFFC0FFFFFFFFFFFFFFFFC07FFFFFFFFFFF +FFFF8042427BC14D>6 D<7FFFFFFFFFFFFFFF80FFFFFFFFFFFFFFFFC0FFFFFFFFFFFFFF +FFC07FFFFFFFFFFFFFFF8000000001E00000000000000001E00000000000000001E00000 +000000000001E00000000000000001E00000000000000001E00000000000000001E00000 +000000000001E00000000000000001E00000000000000001E00000000000000001E00000 +000000000001E00000000000000001E00000000000000001E00000000000000001E00000 +000000000001E00000000000000001E00000000000000001E00000000000000001E00000 +000000000001E00000000000000001E00000000000000001E00000000000000001E00000 +000000000001E00000000000000001E00000000000000001E00000000000000001E00000 +00007FFFFFFFFFFFFFFF80FFFFFFFFFFFFFFFFC0FFFFFFFFFFFFFFFFC07FFFFFFFFFFFFF +FF8000000001E00000000000000001E00000000000000001E00000000000000001E00000 +000000000001E00000000000000001E00000000000000001E00000000000000001E00000 +000000000001E00000000000000001E00000000000000001E00000000000000001E00000 +000000000001E00000000000000001E00000000000000001E00000000000000001E00000 +000000000001E00000000000000001E00000000000000001E00000000000000001E00000 +000000000001E00000000000000001E00000000000000001E00000000000000001E00000 +000000000001E00000000000000001E00000000000000001E00000000000000001E00000 +000000000001E00000000000000001E00000000000000000C00000000042427BB14D>I< +0000001FFE00000000000001FFFFE000000000000FFFFFFC00000000003FF003FF000000 +0000FF00003FC000000001F8000007E000000007E0000001F80000000F800000007C0000 +001F000000003E0000003C000000000F000000780000000007800000FC0000000007C000 +01FE000000000FE00003CF000000001EF0000387800000003C70000783C0000000787800 +0F01E0000000F03C000E00F0000001E01C001E0078000003C01E001C003C000007800E00 +3C001E00000F000F0038000F00001E00070038000780003C000700780003C00078000780 +700001E000F0000380700000F001E00003807000007803C0000380F000003C07800003C0 +E000001E0F000001C0E000000F1E000001C0E0000007BC000001C0E0000003F8000001C0 +E0000001F0000001C0E0000001F0000001C0E0000003F8000001C0E0000007BC000001C0 +E000000F1E000001C0E000001E0F000001C0F000003C07800003C07000007803C0000380 +700000F001E0000380700001E000F0000380780003C0007800078038000780003C000700 +38000F00001E0007003C001E00000F000F001C003C000007800E001E0078000003C01E00 +0E00F0000001E01C000F01E0000000F03C000783C00000007878000387800000003C7000 +03CF000000001EF00001FE000000000FE00000FC0000000007C000007800000000078000 +003C000000000F0000001F000000003E0000000F800000007C00000007E0000001F80000 +0001F8000007E000000000FF00003FC0000000003FF003FF00000000000FFFFFFC000000 +000001FFFFE00000000000001FFE0000000042427BB94D>10 D<0000000003FFE0000000 +0000000000007FFFFF000000000000000003FFFFFFE0000000000000000FFFFFFFF80000 +00000000007FFE003FFF00000000000000FFC00001FF80000000000003FE0000003FE000 +000000000FF80000000FF800000000001FC000000001FC00000000003F8000000000FE00 +00000000FE00000000003F8000000001FC00000000001FC000000003F0000000000007E0 +00000007E0000000000003F00000000FC0000000000001F80000001F80000000000000FC +0000003F000000000000007E0000007E000000000000003F0000007C000000000000001F +000000F8000000000000000F800001F8000000000000000FC00001F00000000000000007 +C00003E00000000000000003E00003E00000000000000003E00007C00000000000000001 +F0000FC00000000000000001F8000F800000000000000000F8000F000000000000000000 +78001F0000000000000000007C001F0000000000000000007C003E000000000000000000 +3E003E0000000000000000003E003C0000000000000000001E003C000000000000000000 +1E007C0000000000000000001F007C0000000000000000001F0078000000000000000000 +0F00780000000000000000000F00F80000000000000000000F80F8000000000000000000 +0F80F00000000000000000000780F00000000000000000000780F0000000000000000000 +0780F00000000000000000000780F00000000000000000000780F0000000000000000000 +0780F00000000000000000000780F00000000000000000000780F0000000000000000000 +0780F00000000000000000000780F00000000000000000000780F0000000000000000000 +0780F80000000000000000000F80F80000000000000000000F8078000000000000000000 +0F00780000000000000000000F007C0000000000000000001F007C000000000000000000 +1F003C0000000000000000001E003C0000000000000000001E003E000000000000000000 +3E003E0000000000000000003E001F0000000000000000007C001F000000000000000000 +7C000F00000000000000000078000F800000000000000000F8000FC00000000000000001 +F80007C00000000000000001F00003E00000000000000003E00003E00000000000000003 +E00001F00000000000000007C00001F8000000000000000FC00000F8000000000000000F +8000007C000000000000001F0000007E000000000000003F0000003F000000000000007E +0000001F80000000000000FC0000000FC0000000000001F800000007E0000000000003F0 +00000003F0000000000007E000000001FC00000000001FC000000000FE00000000003F80 +000000003F8000000000FE00000000001FC000000001FC00000000000FF80000000FF800 +0000000003FE0000003FE0000000000000FFC00001FF800000000000007FFE003FFF0000 +00000000000FFFFFFFF80000000000000003FFFFFFE000000000000000007FFFFF000000 +00000000000003FFE00000000000595C7BC664>13 D<0001FF0000000FFFE000003FFFF8 +00007FFFFC0001FFFFFF0003FFFFFF8007FFFFFFC00FFFFFFFE01FFFFFFFF01FFFFFFFF0 +3FFFFFFFF87FFFFFFFFC7FFFFFFFFC7FFFFFFFFCFFFFFFFFFEFFFFFFFFFEFFFFFFFFFEFF +FFFFFFFEFFFFFFFFFEFFFFFFFFFEFFFFFFFFFEFFFFFFFFFEFFFFFFFFFEFFFFFFFFFE7FFF +FFFFFC7FFFFFFFFC7FFFFFFFFC3FFFFFFFF81FFFFFFFF01FFFFFFFF00FFFFFFFE007FFFF +FFC003FFFFFF8001FFFFFF00007FFFFC00003FFFF800000FFFE0000001FF000027267BAB +32>15 D<7FFFFFFFFFFFFFFF80FFFFFFFFFFFFFFFFC0FFFFFFFFFFFFFFFFC07FFFFFFFFF +FFFFFF800000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000007FFFFFFFFFFFFFFF80FFFFFFFFFFFFFFFFC0FFFFFFFFFFFFFFFFC07FFFFFFFFF +FFFFFF800000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000007FFFFFFFFFFFFFFF80FFFFFFFFFFFFFFFFC0FFFFFFFFFFFFFFFFC07FFFFFFFFF +FFFFFF80422C7BAE4D>17 D<00000000000000E000000000000003F00000000000000FF0 +0000000000003FE0000000000000FF80000000000003FE0000000000000FF80000000000 +003FE0000000000000FF80000000000003FE0000000000000FF80000000000003FE00000 +00000000FF80000000000003FE0000000000001FF80000000000007FE0000000000001FF +80000000000007FE0000000000001FF00000000000007FC0000000000001FF0000000000 +0007FC0000000000001FF00000000000007FC0000000000001FF00000000000007FC0000 +000000001FF00000000000007FC0000000000000FF00000000000000FF00000000000000 +7FC00000000000001FF000000000000007FC00000000000001FF000000000000007FC000 +00000000001FF000000000000007FC00000000000001FF000000000000007FC000000000 +00001FF000000000000007FC00000000000001FF800000000000007FE00000000000001F +F800000000000007FE00000000000000FF800000000000003FE00000000000000FF80000 +0000000003FE00000000000000FF800000000000003FE00000000000000FF80000000000 +0003FE00000000000000FF800000000000003FE00000000000000FF000000000000003F0 +00000000000000E000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000007FFFFFFFFFFFFFE0 +FFFFFFFFFFFFFFF0FFFFFFFFFFFFFFF07FFFFFFFFFFFFFE03C4E78BE4D>20 +D<7000000000000000FC00000000000000FF000000000000007FC00000000000001FF000 +000000000007FC00000000000001FF000000000000007FC00000000000001FF000000000 +000007FC00000000000001FF000000000000007FC00000000000001FF000000000000007 +FC00000000000001FF800000000000007FE00000000000001FF800000000000007FE0000 +0000000000FF800000000000003FE00000000000000FF800000000000003FE0000000000 +0000FF800000000000003FE00000000000000FF800000000000003FE00000000000000FF +800000000000003FE00000000000000FF00000000000000FF00000000000003FE0000000 +000000FF80000000000003FE0000000000000FF80000000000003FE0000000000000FF80 +000000000003FE0000000000000FF80000000000003FE0000000000000FF800000000000 +03FE0000000000001FF80000000000007FE0000000000001FF80000000000007FE000000 +0000001FF00000000000007FC0000000000001FF00000000000007FC0000000000001FF0 +0000000000007FC0000000000001FF00000000000007FC0000000000001FF00000000000 +007FC0000000000000FF00000000000000FC000000000000007000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +00000000000000000000000000000000007FFFFFFFFFFFFFE0FFFFFFFFFFFFFFF0FFFFFF +FFFFFFFFF07FFFFFFFFFFFFFE03C4E78BE4D>I<0007F0000000000080001FFE00000000 +01C0007FFF8000000001C000FFFFE000000001C001FFFFF000000001C003FFFFF8000000 +01C007F80FFC00000001C00FE001FE00000003C01F80007F00000003801F00001FC00000 +03803E00000FE0000007803C000007F00000070038000003F800000F0078000001FC0000 +1F0070000000FE00003E00700000003F80007E00F00000001FE001FC00E00000000FFC07 +F800E000000007FFFFF000E000000003FFFFE000E000000001FFFFC000E0000000007FFF +8000E0000000001FFE0000400000000003F8000042187BA44D>24 +D<0007F8000000000080003FFF0000000001C000FFFFC000000001C001FFFFF000000001 +C003FFFFF800000001C007FFFFFE00000001C00FF807FF00000003C01FC000FFC0000003 +803F00003FE0000007803E00000FF800000F807C000007FC00001F0078000001FF00003F +0070000000FFC000FE00F00000003FF807FC00E00000001FFFFFF800E000000007FFFFF0 +00E000000003FFFFE000E000000000FFFFC000E0000000003FFF0000400000000007F800 +000000000000000000000000000000000000000000000000000000000000000000000000 +000007F8000000000080003FFF0000000001C000FFFFC000000001C001FFFFF000000001 +C003FFFFF800000001C007FFFFFE00000001C00FF807FF00000003C01FC000FFC0000003 +803F00003FE0000007803E00000FF800000F807C000007FC00001F0078000001FF00003F +0070000000FFC000FE00F00000003FF807FC00E00000001FFFFFF800E000000007FFFFF0 +00E000000003FFFFE000E000000000FFFFC000E0000000003FFF0000400000000007F800 +00422C7BAF4D>I<00000000000000C00000030000000000000003E000000F8000000000 +00000FE000003F800000000000003FC00000FF00000000000000FF800003FE0000000000 +0003FE00000FF800000000000007F800001FE00000000000001FE000007F800000000000 +007F800001FE00000000000001FE000007F800000000000007FC00001FF0000000000000 +1FF000007FC00000000000003FC00000FF00000000000000FF000003FC00000000000003 +FC00000FF00000000000000FF000003FC00000000000003FE00000FF80000000000000FF +800003FE00000000000001FE000007F800000000000007F800001FE00000000000001FE0 +00007F800000000000007F800001FE00000000000001FF000007FC00000000000007FC00 +001FF00000000000000FF000003FC00000000000003FC00000FF00000000000000FF0000 +03FC00000000000003FC00000FF00000000000000FF800003FE00000000000003FE00000 +FF800000000000007F800001FE00000000000000FE000003F800000000000000FE000003 +F8000000000000007F800001FE000000000000003FE00000FF800000000000000FF80000 +3FE000000000000003FC00000FF000000000000000FF000003FC000000000000003FC000 +00FF000000000000000FF000003FC000000000000007FC00001FF000000000000001FF00 +0007FC000000000000007F800001FE000000000000001FE000007F8000000000000007F8 +00001FE000000000000001FE000007F800000000000000FF800003FE000000000000003F +E00000FF800000000000000FF000003FC000000000000003FC00000FF000000000000000 +FF000003FC000000000000003FC00000FF000000000000001FF000007FC0000000000000 +07FC00001FF000000000000001FE000007F8000000000000007F800001FE000000000000 +001FE000007F8000000000000007F800001FE000000000000003FE00000FF80000000000 +0000FF800003FE000000000000003FC00000FF000000000000000FE000003F8000000000 +000003E000000F8000000000000000C00000030059407BB864>28 +D<600000018000000000000000F8000003E000000000000000FE000003F8000000000000 +007F800001FE000000000000003FE00000FF800000000000000FF800003FE00000000000 +0003FC00000FF000000000000000FF000003FC000000000000003FC00000FF0000000000 +00000FF000003FC000000000000007FC00001FF000000000000001FF000007FC00000000 +0000007F800001FE000000000000001FE000007F8000000000000007F800001FE0000000 +00000001FE000007F800000000000000FF800003FE000000000000003FE00000FF800000 +000000000FF000003FC000000000000003FC00000FF000000000000000FF000003FC0000 +00000000003FC00000FF000000000000001FF000007FC000000000000007FC00001FF000 +000000000001FE000007F8000000000000007F800001FE000000000000001FE000007F80 +00000000000007F800001FE000000000000003FE00000FF800000000000000FF800003FE +000000000000003FC00000FF000000000000000FE000003F800000000000000FE000003F +800000000000003FC00000FF00000000000000FF800003FE00000000000003FE00000FF8 +00000000000007F800001FE00000000000001FE000007F800000000000007F800001FE00 +000000000001FE000007F800000000000007FC00001FF00000000000001FF000007FC000 +00000000003FC00000FF00000000000000FF000003FC00000000000003FC00000FF00000 +000000000FF000003FC00000000000003FE00000FF80000000000000FF800003FE000000 +00000001FE000007F800000000000007F800001FE00000000000001FE000007F80000000 +0000007F800001FE00000000000001FF000007FC00000000000007FC00001FF000000000 +00000FF000003FC00000000000003FC00000FF00000000000000FF000003FC0000000000 +0003FC00000FF00000000000000FF800003FE00000000000003FE00000FF800000000000 +007F800001FE00000000000000FE000003F800000000000000F8000003E0000000000000 +0060000001800000000000000059407BB864>I<0000000000000000F000000000000000 +00000000F00000000000000000000000F00000000000000000000000F800000000000000 +000000007800000000000000000000007800000000000000000000007C00000000000000 +000000003C00000000000000000000003C00000000000000000000003E00000000000000 +000000001E00000000000000000000001F00000000000000000000000F80000000000000 +000000000F800000000000000000000007C00000000000000000000003E0000000000000 +0000000003F00000000000000000000001F80000000000000000000000FC000000000000 +00000000007E00000000000000000000003F00000000000000000000001F800000000000 +00000000000FE00000000000000000000003F8007FFFFFFFFFFFFFFFFFFFFE00FFFFFFFF +FFFFFFFFFFFFFF80FFFFFFFFFFFFFFFFFFFFFF807FFFFFFFFFFFFFFFFFFFFE0000000000 +000000000003F8000000000000000000000FE0000000000000000000001F800000000000 +00000000003F00000000000000000000007E0000000000000000000000FC000000000000 +0000000001F80000000000000000000003F00000000000000000000003E0000000000000 +0000000007C0000000000000000000000F80000000000000000000000F80000000000000 +000000001F00000000000000000000001E00000000000000000000003E00000000000000 +000000003C00000000000000000000003C00000000000000000000007C00000000000000 +00000000780000000000000000000000780000000000000000000000F800000000000000 +00000000F00000000000000000000000F00000000000000000000000F000000059347BB2 +64>33 D<0000078000000000F00000000000078000000000F00000000000078000000000 +F000000000000F8000000000F800000000000F00000000007800000000000F0000000000 +7800000000001F00000000007C00000000001E00000000003C00000000001E0000000000 +3C00000000003E00000000003E00000000003C00000000001E00000000007C0000000000 +1F0000000000F800000000000F8000000000F800000000000F8000000001F00000000000 +07C000000003E0000000000003E000000007E0000000000003F00000000FC00000000000 +01F80000001F80000000000000FC0000003F000000000000007E0000007E000000000000 +003F000000FC000000000000001F800003F8000000000000000FE0000FE0000000000000 +0003F8003FFFFFFFFFFFFFFFFFFFFE00FFFFFFFFFFFFFFFFFFFFFF80FFFFFFFFFFFFFFFF +FFFFFF803FFFFFFFFFFFFFFFFFFFFE000FE00000000000000003F80003F8000000000000 +000FE00000FC000000000000001F8000007E000000000000003F0000003F000000000000 +007E0000001F80000000000000FC0000000FC0000000000001F800000007E00000000000 +03F000000003E0000000000003E000000001F0000000000007C000000000F80000000000 +0F8000000000F800000000000F80000000007C00000000001F00000000003C0000000000 +1E00000000003E00000000003E00000000001E00000000003C00000000001E0000000000 +3C00000000001F00000000007C00000000000F00000000007800000000000F0000000000 +7800000000000F8000000000F80000000000078000000000F00000000000078000000000 +F00000000000078000000000F000000059347BB264>36 D<0007F8000000000080003FFF +0000000001C000FFFFC000000001C001FFFFE000000001C003FFFFF800000001C007FFFF +FC00000001C00FF807FF00000003C01FC000FF80000003801F00003FC0000007803E0000 +1FF0000007803C000007F800000F0078000003FE00001F0078000000FF00003E00700000 +007FC000FE00F00000003FF807FC00E00000000FFFFFF800E000000007FFFFF000E00000 +0001FFFFE000E000000000FFFFC000E0000000003FFF0000400000000007F80000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000007FFFFFFFFFFFFFFF80FFFFFFFFFFFFFFFFC0FFFFFF +FFFFFFFFFFC07FFFFFFFFFFFFFFF80422B7BAD4D>39 D<00000000000003000000000000 +000000000007800000000000000000000007C00000000000000000000003C00000000000 +000000000003E00000000000000000000001E00000000000000000000001F00000000000 +000000000000F800000000000000000000007800000000000000000000007C0000000000 +0000000000003E00000000000000000000001F00000000000000000000000F8000000000 +0000000000000FC00000000000000000000007E00000000000000000000003F00000007F +FFFFFFFFFFFFFFF8000000FFFFFFFFFFFFFFFFFC000000FFFFFFFFFFFFFFFFFE0000007F +FFFFFFFFFFFFFFFF00000000000000000000000FC00000000000000000000007E0000000 +0000000000000003F80000000000000000000000FE00000000000000000000007F800000 +00000000000000001FE00000000000000000000007FC0000000000000000000001FF8000 +000000000000000001FF8000000000000000000007FC000000000000000000001FE00000 +00000000000000007F8000000000000000000000FE0000000000000000000003F8000000 +0000000000000007E0000000000000000000000FC000007FFFFFFFFFFFFFFFFF000000FF +FFFFFFFFFFFFFFFE000000FFFFFFFFFFFFFFFFFC0000007FFFFFFFFFFFFFFFF800000000 +00000000000003F00000000000000000000007E0000000000000000000000FC000000000 +0000000000000F80000000000000000000001F00000000000000000000003E0000000000 +0000000000007C0000000000000000000000780000000000000000000000F80000000000 +000000000001F00000000000000000000001E00000000000000000000003E00000000000 +000000000003C00000000000000000000007C00000000000000000000007800000000000 +000000000003000000000059387BB464>41 D<0003FC000000001FC0001FFF80000000FF +C0007FFFE0000003FFC000FFFFF800000FE00001F81FFC00003F000003C003FF00007C00 +00078001FF8000F800000F00007FC001F000001E00003FE003E000001C00001FF007C000 +003800000FF00F8000003800000FF80F00000030000007FC1E00000070000003FE3E0000 +0060000001FE3C00000060000001FF7800000060000000FF78000000E00000007FF00000 +00C00000007FF0000000C00000003FE0000000C00000003FE0000000C00000001FF00000 +00C00000000FF0000000C00000000FF8000000C000000007FC000000C000000007FC0000 +00C00000000FFE000000E00000000FFE000000600000001EFF000000600000001EFF8000 +00600000003C7F800000700000007C7FC0000030000000783FE0000030000000F01FF000 +0038000001F00FF000001C000003E00FF800001C000007C007FC00000E00000F8003FE00 +000700001F0001FF80000780003E0000FFC00003C000FC00003FF80001F007F000001FFF +C0007FFFC0000007FFC0001FFF00000001FFC00007F8000000003FC0422D7BAB4D>47 +D<0001FF00000000003FC00000000FFFE000000003FFF80000003FFFFC0000000FFFFE00 +00007FFFFF0000003FE01F000001FFFFFF8000007E0007C00003F803FFE00001F80001E0 +0007E0007FF00003F00000F0000780003FF80007C0000070000F00001FFC000F80000038 +001E000007FE001F0000001C001C000003FF003E0000000C0038000001FF807C0000000E +0038000001FFC0F8000000060070000000FFE0F80000000700700000007FF1F000000007 +00600000003FF3E00000000300600000001FFBC00000000300E00000001FFFC000000003 +80C00000000FFF800000000180C000000007FF000000000180C000000003FF0000000001 +80C000000001FF800000000180C000000001FFC00000000180C000000000FFC000000001 +80C0000000007FE00000000180C0000000007FF00000000180C000000000FFF800000001 +80E000000001FFFC00000003806000000001EFFC00000003006000000003E7FE00000003 +007000000007C7FF0000000700700000000F83FF8000000700300000000F81FFC000000E +00380000001F00FFC000000E00180000003E007FE000001C001C0000007C003FF000003C +000E000000F8001FFC0000780007000001F0000FFE0000F00007800007E00007FF0003F0 +0003C0000FC00003FFE00FE00001F0003F000000FFFFFFC000007C03FE0000007FFFFF00 +00003FFFF80000001FFFFE0000000FFFE000000003FFF800000001FE00000000007FC000 +00592D7BAB64>49 D<00000000000600000000000F00000000001F00000000001F000000 +00003E00000000003E00000000007C00000000007C0000000000F80000000000F8000000 +0001F00000000001F00000000003E00000000003E00000000007C00000000007C0000000 +000F80000000000F80000000001F00000000001F00000000003E00000000003E00000000 +007C00000000007C0000000000F80000000000F80000000001F00000000001F000000000 +03E00000000003E00000000007C00000000007C0000000000F80000000000F8000000000 +1F00000000001F00000000003E00000000003E00000000007C00000000007C0000000000 +F80000000000F80000000001F00000000001F00000000003E00000000003E00000000007 +C00000000007C0000000000F80000000000F80000000001F00000000001F00000000003E +00000000003E00000000007C00000000007C0000000000F80000000000F80000000001F0 +0000000001F00000000003E00000000003E00000000007C00000000007C0000000000F80 +000000000F80000000001F00000000001F00000000003E00000000003E00000000007C00 +000000007C0000000000F80000000000F80000000001F00000000001F00000000003E000 +00000003E00000000007C00000000007C0000000000F80000000000F80000000001F0000 +0000001F00000000003E00000000003E00000000007C00000000007C0000000000F80000 +000000F80000000000F00000000000600000000000305C72C600>54 +D<000000000007F00000007F000000FFF8000001FFC00007FFF8000007C1F0001FFFFC00 +000F00F8007F0FFC00001E00FC01F80FFE00001C007E03E007FE00003C003F078007FF00 +0038003F8F0003FF000078001F9E0003FF800078001FFC0001FF800078001FF80001FFC0 +0078001FF80000FFC00078000FF000007FE00078000FF000007FF00078000FF000003FF0 +003C000FF000003FF8003E000FF000001FF8001F000FF800001FFC001F800FF800000FFC +000FC00FF800000FFE0007E00FF8000007FE0003F00FF8000007FF0001F00FF8000003FF +0000F80FF8000003FF80007C0FF8000001FF80003C0FFC000000FFC0003C0FFC000000FF +C0001E0FFC0000007F00001E0FFC000000FC00001E0FFC000003F000001E0FFC00000FE0 +00001E0FFC00003F8000001E0FFC0000FE0000001E0FFFFFFFF80000001E0FFFFFFFC000 +00001E0FFFFFFFC00000001E0FFC007FC00000701E0FFC007FC00000701C0FFC007FC000 +00701C0FFC007FC00000703C0FFC007FC0000078380FFC007FC0000038380FFC007FC000 +003C700FFC007FC000001FE00FFC007FC0000007800FF8007FC0000000000FF8007FC000 +0000000FF8007FC0000000000FF8007FE0000000000FF8003FE0000000000FF8003FE000 +0000000FF8003FE0000000000FF8003FE0000000000FF8003FE0000000000FF8003FE000 +0000000FF0003FE0000000000FF0003FE0000038000FF0003FE000003B000FF0003FE000 +003F000FE0003FE000007C000FE0003FE00000FC000FE0003FE000001E000FC0003FE000 +000E001FC0003FE007800F001F80003FF00F8007001F80001FF01F0007803F00001FF83C +0003C03E00000FFCF80001E07C000007FFE00000F078000003FFC000003FF0000000FF80 +00000FC00000003E000042497CC648>60 D<00000003FFFFFFFFC0000000FFFFFFFFFFC0 +00000FFFFFFFFFFF8000003FFFFFFFFFFF000001FFFFFFFFFFFC000003FFFFFFFFFFF000 +000FFC0000FC000000001F800001F8000000003F000003F8000000007E000007F0000000 +00FE000007F000000001FE00000FE000000001FC00000FE000000003F800001FC0000000 +03E000001FC000000003C000003FC0000000000000003F80000000000000007F80000000 +000000007F80000000000000007F0000000000000000FF0000000000000000FF00000000 +00000000FF0000000000000001FE0000000000000001FE0000000000000001FE00000000 +00000001FC0000000000000003FC0000000000000003FC0000000000000003FC00000000 +00000007F80000000000000007F80000000000000007F80000000000000007F800000000 +0000000FF0000000000000000FF0000000000000000FF0000000000000000FF000000000 +0000001FE0000000000000001FE0000000000000001FE0000000000000001FE000000000 +0000003FC0000000000000003FC0000000000000003FC0000000000000003F8000000000 +0000007F80000000000000007F80000000000000007F0000000000000000FF0000000000 +000000FF0000000000000000FE0000000000000001FE0000000000000001FC0000000000 +000001FC0000000000000003F80000070000000003F000001F0000000007F000003F0000 +000007E000007E000000000FC00000FC000000001F800001F8000000001F000001F00000 +01FFFFFFFFFFE000000FFFFFFFFFFF8000001FFFFFFFFFFF0000003FFFFFFFFFFC000000 +7FFFFFFFFFE0000000FFFFFFFFFF00000000424483C336>73 D<000000000007F8000000 +0000003FFE000000000001FFFF000000000007FFFF80000000001FFFFF80000000003FFF +FFC0000000007E1FFFC000000001F807FFC000000003F003FFC000000007E001FFC00000 +000FE001FFC00000001FC000FFC00000003F8000FFC00000003F8000FFC00000007F0000 +FF80000000FF0000FF00000000FE0000FC00000001FE0000F800000001FC0000C0000000 +03FC00000000000003F800000000000007F800000000000007F80000000000000FF00000 +000000000FF00000000000001FF00000000000001FE00000000000001FE0000000000000 +3FE00000000000003FC00000000000003FC00000000000007FC00000000000007F800000 +000000007F80000000000000FF80000000000000FF80000000000000FF00000000000001 +FF00000000000001FF00000000000001FF00000000000001FE00000000000003FE000000 +00000003FE00000000000003FE00000000000003FC00000000000007FC00000000000007 +FC00000000000007F800000000000007F80000000000000FF80000000000000FF0000000 +0000000FF00000000000001FE00000000000001FE00000000000001FE00000000000003F +C0000000000C003FC0000000007C007F8000000000F8007F0000000003F8007F00000000 +07F800FFFF8000000FF001FFFFF800000FF001FFFFFF80001FE003FFFFFFF0001FC003FF +FFFFFF001F8007FFFFFFFFF03F000FE1FFFFFFFFFC001FC01FFFFFFFF8003F8001FFFFFF +F0007E00003FFFFFC0007C000003FFFE0000F00000003FF800003E487DC545>76 +D<0000000003800000000000000060000000000F8000000000000000E0000000001F8000 +000000000001E0000000003FC000000000000001E0000000007FC000000000000003C000 +0000007FC000000000000007C0000000007FC00000000000000FC0000000007FC0000000 +0000001FC0000000007FE00000000000003FC000000000FFE00000000000003FC0000000 +00FFE00000000000007F8000000000FFE0000000000000FF8000000000FFE00000000000 +01FF8000000000FFE0000000000003FF8000000000FFF0000000000007FF8000000001FF +F0000000000007FF8000000001FFF000000000000FFF0000000001FFF000000000001FFF +0000000001CFF800000000003FFF0000000001CFF800000000007EFF0000000003CFF800 +00000000FDFF0000000003CFF80000000000F9FF0000000003C7F80000000001F9FE0000 +00000387FC0000000003F1FE000000000387FC0000000007E1FE000000000787FC000000 +000FC1FE000000000787FC000000001F83FE000000000703FE000000003F03FE00000000 +0703FE000000003F03FE000000000F03FE000000007E03FC000000000E03FE00000000FC +03FC000000000E01FF00000001F803FC000000001E01FF00000003F003FC000000001C01 +FF00000007E007FC000000001C01FF0000000FC007FC000000003C00FF8000000FC007FC +000000003C00FF8000001F8007FC000000003800FF8000003F0007F8000000003800FF80 +00007E0007F80000000078007FC00000FC0007F80000000070007FC00001F80007F80000 +000070007FC00003F0000FF800000000E0007FC00007F0000FF800000000E0003FE0000F +E0000FF800000001E0003FE0000FC0000FF800000001C0003FE0001F80000FF800000001 +C0003FF0003F00000FF800000003C0001FF0007E00000FF00000000380001FF000FC0000 +0FF00000000380001FF801F800000FF00000000700000FF803F000000FF0000000070000 +0FFC07F000001FF00000000F00000FFC0FE000001FF00000000E000007FC1FC000001FF0 +0000000E000007FE3F8000001FF00000001C000003FE7F0000001FF00000001C000003FF +FE0000001FF00000003C000003FFFC0000001FF000000038000001FFF80000001FF00000 +0078000001FFF00000001FF000000070000000FFE00000001FF0000000F0000000FFC000 +00001FF0001001E00000007F800000001FF0003801E00000007F000000001FF0007C03C0 +0000003E000000001FF0007F87C00000001C000000001FF030FFFF800000001800000000 +1FF8F0FFFF8000000000000000001FFFE0FFFF0000000000000000001FFFC0FFFE000000 +0000000000001FFF80FFFE0000000000000000000FFE00FFFC0000000000000000000FF8 +007FF800000000000000000007C0003FF000000000000000000000000007E00000000000 +000000000000006C4B7DC578>I<00000000000000000000000FE0000000000000000000 +0000FFE00000000000000000000003FFE0000000000000000000000FFFE0000000000000 +000000001FFFE0000000000000000000003FFFE0000000000000000000007FFFC0000000 +001E00000000007FFFC0000000007E0000000000FFFF8000000000FE0000000000FFC000 +00000001FE0000000001FC000000000001FF0000000001F0000000000001FF0000000001 +C0000000000003FF000000000380000000000003FF800000000380000000000003FF8000 +00000780000000000003FF800000000700000000000003FFC00000000700000000000003 +FFC00000000F00000000000003FFC00000000E00000000000003FFC00000000E00000000 +000007BFE00000001E00000000000007BFE00000001E00000000000007BFE00000001C00 +000000000007BFF00000001C000000000000071FF00000003C000000000000071FF00000 +00380000000000000F1FF8000000380000000000000F0FF8000000780000000000000F0F +F8000000780000000000000F0FFC000000700000000000000E07FC000000700000000000 +000E07FC000000F00000000000001E07FE000000E00000000000001E03FE000000E00000 +000000001C03FE000001E00000000000001C03FF000001E00000000000003C01FF000001 +C00000000000003C01FF000001C00000000000003C01FF800003C00000000000003800FF +800003800000000000003800FF800003800000000000007800FFC0000780000000000000 +78007FC000078000000000000070007FC000070000000000000070007FE0000700000000 +000000F0003FE0000F00000000000000E0003FF0000F00000000000000E0003FF0000E00 +000000000001E0001FF0000E00000000000001E0001FF8001E00000000000001C0000FF8 +001E00000000000001C0000FF8001C00000000000003C0000FFC001C0000000000000380 +0007FC003C00000000000003800007FE003C00000000000007800007FE00380000000000 +0007000003FE003800000000000007000003FF00780000000000000F000001FF00780000 +000000000E000001FF80700000000000000E000001FF80700000000000001E000000FFC0 +F00000000000001C000000FFC0F00000000000001C0000007FE0E0000000000000380000 +007FE0E0000000000000380000003FF1E0000000000000780000003FF1E0000000000000 +700000001FF9C0000000001800F00000001FF9C0000000003C00E00000000FFFC0000000 +003E01E00000000FFFC0000000007FC3C000000007FFC0000000007FFFC000000007FF80 +000000007FFF8000000003FF8000000000FFFF8000000001FF8000000000FFFF00000000 +01FF0000000000FFFF0000000000FE00000000007FFE00000000007C00000000003FFC00 +000000000000000000001FF8000000000000000000000003F00000000000000000000000 +635283CC52>I<00000001C0003FC000000000078001FFF8000000001F000FFFFE000000 +003E003FFFFF00000000FC00FFFFFF80000001F001FFFFFFC0000003E007E03FFFE00000 +0FC00F8007FFE000001F001F0001FFF000003E003E0000FFF000007C007C00007FF80000 +F800FC00003FF80001F001F800001FFC0003E003F000001FFC0007E007F000000FFC000F +C007E000000FFC001F800FC0000007FE003F001FC0000007FE003F001F80000007FE007E +003F80000007FE00FE007F00000003FE01FC007F00000003FE01F800FE00000003FE03F8 +00FC00000003FE03F801F800000003FE07F001F000000003FE0FF0018000000003FE0FE0 +000000000003FE0FE0000000000003FE1FE0000000000003FC1FC0000000000003FC3FC0 +000000000003FC3FC0000000000003FC3FC0000000000007FC7FC0000000000007F87F80 +000000000007F87F80000000000007F87F80000000000007F07F8000000000000FF0FF80 +00000000000FF0FF8000000000000FE0FF8000000000001FE0FF8000000000001FC0FF80 +00000000001FC0FF8000000000003F80FF8000000000003F80FF8000000000007F00FFC0 +00000000007F00FFC00000000000FE00FFC00000000000FC00FFC00000000001F8007FC0 +0000000001F8007FE00000000003F0007FE00000000007E0007FF0000000000FC0007FF0 +000000000F80003FF8000000001F00003FF8000000003E00001FFC000000007C00001FFE +00000000F800000FFF00000003F000000FFF80000007C0000007FFE000000F80000007FF +F000003F00000003FFFC0000FC00000001FFFFC00FF800000000FFFFFFFFE0000000007F +FFFFFF80000000001FFFFFFE00000000000FFFFFF0000000000003FFFF00000000000000 +3FF0000000000047487AC54F>I<0000001FFFFFF00000000003FFFFFFFF800000001FFF +FFFFFFF0000000FFFFFFFFFFFC000003FFFFFFFFFFFF00000FFFFFFFFFFFFF80003FE07F +C00FFFFFC000FE007FC0007FFFE001F8007F80000FFFF003E0007F800003FFF007C0007F +800000FFF80FC0007F8000007FF81F8000FF8000003FF83F8000FF8000001FFC7F8000FF +8000000FFC7F0000FF8000000FFCFE0000FF0000000FFCFC0000FF00000007FCF00000FF +00000007FC800000FF00000007FC000001FF00000007F8000001FE00000007F8000001FE +00000007F8000001FE00000007F0000001FE0000000FF0000003FE0000000FE0000003FC +0000000FE0000003FC0000001FC0000003FC0000001F80000003FC0000003F80000007FC +0000003F00000007F80000007E00000007F8000000FC00000007F8000000F800000007F8 +000001F00000000FF0000003E00000000FF0000007C00000000FF000001F800000000FF0 +00003E000000001FE00000FC000000001FE00007F0000000001FE0007FE0000000001FC0 +7FFF80000000003FC1FFFE00000000003FC7FFF000000000003FCFFF8000000000007F9F +FC0000000000007F9F800000000000007F80000000000000007F0000000000000000FF00 +00000000000000FF0000000000000000FE0000000000000001FE0000000000000001FE00 +00000000000001FC0000000000000003FC0000000000000003FC0000000000000003F800 +00000000000007F80000000000000007F00000000000000007F0000000000000000FF000 +0000000000000FE0000000000000001FE0000000000000001FE0000000000000001FC000 +0000000000003FC0000000000000003F80000000000000003F00000000000000007E0000 +0000000000007C0000000000000000600000000000000046497EC345>I<0000000001FF +C00000000000001FFFF8000000000000FFFFFE000000000007FFFFFF80000000001FFFFF +FFC0000000007FFFFFFFE000000001FE003FFFF000000003F00007FFF80000000FC00001 +FFF80000001F0000007FFC0000007E0000003FFE000000F80000001FFE000001F0000000 +0FFF000003E000000007FF000007C000000007FF00000F8000000003FF80001F80000000 +01FF80003F0000000001FF80007E0000000001FF8000FE0000000000FFC000FC00000000 +00FFC001F80000000000FFC003F80000000000FFC003F000000000007FC007F000000000 +007FC00FF000000000007FC00FE000000000007FC01FE000000000007FC01FC000000000 +007FC01FC000000000007FC03FC000000000007FC03FC000000000007F807F8000000000 +007F807F8000000000007F807F8000000000007F807F800000000000FF00FF8000000000 +00FF00FF800000000000FF00FF800000000000FE00FF800000000001FE00FF8000000000 +01FE00FF800000000001FC00FFC00000000003FC00FFC00000000003F800FFC000000000 +03F800FFC00000000007F0007FE00000000007F0007FE0000000000FE0007FF000000000 +0FC0007FF8000000001F80003FFC000006001F80003FFE00003E003F00001FFF8000FC00 +7E00001FFFF003F800FC00000FFFFFFFE000F8000007FFFFFF8001F0000003FFFFFE0003 +E0000001FFFFF80007C00000007FFFC0000F800000000FFC00003F00000000000000007C +0000000000000000F80000000000000003F0000000000000000FC0000000000000003F80 +00000000000001FE00000000000000FFF800000000007FFFFFE0000000E003FFFFFF8000 +0003E007FFFFFC0000000FC00FFFFFF00000001FC01FFFFFFE0000003FC03FFFFFFF8000 +003F80007FFFFFF000007F000007FFFFFE00007E0000007FFFFFC0007C0000000FFFFFFE +00F800000001FFFFFFFFF0000000007FFFFFFFC0000000000FFFFFFF800000000001FFFF +FE0000000000003FFFF000000000000001FF800000435375C551>I<0000000FE0000000 +FFE0000003FC0000000FE00000003FC00000007F80000000FF00000000FE00000001FC00 +000001FC00000003F800000003F800000003F800000003F800000003F800000003F80000 +0003F800000003F800000003F800000003F800000003F800000003F800000003F8000000 +03F800000003F800000003F800000003F800000003F800000003F800000003F800000003 +F800000003F800000003F800000003F800000003F800000003F800000003F800000003F8 +00000003F800000003F800000003F800000007F000000007F00000000FE00000001FE000 +00003FC00000007F80000000FE00000007F8000000FFE0000000FFE000000007F8000000 +00FE000000007F800000003FC00000001FE00000000FE000000007F000000007F0000000 +03F800000003F800000003F800000003F800000003F800000003F800000003F800000003 +F800000003F800000003F800000003F800000003F800000003F800000003F800000003F8 +00000003F800000003F800000003F800000003F800000003F800000003F800000003F800 +000003F800000003F800000003F800000003F800000003F800000003F800000003F80000 +0003F800000003F800000001FC00000001FC00000000FE00000000FF000000007F800000 +003FC00000000FE000000003FC00000000FFE00000000FE0236479CA32>102 +DI<00000C00001E00003E00003E00003C00007C00007C0000F80000F80000F00001 +F00001F00003E00003E00003C00007C00007C0000F80000F80000F00001F00001F00003E +00003E00003C00007C00007C0000780000F80000F80001F00001F00001E00003E00003E0 +0007C00007C0000780000F80000F80001F00001F00001E00003E00003E00007C00007C00 +00780000F80000F80000F80000F800007800007C00007C00003E00003E00001E00001F00 +001F00000F80000F800007800007C00007C00003E00003E00001E00001F00001F00000F8 +0000F800007800007C00007C00003C00003E00003E00001F00001F00000F00000F80000F +800007C00007C00003C00003E00003E00001F00001F00000F00000F80000F800007C0000 +7C00003C00003E00003E00001E00000C176476CA27>I<600000F00000F80000F8000078 +00007C00007C00003E00003E00001E00001F00001F00000F80000F800007800007C00007 +C00003E00003E00001E00001F00001F00000F80000F800007800007C00007C00003C0000 +3E00003E00001F00001F00000F00000F80000F800007C00007C00003C00003E00003E000 +01F00001F00000F00000F80000F800007C00007C00003C00003E00003E00003E00003E00 +003C00007C00007C0000F80000F80000F00001F00001F00003E00003E00003C00007C000 +07C0000F80000F80000F00001F00001F00003E00003E00003C00007C00007C0000780000 +F80000F80001F00001F00001E00003E00003E00007C00007C0000780000F80000F80001F +00001F00001E00003E00003E00007C00007C0000780000F80000F80000F0000060000017 +647BCA27>I<60F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0 +F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0 +F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0600464 +74CA1C>I<00000300000000000300000000000300000000000780000000000780000000 +000780000000000780000000000FC0000000000FC0000000001FE0000000001FE0000000 +003FF0000000007FF8000000007FF800000000FFFC00000001F7BE00000003E79F000000 +07C78F8000000FC78FC000001F8787E000007F0783F80000FC0780FC0003F807807F001F +F007803FE0FFC007800FFCFF00078003FCFC00078000FC60000780001800000780000000 +000780000000000780000000000780000000000780000000000780000000000780000000 +000780000000000780000000000780000000000780000000000780000000000780000000 +000780000000000780000000000780000000000780000000000780000000000780000000 +000780000000000780000000000780000000000780000000000780000000000780000000 +000780000000000780000000000780000000000780000000000780000000000780000000 +000780000000000780000000000780000000000780000000000780000000000780000000 +000780000000000780000000000780000000000780000000000780000000000780000000 +0007800000000007800000000007800000000007800000000007800000600007800018FC +00078000FCFF00078003FCFFC007800FFC1FF007803FE003F807807F0000FC0780FC0000 +7F0783F800001F8787E000000FC78FC0000007C78F80000003E79F00000001F7BE000000 +00FFFC000000007FF8000000007FF8000000003FF0000000001FE0000000001FE0000000 +000FC0000000000FC0000000000780000000000780000000000780000000000780000000 +00030000000000030000000000030000002E687ECC32>108 D<0000000000000000000C +0000000000000000001E0000000000000000003E0000000000000000003E000000000000 +0000007C0000000000000000007C000000000000000000F8000000000000000000F80000 +00000000000001F0000000000000000001F0000000000000000003E00000000000000000 +03E0000000000000000007C0000000000000000007C000000000000000000F8000000000 +000000000F8000000000000000001F0000000000000000001F0000000000000000003E00 +00000000000000003E0000000000000000007C0000000000000000007C00000000000000 +0000F8000000000000000000F8000000000000000001F0000000000000000001F0000000 +000000000001E0000000000000000003E0000000000000000003E0000000000000000007 +C0000000000000000007C000000000000000000F8000000000000000000F800000000000 +0000001F0000000000000000001F0000000000000000003E0000000000000000003E0000 +000000000000007C0000000000000000007C000000000000000000F80000000000000000 +00F8000000000000000001F0000000000000000001F0000000000000000003E000000000 +0000000003E0000000000000000007C0000000000000000007C000000000000000000F80 +00000000000000000F800000000C000000001F000000003C000000001F000000007C0000 +00003E00000001FE000000003E00000003FE000000007C00000007FF000000007C000000 +1EFF00000000F800000038FF80000000F8000000707F80000001F0000000E07FC0000001 +F0000000003FC0000003E0000000003FE0000003E0000000001FE0000007C0000000001F +E0000007C0000000001FF000000F80000000000FF000000F80000000000FF800001F0000 +00000007F800001F000000000007FC00003E000000000003FC00003E000000000003FE00 +007C000000000001FE00007C000000000001FF0000F8000000000000FF0000F800000000 +0000FF8000F00000000000007F8001F00000000000007F8001F00000000000007FC003E0 +0000000000003FC003E00000000000003FE007C00000000000001FE007C0000000000000 +1FF00F800000000000000FF00F800000000000000FF81F0000000000000007F81F000000 +0000000007FC3E0000000000000003FC3E0000000000000003FC7C0000000000000003FE +7C0000000000000001FEF80000000000000001FFF80000000000000000FFF00000000000 +000000FFF000000000000000007FE000000000000000007FE000000000000000003FC000 +000000000000003FC000000000000000001F8000000000000000001F8000000000000000 +000F0000000000000000000E0000000000004F647A8353>112 D +E /Fo 69 124 df<0000000FFF0003FF00000001FFFFC03FFFC000000FFFFFF1FFFFE000 +007FFFFFFFFFFFF00001FFF803FFFE1FF80003FF8003FFF81FFC000FFF0007FFF03FFC00 +1FFE000FFFE03FFC003FFC000FFFE03FFC003FF8000FFFC03FFC007FF0000FFFC03FFC00 +7FF0000FFFC01FF800FFF0000FFF801FF800FFE00007FF8007E000FFE00003FF80018000 +FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000 +FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000 +FFE00003FF80000000FFE00003FF80000000FFE00003FF800000FFFFFFFFFFFFFFF000FF +FFFFFFFFFFFFF000FFFFFFFFFFFFFFF000FFFFFFFFFFFFFFF000FFFFFFFFFFFFFFF00000 +FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000 +FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000 +FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000 +FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000 +FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000 +FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000 +FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000 +FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000FFE00003FF80000000 +FFE00003FF80000000FFE00003FF8000007FFFFFC1FFFFFF80007FFFFFC1FFFFFF80007F +FFFFC1FFFFFF80007FFFFFC1FFFFFF80007FFFFFC1FFFFFF800046467EC541>11 +D<0000000FFF0000000001FFFFC00000000FFFFFF00000007FFFFFF8000001FFF803FC00 +0003FFC000FE00000FFF0003FE00001FFE0007FF00003FFC000FFF00003FF8000FFF0000 +7FF0000FFF00007FF0001FFF8000FFF0000FFF0000FFE0000FFF0000FFE0000FFF0000FF +E0000FFF0000FFE00007FE0000FFE00001F80000FFE00000000000FFE00000000000FFE0 +0000000000FFE00000000000FFE00000000000FFE00000000000FFE00000000000FFE001 +FFFF80FFFFFFFFFFFF80FFFFFFFFFFFF80FFFFFFFFFFFF80FFFFFFFFFFFF80FFFFFFFFFF +FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF +8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF80 +00FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000 +FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FF +E00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE0 +0003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE000 +03FF8000FFE00003FF8000FFE00003FF8000FFE00003FF807FFFFFC1FFFFFF7FFFFFC1FF +FFFF7FFFFFC1FFFFFF7FFFFFC1FFFFFF7FFFFFC1FFFFFF38467EC53E>I<0000000FFF00 +00000001FFFFEF8000000FFFFFFF8000007FFFFFFF800001FFF807FF800003FF8007FF80 +000FFF000FFF80001FFE000FFF80003FFC000FFF80003FF8000FFF80007FF0000FFF8000 +7FF00007FF8000FFF00007FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FF +E00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE0 +0003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF80FFFFFFFF +FFFF80FFFFFFFFFFFF80FFFFFFFFFFFF80FFFFFFFFFFFF80FFFFFFFFFFFF8000FFE00003 +FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF +8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF80 +00FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000 +FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FF +E00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE0 +0003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE00003FF8000FFE000 +03FF8000FFE00003FF8000FFE00003FF807FFFFFC1FFFFFF7FFFFFC1FFFFFF7FFFFFC1FF +FFFF7FFFFFC1FFFFFF7FFFFFC1FFFFFF38467EC53E>I<000001E0000003E000000FC000 +001F8000003F0000007E000000FC000001FC000003F8000007F0000007E000000FE00000 +1FC000003FC000003F8000007F800000FF000000FF000001FE000001FE000003FC000003 +FC000007FC000007F8000007F800000FF800000FF000000FF000001FF000001FF000001F +E000003FE000003FE000003FE000003FE000007FC000007FC000007FC000007FC000007F +C000007FC00000FFC00000FFC00000FF800000FF800000FF800000FF800000FF800000FF +800000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF +C00000FFC000007FC000007FC000007FC000007FC000007FC000007FC000003FE000003F +E000003FE000003FE000001FE000001FF000001FF000000FF000000FF000000FF8000007 +F8000007F8000007FC000003FC000003FC000001FE000001FE000000FF000000FF000000 +7F8000003F8000003FC000001FC000000FE0000007E0000007F0000003F8000001FC0000 +00FC0000007E0000003F0000001F8000000FC0000003E0000001E01B6476CA2C>40 +DI45 D<07C01FF03FF87FFCFFFEFFFEFFFEFFFE +FFFEFFFEFFFE7FFC3FF81FF007C00F0F788E1F>I<0000000001C00000000003E0000000 +0007E00000000007E0000000000FE0000000000FC0000000001FC0000000001F80000000 +001F80000000003F80000000003F00000000007F00000000007E00000000007E00000000 +00FE0000000000FC0000000001FC0000000001F80000000001F80000000003F800000000 +03F00000000003F00000000007F00000000007E0000000000FE0000000000FC000000000 +0FC0000000001FC0000000001F80000000003F80000000003F00000000003F0000000000 +7F00000000007E0000000000FE0000000000FC0000000000FC0000000001FC0000000001 +F80000000003F80000000003F00000000003F00000000007F00000000007E0000000000F +E0000000000FC0000000000FC0000000001FC0000000001F80000000003F80000000003F +00000000003F00000000007F00000000007E00000000007E0000000000FE0000000000FC +0000000001FC0000000001F80000000001F80000000003F80000000003F00000000007F0 +0000000007E00000000007E0000000000FE0000000000FC0000000001FC0000000001F80 +000000001F80000000003F80000000003F00000000007F00000000007E00000000007E00 +00000000FE0000000000FC0000000001FC0000000001F80000000001F80000000003F800 +00000003F00000000003F00000000007F00000000007E0000000000FE0000000000FC000 +0000000FC0000000001FC0000000001F80000000003F80000000003F00000000003F0000 +0000007F00000000007E0000000000FE0000000000FC0000000000FC0000000000F80000 +0000007800000000002B647ACA38>I<00003FF800000001FFFF0000000FFFFFE000003F +FFFFF800007FF01FFC0000FFC007FE0001FF0001FF0003FE0000FF8007FE0000FFC007FC +00007FC00FFC00007FE00FF800003FE01FF800003FF01FF800003FF03FF800003FF83FF8 +00003FF83FF000001FF87FF000001FFC7FF000001FFC7FF000001FFC7FF000001FFC7FF0 +00001FFC7FF000001FFCFFF000001FFEFFF000001FFEFFF000001FFEFFF000001FFEFFF0 +00001FFEFFF000001FFEFFF000001FFEFFF000001FFEFFF000001FFEFFF000001FFEFFF0 +00001FFEFFF000001FFEFFF000001FFEFFF000001FFEFFF000001FFEFFF000001FFEFFF0 +00001FFEFFF000001FFEFFF000001FFEFFF000001FFEFFF000001FFE7FF000001FFC7FF0 +00001FFC7FF000001FFC7FF000001FFC7FF000001FFC3FF800003FF83FF800003FF83FF8 +00003FF81FF800003FF01FF800003FF00FF800003FE00FFC00007FE007FC00007FC007FE +0000FFC003FF0001FF8001FF8003FF0000FFC007FE00007FF01FFC00003FFFFFF800000F +FFFFE0000003FFFF800000003FF800002F427CC038>I<000003C000000007C00000001F +C00000007FC0000003FFC000003FFFC000FFFFFFC000FFFFFFC000FFFFFFC000FFFFFFC0 +00FFC3FFC0000003FFC0000003FFC0000003FFC0000003FFC0000003FFC0000003FFC000 +0003FFC0000003FFC0000003FFC0000003FFC0000003FFC0000003FFC0000003FFC00000 +03FFC0000003FFC0000003FFC0000003FFC0000003FFC0000003FFC0000003FFC0000003 +FFC0000003FFC0000003FFC0000003FFC0000003FFC0000003FFC0000003FFC0000003FF +C0000003FFC0000003FFC0000003FFC0000003FFC0000003FFC0000003FFC0000003FFC0 +000003FFC0000003FFC0000003FFC0000003FFC0000003FFC0000003FFC0000003FFC000 +0003FFC0000003FFC0000003FFC0000003FFC0000003FFC0000003FFC0000003FFC000FF +FFFFFFFCFFFFFFFFFCFFFFFFFFFCFFFFFFFFFCFFFFFFFFFC264177C038>I<0000FFE000 +00000FFFFE0000003FFFFF800000FFFFFFE00003FFFFFFF80007FC03FFFE000FE0007FFF +001F80003FFF803F00000FFFC07F000007FFC07FC00007FFE07FF00003FFE0FFF00001FF +F0FFF80001FFF0FFF80001FFF8FFF80000FFF8FFF80000FFF8FFF80000FFF8FFF80000FF +F87FF00000FFF83FE00000FFF81FC00000FFF800000000FFF800000000FFF000000001FF +F000000001FFF000000001FFE000000003FFE000000003FFC000000007FF800000000FFF +000000000FFF000000001FFC000000003FF8000000003FF0000000007FE000000000FFC0 +00000001FF0000000003FE0000000007FC000000000FF0000000001FE0000000003F8000 +0000007F0000780000FE0000780001FC0000780003F80000F80007E00000F0000FC00000 +F0001F800000F0003F000000F0007C000001F000F8000003F001FFFFFFFFF003FFFFFFFF +E007FFFFFFFFE00FFFFFFFFFE01FFFFFFFFFE03FFFFFFFFFE07FFFFFFFFFE0FFFFFFFFFF +E0FFFFFFFFFFC0FFFFFFFFFFC0FFFFFFFFFFC0FFFFFFFFFFC02D417BC038>I<0000FFF0 +00000007FFFF0000001FFFFFC000007FFFFFF00000FF007FF80003F8003FFE0007E0001F +FF0007E0000FFF000FF80007FF800FFE0007FF801FFE0007FFC01FFF0007FFC01FFF0007 +FFC01FFF0007FFC01FFF0007FFC01FFF0007FFC01FFF0007FFC00FFE0007FFC007FC0007 +FF8003F8000FFF800000000FFF000000001FFF000000001FFE000000003FFC000000007F +F800000000FFF000000001FFE00000000FFF80000007FFFE00000007FFF800000007FFFF +00000007FFFFC000000000FFF0000000003FFC000000000FFE000000000FFF8000000007 +FF8000000003FFC000000003FFE000000003FFE000000001FFF000000001FFF000000001 +FFF800000001FFF800000001FFF80FC00001FFF83FF00001FFF87FF80001FFF87FF80001 +FFF8FFFC0001FFF8FFFC0001FFF8FFFC0001FFF0FFFC0001FFF0FFFC0003FFF0FFFC0003 +FFE07FF80003FFE07FF00007FFC07FE00007FFC03F80000FFF801FF0001FFF000FFE00FF +FE0007FFFFFFF80001FFFFFFF000007FFFFFC000001FFFFE00000001FFE000002D427BC0 +38>I<000000003F0000000000003F0000000000007F000000000000FF000000000001FF +000000000003FF000000000003FF000000000007FF00000000000FFF00000000001FFF00 +000000003FFF00000000003FFF00000000007FFF0000000000FFFF0000000001F7FF0000 +000003E7FF0000000007E7FF0000000007C7FF000000000F87FF000000001F07FF000000 +003E07FF000000007E07FF000000007C07FF00000000F807FF00000001F007FF00000003 +E007FF00000007E007FF00000007C007FF0000000F8007FF0000001F0007FF0000003E00 +07FF0000007C0007FF0000007C0007FF000000F80007FF000001F00007FF000003E00007 +FF000007C00007FF00000FC00007FF00000F800007FF00001F000007FF00003E000007FF +00007C000007FF0000FC000007FF0000FFFFFFFFFFFF80FFFFFFFFFFFF80FFFFFFFFFFFF +80FFFFFFFFFFFF80FFFFFFFFFFFF800000000FFF00000000000FFF00000000000FFF0000 +0000000FFF00000000000FFF00000000000FFF00000000000FFF00000000000FFF000000 +00000FFF00000000000FFF00000000000FFF00000000000FFF000000007FFFFFFF800000 +7FFFFFFF8000007FFFFFFF8000007FFFFFFF8000007FFFFFFF8031417DC038>I<070000 +00030007E000003F0007FF0007FF0007FFFFFFFF0007FFFFFFFE0007FFFFFFFC0007FFFF +FFF80007FFFFFFF00007FFFFFFE00007FFFFFF800007FFFFFE000007FFFFFC000007FFFF +E0000007FFFF00000007C00000000007C00000000007C00000000007C00000000007C000 +00000007C00000000007C00000000007C00000000007C00000000007C00000000007C03F +F0000007C1FFFF000007C7FFFFC00007DFFFFFF00007FFE03FFC0007FF000FFE0007FC00 +07FF0007F00003FF8007E00003FFC007C00001FFC003800001FFE000000001FFE0000000 +00FFF000000000FFF000000000FFF000000000FFF800000000FFF800000000FFF8000000 +00FFF80F800000FFF83FE00000FFF87FF00000FFF8FFF00000FFF8FFF80000FFF8FFF800 +00FFF8FFF80000FFF8FFF80000FFF0FFF00000FFF0FFF00001FFF07FE00001FFE07FC000 +01FFE07E000003FFC03E000003FFC03F000007FF801FC0000FFF000FF0001FFE0007FE00 +FFFC0003FFFFFFF00000FFFFFFE000003FFFFF8000000FFFFC00000001FFC000002D427B +C038>I<000001FF800000001FFFF00000007FFFFC000001FFFFFF000007FF807F80000F +FC001F80003FF0001FC0007FE0007FC000FFC000FFE001FF8001FFE003FF8001FFE003FF +0001FFE007FE0001FFE00FFE0001FFE00FFE0001FFE01FFC0000FFC01FFC00007F801FFC +00001E003FFC000000003FFC000000003FF8000000007FF8000000007FF8000000007FF8 +07FC00007FF81FFF8000FFF87FFFE000FFF8FFFFF800FFF9F01FFC00FFFBC007FE00FFFF +8003FF00FFFF8003FF80FFFF0001FFC0FFFE0001FFC0FFFE0000FFE0FFFE0000FFE0FFFC +0000FFF0FFFC0000FFF0FFFC0000FFF0FFFC0000FFF8FFF80000FFF8FFF80000FFF8FFF8 +0000FFF8FFF80000FFF87FF80000FFF87FF80000FFF87FF80000FFF87FF80000FFF87FF8 +0000FFF83FF80000FFF83FF80000FFF83FF80000FFF03FFC0000FFF01FFC0000FFF01FFC +0000FFF00FFC0001FFE00FFC0001FFE007FE0001FFC007FF0003FF8003FF8003FF0001FF +C007FE0000FFE01FFC00007FFFFFF800001FFFFFF0000007FFFFC0000001FFFF00000000 +3FF000002D427BC038>I<1E00000000001F00000000001FFC000000001FFFFFFFFFFE1F +FFFFFFFFFE1FFFFFFFFFFE1FFFFFFFFFFE3FFFFFFFFFFE3FFFFFFFFFFC3FFFFFFFFFF83F +FFFFFFFFF03FFFFFFFFFE03FFFFFFFFFC03FFFFFFFFFC07FFFFFFFFF807E0000003F007C +0000007E007C000000FC0078000000F80078000001F80078000003F000F8000007E000F0 +00000FC000F000000F8000F000001F80000000003F00000000007E0000000000FC000000 +0000FC0000000001F80000000003F80000000003F00000000007F0000000000FE0000000 +000FE0000000001FE0000000001FC0000000003FC0000000003FC0000000007FC0000000 +007F8000000000FF8000000000FF8000000001FF8000000001FF8000000001FF80000000 +03FF8000000003FF0000000003FF0000000003FF0000000007FF0000000007FF00000000 +07FF0000000007FF0000000007FF000000000FFF000000000FFF000000000FFF00000000 +0FFF000000000FFF000000000FFF000000000FFF000000000FFF000000000FFF00000000 +0FFF0000000007FE0000000003FC0000000001F80000002F447AC238>I<00007FF00000 +0003FFFF0000000FFFFFC000003FFFFFF000007F801FFC0001FC0003FE0003F80001FF00 +03F00000FF0007E000007F8007E000003F800FC000003FC00FC000003FC01FC000001FC0 +1FC000001FC01FE000001FC01FE000001FC01FF000001FC01FF800001FC01FFE00003FC0 +1FFF00003F801FFFC0007F801FFFF0007F000FFFFC00FF000FFFFE01FE0007FFFF83FC00 +07FFFFE7F80003FFFFFFE00001FFFFFFC00000FFFFFF0000007FFFFFC000003FFFFFE000 +000FFFFFF800000FFFFFFC00003FFFFFFE0000FFFFFFFF0001FF3FFFFF8007FC0FFFFFC0 +0FF803FFFFE01FF000FFFFE01FE0007FFFF03FE0001FFFF07FC00007FFF07F800003FFF8 +7F800000FFF8FF8000007FF8FF0000003FF8FF0000001FF8FF0000000FF8FF0000000FF8 +FF00000007F8FF00000007F8FF00000007F8FF80000007F07F80000007F07F8000000FF0 +7FC000000FE03FE000001FE03FF000003FC01FF800007F800FFE0001FF0007FFC00FFE00 +03FFFFFFFC0000FFFFFFF000003FFFFFC000000FFFFF00000000FFF000002D427BC038> +I<00007FF000000007FFFE0000001FFFFF8000007FFFFFE00000FFE03FF00001FF800FF8 +0003FF0007FC0007FE0007FE000FFC0003FF001FFC0001FF003FFC0001FF803FFC0001FF +807FF80001FFC07FF80000FFC07FF80000FFE07FF80000FFE0FFF80000FFE0FFF80000FF +F0FFF80000FFF0FFF80000FFF0FFF80000FFF0FFF80000FFF0FFF80000FFF0FFF80000FF +F8FFF80000FFF8FFF80000FFF8FFF80000FFF8FFF80001FFF87FF80001FFF87FF80001FF +F87FF80001FFF83FF80003FFF83FF80003FFF81FFC0003FFF81FFC0007FFF80FFE000FFF +F807FE000FFFF803FF001EFFF801FFC07CFFF800FFFFF8FFF8003FFFF0FFF8000FFFC0FF +F00001FF00FFF000000000FFF000000000FFF000000000FFE000000001FFE000000001FF +E003C00001FFE00FF00001FFC01FF80001FFC03FFC0003FF803FFC0003FF803FFC0003FF +003FFC0007FE003FFC000FFE003FFC000FFC003FF8001FF8001FF0003FF0001FC000FFE0 +000FF003FFC00007FFFFFF800003FFFFFE000001FFFFF80000007FFFE000000007FE0000 +002D427BC038>I<07C01FF03FF87FFCFFFEFFFEFFFEFFFEFFFEFFFEFFFE7FFC3FF81FF0 +07C00000000000000000000000000000000000000000000000000000000007C01FF03FF8 +7FFCFFFEFFFEFFFEFFFEFFFEFFFEFFFE7FFC3FF81FF007C00F2C78AB1F>I<000000001F +8000000000000000001F8000000000000000003FC000000000000000003FC00000000000 +0000007FE000000000000000007FE000000000000000007FE00000000000000000FFF000 +00000000000000FFF00000000000000001FFF80000000000000001FFF800000000000000 +01FFF80000000000000003FFFC0000000000000003FFFC0000000000000007FFFE000000 +0000000007FFFE0000000000000007FFFE000000000000000FFFFF000000000000000F9F +FF000000000000001F9FFF800000000000001F1FFF800000000000001F0FFF8000000000 +00003F0FFFC00000000000003E07FFC00000000000007E07FFE00000000000007C07FFE0 +0000000000007C03FFE0000000000000FC03FFF0000000000000F801FFF0000000000001 +F801FFF8000000000001F001FFF8000000000001F000FFF8000000000003F000FFFC0000 +00000003E0007FFC000000000007E0007FFE000000000007C0007FFE000000000007C000 +3FFE00000000000FC0003FFF00000000000F80001FFF00000000001F80001FFF80000000 +001F00000FFF80000000001F00000FFF80000000003F00000FFFC0000000003E000007FF +C0000000007E000007FFE0000000007FFFFFFFFFE0000000007FFFFFFFFFE000000000FF +FFFFFFFFF000000000FFFFFFFFFFF000000001FFFFFFFFFFF800000001F0000000FFF800 +000001F0000000FFF800000003F0000000FFFC00000003E00000007FFC00000007E00000 +007FFE00000007C00000003FFE00000007C00000003FFE0000000F800000003FFF000000 +0F800000001FFF0000001F800000001FFF8000001F000000000FFF8000003F000000000F +FFC000003E000000000FFFC000007E0000000007FFC000FFFFFF00000FFFFFFFF0FFFFFF +00000FFFFFFFF0FFFFFF00000FFFFFFFF0FFFFFF00000FFFFFFFF0FFFFFF00000FFFFFFF +F04C457CC455>65 DI<00000000FFF00000700000001FFFFF0000F00000 +01FFFFFFE001F0000007FFFFFFF803F000003FFFFFFFFE07F00000FFFFE001FF0FF00001 +FFFE00003F9FF00007FFF000000FFFF0000FFFC0000007FFF0001FFF00000003FFF0003F +FE00000001FFF0007FFC00000000FFF000FFF8000000007FF001FFF0000000003FF003FF +E0000000001FF007FFE0000000001FF007FFC0000000000FF00FFF80000000000FF00FFF +800000000007F01FFF000000000007F01FFF000000000003F03FFF000000000003F03FFE +000000000003F03FFE000000000003F07FFE000000000001F07FFE000000000001F07FFE +000000000001F07FFC00000000000000FFFC00000000000000FFFC00000000000000FFFC +00000000000000FFFC00000000000000FFFC00000000000000FFFC00000000000000FFFC +00000000000000FFFC00000000000000FFFC00000000000000FFFC00000000000000FFFC +00000000000000FFFC00000000000000FFFC00000000000000FFFC000000000000007FFC +000000000000007FFE000000000000007FFE000000000000F07FFE000000000000F03FFE +000000000000F03FFE000000000000F03FFF000000000000F01FFF000000000001F01FFF +000000000001E00FFF800000000001E00FFF800000000003E007FFC00000000003C007FF +E00000000007C003FFE00000000007C001FFF0000000000F8000FFF8000000001F00007F +FC000000003F00003FFE000000007E00001FFF80000000FC00000FFFC0000001F8000007 +FFF0000007F0000001FFFE00001FE0000000FFFFF001FF800000003FFFFFFFFF00000000 +07FFFFFFFC0000000001FFFFFFF000000000001FFFFF80000000000000FFF80000004446 +7AC451>IIII<00000000FFF000007000 +0000001FFFFF0000F000000001FFFFFFE001F000000007FFFFFFF803F00000003FFFFFFF +FE07F0000000FFFFE001FF0FF0000001FFFE00003F9FF0000007FFF000000FFFF000000F +FFC0000007FFF000001FFF00000003FFF000003FFE00000001FFF000007FFC00000000FF +F00000FFF8000000007FF00001FFF0000000003FF00003FFE0000000001FF00007FFE000 +0000001FF00007FFC0000000000FF0000FFF80000000000FF0000FFF800000000007F000 +1FFF000000000007F0001FFF000000000003F0003FFF000000000003F0003FFE00000000 +0003F0003FFE000000000003F0007FFE000000000001F0007FFE000000000001F0007FFE +000000000001F0007FFC0000000000000000FFFC0000000000000000FFFC000000000000 +0000FFFC0000000000000000FFFC0000000000000000FFFC0000000000000000FFFC0000 +000000000000FFFC0000000000000000FFFC0000000000000000FFFC0000000000000000 +FFFC0000000000000000FFFC0000000000000000FFFC0000000000000000FFFC00000000 +00000000FFFC0000007FFFFFFFF07FFC0000007FFFFFFFF07FFE0000007FFFFFFFF07FFE +0000007FFFFFFFF07FFE0000007FFFFFFFF03FFE0000000001FFF0003FFE0000000001FF +F0003FFF0000000001FFF0001FFF0000000001FFF0001FFF0000000001FFF0000FFF8000 +000001FFF0000FFF8000000001FFF00007FFC000000001FFF00007FFE000000001FFF000 +03FFE000000001FFF00001FFF000000001FFF00000FFF800000001FFF000007FFC000000 +01FFF000003FFE00000003FFF000001FFF80000003FFF000000FFFC0000007FFF0000007 +FFF000000FFFF0000001FFFE00003FFFF0000000FFFFF001FF9FF00000003FFFFFFFFF0F +F000000007FFFFFFFC03F000000001FFFFFFF000F0000000001FFFFFC000300000000000 +FFFC000000004C467AC458>III<0007FFFFFFFF0007FFFFFFFF0007FFFFFFFF0007FFFFFFFF0007FFFFFFFF000000 +1FFF000000001FFF000000001FFF000000001FFF000000001FFF000000001FFF00000000 +1FFF000000001FFF000000001FFF000000001FFF000000001FFF000000001FFF00000000 +1FFF000000001FFF000000001FFF000000001FFF000000001FFF000000001FFF00000000 +1FFF000000001FFF000000001FFF000000001FFF000000001FFF000000001FFF00000000 +1FFF000000001FFF000000001FFF000000001FFF000000001FFF000000001FFF00000000 +1FFF000000001FFF000000001FFF000000001FFF000000001FFF000000001FFF00000000 +1FFF000000001FFF000000001FFF000000001FFF000000001FFF000000001FFF00000000 +1FFF000000001FFF000000001FFF001FE0001FFF003FF0001FFF007FF8001FFF007FF800 +1FFF00FFFC001FFF00FFFC001FFF00FFFC001FFF00FFFC001FFF00FFFC003FFE00FFFC00 +3FFE007FF8007FFC007FF0007FF8003FE000FFF8001FC001FFF0000FFC07FFC00007FFFF +FF800003FFFFFE0000007FFFF80000000FFF80000030457DC33A>I76 DII<0000 +0007FFC0000000000000FFFFFE000000000007FFFFFFC0000000001FFFFFFFF000000000 +7FFE00FFFC00000001FFF0001FFF00000007FF800003FFC000000FFF000001FFE000001F +FC0000007FF000003FF80000003FF800007FF00000001FFC0000FFF00000001FFE0001FF +E00000000FFF0003FFC000000007FF8003FFC000000007FF8007FF8000000003FFC007FF +8000000003FFC00FFF0000000001FFE00FFF0000000001FFE01FFF0000000001FFF01FFE +0000000000FFF03FFE0000000000FFF83FFE0000000000FFF83FFE0000000000FFF87FFE +0000000000FFFC7FFC00000000007FFC7FFC00000000007FFC7FFC00000000007FFC7FFC +00000000007FFCFFFC00000000007FFEFFFC00000000007FFEFFFC00000000007FFEFFFC +00000000007FFEFFFC00000000007FFEFFFC00000000007FFEFFFC00000000007FFEFFFC +00000000007FFEFFFC00000000007FFEFFFC00000000007FFEFFFC00000000007FFEFFFC +00000000007FFEFFFC00000000007FFE7FFC00000000007FFC7FFE0000000000FFFC7FFE +0000000000FFFC7FFE0000000000FFFC3FFE0000000000FFF83FFE0000000000FFF83FFF +0000000001FFF81FFF0000000001FFF01FFF0000000001FFF01FFF8000000003FFF00FFF +8000000003FFE00FFF8000000003FFE007FFC000000007FFC003FFC000000007FF8003FF +E00000000FFF8001FFF00000001FFF0000FFF80000003FFE00007FFC0000007FFC00003F +FE000000FFF800001FFF000001FFF000000FFFC00007FFE0000007FFF0001FFFC0000001 +FFFE00FFFF00000000FFFFFFFFFE000000003FFFFFFFF80000000007FFFFFFC000000000 +00FFFFFE00000000000007FFC000000047467AC454>II<00000007FFC0 +000000000000FFFFFE000000000007FFFFFFC0000000001FFFFFFFF0000000007FFE00FF +FC00000001FFF0001FFF00000007FFC00007FFC000000FFF000001FFE000001FFE000000 +FFF000003FFC0000007FF800007FF80000003FFC0000FFF00000001FFE0001FFE0000000 +0FFF0003FFC000000007FF8003FFC000000007FF8007FF8000000003FFC007FF80000000 +03FFC00FFF8000000003FFE00FFF0000000001FFE01FFF0000000001FFF01FFF00000000 +01FFF03FFE0000000000FFF83FFE0000000000FFF83FFE0000000000FFF87FFE00000000 +00FFFC7FFE0000000000FFFC7FFC00000000007FFC7FFC00000000007FFC7FFC00000000 +007FFCFFFC00000000007FFEFFFC00000000007FFEFFFC00000000007FFEFFFC00000000 +007FFEFFFC00000000007FFEFFFC00000000007FFEFFFC00000000007FFEFFFC00000000 +007FFEFFFC00000000007FFEFFFC00000000007FFEFFFC00000000007FFEFFFC00000000 +007FFEFFFC00000000007FFE7FFC00000000007FFC7FFC00000000007FFC7FFC00000000 +007FFC7FFE0000000000FFFC3FFE0000000000FFF83FFE0000000000FFF83FFE00000000 +00FFF81FFE0000000000FFF01FFF0000000001FFF01FFF0000000001FFF00FFF00000000 +01FFE00FFF8000FE0003FFE007FF8003FF8003FFC003FFC007FFC007FF8003FFC00FFFE0 +07FF8001FFE01F83F00FFF0000FFF01E00F81FFE00007FF83E007C3FFC00003FFC3C003E +7FF800001FFE3C001EFFF000000FFF3C001FFFE0000007FFFE001FFFC0000001FFFE001F +FF00000000FFFF80FFFE000000003FFFFFFFF80000000007FFFFFFE00002000000FFFFFF +F0000700000007FFC7F00007000000000007F80007000000000003FC000F000000000003 +FE001F000000000003FF80FF000000000003FFFFFF000000000001FFFFFE000000000001 +FFFFFE000000000001FFFFFE000000000000FFFFFE000000000000FFFFFC000000000000 +FFFFFC0000000000007FFFF80000000000007FFFF00000000000003FFFF0000000000000 +1FFFE00000000000000FFFC000000000000007FF0000000000000001FC0048587AC454> +II<0000FFE0001C000007FFFE003C00003FFFFF807C0000 +FFFFFFE0FC0001FFFFFFF9FC0003FF801FFFFC0007FC0001FFFC000FF800007FFC001FF0 +00003FFC003FE000000FFC003FC0000007FC007FC0000003FC007F80000003FC007F8000 +0001FC007F80000000FC00FF80000000FC00FF800000007C00FF800000007C00FFC00000 +007C00FFC00000007C00FFE00000003C00FFF00000003C00FFF80000003C00FFFC000000 +00007FFE00000000007FFFE0000000007FFFFE000000003FFFFFF00000003FFFFFFF0000 +001FFFFFFFE000001FFFFFFFFC00000FFFFFFFFE000007FFFFFFFF800003FFFFFFFFC000 +01FFFFFFFFE000007FFFFFFFF000001FFFFFFFF8000007FFFFFFFC000000FFFFFFFC0000 +000FFFFFFE00000000FFFFFE0000000007FFFF00000000007FFF00000000003FFF000000 +00000FFF800000000007FF800000000003FF80F000000003FF80F000000001FF80F00000 +0001FF80F000000000FF80F000000000FF80F800000000FF80F800000000FF80F8000000 +00FF00FC00000000FF00FC00000000FF00FE00000001FF00FF00000001FE00FF80000003 +FE00FFC0000003FC00FFE0000007FC00FFF800000FF800FFFF00003FF000FFFFF800FFE0 +00FE7FFFFFFFC000FC1FFFFFFF0000F807FFFFFC0000F000FFFFF00000E00007FF800000 +31467AC43E>I<3FFFFFFFFFFFFFFFE03FFFFFFFFFFFFFFFE03FFFFFFFFFFFFFFFE03FFF +FFFFFFFFFFFFE03FFFFFFFFFFFFFFFE03FFE000FFF8003FFE07FE0000FFF80003FF07FC0 +000FFF80001FF07F00000FFF800007F07F00000FFF800007F07E00000FFF800003F07C00 +000FFF800001F07C00000FFF800001F07C00000FFF800001F07800000FFF800000F07800 +000FFF800000F07800000FFF800000F07800000FFF800000F0F800000FFF800000F8F000 +000FFF80000078F000000FFF80000078F000000FFF80000078F000000FFF80000078F000 +000FFF800000780000000FFF800000000000000FFF800000000000000FFF800000000000 +000FFF800000000000000FFF800000000000000FFF800000000000000FFF800000000000 +000FFF800000000000000FFF800000000000000FFF800000000000000FFF800000000000 +000FFF800000000000000FFF800000000000000FFF800000000000000FFF800000000000 +000FFF800000000000000FFF800000000000000FFF800000000000000FFF800000000000 +000FFF800000000000000FFF800000000000000FFF800000000000000FFF800000000000 +000FFF800000000000000FFF800000000000000FFF800000000000000FFF800000000000 +000FFF800000000000000FFF800000000000000FFF800000000000000FFF800000000000 +000FFF800000000000000FFF800000000000000FFF800000000000000FFF800000000000 +000FFF800000000000000FFF800000000000000FFF800000000007FFFFFFFFFF00000007 +FFFFFFFFFF00000007FFFFFFFFFF00000007FFFFFFFFFF00000007FFFFFFFFFF00004543 +7CC24E>IIII89 +D<0001FFE0000000001FFFFE000000007FFFFF80000001FFFFFFE0000003FE007FF80000 +07FC001FFC000007FE000FFE00000FFF0007FF00000FFF0007FF00000FFF0003FF80000F +FF0003FF80000FFF0003FF80000FFF0001FFC00007FE0001FFC00003FC0001FFC00000F0 +0001FFC00000000001FFC00000000001FFC00000000001FFC00000000001FFC000000003 +FFFFC0000000FFFFFFC0000007FFFFFFC000003FFFF1FFC00000FFFC01FFC00003FFE001 +FFC0000FFF8001FFC0001FFE0001FFC0003FFC0001FFC0003FF80001FFC0007FF80001FF +C0007FF00001FFC000FFF00001FFC000FFE00001FFC000FFE00001FFC000FFE00001FFC0 +00FFE00003FFC000FFE00003FFC000FFF00007FFC0007FF8000FFFC0007FF8001FFFF000 +3FFE003EFFFFC01FFF80FC7FFFC007FFFFF87FFFC003FFFFE01FFFC0007FFF8007FFC000 +0FFC00000000322F7DAD36>97 D<007FC000000000FFFFC000000000FFFFC000000000FF +FFC000000000FFFFC000000000FFFFC00000000003FFC00000000001FFC00000000001FF +C00000000001FFC00000000001FFC00000000001FFC00000000001FFC00000000001FFC0 +0000000001FFC00000000001FFC00000000001FFC00000000001FFC00000000001FFC000 +00000001FFC00000000001FFC00000000001FFC00000000001FFC00000000001FFC00000 +000001FFC00FF8000001FFC0FFFF800001FFC3FFFFE00001FFCFFFFFF80001FFDFC03FFC +0001FFFF000FFE0001FFFC0003FF0001FFF80001FF8001FFF00001FFC001FFE00000FFE0 +01FFC00000FFE001FFC000007FF001FFC000007FF001FFC000007FF801FFC000003FF801 +FFC000003FF801FFC000003FF801FFC000003FFC01FFC000003FFC01FFC000003FFC01FF +C000003FFC01FFC000003FFC01FFC000003FFC01FFC000003FFC01FFC000003FFC01FFC0 +00003FFC01FFC000003FFC01FFC000003FFC01FFC000003FFC01FFC000003FF801FFC000 +003FF801FFC000007FF801FFC000007FF001FFC000007FF001FFC000007FF001FFC00000 +FFE001FFE00000FFC001FFF00001FFC001FFF80003FF8001FF7C0007FF0001FE3E000FFE +0001FC1FC07FFC0001F80FFFFFF00001F003FFFFC00001E000FFFF00000000001FF00000 +36467DC43E>I<00003FFC00000001FFFFC000000FFFFFF000003FFFFFFC00007FF003FE +0000FFC001FF0003FF8003FF0007FF0007FF8007FE0007FF800FFE0007FF801FFC0007FF +801FFC0007FF803FF80007FF803FF80003FF007FF80001FE007FF8000078007FF0000000 +007FF000000000FFF000000000FFF000000000FFF000000000FFF000000000FFF0000000 +00FFF000000000FFF000000000FFF000000000FFF000000000FFF000000000FFF0000000 +00FFF0000000007FF8000000007FF8000000007FF8000000003FF8000000003FFC000003 +C03FFC000003C01FFE000007C00FFE000007800FFF00000F8007FF80001F0003FFC0003E +0001FFF0007C00007FFC03F800003FFFFFF000000FFFFFC0000003FFFF000000003FF800 +002A2F7CAD32>I<0000000003FE0000000007FFFE0000000007FFFE0000000007FFFE00 +00000007FFFE0000000007FFFE00000000001FFE00000000000FFE00000000000FFE0000 +0000000FFE00000000000FFE00000000000FFE00000000000FFE00000000000FFE000000 +00000FFE00000000000FFE00000000000FFE00000000000FFE00000000000FFE00000000 +000FFE00000000000FFE00000000000FFE00000000000FFE00000000000FFE0000003FE0 +0FFE000003FFFC0FFE00000FFFFF8FFE00003FFFFFCFFE0000FFF807FFFE0001FFC001FF +FE0003FF80007FFE0007FF00003FFE000FFE00001FFE000FFC00000FFE001FFC00000FFE +003FF800000FFE003FF800000FFE003FF800000FFE007FF800000FFE007FF000000FFE00 +7FF000000FFE00FFF000000FFE00FFF000000FFE00FFF000000FFE00FFF000000FFE00FF +F000000FFE00FFF000000FFE00FFF000000FFE00FFF000000FFE00FFF000000FFE00FFF0 +00000FFE00FFF000000FFE00FFF000000FFE007FF000000FFE007FF000000FFE007FF000 +000FFE007FF800000FFE003FF800000FFE003FF800000FFE001FFC00001FFE001FFC0000 +1FFE000FFE00003FFE0007FE00007FFE0003FF0000FFFF0001FFC003FFFFFC00FFF01FEF +FFFC007FFFFF8FFFFC001FFFFE0FFFFC0007FFF80FFFFC00007FC00FF80036467CC43E> +I<00003FF800000003FFFF8000000FFFFFE000003FFFFFF000007FF83FF80000FFC007FC +0001FF8003FE0003FF0001FF0007FE0000FF800FFC0000FF801FFC00007FC01FF800007F +C03FF800003FE03FF800003FE07FF800003FE07FF000003FE07FF000003FF07FF000001F +F0FFF000001FF0FFF000001FF0FFFFFFFFFFF0FFFFFFFFFFF0FFFFFFFFFFF0FFFFFFFFFF +F0FFF000000000FFF000000000FFF000000000FFF000000000FFF0000000007FF0000000 +007FF0000000007FF8000000007FF8000000003FF8000000003FF8000000F01FFC000000 +F01FFC000001F00FFE000001E007FF000003E003FF800007C001FFC0000F8000FFF0003F +00007FFE01FE00001FFFFFFC000007FFFFF0000001FFFFC00000001FFE00002C2F7DAD33 +>I<000000FF8000000FFFE000007FFFF00001FFFFF80003FF8FFC000FFE0FFE001FFC1F +FE001FF81FFE003FF81FFE007FF01FFE007FF01FFE007FF00FFC00FFE00FFC00FFE003F0 +00FFE000C000FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000 +FFE0000000FFE0000000FFE0000000FFE0000000FFE00000FFFFFFF800FFFFFFF800FFFF +FFF800FFFFFFF800FFFFFFF80000FFE0000000FFE0000000FFE0000000FFE0000000FFE0 +000000FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000FFE000 +0000FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000FFE00000 +00FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000 +FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000FF +E000007FFFFFE0007FFFFFE0007FFFFFE0007FFFFFE0007FFFFFE00027467DC522>I<00 +00FFE0007E00000FFFFE03FF80003FFFFF8FFF8000FFFFFFFFFFC001FFC07FFF3FC003FF +001FF83FC007FE000FFC3FC00FFC0007FE1F801FFC0007FF0F001FF80003FF00001FF800 +03FF00003FF80003FF80003FF80003FF80003FF80003FF80003FF80003FF80003FF80003 +FF80003FF80003FF80003FF80003FF80003FF80003FF80001FF80003FF00001FF80003FF +00001FFC0007FF00000FFC0007FE000007FE000FFC000003FF001FF8000001FFC07FF000 +0003FFFFFFE0000003FFFFFF800000078FFFFE0000000780FFE00000000F800000000000 +0F8000000000000F8000000000000F8000000000000FC000000000000FE000000000000F +F000000000000FFFFFFFC000000FFFFFFFFC000007FFFFFFFF800007FFFFFFFFE00003FF +FFFFFFF00001FFFFFFFFFC0000FFFFFFFFFC0003FFFFFFFFFE000FFFFFFFFFFF001FF000 +007FFF003FC0000007FF007F80000001FF807F80000000FF80FF00000000FF80FF000000 +007F80FF000000007F80FF000000007F80FF000000007F80FF80000000FF807F80000000 +FF007FC0000001FF003FE0000003FE001FF0000007FC000FFE00003FF80007FFC001FFF0 +0001FFFFFFFFC000007FFFFFFF0000000FFFFFF8000000007FFF00000032427DAC38>I< +007FC000000000FFFFC000000000FFFFC000000000FFFFC000000000FFFFC000000000FF +FFC00000000003FFC00000000001FFC00000000001FFC00000000001FFC00000000001FF +C00000000001FFC00000000001FFC00000000001FFC00000000001FFC00000000001FFC0 +0000000001FFC00000000001FFC00000000001FFC00000000001FFC00000000001FFC000 +00000001FFC00000000001FFC00000000001FFC00000000001FFC007FE000001FFC03FFF +800001FFC0FFFFE00001FFC1FFFFF80001FFC7F03FFC0001FFCF801FFC0001FFDF000FFE +0001FFDE000FFE0001FFFC000FFE0001FFF80007FF0001FFF00007FF0001FFF00007FF00 +01FFE00007FF0001FFE00007FF0001FFE00007FF0001FFC00007FF0001FFC00007FF0001 +FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FF +C00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC0 +0007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC000 +07FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007 +FF0001FFC00007FF0001FFC00007FF00FFFFFF83FFFFFEFFFFFF83FFFFFEFFFFFF83FFFF +FEFFFFFF83FFFFFEFFFFFF83FFFFFE37457CC43E>I<007C0001FF0003FF8007FFC007FF +C00FFFE00FFFE00FFFE00FFFE00FFFE007FFC007FFC003FF8001FF00007C000000000000 +00000000000000000000000000000000000000000000000000007FC07FFFC07FFFC07FFF +C07FFFC07FFFC003FFC001FFC001FFC001FFC001FFC001FFC001FFC001FFC001FFC001FF +C001FFC001FFC001FFC001FFC001FFC001FFC001FFC001FFC001FFC001FFC001FFC001FF +C001FFC001FFC001FFC001FFC001FFC001FFC001FFC001FFC001FFC001FFC001FFC001FF +C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF18467CC520>I<000003E000000FF800001FFC00 +003FFE00003FFE00007FFF00007FFF00007FFF00007FFF00007FFF00003FFE00003FFE00 +001FFC00000FF8000003E000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000001FF0003FFFF0003FFFF0003FFFF0003FFFF00 +03FFFF00000FFF000007FF000007FF000007FF000007FF000007FF000007FF000007FF00 +0007FF000007FF000007FF000007FF000007FF000007FF000007FF000007FF000007FF00 +0007FF000007FF000007FF000007FF000007FF000007FF000007FF000007FF000007FF00 +0007FF000007FF000007FF000007FF000007FF000007FF000007FF000007FF000007FF00 +0007FF000007FF000007FF000007FF000007FF000007FF000007FF000007FF000007FF1F +8007FF3FC007FF7FE007FFFFF007FFFFF00FFEFFF00FFEFFF00FFCFFF01FFCFFE01FF87F +E03FF03FC0FFE01FFFFF800FFFFF0003FFFC0000FFC000205A86C522>I<007FC0000000 +00FFFFC000000000FFFFC000000000FFFFC000000000FFFFC000000000FFFFC000000000 +03FFC00000000001FFC00000000001FFC00000000001FFC00000000001FFC00000000001 +FFC00000000001FFC00000000001FFC00000000001FFC00000000001FFC00000000001FF +C00000000001FFC00000000001FFC00000000001FFC00000000001FFC00000000001FFC0 +0000000001FFC00000000001FFC00000000001FFC00000000001FFC0007FFFE001FFC000 +7FFFE001FFC0007FFFE001FFC0007FFFE001FFC0007FFFE001FFC0000FE00001FFC0001F +C00001FFC0003F000001FFC0007E000001FFC000FC000001FFC003F8000001FFC007E000 +0001FFC00FC0000001FFC01F80000001FFC07F00000001FFC0FE00000001FFC1FC000000 +01FFC3FE00000001FFC7FE00000001FFDFFF00000001FFFFFF80000001FFFFFFC0000001 +FFFFFFC0000001FFF9FFE0000001FFE1FFF0000001FFC0FFF8000001FF807FF8000001FF +803FFC000001FF803FFE000001FF801FFF000001FF800FFF000001FF8007FF800001FF80 +07FFC00001FF8003FFE00001FF8001FFE00001FF8000FFF00001FF8000FFF80001FF8000 +7FFC0001FF80003FFC00FFFFFF03FFFFF8FFFFFF03FFFFF8FFFFFF03FFFFF8FFFFFF03FF +FFF8FFFFFF03FFFFF835457DC43B>I<007FC000FFFFC000FFFFC000FFFFC000FFFFC000 +FFFFC00003FFC00001FFC00001FFC00001FFC00001FFC00001FFC00001FFC00001FFC000 +01FFC00001FFC00001FFC00001FFC00001FFC00001FFC00001FFC00001FFC00001FFC000 +01FFC00001FFC00001FFC00001FFC00001FFC00001FFC00001FFC00001FFC00001FFC000 +01FFC00001FFC00001FFC00001FFC00001FFC00001FFC00001FFC00001FFC00001FFC000 +01FFC00001FFC00001FFC00001FFC00001FFC00001FFC00001FFC00001FFC00001FFC000 +01FFC00001FFC00001FFC00001FFC00001FFC00001FFC00001FFC00001FFC00001FFC000 +01FFC00001FFC00001FFC00001FFC00001FFC000FFFFFF80FFFFFF80FFFFFF80FFFFFF80 +FFFFFF8019457CC420>I<007F8007FE00000FFC0000FFFF803FFFC0007FFF8000FFFF80 +FFFFF001FFFFE000FFFF81FFFFF803FFFFF000FFFF87F01FFC0FE03FF800FFFF8FC00FFE +1F801FFC0003FF9F000FFF3E001FFE0001FF9E0007FF3C000FFE0001FFBC0007FF78000F +FE0001FFF80003FFF00007FF0001FFF80003FFF00007FF0001FFF00003FFE00007FF0001 +FFE00003FFC00007FF0001FFE00003FFC00007FF0001FFE00003FFC00007FF0001FFC000 +03FF800007FF0001FFC00003FF800007FF0001FFC00003FF800007FF0001FFC00003FF80 +0007FF0001FFC00003FF800007FF0001FFC00003FF800007FF0001FFC00003FF800007FF +0001FFC00003FF800007FF0001FFC00003FF800007FF0001FFC00003FF800007FF0001FF +C00003FF800007FF0001FFC00003FF800007FF0001FFC00003FF800007FF0001FFC00003 +FF800007FF0001FFC00003FF800007FF0001FFC00003FF800007FF0001FFC00003FF8000 +07FF0001FFC00003FF800007FF0001FFC00003FF800007FF0001FFC00003FF800007FF00 +01FFC00003FF800007FF0001FFC00003FF800007FF0001FFC00003FF800007FF0001FFC0 +0003FF800007FF0001FFC00003FF800007FF00FFFFFF81FFFFFF03FFFFFEFFFFFF81FFFF +FF03FFFFFEFFFFFF81FFFFFF03FFFFFEFFFFFF81FFFFFF03FFFFFEFFFFFF81FFFFFF03FF +FFFE572D7CAC5E>I<007F8007FE0000FFFF803FFF8000FFFF80FFFFE000FFFF81FFFFF8 +00FFFF87F03FFC00FFFF8F801FFC0003FF9F000FFE0001FF9E000FFE0001FFBC000FFE00 +01FFF80007FF0001FFF00007FF0001FFF00007FF0001FFE00007FF0001FFE00007FF0001 +FFE00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FF +C00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC0 +0007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC000 +07FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007 +FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF +00FFFFFF83FFFFFEFFFFFF83FFFFFEFFFFFF83FFFFFEFFFFFF83FFFFFEFFFFFF83FFFFFE +372D7CAC3E>I<00001FFC0000000001FFFFC000000007FFFFF00000001FFFFFFC000000 +7FF80FFF000000FFC001FF800001FF8000FFC00003FE00003FE00007FE00003FF0000FFC +00001FF8000FF800000FF8001FF800000FFC001FF800000FFC003FF800000FFE003FF000 +0007FE007FF0000007FF007FF0000007FF007FF0000007FF007FF0000007FF00FFF00000 +07FF80FFF0000007FF80FFF0000007FF80FFF0000007FF80FFF0000007FF80FFF0000007 +FF80FFF0000007FF80FFF0000007FF80FFF0000007FF80FFF0000007FF807FF0000007FF +007FF0000007FF007FF0000007FF007FF0000007FF003FF800000FFE003FF800000FFE00 +1FF800000FFC001FFC00001FFC000FFC00001FF80007FE00003FF00007FE00003FF00003 +FF8000FFE00001FFC001FFC000007FF80FFF0000003FFFFFFE0000000FFFFFF800000001 +FFFFC0000000001FFC000000312F7DAD38>I<007FC00FF80000FFFFC0FFFF8000FFFFC3 +FFFFE000FFFFCFFFFFF800FFFFDFC03FFC00FFFFFF001FFE0003FFFC0007FF0001FFF800 +03FF8001FFF00003FFC001FFE00001FFE001FFC00001FFE001FFC00000FFF001FFC00000 +FFF001FFC000007FF801FFC000007FF801FFC000007FF801FFC000007FF801FFC000003F +FC01FFC000003FFC01FFC000003FFC01FFC000003FFC01FFC000003FFC01FFC000003FFC +01FFC000003FFC01FFC000003FFC01FFC000003FFC01FFC000003FFC01FFC000003FFC01 +FFC000003FFC01FFC000007FF801FFC000007FF801FFC000007FF801FFC000007FF001FF +C00000FFF001FFC00000FFF001FFC00001FFE001FFE00001FFC001FFF00003FFC001FFF8 +0007FF8001FFFC000FFF0001FFFE001FFE0001FFDFC07FFC0001FFCFFFFFF00001FFC3FF +FFC00001FFC0FFFF000001FFC01FF0000001FFC00000000001FFC00000000001FFC00000 +000001FFC00000000001FFC00000000001FFC00000000001FFC00000000001FFC0000000 +0001FFC00000000001FFC00000000001FFC00000000001FFC00000000001FFC000000000 +FFFFFF80000000FFFFFF80000000FFFFFF80000000FFFFFF80000000FFFFFF8000000036 +407DAC3E>I<00003FE0001E000003FFFC003E00000FFFFF007E00003FFFFF807E0000FF +F80FE0FE0001FFE003F1FE0003FFC001F1FE0007FF8000FBFE000FFF00007FFE000FFE00 +003FFE001FFE00001FFE003FFC00001FFE003FFC00000FFE003FF800000FFE007FF80000 +0FFE007FF800000FFE007FF800000FFE00FFF000000FFE00FFF000000FFE00FFF000000F +FE00FFF000000FFE00FFF000000FFE00FFF000000FFE00FFF000000FFE00FFF000000FFE +00FFF000000FFE00FFF000000FFE00FFF000000FFE00FFF000000FFE007FF800000FFE00 +7FF800000FFE007FF800000FFE007FF800000FFE003FFC00000FFE003FFC00000FFE001F +FE00001FFE001FFE00003FFE000FFF00007FFE0007FF0000FFFE0003FF8001FFFE0001FF +E003EFFE0000FFF01FCFFE00007FFFFF8FFE00001FFFFE0FFE000003FFF80FFE0000007F +C00FFE00000000000FFE00000000000FFE00000000000FFE00000000000FFE0000000000 +0FFE00000000000FFE00000000000FFE00000000000FFE00000000000FFE00000000000F +FE00000000000FFE00000000000FFE00000000000FFE0000000007FFFFFC00000007FFFF +FC00000007FFFFFC00000007FFFFFC00000007FFFFFC36407CAC3B>I<007F807F00FFFF +81FFE0FFFF83FFF0FFFF8FFFF8FFFF8F8FFCFFFF9F1FFE03FFBE1FFE01FFBC1FFE01FFF8 +1FFE01FFF81FFE01FFF01FFE01FFF00FFC01FFE007F801FFE001E001FFE0000001FFE000 +0001FFE0000001FFC0000001FFC0000001FFC0000001FFC0000001FFC0000001FFC00000 +01FFC0000001FFC0000001FFC0000001FFC0000001FFC0000001FFC0000001FFC0000001 +FFC0000001FFC0000001FFC0000001FFC0000001FFC0000001FFC0000001FFC0000001FF +C0000001FFC0000001FFC00000FFFFFFE000FFFFFFE000FFFFFFE000FFFFFFE000FFFFFF +E000272D7DAC2E>I<001FFC038000FFFF878003FFFFFF800FFFFFFF801FF003FF803FC0 +00FF803F80003F807F00001F807E00001F80FE00000F80FE00000F80FE00000780FF0000 +0780FF00000780FF80000780FFE0000000FFFE0000007FFFF000007FFFFF00003FFFFFC0 +003FFFFFF0001FFFFFFC000FFFFFFE0003FFFFFF0001FFFFFF80007FFFFF80000FFFFFC0 +00003FFFC0000003FFE0000000FFE0F000003FE0F000003FE0F800001FE0F800000FE0F8 +00000FE0FC00000FE0FC00000FE0FE00000FC0FF00001FC0FF00001FC0FF80003F80FFE0 +007F00FFF803FE00FFFFFFFC00FCFFFFF800F03FFFE000E007FE0000232F7CAD2C>I<00 +01E000000001E000000001E000000001E000000001E000000003E000000003E000000003 +E000000003E000000007E000000007E00000000FE00000000FE00000001FE00000001FE0 +0000003FE00000007FE0000000FFE0000003FFE000000FFFFFFF80FFFFFFFF80FFFFFFFF +80FFFFFFFF80FFFFFFFF8000FFE0000000FFE0000000FFE0000000FFE0000000FFE00000 +00FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000 +FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000FFE0000000FF +E0000000FFE0000000FFE001E000FFE001E000FFE001E000FFE001E000FFE001E000FFE0 +01E000FFE001E000FFE001E000FFE001E000FFE003E000FFF003C0007FF003C0007FF007 +C0003FF80F80001FFC1F00000FFFFF000007FFFC000001FFF80000003FE00023407EBE2C +>I<007FC00001FF00FFFFC003FFFF00FFFFC003FFFF00FFFFC003FFFF00FFFFC003FFFF +00FFFFC003FFFF0003FFC0000FFF0001FFC00007FF0001FFC00007FF0001FFC00007FF00 +01FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001 +FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FF +C00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC0 +0007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC00007FF0001FFC000 +07FF0001FFC00007FF0001FFC00007FF0001FFC0000FFF0001FFC0000FFF0001FFC0001F +FF0001FFC0001FFF0001FFC0003FFF0000FFC0003FFF0000FFE0007FFF80007FE001F7FF +FE007FF807E7FFFE003FFFFFC7FFFE000FFFFF07FFFE0003FFFE07FFFE00007FF007FC00 +372E7CAC3E>IIIII<1FFFFFFFFF801FFFFF +FFFF801FFFFFFFFF801FFFFFFFFF801FFC001FFF001FE0003FFE001FC0003FFE001F8000 +7FFC001F0000FFF8003F0001FFF0003E0001FFF0003E0003FFE0003E0007FFC0003C000F +FF80003C000FFF80003C001FFF00003C003FFE00003C007FFC000000007FFC00000000FF +F800000001FFF000000003FFE000000003FFE000000007FFC00000000FFF800780001FFF +000780001FFF000780003FFE000780007FFC000F8000FFF8000F0000FFF8000F0001FFF0 +000F0003FFE0001F0007FFC0001F0007FFC0001F000FFF80003F001FFF00007F003FFE00 +00FF003FFE0003FF007FFC001FFE00FFFFFFFFFE00FFFFFFFFFE00FFFFFFFFFE00FFFFFF +FFFE00292C7DAB32>II E /Fp 61 122 df<00000000FFFC0000000000001FFFFF80000000 +0001FFFFFFE00000000007FFFFFFF0000000001FFFC00FF8000000007FFE0003FC000000 +00FFF00000FE00000001FFE00003FF00000003FF800007FF00000007FF00000FFF800000 +0FFE00001FFF8000000FFE00001FFF8000001FFC00001FFF8000001FFC00003FFFC00000 +3FFC00001FFF8000003FF800001FFF8000003FF800001FFF8000003FF800001FFF800000 +3FF800000FFF0000003FF8000007FE0000003FF8000001F80000003FF800000000000000 +3FF8000000000000003FF8000000000000003FF8000000000000003FF800000000000000 +3FF8000000000000003FF8000000000000003FF8000000000000003FF800000000000000 +3FF80003FFFFC000FFFFFFFFFFFFFFC000FFFFFFFFFFFFFFC000FFFFFFFFFFFFFFC000FF +FFFFFFFFFFFFC000FFFFFFFFFFFFFFC000003FFC000007FFC000003FFC000003FFC00000 +3FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC00000 +3FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC00000 +3FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC00000 +3FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC00000 +3FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC00000 +3FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC00000 +3FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC00000 +3FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC00000 +3FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC00000 +3FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC000003FFC00000 +3FFC000003FFC0003FFFFFFC03FFFFFFC03FFFFFFC03FFFFFFC03FFFFFFC03FFFFFFC03F +FFFFFC03FFFFFFC03FFFFFFC03FFFFFFC042547DD34B>12 D<07F0001FF8003FFC007FFE +007FFF00FFFF00FFFF80FFFF80FFFF80FFFFC0FFFFC0FFFFC07FFFC07FFFC03FFFC01FFF +C007F3C00003C00003C00007C0000780000780000780000F80000F00000F00001F00001E +00003E00003C00007C0000F80000F80001F00003E00007C0000F80001F00001E00000C00 +001228769025>44 DI<07 +F0000FF8001FFC003FFE007FFF00FFFF80FFFF80FFFF80FFFF80FFFF80FFFF80FFFF807F +FF003FFE001FFC000FF80007F0001111769025>I<000003FFC0000000003FFFFC000000 +00FFFFFF00000003FFFFFFC000000FFF81FFF000001FFC003FF800003FF8001FFC00007F +F0000FFE0000FFE00007FF0001FFC00003FF8003FF800001FFC003FF800001FFC007FF80 +0001FFE00FFF000000FFF00FFF000000FFF00FFF000000FFF01FFF000000FFF81FFF0000 +00FFF83FFF000000FFFC3FFE0000007FFC3FFE0000007FFC3FFE0000007FFC7FFE000000 +7FFE7FFE0000007FFE7FFE0000007FFE7FFE0000007FFE7FFE0000007FFE7FFE0000007F +FEFFFE0000007FFFFFFE0000007FFFFFFE0000007FFFFFFE0000007FFFFFFE0000007FFF +FFFE0000007FFFFFFE0000007FFFFFFE0000007FFFFFFE0000007FFFFFFE0000007FFFFF +FE0000007FFFFFFE0000007FFFFFFE0000007FFFFFFE0000007FFFFFFE0000007FFFFFFE +0000007FFFFFFE0000007FFFFFFE0000007FFFFFFE0000007FFFFFFE0000007FFFFFFE00 +00007FFFFFFE0000007FFFFFFE0000007FFF7FFE0000007FFE7FFE0000007FFE7FFE0000 +007FFE7FFE0000007FFE7FFE0000007FFE7FFE0000007FFE3FFE0000007FFC3FFE000000 +7FFC3FFF000000FFFC3FFF000000FFFC1FFF000000FFF81FFF000000FFF81FFF000000FF +F80FFF000000FFF00FFF000000FFF007FF800001FFE007FF800001FFE003FFC00003FFC0 +01FFC00003FF8001FFE00007FF8000FFF0000FFF00007FF8001FFE00001FFC003FF80000 +0FFF81FFF0000007FFFFFFE0000001FFFFFF800000003FFFFC0000000003FFC00000384F +7BCD43>48 D<000000780000000000FC0000000003FC0000000007FC000000001FFC0000 +0000FFFC0000000FFFFC000007FFFFFC0000FFFFFFFC0000FFFFFFFC0000FFFF7FFC0000 +FFF07FFC0000F8007FFC000000007FFC000000007FFC000000007FFC000000007FFC0000 +00007FFC000000007FFC000000007FFC000000007FFC000000007FFC000000007FFC0000 +00007FFC000000007FFC000000007FFC000000007FFC000000007FFC000000007FFC0000 +00007FFC000000007FFC000000007FFC000000007FFC000000007FFC000000007FFC0000 +00007FFC000000007FFC000000007FFC000000007FFC000000007FFC000000007FFC0000 +00007FFC000000007FFC000000007FFC000000007FFC000000007FFC000000007FFC0000 +00007FFC000000007FFC000000007FFC000000007FFC000000007FFC000000007FFC0000 +00007FFC000000007FFC000000007FFC000000007FFC000000007FFC000000007FFC0000 +00007FFC000000007FFC000000007FFC000000007FFC000000007FFC000000007FFC0000 +00007FFC000000007FFC000000007FFC000000007FFC000000007FFC000000007FFC0000 +00007FFC000000007FFC00007FFFFFFFFFFE7FFFFFFFFFFE7FFFFFFFFFFE7FFFFFFFFFFE +7FFFFFFFFFFE2F4E76CD43>I<00003FFE0000000003FFFFE00000000FFFFFFC0000003F +FFFFFF000000FFFFFFFFC00001FFC07FFFE00003FE000FFFF80007F80003FFFC000FE000 +01FFFE001FC00000FFFF003F8000007FFF003FF000007FFF807FF800003FFFC07FFC0000 +3FFFC0FFFE00001FFFE0FFFF00001FFFE0FFFF00001FFFE0FFFF00000FFFF0FFFF00000F +FFF0FFFF00000FFFF0FFFF00000FFFF0FFFF00000FFFF07FFE00000FFFF07FFE00000FFF +F03FFC00000FFFF00FF000000FFFF003C000000FFFF0000000000FFFE0000000001FFFE0 +000000001FFFE0000000001FFFC0000000003FFFC0000000003FFF80000000003FFF8000 +0000007FFF00000000007FFE0000000000FFFC0000000001FFF80000000001FFF0000000 +0003FFE00000000003FFC00000000007FF80000000000FFF00000000001FFE0000000000 +1FFC00000000003FF800000000007FE00000000000FFC00000000001FF800000000003FE +000000000007FC000000000007F800000000000FF00001F000001FE00001F000003F8000 +01F000007F000001F00000FE000003E00001FC000003E00003F8000003E00007F0000003 +E0000FE0000003E0001F80000007E0003F00000007E0003E0000000FE0007FFFFFFFFFE0 +00FFFFFFFFFFC001FFFFFFFFFFC003FFFFFFFFFFC007FFFFFFFFFFC00FFFFFFFFFFFC01F +FFFFFFFFFFC03FFFFFFFFFFFC07FFFFFFFFFFFC0FFFFFFFFFFFFC0FFFFFFFFFFFF80FFFF +FFFFFFFF80FFFFFFFFFFFF80FFFFFFFFFFFF80344E79CD43>I<00000FFFC000000000FF +FFFC00000007FFFFFF8000001FFFFFFFE000003FF807FFF00000FF8001FFFC0001FE0000 +7FFE0003F800003FFF0003F000003FFF8007FC00001FFF800FFF00001FFFC00FFF80001F +FFC01FFFC0001FFFE01FFFC0001FFFE01FFFC0001FFFE01FFFC0001FFFE01FFFE0001FFF +E01FFFC0001FFFE01FFFC0001FFFE01FFFC0001FFFE00FFFC0001FFFC007FF80001FFFC0 +03FF00003FFFC001FC00003FFF80000000003FFF80000000007FFF00000000007FFE0000 +0000007FFE0000000000FFFC0000000001FFF80000000003FFF00000000007FFC0000000 +000FFF8000000000FFFE00000000FFFFF800000000FFFFE000000000FFFFFC00000000FF +FFFF800000000007FFE00000000001FFF800000000007FFE00000000003FFF0000000000 +1FFF80000000000FFFC0000000000FFFE00000000007FFF00000000007FFF00000000007 +FFF80000000007FFF80000000003FFFC0000000003FFFC0000000003FFFE0000000003FF +FE03E0000003FFFE0FF8000003FFFE1FFC000003FFFE3FFE000003FFFE7FFF000003FFFE +FFFF800003FFFEFFFF800003FFFEFFFF800003FFFEFFFF800003FFFCFFFF800003FFFCFF +FF800007FFFCFFFF800007FFF8FFFF000007FFF87FFF000007FFF07FFE00000FFFF03FFC +00000FFFE03FF000001FFFC01FE000003FFF800FF800007FFF0007FF0000FFFE0003FFF0 +07FFFC0000FFFFFFFFF000007FFFFFFFE000001FFFFFFF80000003FFFFFC000000001FFF +800000374F7ACD43>I<00000000007C00000000000000FE00000000000000FE00000000 +000001FE00000000000003FE00000000000007FE0000000000000FFE0000000000000FFE +0000000000001FFE0000000000003FFE0000000000007FFE0000000000007FFE00000000 +0000FFFE000000000001FFFE000000000003FFFE000000000003FFFE000000000007FFFE +00000000000FFFFE00000000001FBFFE00000000003F3FFE00000000003E3FFE00000000 +007C3FFE0000000000FC3FFE0000000001F83FFE0000000001F03FFE0000000003E03FFE +0000000007E03FFE000000000FC03FFE000000000F803FFE000000001F003FFE00000000 +3F003FFE000000007E003FFE000000007C003FFE00000000F8003FFE00000001F8003FFE +00000003F0003FFE00000007E0003FFE00000007C0003FFE0000000F80003FFE0000001F +80003FFE0000003F00003FFE0000003E00003FFE0000007C00003FFE000000FC00003FFE +000001F800003FFE000001F000003FFE000003E000003FFE000007E000003FFE00000FC0 +00003FFE00001F8000003FFE00001F0000003FFE00003E0000003FFE00007E0000003FFE +0000FC0000003FFE0000FFFFFFFFFFFFFFC0FFFFFFFFFFFFFFC0FFFFFFFFFFFFFFC0FFFF +FFFFFFFFFFC0FFFFFFFFFFFFFFC0000000007FFE0000000000007FFE0000000000007FFE +0000000000007FFE0000000000007FFE0000000000007FFE0000000000007FFE00000000 +00007FFE0000000000007FFE0000000000007FFE0000000000007FFE0000000000007FFE +0000000000007FFE0000000000007FFE0000000000007FFE000000000FFFFFFFFFC00000 +0FFFFFFFFFC000000FFFFFFFFFC000000FFFFFFFFFC000000FFFFFFFFFC03A4F7CCE43> +I<03800000000E0007E00000007E0007FE000003FE0007FFF0007FFE0007FFFFFFFFFC00 +07FFFFFFFFF80007FFFFFFFFF00007FFFFFFFFE00007FFFFFFFFC00007FFFFFFFF800007 +FFFFFFFF000007FFFFFFFE000007FFFFFFFC000007FFFFFFF0000007FFFFFFC0000007FF +FFFF00000007FFFFF800000007E1FF0000000007E0000000000007E0000000000007E000 +0000000007E0000000000007E0000000000007E0000000000007E0000000000007E00000 +00000007E0000000000007E0000000000007E0000000000007E00FFF00000007E07FFFF0 +000007E3FFFFFE000007E7FFFFFF800007FFF807FFC00007FFC001FFE00007FE0000FFF8 +0007FC00007FFC0007F800003FFC0007F000003FFE0007E000001FFF0003C000001FFF80 +000000001FFF80000000001FFFC0000000000FFFC0000000000FFFE0000000000FFFE000 +0000000FFFE0000000000FFFE0000000000FFFF0000000000FFFF0000000000FFFF00FE0 +00000FFFF01FF000000FFFF03FF800000FFFF07FFC00000FFFF0FFFE00000FFFF0FFFE00 +000FFFF0FFFE00000FFFF0FFFE00000FFFF0FFFE00000FFFE0FFFE00000FFFE0FFFE0000 +0FFFE0FFFC00000FFFE07FF800001FFFC07FF000001FFFC07FE000001FFF803E0000003F +FF803F0000003FFF001F8000007FFE001FC000007FFC000FE00000FFF80007F80001FFF0 +0003FE0007FFE00001FFC03FFFC00000FFFFFFFF8000003FFFFFFE0000001FFFFFF80000 +0003FFFFC0000000007FF8000000344F79CD43>I<0000000FFF0000000000FFFFE00000 +0007FFFFF00000001FFFFFFC0000007FFE03FE000001FFF0007F000003FFC0003F800007 +FF00001F80000FFE00007FC0001FFC0000FFC0003FF80001FFE0007FF00003FFE000FFF0 +0007FFE001FFE00007FFE001FFE00007FFE003FFC00007FFE007FFC00007FFE007FFC000 +07FFE00FFFC00003FFC00FFF800001FF801FFF800000FF001FFF8000007E001FFF800000 +00003FFF80000000003FFF80000000003FFF00000000007FFF00000000007FFF00000000 +007FFF00080000007FFF01FFF800007FFF07FFFF0000FFFF0FFFFFC000FFFF1FFFFFF000 +FFFF3F007FF800FFFF3C003FFC00FFFF78001FFE00FFFFF0000FFF00FFFFF00007FF80FF +FFE00007FFC0FFFFE00007FFC0FFFFC00007FFE0FFFFC00003FFF0FFFF800003FFF0FFFF +800003FFF8FFFF800003FFF8FFFF800003FFF8FFFF800003FFF8FFFF000003FFFCFFFF00 +0003FFFCFFFF000003FFFC7FFF000003FFFC7FFF000003FFFC7FFF000003FFFC7FFF0000 +03FFFC7FFF000003FFFC7FFF000003FFFC3FFF000003FFFC3FFF000003FFFC3FFF000003 +FFFC3FFF000003FFFC1FFF000003FFF81FFF800003FFF81FFF800003FFF80FFF800003FF +F80FFF800003FFF007FF800007FFF007FF800007FFE003FFC00007FFC001FFC00007FFC0 +01FFE0000FFF8000FFF0000FFF00007FF8001FFE00003FFC007FFC00001FFF01FFF80000 +0FFFFFFFF0000003FFFFFFC0000000FFFFFF000000003FFFFC0000000007FFC00000364F +7ACD43>I<1F000000000000001F800000000000001FC00000000000001FFF8000000000 +001FFFFFFFFFFFFF801FFFFFFFFFFFFF801FFFFFFFFFFFFF801FFFFFFFFFFFFF803FFFFF +FFFFFFFF803FFFFFFFFFFFFF003FFFFFFFFFFFFE003FFFFFFFFFFFFC003FFFFFFFFFFFF8 +003FFFFFFFFFFFF8003FFFFFFFFFFFF0003FFFFFFFFFFFE0003FFFFFFFFFFFC0007FFFFF +FFFFFF80007F800000007F00007E00000000FF00007E00000001FE00007C00000003FC00 +007C00000003F800007C00000007F000007C0000000FF000007C0000001FE00000F80000 +003FC00000F80000007F800000F80000007F000000F8000000FE00000000000001FE0000 +0000000003FC00000000000003F800000000000007F00000000000000FF0000000000000 +1FE00000000000001FE00000000000003FC00000000000003FC00000000000007F800000 +00000000FF80000000000000FF80000000000001FF00000000000001FF00000000000003 +FF00000000000003FE00000000000007FE00000000000007FE0000000000000FFE000000 +0000000FFE0000000000000FFC0000000000001FFC0000000000001FFC0000000000003F +FC0000000000003FFC0000000000003FFC0000000000003FFC0000000000007FFC000000 +0000007FF80000000000007FF80000000000007FF8000000000000FFF8000000000000FF +F8000000000000FFF8000000000000FFF8000000000000FFF8000000000001FFF8000000 +000001FFF8000000000001FFF8000000000001FFF8000000000001FFF8000000000001FF +F8000000000001FFF8000000000001FFF8000000000001FFF8000000000001FFF8000000 +000001FFF8000000000001FFF8000000000000FFF0000000000000FFF00000000000003F +C00000000000001F8000000000395279D043>I<000007FFC0000000007FFFFC00000003 +FFFFFF8000000FFFFFFFE000001FFC01FFF800003FE0003FFC00007F80000FFE0000FF00 +0007FF0001FE000003FF0003FC000001FF8007FC000001FFC007F8000000FFC00FF80000 +00FFC00FF8000000FFE00FF80000007FE00FF80000007FE01FF80000007FE01FFC000000 +7FE01FFC0000007FE01FFE0000007FE01FFF0000007FE01FFF800000FFE01FFFE00000FF +C01FFFF80000FFC01FFFFE0001FF800FFFFF0001FF800FFFFFC003FF000FFFFFF007FE00 +07FFFFF807FC0007FFFFFE1FF80003FFFFFFBFF00001FFFFFFFFE00001FFFFFFFF800000 +FFFFFFFE0000007FFFFFFF0000003FFFFFFF8000000FFFFFFFE0000007FFFFFFF0000001 +FFFFFFFC000007FFFFFFFE00001FFFFFFFFF00003FFFFFFFFF8000FFE7FFFFFF8001FF81 +FFFFFFC003FF007FFFFFE007FE001FFFFFF00FFC000FFFFFF01FF80003FFFFF01FF80000 +FFFFF83FF000007FFFF83FF000001FFFF87FE0000007FFFC7FE0000001FFFC7FE0000000 +FFFCFFC00000007FFCFFC00000003FFCFFC00000003FFCFFC00000001FFCFFC00000001F +FCFFC00000000FFCFFC00000000FFCFFC00000000FF8FFC00000000FF8FFE00000000FF8 +7FE00000000FF07FF00000001FF07FF00000001FF03FF80000003FE01FF80000003FC01F +FC0000007FC00FFE000000FF8007FF800003FF0003FFE0000FFE0001FFFC00FFFC00007F +FFFFFFF000003FFFFFFFE000000FFFFFFF80000001FFFFFC000000000FFFC00000364F7A +CD43>I<00000FFF8000000000FFFFF800000003FFFFFE0000000FFFFFFF8000001FFF03 +FFC000007FF800FFE00000FFF0003FF00001FFE0001FF80003FFC0001FFC0007FFC0000F +FE000FFF80000FFF000FFF800007FF001FFF800007FF803FFF800007FF803FFF000007FF +C07FFF000007FFC07FFF000003FFE07FFF000003FFE07FFF000003FFF0FFFF000003FFF0 +FFFF000003FFF0FFFF000003FFF0FFFF000003FFF8FFFF000003FFF8FFFF000003FFF8FF +FF000003FFF8FFFF000003FFF8FFFF000003FFF8FFFF000003FFFCFFFF000003FFFCFFFF +000003FFFCFFFF000003FFFC7FFF000007FFFC7FFF000007FFFC7FFF000007FFFC3FFF00 +0007FFFC3FFF000007FFFC3FFF00000FFFFC1FFF80000FFFFC0FFF80001FFFFC0FFF8000 +1FFFFC07FF80003FFFFC03FFC0003FFFFC01FFE0007BFFFC00FFF000F3FFFC007FF803F3 +FFFC001FFFFFE3FFFC000FFFFFC3FFFC0003FFFF83FFF800007FFE03FFF80000004003FF +F80000000003FFF80000000003FFF80000000003FFF00000000007FFF00000000007FFF0 +0000000007FFF001F8000007FFE003FC000007FFE007FE000007FFC00FFF000007FFC01F +FF80000FFF801FFF80000FFF801FFF80000FFF001FFF80001FFF001FFF80001FFE001FFF +80003FFC001FFF00003FFC000FFE00007FF8000FFC0000FFF0000FF80001FFE00007F000 +03FFC00003FC000FFF800003FF807FFE000001FFFFFFFC0000007FFFFFF00000003FFFFF +C00000000FFFFE0000000000FFF0000000364F7ACD43>I<00000000001F000000000000 +00000000003F80000000000000000000007FC0000000000000000000007FC00000000000 +0000000000FFE000000000000000000000FFE000000000000000000000FFE00000000000 +0000000001FFF000000000000000000001FFF000000000000000000003FFF80000000000 +0000000003FFF800000000000000000003FFF800000000000000000007FFFC0000000000 +0000000007FFFC00000000000000000007FFFC0000000000000000000FFFFE0000000000 +000000000FFFFE0000000000000000001FFFFF0000000000000000001FFFFF0000000000 +000000001FFFFF0000000000000000003FFFFF8000000000000000003F7FFF8000000000 +000000007F7FFFC000000000000000007E7FFFC000000000000000007E3FFFC000000000 +00000000FE3FFFE00000000000000000FC1FFFE00000000000000001FC1FFFF000000000 +00000001F81FFFF00000000000000001F80FFFF00000000000000003F80FFFF800000000 +00000003F007FFF80000000000000007F007FFFC0000000000000007E007FFFC00000000 +00000007E003FFFC000000000000000FE003FFFE000000000000000FC001FFFE00000000 +0000001FC001FFFF000000000000001F8001FFFF000000000000001F8000FFFF00000000 +0000003F8000FFFF800000000000003F00007FFF800000000000007F00007FFFC0000000 +0000007E00007FFFC00000000000007E00003FFFC0000000000000FE00003FFFE0000000 +000000FC00001FFFE0000000000001FC00001FFFF0000000000001F800001FFFF0000000 +000001F800000FFFF0000000000003F800000FFFF8000000000003F0000007FFF8000000 +000007F0000007FFFC000000000007E0000007FFFC000000000007E0000003FFFC000000 +00000FFFFFFFFFFFFE00000000000FFFFFFFFFFFFE00000000001FFFFFFFFFFFFF000000 +00001FFFFFFFFFFFFF00000000001FFFFFFFFFFFFF00000000003F80000000FFFF800000 +00003F000000007FFF80000000007F000000007FFFC0000000007F000000007FFFC00000 +00007E000000003FFFC000000000FE000000003FFFE000000000FC000000001FFFE00000 +0001FC000000001FFFF000000001FC000000001FFFF000000001F8000000000FFFF00000 +0003F8000000000FFFF800000003F00000000007FFF800000007F00000000007FFFC0000 +0007F00000000007FFFC00000007E00000000003FFFC0000000FE00000000003FFFE0000 +000FC00000000003FFFE0000001FC00000000001FFFF000000FFFC0000000001FFFF0000 +FFFFFFF800000FFFFFFFFFE0FFFFFFF800000FFFFFFFFFE0FFFFFFF800000FFFFFFFFFE0 +FFFFFFF800000FFFFFFFFFE0FFFFFFF800000FFFFFFFFFE05B547BD366>65 +DI<0000000001FFFC000001C0000000007FFFFFC00003C000000007 +FFFFFFF80007C00000003FFFFFFFFE001FC0000000FFFFFFFFFF803FC0000003FFFFE003 +FFC07FC000000FFFFC00003FF0FFC000003FFFE000000FF9FFC000007FFF80000003FFFF +C00001FFFE00000000FFFFC00003FFF8000000007FFFC00007FFF0000000003FFFC0000F +FFE0000000001FFFC0001FFFC0000000000FFFC0003FFF800000000007FFC0007FFF0000 +00000003FFC000FFFE000000000001FFC000FFFE000000000001FFC001FFFC0000000000 +00FFC003FFF8000000000000FFC003FFF80000000000007FC007FFF00000000000007FC0 +0FFFF00000000000003FC00FFFF00000000000003FC01FFFE00000000000001FC01FFFE0 +0000000000001FC01FFFE00000000000001FC03FFFC00000000000001FC03FFFC0000000 +0000000FC03FFFC00000000000000FC07FFFC00000000000000FC07FFFC0000000000000 +0FC07FFFC000000000000000007FFF8000000000000000007FFF800000000000000000FF +FF800000000000000000FFFF800000000000000000FFFF800000000000000000FFFF8000 +00000000000000FFFF800000000000000000FFFF800000000000000000FFFF8000000000 +00000000FFFF800000000000000000FFFF800000000000000000FFFF8000000000000000 +00FFFF800000000000000000FFFF800000000000000000FFFF800000000000000000FFFF +8000000000000000007FFF8000000000000000007FFF8000000000000000007FFFC00000 +0000000000007FFFC000000000000000007FFFC000000000000007C03FFFC00000000000 +0007C03FFFC000000000000007C03FFFC000000000000007C01FFFE000000000000007C0 +1FFFE000000000000007C01FFFE00000000000000FC00FFFF00000000000000F800FFFF0 +0000000000000F8007FFF00000000000001F8003FFF80000000000001F8003FFF8000000 +0000001F0001FFFC0000000000003F0000FFFE0000000000007E0000FFFE000000000000 +7E00007FFF000000000000FC00003FFF800000000001F800001FFFC00000000003F80000 +0FFFE00000000007F0000007FFF0000000000FE0000003FFFC000000001FC0000001FFFE +000000007F800000007FFF80000000FF000000003FFFE0000007FE000000000FFFFE0000 +1FF80000000003FFFFE001FFF00000000000FFFFFFFFFFC000000000003FFFFFFFFF0000 +0000000007FFFFFFFC000000000000007FFFFFE00000000000000001FFFC000000005254 +79D261>IIII<0000000001FFFC000001C000000000007FFFFFC00003C00000000007FFFFFFF80007 +C0000000003FFFFFFFFE001FC000000000FFFFFFFFFF803FC000000003FFFFE003FFC07F +C00000000FFFFC00003FF0FFC00000003FFFE000000FF9FFC00000007FFF80000003FFFF +C0000001FFFE00000000FFFFC0000003FFF8000000007FFFC0000007FFF0000000003FFF +C000000FFFE0000000001FFFC000001FFFC0000000000FFFC000003FFF800000000007FF +C000007FFF000000000003FFC00000FFFE000000000001FFC00000FFFE000000000001FF +C00001FFFC000000000000FFC00003FFF8000000000000FFC00003FFF80000000000007F +C00007FFF00000000000007FC0000FFFF00000000000003FC0000FFFF00000000000003F +C0001FFFE00000000000001FC0001FFFE00000000000001FC0001FFFE00000000000001F +C0003FFFC00000000000001FC0003FFFC00000000000000FC0003FFFC00000000000000F +C0007FFFC00000000000000FC0007FFFC00000000000000FC0007FFFC000000000000000 +00007FFF800000000000000000007FFF80000000000000000000FFFF8000000000000000 +0000FFFF80000000000000000000FFFF80000000000000000000FFFF8000000000000000 +0000FFFF80000000000000000000FFFF80000000000000000000FFFF8000000000000000 +0000FFFF80000000000000000000FFFF80000000000000000000FFFF8000000000000000 +0000FFFF80000000000000000000FFFF80000000000000000000FFFF8000000000000000 +0000FFFF800000000000000000007FFF800000007FFFFFFFFFE07FFF800000007FFFFFFF +FFE07FFFC00000007FFFFFFFFFE07FFFC00000007FFFFFFFFFE07FFFC00000007FFFFFFF +FFE03FFFC000000000003FFFC0003FFFC000000000003FFFC0003FFFC000000000003FFF +C0001FFFE000000000003FFFC0001FFFE000000000003FFFC0001FFFE000000000003FFF +C0000FFFF000000000003FFFC0000FFFF000000000003FFFC00007FFF000000000003FFF +C00003FFF800000000003FFFC00003FFF800000000003FFFC00001FFFC00000000003FFF +C00000FFFE00000000003FFFC00000FFFE00000000003FFFC000007FFF00000000003FFF +C000003FFF80000000003FFFC000001FFFC0000000003FFFC000000FFFE0000000007FFF +C0000007FFF0000000007FFFC0000003FFFC00000000FFFFC0000001FFFF00000000FFFF +C00000007FFF80000001FFFFC00000003FFFF0000007FBFFC00000000FFFFE00001FF1FF +C000000003FFFFF001FFE0FFC000000000FFFFFFFFFFC07FC0000000003FFFFFFFFF001F +C00000000007FFFFFFFC0007C000000000007FFFFFE00001C0000000000001FFFE000000 +00005B5479D26A>III<00007FFFFFFFFF8000007FFFFF +FFFF8000007FFFFFFFFF8000007FFFFFFFFF8000007FFFFFFFFF80000000007FFF000000 +0000007FFF0000000000007FFF0000000000007FFF0000000000007FFF0000000000007F +FF0000000000007FFF0000000000007FFF0000000000007FFF0000000000007FFF000000 +0000007FFF0000000000007FFF0000000000007FFF0000000000007FFF0000000000007F +FF0000000000007FFF0000000000007FFF0000000000007FFF0000000000007FFF000000 +0000007FFF0000000000007FFF0000000000007FFF0000000000007FFF0000000000007F +FF0000000000007FFF0000000000007FFF0000000000007FFF0000000000007FFF000000 +0000007FFF0000000000007FFF0000000000007FFF0000000000007FFF0000000000007F +FF0000000000007FFF0000000000007FFF0000000000007FFF0000000000007FFF000000 +0000007FFF0000000000007FFF0000000000007FFF0000000000007FFF0000000000007F +FF0000000000007FFF0000000000007FFF0000000000007FFF0000000000007FFF000000 +0000007FFF0000000000007FFF0000000000007FFF0000000000007FFF0000000000007F +FF0000000000007FFF0000000000007FFF0000000000007FFF0000000000007FFF000007 +F000007FFF00001FFC00007FFF00003FFE00007FFF00007FFF00007FFF00007FFF00007F +FF0000FFFF80007FFF0000FFFF80007FFF0000FFFF80007FFF0000FFFF80007FFF0000FF +FF8000FFFE0000FFFF8000FFFE0000FFFF8000FFFE0000FFFF0001FFFC00007FFF0001FF +FC00007FFE0003FFF800003FF80007FFF000001FE00007FFE000000FFC001FFFC0000007 +FF807FFF00000001FFFFFFFC000000007FFFFFF0000000001FFFFFC00000000001FFF800 +00000039537DD145>IIIII<000000000FFFC00000000000000003FFFFFF00000000 +0000001FFFFFFFE0000000000000FFFFFFFFFC000000000003FFFC00FFFF00000000000F +FFC0000FFFC0000000003FFF000003FFF0000000007FFC000000FFF800000001FFF80000 +007FFE00000003FFE00000001FFF00000007FFC00000000FFF8000000FFF8000000007FF +C000001FFF0000000003FFE000003FFF0000000003FFF000007FFE0000000001FFF80000 +FFFC0000000000FFFC0000FFFC0000000000FFFC0001FFF800000000007FFE0003FFF800 +000000007FFF0003FFF000000000003FFF0007FFF000000000003FFF8007FFE000000000 +001FFF800FFFE000000000001FFFC00FFFE000000000001FFFC01FFFE000000000001FFF +E01FFFC000000000000FFFE01FFFC000000000000FFFE03FFFC000000000000FFFF03FFF +C000000000000FFFF03FFFC000000000000FFFF07FFF80000000000007FFF87FFF800000 +00000007FFF87FFF80000000000007FFF87FFF80000000000007FFF87FFF800000000000 +07FFF8FFFF80000000000007FFFCFFFF80000000000007FFFCFFFF80000000000007FFFC +FFFF80000000000007FFFCFFFF80000000000007FFFCFFFF80000000000007FFFCFFFF80 +000000000007FFFCFFFF80000000000007FFFCFFFF80000000000007FFFCFFFF80000000 +000007FFFCFFFF80000000000007FFFCFFFF80000000000007FFFCFFFF80000000000007 +FFFCFFFF80000000000007FFFCFFFF80000000000007FFFC7FFF80000000000007FFF87F +FFC000000000000FFFF87FFFC000000000000FFFF87FFFC000000000000FFFF87FFFC000 +000000000FFFF83FFFC000000000000FFFF03FFFC000000000000FFFF03FFFE000000000 +001FFFF01FFFE000000000001FFFE01FFFE000000000001FFFE01FFFE000000000001FFF +E00FFFF000000000003FFFC00FFFF000000000003FFFC007FFF800000000007FFF8007FF +F800000000007FFF8003FFF800000000007FFF0001FFFC0000000000FFFE0001FFFE0000 +000001FFFE0000FFFE0000000001FFFC00007FFF0000000003FFF800003FFF8000000007 +FFF000001FFFC00000000FFFE000000FFFE00000001FFFC0000007FFF00000003FFF8000 +0003FFF80000007FFF00000001FFFC000000FFFE00000000FFFF000003FFFC000000003F +FFE0001FFFF0000000000FFFFC00FFFFC00000000003FFFFFFFFFF000000000000FFFFFF +FFFC0000000000001FFFFFFFE000000000000003FFFFFF00000000000000001FFFE00000 +0000565479D265>II<000000000FFFC00000000000000003FFFFFF000000000000001FFFFF +FFE0000000000000FFFFFFFFFC000000000003FFFC00FFFF00000000000FFFC0000FFFC0 +000000003FFF000003FFF0000000007FFC000000FFF800000001FFF00000003FFE000000 +03FFE00000001FFF00000007FFC00000000FFF8000000FFF8000000007FFC000001FFF00 +00000003FFE000003FFE0000000001FFF000007FFC0000000000FFF80000FFFC00000000 +00FFFC0000FFF800000000007FFC0001FFF800000000007FFE0003FFF000000000003FFF +0003FFF000000000003FFF0007FFE000000000001FFF8007FFE000000000001FFF800FFF +E000000000001FFFC00FFFC000000000000FFFC01FFFC000000000000FFFE01FFFC00000 +0000000FFFE01FFF80000000000007FFE03FFF80000000000007FFF03FFF800000000000 +07FFF03FFF80000000000007FFF07FFF80000000000007FFF87FFF80000000000007FFF8 +7FFF00000000000003FFF87FFF00000000000003FFF87FFF00000000000003FFF8FFFF00 +000000000003FFFCFFFF00000000000003FFFCFFFF00000000000003FFFCFFFF00000000 +000003FFFCFFFF00000000000003FFFCFFFF00000000000003FFFCFFFF00000000000003 +FFFCFFFF00000000000003FFFCFFFF00000000000003FFFCFFFF00000000000003FFFCFF +FF00000000000003FFFCFFFF00000000000003FFFCFFFF00000000000003FFFCFFFF0000 +0000000003FFFCFFFF00000000000003FFFC7FFF00000000000003FFF87FFF0000000000 +0003FFF87FFF80000000000007FFF87FFF80000000000007FFF87FFF80000000000007FF +F83FFF80000000000007FFF03FFF80000000000007FFF03FFF80000000000007FFF01FFF +C000000000000FFFE01FFFC000000000000FFFE01FFFC000000000000FFFE00FFFC00000 +0000000FFFC00FFFE000000000001FFFC007FFE000000000001FFF8007FFF00000000000 +3FFF8003FFF00001FE00003FFF0001FFF80007FF80007FFE0001FFF8000FFFE0007FFE00 +00FFFC003FFFF000FFFC00007FFC007F03F800FFF800003FFE007C00FC01FFF000001FFF +00F8007E03FFE000000FFF80F8003F07FFC0000007FFC0F0001F8FFF80000003FFE0F000 +1F9FFF00000001FFF0F0000FFFFE00000000FFFCF8000FFFFC000000003FFFF80007FFF0 +000000000FFFFC000FFFC00000000003FFFF00FFFF000000000000FFFFFFFFFC00000000 +00001FFFFFFFFC00000C00000003FFFFFFFC00001E000000001FFFE3FE00001E00000000 +000001FF00001E00000000000001FF80003E00000000000001FFC0007E00000000000001 +FFE000FE00000000000001FFF807FE00000000000000FFFFFFFE00000000000000FFFFFF +FC00000000000000FFFFFFFC000000000000007FFFFFFC000000000000007FFFFFFC0000 +00000000007FFFFFF8000000000000007FFFFFF8000000000000003FFFFFF80000000000 +00003FFFFFF0000000000000001FFFFFE0000000000000001FFFFFE0000000000000000F +FFFFC00000000000000007FFFF800000000000000003FFFF000000000000000001FFFE00 +00000000000000007FF80000000000000000001FE000576A79D265>II<00000FFF800007000000FFFF +F8000F000007FFFFFF001F00001FFFFFFFC03F00003FFFFFFFF07F0000FFFC00FFF8FF00 +01FFE0000FFDFF0003FF800001FFFF0007FE0000007FFF000FFC0000003FFF000FF80000 +000FFF001FF800000007FF001FF000000003FF003FF000000003FF003FE000000001FF00 +7FE000000000FF007FE000000000FF007FE0000000007F00FFE0000000007F00FFE00000 +00003F00FFE0000000003F00FFF0000000003F00FFF0000000003F00FFF8000000001F00 +FFF8000000001F00FFFC000000001F00FFFE000000001F00FFFF000000000000FFFFC000 +000000007FFFF000000000007FFFFF00000000007FFFFFF8000000003FFFFFFF80000000 +3FFFFFFFFC0000001FFFFFFFFFC000001FFFFFFFFFF000000FFFFFFFFFFC000007FFFFFF +FFFF000003FFFFFFFFFFC00001FFFFFFFFFFE00000FFFFFFFFFFF000007FFFFFFFFFF800 +003FFFFFFFFFFC00000FFFFFFFFFFE000003FFFFFFFFFE000000FFFFFFFFFF0000001FFF +FFFFFF80000000FFFFFFFF800000000FFFFFFFC0000000007FFFFFC00000000007FFFFE0 +0000000000FFFFE000000000003FFFE000000000000FFFF0000000000007FFF000000000 +0003FFF0000000000003FFF0780000000001FFF0F80000000000FFF0F80000000000FFF0 +F80000000000FFF0F800000000007FF0F800000000007FF0FC00000000007FF0FC000000 +00007FF0FC00000000007FE0FE00000000007FE0FE00000000007FE0FF0000000000FFC0 +FF0000000000FFC0FF8000000000FFC0FFC000000001FF80FFE000000001FF00FFF00000 +0003FF00FFFC00000007FE00FFFF0000000FFC00FFFFC000001FF800FFFFF800007FF000 +FF1FFFC003FFE000FE0FFFFFFFFFC000FC03FFFFFFFF0000F8007FFFFFFC0000F0000FFF +FFF00000E000007FFF0000003C5479D24B>I<3FFFFFFFFFFFFFFFFFFF803FFFFFFFFFFF +FFFFFFFF803FFFFFFFFFFFFFFFFFFF803FFFFFFFFFFFFFFFFFFF803FFFFFFFFFFFFFFFFF +FF803FFFC0003FFFC0007FFF803FFE00003FFFC00007FF807FF800003FFFC00001FFC07F +E000003FFFC00000FFC07FC000003FFFC000007FC07F8000003FFFC000003FC07F000000 +3FFFC000001FC07F0000003FFFC000001FC07E0000003FFFC000000FC07E0000003FFFC0 +00000FC07E0000003FFFC000000FC07C0000003FFFC0000007C07C0000003FFFC0000007 +C07C0000003FFFC0000007C07C0000003FFFC0000007C07C0000003FFFC0000007C0FC00 +00003FFFC0000007E0F80000003FFFC0000003E0F80000003FFFC0000003E0F80000003F +FFC0000003E0F80000003FFFC0000003E0F80000003FFFC0000003E0F80000003FFFC000 +0003E0000000003FFFC000000000000000003FFFC000000000000000003FFFC000000000 +000000003FFFC000000000000000003FFFC000000000000000003FFFC000000000000000 +003FFFC000000000000000003FFFC000000000000000003FFFC000000000000000003FFF +C000000000000000003FFFC000000000000000003FFFC000000000000000003FFFC00000 +0000000000003FFFC000000000000000003FFFC000000000000000003FFFC00000000000 +0000003FFFC000000000000000003FFFC000000000000000003FFFC00000000000000000 +3FFFC000000000000000003FFFC000000000000000003FFFC000000000000000003FFFC0 +00000000000000003FFFC000000000000000003FFFC000000000000000003FFFC0000000 +00000000003FFFC000000000000000003FFFC000000000000000003FFFC0000000000000 +00003FFFC000000000000000003FFFC000000000000000003FFFC000000000000000003F +FFC000000000000000003FFFC000000000000000003FFFC000000000000000003FFFC000 +000000000000003FFFC000000000000000003FFFC000000000000000003FFFC000000000 +000000003FFFC000000000000000003FFFC000000000000000003FFFC000000000000000 +003FFFC000000000000000003FFFC000000000000000003FFFC000000000000000003FFF +C000000000000000003FFFC000000000000000003FFFC0000000000000FFFFFFFFFFFFF0 +00000000FFFFFFFFFFFFF000000000FFFFFFFFFFFFF000000000FFFFFFFFFFFFF0000000 +00FFFFFFFFFFFFF0000053517BD05E>IIII89 D<00007FFF000000000007FFFFF0000000003FFFFFFE +00000000FFFFFFFF80000001FFE00FFFC0000003FE0001FFF0000007FF0000FFF8000007 +FF80003FFC00000FFF80003FFE00000FFFC0001FFE00000FFFC0001FFF00000FFFC0000F +FF80000FFFC0000FFF80000FFFC0000FFF800007FF800007FFC00007FF800007FFC00003 +FF000007FFC00001FE000007FFC0000000000007FFC0000000000007FFC0000000000007 +FFC0000000000007FFC0000000000007FFC0000000000007FFC0000000007FFFFFC00000 +000FFFFFFFC0000000FFFFFFFFC0000007FFFF87FFC000003FFFF007FFC000007FFF8007 +FFC00001FFFC0007FFC00003FFF00007FFC00007FFE00007FFC0000FFFC00007FFC0001F +FF800007FFC0003FFF000007FFC0007FFF000007FFC0007FFE000007FFC0007FFE000007 +FFC000FFFC000007FFC000FFFC000007FFC000FFFC000007FFC000FFFC000007FFC000FF +FC00000FFFC000FFFC00000FFFC000FFFE00001FFFC0007FFE00001DFFC0007FFE00003D +FFC0003FFF000079FFE0001FFF8000F1FFF8000FFFC003E1FFFFE007FFF81FC0FFFFF003 +FFFFFF807FFFF000FFFFFF001FFFF0001FFFFC0007FFE00001FFE0000000003C387CB641 +>97 D<003FF0000000000000FFFFF0000000000000FFFFF0000000000000FFFFF0000000 +000000FFFFF0000000000000FFFFF000000000000003FFF000000000000000FFF0000000 +00000000FFF000000000000000FFF000000000000000FFF000000000000000FFF0000000 +00000000FFF000000000000000FFF000000000000000FFF000000000000000FFF0000000 +00000000FFF000000000000000FFF000000000000000FFF000000000000000FFF0000000 +00000000FFF000000000000000FFF000000000000000FFF000000000000000FFF0000000 +00000000FFF000000000000000FFF000000000000000FFF000000000000000FFF0000000 +00000000FFF000000000000000FFF001FFE000000000FFF00FFFFE00000000FFF03FFFFF +C0000000FFF0FFFFFFF0000000FFF3FF01FFF8000000FFF7F8003FFE000000FFFFE0000F +FF000000FFFF800007FF800000FFFF000003FFC00000FFFE000001FFE00000FFFC000001 +FFF00000FFF8000000FFF80000FFF8000000FFF80000FFF80000007FFC0000FFF8000000 +7FFC0000FFF80000007FFE0000FFF80000007FFE0000FFF80000007FFF0000FFF8000000 +3FFF0000FFF80000003FFF0000FFF80000003FFF0000FFF80000003FFF8000FFF8000000 +3FFF8000FFF80000003FFF8000FFF80000003FFF8000FFF80000003FFF8000FFF8000000 +3FFF8000FFF80000003FFF8000FFF80000003FFF8000FFF80000003FFF8000FFF8000000 +3FFF8000FFF80000003FFF8000FFF80000003FFF8000FFF80000003FFF0000FFF8000000 +3FFF0000FFF80000003FFF0000FFF80000003FFF0000FFF80000007FFE0000FFF8000000 +7FFE0000FFF80000007FFE0000FFF80000007FFC0000FFF8000000FFFC0000FFF8000000 +FFF80000FFFC000001FFF00000FFFC000001FFF00000FFFE000003FFE00000FFFF000007 +FFC00000FFFF80000FFF800000FFCFC0001FFF000000FF87F0007FFC000000FF03FE03FF +F8000000FE00FFFFFFE0000000FC007FFFFF80000000F8001FFFFC00000000000003FFC0 +00000041547BD24B>I<000001FFF8000000001FFFFF80000000FFFFFFF0000003FFFFFF +FC00000FFFC00FFE00001FFE0001FF00007FFC0003FF8000FFF00007FF8001FFF00007FF +C003FFE0000FFFC003FFC0000FFFC007FFC0000FFFC00FFF80000FFFC00FFF80000FFFC0 +1FFF800007FF801FFF000007FF803FFF000003FF003FFF000001FE007FFF00000000007F +FE00000000007FFE00000000007FFE0000000000FFFE0000000000FFFE0000000000FFFE +0000000000FFFE0000000000FFFE0000000000FFFE0000000000FFFE0000000000FFFE00 +00000000FFFE0000000000FFFE0000000000FFFE0000000000FFFE0000000000FFFE0000 +0000007FFE00000000007FFF00000000007FFF00000000003FFF00000000003FFF000000 +00003FFF00000003E01FFF80000003E01FFF80000007E00FFFC0000007C007FFC0000007 +C007FFE000000FC003FFE000001F8001FFF000003F0000FFF800007E00007FFE0000FC00 +003FFF0003F800000FFFE01FF0000003FFFFFFE0000000FFFFFF800000003FFFFE000000 +0001FFE0000033387CB63C>I<000000000001FF80000000000007FFFF80000000000007 +FFFF80000000000007FFFF80000000000007FFFF80000000000007FFFF80000000000000 +1FFF8000000000000007FF8000000000000007FF8000000000000007FF80000000000000 +07FF8000000000000007FF8000000000000007FF8000000000000007FF80000000000000 +07FF8000000000000007FF8000000000000007FF8000000000000007FF80000000000000 +07FF8000000000000007FF8000000000000007FF8000000000000007FF80000000000000 +07FF8000000000000007FF8000000000000007FF8000000000000007FF80000000000000 +07FF8000000000000007FF8000000000000007FF8000000001FFE007FF800000001FFFFC +07FF80000000FFFFFF07FF80000003FFFFFFC7FF8000000FFFE03FE7FF8000001FFF0007 +F7FF8000007FFC0001FFFF800000FFF80000FFFF800001FFF000003FFF800003FFE00000 +1FFF800007FFC000001FFF800007FFC000000FFF80000FFF8000000FFF80001FFF800000 +0FFF80001FFF0000000FFF80003FFF0000000FFF80003FFF0000000FFF80003FFF000000 +0FFF80007FFE0000000FFF80007FFE0000000FFF80007FFE0000000FFF80007FFE000000 +0FFF8000FFFE0000000FFF8000FFFE0000000FFF8000FFFE0000000FFF8000FFFE000000 +0FFF8000FFFE0000000FFF8000FFFE0000000FFF8000FFFE0000000FFF8000FFFE000000 +0FFF8000FFFE0000000FFF8000FFFE0000000FFF8000FFFE0000000FFF8000FFFE000000 +0FFF80007FFE0000000FFF80007FFE0000000FFF80007FFE0000000FFF80003FFF000000 +0FFF80003FFF0000000FFF80003FFF0000000FFF80001FFF0000000FFF80001FFF000000 +0FFF80000FFF8000000FFF80000FFF8000001FFF800007FFC000003FFF800003FFC00000 +3FFF800001FFE000007FFF800000FFF00001FFFF8000007FF80003FFFFE000003FFE000F +EFFFFF80000FFFC07FCFFFFF800007FFFFFF8FFFFF800001FFFFFE0FFFFF8000003FFFF8 +0FFFFF80000003FFC00FFE000041547CD24B>I<000003FFC0000000003FFFFC00000001 +FFFFFF00000007FFFFFFC000000FFF81FFE000003FFC007FF800007FF8003FFC0000FFF0 +001FFE0001FFE0000FFE0003FFC00007FF0007FFC00007FF800FFF800003FF800FFF8000 +03FFC01FFF800001FFC01FFF000001FFC03FFF000001FFE03FFF000001FFE07FFF000000 +FFE07FFE000000FFE07FFE000000FFF07FFE000000FFF0FFFE000000FFF0FFFE000000FF +F0FFFE000000FFF0FFFE000000FFF0FFFFFFFFFFFFF0FFFFFFFFFFFFF0FFFFFFFFFFFFF0 +FFFFFFFFFFFFE0FFFE0000000000FFFE0000000000FFFE0000000000FFFE0000000000FF +FE0000000000FFFE00000000007FFE00000000007FFE00000000007FFF00000000003FFF +00000000003FFF00000000003FFF00000000E01FFF00000001F01FFF80000003F00FFF80 +000003F007FFC0000007E007FFC0000007E003FFE000000FC001FFF000001FC000FFF800 +003F80007FFC0000FF00001FFE0003FE00000FFFC03FF8000003FFFFFFF0000000FFFFFF +C00000001FFFFE0000000001FFF0000034387CB63D>I<0000003FFC00000003FFFF0000 +000FFFFFC000003FFFFFE00000FFF81FF00001FFC03FF80003FF807FF80007FF00FFFC00 +0FFE00FFFC001FFC00FFFC001FFC00FFFC003FF800FFFC003FF800FFFC003FF8007FF800 +7FF0007FF8007FF0003FF0007FF0000FC0007FF0000000007FF0000000007FF000000000 +7FF0000000007FF0000000007FF0000000007FF0000000007FF0000000007FF000000000 +7FF0000000007FF0000000007FF0000000007FF0000000007FF0000000FFFFFFFFE000FF +FFFFFFE000FFFFFFFFE000FFFFFFFFE000FFFFFFFFE000007FF8000000007FF800000000 +7FF8000000007FF8000000007FF8000000007FF8000000007FF8000000007FF800000000 +7FF8000000007FF8000000007FF8000000007FF8000000007FF8000000007FF800000000 +7FF8000000007FF8000000007FF8000000007FF8000000007FF8000000007FF800000000 +7FF8000000007FF8000000007FF8000000007FF8000000007FF8000000007FF800000000 +7FF8000000007FF8000000007FF8000000007FF8000000007FF8000000007FF800000000 +7FF8000000007FF8000000007FF8000000007FF8000000007FF8000000007FF800000000 +7FF8000000007FF8000000007FF8000000007FF8000000007FF80000007FFFFFFE00007F +FFFFFE00007FFFFFFE00007FFFFFFE00007FFFFFFE00002E547CD329>I<00003FFF0000 +FF000003FFFFF007FFC0000FFFFFFC1FFFE0003FFFFFFF7FFFE0007FFC0FFFFF9FF000FF +E001FFF83FF001FFC000FFE03FF003FF80007FF01FF007FF00003FF81FE00FFF00003FFC +0FC00FFF00003FFC07801FFE00001FFE00001FFE00001FFE00003FFE00001FFF00003FFE +00001FFF00003FFE00001FFF00003FFE00001FFF00003FFE00001FFF00003FFE00001FFF +00003FFE00001FFF00003FFE00001FFF00003FFE00001FFF00001FFE00001FFE00001FFE +00001FFE00000FFF00003FFC00000FFF00003FFC000007FF00003FF8000003FF80007FF0 +000001FFC000FFE0000000FFE001FFC0000000FFFC0FFF80000001FFFFFFFF00000003EF +FFFFFC00000003C3FFFFF000000007C03FFF0000000007C000000000000007C000000000 +00000FC00000000000000FC00000000000000FC00000000000000FE00000000000000FE0 +0000000000000FF80000000000000FFE0000000000000FFFFFFFFF00000007FFFFFFFFF8 +000007FFFFFFFFFF000007FFFFFFFFFFC00003FFFFFFFFFFE00001FFFFFFFFFFF00000FF +FFFFFFFFF800007FFFFFFFFFFC00007FFFFFFFFFFE0001FFFFFFFFFFFF0007FFFFFFFFFF +FF000FFE000003FFFF801FF80000003FFF803FF000000007FF807FE000000003FFC07FE0 +00000001FFC0FFC000000001FFC0FFC000000000FFC0FFC000000000FFC0FFC000000000 +FFC0FFC000000000FFC0FFC000000000FFC0FFE000000001FFC07FE000000001FF807FF0 +00000003FF803FF000000003FF001FF800000007FE000FFE0000001FFC0007FF8000007F +F80003FFE00001FFF00001FFFE001FFFE000007FFFFFFFFF8000000FFFFFFFFC00000001 +FFFFFFE0000000000FFFFC0000003C4F7CB543>I<003FF0000000000000FFFFF0000000 +000000FFFFF0000000000000FFFFF0000000000000FFFFF0000000000000FFFFF0000000 +00000003FFF000000000000000FFF000000000000000FFF000000000000000FFF0000000 +00000000FFF000000000000000FFF000000000000000FFF000000000000000FFF0000000 +00000000FFF000000000000000FFF000000000000000FFF000000000000000FFF0000000 +00000000FFF000000000000000FFF000000000000000FFF000000000000000FFF0000000 +00000000FFF000000000000000FFF000000000000000FFF000000000000000FFF0000000 +00000000FFF000000000000000FFF000000000000000FFF000000000000000FFF0001FFC +00000000FFF000FFFFC0000000FFF003FFFFF0000000FFF00FFFFFF8000000FFF01FE07F +FC000000FFF03F001FFE000000FFF07C001FFF000000FFF0F0000FFF000000FFF1E0000F +FF800000FFF3C0000FFF800000FFF7800007FF800000FFF7800007FFC00000FFFF000007 +FFC00000FFFE000007FFC00000FFFE000007FFC00000FFFC000007FFC00000FFFC000007 +FFC00000FFFC000007FFC00000FFFC000007FFC00000FFF8000007FFC00000FFF8000007 +FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007 +FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007 +FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007 +FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007 +FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007 +FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007 +FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007 +FFC000FFFFFFF807FFFFFFC0FFFFFFF807FFFFFFC0FFFFFFF807FFFFFFC0FFFFFFF807FF +FFFFC0FFFFFFF807FFFFFFC042537BD24B>I<007F000000FF800003FFE00007FFF00007 +FFF0000FFFF8000FFFF8000FFFF8000FFFF8000FFFF8000FFFF8000FFFF80007FFF00007 +FFF00003FFE00000FF8000007F0000000000000000000000000000000000000000000000 +00000000000000000000000000000000000000000000000000000000000000003FF000FF +FFF000FFFFF000FFFFF000FFFFF000FFFFF00001FFF00000FFF00000FFF00000FFF00000 +FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000 +FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000 +FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000 +FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000 +FFF00000FFF00000FFF000FFFFFFE0FFFFFFE0FFFFFFE0FFFFFFE0FFFFFFE01B547BD325 +>I<003FF00000000000FFFFF00000000000FFFFF00000000000FFFFF00000000000FFFF +F00000000000FFFFF0000000000003FFF0000000000000FFF0000000000000FFF0000000 +000000FFF0000000000000FFF0000000000000FFF0000000000000FFF0000000000000FF +F0000000000000FFF0000000000000FFF0000000000000FFF0000000000000FFF0000000 +000000FFF0000000000000FFF0000000000000FFF0000000000000FFF0000000000000FF +F0000000000000FFF0000000000000FFF0000000000000FFF0000000000000FFF0000000 +000000FFF0000000000000FFF0000000000000FFF0000000000000FFF00001FFFFF800FF +F00001FFFFF800FFF00001FFFFF800FFF00001FFFFF800FFF00001FFFFF800FFF000003F +FE0000FFF000001FF00000FFF000003FC00000FFF000007F800000FFF00000FF000000FF +F00003FE000000FFF00007F8000000FFF0000FF0000000FFF0001FE0000000FFF0007FC0 +000000FFF000FF00000000FFF001FE00000000FFF003FC00000000FFF00FF800000000FF +F01FE000000000FFF03FF000000000FFF07FF800000000FFF1FFF800000000FFF3FFFC00 +000000FFF7FFFE00000000FFFFFFFF00000000FFFFFFFF80000000FFFF9FFF80000000FF +FF0FFFC0000000FFFE0FFFE0000000FFF807FFF0000000FFF003FFF0000000FFF001FFF8 +000000FFF000FFFC000000FFF000FFFE000000FFF0007FFF000000FFF0003FFF000000FF +F0001FFF800000FFF0001FFFC00000FFF0000FFFE00000FFF00007FFF00000FFF00003FF +F00000FFF00001FFF80000FFF00001FFFC0000FFF00000FFFE0000FFF000007FFE0000FF +F000003FFF0000FFF000007FFFC0FFFFFFF003FFFFFFFFFFFFF003FFFFFFFFFFFFF003FF +FFFFFFFFFFF003FFFFFFFFFFFFF003FFFFFF40537CD247>107 D<003FF000FFFFF000FF +FFF000FFFFF000FFFFF000FFFFF00001FFF00000FFF00000FFF00000FFF00000FFF00000 +FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000 +FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000 +FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000 +FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000 +FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000 +FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000 +FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000 +FFF00000FFF00000FFF00000FFF000FFFFFFF0FFFFFFF0FFFFFFF0FFFFFFF0FFFFFFF01C +537BD225>I<003FF0001FFC000000FFE00000FFFFF000FFFFC00007FFFE0000FFFFF003 +FFFFF0001FFFFF8000FFFFF00FFFFFF8007FFFFFC000FFFFF01FE07FFC00FF03FFE000FF +FFF03F001FFE01F800FFF00003FFF07C001FFF03E000FFF80000FFF0F0000FFF0780007F +F80000FFF1E0000FFF8F00007FFC0000FFF3C0000FFF9E00007FFC0000FFF7800007FFBC +00003FFC0000FFF7800007FFFC00003FFE0000FFFF000007FFF800003FFE0000FFFE0000 +07FFF000003FFE0000FFFE000007FFF000003FFE0000FFFC000007FFE000003FFE0000FF +FC000007FFE000003FFE0000FFFC000007FFE000003FFE0000FFFC000007FFE000003FFE +0000FFF8000007FFC000003FFE0000FFF8000007FFC000003FFE0000FFF8000007FFC000 +003FFE0000FFF8000007FFC000003FFE0000FFF8000007FFC000003FFE0000FFF8000007 +FFC000003FFE0000FFF8000007FFC000003FFE0000FFF8000007FFC000003FFE0000FFF8 +000007FFC000003FFE0000FFF8000007FFC000003FFE0000FFF8000007FFC000003FFE00 +00FFF8000007FFC000003FFE0000FFF8000007FFC000003FFE0000FFF8000007FFC00000 +3FFE0000FFF8000007FFC000003FFE0000FFF8000007FFC000003FFE0000FFF8000007FF +C000003FFE0000FFF8000007FFC000003FFE0000FFF8000007FFC000003FFE0000FFF800 +0007FFC000003FFE0000FFF8000007FFC000003FFE0000FFF8000007FFC000003FFE0000 +FFF8000007FFC000003FFE0000FFF8000007FFC000003FFE0000FFF8000007FFC000003F +FE0000FFF8000007FFC000003FFE0000FFF8000007FFC000003FFE0000FFF8000007FFC0 +00003FFE0000FFF8000007FFC000003FFE0000FFF8000007FFC000003FFE00FFFFFFF807 +FFFFFFC03FFFFFFEFFFFFFF807FFFFFFC03FFFFFFEFFFFFFF807FFFFFFC03FFFFFFEFFFF +FFF807FFFFFFC03FFFFFFEFFFFFFF807FFFFFFC03FFFFFFE67367BB570>I<003FF0001F +FC000000FFFFF000FFFFC00000FFFFF003FFFFF00000FFFFF00FFFFFF80000FFFFF01FE0 +7FFC0000FFFFF03F001FFE000003FFF07C001FFF000000FFF0F0000FFF000000FFF1E000 +0FFF800000FFF3C0000FFF800000FFF7800007FF800000FFF7800007FFC00000FFFF0000 +07FFC00000FFFE000007FFC00000FFFE000007FFC00000FFFC000007FFC00000FFFC0000 +07FFC00000FFFC000007FFC00000FFFC000007FFC00000FFF8000007FFC00000FFF80000 +07FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF80000 +07FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF80000 +07FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF80000 +07FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF80000 +07FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF80000 +07FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF80000 +07FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF80000 +07FFC000FFFFFFF807FFFFFFC0FFFFFFF807FFFFFFC0FFFFFFF807FFFFFFC0FFFFFFF807 +FFFFFFC0FFFFFFF807FFFFFFC042367BB54B>I<000001FFE000000000001FFFFE000000 +0000FFFFFFC000000003FFFFFFF00000000FFF807FFC0000001FFC000FFE0000007FF800 +07FF800000FFF00003FFC00001FFE00001FFE00003FFC00000FFF00003FF8000007FF000 +07FF8000007FF8000FFF0000003FFC000FFF0000003FFC001FFF0000003FFE001FFF0000 +003FFE003FFE0000001FFF003FFE0000001FFF003FFE0000001FFF007FFE0000001FFF80 +7FFE0000001FFF807FFE0000001FFF807FFE0000001FFF80FFFE0000001FFFC0FFFE0000 +001FFFC0FFFE0000001FFFC0FFFE0000001FFFC0FFFE0000001FFFC0FFFE0000001FFFC0 +FFFE0000001FFFC0FFFE0000001FFFC0FFFE0000001FFFC0FFFE0000001FFFC0FFFE0000 +001FFFC0FFFE0000001FFFC07FFE0000001FFF807FFE0000001FFF807FFE0000001FFF80 +3FFE0000001FFF003FFF0000003FFF003FFF0000003FFF001FFF0000003FFE001FFF0000 +003FFE000FFF0000003FFC000FFF8000007FFC0007FF8000007FF80003FFC00000FFF000 +01FFE00001FFE00000FFF00003FFC000007FF80007FF8000003FFE001FFF0000000FFF80 +7FFC00000007FFFFFFF800000000FFFFFFC0000000003FFFFF000000000001FFE0000000 +3A387CB643>I<003FF001FFE0000000FFFFF00FFFFE000000FFFFF03FFFFFC00000FFFF +F0FFFFFFF00000FFFFF3FF01FFF80000FFFFF7F8007FFE000003FFFFE0001FFF000000FF +FF80000FFF800000FFFF000007FFC00000FFFE000007FFE00000FFFC000003FFF00000FF +F8000001FFF80000FFF8000001FFF80000FFF8000000FFFC0000FFF8000000FFFC0000FF +F8000000FFFE0000FFF80000007FFE0000FFF80000007FFF0000FFF80000007FFF0000FF +F80000007FFF0000FFF80000007FFF0000FFF80000003FFF8000FFF80000003FFF8000FF +F80000003FFF8000FFF80000003FFF8000FFF80000003FFF8000FFF80000003FFF8000FF +F80000003FFF8000FFF80000003FFF8000FFF80000003FFF8000FFF80000003FFF8000FF +F80000003FFF8000FFF80000003FFF8000FFF80000003FFF0000FFF80000007FFF0000FF +F80000007FFF0000FFF80000007FFF0000FFF80000007FFE0000FFF8000000FFFE0000FF +F8000000FFFE0000FFF8000000FFFC0000FFF8000001FFFC0000FFF8000001FFF80000FF +FC000003FFF00000FFFC000003FFF00000FFFE000007FFE00000FFFF00000FFFC00000FF +FF80001FFF800000FFFFC0003FFF000000FFFFF000FFFC000000FFFBFE07FFF8000000FF +F8FFFFFFE0000000FFF87FFFFF80000000FFF81FFFFC00000000FFF803FFC000000000FF +F800000000000000FFF800000000000000FFF800000000000000FFF800000000000000FF +F800000000000000FFF800000000000000FFF800000000000000FFF800000000000000FF +F800000000000000FFF800000000000000FFF800000000000000FFF800000000000000FF +F800000000000000FFF800000000000000FFF800000000000000FFF800000000000000FF +F8000000000000FFFFFFF80000000000FFFFFFF80000000000FFFFFFF80000000000FFFF +FFF80000000000FFFFFFF80000000000414D7BB54B>I<007FE003FE00FFFFE00FFF80FF +FFE03FFFE0FFFFE07FFFF0FFFFE0FE1FF8FFFFE1F83FFC03FFE3E03FFE00FFE3C07FFE00 +FFE7807FFE00FFEF807FFE00FFEF007FFE00FFEE007FFE00FFFE003FFC00FFFC003FFC00 +FFFC001FF800FFFC000FF000FFF800000000FFF800000000FFF800000000FFF800000000 +FFF800000000FFF000000000FFF000000000FFF000000000FFF000000000FFF000000000 +FFF000000000FFF000000000FFF000000000FFF000000000FFF000000000FFF000000000 +FFF000000000FFF000000000FFF000000000FFF000000000FFF000000000FFF000000000 +FFF000000000FFF000000000FFF000000000FFF000000000FFF000000000FFF000000000 +FFF000000000FFF000000000FFF000000000FFF000000000FFF0000000FFFFFFFC0000FF +FFFFFC0000FFFFFFFC0000FFFFFFFC0000FFFFFFFC00002F367CB537>114 +D<0003FFF00F00003FFFFE1F0000FFFFFFFF0003FFFFFFFF0007FF003FFF000FF80007FF +001FE00001FF003FC00000FF003F8000007F007F8000007F007F0000003F007F0000003F +00FF0000001F00FF0000001F00FF8000001F00FF8000001F00FFC000001F00FFF0000000 +00FFFC00000000FFFFC00000007FFFFF0000007FFFFFF800003FFFFFFF00003FFFFFFFC0 +001FFFFFFFF0000FFFFFFFF80007FFFFFFFC0003FFFFFFFE0000FFFFFFFF00003FFFFFFF +80000FFFFFFFC00000FFFFFFC0000007FFFFE00000003FFFE000000007FFF000000001FF +F0780000007FF0F80000003FF0F80000001FF0FC0000001FF0FC0000000FF0FC0000000F +F0FE0000000FF0FE0000000FE0FF0000000FE0FF8000001FE0FF8000001FC0FFC000001F +C0FFE000003F80FFF800007F00FFFE0001FE00FFFFC00FFC00FF7FFFFFF800FC1FFFFFE0 +00F807FFFF8000F000FFF800002C387CB635>I<00003E00000000003E00000000003E00 +000000003E00000000003E00000000003E00000000007E00000000007E00000000007E00 +000000007E0000000000FE0000000000FE0000000001FE0000000001FE0000000001FE00 +00000003FE0000000007FE0000000007FE000000000FFE000000001FFE000000003FFE00 +000000FFFE00000001FFFE0000000FFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFF +FF00FFFFFFFFFF00003FFE000000003FFE000000003FFE000000003FFE000000003FFE00 +0000003FFE000000003FFE000000003FFE000000003FFE000000003FFE000000003FFE00 +0000003FFE000000003FFE000000003FFE000000003FFE000000003FFE000000003FFE00 +0000003FFE000000003FFE000000003FFE000000003FFE000000003FFE000000003FFE00 +0000003FFE000000003FFE000000003FFE000000003FFE000000003FFE0007C0003FFE00 +07C0003FFE0007C0003FFE0007C0003FFE0007C0003FFE0007C0003FFE0007C0003FFE00 +07C0003FFE0007C0003FFE0007C0003FFE0007C0001FFE000F80001FFF000F80001FFF00 +0F80000FFF001F00000FFF801F000007FFC03E000003FFF0FC000001FFFFF80000007FFF +F00000001FFFE000000003FF80002A4D7ECB34>I<003FF8000001FFC000FFFFF80007FF +FFC000FFFFF80007FFFFC000FFFFF80007FFFFC000FFFFF80007FFFFC000FFFFF80007FF +FFC00003FFF800001FFFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007 +FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007 +FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007 +FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007 +FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007 +FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007 +FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007 +FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007FFC00000FFF8000007 +FFC00000FFF8000007FFC00000FFF800000FFFC00000FFF800000FFFC00000FFF800000F +FFC00000FFF800001FFFC00000FFF800001FFFC000007FF800003FFFC000007FF800003B +FFC000007FF800007BFFC000003FFC0000F3FFC000003FFC0001E3FFF000001FFE0007C3 +FFFFC0000FFFC03F83FFFFC00007FFFFFF03FFFFC00001FFFFFE03FFFFC000007FFFF803 +FFFFC0000007FFE003FF000042377BB54B>III<7FFFFF +F0007FFFFE007FFFFFF0007FFFFE007FFFFFF0007FFFFE007FFFFFF0007FFFFE007FFFFF +F0007FFFFE00007FFE00000FFF0000003FFF000007F80000001FFF800007F00000000FFF +C0000FE000000007FFC0001FC000000007FFE0003F8000000003FFF0003F0000000001FF +F8007E0000000000FFFC00FC00000000007FFE01FC00000000007FFE03F800000000003F +FF07F000000000001FFF8FE000000000000FFFCFC0000000000007FFFF80000000000003 +FFFF00000000000003FFFF00000000000001FFFE00000000000000FFFC00000000000000 +7FFE000000000000003FFF000000000000003FFF000000000000001FFF80000000000000 +1FFFC00000000000003FFFE00000000000007FFFF0000000000000FFFFF0000000000001 +FDFFF8000000000001F8FFFC000000000003F07FFE000000000007E03FFF00000000000F +E01FFF00000000001FC01FFF80000000003F800FFFC0000000007F0007FFE000000000FE +0003FFF000000000FC0001FFF800000001F80001FFF800000003F00000FFFC00000007F0 +00007FFE0000000FE000003FFF0000001FC000001FFF800000FFF000001FFF8000FFFFFE +0001FFFFFFC0FFFFFE0001FFFFFFC0FFFFFE0001FFFFFFC0FFFFFE0001FFFFFFC0FFFFFE +0001FFFFFFC042357EB447>II E /Fq +86 127 df<1C007F00FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80FF +80FF80FF80FF80FF80FF80FF80FF807F007F007F007F007F007F007F007F007F007F007F +007F007F007F007F007F007F007F007F007F003E00000000000000000000000000000000 +0000001C007F007F00FF80FF80FF807F007F001C00093E6BBD33>33 +D<080001003E0007C07F000FE07F000FE0FF000FF0FF000FF07F000FE07F000FE07F000F +E07F000FE07F000FE07F000FE07F000FE07F000FE07F000FE07F000FE07F000FE07F000F +E07F000FE07F000FE07F000FE07F000FE07F000FE07F000FE07F000FE07F000FE07E0007 +E03E0007C03E0007C0080001001C1E75BD33>I<0003E0000000000FF8000000001FFC00 +0000003FFE000000007FFF00000000FFFF00000000FE3F80000001FC1F80000001F81F80 +000003F81FC0000003F00FC0000003F00FC0000003F00FC0000003F00FC0000003F00FC0 +000003F00FC0000003F00FC0000003F01FC0000003F01F80000003F03F87FFE003F83F0F +FFF001F87F0FFFF001F87E0FFFF001F8FE0FFFF001F9FC07FFE001FFFC01F80000FFF801 +F80000FFF003F80000FFE003F00000FFE007F000007FC007E000007F8007E00000FF000F +E00001FF000FC00001FF800FC00003FF801FC00007FFC01F80000FFFC01F80001FEFE03F +80003FC7E03F00003F87F07F00007F03F07E00007F03F8FE00007F01FCFC0000FE01FCFC +0000FE00FFFC0000FE007FF80000FE007FF80000FE003FF00180FE003FF003C0FE001FE0 +07E0FE000FE007E0FF001FF007E07F003FF007E07F007FF807E07F80FFFE0FE03FC3FFFF +0FC03FFFFCFFFFC01FFFF87FFF800FFFF03FFF8007FFE00FFF0003FF8007FE0000FE0001 +F8002C3F7DBD33>38 D<07C00FF01FF81FF81FFC1FFC1FFE0FFE07FE007E007E007E007E +007E007E00FE00FC00FC01FC03F803F807F00FF01FE07FC0FF80FF00FE00FC0070000F1E +6EBC33>I<00000F0000003F8000007F800000FF800001FF000003FE000007F800000FF0 +00001FE000003FC000007F800000FF000000FE000001FE000001FC000003F8000007F800 +0007F000000FF000000FE000001FE000001FC000001FC000003FC000003F8000003F8000 +007F8000007F0000007F0000007F0000007F000000FF000000FE000000FE000000FE0000 +00FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE0000 +00FE000000FF0000007F0000007F0000007F0000007F0000007F8000003F8000003F8000 +003FC000001FC000001FC000001FE000000FE000000FF0000007F0000007F8000003F800 +0001FC000001FE000000FE000000FF0000007F8000003FC000001FE000000FF0000007F8 +000003FE000001FF000000FF8000007F8000003F8000000F00194D6FC433>I<78000000 +FE000000FF000000FF8000007FC000003FE000000FF0000007F8000003FC000001FE0000 +00FF0000007F8000003F8000003FC000001FC000000FE000000FF0000007F0000007F800 +0003F8000003FC000001FC000001FC000001FE000000FE000000FE000000FF0000007F00 +00007F0000007F0000007F0000007F8000003F8000003F8000003F8000003F8000003F80 +00003F8000003F8000003F8000003F8000003F8000003F8000003F8000003F8000007F80 +00007F0000007F0000007F0000007F000000FF000000FE000000FE000001FE000001FC00 +0001FC000003FC000003F8000007F8000007F000000FF000000FE000001FC000003FC000 +003F8000007F800000FF000001FE000003FC000007F800000FF000003FE000007FC00000 +FF800000FF000000FE00000078000000194D78C433>I<0000F000000001F800000001F8 +00000001F800000001F800000001F800000001F800000001F800000001F800007001F800 +E0F801F801F0FE01F807F0FF01F80FF0FFC1F83FF0FFF1F8FFF03FF9F9FFC00FFFFFFF00 +03FFFFFC0000FFFFF000007FFFE000001FFF80000007FE0000001FFF8000007FFFE00000 +FFFFF00003FFFFFC000FFFFFFF003FF9F9FFC0FFF1F8FFF0FFC1F83FF0FF01F80FF0FE01 +F807F0F801F801F07001F800E00001F800000001F800000001F800000001F800000001F8 +00000001F800000001F800000001F800000000F00000242B79B333>I<00001F00000000 +001F00000000003F80000000003F80000000003F80000000003F80000000003F80000000 +003F80000000003F80000000003F80000000003F80000000003F80000000003F80000000 +003F80000000003F80000000003F80000000003F80000000003F8000007FFFFFFFFF807F +FFFFFFFF80FFFFFFFFFFC0FFFFFFFFFFC0FFFFFFFFFFC07FFFFFFFFF807FFFFFFFFF8000 +003F80000000003F80000000003F80000000003F80000000003F80000000003F80000000 +003F80000000003F80000000003F80000000003F80000000003F80000000003F80000000 +003F80000000003F80000000003F80000000003F80000000001F00000000001F0000002A +2B7CB333>I<07C00FF01FF83FF83FFC3FFC3FFE3FFE1FFE0FFE07FE007E00FE00FE00FC +01FC03F807F80FF07FE0FFE0FFC0FF00FE0078000F196E8A33>I<7FFFFFFFFE7FFFFFFF +FEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7FFFFFFFFE7FFFFFFFFE28077BA133>I<1F003F +807FC0FFE0FFE0FFE0FFE0FFE07FC03F801F000B0B6C8A33>I<000000007800000000F8 +00000001FC00000001FC00000003FC00000003FC00000007F800000007F80000000FF000 +00000FF00000001FE00000001FE00000001FC00000003FC00000003FC00000007F800000 +007F80000000FF00000000FF00000001FE00000001FE00000001FC00000003FC00000003 +FC00000007F800000007F80000000FF00000000FF00000001FE00000001FE00000001FC0 +0000003FC00000003FC00000007F800000007F80000000FF00000000FF00000001FE0000 +0001FE00000001FC00000003FC00000003FC00000007F800000007F80000000FF0000000 +0FF00000000FE00000001FE00000001FE00000003FC00000003FC00000007F800000007F +80000000FF00000000FF00000000FE00000001FE00000001FE00000003FC00000003FC00 +000007F800000007F80000000FF00000000FF00000000FE00000001FE00000001FE00000 +003FC00000003FC00000007F800000007F80000000FF00000000FF00000000FE00000000 +FE000000007C000000007C00000000264D7AC433>I<0000FF00000003FFC000000FFFF0 +00001FFFF800003FFFFC00007FFFFE0000FF81FF0001FE007F8003FC003FC003F8001FC0 +07F0000FE007F0000FE00FE00007F00FE00007F01FC00003F81FC00003F83F800001FC3F +800001FC3F800001FC7F000000FE7F000000FE7F000000FE7F000000FE7E0000007EFE00 +00007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000 +007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFF000000 +FF7F000000FE7F000000FE7F000000FE7F000000FE7F800001FE3F800001FC3F800001FC +3FC00003FC1FC00003F81FC00003F80FE00007F00FE00007F007F0000FE007F8001FE003 +FC003FC003FC003FC001FF00FF8000FF81FF00007FFFFE00003FFFFC00001FFFF800000F +FFF0000003FFC0000000FF0000283F7BBD33>I<0001E000000003F000000003F0000000 +07F000000007F00000000FF00000000FF00000001FF00000003FF00000007FF0000000FF +F0000003FFF000003FFFF000007FFFF00000FFF7F00000FFE7F00000FF87F000007E07F0 +00000007F000000007F000000007F000000007F000000007F000000007F000000007F000 +000007F000000007F000000007F000000007F000000007F000000007F000000007F00000 +0007F000000007F000000007F000000007F000000007F000000007F000000007F0000000 +07F000000007F000000007F000000007F000000007F000000007F000000007F000000007 +F000000007F000000007F000000007F000000007F000000007F000000007F000000007F0 +00000007F000000007F000003FFFFFFE007FFFFFFF007FFFFFFF807FFFFFFF807FFFFFFF +003FFFFFFE00213E76BD33>I<0003FF0000001FFFE000007FFFFC0001FFFFFE0003FFFF +FF8007FFFFFFC00FFE03FFE01FF0007FF01FE0001FF83FC0000FF83F800003FC7F800003 +FC7F000001FEFF000000FEFE000000FEFF000000FFFF0000007FFF0000007FFF0000007F +7E0000007F3C0000007F000000007F000000007F00000000FF00000000FE00000000FE00 +000001FE00000001FC00000003FC00000003F800000007F80000000FF00000001FE00000 +003FE00000003FC00000007F80000000FF00000001FE00000007FC0000000FF80000001F +F00000003FE00000007FC0000000FF80000001FF00000003FE00000007F80000001FF000 +00003FE00000007FC0000000FF80000001FF00000003FE00003E07FC00007F0FF000007F +1FE000007F3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7FFFFFFFFF3FFFFFFFFE28 +3E7BBD33>I<0001FFC00000000FFFF80000003FFFFE000000FFFFFF800001FFFFFFC000 +03FFFFFFE00007FF807FF0000FFC000FF8000FF00007FC001FE00003FC001FE00001FE00 +1FE00001FE001FE00000FE001FE00000FE000FC00000FE0007800000FE0000000000FE00 +00000001FE0000000001FC0000000001FC0000000003FC0000000007F8000000000FF800 +0000001FF0000000003FE000000003FFC0000003FFFF80000007FFFF00000007FFFE0000 +0007FFFF00000007FFFFC0000003FFFFE0000000007FF0000000000FF80000000003FC00 +00000001FE0000000000FF00000000007F00000000007F80000000003F80000000003F80 +000000001FC0000000001FC0000000001FC03C0000001FC07E0000001FC0FF0000001FC0 +FF0000001FC0FF0000003FC0FF0000003F80FF0000007F807F0000007F007F800000FF00 +7FC00001FE003FE00003FE001FF8000FFC000FFF807FF80007FFFFFFF00003FFFFFFE000 +01FFFFFF8000007FFFFF0000000FFFFC00000001FFC000002A3F7CBD33>I<000000FF00 +00000001FF8000000003FF8000000007FF8000000007FF800000000FFF800000001FFF80 +0000001FDF800000003F9F800000003F9F800000007F1F80000000FE1F80000000FE1F80 +000001FC1F80000001FC1F80000003F81F80000007F01F80000007F01F8000000FE01F80 +00001FC01F8000001FC01F8000003F801F8000003F801F8000007F001F800000FE001F80 +0000FE001F800001FC001F800003FC001F800003F8001F800007F0001F800007F0001F80 +000FE0001F80001FC0001F80001FC0001F80003F80001F80003F80001F80007F00001F80 +00FE00001F8000FFFFFFFFFFE0FFFFFFFFFFF0FFFFFFFFFFF0FFFFFFFFFFF0FFFFFFFFFF +F07FFFFFFFFFE00000001F80000000001F80000000001F80000000001F80000000001F80 +000000001F80000000001F80000000001F80000000001F80000000001F80000000001F80 +000000001F800000001FFFFF8000003FFFFFC000007FFFFFE000007FFFFFE000003FFFFF +C000001FFFFF802C3E7DBD33>I<07FFFFFFF00FFFFFFFF81FFFFFFFF81FFFFFFFF81FFF +FFFFF81FFFFFFFF01FC00000001FC00000001FC00000001FC00000001FC00000001FC000 +00001FC00000001FC00000001FC00000001FC00000001FC00000001FC00000001FC00000 +001FC00000001FC00000001FC00000001FC0FFC0001FC7FFF8001FDFFFFC001FFFFFFF00 +1FFFFFFF801FFFFFFFC01FFF80FFE01FFC001FF01FF0000FF81FE00007F81FC00003FC0F +800001FC07000001FE00000000FE00000000FE00000000FF000000007F000000007F0000 +00007F000000007F180000007F7E0000007F7E0000007FFF000000FFFF000000FEFF0000 +00FEFE000001FEFF000001FC7F000003FC7F800007F87FC0000FF83FE0001FF01FF0007F +E01FFE03FFC00FFFFFFF8007FFFFFF0001FFFFFE0000FFFFF800003FFFE0000003FF0000 +283E7BBC33>I<000007FC0000003FFF800000FFFFC00003FFFFF0000FFFFFF0001FFFFF +F8003FFC07F8007FE003FC00FFC003FC01FF0003FC03FE0003FC03FC0003FC07F80001F8 +07F00000F00FF00000000FE00000001FE00000001FC00000003FC00000003F800000003F +800000007F800000007F000400007F01FFF0007F07FFFC00FF1FFFFE00FE3FFFFF80FEFF +FFFFC0FFFFFFFFE0FFFE007FE0FFF8001FF0FFF0000FF8FFE00007FCFFC00003FCFF8000 +01FEFF800001FEFF000000FEFF000000FFFF0000007FFF0000007FFF0000007F7F000000 +7F7F0000007F7F0000007F7F0000007F7F8000007F3F8000007F3F800000FF3FC00000FE +1FC00000FE1FC00001FE0FE00003FC0FF00007FC07F80007F807FC001FF003FE003FF001 +FF80FFE000FFFFFFC0007FFFFF80003FFFFE00001FFFFC000007FFF0000000FF8000283F +7BBD33>I<7C0000000000FFFFFFFFFF80FFFFFFFFFFC0FFFFFFFFFFC0FFFFFFFFFFC0FF +FFFFFFFFC0FFFFFFFFFF80FE000000FF00FE000001FE00FE000003FC007C000007F80000 +00000FF0000000000FE0000000001FE0000000003FC0000000007F80000000007F000000 +0000FF0000000000FE0000000001FC0000000003FC0000000003F80000000007F8000000 +0007F0000000000FF0000000000FE0000000001FE0000000001FC0000000003FC0000000 +003F80000000003F80000000007F00000000007F0000000000FF0000000000FE00000000 +00FE0000000001FE0000000001FC0000000001FC0000000001FC0000000003F800000000 +03F80000000003F80000000003F80000000007F80000000007F00000000007F000000000 +07F00000000007F00000000007F0000000000FF0000000000FE0000000000FE000000000 +0FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE000000000 +0FE0000000000FE00000000007C00000000003800000002A3F7CBD33>I<0000FFC00000 +0007FFF80000001FFFFE0000007FFFFF800000FFFFFFC00001FFFFFFE00003FF807FF000 +07FE001FF8000FF80007FC000FF00003FC001FE00001FE001FC00000FE003FC00000FF00 +3F8000007F003F8000007F003F8000007F003F8000007F003F8000007F003F8000007F00 +1FC00000FE001FC00000FE000FE00001FC000FF00003FC0007F80007F80003FE001FF000 +01FF807FE00000FFFFFFC000003FFFFF0000000FFFFC0000000FFFFC0000003FFFFF0000 +00FFFFFFC00001FF807FE00007FC000FF8000FF80007FC001FE00001FE001FC00000FE00 +3F8000007F007F8000007F807F0000003F807F0000003F80FE0000001FC0FE0000001FC0 +FE0000001FC0FE0000001FC0FE0000001FC0FE0000001FC0FE0000001FC0FF0000003FC0 +7F0000003F807F8000007F803F8000007F003FC00000FF001FE00001FE001FF80007FE00 +0FFC000FFC0007FF807FF80003FFFFFFF00001FFFFFFE000007FFFFF8000003FFFFF0000 +0007FFF800000000FFC000002A3F7CBD33>I<0001FF8000000FFFE000003FFFF800007F +FFFE0000FFFFFF0003FFFFFF8007FF81FFC007FC007FC00FF8001FE01FF0000FF03FE000 +0FF03FC00007F87F800003F87F000003F87F000001FCFF000001FCFE000001FCFE000001 +FEFE000000FEFE000000FEFE000000FEFE000000FEFE000000FFFE000000FFFE000000FF +FF000000FF7F000000FF7F800001FF7F800001FF3FC00003FF3FE00007FF1FF0000FFF0F +F8001FFF07FE007FFF07FFFFFFFF03FFFFFF7F01FFFFFC7F007FFFF8FF003FFFE0FE000F +FF80FE00002000FE00000000FE00000001FE00000001FC00000001FC00000003FC000000 +03F800000007F800000007F00F00000FF01F80001FE03FC0003FE03FC0003FC03FC000FF +803FC001FF003FC003FE001FF01FFE001FFFFFF8000FFFFFF00007FFFFE00003FFFF8000 +00FFFE0000003FF00000283F7BBD33>I<1F003F807FC0FFE0FFE0FFE0FFE0FFE07FC03F +801F00000000000000000000000000000000000000000000000000000000000000000000 +0000000000000000001F003F807FC0FFE0FFE0FFE0FFE0FFE07FC03F801F000B2B6CAA33 +>I<07C00FE01FF03FF83FF83FF83FF83FF81FF00FE007C0000000000000000000000000 +00000000000000000000000000000000000000000000000000000000000007C00FE01FF0 +3FF83FF83FFC3FFC3FFC1FFC0FFC07FC00FC00FC01FC01F803F807F00FF01FE07FE0FFC0 +FF80FF00FC0070000E396EAA33>I<000000001E000000007E00000000FF00000003FF00 +000007FF0000001FFE0000007FFE000000FFF8000003FFF0000007FFC000001FFF800000 +3FFE000000FFF8000001FFF0000007FFC000000FFF8000003FFE0000007FFC000001FFF0 +000003FFE000000FFF8000001FFF0000007FFC0000007FF8000000FFE0000000FFC00000 +00FFE00000007FF80000007FFC0000001FFF0000000FFF80000003FFE0000001FFF00000 +007FFC0000003FFE0000000FFF80000007FFC0000001FFF0000000FFF80000003FFE0000 +001FFF80000007FFC0000003FFF0000000FFF80000007FFE0000001FFE00000007FF0000 +0003FF00000000FF000000007E000000001E28337BB733>I<7FFFFFFFFF807FFFFFFFFF +80FFFFFFFFFFC0FFFFFFFFFFC0FFFFFFFFFFC07FFFFFFFFF803FFFFFFFFF000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000003FFFFFFFFF007FFFFFFFFF80FFFFFFFFFFC0FFFFFFFFFF +C0FFFFFFFFFFC07FFFFFFFFF807FFFFFFFFF802A177CA933>I<78000000007E00000000 +FF00000000FFC0000000FFE00000007FF80000007FFE0000001FFF0000000FFFC0000003 +FFE0000001FFF80000007FFC0000001FFF0000000FFF80000003FFE0000001FFF0000000 +7FFC0000003FFE0000000FFF80000007FFC0000001FFF0000000FFF80000003FFE000000 +1FFE00000007FF00000003FF00000007FF0000001FFE0000003FFE000000FFF8000001FF +F0000007FFC000000FFF8000003FFE0000007FFC000001FFF0000003FFE000000FFF8000 +001FFF0000007FFC000001FFF8000003FFE000000FFFC000001FFF0000007FFE0000007F +F8000000FFE0000000FFC0000000FF000000007E00000000780000000028337BB733>I< +000007F8000000003FFF00000000FFFF80000003FFFFE000000FFFFFF000001FFFFFF800 +003FFC0FF800007FE003FC0000FF8001FC0001FF0000FE0003FC00007E0003F8007E7F00 +07F801FFBF0007F007FFFF000FE00FFFFF800FC01FFFFF801FC03FFFFF801F803FC3FF80 +3F807F81FF803F007F00FFC03F00FE007FC07F00FC003FC07E01FC003FC07E01F8001FC0 +7E01F8001FC0FE01F8001FC0FC03F8001FC0FC03F0000FC0FC03F0000FC0FC03F0000FC0 +FC03F0000FC0FC03F0000FC0FC03F0000FC0FC03F0000FC0FC03F0000FC0FC03F0000FC0 +FC03F8001FC0FE01F8001F807E01F8001F807E01F8001F807E01FC003F807F00FC003F00 +3F00FE007F003F007F00FE003F807F81FE001F803FC3FC001FC03FFFFC000FC01FFFF800 +0FE00FFFF00007F007FFE00007F801FF800003F8007E000003FC00000F8001FF00001FC0 +00FF80003FC0007FE000FFC0003FFC07FF80001FFFFFFF00000FFFFFFE000003FFFFF800 +0000FFFFF00000003FFF8000000007FC00002A3F7CBD33>64 D<00001F80000000003FC0 +000000007FE0000000007FE0000000007FE000000000FFF000000000FFF000000000FFF0 +00000000F9F000000001F9F800000001F9F800000001F9F800000001F9F800000001F9F8 +00000003F9FC00000003F9FC00000003F0FC00000003F0FC00000007F0FE00000007F0FE +00000007F0FE00000007F0FE00000007E07E0000000FE07F0000000FE07F0000000FE07F +0000000FE07F0000001FC03F8000001FC03F8000001FC03F8000001FC03F8000001FC03F +8000003F801FC000003F801FC000003F801FC000003F801FC000007F801FE000007F000F +E000007F000FE000007FFFFFE000007FFFFFE00000FFFFFFF00000FFFFFFF00000FFFFFF +F00000FFFFFFF00001FE0007F80001FC0003F80001FC0003F80001FC0003F80001FC0003 +F80003FC0003FC0003F80001FC0003F80001FC0003F80001FC0007F80001FE0007F00000 +FE007FFF000FFFE0FFFF801FFFF0FFFFC03FFFF0FFFFC03FFFF0FFFF801FFFF07FFF000F +FFE02C3E7DBD33>I<7FFFFFF80000FFFFFFFF0000FFFFFFFFC000FFFFFFFFE000FFFFFF +FFF0007FFFFFFFF80003F8000FFC0003F80003FE0003F80001FE0003F80000FF0003F800 +007F0003F800007F0003F800003F8003F800003F8003F800003F8003F800003F8003F800 +003F8003F800003F8003F800003F8003F800007F0003F800007F0003F80000FF0003F800 +01FE0003F80001FE0003F80007FC0003F8001FF80003FFFFFFF00003FFFFFFE00003FFFF +FF800003FFFFFFC00003FFFFFFE00003FFFFFFF80003F8000FFC0003F80001FE0003F800 +00FF0003F800007F8003F800003F8003F800003FC003F800001FC003F800001FC003F800 +000FE003F800000FE003F800000FE003F800000FE003F800000FE003F800000FE003F800 +000FE003F800001FE003F800001FC003F800001FC003F800003FC003F800007F8003F800 +00FF8003F80001FF0003F8000FFF007FFFFFFFFE00FFFFFFFFFC00FFFFFFFFF800FFFFFF +FFE000FFFFFFFFC0007FFFFFFE00002B3D7DBC33>I<00001FE007800000FFFC07C00003 +FFFF0FC0000FFFFF8FC0001FFFFFFFC0003FFFFFFFC0007FF81FFFC000FFC007FFC001FF +8003FFC003FE0001FFC003FC0000FFC007F80000FFC007F800007FC00FF000007FC00FE0 +00003FC01FE000003FC01FC000003FC03FC000001FC03F8000001FC03F8000001FC07F80 +00001FC07F0000000F807F00000000007F0000000000FF0000000000FE0000000000FE00 +00000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE00 +00000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FF00 +000000007F00000000007F00000000007F00000000007F8000000F803F8000001FC03F80 +00001FC03FC000001FC01FC000001FC01FE000001FC00FE000003FC00FF000003F8007F8 +00003F8007F800007F8003FC0000FF0003FE0000FF0001FF8003FE0000FFC007FC00007F +F81FF800003FFFFFF000001FFFFFE000000FFFFFC0000003FFFF00000000FFFC00000000 +1FE000002A3F7CBD33>I<3FFFFFF000007FFFFFFC0000FFFFFFFF0000FFFFFFFF80007F +FFFFFFC0003FFFFFFFE00003F8007FF00003F8001FF80003F80007FC0003F80003FC0003 +F80001FE0003F80001FF0003F80000FF0003F800007F8003F800007F8003F800003F8003 +F800003FC003F800001FC003F800001FC003F800001FE003F800000FE003F800000FE003 +F800000FE003F800000FE003F8000007F003F8000007F003F8000007F003F8000007F003 +F8000007F003F8000007F003F8000007F003F8000007F003F8000007F003F8000007F003 +F8000007F003F8000007F003F8000007F003F800000FF003F800000FE003F800000FE003 +F800000FE003F800000FE003F800001FE003F800001FC003F800003FC003F800003FC003 +F800003F8003F800007F8003F80000FF0003F80000FF0003F80001FE0003F80003FE0003 +F80007FC0003F8001FF80003F8007FF0003FFFFFFFF0007FFFFFFFC000FFFFFFFF8000FF +FFFFFF00007FFFFFFC00003FFFFFF000002C3D7EBC33>I<3FFFFFFFFFE07FFFFFFFFFF0 +FFFFFFFFFFF0FFFFFFFFFFF07FFFFFFFFFF03FFFFFFFFFF001FC000007F001FC000007F0 +01FC000007F001FC000007F001FC000007F001FC000007F001FC000007F001FC000007F0 +01FC000003E001FC0000000001FC0000000001FC0000000001FC0000000001FC00000000 +01FC0000000001FC001F000001FC003F800001FC003F800001FC003F800001FC003F8000 +01FFFFFF800001FFFFFF800001FFFFFF800001FFFFFF800001FFFFFF800001FFFFFF8000 +01FC003F800001FC003F800001FC003F800001FC003F800001FC001F000001FC00000000 +01FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC00000000 +01FC0000000001FC000000F801FC000001FC01FC000001FC01FC000001FC01FC000001FC +01FC000001FC01FC000001FC01FC000001FC01FC000001FC01FC000001FC3FFFFFFFFFFC +7FFFFFFFFFFCFFFFFFFFFFFCFFFFFFFFFFFC7FFFFFFFFFFC3FFFFFFFFFF82E3D7EBC33> +I<3FFFFFFFFFE07FFFFFFFFFF0FFFFFFFFFFF0FFFFFFFFFFF07FFFFFFFFFF03FFFFFFFFF +F001FC000007F001FC000007F001FC000007F001FC000007F001FC000007F001FC000007 +F001FC000007F001FC000007F001FC000003E001FC0000000001FC0000000001FC000000 +0001FC0000000001FC0000000001FC0000000001FC0000000001FC001F000001FC003F80 +0001FC003F800001FC003F800001FC003F800001FFFFFF800001FFFFFF800001FFFFFF80 +0001FFFFFF800001FFFFFF800001FFFFFF800001FC003F800001FC003F800001FC003F80 +0001FC003F800001FC001F000001FC0000000001FC0000000001FC0000000001FC000000 +0001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC000000 +0001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC000000 +0001FC000000003FFFF80000007FFFFC000000FFFFFE000000FFFFFE0000007FFFFC0000 +003FFFF80000002C3D7DBC33>I<00007F803C000001FFF03E000007FFFC7E00001FFFFE +7E00003FFFFFFE00007FFFFFFE0000FFE07FFE0001FF803FFE0001FF000FFE0003FC000F +FE0007FC0007FE0007F80003FE000FF00003FE000FE00001FE001FE00001FE001FC00001 +FE003FC00001FE003F800000FE003F800000FE007F800000FE007F000000FE007F000000 +7C007F00000000007F0000000000FF0000000000FE0000000000FE0000000000FE000000 +0000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE000000 +0000FE00007FFFC0FE0000FFFFE0FE0000FFFFE0FE0000FFFFE0FF0000FFFFE07F00007F +FFC07F000000FE007F000000FE007F000000FE007F800001FE003F800001FE003F800001 +FE003FC00001FE001FC00001FE001FE00003FE000FE00003FE000FF00003FE0007F80007 +FE0007F80007FE0003FC000FFE0001FE001FFE0001FF803FFE0000FFE0FFFE00007FFFFF +FE00003FFFFFFE00001FFFFEFE000007FFF8FE000001FFF07C0000007F8000002B3F7CBD +33>I<7FFFC00FFFF8FFFFE01FFFFCFFFFE01FFFFCFFFFE01FFFFCFFFFE01FFFFC7FFFC0 +0FFFF803F800007F0003F800007F0003F800007F0003F800007F0003F800007F0003F800 +007F0003F800007F0003F800007F0003F800007F0003F800007F0003F800007F0003F800 +007F0003F800007F0003F800007F0003F800007F0003F800007F0003F800007F0003F800 +007F0003F800007F0003F800007F0003FFFFFFFF0003FFFFFFFF0003FFFFFFFF0003FFFF +FFFF0003FFFFFFFF0003FFFFFFFF0003F800007F0003F800007F0003F800007F0003F800 +007F0003F800007F0003F800007F0003F800007F0003F800007F0003F800007F0003F800 +007F0003F800007F0003F800007F0003F800007F0003F800007F0003F800007F0003F800 +007F0003F800007F0003F800007F0003F800007F0003F800007F0003F800007F0003F800 +007F0003F800007F007FFFC00FFFF8FFFFE01FFFFCFFFFE01FFFFCFFFFE01FFFFCFFFFE0 +1FFFFC7FFFC00FFFF82E3D7EBC33>I<3FFFFFFF807FFFFFFFC0FFFFFFFFE0FFFFFFFFE0 +7FFFFFFFC03FFFFFFF800003F800000003F800000003F800000003F800000003F8000000 +03F800000003F800000003F800000003F800000003F800000003F800000003F800000003 +F800000003F800000003F800000003F800000003F800000003F800000003F800000003F8 +00000003F800000003F800000003F800000003F800000003F800000003F800000003F800 +000003F800000003F800000003F800000003F800000003F800000003F800000003F80000 +0003F800000003F800000003F800000003F800000003F800000003F800000003F8000000 +03F800000003F800000003F800000003F800000003F800000003F800000003F800000003 +F800003FFFFFFF807FFFFFFFC0FFFFFFFFE0FFFFFFFFE07FFFFFFFC03FFFFFFF80233D78 +BC33>I<0001FFFFF80003FFFFFC0003FFFFFE0003FFFFFE0003FFFFFC0001FFFFF80000 +007F000000007F000000007F000000007F000000007F000000007F000000007F00000000 +7F000000007F000000007F000000007F000000007F000000007F000000007F000000007F +000000007F000000007F000000007F000000007F000000007F000000007F000000007F00 +0000007F000000007F000000007F000000007F000000007F000000007F000000007F0000 +00007F000000007F000000007F000000007F000000007F000000007F000000007F000000 +007F000000007F000000007F000000007F000000007F003C00007F007E00007F00FF0000 +7F00FF00007F00FF0000FF00FF0000FE00FF0001FE007F8007FC007FF01FF8003FFFFFF8 +001FFFFFF0000FFFFFC00003FFFF800000FFFE0000001FF00000273E79BC33>I<3FFF00 +07FFE07FFF800FFFF0FFFFC00FFFF8FFFFC00FFFF87FFF800FFFF03FFF0007FFE003F000 +00FE0003F00001FC0003F00003F80003F00007F80003F00007F00003F0000FE00003F000 +1FC00003F0003FC00003F0007F800003F0007F000003F000FE000003F001FC000003F003 +FC000003F003F8000003F007F0000003F00FE0000003F01FE0000003F01FC0000003F03F +80000003F07F80000003F0FF80000003F1FFC0000003F1FFC0000003F3FFE0000003F7F7 +E0000003FFF7F0000003FFE3F0000003FFC3F8000003FF81FC000003FF81FC000003FF00 +FE000003FE00FE000003FC007F000003FC003F000003F8003F800003F0001F800003F000 +1FC00003F0000FC00003F0000FE00003F00007F00003F00007F00003F00003F80003F000 +03F80003F00001FC0003F00000FC0003F00000FE0003F000007E0003F000007F0003F000 +003F003FFF0000FFF07FFF8001FFF8FFFFC003FFFCFFFFC003FFFC7FFF8001FFF83FFF00 +00FFF02E3D7EBC33>I<7FFFF8000000FFFFFC000000FFFFFE000000FFFFFE000000FFFF +FC0000007FFFF800000001FC0000000001FC0000000001FC0000000001FC0000000001FC +0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC +0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC +0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC +0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC +0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC +0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC000003E001FC +000007F001FC000007F001FC000007F001FC000007F001FC000007F001FC000007F001FC +000007F001FC000007F001FC000007F07FFFFFFFFFF0FFFFFFFFFFF0FFFFFFFFFFF0FFFF +FFFFFFF0FFFFFFFFFFF07FFFFFFFFFE02C3D7DBC33>I<3FF800001FFC7FFC00003FFEFF +FE00007FFFFFFE00007FFF7FFE00007FFE3FFF0000FFFC07FF0000FFE007EF0000F7E007 +EF8001F7E007EF8001F7E007EF8001F7E007E7C003E7E007E7C003E7E007E7C003E7E007 +E7E007E7E007E7E007E7E007E3E007C7E007E3E007C7E007E3F00FC7E007E3F00FC7E007 +E1F00F87E007E1F81F87E007E1F81F87E007E0F81F07E007E0F81F07E007E0FC3F07E007 +E0FC3F07E007E07C3E07E007E07C7E07E007E07E7E07E007E03E7C07E007E03E7C07E007 +E03E7C07E007E01E7807E007E01FF807E007E01FF807E007E00FF007E007E00FF007E007 +E00FF007E007E007E007E007E003C007E007E0000007E007E0000007E007E0000007E007 +E0000007E007E0000007E007E0000007E007E0000007E007E0000007E007E0000007E007 +E0000007E007E0000007E007E0000007E007E0000007E007E0000007E03FFC00003FFC7F +FE00007FFEFFFF0000FFFFFFFF0000FFFF7FFE00007FFE3FFC00003FFC303D7FBC33>I< +7FFC001FFFE0FFFE003FFFF0FFFF003FFFF0FFFF003FFFF0FFFF003FFFF07FFF801FFFE0 +03FF8000FC0003F78000FC0003F7C000FC0003F7C000FC0003F3C000FC0003F3E000FC00 +03F3E000FC0003F3E000FC0003F1F000FC0003F1F000FC0003F1F000FC0003F1F800FC00 +03F0F800FC0003F0F800FC0003F0FC00FC0003F0FC00FC0003F07C00FC0003F07E00FC00 +03F07E00FC0003F03E00FC0003F03F00FC0003F03F00FC0003F01F00FC0003F01F80FC00 +03F01F80FC0003F01F80FC0003F00F80FC0003F00FC0FC0003F00FC0FC0003F007C0FC00 +03F007E0FC0003F007E0FC0003F003E0FC0003F003F0FC0003F003F0FC0003F001F0FC00 +03F001F0FC0003F001F8FC0003F000F8FC0003F000F8FC0003F000F8FC0003F0007CFC00 +03F0007CFC0003F0007CFC0003F0003CFC0003F0003EFC0003F0003EFC0003F0001EFC00 +03F0001FFC007FFF801FFC00FFFFC00FFC00FFFFC00FFC00FFFFC00FFC00FFFFC007FC00 +7FFF8003F8002C3D7DBC33>I<001FFFF80000FFFFFF0003FFFFFFC00FFFFFFFF00FFFFF +FFF01FFFFFFFF83FFC003FFC3FE00007FC3FC00003FC7F800001FE7F800001FE7F000000 +FE7F000000FE7F000000FE7F000000FE7F000000FEFE0000007FFE0000007FFE0000007F +FE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE +0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE00 +00007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000 +007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFF000000FF7F000000 +FE7F000000FE7F000000FE7F000000FE7F800001FE7F800001FE7F800001FE3FC00003FC +3FF0000FFC3FFC003FFC1FFFFFFFF80FFFFFFFF00FFFFFFFF003FFFFFFC000FFFFFF0000 +1FFFF800283F7BBD33>I<3FFFFFFC00007FFFFFFF8000FFFFFFFFE000FFFFFFFFF8007F +FFFFFFFC003FFFFFFFFE0001FC000FFF0001FC0003FF8001FC0000FF8001FC00007FC001 +FC00003FC001FC00001FE001FC00000FE001FC00000FE001FC00000FF001FC000007F001 +FC000007F001FC000007F001FC000007F001FC000007F001FC000007F001FC00000FF001 +FC00000FE001FC00000FE001FC00001FE001FC00003FC001FC00007FC001FC0000FF8001 +FC0003FF8001FC000FFF0001FFFFFFFE0001FFFFFFFC0001FFFFFFF80001FFFFFFE00001 +FFFFFF800001FFFFFC000001FC0000000001FC0000000001FC0000000001FC0000000001 +FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001 +FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001 +FC0000000001FC0000000001FC000000003FFFE00000007FFFF0000000FFFFF8000000FF +FFF80000007FFFF00000003FFFE00000002C3D7EBC33>I<001FFFF80000FFFFFF0003FF +FFFFC00FFFFFFFF00FFFFFFFF01FFFFFFFF83FFC003FFC3FF0000FFC3FC00003FC7F8000 +01FE7F800001FE7F000000FE7F000000FE7F000000FE7F000000FE7F000000FEFF000000 +FFFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007F +FE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE +0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE00 +00007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFE003F +007FFF007F80FF7F007F80FE7F003FC0FE7F003FC0FE7F001FE0FE7F001FE0FE7F800FF1 +FE7F800FF1FE3FC007FBFC3FF007FFFC3FFC03FFFC1FFFFFFFF80FFFFFFFF00FFFFFFFF0 +03FFFFFFC000FFFFFF00001FFFFF800000007FC00000003FC00000003FE00000001FE000 +00001FF00000000FF00000000FF800000007F800000007FC00000003FC00000003FE0000 +0001FE00000000FC284C7BBD33>I<7FFFFF800000FFFFFFF80000FFFFFFFE0000FFFFFF +FF0000FFFFFFFF80007FFFFFFFC00003F800FFE00003F8003FF00003F8000FF80003F800 +07F80003F80003FC0003F80001FC0003F80001FC0003F80000FE0003F80000FE0003F800 +00FE0003F80000FE0003F80000FE0003F80000FE0003F80000FE0003F80001FC0003F800 +01FC0003F80003FC0003F80007F80003F8000FF80003F8003FF00003F800FFE00003FFFF +FFC00003FFFFFF800003FFFFFF000003FFFFFE000003FFFFFF000003FFFFFF800003F800 +FFC00003F8003FC00003F8001FE00003F8000FE00003F8000FF00003F80007F00003F800 +07F00003F80007F00003F80007F00003F80007F00003F80007F00003F80007F00003F800 +07F00003F80007F00003F80007F00003F80007F03E03F80007F07F03F80007F07F03F800 +07F07F03F80007F07F03F80007F87F03F80003F8FF7FFFC003F8FEFFFFE001FFFEFFFFE0 +01FFFCFFFFE000FFFCFFFFE0007FF87FFFC0003FF0000000000FC0303E7EBC33>I<0007 +FE0078003FFFC07C00FFFFF0FC01FFFFFCFC07FFFFFFFC0FFFFFFFFC0FFC03FFFC1FF000 +7FFC3FE0003FFC3F80001FFC7F80000FFC7F000007FCFF000003FCFE000003FCFE000003 +FCFE000001FCFE000001FCFE000001FCFE000001FCFF000000F87F000000007F80000000 +7FC00000003FE00000003FF00000001FFE0000000FFFE0000007FFFF000003FFFFF00001 +FFFFFC00007FFFFF00001FFFFF800003FFFFC000003FFFE0000003FFF00000003FF80000 +000FFC00000007FC00000003FE00000001FE00000000FE00000000FF00000000FF7C0000 +007FFE0000007FFE0000007FFE0000007FFE0000007FFE0000007FFF000000FFFF000000 +FEFF800000FEFF800001FCFFC00003FCFFF00007F8FFFC000FF8FFFF807FF0FFFFFFFFE0 +FFFFFFFFC0FCFFFFFF80FC3FFFFE00F80FFFFC007800FFE000283F7BBD33>I<3FFFFFFF +FFF87FFFFFFFFFFCFFFFFFFFFFFCFFFFFFFFFFFCFFFFFFFFFFFCFFFFFFFFFFFCFE000FE0 +01FCFE000FE001FCFE000FE001FCFE000FE001FCFE000FE001FCFE000FE001FCFE000FE0 +01FCFE000FE001FC7C000FE000F800000FE0000000000FE0000000000FE0000000000FE0 +000000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE0 +000000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE0 +000000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE0 +000000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE0 +000000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE0 +000000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE0 +00000007FFFFC000000FFFFFE000001FFFFFF000001FFFFFF000000FFFFFE0000007FFFF +C0002E3D7EBC33>I<3FFFE001FFFF007FFFF003FFFF80FFFFF807FFFFC0FFFFF807FFFF +C07FFFF003FFFF803FFFE001FFFF0001FC00000FE00001FC00000FE00001FC00000FE000 +01FC00000FE00001FC00000FE00001FC00000FE00001FC00000FE00001FC00000FE00001 +FC00000FE00001FC00000FE00001FC00000FE00001FC00000FE00001FC00000FE00001FC +00000FE00001FC00000FE00001FC00000FE00001FC00000FE00001FC00000FE00001FC00 +000FE00001FC00000FE00001FC00000FE00001FC00000FE00001FC00000FE00001FC0000 +0FE00001FC00000FE00001FC00000FE00001FC00000FE00001FC00000FE00001FC00000F +E00001FC00000FE00001FC00000FE00001FC00000FE00001FC00000FE00001FC00000FE0 +0001FC00000FE00001FC00000FE00001FC00000FE00001FC00000FE00001FC00000FE000 +01FE00001FE00000FE00001FC00000FE00001FC00000FF00003FC000007F00003F800000 +7F00003F8000003F80007F0000003FC000FF0000001FE001FE0000001FF003FE0000000F +FC0FFC00000007FFFFF800000003FFFFF000000001FFFFE0000000007FFF80000000001F +FE000000000007F8000000323E80BC33>I<7FFF0003FFF8FFFF8007FFFCFFFF8007FFFC +FFFF8007FFFCFFFF8007FFFC7FFF0003FFF807F000003F8007F800007F8003F800007F00 +03F800007F0003F800007F0003FC0000FF0001FC0000FE0001FC0000FE0001FC0000FE00 +01FC0000FE0000FE0001FC0000FE0001FC0000FE0001FC0000FE0001FC0000FF0003FC00 +007F0003F800007F0003F800007F0003F800007F8007F800003F8007F000003F8007F000 +003F8007F000003FC00FF000001FC00FE000001FC00FE000001FC00FE000001FC00FE000 +000FE01FC000000FE01FC000000FE01FC000000FE01FC0000007F03F80000007F03F8000 +0007F03F80000007F03F80000003F03F00000003F87F00000003F87F00000003F87F0000 +0001F87E00000001F87E00000001FCFE00000001FCFE00000000FCFC00000000FCFC0000 +0000FCFC00000000FCFC00000000FCFC000000007FF8000000007FF8000000007FF80000 +00007FF8000000003FF0000000003FF0000000001FE0000000000FC000002E3E7EBC33> +I<3FFC00003FFC7FFE00007FFEFFFF0000FFFFFFFF0000FFFF7FFE00007FFE3FFC00003F +FC0FC0000003F00FC0000003F00FC0000003F00FC0000003F00FC0000003F00FC0000003 +F00FC0000003F00FE0000007F007E0000007E007E0000007E007E0000007E007E0000007 +E007E0000007E007E0000007E007E0000007E007E0000007E003F000000FC003F000000F +C003F007E00FC003F00FF00FC003F01FF80FC003F01FF80FC003F01FF80FC001F01FF80F +8001F83FFC1F8001F83E7C1F8001F83E7C1F8001F83E7C1F8001F83E7C1F8001F87E7E1F +8001F87E7E1F8000F87E7E1F0000F87E7E1F0000F87C3E1F0000FC7C3E3F0000FCFC3F3F +0000FCFC3F3F0000FCFC3F3F0000FCF81F3F00007CF81F3E00007CF81F3E00007CF81F3E +00007CF81F3E00007CF81F3E00007DF00FBE00007DF00FBE00007DF00FBE00003DF00FBC +00003FE007FC00003FE007FC00003FE007FC00003FE007FC00003FE007FC00003FC003FC +00001FC003F800000F8001F000303E7FBC33>I<3FFF807FFF007FFFC0FFFF807FFFC0FF +FF807FFFC0FFFF807FFFC0FFFF803FFF807FFF0001FE000FE00001FE001FE00000FF001F +E00000FF003FC000007F803FC000007F803F8000003FC07F8000003FC07F0000001FE0FF +0000001FE0FE0000000FF1FE0000000FF1FC00000007FBFC00000007FBF800000003FFF8 +00000003FFF000000001FFF000000001FFE000000000FFE000000000FFC0000000007FC0 +000000003F80000000003F80000000003F80000000007FC0000000007FC000000000FFE0 +00000000FFF000000001FFF000000001FFF800000003FBF800000003FBFC00000007F1FC +00000007F1FE0000000FE0FE0000000FE0FF0000001FE07F0000001FC07F8000003FC03F +8000003F803FC000007F801FC000007F001FE00000FF000FE00000FE000FF00000FE0007 +F00001FE0007F80001FC0003F80003FC0003FC0003F80001FC007FFF000FFFE0FFFF801F +FFF0FFFF803FFFF0FFFF803FFFF0FFFF801FFFF07FFF000FFFE02C3D7DBC33>I<7FFF00 +03FFF8FFFF8007FFFCFFFFC00FFFFCFFFFC00FFFFCFFFF8007FFFC7FFF0003FFF803FC00 +007F0003FC0000FF0001FC0000FE0001FE0001FE0000FE0001FE0000FF0003FC00007F00 +03FC00007F8003F800003F8007F800003FC007F000001FC00FF000001FE00FE000001FE0 +0FE000000FE01FE000000FF01FC0000007F03FC0000007F83F80000003F83F80000003F8 +7F00000001FC7F00000001FC7E00000000FCFE00000000FEFE000000007EFC000000007F +FC000000003FF8000000003FF8000000001FF0000000001FF0000000001FE0000000000F +E0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000F +E0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000F +E0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000F +E000000001FFFF00000003FFFF80000003FFFF80000003FFFF80000003FFFF80000001FF +FF00002E3D7EBC33>I<1FFFFFFFFE003FFFFFFFFF007FFFFFFFFF007FFFFFFFFF007FFF +FFFFFF007FFFFFFFFF007F000001FE007F000003FC007F000003FC007F000007F8007F00 +0007F0007F00000FF0007F00001FE0007F00001FE0003E00003FC0000000007F80000000 +007F8000000000FF0000000000FE0000000001FE0000000003FC0000000003FC00000000 +07F8000000000FF0000000000FF0000000001FE0000000001FC0000000003FC000000000 +7F80000000007F8000000000FF0000000001FE0000000001FE0000000003FC0000000003 +F80000000007F8000000000FF0000000000FF0000000001FE0000000003FC0000000003F +C0000000007F80000000007F0000000000FF0000000001FE00001F0001FE00003F8003FC +00003F8007F800003F8007F800003F800FF000003F800FE000003F801FE000003F803FC0 +00003F803FC000003F807F8000003F807FFFFFFFFF80FFFFFFFFFF80FFFFFFFFFF80FFFF +FFFFFF80FFFFFFFFFF807FFFFFFFFF00293D7BBC33>I<7C000000007C00000000FE0000 +0000FE00000000FF00000000FF000000007F800000007F800000003FC00000003FC00000 +001FE00000001FE00000000FE00000000FF00000000FF000000007F800000007F8000000 +03FC00000003FC00000001FE00000001FE00000000FE00000000FF00000000FF00000000 +7F800000007F800000003FC00000003FC00000001FE00000001FE00000000FE00000000F +F00000000FF000000007F800000007F800000003FC00000003FC00000001FC00000001FE +00000001FE00000000FF00000000FF000000007F800000007F800000003FC00000003FC0 +0000001FC00000001FE00000001FE00000000FF00000000FF000000007F800000007F800 +000003FC00000003FC00000001FC00000001FE00000001FE00000000FF00000000FF0000 +00007F800000007F800000003FC00000003FC00000001FC00000001FE00000001FE00000 +000FF00000000FF000000007F800000007F800000003FC00000003FC00000001FC000000 +01FC00000000F80000000078264D7AC433>92 D<7FFFFFFFFE7FFFFFFFFEFFFFFFFFFFFF +FFFFFFFFFFFFFFFFFF7FFFFFFFFE7FFFFFFFFE28077B7D33>95 D<001FFC00000000FFFF +80000003FFFFE0000007FFFFF000000FFFFFFC00001FFFFFFE00001FF007FF00001FE001 +FF00001FE000FF80001FE0003F80000FC0003FC0000780001FC0000000001FE000000000 +0FE0000000000FE0000000000FE0000000000FE0000000000FE00000000FFFE0000001FF +FFE000001FFFFFE000007FFFFFE00001FFFFFFE00007FFFF0FE0000FFFC00FE0001FFC00 +0FE0003FF0000FE0007FC0000FE0007F80000FE000FF00000FE000FE00000FE000FE0000 +0FE000FE00000FE000FE00000FE000FE00000FE000FF00001FE0007F00001FE0007F8000 +7FE0003FE000FFF0003FF807FFFFF01FFFFFFFFFF80FFFFFFFFFF807FFFFF3FFF803FFFF +C1FFF800FFFF003FF0001FF00000002D2E7BAC33>97 D<3FFC000000007FFE00000000FF +FE00000000FFFE000000007FFE000000003FFE0000000000FE0000000000FE0000000000 +FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000 +FE0000000000FE0000000000FE0000000000FE01FE000000FE0FFFC00000FE1FFFF00000 +FE7FFFF80000FEFFFFFE0000FFFFFFFF0000FFFE07FF0000FFF800FF8000FFE0007FC000 +FFC0003FE000FF80001FE000FF80000FF000FF00000FF000FF000007F000FE000007F800 +FE000003F800FE000003F800FE000003FC00FE000001FC00FE000001FC00FE000001FC00 +FE000001FC00FE000001FC00FE000001FC00FE000001FC00FE000001FC00FE000001FC00 +FE000003FC00FE000003F800FE000003F800FF000007F800FF000007F000FF80000FF000 +FF80000FE000FFC0001FE000FFC0003FC000FFE0007FC000FFF801FF8000FFFE07FF0000 +FFFFFFFE0000FEFFFFFC0000FE7FFFF800007E3FFFE000003C0FFF8000000003FE00002E +3E7FBC33>I<0000FFF0000007FFFE00001FFFFF80003FFFFFC0007FFFFFE001FFFFFFF0 +03FFC01FF003FE000FF007FC000FF00FF8000FF01FF00007E01FE00003C03FC00000003F +800000003F800000007F800000007F000000007F00000000FF00000000FE00000000FE00 +000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE0000 +0000FF000000007F000000007F000000007F800000003F800001F03FC00003F81FE00003 +F81FF00007F80FF80007F007FC000FF007FF001FE003FFE07FE001FFFFFFC000FFFFFF80 +003FFFFF00001FFFFC000007FFF8000000FFC000252E79AC33>I<0000007FF800000000 +FFFC00000001FFFC00000001FFFC00000000FFFC000000007FFC0000000001FC00000000 +01FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC00000000 +01FC0000000001FC0000000001FC0000000001FC000001FF01FC000007FFC1FC00001FFF +F1FC00007FFFF9FC0000FFFFFFFC0001FFFFFFFC0003FF81FFFC0007FE003FFC000FF800 +1FFC000FF0000FFC001FE00007FC001FC00003FC003FC00003FC003F800001FC007F8000 +01FC007F000001FC007F000001FC00FF000001FC00FE000001FC00FE000001FC00FE0000 +01FC00FE000001FC00FE000001FC00FE000001FC00FE000001FC00FE000001FC00FE0000 +01FC00FF000001FC007F000001FC007F000003FC007F800003FC003F800003FC003FC000 +07FC003FC00007FC001FE0000FFC001FF0001FFC000FF8003FFC0007FC007FFC0003FF81 +FFFFF003FFFFFFFFF800FFFFFDFFFC007FFFF9FFFC003FFFE1FFF8000FFF80FFF00001FE +0000002E3E7DBC33>I<0000FF80000007FFF000001FFFFC00003FFFFE0000FFFFFF0001 +FFFFFF8003FF80FFC007FE003FE007F8000FF00FF00007F01FE00007F81FC00003F83FC0 +0003FC3F800001FC7F800001FC7F000001FC7F000001FE7F000000FEFF000000FEFE0000 +00FEFFFFFFFFFEFFFFFFFFFEFFFFFFFFFEFFFFFFFFFEFFFFFFFFFEFFFFFFFFFCFE000000 +00FF000000007F000000007F000000007F000000003F800000003F8000007C1FC00000FE +1FE00000FE0FF00000FE0FF80001FE07FC0003FC03FF000FFC01FFC03FF800FFFFFFF000 +7FFFFFE0003FFFFFC0000FFFFF000003FFFC0000007FE000272E7BAC33>I<0000003FE0 +000001FFFC000007FFFE00001FFFFE00003FFFFF00007FFFFF0000FFC0FF0000FF00FF00 +01FE007E0001FC003C0003FC00000003F800000003F800000003F800000003F800000003 +F800000003F800000003F800000003F800003FFFFFFFF87FFFFFFFFCFFFFFFFFFCFFFFFF +FFFCFFFFFFFFFC7FFFFFFFF80003F800000003F800000003F800000003F800000003F800 +000003F800000003F800000003F800000003F800000003F800000003F800000003F80000 +0003F800000003F800000003F800000003F800000003F800000003F800000003F8000000 +03F800000003F800000003F800000003F800000003F800000003F800000003F800000003 +F800000003F800000003F800000003F800000003F800003FFFFFFF807FFFFFFFC07FFFFF +FFC07FFFFFFFC07FFFFFFFC03FFFFFFF80283E7DBD33>I<0001FE001FE0000FFFC0FFF0 +003FFFF3FFF8007FFFFFFFFC00FFFFFFFFFC01FFFFFFFFFC03FF03FFE1FC07FC00FF80F8 +07F8007F80600FF0003FC0000FE0001FC0000FE0001FC0001FE0001FE0001FC0000FE000 +1FC0000FE0001FC0000FE0001FC0000FE0001FC0000FE0001FC0000FE0001FE0001FE000 +0FE0001FC0000FE0001FC0000FF0003FC00007F8007F800007FC00FF800003FF03FF0000 +03FFFFFE000007FFFFFC000007FFFFF8000007FFFFF000000FCFFFC000000F81FE000000 +0F80000000000F80000000000FC0000000000FC00000000007E00000000007F000000000 +07FFFFFC000003FFFFFFC00001FFFFFFF00007FFFFFFFC000FFFFFFFFF001FFFFFFFFF80 +1FE00007FF803FC000007FC03F0000001FE07F0000000FE07E00000007E0FE00000007F0 +FC00000003F0FC00000003F0FC00000003F0FC00000003F0FC00000003F0FE00000007F0 +7E00000007E07F0000000FE03F8000001FC03FE000007FC01FF80001FF800FFF801FFF00 +07FFFFFFFE0003FFFFFFFC0000FFFFFFF000003FFFFFC000000FFFFF00000000FFF00000 +2E447DAB33>I<3FFC000000007FFE00000000FFFE00000000FFFE000000007FFE000000 +003FFE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE000000 +0000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE000000 +0000FE01FF000000FE07FFC00000FE1FFFF00000FE7FFFF80000FEFFFFF80000FFFFFFFC +0000FFFF07FE0000FFF801FE0000FFF000FE0000FFE000FF0000FFC0007F0000FF80007F +0000FF80007F0000FF00007F0000FF00007F0000FF00007F0000FE00007F0000FE00007F +0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F +0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F +0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F +0000FE00007F0000FE00007F003FFFF80FFFFC7FFFFC1FFFFEFFFFFE3FFFFFFFFFFE3FFF +FF7FFFFC1FFFFE3FFFF80FFFFC303D7FBC33>I<0000E000000003F800000003F8000000 +07FC00000007FC00000007FC00000003F800000003F800000000E0000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000003FFFF800007FFFFC00007FFFFC00007FFFFC00007FFFFC00003FFFFC00 +000001FC00000001FC00000001FC00000001FC00000001FC00000001FC00000001FC0000 +0001FC00000001FC00000001FC00000001FC00000001FC00000001FC00000001FC000000 +01FC00000001FC00000001FC00000001FC00000001FC00000001FC00000001FC00000001 +FC00000001FC00000001FC00000001FC00000001FC00000001FC00000001FC00000001FC +00000001FC00000001FC00007FFFFFFFC0FFFFFFFFE0FFFFFFFFF0FFFFFFFFF0FFFFFFFF +E07FFFFFFFC0243E78BD33>I<00000070000001FC000001FC000003FE000003FE000003 +FE000001FC000001FC000000700000000000000000000000000000000000000000000000 +0000000000000000000000000000000000003FFFFC007FFFFE00FFFFFE00FFFFFE007FFF +FE003FFFFE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000 +FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000 +FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000 +FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000 +FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000 +FE000000FE000001FE000001FC000001FC180001FC7E0003F87E0007F8FF0007F0FF000F +F0FF803FE0FFFFFFC07FFFFF803FFFFF001FFFFE000FFFF80001FFE0001F557BBD33>I< +7FF800000000FFFC00000000FFFC00000000FFFC00000000FFFC000000007FFC00000000 +00FC0000000000FC0000000000FC0000000000FC0000000000FC0000000000FC00000000 +00FC0000000000FC0000000000FC0000000000FC0000000000FC0000000000FC00000000 +00FC01FFFFC000FC03FFFFE000FC07FFFFF000FC07FFFFF000FC03FFFFE000FC01FFFFC0 +00FC000FF00000FC001FE00000FC003FC00000FC007F800000FC00FF000000FC01FE0000 +00FC03FC000000FC07F8000000FC0FF0000000FC1FE0000000FC3FC0000000FC7F800000 +00FCFFC0000000FDFFE0000000FFFFE0000000FFFFF0000000FFF3F8000000FFE3FC0000 +00FFC1FC000000FF80FE000000FF007F000000FE007F000000FC003F800000FC001FC000 +00FC001FE00000FC000FE00000FC0007F00000FC0003F80000FC0003FC0000FC0001FC00 +00FC0000FE007FFFF80FFFF0FFFFFC1FFFF8FFFFFC1FFFFCFFFFFC1FFFFCFFFFFC1FFFF8 +7FFFF80FFFF02E3D7EBC33>I<3FFFFC00007FFFFE0000FFFFFE0000FFFFFE00007FFFFE +00003FFFFE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00 +000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE0000 +0000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE000000 +00FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000 +FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE +00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00 +000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE0000 +3FFFFFFFF87FFFFFFFFCFFFFFFFFFEFFFFFFFFFE7FFFFFFFFC3FFFFFFFF8273D7ABC33> +I<0000FC007E00007FC3FF01FF8000FFEFFF87FFC000FFFFFFCFFFE000FFFFFFDFFFE000 +FFFFFFFFFFF0007FFF0FFF87F00007FE07FF03F00007FC07FE03F80007F803FC01F80007 +F803FC01F80007F003F801F80007F003F801F80007F003F801F80007F003F801F80007E0 +03F001F80007E003F001F80007E003F001F80007E003F001F80007E003F001F80007E003 +F001F80007E003F001F80007E003F001F80007E003F001F80007E003F001F80007E003F0 +01F80007E003F001F80007E003F001F80007E003F001F80007E003F001F80007E003F001 +F80007E003F001F80007E003F001F80007E003F001F80007E003F001F80007E003F001F8 +0007E003F001F80007E003F001F8007FFE0FFF07FF80FFFF1FFF8FFFC0FFFF1FFF8FFFC0 +FFFF1FFF8FFFC0FFFF1FFF8FFFC07FFE0FFF07FF80322C80AB33>I<000001FF00003FFC +07FFC0007FFE1FFFF000FFFE7FFFF800FFFEFFFFF8007FFFFFFFFC003FFFFF07FE0000FF +F801FE0000FFF000FE0000FFE000FF0000FFC0007F0000FF80007F0000FF80007F0000FF +00007F0000FF00007F0000FF00007F0000FE00007F0000FE00007F0000FE00007F0000FE +00007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE +00007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE +00007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE +00007F003FFFF80FFFFC7FFFFC1FFFFEFFFFFE3FFFFFFFFFFE3FFFFF7FFFFC1FFFFE3FFF +F80FFFFC302C7FAB33>I<0001FE0000000FFFC000003FFFF000007FFFF80000FFFFFC00 +01FFFFFE0003FF03FF0007FC00FF800FF8007FC00FF0003FC01FE0001FE01FC0000FE03F +800007F03F800007F07F800007F87F000003F87F000003F87F000003F8FE000001FCFE00 +0001FCFE000001FCFE000001FCFE000001FCFE000001FCFE000001FCFE000001FCFE0000 +01FCFE000001FCFF000003FC7F000003F87F000003F87F800007F83F800007F03FC0000F +F03FC0000FF01FE0001FE01FF0003FE00FF8007FC007FC00FF8003FF03FF0001FFFFFE00 +00FFFFFC00007FFFF800003FFFF000000FFFC0000001FE0000262E7AAC33>I<000001FE +00003FFC0FFFC0007FFE1FFFF000FFFE7FFFF800FFFEFFFFFE007FFFFFFFFF003FFFFE07 +FF0000FFF800FF8000FFE0007FC000FFC0003FE000FF80001FE000FF80000FF000FF0000 +0FF000FF000007F000FE000007F800FE000003F800FE000003F800FE000003FC00FE0000 +01FC00FE000001FC00FE000001FC00FE000001FC00FE000001FC00FE000001FC00FE0000 +01FC00FE000001FC00FE000001FC00FE000003FC00FE000003F800FE000003F800FF0000 +07F800FF000007F000FF80000FF000FF80000FE000FFC0001FE000FFC0003FC000FFE000 +7FC000FFF801FF8000FFFE07FF0000FFFFFFFE0000FEFFFFFC0000FE7FFFF80000FE3FFF +E00000FE0FFF800000FE03FE000000FE0000000000FE0000000000FE0000000000FE0000 +000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000 +000000FE0000000000FE0000000000FE0000000000FE0000000000FE000000003FFFF800 +00007FFFFC000000FFFFFE000000FFFFFE0000007FFFFC0000003FFFF80000002E427FAB +33>I<0000FF007C000007FFE0FE00001FFFF0FE00007FFFFCFE0000FFFFFEFE0001FFFF +FFFE0003FFC0FFFE0007FE003FFE000FFC001FFE000FF0000FFE001FE00007FE001FE000 +03FE003FC00003FE003F800001FE007F800001FE007F000001FE007F000000FE00FF0000 +00FE00FE000000FE00FE000000FE00FE000000FE00FE000000FE00FE000000FE00FE0000 +00FE00FE000000FE00FE000000FE00FE000000FE00FF000000FE007F000000FE007F0000 +01FE007F800001FE003F800001FE003FC00003FE003FC00007FE001FE00007FE000FF000 +0FFE000FF8001FFE0007FE007FFE0003FF81FFFE0001FFFFFEFE0000FFFFFCFE00007FFF +F8FE00003FFFF0FE00000FFFC0FE000001FE00FE0000000000FE0000000000FE00000000 +00FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE00000000 +00FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE00000000 +00FE000000007FFFFC000000FFFFFE000000FFFFFE000000FFFFFE000000FFFFFE000000 +7FFFFC2F427CAB33>I<00000003FE007FFF801FFF80FFFFC07FFFE0FFFFC1FFFFE0FFFF +C3FFFFF0FFFFC7FFFFF07FFFCFFE0FF0001FDFF00FF0001FFFC007E0001FFF8003C0001F +FF000000001FFE000000001FFC000000001FF8000000001FF8000000001FF0000000001F +F0000000001FE0000000001FE0000000001FE0000000001FC0000000001FC0000000001F +C0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001F +C0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001F +C0000000001FC0000000001FC0000000001FC00000007FFFFFFE0000FFFFFFFF0000FFFF +FFFF0000FFFFFFFF0000FFFFFFFF00007FFFFFFE00002C2C7DAB33>I<001FFE0F0000FF +FF8F8003FFFFFF800FFFFFFF801FFFFFFF803FFFFFFF803FF007FF807F8001FF807F0000 +FF80FE00007F80FC00007F80FC00003F80FC00003F80FC00003F80FE00003F807F00001F +007FC00000003FF80000003FFFC000001FFFFF00000FFFFFE00003FFFFF80000FFFFFC00 +001FFFFF000000FFFF80000007FFC00000007FC00000001FE07C00000FE0FE000007F0FE +000003F0FE000003F0FF000003F0FF000003F0FF800003F0FF800007F0FFC00007E0FFE0 +000FE0FFF0003FC0FFFE01FFC0FFFFFFFF80FFFFFFFF00FDFFFFFE00FCFFFFF800F83FFF +E0007807FF0000242E79AC33>I<0003C00000000007E0000000000FE0000000000FE000 +0000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE000 +0000000FE0000000000FE00000003FFFFFFFFC007FFFFFFFFE00FFFFFFFFFE00FFFFFFFF +FE00FFFFFFFFFE007FFFFFFFFC00000FE0000000000FE0000000000FE0000000000FE000 +0000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE000 +0000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE000 +0000000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE000 +1F00000FE0003F80000FE0003F80000FE0003F80000FE0003F80000FE0003F80000FE000 +7F80000FF0007F000007F000FF000007F801FF000007FE07FE000003FFFFFC000001FFFF +F8000000FFFFF00000007FFFE00000001FFF8000000007FC000029387EB633>I<3FFC00 +1FFE007FFE003FFF00FFFE007FFF00FFFE007FFF007FFE003FFF003FFE001FFF0000FE00 +007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE00 +007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE00 +007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE00 +007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE00007F0000FE00 +007F0000FE0000FF0000FE0000FF0000FE0001FF0000FE0001FF0000FF0003FF00007F80 +0FFF00007FE03FFFFC003FFFFFFFFE003FFFFFFFFF001FFFFF7FFF000FFFFE7FFE0003FF +F83FFC0000FFC00000302C7FAA33>I<3FFFC00FFFF07FFFE01FFFF8FFFFF03FFFFCFFFF +F03FFFFC7FFFE01FFFF83FFFC00FFFF001F800007E0001FC0000FE0000FC0000FC0000FC +0000FC0000FE0001FC00007E0001F800007E0001F800007F0003F800003F0003F000003F +0003F000003F8007F000001F8007E000001F8007E000001FC00FE000000FC00FC000000F +C00FC000000FC00FC0000007E01F80000007E01F80000007E01F80000007F03F80000003 +F03F00000003F03F00000003F87F00000001F87E00000001F87E00000001FCFE00000000 +FCFC00000000FCFC00000000FFFC000000007FF8000000007FF8000000007FF800000000 +3FF0000000003FF0000000001FE0000000000FC000002E2B7EAA33>I<7FFF8007FFF8FF +FFC00FFFFCFFFFE01FFFFCFFFFE01FFFFCFFFFC00FFFFC7FFF8007FFF80FC000000FC00F +E000001FC007E000001F8007E000001F8007E000001F8007E000001F8007E000001F8007 +F000003F8003F000003F0003F000003F0003F000003F0003F00FC03F0003F01FE03F0003 +F01FE03F0001F83FF07E0001F83FF07E0001F83FF07E0001F87FF87E0001F87CF87E0001 +F87CF87E0000F87CF87C0000FCFCFCFC0000FCFCFCFC0000FCFCFCFC0000FCF87CFC0000 +FCF87CFC00007CF87CF800007DF87EF800007DF03EF800007DF03EF800007FF03FF80000 +7FF03FF800003FE01FF000003FE01FF000003FE01FF000003FC00FF000000F8007C0002E +2B7EAA33>I<3FFFC07FFF807FFFE0FFFFC0FFFFF1FFFFE0FFFFF1FFFFE07FFFE0FFFFC0 +3FFFC07FFF8000FE000FE000007F001FC000003F801FC000003F803F8000001FC07F0000 +000FE07E00000007F0FE00000007F1FC00000003FBF800000001FFF800000000FFF00000 +0000FFE0000000007FC0000000003FC0000000001F80000000003F80000000003FC00000 +00007FE000000000FFE000000001FBF000000001F9F800000003F1FC00000007E0FC0000 +0007E07E0000000FC07F0000001FC03F8000003F801F8000003F001FC000007F000FE000 +00FE0007F00001FC0003F0007FFFC03FFFE0FFFFE07FFFF0FFFFE07FFFF0FFFFE07FFFF0 +FFFFE07FFFF07FFFC03FFFE02C2B7DAA33>I<7FFF801FFFE0FFFFC03FFFF0FFFFE07FFF +F8FFFFE07FFFF8FFFFC03FFFF07FFF801FFFE003F80000FC0001F80001FC0001F80001F8 +0001FC0001F80000FC0003F80000FE0003F000007E0003F000007E0003F000007F0007E0 +00003F0007E000003F0007E000003F800FC000001F800FC000001F800FC000000FC01F80 +00000FC01F8000000FE01F80000007E03F00000007E03F00000007F03F00000003F03F00 +000003F07E00000001F87E00000001F87E00000001F87C00000000F8FC00000000FCFC00 +000000FCF8000000007CF8000000007DF8000000003FF0000000003FF0000000003FF000 +0000001FE0000000001FE0000000001FE0000000000FC0000000000FC0000000001FC000 +0000001F80000000001F80000000003F80000000003F00000000003F00000000003F0000 +0000007E00000000007E0000000000FE0000003F00FC0000003F01FC0000007F81F80000 +007F83F80000007F87F00000007F9FF00000007FFFE00000003FFFC00000003FFF800000 +001FFF000000000FFC0000000003F0000000002D427DAA33>I<0FFFFFFFFF801FFFFFFF +FFC03FFFFFFFFFC03FFFFFFFFFC03FFFFFFFFFC03FFFFFFFFF803F800000FF003F800001 +FE003F800003FC003F800007F8003F80000FF0001F00001FE0000000003FC0000000007F +8000000000FF0000000001FE0000000003FC0000000007F8000000000FF0000000001FE0 +000000003FC0000000007F8000000000FF0000000001FE0000000003FC0000000007F800 +0000000FF0000000001FE0000000003FC0000000007F8000000000FF00000F8001FE0000 +1FC003FC00001FC007F800001FC00FF000001FC01FE000001FC03FC000001FC07FFFFFFF +FFC0FFFFFFFFFFC0FFFFFFFFFFC0FFFFFFFFFFC0FFFFFFFFFFC07FFFFFFFFF802A2B7DAA +33>I<00000007FE0000007FFF000001FFFF000007FFFF00000FFFFF00001FFFFE00003F +FE0000003FE00000007F800000007F000000007F000000007F000000007F000000007F00 +0000007F000000007F000000007F000000007F000000007F000000007F000000007F0000 +00007F000000007F000000007F000000007F000000007F000000007F000000007F000000 +007F000000007F000000007F00000000FF00000001FE00000003FE0000001FFC00003FFF +FC0000FFFFF80000FFFFE00000FFFFC00000FFFFE00000FFFFF800003FFFFC0000001FFC +00000003FE00000001FE00000000FF000000007F000000007F000000007F000000007F00 +0000007F000000007F000000007F000000007F000000007F000000007F000000007F0000 +00007F000000007F000000007F000000007F000000007F000000007F000000007F000000 +007F000000007F000000007F000000007F000000007F800000003FE00000003FFE000000 +1FFFFE00000FFFFF000007FFFF000001FFFF0000007FFF00000007FE284D7BC433>I<7C +7CFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE +FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE +FEFE7C7C074D6AC433>I<7FF0000000FFFF000000FFFFC00000FFFFF00000FFFFF80000 +7FFFFC0000003FFE00000003FE00000000FF000000007F000000007F000000007F000000 +007F000000007F000000007F000000007F000000007F000000007F000000007F00000000 +7F000000007F000000007F000000007F000000007F000000007F000000007F000000007F +000000007F000000007F000000007F000000007F000000007F800000003FC00000003FE0 +0000001FFC0000001FFFFC00000FFFFF000003FFFF000001FFFF000003FFFF00000FFFFF +00001FFFFC00001FFC0000003FE00000003FC00000007F800000007F000000007F000000 +007F000000007F000000007F000000007F000000007F000000007F000000007F00000000 +7F000000007F000000007F000000007F000000007F000000007F000000007F000000007F +000000007F000000007F000000007F000000007F000000007F00000000FF00000003FE00 +00003FFE00007FFFFC0000FFFFF80000FFFFF00000FFFFC00000FFFF0000007FF0000000 +284D7BC433>I<003E00070000FF800F8003FFC01FC007FFE03FC00FFFF07FC01FFFF9FF +807FE7FFFE00FF83FFFC00FF01FFF800FE00FFF0007C007FC00038001F0000220C78BC33 +>I E /Fr 7 120 df76 +D<00001FFC0000700000FFFFC000700007FFFFF000F0000FFFFFFC01F0003FF003FF01F0 +007F80003F83F001FE00000FC7F003FC000003F7F007F8000001FFF007F0000000FFF00F +E00000007FF01FC00000003FF01FC00000001FF03F800000000FF03F8000000007F07F80 +00000007F07F0000000003F07F0000000003F0FF0000000001F0FF0000000001F0FF0000 +000001F0FF0000000000F0FF0000000000F0FF8000000000F0FF8000000000F0FF800000 +000070FFC00000000070FFC00000000070FFE000000000707FF000000000007FF8000000 +00007FFC00000000003FFE00000000003FFF80000000001FFFF0000000001FFFFF800000 +000FFFFFF800000007FFFFFF80000007FFFFFFF8000003FFFFFFFF000001FFFFFFFFC000 +007FFFFFFFF000003FFFFFFFF800001FFFFFFFFC000007FFFFFFFF000000FFFFFFFF8000 +001FFFFFFF80000001FFFFFFC00000001FFFFFE000000000FFFFF0000000000FFFF00000 +000003FFF80000000000FFF800000000007FF800000000003FFC00000000001FFC000000 +00000FFC00000000000FFE000000000007FEE00000000007FEE00000000003FEE0000000 +0003FEE00000000003FEE00000000001FEE00000000001FEF00000000001FEF000000000 +01FEF00000000001FEF00000000001FCF80000000001FCF80000000001FCFC0000000003 +FCFC0000000003F8FE0000000003F8FF0000000007F0FF0000000007F0FF800000000FE0 +FFC00000001FE0FFF00000001FC0FFF80000003F80FEFE0000007F00FE3F800001FE00FC +1FF00003FC00F807FF001FF800F801FFFFFFE000F0007FFFFF8000E0000FFFFE0000E000 +00FFF00000375877D449>83 D100 DI110 D117 +D119 +D E /Fs 45 128 df<000000E0000001E0000003C00000078000000F0000001E0000003C +0000007C000000F8000001F0000003F0000003E0000007C000000FC000000F8000001F80 +00001F0000003E0000007E0000007E000000FC000000FC000001F8000001F8000001F000 +0003F0000003F0000007E0000007E0000007E000000FE000000FC000000FC000001FC000 +001FC000001F8000001F8000003F8000003F8000003F0000003F0000003F0000007F0000 +007F0000007F0000007F0000007F0000007E0000007E0000007E000000FE000000FE0000 +00FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE0000 +00FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE0000 +00FE0000007E0000007E0000007E0000007F0000007F0000007F0000007F0000007F0000 +003F0000003F0000003F0000003F8000003F8000001F8000001F8000001FC000001FC000 +000FC000000FC000000FE0000007E0000007E0000007E0000003F0000003F0000001F000 +0001F8000001F8000000FC000000FC0000007E0000007E0000003E0000001F0000001F80 +00000F8000000FC0000007C0000003E0000003F0000001F0000000F80000007C0000003C +0000001E0000000F0000000780000003C0000001E0000000E01B7974D92E>40 +DI<0F003FC07FE0FFE0FFF0FFF0 +FFF8FFF8FFF87FF83FF80F3800380038003800380038007800700070007000F000E000E0 +01E001C003C0038007800F001E001E003C00780030000D23768B21>44 +DI< +0F003FC07FE0FFF0FFF0FFF0FFF0FFF0FFF07FE03FC00F000C0C768B21>I<0000070000 +00000F000000001F000000007F00000000FF00000007FF0000003FFF00000FFFFF0000FF +FFFF0000FFF9FF0000FFC1FF0000F001FF00000001FF00000001FF00000001FF00000001 +FF00000001FF00000001FF00000001FF00000001FF00000001FF00000001FF00000001FF +00000001FF00000001FF00000001FF00000001FF00000001FF00000001FF00000001FF00 +000001FF00000001FF00000001FF00000001FF00000001FF00000001FF00000001FF0000 +0001FF00000001FF00000001FF00000001FF00000001FF00000001FF00000001FF000000 +01FF00000001FF00000001FF00000001FF00000001FF00000001FF00000001FF00000001 +FF00000001FF00000001FF00000001FF00000001FF00000001FF00000001FF00000001FF +00000001FF00000001FF00000001FF00000001FF00000001FF00000001FF00000001FF00 +000001FF00000001FF00000001FF00000001FF00000001FF00000001FF00000001FF0000 +0003FF8000000FFFE000FFFFFFFFFEFFFFFFFFFEFFFFFFFFFEFFFFFFFFFE274F75CE3B> +49 D<00007FE000000003FFFE0000000FFFFF8000003FFFFFE00000FF00FFF80001F800 +1FFC0003E0000FFE0007C00003FF000F800001FF800F000000FFC01E000000FFE01C0000 +007FE03C0000003FF0380000003FF0780000001FF8700000001FF8700000001FF8FF0000 +000FFCFFC000000FFCFFE000000FFCFFE000000FFCFFE000000FFCFFE000000FFCFFE000 +000FFCFFE000000FFC7FC000000FFC3F8000000FFC0E0000000FFC000000001FF8000000 +001FF8000000001FF8000000001FF0000000003FF0000000003FF0000000007FE0000000 +007FC000000000FFC000000000FF8000000001FF0000000001FF0000000003FE00000000 +07FC0000000007F8000000000FF0000000001FE0000000003FC0000000003F8000000000 +7F0000000000FE0000000001FC0000000003F80000000007F0000000000FE0000000000F +C0000000001F80000000003F00000000007E0000000000FC0000000001F800001C0003E0 +00001C0007C000001C000F80000038000F00000038001E00000038003C00000038007800 +00003800F00000007801E00000007803C0000000700780000000F00FFFFFFFFFF00FFFFF +FFFFF01FFFFFFFFFF03FFFFFFFFFF07FFFFFFFFFF0FFFFFFFFFFE0FFFFFFFFFFE0FFFFFF +FFFFE0FFFFFFFFFFE02E4F7ACE3B>I<00003FF800000001FFFF8000000FFFFFE000001F +C01FF800007E0003FC0000F80001FF0001E00000FF8003C000007FC0078000007FE00F00 +00003FE00FC000003FF00FF000003FF01FF800001FF81FFC00001FF81FFC00001FF81FFC +00001FF81FFC00001FF81FFC00001FF80FF800001FF80FF800001FF803E000001FF80000 +00003FF0000000003FF0000000003FF0000000003FE0000000007FE0000000007FC00000 +0000FFC000000000FF8000000001FF0000000001FE0000000003FC0000000007F8000000 +000FF0000000003FC000000007FF00000003FFFC00000003FFF800000003FFFF80000000 +001FE00000000007F80000000001FE0000000000FF00000000007F80000000007FC00000 +00003FE0000000001FF0000000001FF8000000001FF8000000000FFC000000000FFE0000 +00000FFE0000000007FE0000000007FF0000000007FF0000000007FF0F00000007FF3FC0 +000007FF7FE0000007FFFFF0000007FFFFF0000007FFFFF0000007FFFFF0000007FFFFF0 +000007FEFFF000000FFEFFE000000FFE7FC000000FFC7F0000000FFC780000001FF83C00 +00001FF83E0000003FF01F0000007FE00F8000007FE007C00000FFC003F00001FF8001FC +0007FE0000FFC01FFC00003FFFFFF000000FFFFFC0000003FFFF000000003FF800003051 +7BCE3B>I<000000000F0000000000001F0000000000001F0000000000003F0000000000 +007F0000000000007F000000000000FF000000000001FF000000000001FF000000000003 +FF000000000007FF000000000007FF00000000000FFF00000000001EFF00000000001CFF +00000000003CFF000000000078FF000000000070FF0000000000F0FF0000000001E0FF00 +00000001C0FF0000000003C0FF000000000380FF000000000700FF000000000F00FF0000 +00000E00FF000000001C00FF000000003C00FF000000003800FF000000007000FF000000 +00F000FF00000000E000FF00000001C000FF00000003C000FF000000038000FF00000007 +8000FF0000000F0000FF0000000E0000FF0000001E0000FF0000003C0000FF0000003800 +00FF000000780000FF000000F00000FF000000E00000FF000001E00000FF000003C00000 +FF000003800000FF000007800000FF00000F000000FF00000E000000FF00001E000000FF +00003C000000FF000038000000FF000078000000FF0000F0000000FF0000FFFFFFFFFFFF +F0FFFFFFFFFFFFF0FFFFFFFFFFFFF0FFFFFFFFFFFFF000000001FF000000000001FF0000 +00000001FF000000000001FF000000000001FF000000000001FF000000000001FF000000 +000001FF000000000001FF000000000001FF000000000001FF000000000001FF00000000 +0001FF000000000001FF000000000001FF000000000003FF800000000007FFC00000000F +FFFFFFE000000FFFFFFFE000000FFFFFFFE000000FFFFFFFE034507DCF3B>I<0000003F +E000000003FFFC0000000FFFFF0000003FE01F8000007F0007C00001FC0001E00003F800 +00F00007F00000F0000FE00003F0001FC0000FF8003F80001FF8007F00001FF800FE0000 +1FF800FE00001FF801FC00001FF803FC00001FF803F800000FF007F8000003C007F80000 +00000FF0000000000FF0000000001FF0000000001FE0000000001FE0000000003FE00000 +00003FE0000000003FE0000000007FE0000000007FC0000000007FC00FFF00007FC03FFF +C0007FC0FFFFF000FFC1F003FC00FFC3C000FE00FFC780007F00FFC700003F80FFCE0000 +3FC0FFDC00001FE0FFDC00000FE0FFF800000FF0FFF8000007F8FFF0000007F8FFF00000 +07FCFFF0000007FCFFE0000007FEFFE0000003FEFFE0000003FEFFE0000003FEFFC00000 +03FFFFC0000003FFFFC0000003FFFFC0000003FF7FC0000003FF7FC0000003FF7FC00000 +03FF7FC0000003FF7FC0000003FF7FC0000003FF3FE0000003FF3FE0000003FF3FE00000 +03FF3FE0000003FE1FE0000003FE1FE0000003FE1FE0000007FE0FF0000007FC0FF00000 +07FC07F0000007F807F800000FF803F800000FF003FC00001FE001FC00001FE000FE0000 +3FC000FF00007F80007F8000FF00003FC001FE00000FF80FFC000007FFFFF0000001FFFF +C00000007FFF000000000FF8000030517BCE3B>54 D<1E0000000000001E000000000000 +1F0000000000001FF000000000001FFFFFFFFFFFC01FFFFFFFFFFFC01FFFFFFFFFFFC01F +FFFFFFFFFFC03FFFFFFFFFFF803FFFFFFFFFFF803FFFFFFFFFFF003FFFFFFFFFFE003FFF +FFFFFFFE003C000000003C0038000000007800780000000070007800000000F000700000 +0001E0007000000001C0007000000003C0007000000007800070000000070000E0000000 +0F0000E00000001E0000E00000003C0000000000003800000000000078000000000000F0 +000000000000E0000000000001E0000000000003C0000000000003800000000000078000 +000000000F0000000000000F0000000000001E0000000000003E0000000000003C000000 +0000007C00000000000078000000000000F8000000000000F8000000000001F000000000 +0001F0000000000003F0000000000003F0000000000003E0000000000007E00000000000 +07E000000000000FE000000000000FE000000000000FC000000000001FC000000000001F +C000000000001FC000000000003FC000000000003FC000000000003FC000000000007FC0 +00000000007F8000000000007F8000000000007F8000000000007F800000000000FF8000 +00000000FF800000000000FF800000000000FF800000000000FF800000000000FF800000 +000001FF800000000001FF800000000001FF800000000001FF800000000001FF80000000 +0001FF800000000001FF800000000001FF800000000001FF800000000001FF8000000000 +01FF800000000001FF800000000000FF0000000000003C0000000032537AD03B>I<0000 +1FF800000000FFFF00000003FFFFC000000FF00FE000001FC003F800007F8001FC0000FE +0000FE0001FE00007F0003FC00003F8003F800003F8007F800001FC00FF000001FE01FF0 +00000FE01FE000000FF03FE000000FF03FE0000007F07FE0000007F87FC0000007F87FC0 +000007F87FC0000007FCFFC0000007FCFFC0000007FCFFC0000003FCFFC0000003FEFFC0 +000003FEFFC0000003FEFFC0000003FEFFC0000003FEFFC0000003FEFFC0000003FFFFC0 +000003FFFFC0000003FFFFC0000007FF7FC0000007FF7FC0000007FF7FC0000007FF7FE0 +000007FF3FE000000FFF3FE000000FFF1FE000000FFF1FF000001FFF0FF000001BFF07F0 +00003BFF07F800003BFF03FC000073FF01FC0000E3FF00FE0001E3FF007F0003C3FF003F +C00F83FE000FFFFF03FE0003FFFC03FE0000FFF003FE0000000003FE0000000007FE0000 +000007FC0000000007FC0000000007FC0000000007F80000000007F8000000000FF80000 +00000FF0000000000FF0000000001FF003C000001FE00FF000001FE01FF800003FC01FF8 +00003F801FF800007F801FF800007F001FF80000FE001FF80001FE001FF00003FC000FC0 +0007F8000F00000FF0000780001FE00007E0003FC00003FC01FF000001FFFFFE0000007F +FFF80000001FFFE000000003FF00000030517BCE3B>57 D<0F003FC07FE0FFF0FFF0FFF0 +FFF0FFF0FFF07FE03FC00F00000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000F003FC07FE0 +FFF0FFF0FFF0FFF0FFF0FFF07FE03FC00F000C3376B221>I<0000000003800000000000 +00000007C0000000000000000007C0000000000000000007C000000000000000000FE000 +000000000000000FE000000000000000000FE000000000000000001FF000000000000000 +001FF000000000000000001FF000000000000000003FF800000000000000003FF8000000 +00000000003FF800000000000000007FFC00000000000000007FFC0000000000000000FF +FE0000000000000000E7FE0000000000000000E7FE0000000000000001E7FF0000000000 +000001C3FF0000000000000001C3FF0000000000000003C3FF800000000000000381FF80 +0000000000000381FF800000000000000701FFC00000000000000700FFC0000000000000 +0700FFC00000000000000E00FFE00000000000000E007FE00000000000000E007FE00000 +000000001C007FF00000000000001C003FF00000000000001C003FF00000000000003800 +1FF800000000000038001FF800000000000078001FFC00000000000070000FFC00000000 +000070000FFC000000000000F0000FFE000000000000E00007FE000000000000E00007FE +000000000001E00007FF000000000001C00003FF000000000001C00003FF000000000003 +800003FF800000000003800001FF800000000003800001FF800000000007000001FFC000 +00000007000000FFC00000000007000000FFC0000000000E000000FFE0000000000E0000 +007FE0000000000E0000007FE0000000001C0000003FF0000000001FFFFFFFFFF0000000 +003FFFFFFFFFF8000000003FFFFFFFFFF8000000003FFFFFFFFFF800000000780000001F +FC00000000700000000FFC00000000700000000FFC00000000F00000000FFE00000000E0 +00000007FE00000000E000000007FE00000001C000000007FF00000001C000000003FF00 +000001C000000003FF000000038000000003FF800000038000000001FF80000003800000 +0001FF800000070000000000FFC00000070000000000FFC000000F0000000000FFE00000 +0E00000000007FE000000E00000000007FE000001E00000000007FF000001E0000000000 +3FF000003E00000000003FF000007F00000000003FF80001FF80000000007FFC000FFFE0 +00000001FFFE00FFFFFE0000007FFFFFFEFFFFFE0000007FFFFFFEFFFFFE0000007FFFFF +FEFFFFFE0000007FFFFFFE4F557CD458>65 D<000000001FFC00000300000001FFFFC000 +070000000FFFFFF0000F0000007FFFFFFC000F000001FFF800FF001F000007FF80001FC0 +1F00000FFE000007E03F00003FF8000001F07F00007FE0000000F87F0001FF800000003C +FF0003FF000000001EFF0007FE000000000FFF000FFC0000000007FF001FF80000000007 +FF003FF00000000003FF007FE00000000001FF007FC00000000001FF00FFC00000000000 +FF01FF8000000000007F01FF0000000000007F03FF0000000000003F07FE000000000000 +3F07FE0000000000003F0FFC0000000000001F0FFC0000000000001F1FFC000000000000 +1F1FF80000000000000F1FF80000000000000F3FF80000000000000F3FF8000000000000 +0F3FF0000000000000077FF0000000000000077FF0000000000000077FF0000000000000 +077FF0000000000000007FE000000000000000FFE000000000000000FFE0000000000000 +00FFE000000000000000FFE000000000000000FFE000000000000000FFE0000000000000 +00FFE000000000000000FFE000000000000000FFE000000000000000FFE0000000000000 +00FFE000000000000000FFE000000000000000FFE000000000000000FFE0000000000000 +007FE0000000000000007FF0000000000000007FF0000000000000007FF0000000000000 +007FF0000000000000073FF0000000000000073FF8000000000000073FF8000000000000 +071FF8000000000000071FF8000000000000071FFC0000000000000F0FFC000000000000 +0E0FFC0000000000000E07FE0000000000000E07FE0000000000001E03FF000000000000 +1C01FF0000000000003C01FF8000000000003C00FFC0000000000078007FC00000000000 +78007FE00000000000F0003FF00000000001E0001FF80000000001E0000FFC0000000003 +C00007FE0000000007800003FF000000000F000001FF800000001E0000007FE00000007C +0000003FF8000000F80000000FFE000003F000000007FF80000FE000000001FFF800FF80 +000000007FFFFFFE00000000000FFFFFF8000000000001FFFFE00000000000001FFE0000 +0048567AD355>67 DI73 D76 +D80 D<00003FF00003000001 +FFFF0007000007FFFFC00700001FFFFFF00F00007FE00FF81F0000FF0000FE1F0001FC00 +003F3F0003F800001FBF0007F000000FFF000FE0000003FF001FC0000003FF001F800000 +01FF003F80000000FF003F000000007F007F000000007F007F000000003F007E00000000 +3F007E000000001F00FE000000001F00FE000000001F00FE000000000F00FE000000000F +00FE000000000F00FF000000000F00FF000000000700FF800000000700FF800000000700 +FFC000000007007FC000000000007FE000000000007FF000000000003FFC00000000003F +FE00000000001FFF80000000001FFFF8000000000FFFFF8000000007FFFFF800000007FF +FFFF80000003FFFFFFF0000001FFFFFFFE0000007FFFFFFF0000003FFFFFFFC000000FFF +FFFFE0000003FFFFFFF80000007FFFFFFC0000000FFFFFFC00000000FFFFFE000000000F +FFFF0000000000FFFF80000000001FFF800000000007FFC00000000001FFC00000000000 +FFC000000000007FE000000000007FE000000000003FE000000000001FF000000000001F +F0E0000000000FF0E0000000000FF0E0000000000FF0E00000000007F0E00000000007F0 +E00000000007F0F00000000007F0F00000000007F0F00000000007F0F00000000007E0F8 +0000000007E0F8000000000FE0FC000000000FE0FC000000000FC0FE000000001FC0FF00 +0000001F80FF800000003F80FFC00000003F00FFE00000007E00FFF0000000FE00FCFC00 +0001FC00FC7F000003F800F83FC0000FF000F80FFE007FC000F003FFFFFF8000E000FFFF +FE0000E0003FFFF80000C00001FFC0000034567AD341>83 D<3FFFFFFFFFFFFFFFFFC03F +FFFFFFFFFFFFFFFFC03FFFFFFFFFFFFFFFFFC03FFFFFFFFFFFFFFFFFC03FFE0000FFF000 +07FFC03FF000007FE00000FFC03FC000007FE000003FC07F0000007FE000000FE07E0000 +007FE0000007E07C0000007FE0000003E07C0000007FE0000003E0780000007FE0000001 +E0780000007FE0000001E0780000007FE0000001E0780000007FE0000001E0700000007F +E0000000E0700000007FE0000000E0700000007FE0000000E0700000007FE0000000E070 +0000007FE0000000E0F00000007FE0000000F0E00000007FE000000070E00000007FE000 +000070E00000007FE000000070E00000007FE000000070E00000007FE000000070E00000 +007FE000000070000000007FE000000000000000007FE000000000000000007FE0000000 +00000000007FE000000000000000007FE000000000000000007FE000000000000000007F +E000000000000000007FE000000000000000007FE000000000000000007FE00000000000 +0000007FE000000000000000007FE000000000000000007FE000000000000000007FE000 +000000000000007FE000000000000000007FE000000000000000007FE000000000000000 +007FE000000000000000007FE000000000000000007FE000000000000000007FE0000000 +00000000007FE000000000000000007FE000000000000000007FE000000000000000007F +E000000000000000007FE000000000000000007FE000000000000000007FE00000000000 +0000007FE000000000000000007FE000000000000000007FE000000000000000007FE000 +000000000000007FE000000000000000007FE000000000000000007FE000000000000000 +007FE000000000000000007FE000000000000000007FE000000000000000007FE0000000 +00000000007FE000000000000000007FE000000000000000007FE000000000000000007F +E000000000000000007FE000000000000000007FE000000000000000007FE00000000000 +0000007FE000000000000000007FE00000000000000000FFF00000000000000003FFFC00 +00000000007FFFFFFFFFE0000000007FFFFFFFFFE0000000007FFFFFFFFFE0000000007F +FFFFFFFFE000004C517CD055>II<0000FF +C0000000000FFFF8000000003FFFFE00000000FF00FF80000001F0003FE0000003C0000F +F0000007E00007F8000007F80003FC00000FF80003FE00000FFC0001FE00000FFC0000FF +00000FFC0000FF00000FFC0000FF00000FFC00007F800007F800007F800001E000007F80 +00000000007F8000000000007F8000000000007F8000000000007F8000000000007F8000 +000000007F80000000003FFF800000000FFFFF80000000FFFC7F80000007FF007F800000 +1FF0007F8000007FC0007F800001FF00007F800003FC00007F800007F800007F80000FF0 +00007F80001FE000007F80003FE000007F80003FC000007F80007F8000007F80007F8000 +007F8070FF8000007F8070FF0000007F8070FF0000007F8070FF000000FF8070FF000000 +FF8070FF000000FF8070FF000001FF8070FF800001BF80707F800003BF80707FC000073F +80703FE0000F1FC0E01FF0001E1FC0E00FF8003C0FE1C007FE01F00FFFC001FFFFE007FF +80007FFF8003FE000007FC0000F80034367BB43B>97 D<007F800000000000FFFF800000 +000000FFFF800000000000FFFF800000000000FFFF80000000000003FF80000000000000 +FF800000000000007F800000000000007F800000000000007F800000000000007F800000 +000000007F800000000000007F800000000000007F800000000000007F80000000000000 +7F800000000000007F800000000000007F800000000000007F800000000000007F800000 +000000007F800000000000007F800000000000007F800000000000007F80000000000000 +7F800000000000007F800000000000007F800000000000007F800000000000007F800000 +000000007F800000000000007F800000000000007F8007FC000000007F807FFF80000000 +7F81FFFFE00000007F87F00FF80000007F8F8001FC0000007F9E0000FF0000007FBC0000 +7F8000007FF800003FC000007FF000001FE000007FE000000FF000007FC0000007F00000 +7FC0000007F800007F80000003FC00007F80000003FC00007F80000003FE00007F800000 +01FE00007F80000001FE00007F80000001FF00007F80000001FF00007F80000000FF0000 +7F80000000FF00007F80000000FF80007F80000000FF80007F80000000FF80007F800000 +00FF80007F80000000FF80007F80000000FF80007F80000000FF80007F80000000FF8000 +7F80000000FF80007F80000000FF80007F80000000FF80007F80000000FF00007F800000 +01FF00007F80000001FF00007F80000001FF00007F80000001FE00007F80000001FE0000 +7F80000003FC00007F80000003FC00007F80000007F800007FC0000007F800007FC00000 +0FF000007FE000000FE000007FF000001FC000007E7800003F8000007E3C00007F000000 +7C1E0001FE0000007C0F0003FC0000007807E01FF00000007801FFFFC000000070007FFF +0000000000000FF800000039547DD241>I<00000FFE000000007FFFE0000001FFFFF800 +0007F801FE00001FE0001F00003F80000780007F00000FC000FE00003FC001FC00003FE0 +03FC00007FE007F800007FE00FF000007FE00FF000007FE01FE000007FE01FE000003FC0 +3FE000000F003FC0000000003FC0000000007FC0000000007FC0000000007FC000000000 +7F8000000000FF8000000000FF8000000000FF8000000000FF8000000000FF8000000000 +FF8000000000FF8000000000FF8000000000FF8000000000FF8000000000FF8000000000 +7F80000000007FC0000000007FC0000000007FC0000000003FC0000000003FE000000070 +1FE0000000701FF0000000F00FF0000000E00FF8000001E007F8000001E003FC000003C0 +03FE0000038001FF0000078000FF80000F00003FC0001E00001FE0007C000007FC03F000 +0003FFFFE00000007FFF800000000FF800002C367CB434>I<0000000000FF0000000000 +01FFFF000000000001FFFF000000000001FFFF000000000001FFFF00000000000007FF00 +000000000001FF00000000000000FF00000000000000FF00000000000000FF0000000000 +0000FF00000000000000FF00000000000000FF00000000000000FF00000000000000FF00 +000000000000FF00000000000000FF00000000000000FF00000000000000FF0000000000 +0000FF00000000000000FF00000000000000FF00000000000000FF00000000000000FF00 +000000000000FF00000000000000FF00000000000000FF00000000000000FF0000000000 +0000FF00000000000000FF00000000000000FF000000000FF800FF000000007FFF00FF00 +000001FFFFE0FF00000007FC03F0FF0000001FE0007CFF0000003FC0003EFF0000007F00 +000FFF000000FE000007FF000001FC000003FF000003F8000003FF000007F8000001FF00 +000FF0000000FF00000FF0000000FF00001FE0000000FF00001FE0000000FF00003FC000 +0000FF00003FC0000000FF00007FC0000000FF00007FC0000000FF00007FC0000000FF00 +007F80000000FF0000FF80000000FF0000FF80000000FF0000FF80000000FF0000FF8000 +0000FF0000FF80000000FF0000FF80000000FF0000FF80000000FF0000FF80000000FF00 +00FF80000000FF0000FF80000000FF0000FF80000000FF00007F80000000FF00007F8000 +0000FF00007FC0000000FF00007FC0000000FF00003FC0000000FF00003FC0000000FF00 +003FE0000000FF00001FE0000000FF00001FE0000000FF00000FF0000001FF000007F000 +0003FF000007F8000003FF000003FC000007FF000001FE00000FFF000000FF00001EFF80 +00007F80007CFFE000001FC000F8FFFF80000FF807E0FFFF800003FFFF80FFFF800000FF +FE00FFFF8000001FF000FF000039547CD241>I<00000FF800000000FFFF00000003FFFF +C000000FF80FF000001FC003FC00007F8001FE0000FF0000FF0001FE00007F8003FC0000 +3F8003F800001FC007F000001FC00FF000000FE00FE000000FE01FE000000FF01FE00000 +07F03FC0000007F03FC0000007F07FC0000007F87FC0000007F87F80000007F87F800000 +03F8FF80000003F8FFFFFFFFFFF8FFFFFFFFFFF8FFFFFFFFFFF8FF8000000000FF800000 +0000FF8000000000FF8000000000FF8000000000FF8000000000FF8000000000FF800000 +00007F80000000007FC0000000007FC0000000003FC0000000003FC0000000003FE00000 +00381FE0000000381FE0000000780FF00000007007F0000000F007F8000000E003FC0000 +01E001FE000003C000FF00000380007F80000F80003FC0001F00000FF0003C000007FE01 +F8000001FFFFE00000007FFF8000000007FC00002D367DB434>I<0000007F00000003FF +E000000FFFF000003FC0F800007F01FC0001FE03FE0003FC07FE0003F807FE0007F807FE +000FF007FE000FF007FE001FE003FC001FE001F8001FE00000003FC00000003FC0000000 +3FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003F +C00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC0 +0000003FC00000003FC00000FFFFFFFE00FFFFFFFE00FFFFFFFE00FFFFFFFE00003FC000 +00003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000 +003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC0000000 +3FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003F +C00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC0 +0000003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC000 +00003FC00000003FC00000003FC00000003FC00000003FE0000000FFF000007FFFFFF800 +7FFFFFF8007FFFFFF8007FFFFFF80027547DD324>I<00000000001FC000003FE000FFE0 +0001FFFC03FFF00007FFFF07E1F8001FE03FCF01F8003F800FFC03F8007F0007F801F800 +FE0003F801F001FC0001FC004003FC0001FE000003F80000FE000007F80000FF000007F8 +0000FF000007F000007F00000FF000007F80000FF000007F80000FF000007F80000FF000 +007F80000FF000007F80000FF000007F80000FF000007F80000FF000007F800007F00000 +7F000007F80000FF000007F80000FF000003F80000FE000003FC0001FE000001FC0001FC +000000FE0003F80000007F0007F00000007F800FE0000000FFE03FC0000001C7FFFF0000 +0001C1FFFC00000003803FE0000000038000000000000380000000000003800000000000 +038000000000000380000000000003C0000000000003C0000000000003E0000000000003 +F0000000000003F8000000000001FFFFFFE0000001FFFFFFFF000000FFFFFFFFC00000FF +FFFFFFF000003FFFFFFFFC00003FFFFFFFFE0000FFFFFFFFFF0003F800001FFF800FE000 +0001FFC01FC00000007FC03F800000001FE03F000000000FE07E000000000FE07E000000 +0007F0FE0000000007F0FC0000000003F0FC0000000003F0FC0000000003F0FC00000000 +03F0FC0000000003F0FE0000000007F07E0000000007E07F000000000FE03F800000001F +C01FC00000003F800FE00000007F0007F0000000FE0003FC000003FC0000FF00000FF000 +003FF000FFC000000FFFFFFF00000001FFFFF8000000001FFF800000354E7DB43B>I<00 +7F800000000000FFFF800000000000FFFF800000000000FFFF800000000000FFFF800000 +00000003FF80000000000000FF800000000000007F800000000000007F80000000000000 +7F800000000000007F800000000000007F800000000000007F800000000000007F800000 +000000007F800000000000007F800000000000007F800000000000007F80000000000000 +7F800000000000007F800000000000007F800000000000007F800000000000007F800000 +000000007F800000000000007F800000000000007F800000000000007F80000000000000 +7F800000000000007F800000000000007F800000000000007F800000000000007F8007FC +000000007F803FFF800000007F80FFFFE00000007F81F00FF80000007F83C007FC000000 +7F870003FE0000007F8E0001FE0000007F9C0000FF0000007FB80000FF0000007FB00000 +FF0000007FF000007F8000007FE000007F8000007FE000007F8000007FC000007F800000 +7FC000007F8000007FC000007F8000007F8000007F8000007F8000007F8000007F800000 +7F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F800000 +7F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F800000 +7F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F800000 +7F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F800000 +7F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F800000 +7F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F800000 +7F8000007F8000007F800001FFE00001FFE000FFFFFFC0FFFFFFC0FFFFFFC0FFFFFFC0FF +FFFFC0FFFFFFC0FFFFFFC0FFFFFFC03A537CD241>I<0078000001FE000003FF000007FF +800007FF800007FF800007FF800007FF800007FF800003FF000001FE0000007800000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000007F8000FFFF8000FFFF +8000FFFF8000FFFF800003FF800000FF8000007F8000007F8000007F8000007F8000007F +8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F +8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F +8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F +8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F800001FF +E000FFFFFF80FFFFFF80FFFFFF80FFFFFF8019507CCF21>I<0000078000001FE000003F +F000007FF800007FF800007FF800007FF800007FF800007FF800003FF000001FE0000007 +800000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000FF8001FFF +F8001FFFF8001FFFF8001FFFF800003FF800000FF800000FF8000007F8000007F8000007 +F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007 +F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007 +F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007 +F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007 +F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007 +F8000007F8000007F8000007F8000007F8000007F8000007F80C0007F83F0007F07F800F +F0FFC00FF0FFC00FE0FFC01FE0FFC01FC0FFC03F807F803F807F007F003F00FC001FFFF8 +0007FFE00000FF00001D6885CF24>I<007F8000FFFF8000FFFF8000FFFF8000FFFF8000 +03FF800000FF8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000 +007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000 +007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000 +007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000 +007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000 +007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000 +007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000 +007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000 +007F800001FFE000FFFFFFC0FFFFFFC0FFFFFFC0FFFFFFC01A537CD221>108 +D<00FF0007FE000003FF000000FFFF001FFFC0000FFFE00000FFFF007FFFF0003FFFF800 +00FFFF01F80FFC00FC07FE0000FFFF03C003FE01E001FF000003FF070001FE038000FF00 +0000FF0E0000FF0700007F8000007F1C00007F8E00003FC000007F3800007F9C00003FC0 +00007F3800007F9C00003FC000007F7000003FF800001FE000007F6000003FF000001FE0 +00007FE000003FF000001FE000007FC000003FE000001FE000007FC000003FE000001FE0 +00007FC000003FE000001FE000007F8000003FC000001FE000007F8000003FC000001FE0 +00007F8000003FC000001FE000007F8000003FC000001FE000007F8000003FC000001FE0 +00007F8000003FC000001FE000007F8000003FC000001FE000007F8000003FC000001FE0 +00007F8000003FC000001FE000007F8000003FC000001FE000007F8000003FC000001FE0 +00007F8000003FC000001FE000007F8000003FC000001FE000007F8000003FC000001FE0 +00007F8000003FC000001FE000007F8000003FC000001FE000007F8000003FC000001FE0 +00007F8000003FC000001FE000007F8000003FC000001FE000007F8000003FC000001FE0 +00007F8000003FC000001FE000007F8000003FC000001FE000007F8000003FC000001FE0 +00007F8000003FC000001FE000007F8000003FC000001FE000007F8000003FC000001FE0 +00007F8000003FC000001FE000007F8000003FC000001FE000007F8000003FC000001FE0 +00007F8000003FC000001FE000007F8000003FC000001FE00001FFE00000FFF000007FF8 +00FFFFFFC07FFFFFE03FFFFFF0FFFFFFC07FFFFFE03FFFFFF0FFFFFFC07FFFFFE03FFFFF +F0FFFFFFC07FFFFFE03FFFFFF05C347CB363>I<00FF0007FC000000FFFF003FFF800000 +FFFF00FFFFE00000FFFF01F00FF80000FFFF03C007FC000003FF070003FE000000FF0E00 +01FE0000007F1C0000FF0000007F380000FF0000007F300000FF0000007F7000007F8000 +007F6000007F8000007FE000007F8000007FC000007F8000007FC000007F8000007FC000 +007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000 +007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000 +007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000 +007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000 +007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000 +007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000 +007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000 +01FFE00001FFE000FFFFFFC0FFFFFFC0FFFFFFC0FFFFFFC0FFFFFFC0FFFFFFC0FFFFFFC0 +FFFFFFC03A347CB341>I<00000FFC00000000007FFF8000000001FFFFE000000007F807 +F80000001FE001FE0000003F80007F0000007E00001F800000FC00000FC00001F8000007 +E00003F8000007F00007F0000003F80007F0000003F8000FE0000001FC000FE0000001FC +001FC0000000FE001FC0000000FE003FC0000000FF003FC0000000FF007F800000007F80 +7F800000007F807F800000007F807F800000007F80FF800000007FC0FF800000007FC0FF +800000007FC0FF800000007FC0FF800000007FC0FF800000007FC0FF800000007FC0FF80 +0000007FC0FF800000007FC0FF800000007FC0FF800000007FC07F800000007F807F8000 +00007F807FC0000000FF807FC0000000FF803FC0000000FF003FC0000000FF001FC00000 +00FE001FE0000001FE000FE0000001FC000FF0000003FC0007F0000003F80003F8000007 +F00001FC00000FE00001FC00000FE000007F00003F8000003F80007F0000001FE001FE00 +000007F807F800000003FFFFF0000000007FFF80000000000FFC00000032367CB43B>I< +007F8007FC000000FFFF807FFF800000FFFF81FFFFE00000FFFF87F00FF80000FFFF8F80 +03FC000001FF9E0001FF000000FFBC0000FF8000007FF800007FC000007FF000003FE000 +007FE000001FF000007FC000000FF000007FC000000FF800007F80000007FC00007F8000 +0007FC00007F80000003FE00007F80000003FE00007F80000003FE00007F80000001FF00 +007F80000001FF00007F80000001FF00007F80000001FF00007F80000000FF80007F8000 +0000FF80007F80000000FF80007F80000000FF80007F80000000FF80007F80000000FF80 +007F80000000FF80007F80000000FF80007F80000000FF80007F80000000FF80007F8000 +0000FF80007F80000001FF00007F80000001FF00007F80000001FF00007F80000001FF00 +007F80000003FE00007F80000003FE00007F80000007FC00007F80000007FC00007F8000 +0007F800007FC000000FF800007FC000001FF000007FE000001FE000007FF000003FC000 +007FF800007F8000007FBC0000FF0000007F9E0001FE0000007F8F0007FC0000007F87E0 +1FF00000007F81FFFFC00000007F807FFF000000007F800FF8000000007F800000000000 +007F800000000000007F800000000000007F800000000000007F800000000000007F8000 +00000000007F800000000000007F800000000000007F800000000000007F800000000000 +007F800000000000007F800000000000007F800000000000007F800000000000007F8000 +00000000007F800000000000007F80000000000001FFE00000000000FFFFFFC000000000 +FFFFFFC000000000FFFFFFC000000000FFFFFFC000000000394B7DB341>I<00FF001F80 +FFFF007FF0FFFF01FFF8FFFF03E1FCFFFF0783FE03FF0F07FE00FF1E07FE007F1C07FE00 +7F3807FE007F3007FE007F7003FC007F6000F0007F600000007FE00000007FC00000007F +C00000007FC00000007FC00000007F800000007F800000007F800000007F800000007F80 +0000007F800000007F800000007F800000007F800000007F800000007F800000007F8000 +00007F800000007F800000007F800000007F800000007F800000007F800000007F800000 +007F800000007F800000007F800000007F800000007F800000007F800000007F80000000 +7F800000007F800000007FC0000001FFE00000FFFFFFF000FFFFFFF000FFFFFFF000FFFF +FFF00027347DB32E>114 D<0007FE00C0007FFF81C001FFFFE3C007F803FFC00FC0007F +C01F80003FC03F00001FC03E00000FC07E000007C07C000007C0FC000003C0FC000003C0 +FC000003C0FC000001C0FE000001C0FE000001C0FF000001C0FF800001C07FC00000007F +F00000007FFF0000003FFFF800001FFFFF80000FFFFFE00007FFFFF80003FFFFFE0000FF +FFFF00003FFFFF800007FFFFC000003FFFE0000003FFE00000007FF00000001FF0E00000 +0FF0E0000007F8E0000007F8F0000003F8F0000003F8F0000001F8F8000001F8F8000001 +F8F8000001F8FC000001F0FC000001F0FE000003F0FF000003E0FF000007E0FF80000FC0 +FFC0001F80FDF0003F00F8FC01FE00F07FFFF800E01FFFE000C003FF000025367CB42E> +I<0001C000000001C000000001C000000001C000000001C000000001C000000001C00000 +0003C000000003C000000003C000000003C000000007C000000007C000000007C0000000 +0FC00000000FC00000001FC00000001FC00000003FC00000007FC0000000FFC0000001FF +C0000003FFC000001FFFFFFFE0FFFFFFFFE0FFFFFFFFE0FFFFFFFFE0003FC00000003FC0 +0000003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC000 +00003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000 +003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC0000000 +3FC00000003FC00000003FC00038003FC00038003FC00038003FC00038003FC00038003F +C00038003FC00038003FC00038003FC00038003FC00038003FC00038003FC00038003FE0 +0078001FE00070001FE00070000FF000F0000FF000E00007F801E00003FC03C00001FE07 +800000FFFF0000003FFC00000007F000254B7EC92E>I<007F8000007F8000FFFF8000FF +FF8000FFFF8000FFFF8000FFFF8000FFFF8000FFFF8000FFFF800003FF800003FF800000 +FF800000FF8000007F8000007F8000007F8000007F8000007F8000007F8000007F800000 +7F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F800000 +7F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F800000 +7F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F800000 +7F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F800000 +7F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F800000 +7F8000007F8000007F8000007F8000007F8000007F8000007F8000007F8000007F800000 +FF8000007F800000FF8000007F800000FF8000007F800001FF8000007F800001FF800000 +7F800001FF8000003F800003FF8000003FC000077F8000003FC000077F8000001FC0000E +7FC000000FE0001C7FF000000FF000787FFFC00003FC01F07FFFC00001FFFFE07FFFC000 +007FFF807FFFC0000007FC007F80003A357CB341>III< +FFFFFF0003FFFF80FFFFFF0003FFFF80FFFFFF0003FFFF80FFFFFF0003FFFF8003FFF000 +007FF80000FFC000003FE000007FC000001F8000007FC000001F0000003FC000001F0000 +003FE000001E0000001FE000001E0000001FE000001C0000001FF000003C0000000FF000 +00380000000FF800003800000007F800007000000007F800007000000007FC0000F00000 +0003FC0000E000000003FE0000E000000001FE0001C000000001FE0001C000000001FF00 +03C000000000FF00038000000000FF800380000000007F800700000000007F8007000000 +00007FC00F00000000003FC00E00000000003FE00E00000000001FE01C00000000001FE0 +1C00000000001FF03C00000000000FF03800000000000FF838000000000007F870000000 +000007F870000000000007FCF0000000000003FCE0000000000003FEE0000000000001FF +C0000000000001FFC0000000000001FFC0000000000000FF80000000000000FF80000000 +0000007F000000000000007F000000000000007F000000000000003E000000000000003E +000000000000001C000000000000001C000000000000003C000000000000003800000000 +000000780000000000000070000000000000007000000000000000F000000000000000E0 +00000000000001E000000000000001C000000000000001C0000000003E00038000000000 +7F00038000000000FF80070000000000FF80070000000000FF800E0000000000FF801E00 +00000000FF003C00000000007F007800000000007C00F000000000003F03E00000000000 +1FFFC0000000000007FF80000000000001FC000000000000394B7EB23E>121 +D<0F00003C003FC000FF007FC000FF80FFE001FFC0FFE001FFC0FFE001FFC0FFE001FFC0 +FFE001FFC07FC000FF803FC000FF000F00003C00220B74CF3B>127 +D E /Ft 56 128 df45 D<0000000FFF00000000000001FF +FFF800000000000FFFFFFF00000000003FFFFFFFC000000000FFFFFFFFF000000001FFFC +03FFF800000007FFF000FFFE0000000FFFC0003FFF0000001FFF00000FFF8000003FFE00 +0007FFC000007FFE000007FFE00000FFFC000003FFF00000FFF8000001FFF00001FFF800 +0001FFF80003FFF0000000FFFC0003FFF0000000FFFC0007FFF0000000FFFE0007FFE000 +00007FFE000FFFE00000007FFF000FFFE00000007FFF000FFFE00000007FFF001FFFE000 +00007FFF801FFFE00000007FFF801FFFE00000007FFF803FFFE00000007FFFC03FFFC000 +00003FFFC03FFFC00000003FFFC03FFFC00000003FFFC07FFFC00000003FFFE07FFFC000 +00003FFFE07FFFC00000003FFFE07FFFC00000003FFFE07FFFC00000003FFFE07FFFC000 +00003FFFE07FFFC00000003FFFE0FFFFC00000003FFFF0FFFFC00000003FFFF0FFFFC000 +00003FFFF0FFFFC00000003FFFF0FFFFC00000003FFFF0FFFFC00000003FFFF0FFFFC000 +00003FFFF0FFFFC00000003FFFF0FFFFC00000003FFFF0FFFFC00000003FFFF0FFFFC000 +00003FFFF0FFFFC00000003FFFF0FFFFC00000003FFFF0FFFFC00000003FFFF0FFFFC000 +00003FFFF0FFFFC00000003FFFF0FFFFC00000003FFFF0FFFFC00000003FFFF0FFFFC000 +00003FFFF0FFFFC00000003FFFF0FFFFC00000003FFFF0FFFFC00000003FFFF0FFFFC000 +00003FFFF0FFFFC00000003FFFF0FFFFC00000003FFFF0FFFFC00000003FFFF07FFFC000 +00003FFFE07FFFC00000003FFFE07FFFC00000003FFFE07FFFC00000003FFFE07FFFC000 +00003FFFE07FFFC00000003FFFE07FFFC00000003FFFE03FFFC00000003FFFC03FFFC000 +00003FFFC03FFFE00000007FFFC03FFFE00000007FFFC01FFFE00000007FFF801FFFE000 +00007FFF801FFFE00000007FFF800FFFE00000007FFF000FFFE00000007FFF000FFFE000 +00007FFF0007FFF0000000FFFE0007FFF0000000FFFE0003FFF0000000FFFC0003FFF000 +0000FFFC0001FFF8000001FFF80000FFF8000001FFF00000FFFC000003FFF000007FFE00 +0007FFE000003FFF00000FFFC000001FFF80001FFF8000000FFFC0003FFF00000007FFF0 +00FFFE00000003FFFC03FFFC00000000FFFFFFFFF0000000003FFFFFFFC0000000000FFF +FFFF000000000001FFFFF80000000000001FFF8000000044607ADD51>48 +D<00000000F000000000000001F800000000000007F80000000000001FF8000000000000 +3FF8000000000001FFF8000000000007FFF800000000007FFFF8000000000FFFFFF80000 +00FFFFFFFFF8000000FFFFFFFFF8000000FFFFFFFFF8000000FFFFFFFFF8000000FFFF87 +FFF8000000FFF007FFF8000000000007FFF8000000000007FFF8000000000007FFF80000 +00000007FFF8000000000007FFF8000000000007FFF8000000000007FFF8000000000007 +FFF8000000000007FFF8000000000007FFF8000000000007FFF8000000000007FFF80000 +00000007FFF8000000000007FFF8000000000007FFF8000000000007FFF8000000000007 +FFF8000000000007FFF8000000000007FFF8000000000007FFF8000000000007FFF80000 +00000007FFF8000000000007FFF8000000000007FFF8000000000007FFF8000000000007 +FFF8000000000007FFF8000000000007FFF8000000000007FFF8000000000007FFF80000 +00000007FFF8000000000007FFF8000000000007FFF8000000000007FFF8000000000007 +FFF8000000000007FFF8000000000007FFF8000000000007FFF8000000000007FFF80000 +00000007FFF8000000000007FFF8000000000007FFF8000000000007FFF8000000000007 +FFF8000000000007FFF8000000000007FFF8000000000007FFF8000000000007FFF80000 +00000007FFF8000000000007FFF8000000000007FFF8000000000007FFF8000000000007 +FFF8000000000007FFF8000000000007FFF8000000000007FFF8000000000007FFF80000 +00000007FFF8000000000007FFF8000000000007FFF8000000000007FFF8000000000007 +FFF8000000000007FFF8000000000007FFF8000000000007FFF8000000000007FFF80000 +00000007FFF8000000000007FFF8000000000007FFF8000000000007FFF8000000000007 +FFF8000000000007FFF8000000000007FFF80000007FFFFFFFFFFFFF807FFFFFFFFFFFFF +807FFFFFFFFFFFFF807FFFFFFFFFFFFF807FFFFFFFFFFFFF807FFFFFFFFFFFFF80395E74 +DD51>I<000001FFF800000000001FFFFFC000000000FFFFFFF800000003FFFFFFFF0000 +000FFFFFFFFFC000003FFFFFFFFFE000007FFC01FFFFF80000FFE0003FFFFC0001FF0000 +0FFFFE0003FE000007FFFF0007F8000003FFFF800FF0000001FFFFC01FE0000000FFFFE0 +3FC00000007FFFF03FFC0000007FFFF87FFE0000003FFFF87FFF0000003FFFFC7FFF8000 +001FFFFCFFFFC000001FFFFEFFFFC000000FFFFEFFFFE000000FFFFEFFFFE000000FFFFE +FFFFE000000FFFFFFFFFE000000FFFFFFFFFE0000007FFFFFFFFE0000007FFFFFFFFE000 +0007FFFF7FFFC0000007FFFF7FFFC0000007FFFF3FFF80000007FFFF1FFF00000007FFFF +07FC0000000FFFFF01F00000000FFFFF00000000000FFFFE00000000000FFFFE00000000 +000FFFFE00000000001FFFFC00000000001FFFFC00000000001FFFF800000000003FFFF8 +00000000003FFFF000000000007FFFE000000000007FFFE00000000000FFFFC000000000 +00FFFF800000000001FFFF000000000003FFFE000000000003FFFC000000000007FFF800 +000000000FFFF000000000000FFFE000000000001FFF8000000000003FFF000000000000 +7FFE000000000000FFFC000000000001FFF0000000000001FFE0000000000003FF800000 +00000007FF0000000000000FFE0000000000001FF80000000000003FF00000000000007F +E0000000000000FFC000003F000001FF8000003F000003FE0000003F000007FC0000003F +00000FF80000007E00001FF00000007E00003FE00000007E00007F800000007E00007F00 +0000007E0000FE00000000FE0001FC00000000FE0003F800000000FE0007F000000001FC +000FC000000007FC001FFFFFFFFFFFFC003FFFFFFFFFFFFC007FFFFFFFFFFFFC00FFFFFF +FFFFFFFC01FFFFFFFFFFFFFC03FFFFFFFFFFFFF807FFFFFFFFFFFFF80FFFFFFFFFFFFFF8 +1FFFFFFFFFFFFFF83FFFFFFFFFFFFFF87FFFFFFFFFFFFFF8FFFFFFFFFFFFFFF8FFFFFFFF +FFFFFFF8FFFFFFFFFFFFFFF0FFFFFFFFFFFFFFF0FFFFFFFFFFFFFFF0FFFFFFFFFFFFFFF0 +405E78DD51>I<000000FFFF0000000000000FFFFFF800000000003FFFFFFF0000000001 +FFFFFFFFC000000003FFFFFFFFF00000000FFFC01FFFFC0000001FFC0007FFFE0000003F +E00001FFFF0000007FC00000FFFF800000FF0000007FFFC00001FE0000007FFFE00003FF +0000003FFFF00003FFC000003FFFF00007FFE000003FFFF80007FFF000001FFFF80007FF +F800001FFFFC000FFFFC00001FFFFC000FFFFC00001FFFFC000FFFFC00001FFFFC000FFF +FC00001FFFFC000FFFFE00001FFFFC000FFFFC00001FFFFC000FFFFC00001FFFFC000FFF +FC00001FFFFC0007FFFC00003FFFFC0007FFF800003FFFF80003FFF000003FFFF80001FF +E000003FFFF80000FFC000003FFFF000001F0000007FFFF00000000000007FFFE0000000 +0000007FFFE0000000000000FFFFC0000000000000FFFF80000000000001FFFF00000000 +000001FFFE00000000000003FFFC00000000000007FFF80000000000000FFFF000000000 +00001FFFE00000000000007FFF8000000000000FFFFE00000000000FFFFFF80000000000 +0FFFFFE000000000000FFFFF0000000000000FFFFFF800000000000FFFFFFF0000000000 +00003FFFE000000000000007FFF800000000000001FFFE00000000000000FFFF00000000 +0000007FFF800000000000003FFFE00000000000003FFFF00000000000001FFFF8000000 +0000001FFFF80000000000000FFFFC0000000000000FFFFE0000000000000FFFFE000000 +0000000FFFFF00000000000007FFFF00000000000007FFFF80000000000007FFFF800000 +00000007FFFF80000000000007FFFFC003FC00000007FFFFC00FFF00000007FFFFC01FFF +80000007FFFFC03FFFC0000007FFFFC07FFFE0000007FFFFC07FFFE0000007FFFFC0FFFF +F0000007FFFFC0FFFFF0000007FFFFC0FFFFF0000007FFFFC0FFFFF0000007FFFF80FFFF +F0000007FFFF80FFFFF0000007FFFF80FFFFF000000FFFFF00FFFFE000000FFFFF007FFF +E000000FFFFF007FFFC000000FFFFE007FFFC000001FFFFE003FFF8000001FFFFC003FFE +0000003FFFF8001FF80000003FFFF0000FF80000007FFFF00007FE000000FFFFE00003FF +800001FFFF800001FFF00007FFFF000000FFFF803FFFFE0000007FFFFFFFFFFC0000001F +FFFFFFFFF000000007FFFFFFFFC000000001FFFFFFFE00000000001FFFFFF00000000000 +01FFFE00000000426079DD51>I<0000000000001F80000000000000003FC00000000000 +00007FC000000000000000FFC000000000000000FFC000000000000001FFC00000000000 +0003FFC000000000000007FFC00000000000000FFFC00000000000000FFFC00000000000 +001FFFC00000000000003FFFC00000000000007FFFC00000000000007FFFC00000000000 +00FFFFC0000000000001FFFFC0000000000003FFFFC0000000000007FFFFC00000000000 +07FFFFC000000000000FFFFFC000000000001FFFFFC000000000003FBFFFC00000000000 +7F3FFFC000000000007F3FFFC00000000000FE3FFFC00000000001FC3FFFC00000000003 +F83FFFC00000000007F03FFFC00000000007F03FFFC0000000000FE03FFFC0000000001F +C03FFFC0000000003F803FFFC0000000003F003FFFC0000000007F003FFFC000000000FE +003FFFC000000001FC003FFFC000000003F8003FFFC000000003F8003FFFC000000007F0 +003FFFC00000000FE0003FFFC00000001FC0003FFFC00000003F80003FFFC00000003F80 +003FFFC00000007F00003FFFC0000000FE00003FFFC0000001FC00003FFFC0000001F800 +003FFFC0000003F800003FFFC0000007F000003FFFC000000FE000003FFFC000001FC000 +003FFFC000001F8000003FFFC000003F8000003FFFC000007F0000003FFFC00000FE0000 +003FFFC00001FC0000003FFFC00001FC0000003FFFC00003F80000003FFFC00007F00000 +003FFFC0000FE00000003FFFC0000FC00000003FFFC0001FC00000003FFFC0003F800000 +003FFFC0007F000000003FFFC000FE000000003FFFC000FFFFFFFFFFFFFFFFFFFFFFFFFF +FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF +FFFFFFFFFF00000000007FFFC00000000000007FFFC00000000000007FFFC00000000000 +007FFFC00000000000007FFFC00000000000007FFFC00000000000007FFFC00000000000 +007FFFC00000000000007FFFC00000000000007FFFC00000000000007FFFC00000000000 +007FFFC00000000000007FFFC00000000000007FFFC00000000000007FFFC00000000000 +007FFFC00000000000007FFFC0000000007FFFFFFFFFFF0000007FFFFFFFFFFF0000007F +FFFFFFFFFF0000007FFFFFFFFFFF0000007FFFFFFFFFFF0000007FFFFFFFFFFF485E7CDD +51>I<00C00000000001C001F8000000000FC001FF000000007FC001FFF0000007FFC001 +FFFF8000FFFFC001FFFFFFFFFFFF8001FFFFFFFFFFFF0001FFFFFFFFFFFE0001FFFFFFFF +FFFC0001FFFFFFFFFFF80001FFFFFFFFFFF00001FFFFFFFFFFE00001FFFFFFFFFFC00001 +FFFFFFFFFF800001FFFFFFFFFF000001FFFFFFFFFC000001FFFFFFFFF8000001FFFFFFFF +E0000001FFFFFFFF80000001FFFFFFFC00000001FFFFFFE000000001FC3FFC0000000001 +FC00000000000001FC00000000000001FC00000000000001FC00000000000001FC000000 +00000001FC00000000000001FC00000000000001FC00000000000001FC00000000000001 +FC00000000000001FC00000000000001FC00000000000001FC00000000000001FC003FFE +00000001FC03FFFFF0000001FC0FFFFFFE000001FC3FFFFFFF800001FCFFFFFFFFE00001 +FDFFE00FFFF00001FFFE0003FFF80001FFF80000FFFC0001FFE000007FFF0001FF800000 +3FFF8001FF0000003FFF8001FE0000001FFFC001FC0000001FFFE001FC0000000FFFF000 +F00000000FFFF000000000000FFFF800000000000FFFF800000000000FFFFC0000000000 +07FFFC000000000007FFFC000000000007FFFE000000000007FFFE000000000007FFFE00 +0000000007FFFE000000000007FFFF000000000007FFFF000000000007FFFF03F0000000 +07FFFF0FFC00000007FFFF1FFE00000007FFFF3FFF00000007FFFF7FFF80000007FFFF7F +FF80000007FFFFFFFFC0000007FFFFFFFFC0000007FFFFFFFFC0000007FFFFFFFFC00000 +07FFFEFFFFC0000007FFFEFFFFC0000007FFFEFFFF80000007FFFEFFFF8000000FFFFC7F +FF0000000FFFFC7FFE0000000FFFFC7FFC0000000FFFF83FF00000000FFFF83F80000000 +1FFFF03FC00000001FFFE01FC00000003FFFE00FE00000003FFFC00FF00000007FFF8007 +FC000000FFFF0003FE000001FFFE0001FF800007FFFC0000FFE0001FFFF800007FFE00FF +FFF000003FFFFFFFFFC000000FFFFFFFFF00000007FFFFFFFC00000001FFFFFFF0000000 +003FFFFF800000000003FFF0000000406078DD51>I<000000001FFF00000000000003FF +FFE000000000001FFFFFF80000000000FFFFFFFE0000000003FFFFFFFF0000000007FFFC +03FF800000001FFFC0007FC00000003FFF00001FE0000000FFFC00000FF0000001FFF800 +0007F0000003FFF000007FF8000007FFE00000FFF800000FFFC00001FFF800001FFF8000 +03FFFC00003FFF000003FFFC00007FFF000007FFFC00007FFE000007FFFC0000FFFE0000 +07FFFC0001FFFC000007FFFC0001FFFC000007FFFC0003FFFC000007FFFC0003FFF80000 +03FFF80007FFF8000003FFF80007FFF8000001FFF0000FFFF0000000FFE0000FFFF00000 +007FC0001FFFF00000000000001FFFF00000000000001FFFF00000000000003FFFF00000 +000000003FFFF00000000000003FFFF00000000000003FFFE00000000000007FFFE001FF +E00000007FFFE00FFFFE0000007FFFE03FFFFF8000007FFFE07FFFFFE000007FFFE0FFFF +FFF800007FFFE1FE03FFFC0000FFFFE3F0007FFE0000FFFFE7E0003FFF0000FFFFEFC000 +1FFF8000FFFFEF80000FFFC000FFFFFF000007FFE000FFFFFE000007FFF000FFFFFE0000 +03FFF800FFFFFC000003FFFC00FFFFFC000003FFFC00FFFFF8000003FFFE00FFFFF80000 +01FFFE00FFFFF8000001FFFF00FFFFF8000001FFFF00FFFFF0000001FFFF80FFFFF00000 +01FFFF80FFFFF0000001FFFF80FFFFF0000001FFFF80FFFFF0000001FFFF80FFFFE00000 +01FFFFC0FFFFE0000001FFFFC0FFFFE0000001FFFFC07FFFE0000001FFFFC07FFFE00000 +01FFFFC07FFFE0000001FFFFC07FFFE0000001FFFFC07FFFE0000001FFFFC07FFFE00000 +01FFFFC07FFFE0000001FFFFC03FFFE0000001FFFFC03FFFE0000001FFFFC03FFFE00000 +01FFFFC03FFFE0000001FFFFC01FFFE0000001FFFFC01FFFF0000001FFFF801FFFF00000 +01FFFF800FFFF0000001FFFF800FFFF0000001FFFF800FFFF0000001FFFF0007FFF00000 +01FFFF0007FFF0000003FFFE0003FFF0000003FFFE0003FFF8000003FFFC0001FFF80000 +03FFFC0001FFFC000003FFF80000FFFC000007FFF000007FFE000007FFF000003FFE0000 +0FFFE000001FFF00001FFFC000000FFFC0003FFF80000007FFE000FFFF00000003FFFC07 +FFFC00000001FFFFFFFFF800000000FFFFFFFFF0000000003FFFFFFFC0000000000FFFFF +FF000000000001FFFFF80000000000001FFF80000000426079DD51>I<07E00000000000 +00000FE0000000000000000FF0000000000000000FFC000000000000000FFFFC00000000 +00000FFFFFFFFFFFFFFFF80FFFFFFFFFFFFFFFF80FFFFFFFFFFFFFFFF80FFFFFFFFFFFFF +FFF81FFFFFFFFFFFFFFFF81FFFFFFFFFFFFFFFF81FFFFFFFFFFFFFFFF01FFFFFFFFFFFFF +FFE01FFFFFFFFFFFFFFFC01FFFFFFFFFFFFFFF801FFFFFFFFFFFFFFF001FFFFFFFFFFFFF +FF003FFFFFFFFFFFFFFE003FFFFFFFFFFFFFFC003FFFFFFFFFFFFFF8003FFFFFFFFFFFFF +F0003FFFFFFFFFFFFFE0003FE0000000003FE0003F80000000007FC0007F0000000000FF +80007F0000000001FF00007F0000000001FE00007E0000000003FC00007E0000000007FC +00007E000000000FF800007E000000001FF000007E000000003FE00000FC000000003FC0 +0000FC000000007F800000FC00000000FF800000FC00000001FF0000000000000003FE00 +00000000000003FC0000000000000007F8000000000000000FF8000000000000001FF000 +0000000000001FE0000000000000003FE0000000000000007FC000000000000000FFC000 +000000000000FF8000000000000001FF8000000000000001FF0000000000000003FF0000 +000000000007FF0000000000000007FE000000000000000FFE000000000000000FFE0000 +00000000001FFC000000000000001FFC000000000000003FFC000000000000003FFC0000 +00000000007FF8000000000000007FF800000000000000FFF800000000000000FFF80000 +0000000000FFF800000000000001FFF000000000000001FFF000000000000003FFF00000 +0000000003FFF000000000000003FFF000000000000007FFF000000000000007FFF00000 +0000000007FFF000000000000007FFF00000000000000FFFE00000000000000FFFE00000 +000000000FFFE00000000000000FFFE00000000000001FFFE00000000000001FFFE00000 +000000001FFFE00000000000001FFFE00000000000001FFFE00000000000001FFFE00000 +000000003FFFE00000000000003FFFE00000000000003FFFE00000000000003FFFE00000 +000000003FFFE00000000000003FFFE00000000000003FFFE00000000000003FFFE00000 +000000003FFFE00000000000003FFFE00000000000003FFFE00000000000003FFFE00000 +000000003FFFE00000000000001FFFC00000000000001FFFC00000000000000FFF800000 +0000000003FE0000000000000001FC0000000000456377E051>I<0000003FFF80000000 +000003FFFFFC00000000001FFFFFFF80000000007FFFFFFFE000000001FFFFFFFFF80000 +0003FFF007FFFC0000000FFF00007FFE0000001FFC00001FFF0000003FF000000FFF8000 +007FE0000003FFC00000FFC0000003FFE00000FFC0000001FFF00001FF80000000FFF000 +01FF80000000FFF80003FF000000007FF80003FF000000007FF80007FF000000007FFC00 +07FF000000003FFC0007FF000000003FFC000FFF000000003FFC000FFF800000003FFC00 +0FFF800000003FFC000FFF800000003FFC000FFFC00000003FFC000FFFE00000003FFC00 +0FFFF00000007FFC000FFFF80000007FF8000FFFFE0000007FF8000FFFFF8000007FF800 +0FFFFFC00000FFF00007FFFFF00000FFF00007FFFFFC0001FFE00007FFFFFF0003FFC000 +03FFFFFF8003FFC00003FFFFFFE007FF800001FFFFFFF80FFF000001FFFFFFFE1FFE0000 +00FFFFFFFF7FF8000000FFFFFFFFFFF00000007FFFFFFFFFC00000003FFFFFFFFF800000 +001FFFFFFFFE000000000FFFFFFFFF8000000007FFFFFFFFE000000001FFFFFFFFF00000 +0000FFFFFFFFFC000000003FFFFFFFFE000000007FFFFFFFFF00000001FFFFFFFFFF8000 +0007FFFFFFFFFFC000000FFFFFFFFFFFE000003FFE3FFFFFFFF000007FFC0FFFFFFFF800 +00FFF003FFFFFFFC0001FFE000FFFFFFFC0003FFC0007FFFFFFE0007FF80001FFFFFFE00 +0FFF000007FFFFFF000FFF000001FFFFFF001FFE000000FFFFFF803FFE0000003FFFFF80 +3FFC0000000FFFFF807FFC00000007FFFFC07FF800000001FFFFC07FF8000000007FFFC0 +7FF8000000003FFFC0FFF8000000001FFFC0FFF0000000001FFFC0FFF0000000000FFFC0 +FFF00000000007FFC0FFF00000000007FFC0FFF00000000007FFC0FFF00000000003FFC0 +FFF00000000003FFC0FFF00000000003FF80FFF00000000003FF80FFF80000000003FF80 +7FF80000000003FF007FF80000000007FF007FFC0000000007FF003FFC0000000007FE00 +3FFE000000000FFE001FFE000000000FFC001FFF000000001FF8000FFF800000003FF800 +07FFC00000007FF00003FFF0000000FFE00001FFFC000003FFC00000FFFF00001FFF8000 +007FFFF001FFFE0000003FFFFFFFFFFC0000000FFFFFFFFFF000000003FFFFFFFFE00000 +0000FFFFFFFF00000000000FFFFFF80000000000007FFF00000000426079DD51>I<0000 +003FFF00000000000007FFFFF000000000003FFFFFFC0000000000FFFFFFFF0000000003 +FFFFFFFFC000000007FFF807FFE00000000FFFC001FFF80000003FFF80007FFC0000007F +FE00003FFE000000FFFC00001FFF000001FFFC00001FFF800003FFF800000FFF800003FF +F8000007FFC00007FFF0000007FFE0000FFFF0000007FFE0001FFFF0000003FFF0001FFF +F0000003FFF8003FFFF0000003FFF8003FFFE0000003FFF8003FFFE0000003FFFC007FFF +E0000003FFFC007FFFE0000003FFFE007FFFE0000001FFFE007FFFE0000001FFFE00FFFF +E0000001FFFF00FFFFE0000001FFFF00FFFFE0000001FFFF00FFFFE0000001FFFF00FFFF +E0000001FFFF80FFFFE0000001FFFF80FFFFE0000001FFFF80FFFFE0000001FFFF80FFFF +E0000001FFFF80FFFFE0000001FFFF80FFFFE0000001FFFF80FFFFE0000001FFFFC0FFFF +E0000001FFFFC0FFFFE0000001FFFFC0FFFFE0000003FFFFC07FFFE0000003FFFFC07FFF +E0000003FFFFC07FFFE0000003FFFFC07FFFE0000003FFFFC03FFFE0000007FFFFC03FFF +E0000007FFFFC01FFFE0000007FFFFC01FFFF0000007FFFFC00FFFF000000FFFFFC00FFF +F000000FFFFFC007FFF000001FFFFFC003FFF800001FFFFFC001FFF800003FFFFFC000FF +FC00007DFFFFC0007FFE0000FDFFFFC0003FFF0001F9FFFFC0001FFF8003F1FFFFC0000F +FFF01FE1FFFFC00007FFFFFFC1FFFF800001FFFFFF81FFFF8000007FFFFF01FFFF800000 +1FFFFC01FFFF80000001FFE001FFFF80000000000001FFFF80000000000001FFFF000000 +00000001FFFF00000000000003FFFF00000000000003FFFF00000000000003FFFE000000 +00000003FFFE00000000000003FFFE0000FF80000003FFFC0001FFC0000003FFFC0003FF +E0000007FFF80007FFF0000007FFF80007FFF0000007FFF8000FFFF8000007FFF0000FFF +F800000FFFF0000FFFF800000FFFE0000FFFF800000FFFC0000FFFF800001FFFC0000FFF +F800001FFF80000FFFF000003FFF00000FFFF000007FFE000007FFE000007FFE000007FF +C00000FFFC000007FF800003FFF8000003FC000007FFF0000001FE00001FFFC0000001FF +C0007FFF80000000FFF803FFFF000000007FFFFFFFFC000000003FFFFFFFF8000000000F +FFFFFFE00000000003FFFFFF000000000000FFFFF80000000000000FFF80000000004260 +79DD51>I<0000000000000FE00000000000000000000000001FF0000000000000000000 +0000001FF00000000000000000000000003FF80000000000000000000000003FF8000000 +0000000000000000003FF80000000000000000000000007FFC0000000000000000000000 +007FFC000000000000000000000000FFFE000000000000000000000000FFFE0000000000 +00000000000000FFFE000000000000000000000001FFFF000000000000000000000001FF +FF000000000000000000000003FFFF800000000000000000000003FFFF80000000000000 +0000000007FFFFC00000000000000000000007FFFFC00000000000000000000007FFFFC0 +000000000000000000000FFFFFE0000000000000000000000FFFFFE00000000000000000 +00001FFFFFF0000000000000000000001FFFFFF0000000000000000000001FFFFFF00000 +00000000000000003FFFFFF8000000000000000000003FFFFFF800000000000000000000 +7FBFFFFC000000000000000000007FBFFFFC000000000000000000007F1FFFFC00000000 +000000000000FF1FFFFE00000000000000000000FE1FFFFE00000000000000000001FE0F +FFFF00000000000000000001FE0FFFFF00000000000000000001FC07FFFF000000000000 +00000003FC07FFFF80000000000000000003F807FFFF80000000000000000007F803FFFF +C0000000000000000007F803FFFFC0000000000000000007F001FFFFC000000000000000 +000FF001FFFFE000000000000000000FE001FFFFE000000000000000001FE000FFFFF000 +000000000000001FE000FFFFF000000000000000001FC0007FFFF000000000000000003F +C0007FFFF800000000000000003F80007FFFF800000000000000007F80003FFFFC000000 +00000000007F80003FFFFC00000000000000007F00001FFFFC0000000000000000FF0000 +1FFFFE0000000000000000FE00001FFFFE0000000000000001FE00000FFFFF0000000000 +000001FE00000FFFFF0000000000000001FC000007FFFF0000000000000003FC000007FF +FF8000000000000003F8000007FFFF8000000000000007F8000003FFFFC0000000000000 +07F8000003FFFFC000000000000007F0000001FFFFC00000000000000FF0000001FFFFE0 +0000000000000FE0000001FFFFE00000000000001FE0000000FFFFF00000000000001FE0 +000000FFFFF00000000000001FC00000007FFFF00000000000003FC00000007FFFF80000 +000000003F800000007FFFF80000000000007F800000003FFFFC0000000000007FFFFFFF +FFFFFFFC0000000000007FFFFFFFFFFFFFFC000000000000FFFFFFFFFFFFFFFE00000000 +0000FFFFFFFFFFFFFFFE000000000001FFFFFFFFFFFFFFFF000000000001FFFFFFFFFFFF +FFFF000000000001FC0000000007FFFF000000000003FC0000000007FFFF800000000003 +F80000000007FFFF800000000007F80000000003FFFFC00000000007F00000000003FFFF +C00000000007F00000000001FFFFC0000000000FF00000000001FFFFE0000000000FE000 +00000000FFFFE0000000001FE00000000000FFFFF0000000001FC00000000000FFFFF000 +0000001FC000000000007FFFF0000000003FC000000000007FFFF8000000003F80000000 +00003FFFF8000000007F8000000000003FFFFC000000007F0000000000003FFFFC000000 +007F0000000000001FFFFC00000000FF0000000000001FFFFE00000000FE000000000000 +0FFFFE00000001FE0000000000000FFFFF00000001FC0000000000000FFFFF00000003FE +00000000000007FFFF8000001FFFC0000000000007FFFF8000FFFFFFFFE0000000FFFFFF +FFFFFEFFFFFFFFE0000000FFFFFFFFFFFEFFFFFFFFE0000000FFFFFFFFFFFEFFFFFFFFE0 +000000FFFFFFFFFFFEFFFFFFFFE0000000FFFFFFFFFFFEFFFFFFFFE0000000FFFFFFFFFF +FE6F647BE37A>65 DI<000000000001 +FFFF00000003C000000000007FFFFFF0000007C00000000007FFFFFFFE00000FC0000000 +007FFFFFFFFFC0001FC000000001FFFFFFFFFFF0003FC00000000FFFFFFFFFFFFC007FC0 +0000003FFFFFF8007FFE00FFC0000000FFFFFF000007FF81FFC0000001FFFFF0000001FF +C3FFC0000007FFFFC00000007FE7FFC000000FFFFF000000001FFFFFC000003FFFFC0000 +000007FFFFC000007FFFF00000000003FFFFC00000FFFFE00000000001FFFFC00001FFFF +800000000000FFFFC00003FFFF0000000000007FFFC00007FFFE0000000000003FFFC000 +0FFFFC0000000000001FFFC0001FFFF80000000000000FFFC0003FFFF800000000000007 +FFC0003FFFF000000000000007FFC0007FFFE000000000000003FFC000FFFFE000000000 +000003FFC001FFFFC000000000000001FFC001FFFFC000000000000001FFC003FFFF8000 +000000000000FFC003FFFF8000000000000000FFC007FFFF00000000000000007FC007FF +FF00000000000000007FC00FFFFF00000000000000007FC00FFFFE00000000000000003F +C01FFFFE00000000000000003FC01FFFFE00000000000000003FC01FFFFE000000000000 +00003FC03FFFFC00000000000000001FC03FFFFC00000000000000001FC03FFFFC000000 +00000000001FC03FFFFC00000000000000001FC07FFFFC000000000000000000007FFFFC +000000000000000000007FFFF8000000000000000000007FFFF800000000000000000000 +7FFFF800000000000000000000FFFFF800000000000000000000FFFFF800000000000000 +000000FFFFF800000000000000000000FFFFF800000000000000000000FFFFF800000000 +000000000000FFFFF800000000000000000000FFFFF800000000000000000000FFFFF800 +000000000000000000FFFFF800000000000000000000FFFFF800000000000000000000FF +FFF800000000000000000000FFFFF800000000000000000000FFFFF80000000000000000 +0000FFFFF800000000000000000000FFFFF800000000000000000000FFFFF80000000000 +00000000007FFFF8000000000000000000007FFFF8000000000000000000007FFFF80000 +00000000000000007FFFFC000000000000000000007FFFFC000000000000000000003FFF +FC000000000000000000003FFFFC000000000000000000003FFFFC00000000000000000F +C03FFFFC00000000000000000FC01FFFFE00000000000000000FC01FFFFE000000000000 +00000FC01FFFFE00000000000000000FC00FFFFE00000000000000000FC00FFFFF000000 +00000000001FC007FFFF00000000000000001F8007FFFF00000000000000001F8003FFFF +80000000000000001F8003FFFF80000000000000003F8001FFFFC0000000000000003F00 +01FFFFC0000000000000003F0000FFFFE0000000000000007F00007FFFE0000000000000 +00FE00003FFFF000000000000000FE00003FFFF800000000000001FC00001FFFF8000000 +00000001FC00000FFFFC00000000000003F8000007FFFE00000000000007F0000003FFFF +0000000000000FE0000001FFFF8000000000001FE0000000FFFFE000000000003FC00000 +007FFFF00000000000FF800000003FFFFC0000000001FF000000000FFFFF0000000007FE +0000000007FFFFC00000001FF80000000001FFFFF80000007FF00000000000FFFFFF0000 +03FFE000000000003FFFFFF8003FFF8000000000000FFFFFFFFFFFFE00000000000001FF +FFFFFFFFF8000000000000007FFFFFFFFFE00000000000000007FFFFFFFF800000000000 +0000007FFFFFF800000000000000000001FFFF0000000000626677E375>IIII<000000000001FFFF00000003C000000000 +00007FFFFFF0000007C0000000000007FFFFFFFE00000FC000000000007FFFFFFFFFC000 +1FC00000000001FFFFFFFFFFF0003FC0000000000FFFFFFFFFFFFC007FC0000000003FFF +FFF8007FFE00FFC000000000FFFFFF000007FF81FFC000000001FFFFF0000001FFC3FFC0 +00000007FFFFC00000007FE7FFC00000000FFFFF000000001FFFFFC00000003FFFFC0000 +000007FFFFC00000007FFFF00000000003FFFFC0000000FFFFE00000000001FFFFC00000 +01FFFF800000000000FFFFC0000003FFFF0000000000007FFFC0000007FFFE0000000000 +003FFFC000000FFFFC0000000000001FFFC000001FFFF80000000000000FFFC000003FFF +F800000000000007FFC000003FFFF000000000000007FFC000007FFFE000000000000003 +FFC00000FFFFE000000000000003FFC00001FFFFC000000000000001FFC00001FFFFC000 +000000000001FFC00003FFFF8000000000000000FFC00003FFFF8000000000000000FFC0 +0007FFFF00000000000000007FC00007FFFF00000000000000007FC0000FFFFF00000000 +000000007FC0000FFFFE00000000000000003FC0001FFFFE00000000000000003FC0001F +FFFE00000000000000003FC0001FFFFE00000000000000003FC0003FFFFC000000000000 +00001FC0003FFFFC00000000000000001FC0003FFFFC00000000000000001FC0003FFFFC +00000000000000001FC0007FFFFC00000000000000000000007FFFFC0000000000000000 +0000007FFFF800000000000000000000007FFFF800000000000000000000007FFFF80000 +000000000000000000FFFFF80000000000000000000000FFFFF800000000000000000000 +00FFFFF80000000000000000000000FFFFF80000000000000000000000FFFFF800000000 +00000000000000FFFFF80000000000000000000000FFFFF80000000000000000000000FF +FFF80000000000000000000000FFFFF80000000000000000000000FFFFF8000000000000 +0000000000FFFFF80000000000000000000000FFFFF80000000000000000000000FFFFF8 +0000000000000000000000FFFFF80000000000000000000000FFFFF80000000000000000 +000000FFFFF800000000000000000000007FFFF800000000000000000000007FFFF80000 +00001FFFFFFFFFFFF87FFFFC000000001FFFFFFFFFFFF87FFFFC000000001FFFFFFFFFFF +F87FFFFC000000001FFFFFFFFFFFF83FFFFC000000001FFFFFFFFFFFF83FFFFC00000000 +1FFFFFFFFFFFF83FFFFC00000000000001FFFFC0003FFFFC00000000000001FFFFC0001F +FFFE00000000000001FFFFC0001FFFFE00000000000001FFFFC0001FFFFE000000000000 +01FFFFC0000FFFFE00000000000001FFFFC0000FFFFF00000000000001FFFFC00007FFFF +00000000000001FFFFC00007FFFF00000000000001FFFFC00003FFFF80000000000001FF +FFC00003FFFF80000000000001FFFFC00001FFFFC0000000000001FFFFC00001FFFFC000 +0000000001FFFFC00000FFFFE0000000000001FFFFC000007FFFE0000000000001FFFFC0 +00003FFFF0000000000001FFFFC000003FFFF8000000000001FFFFC000001FFFFC000000 +000001FFFFC000000FFFFC000000000001FFFFC0000007FFFE000000000001FFFFC00000 +03FFFF000000000003FFFFC0000001FFFFC00000000003FFFFC0000000FFFFE000000000 +07FFFFC00000007FFFF00000000007FFFFC00000003FFFFC000000000FFFFFC00000000F +FFFF000000001FFFFFC000000007FFFFC00000007FEFFFC000000001FFFFF8000000FFC7 +FFC000000000FFFFFF000007FF83FFC0000000003FFFFFFC003FFF01FFC0000000000FFF +FFFFFFFFFC007FC00000000001FFFFFFFFFFF8001FC000000000007FFFFFFFFFE00007C0 +000000000007FFFFFFFF800001C00000000000007FFFFFF80000000000000000000001FF +FF0000000000006D6677E37F>III<00000FFFFFFFFFFFF000000F +FFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000F +FFFFFFFFFFF00000000001FFFF80000000000001FFFF80000000000001FFFF8000000000 +0001FFFF80000000000001FFFF80000000000001FFFF80000000000001FFFF8000000000 +0001FFFF80000000000001FFFF80000000000001FFFF80000000000001FFFF8000000000 +0001FFFF80000000000001FFFF80000000000001FFFF80000000000001FFFF8000000000 +0001FFFF80000000000001FFFF80000000000001FFFF80000000000001FFFF8000000000 +0001FFFF80000000000001FFFF80000000000001FFFF80000000000001FFFF8000000000 +0001FFFF80000000000001FFFF80000000000001FFFF80000000000001FFFF8000000000 +0001FFFF80000000000001FFFF80000000000001FFFF80000000000001FFFF8000000000 +0001FFFF80000000000001FFFF80000000000001FFFF80000000000001FFFF8000000000 +0001FFFF80000000000001FFFF80000000000001FFFF80000000000001FFFF8000000000 +0001FFFF80000000000001FFFF80000000000001FFFF80000000000001FFFF8000000000 +0001FFFF80000000000001FFFF80000000000001FFFF80000000000001FFFF8000000000 +0001FFFF80000000000001FFFF80000000000001FFFF80000000000001FFFF8000000000 +0001FFFF80000000000001FFFF80000000000001FFFF80000000000001FFFF8000000000 +0001FFFF80000000000001FFFF80000000000001FFFF80000000000001FFFF8000000000 +0001FFFF80000000000001FFFF80000000000001FFFF80000000000001FFFF8000000000 +0001FFFF80000000000001FFFF80000000000001FFFF800003FC000001FFFF80000FFF00 +0001FFFF80001FFF800001FFFF80003FFFC00001FFFF80007FFFE00001FFFF80007FFFE0 +0001FFFF8000FFFFF00001FFFF8000FFFFF00001FFFF8000FFFFF00001FFFF8000FFFFF0 +0001FFFF8000FFFFF00003FFFF8000FFFFF00003FFFF0000FFFFF00003FFFF0000FFFFF0 +0003FFFF00007FFFE00007FFFE00007FFFE00007FFFC00007FFFC0000FFFFC00003FFF00 +000FFFF800001FFE00001FFFF000001FF800003FFFE000000FFE00007FFFC0000007FF80 +00FFFF80000001FFF807FFFE00000000FFFFFFFFFC000000003FFFFFFFF0000000000FFF +FFFFC00000000001FFFFFE0000000000001FFFC00000000044647CE153>I77 D<00000000001FFFE000000000000000000007FFFFFF8000000000000000003FFFFF +FFF00000000000000001FFFFFFFFFE000000000000000FFFFFFFFFFFC00000000000003F +FFFC00FFFFF0000000000000FFFFC0000FFFFC000000000003FFFE000001FFFF00000000 +0007FFF80000007FFF80000000001FFFF00000003FFFE0000000003FFFC00000000FFFF0 +000000007FFF8000000007FFF800000000FFFF0000000003FFFC00000003FFFE00000000 +01FFFF00000007FFFC0000000000FFFF80000007FFF800000000007FFF8000000FFFF000 +000000003FFFC000001FFFF000000000003FFFE000003FFFE000000000001FFFF000007F +FFE000000000001FFFF800007FFFC000000000000FFFF80000FFFFC000000000000FFFFC +0001FFFF80000000000007FFFE0001FFFF80000000000007FFFE0003FFFF000000000000 +03FFFF0003FFFF00000000000003FFFF0007FFFF00000000000003FFFF8007FFFE000000 +00000001FFFF800FFFFE00000000000001FFFFC00FFFFE00000000000001FFFFC00FFFFE +00000000000001FFFFC01FFFFC00000000000000FFFFE01FFFFC00000000000000FFFFE0 +1FFFFC00000000000000FFFFE03FFFFC00000000000000FFFFF03FFFFC00000000000000 +FFFFF03FFFFC00000000000000FFFFF03FFFF8000000000000007FFFF07FFFF800000000 +0000007FFFF87FFFF8000000000000007FFFF87FFFF8000000000000007FFFF87FFFF800 +0000000000007FFFF87FFFF8000000000000007FFFF8FFFFF8000000000000007FFFFCFF +FFF8000000000000007FFFFCFFFFF8000000000000007FFFFCFFFFF8000000000000007F +FFFCFFFFF8000000000000007FFFFCFFFFF8000000000000007FFFFCFFFFF80000000000 +00007FFFFCFFFFF8000000000000007FFFFCFFFFF8000000000000007FFFFCFFFFF80000 +00000000007FFFFCFFFFF8000000000000007FFFFCFFFFF8000000000000007FFFFCFFFF +F8000000000000007FFFFCFFFFF8000000000000007FFFFCFFFFF8000000000000007FFF +FCFFFFF8000000000000007FFFFC7FFFF8000000000000007FFFF87FFFF8000000000000 +007FFFF87FFFF8000000000000007FFFF87FFFFC00000000000000FFFFF87FFFFC000000 +00000000FFFFF87FFFFC00000000000000FFFFF83FFFFC00000000000000FFFFF03FFFFC +00000000000000FFFFF03FFFFC00000000000000FFFFF03FFFFC00000000000000FFFFF0 +1FFFFE00000000000001FFFFE01FFFFE00000000000001FFFFE01FFFFE00000000000001 +FFFFE00FFFFE00000000000001FFFFC00FFFFF00000000000003FFFFC007FFFF00000000 +000003FFFF8007FFFF00000000000003FFFF8003FFFF80000000000007FFFF0003FFFF80 +000000000007FFFF0001FFFFC000000000000FFFFE0001FFFFC000000000000FFFFE0000 +FFFFE000000000001FFFFC0000FFFFE000000000001FFFFC00007FFFF000000000003FFF +F800003FFFF000000000003FFFF000001FFFF800000000007FFFE000001FFFFC00000000 +00FFFFE000000FFFFC0000000000FFFFC0000007FFFE0000000001FFFF80000003FFFF00 +00000003FFFF00000001FFFF8000000007FFFE00000000FFFFE00000001FFFFC00000000 +3FFFF00000003FFFF0000000001FFFFC000000FFFFE0000000000FFFFF000003FFFFC000 +00000003FFFFC0000FFFFF000000000000FFFFFC00FFFFFC0000000000003FFFFFFFFFFF +F00000000000000FFFFFFFFFFFC000000000000003FFFFFFFFFF00000000000000007FFF +FFFFF8000000000000000007FFFFFF800000000000000000001FFFE00000000000666677 +E379>79 DI< +FFFFFFFFFFFFFFF800000000000000FFFFFFFFFFFFFFFFE0000000000000FFFFFFFFFFFF +FFFFFE000000000000FFFFFFFFFFFFFFFFFFC00000000000FFFFFFFFFFFFFFFFFFF00000 +000000FFFFFFFFFFFFFFFFFFFE00000000000001FFFF8000007FFFFF00000000000001FF +FF80000007FFFFC0000000000001FFFF80000000FFFFF0000000000001FFFF800000007F +FFF8000000000001FFFF800000001FFFFC000000000001FFFF800000000FFFFE00000000 +0001FFFF8000000007FFFF000000000001FFFF8000000003FFFF800000000001FFFF8000 +000003FFFF800000000001FFFF8000000001FFFFC00000000001FFFF8000000001FFFFE0 +0000000001FFFF8000000001FFFFE00000000001FFFF8000000001FFFFE00000000001FF +FF8000000000FFFFF00000000001FFFF8000000000FFFFF00000000001FFFF8000000000 +FFFFF00000000001FFFF8000000000FFFFF80000000001FFFF8000000000FFFFF8000000 +0001FFFF8000000000FFFFF80000000001FFFF8000000000FFFFF80000000001FFFF8000 +000000FFFFF80000000001FFFF8000000000FFFFF80000000001FFFF8000000000FFFFF8 +0000000001FFFF8000000000FFFFF80000000001FFFF8000000000FFFFF00000000001FF +FF8000000000FFFFF00000000001FFFF8000000000FFFFF00000000001FFFF8000000001 +FFFFE00000000001FFFF8000000001FFFFE00000000001FFFF8000000001FFFFC0000000 +0001FFFF8000000001FFFFC00000000001FFFF8000000003FFFF800000000001FFFF8000 +000003FFFF000000000001FFFF8000000007FFFE000000000001FFFF800000000FFFFC00 +0000000001FFFF800000001FFFF8000000000001FFFF800000007FFFF0000000000001FF +FF80000001FFFFE0000000000001FFFF80000007FFFF80000000000001FFFF800000FFFF +FE00000000000001FFFFFFFFFFFFFFF800000000000001FFFFFFFFFFFFFFC00000000000 +0001FFFFFFFFFFFFFE0000000000000001FFFFFFFFFFFFFC0000000000000001FFFFFFFF +FFFFFF0000000000000001FFFF800003FFFFC000000000000001FFFF8000007FFFE00000 +0000000001FFFF8000001FFFF800000000000001FFFF8000000FFFFC00000000000001FF +FF80000007FFFE00000000000001FFFF80000003FFFF00000000000001FFFF80000001FF +FF80000000000001FFFF80000001FFFFC0000000000001FFFF80000000FFFFC000000000 +0001FFFF80000000FFFFE0000000000001FFFF800000007FFFE0000000000001FFFF8000 +00007FFFF0000000000001FFFF800000007FFFF0000000000001FFFF800000003FFFF800 +0000000001FFFF800000003FFFF8000000000001FFFF800000003FFFF8000000000001FF +FF800000003FFFF8000000000001FFFF800000003FFFF8000000000001FFFF800000003F +FFF8000000000001FFFF800000003FFFFC000000000001FFFF800000003FFFFC00000000 +0001FFFF800000003FFFFC000000000001FFFF800000003FFFFC000000000001FFFF8000 +00003FFFFC000000000001FFFF800000003FFFFC000000000001FFFF800000003FFFFE00 +0000000001FFFF800000003FFFFE000000000001FFFF800000003FFFFE000000000001FF +FF800000003FFFFE000000000001FFFF800000003FFFFE000000000001FFFF800000003F +FFFE000000000001FFFF800000003FFFFF00000F000001FFFF800000003FFFFF00001F80 +0001FFFF800000003FFFFF00001F800001FFFF800000003FFFFF00001F800001FFFF8000 +00001FFFFF80001F800001FFFF800000001FFFFF80003F800001FFFF800000000FFFFF80 +003F800001FFFF800000000FFFFFC0003F000001FFFF8000000007FFFFC0007F000001FF +FF8000000003FFFFE000FF00FFFFFFFFFFFF000001FFFFF000FE00FFFFFFFFFFFF000000 +FFFFF801FC00FFFFFFFFFFFF0000007FFFFE07FC00FFFFFFFFFFFF0000001FFFFFFFF800 +FFFFFFFFFFFF00000007FFFFFFE000FFFFFFFFFFFF00000001FFFFFFC000000000000000 +000000003FFFFF00000000000000000000000000FFFC000071647AE178>82 +D<000000FFFC000001E000000FFFFFE00003E000007FFFFFFC0007E00001FFFFFFFF000F +E00007FFFFFFFFC01FE0001FFFFFFFFFF01FE0003FFFC007FFF83FE0007FFE00003FFE7F +E000FFF800000FFFFFE001FFE0000001FFFFE003FFC0000000FFFFE007FF800000003FFF +E007FF000000001FFFE00FFE000000000FFFE01FFE0000000007FFE01FFC0000000003FF +E03FFC0000000001FFE03FFC0000000000FFE03FF80000000000FFE07FF800000000007F +E07FF800000000007FE07FF800000000003FE07FF800000000003FE0FFF800000000001F +E0FFF800000000001FE0FFFC00000000001FE0FFFC00000000000FE0FFFC00000000000F +E0FFFE00000000000FE0FFFE00000000000FE0FFFF000000000007E0FFFF800000000007 +E0FFFFC00000000007E0FFFFE00000000007E07FFFF80000000000007FFFFC0000000000 +007FFFFF8000000000007FFFFFF800000000003FFFFFFFC0000000003FFFFFFFFC000000 +001FFFFFFFFFE00000001FFFFFFFFFFE0000000FFFFFFFFFFFE000000FFFFFFFFFFFF800 +0007FFFFFFFFFFFE000003FFFFFFFFFFFF800001FFFFFFFFFFFFC00000FFFFFFFFFFFFE0 +00007FFFFFFFFFFFF800003FFFFFFFFFFFFC00001FFFFFFFFFFFFE00000FFFFFFFFFFFFF +000003FFFFFFFFFFFF000001FFFFFFFFFFFF8000007FFFFFFFFFFFC000000FFFFFFFFFFF +E0000001FFFFFFFFFFE00000000FFFFFFFFFF000000000FFFFFFFFF00000000007FFFFFF +F800000000007FFFFFF8000000000003FFFFF8000000000000FFFFFC0000000000003FFF +FC0000000000001FFFFC00000000000007FFFE00000000000003FFFE00000000000003FF +FE7C000000000001FFFEFC000000000000FFFEFC000000000000FFFEFC0000000000007F +FEFC0000000000007FFEFC0000000000007FFEFC0000000000003FFEFE0000000000003F +FEFE0000000000003FFEFE0000000000003FFEFE0000000000003FFCFF0000000000003F +FCFF0000000000003FFCFF8000000000003FFCFF8000000000003FF8FFC000000000007F +F8FFE000000000007FF8FFE000000000007FF0FFF00000000000FFF0FFF80000000000FF +E0FFFC0000000001FFE0FFFF0000000001FFC0FFFF8000000003FF80FFFFE000000007FF +00FFFFF80000000FFE00FFFFFF0000003FFC00FFCFFFE00000FFF800FF83FFFF000FFFF0 +00FF01FFFFFFFFFFE000FF007FFFFFFFFFC000FE001FFFFFFFFF0000FC0003FFFFFFFC00 +00F800003FFFFFE00000F0000001FFFE000000476677E35A>I<1FFFFFFFFFFFFFFFFFFF +FFFF001FFFFFFFFFFFFFFFFFFFFFFF001FFFFFFFFFFFFFFFFFFFFFFF001FFFFFFFFFFFFF +FFFFFFFFFF001FFFFFFFFFFFFFFFFFFFFFFF001FFFFFFFFFFFFFFFFFFFFFFF003FFFFE00 +00FFFFE0000FFFFF803FFFE00000FFFFE00000FFFF803FFF000000FFFFE000001FFF803F +FE000000FFFFE000000FFF803FF8000000FFFFE0000003FF803FF0000000FFFFE0000001 +FF803FE0000000FFFFE0000000FF803FE0000000FFFFE0000000FF803FC0000000FFFFE0 +0000007F803FC0000000FFFFE00000007F803F80000000FFFFE00000003F807F80000000 +FFFFE00000003FC07F00000000FFFFE00000001FC07F00000000FFFFE00000001FC07F00 +000000FFFFE00000001FC07F00000000FFFFE00000001FC07E00000000FFFFE00000000F +C07E00000000FFFFE00000000FC07E00000000FFFFE00000000FC07E00000000FFFFE000 +00000FC07E00000000FFFFE00000000FC07E00000000FFFFE00000000FC0FE00000000FF +FFE00000000FE0FC00000000FFFFE000000007E0FC00000000FFFFE000000007E0FC0000 +0000FFFFE000000007E0FC00000000FFFFE000000007E0FC00000000FFFFE000000007E0 +0000000000FFFFE000000000000000000000FFFFE000000000000000000000FFFFE00000 +0000000000000000FFFFE000000000000000000000FFFFE000000000000000000000FFFF +E000000000000000000000FFFFE000000000000000000000FFFFE0000000000000000000 +00FFFFE000000000000000000000FFFFE000000000000000000000FFFFE0000000000000 +00000000FFFFE000000000000000000000FFFFE000000000000000000000FFFFE0000000 +00000000000000FFFFE000000000000000000000FFFFE000000000000000000000FFFFE0 +00000000000000000000FFFFE000000000000000000000FFFFE000000000000000000000 +FFFFE000000000000000000000FFFFE000000000000000000000FFFFE000000000000000 +000000FFFFE000000000000000000000FFFFE000000000000000000000FFFFE000000000 +000000000000FFFFE000000000000000000000FFFFE000000000000000000000FFFFE000 +000000000000000000FFFFE000000000000000000000FFFFE000000000000000000000FF +FFE000000000000000000000FFFFE000000000000000000000FFFFE00000000000000000 +0000FFFFE000000000000000000000FFFFE000000000000000000000FFFFE00000000000 +0000000000FFFFE000000000000000000000FFFFE000000000000000000000FFFFE00000 +0000000000000000FFFFE000000000000000000000FFFFE000000000000000000000FFFF +E000000000000000000000FFFFE000000000000000000000FFFFE0000000000000000000 +00FFFFE000000000000000000000FFFFE000000000000000000000FFFFE0000000000000 +00000000FFFFE000000000000000000000FFFFE000000000000000000000FFFFE0000000 +00000000000000FFFFE000000000000000000000FFFFE000000000000000000000FFFFE0 +00000000000000000000FFFFE000000000000000000000FFFFE000000000000000000000 +FFFFE000000000000000000000FFFFE0000000000000001FFFFFFFFFFFFFFF0000000000 +1FFFFFFFFFFFFFFF00000000001FFFFFFFFFFFFFFF00000000001FFFFFFFFFFFFFFF0000 +0000001FFFFFFFFFFFFFFF00000000001FFFFFFFFFFFFFFF00000063617AE070>I +II89 D<000003FFFE000000000000007FFFFFF000 +0000000003FFFFFFFE00000000000FFFFFFFFF80000000001FFFFFFFFFE0000000003FFE +001FFFF0000000007FE00007FFF800000000FFF80001FFFC00000001FFFC0000FFFE0000 +0001FFFC00007FFF00000003FFFE00003FFF80000003FFFE00003FFFC0000003FFFE0000 +1FFFE0000003FFFE00001FFFE0000003FFFE00000FFFF0000003FFFE00000FFFF0000003 +FFFE00000FFFF0000001FFFC000007FFF8000001FFFC000007FFF8000000FFF8000007FF +F80000007FF0000007FFF80000001FC0000007FFF80000000000000007FFF80000000000 +000007FFF80000000000000007FFF80000000000000007FFF80000000000000007FFF800 +00000000000007FFF80000000000000007FFF8000000000001FFFFFFF800000000007FFF +FFFFF80000000007FFFFFFFFF8000000007FFFFFFFFFF800000001FFFFFF07FFF8000000 +0FFFFFC007FFF80000003FFFFE0007FFF80000007FFFF00007FFF8000001FFFFC00007FF +F8000003FFFF000007FFF8000007FFFE000007FFF800000FFFF8000007FFF800001FFFF8 +000007FFF800001FFFF0000007FFF800003FFFE0000007FFF800007FFFE0000007FFF800 +007FFFC0000007FFF800007FFFC0000007FFF80000FFFF80000007FFF80000FFFF800000 +07FFF80000FFFF80000007FFF80000FFFF80000007FFF80000FFFF8000000FFFF80000FF +FF8000000FFFF80000FFFF8000001FFFF80000FFFFC000001FFFF800007FFFC000003FFF +F800007FFFE000003FFFF800003FFFE000007DFFFC00003FFFF00001F9FFFC00001FFFF8 +0003F1FFFF80000FFFFE000FE1FFFFFF0007FFFFC07FC0FFFFFF8001FFFFFFFF807FFFFF +80007FFFFFFF003FFFFF80001FFFFFFC000FFFFF800003FFFFF00001FFFF0000001FFF00 +000000000049437CC14E>97 D<0007FF80000000000000FFFFFF80000000000000FFFFFF +80000000000000FFFFFF80000000000000FFFFFF80000000000000FFFFFF800000000000 +00FFFFFF8000000000000000FFFF80000000000000007FFF80000000000000003FFF8000 +0000000000003FFF80000000000000003FFF80000000000000003FFF8000000000000000 +3FFF80000000000000003FFF80000000000000003FFF80000000000000003FFF80000000 +000000003FFF80000000000000003FFF80000000000000003FFF80000000000000003FFF +80000000000000003FFF80000000000000003FFF80000000000000003FFF800000000000 +00003FFF80000000000000003FFF80000000000000003FFF80000000000000003FFF8000 +0000000000003FFF80000000000000003FFF80000000000000003FFF8000000000000000 +3FFF80000000000000003FFF80000000000000003FFF80000000000000003FFF80000000 +000000003FFF8000FFF8000000003FFF800FFFFF800000003FFF807FFFFFF00000003FFF +81FFFFFFFC0000003FFF87FFFFFFFF0000003FFF8FFF00FFFFC000003FFFBFF0001FFFE0 +00003FFFFFC00007FFF000003FFFFF000003FFF800003FFFFE000000FFFC00003FFFF800 +0000FFFE00003FFFF00000007FFF00003FFFE00000003FFF80003FFFC00000003FFFC000 +3FFFC00000001FFFC0003FFFC00000001FFFE0003FFFC00000001FFFE0003FFFC0000000 +0FFFF0003FFFC00000000FFFF0003FFFC00000000FFFF8003FFFC00000000FFFF8003FFF +C00000000FFFF8003FFFC000000007FFFC003FFFC000000007FFFC003FFFC000000007FF +FC003FFFC000000007FFFC003FFFC000000007FFFE003FFFC000000007FFFE003FFFC000 +000007FFFE003FFFC000000007FFFE003FFFC000000007FFFE003FFFC000000007FFFE00 +3FFFC000000007FFFE003FFFC000000007FFFE003FFFC000000007FFFE003FFFC0000000 +07FFFE003FFFC000000007FFFE003FFFC000000007FFFE003FFFC000000007FFFE003FFF +C000000007FFFE003FFFC000000007FFFC003FFFC000000007FFFC003FFFC000000007FF +FC003FFFC000000007FFFC003FFFC00000000FFFF8003FFFC00000000FFFF8003FFFC000 +00000FFFF8003FFFC00000000FFFF0003FFFC00000000FFFF0003FFFC00000001FFFE000 +3FFFC00000001FFFE0003FFFC00000003FFFC0003FFFE00000003FFF80003FFFE0000000 +7FFF00003FFFF00000007FFF00003FFFF8000000FFFE00003FFFFC000001FFFC00003FFE +FF000007FFF800003FFC7F80000FFFF000003FF83FE0003FFFC000003FF00FFC03FFFF80 +00003FE007FFFFFFFE0000003FC001FFFFFFF80000003F8000FFFFFFE00000003F00001F +FFFF0000000000000003FFE00000004F657BE35A>I<0000000FFFF00000000001FFFFFF +800000000FFFFFFFF00000003FFFFFFFFC000000FFFFFFFFFE000003FFFE001FFF000007 +FFF80001FF80000FFFE00007FFC0001FFF80000FFFE0007FFF00000FFFE000FFFE00001F +FFF000FFFE00001FFFF001FFFC00001FFFF003FFF800001FFFF007FFF800001FFFF007FF +F000001FFFF00FFFF000001FFFF00FFFF000000FFFE01FFFE000000FFFE01FFFE0000007 +FFC03FFFE0000003FF803FFFE0000000FE003FFFE000000000007FFFC000000000007FFF +C000000000007FFFC000000000007FFFC00000000000FFFFC00000000000FFFFC0000000 +0000FFFFC00000000000FFFFC00000000000FFFFC00000000000FFFFC00000000000FFFF +C00000000000FFFFC00000000000FFFFC00000000000FFFFC00000000000FFFFC0000000 +0000FFFFC00000000000FFFFC00000000000FFFFC000000000007FFFC000000000007FFF +C000000000007FFFE000000000007FFFE000000000003FFFE000000000003FFFE0000000 +00003FFFF000000000001FFFF000000000FC1FFFF000000000FC0FFFF800000001FC0FFF +F800000001F807FFF800000001F803FFFC00000003F803FFFE00000007F001FFFE000000 +07E000FFFF0000000FE0007FFF8000001FC0003FFFE000007F80001FFFF00000FF000007 +FFFC0003FE000003FFFFC03FFC000000FFFFFFFFF00000003FFFFFFFE00000000FFFFFFF +8000000001FFFFFC00000000000FFFC000003E437BC148>I<000000000000007FF80000 +000000000FFFFFF80000000000000FFFFFF80000000000000FFFFFF80000000000000FFF +FFF80000000000000FFFFFF80000000000000FFFFFF8000000000000000FFFF800000000 +00000007FFF80000000000000003FFF80000000000000003FFF80000000000000003FFF8 +0000000000000003FFF80000000000000003FFF80000000000000003FFF8000000000000 +0003FFF80000000000000003FFF80000000000000003FFF80000000000000003FFF80000 +000000000003FFF80000000000000003FFF80000000000000003FFF80000000000000003 +FFF80000000000000003FFF80000000000000003FFF80000000000000003FFF800000000 +00000003FFF80000000000000003FFF80000000000000003FFF80000000000000003FFF8 +0000000000000003FFF80000000000000003FFF80000000000000003FFF8000000000000 +0003FFF80000000000000003FFF8000000000FFF8003FFF800000001FFFFF803FFF80000 +000FFFFFFE03FFF80000003FFFFFFF83FFF8000000FFFFFFFFE3FFF8000003FFFF807FF3 +FFF8000007FFF8000FFBFFF800001FFFE00003FFFFF800003FFFC00000FFFFF800007FFF +0000007FFFF80000FFFE0000003FFFF80001FFFC0000001FFFF80003FFFC0000000FFFF8 +0003FFF800000007FFF80007FFF800000007FFF8000FFFF000000007FFF8000FFFF00000 +0007FFF8001FFFE000000007FFF8001FFFE000000007FFF8003FFFE000000007FFF8003F +FFE000000007FFF8003FFFE000000007FFF8007FFFC000000007FFF8007FFFC000000007 +FFF8007FFFC000000007FFF8007FFFC000000007FFF800FFFFC000000007FFF800FFFFC0 +00000007FFF800FFFFC000000007FFF800FFFFC000000007FFF800FFFFC000000007FFF8 +00FFFFC000000007FFF800FFFFC000000007FFF800FFFFC000000007FFF800FFFFC00000 +0007FFF800FFFFC000000007FFF800FFFFC000000007FFF800FFFFC000000007FFF800FF +FFC000000007FFF800FFFFC000000007FFF8007FFFC000000007FFF8007FFFC000000007 +FFF8007FFFC000000007FFF8007FFFC000000007FFF8003FFFE000000007FFF8003FFFE0 +00000007FFF8003FFFE000000007FFF8001FFFE000000007FFF8001FFFE000000007FFF8 +000FFFF000000007FFF8000FFFF000000007FFF80007FFF00000000FFFF80007FFF80000 +000FFFF80003FFF80000001FFFF80001FFFC0000003FFFF80000FFFE0000007FFFF80000 +7FFE000000FFFFF800003FFF800003FFFFFC00001FFFC00007FFFFFE00000FFFF0001FF7 +FFFFFE0007FFFE01FFE7FFFFFE0001FFFFFFFF87FFFFFE00007FFFFFFE07FFFFFE00001F +FFFFF807FFFFFE000003FFFFE007FFFFFE0000003FFE0007FFC0004F657BE35A>I<0000 +000FFFC0000000000001FFFFFC00000000000FFFFFFF80000000003FFFFFFFE000000000 +FFFFFFFFF800000003FFFE03FFFC00000007FFF0007FFF0000001FFFC0001FFF8000003F +FF80000FFFC000007FFF000007FFE00000FFFE000003FFF00001FFFC000001FFF00003FF +FC000001FFF80003FFF8000000FFF80007FFF8000000FFFC000FFFF0000000FFFC000FFF +F00000007FFE001FFFF00000007FFE001FFFE00000007FFE003FFFE00000003FFF003FFF +E00000003FFF003FFFE00000003FFF007FFFE00000003FFF007FFFC00000003FFF007FFF +C00000001FFF807FFFC00000001FFF80FFFFC00000001FFF80FFFFC00000001FFF80FFFF +C00000001FFF80FFFFFFFFFFFFFFFF80FFFFFFFFFFFFFFFF80FFFFFFFFFFFFFFFF80FFFF +FFFFFFFFFFFF80FFFFFFFFFFFFFFFF00FFFFC0000000000000FFFFC0000000000000FFFF +C0000000000000FFFFC0000000000000FFFFC0000000000000FFFFC00000000000007FFF +C00000000000007FFFC00000000000007FFFC00000000000007FFFE00000000000007FFF +E00000000000003FFFE00000000000003FFFE00000000000001FFFE00000000000001FFF +F0000000000F001FFFF0000000001F800FFFF0000000003F8007FFF8000000003F8007FF +F8000000007F0003FFFC000000007F0001FFFE00000000FE0000FFFE00000001FE00007F +FF00000003FC00003FFF80000007F800001FFFE000000FF000000FFFF000003FE0000003 +FFFC0001FFC0000001FFFFC01FFF000000007FFFFFFFFE000000001FFFFFFFF800000000 +07FFFFFFE00000000000FFFFFF00000000000007FFF000000041437CC14A>I<00000000 +3FFC0000000007FFFF800000003FFFFFC0000001FFFFFFF0000007FFFFFFF800000FFFF0 +3FFC00001FFF807FFC00007FFE00FFFE0000FFFC00FFFE0000FFF801FFFF0001FFF001FF +FF0003FFF001FFFF0007FFE001FFFF0007FFE001FFFF000FFFC001FFFF000FFFC001FFFF +000FFFC000FFFE001FFF80007FFC001FFF80003FF8001FFF80001FF0001FFF800007C000 +1FFF80000000001FFF80000000001FFF80000000001FFF80000000001FFF80000000001F +FF80000000001FFF80000000001FFF80000000001FFF80000000001FFF80000000001FFF +80000000001FFF80000000001FFF80000000001FFF80000000001FFF80000000001FFF80 +000000FFFFFFFFFFC000FFFFFFFFFFC000FFFFFFFFFFC000FFFFFFFFFFC000FFFFFFFFFF +C000FFFFFFFFFFC000001FFFC0000000001FFFC0000000001FFFC0000000001FFFC00000 +00001FFFC0000000001FFFC0000000001FFFC0000000001FFFC0000000001FFFC0000000 +001FFFC0000000001FFFC0000000001FFFC0000000001FFFC0000000001FFFC000000000 +1FFFC0000000001FFFC0000000001FFFC0000000001FFFC0000000001FFFC0000000001F +FFC0000000001FFFC0000000001FFFC0000000001FFFC0000000001FFFC0000000001FFF +C0000000001FFFC0000000001FFFC0000000001FFFC0000000001FFFC0000000001FFFC0 +000000001FFFC0000000001FFFC0000000001FFFC0000000001FFFC0000000001FFFC000 +0000001FFFC0000000001FFFC0000000001FFFC0000000001FFFC0000000001FFFC00000 +00001FFFC0000000001FFFC0000000001FFFC0000000001FFFC0000000001FFFC0000000 +001FFFC0000000001FFFC0000000001FFFC0000000001FFFC0000000001FFFC000000000 +1FFFC0000000001FFFC00000007FFFFFFFFC00007FFFFFFFFC00007FFFFFFFFC00007FFF +FFFFFC00007FFFFFFFFC00007FFFFFFFFC000038657CE431>I<0000000000000007F800 +0000007FFE00003FFE0000000FFFFFF001FFFF0000007FFFFFFE03FFFF800001FFFFFFFF +8FFFFF800003FFFFFFFFDFFDFFC0000FFFF00FFFFFC1FFC0001FFF8001FFFF01FFC0003F +FF0000FFFC03FFC0007FFE00007FFE01FFC000FFFC00003FFF01FFC001FFF800001FFF81 +FF8001FFF800001FFF80FF0003FFF800001FFFC03E0003FFF800001FFFC0000007FFF000 +000FFFE0000007FFF000000FFFE0000007FFF000000FFFE000000FFFF000000FFFF00000 +0FFFF000000FFFF000000FFFF000000FFFF000000FFFF000000FFFF000000FFFF000000F +FFF000000FFFF000000FFFF000000FFFF000000FFFF000000FFFF000000FFFF000000FFF +F000000FFFF0000007FFF000000FFFE0000007FFF000000FFFE0000007FFF000000FFFE0 +000003FFF800001FFFC0000003FFF800001FFFC0000001FFF800001FFF80000001FFF800 +001FFF80000000FFFC00003FFF000000007FFE00007FFE000000003FFF0000FFFC000000 +001FFF8001FFF8000000001FFFF00FFFF0000000003FFFFFFFFFC0000000003FFFFFFFFF +80000000007C7FFFFFFE0000000000FC0FFFFFF00000000000FC007FFE000000000000FC +000000000000000001FC000000000000000001FC000000000000000001FC000000000000 +000001FC000000000000000001FE000000000000000001FE000000000000000001FF0000 +00000000000001FF800000000000000001FFF00000000000000001FFFFFFFFFF80000000 +01FFFFFFFFFFFE00000000FFFFFFFFFFFFC0000000FFFFFFFFFFFFF00000007FFFFFFFFF +FFFC0000007FFFFFFFFFFFFF0000003FFFFFFFFFFFFF8000001FFFFFFFFFFFFFC000000F +FFFFFFFFFFFFE0000007FFFFFFFFFFFFF000003FFFFFFFFFFFFFF80000FFFFFFFFFFFFFF +F80003FFFFFFFFFFFFFFFC0007FFE0000001FFFFFC000FFF000000000FFFFE001FFE0000 +000001FFFE003FFC00000000007FFE007FF800000000003FFF007FF800000000001FFF00 +FFF800000000001FFF00FFF000000000001FFF00FFF000000000000FFF00FFF000000000 +000FFF00FFF000000000000FFF00FFF000000000000FFF00FFF000000000000FFF00FFF8 +00000000001FFF007FF800000000001FFE007FFC00000000003FFE003FFC00000000003F +FC003FFE00000000007FFC001FFF0000000000FFF8000FFFC000000003FFF00007FFE000 +000007FFE00003FFF80000001FFFC00000FFFF000000FFFF0000007FFFF8001FFFFE0000 +001FFFFFFFFFFFF800000007FFFFFFFFFFE000000000FFFFFFFFFF00000000000FFFFFFF +F00000000000003FFFFC000000004A607CC151>I<0007FF8000000000000000FFFFFF80 +00000000000000FFFFFF8000000000000000FFFFFF8000000000000000FFFFFF80000000 +00000000FFFFFF8000000000000000FFFFFF800000000000000000FFFF80000000000000 +00007FFF8000000000000000003FFF8000000000000000003FFF8000000000000000003F +FF8000000000000000003FFF8000000000000000003FFF8000000000000000003FFF8000 +000000000000003FFF8000000000000000003FFF8000000000000000003FFF8000000000 +000000003FFF8000000000000000003FFF8000000000000000003FFF8000000000000000 +003FFF8000000000000000003FFF8000000000000000003FFF8000000000000000003FFF +8000000000000000003FFF8000000000000000003FFF8000000000000000003FFF800000 +0000000000003FFF8000000000000000003FFF8000000000000000003FFF800000000000 +0000003FFF8000000000000000003FFF8000000000000000003FFF800000000000000000 +3FFF8000000000000000003FFF80001FFF00000000003FFF8000FFFFF0000000003FFF80 +07FFFFFC000000003FFF801FFFFFFF000000003FFF803FFFFFFF800000003FFF807FE07F +FFC00000003FFF81FE001FFFE00000003FFF83F8000FFFF00000003FFF87F00007FFF000 +00003FFF8FC00007FFF80000003FFF8F800003FFF80000003FFF9F000003FFFC0000003F +FFBE000003FFFC0000003FFFBC000001FFFC0000003FFFFC000001FFFE0000003FFFF800 +0001FFFE0000003FFFF8000001FFFE0000003FFFF0000001FFFE0000003FFFF0000001FF +FE0000003FFFE0000001FFFE0000003FFFE0000001FFFE0000003FFFE0000001FFFE0000 +003FFFE0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFF +C0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC00000 +01FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE +0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE000000 +3FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0 +000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001 +FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE00 +00003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003F +FFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC000 +0001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FF +FE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000 +003FFFC0000001FFFE0000FFFFFFFFF007FFFFFFFF80FFFFFFFFF007FFFFFFFF80FFFFFF +FFF007FFFFFFFF80FFFFFFFFF007FFFFFFFF80FFFFFFFFF007FFFFFFFF80FFFFFFFFF007 +FFFFFFFF8051647BE35A>I<000FE00000003FF80000007FFC000001FFFF000001FFFF00 +0003FFFF800003FFFF800007FFFFC00007FFFFC00007FFFFC00007FFFFC00007FFFFC000 +07FFFFC00007FFFFC00003FFFF800003FFFF800001FFFF000001FFFF0000007FFC000000 +3FF80000000FE00000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000007FF80007FFFFF80007FFFFF80007FFFFF80007FFFFF80 +007FFFFF80007FFFFF800000FFFF8000007FFF8000003FFF8000003FFF8000003FFF8000 +003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF800000 +3FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003F +FF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF +8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF80 +00003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000 +003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF800000 +3FFF8000003FFF8000003FFF8000003FFF8000FFFFFFFFC0FFFFFFFFC0FFFFFFFFC0FFFF +FFFFC0FFFFFFFFC0FFFFFFFFC022657BE42C>I<00000001FC0000000007FF000000000F +FF800000003FFFE00000003FFFE00000007FFFF00000007FFFF0000000FFFFF8000000FF +FFF8000000FFFFF8000000FFFFF8000000FFFFF8000000FFFFF8000000FFFFF80000007F +FFF00000007FFFF00000003FFFE00000003FFFE00000000FFF8000000007FF0000000001 +FC0000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000FFF800001FFFFFF800001FFF +FFF800001FFFFFF800001FFFFFF800001FFFFFF800001FFFFFF80000000FFFF800000007 +FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003 +FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003 +FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003 +FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003 +FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003 +FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003 +FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003 +FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003 +FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003 +FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003FFF800000003 +FFF800000003FFF800000003FFF800000003FFF800000003FFF807F00003FFF81FFC0003 +FFF83FFE0003FFF87FFF0003FFF8FFFF8007FFF0FFFF8007FFF0FFFF8007FFF0FFFF8007 +FFE0FFFF800FFFE0FFFF800FFFC0FFFF801FFFC0FFFF801FFF807FFF003FFF007FFE007F +FE003FFC00FFFC001FFE03FFF0000FFFFFFFE00007FFFFFF800001FFFFFE0000007FFFF8 +00000007FF8000002D8288E431>I<0007FF80000000000000FFFFFF80000000000000FF +FFFF80000000000000FFFFFF80000000000000FFFFFF80000000000000FFFFFF80000000 +000000FFFFFF8000000000000000FFFF80000000000000007FFF80000000000000003FFF +80000000000000003FFF80000000000000003FFF80000000000000003FFF800000000000 +00003FFF80000000000000003FFF80000000000000003FFF80000000000000003FFF8000 +0000000000003FFF80000000000000003FFF80000000000000003FFF8000000000000000 +3FFF80000000000000003FFF80000000000000003FFF80000000000000003FFF80000000 +000000003FFF80000000000000003FFF80000000000000003FFF80000000000000003FFF +80000000000000003FFF80000000000000003FFF80000000000000003FFF800000000000 +00003FFF80000000000000003FFF80000000000000003FFF80000000000000003FFF8000 +0000000000003FFF80000000000000003FFF800003FFFFFF80003FFF800003FFFFFF8000 +3FFF800003FFFFFF80003FFF800003FFFFFF80003FFF800003FFFFFF80003FFF800003FF +FFFF80003FFF8000003FFF8000003FFF8000000FFC0000003FFF8000001FF00000003FFF +8000003FE00000003FFF800000FFC00000003FFF800001FF800000003FFF800003FF0000 +00003FFF800007FC000000003FFF80000FF8000000003FFF80003FF0000000003FFF8000 +7FE0000000003FFF8000FFC0000000003FFF8001FF00000000003FFF8003FE0000000000 +3FFF800FFC00000000003FFF801FF800000000003FFF803FF000000000003FFF807FC000 +000000003FFF80FFE000000000003FFF83FFF000000000003FFF87FFF800000000003FFF +8FFFF800000000003FFF9FFFFC00000000003FFFBFFFFE00000000003FFFFFFFFE000000 +00003FFFFFFFFF00000000003FFFFFFFFF80000000003FFFFCFFFFC0000000003FFFF87F +FFC0000000003FFFF07FFFE0000000003FFFE03FFFF0000000003FFFC01FFFF800000000 +3FFF801FFFF8000000003FFF800FFFFC000000003FFF8007FFFE000000003FFF8003FFFF +000000003FFF8003FFFF000000003FFF8001FFFF800000003FFF8000FFFFC00000003FFF +80007FFFE00000003FFF80007FFFE00000003FFF80003FFFF00000003FFF80001FFFF800 +00003FFF80000FFFFC0000003FFF80000FFFFC0000003FFF800007FFFE0000003FFF8000 +03FFFF0000003FFF800001FFFF0000003FFF800001FFFF8000003FFF800000FFFFC00000 +3FFF8000007FFFE000003FFF800000FFFFF000FFFFFFFFE00FFFFFFFF0FFFFFFFFE00FFF +FFFFF0FFFFFFFFE00FFFFFFFF0FFFFFFFFE00FFFFFFFF0FFFFFFFFE00FFFFFFFF0FFFFFF +FFE00FFFFFFFF04C647BE355>I<0007FF8000FFFFFF8000FFFFFF8000FFFFFF8000FFFF +FF8000FFFFFF8000FFFFFF800000FFFF8000007FFF8000003FFF8000003FFF8000003FFF +8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF80 +00003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000 +003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF800000 +3FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003F +FF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF +8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF80 +00003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000 +003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF800000 +3FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003F +FF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF +8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF8000003FFF80 +00003FFF8000003FFF8000003FFF8000FFFFFFFFE0FFFFFFFFE0FFFFFFFFE0FFFFFFFFE0 +FFFFFFFFE0FFFFFFFFE023647BE32C>I<0007FF80001FFF00000000FFF8000000FFFFFF +8000FFFFF0000007FFFF800000FFFFFF8007FFFFFC00003FFFFFE00000FFFFFF801FFFFF +FF0000FFFFFFF80000FFFFFF803FFFFFFF8001FFFFFFFC0000FFFFFF807FE07FFFC003FF +03FFFE0000FFFFFF81FE001FFFE00FF000FFFF000000FFFF83F8000FFFF01FC0007FFF80 +00007FFF87F00007FFF03F80003FFF8000003FFF8FC00007FFF87E00003FFFC000003FFF +8F800003FFF87C00001FFFC000003FFF9F000003FFFCF800001FFFE000003FFFBE000003 +FFFDF000001FFFE000003FFFBC000001FFFDE000000FFFE000003FFFFC000001FFFFE000 +000FFFF000003FFFF8000001FFFFC000000FFFF000003FFFF8000001FFFFC000000FFFF0 +00003FFFF0000001FFFF8000000FFFF000003FFFF0000001FFFF8000000FFFF000003FFF +E0000001FFFF0000000FFFF000003FFFE0000001FFFF0000000FFFF000003FFFE0000001 +FFFF0000000FFFF000003FFFE0000001FFFF0000000FFFF000003FFFC0000001FFFE0000 +000FFFF000003FFFC0000001FFFE0000000FFFF000003FFFC0000001FFFE0000000FFFF0 +00003FFFC0000001FFFE0000000FFFF000003FFFC0000001FFFE0000000FFFF000003FFF +C0000001FFFE0000000FFFF000003FFFC0000001FFFE0000000FFFF000003FFFC0000001 +FFFE0000000FFFF000003FFFC0000001FFFE0000000FFFF000003FFFC0000001FFFE0000 +000FFFF000003FFFC0000001FFFE0000000FFFF000003FFFC0000001FFFE0000000FFFF0 +00003FFFC0000001FFFE0000000FFFF000003FFFC0000001FFFE0000000FFFF000003FFF +C0000001FFFE0000000FFFF000003FFFC0000001FFFE0000000FFFF000003FFFC0000001 +FFFE0000000FFFF000003FFFC0000001FFFE0000000FFFF000003FFFC0000001FFFE0000 +000FFFF000003FFFC0000001FFFE0000000FFFF000003FFFC0000001FFFE0000000FFFF0 +00003FFFC0000001FFFE0000000FFFF000003FFFC0000001FFFE0000000FFFF000003FFF +C0000001FFFE0000000FFFF000003FFFC0000001FFFE0000000FFFF000003FFFC0000001 +FFFE0000000FFFF000003FFFC0000001FFFE0000000FFFF000003FFFC0000001FFFE0000 +000FFFF000003FFFC0000001FFFE0000000FFFF000003FFFC0000001FFFE0000000FFFF0 +00003FFFC0000001FFFE0000000FFFF000003FFFC0000001FFFE0000000FFFF000003FFF +C0000001FFFE0000000FFFF000003FFFC0000001FFFE0000000FFFF000003FFFC0000001 +FFFE0000000FFFF000003FFFC0000001FFFE0000000FFFF000FFFFFFFFF007FFFFFFFF80 +3FFFFFFFFCFFFFFFFFF007FFFFFFFF803FFFFFFFFCFFFFFFFFF007FFFFFFFF803FFFFFFF +FCFFFFFFFFF007FFFFFFFF803FFFFFFFFCFFFFFFFFF007FFFFFFFF803FFFFFFFFCFFFFFF +FFF007FFFFFFFF803FFFFFFFFC7E417BC087>I<0007FF80001FFF00000000FFFFFF8000 +FFFFF0000000FFFFFF8007FFFFFC000000FFFFFF801FFFFFFF000000FFFFFF803FFFFFFF +800000FFFFFF807FE07FFFC00000FFFFFF81FE001FFFE0000000FFFF83F8000FFFF00000 +007FFF87F00007FFF00000003FFF8FC00007FFF80000003FFF8F800003FFF80000003FFF +9F000003FFFC0000003FFFBE000003FFFC0000003FFFBC000001FFFC0000003FFFFC0000 +01FFFE0000003FFFF8000001FFFE0000003FFFF8000001FFFE0000003FFFF0000001FFFE +0000003FFFF0000001FFFE0000003FFFE0000001FFFE0000003FFFE0000001FFFE000000 +3FFFE0000001FFFE0000003FFFE0000001FFFE0000003FFFC0000001FFFE0000003FFFC0 +000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001 +FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE00 +00003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003F +FFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC000 +0001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FF +FE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000 +003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFF +C0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC00000 +01FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE +0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE000000 +3FFFC0000001FFFE0000003FFFC0000001FFFE0000FFFFFFFFF007FFFFFFFF80FFFFFFFF +F007FFFFFFFF80FFFFFFFFF007FFFFFFFF80FFFFFFFFF007FFFFFFFF80FFFFFFFFF007FF +FFFFFF80FFFFFFFFF007FFFFFFFF8051417BC05A>I<00000007FFE0000000000000FFFF +FF000000000007FFFFFFE0000000001FFFFFFFF8000000007FFFFFFFFE00000001FFFE00 +7FFF80000007FFF0000FFFE000000FFFC00003FFF000001FFF800001FFF800003FFF0000 +00FFFC00007FFE0000007FFE0000FFFC0000003FFF0001FFF80000001FFF8003FFF80000 +001FFFC003FFF00000000FFFC007FFF00000000FFFE00FFFE000000007FFF00FFFE00000 +0007FFF01FFFE000000007FFF81FFFE000000007FFF81FFFE000000007FFF83FFFC00000 +0003FFFC3FFFC000000003FFFC3FFFC000000003FFFC7FFFC000000003FFFE7FFFC00000 +0003FFFE7FFFC000000003FFFE7FFFC000000003FFFEFFFFC000000003FFFFFFFFC00000 +0003FFFFFFFFC000000003FFFFFFFFC000000003FFFFFFFFC000000003FFFFFFFFC00000 +0003FFFFFFFFC000000003FFFFFFFFC000000003FFFFFFFFC000000003FFFFFFFFC00000 +0003FFFFFFFFC000000003FFFFFFFFC000000003FFFFFFFFC000000003FFFF7FFFC00000 +0003FFFE7FFFC000000003FFFE7FFFC000000003FFFE7FFFC000000003FFFE3FFFE00000 +0007FFFC3FFFE000000007FFFC3FFFE000000007FFFC1FFFE000000007FFF81FFFE00000 +0007FFF80FFFF00000000FFFF00FFFF00000000FFFF007FFF00000000FFFE003FFF80000 +001FFFC003FFF80000001FFFC001FFFC0000003FFF8000FFFE0000007FFF00007FFF0000 +00FFFE00003FFF800001FFFC00001FFFC00003FFF8000007FFF0000FFFE0000003FFFE00 +7FFFC0000000FFFFFFFFFF000000003FFFFFFFFC0000000007FFFFFFE00000000000FFFF +FF00000000000007FFE000000048437CC151>I<0007FF8000FFF8000000FFFFFF800FFF +FF800000FFFFFF807FFFFFF00000FFFFFF81FFFFFFFC0000FFFFFF87FFFFFFFF0000FFFF +FF8FFF01FFFFC000FFFFFFBFF0003FFFE00000FFFFFFC0000FFFF000007FFFFF000007FF +F800003FFFFE000003FFFC00003FFFF8000001FFFE00003FFFF0000000FFFF00003FFFE0 +000000FFFF80003FFFC00000007FFFC0003FFFC00000007FFFC0003FFFC00000003FFFE0 +003FFFC00000003FFFE0003FFFC00000001FFFF0003FFFC00000001FFFF0003FFFC00000 +001FFFF8003FFFC00000000FFFF8003FFFC00000000FFFF8003FFFC00000000FFFFC003F +FFC00000000FFFFC003FFFC00000000FFFFC003FFFC000000007FFFC003FFFC000000007 +FFFE003FFFC000000007FFFE003FFFC000000007FFFE003FFFC000000007FFFE003FFFC0 +00000007FFFE003FFFC000000007FFFE003FFFC000000007FFFE003FFFC000000007FFFE +003FFFC000000007FFFE003FFFC000000007FFFE003FFFC000000007FFFE003FFFC00000 +0007FFFE003FFFC000000007FFFE003FFFC000000007FFFE003FFFC00000000FFFFC003F +FFC00000000FFFFC003FFFC00000000FFFFC003FFFC00000000FFFFC003FFFC00000000F +FFF8003FFFC00000001FFFF8003FFFC00000001FFFF8003FFFC00000001FFFF0003FFFC0 +0000003FFFF0003FFFC00000003FFFE0003FFFC00000007FFFE0003FFFC00000007FFFC0 +003FFFE0000000FFFF80003FFFE0000000FFFF00003FFFF0000001FFFF00003FFFF80000 +03FFFE00003FFFFC000007FFFC00003FFFFF00000FFFF800003FFFFF80001FFFF000003F +FFFFE0007FFFC000003FFFCFFC03FFFF8000003FFFC7FFFFFFFE0000003FFFC1FFFFFFF8 +0000003FFFC0FFFFFFE00000003FFFC01FFFFF000000003FFFC003FFE0000000003FFFC0 +000000000000003FFFC0000000000000003FFFC0000000000000003FFFC0000000000000 +003FFFC0000000000000003FFFC0000000000000003FFFC0000000000000003FFFC00000 +00000000003FFFC0000000000000003FFFC0000000000000003FFFC0000000000000003F +FFC0000000000000003FFFC0000000000000003FFFC0000000000000003FFFC000000000 +0000003FFFC0000000000000003FFFC0000000000000003FFFC0000000000000003FFFC0 +000000000000003FFFC0000000000000003FFFC0000000000000FFFFFFFFF00000000000 +FFFFFFFFF00000000000FFFFFFFFF00000000000FFFFFFFFF00000000000FFFFFFFFF000 +00000000FFFFFFFFF000000000004F5D7BC05A>I<0000000FFF000001F000000001FFFF +E00003F00000000FFFFFF80007F00000003FFFFFFE0007F0000000FFFFFFFF000FF00000 +03FFFF80FF801FF0000007FFFC001FC03FF000001FFFF0000FE03FF000003FFFE00003F0 +7FF000007FFF800001F8FFF00000FFFF800000FCFFF00001FFFF000000FFFFF00003FFFE +0000007FFFF00003FFFE0000003FFFF00007FFFC0000003FFFF0000FFFF80000001FFFF0 +000FFFF80000001FFFF0001FFFF80000000FFFF0001FFFF00000000FFFF0003FFFF00000 +000FFFF0003FFFF000000007FFF0003FFFE000000007FFF0007FFFE000000007FFF0007F +FFE000000007FFF0007FFFE000000007FFF0007FFFE000000007FFF000FFFFC000000007 +FFF000FFFFC000000007FFF000FFFFC000000007FFF000FFFFC000000007FFF000FFFFC0 +00000007FFF000FFFFC000000007FFF000FFFFC000000007FFF000FFFFC000000007FFF0 +00FFFFC000000007FFF000FFFFC000000007FFF000FFFFC000000007FFF000FFFFC00000 +0007FFF000FFFFC000000007FFF000FFFFC000000007FFF0007FFFC000000007FFF0007F +FFE000000007FFF0007FFFE000000007FFF0007FFFE000000007FFF0003FFFE000000007 +FFF0003FFFE000000007FFF0003FFFF000000007FFF0001FFFF000000007FFF0001FFFF0 +00000007FFF0000FFFF80000000FFFF0000FFFF80000001FFFF00007FFFC0000001FFFF0 +0007FFFC0000003FFFF00003FFFE0000007FFFF00001FFFE0000007FFFF00000FFFF0000 +00FFFFF000007FFF800001FFFFF000003FFFC00007FFFFF000001FFFE0000FEFFFF00000 +0FFFF8003FCFFFF0000007FFFE01FF8FFFF0000001FFFFFFFF0FFFF00000007FFFFFFC0F +FFF00000001FFFFFF00FFFF000000003FFFFC00FFFF0000000003FFE000FFFF000000000 +0000000FFFF0000000000000000FFFF0000000000000000FFFF0000000000000000FFFF0 +000000000000000FFFF0000000000000000FFFF0000000000000000FFFF0000000000000 +000FFFF0000000000000000FFFF0000000000000000FFFF0000000000000000FFFF00000 +00000000000FFFF0000000000000000FFFF0000000000000000FFFF0000000000000000F +FFF0000000000000000FFFF0000000000000000FFFF0000000000000000FFFF000000000 +0000000FFFF0000000000000000FFFF0000000000000000FFFF00000000000003FFFFFFF +FC00000000003FFFFFFFFC00000000003FFFFFFFFC00000000003FFFFFFFFC0000000000 +3FFFFFFFFC00000000003FFFFFFFFC4E5D7BC055>I<000FFF000FFC00FFFFFF003FFF80 +FFFFFF00FFFFE0FFFFFF01FFFFF0FFFFFF03FFFFF8FFFFFF07FC7FFCFFFFFF0FE0FFFE00 +FFFF1F80FFFE007FFF3F01FFFF003FFF3E01FFFF003FFF7E01FFFF003FFF7C01FFFF003F +FFF801FFFF003FFFF801FFFF003FFFF001FFFF003FFFF000FFFE003FFFF000FFFE003FFF +E0007FFC003FFFE0003FF8003FFFE0000FE0003FFFC0000000003FFFC0000000003FFFC0 +000000003FFFC0000000003FFFC0000000003FFF80000000003FFF80000000003FFF8000 +0000003FFF80000000003FFF80000000003FFF80000000003FFF80000000003FFF800000 +00003FFF80000000003FFF80000000003FFF80000000003FFF80000000003FFF80000000 +003FFF80000000003FFF80000000003FFF80000000003FFF80000000003FFF8000000000 +3FFF80000000003FFF80000000003FFF80000000003FFF80000000003FFF80000000003F +FF80000000003FFF80000000003FFF80000000003FFF80000000003FFF80000000003FFF +80000000003FFF80000000003FFF80000000003FFF80000000003FFF80000000003FFF80 +000000FFFFFFFFF80000FFFFFFFFF80000FFFFFFFFF80000FFFFFFFFF80000FFFFFFFFF8 +0000FFFFFFFFF8000038417BC042>I<00003FFF8007800007FFFFF81F80001FFFFFFE7F +80007FFFFFFFFF8001FFFFFFFFFF8003FFE001FFFF8007FF00001FFF800FFC000007FF80 +1FF0000003FF801FF0000000FF803FE0000000FF807FE00000007F807FC00000003F807F +C00000003F80FFC00000003F80FFC00000001F80FFC00000001F80FFE00000001F80FFF0 +0000001F80FFF80000001F80FFFC0000000000FFFF0000000000FFFFE000000000FFFFFF +000000007FFFFFF80000007FFFFFFFC000003FFFFFFFFC00003FFFFFFFFF00001FFFFFFF +FFC0000FFFFFFFFFF00007FFFFFFFFF80003FFFFFFFFFC0001FFFFFFFFFE0000FFFFFFFF +FF00003FFFFFFFFF80000FFFFFFFFFC00003FFFFFFFFC000007FFFFFFFE0000003FFFFFF +F00000001FFFFFF000000000FFFFF0000000001FFFF80000000007FFF87C00000001FFF8 +FC00000000FFF8FC000000007FF8FE000000003FF8FE000000003FF8FE000000001FF8FF +000000001FF8FF000000001FF8FF800000001FF0FF800000001FF0FFC00000001FF0FFC0 +0000003FF0FFE00000003FE0FFF00000007FE0FFF80000007FC0FFFE000000FF80FFFF00 +0003FF00FFFFC0000FFE00FFFFFC007FFC00FFDFFFFFFFF800FF0FFFFFFFF000FE03FFFF +FFC000F8007FFFFE0000F0000FFFE0000035437BC140>I<000007E0000000000007E000 +0000000007E0000000000007E0000000000007E0000000000007E000000000000FE00000 +0000000FE000000000000FE000000000000FE000000000000FE000000000001FE0000000 +00001FE000000000001FE000000000003FE000000000003FE000000000007FE000000000 +007FE00000000000FFE00000000001FFE00000000001FFE00000000003FFE00000000007 +FFE0000000000FFFE0000000001FFFE0000000007FFFE000000001FFFFE00000000FFFFF +FFFFFE00FFFFFFFFFFFE00FFFFFFFFFFFE00FFFFFFFFFFFE00FFFFFFFFFFFE00FFFFFFFF +FFFE00001FFFE0000000001FFFE0000000001FFFE0000000001FFFE0000000001FFFE000 +0000001FFFE0000000001FFFE0000000001FFFE0000000001FFFE0000000001FFFE00000 +00001FFFE0000000001FFFE0000000001FFFE0000000001FFFE0000000001FFFE0000000 +001FFFE0000000001FFFE0000000001FFFE0000000001FFFE0000000001FFFE000000000 +1FFFE0000000001FFFE0000000001FFFE0000000001FFFE0000000001FFFE0000000001F +FFE0000000001FFFE0000000001FFFE0000000001FFFE0000000001FFFE0000000001FFF +E0000000001FFFE0000000001FFFE0000000001FFFE0000FC0001FFFE0000FC0001FFFE0 +000FC0001FFFE0000FC0001FFFE0000FC0001FFFE0000FC0001FFFE0000FC0001FFFE000 +0FC0001FFFE0000FC0001FFFE0000FC0001FFFE0000FC0001FFFE0000FC0001FFFE0001F +C0000FFFF0001F80000FFFF0001F80000FFFF0003F800007FFF0003F000007FFF8007F00 +0003FFFC007E000001FFFE00FC000000FFFF83FC0000007FFFFFF80000003FFFFFF00000 +000FFFFFC000000003FFFF80000000003FFC0000325C7DDA3F>I<0007FFC00000003FFE +0000FFFFFFC00007FFFFFE0000FFFFFFC00007FFFFFE0000FFFFFFC00007FFFFFE0000FF +FFFFC00007FFFFFE0000FFFFFFC00007FFFFFE0000FFFFFFC00007FFFFFE000000FFFFC0 +000007FFFE0000007FFFC0000003FFFE0000003FFFC0000001FFFE0000003FFFC0000001 +FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE00 +00003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003F +FFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC000 +0001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FF +FE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000 +003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFF +C0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC00000 +01FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE +0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE000000 +3FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0 +000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001FFFE0000003FFFC0000001 +FFFE0000003FFFC0000003FFFE0000003FFFC0000003FFFE0000003FFFC0000003FFFE00 +00003FFFC0000007FFFE0000003FFFC0000007FFFE0000003FFFC000000FFFFE0000001F +FFC000000FFFFE0000001FFFC000001FFFFE0000001FFFC000003EFFFE0000000FFFE000 +007EFFFE0000000FFFE00000FCFFFF00000007FFF00001F8FFFF80000003FFF80007F0FF +FFFF800001FFFF003FE0FFFFFF800000FFFFFFFFC0FFFFFF8000007FFFFFFF00FFFFFF80 +00001FFFFFFE00FFFFFF80000003FFFFF800FFFFFF800000003FFF8000FFF0000051427B +C05A>III<7FFFFFFFC000 +7FFFFFF87FFFFFFFC0007FFFFFF87FFFFFFFC0007FFFFFF87FFFFFFFC0007FFFFFF87FFF +FFFFC0007FFFFFF87FFFFFFFC0007FFFFFF8001FFFF8000007FFF000000FFFF8000001FF +00000007FFFC000001FE00000003FFFE000003FC00000001FFFF000007F800000001FFFF +80000FF000000000FFFF80001FE0000000007FFFC0001FE0000000003FFFE0003FC00000 +00001FFFF0007F80000000001FFFF800FF00000000000FFFF801FE000000000007FFFC03 +FC000000000003FFFE07F8000000000001FFFF07F8000000000001FFFF8FF00000000000 +00FFFF9FE00000000000007FFFFFC00000000000003FFFFF800000000000001FFFFF0000 +00000000001FFFFE000000000000000FFFFC0000000000000007FFFC0000000000000003 +FFFE0000000000000001FFFF0000000000000001FFFF8000000000000000FFFF80000000 +000000007FFFC0000000000000007FFFE000000000000000FFFFF000000000000001FFFF +F800000000000003FFFFF800000000000007FFFFFC0000000000000FF3FFFE0000000000 +001FE1FFFF0000000000001FC0FFFF8000000000003FC0FFFF8000000000007F807FFFC0 +0000000000FF003FFFE00000000001FE001FFFF00000000003FC000FFFF80000000007F8 +000FFFF80000000007F00007FFFC000000000FF00003FFFE000000001FE00001FFFF0000 +00003FC00000FFFF800000007F800000FFFF80000000FF0000007FFFC0000001FE000000 +3FFFE0000001FC0000001FFFF0000007FC0000000FFFF800003FFF0000000FFFF800FFFF +FFF00001FFFFFFFFFFFFFFF00001FFFFFFFFFFFFFFF00001FFFFFFFFFFFFFFF00001FFFF +FFFFFFFFFFF00001FFFFFFFFFFFFFFF00001FFFFFFFF50407EBF55>II<01FC000003F8 +0007FF00000FFE000FFF80001FFF001FFFC0003FFF803FFFE0007FFFC07FFFF000FFFFE0 +7FFFF000FFFFE07FFFF000FFFFE0FFFFF000FFFFF0FFFFF000FFFFF0FFFFF000FFFFF0FF +FFF000FFFFF07FFFF000FFFFE07FFFF000FFFFE07FFFF000FFFFE03FFFE0007FFFC01FFF +C0003FFF800FFF80001FFF0007FF00000FFE0001FC000003F800341472E451>127 +D E /Fu 19 122 df<0000000000000003F800000000000000000000000000000007FC00 +00000000000000000000000000000FFE0000000000000000000000000000000FFE000000 +0000000000000000000000001FFF0000000000000000000000000000001FFF0000000000 +000000000000000000001FFF0000000000000000000000000000003FFF80000000000000 +00000000000000003FFF8000000000000000000000000000007FFFC00000000000000000 +0000000000007FFFC000000000000000000000000000007FFFC000000000000000000000 +00000000FFFFE00000000000000000000000000000FFFFE0000000000000000000000000 +0001FFFFF00000000000000000000000000001FFFFF00000000000000000000000000001 +FFFFF00000000000000000000000000003FFFFF80000000000000000000000000003FFFF +F80000000000000000000000000007FFFFFC0000000000000000000000000007FFFFFC00 +00000000000000000000000007FFFFFC000000000000000000000000000FFFFFFE000000 +000000000000000000000FFFFFFE000000000000000000000000001FFFFFFF0000000000 +00000000000000001FFFFFFF000000000000000000000000001FFFFFFF00000000000000 +0000000000003FFFFFFF800000000000000000000000003FFFFFFF800000000000000000 +000000007FFFFFFFC00000000000000000000000007FFFFFFFC000000000000000000000 +00007FBFFFFFC0000000000000000000000000FF9FFFFFE0000000000000000000000000 +FF1FFFFFE0000000000000000000000001FF0FFFFFF0000000000000000000000001FF0F +FFFFF0000000000000000000000001FE0FFFFFF0000000000000000000000003FE07FFFF +F8000000000000000000000003FC07FFFFF8000000000000000000000007FC03FFFFFC00 +0000000000000000000007FC03FFFFFC000000000000000000000007F803FFFFFC000000 +00000000000000000FF801FFFFFE00000000000000000000000FF001FFFFFE0000000000 +0000000000001FF000FFFFFF00000000000000000000001FF000FFFFFF00000000000000 +000000001FE000FFFFFF00000000000000000000003FE0007FFFFF800000000000000000 +00003FC0007FFFFF80000000000000000000007FC0003FFFFFC000000000000000000000 +7FC0003FFFFFC0000000000000000000007F80003FFFFFC000000000000000000000FF80 +001FFFFFE000000000000000000000FF00001FFFFFE000000000000000000001FF00000F +FFFFF000000000000000000001FF00000FFFFFF000000000000000000001FE00000FFFFF +F000000000000000000003FE000007FFFFF800000000000000000003FC000007FFFFF800 +000000000000000007FC000003FFFFFC00000000000000000007FC000003FFFFFC000000 +00000000000007F8000003FFFFFC0000000000000000000FF8000001FFFFFE0000000000 +000000000FF0000001FFFFFE0000000000000000001FF0000000FFFFFF00000000000000 +00001FF0000000FFFFFF0000000000000000001FE0000000FFFFFF000000000000000000 +3FE00000007FFFFF8000000000000000003FC00000007FFFFF8000000000000000007FC0 +0000003FFFFFC000000000000000007FC00000003FFFFFC000000000000000007F800000 +003FFFFFC00000000000000000FF800000001FFFFFE00000000000000000FF000000001F +FFFFE00000000000000001FF000000000FFFFFF00000000000000001FF000000000FFFFF +F00000000000000001FE000000000FFFFFF00000000000000003FE0000000007FFFFF800 +00000000000003FC0000000007FFFFF80000000000000007FFFFFFFFFFFFFFFFFC000000 +0000000007FFFFFFFFFFFFFFFFFC0000000000000007FFFFFFFFFFFFFFFFFC0000000000 +00000FFFFFFFFFFFFFFFFFFE000000000000000FFFFFFFFFFFFFFFFFFE00000000000000 +1FFFFFFFFFFFFFFFFFFF000000000000001FFFFFFFFFFFFFFFFFFF000000000000001FFF +FFFFFFFFFFFFFFFF000000000000003FE000000000007FFFFF800000000000003FC00000 +0000007FFFFF800000000000007FC000000000003FFFFFC00000000000007FC000000000 +003FFFFFC00000000000007F8000000000003FFFFFC0000000000000FF8000000000001F +FFFFE0000000000000FF8000000000001FFFFFE0000000000001FF0000000000000FFFFF +F0000000000001FF0000000000000FFFFFF0000000000001FE0000000000000FFFFFF000 +0000000003FE00000000000007FFFFF8000000000003FE00000000000007FFFFF8000000 +000007FC00000000000003FFFFFC000000000007FC00000000000003FFFFFC0000000000 +07F800000000000003FFFFFC00000000000FF800000000000001FFFFFE00000000000FF8 +00000000000001FFFFFE00000000000FF000000000000000FFFFFE00000000001FF00000 +0000000000FFFFFF00000000001FE000000000000000FFFFFF00000000003FE000000000 +0000007FFFFF80000000003FE0000000000000007FFFFF80000000003FC0000000000000 +003FFFFF80000000007FC0000000000000003FFFFFC0000000007F80000000000000003F +FFFFC000000007FFFC000000000000001FFFFFE00000FFFFFFFFFF800000001FFFFFFFFF +FFFFE0FFFFFFFFFF800000001FFFFFFFFFFFFFE0FFFFFFFFFF800000001FFFFFFFFFFFFF +E0FFFFFFFFFF800000001FFFFFFFFFFFFFE0FFFFFFFFFF800000001FFFFFFFFFFFFFE0FF +FFFFFFFF800000001FFFFFFFFFFFFFE0FFFFFFFFFF800000001FFFFFFFFFFFFFE0FFFFFF +FFFF800000001FFFFFFFFFFFFFE0837979F892>65 D69 D72 +DI77 +D80 D<00000003FFF80000000E000000007FFFFFC000003F +00000003FFFFFFFC00007F0000001FFFFFFFFF0000FF0000007FFFFFFFFFC001FF000001 +FFFFFFFFFFF003FF000003FFFFFFFFFFFC07FF00000FFFFF000FFFFE07FF00001FFFF000 +007FFF8FFF00003FFFC000000FFFDFFF00007FFF00000003FFFFFF0000FFFE00000000FF +FFFF0001FFF8000000003FFFFF0003FFF8000000001FFFFF0003FFF0000000000FFFFF00 +07FFE00000000007FFFF000FFFE00000000003FFFF000FFFC00000000001FFFF001FFFC0 +0000000000FFFF001FFF8000000000007FFF003FFF8000000000003FFF003FFF80000000 +00003FFF003FFF0000000000001FFF007FFF0000000000001FFF007FFF0000000000000F +FF007FFF0000000000000FFF007FFF00000000000007FF00FFFF00000000000007FF00FF +FF00000000000003FF00FFFF80000000000003FF00FFFF80000000000003FF00FFFF8000 +0000000001FF00FFFFC0000000000001FF00FFFFC0000000000001FF00FFFFE000000000 +0001FF00FFFFE0000000000001FF00FFFFF0000000000000FF00FFFFF8000000000000FF +00FFFFFC000000000000FF00FFFFFE0000000000007E00FFFFFF00000000000000007FFF +FF80000000000000007FFFFFE0000000000000007FFFFFFC000000000000007FFFFFFFC0 +0000000000003FFFFFFFFC0000000000003FFFFFFFFFE000000000001FFFFFFFFFFF0000 +0000001FFFFFFFFFFFF0000000000FFFFFFFFFFFFF800000000FFFFFFFFFFFFFF0000000 +07FFFFFFFFFFFFFE00000007FFFFFFFFFFFFFF80000003FFFFFFFFFFFFFFC0000001FFFF +FFFFFFFFFFF0000000FFFFFFFFFFFFFFFC0000007FFFFFFFFFFFFFFE0000003FFFFFFFFF +FFFFFF0000001FFFFFFFFFFFFFFF8000000FFFFFFFFFFFFFFFC0000007FFFFFFFFFFFFFF +E0000001FFFFFFFFFFFFFFF0000000FFFFFFFFFFFFFFF80000003FFFFFFFFFFFFFFC0000 +001FFFFFFFFFFFFFFE00000007FFFFFFFFFFFFFE00000000FFFFFFFFFFFFFF000000001F +FFFFFFFFFFFF8000000000FFFFFFFFFFFF80000000000FFFFFFFFFFFC000000000007FFF +FFFFFFC0000000000007FFFFFFFFE00000000000003FFFFFFFE000000000000003FFFFFF +E0000000000000007FFFFFF0000000000000001FFFFFF0000000000000000FFFFFF00000 +000000000007FFFFF00000000000000001FFFFF80000000000000001FFFFF80000000000 +000000FFFFF800000000000000007FFFF87E000000000000003FFFF8FF00000000000000 +3FFFF8FF000000000000001FFFF8FF000000000000001FFFF8FF000000000000000FFFF8 +FF000000000000000FFFF8FF000000000000000FFFF8FF800000000000000FFFF8FF8000 +000000000007FFF8FF8000000000000007FFF8FF8000000000000007FFF8FFC000000000 +000007FFF0FFC000000000000007FFF0FFC000000000000007FFF0FFE000000000000007 +FFF0FFE000000000000007FFE0FFF00000000000000FFFE0FFF00000000000000FFFE0FF +F80000000000000FFFC0FFFC0000000000001FFFC0FFFE0000000000001FFFC0FFFF0000 +000000001FFF80FFFF8000000000003FFF80FFFFC000000000007FFF00FFFFE000000000 +007FFE00FFFFF00000000000FFFE00FFFFFC0000000001FFFC00FFFFFF0000000003FFF8 +00FFFFFFE000000007FFF000FFFFFFFC0000001FFFE000FFFBFFFF8000007FFFC000FFF1 +FFFFFE0007FFFF8000FFE07FFFFFFFFFFFFF0000FFE03FFFFFFFFFFFFC0000FFC00FFFFF +FFFFFFF80000FF8003FFFFFFFFFFE00000FF00007FFFFFFFFF800000FE00000FFFFFFFFE +000000FC000000FFFFFFF00000007000000003FFFE00000000557A75F76C>83 +D<1FFFFFFFFFFFFFFFFFFFFFFFFFFFF81FFFFFFFFFFFFFFFFFFFFFFFFFFFF81FFFFFFFFF +FFFFFFFFFFFFFFFFFFF81FFFFFFFFFFFFFFFFFFFFFFFFFFFF81FFFFFFFFFFFFFFFFFFFFF +FFFFFFF81FFFFFFFFFFFFFFFFFFFFFFFFFFFF81FFFFFFFFFFFFFFFFFFFFFFFFFFFF83FFF +FFFFFFFFFFFFFFFFFFFFFFFFFC3FFFFFF000007FFFFF00000FFFFFFC3FFFFF0000007FFF +FF0000007FFFFC3FFFF80000007FFFFF0000001FFFFC3FFFE00000007FFFFF00000007FF +FC3FFF800000007FFFFF00000001FFFC3FFF000000007FFFFF00000000FFFC3FFE000000 +007FFFFF000000007FFC3FFC000000007FFFFF000000003FFC3FF8000000007FFFFF0000 +00001FFC3FF8000000007FFFFF000000001FFC3FF0000000007FFFFF000000000FFC3FF0 +000000007FFFFF000000000FFC3FE0000000007FFFFF0000000007FC7FE0000000007FFF +FF0000000007FE7FE0000000007FFFFF0000000007FE7FC0000000007FFFFF0000000003 +FE7FC0000000007FFFFF0000000003FE7FC0000000007FFFFF0000000003FE7FC0000000 +007FFFFF0000000003FE7F80000000007FFFFF0000000001FE7F80000000007FFFFF0000 +000001FE7F80000000007FFFFF0000000001FE7F80000000007FFFFF0000000001FE7F80 +000000007FFFFF0000000001FE7F80000000007FFFFF0000000001FE7F80000000007FFF +FF0000000001FEFF80000000007FFFFF0000000001FFFF00000000007FFFFF0000000000 +FFFF00000000007FFFFF0000000000FFFF00000000007FFFFF0000000000FFFF00000000 +007FFFFF0000000000FFFF00000000007FFFFF0000000000FFFF00000000007FFFFF0000 +000000FF0000000000007FFFFF0000000000000000000000007FFFFF0000000000000000 +000000007FFFFF0000000000000000000000007FFFFF0000000000000000000000007FFF +FF0000000000000000000000007FFFFF0000000000000000000000007FFFFF0000000000 +000000000000007FFFFF0000000000000000000000007FFFFF0000000000000000000000 +007FFFFF0000000000000000000000007FFFFF0000000000000000000000007FFFFF0000 +000000000000000000007FFFFF0000000000000000000000007FFFFF0000000000000000 +000000007FFFFF0000000000000000000000007FFFFF0000000000000000000000007FFF +FF0000000000000000000000007FFFFF0000000000000000000000007FFFFF0000000000 +000000000000007FFFFF0000000000000000000000007FFFFF0000000000000000000000 +007FFFFF0000000000000000000000007FFFFF0000000000000000000000007FFFFF0000 +000000000000000000007FFFFF0000000000000000000000007FFFFF0000000000000000 +000000007FFFFF0000000000000000000000007FFFFF0000000000000000000000007FFF +FF0000000000000000000000007FFFFF0000000000000000000000007FFFFF0000000000 +000000000000007FFFFF0000000000000000000000007FFFFF0000000000000000000000 +007FFFFF0000000000000000000000007FFFFF0000000000000000000000007FFFFF0000 +000000000000000000007FFFFF0000000000000000000000007FFFFF0000000000000000 +000000007FFFFF0000000000000000000000007FFFFF0000000000000000000000007FFF +FF0000000000000000000000007FFFFF0000000000000000000000007FFFFF0000000000 +000000000000007FFFFF0000000000000000000000007FFFFF0000000000000000000000 +007FFFFF0000000000000000000000007FFFFF0000000000000000000000007FFFFF0000 +000000000000000000007FFFFF0000000000000000000000007FFFFF0000000000000000 +000000007FFFFF0000000000000000000000007FFFFF0000000000000000000000007FFF +FF0000000000000000000000007FFFFF0000000000000000000000007FFFFF0000000000 +000000000000007FFFFF0000000000000000000000007FFFFF0000000000000000000000 +007FFFFF0000000000000000000000007FFFFF0000000000000000000000007FFFFF0000 +000000000000000000007FFFFF0000000000000000000000007FFFFF0000000000000000 +000000007FFFFF0000000000000000000000007FFFFF0000000000000000000000007FFF +FF0000000000000000000000007FFFFF0000000000000000000000007FFFFF0000000000 +00000001FFFFFFFFFFFFFFFFFFC00000000001FFFFFFFFFFFFFFFFFFC00000000001FFFF +FFFFFFFFFFFFFFC00000000001FFFFFFFFFFFFFFFFFFC00000000001FFFFFFFFFFFFFFFF +FFC00000000001FFFFFFFFFFFFFFFFFFC00000000001FFFFFFFFFFFFFFFFFFC000000000 +01FFFFFFFFFFFFFFFFFFC00000787479F387>I89 +D<0000003FFFF80000000000000007FFFFFFE00000000000007FFFFFFFFC000000000001 +FFFFFFFFFF800000000007FFFFFFFFFFE0000000001FFFFFFFFFFFF0000000003FFFF000 +7FFFFC000000007FFE00000FFFFE00000000FFFF000003FFFF80000001FFFF800001FFFF +C0000001FFFFC00000FFFFE0000001FFFFC000007FFFF0000003FFFFE000003FFFF80000 +03FFFFE000001FFFF8000003FFFFE000001FFFFC000003FFFFE000000FFFFE000003FFFF +E000000FFFFE000003FFFFE000000FFFFF000003FFFFE0000007FFFF000003FFFFE00000 +07FFFF000001FFFFC0000007FFFF000001FFFFC0000003FFFF800000FFFF80000003FFFF +8000007FFF00000003FFFF8000003FFE00000003FFFF8000000FF800000003FFFF800000 +03E000000003FFFF800000000000000003FFFF800000000000000003FFFF800000000000 +000003FFFF800000000000000003FFFF800000000000000003FFFF800000000000000003 +FFFF800000000000000003FFFF8000000000000007FFFFFF8000000000001FFFFFFFFF80 +0000000003FFFFFFFFFF80000000007FFFFFFFFFFF8000000003FFFFFFFFFFFF80000000 +1FFFFFFE03FFFF80000000FFFFFF8003FFFF80000003FFFFF80003FFFF8000000FFFFFC0 +0003FFFF8000001FFFFF000003FFFF8000007FFFFC000003FFFF800000FFFFF0000003FF +FF800001FFFFC0000003FFFF800003FFFF80000003FFFF800007FFFF00000003FFFF8000 +0FFFFE00000003FFFF80001FFFFE00000003FFFF80003FFFFC00000003FFFF80003FFFF8 +00000003FFFF80007FFFF800000003FFFF80007FFFF000000003FFFF80007FFFF0000000 +03FFFF8000FFFFF000000003FFFF8000FFFFE000000003FFFF8000FFFFE000000003FFFF +8000FFFFE000000003FFFF8000FFFFE000000007FFFF8000FFFFE000000007FFFF8000FF +FFE000000007FFFF8000FFFFF00000000FFFFF8000FFFFF00000000FFFFF80007FFFF000 +00001FFFFF80007FFFF80000003FFFFF80007FFFF80000007EFFFF80003FFFFC0000007E +FFFFC0003FFFFE000001FCFFFFE0001FFFFF000003F8FFFFFC000FFFFF80000FF0FFFFFF +FC07FFFFE0003FE07FFFFFFE01FFFFFC03FFC07FFFFFFE00FFFFFFFFFF803FFFFFFE003F +FFFFFFFE001FFFFFFE000FFFFFFFFC0007FFFFFE0003FFFFFFF00001FFFFFE00003FFFFF +8000003FFFFC000001FFF800000000000057507ACE5E>97 D<000000003FFFF000000000 +000007FFFFFFC000000000003FFFFFFFF80000000001FFFFFFFFFE0000000007FFFFFFFF +FF800000001FFFFFFFFFFFE00000007FFFFFFFFFFFF0000000FFFFFC001FFFF8000003FF +FFC00003FFFC000007FFFF000007FFFE00000FFFFE00000FFFFE00001FFFFC00000FFFFE +00003FFFF000001FFFFF00007FFFF000001FFFFF0000FFFFE000001FFFFF0001FFFFC000 +001FFFFF0001FFFFC000001FFFFF0003FFFF8000001FFFFF0007FFFF0000001FFFFF0007 +FFFF0000001FFFFF000FFFFF0000000FFFFE000FFFFE0000000FFFFE001FFFFE00000007 +FFFC001FFFFE00000003FFF8001FFFFC00000001FFF0003FFFFC000000007FC0003FFFFC +000000001F00003FFFFC000000000000007FFFFC000000000000007FFFFC000000000000 +007FFFF8000000000000007FFFF8000000000000007FFFF800000000000000FFFFF80000 +0000000000FFFFF800000000000000FFFFF800000000000000FFFFF800000000000000FF +FFF800000000000000FFFFF800000000000000FFFFF800000000000000FFFFF800000000 +000000FFFFF800000000000000FFFFF800000000000000FFFFF800000000000000FFFFF8 +00000000000000FFFFF800000000000000FFFFF800000000000000FFFFF8000000000000 +007FFFF8000000000000007FFFFC000000000000007FFFFC000000000000007FFFFC0000 +00000000007FFFFC000000000000003FFFFC000000000000003FFFFE000000000000003F +FFFE000000000000001FFFFE000000000000001FFFFF000000000000000FFFFF00000000 +001F800FFFFF00000000003FC007FFFF80000000007FC007FFFF80000000007FC003FFFF +C000000000FF8003FFFFE000000000FF8001FFFFE000000001FF8000FFFFF000000001FF +00007FFFF800000003FE00003FFFFC00000007FE00001FFFFE0000000FFC00000FFFFF80 +00001FF8000007FFFFE000007FF0000003FFFFF80001FFE0000000FFFFFF801FFFC00000 +007FFFFFFFFFFF000000001FFFFFFFFFFE0000000007FFFFFFFFF80000000001FFFFFFFF +E000000000007FFFFFFF80000000000007FFFFFC000000000000003FFF800000004A507A +CE56>99 D<00000000000000000FFFE00000000000000007FFFFFFE00000000000000007 +FFFFFFE00000000000000007FFFFFFE00000000000000007FFFFFFE00000000000000007 +FFFFFFE00000000000000007FFFFFFE00000000000000007FFFFFFE00000000000000007 +FFFFFFE0000000000000000003FFFFE0000000000000000000FFFFE00000000000000000 +007FFFE00000000000000000007FFFE00000000000000000007FFFE00000000000000000 +007FFFE00000000000000000007FFFE00000000000000000007FFFE00000000000000000 +007FFFE00000000000000000007FFFE00000000000000000007FFFE00000000000000000 +007FFFE00000000000000000007FFFE00000000000000000007FFFE00000000000000000 +007FFFE00000000000000000007FFFE00000000000000000007FFFE00000000000000000 +007FFFE00000000000000000007FFFE00000000000000000007FFFE00000000000000000 +007FFFE00000000000000000007FFFE00000000000000000007FFFE00000000000000000 +007FFFE00000000000000000007FFFE00000000000000000007FFFE00000000000000000 +007FFFE00000000000000000007FFFE00000000000000000007FFFE00000000000000000 +007FFFE00000000000000000007FFFE00000000000000000007FFFE00000000000000000 +007FFFE000000000003FFF80007FFFE00000000007FFFFF8007FFFE0000000003FFFFFFF +007FFFE000000001FFFFFFFFC07FFFE000000007FFFFFFFFF07FFFE00000001FFFFFFFFF +FC7FFFE00000007FFFFE007FFE7FFFE0000000FFFFF0000FFF7FFFE0000003FFFF800001 +FFFFFFE0000007FFFE0000007FFFFFE000000FFFFC0000003FFFFFE000001FFFF8000000 +1FFFFFE000003FFFF00000000FFFFFE000007FFFE000000007FFFFE00000FFFFC0000000 +03FFFFE00001FFFFC000000001FFFFE00003FFFF8000000000FFFFE00003FFFF00000000 +00FFFFE00007FFFF0000000000FFFFE00007FFFF0000000000FFFFE0000FFFFE00000000 +00FFFFE0000FFFFE0000000000FFFFE0001FFFFE0000000000FFFFE0001FFFFC00000000 +00FFFFE0003FFFFC0000000000FFFFE0003FFFFC0000000000FFFFE0003FFFFC00000000 +00FFFFE0007FFFFC0000000000FFFFE0007FFFF80000000000FFFFE0007FFFF800000000 +00FFFFE0007FFFF80000000000FFFFE0007FFFF80000000000FFFFE000FFFFF800000000 +00FFFFE000FFFFF80000000000FFFFE000FFFFF80000000000FFFFE000FFFFF800000000 +00FFFFE000FFFFF80000000000FFFFE000FFFFF80000000000FFFFE000FFFFF800000000 +00FFFFE000FFFFF80000000000FFFFE000FFFFF80000000000FFFFE000FFFFF800000000 +00FFFFE000FFFFF80000000000FFFFE000FFFFF80000000000FFFFE000FFFFF800000000 +00FFFFE000FFFFF80000000000FFFFE000FFFFF80000000000FFFFE0007FFFF800000000 +00FFFFE0007FFFF80000000000FFFFE0007FFFF80000000000FFFFE0007FFFF800000000 +00FFFFE0007FFFFC0000000000FFFFE0003FFFFC0000000000FFFFE0003FFFFC00000000 +00FFFFE0003FFFFC0000000000FFFFE0001FFFFC0000000000FFFFE0001FFFFC00000000 +00FFFFE0001FFFFE0000000000FFFFE0000FFFFE0000000000FFFFE0000FFFFE00000000 +00FFFFE00007FFFF0000000000FFFFE00007FFFF0000000001FFFFE00003FFFF80000000 +03FFFFE00001FFFF8000000007FFFFE00000FFFFC000000007FFFFE00000FFFFC0000000 +0FFFFFE000007FFFE00000001FFFFFE000003FFFF00000003FFFFFE000001FFFF8000000 +FFFFFFF000000FFFFC000001FFFFFFFC000003FFFF000007FFFFFFFFFE0001FFFFC0003F +FEFFFFFFFE00007FFFFC01FFF8FFFFFFFE00003FFFFFFFFFF0FFFFFFFE00000FFFFFFFFF +C0FFFFFFFE000003FFFFFFFF00FFFFFFFE0000007FFFFFFC00FFFFFFFE0000000FFFFFE0 +00FFFFFFFE000000007FFE0000FFFE00005F797AF76C>I<0001FFFC0000000000000000 +00FFFFFFFC000000000000000000FFFFFFFC000000000000000000FFFFFFFC0000000000 +00000000FFFFFFFC000000000000000000FFFFFFFC000000000000000000FFFFFFFC0000 +00000000000000FFFFFFFC000000000000000000FFFFFFFC000000000000000000007FFF +FC000000000000000000001FFFFC000000000000000000000FFFFC000000000000000000 +000FFFFC000000000000000000000FFFFC000000000000000000000FFFFC000000000000 +000000000FFFFC000000000000000000000FFFFC000000000000000000000FFFFC000000 +000000000000000FFFFC000000000000000000000FFFFC000000000000000000000FFFFC +000000000000000000000FFFFC000000000000000000000FFFFC00000000000000000000 +0FFFFC000000000000000000000FFFFC000000000000000000000FFFFC00000000000000 +0000000FFFFC000000000000000000000FFFFC000000000000000000000FFFFC00000000 +0000000000000FFFFC000000000000000000000FFFFC000000000000000000000FFFFC00 +0000000000000000000FFFFC000000000000000000000FFFFC000000000000000000000F +FFFC000000000000000000000FFFFC000000000000000000000FFFFC0000000000000000 +00000FFFFC000000000000000000000FFFFC000000000000000000000FFFFC0000000000 +00000000000FFFFC000000000000000000000FFFFC000000000000000000000FFFFC0000 +0FFFE000000000000FFFFC0000FFFFFE00000000000FFFFC0003FFFFFF80000000000FFF +FC000FFFFFFFE0000000000FFFFC003FFFFFFFF8000000000FFFFC007FFFFFFFFC000000 +000FFFFC01FFF01FFFFE000000000FFFFC03FF0007FFFF000000000FFFFC07FC0003FFFF +800000000FFFFC0FF00001FFFFC00000000FFFFC1FC00000FFFFC00000000FFFFC3F8000 +00FFFFE00000000FFFFC7F000000FFFFE00000000FFFFC7E0000007FFFF00000000FFFFC +FC0000007FFFF00000000FFFFDF80000007FFFF00000000FFFFDF00000007FFFF0000000 +0FFFFFF00000003FFFF80000000FFFFFE00000003FFFF80000000FFFFFE00000003FFFF8 +0000000FFFFFC00000003FFFF80000000FFFFFC00000003FFFF80000000FFFFF80000000 +3FFFF80000000FFFFF800000003FFFF80000000FFFFF000000003FFFF80000000FFFFF00 +0000003FFFF80000000FFFFF000000003FFFF80000000FFFFF000000003FFFF80000000F +FFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF800 +00000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003F +FFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE0000 +00003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFF +FE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000 +000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFF +F80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000 +003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE +000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF8000000 +0FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF8 +0000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE00000000 +3FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE00 +0000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000F +FFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF800 +00000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003F +FFF80000FFFFFFFFFFE003FFFFFFFFFF80FFFFFFFFFFE003FFFFFFFFFF80FFFFFFFFFFE0 +03FFFFFFFFFF80FFFFFFFFFFE003FFFFFFFFFF80FFFFFFFFFFE003FFFFFFFFFF80FFFFFF +FFFFE003FFFFFFFFFF80FFFFFFFFFFE003FFFFFFFFFF80FFFFFFFFFFE003FFFFFFFFFF80 +617879F76C>104 D<0001FC0000000007FF000000001FFFC00000003FFFE00000007FFF +F0000000FFFFF8000000FFFFF8000001FFFFFC000001FFFFFC000003FFFFFE000003FFFF +FE000003FFFFFE000003FFFFFE000003FFFFFE000003FFFFFE000003FFFFFE000001FFFF +FC000001FFFFFC000000FFFFF8000000FFFFF80000007FFFF00000003FFFE00000001FFF +C000000007FF0000000001FC000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000001FFFC00007FFFFFFC00007FFFFFFC00007FFFFF +FC00007FFFFFFC00007FFFFFFC00007FFFFFFC00007FFFFFFC00007FFFFFFC0000007FFF +FC0000001FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFF +FC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFF +FC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFF +FC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFF +FC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFF +FC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFF +FC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFF +FC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFF +FC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFF +FC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFF +FC0000FFFFFFFFFF80FFFFFFFFFF80FFFFFFFFFF80FFFFFFFFFF80FFFFFFFFFF80FFFFFF +FFFF80FFFFFFFFFF80FFFFFFFFFF80297979F835>I<0001FFFC0000FFFFFFFC0000FFFF +FFFC0000FFFFFFFC0000FFFFFFFC0000FFFFFFFC0000FFFFFFFC0000FFFFFFFC0000FFFF +FFFC0000007FFFFC0000001FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000F +FFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000F +FFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000F +FFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000F +FFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000F +FFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000F +FFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000F +FFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000F +FFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000F +FFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000F +FFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000F +FFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000F +FFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000F +FFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000F +FFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000F +FFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000F +FFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000FFFFC0000000F +FFFC0000000FFFFC0000FFFFFFFFFFC0FFFFFFFFFFC0FFFFFFFFFFC0FFFFFFFFFFC0FFFF +FFFFFFC0FFFFFFFFFFC0FFFFFFFFFFC0FFFFFFFFFFC02A7879F735>108 +D<0001FFF800000FFFE000000000FFFFFFF80000FFFFFE00000000FFFFFFF80003FFFFFF +80000000FFFFFFF8000FFFFFFFE0000000FFFFFFF8003FFFFFFFF8000000FFFFFFF8007F +FFFFFFFC000000FFFFFFF801FFF01FFFFE000000FFFFFFF803FF0007FFFF000000FFFFFF +F807FC0003FFFF800000007FFFF80FF00001FFFFC00000001FFFF81FC00000FFFFC00000 +000FFFF83F800000FFFFE00000000FFFF87F000000FFFFE00000000FFFF87E0000007FFF +F00000000FFFF8FC0000007FFFF00000000FFFF9F80000007FFFF00000000FFFF9F00000 +007FFFF00000000FFFFBF00000003FFFF80000000FFFFBE00000003FFFF80000000FFFFF +E00000003FFFF80000000FFFFFC00000003FFFF80000000FFFFFC00000003FFFF8000000 +0FFFFF800000003FFFF80000000FFFFF800000003FFFF80000000FFFFF000000003FFFF8 +0000000FFFFF000000003FFFF80000000FFFFF000000003FFFF80000000FFFFF00000000 +3FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE00 +0000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000F +FFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF800 +00000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003F +FFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE0000 +00003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFF +FE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000 +000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFF +F80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000 +003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE +000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF8000000 +0FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF8 +0000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE00000000 +3FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE00 +0000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000F +FFFE000000003FFFF80000FFFFFFFFFFE003FFFFFFFFFF80FFFFFFFFFFE003FFFFFFFFFF +80FFFFFFFFFFE003FFFFFFFFFF80FFFFFFFFFFE003FFFFFFFFFF80FFFFFFFFFFE003FFFF +FFFFFF80FFFFFFFFFFE003FFFFFFFFFF80FFFFFFFFFFE003FFFFFFFFFF80FFFFFFFFFFE0 +03FFFFFFFFFF80614E79CD6C>110 D<000003FFFC00078000007FFFFFE00FC00003FFFF +FFF83FC0000FFFFFFFFEFFC0003FFFFFFFFFFFC0007FFF000FFFFFC001FFF00000FFFFC0 +03FF8000003FFFC007FF0000000FFFC00FFE00000007FFC01FFC00000003FFC01FF80000 +0001FFC03FF800000001FFC03FF800000000FFC07FF000000000FFC07FF0000000007FC0 +7FF0000000007FC0FFF0000000007FC0FFF8000000003FC0FFF8000000003FC0FFF80000 +00003FC0FFFC000000003FC0FFFE000000003FC0FFFF000000001F80FFFFC00000000000 +FFFFF00000000000FFFFFE0000000000FFFFFFF0000000007FFFFFFF800000007FFFFFFF +FE0000007FFFFFFFFFE000003FFFFFFFFFFC00001FFFFFFFFFFF00001FFFFFFFFFFFC000 +0FFFFFFFFFFFE00007FFFFFFFFFFF80003FFFFFFFFFFFC0001FFFFFFFFFFFE0000FFFFFF +FFFFFF00003FFFFFFFFFFF80001FFFFFFFFFFFC00007FFFFFFFFFFE00001FFFFFFFFFFF0 +00003FFFFFFFFFF0000007FFFFFFFFF80000001FFFFFFFF800000000FFFFFFFC00000000 +07FFFFFC00000000007FFFFC00000000001FFFFE000000000007FFFE7E0000000003FFFE +FF0000000001FFFEFF0000000000FFFEFF80000000007FFEFF80000000007FFEFF800000 +00003FFEFFC0000000003FFEFFC0000000001FFEFFC0000000001FFEFFE0000000001FFE +FFE0000000001FFCFFF0000000001FFCFFF0000000001FFCFFF8000000003FFCFFFC0000 +00003FF8FFFE000000007FF8FFFE000000007FF0FFFF00000000FFF0FFFF80000001FFE0 +FFFFE0000003FFC0FFFFF0000007FF80FFFFFE00003FFF00FFFFFFC003FFFE00FFE7FFFF +FFFFFC00FFC3FFFFFFFFF000FF80FFFFFFFFC000FE003FFFFFFF0000FC0007FFFFF80000 +7000007FFF0000003F507ACE4C>115 D<0000FFFE0000000003FFF80000FFFFFFFE0000 +03FFFFFFF80000FFFFFFFE000003FFFFFFF80000FFFFFFFE000003FFFFFFF80000FFFFFF +FE000003FFFFFFF80000FFFFFFFE000003FFFFFFF80000FFFFFFFE000003FFFFFFF80000 +FFFFFFFE000003FFFFFFF80000FFFFFFFE000003FFFFFFF80000007FFFFE00000001FFFF +F80000001FFFFE000000007FFFF80000000FFFFE000000003FFFF80000000FFFFE000000 +003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE +000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF8000000 +0FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF8 +0000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE00000000 +3FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE00 +0000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000F +FFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF800 +00000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003F +FFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE0000 +00003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFF +FE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000 +000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFF +F80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000 +003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE +000000003FFFF80000000FFFFE000000003FFFF80000000FFFFE000000003FFFF8000000 +0FFFFE000000003FFFF80000000FFFFE000000007FFFF80000000FFFFE000000007FFFF8 +0000000FFFFE000000007FFFF80000000FFFFE000000007FFFF80000000FFFFE00000000 +FFFFF80000000FFFFE00000000FFFFF80000000FFFFE00000001FFFFF80000000FFFFE00 +000001FFFFF80000000FFFFE00000003FFFFF800000007FFFE00000007FFFFF800000007 +FFFE00000007DFFFF800000007FFFF0000000FDFFFF800000003FFFF0000001F9FFFF800 +000003FFFF0000003F9FFFFC00000001FFFF8000007F1FFFFF00000000FFFFC00001FE1F +FFFFFF800000FFFFE00007FC1FFFFFFF8000003FFFFE003FF81FFFFFFF8000001FFFFFFF +FFF01FFFFFFF8000000FFFFFFFFFC01FFFFFFF80000003FFFFFFFF801FFFFFFF80000000 +FFFFFFFE001FFFFFFF800000001FFFFFF8001FFFFFFF8000000000FFFF80001FFFC00000 +614F79CD6C>117 D121 D E /Fv 6 81 df<001FE000007FF80001FFFE +0007FFFF800FFFFFC01FFFFFE01FFFFFE03FFFFFF03FFFFFF07FFFFFF87FFFFFF8FFFFFF +FCFFFFFFFCFFFFFFFCFFFFFFFCFFFFFFFCFFFFFFFCFFFFFFFCFFFFFFFC7FFFFFF87FFFFF +F83FFFFFF03FFFFFF01FFFFFE01FFFFFE00FFFFFC007FFFF8001FFFE00007FF800001FE0 +001E1E6F9D41>46 D[<0000000000000000007FC00000000000000000000000FFE00000 +000000000000000001FFE00000000000000000000003FFE00000000000000000000003FF +E00000000000000000000007FFE0000000000000000000000FFFE0000000000000000000 +001FFFE0000000000000000000001FFFE0000000000000000000003FFFE0000000000000 +000000007FFFE000000000000000000000FFFFE000000000000000000001FFFFE0000000 +00000000000001FFFFE000000000000000000003FFFFE000000000000000000007FFFFE0 +0000000000000000000FFFFFE00000000000000000000FFFFFE00000000000000000001F +FFFFE00000000000000000003FFFFFE00000000000000000007FFFFFE000000000000000 +0000FFFFFFE0000000000000000000FFFFFFE0000000000000000001FFFFFFE000000000 +0000000003FFFFFFE0000000000000000007FFFFFFE0000000000000000007FFFFFFE000 +000000000000000FFFFFFFE000000000000000001FFFFFFFE000000000000000003FFFFF +FFE000000000000000007FEFFFFFE000000000000000007FCFFFFFE00000000000000000 +FFCFFFFFE00000000000000001FF8FFFFFE00000000000000003FF0FFFFFE00000000000 +000003FE0FFFFFE00000000000000007FE0FFFFFE0000000000000000FFC0FFFFFE00000 +00000000001FF80FFFFFE0000000000000003FF00FFFFFE0000000000000003FE00FFFFF +E0000000000000007FE00FFFFFE000000000000000FFC00FFFFFE000000000000001FF80 +0FFFFFE000000000000001FF000FFFFFE000000000000003FF000FFFFFE0000000000000 +07FE000FFFFFE00000000000000FFC000FFFFFE00000000000001FF8000FFFFFE0000000 +0000001FF0000FFFFFE00000000000003FF0000FFFFFE00000000000007FE0000FFFFFE0 +000000000000FFC0000FFFFFE0000000000000FF80000FFFFFE0000000000001FF80000F +FFFFE0000000000003FF00000FFFFFE0000000000007FE00000FFFFFE000000000000FFC +00000FFFFFE000000000000FF800000FFFFFE000000000001FF800000FFFFFE000000000 +003FF000000FFFFFE000000000007FE000000FFFFFE000000000007FC000000FFFFFE000 +00000000FFC000000FFFFFE00000000001FF8000000FFFFFE00000000003FF0000000FFF +FFE00000000007FE0000000FFFFFE00000000007FC0000000FFFFFE0000000000FFC0000 +000FFFFFE0000000001FF80000000FFFFFE0000000003FF00000000FFFFFE0000000003F +E00000000FFFFFE0000000007FE00000000FFFFFE000000000FFC00000000FFFFFE00000 +0001FF800000000FFFFFE000000003FF000000000FFFFFE000000003FE000000000FFFFF +E000000007FE000000000FFFFFE00000000FFC000000000FFFFFE00000001FF800000000 +0FFFFFE00000001FF0000000000FFFFFE00000003FF0000000000FFFFFE00000007FE000 +0000000FFFFFE0000000FFC0000000000FFFFFE0000001FF80000000000FFFFFE0000001 +FF00000000000FFFFFE0000003FF00000000000FFFFFE0000007FE00000000000FFFFFE0 +00000FFC00000000000FFFFFE000000FF800000000000FFFFFE000001FF800000000000F +FFFFE000003FF000000000000FFFFFE000007FE000000000000FFFFFE00000FFC0000000 +00000FFFFFE00000FFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFEFFFF +FFFFFFFFFFFFFFFFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFF +FEFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFFFFFFFFFFFF +FFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFE000000000000003FFFFFE00000000000000000 +003FFFFFE00000000000000000003FFFFFE00000000000000000003FFFFFE00000000000 +000000003FFFFFE00000000000000000003FFFFFE00000000000000000003FFFFFE00000 +000000000000003FFFFFE00000000000000000003FFFFFE00000000000000000003FFFFF +E00000000000000000003FFFFFE00000000000000000003FFFFFE0000000000000000000 +3FFFFFE00000000000000000003FFFFFE00000000000000000003FFFFFE0000000000000 +0000003FFFFFE00000000000000000003FFFFFE00000000000000000003FFFFFE0000000 +0000000000003FFFFFE00000000000000000003FFFFFE00000000000000000003FFFFFE0 +0000000000000000003FFFFFE00000000000000000003FFFFFE00000000000000000003F +FFFFE00000000000000FFFFFFFFFFFFFFFFE000000000FFFFFFFFFFFFFFFFE000000000F +FFFFFFFFFFFFFFFE000000000FFFFFFFFFFFFFFFFE000000000FFFFFFFFFFFFFFFFE0000 +00000FFFFFFFFFFFFFFFFE000000000FFFFFFFFFFFFFFFFE000000000FFFFFFFFFFFFFFF +FE000000000FFFFFFFFFFFFFFFFE>103 136 122 263 116 52 D[<000E000000000000 +0000E000001FC000000000000007F000001FF00000000000003FF000001FFF0000000000 +01FFF000001FFFE0000000000FFFF000001FFFFF00000001FFFFF000001FFFFFFE0000FF +FFFFE000001FFFFFFFFFFFFFFFFFC000001FFFFFFFFFFFFFFFFFC000001FFFFFFFFFFFFF +FFFF8000001FFFFFFFFFFFFFFFFF0000001FFFFFFFFFFFFFFFFE0000001FFFFFFFFFFFFF +FFFC0000001FFFFFFFFFFFFFFFF80000001FFFFFFFFFFFFFFFF00000001FFFFFFFFFFFFF +FFE00000001FFFFFFFFFFFFFFFC00000001FFFFFFFFFFFFFFF800000001FFFFFFFFFFFFF +FF000000001FFFFFFFFFFFFFFC000000001FFFFFFFFFFFFFF8000000001FFFFFFFFFFFFF +E0000000001FFFFFFFFFFFFFC0000000001FFFFFFFFFFFFF00000000001FFFFFFFFFFFFC +00000000001FFFFFFFFFFFF000000000001FFFFFFFFFFFC000000000001FFFFFFFFFFE00 +00000000001FFFFFFFFFF00000000000001FF87FFFFE000000000000001FF80000000000 +00000000001FF8000000000000000000001FF8000000000000000000001FF80000000000 +00000000001FF8000000000000000000001FF8000000000000000000001FF80000000000 +00000000001FF8000000000000000000001FF8000000000000000000001FF80000000000 +00000000001FF8000000000000000000001FF8000000000000000000001FF80000000000 +00000000001FF8000000000000000000001FF8000000000000000000001FF80000000000 +00000000001FF8000000000000000000001FF8000000000000000000001FF80000000000 +00000000001FF8000000000000000000001FF8000000000000000000001FF80000FFFF00 +00000000001FF8001FFFFFF800000000001FF801FFFFFFFF80000000001FF807FFFFFFFF +E0000000001FF81FFFFFFFFFFC000000001FF87FFFFFFFFFFF000000001FF9FFFFFFFFFF +FFC00000001FFBFFFF001FFFFFE00000001FFFFFE00003FFFFF80000001FFFFF000000FF +FFFC0000001FFFFC0000007FFFFE0000001FFFF00000001FFFFF0000001FFFC00000000F +FFFF8000001FFF800000000FFFFFC000001FFE0000000007FFFFE000001FFC0000000003 +FFFFF000001FF80000000003FFFFF800001FF00000000001FFFFFC00001FF00000000001 +FFFFFC00001FE00000000001FFFFFE00000FC00000000001FFFFFE000000000000000000 +FFFFFF000000000000000000FFFFFF000000000000000000FFFFFF800000000000000000 +FFFFFF800000000000000000FFFFFFC00000000000000000FFFFFFC00000000000000000 +7FFFFFE000000000000000007FFFFFE000000000000000007FFFFFE00000000000000000 +7FFFFFE000000000000000007FFFFFF000000000000000007FFFFFF00000000000000000 +7FFFFFF000000000000000007FFFFFF000000000000000007FFFFFF80000000000000000 +7FFFFFF800000000000000007FFFFFF800FFC000000000007FFFFFF803FFF00000000000 +7FFFFFF807FFFC00000000007FFFFFF80FFFFE00000000007FFFFFF81FFFFF0000000000 +7FFFFFF83FFFFF80000000007FFFFFF83FFFFF80000000007FFFFFF87FFFFFC000000000 +7FFFFFF87FFFFFC0000000007FFFFFF8FFFFFFC0000000007FFFFFF8FFFFFFE000000000 +7FFFFFF8FFFFFFE0000000007FFFFFF8FFFFFFE0000000007FFFFFF0FFFFFFE000000000 +7FFFFFF0FFFFFFE0000000007FFFFFF0FFFFFFE0000000007FFFFFF0FFFFFFC000000000 +7FFFFFE0FFFFFFC0000000007FFFFFE0FFFFFFC000000000FFFFFFE07FFFFF8000000000 +FFFFFFC07FFFFF8000000000FFFFFFC07FFFFF0000000000FFFFFFC07FFFFE0000000000 +FFFFFF803FFFFC0000000001FFFFFF803FFFF00000000001FFFFFF001FFFC00000000001 +FFFFFF001FF8000000000001FFFFFE000FFC000000000003FFFFFC000FFE000000000003 +FFFFFC0007FE000000000007FFFFF80007FF000000000007FFFFF00003FF80000000000F +FFFFE00001FFE0000000001FFFFFC00000FFF0000000003FFFFF800000FFF8000000007F +FFFF0000007FFE00000000FFFFFE0000003FFF80000003FFFFFC0000001FFFE000000FFF +FFF800000007FFFC00003FFFFFF000000003FFFFE003FFFFFFC000000001FFFFFFFFFFFF +FF00000000007FFFFFFFFFFFFC00000000001FFFFFFFFFFFF0000000000007FFFFFFFFFF +C0000000000001FFFFFFFFFF000000000000007FFFFFFFF0000000000000000FFFFFFF00 +00000000000000007FFFC00000000000>93 137 117 262 116 I[<01FF000000000000 +000000000001FF000000000000000000000001FF000000000000000000000003FF800000 +000000000000000003FFE00000000000000000000003FFFE0000000000000000000003FF +FFFFF8000000000000000003FFFFFFFFFFFFFFFFFFFFFFE003FFFFFFFFFFFFFFFFFFFFFF +E003FFFFFFFFFFFFFFFFFFFFFFE003FFFFFFFFFFFFFFFFFFFFFFE007FFFFFFFFFFFFFFFF +FFFFFFE007FFFFFFFFFFFFFFFFFFFFFFE007FFFFFFFFFFFFFFFFFFFFFFE007FFFFFFFFFF +FFFFFFFFFFFFE007FFFFFFFFFFFFFFFFFFFFFFC007FFFFFFFFFFFFFFFFFFFFFF8007FFFF +FFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFE000FFFFFFFFFFFFFFFFFFFFFFC00 +0FFFFFFFFFFFFFFFFFFFFFF8000FFFFFFFFFFFFFFFFFFFFFF8000FFFFFFFFFFFFFFFFFFF +FFF0000FFFFFFFFFFFFFFFFFFFFFE0000FFFFFFFFFFFFFFFFFFFFFC0000FFFFFFFFFFFFF +FFFFFFFF80001FFFFFFFFFFFFFFFFFFFFF00001FFFFFFFFFFFFFFFFFFFFF00001FFFFFFF +FFFFFFFFFFFFFE00001FFFFFFFFFFFFFFFFFFFFC00001FFFFFFFFFFFFFFFFFFFF800001F +FFFFFFFFFFFFFFFFFFF000001FFFE0000000000000FFE000003FFC00000000000001FFE0 +00003FF800000000000003FFC000003FF800000000000007FF8000003FF0000000000000 +07FF0000003FF00000000000000FFE0000003FF00000000000001FFC0000003FE0000000 +0000003FFC0000003FE00000000000007FF80000007FE0000000000000FFF00000007FE0 +000000000000FFE00000007FC0000000000001FFC00000007FC0000000000003FF800000 +007FC0000000000007FF800000007FC000000000000FFF000000007FC000000000001FFE +00000000FF8000000000001FFC00000000FF8000000000003FF800000000FF8000000000 +007FF000000000FF800000000000FFF00000000000000000000001FFE000000000000000 +00000003FFC00000000000000000000003FF800000000000000000000007FF0000000000 +0000000000000FFF00000000000000000000001FFE00000000000000000000001FFC0000 +0000000000000000003FFC00000000000000000000007FF800000000000000000000007F +F80000000000000000000000FFF00000000000000000000001FFF0000000000000000000 +0001FFE00000000000000000000003FFE00000000000000000000007FFC0000000000000 +0000000007FFC0000000000000000000000FFFC0000000000000000000001FFF80000000 +000000000000001FFF80000000000000000000003FFF80000000000000000000003FFF00 +000000000000000000007FFF00000000000000000000007FFF0000000000000000000000 +FFFE0000000000000000000000FFFE0000000000000000000001FFFE0000000000000000 +000001FFFE0000000000000000000003FFFC0000000000000000000003FFFC0000000000 +000000000007FFFC0000000000000000000007FFFC000000000000000000000FFFFC0000 +00000000000000000FFFFC000000000000000000001FFFF8000000000000000000001FFF +F8000000000000000000003FFFF8000000000000000000003FFFF8000000000000000000 +003FFFF8000000000000000000007FFFF8000000000000000000007FFFF0000000000000 +000000007FFFF000000000000000000000FFFFF000000000000000000000FFFFF0000000 +00000000000000FFFFF000000000000000000001FFFFF000000000000000000001FFFFF0 +00000000000000000001FFFFF000000000000000000003FFFFF000000000000000000003 +FFFFF000000000000000000003FFFFF000000000000000000007FFFFF000000000000000 +000007FFFFE000000000000000000007FFFFE000000000000000000007FFFFE000000000 +00000000000FFFFFE00000000000000000000FFFFFE00000000000000000000FFFFFE000 +00000000000000000FFFFFE00000000000000000000FFFFFE00000000000000000000FFF +FFE00000000000000000001FFFFFE00000000000000000001FFFFFE00000000000000000 +001FFFFFE00000000000000000001FFFFFE00000000000000000001FFFFFE00000000000 +000000001FFFFFE00000000000000000001FFFFFE00000000000000000003FFFFFE00000 +000000000000003FFFFFE00000000000000000003FFFFFE00000000000000000003FFFFF +E00000000000000000003FFFFFE00000000000000000003FFFFFE0000000000000000000 +3FFFFFE00000000000000000003FFFFFE00000000000000000003FFFFFE0000000000000 +0000003FFFFFE00000000000000000003FFFFFE00000000000000000003FFFFFE0000000 +0000000000003FFFFFE00000000000000000003FFFFFE00000000000000000001FFFFFC0 +0000000000000000001FFFFFC00000000000000000001FFFFFC00000000000000000000F +FFFF8000000000000000000007FFFF0000000000000000000003FFFE0000000000000000 +000001FFFC00000000000000000000007FF000000000000000000000001FC00000000000 +0000>99 142 115 267 116 55 D[<00000007FFFFFFFFFFFFFFFFF000000007FFFFFFFF +FFFFFFFFF000000007FFFFFFFFFFFFFFFFF000000007FFFFFFFFFFFFFFFFF000000007FF +FFFFFFFFFFFFFFF000000007FFFFFFFFFFFFFFFFF000000007FFFFFFFFFFFFFFFFF00000 +0007FFFFFFFFFFFFFFFFF000000007FFFFFFFFFFFFFFFFF0000000000000007FFFFFF000 +00000000000000007FFFFFF00000000000000000007FFFFFF00000000000000000007FFF +FFF00000000000000000007FFFFFF00000000000000000007FFFFFF00000000000000000 +007FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF00000000000 +000000007FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF00000 +000000000000007FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFF +F00000000000000000007FFFFFF00000000000000000007FFFFFF0000000000000000000 +7FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF0000000000000 +0000007FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF0000000 +0000000000007FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF0 +0000000000000000007FFFFFF00000000000000000007FFFFFF00000000000000000007F +FFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF000000000000000 +00007FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF000000000 +00000000007FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF000 +00000000000000007FFFFFF00000000000000000007FFFFFF00000000000000000007FFF +FFF00000000000000000007FFFFFF00000000000000000007FFFFFF00000000000000000 +007FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF00000000000 +000000007FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF00000 +000000000000007FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFF +F00000000000000000007FFFFFF00000000000000000007FFFFFF0000000000000000000 +7FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF0000000000000 +0000007FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF0000000 +0000000000007FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF0 +0000000000000000007FFFFFF00000000000000000007FFFFFF00000000000000000007F +FFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF000000000000000 +00007FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF000000000 +00000000007FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF000 +00000000000000007FFFFFF00000000000000000007FFFFFF00000000000000000007FFF +FFF00000000000000000007FFFFFF00000000000000000007FFFFFF00000000000000000 +007FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF00000000000 +000000007FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF00000 +000000000000007FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFF +F00000000000000000007FFFFFF00000000000000000007FFFFFF0000000000000000000 +7FFFFFF00000000000000000007FFFFFF00000000000000000007FFFFFF0000000000000 +0000007FFFFFF00000000000000000007FFFFFF00000000FC0000000007FFFFFF0000000 +7FF8000000007FFFFFF0000001FFFE000000007FFFFFF0000003FFFF000000007FFFFFF0 +000007FFFF800000007FFFFFF000000FFFFFC00000007FFFFFF000001FFFFFE00000007F +FFFFF000003FFFFFF00000007FFFFFF000003FFFFFF00000007FFFFFF000007FFFFFF800 +00007FFFFFF000007FFFFFF80000007FFFFFF00000FFFFFFFC0000007FFFFFF00000FFFF +FFFC0000007FFFFFF00000FFFFFFFC0000007FFFFFF00000FFFFFFFC0000007FFFFFE000 +00FFFFFFFC000000FFFFFFE00000FFFFFFFC000000FFFFFFE00000FFFFFFFC000000FFFF +FFE00000FFFFFFFC000000FFFFFFC00000FFFFFFFC000000FFFFFFC000007FFFFFF80000 +01FFFFFF8000007FFFFFF8000001FFFFFF8000007FFFFFF0000001FFFFFF0000003FFFFF +F0000003FFFFFF0000003FFFFFE0000003FFFFFE0000001FFFFFC0000007FFFFFC000000 +1FFFFF8000000FFFFFF80000000FFFFF0000000FFFFFF800000007FFFC0000001FFFFFF0 +00000003FFF00000003FFFFFE000000001FFF80000007FFFFFC000000000FFFE000001FF +FFFF00000000007FFFE00007FFFFFE00000000003FFFFE003FFFFFF800000000000FFFFF +FFFFFFFFF0000000000007FFFFFFFFFFFFC0000000000001FFFFFFFFFFFF000000000000 +003FFFFFFFFFF8000000000000000FFFFFFFFFC00000000000000000FFFFFFFC00000000 +000000000007FFFF00000000000000>100 144 123 269 120 74 +D[137 142 120 269 159 80 D E /Fw 110 128 df0 D<000000001800000000000000003C00000000000000003C00000000000000007E +00000000000000007E0000000000000000FF0000000000000000FF0000000000000001FF +8000000000000001FF80000000000000037FC0000000000000037FC0000000000000063F +E0000000000000063FE00000000000000C1FF00000000000000C1FF0000000000000180F +F8000000000000180FF80000000000003807FC0000000000003007FC0000000000007003 +FE0000000000006003FE000000000000E001FF000000000000C001FF000000000001C000 +FF8000000000018000FF80000000000380007FC0000000000300007FC000000000070000 +3FE0000000000600003FE0000000000E00001FF0000000000C00001FF0000000001C0000 +0FF8000000001800000FF80000000038000007FC0000000030000007FC00000000700000 +03FE0000000060000003FE00000000E0000001FF00000000C0000001FF00000001C00000 +00FF8000000180000000FF80000003800000007FC0000003000000007FC0000003000000 +003FC0000006000000003FE0000006000000001FE000000C000000001FF000000C000000 +000FF0000018000000000FF80000180000000007F80000300000000007FC000030000000 +0003FC0000600000000003FE0000600000000003FE0000C00000000001FF0000C0000000 +0001FF0001800000000000FF8001800000000000FF80030000000000007FC00300000000 +00007FC0060000000000003FE0060000000000003FE00C0000000000001FF00C00000000 +00001FF01FFFFFFFFFFFFFFFF81FFFFFFFFFFFFFFFF83FFFFFFFFFFFFFFFFC3FFFFFFFFF +FFFFFFFC7FFFFFFFFFFFFFFFFE7FFFFFFFFFFFFFFFFEFFFFFFFFFFFFFFFFFF48477CC651 +>I<0000001FFC00000000000001FFFFC0000000000007F007F000000000001F8000FC00 +000000007E00003F0000000001FC00001FC000000003F0000007E000000007E0000003F0 +0000000FC0000001F80000001F80000000FC0000003F000000007E0000007F000000007F +000000FE000000003F800001FC000000001FC00003FC000000001FE00003F8000000000F +E00007F8000000000FF00007F00000000007F0000FF00000000007F8000FF00000000007 +F8001FE00000000003FC001FE00000000003FC003FE00000000003FE003FC00000000001 +FE003FC00000000001FE007FC00000000001FF007FC00000000001FF007FC00000000001 +FF007F800000000000FF007F8180000000C0FF00FF8180000000C0FF80FF8180000000C0 +FF80FF81FFFFFFFFC0FF80FF81FFFFFFFFC0FF80FF81FFFFFFFFC0FF80FF81FFFFFFFFC0 +FF80FF81FFFFFFFFC0FF80FF81FFFFFFFFC0FF80FF81FFFFFFFFC0FF80FF8180000000C0 +FF80FF8180000000C0FF80FF8180000000C0FF80FF800000000000FF807F800000000000 +FF007FC00000000001FF007FC00000000001FF007FC00000000001FF003FC00000000001 +FE003FC00000000001FE003FE00000000003FE001FE00000000003FC001FE00000000003 +FC000FE00000000003F8000FF00000000007F80007F00000000007F00007F8000000000F +F00003F8000000000FE00003FC000000001FE00001FC000000001FC00000FE000000003F +8000007F000000007F0000007F000000007F0000003F80000000FE0000001FC0000001FC +00000007E0000003F000000003F0000007E000000001FC00001FC0000000007E00003F00 +000000001F8000FC000000000007F007F0000000000001FFFFC00000000000001FFC0000 +000041487BC54C>I<000000070000000000000007000000000000000700000000000000 +0F800000000000000F800000000000000F800000000000001FC00000000000001FC00000 +000000001FC00000000000003FE00000000000003FE00000000000003FE0000000000000 +7FF00000000000006FF00000000000006FF0000000000000EFF8000000000000C7F80000 +00000000C7F8000000000001C7FC00000000000187FC00000000000183FC000000000003 +83FE00000000000303FE00000000000301FE00000000000701FF00000000000601FF0000 +0000000600FF00000000000E00FF80000000000C00FF80000000000C007F80000000000C +007F800000000018007FC00000000018003FC00000000018003FC00000000030003FE000 +00000030001FE00000000030001FE00000000060001FF00000000060000FF00000000060 +000FF000000000C0000FF800000000C00007F800000000C00007F800000001800007FC00 +000001800003FC00000001800003FC00000003000003FE00000003000001FE0000000300 +0001FE00000006000001FF00000006000000FF00000006000000FF0000000C000000FF80 +00000C0000007F8000000C0000007F800000180000007FC00000180000003FC000001800 +00003FC00000300000003FE00000300000001FE00000300000001FE00000700000001FF0 +0000600000001FF00000E00000000FF00000F00000000FF80001F00000000FF80003F800 +00000FFC000FFE0000003FFE00FFFFC00007FFFFF8FFFFC00007FFFFF8FFFFC00007FFFF +F83D477DC644>I<3FFFFFFFFFFFFC3FFFFFFFFFFFFC3FFFFFFFFFFFFC3FFFFFFFFFFFFC +3FFFFFFFFFFFFC3FFFFFFFFFFFFC3800000000001C3000000000000C7000000000000E70 +00000000000E600000000000066000000000000660000000000006600000000000066000 +000000000600000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000006000000006000060000000060000600000000600006000000006000060000000 +0600007FFFFFFFFE00007FFFFFFFFE00007FFFFFFFFE00007FFFFFFFFE00007FFFFFFFFE +00007FFFFFFFFE0000600000000600006000000006000060000000060000600000000600 +006000000006000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000C0000000000003C0000000000003C0000000000003C00000 +00000003C0000000000003C0000000000003E0000000000007E000000000000760000000 +0000067000000000000E7FFFFFFFFFFFFE7FFFFFFFFFFFFE7FFFFFFFFFFFFE7FFFFFFFFF +FFFE7FFFFFFFFFFFFE7FFFFFFFFFFFFE38447CC341>I6 +D<007F800000007F000001FFE0000003FFC00007FFF800000FFFF0000FFFFE00001FFFF8 +000FFFFF00003FFFF8001FFFFF80007FFFFC003FFFFFC000FFFFFE003F007FC001FF007E +007C001FE003FC001F0078000FF003F8000F00700003F007F0000700E00003F807E00003 +80E00001F80FC0000380C00000FC0FC0000180C000007C1F80000180C000007E1F800001 +800000003E1F000000000000003E3F000000000000003F3E000000000000001F3E000000 +000000001F3E000000000000001F3E000000000000000FFC000000000000000FFC000000 +000000000FFC000000000000000FFC000000000000000FFC000000000000000FF8000000 +0000000007F80000000000000007F80000000000000007F80000000000000007F8000000 +0000000007F80000000000000007F80000000000000007F80000000000000007F8000000 +0000000007F80000000000000007F80000000000000007F80000000000000007F8000000 +0000000007F80000000000000007F80000000000000007F80000000000000007F8000000 +0000000007F80000000000000007F80000000000000007F80000000000000007F8000000 +0000000007F80000000000000007F80000000000000007F80000000000000007F8000000 +0000000007F80000000000000007F80000000000000007F80000000000000007F8000000 +0000000007F80000000000000007F80000000000000007F80000000000000007F8000000 +0000000007F80000000000000007F80000000000000007F80000000000000007F8000000 +0000000007F8000000000000000FFC000000000000001FFE0000000000007FFFFFFF8000 +0000007FFFFFFF80000000007FFFFFFF80000041467BC54C>I<00007FFFFFFF80000000 +007FFFFFFF80000000007FFFFFFF8000000000001FFE000000000000000FFC0000000000 +000007F80000000000000007F80000000000000007F80000000000000007F80000000000 +000007F80000000000000007F80000000000000007F80000000000000007F800000000FF +800007F80000FF80FFE00007F80003FF801FF00007F80007FC000FF80007F8000FF80007 +F80007F8000FF00007FC0007F8001FF00003FC0007F8001FE00003FC0007F8001FE00003 +FE0007F8003FE00001FE0007F8003FC00001FE0007F8003FC00001FE0007F8003FC00001 +FE0007F8003FC00001FE0007F8003FC00001FE0007F8003FC00001FE0007F8003FC00001 +FE0007F8003FC00001FE0007F8003FC00001FE0007F8003FC00001FE0007F8003FC00001 +FE0007F8003FC00000FF0007F8003F800000FF0007F8007F800000FF0007F8007F800000 +FF0007F8007F800000FF0007F8007F8000007F8007F800FF0000007F8007F800FF000000 +3F8007F800FE0000003FC007F801FE0000001FC007F801FE0000001FE007F803FC000000 +0FE007F803F800000007F007F807F800000003F807F807F000000001FC07F80FE0000000 +00FE07F81FC0000000007F07F87F00000000001FC7F8FE000000000007FFFFF800000000 +0001FFFFC00000000000001FFC0000000000000007F80000000000000007F80000000000 +000007F80000000000000007F80000000000000007F80000000000000007F80000000000 +000007F80000000000000007F8000000000000000FFC000000000000001FFE0000000000 +007FFFFFFF80000000007FFFFFFF80000000007FFFFFFF80000041447BC34C>9 +D<0000007FF000000000000FFFFF80000000003FC01FE000000000FE0003F800000003F8 +0000FE0000000FE000003F8000001FC000001FC000007F8000000FF00000FF00000007F8 +0001FE00000003FC0003FC00000001FE0007FC00000001FF0007F800000000FF000FF000 +0000007F800FF0000000007F801FF0000000007FC01FE0000000003FC03FE0000000003F +E03FE0000000003FE03FE0000000003FE07FC0000000001FF07FC0000000001FF07FC000 +0000001FF07FC0000000001FF07FC0000000001FF07FC0000000001FF07FC0000000001F +F07FC0000000001FF07FC0000000001FF07FC0000000001FF03FE0000000003FE03FE000 +0000003FE03FE0000000003FE03FE0000000003FE01FE0000000003FC01FF0000000007F +C00FF0000000007F800FF0000000007F8007F800000000FF0007F800000000FF0003F800 +000000FE0003FC00000001FE0001FC00000001FC0000FC00000001F80000FE00000003F8 +00007E00000003F000007F00000007F000003F00000007E000001F00000007C000001F80 +00000FC000000F8000000F800000078000000F00000007C000001F00000003C000001E00 +00C003C000001E0018C001E000003C0018C001E000003C00186000E000003800306000F0 +000078003060007000007000306000700000700030700030000060007030003000006000 +603800380000E000E03FFFF80000FFFFE03FFFF80000FFFFE03FFFF80000FFFFE01FFFF8 +0000FFFFC01FFFF80000FFFFC01FFFF80000FFFFC03D467CC546>I<000000FFC001FC00 +00000FFFF80FFF0000003F803E3F03C00000FC00077E07E00003F8000FFC0FF00007F000 +3FF81FF0000FE0007FF01FF0001FC0007FF01FF0003F80007FE01FF0007F00007FE01FF0 +007F00007FE00FE000FF00003FC0038000FE00001FC0000000FE00001FC0000000FE0000 +1FC0000000FE00001FC0000000FE00001FC0000000FE00001FC0000000FE00001FC00000 +00FE00001FC0000000FE00001FC0000000FE00001FC0000000FE00001FC0000000FE0000 +1FC0000000FE00001FC0000000FE00001FC0000000FE00001FC00000FFFFFFFFFFFFF000 +FFFFFFFFFFFFF000FFFFFFFFFFFFF00000FE00001FC0000000FE00001FC0000000FE0000 +1FC0000000FE00001FC0000000FE00001FC0000000FE00001FC0000000FE00001FC00000 +00FE00001FC0000000FE00001FC0000000FE00001FC0000000FE00001FC0000000FE0000 +1FC0000000FE00001FC0000000FE00001FC0000000FE00001FC0000000FE00001FC00000 +00FE00001FC0000000FE00001FC0000000FE00001FC0000000FE00001FC0000000FE0000 +1FC0000000FE00001FC0000000FE00001FC0000000FE00001FC0000000FE00001FC00000 +00FE00001FC0000000FE00001FC0000000FE00001FC0000000FE00001FC0000000FE0000 +1FC0000000FE00001FC0000000FE00001FC0000000FE00001FC0000000FE00001FC00000 +00FE00001FC0000000FE00001FC0000001FF00003FF000007FFFFC0FFFFFE0007FFFFC0F +FFFFE0007FFFFC0FFFFFE0003C467EC539>I<000001FF000000000FFFE00000007F80F8 +000001FC001C000003F8000E000007E0000F00000FC0007F00001FC000FF80003F8000FF +80007F0000FF80007F0000FF8000FF0000FF8000FE00007F0000FE00003E0000FE000000 +0000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE000000 +0000FE0000000000FE0000000000FE0000000000FE0000000000FE0000000000FE00003F +80FFFFFFFFFF80FFFFFFFFFF80FFFFFFFFFF8000FE0000FF8000FE00007F8000FE00003F +8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE00003F +8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE00003F +8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE00003F +8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE00003F +8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE00003F +8000FE00003F8000FE00003F8000FE00003F8001FF00007FC07FFFFC1FFFFF7FFFFC1FFF +FF7FFFFC1FFFFF30467EC536>I<000001FFC00000000FFFFB8000007F803F800001FC00 +3F800003F800FF800007E000FF80001FC000FF80001FC000FF80003F8000FF80007F0000 +FF80007F00007F8000FF00003F8000FE00003F8000FE00003F8000FE00003F8000FE0000 +3F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE0000 +3F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE00003F80FFFFFFFF +FF80FFFFFFFFFF80FFFFFFFFFF8000FE00003F8000FE00003F8000FE00003F8000FE0000 +3F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE0000 +3F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE0000 +3F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE0000 +3F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE0000 +3F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE00003F8000FE0000 +3F8000FE00003F8000FE00003F8001FF00007FC07FFFFC1FFFFF7FFFFC1FFFFF7FFFFC1F +FFFF30467EC536>I<000000FF80003FE0000000000FFFF001FFFC000000003F807C0FF0 +1F00000000FC000E3F800380000003F800077F0001C0000007F0000FFC0001E000000FE0 +003FF8000FE000001FC0007FF8001FF000003F80007FF0001FF000007F00007FE0001FF0 +00007F00007FE0001FF00000FF00007FE0001FF00000FE00007FC0000FE00000FE00001F +C00007C00000FE00001FC00000000000FE00001FC00000000000FE00001FC00000000000 +FE00001FC00000000000FE00001FC00000000000FE00001FC00000000000FE00001FC000 +00000000FE00001FC00000000000FE00001FC00000000000FE00001FC00000000000FE00 +001FC00000000000FE00001FC00000000000FE00001FC00007F000FFFFFFFFFFFFFFFFF0 +00FFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFF00000FE00001FC0001FF00000FE00001F +C0000FF00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000 +FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC000 +07F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE00 +001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F0 +0000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE00001F +C00007F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000 +FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC000 +07F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE00 +001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F0 +0000FE00001FC00007F00000FE00001FC00007F00001FF00003FE0000FF8007FFFFC0FFF +FF83FFFFE07FFFFC0FFFFF83FFFFE07FFFFC0FFFFF83FFFFE04B467EC551>I<000000FF +C0003FF8000000000FFFF001FFFF700000003F803C0FF007F0000000FC000F3F8007F000 +0003F8001FFF001FF0000007F0003FFC001FF000000FE0007FF8001FF000001FC0007FF8 +001FF000003F80007FF0001FF000007F00007FE0001FF000007F00007FE0000FF00000FF +00003FE00007F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007 +F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE0000 +1FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F000 +00FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC0 +0007F00000FE00001FC00007F000FFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFF000FFFF +FFFFFFFFFFFFF00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007 +F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE0000 +1FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F000 +00FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC0 +0007F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE +00001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007 +F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE0000 +1FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F000 +00FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC0 +0007F00000FE00001FC00007F00000FE00001FC00007F00000FE00001FC00007F00000FE +00001FC00007F00001FF00003FE0000FF8007FFFFC0FFFFF83FFFFE07FFFFC0FFFFF83FF +FFE07FFFFC0FFFFF83FFFFE04B467EC551>I<01FC00FFFC00FFFC00FFFC0007FC0003FC +0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC +0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC +0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0003FE00FFFF +F8FFFFF8FFFFF8152C7DAB1C>I<7C0000FC0000FE0000FF0000FF00007F80003FC0001F +E0000FE00007F00003F80000F800007C00003E00001E00000F00000380000100111275C4 +31>18 D<001F00001F80003F80007F80007F8000FF0001FE0003FC0003F80007F0000FE0 +000F80001F00003E00003C0000780000E0000040000011126CC431>I22 D<03F0000FFC001C0E00300300600180600180C000 +C0C000C0C000C0C000C0C000C06001806001803003001C0E000FFC0003F000121165C649 +>I<000000000600000000000600000000000C00000000001C0000000000180000000000 +380000000000300000000000600000007F8060000003FFF0C000000FC0FCC000003E001F +8000007C000F800000F00003C00001E00007E00003E00007F00007C0000CF8000F80000C +7C000F8000187C001F8000187E003F0000303F003F0000703F003F0000603F007F0000E0 +3F807E0000C01F807E0001801F807E0001801F80FE0003001FC0FE0003001FC0FE000600 +1FC0FE000E001FC0FE000C001FC0FE001C001FC0FE0018001FC0FE0030001FC0FE003000 +1FC0FE0060001FC07E0060001F807E00C0001F807F01C0003F803F0180003F003F038000 +3F001F0300003E001F8600007E000F8600007C000FCC0000FC0007CC0000F80003F80001 +F00001F80003E00000F80007C000007E001F0000007F807E000000C7FFF8000000C07F80 +00000180000000000180000000000300000000000700000000000600000000000E000000 +00000C00000000001800000000001800000000002A3F7DB431>28 +D<00000000000000700000000000000000600000000000000000E0000000001FFC0001C0 +00000001FFFFC0018000000007F007F003000000001F8000FC07000000007E00003F0600 +000001F800000FCC00000003E0000003FC00000007C0000001F80000000F80000000F800 +00001F000000007C0000003E000000007E0000007C00000000DF000000FC00000001DF80 +0001F8000000018FC00003F8000000030FE00003F00000000707E00007F00000000607F0 +0007E00000000C03F0000FE00000001C03F8000FC00000001801F8001FC00000003001FC +001FC00000007001FC003F80000000E000FE003F80000000C000FE003F80000001C000FE +007F800000038000FF007F800000030000FF007F800000060000FF007F0000000E00007F +007F0000000C00007F00FF0000001800007F80FF0000003800007F80FF0000003000007F +80FF0000006000007F80FF000000E000007F80FF000000C000007F80FF0000018000007F +80FF0000038000007F80FF0000030000007F80FF0000060000007F80FF00000E0000007F +80FF00000C0000007F80FF0000180000007F807F0000380000007F007F0000300000007F +007F800060000000FF007F8000E0000000FF003F8001C0000000FE003F800180000000FE +003F800380000000FE001FC00700000001FC001FC00600000001FC000FC00C00000001F8 +000FE01C00000003F80007E01800000003F00007E03000000003F00003F07000000007E0 +0003F06000000007E00001F8C00000000FC00000FDC00000001F8000007D800000001F00 +00007F000000003F0000003F000000007E0000001F80000000FC0000000FC0000001F000 +00001FE0000003E000000019F800000FC0000000307C00001F00000000701F8000FC0000 +00006007F007F000000000C001FFFFC000000001C0001FFC000000000380000000000000 +00030000000000000000070000000000000000414E7BC84C>31 D<00000800007C0003FC +000FF0007FC001FE000FF0003FC000FE0000F80000400000160B7EA61B>I<1E007F80FF +C0FFC0FFC0FFC0FFC0FFC0FFC0FFC0FFC07F807F807F807F807F807F807F807F807F807F +807F807F803F003F003F003F003F003F003F003F003F003F003F001E001E001E001E001E +001E001E001E001E001E001E001E000C000C000C000C000C000000000000000000000000 +0000000000000000001E007F807F80FFC0FFC0FFC0FFC07F807F801E000A4778C61B>I< +1E0003C07F800FF0FF801FF0FFC01FF8FFC01FF8FFE01FFCFFE01FFCFFE01FFC7FE00FFC +1E6003CC0060000C0060000C0060000C0060000C00E0001C00C0001800C0001800C00018 +01C00038018000300380007003000060070000E0060000C00E0001C01C00038038000700 +70000E0060000C001E1D7DC431>I<001F80000000001800007FE0000000003C0000F078 +000000007C0003E01C00000000FC0007C00E00000001F8000F800F00000003F0000F8007 +80000007F0001F0003E000000FE0001F0003F000003FC0003E0001BE0000FFC0003E0001 +CFC00FCF80007E0000C1FFFF1F00007E0000C03FF01F00007C0000C000003E00007C0000 +E000007E0000FC00006000007C0000FC0000600000F80000FC0000600001F80000FC0000 +600001F00000FC0000600003E00000FC0000600007E00000FC0000600007C00000FC0000 +60000F800000FC000060001F800000FC000060001F000000FC000060003E0000007C0000 +E0007E0000007C0000C0007C0000007E0000C000F80000007E0000C001F80000003E0001 +C001F00000003E00018003E00000001F00038003E00000001F00030007C00000000F8007 +000FC00000000F800E000F8000000007C00C001F0000000003E01C003F0000000000F078 +003E00000000007FE0007C00000000001F8000FC0003F00000000000F8000FFC00000000 +01F0001E0F0000000003F0007C038000000003E000F8018000000007C001F001C0000000 +0FC001F000E00000000F8003E000600000001F0003E000700000001F0007C00030000000 +3E0007C000380000007E000FC000180000007C000FC00018000000F8000F800018000001 +F8000F80001C000001F0001F80000C000003E0001F80000C000007E0001F80000C000007 +C0001F80000C00000F80001F80000C00001F80001F80000C00001F00001F80000C00003E +00001F80000C00007E00001F80000C00007C00001F80000C0000F800001F80000C0001F8 +00000F80001C0001F000000F8000180003E000000FC000180003E000000FC000180007C0 +000007C00038000FC0000007C00030000F80000003E00070001F00000003E00060003F00 +000001F000E0003E00000001F001C0007C00000000F8018000FC000000007C038000F800 +0000001E0F0000F0000000000FFC0000600000000003F00046517BCA51>37 +D<1E007F80FF80FFC0FFC0FFE0FFE0FFE07FE01E60006000600060006000E000C000C000 +C001C0018003800300070006000E001C003800700060000B1D78C41B>39 +D<00000C00001C0000380000700000E00001C00003C0000780000F00000F00001E00003C +00003C0000780000F80000F00001F00001E00003E00003E00007C00007C00007C0000F80 +000F80000F80001F00001F00001F00003F00003F00003E00003E00007E00007E00007E00 +007E00007C00007C00007C0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC00 +00FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC00 +007C00007C00007C00007E00007E00007E00007E00003E00003E00003F00003F00001F00 +001F00001F00000F80000F80000F800007C00007C00007C00003E00003E00001E00001F0 +0000F00000F800007800003C00003C00001E00000F00000F000007800003C00001C00000 +E000007000003800001C00000C166476CA26>II<0000F000000000F000000000F800000000F000000000F000000000F000000000F0 +00000000F000000000F000000000F000007800F001E0FC00F003F0FF00F00FF07F80F01F +E03FC0F03FC00FF060FF0003F861FC0000FC63F000003F6FC000000FFF00000003FC0000 +0000F000000003FC0000000FFF0000003F6FC00000FC63F00003F861FC000FF060FF003F +C0F03FC07F80F01FE0FF00F00FF0FC00F003F07800F001E00000F000000000F000000000 +F000000000F000000000F000000000F000000000F000000000F800000000F000000000F0 +0000242B7ACA31>I<00000000C00000000000000001E00000000000000001E000000000 +00000001E00000000000000001E00000000000000001E00000000000000001E000000000 +00000001E00000000000000001E00000000000000001E00000000000000001E000000000 +00000001E00000000000000001E00000000000000001E00000000000000001E000000000 +00000001E00000000000000001E00000000000000001E00000000000000001E000000000 +00000001E00000000000000001E00000000000000001E00000000000000001E000000000 +00000001E00000000000000001E00000000000000001E00000000000000001E000000000 +00000001E00000000000000001E00000000000000001E0000000007FFFFFFFFFFFFFFF00 +FFFFFFFFFFFFFFFF80FFFFFFFFFFFFFFFF807FFFFFFFFFFFFFFF0000000001E000000000 +00000001E00000000000000001E00000000000000001E00000000000000001E000000000 +00000001E00000000000000001E00000000000000001E00000000000000001E000000000 +00000001E00000000000000001E00000000000000001E00000000000000001E000000000 +00000001E00000000000000001E00000000000000001E00000000000000001E000000000 +00000001E00000000000000001E00000000000000001E00000000000000001E000000000 +00000001E00000000000000001E00000000000000001E00000000000000001E000000000 +00000001E00000000000000001E00000000000000001E00000000000000001E000000000 +00000000C00000000041407BB84C>I<1E007F80FF80FFC0FFC0FFE0FFE0FFE07FE01E60 +006000600060006000E000C000C000C001C0018003800300070006000E001C0038007000 +60000B1D78891B>II<1E007F807F80FFC0FFC0FFC0FFC07F807F801E000A0A78891B>I<000000001800 +0000003C000000007C000000007C000000007800000000F800000000F800000000F00000 +0001F000000001F000000001E000000003E000000003E000000003C000000007C0000000 +07C000000007800000000F800000000F800000001F000000001F000000001E000000003E +000000003E000000003C000000007C000000007C000000007800000000F800000000F800 +000000F000000001F000000001F000000003E000000003E000000003C000000007C00000 +0007C000000007800000000F800000000F800000000F000000001F000000001F00000000 +1E000000003E000000003E000000003C000000007C000000007C00000000F800000000F8 +00000000F000000001F000000001F000000001E000000003E000000003E000000003C000 +000007C000000007C000000007800000000F800000000F800000000F000000001F000000 +001F000000003E000000003E000000003C000000007C000000007C000000007800000000 +F800000000F800000000F000000001F000000001F000000001E000000003E000000003E0 +00000007C000000007C000000007800000000F800000000F800000000F000000001F0000 +00001F000000001E000000003E000000003E000000003C000000007C000000007C000000 +007800000000F800000000F800000000F000000000600000000026647BCA31>I<0000FF +00000007FFE000001F81F800003E007C0000FC003F0001F8001F8001F0000F8003E00007 +C007C00003E007C00003E00FC00003F00F800001F01F800001F81F800001F83F800001FC +3F800001FC3F800001FC3F000000FC7F000000FE7F000000FE7F000000FE7F000000FE7F +000000FEFF000000FFFF000000FFFF000000FFFF000000FFFF000000FFFF000000FFFF00 +0000FFFF000000FFFF000000FFFF000000FFFF000000FFFF000000FFFF000000FFFF0000 +00FFFF000000FFFF000000FFFF000000FFFF000000FFFF000000FFFF000000FFFF000000 +FFFF000000FF7F000000FE7F000000FE7F000000FE7F000000FE7F000000FE7F800001FE +3F800001FC3F800001FC3F800001FC1F800001F81F800001F80FC00003F00FC00003F00F +C00003F007E00007E003E00007C003F0000FC001F8001F8000FC003F00003E007C00001F +81F8000007FFE0000000FF000028447CC131>I<000030000000F0000001F0000003F000 +001FF00000FFF000FFFFF000FFE7F000FF07F0000007F0000007F0000007F0000007F000 +0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000 +0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000 +0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000 +0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000 +0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000 +0007F0000007F0000007F000000FF800001FFC007FFFFFFF7FFFFFFF7FFFFFFF204278C1 +31>I<0003FE0000001FFFC000007FFFF00001F80FFC0003C001FE00078000FF000E0000 +7F801C00003FC01C00001FE03800001FF03000000FF07000000FF860000007F86C000007 +F8FF000007FCFF800007FCFFC00007FCFFC00003FCFFC00003FCFFC00003FCFFC00003FC +7F800007FC3F000007FC00000007FC00000007F800000007F80000000FF80000000FF000 +00001FF00000001FE00000001FE00000003FC00000007F800000007F00000000FF000000 +00FE00000001FC00000003F800000007F000000007E00000000FC00000001F800000003F +000000007C00000000F800000000F000000001E000000003C000000007800000000F0000 +0C001E00000C003C00000C0038000018007000001800E000001801C00000180380000038 +07000000300E000000701FFFFFFFF01FFFFFFFF03FFFFFFFF07FFFFFFFF0FFFFFFFFE0FF +FFFFFFE0FFFFFFFFE026427BC131>I<0001FF0000000FFFE000003FFFFC0000FE01FE00 +01F0007F8003C0003FC00700001FE00E00001FE00E00000FF00FE0000FF01FF0000FF81F +F0000FF81FF00007F81FF80007F81FF00007F81FF00007F80FE0000FF803C0000FF80000 +000FF00000000FF00000000FF00000001FE00000001FE00000003FC00000003F80000000 +7F00000000FE00000001FC00000003F00000001FC000000FFF0000000FFFF000000001FC +000000007F000000003F800000001FC00000000FE00000000FF000000007F800000007FC +00000003FC00000003FE00000003FE00000001FE00000001FF00000001FF00000001FF1E +000001FF7F800001FFFFC00001FFFFC00001FFFFC00001FFFFC00001FFFFC00001FEFF80 +0003FEFF800003FE7E000003FC70000007FC30000007F83800000FF81C00000FF00E0000 +1FE00780003FC003E0007F8001FE01FE00007FFFF800000FFFE0000001FF000028447CC1 +31>I<0000000380000000000380000000000780000000000F80000000000F8000000000 +1F80000000003F80000000003F80000000007F8000000000FF8000000000FF8000000001 +FF8000000003BF80000000033F80000000073F80000000063F800000000C3F800000001C +3F80000000183F80000000303F80000000703F80000000603F80000000C03F80000001C0 +3F80000001803F80000003003F80000007003F80000006003F8000000C003F8000001C00 +3F80000018003F80000030003F80000070003F80000060003F800000E0003F800001C000 +3F80000180003F80000380003F80000300003F80000600003F80000E00003F80000C0000 +3F80001800003F80003800003F80003000003F80006000003F8000E000003F8000FFFFFF +FFFFC0FFFFFFFFFFC0FFFFFFFFFFC00000003F80000000003F80000000003F8000000000 +3F80000000003F80000000003F80000000003F80000000003F80000000003F8000000000 +3F80000000003F80000000003F80000000003F8000000000FFE00000007FFFFFC000007F +FFFFC000007FFFFFC02A437DC231>I<06000000C007C00007C007FC007F8007FFFFFF00 +07FFFFFE0007FFFFFC0007FFFFF80007FFFFE00007FFFF8000063FFC0000060000000006 +000000000600000000060000000006000000000600000000060000000006000000000600 +000000060000000006000000000600000000060000000006000000000600FF00000607FF +C000061F01F000063800FC0006F0007E0007C0003F000780001F800780001FC00700000F +C00600000FE000000007F000000007F000000007F000000007F800000003F800000003F8 +00000003FC00000003FC00000003FC00000003FC00000003FC3E000003FC7F000003FCFF +800003FCFF800003FCFF800003FCFF800003FCFF800003F8FF000007F8FE000007F86000 +0007F060000007F07000000FF03000000FE03800001FC01C00001FC01E00003F800F0000 +7F00078000FE0003C001FC0001F807F000007FFFE000001FFF00000007F8000026447BC1 +31>I<000007FC0000003FFF000000FFFFC00003FC03E00007E000F0001FC00038003F00 +0058007E0001FC00FE0003FC00FC0007FC01F80007FC03F00007FC03F00007FC07E00003 +F80FE00001F00FE00000001FC00000001FC00000001FC00000003F800000003F80000000 +3F800000007F800000007F800000007F007F80007F01FFF0007F0780FC00FF0E003E00FF +1C001F80FF38000FC0FF700007E0FF600007E0FFE00003F0FFC00003F8FFC00001F8FFC0 +0001FCFF800001FCFF800000FEFF800000FEFF800000FEFF000000FFFF000000FFFF0000 +00FFFF000000FF7F000000FF7F000000FF7F000000FF7F000000FF7F000000FF7F800000 +FF3F800000FF3F800000FF3F800000FE1F800000FE1F800001FE1FC00001FC0FC00001FC +0FC00003F807E00003F807E00007F003F00007E001F8000FC000FC001F80007E003F0000 +3F80FE00000FFFF8000003FFE0000000FF800028447CC131>I<1C00000000001C000000 +00001F80000000001FFFFFFFFFC01FFFFFFFFFC01FFFFFFFFFC03FFFFFFFFF803FFFFFFF +FF803FFFFFFFFF003FFFFFFFFE00380000000C00300000001C0070000000380060000000 +300060000000700060000000E00060000000C000C0000001C000C00000038000C0000007 +00000000000600000000000E00000000001C000000000018000000000038000000000070 +0000000000600000000000E00000000001C00000000001C0000000000380000000000780 +000000000700000000000F00000000000F00000000001F00000000001E00000000003E00 +000000003E00000000007E00000000007C00000000007C0000000000FC0000000000FC00 +00000001FC0000000001FC0000000001FC0000000003F80000000003F80000000003F800 +00000003F80000000007F80000000007F80000000007F80000000007F80000000007F800 +00000007F8000000000FF8000000000FF8000000000FF8000000000FF8000000000FF800 +0000000FF8000000000FF8000000000FF8000000000FF8000000000FF80000000007F000 +00000001C00000002A457BC231>I<0000FF00000007FFE000001FFFF800007F00FE0000 +FC003F0001F0001F8003E0000FC003C00007E007C00003F00F800001F00F800001F00F00 +0001F81F000000F81F000000F81F000000F81F000000F81F800000F81F800000F81FC000 +01F81FC00001F01FE00001F00FF00003E00FFC0003E007FE0007C007FF800F8003FFC01F +0001FFF03E0001FFF87800007FFEF000003FFFC000001FFFC0000007FFE0000003FFF800 +0007FFFC00001E7FFF00007C1FFF8000F80FFFC001E003FFE003C001FFF007C0007FF80F +80003FFC1F00000FFC3E000007FE3E000001FE7C000000FE7C000000FF7C0000007FF800 +00003FF80000003FF80000001FF80000001FF80000001FF80000001FF80000001FFC0000 +001E7C0000003E7C0000003E7E0000003C3E0000007C1F000000F81F800001F00FC00003 +E007E00007C003F8001F8000FF00FF00003FFFFC00000FFFF0000001FF800028447CC131 +>I<0000FF00000007FFE000001FFFF800007F80FC0000FC007E0001F8003F0003F0001F +8007E0000FC00FE00007E01FC00007E01FC00003F03F800003F03F800003F87F800001F8 +7F000001FC7F000001FCFF000001FCFF000001FCFF000001FEFF000000FEFF000000FEFF +000000FEFF000000FEFF000000FEFF000000FFFF000000FFFF000000FFFF000000FF7F00 +0001FF7F000001FF7F000001FF3F800001FF3F800003FF1F800003FF1FC00003FF0FC000 +07FF07E00006FF07E0000EFF03F0001CFF01F80038FF007C0070FF003F01E0FF000FFF80 +FE0001FE00FE00000000FE00000001FE00000001FC00000001FC00000001FC00000001FC +00000003F800000003F800000003F00F800007F01FC00007E03FE0000FE03FE0000FC03F +E0001F803FE0001F803FC0003F003F80007E001E0000FC001C0001F8000F0003F00007E0 +1FE00003FFFF800000FFFE0000001FF0000028447CC131>I<1E007F807F80FFC0FFC0FF +C0FFC07F807F801E00000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000001E007F807F80FFC0FFC0FFC0FFC07F807F +801E000A2B78AA1B>I<1E007F807F80FFC0FFC0FFC0FFC07F807F801E00000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000001E007F00FF80FF80FFC0FFC0FFC0FFC07FC01EC000C000C000C000C000C001C0 +01800180018003800300070006000E000C001C003800700060000A3E78AA1B>I<7FFFFF +FFFFFFFFFF00FFFFFFFFFFFFFFFF80FFFFFFFFFFFFFFFF807FFFFFFFFFFFFFFF00000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000007FFFFF +FFFFFFFFFF00FFFFFFFFFFFFFFFF80FFFFFFFFFFFFFFFF807FFFFFFFFFFFFFFF0041187B +A44C>61 D<000FFC0000007FFFC00001F007F000078001FC000E0000FE001C00007F0038 +00003F807000003FC06000001FC0FE00001FE0FF00001FE0FF80001FE0FF80001FE0FF80 +001FE0FF80001FE0FF80001FE07F00001FE01C00003FC00000003FC00000007F80000000 +7F80000000FF00000001FE00000003F800000007F000000007E00000000FC00000001F80 +0000001F000000003E000000003C00000000780000000078000000007000000000F00000 +0000E000000000E000000000C000000001C000000001C000000001C00000000180000000 +018000000001800000000180000000018000000001800000000180000000018000000001 +800000000000000000000000000000000000000000000000000000000000000000000000 +00000000000000000000000000000000000003C00000000FF00000000FF00000001FF800 +00001FF80000001FF80000001FF80000000FF00000000FF000000003C0000023467BC52E +>63 D<0000001FFC00000000000001FFFFC0000000000007E003F000000000001E00003C +00000000007800000F0000000001E0000003C00000000380000000E00000000F00000000 +780000001C000000001C00000038000000000E000000700000000007000000E000000000 +03800000C00000000001800001C00000000001C0000380000FF00000E0000300003FFC00 +006000070000FC0F000070000E0003F003C00038000C0007C000E00018001C001F800070 +001C0018003F800038000C0038003F00001C000E0030007E00000FF006003000FE00000F +F006007000FC000007F007006001FC000007F003006001FC000007F003006003F8000007 +F003006003F8000007F00300E003F8000007F00380C007F0000007F00180C007F0000007 +F00180C007F0000007F00180C007F0000007F00180C007F0000007F00180C007F0000007 +F00180C007F0000007F00180C007F0000007F00180C007F0000007F00180C007F0000007 +F00180C007F0000007F00180E003F8000007F001806003F8000007F001806003F8000007 +F001806001FC000007F001806001FC000007F003807000FC000007F003003000FE00000F +F0030030007E00000FF0030038003F00001FF0030018003F80003FF007001C001F800077 +F006000C0007C000E3F80E000E0003F003C3F81C00070000FC0F00FC38000300003FFC00 +7FF0000380000FF0000FC00001C00000000000000000C00000000000000000E000000000 +000000007000000000000000003800000000000000001C00000000000000000F00000000 +001F80000380000000007F800001E000000003FE000000780000001FF00000001E000001 +FF8000000007E0007FF80000000001FFFFFF0000000000001FFFC000000041477BC54C> +I<00000000C00000000000000001E00000000000000001E00000000000000001E0000000 +0000000003F00000000000000003F00000000000000003F00000000000000007F8000000 +0000000007F80000000000000007F8000000000000000FFC000000000000000FFC000000 +000000000FFC0000000000000019FE0000000000000019FE0000000000000019FE000000 +0000000030FF0000000000000030FF0000000000000070FF80000000000000607F800000 +00000000607F80000000000000E07FC0000000000000C03FC0000000000000C03FC00000 +00000001C03FE0000000000001801FE0000000000001801FE0000000000003001FF00000 +00000003000FF0000000000003000FF0000000000006000FF80000000000060007F80000 +000000060007F800000000000C0003FC00000000000C0003FC00000000000C0003FC0000 +000000180001FE0000000000180001FE0000000000180001FE0000000000300000FF0000 +000000300000FF0000000000700000FF80000000006000007F80000000006000007F8000 +000000E000007FC000000000FFFFFFFFC000000000FFFFFFFFC000000001FFFFFFFFE000 +0000018000001FE0000000018000001FE0000000030000001FF0000000030000000FF000 +0000030000000FF0000000060000000FF80000000600000007F80000000600000007F800 +00000C00000003FC0000000C00000003FC0000000C00000003FC0000001800000001FE00 +00001800000001FE0000001800000001FE0000003000000000FF0000003000000000FF00 +00007800000000FF800000F800000000FF800001FC00000000FFC0000FFF00000003FFE0 +00FFFFE000007FFFFFC0FFFFE000007FFFFFC0FFFFE000007FFFFFC042477DC649>II<0000000FFE000060000000FFFFC000E0000003FFFFF000E00000 +0FFC01FC01E000003FC0003E01E00000FF00000F83E00003FC000003C7E00007F8000001 +E7E0000FF0000000FFE0001FE00000007FE0003FC00000003FE0007F800000001FE000FF +000000000FE001FE000000000FE001FC0000000007E003FC0000000007E007F800000000 +03E007F80000000003E00FF00000000001E00FF00000000001E01FE00000000000E01FE0 +0000000000E03FE00000000000E03FE00000000000E03FC00000000000607FC000000000 +00607FC00000000000607FC00000000000607FC0000000000000FF80000000000000FF80 +000000000000FF80000000000000FF80000000000000FF80000000000000FF8000000000 +0000FF80000000000000FF80000000000000FF80000000000000FF80000000000000FF80 +000000000000FF80000000000000FF80000000000000FF800000000000007FC000000000 +00007FC00000000000007FC00000000000607FC00000000000603FC00000000000603FE0 +0000000000603FE00000000000601FE00000000000E01FF00000000000E00FF000000000 +00C00FF00000000000C007F80000000001C007F800000000018003FC00000000038001FC +00000000038001FE00000000070000FF000000000600007F800000000E00003FC0000000 +1C00001FE00000003800000FF000000078000007F8000000F0000003FC000001E0000000 +FF000007800000003FC0001F000000000FFC00FC0000000003FFFFF00000000000FFFFC0 +00000000000FFE0000003B487BC546>IIII<0000000FFE00006000000000FFFFC000E000000003FF +FFF000E00000000FFC01FC01E00000003FC0003E01E0000000FF00000F83E0000003FC00 +0003C7E0000007F8000001E7E000000FF0000000FFE000001FE00000007FE000003FC000 +00003FE000007F800000001FE00000FF000000000FE00001FE000000000FE00001FC0000 +000007E00003FC0000000007E00007F80000000003E00007F80000000003E0000FF00000 +000001E0000FF00000000001E0001FE00000000000E0001FE00000000000E0003FE00000 +000000E0003FE00000000000E0003FC0000000000060007FC0000000000060007FC00000 +00000060007FC0000000000060007FC000000000000000FF8000000000000000FF800000 +0000000000FF8000000000000000FF8000000000000000FF8000000000000000FF800000 +0000000000FF8000000000000000FF8000000000000000FF8000000000000000FF800000 +0000000000FF8000000000000000FF8000000000000000FF8000000000000000FF800000 +01FFFFFFC07FC0000001FFFFFFC07FC0000001FFFFFFC07FC0000000007FF0007FC00000 +00003FE0003FC0000000001FE0003FE0000000001FE0003FE0000000001FE0001FE00000 +00001FE0001FF0000000001FE0000FF0000000001FE0000FF0000000001FE00007F80000 +00001FE00007F8000000001FE00003FC000000001FE00001FE000000001FE00001FE0000 +00001FE00000FF000000001FE000007F800000001FE000003FC00000003FE000001FE000 +00003FE000000FF00000007FE0000007F8000000E7E0000003FE000001C7E0000000FF00 +000383E00000003FE0000F01E00000000FFC00FE00E000000003FFFFF8006000000000FF +FFE00000000000000FFE0000000042487BC54D>III<000FFFFFFE000FFFFFFE000FFF +FFFE000003FF80000001FF00000000FF00000000FF00000000FF00000000FF00000000FF +00000000FF00000000FF00000000FF00000000FF00000000FF00000000FF00000000FF00 +000000FF00000000FF00000000FF00000000FF00000000FF00000000FF00000000FF0000 +0000FF00000000FF00000000FF00000000FF00000000FF00000000FF00000000FF000000 +00FF00000000FF00000000FF00000000FF00000000FF00000000FF00000000FF00000000 +FF00000000FF00000000FF00000000FF00000000FF00000000FF00000000FF00000000FF +00000000FF00000000FF00000000FF00000000FF00000000FF00000000FF003F0000FF00 +7F8000FF00FFC000FF00FFC000FF00FFC000FF00FFC000FF00FFC001FE00FF8001FE00FF +0001FE006C0003FC00700003F800380007F8001C0007F0000E000FE00007001F800003E0 +7F000000FFFC0000001FE0000027467BC332>IIIII<0000001FFC00000000000001FFFFC000 +0000000007F007F000000000001F8000FC00000000007E00003F0000000001F800000FC0 +00000003F0000007E000000007E0000003F00000000FC0000001F80000001F80000000FC +0000003F000000007E0000007E000000003F000000FE000000003F800001FC000000001F +C00003F8000000000FE00003F8000000000FE00007F00000000007F00007F00000000007 +F0000FF00000000007F8000FE00000000003F8001FE00000000003FC001FE00000000003 +FC003FC00000000001FE003FC00000000001FE003FC00000000001FE007FC00000000001 +FF007FC00000000001FF007F800000000000FF007F800000000000FF007F800000000000 +FF00FF800000000000FF80FF800000000000FF80FF800000000000FF80FF800000000000 +FF80FF800000000000FF80FF800000000000FF80FF800000000000FF80FF800000000000 +FF80FF800000000000FF80FF800000000000FF80FF800000000000FF80FF800000000000 +FF80FF800000000000FF807FC00000000001FF007FC00000000001FF007FC00000000001 +FF007FC00000000001FF003FC00000000001FE003FE00000000003FE003FE00000000003 +FE001FE00000000003FC001FE00000000003FC000FF00000000007F8000FF00000000007 +F80007F8000000000FF00007F8000000000FF00003F8000000000FE00003FC000000001F +E00001FE000000003FC00000FE000000003F8000007F000000007F0000007F80000000FF +0000003F80000000FE0000001FC0000001FC00000007E0000003F000000003F0000007E0 +00000001FC00001FC0000000007E00003F00000000001F8000FC000000000007F007F000 +0000000001FFFFC00000000000001FFC0000000041487BC54C>II<0000001FFC00000000000001FFFFC0000000000007F007F000000000001F +8000FC00000000007E00003F0000000001FC00001FC000000003F0000007E000000007E0 +000003F00000000FC0000001F80000001F80000000FC0000003F000000007E0000007F00 +0000007F000000FE000000003F800001FC000000001FC00003FC000000001FE00003F800 +0000000FE00007F8000000000FF00007F00000000007F0000FF00000000007F8000FF000 +00000007F8001FE00000000003FC001FE00000000003FC003FE00000000003FE003FC000 +00000001FE003FC00000000001FE007FC00000000001FF007FC00000000001FF007FC000 +00000001FF007F800000000000FF007F800000000000FF00FF800000000000FF80FF8000 +00000000FF80FF800000000000FF80FF800000000000FF80FF800000000000FF80FF8000 +00000000FF80FF800000000000FF80FF800000000000FF80FF800000000000FF80FF8000 +00000000FF80FF800000000000FF80FF800000000000FF80FF800000000000FF807F8000 +00000000FF007FC00000000001FF007FC00000000001FF007FC00000000001FF003FC000 +00000001FE003FC00000000001FE003FE00000000003FE001FE00000000003FC001FE000 +00000003FC000FE00000000003F8000FF00000000007F80007F00000000007F00007F800 +03F0000FF00003F8000FFC000FE00003FC001C0E001FE00001FC003807001FC00000FE00 +3003803F8000007F007001807F0000007F006000C07F0000003F806000C0FE0000001FC0 +6000E1FC00000007E0600063F000000003F0600077E000000001FC70007FC0000000007E +30007F00000000001FB800FC000000000007FC07F80000C0000001FFFFFC0000C0000000 +1FFC3C0000C000000000003C0000C000000000003E0001C000000000001E0001C0000000 +00001F0003C000000000001F00038000000000001F80078000000000001FC00F80000000 +00000FF03F8000000000000FFFFF0000000000000FFFFF00000000000007FFFF00000000 +000007FFFE00000000000003FFFC00000000000003FFFC00000000000001FFF800000000 +0000007FE0000000000000001F800042597BC54C>II<0001FF000300000FFFE00700003FFFF8070000FE00FE0F0001 +F8001F0F0007E000079F0007C00003DF000F800001FF001F000000FF003F0000007F003E +0000003F007E0000003F007E0000001F007C0000001F00FC0000000F00FC0000000F00FC +0000000700FC0000000700FC0000000700FE0000000700FE0000000300FE0000000300FF +0000000300FF00000003007F80000000007FC0000000007FE0000000003FF8000000003F +FE000000001FFFE00000000FFFFE00000007FFFFE0000003FFFFFC000001FFFFFF000000 +FFFFFFC000003FFFFFF000000FFFFFF8000001FFFFFC0000001FFFFE00000001FFFE0000 +00001FFF0000000003FF8000000001FF8000000000FFC0000000007FC0000000003FC000 +0000001FC0000000001FE0C00000000FE0C00000000FE0C00000000FE0C000000007E0C0 +00000007E0C000000007E0E000000007E0E000000007E0E000000007E0F000000007C0F0 +0000000FC0F80000000FC0F80000000F80FC0000001F80FE0000001F00FF0000003F00FF +8000007E00FBC00000FC00F9F00001F800F07C0003F000F03FC00FE000E00FFFFF8000E0 +01FFFE0000C0003FF000002B487BC536>I<3FFFFFFFFFFFFFF83FFFFFFFFFFFFFF83FFF +FFFFFFFFFFF83FF0001FF8001FF83F80000FF00003F83E00000FF00000F87C00000FF000 +007C7800000FF000003C7800000FF000003C7000000FF000001C7000000FF000001C7000 +000FF000001C6000000FF000000C6000000FF000000C6000000FF000000C6000000FF000 +000C6000000FF000000CC000000FF0000006C000000FF0000006C000000FF0000006C000 +000FF0000006C000000FF00000060000000FF00000000000000FF00000000000000FF000 +00000000000FF00000000000000FF00000000000000FF00000000000000FF00000000000 +000FF00000000000000FF00000000000000FF00000000000000FF00000000000000FF000 +00000000000FF00000000000000FF00000000000000FF00000000000000FF00000000000 +000FF00000000000000FF00000000000000FF00000000000000FF00000000000000FF000 +00000000000FF00000000000000FF00000000000000FF00000000000000FF00000000000 +000FF00000000000000FF00000000000000FF00000000000000FF00000000000000FF000 +00000000000FF00000000000000FF00000000000000FF00000000000000FF00000000000 +000FF00000000000000FF00000000000000FF00000000000000FF00000000000000FF000 +00000000000FF00000000000000FF00000000000001FF80000000000007FFE0000000001 +FFFFFFFF80000001FFFFFFFF80000001FFFFFFFF80003F447DC346>IIII<3FFFFFE0001FFFFF +003FFFFFE0001FFFFF003FFFFFE0001FFFFF0000FFFF000007FFE000003FFC000001FF00 +00001FF8000001FC0000000FF8000000F800000007FC000000E000000007FC000000E000 +000003FE000001C000000001FF0000018000000001FF0000030000000000FF8000070000 +0000007FC0000600000000007FC0000C00000000003FE0001C00000000001FF000180000 +0000001FF0003000000000000FF80070000000000007FC0060000000000007FC00C00000 +00000003FE01C0000000000001FF0180000000000001FF0300000000000000FF87000000 +000000007FC6000000000000007FCC000000000000003FFC000000000000001FF8000000 +000000001FF0000000000000000FF80000000000000007FC0000000000000007FC000000 +0000000003FE0000000000000003FF0000000000000003FF0000000000000006FF800000 +000000000EFF800000000000000C7FC0000000000000183FE0000000000000383FE00000 +00000000301FF0000000000000600FF8000000000000E00FF8000000000000C007FC0000 +000000018003FE0000000000038003FE0000000000030001FF0000000000060000FF8000 +0000000E0000FF80000000000C00007FC0000000001800003FE0000000003800003FE000 +0000003000001FF0000000006000000FF800000000E000000FF800000000C0000007FC00 +00000180000003FE0000000380000003FE0000000700000001FF0000000F00000000FF80 +00001F00000000FF8000003F80000000FFC00000FF80000000FFE00007FFE0000003FFF8 +00FFFFF800001FFFFFF0FFFFF800001FFFFFF0FFFFF800001FFFFFF044447EC349>II<1FFFFFFFFFFF801FFFFFFFFFFF801FFFFFFFFFFF801FFF800001FF001FFC +000001FF001FF0000003FE001FC0000007FC001F80000007FC001F0000000FF8001E0000 +000FF8001E0000001FF0003C0000003FE0003C0000003FE000380000007FC00038000000 +FF800038000000FF800038000001FF000030000003FE000030000003FE000030000007FC +000030000007FC00003000000FF800000000001FF000000000001FF000000000003FE000 +000000007FC000000000007FC00000000000FF800000000001FF800000000001FF000000 +000003FE000000000003FE000000000007FC00000000000FF800000000000FF800000000 +001FF000000000003FE000000000003FE000000000007FC00000000000FFC00000000000 +FF800000000001FF000000000001FF000001800003FE000001800007FC000001800007FC +00000180000FF800000180001FF000000380001FF000000300003FE000000300003FE000 +000300007FC00000030000FF800000030000FF800000070001FF000000070003FE000000 +070003FE0000000F0007FC0000000F000FF80000001F000FF80000003F001FF00000007F +001FF0000000FE003FE0000003FE007FC000000FFE007FC00000FFFE00FFFFFFFFFFFE00 +FFFFFFFFFFFE00FFFFFFFFFFFE0031447BC33C>II<00C0001801C0003803800070070000E00E0001C00C000180 +1C00038018000300380007003000060070000E0060000C0060000C0060000C00E0001C00 +C0001800C0001800C0001800C0001800CF0019E0FFC01FF8FFE01FFCFFE01FFCFFE01FFC +7FE00FFC7FE00FFC3FE007FC3FC007F80F0001E01E1D71C431>II<000C0000001E0000003F0000007F800000F3 +C00001E1E00003C0F000078078000F003C001E001E003C000F0070000380E00001C04000 +00801A0E75C331>I<00C001C0038007000E000C001C0018003800300070006000600060 +00E000C000C000C000C000CF00FFC0FFE0FFE0FFE07FE07FE03FE03FC00F000B1D79C41B +>96 D<0007FC000000003FFF80000000F80FE0000003C003F00000070001F800000E0000 +FC00000FC0007E00001FE0007F00001FF0003F80001FF0003F80001FF0003F80001FF000 +1FC0001FF0001FC0000FE0001FC0000380001FC0000000001FC0000000001FC000000000 +1FC0000000001FC00000000FFFC0000001FFFFC000000FFE1FC000003FC01FC00000FF00 +1FC00003FC001FC00007F8001FC0000FF0001FC0001FE0001FC0003FC0001FC0007FC000 +1FC0007F80001FC0007F80001FC060FF00001FC060FF00001FC060FF00001FC060FF0000 +3FC060FF00003FC060FF00003FC060FF80007FC0607F8000EFC0607FC000C7E0C03FC001 +C7E0C01FE00783F1C007F81E03FF8001FFFC01FF00001FE0007C002B2E7CAC31>I<01FC +00000000FFFC00000000FFFC00000000FFFC0000000007FC0000000003FC0000000001FC +0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC +0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC +0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC +0000000001FC03FC000001FC0FFF800001FC3C07E00001FC7001F80001FDE0007E0001FD +80003F0001FF80001F8001FF00001FC001FE00000FE001FC000007E001FC000007F001FC +000007F001FC000003F801FC000003F801FC000003FC01FC000003FC01FC000001FC01FC +000001FE01FC000001FE01FC000001FE01FC000001FE01FC000001FE01FC000001FE01FC +000001FE01FC000001FE01FC000001FE01FC000001FE01FC000001FE01FC000001FC01FC +000003FC01FC000003FC01FC000003F801FC000003F801FC000007F001FC000007F001FE +00000FE001FE00000FC001FF00001FC001FB00003F8001F380007E0001E1C000FC0001E0 +F001F80001C03C07E00001801FFF8000000003FC00002F467DC436>I<00007F80000003 +FFF000000FC07C00003F000F0000FC00038001F80001C003F8000FC007F0001FE007E000 +3FE00FE0003FE01FC0003FE01FC0003FE03F80003FE03F80001FC07F800007007F800000 +007F800000007F00000000FF00000000FF00000000FF00000000FF00000000FF00000000 +FF00000000FF00000000FF00000000FF00000000FF00000000FF000000007F000000007F +800000007F800000003F800000003F800000303FC00000301FC00000700FE00000600FE0 +0000E007F00000C003F80001C001F800038000FC000700003F001E00001FC078000007FF +F0000000FF8000242E7DAC2B>I<000000007F000000003FFF000000003FFF000000003F +FF0000000001FF0000000000FF00000000007F00000000007F00000000007F0000000000 +7F00000000007F00000000007F00000000007F00000000007F00000000007F0000000000 +7F00000000007F00000000007F00000000007F00000000007F00000000007F0000000000 +7F00000000007F00000000007F00000000007F0000007F807F000003FFF07F00000FC07C +7F00003F000E7F00007E00077F0000FC0003FF0003F80001FF0007F00000FF0007E00000 +FF000FE000007F001FC000007F001FC000007F003F8000007F003F8000007F007F800000 +7F007F8000007F007F0000007F00FF0000007F00FF0000007F00FF0000007F00FF000000 +7F00FF0000007F00FF0000007F00FF0000007F00FF0000007F00FF0000007F00FF000000 +7F00FF0000007F007F0000007F007F8000007F007F8000007F003F8000007F003F800000 +7F001FC000007F001FC000007F000FC00000FF000FE00000FF0007F00001FF0003F00003 +FF0001F800077F8000FC000E7FC0003F001C7FFE000FC0F87FFE0003FFE07FFE00007F00 +7F002F467DC436>I<0001FE00000007FFC000001F03F000007E00FC0000FC007E0001F8 +003F0003F0003F0007E0001F800FE0001FC00FC0000FC01FC0000FC03F80000FE03F8000 +07E03F800007E07F800007F07F000007F07F000007F0FF000007F0FF000007F0FF000007 +F0FFFFFFFFF0FFFFFFFFF0FF00000000FF00000000FF00000000FF00000000FF00000000 +FF000000007F000000007F000000007F800000007F800000003F800000003F800000301F +C00000301FC00000700FC00000600FE00000E007F00000C003F00001C001F800038000FC +000700003E001E00001F80F8000003FFE0000000FF0000242E7DAC2B>I<00000FE00000 +007FF8000001F81E000003F03F00000FE07F80001FC0FF80001F80FF80003F80FF80007F +00FF80007F00FF80007F007F0000FE001C0000FE00000000FE00000000FE00000000FE00 +000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE0000 +0000FE00000000FE00000000FE00000000FE000000FFFFFF8000FFFFFF8000FFFFFF8000 +00FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000 +FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE +00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00 +000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE0000 +0000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE000000 +01FF8000007FFFFF00007FFFFF00007FFFFF000021467EC51E>I<000000000F800001FC +007FE0000FFF81F0F0003F07E381F000FC01FF03F001F800FE01F003F0007E01E007F000 +7F000007E0003F00000FE0003F80000FC0001F80001FC0001FC0001FC0001FC0001FC000 +1FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC000 +1FC0000FC0001F80000FE0003F800007E0003F000007F0007F000003F0007E000001F800 +FC000001FC01F8000003BF07E00000030FFF8000000701FC000000070000000000070000 +0000000F00000000000F00000000000F00000000000F800000000007C00000000007E000 +00000007FFFFF8000003FFFFFF000003FFFFFFE00001FFFFFFF800007FFFFFFC0001FFFF +FFFE0007C0000FFF000F800000FF003F0000003F803E0000001F807C0000000FC07C0000 +000FC0F800000007C0F800000007C0F800000007C0F800000007C0F800000007C0FC0000 +000FC07C0000000F807E0000001F803E0000001F001F0000003E000F8000007C0007E000 +01F80001F80007E000007F003F8000001FFFFE00000001FFE000002C427DAC31>I<01FC +00000000FFFC00000000FFFC00000000FFFC0000000007FC0000000003FC0000000001FC +0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC +0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC +0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC +0000000001FC01FE000001FC07FFC00001FC1E07F00001FC3801F80001FC7001FC0001FC +E000FC0001FDC000FE0001FD8000FE0001FF80007F0001FF00007F0001FF00007F0001FE +00007F0001FE00007F0001FE00007F0001FC00007F0001FC00007F0001FC00007F0001FC +00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC +00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC +00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC +00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0003FE0000FF80FFFF +F83FFFFEFFFFF83FFFFEFFFFF83FFFFE2F457DC436>I<01E00007F80007F8000FFC000F +FC000FFC000FFC0007F80007F80001E00000000000000000000000000000000000000000 +000000000000000000000000000000000000000001FC00FFFC00FFFC00FFFC0007FC0003 +FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001 +FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001 +FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0003FE00FF +FFF8FFFFF8FFFFF815437DC21C>I<00003C000000FF000000FF000001FF800001FF8000 +01FF800001FF800000FF000000FF0000003C000000000000000000000000000000000000 +000000000000000000000000000000000000000000000000000000000000000000000000 +007F80003FFF80003FFF80003FFF800000FF8000007F8000003F8000003F8000003F8000 +003F8000003F8000003F8000003F8000003F8000003F8000003F8000003F8000003F8000 +003F8000003F8000003F8000003F8000003F8000003F8000003F8000003F8000003F8000 +003F8000003F8000003F8000003F8000003F8000003F8000003F8000003F8000003F8000 +003F8000003F8000003F8000003F8000003F8000003F8000003F8000003F8000003F8000 +003F8000003F8000003F8000003F8000003F8000003F8000003F803E003F807F003F80FF +807F00FF807F00FF807E00FF807E00FF80FC007F00F8003C01F0001E03E00007FF800001 +FE0000195785C21E>I<01FC00000000FFFC00000000FFFC00000000FFFC0000000007FC +0000000003FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC +0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC +0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC +0000000001FC0000000001FC0000000001FC0000000001FC001FFFE001FC001FFFE001FC +001FFFE001FC000FFF0001FC0007F80001FC0007E00001FC0007C00001FC0007800001FC +000E000001FC001C000001FC0038000001FC0070000001FC00E0000001FC01C0000001FC +0380000001FC0700000001FC0F00000001FC3F80000001FC7FC0000001FCFFC0000001FD +CFE0000001FF8FF0000001FF07F0000001FE03F8000001FC03FC000001FC01FC000001FC +00FE000001FC00FF000001FC007F000001FC003F800001FC003FC00001FC001FC00001FC +000FE00001FC000FF00001FC0007F00001FC0007F80001FC0003FC0001FC0003FE0001FC +0003FF0003FE0007FF80FFFFF81FFFF8FFFFF81FFFF8FFFFF81FFFF82D457DC433>I<01 +FC00FFFC00FFFC00FFFC0007FC0003FC0001FC0001FC0001FC0001FC0001FC0001FC0001 +FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001 +FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001 +FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001 +FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001FC0001 +FC0001FC0001FC0001FC0001FC0003FE00FFFFF8FFFFF8FFFFF815457DC41C>I<01FC00 +FF00001FE00000FFFC07FFE000FFFC0000FFFC0F03F801E07F0000FFFC3C01FC07803F80 +0007FC7000FE0E001FC00003FCE0007E1C000FC00001FDC0007F38000FE00001FD80007F +30000FE00001FF80003FF00007F00001FF00003FE00007F00001FF00003FE00007F00001 +FE00003FC00007F00001FE00003FC00007F00001FE00003FC00007F00001FC00003F8000 +07F00001FC00003F800007F00001FC00003F800007F00001FC00003F800007F00001FC00 +003F800007F00001FC00003F800007F00001FC00003F800007F00001FC00003F800007F0 +0001FC00003F800007F00001FC00003F800007F00001FC00003F800007F00001FC00003F +800007F00001FC00003F800007F00001FC00003F800007F00001FC00003F800007F00001 +FC00003F800007F00001FC00003F800007F00001FC00003F800007F00001FC00003F8000 +07F00001FC00003F800007F00001FC00003F800007F00001FC00003F800007F00001FC00 +003F800007F00001FC00003F800007F00001FC00003F800007F00001FC00003F800007F0 +0003FE00007FC0000FF800FFFFF81FFFFF03FFFFE0FFFFF81FFFFF03FFFFE0FFFFF81FFF +FF03FFFFE04B2C7DAB52>I<01FC01FE0000FFFC07FFC000FFFC1E07F000FFFC3801F800 +07FC7001FC0003FCE000FC0001FDC000FE0001FD8000FE0001FF80007F0001FF00007F00 +01FF00007F0001FE00007F0001FE00007F0001FE00007F0001FC00007F0001FC00007F00 +01FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F00 +01FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F00 +01FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F00 +01FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F00 +03FE0000FF80FFFFF83FFFFEFFFFF83FFFFEFFFFF83FFFFE2F2C7DAB36>I<00007F8000 +000003FFF00000000FC0FC0000003E001F0000007C000F800000F80007C00001F00003E0 +0003E00001F00007C00000F8000FC00000FC000FC00000FC001F8000007E003F8000007F +003F8000007F003F0000003F007F0000003F807F0000003F807F0000003F807F0000003F +80FF0000003FC0FF0000003FC0FF0000003FC0FF0000003FC0FF0000003FC0FF0000003F +C0FF0000003FC0FF0000003FC0FF0000003FC0FF0000003FC07F0000003F807F0000003F +807F8000007F803F8000007F003F8000007F001F8000007E001FC00000FE000FC00000FC +000FE00001FC0007E00001F80003F00003F00001F80007E00000FC000FC000003E001F00 +00001FC0FE00000007FFF8000000007F8000002A2E7DAC31>I<01FC03FC0000FFFC0FFF +8000FFFC3C07E000FFFC7001F80007FDE000FE0001FD80007F0001FF80003F8001FF0000 +1FC001FE00001FE001FC00000FE001FC00000FF001FC000007F001FC000007F801FC0000 +03F801FC000003FC01FC000003FC01FC000003FC01FC000001FE01FC000001FE01FC0000 +01FE01FC000001FE01FC000001FE01FC000001FE01FC000001FE01FC000001FE01FC0000 +01FE01FC000001FE01FC000001FE01FC000003FC01FC000003FC01FC000003FC01FC0000 +07F801FC000007F801FC000007F001FC00000FF001FE00000FE001FE00001FC001FF0000 +3FC001FF00003F8001FF80007E0001FDC000FC0001FCF003F80001FC3C0FE00001FC1FFF +800001FC03FC000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000 +000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000000001FC0000 +000001FC0000000001FC0000000001FC0000000003FE00000000FFFFF8000000FFFFF800 +0000FFFFF80000002F3F7DAB36>I<00007F8003000003FFE00700000FE0780700003F80 +1C0F00007E000E0F0000FC00071F0003F800039F0007F80001BF0007F00001FF000FE000 +00FF001FE00000FF001FC00000FF003FC000007F003FC000007F007F8000007F007F8000 +007F007F8000007F00FF0000007F00FF0000007F00FF0000007F00FF0000007F00FF0000 +007F00FF0000007F00FF0000007F00FF0000007F00FF0000007F00FF0000007F00FF0000 +007F007F8000007F007F8000007F007F8000007F003F8000007F003FC000007F001FC000 +007F001FE00000FF000FE00000FF000FF00001FF0007F00001FF0003F80003FF0001FC00 +077F0000FE000E7F00003F001C7F00000FC0F87F000003FFE07F0000007F007F00000000 +007F00000000007F00000000007F00000000007F00000000007F00000000007F00000000 +007F00000000007F00000000007F00000000007F00000000007F00000000007F00000000 +007F00000000007F0000000000FF800000003FFFFE0000003FFFFE0000003FFFFE2F3F7D +AB33>I<03F803F0FFF81FFCFFF83C3EFFF8707F07F8E0FF03F9C0FF01F980FF01FB80FF +01FB007E01FB003C01FF000001FE000001FE000001FE000001FE000001FC000001FC0000 +01FC000001FC000001FC000001FC000001FC000001FC000001FC000001FC000001FC0000 +01FC000001FC000001FC000001FC000001FC000001FC000001FC000001FC000001FC0000 +01FC000001FC000001FC000001FC000001FC000003FF0000FFFFFE00FFFFFE00FFFFFE00 +202C7DAB26>I<003FE01801FFFC3807E01F780F0003F81E0001F83C0000F87C00007878 +000078F8000038F8000038F8000018F8000018FC000018FC000018FE000018FF8000007F +C000007FFC00003FFFE0001FFFFC000FFFFF0007FFFFC003FFFFE000FFFFF0001FFFF800 +00FFF800000FFC000003FCC00001FEC00000FEC000007EE000007EE000003EE000003EF0 +00003EF000003EF000003EF800003CFC00007CFC000078FE0000F8FF0001F0F38003E0F1 +F00F80E07FFE00C00FF0001F2E7DAC26>I<000600000006000000060000000600000006 +0000000E0000000E0000000E0000000E0000001E0000001E0000001E0000003E0000007E +0000007E000000FE000001FE000007FE00001FFFFFF0FFFFFFF0FFFFFFF000FE000000FE +000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE +000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE +000000FE000000FE000000FE000C00FE000C00FE000C00FE000C00FE000C00FE000C00FE +000C00FE000C00FE000C00FE000C007E001C007F0018007F0018003F0038001F8030001F +C0700007E0E00001FFC000007F001E3E7EBC26>I<01FC00007F00FFFC003FFF00FFFC00 +3FFF00FFFC003FFF0007FC0001FF0003FC0000FF0001FC00007F0001FC00007F0001FC00 +007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00 +007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00 +007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00 +007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00007F0001FC00 +00FF0001FC0000FF0001FC0000FF0001FC0001FF0001FC0001FF0000FC0001FF0000FE00 +03FF00007E00077F80007F000E7FC0003F001C7FFE000FC0787FFE0003FFF07FFE00007F +807F002F2D7DAB36>III< +FFFFF007FFFCFFFFF007FFFCFFFFF007FFFC03FFC001FFC000FF8000FF00007F8000FC00 +003F8000F800003FC000E000001FE000E000000FE001C0000007F00380000007F8030000 +0003FC0600000001FC0E00000001FE1C00000000FF18000000007F30000000003FF00000 +00003FE0000000001FE0000000000FE00000000007F00000000007F8000000000FF80000 +00000DFC0000000019FE0000000038FF00000000707F00000000603F80000000C03FC000 +0001C01FC0000003800FE0000003000FF00000060007F800000E0003F800001C0001FC00 +003C0001FE00007C0001FF0001FC0001FF800FFE0003FFC0FFFF800FFFFFFFFF800FFFFF +FFFF800FFFFF302B7FAA33>II<3FFFFFFFE03FFFFFFFE03FC0003FE03F00003FC03C00007F80380000FF00380000FF +00300001FE00700003FC00700003FC00700007F80060000FF00060000FF00060001FE000 +60003FC00060003FC00000007F80000000FF00000001FF00000001FE00000003FC000000 +07FC00000007F80000000FF00000001FF00000001FE00060003FC00060007F800060007F +80006000FF0000C001FE0000C001FE0000C003FC0000C007F80000C007F80001C00FF000 +01C01FE00003C01FE00003C03FC00007807F80001F80FF8000FF80FFFFFFFF80FFFFFFFF +80232B7DAA2B>III<00F8000203FE000707FF800E0F +FFE01C1F1FF8F83807FFF07001FFE0E0007FC040001F00200978C131>126 +D<1E0007807F000FE0FF801FF0FFC03FF0FFC03FF0FFC03FF0FFC03FF0FF801FF07F000F +E01E0007801C0A76C231>I E end +%%EndProlog +%%BeginSetup +%%Feature: *Resolution 600dpi +TeXDict begin +%%PaperSize: A4 + +%%EndSetup +%%Page: 1 1 +1 0 bop 3200 -18 a Fw(LU)32 b(TP)i(95{20)3131 90 y(Decem)m(b)s(er)e +(1998)2090 198 y(\(revised)i(v)m(ersion)f(of)f(CERN{TH.7112/93\))2565 +307 y(\(\014rst)h(issued)h(Decem)m(b)s(er)e(1993\))3097 +415 y(hep-ph/9508391)p 2982 511 798 9 v 2982 752 9 242 +v 3061 656 a(W5035/W5044)p 3771 752 V 2982 760 798 9 +v 508 1407 a Fv(P)p Fu(YTHIA)76 b Fv(5.7)e Fu(and)g Fv(J)p +Fu(ETSET)g Fv(7.4)1038 1653 y Fu(Ph)-5 b(ysics)66 b(and)e(Man)-5 +b(ual)1213 2031 y Ft(T)-13 b(orb)9 b(j\177)-81 b(orn)53 +b(Sj\177)-81 b(ostrand)982 2221 y Fs(Departmen)m(t)36 +b(of)i(Theoretical)e(Ph)m(ysics,)957 2353 y(Univ)m(ersit)m(y)g(of)j +(Lund,)f(S\177)-59 b(olv)m(egatan)36 b(14A,)1238 2485 +y(S-223)i(62)g Fr(Lund)p Fs(,)g Fr(Sweden)p 936 2805 +1908 9 v 936 4710 9 1905 v 1687 3041 a Fq(*......*)1430 +3124 y(*:::!!:::::::::::*)1277 3206 y(*::::::!!::::::::::::::*)1174 +3289 y(*::::::::!!::::::::::::::)q(::*)1123 3371 y +(*:::::::::!!::::::::::::::)q(:::)q(*)1123 3453 y +(*:::::::::!!::::::::::::::)q(:::)q(*)1174 3536 y +(*::::::::!!::::::::::::::)q(::*)q(!)1277 3618 y +(*::::::!!::::::::::::::*)57 b(!!)1277 3700 y(!!)51 b +(*:::!!:::::::::::*)210 b(!!)1277 3783 y(!!)256 b(!*)52 +b(-><-)h(*)461 b(!!)1277 3865 y(!!)256 b(!!)821 b(!!)1277 +3947 y(!!)256 b(!!)821 b(!!)1277 4030 y(!!)1179 b(!!)1277 +4112 y(!!)410 b(ep)667 b(!!)1277 4194 y(!!)1179 b(!!)1277 +4277 y(!!)872 b(pp)205 b(!!)1277 4359 y(!!)154 b(e+e-)821 +b(!!)1277 4442 y(!!)1179 b(!!)1277 4524 y(!!)p 2835 4710 +V 936 4718 1908 9 v 322 5015 3135 9 v 322 5553 9 538 +v 793 5169 a Fs(Imp)s(ortan)m(t)36 b(note:)50 b(this)39 +b(is)f(the)h(long)f(writeup)f(of)429 5314 y(T.)h(Sj\177)-59 +b(ostrand,)37 b(Computer)f(Ph)m(ysics)i(Comm)m(un.)47 +b Fp(82)40 b Fs(\(1994\))c(74.)628 5459 y(All)i(references)g(should)h +(b)s(e)g(to)f(the)h(published)f(v)m(ersion.)p 3449 5553 +V 322 5561 3135 9 v eop +%%Page: 2 2 +2 1 bop 378 764 3024 9 v 378 4473 9 3709 v 1533 1013 +a Fw(Cop)m(yrigh)m(t)33 b(Notice)481 1337 y Fo(CERNLIB)j({)i(CERN)e +(Program)g(Library)h(Long)h(writeups)509 1551 y Fw(c)481 +1554 y Fn(\015)32 b Fw(Cop)m(yrigh)m(t)h(CERN,)h(Genev)-5 +b(a)33 b(1993)481 1771 y(Cop)m(yrigh)m(t)c(and)f(an)m(y)h(other)g +(appropriate)e(legal)g(protection)h(of)f(these)j(com-)481 +1879 y(puter)f(programs)e(and)h(asso)s(ciated)g(do)s(cumen)m(tation)f +(reserv)m(ed)j(in)d(all)f(coun-)481 1987 y(tries)33 b(of)f(the)h(w)m +(orld.)481 2204 y(These)38 b(programs)c(or)h(do)s(cumen)m(tation)g(ma)m +(y)g(not)g(b)s(e)h(repro)s(duced)h(b)m(y)f(an)m(y)481 +2312 y(metho)s(d)43 b(without)f(prior)g(written)g(consen)m(t)i(of)f +(the)g(Director-General)d(of)481 2421 y(CERN)34 b(or)e(his)g(delegate.) +481 2637 y(P)m(ermission)59 b(for)h(the)g(usage)g(of)g(an)m(y)g +(programs)f(describ)s(ed)i(herein)e(is)481 2746 y(gran)m(ted)51 +b(apriori)d(to)i(those)g(scien)m(ti\014c)h(institutes)f(asso)s(ciated)g +(with)f(the)481 2854 y(CERN)35 b(exp)s(erimen)m(tal)d(program)g(or)i +(with)f(whom)g(CERN)h(has)g(concluded)481 2962 y(a)f(scien)m(ti\014c)f +(collab)s(oration)e(agreemen)m(t.)481 3179 y(Requests)35 +b(for)d(information)d(should)k(b)s(e)g(addressed)h(to:)924 +3324 y Fq(CERN)52 b(Program)h(Library)g(Office)924 3444 +y(CERN-CN)g(Division)924 3564 y(CH-1211)g(Geneva)g(23)924 +3685 y(Switzerland)924 3805 y(Tel.)103 b(+41)53 b(22)e(767)h(4951)924 +3925 y(Fax.)103 b(+41)53 b(22)e(767)h(7155)924 4046 y(Bitnet:)104 +b(CERNLIB@CERNVM)924 4166 y(DECnet:)g(VXCERN::CERNLIB)56 +b(\(node)c(22.190\))924 4287 y(Internet:)105 b(CERNLIB@CERNVM.CERN.CH)p +3393 4473 V 378 4481 3024 9 v 378 4775 a Fo(T)-9 b(rademark)35 +b(notice:)47 b(All)33 b(trademarks)h(app)s(earing)i(in)e(this)g(guide)g +(are)378 4884 y(ac)m(kno)m(wledged)k(as)g(suc)m(h.)p +eop +%%Page: 3 3 +3 2 bop 0 -18 a Ft(Preface)0 189 y Fw(The)23 b Fm(Pythia)g +Fw(and)g Fm(Jetset)e Fw(programs)h(are)g(frequen)m(tly)i(used)g(for)e +(ev)m(en)m(t)i(generation)e(in)g(high-energy)0 297 y(ph)m(ysics.)72 +b(The)43 b(emphasis)f(is)f(on)g(m)m(ultiparticle)e(pro)s(duction)i(in)g +(collisions)e(b)s(et)m(w)m(een)k(elemen)m(tary)0 405 +y(particles.)d(This)23 b(in)g(particular)e(means)j(hard)f(in)m +(teractions)g(in)f(e)2359 369 y Fl(+)2419 405 y Fw(e)2462 +369 y Fk(\000)2521 405 y Fw(,)j(pp)f(and)f(ep)h(colliders,)g(although)0 +514 y(also)37 b(other)h(applications)d(are)j(en)m(visaged.)60 +b(The)39 b(programs)e(are)h(in)m(tended)g(to)g(generate)g(complete)0 +622 y(ev)m(en)m(ts,)47 b(in)41 b(as)i(m)m(uc)m(h)f(detail)f(as)h(exp)s +(erimen)m(tally)f(observ)-5 b(able)42 b(ones,)k(within)41 +b(the)h(b)s(ounds)h(of)f(our)0 730 y(curren)m(t)25 b(understanding)e +(of)g(the)h(underlying)f(ph)m(ysics.)42 b(Man)m(y)25 +b(of)e(the)h(comp)s(onen)m(ts)g(of)e(the)i(programs)0 +839 y(represen)m(t)h(original)20 b(researc)m(h,)27 b(in)22 +b(the)i(sense)g(that)f(mo)s(dels)f(ha)m(v)m(e)j(b)s(een)f(dev)m(elop)s +(ed)g(and)f(implemen)m(ted)0 947 y(for)37 b(a)h(n)m(um)m(b)s(er)g(of)f +(asp)s(ects)j(not)d(co)m(v)m(ered)j(b)m(y)f(standard)f(theory)-8 +b(.)60 b(Although)37 b(originally)d(conceiv)m(ed)0 1055 +y(separately)-8 b(,)41 b(the)e Fm(Pythia)g Fw(and)f Fm(Jetset)g +Fw(programs)g(to)s(da)m(y)h(are)f(so)h(often)g(used)h(together)f(that)f +(it)0 1164 y(mak)m(es)33 b(sense)i(to)d(presen)m(t)i(them)e(here)i +(without)e(to)s(o)g(m)m(uc)m(h)h(distinction.)146 1272 +y(Both)i(programs)g(ha)m(v)m(e)h(a)f(long)f(history)-8 +b(,)36 b(and)f(sev)m(eral)h(man)m(uals)e(ha)m(v)m(e)i(come)f(out.)51 +b(The)36 b(former)0 1380 y(round)42 b(of)49 b Fm(Pythia/Jetset)41 +b Fw(program)f(descriptions)i(app)s(eared)h(in)e(1987.)71 +b(Mean)m(while)42 b(a)g(large)0 1489 y(n)m(um)m(b)s(er)35 +b(of)f(additions)f(and)i(c)m(hanges)g(ha)m(v)m(e)h(b)s(een)f(made.)49 +b(Recen)m(tly)35 b(a)f(new)i(description)e(therefore)0 +1597 y(app)s(eared)f(in)0 1729 y(T.)g(Sj\177)-49 b(ostrand,)33 +b(Computer)g(Ph)m(ysics)h(Comm)m(un.)43 b Fo(82)32 b +Fw(\(1994\))g(74.)0 1861 y(This)c(is)g(the)h(one)f(and)g(only)g +(correct)h(reference)g(to)f(the)h(curren)m(t)g(v)m(ersions)g(of)35 +b Fm(Pythia)28 b Fw(and)g Fm(Jetset)p Fw(.)0 1969 y(The)46 +b(long)e(writeup)h(that)g(y)m(ou)h(no)m(w)f(ha)m(v)m(e)i(b)s(efore)e(y) +m(ou)g(is)g(an)g(\(unpublished\))g(app)s(endix)g(to)g(the)0 +2078 y(publication)23 b(ab)s(o)m(v)m(e,)28 b(and)d(need)i(not)e(b)s(e)g +(separately)h(cited.)41 b(Instead)26 b(remem)m(b)s(er)f(to)g(cite)g +(the)h(original)0 2186 y(literature)d(on)h(the)g(ph)m(ysics)i(topics)e +(of)f(particular)g(relev)-5 b(ance)24 b(for)g(y)m(our)h(studies.)41 +b(\(There)25 b(is)f(no)g(reason)0 2294 y(to)k(omit)f(references)j(to)e +(go)s(o)s(d)g(ph)m(ysics)i(pap)s(ers)f(simply)e(b)s(ecause)j(some)e(of) +g(their)g(con)m(ten)m(ts)j(ha)m(v)m(e)e(also)0 2403 y(b)s(een)k(made)f +(a)m(v)-5 b(ailable)30 b(as)j(program)e(co)s(de.\))146 +2511 y(Ev)m(en)m(t)36 b(generators)e(often)g(ha)m(v)m(e)h(a)f +(reputation)f(for)h(b)s(eing)f(`blac)m(k)h(b)s(o)m(xes';)i(if)c +(nothing)h(else,)i(this)0 2619 y(rep)s(ort)27 b(should)g(pro)m(vide)h +(y)m(ou)f(with)g(a)g(glimpse)f(of)g(what)i(go)s(es)f(on)g(inside)g(the) +g(programs.)41 b(Some)27 b(suc)m(h)0 2728 y(understanding)37 +b(ma)m(y)f(b)s(e)g(of)g(sp)s(ecial)g(in)m(terest)h(for)e(new)j(users,)g +(who)f(ha)m(v)m(e)h(no)e(bac)m(kground)h(in)f(the)0 2836 +y(\014eld.)60 b(An)39 b(attempt)e(has)i(b)s(een)g(made)f(to)f +(structure)j(the)e(rep)s(ort)g(su\016cien)m(tly)h(w)m(ell)f(that)g(man) +m(y)g(of)0 2944 y(the)g(sections)g(can)g(b)s(e)g(read)f(indep)s(enden)m +(tly)i(of)e(eac)m(h)h(other,)h(so)f(y)m(ou)g(can)g(pic)m(k)g(the)g +(sections)g(that)0 3053 y(in)m(terest)29 b(y)m(ou.)43 +b(I)29 b(ha)m(v)m(e)g(tried)f(to)h(k)m(eep)h(together)f(the)f(ph)m +(ysics)j(and)d(the)h(man)m(ual)e(sections)i(on)g(sp)s(eci\014c)0 +3161 y(topics,)43 b(where)g(practicable,)f(whic)m(h)g(represen)m(ts)i +(a)d(c)m(hange)h(of)f(p)s(olicy)f(compared)h(with)g(previous)0 +3269 y(man)m(ual)31 b(v)m(ersions.)45 b(An)m(y)33 b(feedbac)m(k)i(on)d +(this)g(and)h(other)g(asp)s(ects)h(is)e(w)m(elcome.)146 +3378 y(A)50 b(large)e(n)m(um)m(b)s(er)i(of)f(p)s(ersons)h(should)g(b)s +(e)f(thank)m(ed)i(for)e(their)g(con)m(tributions.)93 +b(Hans-Uno)0 3486 y(Bengtsson)42 b(is)d(the)i(originator)d(of)i(the)g +Fm(Pythia)h Fw(program,)g(and)f(for)g(man)m(y)g(y)m(ears)i(w)m(e)f(w)m +(ork)m(ed)h(in)0 3594 y(parallel)29 b(on)j(its)f(further)h(dev)m +(elopmen)m(t.)44 b(Mats)32 b(Bengtsson)h(is)e(the)h(main)e(author)i(of) +f(the)h(\014nal-state)0 3703 y(parton-sho)m(w)m(er)37 +b(algorithm.)49 b(Bo)35 b(Andersson)j(and)d(G\177)-49 +b(osta)35 b(Gustafson)h(are)g(the)g(originators)d(of)i(the)0 +3811 y(Lund)43 b(mo)s(del,)h(and)f(strongly)g(in\015uenced)h(the)f +(early)g(dev)m(elopmen)m(t)g(of)g(the)g(programs.)73 +b(F)-8 b(urther)0 3919 y(commen)m(ts)29 b(on)f(the)i(programs)d(ha)m(v) +m(e)k(b)s(een)e(obtained)f(from)g(users)i(to)s(o)e(n)m(umerous)h(to)g +(b)s(e)g(men)m(tioned)0 4028 y(here,)38 b(but)f(who)g(are)f(all)f +(gratefully)f(ac)m(kno)m(wledged.)57 b(T)-8 b(o)37 b(write)f(programs)f +(of)h(this)g(size)h(and)g(com-)0 4136 y(plexit)m(y)32 +b(w)m(ould)h(b)s(e)g(imp)s(ossible)d(without)i(a)g(strong)h(user)h +(feedbac)m(k.)146 4244 y(The)45 b(moral)d(resp)s(onsibilit)m(y)g(for)h +(an)m(y)i(remaining)c(errors)j(clearly)f(rests)i(with)e(me.)77 +b(Ho)m(w)m(ev)m(er,)0 4353 y(kindly)37 b(note)i(that)e(this)h(is)f(a)h +(`Univ)m(ersit)m(y)h(W)-8 b(orld')37 b(pro)s(duct,)i(distributed)f(`as) +g(is',)h(free)f(of)g(c)m(harge,)0 4461 y(without)33 b(an)m(y)h(binding) +d(guaran)m(tees.)47 b(And)34 b(alw)m(a)m(ys)f(remem)m(b)s(er)g(that)g +(the)h(programs)e(do)h(not)g(repre-)0 4569 y(sen)m(t)28 +b(a)e(dead)g(collection)f(of)h(established)g(truths,)j(but)d(rather)h +(one)f(of)g(man)m(y)g(p)s(ossible)g(approac)m(hes)i(to)0 +4678 y(the)h(problem)d(of)i(m)m(ultiparticle)d(pro)s(duction)i(in)g +(high-energy)h(ph)m(ysics,)j(at)d(the)g(fron)m(tline)f(of)g(curren)m(t) +0 4786 y(researc)m(h.)45 b(Be)33 b(critical!)p eop +%%Page: 4 4 +4 3 bop eop +%%Page: 5 5 +5 4 bop 0 -18 a Ft(Con)l(ten)l(ts)0 189 y Fo(1)90 b(In)m(tro)s(duction) +2959 b(1)0 394 y(2)90 b(Ph)m(ysics)37 b(Ov)m(erview)2715 +b(9)146 503 y Fw(2.1)100 b(Hard)32 b(Pro)s(cesses)j(and)e(P)m(arton)g +(Distributions)53 b(.)d(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g +(.)g(.)g(.)g(.)g(.)g(.)141 b(9)146 611 y(2.2)100 b(Initial-)29 +b(and)k(Final-State)d(Radiation)59 b(.)50 b(.)g(.)f(.)h(.)g(.)g(.)g(.)g +(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 +b(11)146 719 y(2.3)100 b(Beam)32 b(Remnan)m(ts)d(.)50 +b(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g +(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 +b(14)146 828 y(2.4)100 b(F)-8 b(ragmen)m(tation)30 b(.)50 +b(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g +(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 +b(15)146 936 y(2.5)100 b(Deca)m(ys)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h +(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.) +g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 b(18)0 +1142 y Fo(3)e(Program)37 b(Ov)m(erview)2595 b(20)146 +1250 y Fw(3.1)100 b(Up)s(date)32 b(History)70 b(.)50 +b(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g +(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 +b(21)146 1359 y(3.2)100 b(Program)31 b(Installation)71 +b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.) +g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 +b(32)146 1467 y(3.3)100 b(Program)31 b(Philosoph)m(y)91 +b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.) +g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 +b(34)146 1575 y(3.4)100 b(Man)m(ual)32 b(Con)m(v)m(en)m(tions)90 +b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.) +g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 +b(35)146 1684 y(3.5)100 b(Getting)31 b(Started)i(with)f(JETSET)43 +b(.)50 b(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.) +h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 b(36)146 1792 y(3.6)100 +b(Getting)31 b(Started)i(with)f(PYTHIA)d(.)50 b(.)g(.)g(.)g(.)f(.)h(.)g +(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.) +92 b(39)0 1998 y Fo(4)e(Mon)m(te)38 b(Carlo)f(T)-9 b(ec)m(hniques)2322 +b(44)146 2106 y Fw(4.1)100 b(Selection)32 b(F)-8 b(rom)31 +b(a)h(Distribution)75 b(.)50 b(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g +(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 +b(44)146 2215 y(4.2)100 b(The)33 b(V)-8 b(eto)33 b(Algorithm)94 +b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.) +g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 +b(46)146 2323 y(4.3)100 b(The)33 b(Random)f(Num)m(b)s(er)g(Generator)26 +b(.)50 b(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.) +g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 b(48)0 2529 y Fo(5)e(The)38 +b(Ev)m(en)m(t)f(Record)2622 b(52)146 2637 y Fw(5.1)100 +b(P)m(article)31 b(Co)s(des)36 b(.)50 b(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g +(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.) +g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 b(52)146 2746 y(5.2)100 +b(The)33 b(Ev)m(en)m(t)i(Record)28 b(.)49 b(.)h(.)g(.)g(.)g(.)g(.)g(.)g +(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.) +g(.)g(.)g(.)g(.)g(.)g(.)92 b(57)146 2854 y(5.3)100 b(Ho)m(w)33 +b(The)g(Ev)m(en)m(t)i(Record)e(W)-8 b(orks)43 b(.)50 +b(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g +(.)g(.)g(.)g(.)g(.)g(.)g(.)92 b(61)146 2962 y(5.4)100 +b(The)33 b(HEPEVT)i(Standard)76 b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.) +h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g +(.)g(.)92 b(64)0 3168 y Fo(6)e(Hard)38 b(Pro)s(cesses)f(in)g(JETSET) +2175 b(68)146 3276 y Fw(6.1)100 b(Annihilation)29 b(Ev)m(en)m(ts)35 +b(in)d(the)h(Con)m(tin)m(uum)86 b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.) +g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 b(68)146 +3385 y(6.2)100 b(Deca)m(ys)33 b(of)g(Onia)e(Resonances)f(.)50 +b(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f +(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 b(78)146 3493 y(6.3)100 +b(Routines)32 b(and)h(Common)e(Blo)s(c)m(k)h(V)-8 b(ariables)51 +b(.)f(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g +(.)g(.)g(.)92 b(79)146 3602 y(6.4)100 b(Examples)89 b(.)50 +b(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g +(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.) +92 b(85)0 3807 y Fo(7)e(Pro)s(cess)38 b(Generation)f(in)g(PYTHIA)1943 +b(87)146 3916 y Fw(7.1)100 b(P)m(arton)32 b(Distributions)78 +b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.) +g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 +b(87)146 4024 y(7.2)100 b(Kinematics)31 b(and)h(Cross)i(section)f(for)f +(a)g(2)27 b Fn(!)h Fw(2)k(Pro)s(cess)67 b(.)50 b(.)g(.)g(.)g(.)f(.)h(.) +g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 b(91)146 4132 y(7.3)100 +b(Resonance)33 b(Pro)s(duction)84 b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)g +(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.) +g(.)g(.)g(.)92 b(93)146 4241 y(7.4)100 b(Cross-section)33 +b(Calculations)72 b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g +(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)92 +b(96)146 4349 y(7.5)100 b(2)27 b Fn(!)g Fw(3)33 b(and)f(2)c +Fn(!)f Fw(4)32 b(Pro)s(cesses)i(.)50 b(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g +(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.) +43 b(102)146 4457 y(7.6)100 b(Resonance)33 b(Deca)m(ys)h(.)49 +b(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g +(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 +b(104)146 4566 y(7.7)100 b(Nonp)s(erturbativ)m(e)33 b(Pro)s(cesses)56 +b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.) +g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 b(106)0 4772 +y Fo(8)90 b(Ph)m(ysics)37 b(Pro)s(cesses)g(in)g(PYTHIA)1974 +b(112)146 4880 y Fw(8.1)100 b(The)33 b(Pro)s(cess)h(Classi\014cation)d +(Sc)m(heme)k(.)50 b(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f +(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 b(112)146 4988 +y(8.2)100 b(QCD)32 b(Pro)s(cesses)79 b(.)50 b(.)f(.)h(.)g(.)g(.)g(.)g +(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.) +h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 b(117)146 5097 y(8.3)100 +b(Electro)m(w)m(eak)34 b(Gauge)e(Bosons)45 b(.)50 b(.)g(.)g(.)g(.)g(.)g +(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.) +g(.)g(.)g(.)43 b(121)146 5205 y(8.4)100 b(Higgs)31 b(Pro)s(duction)64 +b(.)49 b(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.) +g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 +b(128)146 5313 y(8.5)100 b(Non-Standard)32 b(Ph)m(ysics)92 +b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.) +g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 b(133)146 +5422 y(8.6)100 b(Main)32 b(Pro)s(cesses)i(b)m(y)g(Mac)m(hine)91 +b(.)50 b(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.) +f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 b(136)p eop +%%Page: 6 6 +6 5 bop 0 -18 a Fo(9)90 b(The)38 b(PYTHIA)e(Program)g(Elemen)m(ts)1831 +b(139)146 90 y Fw(9.1)100 b(The)33 b(Main)f(Subroutines)82 +b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.) +g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 b(139)146 +198 y(9.2)100 b(Switc)m(hes)34 b(for)e(Ev)m(en)m(t)i(T)m(yp)s(e)g(and)f +(Kinematics)e(Selection)h(.)50 b(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.) +g(.)g(.)g(.)43 b(143)146 307 y(9.3)100 b(The)33 b(General)f(Switc)m +(hes)i(and)f(P)m(arameters)96 b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g +(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 b(148)146 +415 y(9.4)100 b(General)31 b(Ev)m(en)m(t)k(Information)42 +b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.) +g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 b(164)146 +523 y(9.5)100 b(Ho)m(w)33 b(to)f(include)g(external)h(pro)s(cesses)h +(in)e(PYTHIA)59 b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.) +g(.)g(.)g(.)43 b(168)146 632 y(9.6)100 b(Ho)m(w)33 b(to)f(run)h(PYTHIA) +h(with)e(v)-5 b(arying)32 b(energies)j(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g +(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 b(173)146 +740 y(9.7)100 b(Other)33 b(Routines)f(and)h(Common)e(Blo)s(c)m(ks)79 +b(.)49 b(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.) +g(.)g(.)g(.)g(.)43 b(176)146 848 y(9.8)100 b(Examples)89 +b(.)50 b(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.) +h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g +(.)g(.)43 b(189)0 1054 y Fo(10)34 b(Initial-)i(and)i(Final-State)f +(Radiation)1819 b(190)146 1162 y Fw(10.1)51 b(Sho)m(w)m(er)34 +b(Ev)m(olution)58 b(.)49 b(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f +(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.) +g(.)g(.)43 b(190)146 1271 y(10.2)51 b(Final-State)30 +b(Sho)m(w)m(ers)36 b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h +(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.) +g(.)43 b(193)146 1379 y(10.3)51 b(Initial-State)29 b(Sho)m(w)m(ers)77 +b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.) +g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 +b(199)146 1488 y(10.4)51 b(Routines)32 b(and)h(Common)e(Blo)s(c)m(k)h +(V)-8 b(ariables)51 b(.)f(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h +(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 b(206)0 1693 y Fo(11)34 +b(Beam)j(Remnan)m(ts)h(and)g(Underlying)f(Ev)m(en)m(ts)1490 +b(213)146 1802 y Fw(11.1)51 b(Beam)32 b(Remnan)m(ts)d(.)50 +b(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g +(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 +b(213)146 1910 y(11.2)51 b(Multiple)31 b(In)m(teractions)64 +b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.) +g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 +b(216)146 2018 y(11.3)51 b(Pile-up)31 b(Ev)m(en)m(ts)i(.)50 +b(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g +(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 +b(223)146 2127 y(11.4)51 b(Common)31 b(Blo)s(c)m(k)h(V)-8 +b(ariables)34 b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g +(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 +b(224)0 2333 y Fo(12)34 b(F)-9 b(ragmen)m(tation)2752 +b(229)146 2441 y Fw(12.1)51 b(Fla)m(v)m(our)32 b(Selection)69 +b(.)49 b(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.) +g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 +b(229)146 2549 y(12.2)51 b(String)31 b(F)-8 b(ragmen)m(tation)45 +b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.) +g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 +b(233)146 2658 y(12.3)51 b(Indep)s(enden)m(t)35 b(F)-8 +b(ragmen)m(tation)84 b(.)50 b(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g +(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 +b(241)146 2766 y(12.4)51 b(Other)33 b(F)-8 b(ragmen)m(tation)30 +b(Asp)s(ects)80 b(.)50 b(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.) +g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 b(243)0 +2972 y Fo(13)34 b(P)m(articles)h(and)k(Their)d(Deca)m(ys)2140 +b(245)146 3080 y Fw(13.1)51 b(The)33 b(P)m(article)f(Con)m(ten)m(t)59 +b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.) +g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 +b(245)146 3189 y(13.2)51 b(Masses,)34 b(Widths)f(and)g(Lifetimes)64 +b(.)50 b(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.) +h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 b(246)146 3297 y(13.3)51 +b(Deca)m(ys)f(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g +(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.) +g(.)g(.)g(.)g(.)g(.)g(.)43 b(248)0 3503 y Fo(14)34 b(The)k(JETSET)f +(Program)f(Elemen)m(ts)1861 b(254)146 3611 y Fw(14.1)51 +b(De\014nition)31 b(of)h(Initial)e(Con\014guration)h(or)i(V)-8 +b(ariables)54 b(.)c(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g +(.)g(.)43 b(254)146 3720 y(14.2)51 b(The)33 b(JETSET)i(Ph)m(ysics)f +(Routines)87 b(.)50 b(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g +(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 b(256)146 +3828 y(14.3)51 b(Ev)m(en)m(t)34 b(Study)g(and)e(Data)g(Listing)f +(Routines)f(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g +(.)g(.)g(.)g(.)g(.)g(.)43 b(259)146 3936 y(14.4)51 b(The)33 +b(General)f(Switc)m(hes)i(and)f(P)m(arameters)96 b(.)50 +b(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g +(.)g(.)43 b(264)146 4045 y(14.5)51 b(Couplings)76 b(.)50 +b(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g +(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.) +43 b(274)146 4153 y(14.6)51 b(F)-8 b(urther)32 b(P)m(arameters)h(and)g +(P)m(article)f(Data)100 b(.)50 b(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.) +f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 b(278)146 4261 +y(14.7)51 b(Miscellaneous)32 b(Commen)m(ts)46 b(.)k(.)g(.)g(.)g(.)g(.)g +(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.) +g(.)g(.)g(.)g(.)43 b(284)146 4370 y(14.8)51 b(Examples)89 +b(.)50 b(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.) +h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g +(.)g(.)43 b(287)0 4576 y Fo(15)34 b(Ev)m(en)m(t)j(Analysis)g(Routines) +2260 b(291)146 4684 y Fw(15.1)51 b(Ev)m(en)m(t)34 b(Shap)s(es)79 +b(.)50 b(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.) +g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 +b(291)146 4792 y(15.2)51 b(Cluster)33 b(Finding)58 b(.)50 +b(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g +(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 +b(295)146 4901 y(15.3)51 b(Ev)m(en)m(t)34 b(Statistics)59 +b(.)50 b(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.) +g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 +b(299)146 5009 y(15.4)51 b(Routines)32 b(and)h(Common)e(Blo)s(c)m(k)h +(V)-8 b(ariables)51 b(.)f(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)f(.)h +(.)g(.)g(.)g(.)g(.)g(.)g(.)g(.)43 b(301)0 5215 y Fo(16)34 +b(Summary)j(and)i(Outlo)s(ok)2344 b(312)0 5421 y(References)3087 +b(313)0 5627 y(Index)38 b(of)g(Subprograms)g(and)g(Common)f(Blo)s(c)m +(k)f(V)-9 b(ariables)1027 b(323)p eop +%%Page: 1 7 +1 6 bop 0 -18 a Ft(1)161 b(In)l(tro)t(duction)0 189 y +Fw(Multiparticle)25 b(pro)s(duction)j(is)f(the)h(most)g(c)m +(haracteristic)f(feature)i(of)e(curren)m(t)i(high-energy)f(ph)m(ysics.) +0 297 y(T)-8 b(o)s(da)m(y)g(,)30 b(observ)m(ed)h(particle)d(m)m +(ultiplicities)d(are)k(t)m(ypically)f(b)s(et)m(w)m(een)j(ten)f(and)f(a) +g(h)m(undred,)j(and)d(with)0 405 y(future)44 b(mac)m(hines)g(this)g +(range)g(will)d(b)s(e)k(extended)h(up)m(w)m(ards.)79 +b(The)45 b(bulk)f(of)f(the)i(m)m(ultiplicit)m(y)40 b(is)0 +514 y(found)33 b(in)f(jets,)h(i.e.)43 b(in)32 b(bunc)m(hes)j(of)e +(hadrons)g(\(or)f(deca)m(y)i(pro)s(ducts)g(of)e(hadrons\))h(pro)s +(duced)g(b)m(y)h(the)0 622 y(hadronization)d(of)h(quarks)i(and)e +(gluons.)0 870 y Fo(The)38 b(Complexit)m(y)d(of)j(High-Energy)e(Pro)s +(cesses)0 1042 y Fw(T)-8 b(o)37 b(\014rst)g(appro)m(ximation,)f(all)e +(pro)s(cesses)39 b(ha)m(v)m(e)f(a)f(simple)e(structure)j(at)e(the)h +(lev)m(el)g(of)f(in)m(teractions)0 1151 y(b)s(et)m(w)m(een)j(the)f +(fundamen)m(tal)f(ob)5 b(jects)38 b(of)f(nature,)i(i.e.)58 +b(quarks,)40 b(leptons)d(and)h(gauge)f(b)s(osons.)58 +b(F)-8 b(or)0 1259 y(instance,)28 b(a)f(lot)e(can)i(b)s(e)g(understo)s +(o)s(d)h(ab)s(out)e(the)h(structure)h(of)e(hadronic)h(ev)m(en)m(ts)i +(at)d(LEP)i(just)f(from)0 1367 y(the)38 b(`sk)m(eleton')h(pro)s(cess)g +(e)995 1331 y Fl(+)1054 1367 y Fw(e)1097 1331 y Fk(\000)1193 +1367 y Fn(!)d Fw(Z)1389 1331 y Fl(0)1464 1367 y Fn(!)g +Fw(q)p 1651 1314 52 4 v(q)q(.)58 b(Corrections)38 b(to)g(this)f +(picture)h(can)f(b)s(e)h(sub)s(divided,)0 1476 y(arbitrarily)30 +b(but)j(con)m(v)m(enien)m(tly)-8 b(,)34 b(in)m(to)d(three)j(main)c +(classes.)146 1584 y(Firstly)-8 b(,)41 b(there)f(are)g +(bremsstrahlung-t)m(yp)s(e)g(mo)s(di\014cations,)g(i.e.)65 +b(the)40 b(emission)f(of)g(additional)0 1692 y(\014nal-state)e +(particles)g(b)m(y)h(branc)m(hings)g(suc)m(h)i(as)d(e)g +Fn(!)f Fw(e)p Fj(\015)43 b Fw(or)37 b(q)g Fn(!)f Fw(qg)q(.)60 +b(Because)39 b(of)e(the)h(largeness)0 1801 y(of)f(the)h(strong)g +(coupling)e(constan)m(t)j Fj(\013)1449 1816 y Fl(s)1481 +1801 y Fw(,)f(and)g(b)s(ecause)h(of)e(the)h(presence)i(of)d(the)h +(triple)e(gluon)h(v)m(er-)0 1909 y(tex,)c(QCD)g(emission)e(o\013)h +(quarks)i(and)f(gluons)f(is)g(esp)s(ecially)f(proli\014c.)42 +b(W)-8 b(e)33 b(therefore)g(sp)s(eak)h(ab)s(out)0 2017 +y(`parton)j(sho)m(w)m(ers',)k(wherein)d(a)e(single)h(initial)c(parton)k +(ma)m(y)g(giv)m(e)g(rise)g(to)g(a)g(whole)g(bunc)m(h)h(of)f(par-)0 +2126 y(tons)k(in)g(the)g(\014nal)g(state.)69 b(Also)41 +b(photon)g(emission)f(ma)m(y)h(giv)m(e)g(sizeable)g(e\013ects)h(in)f(e) +3281 2090 y Fl(+)3340 2126 y Fw(e)3383 2090 y Fk(\000)3484 +2126 y Fw(and)g(ep)0 2234 y(pro)s(cesses.)55 b(The)37 +b(bulk)f(of)f(the)h(bremsstrahlung)g(corrections)g(are)g(univ)m(ersal,) +g(i.e.)53 b(do)36 b(not)f(dep)s(end)0 2342 y(on)f(the)g(details)f(of)g +(the)h(pro)s(cess)h(studied,)g(but)f(only)f(on)h(one)g(or)f(a)h(few)g +(k)m(ey)i(n)m(um)m(b)s(ers,)f(suc)m(h)g(as)f(the)0 2451 +y(momen)m(tum)h(transfer)i(scale)f(of)g(the)h(pro)s(cess.)56 +b(Suc)m(h)37 b(univ)m(ersal)g(corrections)f(ma)m(y)g(b)s(e)h(included)f +(to)0 2559 y(arbitrarily)g(high)h(orders,)k(using)d(a)g(probabilistic)e +(language.)60 b(Alternativ)m(ely)-8 b(,)39 b(exact)g(calculations)0 +2667 y(of)44 b(bremsstrahlung)g(corrections)h(ma)m(y)g(b)s(e)f(carried) +h(out)f(order)h(b)m(y)g(order)g(in)f(p)s(erturbation)g(the-)0 +2776 y(ory)-8 b(,)33 b(but)h(rapidly)e(the)h(calculations)e(then)j(b)s +(ecome)f(prohibitiv)m(ely)e(complicated)h(and)h(the)h(answ)m(ers)0 +2884 y(corresp)s(ondingly)e(length)m(y)-8 b(.)146 2992 +y(Secondly)g(,)31 b(w)m(e)f(ha)m(v)m(e)h(`true')f(higher-order)f +(corrections,)h(whic)m(h)g(in)m(v)m(olv)m(e)g(a)f(com)m(bination)e(of)i +(lo)s(op)0 3101 y(graphs)35 b(and)h(the)f(soft)g(parts)h(of)e(the)i +(bremsstrahlung)f(graphs)g(ab)s(o)m(v)m(e,)i(a)e(com)m(bination)e +(needed)k(to)0 3209 y(cancel)30 b(some)f(div)m(ergences.)44 +b(In)30 b(a)g(complete)f(description)g(it)f(is)h(therefore)i(not)e(p)s +(ossible)g(to)g(consider)0 3318 y(bremsstrahlung)i(separately)-8 +b(,)32 b(as)g(assumed)g(here.)44 b(The)33 b(necessary)h(p)s(erturbativ) +m(e)e(calculations)d(are)0 3426 y(usually)i(v)m(ery)i(di\016cult;)e +(only)g(rarely)g(ha)m(v)m(e)i(results)f(b)s(een)g(presen)m(ted)i(that)d +(include)g(more)g(than)g(one)0 3534 y(non-`trivial')h(order,)k(i.e.)50 +b(more)34 b(than)h(one)g(lo)s(op.)49 b(As)36 b(ab)s(o)m(v)m(e,)g(answ)m +(ers)h(are)e(usually)f(v)m(ery)i(length)m(y)-8 b(,)0 +3643 y(but)47 b(some)f(results)i(are)e(su\016cien)m(tly)i(simple)d(to)h +(b)s(e)h(generally)f(kno)m(wn)i(and)f(used,)k(suc)m(h)d(as)f(the)0 +3751 y(running)38 b(of)g Fj(\013)548 3766 y Fl(s)580 +3751 y Fw(,)i(or)e(the)g(correction)g(factor)g(1)26 b(+)g +Fj(\013)1930 3766 y Fl(s)1962 3751 y Fj(=\031)k Fw(+)c +Fn(\001)17 b(\001)g(\001)36 b Fw(in)i(the)g(partial)e(widths)j(of)f(Z) +3463 3715 y Fl(0)3539 3751 y Fn(!)g Fw(q)p 3728 3698 +V(q)0 3859 y(deca)m(y)29 b(c)m(hannels.)43 b(F)-8 b(or)26 +b(high-precision)g(studies)i(it)f(is)g(imp)s(erativ)m(e)f(to)h(tak)m(e) +h(in)m(to)f(accoun)m(t)h(the)g(results)0 3968 y(of)c(lo)s(op)f +(calculations,)h(but)g(usually)g(e\013ects)h(are)g(minor)d(for)i(the)h +(qualitativ)m(e)d(asp)s(ects)k(of)e(high-energy)0 4076 +y(pro)s(cesses.)146 4184 y(Thirdly)-8 b(,)44 b(quarks)f(and)f(gluons)g +(are)g(con\014ned.)72 b(In)43 b(the)f(t)m(w)m(o)h(p)s(oin)m(ts)e(ab)s +(o)m(v)m(e,)k(w)m(e)e(ha)m(v)m(e)h(used)f(a)0 4293 y(p)s(erturbativ)m +(e)37 b(language)f(to)g(describ)s(e)h(the)g(short-distance)g(in)m +(teractions)f(of)h(quarks,)i(leptons)d(and)0 4401 y(gauge)d(b)s(osons.) +46 b(F)-8 b(or)32 b(leptons)h(and)g(colourless)g(b)s(osons)h(this)e +(language)g(is)h(su\016cien)m(t.)46 b(Ho)m(w)m(ev)m(er,)36 +b(for)0 4509 y(quarks)c(and)g(gluons)e(it)g(m)m(ust)h(b)s(e)h +(complemen)m(ted)e(with)h(a)g(picture)g(for)f(the)i(hadronization)d +(pro)s(cess)0 4618 y(\(whic)m(h)35 b(can)g(b)s(e)g(sub)s(divided)g(in)m +(to)f(fragmen)m(tation)f(and)i(deca)m(ys\),)i(wherein)f(the)f(coloured) +f(partons)0 4726 y(are)45 b(transformed)g(in)m(to)g(jets)h(of)f +(colourless)g(hadrons,)k(photons)d(and)g(leptons.)82 +b(This)45 b(pro)s(cess)i(is)0 4834 y(still)42 b(not)i(y)m(et)h +(understo)s(o)s(d)f(from)f(\014rst)i(principles,)h(but)e(has)h(to)e(b)s +(e)i(based)g(on)f(mo)s(dels.)77 b(In)44 b(one)0 4943 +y(sense,)37 b(hadronization)32 b(e\013ects)k(are)e(o)m(v)m +(erwhelmingly)g(large,)f(since)i(this)f(is)g(where)h(the)g(bulk)f(of)g +(the)0 5051 y(m)m(ultiplicit)m(y)22 b(comes)j(from.)40 +b(In)26 b(another)f(sense,)k(the)d(o)m(v)m(erall)e(energy)j(\015o)m(w)f +(of)e(a)i(high-energy)f(ev)m(en)m(t)i(is)0 5159 y(mainly)j(determined)i +(b)m(y)h(the)f(p)s(erturbativ)m(e)h(pro)s(cesses,)h(with)e(only)f(a)h +(minor)e(additional)g(smearing)0 5268 y(caused)41 b(b)m(y)h(the)e +(hadronization)f(step.)67 b(One)40 b(ma)m(y)g(therefore)h(pic)m(k)f +(di\013eren)m(t)h(lev)m(els)f(of)g(am)m(bition,)0 5376 +y(but)33 b(in)f(general)g(detailed)f(studies)i(require)g(a)g(detailed)e +(mo)s(delling)e(of)j(the)h(hadronization)e(pro)s(cess.)146 +5484 y(The)45 b(simple)c(structure)k(that)e(w)m(e)i(started)f(out)f +(with)g(has)h(no)m(w)g(b)s(ecome)f(considerably)g(more)0 +5593 y(complex)38 b(|)h(instead)f(of)h(ma)m(yb)s(e)g(t)m(w)m(o)g +(\014nal-state)f(partons)h(w)m(e)h(ha)m(v)m(e)g(a)f(h)m(undred)h +(\014nal)e(particles.)1865 5953 y(1)p eop +%%Page: 2 8 +2 7 bop 0 -18 a Fw(The)35 b(original)c(ph)m(ysics)k(is)f(not)g(gone,)g +(but)h(the)f(sk)m(eleton)h(pro)s(cess)g(has)g(b)s(een)f(dressed)i(up)f +(and)f(is)g(no)0 90 y(longer)h(directly)g(visible.)52 +b(A)36 b(direct)f(comparison)g(b)s(et)m(w)m(een)j(theory)e(and)g(exp)s +(erimen)m(t)g(is)f(therefore)0 198 y(complicated)c(at)h(b)s(est,)h(and) +g(imp)s(ossible)d(at)j(w)m(orst.)0 446 y Fo(Ev)m(en)m(t)k(Generators)0 +619 y Fw(It)d(is)g(here)h(that)g(ev)m(en)m(t)h(generators)e(come)h(to)f +(the)g(rescue.)51 b(In)34 b(an)h(ev)m(en)m(t)h(generator,)f(the)f(ob)5 +b(jectiv)m(e)0 727 y(striv)m(ed)37 b(for)f(is)g(to)g(use)h(computers)g +(to)f(generate)h(ev)m(en)m(ts)h(as)f(detailed)e(as)i(could)f(b)s(e)g +(observ)m(ed)j(b)m(y)e(a)0 835 y(p)s(erfect)h(detector.)57 +b(This)37 b(is)g(not)g(done)g(in)f(one)i(step,)h(but)e(rather)g(b)m(y)h +(`factorizing')d(the)j(full)d(prob-)0 944 y(lem)g(in)m(to)h(a)h(n)m(um) +m(b)s(er)g(of)f(comp)s(onen)m(ts,)j(eac)m(h)e(of)g(whic)m(h)g(can)g(b)s +(e)g(handled)g(reasonably)f(accurately)-8 b(.)0 1052 +y(Basically)g(,)35 b(this)g(means)h(that)g(the)g(hard)g(pro)s(cess)i +(is)d(used)i(as)f(input)g(to)f(generate)i(bremsstrahlung)0 +1160 y(corrections,)28 b(and)g(that)e(the)i(result)f(of)f(this)h +(exercise)h(is)f(thereafter)h(left)e(to)h(hadronize.)41 +b(This)27 b(sounds)0 1269 y(a)j(bit)f(easier)h(than)h(it)e(really)g(is) +g(|)h(else)g(this)g(rep)s(ort)g(w)m(ould)g(b)s(e)h(a)e(lot)g(thinner.) +43 b(Ho)m(w)m(ev)m(er,)33 b(the)e(basic)0 1377 y(idea)26 +b(is)f(there:)41 b(if)25 b(the)i(full)d(problem)h(is)h(to)s(o)f +(complicated)g(to)g(b)s(e)i(solv)m(ed)f(in)g(one)g(go,)h(try)g(to)f +(sub)s(divide)0 1485 y(it)h(in)m(to)h(smaller)e(tasks)j(of)f +(manageable)e(prop)s(ortions.)41 b(In)29 b(the)f(actual)f(generation)h +(pro)s(cedure,)i(most)0 1594 y(steps)k(therefore)f(in)m(v)m(olv)m(e)g +(the)g(branc)m(hing)g(of)f(one)g(ob)5 b(ject)34 b(in)m(to)e(t)m(w)m(o,) +h(or)f(at)g(least)h(in)m(to)e(a)i(v)m(ery)h(small)0 1702 +y(n)m(um)m(b)s(er,)f(eac)m(h)g(of)e(whic)m(h)i(b)s(eing)e(free)i(to)f +(branc)m(h)h(in)e(its)h(turn.)43 b(A)32 b(lot)f(of)h(b)s(o)s(okk)m +(eeping)g(is)g(in)m(v)m(olv)m(ed,)0 1810 y(but)h(m)m(uc)m(h)g(is)f(of)g +(a)g(rep)s(etitiv)m(e)h(nature,)g(and)f(can)h(therefore)g(b)s(e)g(left) +f(for)g(the)h(computer)f(to)h(handle.)146 1919 y(As)45 +b(the)f(name)f(indicates,)j(the)e(output)g(of)f(an)g(ev)m(en)m(t)j +(generator)d(should)h(b)s(e)g(in)f(the)h(form)e(of)0 +2027 y(`ev)m(en)m(ts',)49 b(with)44 b(the)g(same)g(a)m(v)m(erage)h(b)s +(eha)m(viour)f(and)g(the)g(same)g(\015uctuations)g(as)g(real)f(data.)77 +b(In)0 2135 y(the)43 b(data,)h(\015uctuations)f(arise)e(from)h(the)g +(quan)m(tum)h(mec)m(hanics)g(of)e(the)i(underlying)f(theory)-8 +b(.)73 b(In)0 2244 y(generators,)36 b(Mon)m(te)g(Carlo)e(tec)m(hniques) +j(are)e(used)h(to)e(select)i(all)d(relev)-5 b(an)m(t)35 +b(v)-5 b(ariables)33 b(according)i(to)0 2352 y(the)g(desired)f +(probabilit)m(y)e(distributions,)h(and)i(thereb)m(y)h(ensure)f +(randomness)g(in)e(the)i(\014nal)e(ev)m(en)m(ts.)0 2460 +y(Clearly)e(some)h(loss)g(of)g(information)d(is)j(en)m(tailed:)42 +b(quan)m(tum)33 b(mec)m(hanics)f(is)g(based)h(on)f(amplitudes,)0 +2569 y(not)j(probabilities.)48 b(Ho)m(w)m(ev)m(er,)39 +b(only)34 b(v)m(ery)j(rarely)e(do)g(\(kno)m(wn\))h(in)m(terference)g +(phenomena)g(app)s(ear)0 2677 y(that)e(cannot)h(b)s(e)g(cast)g(in)f(a)g +(probabilistic)e(language.)48 b(This)35 b(is)f(therefore)h(not)g(a)f +(more)g(restraining)0 2785 y(appro)m(ximation)c(than)j(man)m(y)g +(others.)146 2894 y(Once)41 b(there,)h(an)e(ev)m(en)m(t)i(generator)d +(can)i(b)s(e)f(used)h(in)e(man)m(y)g(di\013eren)m(t)h(w)m(a)m(ys.)67 +b(The)41 b(\014v)m(e)g(main)0 3002 y(applications)30 +b(are)j(probably)f(the)h(follo)m(wing:)145 3115 y Fn(\017)49 +b Fw(T)-8 b(o)30 b(giv)m(e)h(ph)m(ysicists)h(a)e(feeling)f(for)h(the)h +(kind)g(of)f(ev)m(en)m(ts)i(one)f(ma)m(y)g(exp)s(ect/hop)s(e)h(to)e +(\014nd,)h(and)244 3224 y(at)h(what)h(rates.)145 3341 +y Fn(\017)49 b Fw(As)36 b(a)g(help)f(in)g(the)i(planning)d(of)h(a)h +(new)h(detector,)g(so)f(that)g(detector)g(p)s(erformance)g(is)f(opti-) +244 3450 y(mized,)d(within)f(other)i(constrain)m(ts,)g(for)f(the)h +(study)h(of)e(in)m(teresting)g(ph)m(ysics)i(scenarios.)145 +3568 y Fn(\017)49 b Fw(As)38 b(a)g(to)s(ol)e(for)h(devising)g(the)h +(analysis)f(strategies)h(that)g(should)f(b)s(e)h(used)h(on)f(real)f +(data,)h(so)244 3676 y(that)32 b(signal-to-bac)m(kground)f(conditions)h +(are)g(optimized.)145 3794 y Fn(\017)49 b Fw(As)30 b(a)g(metho)s(d)f +(for)g(estimating)e(detector)k(acceptance)g(corrections)f(that)f(ha)m +(v)m(e)i(to)f(b)s(e)g(applied)244 3902 y(to)i(ra)m(w)h(data,)f(in)g +(order)h(to)f(extract)h(the)g(`true')h(ph)m(ysics)g(signal.)145 +4020 y Fn(\017)49 b Fw(As)40 b(a)f(con)m(v)m(enien)m(t)j(framew)m(ork)d +(within)g(whic)m(h)h(to)f(in)m(terpret)h(the)g(observ)m(ed)h(phenomena) +f(in)244 4128 y(terms)32 b(of)g(a)h(more)f(fundamen)m(tal)f(underlying) +h(theory)i(\(usually)d(the)i(Standard)g(Mo)s(del\).)146 +4241 y(Where)k(do)s(es)e(a)g(generator)h(\014t)f(in)m(to)g(the)g(o)m(v) +m(erall)g(analysis)f(c)m(hain)i(of)f(an)g(exp)s(erimen)m(t?)52 +b(In)35 b(`real)0 4350 y(life',)30 b(the)j(mac)m(hine)e(pro)s(duces)i +(in)m(teractions.)42 b(These)34 b(ev)m(en)m(ts)g(are)e(observ)m(ed)h(b) +m(y)g(detectors,)g(and)f(the)0 4458 y(in)m(teresting)26 +b(ones)i(are)f(written)f(to)h(tap)s(e)f(b)m(y)i(the)f(data)f +(acquisition)f(system.)43 b(Afterw)m(ards)28 b(the)f(ev)m(en)m(ts)0 +4566 y(ma)m(y)32 b(b)s(e)h(reconstructed,)i(i.e.)43 b(the)34 +b(electronics)e(signals)g(\(from)f(wire)i(c)m(ham)m(b)s(ers,)g +(calorimeters,)e(and)0 4675 y(all)h(the)j(rest\))h(ma)m(y)e(b)s(e)h +(translated)f(in)m(to)g(a)g(deduced)i(setup)g(of)e(c)m(harged)h(trac)m +(ks)h(or)e(neutral)g(energy)0 4783 y(dep)s(ositions,)39 +b(in)e(the)i(b)s(est)g(of)f(w)m(orlds)g(with)g(full)e(kno)m(wledge)j +(of)f(momen)m(ta)f(and)h(particle)f(sp)s(ecies.)0 4891 +y(Based)32 b(on)f(this)g(cleaned-up)h(information,)c(one)k(ma)m(y)f +(pro)s(ceed)h(with)f(the)g(ph)m(ysics)i(analysis.)42 +b(In)32 b(the)0 5000 y(Mon)m(te)39 b(Carlo)d(w)m(orld,)j(the)g(r^)-49 +b(ole)37 b(of)g(the)h(mac)m(hine,)h(namely)e(to)g(pro)s(duce)i(ev)m(en) +m(ts,)i(is)d(tak)m(en)g(b)m(y)h(the)0 5108 y(ev)m(en)m(t)30 +b(generators)e(describ)s(ed)g(in)f(this)g(rep)s(ort.)42 +b(The)29 b(b)s(eha)m(viour)e(of)h(the)g(detectors)h(|)e(ho)m(w)h +(particles)0 5216 y(pro)s(duced)38 b(b)m(y)g(the)g(ev)m(en)m(t)h +(generator)e(tra)m(v)m(erse)i(the)e(detector,)i(spiral)d(in)g(magnetic) +g(\014elds,)j(sho)m(w)m(er)0 5325 y(in)g(calorimeters,)i(or)f(sneak)h +(out)f(through)g(crac)m(ks,)k(etc.)67 b(|)40 b(is)f(sim)m(ulated)g(in)g +(programs)h(suc)m(h)h(as)0 5433 y Fm(Geant)i Fw([Bru89].)76 +b(T)-8 b(raditionally)g(,)43 b(this)h(latter)e(activit)m(y)h(is)g +(called)g(ev)m(en)m(t)i(sim)m(ulation,)f(whic)m(h)g(is)0 +5541 y(somewhat)32 b(unfortunate)h(since)f(the)h(same)f(w)m(ords)h +(could)f(equally)f(w)m(ell)h(b)s(e)g(applied)f(to)h(what,)h(here,)0 +5650 y(w)m(e)41 b(call)c(ev)m(en)m(t)42 b(generation.)63 +b(A)40 b(more)f(appropriate)f(term)h(is)g(detector)h(sim)m(ulation.)62 +b(Ideally)-8 b(,)40 b(the)1865 5953 y(2)p eop +%%Page: 3 9 +3 8 bop 0 -18 a Fw(output)38 b(of)f(this)h(sim)m(ulation)d(has)j +(exactly)g(the)g(same)g(format)e(as)i(the)g(real)f(data)h(recorded)g(b) +m(y)h(the)0 90 y(detector,)45 b(and)d(can)f(therefore)i(b)s(e)f(put)f +(through)h(the)g(same)g(ev)m(en)m(t)h(reconstruction)f(and)g(ph)m +(ysics)0 198 y(analysis)35 b(c)m(hain,)i(except)g(that)f(here)h(w)m(e)f +(kno)m(w)h(what)g(the)f(`righ)m(t)f(answ)m(er')i(should)f(b)s(e,)h(and) +f(so)g(can)0 307 y(see)e(ho)m(w)f(w)m(ell)f(w)m(e)h(are)g(doing.)146 +415 y(Since)49 b(the)h(full)d(c)m(hain)h(of)h(detector)g(sim)m(ulation) +e(and)h(ev)m(en)m(t)j(reconstruction)f(is)e(v)m(ery)i(time-)0 +523 y(consuming,)f(one)e(often)f(do)s(es)h(`quic)m(k)g(and)g(dirt)m(y') +f(studies)h(in)e(whic)m(h)i(these)h(steps)f(are)g(skipp)s(ed)0 +632 y(en)m(tirely)-8 b(,)37 b(or)e(at)h(least)g(replaced)g(b)m(y)h(v)m +(ery)h(simpli\014ed)c(pro)s(cedures)j(whic)m(h)g(only)e(tak)m(e)i(in)m +(to)f(accoun)m(t)0 740 y(the)d(geometric)f(acceptance)i(of)f(the)g +(detector)g(and)g(other)g(trivial)e(e\013ects.)45 b(One)33 +b(ma)m(y)g(then)g(use)h(the)0 848 y(output)f(of)f(the)h(ev)m(en)m(t)h +(generator)f(directly)f(in)g(the)h(ph)m(ysics)h(studies.)146 +957 y(There)42 b(are)f(still)e(man)m(y)i(holes)g(in)f(our)h +(understanding)g(of)f(the)i(full)d(ev)m(en)m(t)k(structure,)h(despite)0 +1065 y(an)f(impressiv)m(e)g(amoun)m(t)g(of)g(w)m(ork)h(and)f(detailed)g +(calculations.)73 b(T)-8 b(o)44 b(put)f(together)h(a)e(generator)0 +1173 y(therefore)c(in)m(v)m(olv)m(ed)g(making)e(a)h(c)m(hoice)h(on)f +(what)h(to)f(include,)h(and)f(ho)m(w)h(to)f(include)g(it.)57 +b(A)m(t)38 b(b)s(est,)0 1282 y(the)f(spread)g(b)s(et)m(w)m(een)h +(generators)f(can)f(b)s(e)h(used)g(to)f(giv)m(e)g(some)g(impression)f +(of)h(the)g(uncertain)m(ties)0 1390 y(in)m(v)m(olv)m(ed.)42 +b(A)28 b(m)m(ultitude)f(of)g(appro)m(ximations)f(will)g(b)s(e)i +(discussed)h(in)f(the)g(main)e(part)i(of)f(this)h(rep)s(ort,)0 +1498 y(but)36 b(already)f(here)h(is)f(should)h(b)s(e)f(noted)h(that)g +(man)m(y)f(ma)5 b(jor)34 b(appro)m(ximations)g(are)i(related)f(to)g +(the)0 1607 y(almost)h(complete)g(neglect)i(of)f(the)h(second)g(p)s +(oin)m(t)f(ab)s(o)m(v)m(e,)i(i.e.)58 b(of)37 b(the)h(non-`trivial')c +(higher-order)0 1715 y(e\013ects.)43 b(It)28 b(can)g(therefore)g(only)f +(b)s(e)g(hop)s(ed)h(that)g(the)g(`trivial')d(higher)i(order)g(parts)h +(giv)m(e)g(the)g(bulk)f(of)0 1823 y(the)f(exp)s(erimen)m(tal)f(b)s(eha) +m(viour.)41 b(By)27 b(and)e(large,)i(this)e(seems)i(to)e(b)s(e)h(the)g +(case;)j(for)d(e)3083 1787 y Fl(+)3142 1823 y Fw(e)3185 +1787 y Fk(\000)3270 1823 y Fw(annihilation)0 1932 y(it)32 +b(ev)m(en)i(turns)f(out)f(to)h(b)s(e)f(a)h(v)m(ery)h(go)s(o)s(d)d +(appro)m(ximation.)146 2040 y(The)h(necessit)m(y)h(to)d(mak)m(e)h +(compromises)f(has)h(one)g(ma)5 b(jor)30 b(implication:)38 +b(to)31 b(write)f(a)h(go)s(o)s(d)f(ev)m(en)m(t)0 2148 +y(generator)42 b(is)g(an)h(art,)h(not)e(an)h(exact)g(science.)74 +b(It)43 b(is)f(therefore)h(essen)m(tial)f(not)g(to)g(blindly)f(trust)0 +2257 y(the)j(results)f(of)g(an)m(y)h(single)e(ev)m(en)m(t)j(generator,) +i(but)c(alw)m(a)m(ys)h(to)f(mak)m(e)g(sev)m(eral)h(cross-c)m(hec)m(ks.) +79 b(In)0 2365 y(addition,)23 b(with)f(computer)g(programs)g(of)g(tens) +h(of)f(thousands)i(of)e(lines,)i(the)f(question)g(is)f(not)g(whether)0 +2473 y(bugs)37 b(exist,)h(but)f(ho)m(w)g(man)m(y)g(there)g(are,)g(and)g +(ho)m(w)g(critical)d(their)i(p)s(ositions.)55 b(F)-8 +b(urther,)37 b(an)g(ev)m(en)m(t)0 2582 y(generator)f(cannot)f(b)s(e)h +(though)m(t)g(of)f(as)h(all-p)s(o)m(w)m(erful,)e(or)i(able)f(to)g(giv)m +(e)h(in)m(telligen)m(t)d(answ)m(ers)k(to)f(ill-)0 2690 +y(p)s(osed)g(questions;)h(sound)f(judgemen)m(t)g(and)f(some)g +(understanding)h(of)f(a)g(generator)g(are)g(necessary)0 +2798 y(prerequisites)28 b(for)e(successful)i(use.)43 +b(In)27 b(spite)g(of)f(these)i(limitations,)c(the)j(ev)m(en)m(t)h +(generator)f(approac)m(h)0 2907 y(is)48 b(the)h(most)g(p)s(o)m(w)m +(erful)f(to)s(ol)f(at)i(our)g(disp)s(osal)e(if)h(w)m(e)h(wish)g(to)g +(gain)e(a)i(detailed)f(and)g(realistic)0 3015 y(understanding)33 +b(of)f(ph)m(ysics)i(at)e(curren)m(t)i(or)e(future)h(high-energy)g +(colliders.)0 3263 y Fo(The)38 b(Origins)e(of)h(the)h(JETSET)e(and)j +(PYTHIA)c(Programs)0 3436 y Fw(Ov)m(er)42 b(the)f(y)m(ears,)k(man)m(y)c +(ev)m(en)m(t)i(generators)e(ha)m(v)m(e)i(app)s(eared.)69 +b(Surv)m(eys)43 b(of)e(generators)g(for)g(e)3618 3399 +y Fl(+)3677 3436 y Fw(e)3720 3399 y Fk(\000)0 3544 y +Fw(ph)m(ysics)33 b(in)e(general)h(and)f(LEP)i(in)e(particular)f(ma)m(y) +h(b)s(e)h(found)g(in)f([Kle89)o(,)h(Sj\177)-49 b(o89)o(],)32 +b(for)g(high-energy)0 3652 y(hadron{hadron)c(\(pp\))g(ph)m(ysics)h(in)e +([Ans90)q(,)h(Sj\177)-49 b(o92)o(,)28 b(Kno93)o(],)h(and)f(for)f(ep)i +(ph)m(ysics)g(in)e([HER92].)42 b(W)-8 b(e)0 3761 y(refer)37 +b(the)h(reader)g(to)e(those)i(for)f(additional)d(details)i(and)h +(references.)59 b(In)38 b(this)e(particular)g(rep)s(ort,)0 +3869 y(the)d(t)m(w)m(o)g(closely)f(connected)j(programs)c +Fm(Jetset)h Fw(and)h Fm(Pythia)f Fw(will)e(b)s(e)j(describ)s(ed.)146 +3977 y Fm(Jetset)k Fw(has)i(its)e(ro)s(ots)h(in)f(the)h(e\013orts)h(of) +e(the)i(Lund)f(group)g(to)g(understand)h(the)g(hadroniza-)0 +4086 y(tion)g(pro)s(cess,)k(starting)c(in)h(the)g(late)f(sev)m(en)m +(ties)j([And83)q(].)65 b(The)41 b(so-called)e(string)g(fragmen)m +(tation)0 4194 y(mo)s(del)30 b(w)m(as)j(dev)m(elop)s(ed)f(as)g(an)g +(explicit)e(and)i(detailed)f(framew)m(ork,)h(within)f(whic)m(h)h(the)g +(long-range)0 4302 y(con\014nemen)m(t)i(forces)h(are)e(allo)m(w)m(ed)g +(to)g(distribute)f(the)i(energies)g(and)g(\015a)m(v)m(ours)g(of)f(a)h +(parton)f(con\014g-)0 4411 y(uration)k(among)h(a)g(collection)f(of)h +(primary)f(hadrons,)k(whic)m(h)e(subsequen)m(tly)j(ma)m(y)c(deca)m(y)i +(further.)0 4519 y(This)31 b(mo)s(del,)f(kno)m(wn)j(as)e(the)h(Lund)g +(string)f(mo)s(del,)e(or)i(`Lund')h(for)f(short,)h(con)m(tained)f(a)g +(n)m(um)m(b)s(er)h(of)0 4627 y(sp)s(eci\014c)39 b(predictions,)h(whic)m +(h)f(w)m(ere)h(con\014rmed)f(b)m(y)h(data)e(from)f(PETRA)j(and)f(PEP)-8 +b(,)40 b(whence)g(the)0 4736 y(mo)s(del)e(gained)h(a)g(widespread)h +(acceptance.)66 b(The)41 b(Lund)f(string)f(mo)s(del)e(is)i(still)f(to)s +(da)m(y)h(the)h(most)0 4844 y(elab)s(orate)34 b(and)h(widely)f(used)i +(fragmen)m(tation)d(mo)s(del)h(at)g(our)h(disp)s(osal.)49 +b(It)35 b(remains)f(at)h(the)g(heart)0 4952 y(of)d(the)h +Fm(Jetset/Pythia)f Fw(programs.)146 5061 y(In)22 b(order)g(to)g +(predict)g(the)g(shap)s(e)g(of)g(ev)m(en)m(ts)i(at)d(PETRA/PEP)-8 +b(,)24 b(and)e(to)f(study)i(the)f(fragmen)m(tation)0 +5169 y(pro)s(cess)48 b(in)f(detail,)i(it)d(w)m(as)i(necessary)i(to)d +(start)g(out)g(from)f(the)i(partonic)e(con\014gurations)h(that)0 +5277 y(w)m(ere)31 b(to)f(fragmen)m(t.)42 b(The)31 b(generation)f(of)g +(complete)f(e)2022 5241 y Fl(+)2081 5277 y Fw(e)2124 +5241 y Fk(\000)2214 5277 y Fw(hadronic)g(ev)m(en)m(ts)k(w)m(as)e +(therefore)g(added,)0 5386 y(originally)19 b(based)k(on)f(simple)f +Fj(\015)28 b Fw(exc)m(hange)c(and)e(\014rst-order)h(QCD)f(matrix)f +(elemen)m(ts,)k(later)c(extended)0 5494 y(to)28 b(full)e +Fj(\015)337 5458 y Fk(\003)376 5494 y Fj(=)p Fw(Z)485 +5458 y Fl(0)552 5494 y Fw(exc)m(hange)k(with)e(\014rst-order)g +(initial-state)d(QED)i(radiation)f(and)j(second-order)g(QCD)0 +5602 y(matrix)f(elemen)m(ts.)43 b(A)30 b(n)m(um)m(b)s(er)g(of)f(utilit) +m(y)f(routines)i(w)m(ere)h(also)d(pro)m(vided)j(early)e(on,)h(for)f(ev) +m(erything)1865 5953 y(3)p eop +%%Page: 4 10 +4 9 bop 0 -18 a Fw(from)31 b(ev)m(en)m(t)k(listing)30 +b(to)i(jet)h(\014nding.)146 90 y(By)41 b(the)g(mid-eigh)m(ties)d(it)h +(w)m(as)i(clear)f(that)g(the)g(matrix-elemen)m(t)e(approac)m(h)j(had)f +(reac)m(hed)i(the)0 198 y(limit)21 b(of)j(its)g(usefulness,)j(in)d(the) +h(sense)h(that)e(it)f(could)h(not)h(fully)e(describ)s(e)i(the)f(m)m +(ultijet)f(top)s(ologies)f(of)0 307 y(the)30 b(data.)42 +b(\(Later)29 b(on,)h(the)g(use)h(of)e(optimized)e(p)s(erturbation)i +(theory)h(w)m(as)g(to)g(lead)e(to)h(a)h(resurgence)0 +415 y(of)35 b(the)h(matrix-elemen)m(t)d(approac)m(h,)k(but)f(only)f +(for)g(sp)s(eci\014c)h(applications.\))50 b(Therefore)37 +b(a)e(parton-)0 523 y(sho)m(w)m(er)j(description)e(w)m(as)h(dev)m(elop) +s(ed)g([Ben87a])f(as)g(an)g(alternativ)m(e)g(to)g(the)g(matrix-elemen)m +(t)e(one.)0 632 y(The)42 b(com)m(bination)c(of)i(parton)g(sho)m(w)m +(ers)j(and)e(string)f(fragmen)m(tation)e(has)j(b)s(een)h(v)m(ery)g +(successful,)0 740 y(and)33 b(forms)e(the)i(main)e(approac)m(h)i(to)g +(the)g(description)f(of)g(hadronic)g(Z)2649 704 y Fl(0)2720 +740 y Fw(ev)m(en)m(ts.)146 848 y(In)e(recen)m(t)g(y)m(ears,)h +Fm(Jetset)d Fw(has)h(b)s(een)h(a)f(fairly)e(stable)h(pro)s(duct,)i(co)m +(v)m(ering)g(the)f(four)g(main)e(areas)0 957 y(of)32 +b(fragmen)m(tation,)f(\014nal-state)h(parton)g(sho)m(w)m(ers,)j(e)1966 +920 y Fl(+)2025 957 y Fw(e)2068 920 y Fk(\000)2160 957 +y Fw(ev)m(en)m(t)g(generation)c(and)i(general)f(utilities.)146 +1065 y(The)e(successes)h(of)d(string)g(fragmen)m(tation)e(in)i(e)1909 +1029 y Fl(+)1968 1065 y Fw(e)2011 1029 y Fk(\000)2099 +1065 y Fw(made)f(it)h(in)m(teresting)g(to)g(try)g(to)g(extend)i(this)0 +1173 y(framew)m(ork)43 b(to)g(other)g(pro)s(cesses,)k(and)d(explore)f +(p)s(ossible)f(ph)m(ysics)i(consequences.)79 b(Therefore)44 +b(a)0 1282 y(n)m(um)m(b)s(er)31 b(of)g(other)g(programs)f(w)m(ere)j +(written,)e(whic)m(h)g(com)m(bined)g(a)g(pro)s(cess-sp)s(eci\014c)h +(description)f(of)0 1390 y(the)e(hard)f(in)m(teractions)f(with)h(the)h +(general)e(fragmen)m(tation)f(framew)m(ork)j(of)34 b +Fm(Jetset)p Fw(.)41 b(The)29 b Fm(Pythia)0 1498 y Fw(program)34 +b(ev)m(olv)m(ed)i(out)f(of)g(early)f(studies)i(on)f(\014xed-target)g +(proton{proton)g(pro)s(cesses,)j(addressed)0 1607 y(mainly)30 +b(at)j(issues)g(related)f(to)h(string)f(dra)m(wing.)146 +1715 y(With)37 b(time,)h(the)f(in)m(terest)h(shifted)g(to)m(w)m(ards)g +(higher)f(energies,)j(\014rst)e(to)f(the)h(SPS)g(p)p +3352 1662 55 4 v(p)g(collider,)0 1823 y(and)j(later)f(to)h(SSC)h(and)g +(LHC,)f(in)g(the)g(con)m(text)i(of)d(a)h(n)m(um)m(b)s(er)h(of)f(w)m +(orkshops)i(in)d(the)i(USA)f(and)0 1932 y(Europ)s(e.)g(P)m(arton)25 +b(sho)m(w)m(ers)h(w)m(ere)g(added,)h(for)c(\014nal-state)h(radiation)e +(b)m(y)j(making)e(use)i(of)f(the)h Fm(Jetset)0 2040 y +Fw(routine,)32 b(for)h(initial-state)c(one)k(b)m(y)h(the)f(dev)m +(elopmen)m(t)h(of)e(the)i(concept)g(of)e(`bac)m(kw)m(ards)j(ev)m +(olution',)0 2148 y(sp)s(eci\014cally)g(for)g Fm(Pythia)g +Fw([Sj\177)-49 b(o85].)52 b(Also)35 b(a)g(framew)m(ork)h(w)m(as)h(dev)m +(elop)s(ed)f(for)f(minim)m(um-bias)c(and)0 2257 y(underlying)h(ev)m(en) +m(ts)j([Sj\177)-49 b(o87a)o(].)146 2365 y(Another)30 +b(main)d(c)m(hange)j(w)m(as)g(the)g(in)m(tro)s(duction)e(of)h(an)g +(increasing)f(n)m(um)m(b)s(er)h(of)g(hard)g(pro)s(cesses,)0 +2473 y(within)38 b(the)h(Standard)f(Mo)s(del)h(and)f(b)s(ey)m(ond.)63 +b(A)39 b(sp)s(ecial)e(emphasis)i(w)m(as)h(put)e(on)h(the)g(searc)m(h)h +(for)0 2582 y(the)e(Standard)g(Mo)s(del)f(Higgs,)i(in)e(di\013eren)m(t) +h(mass)f(ranges)i(and)e(in)g(di\013eren)m(t)h(c)m(hannels,)i(with)e +(due)0 2690 y(resp)s(ect)c(to)e(p)s(ossible)g(bac)m(kground)i(pro)s +(cesses.)146 2798 y(The)26 b(bulk)f(of)f(the)i(mac)m(hinery)f(dev)m +(elop)s(ed)g(for)g(hard)g(pro)s(cesses)i(actually)c(dep)s(ended)k +(little)22 b(on)j(the)0 2907 y(c)m(hoice)36 b(of)f(initial)d(state,)37 +b(as)e(long)g(as)h(the)g(appropriate)e(parton)i(distributions)e(w)m +(ere)j(there)f(for)f(the)0 3015 y(incoming)23 b(partons)j(and)f +(particles.)40 b(It)26 b(therefore)g(made)f(sense)i(to)e(extend)h(the)g +(program)e(from)g(b)s(eing)0 3123 y(only)30 b(a)h(pp)g(generator)f(to)h +(w)m(orking)f(also)g(for)g(e)1730 3087 y Fl(+)1789 3123 +y Fw(e)1832 3087 y Fk(\000)1922 3123 y Fw(and)h(ep.)44 +b(This)30 b(pro)s(cess)i(w)m(as)g(only)e(completed)g(in)0 +3232 y(1991,)24 b(again)e(spurred)j(on)e(b)m(y)h(ph)m(ysics)h(w)m +(orkshop)g(activities.)39 b(Curren)m(tly)25 b Fm(Pythia)f +Fw(should)f(therefore)0 3340 y(w)m(ork)33 b(equally)f(w)m(ell)g(for)g +(a)h(selection)f(of)g(di\013eren)m(t)h(p)s(ossible)f(incoming)e(b)s +(eam)i(particles.)146 3448 y(The)48 b(tasks)g(of)e(including)f(new)j +(pro)s(cesses,)53 b(and)47 b(of)f(impro)m(ving)f(the)i(sim)m(ulation)e +(of)h(already)0 3557 y(presen)m(t)34 b(ones,)g(are)e(nev)m(er-ending.) +45 b(W)-8 b(ork)32 b(therefore)i(con)m(tin)m(ues)f(apace.)146 +3665 y(While)38 b Fm(Jetset)g Fw(still)f(is)i(formally)d(indep)s(enden) +m(t)41 b(of)k Fm(Pythia)p Fw(,)c(their)e(ties)g(ha)m(v)m(e)h(gro)m(wn)g +(m)m(uc)m(h)0 3774 y(stronger)33 b(o)m(v)m(er)h(the)f(y)m(ears,)g(and)g +(the)g(b)s(order-line)e(b)s(et)m(w)m(een)k(the)e(t)m(w)m(o)g(programs)f +(has)h(b)s(ecome)f(more)0 3882 y(and)40 b(more)g(arti\014cial.)63 +b(It)40 b(is)g(no)g(coincidence)h(that)f(the)g(t)m(w)m(o)h(are)f +(presen)m(ted)j(together)d(here;)45 b(this)0 3990 y(w)m(a)m(y)35 +b(a)e(lot)g(of)g(rep)s(etition)f(of)h(common)g(material)d(can)k(b)s(e)g +(a)m(v)m(oided.)47 b(The)35 b(price)e(to)h(b)s(e)g(paid)f(is)g(that)0 +4099 y(some)f(di\013erences)i(in)e(philosoph)m(y)g(will)f(ha)m(v)m(e)i +(to)g(b)s(e)f(discussed.)0 4346 y Fo(Ab)s(out)37 b(this)g(Rep)s(ort)0 +4519 y Fw(As)28 b(w)m(e)h(see,)h Fm(Jetset)c Fw(and)i +Fm(Pythia)g Fw(started)g(out)f(as)h(v)m(ery)h(ideologically)24 +b(motiv)-5 b(ated)26 b(programs,)h(de-)0 4627 y(v)m(elop)s(ed)g(to)g +(study)h(sp)s(eci\014c)f(ph)m(ysics)h(questions)g(in)e(enough)h(detail) +f(that)g(explicit)g(predictions)g(could)0 4736 y(b)s(e)38 +b(made)g(for)f(exp)s(erimen)m(tal)g(quan)m(tities.)60 +b(As)39 b(it)e(w)m(as)i(recognized)f(that)g(exp)s(erimen)m(tal)f(imp)s +(erfec-)0 4844 y(tions)26 b(could)g(distort)g(the)h(basic)f +(predictions,)i(the)f(programs)e(w)m(ere)j(made)e(a)m(v)-5 +b(ailable)24 b(for)j(general)e(use)0 4952 y(b)m(y)39 +b(exp)s(erimen)m(talists.)61 b(It)38 b(th)m(us)i(b)s(ecame)e(feasible)g +(to)g(explore)h(the)g(mo)s(dels)e(in)h(more)g(detail)e(than)0 +5061 y(w)m(ould)e(otherwise)h(ha)m(v)m(e)h(b)s(een)f(p)s(ossible.)48 +b(As)34 b(time)f(w)m(en)m(t)j(b)m(y)-8 b(,)36 b(the)e(emphasis)g(came)g +(to)g(shift)g(some-)0 5169 y(what,)28 b(a)m(w)m(a)m(y)g(from)e(the)h +(original)d(strong)j(coupling)e(to)i(a)f(sp)s(eci\014c)i(fragmen)m +(tation)c(mo)s(del,)j(to)m(w)m(ards)h(a)0 5277 y(description)c(of)g +(high-energy)g(m)m(ultiparticle)d(pro)s(duction)j(pro)s(cesses)i(in)e +(general.)40 b(Corresp)s(ondingly)-8 b(,)0 5386 y(the)32 +b(use)g(expanded)i(from)c(b)s(eing)h(one)h(of)f(just)h(comparing)d +(data)j(with)f(sp)s(eci\014c)h(mo)s(del)e(predictions,)0 +5494 y(to)43 b(one)g(of)g(extensiv)m(e)i(use)g(for)d(the)i +(understanding)g(of)f(detector)h(p)s(erformance,)h(for)e(the)h(deriv)-5 +b(a-)0 5602 y(tion)35 b(of)h(acceptance)i(correction)d(factors,)j(for)d +(the)i(prediction)e(of)h(ph)m(ysics)h(at)f(future)h(high-energy)1865 +5953 y(4)p eop +%%Page: 5 11 +5 10 bop 0 -18 a Fw(accelerators,)33 b(and)f(for)g(the)h(design)g(of)f +(related)g(detectors.)146 90 y(While)h(the)i(ideology)d(ma)m(y)i(b)s(e) +g(less)h(apparen)m(t,)g(it)e(is)g(still)f(there,)j(ho)m(w)m(ev)m(er.)50 +b(This)35 b(is)e(not)h(some-)0 198 y(thing)h(unique)h(to)g(the)g +(programs)f(discussed)i(here,)g(but)g(inheren)m(t)f(in)f(an)m(y)h(ev)m +(en)m(t)i(generator,)e(or)g(at)0 307 y(least)d(an)m(y)h(generator)f +(that)g(attempts)g(to)f(go)h(b)s(ey)m(ond)h(the)g(simple)e(parton)h +(lev)m(el)f(sk)m(eleton)i(descrip-)0 415 y(tion)c(of)h(a)g(hard)h(pro)s +(cess.)44 b(Do)31 b(not)g(accept)i(the)e(m)m(yth)h(that)f(ev)m +(erything)i(a)m(v)-5 b(ailable)29 b(in)h(Mon)m(te)i(Carlo)0 +523 y(form)45 b(represen)m(ts)j(ages-old)c(common)h(kno)m(wledge,)50 +b(tested)d(and)f(true.)83 b(Ideology)46 b(is)f(presen)m(t)j(b)m(y)0 +632 y(commissions)33 b(or)i(omissions)f(in)g(an)m(y)i(n)m(um)m(b)s(er)f +(of)g(details.)50 b(Programs)34 b(lik)m(e)g Fm(Pythia)h +Fw(and)h Fm(Jetset)0 740 y Fw(represen)m(t)d(a)d(ma)5 +b(jor)30 b(amoun)m(t)g(of)g(original)d(ph)m(ysics)33 +b(researc)m(h,)f(often)f(on)g(complicated)e(topics)h(where)0 +848 y(no)e(simple)f(answ)m(ers)j(are)e(a)m(v)-5 b(ailable.)39 +b(As)29 b(a)f(\(p)s(oten)m(tial\))e(program)h(user)i(y)m(ou)g(m)m(ust)f +(b)s(e)g(a)m(w)m(are)h(of)f(this,)0 957 y(so)39 b(that)g(y)m(ou)h(can)g +(form)e(y)m(our)i(o)m(wn)f(opinion,)h(not)f(just)g(ab)s(out)g(what)g +(to)g(trust)h(and)f(what)h(not)f(to)0 1065 y(trust,)k(but)e(also)f(ho)m +(w)h(m)m(uc)m(h)g(to)g(trust)g(a)f(giv)m(en)h(prediction,)h(i.e.)67 +b(ho)m(w)41 b(uncertain)g(it)e(is)h(lik)m(ely)g(to)0 +1173 y(b)s(e.)j Fm(Jetset)30 b Fw(and)g Fm(Pythia)h Fw(are)g +(particularly)d(w)m(ell)i(endo)m(w)m(ed)i(in)e(this)g(resp)s(ect,)j +(since)e(a)f(n)m(um)m(b)s(er)h(of)0 1282 y(publications)i(exist)i +(where)i(most)d(of)g(the)i(relev)-5 b(an)m(t)35 b(ph)m(ysics)h(is)f +(explained)f(in)g(considerable)h(detail.)0 1390 y(In)f(fact,)f(the)h +(problem)e(ma)m(y)h(rather)g(b)s(e)g(the)h(opp)s(osite,)f(to)g(\014nd)h +(the)f(relev)-5 b(an)m(t)34 b(information)c(among)0 1498 +y(all)37 b(the)j(p)s(ossible)f(places.)64 b(One)39 b(main)f(ob)5 +b(jectiv)m(e)40 b(of)f(the)h(curren)m(t)h(rep)s(ort)e(is)g(therefore)h +(to)f(collect)0 1607 y(m)m(uc)m(h)h(of)g(this)f(information)e(in)i(one) +h(single)f(place.)65 b(Not)40 b(all)e(the)i(material)d(found)j(in)f(sp) +s(ecialized)0 1715 y(pap)s(ers)k(is)g(repro)s(duced,)j(b)m(y)e(a)e +(wide)h(margin,)g(but)g(at)g(least)f(enough)h(should)g(b)s(e)f(found)h +(here)h(to)0 1823 y(understand)34 b(the)f(general)f(picture)h(and)f(to) +g(kno)m(w)i(where)g(to)e(go)g(for)g(details.)146 1932 +y(The)41 b(curren)m(t)g(rep)s(ort)f(is)f(therefore)i(in)m(tended)f(to)g +(replace)f(the)i(previous)f(round)g(of)g(published)0 +2040 y(ph)m(ysics)e(descriptions)f(and)g(program)e(man)m(uals)h +([Sj\177)-49 b(o86,)36 b(Sj\177)-49 b(o87,)37 b(Ben87].)56 +b(The)38 b(formal)c(new)k(stan-)0 2148 y(dard)k(reference)h(is)e +([Sj\177)-49 b(o94],)44 b(whic)m(h)e(is)g(a)f(fairly)f(brief)h(summary) +g(of)h(this)f(rep)s(ort)h(|)f(for)g(ob)m(vious)0 2257 +y(reasons)27 b(the)f(full)e(description)h(is)h(to)s(o)f(long)f(to)i(b)s +(e)g(published)g(in)f(its)g(en)m(tiret)m(y)-8 b(.)42 +b(F)-8 b(urther)26 b(sp)s(eci\014cation)0 2365 y(could)35 +b(include)g(a)g(statemen)m(t)h(of)f(the)h(t)m(yp)s(e)h(`W)-8 +b(e)36 b(use)g Fm(Pythia)g Fw(v)m(ersion)g(X.x)g(and)f +Fm(Jetset)g Fw(v)m(ersion)0 2473 y(Y.y'.)67 b(\(If)41 +b(y)m(ou)g(are)f(a)g(L)893 2451 y Fl(A)931 2473 y Fw(T)985 +2495 y(E)1039 2473 y(X)h(fan,)h(y)m(ou)f(ma)m(y)f(w)m(an)m(t)h(to)f +(kno)m(w)h(that)f(the)h(program)e(names)h(in)g(this)0 +2582 y(rep)s(ort)29 b(ha)m(v)m(e)i(b)s(een)g(generated)f(b)m(y)g(the)g +(commands)f Fq(\\textsc{Jetset})34 b Fw(and)c Fq(\\textsc{Pythia})p +Fw(.\))0 2690 y(Kindly)h(do)i(not)f(refer)h(to)g Fm(Jetset/Pythia)e +Fw(as)i(`unpublished',)h(`priv)-5 b(ate)32 b(comm)m(unication')e(or)i +(`in)0 2798 y(preparation':)43 b(suc)m(h)34 b(phrases)g(are)e(only)g +(creating)g(unnecessary)k(confusion.)146 2907 y(In)47 +b(addition,)i(remem)m(b)s(er)d(that)g(man)m(y)h(of)f(the)h(individual)d +(ph)m(ysics)k(comp)s(onen)m(ts)f(are)g(do)s(cu-)0 3015 +y(men)m(ted)40 b(in)e(separate)i(publications.)62 b(If)40 +b(some)f(of)g(these)h(con)m(tain)f(ideas)g(that)g(are)g(useful)h(to)f +(y)m(ou,)0 3123 y(there)31 b(is)f(ev)m(ery)j(reason)e(to)f(cite)g +(them.)43 b(A)31 b(reasonable)f(selection)g(w)m(ould)h(v)-5 +b(ary)31 b(as)g(a)f(function)g(of)g(the)0 3232 y(ph)m(ysics)j(y)m(ou)g +(are)e(studying.)44 b(The)32 b(criterion)f(for)g(whic)m(h)h(to)f(pic)m +(k)h(should)g(b)s(e)g(simple:)41 b(imagine)30 b(that)0 +3340 y(a)c(Mon)m(te)h(Carlo)f(implemen)m(tation)d(had)k(not)f(b)s(een)h +(a)m(v)-5 b(ailable.)39 b(W)-8 b(ould)26 b(y)m(ou)h(then)g(ha)m(v)m(e)h +(cited)e(a)g(giv)m(en)0 3448 y(pap)s(er)35 b(on)f(the)i(grounds)f(of)f +(its)g(ph)m(ysics)i(con)m(ten)m(ts)h(alone?)49 b(If)35 +b(so,)g(do)g(not)f(punish)h(the)g(extra)h(e\013ort)0 +3557 y(of)i(turning)f(these)j(ideas)e(in)m(to)f(publicly)g(a)m(v)-5 +b(ailable)36 b(soft)m(w)m(are.)61 b(\(Mon)m(te)39 b(Carlo)e(man)m(uals) +g(are)i(go)s(o)s(d)0 3665 y(for)f(nothing)f(in)g(the)h(ey)m(es)i(of)e +(man)m(y)g(theorists,)i(so)e(often)g(only)g(the)g(acceptance)i(of)d +(`mainstream')0 3774 y(publications)c(coun)m(ts.\))49 +b(Here)35 b(follo)m(ws)e(a)h(list)e(of)i(some)g(main)f(areas)h(where)i +(the)e Fm(Pythia/Jetset)0 3882 y Fw(programs)e(con)m(tain)g(original)d +(researc)m(h:)145 3995 y Fn(\017)49 b Fw(The)33 b(string)f(fragmen)m +(tation)f(mo)s(del)g([And83].)145 4113 y Fn(\017)49 b +Fw(The)33 b(string)f(e\013ect)i([And80].)145 4231 y Fn(\017)49 +b Fw(Bary)m(on)33 b(pro)s(duction)f(\(diquark/p)s(op)s(corn\))g +([And82,)h(And85].)145 4348 y Fn(\017)49 b Fw(F)-8 b(ragmen)m(tation)30 +b(of)i(m)m(ultiparton)f(systems)j([Sj\177)-49 b(o84)o(].)145 +4466 y Fn(\017)49 b Fw(F)-8 b(ragmen)m(tation)30 b(e\013ects)k(on)f +Fj(\013)1392 4481 y Fl(s)1456 4466 y Fw(determinations)e([Sj\177)-49 +b(o84a].)145 4584 y Fn(\017)49 b Fw(Initial)30 b(state)j(parton)f(sho)m +(w)m(ers)j([Sj\177)-49 b(o85)o(].)145 4702 y Fn(\017)49 +b Fw(Final)30 b(state)j(parton)g(sho)m(w)m(ers)h([Ben87a].)145 +4819 y Fn(\017)49 b Fw(Photon)33 b(radiation)d(from)h(quarks)j([Sj\177) +-49 b(o92c])145 4937 y Fn(\017)49 b Fw(Deep)33 b(inelastic)e +(scattering)h([And81a,)h(Ben88].)145 5055 y Fn(\017)49 +b Fw(Photopro)s(duction)32 b([Sc)m(h93a])h(and)g Fj(\015)5 +b(\015)37 b Fw(ph)m(ysics)d([Sc)m(h94a)q(].)145 5173 +y Fn(\017)49 b Fw(P)m(arton)33 b(distributions)e(of)h(the)h(photon)f +([Sc)m(h95)q(].)145 5291 y Fn(\017)49 b Fw(Colour)32 +b(\015o)m(w)h(in)f(hard)g(scatterings)h([Ben84].)145 +5408 y Fn(\017)49 b Fw(Elastic)32 b(and)g(di\013ractiv)m(e)g(cross)i +(sections)f([Sc)m(h94)q(].)145 5526 y Fn(\017)49 b Fw(Minijets)32 +b(\(m)m(ultiple)e(parton{parton)i(in)m(teractions\))g([Sj\177)-49 +b(o87a)o(].)145 5644 y Fn(\017)49 b Fw(Rapidit)m(y)31 +b(gaps)i([Dok92)o(].)1865 5953 y(5)p eop +%%Page: 6 12 +6 11 bop 145 -18 a Fn(\017)49 b Fw(Jet)33 b(clustering)f(in)g +Fj(k)1018 -3 y Fk(?)1109 -18 y Fw([Sj\177)-49 b(o83)o(].)146 +95 y(In)39 b(addition)e(to)h(a)g(ph)m(ysics)i(surv)m(ey)-8 +b(,)42 b(the)d(curren)m(t)h(rep)s(ort)e(also)f(con)m(tains)i(a)f +(complete)g(man)m(ual)0 203 y(for)g(the)h(t)m(w)m(o)g(programs.)60 +b(Suc)m(h)39 b(man)m(uals)f(ha)m(v)m(e)h(alw)m(a)m(ys)g(b)s(een)h(up)s +(dated)e(and)h(distributed)f(join)m(tly)0 311 y(with)30 +b(the)g(programs.)42 b(T)-8 b(o)30 b(a)g(\014rst)h(appro)m(ximation,)d +(w)m(e)k(therefore)e(do)g(not)g(ha)m(v)m(e)i(m)m(uc)m(h)f(new)g(to)f +(o\013er)0 420 y(here.)43 b(Ho)m(w)m(ev)m(er,)32 b(an)d(attempt)f(has)i +(b)s(een)f(made)g(to)f(group)h(the)g(material)d(more)j(logically)c +(according)0 528 y(to)30 b(ph)m(ysics)i(topics)d(than)i(in)e(previous)i +(distributions,)e(to)h(tie)f(it)h(closer)g(to)g(the)g(ph)m(ysics)i +(description,)0 636 y(and)h(to)f(impro)m(v)m(e)g(the)h(la)m(y)m(out)g +(and)f(therefore)h(the)g(readabilit)m(y)-8 b(.)42 b(An)m(y)34 +b(feedbac)m(k)g(is)e(w)m(elcome.)146 745 y(A)39 b(w)m(ord)g(of)e(w)m +(arning)h(ma)m(y)h(b)s(e)f(in)g(place.)60 b(The)39 b(program)e +(description)h(is)g(fairly)e(length)m(y)-8 b(,)40 b(and)0 +853 y(certainly)22 b(could)h(not)g(b)s(e)h(absorb)s(ed)f(in)g(one)g +(sitting.)39 b(This)23 b(is)g(not)g(ev)m(en)i(necessary)-8 +b(,)27 b(since)d(all)d(switc)m(hes)0 961 y(and)j(parameters)g(are)g +(pro)m(vided)g(with)g(sensible)g(default)f(v)-5 b(alues,)26 +b(based)f(on)f(our)f(b)s(est)i(understanding)0 1070 y(\(of)31 +b(the)g(ph)m(ysics,)i(and)f(of)e(what)i(y)m(ou)g(exp)s(ect)g(to)f(happ) +s(en)h(if)e(y)m(ou)i(do)f(not)g(sp)s(ecify)h(an)m(y)g(options\).)42 +b(As)0 1178 y(a)35 b(new)i(user,)h(y)m(ou)e(can)g(therefore)g +(disregard)g(all)d(the)k(fancy)f(options,)g(and)g(just)g(run)g(the)g +(program)0 1286 y(with)31 b(a)h(minim)m(um)c(ado.)43 +b(Later)32 b(on,)g(as)f(y)m(ou)i(gain)d(exp)s(erience,)k(the)e(options) +f(that)g(seem)h(useful)g(can)0 1395 y(b)s(e)d(tried)f(out.)42 +b(No)28 b(single)f(user)j(is)e(ev)m(er)i(lik)m(ely)d(to)h(\014nd)h +(need)g(for)f(more)g(than)h(a)f(fraction)f(of)h(the)h(total)0 +1503 y(n)m(um)m(b)s(er)h(of)f(p)s(ossibilities)e(a)m(v)-5 +b(ailable,)27 b(y)m(et)k(man)m(y)f(of)f(them)g(ha)m(v)m(e)i(b)s(een)f +(added)h(to)e(meet)g(sp)s(eci\014c)i(user)0 1611 y(requests.)146 +1720 y(In)k(some)e(instances,)i(not)f(ev)m(en)i(this)d(rep)s(ort)h +(will)e(pro)m(vide)i(y)m(ou)g(with)g(all)e(the)i(information)d(y)m(ou)0 +1828 y(desire.)41 b(Y)-8 b(ou)24 b(ma)m(y)g(wish)g(to)g(\014nd)h(out)f +(ab)s(out)f(recen)m(t)j(v)m(ersions)f(of)f(the)g(program,)h(kno)m(w)g +(ab)s(out)f(related)0 1936 y(soft)m(w)m(are,)32 b(pic)m(k)e(up)g(a)g +(few)g(sample)f(main)g(programs)g(to)g(get)h(going,)f(or)h(get)g(hold)f +(of)g(related)h(ph)m(ysics)0 2045 y(pap)s(ers.)44 b(Some)32 +b(suc)m(h)i(material)c(can)j(b)s(e)g(found)f(if)g(y)m(ou)h(link)e(to)i +(m)m(y)f(W)-8 b(orld)32 b(Wide)g(W)-8 b(eb)33 b(homepage:)0 +2153 y Fq(http://thep.lu.se/tf2/sta)q(ff/t)q(orb)q(jorn)q(/Wel)q(come)q +(.ht)q(ml)0 2261 y Fw(and)g(study)g(the)g(con)m(ten)m(ts)i(there.)0 +2509 y Fo(Disclaimer)0 2682 y Fw(A)m(t)j(all)d(times)h(it)h(should)g(b) +s(e)g(remem)m(b)s(ered)h(that)f(this)g(is)g(not)g(a)g(commercial)e(pro) +s(duct,)k(dev)m(elop)s(ed)0 2790 y(and)k(supp)s(orted)h(b)m(y)g +(professionals.)75 b(Instead)44 b(it)e(is)h(a)f(`Univ)m(ersit)m(y)i(W) +-8 b(orld')42 b(pro)s(duct,)47 b(dev)m(elop)s(ed)0 2899 +y(b)m(y)37 b(a)e(v)m(ery)j(few)e(ph)m(ysicists)h(\(mainly)c(the)k +(curren)m(t)g(author\))e(originally)d(for)j(their)h(o)m(wn)g(needs,)i +(and)0 3007 y(supplied)28 b(to)h(other)g(ph)m(ysicists)g(on)g(an)f +(`as-is')g(basis,)i(free)f(of)f(c)m(harge.)43 b(No)29 +b(guaran)m(tees)g(are)g(therefore)0 3115 y(giv)m(en)37 +b(for)f(the)h(prop)s(er)f(functioning)f(of)h(the)h(programs,)g(nor)f +(for)g(the)h(v)-5 b(alidit)m(y)35 b(of)h(ph)m(ysics)i(results.)0 +3224 y(In)g(the)g(end,)i(it)c(is)h(alw)m(a)m(ys)h(up)g(to)g(y)m(ou)g +(to)f(decide)h(for)f(y)m(ourself)h(whether)h(to)e(trust)h(a)g(giv)m(en) +g(result)0 3332 y(or)d(not.)51 b(Usually)34 b(this)h(requires)h +(comparison)e(either)h(with)g(analytical)d(results)k(or)f(with)f +(results)i(of)0 3440 y(other)h(programs,)f(or)g(with)g(b)s(oth.)55 +b(Ev)m(en)38 b(this)f(is)f(not)g(necessarily)h(fo)s(olpro)s(of:)48 +b(for)36 b(instance,)i(if)e(an)0 3549 y(error)31 b(is)f(made)h(in)f +(the)h(calculation)e(of)h(a)h(matrix)f(elemen)m(t)g(for)h(a)f(giv)m(en) +i(pro)s(cess,)g(this)f(error)g(will)d(b)s(e)0 3657 y(propagated)33 +b(b)s(oth)g(in)m(to)f(the)h(analytical)e(results)i(based)h(on)f(the)h +(original)c(calculation)g(and)j(in)m(to)g(all)0 3765 +y(the)e(ev)m(en)m(t)h(generators)f(whic)m(h)g(subsequen)m(tly)j(mak)m +(e)c(use)i(of)e(the)h(published)g(form)m(ulae.)41 b(In)31 +b(the)g(end,)0 3874 y(there)i(is)f(no)h(substitute)g(for)f(a)h(sound)g +(ph)m(ysics)h(judgemen)m(t.)146 3982 y(This)39 b(do)s(es)h(not)f(mean)f +(that)h(y)m(ou)g(are)g(all)e(on)i(y)m(our)h(o)m(wn,)h(with)e(a)f +(program)g(nob)s(o)s(dy)h(feels)g(re-)0 4090 y(sp)s(onsible)j(for.)71 +b(A)m(ttempts)43 b(are)f(made)g(to)g(c)m(hec)m(k)i(pro)s(cesses)g(as)f +(carefully)e(as)h(p)s(ossible,)i(to)e(write)0 4199 y(programs)36 +b(that)h(do)h(not)f(in)m(vite)f(unnecessary)k(errors,)f(and)f(to)f(pro) +m(vide)g(a)g(detailed)f(and)i(accurate)0 4307 y(do)s(cumen)m(tation.)75 +b(All)41 b(of)i(this)g(while)f(main)m(taining)e(the)k(full)e(p)s(o)m(w) +m(er)i(and)f(\015exibilit)m(y)-8 b(,)45 b(of)d(course,)0 +4415 y(since)32 b(the)h(ph)m(ysics)g(m)m(ust)f(alw)m(a)m(ys)h(tak)m(e)f +(precedence)j(in)c(an)m(y)i(con\015ict)e(of)h(in)m(terests.)44 +b(If)32 b(nev)m(ertheless)0 4524 y(an)m(y)40 b(errors)g(or)f +(unclarities)f(are)i(found,)h(please)f(do)f(comm)m(unicate)g(them)g(to) +g(me,)i(e.g.)64 b(on)40 b(phone)0 4632 y(+46)30 b({)g(46)f({)h(222)g +(48)g(16)f(or)h(e-mail)e(torb)5 b(jorn@thep.lu.se.)43 +b(Ev)m(ery)32 b(attempt)e(will)e(b)s(e)i(made)g(to)g(solv)m(e)0 +4740 y(problems)d(as)h(so)s(on)f(as)h(is)g(reasonably)f(p)s(ossible,)h +(giv)m(en)g(that)g(this)f(supp)s(ort)h(is)f(b)m(y)i(one)f(p)s(erson)g +(alone,)0 4849 y(who)33 b(also)f(has)h(other)f(resp)s(onsibilities.)0 +5096 y Fo(App)s(endix:)50 b(The)38 b(Historical)c(Pythia)0 +5269 y Fw(While)j(the)h(origin)d(and)j(connotations)f(of)g(the)h(`)p +Fm(Jetset)p Fw(')f(program)f(name)h(should)g(b)s(e)h(commonly)0 +5378 y(kno)m(wn,)c(the)f(`)p Fm(Pythia)p Fw(')g(lab)s(el)e(ma)m(y)h +(need)i(some)e(explanation.)146 5486 y(The)48 b(m)m(yth)e(tells)f(ho)m +(w)i(Ap)s(ollon,)h(the)e(Go)s(d)g(of)g(Wisdom,)i(killed)d(the)i(p)s(o)m +(w)m(erful)f(dragon-lik)m(e)0 5594 y(monster)34 b(Python,)i(close)f(to) +f(the)h(village)d(of)i(Delphi)f(in)h(Greece.)50 b(T)-8 +b(o)35 b(commemorate)d(this)i(victory)-8 b(,)1865 5953 +y(6)p eop +%%Page: 7 13 +7 12 bop 0 -18 a Fw(Ap)s(ollon)37 b(founded)i(the)h(Pythic)f(Oracle)f +(in)g(Delphi,)h(on)g(the)g(slop)s(es)g(of)f(Moun)m(t)i(P)m(arnassos.)64 +b(Here)0 90 y(men)38 b(could)f(come)g(to)h(learn)f(the)h(will)d(of)j +(the)g(Go)s(ds)f(and)h(the)g(course)h(of)e(the)h(future.)60 +b(The)38 b(oracle)0 198 y(pla)m(ys)31 b(an)g(imp)s(ortan)m(t)e(r^)-49 +b(ole)30 b(in)g(man)m(y)h(of)g(the)g(other)g(Greek)h(m)m(yths,)f(suc)m +(h)i(as)e(those)h(of)e(Heracles)h(and)0 307 y(of)h(King)g(Oedipus.)146 +415 y(Questions)25 b(w)m(ere)h(to)e(b)s(e)g(put)h(to)f(the)g(Pythia,)i +(the)f(`Priestess')h(or)e(`Prophetess')i(of)e(the)h(Oracle.)40 +b(In)0 523 y(fact,)30 b(she)h(w)m(as)g(a)e(lo)s(cal)e(w)m(oman,)j +(usually)f(a)h(y)m(oung)g(maiden,)f(of)h(no)f(particular)f(religious)g +(sc)m(ho)s(oling.)0 632 y(Seated)f(on)f(a)g(trip)s(o)s(d,)h(she)g +(inhaled)e(the)i(obno)m(xious)f(v)-5 b(ap)s(ours)27 b(that)f(seep)s(ed) +i(up)f(through)f(a)g(crevice)h(in)0 740 y(the)j(ground.)42 +b(This)29 b(brough)m(t)h(her)g(to)e(a)h(trance-lik)m(e)g(state,)h(in)f +(whic)m(h)h(she)g(w)m(ould)f(scream)g(seemingly)0 848 +y(random)i(w)m(ords)i(and)g(sounds.)44 b(It)32 b(w)m(as)h(the)g(task)g +(of)e(the)i(professional)e(priests)h(in)g(Delphi)e(to)i(record)0 +957 y(those)41 b(utterings)g(and)f(edit)h(them)f(in)m(to)g(the)h +(o\016cial)e(Oracle)h(prophecies,)j(whic)m(h)e(often)g(to)s(ok)f(the)0 +1065 y(form)26 b(of)h(p)s(o)s(ems)g(in)f(p)s(erfect)i(hexameter.)43 +b(In)27 b(fact,)i(ev)m(en)g(these)f(edited)g(replies)f(w)m(ere)h(often) +g(less)f(than)0 1173 y(easy)34 b(to)e(in)m(terpret.)44 +b(The)33 b(Pythic)g(oracle)f(acquired)h(a)f(reputation)g(for)g(am)m +(biguous)g(answ)m(ers.)146 1282 y(The)37 b(Oracle)e(existed)i(already)e +(at)h(the)g(b)s(eginning)e(of)i(the)g(historical)d(era)j(in)f(Greece,)j +(and)e(w)m(as)0 1390 y(univ)m(ersally)c(recognized)h(as)g(the)h +(foremost)e(religious)e(seat.)45 b(Individuals)32 b(and)h(cit)m(y)g +(states)g(came)g(to)0 1498 y(consult,)d(on)f(ev)m(erything)i(from)d +(cures)i(for)f(c)m(hildlessness)i(to)e(matters)g(of)f(w)m(ar.)43 +b(La)m(vish)30 b(gifts)e(allo)m(w)m(ed)0 1607 y(the)h(temple)f(area)g +(to)g(b)s(e)h(built)e(and)h(decorated.)43 b(Man)m(y)30 +b(states)f(supplied)f(their)g(o)m(wn)h(treasury)h(halls,)0 +1715 y(where)46 b(esp)s(ecially)d(b)s(eautiful)g(gifts)g(w)m(ere)j(on)e +(displa)m(y)-8 b(.)78 b(Sidesho)m(ws)46 b(included)e(the)h(Omphalos,)h +(a)0 1823 y(stone)37 b(reputedly)g(marking)e(the)i(cen)m(tre)h(of)e +(the)h(Earth,)h(and)f(the)g(Pythic)g(games,)g(second)h(only)e(to)0 +1932 y(the)d(Olympic)e(ones)i(in)f(imp)s(ortance.)146 +2040 y(Strife)i(inside)h(Greece)g(ev)m(en)m(tually)g(led)g(to)f(a)h +(decline)f(in)g(the)i(p)s(o)m(w)m(er)f(of)g(the)g(Oracle.)49 +b(A)35 b(serious)0 2148 y(blo)m(w)25 b(w)m(as)i(dealt)e(when)i(the)f +(Oracle)f(of)g(Zeus)h(Ammon)e(\(see)j(b)s(elo)m(w\))e(declared)h +(Alexander)g(the)g(Great)0 2257 y(to)39 b(b)s(e)g(the)g(son)h(of)e +(Zeus.)64 b(The)40 b(Pythic)f(Oracle)g(liv)m(ed)f(on,)j(ho)m(w)m(ev)m +(er,)i(and)c(w)m(as)h(only)f(closed)g(b)m(y)h(a)0 2365 +y(Roman)30 b(Imp)s(erial)g(decree)j(in)e(390)g Fm(ad)p +Fw(,)h(at)f(a)h(time)e(when)j(Christianit)m(y)e(w)m(as)h(ruthlessly)g +(destro)m(ying)0 2473 y(an)m(y)43 b(religious)d(opp)s(osition.)70 +b(Pythia)42 b(then)h(had)f(b)s(een)h(at)f(the)h(service)g(of)f(man)f +(and)h(Go)s(ds)g(for)g(a)0 2582 y(millenium)28 b(and)33 +b(a)f(half.)146 2690 y(The)40 b(r^)-49 b(ole)38 b(of)h(the)g(Pythic)h +(Oracle)e(replies)g(on)h(the)h(course)g(of)e(history)h(is)g(no)m(where) +h(b)s(etter)f(de-)0 2798 y(scrib)s(ed)h(than)f(in)g(`The)h(Histories')f +(b)m(y)h(Hero)s(dotus)g([Her)p Fm(bc)p Fw(],)h(the)f(classical)e(and)h +(captiv)-5 b(ating)37 b(de-)0 2907 y(scription)25 b(of)g(the)h(Ancien)m +(t)g(W)-8 b(orld)25 b(at)g(the)i(time)d(of)h(the)h(Great)g(W)-8 +b(ar)25 b(b)s(et)m(w)m(een)j(Greeks)f(and)e(P)m(ersians.)0 +3015 y(Esp)s(ecially)f(famous)g(is)g(the)h(episo)s(de)g(with)f(King)g +(Croisus)h(of)f(Lydia.)41 b(Con)m(templating)23 b(a)h(w)m(ar)h(against) +0 3123 y(the)32 b(upstart)g(P)m(ersian)g(Empire,)f(he)g(resolv)m(es)i +(to)e(ask)h(an)g(oracle)e(what)i(the)g(outcome)f(of)g(a)g(p)s(oten)m +(tial)0 3232 y(battle)36 b(w)m(ould)h(b)s(e.)56 b(Ho)m(w)m(ev)m(er,)40 +b(to)d(ha)m(v)m(e)h(some)e(guaran)m(tee)i(for)e(the)h(v)m(eracit)m(y)h +(of)e(an)m(y)i(prophecy)-8 b(,)39 b(he)0 3340 y(decides)25 +b(to)g(send)g(em)m(bassies)g(to)f(all)f(the)i(reno)m(wned)h(oracles)e +(of)g(the)h(kno)m(wn)h(W)-8 b(orld.)39 b(The)26 b(messengers)0 +3448 y(are)37 b(instructed)h(to)f(inquire)g(the)h(v)-5 +b(arious)36 b(divinities,)h(on)g(the)h(h)m(undredth)h(da)m(y)f(after)f +(their)g(depar-)0 3557 y(ture,)d(what)g(King)e(Croisus)i(is)f(doing)g +(at)g(that)g(v)m(ery)i(momen)m(t.)46 b(F)-8 b(rom)32 +b(the)i(Pythia)f(the)h(messengers)0 3665 y(bring)e(bac)m(k)h(the)g +(reply)244 3857 y Fi(I)h(know)g(the)h(numb)-5 b(er)35 +b(of)f(gr)-5 b(ains)34 b(of)h(sand)f(as)h(wel)5 b(l)34 +b(as)g(the)h(exp)-5 b(anse)34 b(of)h(the)f(se)-5 b(a,)244 +3965 y(A)n(nd)34 b(I)h(c)-5 b(ompr)g(ehend)33 b(the)i(dumb)f(and)h(he) +-5 b(ar)34 b(him)g(who)h(do)-5 b(es)34 b(not)h(sp)-5 +b(e)g(ak,)244 4073 y(Ther)g(e)34 b(c)-5 b(ame)34 b(to)h(my)g(mind)f +(the)h(smel)5 b(l)34 b(of)h(the)g(har)-5 b(d-shel)5 b(le)-5 +b(d)33 b(turtle,)244 4182 y(Boile)-5 b(d)34 b(in)g(c)-5 +b(opp)g(er)34 b(to)-5 b(gether)35 b(with)g(the)g(lamb,)244 +4290 y(With)g(c)-5 b(opp)g(er)34 b(b)-5 b(elow)34 b(and)h(c)-5 +b(opp)g(er)34 b(ab)-5 b(ove.)0 4481 y Fw(The)37 b(v)m(eracit)m(y)g(of)f +(the)g(Pythia)g(is)f(th)m(us)i(established)g(b)m(y)g(the)f(craft)m(y)h +(ruler,)f(who)g(had)h(w)m(aited)f(un)m(til)0 4590 y(the)30 +b(app)s(oin)m(ted)e(da)m(y)-8 b(,)31 b(slaugh)m(tered)f(a)e(turtle)h +(and)g(a)g(lam)m(b,)g(and)g(b)s(oiled)e(them)i(together)h(in)e(a)h +(copp)s(er)0 4698 y(cauldron)j(with)h(a)g(copp)s(er)g(lid.)43 +b(Also)32 b(the)i(Oracle)e(of)h(Zeus)g(Ammon)f(in)g(the)h(Lib)m(y)m(an) +g(desert)i(is)d(able)0 4806 y(to)g(giv)m(e)h(a)g(correct)g(reply)g +(\(lost)f(to)g(p)s(osterit)m(y\),)h(while)f(all)f(others)i(fail.)42 +b(King)32 b(Croisus)h(no)m(w)g(sends)i(a)0 4915 y(second)j(em)m(bassy)h +(to)d(Delphi,)h(inquiring)e(after)i(the)g(outcome)g(of)f(a)h(battle)f +(against)g(the)h(P)m(ersians.)0 5023 y(The)d(Pythia)e(answ)m(ers)244 +5214 y Fi(If)i(Cr)-5 b(oisus)35 b(p)-5 b(asses)34 b(over)g(the)h(Halys) +g(he)g(wil)5 b(l)34 b(dissolve)g(a)g(gr)-5 b(e)g(at)35 +b(Empir)-5 b(e.)0 5406 y Fw(T)d(aking)26 b(this)f(to)h(mean)f(he)i(w)m +(ould)f(win,)h(the)f(King)f(collects)h(his)f(arm)m(y)h(and)g(crosses)i +(the)e(b)s(order)g(riv)m(er,)0 5514 y(only)e(to)g(su\013er)h(a)f +(crushing)h(defeat)g(and)f(see)i(his)e(Kingdom)e(conquered.)43 +b(When)25 b(the)g(victorious)f(King)0 5622 y(Cyrus)29 +b(allo)m(ws)d(Croisus)h(to)g(send)i(an)e(em)m(bassy)h(to)f(upbraid)g +(the)h(Oracle,)f(the)h(Go)s(d)e(Ap)s(ollon)g(answ)m(ers)1865 +5953 y(7)p eop +%%Page: 8 14 +8 13 bop 0 -18 a Fw(through)33 b(his)g(Prophetess)i(that)f(he)f(has)h +(correctly)f(predicted)h(the)g(destruction)g(of)e(a)h(great)g(empire)0 +90 y(|)i(Croisus')i(o)m(wn)f(|)f(and)h(that)g(he)g(cannot)g(b)s(e)g +(held)g(resp)s(onsible)f(if)g(p)s(eople)g(c)m(ho)s(ose)i(to)e(in)m +(terpret)0 198 y(the)e(Oracle)f(answ)m(ers)i(to)f(their)f(o)m(wn)h +(liking.)146 307 y(The)47 b(history)f(of)f(the)h Fm(Pythia)g +Fw(program)e(is)i(neither)g(as)f(long)g(nor)h(as)g(digni\014ed)e(as)i +(that)g(of)0 415 y(its)f(ep)s(on)m(ym.)84 b(Ho)m(w)m(ev)m(er,)52 +b(some)45 b(p)s(oin)m(ts)h(of)f(con)m(tact)i(exist.)84 +b(Y)-8 b(ou)45 b(m)m(ust)h(b)s(e)h(v)m(ery)g(careful)e(when)0 +523 y(y)m(ou)c(form)m(ulate)e(the)i(questions:)60 b(an)m(y)41 +b(am)m(biguities)d(will)g(corrupt)j(the)f(reply)h(y)m(ou)g(get.)67 +b(And)41 b(y)m(ou)0 632 y(m)m(ust)34 b(b)s(e)h(ev)m(en)g(more)f +(careful)f(not)h(to)g(misin)m(terpret)f(the)i(answ)m(ers;)i(in)c +(particular)g(not)h(to)g(pic)m(k)g(the)0 740 y(in)m(terpretation)i +(that)g(suits)h(y)m(ou)g(b)s(efore)f(considering)g(the)h(alternativ)m +(es.)56 b(Finally)-8 b(,)34 b(ev)m(en)39 b(a)d(p)s(erfect)0 +848 y(Go)s(d)30 b(has)h(serv)-5 b(an)m(ts)32 b(that)f(are)g(only)f(h)m +(uman:)43 b(a)30 b(priest)h(migh)m(t)e(mishear)h(the)i(screams)f(of)f +(the)i(Pythia)0 957 y(and)c(therefore)h(pro)s(duce)g(an)f(erroneous)i +(oracle)d(reply;)j(the)f(curren)m(t)g(author)f(migh)m(t)f(un)m +(wittingly)g(let)0 1065 y(a)32 b(bug)h(free)g(in)f(the)h(program)e +Fm(Pythia)p Fw(.)1865 5953 y(8)p eop +%%Page: 9 15 +9 14 bop 0 -18 a Ft(2)161 b(Ph)l(ysics)53 b(Ov)l(erview)0 +189 y Fw(In)41 b(this)e(section)i(w)m(e)g(will)d(try)i(to)g(giv)m(e)g +(an)h(o)m(v)m(erview)g(of)f(the)h(main)d(ph)m(ysics)k(features)f(of)47 +b Fm(Jetset)0 297 y Fw(and)39 b Fm(Pythia)p Fw(,)i(and)e(also)g(to)f +(in)m(tro)s(duce)i(some)e(terminology)-8 b(.)61 b(The)40 +b(details)e(will)f(b)s(e)i(discussed)i(in)0 405 y(subsequen)m(t)36 +b(sections.)146 514 y(F)-8 b(or)34 b(the)g(description)g(of)f(a)h(t)m +(ypical)g(high-energy)f(ev)m(en)m(t,)k(an)d(ev)m(en)m(t)i(generator)e +(should)g(con)m(tain)0 622 y(a)k(sim)m(ulation)d(of)j(sev)m(eral)g(ph)m +(ysics)i(asp)s(ects.)61 b(If)38 b(w)m(e)h(try)g(to)f(follo)m(w)e(the)i +(ev)m(olution)g(of)f(an)h(ev)m(en)m(t)i(in)0 730 y(some)32 +b(sem)m(blance)h(of)f(a)h(time)e(order,)i(one)g(ma)m(y)f(arrange)g +(these)i(asp)s(ects)g(as)f(follo)m(ws:)119 843 y(1.)49 +b(Initially)31 b(t)m(w)m(o)j(b)s(eam)g(particles)f(are)h(coming)e(in)i +(to)m(w)m(ards)h(eac)m(h)g(other.)48 b(Normally)31 b(eac)m(h)k(par-)244 +952 y(ticle)41 b(is)i(c)m(haracterized)g(b)m(y)h(a)e(set)i(of)e(parton) +g(distribution)f(functions,)k(whic)m(h)f(de\014nes)g(the)244 +1060 y(partonic)32 b(substructure)i(in)e(terms)h(of)f(\015a)m(v)m(our)h +(comp)s(osition)d(and)j(energy)h(sharing.)119 1178 y(2.)49 +b(One)42 b(sho)m(w)m(er)i(initiator)38 b(parton)k(from)e(eac)m(h)j(b)s +(eam)e(starts)h(o\013)g(a)f(sequence)k(of)c(branc)m(hings,)244 +1286 y(suc)m(h)34 b(as)f(q)28 b Fn(!)f Fw(qg)q(,)33 b(whic)m(h)g(build) +f(up)h(an)f(initial-state)d(sho)m(w)m(er.)119 1404 y(3.)49 +b(One)35 b(incoming)e(parton)h(from)g(eac)m(h)h(of)g(the)g(t)m(w)m(o)g +(sho)m(w)m(ers)i(en)m(ters)g(the)e(hard)g(pro)s(cess,)h(where)244 +1512 y(then)i(a)f(n)m(um)m(b)s(er)h(of)g(outgoing)e(partons)i(are)f +(pro)s(duced,)j(usually)d(t)m(w)m(o.)59 b(It)38 b(is)f(the)h(nature)g +(of)244 1621 y(this)32 b(pro)s(cess)i(that)e(determines)h(the)g(main)e +(c)m(haracteristics)i(of)f(the)h(ev)m(en)m(t.)119 1738 +y(4.)49 b(Also)32 b(the)h(outgoing)e(partons)i(ma)m(y)f(branc)m(h,)i +(to)e(build)f(up)i(\014nal-state)f(sho)m(w)m(ers.)119 +1856 y(5.)49 b(When)42 b(a)f(sho)m(w)m(er)i(initiator)38 +b(is)i(tak)m(en)i(out)f(of)g(a)g(b)s(eam)f(particle,)i(a)f(b)s(eam)g +(remnan)m(t)g(is)f(left)244 1965 y(b)s(ehind.)i(This)31 +b(remnan)m(t)f(ma)m(y)g(ha)m(v)m(e)i(an)e(in)m(ternal)f(structure,)j +(and)e(a)g(net)h(colour)e(c)m(harge)i(that)244 2073 y(relates)h(it)g +(to)g(the)h(rest)g(of)f(the)h(\014nal)f(state.)119 2191 +y(6.)49 b(The)31 b(QCD)f(con\014nemen)m(t)h(mec)m(hanism)f(ensures)i +(that)e(the)g(outgoing)f(quarks)j(and)e(gluons)f(are)244 +2299 y(not)j(observ)-5 b(able,)33 b(but)g(instead)g(fragmen)m(t)e(to)i +(colour)e(neutral)h(hadrons.)119 2417 y(7.)49 b(Man)m(y)34 +b(of)e(the)h(pro)s(duced)g(hadrons)g(are)g(unstable)f(and)h(deca)m(y)h +(further.)146 2530 y(Con)m(v)m(en)m(tionally)-8 b(,)48 +b(only)d(quarks)i(and)e(gluons)g(are)g(coun)m(ted)i(as)e(partons,)k +(while)44 b(leptons)h(and)0 2638 y(photons)29 b(are)f(not.)42 +b(If)29 b(pushed)h Fi(ad)h(absur)-5 b(dum)28 b Fw(this)g(ma)m(y)g(lead) +g(to)g(some)h(un)m(wieldy)f(terminology)-8 b(.)40 b(W)-8 +b(e)0 2747 y(will)26 b(therefore,)k(where)f(it)f(do)s(es)g(not)h +(matter,)f(sp)s(eak)h(of)f(an)g(electron)h(or)e(a)h(photon)h(in)e(the)i +(`partonic')0 2855 y(substructure)k(of)e(an)g(electron,)g(lump)f(branc) +m(hings)i(e)c Fn(!)f Fw(e)p Fj(\015)36 b Fw(together)c(with)e(other)i +(`parton)f(sho)m(w)m(er')0 2963 y(branc)m(hings)38 b(suc)m(h)h(as)f(q)f +Fn(!)e Fw(qg)q(,)40 b(and)e(so)f(on.)59 b(With)37 b(this)g(notation,)h +(the)g(division)e(in)m(to)h(the)h(ab)s(o)m(v)m(e)0 3072 +y(sev)m(en)33 b(p)s(oin)m(ts)d(applies)f(equally)h(w)m(ell)g(to)g(an)g +(in)m(teraction)g(b)s(et)m(w)m(een)i(t)m(w)m(o)f(leptons,)g(b)s(et)m(w) +m(een)i(a)d(lepton)0 3180 y(and)j(a)f(hadron,)h(and)f(b)s(et)m(w)m(een) +j(t)m(w)m(o)e(hadrons.)146 3288 y(In)i(the)f(follo)m(wing)d +(subsections,)36 b(w)m(e)f(will)d(surv)m(ey)k(the)e(ab)s(o)m(v)m(e)h +(sev)m(en)h(asp)s(ects,)f(not)f(in)f(the)i(same)0 3397 +y(order)24 b(as)h(giv)m(en)f(here,)i(but)f(rather)f(in)f(the)i(order)f +(in)f(whic)m(h)i(they)g(app)s(ear)f(in)f(the)i(program)e(execution,)0 +3505 y(i.e.)43 b(starting)32 b(with)g(the)h(hard)f(pro)s(cess.)0 +3779 y Fp(2.1)135 b(Hard)45 b(Pro)t(cesses)h(and)e(P)l(arton)i +(Distributions)0 3952 y Fw(In)d Fm(Jetset)p Fw(,)g(only)f(t)m(w)m(o)h +(hard)f(pro)s(cesses)j(are)d(a)m(v)-5 b(ailable.)70 b(The)43 +b(\014rst)g(and)f(main)f(one)h(is)g(e)3474 3915 y Fl(+)3533 +3952 y Fw(e)3576 3915 y Fk(\000)3680 3952 y Fn(!)0 4060 +y Fj(\015)56 4024 y Fk(\003)95 4060 y Fj(=)p Fw(Z)204 +4024 y Fl(0)277 4060 y Fn(!)34 b Fw(q)p 462 4007 52 4 +v(q)q(.)54 b(Here)37 b(the)g(`)p Fn(\003)p Fw(')f(of)g +Fj(\015)1312 4024 y Fk(\003)1387 4060 y Fw(is)g(used)h(to)f(denote)h +(that)f(the)h(photon)f(m)m(ust)h(b)s(e)f(o\013)g(the)h(mass)0 +4168 y(shell.)68 b(The)42 b(distinction)e(is)g(of)h(some)g(imp)s +(ortance,)h(since)f(a)g(photon)g(on)g(the)h(mass)f(shell)f(cannot)0 +4277 y(deca)m(y)-8 b(.)69 b(Of)40 b(course)h(also)f(the)h(Z)1217 +4240 y Fl(0)1296 4277 y Fw(can)g(b)s(e)g(o\013)f(the)h(mass)f(shell,)i +(but)f(here)g(the)g(distinction)e(is)h(less)0 4385 y(relev)-5 +b(an)m(t)29 b(\(strictly)f(sp)s(eaking,)i(a)f(Z)1297 +4349 y Fl(0)1365 4385 y Fw(is)f(alw)m(a)m(ys)i(o\013)e(the)i(mass)e +(shell\).)42 b(In)29 b(the)h(follo)m(wing)c(w)m(e)k(ma)m(y)f(not)0 +4493 y(alw)m(a)m(ys)38 b(use)h(`)p Fn(\003)p Fw(')e(consisten)m(tly)-8 +b(,)39 b(but)f(the)g(rule)f(of)g(th)m(um)m(b)h(is)f(to)g(use)i(a)e(`)p +Fn(\003)p Fw(')g(only)g(when)i(a)e(pro)s(cess)i(is)0 +4602 y(not)34 b(kinematically)d(p)s(ossible)j(for)f(a)h(particle)f(of)h +(nominal)d(mass.)48 b(The)35 b(quark)g(q)g(in)e(the)i(\014nal)e(state)0 +4710 y(of)k(e)159 4674 y Fl(+)219 4710 y Fw(e)262 4674 +y Fk(\000)357 4710 y Fn(!)f Fj(\015)549 4674 y Fk(\003)588 +4710 y Fj(=)p Fw(Z)697 4674 y Fl(0)772 4710 y Fn(!)g +Fw(q)p 959 4657 V(q)j(ma)m(y)e(b)s(e)h(u,)h(d,)g(s,)g(c,)h(b)d(or)h(t;) +i(the)e(\015a)m(v)m(our)g(in)f(eac)m(h)h(ev)m(en)m(t)i(is)d(pic)m(k)m +(ed)i(at)0 4818 y(random,)31 b(according)g(to)g(the)h(relativ)m(e)f +(couplings,)g(ev)-5 b(aluated)32 b(at)f(the)h(hadronic)f(c.m.)43 +b(energy)-8 b(.)44 b(Also)0 4927 y(the)31 b(angular)f(distribution)f +(of)h(the)i(\014nal)e(q)p 1589 4874 V(q)i(pair)d(is)i(included.)42 +b(No)31 b(parton-distribution)d(functions)0 5035 y(are)33 +b(needed.)146 5143 y(The)26 b(other)e Fm(Jetset)f Fw(pro)s(cess)j(is)e +(a)g(routine)f(to)h(generate)h(ggg)g(and)f Fj(\015)5 +b Fw(gg)26 b(\014nal)d(states,)k(as)e(exp)s(ected)0 5252 +y(in)30 b(onium)g(1)458 5215 y Fk(\000\000)603 5252 y +Fw(deca)m(ys)j(suc)m(h)g(as)e(\007.)43 b(Giv)m(en)31 +b(the)h(curren)m(t)g(limits)c(on)j(the)h(top)f(mass,)g(top)s(onium)f +(will)0 5360 y(deca)m(y)j(w)m(eakly)g(m)m(uc)m(h)g(to)s(o)e(fast)h(for) +f(these)i(pro)s(cesses)h(to)e(b)s(e)g(of)g(an)m(y)g(in)m(terest,)h(so)f +(therefore)h(no)f(new)0 5468 y(applications)e(are)j(exp)s(ected.)1865 +5953 y(9)p eop +%%Page: 10 16 +10 15 bop 146 -18 a Fm(Pythia)34 b Fw(con)m(tains)f(a)g(m)m(uc)m(h)h +(ric)m(her)f(selection,)g(with)g(close)h(to)f(a)g(h)m(undred)h +(di\013eren)m(t)g(hard)f(pro-)0 90 y(cesses.)46 b(These)34 +b(ma)m(y)f(b)s(e)f(classi\014ed)h(in)f(man)m(y)g(di\013eren)m(t)h(w)m +(a)m(ys.)146 198 y(One)i(is)f(according)f(to)h(the)h(n)m(um)m(b)s(er)f +(of)g(\014nal-state)f(ob)5 b(jects:)48 b(w)m(e)35 b(sp)s(eak)g(of)f(`2) +c Fn(!)g Fw(1')k(pro)s(cesses,)0 307 y(`2)f Fn(!)h Fw(2')h(ones,)j(`2)c +Fn(!)f Fw(3')j(ones,)h(etc.)55 b(This)36 b(asp)s(ect)h(is)e(v)m(ery)j +(relev)-5 b(an)m(t)36 b(from)f(a)g(programming)e(p)s(oin)m(t)0 +415 y(of)h(view:)47 b(the)35 b(more)e(particles)h(in)f(the)i(\014nal)e +(state,)i(the)g(more)f(complicated)e(the)j(phase)g(space)g(and)0 +523 y(therefore)k(the)f(whole)g(generation)g(pro)s(cedure.)61 +b(In)39 b(fact,)g Fm(Pythia)g Fw(is)e(optimized)g(for)h(2)f +Fn(!)f Fw(1)i(and)0 632 y(2)27 b Fn(!)h Fw(2)j(pro)s(cesses.)45 +b(There)32 b(is)f(curren)m(tly)h(no)g(generic)f(treatmen)m(t)g(of)g +(pro)s(cesses)i(with)e(three)h(or)f(more)0 740 y(particles)40 +b(in)g(the)i(\014nal)e(state,)k(but)d(rather)g(a)g(few)g(di\013eren)m +(t)h(mac)m(hineries,)g(eac)m(h)g(tailored)d(to)i(the)0 +848 y(p)s(ole)33 b(structure)j(of)e(a)g(sp)s(eci\014c)g(class)h(of)f +(graphs.)48 b(This)35 b(ma)m(y)f(b)s(e)g(seen)i(as)e(a)g(ma)5 +b(jor)33 b(limitation,)d(and)0 957 y(indeed)c(is)f(so)h(at)f(times.)41 +b(Ho)m(w)m(ev)m(er,)29 b(often)d(one)g(can)g(come)f(quite)h(far)f(with) +g(only)h(one)g(or)f(t)m(w)m(o)h(particles)0 1065 y(in)40 +b(the)g(\014nal)g(state,)j(since)d(sho)m(w)m(ers)j(will)38 +b(add)i(the)h(required)g(extra)g(activit)m(y)-8 b(.)66 +b(The)41 b(classi\014cation)0 1173 y(ma)m(y)d(also)f(b)s(e)i +(misleading)d(at)h(times,)i(since)g(an)f Fj(s)p Fw(-c)m(hannel)g +(resonance)i(is)e(considered)h(as)g(a)f(single)0 1282 +y(particle,)43 b(ev)m(en)g(if)e(it)g(is)g(assumed)i(alw)m(a)m(ys)f(to)g +(deca)m(y)h(in)m(to)e(t)m(w)m(o)h(\014nal-state)f(particles.)71 +b(Th)m(us)43 b(the)0 1390 y(pro)s(cess)32 b(e)381 1354 +y Fl(+)441 1390 y Fw(e)484 1354 y Fk(\000)571 1390 y +Fn(!)27 b Fw(W)799 1354 y Fl(+)859 1390 y Fw(W)960 1354 +y Fk(\000)1047 1390 y Fn(!)g Fw(q)1225 1405 y Fl(1)p +1265 1337 52 4 v 1265 1390 a Fw(q)1317 1354 y Fk(0)1317 +1415 y Fl(1)1373 1390 y Fw(q)1424 1405 y Fl(2)p 1464 +1337 V 1464 1390 a Fw(q)1515 1354 y Fk(0)1515 1415 y +Fl(2)1586 1390 y Fw(is)k(classi\014ed)g(as)g(2)d Fn(!)f +Fw(2,)k(although)f(the)i(deca)m(y)h(treatmen)m(t)0 1498 +y(of)f(the)h(W)h(pair)e(includes)g(the)h(full)e(2)c Fn(!)h +Fw(4)k(matrix)f(elemen)m(ts.)146 1607 y(Another)25 b(classi\014cation)e +(is)g(according)h(to)f(the)i(ph)m(ysics)h(scenario.)40 +b(This)24 b(will)e(b)s(e)i(the)h(main)d(theme)0 1715 +y(of)32 b(section)h(8.)43 b(The)34 b(follo)m(wing)29 +b(ma)5 b(jor)32 b(groups)h(ma)m(y)f(b)s(e)h(distinguished:)145 +1828 y Fn(\017)49 b Fw(Hard)32 b(QCD)h(pro)s(cesses,)h(e.g.)44 +b(qg)29 b Fn(!)f Fw(qg)q(.)145 1946 y Fn(\017)49 b Fw(Soft)39 +b(QCD)g(pro)s(cesses,)44 b(suc)m(h)c(as)g(di\013ractiv)m(e)f(and)h +(elastic)e(scattering,)j(and)f(minim)m(um-bias)244 2054 +y(ev)m(en)m(ts.)145 2172 y Fn(\017)49 b Fw(Hea)m(vy-\015a)m(v)m(our)34 +b(pro)s(duction,)e(e.g.)44 b(gg)29 b Fn(!)e Fw(t)p 1869 +2101 38 4 v(t.)145 2290 y Fn(\017)49 b Fw(Prompt-photon)31 +b(pro)s(duction,)h(e.g.)44 b(qg)29 b Fn(!)f Fw(q)p Fj(\015)5 +b Fw(.)145 2408 y Fn(\017)49 b Fw(Photon-induced)33 b(pro)s(cesses,)h +(e.g.)44 b Fj(\015)5 b Fw(g)29 b Fn(!)e Fw(q)p 1900 2355 +52 4 v(q)q(.)145 2525 y Fn(\017)49 b Fw(Deep)33 b(inelastic)e +(scattering,)h(e.g.)44 b(q)p Fj(`)28 b Fn(!)f Fw(q)p +Fj(`)p Fw(.)145 2643 y Fn(\017)49 b Fw(W)q Fj(=)p Fw(Z)42 +b(pro)s(duction,)h(suc)m(h)h(as)e(the)g(e)1609 2607 y +Fl(+)1669 2643 y Fw(e)1712 2607 y Fk(\000)1815 2643 y +Fn(!)h Fj(\015)2014 2607 y Fk(\003)2053 2643 y Fj(=)p +Fw(Z)2162 2607 y Fl(0)2243 2643 y Fw(already)e(found)h(in)g +Fm(Jetset)p Fw(,)h(or)e(q)p 3584 2590 V(q)k Fn(!)244 +2752 y Fw(W)345 2715 y Fl(+)404 2752 y Fw(W)505 2715 +y Fk(\000)565 2752 y Fw(.)145 2869 y Fn(\017)k Fw(Standard)32 +b(mo)s(del)e(Higgs)h(pro)s(duction,)g(where)j(the)e(Higgs)f(is)g +(reasonably)h(ligh)m(t)e(and)i(narro)m(w,)244 2978 y(and)h(can)f +(therefore)i(still)c(b)s(e)j(considered)g(as)g(a)f(resonance.)145 +3095 y Fn(\017)49 b Fw(Gauge)30 b(b)s(oson)h(scattering)g(pro)s +(cesses,)i(suc)m(h)g(as)e(WW)e Fn(!)f Fw(WW)q(,)k(when)g(the)f +(Standard)g(Mo)s(del)244 3204 y(Higgs)i(is)h(so)h(hea)m(vy)g(and)g +(broad)f(that)g(resonan)m(t)h(and)g(non-resonan)m(t)f(con)m(tributions) +g(ha)m(v)m(e)i(to)244 3312 y(b)s(e)d(considered)g(together.)145 +3430 y Fn(\017)49 b Fw(Non-standard)j(Higgs)f(particle)g(pro)s +(duction,)56 b(within)51 b(the)h(framew)m(ork)g(of)g(a)f(t)m(w)m +(o-Higgs-)244 3538 y(doublet)32 b(scenario)h(with)f(three)h(neutral)f +(and)h(t)m(w)m(o)g(c)m(harged)g(Higgs)f(states.)145 3656 +y Fn(\017)49 b Fw(Pro)s(duction)32 b(of)g(new)i(gauge)e(b)s(osons,)h +(suc)m(h)h(as)f(a)f(Z)2166 3620 y Fk(0)2189 3656 y Fw(.)145 +3774 y Fn(\017)49 b Fw(Pro)s(duction)32 b(of)g(fourth-generation)f +(fermions.)145 3892 y Fn(\017)49 b Fw(Lepto)s(quark)33 +b(pro)s(duction.)145 4009 y Fn(\017)49 b Fw(Deviations)40 +b(from)g(Standard)i(Mo)s(del)f(pro)s(cesses,)k(e.g.)71 +b(due)42 b(to)f(con)m(tact)h(in)m(teractions)f(or)g(a)244 +4118 y(strongly)c(in)m(teracting)g(gauge)g(b)s(oson)h(sector.)59 +b(These)40 b(scenarios)e(do)f(not)h(alw)m(a)m(ys)g(app)s(ear)f(as)244 +4226 y(separate)c(pro)s(cesses,)i(but)e(ma)m(y)f(just)h(b)s(e)g +(options)f(to)g(some)g(of)h(the)g(pro)s(cesses)h(ab)s(o)m(v)m(e.)0 +4339 y(This)45 b(is)g(b)m(y)h(no)f(means)g(a)g(surv)m(ey)i(of)e(all)e +(in)m(teresting)i(ph)m(ysics.)83 b(Most)45 b(notable)g(is)f(the)i +(absence)0 4448 y(of)g(sup)s(ersymmetric)g(particle)f(pro)s(duction)h +(and)g(deca)m(y)-8 b(,)52 b(but)46 b(man)m(y)h(other)f(examples)g +(could)g(b)s(e)0 4556 y(found.)55 b(Also,)36 b(within)f(the)i +(scenarios)g(studied,)g(not)f(all)f(con)m(tributing)g(graphs)h(ha)m(v)m +(e)i(alw)m(a)m(ys)f(b)s(een)0 4664 y(included,)47 b(but)d(only)g(the)h +(more)e(imp)s(ortan)m(t)f(and/or)i(more)f(in)m(teresting)h(ones.)79 +b(In)45 b(man)m(y)f(cases,)0 4773 y(v)-5 b(arious)32 +b(appro)m(ximations)f(are)h(in)m(v)m(olv)m(ed)h(in)f(the)h(matrix)e +(elemen)m(ts)i(co)s(ded.)146 4881 y(The)h(cross)f(section)g(for)f(a)g +(giv)m(en)h(pro)s(cess)h Fj(ij)g Fn(!)27 b Fj(k)36 b +Fw(is)c(giv)m(en)h(b)m(y)1018 5113 y Fj(\033)1073 5128 +y Fh(ij)t Fk(!)p Fh(k)1271 5113 y Fw(=)1375 4995 y Fg(Z)1474 +5113 y Fw(d)p Fj(x)1583 5128 y Fl(1)1640 4995 y Fg(Z)1740 +5113 y Fw(d)p Fj(x)1849 5128 y Fl(2)1905 5113 y Fj(f)1964 +5071 y Fl(1)1953 5137 y Fh(i)2004 5113 y Fw(\()p Fj(x)2097 +5128 y Fl(1)2136 5113 y Fw(\))17 b Fj(f)2250 5071 y Fl(2)2239 +5137 y Fh(j)2289 5113 y Fw(\()p Fj(x)2382 5128 y Fl(2)2422 +5113 y Fw(\))k(^)-53 b Fj(\033)2532 5128 y Fh(ij)t Fk(!)p +Fh(k)2734 5113 y Fj(:)894 b Fw(\(1\))0 5344 y(Here)31 +b(^)-54 b Fj(\033)29 b Fw(is)c(the)h(cross)g(section)f(for)g(the)h +(hard)f(partonic)g(pro)s(cess,)j(as)d(co)s(di\014ed)g(in)g(the)g +(matrix)f(elemen)m(ts)0 5453 y(for)40 b(eac)m(h)i(sp)s(eci\014c)g(pro)s +(cess.)69 b(F)-8 b(or)40 b(pro)s(cesses)j(with)d(man)m(y)h(particles)f +(in)g(the)h(\014nal)f(state)i(it)e(w)m(ould)0 5561 y(b)s(e)h(replaced)f +(b)m(y)h(an)f(in)m(tegral)f(o)m(v)m(er)j(the)e(allo)m(w)m(ed)g +(\014nal-state)f(phase)j(space.)68 b(The)41 b Fj(f)3261 +5525 y Fh(a)3250 5586 y(i)3302 5561 y Fw(\()p Fj(x)p +Fw(\))g(are)f(the)0 5669 y(parton-distribution)j(functions,)48 +b(whic)m(h)e(describ)s(e)g(the)g(probabilit)m(y)d(to)i(\014nd)h(a)f +(parton)g Fj(i)g Fw(inside)1841 5953 y(10)p eop +%%Page: 11 17 +11 16 bop 0 -18 a Fw(b)s(eam)33 b(particle)e Fj(a)p Fw(,)j(with)f +(parton)g Fj(i)g Fw(carrying)g(a)g(fraction)f Fj(x)i +Fw(of)f(the)g(total)f Fj(a)h Fw(momen)m(tum.)44 b(Actually)-8 +b(,)0 90 y(parton)27 b(distributions)e(also)i(dep)s(end)h(on)f(some)g +(momen)m(tum)e(scale)i Fj(Q)2577 54 y Fl(2)2644 90 y +Fw(that)g(c)m(haracterizes)h(the)f(hard)0 198 y(pro)s(cess.)146 +307 y(P)m(arton)37 b(distributions)e(are)h(most)g(familiar)c(for)k +(hadrons,)i(suc)m(h)g(as)e(the)h(proton.)55 b(Hadrons)36 +b(are)0 415 y(inheren)m(tly)29 b(comp)s(osite)f(ob)5 +b(jects,)31 b(made)d(up)i(of)e(quarks)i(and)g(gluons.)41 +b(Since)29 b(w)m(e)h(do)f(not)g(understand)0 523 y(QCD,)i(a)g(deriv)-5 +b(ation)29 b(from)h(\014rst)i(principles)e(of)h(hadron)g(parton)g +(distributions)e(do)s(es)j(not)f(y)m(et)h(exist,)0 632 +y(although)37 b(some)h(progress)h(is)f(b)s(eing)g(made)g(in)f(lattice)g +(QCD)h(studies.)61 b(It)38 b(is)g(therefore)h(necessary)0 +740 y(to)g(rely)h(on)f(parametrizations,)g(where)i(exp)s(erimen)m(tal)d +(data)i(are)f(used)i(in)e(conjunction)g(with)g(the)0 +848 y(ev)m(olution)29 b(equations)g(for)g(the)h Fj(Q)1241 +812 y Fl(2)1310 848 y Fw(dep)s(endence,)j(to)c(pin)g(do)m(wn)h(the)g +(parton)f(distributions.)41 b(Sev)m(eral)0 957 y(di\013eren)m(t)32 +b(groups)g(ha)m(v)m(e)h(therefore)g(pro)s(duced)g(their)e(o)m(wn)h +(\014ts,)h(based)g(on)f(sligh)m(tly)e(di\013eren)m(t)i(sets)h(of)0 +1065 y(data,)f(and)h(with)f(some)h(v)-5 b(ariation)30 +b(in)i(the)h(theoretical)e(assumptions.)146 1173 y(Also)22 +b(for)f(fundamen)m(tal)g(particles,)j(suc)m(h)f(as)f(the)h(electron,)h +(is)d(it)g(con)m(v)m(enien)m(t)j(to)e(in)m(tro)s(duce)g(parton)0 +1282 y(distributions.)40 b(The)29 b(function)e Fj(f)1238 +1245 y Fl(e)1227 1306 y(e)1273 1282 y Fw(\()p Fj(x)p +Fw(\))h(th)m(us)g(parametrizes)f(the)h(probabilit)m(y)e(that)h(the)h +(electron)g(that)0 1390 y(tak)m(es)38 b(part)f(in)f(the)h(hard)g(pro)s +(cess)h(retains)e(a)h(fraction)e Fj(x)j Fw(of)e(the)h(original)d +(energy)-8 b(,)39 b(the)e(rest)g(b)s(eing)0 1498 y(radiated)25 +b(\(in)m(to)h(photons\))g(in)g(the)g(initial)d(state.)42 +b(Of)25 b(course,)k(suc)m(h)f(radiation)c(could)h(equally)h(w)m(ell)f +(b)s(e)0 1607 y(made)33 b(part)g(of)g(the)h(hard)g(in)m(teraction,)f +(but)g(the)h(parton-distribution)d(approac)m(h)j(usually)f(is)g(m)m(uc) +m(h)0 1715 y(more)40 b(con)m(v)m(enien)m(t.)68 b(If)41 +b(need)g(b)s(e,)i(a)d(description)g(with)g(fundamen)m(tal)g(electrons)g +(is)g(reco)m(v)m(ered)j(for)0 1823 y(the)35 b(c)m(hoice)g +Fj(f)521 1787 y Fl(e)510 1848 y(e)556 1823 y Fw(\()p +Fj(x;)17 b(Q)770 1787 y Fl(2)810 1823 y Fw(\))31 b(=)g +Fj(\016)t Fw(\()p Fj(x)23 b Fn(\000)h Fw(1\).)49 b(Note)35 +b(that,)g(con)m(trary)g(to)f(the)h(proton)f(case,)i(electron)f(parton)0 +1932 y(distributions)h(are)h(calculable)e(from)h(\014rst)h(principles,) +g(and)g(reduce)i(to)d(the)i Fj(\016)j Fw(function)36 +b(ab)s(o)m(v)m(e)i(for)0 2040 y Fj(Q)77 2004 y Fl(2)144 +2040 y Fn(!)28 b Fw(0.)146 2148 y(The)g(electron)f(ma)m(y)g(also)f(con) +m(tain)h(photons,)i(and)e(the)g(photon)h(ma)m(y)e(in)h(its)f(turn)i +(con)m(tain)e(quarks)0 2257 y(and)40 b(gluons.)65 b(The)41 +b(in)m(ternal)d(structure)j(of)f(the)g(photon)g(is)f(a)h(bit)f(of)g(a)h +(problem,)g(since)h(the)f(pho-)0 2365 y(ton)45 b(con)m(tains)h(a)f(p)s +(oin)m(t-lik)m(e)e(part,)48 b(whic)m(h)e(is)f(p)s(erturbativ)m(ely)g +(calculable,)i(and)f(a)f(v)m(ector-meson)0 2473 y(dominance)39 +b(part,)i(whic)m(h)f(is)f(not.)65 b(Normally)-8 b(,)39 +b(the)h(photon)g(parton)f(distributions)f(are)i(therefore)0 +2582 y(parametrized,)30 b(just)i(as)f(the)g(hadron)g(ones.)43 +b(Since)31 b(the)h(electron)e(ultimately)e(con)m(tains)j(quarks)h(and)0 +2690 y(gluons,)48 b(hard)d(QCD)g(pro)s(cesses)i(lik)m(e)d(qg)50 +b Fn(!)f Fw(qg)d(therefore)g(not)f(only)f(app)s(ear)h(in)g(pp)g +(collisions,)0 2798 y(but)39 b(also)e(in)h(ep)g(ones)h(\(`resolv)m(ed)h +(photopro)s(duction'\))d(and)i(in)e(e)2478 2762 y Fl(+)2538 +2798 y Fw(e)2581 2762 y Fk(\000)2678 2798 y Fw(ones)i(\(`doubly)g +(resolv)m(ed)g(2)p Fj(\015)0 2907 y Fw(ev)m(en)m(ts'\).)59 +b(The)38 b(parton)f(distribution)e(function)h(approac)m(h)i(here)g(mak) +m(es)f(it)f(m)m(uc)m(h)i(easier)f(to)f(reuse)0 3015 y(one)d(and)g(the)g +(same)f(hard)h(pro)s(cess)g(in)f(di\013eren)m(t)h(con)m(texts.)146 +3123 y(There)i(is)d(also)g(another)h(kind)g(of)g(p)s(ossible)f +(generalization.)42 b(The)34 b(t)m(w)m(o)g(pro)s(cesses)h(q)p +3301 3071 52 4 v(q)29 b Fn(!)f Fj(\015)3565 3087 y Fk(\003)3605 +3123 y Fj(=)p Fw(Z)3714 3087 y Fl(0)3752 3123 y Fw(,)0 +3232 y(studied)e(in)e(hadron)i(colliders,)f(and)g(e)1391 +3196 y Fl(+)1451 3232 y Fw(e)1494 3196 y Fk(\000)1581 +3232 y Fn(!)i Fj(\015)1764 3196 y Fk(\003)1804 3232 y +Fj(=)p Fw(Z)1913 3196 y Fl(0)1951 3232 y Fw(,)g(studied)f(in)f(e)2490 +3196 y Fl(+)2549 3232 y Fw(e)2592 3196 y Fk(\000)2677 +3232 y Fw(colliders,)g(are)g(really)f(sp)s(ecial)0 3351 +y(cases)39 b(of)f(a)g(common)f(pro)s(cess,)k(f)p 1261 +3272 37 4 v 7 w(f)i Fn(!)37 b Fj(\015)1527 3315 y Fk(\003)1566 +3351 y Fj(=)p Fw(Z)1675 3315 y Fl(0)1714 3351 y Fw(,)j(where)f(f)45 +b(denotes)39 b(a)f(fundamen)m(tal)f(fermion,)h(i.e.)60 +b(a)0 3459 y(quark,)42 b(lepton)d(or)g(neutrino.)64 b(The)40 +b(whole)g(structure)g(is)f(therefore)h(only)f(co)s(ded)h(once,)i(and)e +(then)0 3567 y(sligh)m(tly)32 b(di\013eren)m(t)i(couplings)f(and)h +(colour)f(prefactors)i(are)e(used,)j(dep)s(ending)e(on)g(the)g(initial) +c(state)0 3676 y(considered.)76 b(Usually)43 b(the)g(in)m(teresting)g +(cross)h(section)g(is)f(a)f(sum)i(o)m(v)m(er)g(sev)m(eral)g(di\013eren) +m(t)f(initial)0 3784 y(states,)33 b(e.g.)43 b(u)p 547 +3731 55 4 v(u)28 b Fn(!)g Fj(\015)813 3748 y Fk(\003)852 +3784 y Fj(=)p Fw(Z)961 3748 y Fl(0)1031 3784 y Fw(and)k(d)p +1274 3705 V(d)c Fn(!)f Fj(\015)1539 3748 y Fk(\003)1579 +3784 y Fj(=)p Fw(Z)1688 3748 y Fl(0)1758 3784 y Fw(in)k(a)g(hadron)h +(collider.)41 b(This)32 b(kind)f(of)g(summation)f(is)0 +3893 y(alw)m(a)m(ys)j(implicitly)28 b(done,)34 b(ev)m(en)g(when)f(not)g +(explicitly)e(men)m(tioned)h(in)g(the)h(text.)0 4166 +y Fp(2.2)135 b(Initial-)47 b(and)d(Final-State)i(Radiation)0 +4339 y Fw(In)27 b(ev)m(ery)i(pro)s(cess)g(that)e(con)m(tains)g +(coloured)g(and/or)f(c)m(harged)i(ob)5 b(jects)29 b(in)d(the)h(initial) +d(or)j(\014nal)f(state,)0 4447 y(gluon)e(and/or)g(photon)g(radiation)e +(ma)m(y)j(giv)m(e)f(large)g(corrections)g(to)g(the)h(o)m(v)m(erall)f +(top)s(ology)f(of)h(ev)m(en)m(ts.)0 4556 y(Starting)32 +b(from)g(a)g(basic)h(2)c Fn(!)f Fw(2)k(pro)s(cess,)j(this)e(kind)g(of)f +(corrections)h(will)e(generate)j(2)28 b Fn(!)g Fw(3,)33 +b(2)c Fn(!)f Fw(4,)0 4664 y(and)38 b(so)g(on,)h(\014nal-state)d(top)s +(ologies.)57 b(As)38 b(the)g(a)m(v)-5 b(ailable)36 b(energies)i(are)f +(increased,)j(hard)e(emission)0 4772 y(of)29 b(this)h(kind)g(is)f +(increasingly)f(imp)s(ortan)m(t,)h(relativ)m(e)g(to)h(fragmen)m +(tation,)e(in)h(determining)f(the)j(ev)m(en)m(t)0 4881 +y(structure.)146 4989 y(Tw)m(o)i(traditional)28 b(approac)m(hes)33 +b(exist)f(to)f(the)h(mo)s(delling)c(of)j(p)s(erturbativ)m(e)h +(corrections.)43 b(One)32 b(is)0 5098 y(the)k(matrix-elemen)m(t)d +(metho)s(d,)i(in)f(whic)m(h)i(F)-8 b(eynman)35 b(diagrams)f(are)h +(calculated,)g(order)g(b)m(y)h(order.)0 5206 y(In)47 +b(principle,)i(this)d(is)g(the)h(correct)h(approac)m(h,)i(whic)m(h)e +(tak)m(es)f(in)m(to)f(accoun)m(t)i(exact)f(kinematics,)0 +5314 y(and)42 b(the)h(full)e(in)m(terference)i(and)f(helicit)m(y)f +(structure.)74 b(The)44 b(only)d(problem)h(is)f(that)h(calculations)0 +5423 y(b)s(ecome)35 b(increasingly)f(di\016cult)g(in)g(higher)g +(orders,)i(in)f(particular)e(for)h(the)h(lo)s(op)f(graphs.)51 +b(Only)34 b(in)0 5531 y(exceptional)41 b(cases)i(ha)m(v)m(e)g +(therefore)f(more)e(than)i(one)g(lo)s(op)e(b)s(een)i(calculated)e(in)h +(full,)h(and)f(often)0 5639 y(w)m(e)c(do)e(not)h(ha)m(v)m(e)h(an)m(y)f +(lo)s(op)f(corrections)g(at)h(all)d(at)j(our)f(disp)s(osal.)52 +b(On)36 b(the)g(other)g(hand,)g(w)m(e)h(ha)m(v)m(e)1841 +5953 y(11)p eop +%%Page: 12 18 +12 17 bop 0 -18 a Fw(indirect)41 b(but)h(strong)h(evidence)g(that,)h +(in)d(fact,)k(the)d(emission)f(of)g(m)m(ultiple)f(soft)i(gluons)f(pla)m +(ys)i(a)0 90 y(signi\014can)m(t)37 b(r^)-49 b(ole)37 +b(in)g(building)f(up)i(the)g(ev)m(en)m(t)i(structure,)g(e.g.)60 +b(at)37 b(LEP)-8 b(,)39 b(and)f(this)f(sets)i(a)f(limit)c(to)0 +198 y(the)j(applicabilit)m(y)d(of)i(matrix)f(elemen)m(ts.)57 +b(Since)37 b(the)g(phase)h(space)f(a)m(v)-5 b(ailable)35 +b(for)h(gluon)g(emission)0 307 y(increases)41 b(with)f(the)h(a)m(v)-5 +b(ailable)38 b(energy)-8 b(,)44 b(the)d(matrix-elemen)m(t)d(approac)m +(h)j(b)s(ecomes)g(less)g(relev)-5 b(an)m(t)0 415 y(for)27 +b(the)h(full)d(structure)k(of)e(ev)m(en)m(ts)j(at)d(higher)g(energies.) +42 b(Ho)m(w)m(ev)m(er,)31 b(the)d(p)s(erturbativ)m(e)g(expansion)g(b)m +(y)0 523 y(itself)i(is)i(b)s(etter)g(b)s(eha)m(v)m(ed)h(at)e(higher)g +(energies,)i(o)m(wing)e(to)g(the)h(running)f(of)h Fj(\013)2909 +538 y Fl(s)2941 523 y Fw(.)43 b(As)32 b(a)f(consequence,)0 +632 y(inclusiv)m(e)h(measuremen)m(ts,)i(e.g.)43 b(of)32 +b(the)h(rate)g(of)f(w)m(ell-separated)g(jets,)h(should)f(yield)g(more)g +(reliable)0 740 y(results.)146 848 y(The)i(second)g(p)s(ossible)d +(approac)m(h)i(is)f(the)h(parton-sho)m(w)m(er)h(one.)44 +b(Here)33 b(an)f(arbitrary)g(n)m(um)m(b)s(er)h(of)0 957 +y(branc)m(hings)i(of)e(one)i(parton)f(in)m(to)f(t)m(w)m(o)i(\(or)f +(more\))g(ma)m(y)g(b)s(e)g(put)h(together,)g(to)f(yield)f(a)h +(description)0 1065 y(of)27 b(m)m(ultijet)f(ev)m(en)m(ts,)31 +b(with)d(no)f(explicit)g(upp)s(er)h(limit)c(on)k(the)g(n)m(um)m(b)s(er) +g(of)g(partons)g(in)m(v)m(olv)m(ed.)42 b(This)28 b(is)0 +1173 y(p)s(ossible)33 b(since)h(the)h(full)d(matrix-elemen)m(t)f +(expressions)36 b(are)e(not)f(used,)j(but)e(only)f(appro)m(ximations)0 +1282 y(deriv)m(ed)d(b)m(y)f(simplifying)d(the)j(kinematics,)f(and)h +(the)g(in)m(terference)h(and)f(helicit)m(y)f(structure.)43 +b(P)m(arton)0 1390 y(sho)m(w)m(ers)27 b(are)d(therefore)h(exp)s(ected)h +(to)f(giv)m(e)f(a)g(go)s(o)s(d)f(description)h(of)g(the)h(substructure) +i(of)d(jets,)j(but)d(in)0 1498 y(principle)31 b(the)i(sho)m(w)m(er)h +(approac)m(h)f(has)f(limited)e(predictiv)m(e)i(p)s(o)m(w)m(er)i(for)e +(the)g(rate)h(of)f(w)m(ell-separated)0 1607 y(jets)42 +b(\(i.e.)71 b(the)42 b(2/3/4/5-jet)e(comp)s(osition\).)69 +b(In)42 b(practice,)i(sho)m(w)m(er)g(programs)d(ma)m(y)g(b)s(e)h(patc)m +(hed)0 1715 y(up)33 b(to)f(describ)s(e)i(the)f(hard-gluon)e(emission)g +(region)h(reasonably)h(w)m(ell,)f(in)g(particular)f(for)h(the)h(e)3618 +1679 y Fl(+)3677 1715 y Fw(e)3720 1679 y Fk(\000)0 1823 +y Fw(annihilation)e(pro)s(cess.)50 b(Nev)m(ertheless,)38 +b(the)d(sho)m(w)m(er)h(description)e(is)g(not)h(optimal)c(for)j +(absolute)g Fj(\013)3747 1838 y Fl(s)0 1932 y Fw(determinations.)146 +2040 y(Th)m(us)i(the)f(t)m(w)m(o)g(approac)m(hes)h(are)e(complemen)m +(tary)g(in)f(man)m(y)i(resp)s(ects,)h(and)f(b)s(oth)f(ha)m(v)m(e)h +(found)0 2148 y(use.)44 b(Ho)m(w)m(ev)m(er,)35 b(b)s(ecause)f(of)d(its) +h(simplicit)m(y)e(and)i(\015exibilit)m(y)-8 b(,)31 b(the)h(parton-sho)m +(w)m(er)h(option)f(is)f(gener-)0 2257 y(ally)h(the)h(\014rst)h(c)m +(hoice,)g(while)e(the)h(matrix)f(elemen)m(ts)i(one)f(is)g(mainly)e +(used)j(for)f Fj(\013)3053 2272 y Fl(s)3118 2257 y Fw(determinations,)0 +2365 y(angular)26 b(distribution)f(of)h(jets,)j(triple-gluon)24 +b(v)m(ertex)29 b(studies,)g(and)e(other)g(sp)s(ecialized)f(studies.)42 +b(Ob-)0 2473 y(viously)-8 b(,)41 b(the)e(ultimate)e(goal)h(w)m(ould)h +(b)s(e)h(to)f(ha)m(v)m(e)h(an)g(approac)m(h)f(where)i(the)f(b)s(est)g +(asp)s(ects)g(of)f(the)0 2582 y(t)m(w)m(o)33 b(w)m(orlds)g(are)g +(harmoniously)d(married.)0 2829 y Fo(2.2.1)112 b(Matrix)37 +b(elemen)m(ts)0 3002 y Fw(Matrix)31 b(elemen)m(ts)h(are)f(esp)s +(ecially)g(made)g(use)h(of)f(in)g(the)h Fm(Jetset)e Fw(implemen)m +(tation)e(of)j(the)h(pro)s(cess)0 3111 y(e)43 3074 y +Fl(+)102 3111 y Fw(e)145 3074 y Fk(\000)232 3111 y Fn(!)c +Fj(\015)416 3074 y Fk(\003)455 3111 y Fj(=)p Fw(Z)564 +3074 y Fl(0)631 3111 y Fn(!)f Fw(q)p 809 3058 52 4 v(q)q(.)146 +3219 y(F)-8 b(or)34 b(initial-state)d(QED)j(radiation,)f(a)h(\014rst)h +(order)g(\(unexp)s(onen)m(tiated\))h(description)e(has)h(b)s(een)0 +3327 y(adopted.)53 b(This)36 b(means)g(that)f(ev)m(en)m(ts)j(are)e(sub) +s(divided)f(in)m(to)g(t)m(w)m(o)h(classes,)i(those)e(where)h(a)e +(photon)0 3436 y(is)e(radiated)f(ab)s(o)m(v)m(e)i(some)f(minim)m(um)c +(energy)-8 b(,)35 b(and)e(those)h(without)e(suc)m(h)j(a)e(photon.)45 +b(In)33 b(the)g(latter)0 3544 y(class,)28 b(the)g(soft)f(and)g(virtual) +f(corrections)h(ha)m(v)m(e)h(b)s(een)g(lump)s(ed)e(together)h(to)g(giv) +m(e)g(a)g(total)f(ev)m(en)m(t)j(rate)0 3652 y(that)k(is)f(correct)h(up) +g(to)g(one)g(lo)s(op.)42 b(This)33 b(approac)m(h)h(w)m(ork)m(ed)g +(\014ne)g(at)e(PETRA/PEP)j(energies,)e(but)0 3761 y(do)s(es)e(not)g(do) +g(so)g(w)m(ell)f(for)h(the)g(Z)1212 3724 y Fl(0)1282 +3761 y Fw(line)f(shap)s(e,)i(i.e.)42 b(in)30 b(regions)h(where)h(the)f +(cross)h(section)f(is)g(rapidly)0 3869 y(v)-5 b(arying)32 +b(and)h(high)e(precision)h(is)g(striv)m(ed)i(for.)146 +3977 y(F)-8 b(or)26 b(\014nal-state)g(QCD)g(radiation,)f(sev)m(eral)j +(options)e(are)g(a)m(v)-5 b(ailable.)39 b(The)27 b(default)f(is)g(the)h +(parton-)0 4086 y(sho)m(w)m(er)34 b(one)f(\(see)h(b)s(elo)m(w\),)f(but) +g(the)g(matrix-elemen)m(ts)e(options)h(are)h(also)e(frequen)m(tly)j +(used.)45 b(In)33 b(the)0 4194 y(de\014nition)38 b(of)h(3-)g(or)g +(4-jet)f(ev)m(en)m(ts,)43 b(a)c(cut)h(is)f(in)m(tro)s(duced)g(whereb)m +(y)j(it)c(is)h(required)h(that)f(an)m(y)h(t)m(w)m(o)0 +4302 y(partons)48 b(ha)m(v)m(e)h(an)f(in)m(v)-5 b(arian)m(t)46 +b(mass)i(bigger)e(than)i(some)g(fraction)e(of)i(the)g(c.m.)88 +b(energy)-8 b(.)90 b(3-jet)0 4411 y(ev)m(en)m(ts)43 b(whic)m(h)e(do)f +(not)h(ful\014ll)d(this)i(requiremen)m(t)h(are)f(lump)s(ed)g(with)g +(the)h(2-jet)f(ones.)68 b(The)41 b(\014rst-)0 4519 y(order)e +(matrix-elemen)m(t)e(option,)j(whic)m(h)g(only)e(con)m(tains)h(3-)g +(and)g(2-jet)g(ev)m(en)m(ts)i(therefore)f(in)m(v)m(olv)m(es)0 +4627 y(no)34 b(am)m(biguities.)45 b(In)34 b(second)h(order,)f(where)h +(also)e(4-jets)h(ha)m(v)m(e)h(to)f(b)s(e)g(considered,)h(a)e(main)g +(issue)h(is)0 4736 y(what)29 b(to)g(do)g(with)g(4-jet)g(ev)m(en)m(ts)i +(that)e(fail)e(the)i(cuts.)44 b(Dep)s(ending)28 b(on)h(the)h(c)m(hoice) +g(of)e(recom)m(bination)0 4844 y(sc)m(heme,)45 b(whereb)m(y)e(the)f(t)m +(w)m(o)g(nearb)m(y)g(partons)g(are)f(joined)g(in)m(to)f(one,)k +(di\013eren)m(t)d(3-jet)g(ev)m(en)m(ts)i(are)0 4952 y(pro)s(duced.)h +(Therefore)33 b(the)f(second-order)g(di\013eren)m(tial)e(3-jet)h(rate)h +(has)g(b)s(een)g(the)g(sub)5 b(ject)33 b(of)f(some)0 +5061 y(con)m(tro)m(v)m(ersy)-8 b(,)35 b(and)e Fm(Jetset)e +Fw(actually)g(con)m(tains)i(t)m(w)m(o)g(di\013eren)m(t)g(implemen)m +(tations.)146 5169 y(By)44 b(con)m(trast,)i Fm(Pythia)d +Fw(do)s(es)g(not)g(con)m(tain)g(an)m(y)g(full)e(higher-order)i(matrix)e +(elemen)m(ts,)46 b(with)0 5277 y(lo)s(op)24 b(con)m(tributions)g +(included.)41 b(There)26 b(are)f(a)g(few)h(cases)h(where)f +(higher-order)e(matrix)g(elemen)m(ts)h(are)0 5386 y(included)33 +b(at)h(the)g(Born)f(lev)m(el.)46 b(Consider)35 b(e.g.)46 +b(the)34 b(case)h(of)e(W)i(pro)s(duction)e(at)h(a)f(hadron)h(collider,) +0 5494 y(whic)m(h)45 b(is)e(con)m(tained)i(in)e(the)i(lo)m(w)m +(est-order)f(pro)s(cess)i(q)p 2121 5441 V(q)2173 5458 +y Fk(0)2243 5494 y Fn(!)i Fw(W)q(.)78 b(In)45 b(an)f(inclusiv)m(e)g +(description,)0 5602 y(additional)39 b(jets)j(recoiling)d(against)i +(the)h(W)h(ma)m(y)e(b)s(e)h(generated)h(b)m(y)f(parton)f(sho)m(w)m +(ers.)73 b Fm(Pythia)1841 5953 y Fw(12)p eop +%%Page: 13 19 +13 18 bop 0 -18 a Fw(also)34 b(con)m(tains)h(the)g(t)m(w)m(o)g +(\014rst-order)g(pro)s(cesses)i(qg)c Fn(!)e Fw(Wq)2236 +-55 y Fk(0)2295 -18 y Fw(and)k(q)p 2538 -71 52 4 v(q)2590 +-55 y Fk(0)2645 -18 y Fn(!)c Fw(Wg)q(.)50 b(The)36 b(cross)g(sections)0 +90 y(for)j(these)j(pro)s(cesses)f(are)f(div)m(ergen)m(t)h(when)g(the)g +Fj(p)1932 105 y Fk(?)2031 90 y Fn(!)e Fw(0.)66 b(In)40 +b(this)f(region)g(a)h(correct)h(treatmen)m(t)0 198 y(w)m(ould)i +(therefore)h(ha)m(v)m(e)g(to)f(tak)m(e)h(in)m(to)e(accoun)m(t)i(lo)s +(op)e(corrections,)k(whic)m(h)e(are)f(not)g(a)m(v)-5 +b(ailable)40 b(in)0 307 y Fm(Pythia)p Fw(.)68 b(Dep)s(ending)40 +b(on)g(the)h(ph)m(ysics)i(application,)d(one)h(could)f(then)h(use)g +Fm(Pythia)g Fw(in)f(one)h(of)0 415 y(t)m(w)m(o)32 b(w)m(a)m(ys.)45 +b(In)32 b(the)h(region)d(of)i(small)d Fj(p)1451 430 y +Fk(?)1510 415 y Fw(,)j(the)g(preferred)h(option)e(is)g(lo)m(w)m +(est-order)h(matrix)e(elemen)m(ts)0 523 y(com)m(bined)d(with)g(parton)h +(sho)m(w)m(ers.)44 b(F)-8 b(or)26 b(the)i(pro)s(duction)f(of)g(a)g(W)i +(at)e(large)g Fj(p)2884 538 y Fk(?)2943 523 y Fw(,)h(on)g(the)f(other)h +(hand,)0 632 y(the)g(sho)m(w)m(er)g(approac)m(h)g(is)f(to)s(o)f +(imprecise)g(to)h(giv)m(e)g(the)h(righ)m(t)e(cross)i(section;)h +(additionally)24 b(the)k(ev)m(en)m(t)0 740 y(selection)44 +b(mac)m(hinery)h(is)g(v)m(ery)h(ine\016cien)m(t.)80 b(Here)46 +b(it)e(is)g(adv)-5 b(an)m(tageous)45 b(to)g(generate)g(\014rst-order)0 +848 y(ev)m(en)m(ts,)35 b(and)e(then)g(add)g(sho)m(w)m(ers)h(only)e(to)h +(describ)s(e)g(additional)c(softer)k(radiation.)0 1096 +y Fo(2.2.2)112 b(P)m(arton)37 b(sho)m(w)m(ers)0 1269 +y Fw(The)47 b(separation)f(of)g(radiation)f(in)m(to)g(initial-)d(and)47 +b(\014nal-state)f(sho)m(w)m(ers)i(is)e(arbitrary)-8 b(,)49 +b(but)e(v)m(ery)0 1377 y(con)m(v)m(enien)m(t.)65 b(There)41 +b(are)e(also)f(situations)g(where)j(it)d(is)h(appropriate:)56 +b(for)38 b(instance,)k(the)d(pro)s(cess)0 1485 y(e)43 +1449 y Fl(+)102 1485 y Fw(e)145 1449 y Fk(\000)244 1485 +y Fn(!)g Fw(Z)443 1449 y Fl(0)521 1485 y Fn(!)f Fw(q)p +710 1433 V(q)i(only)f(con)m(tains)g(\014nal-state)g(QCD)g(radiation)e +(\(QED)i(radiation,)g(ho)m(w)m(ev)m(er,)k(is)0 1594 y(p)s(ossible)33 +b(b)s(oth)h(in)f(the)h(initial)d(and)j(\014nal)f(state\),)h(while)g(q)p +2190 1541 V(q)c Fn(!)g Fw(Z)2461 1558 y Fl(0)2530 1594 +y Fn(!)g Fw(e)2703 1558 y Fl(+)2762 1594 y Fw(e)2805 +1558 y Fk(\000)2898 1594 y Fw(only)k(con)m(tains)g(initial-)0 +1702 y(state)c(QCD)f(one.)42 b(Similarly)-8 b(,)26 b(the)k(distinction) +d(of)i(emission)f(as)h(coming)f(either)h(from)f(the)h(q)h(or)f(from)0 +1810 y(the)p 171 1758 V 36 w(q)35 b(is)g(arbitrary)-8 +b(.)51 b(In)35 b(general,)h(the)f(assignmen)m(t)g(of)g(radiation)e(to)i +(a)g(giv)m(en)g(mother)g(parton)g(is)g(a)0 1919 y(go)s(o)s(d)f(appro)m +(ximation)f(for)h(an)h(emission)f(close)h(to)g(the)g(direction)f(of)h +(motion)e(of)i(that)g(parton,)g(but)0 2027 y(not)26 b(for)f(the)i +(wide-angle)e(emission)f(in)i(b)s(et)m(w)m(een)i(t)m(w)m(o)e(jets,)i +(where)f(in)m(terference)h(terms)e(are)g(exp)s(ected)0 +2135 y(to)32 b(b)s(e)h(imp)s(ortan)m(t.)146 2244 y(In)j(b)s(oth)g +(initial-)31 b(and)36 b(\014nal-state)f(sho)m(w)m(ers,)k(the)d +(structure)h(is)e(giv)m(en)h(in)f(terms)h(of)f(branc)m(hings)0 +2352 y Fj(a)28 b Fn(!)f Fj(bc)p Fw(,)f(sp)s(eci\014cally)c(e)28 +b Fn(!)g Fw(e)p Fj(\015)5 b Fw(,)25 b(q)j Fn(!)g Fw(qg)q(,)d(q)k +Fn(!)e Fw(q)p Fj(\015)5 b Fw(,)26 b(g)i Fn(!)g Fw(gg)q(,)d(and)e(g)29 +b Fn(!)e Fw(q)p 2695 2299 V(q)q(.)41 b(Eac)m(h)24 b(of)f(these)h(pro)s +(cesses)0 2460 y(is)32 b(c)m(haracterized)h(b)m(y)h(a)e(splitting)e(k)m +(ernel)k Fj(P)1644 2475 y Fh(a)p Fk(!)p Fh(bc)1816 2460 +y Fw(\()p Fj(z)t Fw(\).)44 b(The)34 b(branc)m(hing)e(rate)h(is)f(prop)s +(ortional)e(to)i(the)0 2569 y(in)m(tegral)359 2498 y +Fg(R)430 2569 y Fj(P)493 2584 y Fh(a)p Fk(!)p Fh(bc)666 +2569 y Fw(\()p Fj(z)t Fw(\))17 b(d)p Fj(z)t Fw(.)56 b(The)37 +b Fj(z)k Fw(v)-5 b(alue)35 b(pic)m(k)m(ed)i(for)f(a)g(branc)m(hing)g +(describ)s(es)h(the)g(energy)g(sharing,)0 2677 y(with)d(daugh)m(ter)i +Fj(b)f Fw(taking)f(a)h(fraction)e Fj(z)40 b Fw(and)35 +b(daugh)m(ter)g Fj(c)g Fw(the)g(remaining)e(1)23 b Fn(\000)h +Fj(z)40 b Fw(of)34 b(the)h Fj(a)g Fw(energy)-8 b(.)0 +2785 y(Once)33 b(formed,)f(the)h(daugh)m(ters)h Fj(b)f +Fw(and)g Fj(c)f Fw(ma)m(y)g(in)g(turn)h(branc)m(h,)h(and)e(so)h(on.)146 +2894 y(Eac)m(h)f(parton)f(is)f(c)m(haracterized)i(b)m(y)f(some)g +(virtualit)m(y)e(scale)i Fj(Q)2502 2858 y Fl(2)2542 2894 +y Fw(,)g(whic)m(h)g(giv)m(es)h(an)e(appro)m(ximate)0 +3002 y(sense)i(of)f(time)e(ordering)h(to)g(the)h(cascade.)44 +b(In)31 b(the)g(initial-state)c(sho)m(w)m(er,)33 b Fj(Q)2862 +2966 y Fl(2)2932 3002 y Fw(v)-5 b(alues)31 b(are)f(gradually)0 +3111 y(increasing)35 b(as)g(the)h(hard)f(scattering)g(is)g(approac)m +(hed,)i(while)d Fj(Q)2418 3074 y Fl(2)2493 3111 y Fw(is)h(decreasing)h +(in)f(the)g(\014nal-state)0 3219 y(sho)m(w)m(ers.)53 +b(Sho)m(w)m(er)36 b(ev)m(olution)e(is)g(cut)h(o\013)g(at)f(some)h(lo)m +(w)m(er)g(scale)g Fj(Q)2516 3234 y Fl(0)2556 3219 y Fw(,)g(t)m +(ypically)f(around)h(1)f(GeV)h(for)0 3327 y(QCD)29 b(branc)m(hings.)43 +b(The)30 b(same)e(cut-o\013)h(scale)g(is)g(also)f(used)i(to)f +(regularize)e(the)j(soft)f(gluon)f(emission)0 3436 y(div)m(ergences)40 +b(in)d(the)i(splitting)c(k)m(ernels.)61 b(F)-8 b(rom)37 +b(ab)s(o)m(v)m(e,)j(a)e(maxim)m(um)e(scale)i Fj(Q)3020 +3451 y Fl(max)3194 3436 y Fw(is)f(in)m(tro)s(duced,)0 +3544 y(where)c(the)f(sho)m(w)m(ers)i(are)d(matc)m(hed)h(to)g(the)g +(hard)f(in)m(teraction)g(itself.)42 b(The)32 b(relation)e(b)s(et)m(w)m +(een)k Fj(Q)3644 3559 y Fl(max)0 3652 y Fw(and)e(the)g(kinematics)f(of) +g(the)h(hard)g(scattering)g(is)f(uncertain,)h(and)g(the)g(c)m(hoice)g +(made)g(can)g(strongly)0 3761 y(a\013ect)h(the)g(amoun)m(t)f(of)g(w)m +(ell-separated)g(jets.)146 3869 y(Despite)i(a)g(n)m(um)m(b)s(er)g(of)f +(common)g(traits,)g(the)i(initial-)29 b(and)34 b(\014nal-state)f +(radiation)f(mac)m(hineries)0 3977 y(are)g(in)e(fact)i(quite)f +(di\013eren)m(t,)h(and)g(are)f(describ)s(ed)i(separately)e(b)s(elo)m +(w.)43 b(F)-8 b(or)31 b(historical)e(reasons,)k(the)0 +4086 y(\014nal-state)f(sho)m(w)m(er)i(is)e(found)h(in)f +Fm(Jetset)f Fw(and)i(the)g(initial-state)c(one)j(in)g +Fm(Pythia)p Fw(.)146 4194 y(Final-state)f(sho)m(w)m(ers)k(are)e +(time-lik)m(e,)d(i.e.)44 b(partons)33 b(ha)m(v)m(e)h +Fj(m)2421 4158 y Fl(2)2489 4194 y Fw(=)28 b Fj(E)2671 +4158 y Fl(2)2733 4194 y Fn(\000)23 b Fo(p)2895 4158 y +Fl(2)2963 4194 y Fn(\025)28 b Fw(0.)45 b(The)33 b(ev)m(olution)0 +4302 y(v)-5 b(ariable)27 b Fj(Q)439 4266 y Fl(2)507 4302 +y Fw(of)h(the)g(cascade)i(is)e(therefore)h(in)e Fm(Jetset)h +Fw(asso)s(ciated)g(with)g(the)h Fj(m)3021 4266 y Fl(2)3089 +4302 y Fw(of)f(the)h(branc)m(hing)0 4411 y(parton,)37 +b(but)f(this)g(c)m(hoice)g(is)f(not)h(unique.)54 b(Starting)35 +b(from)g Fj(Q)2352 4374 y Fl(2)2352 4435 y(max)2488 4411 +y Fw(,)h(an)g(original)d(parton)j(is)f(ev)m(olv)m(ed)0 +4519 y(do)m(wn)m(w)m(ards)e(in)d Fj(Q)689 4483 y Fl(2)759 +4519 y Fw(un)m(til)f(a)i(branc)m(hing)f(o)s(ccurs.)44 +b(The)31 b(selected)h Fj(Q)2493 4483 y Fl(2)2563 4519 +y Fw(v)-5 b(alue)30 b(de\014nes)i(the)f(mass)g(of)f(the)0 +4627 y(branc)m(hing)40 b(parton,)h(and)f(the)g Fj(z)45 +b Fw(of)39 b(the)h(splitting)d(k)m(ernel)k(the)f(parton)g(energy)g +(division)e(b)s(et)m(w)m(een)0 4736 y(its)h(daugh)m(ters.)65 +b(These)41 b(daugh)m(ters)f(ma)m(y)f(no)m(w,)j(in)d(turn,)i(ev)m(olv)m +(e)g(do)m(wn)m(w)m(ards,)i(in)c(this)g(case)h(with)0 +4844 y(maxim)m(um)30 b(virtualit)m(y)h(already)h(de\014ned)i(b)m(y)g +(kinematics,)d(and)i(so)g(on)f(do)m(wn)i(to)e(the)h Fj(Q)3281 +4859 y Fl(0)3353 4844 y Fw(cut-o\013.)146 4952 y(In)44 +b(QCD)e(sho)m(w)m(ers,)48 b(corrections)43 b(to)g(the)g(leading-log)d +(picture,)46 b(so-called)41 b(coherence)k(e\013ects,)0 +5061 y(lead)f(to)h(an)f(ordering)g(of)h(subsequen)m(t)j(emissions)c(in) +g(terms)h(of)f(decreasing)h(angles.)80 b(This)45 b(do)s(es)0 +5169 y(not)e(follo)m(w)f(automatically)e(from)j(the)h(mass-ordering)e +(constrain)m(t,)47 b(but)c(is)h(implemen)m(ted)e(as)i(an)0 +5277 y(additional)30 b(requiremen)m(t)j(on)g(allo)m(w)m(ed)g +(emissions.)44 b(Photon)33 b(emission)f(is)g(not)h(a\013ected)h(b)m(y)g +(angular)0 5386 y(ordering.)41 b(It)29 b(is)g(also)f(p)s(ossible)g(to)h +(obtain)e(non-trivial)f(correlations)i(b)s(et)m(w)m(een)j(azim)m(uthal) +c(angles)h(in)0 5494 y(the)d(v)-5 b(arious)25 b(branc)m(hings,)i(some)d +(of)h(whic)m(h)g(are)g(implemen)m(ted)f(as)h(options.)41 +b(Finally)-8 b(,)23 b(the)j(theoretical)0 5602 y(analysis)33 +b(strongly)g(suggests)h(the)g(scale)g(c)m(hoice)f Fj(\013)1883 +5617 y Fl(s)1945 5602 y Fw(=)28 b Fj(\013)2111 5617 y +Fl(s)2143 5602 y Fw(\()p Fj(p)2230 5566 y Fl(2)2230 5627 +y Fk(?)2289 5602 y Fw(\))h(=)g Fj(\013)2523 5617 y Fl(s)2555 +5602 y Fw(\()p Fj(z)t Fw(\(1)23 b Fn(\000)h Fj(z)t Fw(\))p +Fj(m)3025 5566 y Fl(2)3065 5602 y Fw(\),)34 b(and)f(this)g(is)g(the) +1841 5953 y(13)p eop +%%Page: 14 20 +14 19 bop 0 -18 a Fw(default)32 b(in)g(the)h(program.)146 +90 y(The)27 b(\014nal-state)f(radiation)d(mac)m(hinery)j(is)g(applied)f +(in)g(the)h(c.m.)41 b(frame)26 b(of)f(the)i(hard)f(scattering.)0 +198 y(The)33 b(total)d(energy)j(and)f(momen)m(tum)f(of)h(the)g +(hard-scattering)f(subsystem)j(is)e(preserv)m(ed,)i(as)f(is)e(the)0 +307 y(direction)g(of)i(the)g(outgoing)e(partons)h(\(in)g(that)h +(frame\).)146 415 y(In)38 b(con)m(trast)h(to)e(\014nal-state)g(sho)m(w) +m(ers,)k(initial-state)34 b(ones)39 b(are)e(space-lik)m(e.)59 +b(This)38 b(means)g(that,)0 523 y(in)33 b(the)i(sequence)i(of)d(branc)m +(hings)h Fj(a)30 b Fn(!)g Fj(bc)35 b Fw(that)f(lead)g(up)g(from)f(the)i +(sho)m(w)m(er)h(initiator)31 b(to)j(the)g(hard)0 632 +y(in)m(teraction,)c(particles)h Fj(a)g Fw(and)g Fj(b)h +Fw(ha)m(v)m(e)g Fj(m)1557 595 y Fl(2)1625 632 y Fw(=)27 +b Fj(E)1806 595 y Fl(2)1865 632 y Fn(\000)20 b Fo(p)2024 +595 y Fl(2)2091 632 y Fj(<)27 b Fw(0.)43 b(The)32 b(`side)g(branc)m(h') +g(particle)e Fj(c)p Fw(,)h(whic)m(h)0 740 y(do)s(es)g(not)g +(participate)f(in)g(the)h(hard)g(scattering,)h(ma)m(y)e(b)s(e)i(on)e +(the)i(mass)f(shell,)f(or)h(ha)m(v)m(e)h(a)f(time-lik)m(e)0 +848 y(virtualit)m(y)-8 b(.)41 b(In)29 b(the)h(latter)e(case)i(a)f +(time-lik)m(e)d(sho)m(w)m(er)31 b(will)c(ev)m(olv)m(e)j(o\013)f(it,)g +(rather)g(lik)m(e)g(the)g(\014nal-state)0 957 y(radiation)36 +b(describ)s(ed)j(ab)s(o)m(v)m(e.)61 b(T)-8 b(o)38 b(\014rst)h(appro)m +(ximation,)e(the)i(ev)m(olution)e(of)h(the)g(space-lik)m(e)g(main)0 +1065 y(branc)m(h)45 b(is)f(c)m(haracterized)h(b)m(y)h(the)f(ev)m +(olution)e(v)-5 b(ariable)43 b Fj(Q)2266 1029 y Fl(2)2353 +1065 y Fw(=)48 b Fn(\000)p Fj(m)2639 1029 y Fl(2)2679 +1065 y Fw(,)g(whic)m(h)c(is)g(required)h(to)f(b)s(e)0 +1173 y(strictly)33 b(increasing)g(along)g(the)h(sho)m(w)m(er,)i(i.e.)47 +b Fj(Q)1821 1137 y Fl(2)1821 1198 y Fh(b)1890 1173 y +Fj(>)30 b(Q)2073 1137 y Fl(2)2073 1198 y Fh(a)2115 1173 +y Fw(.)47 b(Corrections)35 b(to)e(this)h(picture)g(ha)m(v)m(e)h(b)s +(een)0 1282 y(calculated,)d(but)h(are)f(basically)f(absen)m(t)j(in)e +Fm(Pythia)p Fw(.)146 1390 y(Initial-state)h(radiation)f(is)j(handled)g +(within)f(the)h(bac)m(kw)m(ards)j(ev)m(olution)c(sc)m(heme.)52 +b(In)35 b(this)g(ap-)0 1498 y(proac)m(h,)25 b(the)d(c)m(hoice)g(of)g +(the)g(hard)g(scattering)f(is)h(based)h(on)e(the)i(use)g(of)e(ev)m(olv) +m(ed)i(parton)f(distributions,)0 1607 y(whic)m(h)j(means)f(that)g(the)h +(inclusiv)m(e)e(e\013ects)j(of)e(initial-state)c(radiation)i(are)i +(already)g(included.)40 b(What)0 1715 y(remains)f(is)f(therefore)i(to)g +(construct)g(the)g(exclusiv)m(e)h(sho)m(w)m(ers.)66 b(This)39 +b(is)g(done)h(starting)f(from)f(the)0 1823 y(t)m(w)m(o)h(incoming)e +(partons)i(at)f(the)i(hard)e(in)m(teraction,)i(tracing)d(the)j(sho)m(w) +m(ers)h(`bac)m(kw)m(ards)g(in)d(time',)0 1932 y(bac)m(k)d(to)e(the)h(t) +m(w)m(o)h(sho)m(w)m(er)g(initiators.)45 b(In)34 b(other)g(w)m(ords,)h +(giv)m(en)f(a)g(parton)f Fj(b)p Fw(,)i(one)f(tries)f(to)h(\014nd)g(the) +0 2040 y(parton)39 b Fj(a)g Fw(that)f(branc)m(hed)i(in)m(to)e +Fj(b)p Fw(.)63 b(The)40 b(ev)m(olution)e(in)g(the)h(Mon)m(te)h(Carlo)e +(is)g(therefore)h(in)g(terms)0 2148 y(of)32 b(a)g(sequence)j(of)c +(decreasing)i(space-lik)m(e)f(virtualities)e Fj(Q)2185 +2112 y Fl(2)2257 2148 y Fw(and)i(increasing)f(momen)m(tum)g(fractions)0 +2257 y Fj(x)p Fw(.)59 b(Branc)m(hings)38 b(on)f(the)i(t)m(w)m(o)f +(sides)g(are)g(in)m(terlea)m(v)m(ed)g(in)f(a)g(common)f(sequence)41 +b(of)c(decreasing)h Fj(Q)3740 2221 y Fl(2)0 2365 y Fw(v)-5 +b(alues.)146 2473 y(In)24 b(the)g(ab)s(o)m(v)m(e)g(formalism,)e(there)i +(is)f(no)g(real)g(distinction)f(b)s(et)m(w)m(een)j(gluon)e(and)g +(photon)h(emission.)0 2582 y(Some)32 b(of)g(the)h(details)f(actually)f +(do)h(di\013er,)h(as)f(will)f(b)s(e)h(explained)h(in)e(the)i(full)e +(description.)146 2690 y(The)i(initial-)27 b(and)k(\014nal-state)g +(radiation)e(shifts)j(around)f(the)h(kinematics)e(of)h(the)h(original)c +(hard)0 2798 y(in)m(teraction.)42 b(In)30 b(deep)i(inelastic)c +(scattering,)j(this)f(means)g(that)g(the)h Fj(x)g Fw(and)f +Fj(Q)2935 2762 y Fl(2)3005 2798 y Fw(v)-5 b(alues)31 +b(that)f(can)g(b)s(e)0 2907 y(deriv)m(ed)c(from)d(the)i(momen)m(tum)e +(of)i(the)g(scattered)h(lepton)e(do)h(not)f(agree)h(with)f(the)i(v)-5 +b(alues)24 b(originally)0 3015 y(pic)m(k)m(ed.)44 b(In)33 +b(high-)p Fj(p)727 3030 y Fk(?)816 3015 y Fw(pro)s(cesses,)i(it)30 +b(means)i(that)g(one)g(no)g(longer)f(has)h(t)m(w)m(o)h(jets)f(with)g +(opp)s(osite)f(and)0 3123 y(comp)s(ensating)41 b Fj(p)674 +3138 y Fk(?)733 3123 y Fw(,)j(but)f(more)e(complicated)f(top)s +(ologies.)70 b(E\013ects)44 b(of)d(an)m(y)i(original)38 +b(kinematics)0 3232 y(selection)c(cuts)h(are)g(therefore)g(smeared)g +(out,)g(an)f(unfortunate)h(side-e\013ect)g(of)f(the)g(parton-sho)m(w)m +(er)0 3340 y(approac)m(h.)0 3614 y Fp(2.3)135 b(Beam)46 +b(Remnan)l(ts)0 3787 y Fw(In)26 b(a)f(hadron{hadron)h(collision,)e(the) +i(initial-state)c(radiation)h(algorithm)f(reconstructs)28 +b(one)e(sho)m(w)m(er)0 3895 y(initiator)31 b(in)i(eac)m(h)i(b)s(eam.)47 +b(This)34 b(initiator)d(only)i(tak)m(es)i(some)f(fraction)f(of)g(the)i +(total)d(b)s(eam)h(energy)-8 b(,)0 4003 y(lea)m(ving)43 +b(b)s(ehind)h(a)g(b)s(eam)f(remnan)m(t)h(whic)m(h)g(tak)m(es)i(the)e +(rest.)79 b(F)-8 b(or)43 b(a)h(proton)f(b)s(eam,)k(a)c(u)i(quark)0 +4112 y(initiator)20 b(w)m(ould)j(lea)m(v)m(e)h(b)s(ehind)f(a)g(ud)h +(diquark)f(b)s(eam)f(remnan)m(t,)j(with)e(an)g(an)m(titriplet)e(colour) +i(c)m(harge.)0 4220 y(The)46 b(remnan)m(t)f(is)g(therefore)h +(colour-connected)g(to)f(the)g(hard)h(in)m(teraction,)h(and)e(forms)g +(part)g(of)0 4328 y(the)37 b(same)g(fragmen)m(ting)f(system.)58 +b(It)37 b(is)f(further)i(customary)f(to)f(assign)h(a)g(primordial)c +(transv)m(erse)0 4437 y(momen)m(tum)g(to)h(the)h(sho)m(w)m(er)h +(initiator,)c(to)i(tak)m(e)i(in)m(to)e(accoun)m(t)h(the)g(motion)d(of)i +(quarks)i(inside)e(the)0 4545 y(original)29 b(hadron,)k(basically)e(as) +i(required)g(b)m(y)h(the)f(uncertain)m(t)m(y)g(principle.)43 +b(This)33 b(primordial)c Fj(k)3623 4560 y Fk(?)3714 4545 +y Fw(is)0 4653 y(selected)i(according)d(to)i(some)f(suitable)g +(distribution,)f(and)i(the)f(recoil)g(is)g(assumed)h(to)f(b)s(e)h(tak)m +(en)g(up)0 4762 y(b)m(y)j(the)g(b)s(eam)f(remnan)m(t.)146 +4870 y(Often)37 b(the)g(remnan)m(t)g(is)f(more)g(complicated,)h(e.g.)56 +b(a)36 b(g)i(initiator)c(w)m(ould)i(lea)m(v)m(e)i(b)s(ehind)e(a)h(uud)0 +4979 y(proton)28 b(remnan)m(t)g(system)h(in)e(a)h(colour)f(o)s(ctet)i +(state,)g(whic)m(h)g(can)f(con)m(v)m(enien)m(tly)i(b)s(e)e(sub)s +(divided)g(in)m(to)0 5087 y(a)f(colour)f(triplet)g(quark)i(and)f(a)g +(colour)g(an)m(titriplet)e(diquark,)j(eac)m(h)g(of)f(whic)m(h)h(are)f +(colour-connected)0 5195 y(to)g(the)g(hard)g(in)m(teraction.)41 +b(The)28 b(energy)g(sharing)e(b)s(et)m(w)m(een)j(these)g(t)m(w)m(o)e +(remnan)m(t)g(ob)5 b(jects,)30 b(and)d(their)0 5304 y(relativ)m(e)38 +b(transv)m(erse)j(momen)m(tum,)e(in)m(tro)s(duces)g(additional)d +(degrees)k(of)e(freedom,)j(whic)m(h)e(are)g(not)0 5412 +y(understo)s(o)s(d)33 b(from)e(\014rst)i(principles.)146 +5520 y(Na)-11 b(\177)-38 b(\020v)m(ely)-8 b(,)34 b(one)h(w)m(ould)f +(exp)s(ect)h(an)f(ep)g(ev)m(en)m(t)i(to)e(ha)m(v)m(e)h(only)f(one)g(b)s +(eam)f(remnan)m(t,)i(and)f(an)g(e)3618 5484 y Fl(+)3677 +5520 y Fw(e)3720 5484 y Fk(\000)0 5629 y Fw(ev)m(en)m(t)44 +b(none.)74 b(This)43 b(is)f(not)h(alw)m(a)m(ys)g(correct,)j(e.g.)74 +b(a)42 b Fj(\015)5 b(\015)50 b Fn(!)44 b Fw(q)p 2443 +5576 52 4 v(q)f(in)m(teraction)f(in)g(an)g(e)3350 5592 +y Fl(+)3410 5629 y Fw(e)3453 5592 y Fk(\000)3555 5629 +y Fw(ev)m(en)m(t)1841 5953 y(14)p eop +%%Page: 15 21 +15 20 bop 0 -18 a Fw(w)m(ould)46 b(lea)m(v)m(e)g(b)s(ehind)g(the)h(e) +1113 -55 y Fl(+)1218 -18 y Fw(and)f(e)1464 -55 y Fk(\000)1569 +-18 y Fw(as)g(b)s(eam)g(remnan)m(ts,)j(and)d(a)g(q)p +2797 -71 52 4 v(q)52 b Fn(!)e Fw(gg)c(in)m(teraction)f(in)0 +90 y(resolv)m(ed)d(photopro)s(duction)f(in)g(an)g(e)1442 +54 y Fl(+)1502 90 y Fw(e)1545 54 y Fk(\000)1646 90 y +Fw(ev)m(en)m(t)i(w)m(ould)e(lea)m(v)m(e)i(b)s(ehind)e(one)h(e)3018 +54 y Fk(\006)3119 90 y Fw(and)f(one)h(q)p Fj(=)p 3605 +37 V Fw(q)g(in)0 198 y(eac)m(h)33 b(remnan)m(t.)44 b(Corresp)s(onding) +32 b(complications)e(o)s(ccur)j(for)f(photopro)s(duction)g(in)g(ep)h +(ev)m(en)m(ts.)146 307 y(There)g(is)e(another)g(source)i(of)d(b)s(eam)h +(remnan)m(ts.)44 b(If)31 b(parton)g(distributions)f(are)h(used)i(to)e +(resolv)m(e)0 415 y(an)f(electron)f(inside)g(an)h(electron,)g(some)g +(of)f(the)h(original)c(energy)31 b(is)e(not)h(used)g(in)f(the)h(hard)g +(in)m(terac-)0 523 y(tion,)g(but)h(is)f(rather)h(asso)s(ciated)f(with)g +(initial-state)d(photon)k(radiation.)40 b(The)32 b(initial-state)27 +b(sho)m(w)m(er)0 632 y(is)h(in)f(principle)g(in)m(tended)i(to)f(trace)g +(this)g(ev)m(olution)g(and)g(reconstruct)i(the)e(original)d(electron)j +(b)s(efore)0 740 y(an)m(y)23 b(radiation)d(at)h(all)g(to)s(ok)g(place.) +40 b(Ho)m(w)m(ev)m(er,)27 b(b)s(ecause)c(of)f(cut-o\013)g(pro)s +(cedures,)j(some)d(small)e(amoun)m(t)0 848 y(ma)m(y)39 +b(b)s(e)h(left)f(unaccoun)m(ted.)67 b(Alternativ)m(ely)38 +b(the)i(user)h(ma)m(y)e(ha)m(v)m(e)i(c)m(hosen)h(to)d(switc)m(h)h +(o\013)g(initial-)0 957 y(state)d(radiation)e(altogether,)h(but)h +(still)e(preserv)m(ed)k(the)e(resolv)m(ed)h(electron)e(parton)h +(distributions.)0 1065 y(In)k(either)f(case)i(the)f(remaining)d(energy) +k(is)e(giv)m(en)h(to)f(a)h(single)e(photon)i(of)f(v)-5 +b(anishing)39 b(transv)m(erse)0 1173 y(momen)m(tum,)31 +b(whic)m(h)i(is)f(then)i(considered)f(in)f(the)h(same)f(spirit)g(as)g +(`true')h(b)s(eam)f(remnan)m(ts.)146 1282 y(So)j(far)f(w)m(e)i(ha)m(v)m +(e)g(assumed)f(that)f(eac)m(h)i(ev)m(en)m(t)g(only)e(con)m(tains)h(one) +g(hard)f(in)m(teraction,)h(i.e.)49 b(that)0 1390 y(eac)m(h)25 +b(incoming)d(particle)h(has)h(only)g(one)g(parton)g(whic)m(h)h(tak)m +(es)g(part)f(in)f(hard)h(pro)s(cesses,)k(and)d(that)f(all)0 +1498 y(other)34 b(constituen)m(ts)g(sail)e(through)i(una\013ected.)47 +b(This)34 b(is)f(appropriate)f(in)h(e)2863 1462 y Fl(+)2922 +1498 y Fw(e)2965 1462 y Fk(\000)3058 1498 y Fw(or)g(ep)h(ev)m(en)m(ts,) +i(but)0 1607 y(not)e(necessarily)h(so)g(in)e(hadron{hadron)i +(collisions.)46 b(Here)35 b(eac)m(h)g(of)f(the)h(b)s(eam)f(particles)f +(con)m(tains)0 1715 y(a)44 b(m)m(ultitude)f(of)h(partons,)k(and)c(so)h +(the)f(probabilit)m(y)f(for)h(sev)m(eral)h(in)m(teractions)e(in)h(one)h +(and)f(the)0 1823 y(same)36 b(ev)m(en)m(t)j(need)e(not)f(b)s(e)h +(negligible.)52 b(In)37 b(principle)e(these)j(additional)33 +b(in)m(teractions)j(could)g(arise)0 1932 y(b)s(ecause)h(one)e(single)f +(parton)h(from)f(one)h(b)s(eam)g(scatters)h(against)e(sev)m(eral)i +(di\013eren)m(t)f(partons)h(from)0 2040 y(the)c(other)g(b)s(eam,)f(or)h +(b)s(ecause)h(sev)m(eral)f(partons)g(from)f(eac)m(h)h(b)s(eam)g(tak)m +(e)g(place)g(in)f(separate)h(2)27 b Fn(!)h Fw(2)0 2148 +y(scatterings.)51 b(Both)34 b(are)h(exp)s(ected,)j(but)d(com)m +(binatorics)e(should)i(fa)m(v)m(our)g(the)h(latter,)e(whic)m(h)i(is)e +(the)0 2257 y(mec)m(hanism)e(considered)h(in)f Fm(Pythia)p +Fw(.)146 2365 y(The)j(dominan)m(t)e(2)d Fn(!)g Fw(2)k(QCD)f(cross)i +(sections)g(are)f(div)m(ergen)m(t)h(for)e Fj(p)2729 2380 +y Fk(?)2819 2365 y Fn(!)c Fw(0,)35 b(and)f(drop)g(rapidly)0 +2473 y(for)39 b(larger)f Fj(p)488 2488 y Fk(?)547 2473 +y Fw(.)65 b(Probably)39 b(the)h(lo)m(w)m(est-order)g(p)s(erturbativ)m +(e)g(cross)g(sections)g(will)e(b)s(e)h(regularized)0 +2582 y(at)46 b(small)e Fj(p)451 2597 y Fk(?)556 2582 +y Fw(b)m(y)j(colour)e(coherence)j(e\013ects:)72 b(an)46 +b(exc)m(hanged)i(gluon)d(of)h(small)e Fj(p)3186 2597 +y Fk(?)3291 2582 y Fw(has)j(a)f(large)0 2690 y(transv)m(erse)c(w)m(a)m +(v)m(e)f(function)e(and)h(can)g(therefore)g(not)f(resolv)m(e)i(the)f +(individual)d(colour)h(c)m(harges)j(of)0 2798 y(the)36 +b(t)m(w)m(o)h(incoming)d(hadrons;)k(it)d(will)f(only)h(couple)h(to)g +(an)g(a)m(v)m(erage)g(colour)g(c)m(harge)g(that)g(v)-5 +b(anishes)0 2907 y(in)36 b(the)h(limit)c Fj(p)576 2922 +y Fk(?)669 2907 y Fn(!)h Fw(0.)55 b(In)37 b(the)g(program,)f(some)g +(e\013ectiv)m(e)i Fj(p)2332 2922 y Fk(?)p Fl(min)2545 +2907 y Fw(scale)e(is)g(therefore)h(in)m(tro)s(duced,)0 +3015 y(b)s(elo)m(w)e(whic)m(h)i(the)f(p)s(erturbativ)m(e)g(cross)g +(section)g(is)f(either)g(assumed)i(completely)d(v)-5 +b(anishing)35 b(or)g(at)0 3123 y(least)29 b(strongly)g(damp)s(ed.)42 +b(Phenomenologically)-8 b(,)27 b Fj(p)1949 3138 y Fk(?)p +Fl(min)2155 3123 y Fw(comes)i(out)g(to)g(b)s(e)h(a)f(n)m(um)m(b)s(er)h +(of)f(the)g(order)0 3232 y(of)j(1.5{2.0)g(GeV.)146 3340 +y(In)26 b(a)f(t)m(ypical)g(`minim)m(um-bias')c(ev)m(en)m(t)27 +b(one)f(therefore)g(exp)s(ects)h(to)e(\014nd)h(one)g(or)f(a)g(few)h +(scatterings)0 3448 y(at)41 b(scales)h(around)f(or)g(a)g(bit)f(ab)s(o)m +(v)m(e)j Fj(p)1461 3463 y Fk(?)p Fl(min)1637 3448 y Fw(,)h(while)c(a)h +(high-)p Fj(p)2328 3463 y Fk(?)2427 3448 y Fw(ev)m(en)m(t)i(also)e(ma)m +(y)g(ha)m(v)m(e)h(additional)0 3557 y(scatterings)34 +b(at)f(the)h Fj(p)828 3572 y Fk(?)p Fl(min)1038 3557 +y Fw(scale.)47 b(The)34 b(probabilit)m(y)e(to)h(ha)m(v)m(e)i(sev)m +(eral)f(high-)p Fj(p)2948 3572 y Fk(?)3039 3557 y Fw(scatterings)g(in)f +(the)0 3665 y(same)f(ev)m(en)m(t)j(is)d(small,)e(since)j(the)g(cross)h +(section)f(drops)g(so)f(rapidly)g(with)g Fj(p)2845 3680 +y Fk(?)2904 3665 y Fw(.)146 3774 y(The)j(understanding)g(of)e(m)m +(ultiple)f(in)m(teraction)g(is)i(still)d(v)m(ery)36 b(primitiv)m(e,)c +(and)i(ev)m(en)i(the)e(exp)s(er-)0 3882 y(imen)m(tal)h(evidence)k(that) +e(it)g(exists)h(at)f(all)f(is)h(rather)g(w)m(eak.)60 +b Fm(Pythia)37 b Fw(therefore)h(con)m(tains)g(sev)m(eral)0 +3990 y(di\013eren)m(t)d(options,)g(with)g(a)f(fairly)f(simple)h(one)h +(as)g(default.)50 b(The)36 b(options)e(di\013er)g(in)g(particular)g(on) +0 4099 y(the)39 b(issue)g(of)g(the)g(`p)s(edestal')g(e\013ect:)56 +b(is)38 b(there)i(an)e(increased)i(probabilit)m(y)c(or)j(not)f(for)g +(additional)0 4207 y(in)m(teractions)32 b(in)f(an)h(ev)m(en)m(t)i(whic) +m(h)f(is)f(kno)m(wn)h(to)f(con)m(tain)g(a)g(hard)g(scattering,)g +(compared)g(with)g(one)0 4315 y(that)g(con)m(tains)h(no)f(hard)h(in)m +(teractions?)0 4589 y Fp(2.4)135 b(F)-11 b(ragmen)l(tation)0 +4762 y Fw(QCD)42 b(p)s(erturbation)g(theory)-8 b(,)45 +b(form)m(ulated)c(in)h(terms)h(of)f(quarks)h(and)g(gluons,)h(is)e(v)-5 +b(alid)41 b(at)h(short)0 4870 y(distances.)i(A)m(t)30 +b(long)g(distances,)i(QCD)e(b)s(ecomes)h(strongly)f(in)m(teracting)f +(and)i(p)s(erturbation)f(theory)0 4979 y(breaks)48 b(do)m(wn.)89 +b(In)48 b(this)f(con\014nemen)m(t)h(regime,)i(the)e(coloured)e(partons) +i(are)f(transformed)g(in)m(to)0 5087 y(colourless)33 +b(hadrons,)h(a)g(pro)s(cess)g(called)f(either)g(hadronization)f(or)h +(fragmen)m(tation.)44 b(In)34 b(this)f(pap)s(er)0 5195 +y(w)m(e)25 b(reserv)m(e)h(the)f(former)e(term)g(for)h(the)g(com)m +(bination)e(of)i(fragmen)m(tation)e(and)i(the)h(subsequen)m(t)i(deca)m +(y)0 5304 y(of)32 b(unstable)h(particles.)146 5412 y(The)26 +b(fragmen)m(tation)d(pro)s(cess)i(has)g(y)m(et)h(to)e(b)s(e)h(understo) +s(o)s(d)g(from)f(\014rst)h(principles,)g(starting)f(from)0 +5520 y(the)41 b(QCD)f(Lagrangian.)65 b(This)41 b(has)g(left)e(the)i(w)m +(a)m(y)h(clear)e(for)g(the)h(dev)m(elopmen)m(t)g(of)f(a)g(n)m(um)m(b)s +(er)h(of)0 5629 y(di\013eren)m(t)35 b(phenomenological)d(mo)s(dels.)49 +b(Three)36 b(main)d(sc)m(ho)s(ols)i(are)g(usually)f(distinguished,)h +(string)1841 5953 y(15)p eop +%%Page: 16 22 +16 21 bop 0 -18 a Fw(fragmen)m(tation)26 b(\(SF\),)i(indep)s(enden)m(t) +h(fragmen)m(tation)e(\(IF\))g(and)i(cluster)f(fragmen)m(tation)e +(\(CF\),)i(but)0 90 y(man)m(y)41 b(v)-5 b(arian)m(ts)40 +b(and)g(h)m(ybrids)i(exist.)68 b(Being)40 b(mo)s(dels,)i(none)f(of)f +(them)g(can)h(la)m(y)f(claims)f(to)h(b)s(eing)0 198 y(`correct',)32 +b(although)d(some)h(ma)m(y)g(b)s(e)h(b)s(etter)f(founded)h(than)g +(others.)43 b(The)32 b(b)s(est)f(that)f(can)g(b)s(e)h(aimed)0 +307 y(for)g(is)g(in)m(ternal)g(consistency)-8 b(,)33 +b(a)f(go)s(o)s(d)e(represen)m(tation)j(of)e(existing)g(data,)g(and)h(a) +g(predictiv)m(e)g(p)s(o)m(w)m(er)0 415 y(for)g(prop)s(erties)h(not)f(y) +m(et)i(studied)e(or)h(results)g(at)f(higher)g(energies.)146 +523 y Fm(Jetset)39 b Fw(is)f(in)m(timately)f(connected)k(with)e(string) +g(fragmen)m(tation,)g(in)f(the)i(form)e(of)h(the)g(time-)0 +632 y(honoured)k(`Lund)g(mo)s(del'.)72 b(This)42 b(is)g(the)h(default)f +(for)g(all)f Fm(Jetset/Pythia)g Fw(applications,)i(but)0 +740 y(indep)s(enden)m(t)33 b(fragmen)m(tation)d(options)h(also)f +(exist,)j(for)e(applications)e(where)k(one)f(wishes)h(to)e(study)0 +848 y(the)i(imp)s(ortance)e(of)h(string)g(e\013ects.)146 +957 y(All)38 b(curren)m(t)j(mo)s(dels)d(are)h(of)g(a)g(probabilistic)e +(and)j(iterativ)m(e)e(nature.)65 b(This)39 b(means)h(that)f(the)0 +1065 y(fragmen)m(tation)30 b(pro)s(cess)k(as)e(a)g(whole)g(is)g +(describ)s(ed)h(in)f(terms)g(of)g(one)g(or)g(a)g(few)h(simple)e +(underlying)0 1173 y(branc)m(hings,)43 b(of)d(the)h(t)m(yp)s(e)h(jet)e +Fn(!)g Fw(hadron)h(+)f(remainder-jet,)i(string)e Fn(!)g +Fw(hadron)g(+)h(remainder-)0 1282 y(string,)36 b(and)g(so)g(on.)52 +b(A)m(t)36 b(eac)m(h)h(branc)m(hing,)g(probabilistic)32 +b(rules)k(are)g(giv)m(en)g(for)f(the)h(pro)s(duction)f(of)0 +1390 y(new)f(\015a)m(v)m(ours,)g(and)e(for)g(the)h(sharing)f(of)g +(energy)i(and)f(momen)m(tum)e(b)s(et)m(w)m(een)j(the)f(pro)s(ducts.)146 +1498 y(T)-8 b(o)38 b(understand)h(fragmen)m(tation)d(mo)s(dels,)i(it)e +(is)i(useful)f(to)h(start)f(with)h(the)g(simplest)e(p)s(ossible)0 +1607 y(system,)45 b(a)c(colour-singlet)e(q)p 1114 1554 +52 4 v(q)j(2-jet)f(ev)m(en)m(t,)46 b(as)41 b(pro)s(duced)h(in)f(e)2465 +1571 y Fl(+)2525 1607 y Fw(e)2568 1571 y Fk(\000)2668 +1607 y Fw(annihilation.)67 b(Here)42 b(lattice)0 1715 +y(QCD)37 b(studies)g(lend)g(supp)s(ort)g(to)f(a)h(linear)e +(con\014nemen)m(t)j(picture)f(\(in)f(the)h(absence)i(of)d(dynamical)0 +1823 y(quarks\),)26 b(i.e.)39 b(the)23 b(energy)g(stored)g(in)f(the)h +(colour)e(dip)s(ole)g(\014eld)h(b)s(et)m(w)m(een)i(a)e(c)m(harge)h(and) +f(an)h(an)m(tic)m(harge)0 1932 y(increases)31 b(linearly)d(with)i(the)h +(separation)f(b)s(et)m(w)m(een)i(the)e(c)m(harges,)i(if)d(the)i +(short-distance)f(Coulom)m(b)0 2040 y(term)37 b(is)h(neglected.)60 +b(This)38 b(is)f(quite)h(di\013eren)m(t)g(from)e(the)j(b)s(eha)m(viour) +e(in)g(QED,)h(and)g(is)f(related)h(to)0 2148 y(the)i(presence)i(of)e(a) +f(triple-gluon)e(v)m(ertex)42 b(in)d(QCD.)h(The)h(details)d(are)i(not)g +(y)m(et)h(w)m(ell)e(understo)s(o)s(d,)0 2257 y(ho)m(w)m(ev)m(er.)146 +2365 y(The)29 b(assumption)e(of)g(linear)f(con\014nemen)m(t)i(pro)m +(vides)h(the)f(starting)e(p)s(oin)m(t)h(for)g(the)h(string)f(mo)s(del.) +0 2473 y(As)38 b(the)f(q)g(and)p 603 2421 V 37 w(q)h(partons)f(mo)m(v)m +(e)h(apart)e(from)g(their)g(common)g(pro)s(duction)g(v)m(ertex,)k(the)e +(ph)m(ysical)0 2582 y(picture)28 b(is)f(that)g(of)g(a)h(colour)e +(\015ux)j(tub)s(e)e(\(or)h(ma)m(yb)s(e)f(colour)g(v)m(ortex)i(line\))d +(b)s(eing)h(stretc)m(hed)i(b)s(et)m(w)m(een)0 2690 y(the)43 +b(q)g(and)g(the)p 650 2637 V 43 w(q.)73 b(The)44 b(transv)m(erse)h +(dimensions)c(of)h(the)h(tub)s(e)g(are)g(of)f(t)m(ypical)g(hadronic)g +(sizes,)0 2798 y(roughly)36 b(1)g(fm.)55 b(If)37 b(the)g(tub)s(e)g(is)f +(assumed)h(to)f(b)s(e)h(uniform)e(along)g(its)h(length,)i(this)e +(automatically)0 2907 y(leads)24 b(to)h(a)f(con\014nemen)m(t)i(picture) +e(with)h(a)f(linearly)f(rising)g(p)s(oten)m(tial.)39 +b(In)25 b(order)g(to)f(obtain)f(a)i(Loren)m(tz)0 3015 +y(co)m(v)-5 b(arian)m(t)23 b(and)g(causal)g(description)g(of)g(the)h +(energy)g(\015o)m(w)g(due)g(to)f(this)g(linear)f(con\014nemen)m(t,)k +(the)e(most)0 3123 y(straigh)m(tforw)m(ard)45 b(w)m(a)m(y)h(is)e(to)h +(use)h(the)g(dynamics)e(of)h(the)g(massless)h(relativistic)c(string)j +(with)g(no)0 3232 y(transv)m(erse)32 b(degrees)g(of)e(freedom.)42 +b(The)31 b(mathematical,)c(one-dimensional)h(string)h(can)i(b)s(e)f +(though)m(t)0 3340 y(of)j(as)g(parametrizing)e(the)i(p)s(osition)f(of)h +(the)g(axis)g(of)g(a)g(cylindrically)d(symmetric)i(\015ux)i(tub)s(e.)46 +b(F)-8 b(rom)0 3448 y(hadron)40 b(sp)s(ectroscop)m(y)-8 +b(,)43 b(the)d(string)f(constan)m(t,)j(i.e.)65 b(the)40 +b(amoun)m(t)f(of)g(energy)h(p)s(er)g(unit)f(length,)i(is)0 +3557 y(deduced)d(to)e(b)s(e)h Fj(\024)e Fn(\031)g Fw(1)h(GeV/fm.)54 +b(The)37 b(expression)h(`massless')f(relativistic)d(string)i(is)g +(somewhat)0 3665 y(of)c(a)g(misnomer:)42 b Fj(\024)33 +b Fw(e\013ectiv)m(ely)g(corresp)s(onds)h(to)e(a)h(`mass)f(densit)m(y')i +(along)d(the)i(string.)146 3774 y(Let)24 b(us)g(no)m(w)g(turn)g(to)f +(the)h(fragmen)m(tation)e(pro)s(cess.)42 b(As)24 b(the)g(q)g(and)p +2643 3721 V 23 w(q)g(mo)m(v)m(e)g(apart,)h(the)f(p)s(oten)m(tial)0 +3882 y(energy)41 b(stored)f(in)f(the)h(string)f(increases,)j(and)e(the) +g(string)f(ma)m(y)h(break)g(b)m(y)h(the)f(pro)s(duction)f(of)g(a)0 +3990 y(new)31 b(q)249 3954 y Fk(0)p 273 3937 V 273 3990 +a Fw(q)325 3954 y Fk(0)378 3990 y Fw(pair,)f(so)h(that)f(the)g(system)i +(splits)d(in)m(to)h(t)m(w)m(o)h(colour-singlet)d(systems)k(q)p +3060 3937 V(q)3112 3954 y Fk(0)3165 3990 y Fw(and)f(q)3404 +3954 y Fk(0)p 3428 3937 V 3428 3990 a Fw(q.)43 b(If)30 +b(the)0 4099 y(in)m(v)-5 b(arian)m(t)33 b(mass)h(of)f(either)h(of)f +(these)j(string)d(pieces)i(is)e(large)g(enough,)i(further)f(breaks)h +(ma)m(y)f(o)s(ccur.)0 4207 y(In)j(the)h(Lund)g(string)e(mo)s(del,)h +(the)g(string)g(break-up)h(pro)s(cess)g(is)f(assumed)g(to)g(pro)s(ceed) +h(un)m(til)e(only)0 4315 y(on-mass-shell)31 b(hadrons)j(remain,)e(eac)m +(h)i(hadron)f(corresp)s(onding)g(to)g(a)g(small)d(piece)k(of)e(string)h +(with)0 4424 y(a)f(quark)i(in)d(one)i(end)h(and)e(an)h(an)m(tiquark)f +(in)g(the)h(other.)146 4532 y(In)28 b(order)f(to)g(generate)h(the)g +(quark{an)m(tiquark)g(pairs)f(q)2188 4496 y Fk(0)p 2211 +4479 V 2211 4532 a Fw(q)2263 4496 y Fk(0)2313 4532 y +Fw(whic)m(h)h(lead)f(to)g(string)g(break-ups,)i(the)0 +4640 y(Lund)34 b(mo)s(del)d(in)m(v)m(ok)m(es)k(the)e(idea)g(of)f(quan)m +(tum)i(mec)m(hanical)d(tunnelling.)43 b(This)34 b(leads)f(to)f(a)h +(\015a)m(v)m(our-)0 4749 y(indep)s(enden)m(t)39 b(Gaussian)e(sp)s +(ectrum)g(for)g(the)h Fj(p)1788 4764 y Fk(?)1885 4749 +y Fw(of)f(q)2052 4712 y Fk(0)p 2076 4696 V 2076 4749 +a Fw(q)2127 4712 y Fk(0)2188 4749 y Fw(pairs.)57 b(Since)38 +b(the)g(string)f(is)g(assumed)h(to)0 4857 y(ha)m(v)m(e)32 +b(no)e(transv)m(erse)j(excitations,)d(this)g Fj(p)1569 +4872 y Fk(?)1658 4857 y Fw(is)g(lo)s(cally)e(comp)s(ensated)j(b)s(et)m +(w)m(een)h(the)f(quark)h(and)e(the)0 4965 y(an)m(tiquark)36 +b(of)g(the)h(pair.)53 b(The)37 b(total)e Fj(p)1471 4980 +y Fk(?)1566 4965 y Fw(of)h(a)g(hadron)g(is)g(made)g(up)g(out)g(of)g +(the)h Fj(p)3123 4980 y Fk(?)3218 4965 y Fw(con)m(tributions)0 +5074 y(from)31 b(the)j(quark)f(and)g(an)m(tiquark)g(that)f(together)h +(form)f(the)h(hadron.)44 b(Some)32 b(con)m(tribution)g(of)g(v)m(ery)0 +5182 y(soft)h(p)s(erturbativ)m(e)f(gluon)g(emission)f(ma)m(y)i(also)e +(e\013ectiv)m(ely)i(b)s(e)g(included)f(in)g(this)g(description.)146 +5290 y(The)d(tunnelling)d(picture)i(also)g(implies)d(a)j(suppression)h +(of)f(hea)m(vy-quark)i(pro)s(duction,)e(u)g(:)g(d)g(:)f(s)h(:)0 +5399 y(c)h Fn(\031)g Fw(1)f(:)h(1)f(:)g(0)p Fj(:)p Fw(3)g(:)h(10)750 +5363 y Fk(\000)p Fl(11)879 5399 y Fw(.)45 b(Charm)33 +b(and)g(hea)m(vier)g(quarks)h(hence)h(are)e(not)g(exp)s(ected)i(to)d(b) +s(e)i(pro)s(duced)0 5507 y(in)e(the)h(soft)f(fragmen)m(tation,)f(but)i +(only)f(in)g(p)s(erturbativ)m(e)h(parton-sho)m(w)m(er)g(branc)m(hings)g +(g)c Fn(!)e Fw(q)p 3574 5454 V(q)q(.)146 5615 y(When)40 +b(the)e(quark)h(and)g(an)m(tiquark)f(from)f(t)m(w)m(o)i(adjacen)m(t)g +(string)f(breakings)g(are)h(com)m(bined)f(to)1841 5953 +y(16)p eop +%%Page: 17 23 +17 22 bop 0 -18 a Fw(form)45 b(a)g(meson,)k(it)c(is)h(necessary)i(to)d +(in)m(v)m(ok)m(e)i(an)f(algorithm)d(to)i(c)m(ho)s(ose)i(b)s(et)m(w)m +(een)h(the)e(di\013eren)m(t)0 90 y(allo)m(w)m(ed)38 b(p)s +(ossibilities,)g(notably)h(b)s(et)m(w)m(een)i(pseudoscalar)e(and)g(v)m +(ector)h(mesons.)64 b(Here)40 b(the)f(string)0 198 y(mo)s(del)25 +b(is)i(not)g(particularly)d(predictiv)m(e.)42 b(Qualitativ)m(ely)25 +b(one)i(exp)s(ects)i(a)d(1)i(:)g(3)e(ratio,)h(from)f(coun)m(ting)0 +307 y(the)33 b(n)m(um)m(b)s(er)g(of)f(spin)h(states,)g(m)m(ultiplied)c +(b)m(y)34 b(some)e(w)m(a)m(v)m(e-function)i(normalization)29 +b(factor,)j(whic)m(h)0 415 y(should)g(disfa)m(v)m(our)h(hea)m(vier)g +(states.)146 523 y(A)h(tunnelling)d(mec)m(hanism)i(can)g(also)f(b)s(e)i +(used)g(to)f(explain)g(the)g(pro)s(duction)g(of)g(bary)m(ons.)46 +b(This)0 632 y(is)i(still)e(a)i(p)s(o)s(orly)f(understo)s(o)s(d)i +(area.)91 b(In)49 b(the)g(simplest)e(p)s(ossible)h(approac)m(h,)53 +b(a)48 b(diquark)h(in)f(a)0 740 y(colour)35 b(an)m(titriplet)e(state)k +(is)e(just)h(treated)g(lik)m(e)f(an)h(ordinary)f(an)m(tiquark,)i(suc)m +(h)g(that)f(a)f(string)g(can)0 848 y(break)24 b(either)g(b)m(y)g +(quark{an)m(tiquark)g(or)f(an)m(tidiquark{diquark)g(pair)g(pro)s +(duction.)40 b(A)23 b(more)g(complex)0 957 y(scenario)43 +b(is)f(the)i(`p)s(op)s(corn')f(one,)j(where)e(diquarks)f(as)h(suc)m(h)g +(do)f(not)g(exist,)j(but)d(rather)g(quark{)0 1065 y(an)m(tiquark)36 +b(pairs)g(are)g(pro)s(duced)h(one)f(after)g(the)g(other.)54 +b(This)37 b(latter)e(picture)h(giv)m(es)g(a)g(less)g(strong)0 +1173 y(correlation)c(in)h(\015a)m(v)m(our)i(and)e(momen)m(tum)g(space)i +(b)s(et)m(w)m(een)g(the)g(bary)m(on)f(and)g(the)g(an)m(tibary)m(on)f +(of)h(a)0 1282 y(pair.)146 1390 y(In)d(general,)f(the)g(di\013eren)m(t) +g(string)g(breaks)h(are)f(causally)f(disconnected.)44 +b(This)30 b(means)g(that)g(it)f(is)0 1498 y(p)s(ossible)h(to)h(describ) +s(e)g(the)h(breaks)g(in)e(an)m(y)h(con)m(v)m(enien)m(t)i(order,)e(e.g.) +44 b(from)29 b(the)i(quark)h(end)g(in)m(w)m(ards.)0 1607 +y(One)i(therefore)h(is)f(led)f(to)h(write)g(do)m(wn)h(an)f(iterativ)m +(e)f(sc)m(heme)j(for)d(the)i(fragmen)m(tation,)d(as)j(follo)m(ws.)0 +1715 y(Assume)c(an)g(initial)26 b(quark)32 b(q)f(mo)m(ving)e(out)h +(along)f(the)i(+)p Fj(z)k Fw(axis,)c(with)f(the)h(an)m(tiquark)g(going) +e(out)h(in)0 1823 y(the)e(opp)s(osite)e(direction.)41 +b(By)27 b(the)h(pro)s(duction)e(of)h(a)g(q)2021 1838 +y Fl(1)p 2061 1770 52 4 v 2061 1823 a Fw(q)2112 1847 +y Fl(1)2179 1823 y Fw(pair,)g(a)g(meson)g(q)p 2822 1770 +V(q)2874 1847 y Fl(1)2941 1823 y Fw(is)f(pro)s(duced,)j(lea)m(ving)0 +1932 y(b)s(ehind)36 b(an)h(unpaired)f(quark)i(q)1208 +1947 y Fl(1)1248 1932 y Fw(.)55 b(A)37 b(second)h(pair)d(q)2014 +1947 y Fl(2)p 2054 1879 V 2054 1932 a Fw(q)2106 1955 +y Fl(2)2182 1932 y Fw(ma)m(y)h(no)m(w)h(b)s(e)g(pro)s(duced,)h(to)f +(giv)m(e)f(a)h(new)0 2040 y(meson)f(q)353 2055 y Fl(1)p +393 1987 V 393 2040 a Fw(q)444 2064 y Fl(2)484 2040 y +Fw(,)g(etc.)54 b(A)m(t)36 b(eac)m(h)g(step)h(the)f(pro)s(duced)h +(hadron)e(tak)m(es)i(some)f(fraction)f(of)g(the)h(a)m(v)-5 +b(ailable)0 2148 y(energy)40 b(and)f(momen)m(tum.)61 +b(This)39 b(pro)s(cess)h(ma)m(y)f(b)s(e)g(iterated)f(un)m(til)g(all)f +(energy)j(is)e(used)i(up,)h(with)0 2257 y(some)h(mo)s(di\014cations)d +(close)j(to)f(the)p 1410 2204 V 42 w(q)h(end)h(of)e(the)h(string)f(in)g +(order)h(to)g(mak)m(e)f(total)g(energy)h(and)0 2365 y(momen)m(tum)31 +b(come)h(out)h(righ)m(t.)146 2473 y(The)43 b(c)m(hoice)f(of)f(starting) +g(the)h(fragmen)m(tation)e(from)h(the)h(quark)g(end)h(is)e(arbitrary)-8 +b(,)43 b(ho)m(w)m(ev)m(er.)0 2582 y(A)c(fragmen)m(tation)e(pro)s(cess)k +(describ)s(ed)f(in)e(terms)h(of)g(starting)f(at)h(the)p +2719 2529 V 40 w(q)g(end)h(of)f(the)g(system)h(and)0 +2690 y(fragmen)m(ting)22 b(to)m(w)m(ards)j(the)f(q)h(end)f(should)g(b)s +(e)g(equiv)-5 b(alen)m(t.)40 b(This)24 b(`left{righ)m(t')e(symmetry)i +(constrains)0 2798 y(the)48 b(allo)m(w)m(ed)g(shap)s(e)g(of)g(the)g +(fragmen)m(tation)e(function)i Fj(f)11 b Fw(\()p Fj(z)t +Fw(\),)52 b(where)d Fj(z)k Fw(is)47 b(the)i(fraction)e(of)g(the)0 +2907 y(remaining)d(ligh)m(t-cone)h(momen)m(tum)g Fj(E)38 +b Fn(\006)32 b Fj(p)1724 2922 y Fh(z)1810 2907 y Fw(\(+)46 +b(for)g(the)g(q)h(jet,)j Fn(\000)d Fw(for)f(the)p 3069 +2854 V 47 w(q)h(one\))f(tak)m(en)i(b)m(y)0 3015 y(eac)m(h)38 +b(new)g(particle.)56 b(The)38 b(resulting)e(`Lund)i(symmetric)e +(fragmen)m(tation)f(function')i(has)g(t)m(w)m(o)h(free)0 +3123 y(parameters,)33 b(whic)m(h)g(are)f(determined)h(from)e(data.)146 +3232 y(If)39 b(sev)m(eral)h(partons)f(are)g(mo)m(ving)f(apart)h(from)f +(a)g(common)g(origin,)h(the)g(details)f(of)h(the)g(string)0 +3340 y(dra)m(wing)k(b)s(ecome)h(more)f(complicated.)76 +b(F)-8 b(or)43 b(a)g(q)p 1941 3287 V(q)q(g)i(ev)m(en)m(t,)k(a)43 +b(string)g(is)h(stretc)m(hed)h(from)e(the)h(q)0 3448 +y(end)c(via)f(the)h(g)g(to)f(the)p 923 3396 V 40 w(q)h(end,)h(i.e.)64 +b(the)40 b(gluon)e(is)h(a)g(kink)g(on)h(the)g(string,)g(carrying)f +(energy)h(and)0 3557 y(momen)m(tum.)i(As)31 b(a)g(consequence,)j(the)e +(gluon)e(has)h(t)m(w)m(o)h(string)f(pieces)h(attac)m(hed,)g(and)f(the)g +(ratio)f(of)0 3665 y(gluon)e(to)g(quark)h(string)f(force)h(is)f(2,)h(a) +g(n)m(um)m(b)s(er)g(whic)m(h)g(can)g(b)s(e)g(compared)f(with)g(the)h +(ratio)e(of)h(colour)0 3774 y(c)m(harge)38 b(Casimir)d(op)s(erators,)j +Fj(N)1221 3789 y Fh(C)1280 3774 y Fj(=C)1399 3789 y Fh(F)1493 +3774 y Fw(=)d(2)p Fj(=)p Fw(\(1)25 b Fn(\000)h Fw(1)p +Fj(=)-5 b(N)2098 3737 y Fl(2)2088 3798 y Fh(C)2146 3774 +y Fw(\))35 b(=)h(9)p Fj(=)p Fw(4.)56 b(In)38 b(this,)g(as)f(in)f(other) +i(resp)s(ects,)0 3882 y(the)j(string)g(mo)s(del)e(can)i(b)s(e)g(view)m +(ed)h(as)f(a)g(v)-5 b(arian)m(t)40 b(of)g(QCD)h(where)h(the)f(n)m(um)m +(b)s(er)g(of)g(colours)f Fj(N)3720 3897 y Fh(C)0 3990 +y Fw(is)e(not)g(3)g(but)g(in\014nite.)60 b(Note)38 b(that)g(the)h +(factor)e(2)h(ab)s(o)m(v)m(e)h(do)s(es)g(not)f(dep)s(end)h(on)f(the)h +(kinematical)0 4099 y(con\014guration:)69 b(a)46 b(smaller)e(op)s +(ening)h(angle)g(b)s(et)m(w)m(een)j(t)m(w)m(o)e(partons)g(corresp)s +(onds)h(to)f(a)f(smaller)0 4207 y(string)31 b(length)g(dra)m(wn)i(out)f +(p)s(er)g(unit)f(time,)g(but)h(also)e(to)i(an)g(increased)g(transv)m +(erse)i(v)m(elo)s(cit)m(y)e(of)f(the)0 4315 y(string)i(piece,)h(whic)m +(h)g(giv)m(es)g(an)g(exactly)g(comp)s(ensating)e(b)s(o)s(ost)h(factor)g +(in)g(the)h(energy)h(densit)m(y)f(p)s(er)0 4424 y(unit)e(string)g +(length.)146 4532 y(The)g(q)p 396 4479 V(q)q(g)g(string)e(will)f +(fragmen)m(t)h(along)g(its)g(length.)42 b(T)-8 b(o)31 +b(\014rst)h(appro)m(ximation)c(this)j(means)g(that)0 +4640 y(there)38 b(is)f(one)h(fragmen)m(ting)d(string)i(piece)h(b)s(et)m +(w)m(een)h(q)f(and)f(g)i(and)e(a)g(second)i(one)f(b)s(et)m(w)m(een)h(g) +f(and)p 0 4696 V 0 4749 a(q.)82 b(One)45 b(hadron)g(is)g(straddling)f +(b)s(oth)g(string)h(pieces,)k(i.e.)81 b(sitting)43 b(around)i(the)h +(gluon)e(corner.)0 4857 y(The)c(rest)h(of)e(the)h(particles)e(are)i +(pro)s(duced)g(as)g(in)f(t)m(w)m(o)h(simple)e(q)p 2498 +4804 V(q)i(strings,)h(but)f(strings)f(b)s(o)s(osted)0 +4965 y(with)j(resp)s(ect)i(to)f(the)g(o)m(v)m(erall)e(c.m.)74 +b(frame.)f(When)43 b(considered)h(in)e(detail,)h(the)g(string)f(motion) +0 5074 y(and)33 b(fragmen)m(tation)d(is)j(more)e(complicated,)h(with)g +(the)h(app)s(earance)g(of)f(additional)e(string)i(regions)0 +5182 y(during)k(the)i(time)d(ev)m(olution)h(of)h(the)g(system.)58 +b(These)39 b(corrections)e(are)g(esp)s(ecially)f(imp)s(ortan)m(t)f(for) +0 5290 y(soft)k(and)h(collinear)d(gluons,)j(since)g(they)g(pro)m(vide)g +(a)f(smo)s(oth)f(transition)g(b)s(et)m(w)m(een)k(ev)m(en)m(ts)f(where)0 +5399 y(suc)m(h)29 b(radiation)d(to)s(ok)i(place)g(and)g(ev)m(en)m(ts)i +(where)f(it)e(did)h(not.)41 b(Therefore)30 b(the)e(string)f(fragmen)m +(tation)0 5507 y(sc)m(heme)34 b(is)e(`infrared)g(safe')h(with)f(resp)s +(ect)i(to)e(soft)h(or)f(collinear)e(gluon)i(emission.)146 +5615 y(F)-8 b(or)42 b(ev)m(en)m(ts)j(that)d(in)m(v)m(olv)m(e)h(man)m(y) +g(partons,)i(there)e(ma)m(y)g(b)s(e)f(sev)m(eral)i(p)s(ossible)e(top)s +(ologies)e(for)1841 5953 y(17)p eop +%%Page: 18 24 +18 23 bop 0 -18 a Fw(their)27 b(ordering)g(along)g(the)h(string.)42 +b(An)28 b(example)f(w)m(ould)h(b)s(e)g(a)g(q)p 2409 -71 +52 4 v(q)q(g)2510 -3 y Fl(1)2549 -18 y Fw(g)2598 -3 y +Fl(2)2665 -18 y Fw(\(the)g(gluon)f(indices)h(are)g(here)0 +90 y(used)39 b(to)e(lab)s(el)e(t)m(w)m(o)k(di\013eren)m(t)e +(gluon-momen)m(tum)e(v)m(ectors\),)40 b(where)f(the)f(string)f(can)g +(connect)i(the)0 198 y(partons)28 b(in)g(either)g(of)g(the)g(sequences) +k(q)13 b Fn(\000)g Fw(g)1642 213 y Fl(1)1696 198 y Fn(\000)g +Fw(g)1835 213 y Fl(2)1888 198 y Fn(\000)p 1978 145 V +13 w Fw(q)29 b(and)g(q)13 b Fn(\000)g Fw(g)2447 213 y +Fl(2)2501 198 y Fn(\000)g Fw(g)2640 213 y Fl(1)2693 198 +y Fn(\000)p 2783 145 V 13 w Fw(q)q(.)42 b(The)29 b(matrix)e(elemen)m +(ts)0 307 y(that)36 b(are)h(calculable)e(in)h(p)s(erturbation)g(theory) +h(con)m(tain)f(in)m(terference)i(terms)e(b)s(et)m(w)m(een)j(these)f(t)m +(w)m(o)0 415 y(p)s(ossibilities,)25 b(whic)m(h)i(means)g(that)f(the)h +(colour)f(\015o)m(w)h(is)g(not)f(alw)m(a)m(ys)h(w)m(ell-de\014ned.)42 +b(F)-8 b(ortunately)g(,)27 b(the)0 523 y(in)m(terference)k(terms)f(are) +f(do)m(wn)i(in)e(magnitude)f(b)m(y)j(a)f(factor)f(1)p +Fj(=)-5 b(N)2465 487 y Fl(2)2455 548 y Fh(C)2513 523 +y Fw(,)31 b(where)g Fj(N)2928 538 y Fh(C)3015 523 y Fw(=)c(3)j(is)f +(the)h(n)m(um)m(b)s(er)0 632 y(of)38 b(colours,)h(so)f(appro)m(ximate)f +(recip)s(es)h(can)h(b)s(e)f(found.)60 b(In)38 b(the)h(leading)d(log)h +(sho)m(w)m(er)j(description,)0 740 y(on)31 b(the)g(other)f(hand,)i(the) +f(rules)g(for)f(the)h(colour)f(\015o)m(w)h(are)f(w)m(ell-de\014ned.)44 +b(A)30 b(\014nal)g(commen)m(t:)42 b(in)30 b(the)0 848 +y(argumen)m(tation)37 b(for)i(the)g(imp)s(ortance)e(of)h(colour)g +(\015o)m(ws)i(there)g(is)e(a)g(tacit)g(assumption)g(that)h(soft-)0 +957 y(gluon)21 b(exc)m(hanges)k(b)s(et)m(w)m(een)f(partons)f(will)d +(not)i(normally)e(mess)j(up)f(the)h(original)c(colour)j(assignmen)m(t;) +0 1065 y(this)32 b(is)g(lik)m(ely)g(the)h(case)g(but)g(has)g(not)f(b)s +(een)i(pro)m(v)m(en.)0 1339 y Fp(2.5)135 b(Deca)l(ys)0 +1512 y Fw(A)27 b(large)e(fraction)g(of)h(the)h(particles)f(pro)s(duced) +h(b)m(y)h(fragmen)m(tation)c(are)j(unstable)f(and)h(subsequen)m(tly)0 +1620 y(deca)m(y)36 b(in)m(to)e(the)h(observ)-5 b(able)34 +b(stable)h(\(or)f(almost)f(stable\))h(ones.)50 b(It)35 +b(is)f(therefore)h(imp)s(ortan)m(t)e(to)h(in-)0 1728 +y(clude)k(all)d(particles)i(with)h(their)f(prop)s(er)h(mass)f +(distributions)g(and)g(deca)m(y)i(prop)s(erties.)59 b(Although)0 +1837 y(in)m(v)m(olving)43 b(little)f(deep)j(ph)m(ysics,)k(this)44 +b(is)f(less)i(trivial)d(than)i(it)f(ma)m(y)h(sound:)68 +b(while)43 b(a)h(lot)f(of)h(ex-)0 1945 y(p)s(erimen)m(tal)36 +b(information)g(is)h(a)m(v)-5 b(ailable,)38 b(there)h(is)e(also)h(v)m +(ery)i(m)m(uc)m(h)e(that)g(is)g(missing.)59 b(F)-8 b(or)38 +b(c)m(harm)0 2053 y(mesons,)44 b(it)c(is)g(necessary)j(to)e(put)g +(together)h(measured)f(exclusiv)m(e)h(branc)m(hing)f(ratios)f(with)h +(some)0 2162 y(inclusiv)m(e)33 b(m)m(ultiplicit)m(y)e(distributions)h +(to)i(obtain)f(a)g(consisten)m(t)i(and)f(reasonably)g(complete)f(set)i +(of)0 2270 y(deca)m(y)26 b(c)m(hannels,)i(a)d(rather)g(delicate)f +(task.)42 b(F)-8 b(or)24 b(b)s(ottom,)h(so)g(far)g(only)f(a)h(rather)g +(simple)f(phase-space)0 2378 y(t)m(yp)s(e)33 b(of)g(generator)f(has)h +(b)s(een)g(used)h(for)e(hadronic)g(deca)m(ys.)146 2487 +y(Normally)d(it)h(is)h(assumed)h(that)f(deca)m(y)i(pro)s(ducts)f(are)f +(distributed)g(according)g(to)g(phase)h(space,)0 2595 +y(i.e.)56 b(that)36 b(there)i(is)e(no)h(dynamics)g(in)m(v)m(olv)m(ed)g +(in)f(their)h(relativ)m(e)f(distribution.)54 b(Ho)m(w)m(ev)m(er,)40 +b(in)c(man)m(y)0 2703 y(cases)44 b(additional)c(assumptions)j(are)g +(necessary)-8 b(,)47 b(e.g.)75 b(for)42 b(semileptonic)f(deca)m(ys)j +(of)f(c)m(harm)f(and)0 2812 y(b)s(ottom)d(hadrons)i(one)g(needs)g(to)g +(include)e(the)i(prop)s(er)g(w)m(eak)g(matrix)e(elemen)m(ts.)68 +b(P)m(articles)40 b(ma)m(y)0 2920 y(also)21 b(b)s(e)i(pro)s(duced)g(p)s +(olarized)d(and)j(impart)d(a)i(non-isotropic)e(distribution)h(to)g +(their)h(deca)m(y)i(pro)s(ducts.)0 3028 y(Man)m(y)38 +b(of)d(these)j(e\013ects)g(are)e(not)h(at)f(all)e(treated)j(in)f(the)h +(program.)53 b(In)37 b(fact,)g(spin)g(information)c(is)0 +3137 y(not)f(at)h(all)d(carried)i(along,)g(but)g(has)h(to)g(b)s(e)f +(reconstructed)j(explicitly)c(when)i(needed.)146 3245 +y(The)26 b(normal)d(deca)m(y)j(treatmen)m(t)f(is)f(handled)h(b)m(y)i +Fm(Jetset)p Fw(,)e(making)e(use)j(of)e(a)h(set)g(of)g(tables)f(where)0 +3353 y(branc)m(hing)43 b(ratios)e(and)i(deca)m(y)h(mo)s(des)f(are)f +(stored.)75 b(In)43 b Fm(Pythia)g Fw(a)f(separate)h(deca)m(y)i +(treatmen)m(t)0 3462 y(exists,)34 b(used)g(exclusiv)m(ely)g(for)e(a)h +(sp)s(eci\014c)h(list)d(of)i(particles:)44 b(Z)2345 3426 +y Fl(0)2384 3462 y Fw(,)33 b(W)2545 3426 y Fk(\006)2604 +3462 y Fw(,)h(H)2738 3426 y Fl(0)2777 3462 y Fw(,)f(Z)2897 +3426 y Fk(0)p Fl(0)2956 3462 y Fw(,)g(W)3117 3426 y Fk(0\006)3195 +3462 y Fw(,)h(H)3329 3426 y Fk(0)p Fl(0)3387 3462 y Fw(,)g(A)3521 +3426 y Fl(0)3560 3462 y Fw(,)f(H)3693 3426 y Fk(\006)3752 +3462 y Fw(,)0 3570 y Fj(\021)52 3534 y Fl(0)48 3595 y(tec)n(h)180 +3570 y Fw(,)g(R)312 3534 y Fl(0)352 3570 y Fw(,)g(q)463 +3534 y Fk(\003)503 3570 y Fw(,)h Fj(`)605 3534 y Fk(\003)644 +3570 y Fw(,)g(and)f(the)h(lepto)s(quark)f(L)1616 3585 +y Fl(Q)1675 3570 y Fw(.)46 b(T)-8 b(ogether)34 b(w)m(e)h(call)c(these)k +(resonances,)g(and)f(con)m(trast)0 3678 y(the)g(`particle)f(deca)m(y')j +(treatmen)m(t)d(of)41 b Fm(Jetset)33 b Fw(with)g(the)i(`resonance)g +(deca)m(y')g(one)g(of)40 b Fm(Pythia)p Fw(.)48 b(Of)0 +3787 y(course,)41 b(this)d(is)g(just)h(a)f(matter)f(of)h(terminology:) +53 b(a)38 b(particle)f(lik)m(e)h(the)h Fj(\032)g Fw(could)e(also)h(b)s +(e)h(called)e(a)0 3895 y(resonance.)42 b(What)25 b(c)m(haracterizes)g +(a)f(\()p Fm(Pythia)p Fw(\))h(resonance)h(is)e(that)g(partial)e(widths) +j(and)g(branc)m(hing)0 4003 y(ratios)h(are)i(calculated)e(dynamically) +-8 b(,)26 b(as)i(a)f(function)g(of)g(the)h(actual)e(mass)i(of)f(a)g +(particle.)40 b(Therefore)0 4112 y(not)e(only)g(do)h(branc)m(hing)f +(ratios)f(c)m(hange)j(b)s(et)m(w)m(een)g(an)e(H)2201 +4076 y Fl(0)2279 4112 y Fw(of)g(nominal)e(mass)j(100)e(GeV)i(and)f(one) +0 4220 y(of)e(200)g(GeV,)g(but)h(also)f(for)g(a)g(Higgs)g(of)g(nominal) +e(mass)i(200)g(GeV,)h(the)g(branc)m(hing)f(ratios)g(w)m(ould)0 +4328 y(c)m(hange)26 b(b)s(et)m(w)m(een)h(an)e(actual)f(mass)h(of)g(190) +f(GeV)h(and)g(210)g(GeV,)g(sa)m(y)-8 b(.)42 b(This)25 +b(is)g(particularly)e(relev)-5 b(an)m(t)0 4437 y(for)37 +b(reasonably)g(broad)g(resonances,)j(and)e(in)e(threshold)h(regions.)57 +b(F)-8 b(or)37 b(an)g(approac)m(h)g(lik)m(e)g(this)g(to)0 +4545 y(w)m(ork,)53 b(it)48 b(is)g(clearly)f(necessary)k(to)d(ha)m(v)m +(e)i(p)s(erturbativ)m(e)e(expressions)j(a)m(v)-5 b(ailable)46 +b(for)h(all)g(partial)0 4653 y(widths,)31 b(whic)m(h)f(is)f(one)h +(reason)g(wh)m(y)h(a)e(corresp)s(onding)h(treatmen)m(t)f(w)m(ould)h +(not)f(b)s(e)h(the)g(same)f(for)h(an)0 4762 y(ordinary)i(hadronic)g +(resonance,)i(lik)m(e)e(the)h Fj(\032)p Fw(.)146 4870 +y(The)49 b(deca)m(y)f(pro)s(ducts)g(of)54 b Fm(Pythia)47 +b Fw(resonances)j(are)d(t)m(ypically)f(quarks,)52 b(leptons,)f(or)c +(other)0 4979 y(resonances,)e(e.g.)69 b(W)44 b Fn(!)e +Fw(q)p 1073 4926 V(q)1125 4942 y Fk(0)1189 4979 y Fw(or)f(H)1390 +4942 y Fl(0)1472 4979 y Fn(!)g Fw(W)1714 4942 y Fl(+)1774 +4979 y Fw(W)1875 4942 y Fk(\000)1935 4979 y Fw(.)69 b(In)41 +b(deca)m(ys)i(to)e(quarks,)j(parton)d(sho)m(w)m(ers)i(are)0 +5087 y(automatically)34 b(added)j(to)g(giv)m(e)g(a)g(more)f(realistic)g +(m)m(ultijet)f(structure,)k(and)f(one)f(ma)m(y)g(also)f(allo)m(w)0 +5195 y(photon)c(emission)f(o\013)h(leptons.)43 b(If)33 +b(the)f(deca)m(y)i(pro)s(ducts)f(in)e(turn)i(are)f(resonances,)i +(further)f(deca)m(ys)0 5304 y(are)41 b(necessary)-8 b(.)70 +b(Often)41 b(spin)g(information)d(is)i(a)m(v)-5 b(ailable)38 +b(in)i(resonance)j(deca)m(y)f(matrix)d(elemen)m(ts,)0 +5412 y(con)m(trary)48 b(to)f(the)h(normal)e(state)i(of)f(a\013airs)f +(in)h(ordinary)g(particle)f(deca)m(ys.)90 b(This)48 b(means)g(that)0 +5520 y(the)g(angular)f(orien)m(tations)g(in)g(the)h(t)m(w)m(o)h(deca)m +(ys)h(of)d(a)h(W)2262 5484 y Fl(+)2322 5520 y Fw(W)2423 +5484 y Fk(\000)2530 5520 y Fw(pair)f(are)h(prop)s(erly)g(correlated.)0 +5629 y(Occasionally)-8 b(,)31 b(the)i(information)c(is)j(not)h(a)m(v)-5 +b(ailable,)30 b(and)j(then)g(resonances)h(deca)m(y)g(isotropically)-8 +b(.)1841 5953 y(18)p eop +%%Page: 19 25 +19 24 bop 146 -18 a Fw(The)25 b(top)f(quark)h(is)f(a)g(sp)s(ecial)f +(problem.)40 b(The)25 b(original)c(mac)m(hinery)j(is)f(based)i(on)g +(the)f(assumption)0 90 y(that)f(the)g(t)f(is)h(long-liv)m(ed,)f(so)h +(that)g(top)f(hadrons)i(ha)m(v)m(e)g(time)d(to)i(form)e(in)h(the)h +(fragmen)m(tation)e(pro)s(cess,)0 198 y(and)37 b(afterw)m(ards)h(these) +g(mesons)f(deca)m(y)h(w)m(eakly)-8 b(.)57 b(With)36 b(curren)m(t)i(`b)s +(est)g(b)s(et')f(mass)g(v)-5 b(alues,)37 b(this)g(is)0 +307 y(not)e(correct,)h(but)g(one)f(should)g(rather)g(consider)h(top)f +(deca)m(y)h(b)s(efore)f(fragmen)m(tation.)49 b(T)-8 b(op)36 +b(should)0 415 y(then)i(b)s(e)f(handled)g(lik)m(e)g(one)g(of)g(the)g +(ab)s(o)m(v)m(e)h(resonances.)59 b(Therefore)38 b(the)g(program)e(no)m +(w)h(con)m(tains)0 523 y(an)32 b(alternativ)m(e)g(along)f(these)j +(lines,)e(whic)m(h)h(is)f(the)h(preferred)h(option.)1841 +5953 y(19)p eop +%%Page: 20 26 +20 25 bop 0 -18 a Ft(3)161 b(Program)53 b(Ov)l(erview)0 +189 y Fw(This)40 b(section)h(con)m(tains)f(a)g(div)m(erse)i(collection) +c(of)i(information.)63 b(The)41 b(\014rst)g(part)f(is)g(an)g(o)m(v)m +(erview)0 297 y(of)34 b(previous)h Fm(Jetset)f Fw(and)h +Fm(Pythia)g Fw(v)m(ersions.)51 b(The)35 b(second)h(giv)m(es)g +(instructions)e(for)g(installation)0 405 y(of)f(the)h(programs)f(and)h +(describ)s(es)h(their)e(philosoph)m(y:)45 b(ho)m(w)35 +b(they)f(are)g(constructed)h(and)f(ho)m(w)h(they)0 514 +y(are)f(supp)s(osed)h(to)f(b)s(e)g(used.)49 b(It)34 b(also)f(con)m +(tains)h(some)f(information)e(on)j(ho)m(w)h(to)e(read)h(this)g(man)m +(ual.)0 622 y(The)39 b(third)e(and)h(\014nal)e(part)i(con)m(tains)g +(sev)m(eral)g(examples)g(of)f(pieces)i(of)e(co)s(de)h(or)f(short)h +(programs,)0 730 y(to)e(illustrate)f(the)i(general)g(st)m(yle)g(of)f +(program)g(usage.)57 b(The)37 b(last)f(part)h(is)f(mainly)f(in)m +(tended)j(as)f(an)0 839 y(in)m(tro)s(duction)31 b(for)h(completely)g +(new)h(users,)h(and)f(can)g(b)s(e)g(skipp)s(ed)g(b)m(y)g(more)f(exp)s +(erienced)i(ones.)146 947 y(Since)48 b(the)f Fm(Jetset)g +Fw(and)g Fm(Pythia)g Fw(programs)g(to)s(da)m(y)g(are)g(so)h(closely)e +(connected,)53 b(and)47 b(are)0 1055 y(gradually)22 b(coalescing,)j +(they)g(are)f(presen)m(ted)i(together)e(in)f(this)h(rep)s(ort.)40 +b(Ho)m(w)m(ev)m(er,)28 b(they)d(still)d(app)s(ear)0 1164 +y(as)33 b(separate)g(en)m(tities,)f(with)h(sligh)m(tly)e(di\013eren)m +(t)h(st)m(yle)i(and)e(emphasis.)146 1272 y Fm(Jetset)42 +b Fw(is)g(the)h(older)f(of)h(the)g(t)m(w)m(o,)j(and)d(is)f(at)h(the)g +(origin)d(of)j(the)g(whole)f(`Lund')i(family)c(of)0 1380 +y(ev)m(en)m(t)d(generators.)52 b(It)35 b(can)g(b)s(e)h(sub)s(divided)f +(in)f(t)m(w)m(o)i(parts.)52 b(The)36 b(larger)e(is)g(a)h(generic)g(pac) +m(k)-5 b(age)36 b(for)0 1489 y(jet)27 b(fragmen)m(tation,)f(particle)f +(deca)m(ys,)30 b(\014nal-state)c(parton)h(sho)m(w)m(ers,)j(ev)m(en)m +(t-analysis)d(routines,)h(and)0 1597 y(other)h(utitilies.)40 +b(This)29 b(pac)m(k)-5 b(age)29 b(can)g(b)s(e)g(used)h(in)e(the)i(con)m +(text)g(of)e(an)m(y)i(hard)f(pro)s(cess,)i(pro)m(vided)e(one)0 +1705 y(is)e(willing)e(to)j(buy)g(the)h(underlying)e(assumption)g(of)h +(jet)g(univ)m(ersalit)m(y)-8 b(,)28 b(i.e.)41 b(that)28 +b(the)g(fragmen)m(tation)0 1814 y(pro)s(cess)k(is)e(fundamen)m(tally)f +(the)i(same)f(whether)i(one)f(is)f(considering)g(an)h(e)2812 +1778 y Fl(+)2871 1814 y Fw(e)2914 1778 y Fk(\000)3004 +1814 y Fw(or)f(a)h(pp)f(ev)m(en)m(t,)j(and)0 1922 y(that)26 +b(the)g(only)g(di\013erences)h(are)f(to)g(b)s(e)g(found)g(in)f(the)i +(parton-lev)m(el)e(pro)s(cesses)j(in)m(v)m(olv)m(ed.)42 +b(This)26 b(pac)m(k-)0 2030 y(age)33 b(is)f(not)h(only)f(used)i(b)m(y)f +(all)e(other)i(`Lund')g(programs,)f(but)i(also)d(b)m(y)j(n)m(umerous)f +(other)g(programs)0 2139 y(written)j(to)f(study)j(sp)s(eci\014c)e(pro)s +(cesses.)56 b(The)37 b(smaller)d(part)i(of)42 b Fm(Jetset)35 +b Fw(is)h(a)f(generator)h(for)g(e)3618 2103 y Fl(+)3677 +2139 y Fw(e)3720 2103 y Fk(\000)0 2247 y Fw(annihilation)g(ev)m(en)m +(ts,)44 b(according)39 b(to)g(either)g(a)g(parton-sho)m(w)m(er)i(or)e +(a)h(matrix-elemen)m(t)d(approac)m(h.)0 2355 y(The)d +Fm(Jetset)d Fw(program)g(is)h(completely)g(selfcon)m(tained.)146 +2464 y Fm(Pythia)40 b Fw(is)f(a)g(program)f(made)h(to)g(generate)h +(hard)f(or)g(soft)h(pro)s(cesses)h(in)e(collisions)d(b)s(et)m(w)m(een)0 +2572 y(leptons,)29 b(hadrons)f(and)g(photons,)h(esp)s(ecially)d(at)i(e) +1893 2536 y Fl(+)1952 2572 y Fw(e)1995 2536 y Fk(\000)2055 +2572 y Fw(,)g(ep)g(and)g(pp)g(colliders.)40 b(Where)29 +b Fm(Jetset)e Fw(is)g(a)0 2680 y(lo)s(ose)h(collection)e(of)i(routines) +g(that)g(y)m(ou)i(can)e(com)m(bine)g(as)h(desired,)h +Fm(Pythia)e Fw(is)g(a)g(more)g(structured)0 2789 y(program,)k(where)i +(y)m(ou)g(initially)29 b(set)34 b(up)f(what)h(pro)s(cesses)h(y)m(ou)f +(w)m(an)m(t)g(to)e(study)-8 b(,)35 b(and)e(thereafter)h(all)0 +2897 y(ev)m(en)m(ts)k(will)33 b(b)s(e)j(generated)h(according)e(to)g +(this)g(sp)s(eci\014cation.)52 b(Included)37 b(is)e(an)g(extensiv)m(e)j +(library)0 3005 y(of)c(hard)h(subpro)s(cess)i(di\013eren)m(tial)32 +b(cross)k(sections,)g(a)e(library)f(of)i(parton)f(distributions,)g(a)g +(pro)s(cess)0 3114 y(generation)i(mac)m(hinery)-8 b(,)38 +b(treatmen)m(t)f(of)f(initial-state)d(sho)m(w)m(ers)39 +b(and)e(b)s(eam)f(remnan)m(ts,)i(and)f(a)g(few)0 3222 +y(o)s(dds)e(and)g(ends.)51 b Fm(Jetset)34 b Fw(is)g(used)i(for)e +(\014nal-state)g(sho)m(w)m(ers,)j(fragmen)m(tation)c(and)i(deca)m(y)-8 +b(,)37 b(but)e(no)0 3330 y(other)e(external)g(libraries)d(are)j +(needed.)45 b(An)33 b(in)m(terface)g(to)f(external)h +(parton-distribution)d(function)0 3439 y(libraries)g(is)j(pro)m(vided,) +g(ho)m(w)m(ev)m(er.)146 3547 y(Man)m(y)48 b(programs)d(written)h(b)m(y) +h(other)g(p)s(ersons)g(mak)m(e)g(use)g(of)53 b Fm(Jetset)p +Fw(,)48 b(and)f(a)f(few)h(also)e(of)0 3655 y Fm(Pythia)p +Fw(.)d(It)27 b(is)g(not)h(m)m(y)f(in)m(ten)m(tion)g(to)g(giv)m(e)g(a)h +(complete)e(list)g(here.)43 b(A)27 b(ma)5 b(jorit)m(y)27 +b(of)g(these)h(programs)0 3764 y(are)i(sp)s(eci\014c)g(to)g(giv)m(en)g +(collab)s(orations,)d(and)j(therefore)h(not)e(publicly)g(distributed.) +42 b(Belo)m(w)30 b(w)m(e)h(giv)m(e)0 3872 y(a)e(list)f(of)h(a)g(few)g +(public)g(programs)f(from)g(the)i(`Lund)g(group',)g(whic)m(h)f(ma)m(y)g +(ha)m(v)m(e)i(a)e(somewhat)g(wider)0 3981 y(application.)53 +b(None)37 b(of)f(them)h(are)f(supp)s(orted)i(b)m(y)f(the)g(curren)m(t)h +(author,)g(so)e(an)m(y)i(requests)h(should)0 4089 y(b)s(e)33 +b(directed)g(to)f(the)h(p)s(ersons)h(men)m(tioned.)145 +4202 y Fn(\017)49 b Fm(Ariadne)28 b Fw(is)f(a)h(generator)g(for)g(dip)s +(ole)e(emission,)i(written)f(mainly)f(b)m(y)j(L.)f(L\177)-49 +b(onn)m(blad)28 b([P)m(et88].)244 4310 y(The)42 b(dip)s(ole)e(pro)m +(vides)i(an)f(alternativ)m(e)f(form)m(ulation)f(of)h(initial-)d(and)42 +b(\014nal-state)e(sho)m(w)m(ers.)244 4419 y Fm(Jetset)28 +b Fw(or)h Fm(Pythia)h Fw(can)f(b)s(e)h(used)g(to)f(generate)h(the)g +(hard)f(pro)s(cess)i(and)f Fm(Jetset)e Fw(to)h(do)g(the)244 +4527 y(fragmen)m(tation.)145 4645 y Fn(\017)49 b Fm(Ar)n(oma)42 +b Fw(is)e(a)h(generator)g(for)g(hea)m(vy-\015a)m(v)m(our)i(pro)s +(cesses)g(in)e(leptopro)s(duction,)h(written)f(b)m(y)244 +4753 y(G.)32 b(Ingelman)f(and)i(G.)f(Sc)m(h)m(uler)i([Ing88)o(].)44 +b(It)33 b(uses)h Fm(Jetset)d Fw(for)h(fragmen)m(tation.)145 +4871 y Fn(\017)49 b Fm(Fritiof)25 b Fw(is)g(a)f(generator)h(for)f +(hadron{hadron,)i(hadron{n)m(ucleus)g(and)f(n)m(ucleus{n)m(ucleus)i +(col-)244 4979 y(lisions)d([Nil87)n(],)k(whic)m(h)e(mak)m(es)h(use)g +(of)33 b Fm(Pythia)26 b Fw(to)g(generate)h(hard)f(QCD)g(scatterings)h +(and)f(of)244 5088 y Fm(Jetset)g Fw(for)h(fragmen)m(tation.)40 +b(Curren)m(tly)29 b(H.)e(Pi)g(is)g(resp)s(onsible)g(for)g(program)g +(dev)m(elopmen)m(t.)145 5205 y Fn(\017)49 b Fm(Lepto)24 +b Fw(is)h(a)g(leptopro)s(duction)e(ev)m(en)m(t)k(generator,)g(written)e +(mainly)e(b)m(y)j(G.)f(Ingelman)f([Ing80)o(].)244 5314 +y(It)45 b(can)h(generate)f(parton)g(con\014gurations)g(in)g(deep)h +(inelastic)d(scattering)i(according)g(to)g(a)244 5422 +y(n)m(um)m(b)s(er)31 b(of)g(p)s(ossibilities.)40 b(It)31 +b(mak)m(es)h(use)g(of)37 b Fm(Jetset)30 b Fw(for)h(fragmen)m(tation)e +(and)i(additionally)244 5530 y(has)i(a)f(parton-sho)m(w)m(er)i(option)d +(based)j(on)e Fm(Pythia)p Fw(.)145 5648 y Fn(\017)49 +b Fm(Lucifer)36 b Fw(is)g(a)g(photopro)s(duction)f(generator)h(written) +g(b)m(y)h(G.)f(Ingelman)f(and)h(A.)g(W)-8 b(eigend)1841 +5953 y(20)p eop +%%Page: 21 27 +21 26 bop 244 -18 a Fw([Ing87a)o(].)77 b(It)44 b(is)f(a)h(mo)s +(di\014cation)d(of)i(an)h(earlier)e(v)m(ersion)i(of)50 +b Fm(Pythia)44 b Fw(and)g(mak)m(es)g(use)h(of)244 90 +y Fm(Jetset)p Fw(.)145 208 y Fn(\017)k Fm(Pompyt)41 b +Fw(is)f(a)g(generator)g(for)g(p)s(omeron)g(in)m(teractions)g(written)h +(b)m(y)g(P)-8 b(.)41 b(Bruni)f(and)g(G.)h(In-)244 316 +y(gelman)35 b([Bru93].)55 b(This)37 b(program)f(de\014nes)i(parton)e +(distributions,)h(\015ux)g(factors)g(and)f(other)244 +424 y(asp)s(ects)d(sp)s(eci\014c)f(to)f(the)h(p)s(omeron,)f(whic)m(h)h +(is)e(com)m(bined)i(with)f(the)h(standard)f Fm(Pythia)h +Fw(ma-)244 533 y(c)m(hinery)h(for)f(pro)s(cess)i(generation.)145 +650 y Fn(\017)49 b Fm(Twister)31 b Fw(is)g(a)f(generator)i(for)e +(higher-t)m(wist)h(pro)s(cesses,)i(written)f(b)m(y)g(G.)e(Ingelman)h +([Ing87)o(].)244 759 y(It)i(is)f(a)g(mo)s(di\014cation)e(of)i(an)g +(earlier)f(v)m(ersion)j(of)39 b Fm(Pythia)32 b Fw(and)h(mak)m(es)g(use) +h(of)39 b Fm(Jetset)p Fw(.)0 872 y(One)d(should)f(also)f(note)i(that)f +(a)g(v)m(ersion)h(of)42 b Fm(Pythia)36 b Fw(has)f(b)s(een)h(mo)s +(di\014ed)f(to)g(include)f(the)i(e\013ects)0 980 y(of)h(longitudinally) +32 b(p)s(olarized)k(incoming)f(protons.)57 b(This)37 +b(is)f(the)i(w)m(ork)g(of)e(St.)57 b(G)s(\177)-51 b(ullenstern)35 +b(et)j(al.)0 1089 y([G)s(\177)-51 b(ul93)m(].)0 1362 +y Fp(3.1)135 b(Up)t(date)46 b(History)0 1535 y Fw(Both)31 +b Fm(Jetset)f Fw(and)g Fm(Pythia)h Fw(are)g(b)m(y)h(no)m(w)g(fairly)d +(old)g(and)i(w)m(ell-established)f(programs,)g(but)i(they)0 +1643 y(are)i(still)e(steadily)h(b)s(eing)g(impro)m(v)m(ed)h(on.)48 +b(While)33 b(ev)m(olution)g(w)m(as)i(esp)s(ecially)e(rapid)g(for)g +Fm(Jetset)g Fw(in)0 1752 y(the)c(early)f(da)m(ys,)j(that)d(program)g +(has)h(b)m(y)g(no)m(w)h(reac)m(hed)g(a)e(certain)g(lev)m(el)h(of)f +(maturit)m(y)-8 b(,)28 b(and)h(the)g(pace)0 1860 y(of)40 +b(c)m(hange)h(has)f(dropp)s(ed)h(signi\014can)m(tly)-8 +b(.)65 b Fm(Pythia)p Fw(,)42 b(on)e(the)h(other)f(hand,)i(has)f(b)s +(een)g(con)m(tin)m(ually)0 1969 y(extended)i(in)c(recen)m(t)j(y)m +(ears,)i(and)d(ma)m(y)f(still)f(see)i(further)g(gro)m(wth,)i(although)d +(most)g(of)g(the)h(basic)0 2077 y(structure)34 b(should)e(b)s(e)h(in)f +(place)g(b)m(y)i(no)m(w.)146 2185 y(In)g(earlier)f(da)m(ys,)i(b)s +(efore)f(the)g(adv)m(en)m(t)h(of)e(electronic)h(mail,)d(programs)i(w)m +(ere)i(only)e(infrequen)m(tly)0 2294 y(distributed,)49 +b(and)d(v)m(ersion)h(n)m(um)m(b)s(ers)g(corresp)s(onded)h(to)e +(distinct)f(new)i(upgrades.)85 b(T)-8 b(o)s(da)m(y)g(,)50 +b(the)0 2402 y(ev)m(olutionary)41 b(pro)s(cess)h(is)f(more)g(con)m(tin) +m(uous)h(and)g(so)f(is)g(the)h(distribution)e(of)h(new)h(v)m(ersions.) +71 b(In)0 2510 y(particular,)36 b(the)h(in)m(tro)s(duction)e(of)h(a)h +(new)g(pro)s(cess)h(or)e(feature)h(is)f(often)h(done)g(on)f(short)h +(notice,)h(if)0 2619 y(no)j(problems)f(of)h(bac)m(kw)m(ards)i +(compatibilit)m(y)38 b(are)j(in)m(v)m(olv)m(ed.)70 b(With)40 +b(this)h(distribution,)h(the)f(sub-)0 2727 y(v)m(ersion)g(n)m(um)m(b)s +(ers)h(ha)m(v)m(e)f(therefore)h(b)s(een)f(expanded)h(to)e(three)i +(digits,)f(where)h(the)f(last)e(t)m(w)m(o)j(giv)m(e)0 +2835 y(sub-sub)m(v)m(ersions.)53 b(F)-8 b(or)34 b(ev)m(ery)i(c)m(hange) +g(made)e(in)g(the)i(public)e(\014le,)h(the)g(sub-sub)m(v)m(ersion)i(n)m +(um)m(b)s(er)e(is)0 2944 y(up)s(dated,)30 b(together)f(with)g(the)g +(`last)f(date)h(of)f(c)m(hange'.)43 b(In)30 b(most)e(referencing)h(the) +g(shorter)g(`)p Fm(Jetset)0 3052 y Fw(v)m(ersion)k(7.4')f(could)h +(still)d(b)s(e)j(preferable)f(to)g(e.g.)44 b(`)p Fm(Jetset)32 +b Fw(v)m(ersion)h(7.412'.)146 3160 y(F)-8 b(or)42 b(the)g(record,)k(in) +41 b(T)-8 b(ables)42 b(1)g(and)h(2)f(w)m(e)h(list)e(the)h(o\016cial)f +(main)f(v)m(ersions)k(of)k Fm(Jetset)41 b Fw(and)0 3269 +y Fm(Pythia)p Fw(,)33 b(resp)s(ectiv)m(ely)-8 b(,)33 +b(with)g(some)f(brief)g(commen)m(ts.)146 3377 y(All)25 +b(v)m(ersions)i(preceding)h Fm(Jetset)e Fw(7.3)g(and)g +Fm(Pythia)h Fw(5.6)e(should)i(no)m(w)g(b)s(e)f(considered)h(obsolete,)0 +3485 y(and)j(are)f(no)h(longer)e(supp)s(orted.)44 b(F)-8 +b(or)28 b(stable)i(applications,)e(the)i(earlier)e(com)m(bination)f +Fm(Jetset)i Fw(6.3)0 3594 y(and)k Fm(Pythia)f Fw(4.8)h(could)f(still)e +(b)s(e)j(used,)h(ho)m(w)m(ev)m(er.)146 3702 y Fm(Jetset)42 +b Fw(v)m(ersion)h(7)g(and)f Fm(Pythia)h Fw(v)m(ersion)g(5)g(ha)m(v)m(e) +h(b)s(een)f(ev)m(olv)m(ed)h(in)e(parallel,)h(so)f(some)h(of)0 +3810 y(the)34 b(pro)s(cesses)i(added)e(in)f(later)g(v)m(ersions)i(of)40 +b Fm(Pythia)34 b Fw(mak)m(e)g(use)g(of)f(particle)g(data)g(only)g +(found)h(in)0 3919 y Fm(Jetset)f Fw(from)f(that)i(time)e(on)m(w)m +(ards.)48 b(Although)33 b(it)g(w)m(ould)g(b)s(e)h(p)s(ossible)f(to)h +(com)m(bine)f Fm(Pythia)h Fw(5.7)0 4027 y(with)c Fm(Jetset)f +Fw(7.3,)h(e.g.,)h(it)e(is)h(not)f(recommended.)43 b(F)-8 +b(rom)29 b(the)h(curren)m(t)i(v)m(ersions)f(on)m(w)m(ards,)h(c)m(hec)m +(ks)0 4135 y(ha)m(v)m(e)26 b(therefore)f(b)s(een)h(in)m(tro)s(duced)f +(to)f(detect)i(the)f(use)h(of)e(\(p)s(oten)m(tially\))e(incompatible)g +(sub)m(v)m(ersions,)0 4244 y(with)32 b(w)m(arnings)h(issued)g(at)f +(initialization)27 b(if)32 b(that)g(should)h(b)s(e)f(the)h(case.)146 +4352 y(Previous)39 b(v)m(ersions)f(of)g(the)g(man)m(uals)f(ha)m(v)m(e)i +(con)m(tained)f(detailed)e(lists)h(of)g(mo)s(di\014cations)f(from)0 +4460 y(one)42 b(v)m(ersion)g(to)g(the)g(next,)j(see)e(e.g.)71 +b([Sj\177)-49 b(o92d].)71 b(Belo)m(w)41 b(w)m(e)i(only)e(repro)s(duce)i +(the)f(up)s(dates)h(that)0 4569 y(app)s(ear)e(with)f(the)h(most)f +(recen)m(t)i(v)m(ersions)g(of)e(the)h(programs.)67 b(Some)41 +b(of)f(them)g(w)m(ere)i(in)m(tro)s(duced)0 4677 y(in)f(later)f +(editions)h(of)48 b Fm(Pythia)42 b Fw(5.6)f(with)g Fm(Jetset)g +Fw(7.3,)i(while)e(others)h(are)g(completely)e(new.)72 +b(If)0 4785 y(nothing)35 b(is)g(explicitly)f(said,)i(these)h(c)m +(hanges)g(do)f(not)g(a\013ect)g(bac)m(kw)m(ards)i(compatibilit)m(y)-8 +b(,)33 b(but)j(only)0 4894 y(add)d(new)g(features.)0 +5142 y Fo(3.1.1)112 b(Up)s(dates)39 b(in)e(JETSET)f(7.4)0 +5314 y Fw(Changes)43 b(from)e(v)m(ersion)i(7.3)e(to)h(7.4)f(are)i(not)e +(so)i(large,)g(although)e(the)h(impact)f(of)h(the)g(up)s(dated)0 +5423 y(particle)31 b(data)h(and)h(parameter)f(default)g(v)-5 +b(alues)33 b(ma)m(y)f(need)i(to)e(b)s(e)h(studied.)145 +5536 y Fn(\017)49 b Fw(P)m(article)40 b(data)h(ha)m(v)m(e)i(b)s(een)f +(up)s(dated)f(in)g(accordance)h(with)f(the)h(1992)e(Review)i(of)e(P)m +(article)244 5644 y(Prop)s(erites)28 b([PDG92)o(].)42 +b(\(As)29 b(usual,)g(with)f(a)g(free)h(in)m(terpretation)e(of)h +(inconsistencies,)h(unclar-)1841 5953 y(21)p eop +%%Page: 22 28 +22 27 bop 118 34 a Fw(T)-8 b(able)40 b(1:)59 b(The)41 +b(main)d(v)m(ersions)k(of)k Fm(Jetset)p Fw(,)c(with)e(their)f(date)i +(of)f(app)s(earance,)i(published)118 142 y(man)m(uals,)32 +b(and)g(main)f(c)m(hanges)j(from)e(previous)h(v)m(ersions.)p +193 308 3394 4 v 191 452 4 145 v 243 396 a(No.)p 440 +452 V 156 w(Date)p 857 452 V 210 w(Publ.)p 1295 452 V +155 w(Main)f(new)h(or)f(impro)m(v)m(ed)h(features)p 3583 +452 V 193 455 3394 4 v 191 575 4 121 v 293 543 a(1)p +440 575 V 158 w(No)m(v)g(78)p 857 575 V 134 w([Sj\177)-49 +b(o78])p 1295 575 V 127 w(single-quark)31 b(jets)p 3583 +575 V 191 696 V 293 663 a(2)p 440 696 V 150 w(Ma)m(y)i(79)p +857 696 V 126 w([Sj\177)-49 b(o79])p 1295 696 V 127 w(hea)m(vy-\015a)m +(v)m(our)34 b(jets)p 3583 696 V 191 816 V 255 784 a(3.1)p +440 816 V 117 w(Aug)f(79)p 857 816 V 225 w(|)p 1295 816 +V 220 w(2-jets)f(in)g(e)1767 747 y Fl(+)1826 784 y Fw(e)1869 +747 y Fk(\000)1929 784 y Fw(,)g(preliminary)e(3-jets)p +3583 816 V 191 937 V 255 904 a(3.2)p 440 937 V 122 w(Apr)j(80)p +857 937 V 137 w([Sj\177)-49 b(o80])p 1295 937 V 127 w(3-jets)32 +b(in)g(e)1767 868 y Fl(+)1826 904 y Fw(e)1869 868 y Fk(\000)1961 +904 y Fw(with)g(full)f(matrix)g(elemen)m(ts,)p 3583 937 +V 191 1057 V 440 1057 V 857 1057 V 1295 1057 V 1347 1024 +a(top)s(onium)f Fn(!)e Fw(ggg)33 b(deca)m(ys)p 3583 1057 +V 191 1177 V 255 1145 a(3.3)p 440 1177 V 117 w(Aug)g(80)p +857 1177 V 225 w(|)p 1295 1177 V 220 w(softer)f(fragmen)m(tation)f(sp)s +(ectrum)p 3583 1177 V 191 1298 V 255 1265 a(4.1)p 440 +1298 V 122 w(Apr)i(81)p 857 1298 V 231 w(|)p 1295 1298 +V 220 w(bary)m(on)g(pro)s(duction)f(and)g(diquark)h(fragmen)m(tation,)p +3583 1298 V 191 1418 V 440 1418 V 857 1418 V 1295 1418 +V 1347 1386 a(fourth-generation)e(quarks,)j(larger)d(jet)i(systems)p +3583 1418 V 191 1538 V 255 1506 a(4.2)p 440 1538 V 120 +w(No)m(v)g(81)p 857 1538 V 228 w(|)p 1295 1538 V 220 +w(lo)m(w-)p Fj(p)1573 1521 y Fk(?)1663 1506 y Fw(ph)m(ysics)p +3583 1538 V 191 1659 V 255 1626 a(4.3)p 440 1659 V 117 +w(Mar)g(82)p 857 1659 V 131 w([Sj\177)-49 b(o82])p 1295 +1659 V 127 w(4-jets)32 b(and)h(QFD)e(structure)j(in)e(e)2621 +1590 y Fl(+)2680 1626 y Fw(e)2723 1590 y Fk(\000)2783 +1626 y Fw(,)p 3583 1659 V 191 1779 V 440 1779 V 519 1747 +a(Jul)g(82)p 857 1779 V 154 w([Sj\177)-49 b(o83])p 1295 +1779 V 127 w(ev)m(en)m(t-analysis)33 b(routines)p 3583 +1779 V 191 1900 V 255 1867 a(5.1)p 440 1900 V 122 w(Apr)g(83)p +857 1900 V 231 w(|)p 1295 1900 V 220 w(impro)m(v)m(ed)f(string)g +(fragmen)m(tation)f(sc)m(heme,)i(symmetric)p 3583 1900 +V 191 2020 V 440 2020 V 857 2020 V 1295 2020 V 1347 1987 +a(fragmen)m(tation,)d(full)h(2)2222 1951 y Fl(nd)2337 +1987 y Fw(order)i(QCD)f(for)g(e)3037 1951 y Fl(+)3096 +1987 y Fw(e)3139 1951 y Fk(\000)p 3583 2020 V 191 2140 +V 255 2108 a Fw(5.2)p 440 2140 V 120 w(No)m(v)h(83)p +857 2140 V 228 w(|)p 1295 2140 V 220 w(momen)m(tum-conserv)-5 +b(ation)30 b(sc)m(hemes)k(for)e(IF,)p 3583 2140 V 191 +2261 V 440 2261 V 857 2261 V 1295 2261 V 1347 2228 a(initial-state)c +(photon)33 b(radiation)d(in)i(e)2772 2192 y Fl(+)2831 +2228 y Fw(e)2874 2192 y Fk(\000)p 3583 2261 V 191 2381 +V 255 2349 a Fw(5.3)p 440 2381 V 112 w(Ma)m(y)h(84)p +857 2381 V 220 w(|)p 1295 2381 V 220 w(`p)s(op)s(corn')f(mo)s(del)f +(for)h(bary)m(on)h(pro)s(duction)p 3583 2381 V 191 2501 +V 255 2469 a(6.1)p 440 2501 V 129 w(Jan)f(85)p 857 2501 +V 237 w(|)p 1295 2501 V 220 w(common)f(blo)s(c)m(ks)i(restructured,)h +(parton)e(sho)m(w)m(ers)p 3583 2501 V 191 2622 V 255 +2589 a(6.2)p 440 2622 V 126 w(Oct)h(85)p 857 2622 V 141 +w([Sj\177)-49 b(o86])p 1295 2622 V 127 w(error)32 b(detection)p +3583 2622 V 191 2742 V 255 2710 a(6.3)p 440 2742 V 126 +w(Oct)h(86)p 857 2742 V 141 w([Sj\177)-49 b(o87])p 1295 +2742 V 127 w(new)33 b(parton-sho)m(w)m(er)h(sc)m(heme)p +3583 2742 V 191 2863 V 255 2830 a(7.1)p 440 2863 V 129 +w(F)-8 b(eb)32 b(89)p 857 2863 V 237 w(|)p 1295 2863 +V 220 w(new)h(particle)e(co)s(des)j(and)e(common)g(blo)s(c)m(k)g +(structure,)p 3583 2863 V 191 2983 V 440 2983 V 857 2983 +V 1295 2983 V 1347 2950 a(more)f(mesons,)j(impro)m(v)m(ed)e(deca)m(ys,) +j(v)m(ertex)f(information,)p 3583 2983 V 191 3103 V 440 +3103 V 857 3103 V 1295 3103 V 1347 3071 a(Ab)s(elian)d(gluon)g(mo)s +(del,)g(Bose{Einstein)i(e\013ects)p 3583 3103 V 191 3224 +V 255 3191 a(7.2)p 440 3224 V 120 w(No)m(v)g(89)p 857 +3224 V 228 w(|)p 1295 3224 V 220 w(in)m(terface)f(to)g(new)i(standard)f +(common)e(blo)s(c)m(k,)p 3583 3224 V 191 3344 V 440 3344 +V 857 3344 V 1295 3344 V 1347 3312 a(photon)h(emission)f(in)h(sho)m(w)m +(ers)p 3583 3344 V 191 3465 V 255 3432 a(7.3)p 440 3465 +V 112 w(Ma)m(y)h(90)p 857 3465 V 99 w([Sj\177)-49 b(o92d])p +1295 3465 V 100 w(expanded)34 b(supp)s(ort)f(for)f(non-standard)g +(particles)p 3583 3465 V 191 3609 4 145 v 255 3552 a(7.4)p +440 3609 V 124 w(Dec)h(93)p 857 3609 V 139 w([Sj\177)-49 +b(o94])p 1295 3609 V 127 w(up)s(dated)33 b(particle)e(data)h(and)h +(defaults)p 3583 3609 V 193 3612 3394 4 v 244 3961 a(ities)39 +b(and)h(other)h(gaps)f(in)g(the)h(kno)m(wledge.\))67 +b(Changes)41 b(are)g(esp)s(ecially)e(drastic)h(for)g(c)m(harm)244 +4069 y(and)34 b(b)s(ottom.)48 b(In)35 b(the)f(b)s(ottom)f(sector)j(the) +e(deca)m(y)i(prop)s(erties)f(are)f(no)m(w)h(giv)m(en)g(individually)244 +4177 y(for)k(B)469 4141 y Fl(0)509 4177 y Fw(,)i(B)646 +4141 y Fl(+)705 4177 y Fw(,)h(B)843 4141 y Fl(0)843 4202 +y(s)883 4177 y Fw(,)f(B)1020 4141 y Fl(+)1020 4202 y(c)1119 +4177 y Fw(and)f(\003)1384 4141 y Fl(0)1384 4202 y(b)1427 +4177 y Fw(,)i(i.e.)64 b(the)41 b(generic)e(data)h(for)f +(`pseudoparticle')h(85)f(are)h(only)244 4286 y(used)34 +b(for)e(other)g(w)m(eakly)i(deca)m(ying)f(B)f(bary)m(ons.)145 +4403 y Fn(\017)49 b Fw(Also)40 b(a)g(few)i(other)e(Standard)h(Mo)s(del) +f(parameters)h(ha)m(v)m(e)h(b)s(een)f(up)s(dated,)i(suc)m(h)g(as)d(the) +h(Z)3740 4367 y Fl(0)244 4512 y Fw(and)33 b(W)535 4476 +y Fk(\006)627 4512 y Fw(masses)g(and)g(widths,)g(sin)1599 +4472 y Fl(2)1639 4512 y Fj(\022)1684 4527 y Fh(W)1797 +4512 y Fw(and)g(the)g(CKM)g(matrix)e(elemen)m(ts.)145 +4629 y Fn(\017)49 b Fw(F)-8 b(ragmen)m(tation)28 b(and)j(parton)f(sho)m +(w)m(er)j(parameters)d(ha)m(v)m(e)i(b)s(een)g(mo)s(di\014ed)d(to)i +(re\015ect)g(curren)m(t)244 4738 y(LEP)c(kno)m(wledge)g([LEP90],)h +(i.e.)41 b(a)26 b(minor)e(retuning)i(starting)f(from)g(an)h(a)m(v)m +(erage)h(of)f(the)h(`b)s(est')244 4846 y(parameter)41 +b(v)-5 b(alues)42 b(obtained)g(b)m(y)h(the)f(four)g(LEP)g(collab)s +(orations.)69 b(Bose-Einstein)42 b(e\013ects)244 4955 +y(are)35 b(still)e(left)i(out.)51 b(Fla)m(v)m(our)35 +b(comp)s(osition)e(is)i(unc)m(hanged,)i(except)g(for)e(a)g(suppression) +i(of)e Fj(\021)3757 4918 y Fk(0)244 5063 y Fw(pro)s(duction.)42 +b(A\013ected)31 b(b)m(y)h(the)e(c)m(hange)h(are)g Fq(MSTJ\(11\))p +Fw(,)i Fq(PARJ\(21\))p Fw(,)f Fq(PARJ\(23\))p Fw(,)h +Fq(PARJ\(24\))p Fw(,)244 5171 y Fq(PARJ\(41\))p Fw(,)i +Fq(PARJ\(42\))p Fw(,)f Fq(PARJ\(54\))p Fw({)p Fq(PARJ\(58\))j +Fw(and)c Fq(PARJ\(81\))p Fw(.)145 5289 y Fn(\017)49 b +Fw(Sev)m(eral)34 b(other)h(default)e(v)-5 b(alues)34 +b(ha)m(v)m(e)i(b)s(een)f(c)m(hanged)g(for)f(switc)m(hes)h(and)g +(parameters)f(in)f(the)244 5397 y(e)287 5361 y Fl(+)346 +5397 y Fw(e)389 5361 y Fk(\000)449 5397 y Fw(,)k(parton)f(sho)m(w)m(er) +i(and)e(fragmen)m(tation)f(parts)h(of)g(the)h(programs.)54 +b(These)38 b(c)m(hanges)f(are)244 5506 y(in)m(tended)27 +b(to)f(re\015ect)h(our)g(curren)m(t)g(b)s(est)g(kno)m(wledge.)43 +b(See)27 b Fq(MSTJ\(26\))p Fw(,)j Fq(MSTJ\(27\))p Fw(,)f +Fq(MSTJ\(41\))p Fw(,)244 5614 y Fq(MSTJ\(46\))p Fw(,)35 +b Fq(MSTJ\(50\))p Fw(,)f Fq(MSTJ\(110\))p Fw(,)h Fq(PARJ\(26\))p +Fw(,)g(and)e Fq(PARJ\(121\))p Fw({)p Fq(PARJ\(125\))p +Fw(.)1841 5953 y(22)p eop +%%Page: 23 29 +23 28 bop 118 34 a Fw(T)-8 b(able)39 b(2:)56 b(The)40 +b(main)e(v)m(ersions)i(of)46 b Fm(Pythia)p Fw(,)41 b(with)d(their)h +(date)g(of)g(app)s(earance,)i(published)118 142 y(man)m(uals,)32 +b(and)g(main)f(c)m(hanges)j(from)e(previous)h(v)m(ersions.)p +105 308 3569 4 v 103 452 4 145 v 155 396 a(No.)p 352 +452 V 156 w(Date)p 769 452 V 225 w(Publ.)p 1236 452 V +168 w(Main)f(new)i(or)e(impro)m(v)m(ed)g(features)p 3671 +452 V 105 455 3569 4 v 103 575 4 121 v 205 543 a(1)p +352 575 V 163 w(Dec)h(82)p 769 575 V 136 w([Ben84])p +1236 575 V 124 w(syn)m(thesis)i(of)d(predecessors)j Fm(Compton)p +Fw(,)f Fm(Highpt)e Fw(and)p 3671 575 V 103 696 V 352 +696 V 769 696 V 1236 696 V 1287 663 a Fm(Kassandra)p +3671 696 V 103 816 V 205 784 a Fw(2)p 352 816 V 260 w(|)p +769 816 V 1236 816 V 3671 816 V 103 937 V 167 904 a(3.1)p +352 937 V 222 w(|)p 769 937 V 1236 937 V 3671 937 V 103 +1057 V 167 1024 a(3.2)p 352 1057 V 222 w(|)p 769 1057 +V 1236 1057 V 3671 1057 V 103 1177 V 167 1145 a(3.3)p +352 1177 V 129 w(F)-8 b(eb)32 b(84)p 769 1177 V 117 w([Ben84a])p +1236 1177 V 99 w(scale-breaking)g(parton)h(distributions)p +3671 1177 V 103 1298 V 167 1265 a(3.4)p 352 1298 V 130 +w(Sep)g(84)p 769 1298 V 141 w([Ben85])p 1236 1298 V 124 +w(more)f(e\016cien)m(t)i(kinematics)d(selection)p 3671 +1298 V 103 1418 V 167 1386 a(4.1)p 352 1418 V 125 w(Dec)i(84)p +769 1418 V 1236 1418 V 578 w(initial-)c(and)j(\014nal-state)g(parton)g +(sho)m(w)m(ers,)j(W)f(and)f(Z)p 3671 1418 V 103 1538 +V 167 1506 a(4.2)p 352 1538 V 126 w(Jun)g(85)p 769 1538 +V 1236 1538 V 580 w(m)m(ultiple)d(in)m(teractions)p 3671 +1538 V 103 1659 V 167 1626 a(4.3)p 352 1659 V 117 w(Aug)j(85)p +769 1659 V 1236 1659 V 571 w(WW)q(,)h(WZ,)e(ZZ)g(and)h(R)f(pro)s +(cesses)p 3671 1659 V 103 1779 V 167 1747 a(4.4)p 352 +1779 V 120 w(No)m(v)h(85)p 769 1779 V 1236 1779 V 574 +w Fj(\015)5 b Fw(W)q(,)34 b Fj(\015)5 b Fw(Z,)32 b Fj(\015)5 +b(\015)37 b Fw(pro)s(cesses)p 3671 1779 V 103 1900 V +167 1867 a(4.5)p 352 1900 V 129 w(Jan)32 b(86)p 769 1900 +V 1236 1900 V 583 w(H)1360 1831 y Fl(0)1432 1867 y Fw(pro)s(duction,)g +(di\013ractiv)m(e)g(and)h(elastic)f(ev)m(en)m(ts)p 3671 +1900 V 103 2020 V 167 1987 a(4.6)p 352 2020 V 112 w(Ma)m(y)h(86)p +769 2020 V 1236 2020 V 566 w(angular)f(correlation)e(in)i(resonance)i +(pair)e(deca)m(ys)p 3671 2020 V 103 2140 V 167 2108 a(4.7)p +352 2140 V 112 w(Ma)m(y)h(86)p 769 2140 V 1236 2140 V +566 w(Z)1347 2072 y Fk(0)p Fl(0)1438 2108 y Fw(and)g(H)1701 +2072 y Fl(+)1792 2108 y Fw(pro)s(cesses)p 3671 2140 V +103 2261 V 167 2228 a(4.8)p 352 2261 V 129 w(Jan)f(87)p +769 2261 V 141 w([Ben87])p 1236 2261 V 124 w(v)-5 b(ariable)31 +b(impact)g(parameter)h(in)g(m)m(ultiple)e(in)m(teractions)p +3671 2261 V 103 2381 V 167 2349 a(4.9)p 352 2381 V 112 +w(Ma)m(y)j(87)p 769 2381 V 1236 2381 V 566 w(gH)1409 +2312 y Fl(+)1501 2349 y Fw(pro)s(cess)p 3671 2381 V 103 +2501 V 167 2469 a(5.1)p 352 2501 V 112 w(Ma)m(y)g(87)p +769 2501 V 1236 2501 V 566 w(massiv)m(e)g(matrix)e(elemen)m(ts)i(for)f +(hea)m(vy)i(quarks)p 3671 2501 V 103 2622 V 167 2589 +a(5.2)p 352 2622 V 126 w(Jun)f(87)p 769 2622 V 1236 2622 +V 580 w(in)m(termediate)f(b)s(oson)g(scattering)p 3671 +2622 V 103 2742 V 167 2710 a(5.3)p 352 2742 V 127 w(Oct)g(89)p +769 2742 V 1236 2742 V 581 w(new)i(particle)d(and)i(subpro)s(cess)h(co) +s(des,)g(new)f(common)f(blo)s(c)m(k)p 3671 2742 V 103 +2863 V 352 2863 V 769 2863 V 1236 2863 V 1287 2830 a(structure,)i(new)g +(kinematics)d(selection,)i(some)p 3671 2863 V 103 2983 +V 352 2983 V 769 2983 V 1236 2983 V 1287 2950 a(lepton{lepton)f(and)g +(lepton{hadron)g(in)m(teractions,)p 3671 2983 V 103 3103 +V 352 3103 V 769 3103 V 1236 3103 V 1287 3071 a(new)i(subpro)s(cesses)p +3671 3103 V 103 3224 V 167 3191 a(5.4)p 352 3224 V 126 +w(Jun)f(90)p 769 3224 V 1236 3224 V 580 w Fj(s)p Fw(-dep)s(enden)m(t)h +(widths,)f(resonances)i(not)d(on)h(the)g(mass)f(shell,)p +3671 3224 V 103 3344 V 352 3344 V 769 3344 V 1236 3344 +V 1287 3312 a(new)i(pro)s(cesses,)h(new)e(parton)f(distributions)p +3671 3344 V 103 3465 V 167 3432 a(5.5)p 352 3465 V 129 +w(Jan)g(91)p 769 3465 V 1236 3465 V 583 w(impro)m(v)m(ed)h(e)1756 +3396 y Fl(+)1815 3432 y Fw(e)1858 3396 y Fk(\000)1950 +3432 y Fw(and)g(ep,)g(sev)m(eral)g(new)h(pro)s(cesses)p +3671 3465 V 103 3585 V 167 3552 a(5.6)p 352 3585 V 130 +w(Sep)f(91)p 769 3585 V 131 w([Sj\177)-49 b(o92d)o(])p +1236 3585 V 114 w(reorganized)33 b(parton)f(distributions,)f(new)j(pro) +s(cesses,)p 3671 3585 V 103 3705 V 352 3705 V 769 3705 +V 1236 3705 V 1287 3673 a(user-de\014ned)h(external)d(pro)s(cesses)p +3671 3705 V 103 3849 4 145 v 167 3793 a(5.7)p 352 3849 +V 125 w(Dec)h(93)p 769 3849 V 153 w([Sj\177)-49 b(o94)o(])p +1236 3849 V 141 w(new)34 b(total)d(cross)i(sections,)h(photopro)s +(duction,)e(top)g(deca)m(y)p 3671 3849 V 105 3853 3569 +4 v 145 4201 a Fn(\017)49 b Fw(A)28 b(common)e(title)g(page)h(for)g +Fm(Jetset)g Fw(and)h Fm(Pythia)g Fw(has)g(b)s(een)g(in)m(tro)s(duced)g +(with)f(the)h Fq(LULOGO)244 4310 y Fw(routine.)43 b(Sub-sub)m(v)m +(ersion)34 b(n)m(um)m(b)s(ers)g(are)e(also)g(giv)m(en.)145 +4427 y Fn(\017)49 b Fw(Sev)m(eral)c(options)e(ha)m(v)m(e)j(b)s(een)f +(added)g(for)f(the)h Fq(LUSHOW)h Fw(sho)m(w)m(er)g(routine.)78 +b(See)45 b Fq(MSTJ\(41\))p Fw(,)244 4536 y Fq(MSTJ\(47\))35 +b Fw(and)d Fq(MSTJ\(50\))p Fw(.)145 4654 y Fn(\017)49 +b Fw(A)31 b(b)g(quark)g(pro)s(duced)h(in)e(the)h(deca)m(y)i(of)d(a)g +(top)h(hadron)g(is)f(allo)m(w)m(ed)g(to)h(radiate)f(according)g(to)244 +4762 y(the)j(standard)g(parton)f(sho)m(w)m(er)i(sc)m(heme.)145 +4880 y Fn(\017)49 b Fw(The)39 b(scalar)e(gluon)g(option)f(con)m(tains)i +(the)g(full)e(electro)m(w)m(eak)j(angular)e(distribution)f(of)h(3-jet) +244 4988 y(ev)m(en)m(ts.)145 5106 y Fn(\017)49 b Fw(The)37 +b Fq(LUCOMP)g Fw(routine)e(has)h(b)s(een)g(mo)s(di\014ed.)52 +b(Among)35 b(other)h(things,)g(the)g(B)3150 5070 y Fl(+)3150 +5130 y(c)3245 5106 y Fw(no)m(w)g(app)s(ears)244 5214 +y(as)c(a)g(separate)h(compressed)h(co)s(de,)e(further)h(co)s(des)g(for) +f(di\013ractiv)m(e)f(states)i(ha)m(v)m(e)h(b)s(een)f(added)244 +5323 y(to)d(the)g(curren)m(t)h(list,)e(and)h(the)h(p)s(omeron)e +(\(reggeon,)i Fj(\021)2273 5338 y Fl(tec)n(hni)2463 5323 +y Fw(\))f(has)h(b)s(een)f(added)h(as)f(particle)f(29)244 +5431 y(\(28,)j(38\).)145 5549 y Fn(\017)49 b Fw(A)25 +b(minim)m(um)c(threshold)k(for)f(calorimeter)e(cell)i(energy)h(has)h(b) +s(een)f(in)m(tro)s(duced)g(for)f(the)h Fq(LUCELL)244 +5657 y Fw(routine.)1841 5953 y(23)p eop +%%Page: 24 30 +24 29 bop 145 -18 a Fn(\017)49 b Fw(All)42 b(obsolescen)m(t)j(features) +f(of)f(the)i(F)-8 b(ortran)42 b(90)i(standard)g(ha)m(v)m(e)h(b)s(een)f +(remo)m(v)m(ed,)k(i.e.)76 b(the)244 90 y(program)36 b(should)h(w)m(ork) +h(w)m(ell)f(either)g(with)g(a)g(F)-8 b(ortran)36 b(77)h(compiler)f(or)h +(with)g(a)g(F)-8 b(ortran)36 b(90)244 198 y(one.)145 +316 y Fn(\017)49 b Fw(A)33 b(few)g(minor)d(errors)j(ha)m(v)m(e)h(b)s +(een)g(corrected.)146 429 y(The)46 b(follo)m(wing)c(c)m(hanges)j(ha)m +(v)m(e)h(b)s(een)g(made)e(since)h(the)g(b)s(eginning)e(of)h(1994,)i +(i.e.)79 b(since)45 b(the)0 537 y(original)29 b(distribution)i(7.400:) +119 650 y(1.)49 b Fm(Jetset)31 b Fw(v)m(ersion)i(7.401,)f(11)g(F)-8 +b(ebruary)33 b(1994:)360 768 y Fn(\017)48 b Fw(Protect)34 +b(against)d(o)m(v)m(er\015o)m(w)k(in)c Fq(LUZDIS)j Fw(\(needed)h(on)d +(some)g(mac)m(hines\).)119 886 y(2.)49 b Fm(Jetset)31 +b Fw(v)m(ersion)i(7.402,)f(7)h(April)e(1994:)360 1004 +y Fn(\017)48 b Fw(New)33 b(option)d(to)g(suppress)k(either)d(hard)g(or) +g(soft)g(radiation)e(in)h Fq(LUSHOW)p Fw(,)j(see)f Fq(MSTJ\(40\))p +Fw(.)360 1122 y Fn(\017)48 b Fw(A)d(generic)e(in)m(terface)h(to)g(an)g +(external)g Fj(\034)55 b Fw(deca)m(y)46 b(library)c(has)j(b)s(een)f(in) +m(tro)s(duced,)j(see)458 1230 y Fq(MSTJ\(28\))35 b Fw(and)e +Fq(SUBROUTINE)54 b(LUTAUD)p Fw(.)360 1348 y Fn(\017)48 +b Fw(In)28 b(a)e(few)h(places,)i(a)d(dot)h(has)g(b)s(een)h(mo)m(v)m(ed) +f(from)f(the)h(end)g(of)g(one)g(line)e(to)i(the)g(b)s(eginning)458 +1456 y(of)i(the)g(next)h(con)m(tin)m(uation)e(line,)g(or)g(the)i(other) +e(w)m(a)m(y)j(around,)e(to)g(k)m(eep)h(together)f(tok)m(ens)458 +1564 y(suc)m(h)35 b(as)d Fq(.EQ.)i Fw(or)e Fq(.AND.)p +Fw(,)i(since)f(some)f(debuggers)i(ma)m(y)f(otherwise)g(complain.)360 +1682 y Fn(\017)48 b Fw(A)33 b(source)h(of)e(\(harmless\))g(division)f +(b)m(y)i(zero)g(in)f Fq(LUSHOW)i Fw(has)f(b)s(een)g(remo)m(v)m(ed.)119 +1800 y(3.)49 b Fm(Jetset)31 b Fw(v)m(ersion)i(7.403,)f(15)g(July)h +(1994:)360 1918 y Fn(\017)48 b Fw(Leptons)k(and)f(photons)g(whic)m(h)g +(are)g(unrelated)g(to)f(the)h(system)h(feeling)d(the)i(Bose-)458 +2026 y(Einstein)31 b(e\013ects)h(do)f(not)g(ha)m(v)m(e)h(their)e +(energies)i(and)f(momen)m(ta)e(c)m(hanged)j(in)f(the)g(global)458 +2135 y(rescaling)i(step)h(of)40 b Fq(LUBOEI)p Fw(.)35 +b(\(Example:)44 b(W)2138 2098 y Fl(+)2198 2135 y Fw(W)2299 +2098 y Fk(\000)2391 2135 y Fw(ev)m(en)m(ts,)36 b(where)f(one)e(W)i +(deca)m(ys)g(lep-)458 2243 y(tonically;)51 b(b)s(efore)45 +b(these)i(lepton)f(momen)m(ta)e(could)i(b)s(e)f(sligh)m(tly)g(c)m +(hanged,)50 b(but)c(no)m(w)458 2351 y(not.\))d(F)-8 b(urther,)32 +b(the)g Fq(LUBOEI)i Fw(routine)d(has)h(b)s(een)g(c)m(hanged)h(to)e(a)m +(v)m(oid)g(an)h(unin)m(ten)m(tional)458 2460 y(gap)h(in)f(the)h(limits) +c(of)j(the)h(v)m(ery)h(\014rst)f(bin.)360 2577 y Fn(\017)48 +b Fw(The)43 b(option)d Fq(LUEDIT\(16\))k Fw(\(used)e(e.g.)70 +b(from)40 b Fq(PYEVNT)p Fw(\))i(has)g(b)s(een)g(impro)m(v)m(ed)f(with)g +(a)458 2686 y(more)32 b(extensiv)m(e)j(searc)m(h)f(for)e(missing)f +(daugh)m(ter)i(p)s(oin)m(ters.)360 2803 y Fn(\017)48 +b Fw(The)37 b Fq(KLU\(I,16\))i Fw(pro)s(cedure)e(for)e(\014nding)h +(rank)g(has)g(b)s(een)h(rewritten)f(to)g(w)m(ork)h(in)e(the)458 +2912 y(curren)m(t)42 b Fm(Jetset)d Fw(v)m(ersion,)44 +b(whic)m(h)d(it)e(did)h(not)g(b)s(efore.)68 b(Ho)m(w)m(ev)m(er,)44 +b(note)d(that)f(it)g(will)458 3020 y(only)d(w)m(ork)i(for)e +Fq(MSTU\(16\)=2)p Fw(.)60 b(As)38 b(a)g(general)f(commen)m(t,)h(the)g +(options)f(14{17)f(of)44 b Fq(KLU)458 3129 y Fw(w)m(ere)e(written)e(at) +h(a)f(time)f(when)i(p)s(ossible)f(ev)m(en)m(t)i(histories)e(w)m(ere)i +(less)e(complex,)i(and)458 3237 y(can)33 b(not)g(b)s(e)g(guaran)m(teed) +g(alw)m(a)m(ys)g(to)f(w)m(ork)i(to)s(da)m(y)-8 b(.)119 +3355 y(4.)49 b Fm(Jetset)31 b Fw(v)m(ersion)i(7.404,)f(25)g(August)i +(1994:)360 3472 y Fn(\017)48 b Fq(LUSHOW)g Fw(has)e(b)s(een)g +(corrected,)51 b(so)46 b(that)f(if)g(t,)k(l)c(or)g(h)h(quarks)h(\(or)e +(d)3140 3436 y Fk(\003)3225 3472 y Fw(or)h(u)3412 3436 +y Fk(\003)3497 3472 y Fw(quarks)458 3581 y(mask)m(ed)33 +b(as)g(l)e(or)h(h)g(ones\))h(are)f(giv)m(en)g(with)g(masses)h(that)f(v) +-5 b(ary)32 b(from)f(ev)m(en)m(t)j(to)e(ev)m(en)m(t)i(\(a)458 +3689 y(Breit-Wigner)k(shap)s(e,)j(e.g.\),)f(the)f(curren)m(t)h(mass)f +(rather)f(than)h(the)g(nominal)d(mass)j(is)458 3797 y(used)34 +b(to)e(de\014ne)i(the)f(cut-o\013)f(scales)i(of)e(parton)g(sho)m(w)m +(er)i(ev)m(olution.)360 3915 y Fn(\017)48 b Fq(LULOGO)40 +b Fw(has)f(b)s(een)g(mo)s(di\014ed)e(to)h(tak)m(e)h(in)m(to)f(accoun)m +(t)h(that)f(a)g(new)i Fm(Pythia/Jetset)458 4024 y Fw(description)33 +b(has)g(b)s(een)g(published)f(in)458 4132 y(T.)i(Sj\177)-49 +b(ostrand,)32 b(Computer)h(Ph)m(ys.)45 b(Comm)m(un.)e +Fo(82)33 b Fw(\(1994\))e(74)458 4240 y(and)i(is)f(from)g(no)m(w)h(on)f +(the)h(standard)g(reference)h(to)f(these)h(t)m(w)m(o)f(programs.)119 +4358 y(5.)49 b Fm(Jetset)31 b Fw(v)m(ersion)i(7.405,)f(27)g(Jan)m(uary) +i(1995:)360 4476 y Fn(\017)48 b Fq(LUCELL)27 b Fw(has)e(b)s(een)g +(corrected,)j(in)c(that)g(in)g(the)h(option)f(with)g(smearing)f(of)i +(energy)g(rather)458 4584 y(than)37 b(transv)m(erse)h(energy)-8 +b(,)38 b(the)f(con)m(v)m(ersion)g(factor)f(b)s(et)m(w)m(een)i(the)e(t)m +(w)m(o)h(w)m(as)g(applied)e(in)458 4693 y(the)e(wrong)g(direction.)360 +4810 y Fn(\017)48 b Fq(LUSHOW)33 b Fw(has)d(b)s(een)i(corrected)f(in)f +(one)h(place)f(where)i(the)f(PMTH)g(arra)m(y)g(w)m(as)h(addressed)458 +4919 y(with)38 b(the)g(wrong)g(order)g(of)f(the)h(indices.)59 +b(This)38 b(a\013ected)g(quark)h(mass)e(corrections)h(in)458 +5027 y(the)33 b(matc)m(hing)f(to)g(the)h(three-jet)g(matrix)e(elemen)m +(ts.)360 5145 y Fn(\017)48 b Fw(An)38 b(additional)d(c)m(hec)m(k)40 +b(has)e(b)s(een)h(included)e(in)g Fq(LUBOEI)i Fw(that)f(there)g(are)g +(at)f(least)h(t)m(w)m(o)458 5253 y(particles)k(in)m(v)m(olv)m(ed)h(in)e +(the)i(Bose-Einstein)f(e\013ects.)73 b(\(No)42 b(problem)f(except)j(in) +e(some)458 5362 y(bizarre)33 b(situations.\))119 5479 +y(6.)49 b Fm(Jetset)31 b Fw(v)m(ersion)i(7.406,)f(20)g(F)-8 +b(ebruary)33 b(1995:)360 5597 y Fn(\017)48 b Fw(A)c(new)h(option)e(has) +h(b)s(een)g(added)h(for)e(the)h(b)s(eha)m(viour)g(of)f(the)h(running)g +Fj(\013)3368 5612 y Fl(em)3462 5597 y Fw(\()p Fj(Q)3577 +5561 y Fl(2)3617 5597 y Fw(\))f(in)1841 5953 y(24)p eop +%%Page: 25 31 +25 30 bop 458 -18 a Fq(ULALEM)p Fw(.)25 b(This)e(is)f(not)h(added)h(as) +f(a)f(true)h(ph)m(ysics)i(scenario,)g(but)e(only)f(to)h(pro)s(duce)g +(results)458 90 y(with)g(a)h(giv)m(en,)h(\014xed)g(v)-5 +b(alue)22 b(for)h(the)h(hard)f(ev)m(en)m(ts,)28 b(while)23 +b(still)e(k)m(eeping)j(the)f(con)m(v)m(en)m(tional)458 +198 y(v)-5 b(alue)34 b(in)g(the)h Fj(Q)1075 162 y Fl(2)1145 +198 y Fw(=)c(0)j(limit.)45 b(See)36 b Fq(MSTU\(101\))p +Fw(,)h Fq(PARU\(103\))p Fw(,)g Fq(PARU\(104\))p Fw(.)51 +b(Addition-)458 307 y(ally)-8 b(,)31 b(the)i Fj(G)909 +322 y Fl(F)992 307 y Fw(constan)m(t)h(has)e(b)s(een)i(added)f(to)f(the) +h(parameter)f(list,)g(see)h Fq(PARU\(105\))p Fw(.)360 +424 y Fn(\017)48 b Fw(The)34 b(LULOGO)e(routine)g(has)h(b)s(een)g(up)s +(dated)g(to)f(re\015ect)i(m)m(y)f(c)m(hange)g(of)f(a\016liation.)119 +542 y(7.)49 b Fm(Jetset)31 b Fw(v)m(ersion)i(7.407,)f(21)g(June)i +(1995:)360 660 y Fn(\017)48 b Fw(Header)f(and)f Fq(LULOGO)h +Fw(ha)m(v)m(e)h(b)s(een)e(up)s(dated)h(with)e(resp)s(ect)i(to)f(phone)g +(n)m(um)m(b)s(er)g(and)458 768 y(WWW)34 b(access.)360 +886 y Fn(\017)48 b Fw(The)30 b Fq(PHEP)g Fw(and)f Fq(VHEP)h +Fw(v)-5 b(ariables)27 b(in)h(the)i Fq(/HEPEVT/)g Fw(common)e(blo)s(c)m +(k)g(are)h(no)m(w)h(assumed)458 994 y(to)45 b(b)s(e)h(in)e +Fq(DOUBLE)53 b(PRECISION)p Fw(,)47 b(in)e(accord)g(with)g(the)h(prop)s +(osed)f(LEP)h(2)f(w)m(orkshop)458 1103 y(addendum)33 +b(to)g(the)g(standard.)360 1221 y Fn(\017)48 b Fw(In)33 +b Fq(LUTEST)h Fw(a)f(missing)e(decimal)f(p)s(oin)m(t)i(on)h(the)g +(energy)g(c)m(hec)m(k)i(has)e(b)s(een)g(reinstated.)360 +1338 y Fn(\017)48 b Fw(In)33 b Fq(LUINDF)h Fw(an)f(expression)h(has)f +(b)s(een)g(protected)h(against)d(v)-5 b(anishing)32 b(denominator.)119 +1456 y(8.)49 b Fm(Jetset)31 b Fw(v)m(ersion)i(7.408,)f(23)g(August)i +(1995:)360 1574 y Fn(\017)48 b Fw(Chec)m(k)35 b(against)d(division)f(b) +m(y)i(zero)g(in)f Fq(LUSHOW)p Fw(.)119 1692 y(9.)49 b +Fm(Jetset)31 b Fw(v)m(ersion)i(7.409,)f(21)g(Marc)m(h)i(1996:)360 +1809 y Fn(\017)48 b Fw(Default)31 b(v)-5 b(alue)30 b(of)h(MSTJ\(50\))h +(c)m(hanged)h(from)d(0)h(to)h(3;)f(this)g(ough)m(t)h(to)f(ha)m(v)m(e)i +(b)s(een)f(done)458 1918 y(already)37 b(in)e(v)m(ersion)j(00)e(but)h +(seems)g(to)f(ha)m(v)m(e)i(b)s(een)g(forgotten.)55 b(It)36 +b(a\013ects)i(wide-angle)458 2026 y(QCD)33 b(radiation)d(in)i(hadron)h +(collisions.)70 2144 y(10.)49 b Fm(Jetset)31 b Fw(v)m(ersion)i(7.410,)f +(20)g(Jan)m(uary)i(1997:)360 2262 y Fn(\017)48 b Fw(Correction)30 +b(for)f(bug)g(in)g Fq(LUZDIS)p Fw(;)i(in)d(principle)g(sev)m(ere)k(but) +e(for)f(a)g(com)m(bination)e(that)i(in)458 2370 y(practice)k(is)f(not)h +(encoun)m(tered.)360 2488 y Fn(\017)48 b Fw(The)34 b(Durham)d(distance) +i(measure)g(no)m(w)g(a)m(v)-5 b(ailable)30 b(in)i Fq(LUCLUS)p +Fw(.)360 2606 y Fn(\017)48 b Fw(A)33 b(photon)g(from)e(initial-state)e +(radiation)h(is)i(not)h(included)f(in)g(the)h Fq(LUBOEI)h +Fw(rescaling.)360 2723 y Fn(\017)48 b Fw(Some)33 b(mo)s(di\014cations)d +(to)i(b)s(etter)h(handle)g(junctions.)0 2971 y Fo(3.1.2)112 +b(Up)s(dates)39 b(in)e(PYTHIA)e(5.7)0 3144 y Fw(The)g(up)s(dates)g +(from)d(v)m(ersion)j(5.6)e(to)h(5.7)f(are)h(all)e(minor,)h(and)h(just)g +(ab)s(out)g(an)m(y)g(program)f(that)h(ran)0 3252 y(with)i(v)m(ersion)h +(5.6)f(will)e(also)i(w)m(ork)h(with)f Fm(Pythia)h Fw(5.7.)55 +b(Ho)m(w)m(ev)m(er,)39 b(as)e(for)f Fm(Jetset)p Fw(,)g(it)g(should)g(b) +s(e)0 3361 y(noted)d(that)f(some)h(imp)s(ortan)m(t)d(default)i(v)-5 +b(alues)33 b(ha)m(v)m(e)h(b)s(een)f(c)m(hanged.)145 3474 +y Fn(\017)49 b Fw(New)d(parametrizations)e(of)h(the)h(total)e(cross)j +(sections)f(of)g(hadronic)f(reactions,)k(based)d(in)244 +3582 y(Donnac)m(hie{Landsho\013)32 b([Don92)o(],)h(whic)m(h)g(replace)g +(the)g(old)e(ones.)145 3700 y Fn(\017)49 b Fw(New)38 +b(parametrizations)d(of)i(elastic)g(and)g(single)f(and)i(double)f +(di\013ractiv)m(e)g(cross)h(sections)g(of)244 3808 y(hadronic)d +(reactions,)i(based)g(on)f(Sc)m(h)m(uler{Sj\177)-49 b(ostrand)37 +b([Sc)m(h94)q(,)f(Sc)m(h93a],)h(whic)m(h)g(replace)f(the)244 +3916 y(old)j(ones.)68 b(Also)40 b(the)h(slop)s(e)f(parameters,)i(the)f +(di\013ractiv)m(e)f(mass)g(distributions)f(and)h(other)244 +4025 y(asp)s(ects)34 b(of)e(the)h(ev)m(en)m(t)h(generation)e(ha)m(v)m +(e)i(b)s(een)f(c)m(hanged)h(accordingly)-8 b(.)145 4143 +y Fn(\017)49 b Fw(A)33 b(p)s(ossibilit)m(y)d(to)i(giv)m(e)h(o)m(wn)g +(total,)e(elastic)h(and)g(di\013ractiv)m(e)g(cross)i(sections.)145 +4260 y Fn(\017)49 b Fw(The)37 b(single)e(di\013ractiv)m(e)g(cross)i +(section)f(has)h(b)s(een)g(split)d(in)m(to)i(its)f(t)m(w)m(o)i +(constituen)m(ts,)h Fj(AB)h Fn(!)244 4369 y Fj(X)8 b(B)33 +b Fw(and)c Fj(AB)k Fn(!)27 b Fj(AX)8 b Fw(.)42 b(As)29 +b(a)f(consequence,)k(the)d(di\013ractiv)m(e)f(subpro)s(cess)j(co)s(des) +e(92{94)e(ha)m(v)m(e)244 4477 y(receiv)m(ed)34 b(c)m(hanged)f(meaning.) +145 4595 y Fn(\017)49 b Fw(A)35 b(new)h(common)d(blo)s(c)m(k)i +Fq(PYINT7)i Fw(has)e(b)s(een)h(added)f(for)g(the)g(expanded)i(total)c +(cross)j(section)244 4703 y(information,)47 b(and)g(this)g(information) +d(has)j(b)s(een)h(partly)e(remo)m(v)m(ed)i(from)e(other)h(common)244 +4812 y(blo)s(c)m(ks.)145 4929 y Fn(\017)i Fw(A)42 b(m)m(uc)m(h)h +(extended)h(description)e(of)g(photopro)s(duction)g(ph)m(ysics,)k(with) +c(the)h(p)s(ossibilit)m(y)d(to)244 5038 y(sim)m(ulate)31 +b(separately)i(VMD,)f(anomalous)f(and)i(direct)f(pro)s(cesses)j([Sc)m +(h93)q(,)d(Sc)m(h93a)q(].)145 5156 y Fn(\017)49 b Fw(The)35 +b(selection)e(of)h(proton)f(parton)h(distributions)f(that)g(come)h +(with)f(the)i(program)d(has)j(b)s(een)244 5264 y(up)s(dated)30 +b(with)f(the)h(CTEQ2)h(ones,)g(while)d(some)i(others)g(ha)m(v)m(e)h(b)s +(een)f(remo)m(v)m(ed.)44 b(New)30 b(default)244 5372 +y(is)i(the)h(leading-order)e(\014t)h(CTEQ2L.)145 5490 +y Fn(\017)49 b Fw(Since)25 b(the)h Fm(Pdflib)f Fw(library)f(no)m(w)i +(has)f(b)s(een)h(expanded)h(to)e(con)m(tain)g(also)f +(parton-distribution)244 5598 y(functions)32 b(for)g(the)h(photon,)g +(the)g(in)m(terfaces)g(to)f(the)h Fm(P)-9 b(akpdf)33 +b Fw(and)g Fm(Phopdf)g Fw(libraries)d(ha)m(v)m(e)1841 +5953 y(25)p eop +%%Page: 26 32 +26 31 bop 244 -18 a Fw(b)s(een)34 b(remo)m(v)m(ed.)47 +b(In)34 b(addition,)e(the)i(in)m(terface)g(to)f Fm(Pdflib)h +Fw(has)f(b)s(een)i(mo)s(di\014ed,)d(and)i(is)f(no)m(w)244 +90 y(for)f(appropriate)g(for)g Fm(Pdflib)h Fw(v)m(ersion)g(4.)145 +208 y Fn(\017)49 b Fw(An)j(extension)h(of)e(hadron)h(parton)g +(distributions)f(in)m(to)g(the)h(lo)m(w-)p Fj(x)g Fw(and)g(lo)m(w-)p +Fj(Q)3429 171 y Fl(2)3519 208 y Fw(region)244 316 y([Sc)m(h93a].)145 +434 y Fn(\017)d Fw(The)41 b(top)g(quark)g(can)g(b)s(e)f(made)g(to)h +(deca)m(y)h(b)s(efore)e(it)g(has)g(time)g(to)g(fragmen)m(t.)66 +b(In)41 b(view)g(of)244 542 y(the)d(curren)m(t)h(b)s(est)f(estimate)f +(for)g(the)h(top)g(mass,)h(this)e(is)g(the)i(exp)s(ected)g(b)s(eha)m +(viour,)g(and)f(is)244 650 y(therefore)45 b(no)m(w)g(default.)79 +b(F)-8 b(urther,)47 b(a)d(parton)g(sho)m(w)m(er)j(is)d(allo)m(w)m(ed)f +(to)h(ev)m(olv)m(e)i(in)e(the)h(top)244 759 y(deca)m(y)-8 +b(.)70 b(Also)40 b(fourth)h(generation)f(quarks)j(are)e(allo)m(w)m(ed)f +(to)h(deca)m(y)h(b)s(efore)f(they)h(fragmen)m(t,)244 +867 y(and)33 b(so)f(on.)145 985 y Fn(\017)49 b Fw(It)42 +b(is)f(p)s(ossible)g(to)h(call)e Fq(PYEVNT)k Fw(with)d(energies)h(that) +g(v)-5 b(ary)42 b(from)f(one)h(ev)m(en)m(t)i(to)d(the)h(next,)244 +1093 y(without)32 b(the)h(need)h(to)e(reinitialize.)145 +1211 y Fn(\017)49 b Fw(Impro)m(v)m(ed)32 b(sc)m(heme)h(for)d(p)s +(ost-factor)h(conserv)-5 b(ation)31 b(of)g Fj(x)g Fw(and)h +Fj(Q)2671 1175 y Fl(2)2742 1211 y Fw(in)e(deep)j(inelastic)c(scatter-) +244 1319 y(ing.)145 1437 y Fn(\017)49 b Fw(Pro)s(cesses)34 +b(15,)d(19,)g(30)g(and)h(35)f(ha)m(v)m(e)h(b)s(een)h(expanded)g(to)e +(co)m(v)m(er)i Fj(\015)2749 1401 y Fk(\003)2820 1437 +y Fw(pro)s(duction)e(in)f(addition)244 1546 y(to)i(the)h(Z)591 +1509 y Fl(0)663 1546 y Fw(one,)g(with)f(full)f(in)m(terference.)145 +1663 y Fn(\017)49 b Fw(New)33 b(pro)s(cess)h(80,)e(q)p +Fj(\015)h Fn(!)28 b Fw(q)1274 1627 y Fk(0)1298 1663 y +Fj(\031)1357 1627 y Fk(\006)1415 1663 y Fw(.)145 1781 +y Fn(\017)49 b Fw(New)33 b(pro)s(cess)h(110,)e(f)p 1046 +1702 37 4 v 7 w(f)i Fn(!)28 b Fj(\015)5 b Fw(H)1367 1745 +y Fl(0)1406 1781 y Fw(.)145 1899 y Fn(\017)49 b Fw(New)33 +b(pro)s(cess)h(149,)e(gg)d Fn(!)e Fj(\021)1311 1914 y +Fl(tec)n(hni)1501 1899 y Fw(.)145 2017 y Fn(\017)49 b +Fw(New)32 b(option)e(for)g(initial)e(state)j(radiation)e(to)i(restrict) +g(angular)f(range)h(of)g(emission)e(in)i(accor-)244 2125 +y(dance)i(with)f(coherence)j(considerations.)145 2243 +y Fn(\017)49 b Fw(Some)34 b(options)g(ha)m(v)m(e)h(b)s(een)h(added)f +(or)f(remo)m(v)m(ed,)i(and)e(default)g(v)-5 b(alues)34 +b(ha)m(v)m(e)i(b)s(een)f(c)m(hanged.)244 2351 y(This)40 +b(includes)h Fq(KFIN)g Fw(\(top)g(parton)f(distributions)f(o\013)h(b)m +(y)h(default\),)h Fq(MSTP\(7\))p Fw(,)i Fq(MSTP\(11\))p +Fw(,)244 2460 y Fq(MSTP\(14\))p Fw(,)73 b Fq(MSTP\(23\))p +Fw(,)g Fq(MSTP\(30\))66 b Fw(\(remo)m(v)m(ed\),)72 b +Fq(MSTP\(31\))p Fw(,)136 b Fq(MSTP\(34\))p Fw(,)73 b +Fq(MSTP\(45\))p Fw(,)244 2568 y Fq(MSTP\(48\))p Fw(,)g +Fq(MSTP\(49\))p Fw(,)g Fq(MSTP\(62\))p Fw(,)f Fq(MSTP\(67\))p +Fw(,)h Fq(MSTP\(101\))p Fw(,)g Fq(PARP\(13\))p Fw(,)g +Fq(PARP\(81\))p Fw(,)244 2676 y Fq(PARP\(82\))p Fw(,)35 +b Fq(PARP\(47\))f Fw(and)f Fq(PARP\(101\))p Fw(.)145 +2794 y Fn(\017)49 b Fw(All)42 b(obsolescen)m(t)j(features)f(of)f(the)i +(F)-8 b(ortran)42 b(90)i(standard)g(ha)m(v)m(e)h(b)s(een)f(remo)m(v)m +(ed,)k(i.e.)76 b(the)244 2902 y(program)36 b(should)h(w)m(ork)h(w)m +(ell)f(either)g(with)g(a)g(F)-8 b(ortran)36 b(77)h(compiler)f(or)h +(with)g(a)g(F)-8 b(ortran)36 b(90)244 3011 y(one.)145 +3129 y Fn(\017)49 b Fw(A)33 b(few)g(minor)d(errors)j(ha)m(v)m(e)h(b)s +(een)g(corrected.)146 3242 y(The)46 b(follo)m(wing)c(c)m(hanges)j(ha)m +(v)m(e)h(b)s(een)g(made)e(since)h(the)g(b)s(eginning)e(of)h(1994,)i +(i.e.)79 b(since)45 b(the)0 3350 y(original)29 b(distribution)i(5.700:) +119 3463 y(1.)49 b Fm(Pythia)33 b Fw(v)m(ersion)g(5.701,)f(27)g(Jan)m +(uary)h(1994:)360 3581 y Fn(\017)48 b Fw(The)28 b(mac)m(hinery)e(to)g +(handle)h Fj(\015)5 b(\015)31 b Fw(in)m(teractions)26 +b(is)g(expanded)i(to)e(the)h(lev)m(el)f(already)g(a)m(v)-5 +b(ail-)458 3689 y(able)29 b(for)g Fj(\015)5 b Fw(p.)43 +b(This)30 b(in)f(particular)f(means)h(that)h(a)f(n)m(um)m(b)s(er)h(of)f +(new)i(options)e(app)s(ear)g(for)458 3797 y Fq(MSTP\(14\))p +Fw(.)60 b(A\013ected)39 b(are)e(also)f Fq(MINT\(105\))p +Fw(,)41 b Fq(MINT\(107\))p Fw(,)g Fq(MINT\(108\))p Fw(,)g +Fq(MINT\(109\))p Fw(,)458 3906 y Fq(VINT\(282\))30 b +Fw(\(remo)m(v)m(ed\),)f Fq(VINT\(283\))g Fw(and)e Fq(VINT\(284\))p +Fw(.)44 b(P)m(arametrizations)25 b(are)i(in)m(tro-)458 +4014 y(duced)34 b(for)e(meson{meson)g(total,)f(elastic)g(and)i +(di\013ractiv)m(e)f(cross)h(sections,)g(needed)h(for)458 +4122 y(the)41 b(VMD)e(part)h(of)f(the)h(photon.)65 b(The)40 +b(treatmen)m(t)g(of)f(cross)i(sections)f(for)f(hard)h(pro-)458 +4231 y(cesses,)30 b(of)c(initial)c(state)27 b(radiation,)e(of)h(b)s +(eam)f(remnan)m(ts)i(and)f(of)g(other)g(asp)s(ects)h(are)f(also)458 +4339 y(expanded)39 b(to)d(co)m(v)m(er)i(the)f(new)g(p)s(ossibilities.) +52 b(A)37 b(\014rst)g(study)h(of)e(the)h(relev)-5 b(an)m(t)36 +b(ph)m(ysics)458 4448 y(asp)s(ects)e(is)e(found)h(in)f([Sc)m(h94a].)360 +4565 y Fn(\017)48 b Fw(An)37 b(option)f(is)f(in)m(tro)s(duced)i(to)f +(mo)s(dify)f(the)i Fj(Q)2227 4529 y Fl(2)2303 4565 y +Fw(scale)f(of)g(the)h(anomalous)e(part)h(of)g(the)458 +4674 y(photon)d(parton)f(distributions,)g(see)h Fq(MSTP\(59\))i +Fw(and)e Fq(PARP\(59\))p Fw(.)360 4791 y Fn(\017)48 b +Fw(Correction)26 b(of)g(an)f(error,)j(where)f(the)f(generation)f(of)h +(jet)g(and)g(lo)m(w-)p Fj(p)2985 4806 y Fk(?)3069 4791 +y Fw(ev)m(en)m(ts)i(could)e(giv)m(e)458 4900 y(incorrect)k(cross)i +(section)e(information)d(with)i Fq(PYSTAT\(1\))k Fw(at)d(lo)m(w)f +(energies.)44 b(The)31 b(ev)m(en)m(t)458 5008 y(generation)38 +b(itself)f(w)m(as)i(correct.)62 b(\(The)39 b(error)f(w)m(as)i(in)m(tro) +s(duced)e(as)h(a)f(consequence)j(of)458 5116 y(allo)m(wing)31 +b(v)-5 b(ariable)30 b(energies.\))360 5234 y Fn(\017)48 +b Fw(A)28 b(rejection)g(is)f(in)m(tro)s(duced)h(for)f(top)h(ev)m(en)m +(ts)i(where)f(the)f(top)g(mass)f(\(selected)i(according)458 +5343 y(to)k(a)f(Breit-Wigner\))f(is)h(to)s(o)g(lo)m(w)g(to)g(allo)m(w)f +(the)i(deca)m(y)h(in)m(to)e(a)g(W)i(on)f(the)g(mass)f(shell.)360 +5460 y Fn(\017)48 b Fw(The)34 b(correction)e(of)g(a)h(few)g(other)f +(minor)f(bugs,)j(probably)e(harmless.)119 5578 y(2.)49 +b Fm(Pythia)33 b Fw(v)m(ersion)g(5.702,)f(13)g(F)-8 b(ebruary)33 +b(1994:)1841 5953 y(26)p eop +%%Page: 27 33 +27 32 bop 360 -18 a Fn(\017)48 b Fw(The)24 b(in)m(terface)g(to)e +Fm(Pdflib)i Fw(has)f(b)s(een)h(mo)s(di\014ed)e(to)h(re\015ect)h(that)e +Fq(TMAS)j Fw(should)d(no)h(longer)458 90 y(b)s(e)37 b(set)h(except)g +(in)e(\014rst)h Fq(PDFSET)i Fw(call.)54 b(\(Else)37 b(a)f(h)m(uge)i +(amoun)m(t)e(of)g(irrelev)-5 b(an)m(t)36 b(w)m(arning)458 +198 y(messages)e(are)f(generated)g(b)m(y)i Fm(Pdflib)p +Fw(.\))360 316 y Fn(\017)48 b Fw(The)32 b Fq(STOP)f Fw(statemen)m(t)g +(in)f(a)g(few)h(dumm)m(y)f(routines)g(has)h(b)s(een)g(mo)s(difed)d(to)i +(a)m(v)m(oid)h(irrel-)458 424 y(ev)-5 b(an)m(t)34 b(compilation)29 +b(w)m(arning)j(messages)h(on)g(IBM)g(mainframes.)360 +542 y Fn(\017)48 b Fw(A)33 b(few)g(lab)s(els)e(ha)m(v)m(e)j(b)s(een)g +(ren)m(um)m(b)s(ered.)119 660 y(3.)49 b Fm(Pythia)33 +b Fw(v)m(ersion)g(5.703,)f(22)g(F)-8 b(ebruary)33 b(1994:)360 +778 y Fn(\017)48 b Fw(Remo)m(v)-5 b(al)27 b(of)h(a)h(bug)f(in)g +Fq(PYRESD)p Fw(,)i(whic)m(h)f(could)f(giv)m(e)h(\(under)g(some)f(sp)s +(eci\014c)h(conditions\))458 886 y(errors)k(in)f(the)h(colour)f(\015o)m +(w.)119 1004 y(4.)49 b Fm(Pythia)33 b Fw(v)m(ersion)g(5.704,)f(7)g +(April)f(1994:)360 1122 y Fn(\017)48 b Fw(Pro)s(cess)32 +b(11)d(has)h(b)s(een)h(corrected,)g(for)f(the)g(part)f(that)h(concerns) +h(anomalous)d(couplings)458 1230 y(\(con)m(tact)37 b(in)m(teractions\)) +e(in)h(the)g(qq)1805 1194 y Fk(0)1863 1230 y Fn(!)d Fw(qq)2098 +1194 y Fk(0)2159 1230 y Fw(pro)s(cess.)55 b(The)37 b(error)f(w)m(as)h +(presen)m(t)h(in)d(the)458 1349 y(expression)j(for)e(u)p +1139 1270 55 4 v(d)f Fn(!)f Fw(u)p 1416 1270 V(d)j(and)g(ob)m(vious)f +(p)s(erm)m(utations,)h(while)f(ud)e Fn(!)g Fw(ud,)k(u)p +3448 1296 V(u)d Fn(!)f Fw(u)p 3725 1296 V(u)458 1457 +y(and)f(the)g(others)g(w)m(ere)h(correct.)360 1575 y +Fn(\017)48 b Fw(The)28 b(option)d(with)g(p)s(ost-facto)h(\()p +Fj(x;)17 b(Q)1829 1539 y Fl(2)1868 1575 y Fw(\))26 b(conserv)-5 +b(ation)26 b(in)g(deep)h(inelastic)d(scattering)i(can)458 +1683 y(giv)m(e)33 b(in\014nite)e(lo)s(ops)h(when)i(applied)d(to)h(pro)s +(cess)i(83,)e(in)g(particular)e(if)i(one)g(asks)i(for)e(the)458 +1792 y(pro)s(duction)i(of)g(a)g(top.)49 b(\(Remem)m(b)s(er)34 +b(that)h(the)f(standard)h(DIS)g(kinematics)e(is)h(de\014ned)458 +1900 y(for)29 b(massless)g(quarks.\))44 b(Therefore)30 +b(the)g(switc)m(h)g Fq(MSTP\(23\))h Fw(has)e(b)s(een)h(mo)s(difed)d(so) +j(that)458 2008 y(b)m(y)k(default)e(only)g(pro)s(cess)i(10)e(is)g +(a\013ected.)360 2126 y Fn(\017)48 b Fq(PYRESD)41 b Fw(is)e(mo)s +(di\014ed)f(to)h(ensure)h(isotropic)e(angular)g(distributions)g(in)g +(the)i(deca)m(ys)h(of)458 2235 y(the)33 b(top)f(or)f(a)h(fourth)f +(generation)h(particle,)f(i.e.)42 b(in)31 b(t)d Fn(!)f +Fw(bW)2776 2198 y Fl(+)2836 2235 y Fw(.)43 b(This)32 +b(ma)m(y)g(not)g(b)s(e)g(the)458 2343 y(correct)40 b(distribution)d +(but,)k(unless)f(explicit)d(kno)m(wledge)j(exists)g(for)e(a)h(giv)m(en) +g(pro)s(cess,)458 2451 y(this)33 b(should)f(alw)m(a)m(ys)h(b)s(e)g(the) +g(default.)360 2569 y Fn(\017)48 b Fw(In)32 b(pro)s(cesses)i(16,)e(20,) +f(31)g(and)h(36)f(the)h(W)h(propagator)e(has)h(b)s(een)g(mo)s(di\014ed) +f(to)g(include)458 2677 y Fj(s)p Fw(-dep)s(enden)m(t)41 +b(widths)e(in)e(the)j(Breit-Wigner)d(shap)s(e.)62 b(The)40 +b(most)e(notable)g(e\013ect)i(is)e(a)458 2786 y(suppression)c(of)e(the) +h(lo)m(w-mass)f(tail)f(of)h(the)h(W)h(mass)e(sp)s(ectrum.)360 +2904 y Fn(\017)48 b Fw(When)27 b Fm(Pdflib)f Fw(is)f(used,)j +Fq(PDFSET)f Fw(is)e(no)m(w)h(only)f(called)f(whenev)m(er)k(a)e +(di\013eren)m(t)f(structure)458 3012 y(function)34 b(is)g(requested.)50 +b(F)-8 b(or)33 b(pp)i(ev)m(en)m(ts)h(therefore)f(only)f(one)g(call)e +(is)i(made,)g(while)f Fj(\015)5 b Fw(p)458 3120 y(in)m(teractions)34 +b(still)d(in)m(v)m(olv)m(e)j(a)g(call)e(to)h Fq(PDFSET)i +Fw(for)f(eac)m(h)g Fq(STRUCTM)i Fw(one,)e(since)h Fj(\015)j +Fw(and)c(p)458 3229 y(structure)k(functions)f(ha)m(v)m(e)g(to)f(b)s(e)h +(called)e(alternatingly)-8 b(.)53 b Fq(MINT\(93\))38 +b Fw(is)e(used)i(to)e(k)m(eep)458 3337 y(trac)m(k)e(of)e(latest)g +(structure)i(function)e(called.)360 3455 y Fn(\017)48 +b Fw(In)28 b(a)e(few)h(places,)i(a)d(dot)h(has)g(b)s(een)h(mo)m(v)m(ed) +f(from)f(the)h(end)g(of)g(one)g(line)e(to)i(the)g(b)s(eginning)458 +3563 y(of)i(the)g(next)h(con)m(tin)m(uation)e(line,)g(or)g(the)i(other) +e(w)m(a)m(y)j(around,)e(to)g(k)m(eep)h(together)f(tok)m(ens)458 +3671 y(suc)m(h)35 b(as)d Fq(.EQ.)i Fw(or)e Fq(.AND.)p +Fw(,)i(since)f(some)f(debuggers)i(ma)m(y)f(otherwise)g(complain.)360 +3789 y Fn(\017)48 b Fw(A)33 b(n)m(um)m(b)s(er)g(of)f(minor)f(errors)i +(ha)m(v)m(e)h(b)s(een)f(corrected.)119 3907 y(5.)49 b +Fm(Pythia)33 b Fw(v)m(ersion)g(5.705,)f(15)g(July)g(1994:)360 +4025 y Fn(\017)48 b Fw(A)36 b(completely)d(new)j(p)s(ossibilit)m(y)d +(to)i(ha)m(v)m(e)h Fm(Pythia)f Fw(mix)f(di\013eren)m(t)h(allo)m(w)m(ed) +f(pro)s(cesses)458 4133 y(\(direct,)i(VMD)f(and)g(anomalous\))f(in)g +Fj(\015)5 b Fw(p)36 b(and)f Fj(\015)5 b(\015)40 b Fw(in)m(teractions.) +50 b(This)36 b(option)e(can)h(b)s(e)458 4241 y(accessed)45 +b(with)c Fq(MSTP\(14\)=10)p Fw(.)75 b(The)43 b(relev)-5 +b(an)m(t)41 b(ph)m(ysics)j(description)d(and)h(program-)458 +4350 y(ming)h(details)g(ma)m(y)i(b)s(e)f(found)h(in)e(sections)i(7.7.2) +f(and)h(8.3.2.)78 b(This)45 b(facilit)m(y)d(is)i(still)458 +4458 y(not)29 b(de\014nitiv)m(e,)h(in)f(that)f(it)g(is)h(hop)s(ed)g(to) +g(gradually)e(enhance)k(it)d(with)g(further)i(features.)458 +4567 y(The)c(cross-section)f(output)f(of)g(the)h Fq(PYSTAT)g +Fw(has)g(b)s(een)g(expanded)h(to)e(re\015ect)h(the)g(further)458 +4675 y(sub)s(division)32 b(of)g(the)h(total)e(cross)j(section.)360 +4793 y Fn(\017)48 b Fw(The)k(new)f(facilit)m(y)d(ab)s(o)m(v)m(e)j(has)f +(required)h(a)f(ma)5 b(jor)49 b(restructuring)i(of)e(some)h(of)g(the) +458 4901 y(co)s(de:)70 b(the)46 b(routine)f Fq(PYEVKI)i +Fw(has)f(b)s(een)g(remo)m(v)m(ed,)k(new)c(routines)g +Fq(PYINBM)p Fw(,)h Fq(PYINPR)458 5009 y Fw(and)41 b Fq(PYSAVE)g +Fw(created,)i(and)d(some)f(material)f(has)i(b)s(een)h(mo)m(v)m(ed)f(to) +g(or)f(from)g Fq(PYINIT)p Fw(,)458 5118 y Fq(PYINRE)g +Fw(and)e Fq(PYINKI)p Fw(.)h(New)g(v)-5 b(ariables)36 +b(include)g Fq(MSTI\(9\))p Fw(,)k Fq(MINT\(121\))p Fw(,)g +Fq(MINT\(122\))p Fw(,)458 5226 y Fq(MINT\(123\))35 b +Fw(and)e Fq(VINT\(285\))p Fw(.)360 5344 y Fn(\017)48 +b Fw(The)38 b(GR)-11 b(V)37 b(leading-order)e(dynamically)g(generated)i +(parton)g(distributions)f(for)g(the)h(p)458 5452 y(and)c +Fj(\031)k Fw(ha)m(v)m(e)c(b)s(een)h(included)e(as)h(options,)f(see)i +Fq(MSTP\(51\))g Fw(and)f Fq(MSTP\(53\))p Fw(.)360 5570 +y Fn(\017)48 b Fw(A)32 b(parametrization)c(of)j(the)h(homogeneous)f +(solution)f(to)h(the)g(anomalous)f(photon)h(par-)1841 +5953 y(27)p eop +%%Page: 28 34 +28 33 bop 458 -18 a Fw(ton)33 b(distributions)e(ha)m(v)m(e)j(b)s(een)f +(added)g(as)g(an)g(option,)e(see)j Fq(MSTP\(56\)=3)p +Fw(.)360 99 y Fn(\017)48 b Fw(The)35 b(treatmen)m(t)e(of)g(the)h +(anomalous)e(photon)h(comp)s(onen)m(t)h(can)f(b)s(e)h(mo)s(di\014ed)e +(with)h(the)458 208 y(new)h(switc)m(h)f Fq(MSTP\(15\))h +Fw(and)f(v)-5 b(ariable)30 b Fq(PARP\(17\))p Fw(;)35 +b(at)d(the)h(same)f(time)f Fq(MSTP\(59\))j Fw(and)458 +316 y Fq(PARP\(59\))i Fw(ha)m(v)m(e)g(b)s(een)e(remo)m(v)m(ed.)48 +b(The)35 b(new)g(options)e(are)h(mainly)e(in)m(tended)i(for)g(com-)458 +424 y(parativ)m(e)f(studies)g(and)g(should)f(not)h(normally)d(b)s(e)j +(touc)m(hed.)360 542 y Fn(\017)48 b Fw(The)31 b(option)e +Fq(MSTP\(92\)=5)j Fw(for)d(b)s(eam)g(remnan)m(t)h(treatmen)m(t)g +(erroneously)g(missed)g(some)458 650 y(statemen)m(ts)45 +b(whic)m(h)g(no)m(w)f(ha)m(v)m(e)i(b)s(een)e(inserted.)78 +b(F)-8 b(urther,)47 b(new)e(options)e(ha)m(v)m(e)j(b)s(een)458 +759 y(added)36 b(for)f(the)g(b)s(eam)g(remnan)m(t)g(splitting)e(of)i +(momen)m(tum)e(b)s(et)m(w)m(een)k(a)e(hadron)g(and)h(a)458 +867 y(quark/diquark)29 b(jet,)f(where)h Fq(MSTP\(94\))h +Fw(should)d(no)m(w)h(b)s(e)g(used)g(rather)g(than)f Fq(MSTP\(92\))p +Fw(.)360 985 y Fn(\017)48 b Fw(In)29 b Fq(PYDIFF)h Fw(the)f(recoiling)d +(gluon)i(energy)h(is)f(calculated)g(in)f(a)h(n)m(umerically)f(more)h +(stable)458 1093 y(fashion.)119 1211 y(6.)49 b Fm(Pythia)33 +b Fw(v)m(ersion)g(5.706,)f(25)g(August)h(1994:)360 1329 +y Fn(\017)48 b Fw(New)43 b(pro)s(cesses)g(167)d(and)i(168,)g(qq)1821 +1293 y Fk(0)1888 1329 y Fn(!)g Fw(q)2081 1293 y Fk(00)2124 +1329 y Fw(d)2178 1293 y Fk(\003)2259 1329 y Fw(and)f(qq)2559 +1293 y Fk(0)2626 1329 y Fn(!)h Fw(q)2819 1293 y Fk(00)2862 +1329 y Fw(d)2916 1293 y Fk(\003)2955 1329 y Fw(,)i(resp)s(ectiv)m(ely) +-8 b(,)44 b(ha)m(v)m(e)458 1437 y(b)s(een)i(in)m(tro)s(duced.)79 +b(These)46 b(con)m(tact)f(in)m(teraction)f(pro)s(duction)f(pro)s +(cesses)k(of)d(excited)458 1546 y(quarks)31 b(complemen)m(t)e(the)h +(quark{gluon)f(fusion)f(ones)j(in)d(pro)s(cesses)k(147)c(and)i(148,)f +(and)458 1654 y(ob)s(ey)34 b(the)f(same)f(general)g(rules,)h(see)g +(section)g(8.5.5.)360 1772 y Fn(\017)48 b Fw(The)39 b(option)e +Fq(MSTP\(57\)=3)k Fw(no)m(w)e(also)e(allo)m(ws)g(a)h(damp)s(ening)f(of) +g Fj(\031)2999 1736 y Fk(\006)3096 1772 y Fw(parton)h(distribu-)458 +1880 y(tions.)360 1998 y Fn(\017)48 b Fw(A)33 b(few)g(minor)e(errors)i +(ha)m(v)m(e)h(b)s(een)f(corrected.)119 2116 y(7.)49 b +Fm(Pythia)33 b Fw(v)m(ersion)g(5.707,)f(20)g(Octob)s(er)g(1994:)360 +2233 y Fn(\017)48 b Fw(A)32 b(ma)5 b(jor)30 b(bug)i(disco)m(v)m(ered)h +(in)e(pro)s(cesses)i(121)e(and)g(122)g(\(and)g(th)m(us)i(also)d +(a\013ecting)h(181,)458 2351 y(182,)45 b(186)d(and)h(187\),)h(gg\(q)p +1509 2298 52 4 v(q)q(\))h Fn(!)f Fw(Q)p 1864 2273 76 +4 v(QH:)64 b(the)43 b(kinematics)f(w)m(as)h(incorrectly)g(handed)458 +2460 y(on)f(to)g(the)g(Kunszt)h(matrix)d(elemen)m(ts.)72 +b(This)42 b(a\013ected)h(the)g(default)e(option)g(Q)i(=)g(t,)458 +2568 y(but)i(e\013ects)h(w)m(ere)g(esp)s(ecially)e(dramatic)f(when)i +(the)g(alternativ)m(e)f(Q)k(=)g(b)d(w)m(as)g(used.)458 +2676 y(The)32 b(c)m(hoice)e(of)g(appropriate)g Fj(Q)1654 +2640 y Fl(2)1724 2676 y Fw(scale)g(for)g(structure)h(functions)f(in)m +(tro)s(duces)h(a)f(further)458 2785 y(uncertain)m(t)m(y)k(in)e(cross)h +(sections)g(for)f(the)h(pro)s(cesses)i(ab)s(o)m(v)m(e.)44 +b(So)33 b(long)e(as)i(only)f(t)g(quarks)458 2893 y(are)e(considered,)g +(the)g(t)f(mass)g(is)g(a)g(reasonable)g(c)m(hoice,)h(but)g(for)e(the)i +(Q)d(=)h(b)h(alternativ)m(e)458 3001 y(this)42 b(is)f(presumably)g(to)s +(o)g(lo)m(w.)70 b(Therefore)42 b(new)h(options)d(ha)m(v)m(e)j(b)s(een)g +(in)m(tro)s(duced)e(in)458 3110 y Fq(MSTP\(39\))p Fw(,)35 +b(with)d(the)h(default)f(b)s(eha)m(viour)h(c)m(hanged.)360 +3227 y Fn(\017)48 b Fw(Another)30 b(imp)s(ortan)m(t)c(bug)j(corrected)h +(in)d(the)i(calculation)d(of)j(the)g(reduction)f(of)g(t)p +3506 3156 38 4 v(t)h(cross)458 3336 y(section)24 b(when)g(deca)m(y)h +(mo)s(des)e(are)h(forced.)40 b(This)24 b(o)s(ccured)g(when)h(b)s(oth)e +(t)g(and)p 3325 3265 V 23 w(t)h(pro)s(duced)458 3444 +y(a)33 b(W)q(,)g(and)g(W)992 3408 y Fl(+)1084 3444 y +Fw(and)f(W)1374 3408 y Fk(\000)1467 3444 y Fw(deca)m(y)i(mo)s(des)e(w)m +(ere)i(set)f(di\013eren)m(tly)-8 b(.)119 3562 y(8.)49 +b Fm(Pythia)33 b Fw(v)m(ersion)g(5.708,)f(25)g(Octob)s(er)g(1994:)360 +3680 y Fn(\017)48 b Fw(A)40 b(few)f(further)g(places)g(c)m(hanged)h(to) +f(mak)m(e)g(pro)s(cesses)i(181,)f(182,)g(186)e(and)h(187)g(w)m(ork)458 +3788 y(\(see)34 b(v)m(ersion)f(5.707)f(ab)s(o)m(v)m(e\).)119 +3906 y(9.)49 b Fm(Pythia)33 b Fw(v)m(ersion)g(5.709,)f(26)g(Octob)s(er) +g(1994:)360 4024 y Fn(\017)48 b Fw(The)33 b(matrix)e(elemen)m(t)g(for)h +(f)p 1520 3945 37 4 v 7 w(f)i Fn(!)27 b Fw(W)1812 3988 +y Fl(+)1872 4024 y Fw(W)1973 3988 y Fk(\000)2064 4024 +y Fw(has)33 b(b)s(een)f(replaced,)h(using)e(the)i(form)m(ulae)d(of)458 +4132 y(D.)47 b(Bardin,)j(M.)e(Bilenky)-8 b(,)50 b(D.)d(Lehner,)52 +b(A.)47 b(Olc)m(hevski)h(and)f(T.)h(Riemann,)h(CERN-)458 +4240 y(TH.7295/94,)458 4361 y(but)g(with)f(the)h(dep)s(endence)i(on)e +(the)1951 4343 y(^)1950 4361 y Fj(t)f Fw(v)-5 b(ariable)47 +b(not)h(in)m(tegrated)h(out)f(\(D.)g(Bardin,)458 4469 +y(priv)-5 b(ate)41 b(comm)m(unication\).)69 b(This)41 +b(a)m(v)m(oids)h(some)g(problems)f(encoun)m(tered)j(in)c(the)i(old)458 +4578 y(expressions)35 b(when)f(one)e(or)h(b)s(oth)f(W)q('s)i(w)m(ere)g +(far)e(o\013)g(the)h(mass)f(shell.)360 4696 y Fn(\017)48 +b Fw(Change)35 b(in)f(calls)f(to)g Fm(Pdflib)p Fw(,)i(so)g(that)f(the)g +(input)g Fj(Q)g Fw(is)g(alw)m(a)m(ys)h(at)f(least)f(the)i +Fj(Q)3545 4711 y Fl(min)3701 4696 y Fw(of)458 4804 y(the)e(resp)s +(ectiv)m(e)i(set.)360 4922 y Fn(\017)48 b Fw(Extra)34 +b(protection)e(against)f(in\014nite)h(lo)s(ops)f(in)h(PYSSP)-8 +b(A.)70 5040 y(10.)49 b Fm(Pythia)33 b Fw(v)m(ersion)g(5.710,)f(27)g +(Jan)m(uary)h(1995:)360 5157 y Fn(\017)48 b Fw(The)37 +b(dimensions)d(of)h(the)g Fq(HGZ)h Fw(arra)m(y)g(in)e +Fq(PYRESD)j Fw(has)f(b)s(een)g(expanded)g(to)f(a)m(v)m(oid)g(acci-)458 +5266 y(den)m(tal)e(writing)e(outside)h(the)h(b)s(ounds.)360 +5383 y Fn(\017)48 b Fq(VINT\(41\)-VINT\(66\))29 b Fw(are)24 +b(sa)m(v)m(ed)i(and)e(restored)i(in)d Fq(PYSCAT)p Fw(,)j(for)d(use)i +(in)f(lo)m(w-)p Fj(p)3407 5398 y Fk(?)3489 5383 y Fw(ev)m(en)m(ts,)458 +5492 y(when)34 b(b)s(eam)e(remnan)m(t)h(treatmen)m(t)f(has)h(failed)e +(\(with)h(nonzero)h Fq(MINT\(57\))p Fw(\).)360 5610 y +Fn(\017)48 b Fw(The)41 b(routine)e Fq(PYSTGH)i Fw(has)f(b)s(een)g +(replaced)g(b)m(y)g(the)g(routine)f Fq(PYSTHG)p Fw(.)i(This)e(con)m +(tains)1841 5953 y(28)p eop +%%Page: 29 35 +29 34 bop 458 -18 a Fw(an)39 b(impro)m(v)m(ed)g(parametrization)d(of)i +(the)h(homogeneous)g(ev)m(olution)e(of)i(an)f(anomalous)458 +90 y(photon)c(from)e(some)i(giv)m(en)f(initial)d(scale.)46 +b(The)35 b(argumen)m(t)e Fq(NF)h Fw(of)f(the)h Fq(PYSTGH)h +Fw(routine)458 198 y(has)43 b(b)s(een)g(remo)m(v)m(ed;)k(no)m(w)c(\003) +f(is)f(alw)m(a)m(ys)i(automatically)38 b(con)m(v)m(erted)44 +b(to)e(the)h(relev)-5 b(an)m(t)458 307 y Fj(n)516 322 +y Fh(f)562 307 y Fw(-\015a)m(v)m(our)33 b(v)-5 b(alue)32 +b(from)f(its)h(4-\015a)m(v)m(our)h(one,)g(at)f(\015a)m(v)m(our)i +(thresholds.)70 424 y(11.)49 b Fm(Pythia)33 b Fw(v)m(ersion)g(5.711,)f +(20)g(F)-8 b(ebruary)33 b(1995:)360 542 y Fn(\017)48 +b Fw(New)f(p)s(ossibilities)c(ha)m(v)m(e)k(b)s(een)f(added)h(to)e +(switc)m(h)h(b)s(et)m(w)m(een)i(electro)m(w)m(eak)f(couplings)458 +650 y(b)s(eing)41 b(expressed)j(in)c(terms)h(of)g(a)g(running)g +Fj(\013)2222 665 y Fl(em)2316 650 y Fw(\()p Fj(Q)2431 +614 y Fl(2)2471 650 y Fw(\))g(or)g(in)f(terms)h(of)g(a)g(\014xed)h(F)-8 +b(ermi)458 759 y(constan)m(t)32 b Fj(G)927 774 y Fl(F)977 +759 y Fw(.)43 b(This)31 b(a\013ects)h(b)s(oth)e(deca)m(y)i(widths)f +(and)g(pro)s(cess)h(cross)g(sections,)g(in)e(the)458 +867 y(routines)g Fq(PYINRE)p Fw(,)h Fq(PYRESD)p Fw(,)g +Fq(PYWIDT)g Fw(and)e Fq(PYSIGH)p Fw(.)i(See)g Fq(MSTP\(8\))g +Fw(for)e(details;)g(default)458 976 y(corresp)s(onds)34 +b(to)f(old)e(b)s(eha)m(viour.)360 1093 y Fn(\017)48 b +Fw(The)i(option)d Fq(MSTP\(37\)=1)p Fw(,)56 b(with)48 +b(running)g(quark)h(masses)h(in)d(couplings)h(to)g(Higgs)458 +1202 y(b)s(osons,)42 b(only)c(w)m(orks)i(when)h Fj(\013)1639 +1217 y Fl(s)1709 1202 y Fw(is)e(allo)m(w)m(ed)f(to)h(run)g(\(so)g(one)g +(can)h(de\014ne)g(a)e(\003)h(v)-5 b(alue\).)458 1310 +y(Therefore)35 b(a)e(c)m(hec)m(k)j(has)d(b)s(een)h(in)m(tro)s(duced)g +(in)e Fq(PYWIDT)j Fw(and)f Fq(PYSIGH)h Fw(that)e(the)h(option)458 +1418 y Fq(MSTP\(37\)=1)i Fw(is)c(only)g(executed)j(if)c(additionally)g +Fq(MSTP\(2\))p Fn(\025)f Fw(1.)360 1536 y Fn(\017)48 +b Fw(Some)29 b(non-ph)m(ysics)h(c)m(hanges)g(ha)m(v)m(e)g(b)s(een)g +(made)e(in)h(the)g Fq(RKBBV)h Fw(and)f Fq(STRUCTM)i Fw(co)s(des)e(so) +458 1644 y(as)k(to)f(a)m(v)m(oid)h(some)f(\(in)g(principle)f +(harmless\))h(compiler)f(w)m(arnings.)70 1762 y(12.)49 +b Fm(Pythia)33 b Fw(v)m(ersion)g(5.712,)f(15)g(Marc)m(h)h(1995:)360 +1880 y Fn(\017)48 b Fw(A)37 b(serious)h(error)e(has)i(b)s(een)f +(corrected)i(in)d(the)h Fq(MSTP\(173\)=1)j Fw(option,)d(i.e.)56 +b(when)38 b(the)458 1988 y(program)31 b(is)h(run)g(with)g +(user-de\014ned)i(w)m(eigh)m(ts)f(that)f(should)g(comp)s(ensate)h(for)f +(a)f(biased)458 2097 y(c)m(hoice)j(of)f(v)-5 b(ariable)31 +b(b)s(eam)i(energies.)46 b(This)33 b(b)s(oth)g(a\013ected)h(the)g +(relativ)m(e)e(admixture)h(of)458 2205 y(lo)m(w-)j(and)g(high-)p +Fj(p)1131 2220 y Fk(?)1224 2205 y Fw(ev)m(en)m(ts)j(and)d(the)g(total)e +(cross)j(section)f(obtained)g(b)m(y)h(Mon)m(te)f(Carlo)458 +2313 y(in)m(tegration.)42 b(\()p Fq(PYRAND)34 b Fw(c)m(hanged.\))360 +2431 y Fn(\017)48 b Fw(In)33 b(order)e(to)h(impro)m(v)m(e)f(the)h +(\015exibilit)m(y)e(and)i(e\016ciency)h(of)f(the)g(v)-5 +b(ariable-energy)30 b(option,)458 2540 y(the)49 b(user)g(should)g(no)m +(w)f(set)h Fq(PARP\(174\))i Fw(b)s(efore)d(the)h Fq(PYINIT)h +Fw(call,)h(and)d(thereafter)458 2648 y(not)36 b(c)m(hange)h(it.)53 +b(This)36 b(allo)m(ws)f Fq(PARP\(173\))j Fw(w)m(eigh)m(ts)f(of)f +(arbitrary)f(size.)54 b(\()p Fq(PYRAND)37 b Fw(and)458 +2756 y Fq(PYMAXI)e Fw(c)m(hanged.\))360 2874 y Fn(\017)48 +b Fq(MSTI\(5\))d Fw(\(and)e Fq(MINT\(5\))p Fw(\))h(are)e(no)m(w)i(c)m +(hanged)f(so)g(they)h(coun)m(t)f(the)g(n)m(um)m(b)s(er)g(of)f(suc-)458 +2982 y(cessfully)32 b(generated)g(ev)m(en)m(ts,)i(rather)d(than)g(the)h +(n)m(um)m(b)s(er)f(of)g(tries)g(made.)42 b(This)32 b(c)m(hange)458 +3091 y(only)26 b(a\013ects)h(runs)g(with)f(v)-5 b(ariable)24 +b(energies,)k Fq(MSTP\(171\)=1)h Fw(and)e Fq(MSTP\(172\)=2)p +Fw(,)j(where)458 3199 y Fq(MSTI\(61\)=1)25 b Fw(signals)d(that)g(a)g +(user-pro)m(vided)h(energy)h(has)e(b)s(een)i(rejected)f(in)f(the)h(w)m +(eigh)m(t-)458 3307 y(ing.)40 b(This)24 b(c)m(hange)g(also)f(a\013ects) +h Fq(PARI\(2\))p Fw(,)j(whic)m(h)d(b)s(ecomes)g(the)g(cross)h(section)e +(p)s(er)h(fully)458 3416 y(generated)34 b(ev)m(en)m(t.)45 +b(\()p Fq(PYEVNT)34 b Fw(c)m(hanged.\))360 3534 y Fn(\017)48 +b Fw(The)30 b(option)e Fq(MSTP\(14\)=10)k Fw(has)d(no)m(w)h(b)s(een)g +(extended)h(so)e(that)g(it)f(also)g(w)m(orks)i(for)e(deep)458 +3642 y(inelastic)g(scattering)i(of)f(an)h(electron)f(o\013)g(a)h +(\(real\))e(photon,)j(i.e.)42 b(subpro)s(cess)31 b(10.)42 +b(What)458 3750 y(is)27 b(obtained)g(is)g(a)g(mixture)f(of)h(the)h +(photon)f(acting)f(as)i(a)f(v)m(ector)h(meson)f(and)h(it)e(acting)g(as) +458 3859 y(an)i(anomalous)e(state.)43 b(This)28 b(should)g(therefore)g +(b)s(e)g(the)g(sum)g(of)g(what)g(can)g(b)s(e)g(obtained)458 +3967 y(with)k Fq(MSTP\(14\)=2)i Fw(and)e Fq(=3)p Fw(.)44 +b(It)32 b(is)f(distinct)g(from)f Fq(MSTP\(14\)=1)35 b +Fw(in)c(that)g(di\013eren)m(t)h(sets)458 4075 y(are)e(used)g(for)f(the) +h(parton)f(distributions)f(|)h(in)f Fq(MSTP\(14\)=1)k +Fw(all)27 b(the)j(con)m(tributions)f(to)458 4184 y(the)f(photon)f +(distributions)e(are)i(lump)s(ed)f(together,)j(while)d(they)i(are)f +(split)e(in)h(VMD)h(and)458 4292 y(anomalous)g(parts)i(for)g +Fq(MSTP\(14\)=10)p Fw(.)45 b(Also)28 b(the)h(b)s(eam)f(remnan)m(t)h +(treatmen)m(t)f(is)h(di\013er-)458 4400 y(en)m(t,)36 +b(with)e(a)h(simple)e(Gaussian)h(distribution)e(\(at)j(least)f(b)m(y)h +(default\))f(for)g Fq(MSTP\(14\)=1)458 4509 y Fw(and)e(the)h(VMD)f +(part)f(of)39 b Fq(MSTP\(14\)=10)p Fw(,)c(but)d(a)f(p)s(o)m(w)m(erlik)m +(e)i(distribution)c(d)p Fj(k)3362 4472 y Fl(2)3359 4533 +y Fk(?)3418 4509 y Fw(\))p Fj(=k)3559 4472 y Fl(2)3556 +4533 y Fk(?)3647 4509 y Fw(b)s(e-)458 4617 y(t)m(w)m(een)49 +b Fq(PARP\(15\))f Fw(and)f Fj(Q)f Fw(for)g(the)h(anomalous)e(part)h(of) +53 b Fq(MSTP\(14\)=10)p Fw(.)88 b(\()p Fq(PYINIT)p Fw(,)458 +4725 y Fq(PYINPR)35 b Fw(and)d Fq(PYSTAT)i Fw(c)m(hanged.\))458 +4834 y(T)-8 b(o)40 b(access)g(this)f(option)f(for)g(e)i(and)f +Fj(\015)44 b Fw(as)39 b(incoming)e(b)s(eams,)j(it)e(is)h(only)f +(necessary)k(to)458 4942 y(set)32 b Fq(MSTP\(14\)=10)i +Fw(and)d(k)m(eep)h Fq(MSEL)g Fw(at)e(its)g(default)h(v)-5 +b(alue.)42 b(Unlik)m(e)30 b(the)i(corresp)s(onding)458 +5050 y(option)37 b(for)g Fj(\015)5 b Fw(p)38 b(and)g +Fj(\015)5 b(\015)g Fw(,)39 b(no)f(cuts)h(are)e(o)m(v)m(erwritten,)k +(i.e.)58 b(it)37 b(is)g(still)f(the)i(resp)s(onsabil-)458 +5159 y(it)m(y)45 b(of)g(the)h(user)g(to)f(set)h(these)g(appropriately) +-8 b(.)80 b(Those)47 b(esp)s(ecially)d(appropriate)g(for)458 +5267 y(DIS)j(usage)h(are)f Fq(CKIN\(21\)-CKIN\(22\))52 +b Fw(or)46 b Fq(CKIN\(23\)-CKIN\(24\))52 b Fw(for)47 +b(the)g Fj(x)g Fw(range)458 5375 y(\(former)39 b(or)g(latter)f(dep)s +(ending)h(on)g(whic)m(h)h(side)g(is)e(the)i(incoming)d(real)h +(photon\),)j(and)458 5484 y Fq(CKIN\(35\)-CKIN\(36\))g +Fw(for)36 b(the)h Fj(Q)1768 5448 y Fl(2)1844 5484 y Fw(range.)56 +b(A)36 b(further)h(new)g(option)f(has)h(b)s(een)g(added)458 +5592 y(\(in)32 b Fq(PYKLIM)p Fw(\))i(to)f(set)g(the)g +Fj(W)1534 5556 y Fl(2)1605 5592 y Fw(range)g(as)g(w)m(ell,)f(see)h +Fq(CKIN\(39\)-CKIN\(40\))p Fw(.)1841 5953 y(29)p eop +%%Page: 30 36 +30 35 bop 458 -18 a Fw(A)28 b(w)m(arning)e(ab)s(out)h(the)g(usage)h(of) +33 b Fm(Pdflib)28 b Fw(for)e(photons.)42 b(So)27 b(long)f(as)h +Fq(MSTP\(14\)=1)p Fw(,)k(i.e.)458 90 y(the)37 b(photon)e(is)h(not)f +(split)g(up,)i Fm(Pdflib)f Fw(is)f(accessed)j(b)m(y)g +Fq(MSTP\(56\)=2)h Fw(and)c Fq(MSTP\(55\))458 198 y Fw(the)41 +b(parton)f(distribution)e(set,)43 b(as)d(describ)s(ed)h(in)f(the)g(man) +m(ual.)65 b(Ho)m(w)m(ev)m(er,)45 b(when)c(the)458 307 +y(VMD)31 b(and)g(anomalous)e(pieces)i(are)g(split,)f(the)h(VMD)g(part)f +(is)h(based)g(on)g(a)f(rescaling)g(of)458 415 y(pion)g(distributions)e +(b)m(y)j(VMD)f(factors)h(\(except)g(for)f(the)g(SaS)g(sets,)i(that)e +(already)g(come)458 523 y(with)f(a)h(separate)g(VMD)f(piece\).)43 +b(Therefore,)31 b(to)e(access)i Fm(Pdflib)f Fw(for)f +Fq(MSTP\(14\)=10)p Fw(,)j(it)458 632 y(is)37 b(not)f(correct)i(to)e +(set)h Fq(MSTP\(56\)=2)j Fw(and)d(a)f(photon)h(distribution)e(in)h +Fq(MSTP\(55\))p Fw(.)58 b(In-)458 740 y(stead,)28 b(one)f(should)e(put) +h Fq(MSTP\(56\)=2)p Fw(,)k Fq(MSTP\(54\)=2)f Fw(and)d(a)f(pion)g +(distribution)f(co)s(de)i(in)458 848 y Fq(MSTP\(53\))p +Fw(,)35 b(while)d Fq(MSTP\(55\))j Fw(has)e(no)g(function.)44 +b(The)33 b(anomalous)e(part)i(is)f(still)f(based)458 +957 y(on)i(the)g(SaS)g(parametrization,)d(with)i Fq(PARP\(15\))j +Fw(as)d(main)f(free)i(parameter.)360 1074 y Fn(\017)48 +b Fw(A)33 b(c)m(hange)h(has)f(b)s(een)g(made)f(in)g Fq(PYREMN)i +Fw(to)e(reduce)i(the)f(p)s(ossibilit)m(y)e(of)h(in\014nite)f(lo)s(ops.) +70 1192 y(13.)49 b Fm(Pythia)33 b Fw(v)m(ersion)g(5.713,)f(22)g(Marc)m +(h)h(1995:)360 1310 y Fn(\017)48 b Fw(The)d(SaS)e(parton)g +(distributions)e(of)i(the)h(photons)f(are)g(no)m(w)h(a)m(v)-5 +b(ailable,)43 b(see)i([Sc)m(h95].)458 1418 y(There)33 +b(are)e(four)g(new)h(sets.)44 b(These)33 b(di\013er)d(in)h(that)f(t)m +(w)m(o)i(use)g(a)f Fj(Q)2889 1433 y Fl(0)2956 1418 y +Fw(=)d(0)p Fj(:)p Fw(6)j(GeV)g(and)g(t)m(w)m(o)458 1527 +y(a)36 b Fj(Q)620 1542 y Fl(0)694 1527 y Fw(=)d(2)j(GeV,)g(and)g(in)g +(that)g(t)m(w)m(o)h(use)g(the)f(DIS)g(and)g(t)m(w)m(o)h(the)p +2954 1449 144 4 v 37 w(MS)f(con)m(v)m(en)m(tions)i(for)458 +1635 y(the)h(dominan)m(t)e(non-leading)g(con)m(tributions.)60 +b(\(Ho)m(w)m(ev)m(er,)42 b(the)d(\014ts)g(are)f(formally)e(still)458 +1743 y(leading-order,)24 b(in)f(that)h(not)f(all)f(next-to-leading)g +(con)m(tributions)h(ha)m(v)m(e)i(b)s(een)g(included.\))458 +1852 y(New)h(default)f(is)f(the)i(SaS)f(1D)f(set.)41 +b(F)-8 b(urthermore,)26 b(for)f(the)g(de\014nition)f(of)h +Fj(F)3254 1804 y Fh(\015)3240 1873 y Fl(2)3298 1852 y +Fw(,)h(additional)458 1960 y(terms)h(app)s(ear)g(that)f(do)g(not)h +(form)e(part)i(of)f(the)h(parton)f(distributions)f(itself.)40 +b(T)-8 b(o)27 b(partly)458 2068 y(tak)m(e)48 b(this)f(in)m(to)f(accoun) +m(t,)51 b(an)c(additional)d(doubling)i(of)g(the)h(p)s(ossibilities)d +(has)k(b)s(een)458 2177 y(included.)f(These)35 b(eigh)m(t)e(p)s +(ossibilites)f(can)i(b)s(e)f(accesed)j(with)d Fq(MSTP\(55\))p +Fw(.)49 b(The)34 b(default)458 2285 y(v)-5 b(alue)29 +b(of)36 b Fq(PARP\(15\))c Fw(has)e(b)s(een)g(c)m(hanged)g(from)e(0.5)h +(to)g(0.6)g(GeV,)h(for)f(consistency)i(with)458 2393 +y(SaS)i(1D.)458 2502 y(The)h(generic)e(routine)g Fq(PYSTFU)i +Fw(has)e(b)s(een)h(rewritten)g(to)f(handle)g(the)g(in)m(terfacing.)43 +b(The)458 2610 y(old)31 b(routines)g Fq(PYSTAG)p Fw(,)i +Fq(PYSTGS)p Fw(,)f Fq(PYDILN)h Fw(and)e Fq(PYSTHG)i Fw(ha)m(v)m(e)g(b)s +(een)e(remo)m(v)m(ed.)44 b(Instead)458 2718 y(the)34 +b(routines)e(of)g(the)h Fm(SaSgam)g Fw(library)e(ha)m(v)m(e)j(b)s(een)f +(inserted.)44 b(In)33 b(order)g(to)f(a)m(v)m(oid)h(an)m(y)458 +2827 y(clashes,)41 b(the)d(routines)g Fq(SAS***)i Fw(ha)m(v)m(e)f(b)s +(een)g(renamed)f Fq(PYG***)p Fw(.)61 b(Th)m(us)40 b(new)f(routines)458 +2935 y(are)33 b Fq(PYGGAM)p Fw(,)i Fq(PYGVMD)p Fw(,)g +Fq(PYGANO)p Fw(,)f Fq(PYGBEH)h Fw(and)e Fq(PYGDIR)p Fw(.)i(The)e +(common)f(blo)s(c)m(k)h Fq(SASCOM)458 3043 y Fw(is)e(renamed)g +Fq(PYINT8)p Fw(.)45 b(If)31 b(y)m(ou)h(w)m(an)m(t)g(to)f(use)h(the)f +(parton)g(distributions)f(for)h(standalone)458 3152 y(purp)s(oses,)g(y) +m(ou)d(are)g(encouraged)g(to)g(use)g(the)h(original)24 +b Fm(SaSgam)k Fw(routines)g(rather)f(than)458 3260 y(going)32 +b(the)h(w)m(a)m(y)g(via)f(the)h Fm(Pythia)g Fw(adaptations.)360 +3378 y Fn(\017)48 b Fq(PYDOCU)37 b Fw(has)e(b)s(een)g(corrected)h(so)f +(that)g Fq(PARI\(2\))h Fw(refers)g(to)e(the)i(full)c(cross)k(section)f +(for)458 3486 y Fj(\015)5 b Fw(p)33 b(and)g Fj(\015)5 +b(\015)37 b Fw(pro)s(cesses,)e(rather)e(than)f(that)h(of)f(the)h +(latest)f(subpro)s(cess)j(considered.)360 3604 y Fn(\017)48 +b Fw(An)33 b(additional)d(c)m(hec)m(k)35 b(has)e(b)s(een)g(inserted)g +(in)m(to)f(PYREMN.)70 3722 y(14.)49 b Fm(Pythia)33 b +Fw(v)m(ersion)g(5.714,)f(22)g(Marc)m(h)h(1995:)360 3840 +y Fn(\017)48 b Fw(Some)38 b(minor)d(mo)s(di\014cations)h(to)h +Fq(PYSTFU)i Fw(and)f Fq(PYGGAM)h Fw(in)e(the)h(w)m(ak)m(e)h(of)e(the)h +(c)m(hanges)458 3948 y(of)33 b(the)g(previous)g(v)m(ersion.)70 +4066 y(15.)49 b Fm(Pythia)33 b Fw(v)m(ersion)g(5.715,)f(24)g(April)f +(1995:)360 4184 y Fn(\017)48 b Fw(An)29 b(unfortunate)f(c)m(hoice)g(of) +g(default)f(v)-5 b(alues)28 b(has)g(b)s(een)h(corrected:)42 +b(the)28 b(old)f Fq(MSTP\(3\)=2)458 4292 y Fw(v)-5 b(alue)28 +b(implied)e(that)i(\003)1324 4307 y Fl(QCD)1516 4292 +y Fw(w)m(as)i(en)m(tirely)e(based)h(on)f(the)h(\003)f(v)-5 +b(alue)28 b(of)g(the)h(proton)f(struc-)458 4400 y(ture)35 +b(function;)e(also)g(e.g.)47 b(for)34 b(e)1660 4364 y +Fl(+)1719 4400 y Fw(e)1762 4364 y Fk(\000)1855 4400 y +Fw(annihilation)c(ev)m(en)m(ts.)50 b(Th)m(us)35 b(the)f(\003)f(in)g +Fq(PARJ\(81\))458 4509 y Fw(w)m(as)e(o)m(v)m(erwritten,)g(i.e.)42 +b(did)30 b(not)f(k)m(eep)i(the)g(v)-5 b(alue)29 b(required)h(b)m(y)g +(standard)h(phenomenol-)458 4617 y(ogy)-8 b(,)40 b(whic)m(h)f(t)m +(ypically)d(ga)m(v)m(e)j(to)s(o)f(narro)m(w)g(jets.)61 +b(\(While)36 b(switc)m(hing)i(to)g Fq(MSTP\(3\)=1)i Fw(it)458 +4725 y(w)m(ork)m(ed)26 b(\014ne.\))42 b(In)24 b(the)h(mo)s(di\014ed)e +(option)g Fq(MSTP\(3\)=2)k Fw(this)d(has)h(b)s(een)g(corrected,)i(to)d +(b)s(et-)458 4834 y(ter)37 b(agree)f(with)f(user)i(exp)s(ectations.)54 +b(Since)36 b(further)g(c)m(hanges)h(w)m(ere)g(made)f(in)f(v)m(ersion) +458 4942 y(5.716,)d(w)m(e)i(refer)f(b)s(elo)m(w)f(for)g(additional)e +(commen)m(ts.)360 5060 y Fn(\017)48 b Fw(The)42 b(form)e(for)h +Fq(PTMANO)p Fw(,)h(the)g Fj(p)1665 5075 y Fk(?)p Fl(min)1882 +5060 y Fw(for)f(anomalous)e(pro)s(cesses,)45 b(as)d(used)g(in)e +Fq(PYINPR)458 5168 y Fw(when)33 b(pro)s(cesses)h(are)e(mixed)f(for)g +Fj(\015)5 b Fw(p)32 b(or)f Fj(\015)5 b(\015)37 b Fw(ev)m(en)m(ts,)d +(has)e(b)s(een)g(up)s(dated)h(to)e(matc)m(h)g(\(as)458 +5276 y(w)m(ell)h(as)h(can)g(b)s(e)g(exp)s(ected\))h(the)f(SaS)g(1D)f +(photon)g(distributions.)70 5394 y(16.)49 b Fm(Pythia)33 +b Fw(v)m(ersion)g(5.716,)f(30)g(June)h(1995:)360 5512 +y Fn(\017)48 b Fw(The)38 b(strategy)f(for)e(the)i(c)m(hanges)h(to)e +(\003)g(in)f(v)m(ersion)i(5.715)f(ab)s(o)m(v)m(e)h(ha)m(v)m(e)h(b)s +(een)f(mo)s(di\014ed)458 5620 y(for)27 b(b)s(etter)h(transparency)-8 +b(.)43 b(No)m(w)29 b Fq(PARJ\(81\))h Fw(is)c(used)j(for)e(resonance)h +(deca)m(ys)h(\(including)1841 5953 y(30)p eop +%%Page: 31 37 +31 36 bop 458 -18 a Fw(e.g.)80 b(Z)744 -55 y Fl(0)827 +-18 y Fw(deca)m(y)-8 b(,)49 b(from)43 b(whic)m(h)i(it)f(is)f +(determined\),)48 b(and)c Fq(PARP\(72\))j Fw(for)d(other)g(time-)458 +90 y(lik)m(e)e(sho)m(w)m(ers.)74 b Fq(PARJ\(81\))44 b +Fw(is)e(not)g(o)m(v)m(erwritten)h Fq(for)52 b(MSTP\(3\)=2)p +Fw(,)47 b(but)42 b(only)f(for)h Fq(=3)p Fw(.)458 198 +y(Changes)34 b(a\013ect)f Fq(PYINIT)p Fw(,)h Fq(PYEVNT)g +Fw(and)f Fq(PYRESD)p Fw(.)360 316 y Fn(\017)48 b Fw(A)33 +b(new)f(m)m(ultiplicativ)m(e)d(factor)i(has)i(b)s(een)g(in)m(tro)s +(duced)f(for)f(the)i Fj(Q)2940 280 y Fl(2)3011 316 y +Fw(scale)f(c)m(hoice)h(of)e(the)458 424 y(hard)d(scattering)f(in)f +Fq(PYSIGH)p Fw(,)j(a\013ecting)d(parton)h(distributions)f(and)h +Fj(\013)3103 439 y Fl(s)3135 424 y Fw(,)h(see)g Fq(PARP\(34\))p +Fw(.)360 542 y Fn(\017)48 b Fq(PYREMN)35 b Fw(has)e(b)s(een)g +(corrected)h(for)e(o)s(ccasional)f(to)s(o)g(large)h(b)s(o)s(ost)g +(factors.)360 660 y Fn(\017)48 b Fw(An)33 b(error)g(in)f +Fq(PYSIGH)i Fw(for)e(pro)s(cess)i(148)d(has)i(b)s(een)h(corrected.)360 +778 y Fn(\017)48 b Fw(The)34 b Fq(MSTP\(62\)=1)h Fw(option)d(of)39 +b Fq(PYSSPA)34 b Fw(is)e(mo)s(di\014ed)f(to)h(a)m(v)m(oid)h(division)e +(b)m(y)i(zero.)360 896 y Fn(\017)48 b Fw(Header)34 b(has)f(b)s(een)g +(up)s(dated)g(with)f(WWW-information.)70 1013 y(17.)49 +b Fm(Pythia)33 b Fw(v)m(ersion)g(5.717,)f(23)g(August)h(1995:)360 +1131 y Fn(\017)48 b Fq(MIN1)p Fw(,)29 b Fq(MIN2)p Fw(,)g +Fq(MAX1)p Fw(,)g Fq(MAX2)p Fw(,)g Fq(MINA)e Fw(and)g +Fq(MAXA)g Fw(in)f Fq(PYSIGH)i Fw(ha)m(v)m(e)f(had)g(an)f(extra)h +Fq(M)g Fw(pre\014xed)458 1239 y(to)33 b(a)m(v)m(oid)f(confusion)h(with) +f(F)-8 b(ortran)31 b(functions.)360 1357 y Fn(\017)48 +b Fw(Protect)34 b(against)d Fq(MDCY\(0,1\))k Fw(b)s(eing)d(accessed)j +(in)d Fq(PYSIGH)p Fw(.)360 1475 y Fn(\017)48 b Fw(Protect)34 +b(against)d Fq(THB=0)j Fw(in)e Fq(PYRAND)p Fw(.)360 1593 +y Fn(\017)48 b Fw(Protect)34 b(against)d Fq(YSTMAX-YSTMIN)55 +b(=)c(0)33 b Fw(in)f Fq(PYSIGH)p Fw(.)360 1711 y Fn(\017)48 +b Fw(Chec)m(k)29 b(for)d(mo)m(v)m(ed)g(lepto)s(quark)h(at)f(b)s +(eginning)e(of)33 b Fq(PYRESD)28 b Fw(just)f(lik)m(e)e(for)h(other)g +(particles)458 1819 y(with)33 b(colour.)70 1937 y(18.)49 +b Fm(Pythia)33 b Fw(v)m(ersion)g(5.718,)f(14)g(Septem)m(b)s(er)h(1995:) +360 2055 y Fn(\017)48 b Fw(The)32 b(protection)d(ab)s(o)m(v)m(e)i +(against)f Fq(YSTMAX-YSTMIN)54 b(=)e(0)30 b Fw(in)g Fq(PYSIGH)h +Fw(turned)g(out)f(to)g(b)s(e)458 2163 y(\015a)m(w)m(ed:)51 +b(when)36 b(used)h(with)d(electron-inside-electron)g(structure)j +(functions)e(it)f(cut)i(out)458 2271 y(part)26 b(of)f(the)h(allo)m(w)m +(ed)f(phase)i(space)g(and)f(th)m(us)h(ga)m(v)m(e)f(to)s(o)f(lo)m(w)g(a) +h(cross)h(section)f(for)f(sev)m(eral)458 2380 y(e+e-)33 +b(pro)s(cesses.)46 b(This)32 b(is)g(no)m(w)i(corrected.)70 +2497 y(19.)49 b Fm(Pythia)33 b Fw(v)m(ersion)g(5.719,)f(27)g(Octob)s +(er)g(1995:)360 2615 y Fn(\017)48 b Fw(A)29 b(signi\014can)m(t)e(bug)h +(has)g(b)s(een)h(corrected)g(in)f(the)g(handling)f(of)g(structure)i +(functions)f(and)458 2723 y(phase)34 b(space)f(for)f(initial-state)c +(radiation)i(in)i(e)2233 2687 y Fl(+)2292 2723 y Fw(e)2335 +2687 y Fk(\000)2395 2723 y Fw(.)43 b(This)33 b(bug)f(has)h(resulted)f +(in)g(ab)s(out)458 2832 y(5\045)f(to)s(o)e(large)g(cross)i(sections.)43 +b(\(This)30 b(is)g(the)h(n)m(um)m(b)s(er)f(for)g(W)h(pair)e(pro)s +(duction,)h(where)458 2940 y(the)38 b(problem)f(w)m(as)h(found,)h(but)f +(it)f(should)g(b)s(e)h(almost)e(pro)s(cess-indep)s(enden)m(t.\))60 +b(Since)458 3049 y(the)35 b(bug)g(resulted)g(from)e(a)h(`doublecoun)m +(ting')g(of)g(phase)h(space)h(for)e Fj(x)g Fw(v)m(ery)i(close)f(to)f +(1,)458 3157 y(it)i(also)f(ga)m(v)m(e)i(to)s(o)e(little)f +(initial-state)e(radiation,)j(b)m(y)i(ab)s(out)f(the)h(same)f(amoun)m +(t.)54 b(The)458 3265 y(problem)28 b(is)h(sp)s(eci\014c)h(to)e(the)i +(strongly)e(p)s(eak)m(ed)j(electron-inside-electron)c(distribution,)458 +3374 y(and)33 b(so)g(do)s(es)g(not)f(a\013ect)h(e.g.)44 +b(pp)33 b(ph)m(ysics.)360 3491 y Fn(\017)48 b Fw(There)g(is)e(also)g +(another)g(c)m(hange)i(in)d(cross)j(section)e(calculations.)84 +b(In)46 b Fm(Pythia)h Fw(the)458 3600 y(cross)40 b(section)e(of)g(a)g +(pro)s(cess)i(is)d(calculated)h(from)f(the)i(sum)f(of)g(cross-section)h +(w)m(eigh)m(ts)458 3708 y(for)f(all)d(phase)k(space)g(p)s(oin)m(ts)e +(selected)i(during)e(the)h(course)g(of)f(the)i(run.)59 +b(This)37 b(sum)h(is)458 3816 y(stored)h(in)e(single)g(precision,)i +(whic)m(h)f(is)f(normally)f(reasonable,)j(since)f Fm(Pythia)g +Fw(is)g(not)458 3925 y(really)f(in)m(tended)i(to)e(giv)m(e)h +(high-precision)e(cross)j(section)f(information.)57 b(In)38 +b(v)m(ery)i(long)458 4033 y(runs,)f(ho)m(w)m(ev)m(er,)h(this)c(giv)m +(es)h(problems)e(when)j(a)e(single)f(small)f(w)m(eigh)m(t)j(is)f(to)g +(b)s(e)h(added)458 4141 y(to)h(a)f(large)f(sum)h(of)g(preceding)h(w)m +(eigh)m(ts.)59 b(Bey)m(ond)39 b(a)e(certain)g(p)s(oin)m(t)g(\(of)g(the) +g(order)h(of)458 4250 y(100,000)30 b(ev)m(en)m(ts)k(of)c(one)h(and)h +(the)f(same)g(pro)s(cess\))h(one)f(ma)m(y)g(therefore)h(start)f(to)g +(obtain)458 4358 y(to)s(o)38 b(lo)m(w)f(cross)i(sections,)i(a)c +(problem)g(that)h(then)h(gradually)d(w)m(orsens.)62 b(T)-8 +b(o)38 b(solv)m(e)h(this)458 4466 y(problem,)k(the)f(sum)g(of)f(w)m +(eigh)m(ts)i(is)e(no)m(w)h(stored)g(in)f(double)h(precision.)70 +b(F)-8 b(or)41 b(reasons)458 4575 y(of)d(bac)m(kw)m(ards)i +(compatibilit)m(y)-8 b(,)36 b(this)h(is)h(put)g(in)f(a)h(new)g(common)m +(blo)s(c)m(k,)h Fq(PYINT9)p Fw(.)61 b(The)458 4683 y(old)34 +b(w)m(eigh)m(t)g(information)e(is)h(still)f(\014lled)i(as)g(w)m(ell,)g +(but)h(not)f(used)i(for)d(the)i(cross)g(section)458 4791 +y(calculation.)360 4909 y Fn(\017)48 b Fw(An)60 b(option)e(has)h(b)s +(een)h(in)m(tro)s(duced)f(to)g(select)g(b)s(et)m(w)m(een)i(sev)m(eral)f +(electron-inside-)458 5018 y(electron)39 b(parton)g(distributions.)60 +b(The)40 b(t)m(w)m(o)g(found)f(so)g(far)f(are)h(almost)e(inden)m(tical) +g(|)458 5126 y(di\013erences)d(are)f(on)f(the)h(p)s(er)g(mille)c(lev)m +(el.)44 b(See)33 b Fq(MSTP\(59\))p Fw(.)360 5244 y Fn(\017)48 +b Fw(Coulom)m(b)35 b(corrections)h(ha)m(v)m(e)h(b)s(een)f(in)m(tro)s +(duced)g(as)g(an)g(option)e(for)i(W)3147 5208 y Fl(+)3206 +5244 y Fw(W)3307 5208 y Fk(\000)3402 5244 y Fw(pair)f(pro-)458 +5352 y(duction)e(\(pro)s(cess)g(25\),)g(see)g Fq(MSTP\(40\))p +Fw(.)70 5470 y(20.)49 b Fm(Pythia)33 b Fw(v)m(ersion)g(5.720,)f(29)g +(No)m(v)m(em)m(b)s(er)h(1995:)360 5588 y Fn(\017)48 b +Fq(PYRAND)37 b Fw(has)d(b)s(een)i(corrected)f(so)g(that)g(a)f(VMD)g(v)m +(ector)i(meson)e(is)h(reselected)g(also)f(for)1841 5953 +y(31)p eop +%%Page: 32 38 +32 37 bop 458 -18 a Fw(VMD*\(direct)33 b(or)f(anomalous\).)360 +99 y Fn(\017)48 b Fq(PYSTFU)43 b Fw(and)d(\(mainly\))f +Fq(PYSTFL)j Fw(ha)m(v)m(e)g(b)s(een)f(corrected)h(so)f(that)f(a)h(VMD)f +(photon)h(is)458 208 y(not)f(mapp)s(ed)f(to)g(a)g(pion)g(for)g +Fq(MSTP\(57\)=3)p Fw(,)44 b(but)c(is)f(treated)h(with)f(the)h(same)f +(photon)458 316 y(parton)32 b(distributions)f(as)h(for)g(other)g +Fq(MSTP\(57\))j Fw(v)-5 b(alues,)32 b(but)g(with)g(prop)s(erly)g(mo)s +(di\014ed)458 424 y(b)s(eha)m(viour)40 b(for)g(small)e +Fj(x)i Fw(or)f Fj(Q)p Fw(2.)66 b(A)40 b(new)h(v)-5 b(ariable)38 +b Fq(VINT\(232\))43 b Fw(is)c(in)m(tro)s(duced)h(for)g(a)458 +533 y(temp)s(orary)32 b(result.)360 650 y Fn(\017)48 +b Fw(The)h(matrix)e(elemen)m(t)h(for)f(pro)s(cess)j(86)d(in)g +Fq(PYSIGH)j Fw(has)e(b)s(een)h(rewritten)f(with)g(the)458 +759 y(addition)31 b(of)h(brac)m(k)m(ets)j(to)d(a)m(v)m(oid)h(o)m(v)m +(er\015o)m(w)h(in)e(in)m(termediate)f(results.)70 877 +y(21.)49 b Fm(Pythia)33 b Fw(v)m(ersion)g(5.721,)f(21)g(Marc)m(h)h +(1996:)360 994 y Fn(\017)48 b Fw(New)29 b(options)f(ha)m(v)m(e)h(b)s +(een)g(added)f(for)g(the)g(scale)g(of)g(QED)f(initial-state)e(parton)i +(sho)m(w)m(ers)458 1103 y(in)32 b(e)615 1067 y Fl(+)675 +1103 y Fw(e)718 1067 y Fk(\000)777 1103 y Fw(.)44 b(See)33 +b Fq(MSTP\(68\))i Fw(for)d(a)g(discussion.)70 1221 y(22.)49 +b Fm(Pythia)33 b Fw(v)m(ersion)g(5.722,)f(23)g(Ma)m(y)h(1996:)360 +1338 y Fn(\017)48 b Fw(A)31 b(bug)g(corrected)g(in)f(the)h(description) +f(of)g(the)h(lo)m(w-mass)e(tail)f(of)i(the)h Fj(\015)3135 +1302 y Fk(\003)3175 1338 y Fj(=)p Fw(Z)e(propagator)458 +1447 y(in)35 b(pro)s(cesses)j(19)e(and)f(22.)53 b(Dep)s(ending)35 +b(on)h(cuts,)i(the)e(error)f(could)h(go)f(up)h(to)f(a)h(factor)458 +1555 y(of)e(ab)s(out)f(2)g(at)g(the)h(v)m(ery)i(lo)m(w)m(est)e(masses)g +(\(2)g(GeV\),)f(but)h(is)f(irrelev)-5 b(an)m(t)33 b(around)g(the)h(Z) +3740 1519 y Fl(0)458 1663 y Fw(p)s(eak)g(itself.)360 +1781 y Fn(\017)48 b Fw(Some)54 b(minor)f(up)s(dates)i(of)f(the)h +(gamma-gamma)50 b(treatmen)m(t)k(in)f(accordance)j(with)458 +1889 y([Sc)m(h97)q(].)74 b(This)42 b(includes)h(the)g(default)f(b)s +(eha)m(viour)g(of)g(the)h Fj(p)2803 1904 y Fk(?)p Fl(min)3022 +1889 y Fw(cuto\013)g(for)f(anoma-)458 1998 y(lous)36 +b(pro)s(cesses)i(and)e(the)g(reggeon)g(co)s(e\016cien)m(ts)i(of)d(the)h +(total)f(cross)i(section)f(of)f(v)m(ector)458 2106 y(mesons.)70 +2224 y(23.)49 b Fm(Pythia)33 b Fw(v)m(ersion)g(5.723,)f(27)g(Ma)m(y)h +(1997:)360 2342 y Fn(\017)48 b Fw(In)m(tro)s(duce)36 +b(lo)m(w)m(er)f(limit)c(for)j(the)i(cross-section)f(parametrizations)e +(stored)i(in)f Fq(PYXTOT)p Fw(,)458 2450 y(see)g Fq(PARP\(104\))p +Fw(.)360 2568 y Fn(\017)48 b Fw(Inclusion)34 b(of)f(top)g(\(and)h +(fourth)f(generation\))g(quarks)i(as)e(allo)m(w)m(ed)g(remnan)m(t)h +(\015a)m(v)m(our)g(in)458 2676 y(some)f(pro)s(cesses)i(that)d(in)m(v)m +(olv)m(e)h(q)28 b Fn(!)f Fw(q)1921 2640 y Fk(0)1967 2676 +y Fw(+)22 b(W)q(,)33 b(see)h Fq(MSTP\(9\))p Fw(.)360 +2794 y Fn(\017)48 b Fq(PYSCAT)66 b Fw(mo)s(di\014ed)c(so)i(that)f(hea)m +(vy)j(quark)e(masses)h(set)f(where)h(the)f Fq(VINT\(63\),)458 +2902 y(VINT\(64\))35 b Fw(v)-5 b(alues)33 b(are)f(not)h(applicable.)360 +3020 y Fn(\017)48 b Fw(Z)33 b(width)f(calculation)e(mo)s(di\014ed)i +(for)g(initial-\015a)m(v)m(our)d(dep)s(endence)35 b(in)d +Fq(PYWIDT)p Fw(.)360 3138 y Fn(\017)48 b Fq(PYSIGH)34 +b Fw(corrected)f(so)e(that)h(pro)s(cess)h(145)e(w)m(orks)i(also)d(for)i +(e)2728 3102 y Fl(+)2787 3138 y Fw(q)g(lepto)s(quarks,)g(not)g(only)458 +3246 y(e)501 3210 y Fk(\000)561 3246 y Fw(q)h(ones.)360 +3364 y Fn(\017)48 b Fw(New)34 b(colour)e(\015o)m(w)h(option)e(33)h(in)g +Fq(ICOL)i Fw(arra)m(y)-8 b(.)360 3482 y Fn(\017)48 b +Fw(New)34 b(pro)s(cesses)h(106)c(and)i(107)f(in)m(tro)s(duced.)70 +3600 y(24.)49 b Fm(Pythia)33 b Fw(v)m(ersion)g(5.724,)f(4)g(June)h +(1997:)360 3717 y Fn(\017)48 b Fw(New)34 b(pro)s(cess)g(108)e(in)m(tro) +s(duced.)0 3991 y Fp(3.2)135 b(Program)46 b(Installation)0 +4164 y Fw(Sev)m(eral)34 b(`authorized')g(sources)h(of)e(the)i(programs) +d(exist.)48 b(The)34 b(`master)g(cop)m(y')h(of)e(the)h(programs)f(is)0 +4272 y(the)g(one)g(found)g(on)f(m)m(y)h(W)-8 b(orld)31 +b(Wide)i(W)-8 b(eb)33 b(homepage)0 4381 y Fq(http://thep.lu.se/tf2/sta) +q(ff/t)q(orb)q(jorn)q(/Wel)q(come)q(.ht)q(ml)0 4489 y +Fw(There)h(y)m(ou)f(ha)m(v)m(e:)130 4680 y Fq(jetset74.f)263 +b Fw(the)33 b Fm(Jetset)e Fw(co)s(de,)130 4789 y Fq(pythia57.f)263 +b Fw(the)33 b Fm(Pythia)g Fw(co)s(de,)130 4897 y Fq(pythia57.tex)161 +b Fw(this)32 b(common)f Fm(Pythia/Jetset)h Fw(man)m(ual,)f(and)130 +5005 y Fq(update57.notes)59 b Fw(plain)31 b(text)i(up)s(date)g(notes)g +(to)f(the)h(man)m(ual.)0 5197 y(In)27 b(addition)f(to)h(these,)i(one)f +(ma)m(y)e(also)h(\014nd)g(older)g(v)m(ersions)h(of)e(the)i(program)e +(and)h(man)m(uals,)g(sample)0 5305 y(main)k(programs)h(and)g(other)h +(pieces)g(of)f(related)h(soft)m(w)m(are,)g(and)g(other)g(ph)m(ysics)h +(pap)s(ers.)146 5414 y(The)45 b(lac)m(k)e(of)g(stable)g(v)m(ersions)h +(ma)m(y)f(mak)m(e)h(it)e(less)i(con)m(v)m(enien)m(t)h(to)e(rely)g(on)g +(the)h(ab)s(o)m(v)m(e)g(\014les.)0 5522 y(New)e(v)m(ersions)g(are)g(in) +m(tro)s(duced)f(in)f(the)i(general)f(distribution)e(of)i(the)g(CERN)h +(program)e(library)-8 b(,)0 5630 y(ma)m(yb)s(e)28 b(once)h(a)e(y)m +(ear.)43 b(These)30 b(v)m(ersions)f(are)f(b)s(etter)g(c)m(hec)m(k)m(ed) +j(b)s(efore)d(release,)h(and)f(should)g(b)s(e)g(useful)1841 +5953 y(32)p eop +%%Page: 33 39 +33 38 bop 0 -18 a Fw(for)38 b(most)g(applications.)60 +b(Ho)m(w)m(ev)m(er,)43 b(clearly)-8 b(,)39 b(they)h(ma)m(y)e(b)s(e)h +(less)g(up-to-date.)62 b(Read)39 b(the)g(CERN)0 90 y(Computer)e +(Newsletter)g(for)f(announcemen)m(ts.)57 b(Copies)37 +b(of)f(the)h(programs)e(are)i(also)e(a)m(v)-5 b(ailable)34 +b(via)0 198 y(anon)m(ymous)f(ftp,)g(e.g.)43 b(from)32 +b(the)h(asisftp)f(serv)m(er)i(at)e(CERN.)146 307 y(The)45 +b(programs)e(are)h(written)g(en)m(tirely)g(in)f(standard)h(F)-8 +b(ortran)43 b(77,)k(and)d(should)g(run)g(on)g(an)m(y)0 +415 y(mac)m(hine)f(with)f(suc)m(h)j(a)d(compiler.)73 +b(T)-8 b(o)44 b(a)e(\014rst)i(appro)m(ximation,)f(program)f +(compilation)e(should)0 523 y(therefore)33 b(b)s(e)g(straigh)m(tforw)m +(ard.)146 632 y(Unfortunately)-8 b(,)25 b(exp)s(erience)g(with)e(man)m +(y)g(di\013eren)m(t)h(compilers)d(has)j(b)s(een)g(uniform:)37 +b(the)24 b(options)0 740 y(a)m(v)-5 b(ailable)34 b(for)h(obtaining)g +(optimized)f(co)s(de)j(actually)e(pro)s(duce)i(erroneous)g(co)s(de)g +(\(e.g.)54 b(op)s(erations)0 848 y(inside)28 b Fq(DO)h +Fw(lo)s(ops)e(are)i(mo)m(v)m(ed)g(out)f(b)s(efore)h(them,)g(where)h +(some)e(of)g(the)h(v)-5 b(ariables)27 b(ha)m(v)m(e)j(not)e(y)m(et)i(b)s +(een)0 957 y(prop)s(erly)k(set\).)49 b(Therefore)35 b(the)f(general)g +(advice)g(is)g(to)g(use)h(a)e(lo)m(w)h(optimization)d(lev)m(el.)47 +b(Note)35 b(that)0 1065 y(this)d(is)g(often)h(not)f(the)h(default)f +(setting.)146 1173 y Fq(SAVE)37 b Fw(statemen)m(ts)f(ha)m(v)m(e)h(b)s +(een)f(included)e(in)h(accordance)h(with)f(the)h(F)-8 +b(ortran)34 b(standard.)52 b(Since)0 1282 y(most)28 b(ordinary)g(mac)m +(hines)h(tak)m(e)g Fq(SAVE)h Fw(for)e(gran)m(ted,)i(this)f(part)f(is)g +(not)h(particularly)d(w)m(ell)i(tried)h(out,)0 1390 y(ho)m(w)m(ev)m +(er.)146 1498 y(All)23 b(default)h(settings)h(and)f(particle)f(and)i +(pro)s(cess)h(data)e(are)g(stored)h(in)f Fq(BLOCK)53 +b(DATA)f(LUDATA)26 b Fw(for)0 1607 y Fm(Jetset)35 b Fw(and)g +Fq(BLOCK)53 b(DATA)f(PYDATA)37 b Fw(for)e Fm(Pythia)p +Fw(.)53 b(These)37 b(subprograms)f(m)m(ust)g(b)s(e)f(link)m(ed)h(for)f +(a)0 1715 y(prop)s(er)25 b(functioning)e(of)i(the)g(other)g(routines.) +41 b(On)25 b(some)f(mac)m(hines)h(this)g(is)f(not)h(done)g +(automatically)0 1823 y(but)f(m)m(ust)g(b)s(e)f(forced)h(b)m(y)h(y)m +(ou,)h(in)d(particular)e(if)30 b Fm(Jetset)22 b Fw(and)i +Fm(Pythia)g Fw(are)f(main)m(tained)f(as)i(libraries)0 +1932 y(from)34 b(whic)m(h)i(routines)f(are)h(to)f(b)s(e)g(loaded)g +(only)g(when)h(they)g(are)g(needed.)53 b(In)36 b(this)f(connection)g(w) +m(e)0 2040 y(note)47 b(that)g(the)g(library)f(approac)m(h)h(do)s(es)h +(not)e(giv)m(e)h(an)m(y)h(signi\014can)m(t)e(space)i(adv)-5 +b(an)m(tages)48 b(o)m(v)m(er)g(a)0 2148 y(loading)34 +b(of)i(the)h(pac)m(k)-5 b(ages)37 b(as)g(a)f(whole,)h(since)g(a)f +(normal)e(run)i(will)e(call)h(on)h(most)g(of)g(the)h(routines)0 +2257 y(an)m(yw)m(a)m(y)-8 b(,)35 b(directly)c(or)i(indirectly)-8 +b(.)146 2365 y(Since)46 b(most)f(mac)m(hines)g(in)f(curren)m(t)j(use)f +(are)g(32-bit)d(ones,)50 b(this)44 b(is)h(the)h(precision)f(normally)0 +2473 y(assumed.)52 b(A)35 b(few)h(pieces)g(of)e(co)s(de)i(ha)m(v)m(e)g +(therefore)g(had)f(to)g(b)s(e)g(written)g(in)f(double)h(precision.)51 +b(As)0 2582 y(a)34 b(rule)h(of)f(th)m(um)m(b,)i(double-precision)d(v)-5 +b(ariables)34 b(ha)m(v)m(e)i(as)f(\014rst)g(c)m(haracter)g +Fq(D)p Fw(,)g(but)g(there)h(are)e(a)h(few)0 2690 y(exceptions.)146 +2798 y(F)-8 b(or)28 b(applications)e(at)i(v)m(ery)i(high)e(energies,)i +(suc)m(h)g(as)e(LHC,)h(the)g(use)h(of)e(single)f(precision)h(for)g(an)m +(y)0 2907 y(real)h(v)-5 b(ariable)29 b(is)h(a)g(problem.)42 +b(It)30 b(migh)m(t)f(then)i(b)s(e)g(necessary)h(to)e(rewrite)h(the)g +(program)e(completely)-8 b(,)0 3015 y(i.e.)69 b(to)40 +b(ha)m(v)m(e)j(a)d(declaration)g Fq(IMPLICIT)53 b(DOUBLE)g +(PRECISION\(A-H,O-Z\))46 b Fw(at)41 b(the)g(b)s(eginning)f(of)0 +3123 y(eac)m(h)d(subprogram,)h(and)e(to)g(c)m(hange)i(all)c(real)i +(constan)m(ts)i(to)e(double)g(precision.)55 b(Needless)38 +b(to)f(sa)m(y)-8 b(,)0 3232 y(the)38 b(latter)e(is)h(a)f(ma)5 +b(jor)37 b(undertaking.)57 b(In)38 b(some)f(cases,)i(shortcuts)g(are)e +(a)m(v)-5 b(ailable.)55 b(On)37 b(the)h(IBM,)0 3340 y(for)i(instance,)j +(the)e Fq(AUTODBL)i Fw(compiler)c(option)g(for)i(automatic)d(precision) +i(doubling)g(w)m(orks)i(\014ne,)0 3448 y(pro)m(vided)26 +b(only)f(that)g(an)h(ev)m(en)h(n)m(um)m(b)s(er)f(of)f(in)m(tegers)h +(precede)h(real)d(n)m(um)m(b)s(ers)j(in)e(common)f(blo)s(c)m(ks.)41 +b(In)0 3557 y Fm(Jetset)25 b Fw(y)m(ou)i(therefore)g(need)h(to)e(in)m +(tro)s(duce)g(an)h(additional)c(in)m(teger)k(v)-5 b(ariable)24 +b(\()p Fq(NPAD)p Fw(,)k(sa)m(y\))f(directly)0 3665 y(after)i +Fq(N)g Fw(in)g(the)h Fq(LUJETS)g Fw(common)e(blo)s(c)m(k,)i(and)g(in)e +Fm(Pythia)h Fw(an)h(additional)c(in)m(teger)j(\()p Fq(MSEPAD)p +Fw(\))i(after)0 3774 y Fq(MSEL)24 b Fw(in)e(the)h Fq(PYSUBS)h +Fw(common)e(blo)s(c)m(k.)40 b(Some)22 b(pieces)i(of)e(co)s(de)i(will)c +(then)j(actually)f(run)h(in)f(quadruple)0 3882 y(precision.)146 +3990 y(A)47 b(test)g(program,)i Fq(LUTEST)p Fw(,)f(is)e(included)g(in)g +(the)h Fm(Jetset)f Fw(pac)m(k)-5 b(age.)86 b(It)47 b(is)f(disguised)g +(as)h(a)0 4099 y(subroutine,)33 b(so)g(y)m(ou)g(ha)m(v)m(e)h(to)e(run)h +(a)f(main)f(program)308 4261 y Fq(CALL)52 b(LUTEST\(1\))308 +4369 y(END)0 4532 y Fw(This)34 b(program)e(will)f(generate)j(six)g(h)m +(undred)h(ev)m(en)m(ts)h(of)d(di\013eren)m(t)g(t)m(yp)s(es,)j(under)e +(a)f(v)-5 b(ariet)m(y)34 b(of)f(con-)0 4640 y(ditions.)68 +b(If)48 b Fm(Jetset)41 b Fw(has)g(not)g(b)s(een)h(prop)s(erly)f +(installed,)h(this)f(program)f(is)h(lik)m(ely)f(to)h(crash,)j(or)0 +4748 y(at)35 b(least)g(generate)i(a)e(n)m(um)m(b)s(er)h(of)f(erroneous) +i(ev)m(en)m(ts.)55 b(This)35 b(will)f(then)i(clearly)f(b)s(e)g(mark)m +(ed)h(in)f(the)0 4857 y(output,)j(whic)m(h)f(otherwise)h(will)c(just)j +(con)m(tain)g(a)f(few)i(sample)e(ev)m(en)m(t)i(listings)d(and)i(a)g +(table)f(of)g(the)0 4965 y(n)m(um)m(b)s(er)k(of)g(di\013eren)m(t)g +(particles)f(pro)s(duced.)66 b(T)-8 b(o)40 b(switc)m(h)g(o\013)g(the)g +(output)g(of)f(normal)f(ev)m(en)m(ts)k(and)0 5073 y(\014nal)27 +b(table,)i(use)g Fq(LUTEST\(0\))h Fw(instead)e(of)35 +b Fq(LUTEST\(1\))p Fw(.)44 b(The)29 b(\014nal)e(tally)g(of)g(errors)i +(detected)h(should)0 5182 y(read)j(0.)146 5290 y(In)42 +b(exactly)f(the)h(same)f(v)m(ein,)j(a)d(test)g(program)f +Fq(PYTEST)j Fw(comes)e(with)g(the)h Fm(Pythia)f Fw(pac)m(k)-5 +b(age.)0 5399 y(Y)d(ou)32 b(then)i(ha)m(v)m(e)g(to)e(run)h(a)f(program) +308 5561 y Fq(CALL)52 b(PYTEST\(1\))308 5669 y(END)1841 +5953 y Fw(33)p eop +%%Page: 34 40 +34 39 bop 0 -18 a Fw(As)39 b(b)s(efore)f(the)h(alternativ)m(e)f +Fq(PYTEST\(0\))i Fw(will)d(giv)m(e)h(a)g(less)h(extensiv)m(e)h +(listing.)59 b(No)38 b(errors)h(should)0 90 y(app)s(ear)32 +b(during)g(execution.)0 364 y Fp(3.3)135 b(Program)46 +b(Philosoph)l(y)0 536 y Fw(The)36 b(Mon)m(te)f(Carlo)f(programs)f(are)i +(built)e(as)i(sla)m(v)m(e)g(systems,)i(i.e.)49 b(y)m(ou,)36 +b(the)f(user,)h(ha)m(v)m(e)g(to)e(supply)0 645 y(the)41 +b(main)e(program.)66 b(F)-8 b(rom)39 b(this)h(the)h(v)-5 +b(arious)40 b(subroutines)i(are)e(called)g(on)g(to)g(execute)j(sp)s +(eci\014c)0 753 y(tasks,)36 b(after)f(whic)m(h)g(con)m(trol)e(is)i +(returned)g(to)f(the)h(main)e(program.)48 b(Some)34 b(of)g(these)i +(tasks)g(ma)m(y)e(b)s(e)0 861 y(v)m(ery)g(trivial,)c(whereas)k(the)f +(`high-lev)m(el')e(routines)i(b)m(y)g(themselv)m(es)h(ma)m(y)f(mak)m(e) +f(a)h(large)e(n)m(um)m(b)s(er)i(of)0 970 y(subroutine)k(calls.)55 +b(Man)m(y)38 b(routines)e(are)h(not)g(in)m(tended)g(to)g(b)s(e)g +(called)e(directly)i(b)m(y)g(y)m(ou,)i(but)e(only)0 1078 +y(from)31 b(higher-lev)m(el)h(routines)g(suc)m(h)i(as)f +Fq(LUEXEC)p Fw(,)h Fq(LUEEVT)p Fw(,)g Fq(PYINIT)g Fw(or)f +Fq(PYEVNT)p Fw(.)146 1187 y(Basically)-8 b(,)36 b(this)g(means)h(that)f +(there)h(are)g(three)g(w)m(a)m(ys)i(b)m(y)e(whic)m(h)g(y)m(ou)g(comm)m +(unicate)f(with)g(the)0 1295 y(programs.)58 b(First,)38 +b(b)m(y)h(setting)e(common)f(blo)s(c)m(k)i(v)-5 b(ariables,)37 +b(y)m(ou)i(sp)s(ecify)f(the)g(details)f(of)g(ho)m(w)h(the)0 +1403 y(programs)32 b(should)g(p)s(erform)g(sp)s(eci\014c)i(tasks,)g +(i.e.)43 b(whic)m(h)33 b(subpro)s(cesses)j(should)d(b)s(e)g(generated)g +(\(for)0 1512 y Fm(Pythia)p Fw(\),)27 b(whic)m(h)f(particle)e(masses)i +(should)f(b)s(e)h(assumed,)h(whic)m(h)f(coupling)e(constan)m(ts)j +(used,)h(whic)m(h)0 1620 y(fragmen)m(tation)39 b(scenarios,)44 +b(and)d(so)g(on)g(with)g(h)m(undreds)i(of)e(options)f(and)h +(parameters.)69 b(Second,)0 1728 y(b)m(y)44 b(calling)c(subroutines)j +(y)m(ou)h(tell)d(the)i(programs)f(to)g(generate)i(ev)m(en)m(ts)h +(according)d(to)g(the)h(rules)0 1837 y(established)37 +b(ab)s(o)m(v)m(e.)57 b(Normally)34 b(there)k(are)e(few)i(subroutine)f +(argumen)m(ts,)h(and)f(those)g(are)g(usually)0 1945 y(related)27 +b(to)g(details)f(of)h(the)g(ph)m(ysical)g(situation,)g(suc)m(h)i(as)e +(what)h(c.m.)41 b(energy)29 b(to)e(assume)g(for)g(ev)m(en)m(ts.)0 +2053 y(Third,)41 b(y)m(ou)f(can)g(either)f(lo)s(ok)g(at)g(the)h(common) +e(blo)s(c)m(k)h Fq(LUJETS)i Fw(to)e(extract)h(information)d(on)i(the)0 +2162 y(generated)28 b(ev)m(en)m(t,)j(or)c(y)m(ou)i(can)e(call)f(on)i(v) +-5 b(arious)27 b(functions)g(and)h(subroutines)h(to)e(analyse)h(the)g +(ev)m(en)m(t)0 2270 y(further)33 b(for)f(y)m(ou.)146 +2378 y(It)42 b(should)f(b)s(e)g(noted)h(that,)h(while)e(the)g(ph)m +(ysics)i(con)m(ten)m(t)g(is)d(ob)m(viously)h(at)g(the)h(cen)m(tre)h(of) +d(at-)0 2487 y(ten)m(tion,)i(the)e Fm(Jetset/Pythia)f +Fw(pac)m(k)-5 b(age)41 b(also)e(con)m(tains)h(a)g(v)m(ery)h(extensiv)m +(e)h(setup)f(of)f(auxiliary)0 2595 y(service)d(routines.)52 +b(The)37 b(hop)s(e)f(is)f(that)g(this)h(will)d(pro)m(vide)j(a)g +(comfortable)d(w)m(orking)j(en)m(vironmen)m(t,)0 2703 +y(where)c(not)f(only)f(ev)m(en)m(ts)j(are)e(generated,)h(but)f(where)i +(y)m(ou)e(also)f(linger)f(on)i(to)g(p)s(erform)e(a)i(lot)f(of)g(the)0 +2812 y(subsequen)m(t)39 b(studies.)56 b(Of)35 b(course,)k(for)c +(detailed)h(studies,)i(it)d(ma)m(y)h(b)s(e)g(necessary)j(to)d(in)m +(terface)g(the)0 2920 y(output)d(directly)f(to)g(a)g(detector)i(sim)m +(ulation)29 b(program.)146 3028 y(The)f(general)e(rule)g(is)g(that)h +(all)d(routines)j(ha)m(v)m(e)h(names)f(that)f(are)h(six)f(c)m +(haracters)i(long,)f(b)s(eginning)0 3137 y(with)34 b +Fq(LU)i Fw(for)e Fm(Jetset)f Fw(routines)i(and)g Fq(PY)g +Fw(for)f Fm(Pythia)h Fw(ones.)51 b(Real-v)-5 b(alued)33 +b(functions)i(in)f Fm(Jetset)0 3245 y Fw(b)s(egin)44 +b(with)g Fq(UL)h Fw(instead.)80 b(There)46 b(are)f(three)g(exceptions)h +(to)f(b)s(oth)f(the)h(length)f(and)h(the)g(initial)0 +3353 y(c)m(haracter)34 b(rules:)45 b Fq(KLU)p Fw(,)34 +b Fq(PLU)g Fw(and)g Fq(RLU)p Fw(.)g(The)g(former)e(t)m(w)m(o)i +(functions)g(are)f(strongly)g(coupled)g(to)g(the)0 3462 +y Fq(K)f Fw(and)f Fq(P)h Fw(matrices)e(in)h(the)h Fq(LUJETS)g +Fw(common)e(blo)s(c)m(k,)i(the)g(latter)e(uses)j Fq(R)f +Fw(to)f(emphasize)g(the)h(r^)-49 b(ole)30 b(as)0 3570 +y(a)g(random-n)m(um)m(b)s(er)f(generator.)42 b(Also)30 +b(common)e(blo)s(c)m(k)i(names)g(are)g(six)g(c)m(haracters)h(long)d +(and)i(start)0 3678 y(with)i Fq(LU)h Fw(or)f Fq(PY)p +Fw(.)146 3787 y(On)44 b(the)h(issue)f(of)f(initialization,)f +Fm(Jetset)g Fw(and)i Fm(Pythia)g Fw(b)s(eha)m(v)m(e)i(quite)e +(di\013eren)m(tly)-8 b(.)77 b(Most)0 3895 y Fm(Jetset)31 +b Fw(routines)g(w)m(ork)i(without)e(an)m(y)i(initialization)26 +b(\(except)34 b(for)d(the)h(one)g(implied)d(b)m(y)k(the)f(pres-)0 +4003 y(ence)c(of)k Fq(BLOCK)53 b(DATA)f(LUDATA)p Fw(,)28 +b(see)g(ab)s(o)m(v)m(e\),)g(i.e.)41 b(eac)m(h)28 b(ev)m(en)m(t)g(and)e +(eac)m(h)i(task)f(stand)g(on)f(their)g(o)m(wn.)0 4112 +y(Curren)m(t)38 b(common)d(blo)s(c)m(k)i(v)-5 b(alues)36 +b(are)h(used)h(to)e(p)s(erform)g(the)h(tasks)g(in)f(sp)s(eci\014c)i(w)m +(a)m(ys,)h(and)e(those)0 4220 y(rules)i(can)g(b)s(e)g(c)m(hanged)h +(from)d(one)i(ev)m(en)m(t)i(to)d(the)h(next)h(\(or)f(ev)m(en)h(within)e +(the)h(generation)f(of)g(one)0 4328 y(and)30 b(the)h(same)f(ev)m(en)m +(t\))i(without)e(an)m(y)h(p)s(enalt)m(y)-8 b(.)43 b(The)31 +b(random-n)m(um)m(b)s(er)e(generator)i(is)e(initialized)e(at)0 +4437 y(the)33 b(\014rst)g(call,)f(but)h(usually)f(this)g(is)g +(transparen)m(t.)45 b(Therefore)34 b(the)f(t)m(w)m(o)h +Fm(Jetset)d Fw(routines)i Fq(LUEEVT)0 4545 y Fw(\(and)f(some)f(of)g +(the)h(routines)g(called)e(b)m(y)j(it\))e(and)g Fq(LUONIA)i +Fw(are)f(basically)e(the)i(only)f(ones)i(to)e(con)m(tain)0 +4653 y(some)j(elemen)m(ts)g(of)g(initialization,)29 b(where)35 +b(there)g(are)f(a)f(few)i(adv)-5 b(an)m(tages)34 b(if)f(ev)m(en)m(ts)k +(are)d(generated)0 4762 y(in)e(a)g(coheren)m(t)i(fashion,)e(but)h(ev)m +(en)h(here)f(the)g(p)s(enalt)m(y)g(for)f(not)g(doing)g(it)f(is)i +(small.)146 4870 y(In)f Fm(Pythia)p Fw(,)g(on)g(the)g(other)g(hand,)g +(a)g(sizeable)f(amoun)m(t)g(of)g(initialization)c(is)k(p)s(erformed)g +(in)g(the)0 4979 y Fq(PYINIT)h Fw(call,)d(and)i(thereafter)g(the)g(ev)m +(en)m(ts)i(generated)e(b)m(y)i Fq(PYEVNT)f Fw(all)d(ob)s(ey)i(the)g +(rules)f(established)0 5087 y(at)e(that)h(p)s(oin)m(t.)41 +b(Therefore)30 b(common)d(blo)s(c)m(k)i(v)-5 b(ariables)27 +b(that)i(sp)s(ecify)g(metho)s(ds)g(to)f(b)s(e)h(used)h(ha)m(v)m(e)g(to) +0 5195 y(b)s(e)36 b(set)h(b)s(efore)f(the)g Fq(PYINIT)i +Fw(call)c(and)i(then)g(not)g(b)s(e)g(c)m(hanged)h(afterw)m(ards,)h +(with)e(few)g(exceptions.)0 5304 y(Of)h(course,)i(it)d(is)h(p)s +(ossible)g(to)f(p)s(erform)h(sev)m(eral)g Fq(PYINIT)i +Fw(calls)d(in)g(the)i(same)f(run,)i(but)e(there)h(is)f(a)0 +5412 y(signi\014can)m(t)h(time)g(o)m(v)m(erhead)j(in)m(v)m(olv)m(ed,)g +(so)e(this)g(is)f(not)h(something)f(one)h(w)m(ould)g(do)g(for)g(eac)m +(h)h(new)0 5520 y(ev)m(en)m(t.)146 5629 y(Apart)28 b(from)e(writing)g +(a)i(title)e(page,)i(giving)e(a)i(brief)f(initialization)22 +b(information,)j(prin)m(ting)i(error)1841 5953 y(34)p +eop +%%Page: 35 41 +35 40 bop 0 -18 a Fw(messages)49 b(if)e(need)i(b)s(e,)j(and)c(resp)s +(onding)g(to)g(explicit)f(requests)j(for)d(listings,)j(all)c(tasks)j +(of)f(the)0 90 y(programs)40 b(are)h(p)s(erformed)f(`silen)m(tly'.)67 +b(All)39 b(output)i(is)f(directed)h(to)g(unit)f Fq(MSTU\(11\))p +Fw(,)45 b(b)m(y)c(default)0 198 y(6,)e(and)g(it)e(is)h(up)g(to)g(y)m +(ou)h(to)f(set)h(this)f(unit)g(op)s(en)g(for)g(write.)60 +b(The)39 b(only)f(exceptions)i(are)e Fq(RLUGET)p Fw(,)0 +307 y Fq(RLUSET)c Fw(and)e Fq(LUUPDA)h Fw(where,)h(for)d(ob)m(vious)i +(reasons,)g(the)f(input/output)g(\014le)g(n)m(um)m(b)s(er)g(is)g(sp)s +(eci\014ed)0 415 y(at)g(eac)m(h)i(call.)41 b(Here)34 +b(y)m(ou)f(again)e(ha)m(v)m(e)j(to)e(see)i(to)e(it)g(that)g(prop)s(er)h +(read/write)f(access)i(is)f(set.)146 523 y(The)42 b(programs)e(are)h +(extremely)g(v)m(ersatile,)h(but)f(the)g(price)g(to)f(b)s(e)h(paid)f +(for)h(this)f(is)g(ha)m(ving)h(a)0 632 y(large)36 b(n)m(um)m(b)s(er)h +(of)g(adjustable)f(parameters)h(and)g(switc)m(hes)i(for)d(alternativ)m +(e)g(mo)s(des)h(of)g(op)s(eration.)0 740 y(No)e(single)f(user)i(is)e +(ev)m(er)j(lik)m(ely)c(to)i(need)h(more)e(than)h(a)g(fraction)f(of)g +(the)i(a)m(v)-5 b(ailable)32 b(options.)50 b(Since)0 +848 y(all)31 b(these)k(parameters)e(and)h(switc)m(hes)g(are)g(assigned) +f(sensible)h(default)e(v)-5 b(alues,)34 b(there)g(is)f(no)g(reason)0 +957 y(to)f(w)m(orry)i(ab)s(out)e(them)g(un)m(til)f(the)i(need)h +(arises.)146 1065 y(Unless)c(explicitly)d(stated)j(\(or)f(ob)m(vious)g +(from)f(the)h(con)m(text\))h(all)d(switc)m(hes)k(and)e(parameters)g +(can)0 1173 y(b)s(e)40 b(c)m(hanged)g(indep)s(enden)m(tly)h(of)e(eac)m +(h)h(other.)65 b(One)40 b(should)f(note,)j(ho)m(w)m(ev)m(er,)i(that)39 +b(if)g(only)g(a)g(few)0 1282 y(switc)m(hes/parameters)i(are)e(c)m +(hanged,)j(this)d(ma)m(y)g(result)g(in)g(an)g(arti\014cially)d(bad)j +(agreemen)m(t)h(with)0 1390 y(data.)65 b(Man)m(y)41 b(disagreemen)m(ts) +g(can)f(often)g(b)s(e)g(cured)h(b)m(y)g(a)e(subsequen)m(t)k(retuning)d +(of)g(some)f(other)0 1498 y(parameters)32 b(of)f(the)i(mo)s(del,)d(in)i +(particular)e(those)j(that)e(w)m(ere)j(once)e(determined)g(b)m(y)h(a)f +(comparison)0 1607 y(with)d(data)g(in)g(the)h(con)m(text)h(of)e(the)h +(default)e(scenario.)43 b(F)-8 b(or)29 b(example,)g(for)g(e)2834 +1571 y Fl(+)2894 1607 y Fw(e)2937 1571 y Fk(\000)3025 +1607 y Fw(annihilation,)e(suc)m(h)0 1715 y(a)38 b(retuning)f(could)h +(in)m(v)m(olv)m(e)g(one)h(QCD)e(parameter)h(\()p Fj(\013)2096 +1730 y Fl(s)2166 1715 y Fw(or)f(\003\),)j(the)e(longitudinal)c(fragmen) +m(tation)0 1823 y(function,)e(and)h(the)g(a)m(v)m(erage)g(transv)m +(erse)i(fragmen)m(tation)c(momen)m(tum.)146 1932 y(The)36 +b(programs)d(con)m(tain)h(a)g(n)m(um)m(b)s(er)h(of)e(c)m(hec)m(ks)k +(that)d(requested)j(pro)s(cesses)f(ha)m(v)m(e)g(b)s(een)f(imple-)0 +2040 y(men)m(ted,)c(that)g(\015a)m(v)m(ours)g(sp)s(eci\014ed)h(for)d +(jet)i(systems)h(mak)m(e)e(sense,)j(that)d(the)h(energy)g(is)f +(su\016cien)m(t)i(to)0 2148 y(allo)m(w)i(hadronization,)h(that)g(the)h +(memory)e(space)j(in)e Fq(LUJETS)i Fw(is)e(large)f(enough,)j(etc.)53 +b(If)36 b(an)m(ything)0 2257 y(go)s(es)g(wrong)f(that)h(the)f(program)g +(can)g(catc)m(h)i(\(ob)m(viously)e(this)g(ma)m(y)h(not)f(alw)m(a)m(ys)h +(b)s(e)g(p)s(ossible\),)g(an)0 2365 y(error)i(message)i(will)c(b)s(e)j +(prin)m(ted)f(and)h(the)g(treatmen)m(t)g(of)f(the)h(corresp)s(onding)f +(ev)m(en)m(t)j(will)36 b(b)s(e)j(cut)0 2473 y(short.)51 +b(In)35 b(serious)g(cases,)i(the)f(program)d(will)g(ab)s(ort.)50 +b(As)35 b(long)f(as)h(no)g(error)g(messages)h(app)s(ear)f(on)0 +2582 y(the)e(output,)g(it)e(ma)m(y)i(not)f(b)s(e)h(w)m(orth)m(while)f +(to)g(lo)s(ok)g(in)m(to)f(the)i(rules)g(for)f(error)g(c)m(hec)m(king,)i +(but)f(if)e(but)0 2690 y(one)39 b(message)f(app)s(ears,)i(it)e(should)g +(b)s(e)g(enough)h(cause)g(for)f(alarm)e(to)i(receiv)m(e)h(prompt)f +(atten)m(tion.)0 2798 y(Also)h(w)m(arnings)h(are)g(sometimes)f(prin)m +(ted.)65 b(These)41 b(are)f(less)g(serious,)i(and)e(the)g(exp)s +(erienced)i(user)0 2907 y(migh)m(t)g(delib)s(erately)g(do)i(op)s +(erations)f(whic)m(h)h(go)f(against)f(the)i(rules,)j(but)d(still)d(can) +j(b)s(e)g(made)f(to)0 3015 y(mak)m(e)38 b(sense)h(in)e(their)g(con)m +(text.)60 b(Only)37 b(the)h(\014rst)g(few)g(w)m(arnings)g(will)d(b)s(e) +j(prin)m(ted,)h(thereafter)f(the)0 3123 y(program)33 +b(will)f(b)s(e)j(quiet.)50 b(By)35 b(default,)f(the)h(program)e(is)h +(set)h(to)g(stop)g(execution)g(after)f(ten)h(errors,)0 +3232 y(after)d(prin)m(ting)g(the)h(last)e(erroneous)j(ev)m(en)m(t.)146 +3340 y(It)25 b(m)m(ust)g(b)s(e)f(emphasized)h(that)f(not)h(all)d +(errors)j(will)d(b)s(e)j(caugh)m(t.)41 b(In)25 b(particular,)g(one)f +(tric)m(ky)h(ques-)0 3448 y(tion)39 b(is)h(what)g(happ)s(ens)i(if)d(an) +h(in)m(teger-v)-5 b(alued)39 b(common)g(blo)s(c)m(k)h(switc)m(h)h(or)f +(subroutine/function)0 3557 y(argumen)m(t)f(is)g(used)i(with)e(a)h(v)-5 +b(alue)39 b(that)g(is)g(not)h(de\014ned.)66 b(In)39 b(some)h +(subroutine)g(calls,)g(a)f(prompt)0 3665 y(return)e(will)e(b)s(e)i(exp) +s(edited,)i(but)e(in)f(most)g(instances)h(the)h(subsequen)m(t)h(action) +d(is)h(en)m(tirely)f(unpre-)0 3774 y(dictable,)c(and)h(often)g +(completely)f(ha)m(ywire.)45 b(The)34 b(same)f(go)s(es)g(for)g(real-v) +-5 b(alued)31 b(v)-5 b(ariables)32 b(that)g(are)0 3882 +y(assigned)40 b(v)-5 b(alues)40 b(outside)g(the)h(ph)m(ysically)e +(sensible)h(range.)66 b(One)41 b(example)e(will)f(su\016ce)j(here:)60 +b(if)0 3990 y Fq(PARJ\(2\))37 b Fw(is)d(de\014ned)i(as)f(the)g(s)p +Fj(=)p Fw(u)g(suppression)h(factor,)f(a)g(v)-5 b(alue)34 +b Fj(>)d Fw(1)k(will)d(not)j(giv)m(e)g(more)f(profuse)0 +4099 y(pro)s(duction)e(of)g(s)h(than)g(of)f(u,)g(but)h(actually)f(a)g +(spillo)m(v)m(er)f(in)m(to)h(c)h(pro)s(duction.)43 b(Users,)34 +b(b)s(ew)m(are!)0 4372 y Fp(3.4)135 b(Man)l(ual)46 b(Con)l(v)l(en)l +(tions)0 4545 y Fw(In)28 b(the)h(man)m(ual)d(parts)i(of)f(this)h(rep)s +(ort,)h(some)e(con)m(v)m(en)m(tions)j(are)e(used.)43 +b(All)26 b(names)i(of)f(subprograms,)0 4653 y(common)c(blo)s(c)m(ks)i +(and)g(v)-5 b(ariables)23 b(are)h(giv)m(en)h(in)f(upp)s(er-case)h(`t)m +(yp)s(ewriter')h(st)m(yle,)h(e.g.)41 b Fq(MSTP\(111\)=0)p +Fw(.)0 4762 y(Also)32 b(program)f(examples)i(are)f(giv)m(en)h(in)f +(this)g(st)m(yle.)146 4870 y(If)g(a)g(common)e(blo)s(c)m(k)i(v)-5 +b(ariable)30 b(m)m(ust)i(ha)m(v)m(e)i(a)d(v)-5 b(alue)32 +b(set)g(at)g(the)g(b)s(eginning)f(of)g(execution,)i(then)0 +4979 y(a)f(default)g(v)-5 b(alue)32 b(is)g(stored)h(in)f(one)h(of)f +(the)h(blo)s(c)m(k)g(data)f(subprograms)g Fq(LUDATA)i +Fw(and)f Fq(PYDATA)p Fw(.)h(Suc)m(h)0 5087 y(a)g(default)f(v)-5 +b(alue)33 b(is)g(usually)g(indicated)g(b)m(y)i(a)f(`\(D=.)16 +b(.)g(.)g(\)')47 b(immediately)31 b(after)j(the)g(v)-5 +b(ariable)32 b(name,)0 5195 y(e.g.)0 5304 y Fq(MSTJ\(1\))53 +b(:)48 b Fw(\(D=1\))31 b(c)m(hoice)i(of)f(fragmen)m(tation)f(sc)m +(heme.)146 5412 y(All)25 b(v)-5 b(ariables)24 b(in)h(the)i +Fm(Jetset)e Fw(common)f(blo)s(c)m(ks)i(\(with)g(v)m(ery)h(few)g +(exceptions,)h(clearly)d(mark)m(ed\))0 5520 y(can)39 +b(b)s(e)g(freely)g(c)m(hanged)h(from)e(one)h(ev)m(en)m(t)i(to)d(the)h +(next,)j(or)c(ev)m(en)j(within)d(the)h(treatmen)m(t)g(of)f(one)0 +5629 y(single)44 b(ev)m(en)m(t.)81 b(In)45 b(the)g Fm(Pythia)g +Fw(common)e(blo)s(c)m(ks)i(the)g(situation)e(is)i(more)e(complicated.) +79 b(The)1841 5953 y(35)p eop +%%Page: 36 42 +36 41 bop 0 -18 a Fw(v)-5 b(alues)33 b(of)f(man)m(y)g(switc)m(hes)j +(and)d(parameters)h(are)f(used)i(already)e(in)g(the)h +Fq(PYINIT)i Fw(call,)c(and)h(cannot)0 90 y(b)s(e)27 b(c)m(hanged)h +(after)e(that.)42 b(The)28 b(problem)d(is)h(men)m(tioned)h(in)f(the)h +(pream)m(ble)f(to)h(the)g(a\017icted)g(common)0 198 y(blo)s(c)m(ks,)33 +b(whic)m(h)g(in)e(particular)g(means)h Fq(/PYPARS/)j +Fw(and)d Fq(/PYSUBS/)p Fw(.)46 b(F)-8 b(or)31 b(the)i(v)-5 +b(ariables)31 b(whic)m(h)i(ma)m(y)0 307 y(still)22 b(b)s(e)j(c)m +(hanged)h(from)d(one)i(ev)m(en)m(t)i(to)d(the)h(next,)i(a)e(`\(C\)')g +(is)f(added)h(after)g(the)g(`\(D=.)16 b(.)g(.)g(\)')41 +b(statemen)m(t.)146 415 y(Normally)-8 b(,)33 b(v)-5 b(ariables)33 +b(in)m(ternal)g(to)h(the)h(program)e(are)h(k)m(ept)i(in)d(separate)j +(common)d(blo)s(c)m(ks)h(and)0 523 y(arra)m(ys,)42 b(but)e(in)e(a)h +(few)i(cases)f(suc)m(h)h(in)m(ternal)e(v)-5 b(ariables)38 +b(app)s(ear)h(among)f(arra)m(ys)i(of)f(switc)m(hes)i(and)0 +632 y(parameters,)f(mainly)c(for)i(historical)f(reasons.)62 +b(These)40 b(are)f(denoted)g(b)m(y)g(`\(R\)')g(for)f(v)-5 +b(ariables)37 b(y)m(ou)0 740 y(ma)m(y)d(w)m(an)m(t)i(to)e(read,)i(b)s +(ecause)g(they)f(con)m(tain)f(p)s(oten)m(tially)f(in)m(teresting)h +(information,)e(and)j(b)m(y)g(`\(I\)')0 848 y(for)d(purely)h(in)m +(ternal)e(v)-5 b(ariables.)42 b(In)33 b(neither)g(case)g(ma)m(y)g(the)g +(v)-5 b(ariables)31 b(b)s(e)i(c)m(hanged)g(b)m(y)h(y)m(ou.)146 +957 y(In)42 b(the)g(description)f(of)g(a)g(switc)m(h,)k(the)d +(alternativ)m(es)f(that)g(this)g(switc)m(h)h(ma)m(y)g(tak)m(e)g(are)f +(often)0 1065 y(en)m(umerated,)33 b(e.g.)0 1173 y Fq(MSTJ\(1\))53 +b(:)48 b Fw(\(D=1\))31 b(c)m(hoice)i(of)f(fragmen)m(tation)f(sc)m +(heme.)236 1282 y Fq(=)52 b(0)f(:)217 b Fw(no)32 b(jet)h(fragmen)m +(tation)d(at)j(all.)236 1390 y Fq(=)52 b(1)f(:)217 b +Fw(string)32 b(fragmen)m(tation)e(according)i(to)g(the)h(Lund)h(mo)s +(del.)236 1498 y Fq(=)52 b(2)f(:)217 b Fw(indep)s(enden)m(t)45 +b(fragmen)m(tation,)h(according)e(to)g(sp)s(eci\014cation)g(in)f +Fq(MSTJ\(2\))j Fw(and)709 1607 y Fq(MSTJ\(3\))p Fw(.)0 +1715 y(If)28 b(y)m(ou)h(then)f(use)h(an)m(y)g(v)-5 b(alue)27 +b(other)i(than)f(0,)g(1)g(or)g(2,)h(results)f(are)g(unpredictable.)42 +b(The)29 b(action)e(could)0 1823 y(ev)m(en)37 b(b)s(e)e(di\013eren)m(t) +h(in)e(di\013eren)m(t)h(parts)h(of)e(the)i(program,)f(dep)s(ending)g +(on)g(the)h(order)f(in)f(whic)m(h)i(the)0 1932 y(alternativ)m(es)c(are) +h(iden)m(ti\014ed.)146 2040 y(It)40 b(is)g(also)f(up)h(to)f(y)m(ou)i +(to)e(c)m(ho)s(ose)i(ph)m(ysically)e(sensible)h(v)-5 +b(alues)40 b(for)g(parameters:)58 b(there)40 b(is)g(no)0 +2148 y(c)m(hec)m(k)f(on)e(the)h(allo)m(w)m(ed)e(ranges)h(of)g(v)-5 +b(ariables.)56 b(W)-8 b(e)37 b(ga)m(v)m(e)h(an)f(example)f(of)h(this)g +(at)f(the)i(end)f(of)g(the)0 2257 y(preceding)c(section.)146 +2365 y(Subroutines)d(y)m(ou)h(are)e(exp)s(ected)j(to)d(use)h(are)g +(enclosed)g(in)f(a)g(b)s(o)m(x)h(at)g(the)f(p)s(oin)m(t)g(where)i(they) +f(are)0 2473 y(de\014ned:)p 0 2598 1082 9 v 0 2818 9 +220 v 79 2738 a Fq(CALL)52 b(LULIST\(MLIST\))p 1073 2818 +V 0 2826 1082 9 v 146 3012 a Fw(This)24 b(is)f(follo)m(w)m(ed)f(b)m(y)i +(a)f(description)g(of)g(input)g(or)g(output)h(parameters.)40 +b(The)24 b(di\013erence)g(b)s(et)m(w)m(een)0 3120 y(input)38 +b(and)h(output)f(is)g(not)g(explicitly)f(mark)m(ed,)j(but)f(should)f(b) +s(e)h(ob)m(vious)g(from)e(the)i(con)m(text.)62 b(In)0 +3228 y(fact,)31 b(the)h(ev)m(en)m(t-analysis)g(routines)f(of)f(section) +i(15.4)e(return)i(v)-5 b(alues,)31 b(while)f(all)f(the)j(rest)g(only)e +(ha)m(v)m(e)0 3337 y(input)i(v)-5 b(ariables.)146 3445 +y(Routines)29 b(that)g(are)g(only)g(used)h(in)m(ternally)d(are)i(not)g +(b)s(o)m(xed)h(in.)42 b(Ho)m(w)m(ev)m(er,)32 b(w)m(e)e(use)g(b)s(o)m +(xes)g(for)f(all)0 3553 y(common)i(blo)s(c)m(ks,)i(so)g(as)g(to)f +(enhance)i(the)f(readabilit)m(y)-8 b(.)0 3827 y Fp(3.5)135 +b(Getting)46 b(Started)g(with)f(JETSET)0 4000 y Fw(As)33 +b(a)f(\014rst)h(example,)e(assume)i(that)f(y)m(ou)h(w)m(an)m(t)g(to)f +(study)i(the)f(pro)s(duction)e(of)h(u)p 3020 3947 55 +4 v(u)h(2-jet)e(systems)j(at)0 4108 y(20)e(GeV)h(energy)-8 +b(.)44 b(T)-8 b(o)33 b(do)f(this,)g(write)h(a)f(main)f(program)308 +4300 y Fq(CALL)52 b(LU2ENT\(0,2,-2,20.\))308 4408 y(CALL)g(LULIST\(1\)) +308 4516 y(END)0 4708 y Fw(and)38 b(run)g(this)f(program,)g(link)m(ed)h +(together)g(with)f Fm(Jetset)p Fw(.)57 b(The)39 b(routine)e +Fq(LU2ENT)i Fw(is)e(sp)s(eci\014cally)0 4816 y(in)m(tended)d(for)g +(storing)e(t)m(w)m(o)j(en)m(tries)f(\(jets)g(or)g(particles\).)46 +b(The)34 b(\014rst)g(argumen)m(t)g(\(0\))f(is)g(a)h(command)0 +4924 y(to)25 b(p)s(erform)g(fragmen)m(tation)f(and)h(deca)m(y)i +(directly)e(after)h(the)g(en)m(tries)g(ha)m(v)m(e)h(b)s(een)f(stored,)i +(the)e(second)0 5033 y(and)32 b(third)g(that)f(the)i(t)m(w)m(o)g(en)m +(tries)f(are)h(u)f(\(2\))g(and)p 1901 4980 V 32 w(u)g(\()p +Fn(\000)p Fw(2\),)g(and)h(the)f(last)f(that)h(the)h(c.m.)43 +b(energy)33 b(of)0 5141 y(the)d(pair)f(is)g(20)h(GeV.)g(When)g(this)g +(is)f(run,)i(the)f(resulting)f(ev)m(en)m(t)i(is)f(stored)g(in)f(the)h +Fq(LUJETS)i Fw(common)0 5249 y(blo)s(c)m(k.)45 b(This)33 +b(information)d(can)j(then)h(b)s(e)f(read)g(out)g(b)m(y)h(y)m(ou.)46 +b(No)33 b(output)g(is)g(pro)s(duced)h(b)m(y)h Fq(LU2ENT)0 +5358 y Fw(itself,)c(except)k(for)d(a)g(title)f(page)h(whic)m(h)i(app)s +(ears)e(once)i(for)e(ev)m(ery)k Fm(Jetset/Pythia)31 b +Fw(run.)146 5466 y(Instead)42 b(the)g(second)g(command,)g(to)f +Fq(LULIST)p Fw(,)h(pro)m(vides)g(a)f(simple)e(visible)h(summary)h(of)f +(the)0 5575 y(information)33 b(stored)j(in)f Fq(LUJETS)p +Fw(.)j(The)e(argumen)m(t)g(\(1\))f(indicates)g(that)h(the)g(short)g(v)m +(ersion)h(should)1841 5953 y(36)p eop +%%Page: 37 43 +37 42 bop 0 -18 a Fw(b)s(e)27 b(used,)i(whic)m(h)e(is)f(suitable)f(for) +h(viewing)g(the)h(listing)d(directly)i(on)g(an)g(80-column)f(terminal)f +(screen.)0 90 y(It)33 b(migh)m(t)e(lo)s(ok)g(as)i(sho)m(wn)h(here.)1230 +279 y Fq(Event)53 b(listing)g(\(summary\))103 496 y(I)102 +b(particle/jet)55 b(KS)257 b(KF)51 b(orig)155 b(p_x)257 +b(p_y)h(p_z)308 b(E)359 b(m)103 713 y(1)102 b(\(u\))360 +b(A)103 b(12)308 b(2)205 b(0)154 b(0.000)h(0.000)104 +b(10.000)g(10.000)156 b(0.006)103 821 y(2)102 b(\(u~\))309 +b(V)103 b(11)257 b(-2)205 b(0)154 b(0.000)h(0.000)53 +b(-10.000)104 b(10.000)156 b(0.006)103 929 y(3)102 b(\(string\))259 +b(11)e(92)205 b(1)154 b(0.000)h(0.000)h(0.000)103 b(20.000)i(20.000)103 +1038 y(4)d(\(rho+\))361 b(11)205 b(213)h(3)154 b(0.098)104 +b(-0.154)156 b(2.710)f(2.856)g(0.885)103 1146 y(5)102 +b(\(rho-\))361 b(11)154 b(-213)206 b(3)103 b(-0.227)155 +b(0.145)h(6.538)f(6.590)g(0.781)103 1254 y(6)102 b(pi+)565 +b(1)205 b(211)h(3)154 b(0.125)104 b(-0.266)156 b(0.097)f(0.339)g(0.140) +103 1363 y(7)102 b(\(Sigma0\))259 b(11)154 b(3212)206 +b(3)103 b(-0.254)155 b(0.034)104 b(-1.397)156 b(1.855)f(1.193)103 +1471 y(8)102 b(\(K*+\))412 b(11)205 b(323)h(3)103 b(-0.124)155 +b(0.709)104 b(-2.753)156 b(2.968)f(0.846)103 1579 y(9)102 +b(p~-)565 b(1)103 b(-2212)206 b(3)154 b(0.395)104 b(-0.614)g(-3.806)156 +b(3.988)f(0.938)51 1688 y(10)103 b(pi-)565 b(1)154 b(-211)206 +b(3)103 b(-0.013)155 b(0.146)104 b(-1.389)156 b(1.403)f(0.140)51 +1796 y(11)103 b(pi+)565 b(1)205 b(211)h(4)154 b(0.109)104 +b(-0.456)156 b(2.164)f(2.218)g(0.140)51 1904 y(12)103 +b(\(pi0\))412 b(11)205 b(111)h(4)103 b(-0.011)155 b(0.301)h(0.546)f +(0.638)g(0.135)51 2013 y(13)103 b(pi-)565 b(1)154 b(-211)206 +b(5)154 b(0.089)h(0.343)h(2.089)f(2.124)g(0.140)51 2121 +y(14)103 b(\(pi0\))412 b(11)205 b(111)h(5)103 b(-0.316)h(-0.197)156 +b(4.449)f(4.467)g(0.135)51 2230 y(15)103 b(\(Lambda0\))208 +b(11)154 b(3122)206 b(7)103 b(-0.208)155 b(0.014)104 +b(-1.403)156 b(1.804)f(1.116)51 2338 y(16)103 b(gamma)463 +b(1)257 b(22)205 b(7)103 b(-0.046)155 b(0.020)h(0.006)f(0.050)g(0.000) +51 2446 y(17)103 b(K+)616 b(1)205 b(321)h(8)103 b(-0.084)155 +b(0.299)104 b(-2.139)156 b(2.217)f(0.494)51 2555 y(18)103 +b(\(pi0\))412 b(11)205 b(111)h(8)103 b(-0.040)155 b(0.410)104 +b(-0.614)156 b(0.751)f(0.135)51 2663 y(19)103 b(gamma)463 +b(1)257 b(22)154 b(12)g(0.059)h(0.146)h(0.224)f(0.274)g(0.000)51 +2771 y(20)103 b(gamma)463 b(1)257 b(22)154 b(12)103 b(-0.070)155 +b(0.155)h(0.322)f(0.364)g(0.000)51 2880 y(21)103 b(gamma)463 +b(1)257 b(22)154 b(14)103 b(-0.322)h(-0.162)156 b(4.027)f(4.043)g +(0.000)51 2988 y(22)103 b(gamma)463 b(1)257 b(22)154 +b(14)g(0.006)104 b(-0.035)156 b(0.422)f(0.423)g(0.000)51 +3096 y(23)103 b(p+)616 b(1)154 b(2212)h(15)103 b(-0.178)155 +b(0.033)104 b(-1.343)156 b(1.649)f(0.938)51 3205 y(24)103 +b(pi-)565 b(1)154 b(-211)h(15)103 b(-0.030)h(-0.018)g(-0.059)156 +b(0.156)f(0.140)51 3313 y(25)103 b(gamma)463 b(1)257 +b(22)154 b(18)103 b(-0.006)155 b(0.384)104 b(-0.585)156 +b(0.699)f(0.000)51 3421 y(26)103 b(gamma)463 b(1)257 +b(22)154 b(18)103 b(-0.034)155 b(0.026)104 b(-0.029)156 +b(0.052)f(0.000)872 3530 y(sum:)103 b(0.00)411 b(0.000)155 +b(0.000)h(0.000)103 b(20.000)i(20.000)0 3719 y Fw(\(A)42 +b(few)g(blanks)g(ha)m(v)m(e)i(b)s(een)e(remo)m(v)m(ed)h(b)s(et)m(w)m +(een)h(the)e(columns)f(to)h(mak)m(e)g(it)f(\014t)h(in)m(to)f(the)h +(format)0 3827 y(of)d(this)g(text.\))66 b(Lo)s(ok)39 +b(in)g(the)h(particle/jet)e(column)g(and)i(note)g(that)f(the)h(\014rst) +g(t)m(w)m(o)h(lines)d(are)i(the)0 3936 y(original)32 +b(u)k(and)p 637 3883 55 4 v 35 w(u,)h(where)f(`bar')g(is)f(actually)f +(written)h(`)p Fn(\030)p Fw(')h(to)f(sa)m(v)m(e)j(space)e(in)f(longer)f +(names.)53 b(The)0 4044 y(paren)m(theses)32 b(enclosing)d(the)h(names,) +g(`)p Fq(\(u\))p Fw(')h(and)e(`)p Fq(\(u~\))p Fw(',)j(are)d(there)i(as) +f(a)f(reminder)g(that)g(these)i(jets)0 4152 y(actually)f(ha)m(v)m(e)i +(b)s(een)g(allo)m(w)m(ed)e(to)h(fragmen)m(t.)43 b(The)32 +b(jets)f(are)g(still)e(retained)i(so)g(that)g(ev)m(en)m(t)i(histories)0 +4261 y(can)k(b)s(e)g(studied.)56 b(Also)36 b(note)h(that)f(the)h +Fq(KF)h Fw(\(\015a)m(v)m(our)f(co)s(de\))g(column)f(con)m(tains)g(2)h +(in)f(the)h(\014rst)g(line)0 4369 y(and)44 b Fn(\000)p +Fw(2)f(in)g(the)h(second.)77 b(These)45 b(are)f(the)g(co)s(des)g +(actually)e(stored)i(to)f(denote)h(the)g(presence)i(of)0 +4478 y(a)c(u)h(and)g(a)p 480 4425 V 43 w(u,)i(cf.)74 +b(the)44 b Fq(LU2ENT)g Fw(call,)f(while)f(the)i(names)e(written)h(are)g +(just)g(con)m(v)m(eniences)i(used)0 4586 y(when)g(pro)s(ducing)e +(visible)g(output.)78 b(The)44 b Fq(A)g Fw(and)g Fq(V)g +Fw(near)h(the)f(end)g(of)g(the)g(particle/jet)f(column)0 +4694 y(indicate)h(the)h(b)s(eginning)e(and)h(end)i(of)e(a)g(string)g +(\(or)g(cluster,)k(or)d(indep)s(enden)m(t)g(fragmen)m(tation\))0 +4803 y(parton)29 b(system;)i(an)m(y)e(in)m(termediate)f(en)m(tries)h(b) +s(elonging)e(to)i(the)g(same)g(system)h(w)m(ould)e(ha)m(v)m(e)j(had)e +(an)0 4911 y Fq(I)k Fw(in)f(that)g(column.)42 b(\(This)33 +b(giv)m(es)g(a)f(p)s(o)s(or)g(man's)g(represen)m(tation)i(of)e(an)g +(up-do)m(wn)h(arro)m(w,)g Fn(l)p Fw(.\))146 5019 y(In)39 +b(the)h Fq(orig)f Fw(\(origin\))e(column,)i(the)g(zeros)h(indicate)d +(that)i(u)g(and)p 2733 4966 V 39 w(u)g(are)f(t)m(w)m(o)i(initial)35 +b(en)m(tries.)0 5128 y(The)29 b(subsequen)m(t)i(line,)d(n)m(um)m(b)s +(er)g(3,)h(denotes)g(the)g(fragmen)m(ting)d(u)p 2457 +5075 V(u)i(string)g(system)h(as)f(a)g(whole,)g(and)0 +5236 y(has)34 b(origin)d(1,)i(since)g(the)h(\014rst)g(parton)e(of)h +(this)g(string)f(system)j(is)d(en)m(try)j(n)m(um)m(b)s(er)e(1.)45 +b(The)34 b(particles)0 5344 y(in)i(lines)f(4{10)h(ha)m(v)m(e)i(origin)c +(3)i(to)g(denote)i(that)e(they)h(come)f(directly)g(from)f(the)i +(fragmen)m(tation)e(of)0 5453 y(this)29 b(string.)42 +b(In)30 b(string)f(fragmen)m(tation)f(it)h(is)g(not)g(meaningful)f(to)h +(sa)m(y)i(that)e(a)g(particle)g(comes)h(from)0 5561 y(only)j(the)i(u)f +(quark)g(or)g(only)f(the)p 1256 5508 V 35 w(u)h(one.)47 +b(It)34 b(is)g(the)g(string)f(system)i(as)f(a)g(whole)g(that)f(giv)m +(es)i(a)e Fj(\032)3610 5525 y Fl(+)3669 5561 y Fw(,)i(a)0 +5669 y Fj(\032)50 5633 y Fk(\000)109 5669 y Fw(,)h(a)g +Fj(\031)316 5633 y Fl(+)374 5669 y Fw(,)h(a)e(\006)592 +5633 y Fl(0)632 5669 y Fw(,)h(a)f(K)855 5633 y Fk(\003)p +Fl(+)949 5669 y Fw(,)h(a)p 1096 5616 V 35 w(p)1150 5633 +y Fk(\000)1209 5669 y Fw(,)g(and)g(a)f Fj(\031)1608 5633 +y Fk(\000)1667 5669 y Fw(.)52 b(Note)35 b(that)g(some)g(of)g(the)h +(particle)e(names)i(are)f(again)1841 5953 y(37)p eop +%%Page: 38 44 +38 43 bop 0 -18 a Fw(enclosed)36 b(in)f(paren)m(theses,)40 +b(indicating)33 b(that)i(these)i(particles)e(are)h(not)g(presen)m(t)h +(in)e(the)h(\014nal)f(state)0 90 y(either,)c(but)f(ha)m(v)m(e)i(deca)m +(y)m(ed)h(further.)43 b(Th)m(us)31 b(the)g Fj(\031)1899 +54 y Fk(\000)1988 90 y Fw(in)f(line)f(13)h(and)g(the)h +Fj(\031)2822 54 y Fl(0)2892 90 y Fw(in)e(line)g(14)h(ha)m(v)m(e)i +(origin)0 198 y(5,)38 b(as)g(an)f(indication)e(that)j(they)g(come)f +(from)f(the)i(deca)m(y)h(of)e(the)h Fj(\032)2557 162 +y Fk(\000)2653 198 y Fw(in)f(line)f(5.)58 b(Only)37 b(the)g(names)0 +307 y(not)45 b(enclosed)g(in)f(paren)m(theses)j(remain)d(at)g(the)h +(end)h(of)e(the)h(fragmen)m(tation/deca)m(y)g(c)m(hain,)i(and)0 +415 y(are)36 b(th)m(us)h(exp)s(erimen)m(tally)d(observ)-5 +b(able.)53 b(The)37 b(actual)e(status)h(co)s(de)h(used)f(to)g +(distinguish)e(b)s(et)m(w)m(een)0 523 y(di\013eren)m(t)g(classes)h(of)e +(en)m(tries)i(is)e(giv)m(en)h(in)f(the)i Fq(KS)f Fw(column;)g(co)s(des) +g(in)f(the)i(range)f(1{10)f(corresp)s(ond)0 632 y(to)f(remaining)e(en)m +(tries,)k(and)e(those)i(ab)s(o)m(v)m(e)f(10)f(to)g(those)i(that)e(ha)m +(v)m(e)i(fragmen)m(ted)e(or)h(deca)m(y)m(ed.)146 740 +y(The)43 b(columns)f(with)f Fq(p)p 1034 740 31 4 v 38 +w(x)p Fw(,)j Fq(p)p 1245 740 V 38 w(y)p Fw(,)g Fq(p)p +1456 740 V 37 w(z)p Fw(,)h Fq(E)d Fw(and)h Fq(m)f Fw(are)g(quite)g +(self-explanatory)-8 b(.)71 b(All)41 b(momen)m(ta,)0 +848 y(energies)27 b(and)f(masses)h(are)f(giv)m(en)g(in)f(units)h(of)g +(GeV,)g(since)h(the)f(sp)s(eed)i(of)d(ligh)m(t)g(is)g(tak)m(en)i(to)f +(b)s(e)g Fj(c)i Fw(=)g(1.)0 957 y(Note)33 b(that)g(energy)h(and)f +(momen)m(tum)e(are)i(conserv)m(ed)i(at)e(eac)m(h)h(step)f(of)g(the)g +(fragmen)m(tation/deca)m(y)0 1065 y(pro)s(cess)39 b(\(although)d(there) +i(exist)g(options)f(where)i(this)e(is)g(not)g(true\).)59 +b(Also)37 b(note)g(that)h(the)g Fj(z)k Fw(axis)0 1173 +y(pla)m(ys)26 b(the)g(r^)-49 b(ole)25 b(of)h(preferred)h(direction,)f +(along)e(whic)m(h)j(the)f(original)c(partons)k(are)g(placed.)41 +b(The)27 b(\014nal)0 1282 y(line)34 b(is)h(in)m(tended)h(as)g(a)f(quic) +m(k)h(c)m(hec)m(k)i(that)d(nothing)g(funn)m(y)i(happ)s(ened.)53 +b(It)35 b(con)m(tains)h(the)g(summed)0 1390 y(c)m(harge,)28 +b(summed)f(momen)m(tum,)f(summed)g(energy)i(and)f(in)m(v)-5 +b(arian)m(t)25 b(mass)h(of)g(the)h(\014nal)f(en)m(tries)h(at)f(the)0 +1498 y(end)i(of)g(the)g(fragmen)m(tation/deca)m(y)f(c)m(hain,)i(and)f +(the)g(v)-5 b(alues)28 b(should)f(agree)h(with)g(the)g(input)f(implied) +0 1607 y(b)m(y)43 b(the)f Fq(LU2ENT)h Fw(argumen)m(ts.)71 +b(\(In)41 b(fact,)j(w)m(arnings)e(w)m(ould)g(normally)d(app)s(ear)i(on) +h(the)g(output)g(if)0 1715 y(an)m(ything)32 b(un)m(to)m(w)m(ard)i(happ) +s(ened,)g(but)f(that)f(is)g(another)h(story)-8 b(.\))146 +1823 y(The)31 b(ab)s(o)m(v)m(e)g(example)e(has)h(illustrated)e(roughly) +h(what)h(information)c(is)j(to)h(b)s(e)g(had)g(in)e(the)j(ev)m(en)m(t)0 +1932 y(record,)f(but)e(not)g(so)h(m)m(uc)m(h)g(ab)s(out)e(ho)m(w)i(it)f +(is)f(stored.)43 b(This)29 b(is)e(b)s(etter)i(seen)h(b)m(y)f(using)f(a) +g(132-column)0 2040 y(format)j(for)h(listing)e(ev)m(en)m(ts.)46 +b(T)-8 b(ry)33 b(e.g.)44 b(the)33 b(follo)m(wing)d(program)308 +2231 y Fq(CALL)52 b(LU3ENT\(0,1,21,-1,30.,0.9,)q(0.7\))308 +2340 y(CALL)g(LULIST\(2\))308 2448 y(CALL)g(LUEDIT\(3\))308 +2556 y(CALL)g(LULIST\(2\))308 2665 y(END)0 2856 y Fw(where)32 +b(a)e(3-jet)g(dg)p 686 2777 55 4 v 1 w(d)g(ev)m(en)m(t)j(is)d +(generated)h(in)f(the)h(\014rst)f(line)g(and)g(listed)g(in)f(the)i +(second.)44 b(This)31 b(listing)0 2964 y(will)f(con)m(tain)i(the)h(n)m +(um)m(b)s(ers)h(as)f(directly)f(stored)h(in)f(the)h(common)e(blo)s(c)m +(k)h Fq(LUJETS)308 3156 y(COMMON/LUJETS/N,K\(4000,5\),)q(P\(40)q(00,5)q +(\),V\()q(400)q(0,5\))0 3347 y Fw(F)-8 b(or)44 b(particle)f +Fq(I)p Fw(,)i Fq(K\(I,1\))h Fw(th)m(us)f(giv)m(es)g(information)d(on)i +(whether)i(or)e(not)h(a)f(jet)h(or)f(particle)f(has)0 +3456 y(fragmen)m(ted)g(or)f(deca)m(y)m(ed,)48 b Fq(K\(I,2\))c +Fw(giv)m(es)f(the)g(particle)f(co)s(de,)j Fq(K\(I,3\))g +Fw(its)d(origin,)h Fq(K\(I,4\))h Fw(and)0 3564 y Fq(K\(I,5\))e +Fw(the)e(p)s(osition)e(of)i(fragmen)m(tation/deca)m(y)f(pro)s(ducts,)k +(and)d Fq(P\(I,1)p Fw(\){)p Fq(P\(I,5\))j Fw(momen)m(tum,)0 +3672 y(energy)32 b(and)g(mass.)43 b(The)32 b(n)m(um)m(b)s(er)g(of)e +(lines)h(in)f(curren)m(t)j(use)f(is)f(giv)m(en)g(b)m(y)j +Fq(N)p Fw(,)d(i.e.)43 b(1)31 b Fn(\024)g Fq(I)h Fn(\024)f +Fq(N)p Fw(.)h(The)g Fq(V)0 3781 y Fw(matrix)g(con)m(tains)i(deca)m(y)h +(v)m(ertices;)g(to)e(view)h(those)h Fq(LULIST\(3\))h +Fw(has)e(to)f(b)s(e)h(used.)48 b(It)33 b(is)g(imp)s(ortan)m(t)0 +3889 y(to)f(learn)g(the)h(rules)g(for)f(ho)m(w)h(information)c(is)j +(stored)i(in)d Fq(LUJETS)p Fw(.)146 3997 y(The)40 b(third)e(line)f(in)h +(the)h(program)f(illustrates)f(another)h(imp)s(ortan)m(t)f(p)s(oin)m(t) +h(ab)s(out)g Fm(Jetset)p Fw(:)55 b(a)0 4106 y(n)m(um)m(b)s(er)41 +b(of)g(routines)g(are)g(a)m(v)-5 b(ailable)38 b(for)j(manipulating)c +(the)42 b(ev)m(en)m(t)h(record)e(after)g(the)g(ev)m(en)m(t)i(has)0 +4214 y(b)s(een)33 b(generated.)44 b(Th)m(us)33 b Fq(LUEDIT\(3\))i +Fw(will)29 b(remo)m(v)m(e)k(ev)m(erything)g(except)h(stable)d(c)m +(harged)i(particles,)0 4322 y(as)42 b(sho)m(wn)g(b)m(y)h(the)e(result)h +(of)f(the)h(second)g Fq(LULIST)h Fw(call.)69 b(More)41 +b(adv)-5 b(anced)43 b(p)s(ossibilities)38 b(include)0 +4431 y(things)32 b(lik)m(e)g(sphericit)m(y)h(or)f(clustering)g +(routines.)146 4539 y(Apart)g(from)f(the)h(input)g(argumen)m(ts)g(of)g +(subroutine)g(calls,)f(con)m(trol)g(on)h(the)h(doings)e(of)39 +b Fm(Jetset)0 4647 y Fw(ma)m(y)46 b(b)s(e)h(imp)s(osed)e(via)g(the)i +Fq(LUDAT1)p Fw(,)52 b Fq(LUDAT2)p Fw(,)f Fq(LUDAT3)d +Fw(and)e Fq(LUDAT4)i Fw(common)d(blo)s(c)m(ks.)85 b(Here)0 +4756 y(sensible)36 b(default)e(v)-5 b(alues)36 b(are)f(alw)m(a)m(ys)h +(pro)m(vided.)52 b(A)36 b(user)g(migh)m(t)e(w)m(an)m(t)i(to)f(switc)m +(h)h(o\013)f(all)f(particle)0 4864 y(deca)m(ys)50 b(b)m(y)f(putting)g +Fq(MSTJ\(21\)=0)h Fw(or)e(increase)g(the)h(s)p Fj(=)p +Fw(u)f(ratio)f(in)g(fragmen)m(tation)f(b)m(y)j(putting)0 +4972 y Fq(PARJ\(2\)=0.40)p Fw(,)37 b(to)c(giv)m(e)g(but)g(t)m(w)m(o)h +(examples.)46 b(It)33 b(is)g(b)m(y)h(exploring)e(the)i(p)s +(ossibilities)c(o\013ered)k(here)0 5081 y(that)c Fm(Jetset)g +Fw(can)g(b)s(e)h(turned)g(in)m(to)f(an)h(extremely)f(v)m(ersatile)g(to) +s(ol,)g(ev)m(en)i(if)d(all)g(the)i(nice)f(ph)m(ysics)i(is)0 +5189 y(already)g(presen)m(t)i(in)e(the)h(default)f(v)-5 +b(alues.)146 5297 y(As)39 b(a)f(\014nal,)h(semirealistic)c(example,)k +(assume)g(that)f(the)g Fj(p)2391 5312 y Fk(?)2489 5297 +y Fw(sp)s(ectrum)g(of)g Fj(\031)3096 5261 y Fl(+)3193 +5297 y Fw(particles)f(is)h(to)0 5406 y(b)s(e)c(studied)h(in)f(91.2)f +(GeV)h(e)1071 5370 y Fl(+)1131 5406 y Fw(e)1174 5370 +y Fk(\000)1267 5406 y Fw(annihilation)d(ev)m(en)m(ts,)37 +b(where)e Fj(p)2468 5421 y Fk(?)2562 5406 y Fw(is)e(to)h(b)s(e)h +(de\014ned)g(with)f(resp)s(ect)0 5514 y(to)j(the)g(sphericit)m(y)g +(axis.)57 b(Using)36 b(the)i(HBOOK)e(pac)m(k)-5 b(age)38 +b(\(v)m(ersion)f(4,)h(w)m(atc)m(h)h(out)d(for)h(v)m(ersion-)g(or)0 +5622 y(installation-sp)s(eci\014c)29 b(di\013erences\))34 +b(for)e(histogramming,)d(a)j(complete)g(program)g(migh)m(t)f(lo)s(ok)g +(lik)m(e)1841 5953 y(38)p eop +%%Page: 39 45 +39 44 bop 0 -18 a Fq(C...Common)54 b(blocks.)308 90 y +(COMMON/LUJETS/N,K\(4000,5\),)q(P\(40)q(00,5)q(\),V\()q(400)q(0,5\))308 +198 y(COMMON/PAWC/HMEMOR\(10000\))0 415 y(C...Reserve)g(histogram)g +(memory)f(and)f(book)g(histograms.)308 523 y(CALL)g(HLIMIT\(10000\))308 +632 y(CALL)g(HBOOK1\(1,'pT)i(spectrum)g(of)e(pi+',100,0.,5.,0.\))0 +848 y(C...Number)i(of)e(events)h(to)e(generate.)j(Loop)e(over)h +(events.)308 957 y(NEVT=100)308 1065 y(DO)e(110)h(IEVT=1,NEVT)0 +1282 y(C...Generate)i(event.)f(List)g(first)f(one.)308 +1390 y(CALL)g(LUEEVT\(0,91.2\))308 1498 y(IF\(IEVT.EQ.1\))i(CALL)f +(LULIST\(1\))0 1715 y(C...Find)g(sphericity)h(axis)f(and)f(rotate)h +(event)f(so)g(sphericity)i(along)e(z)g(axis.)308 1823 +y(CALL)g(LUSPHE\(SPH,APL\))308 1932 y(CALL)g(LUEDIT\(31\))0 +2148 y(C...Loop)h(over)g(all)f(particles,)i(but)e(skip)g(if)g(not)g +(pi+.)308 2257 y(DO)f(100)h(I=1,N)308 2365 y(IF\(K\(I,2\).NE.211\))j +(GOTO)e(100)0 2582 y(C...Calculate)i(pT)d(and)g(fill)g(in)g(histogram.) +308 2690 y(PT=SQRT\(P\(I,1\)**2+P\(I,2\)**)q(2\))308 +2798 y(CALL)g(HF1\(1,PT,1.\))0 3015 y(C...End)h(of)f(particle)h(and)f +(event)h(loops.)103 3123 y(100)f(CONTINUE)103 3232 y(110)g(CONTINUE)0 +3448 y(C...Normalize)j(histogram)e(properly)h(and)e(list)g(it.)308 +3557 y(CALL)g(HOPERA\(1,'+',1,1,20./NEVT)q(,0.\))308 +3665 y(CALL)g(HISTDO)308 3882 y(END)0 4073 y Fw(Study)39 +b(this)f(program,)g(try)g(to)g(understand)h(what)f(happ)s(ens)h(at)f +(eac)m(h)h(step,)h(and)e(run)h(it)e(to)g(c)m(hec)m(k)0 +4182 y(that)h(it)g(w)m(orks.)63 b(Y)-8 b(ou)38 b(should)h(then)g(b)s(e) +g(ready)g(to)f(lo)s(ok)f(at)i(the)g(relev)-5 b(an)m(t)38 +b(sections)h(of)f(this)h(rep)s(ort)0 4290 y(and)33 b(start)f(writing)f +(y)m(our)i(o)m(wn)h(programs.)0 4564 y Fp(3.6)135 b(Getting)46 +b(Started)g(with)f(PYTHIA)0 4737 y Fw(A)25 b Fm(Pythia)g +Fw(run)h(has)f(to)g(b)s(e)h(more)e(strictly)g(organized)h(than)g(a)g +Fm(Jetset)f Fw(one,)j(in)d(that)h(it)f(is)h(necessary)0 +4845 y(to)34 b(initialize)d(the)k(generation)f(b)s(efore)g(ev)m(en)m +(ts)j(can)e(b)s(e)g(generated,)h(and)e(in)g(that)g(it)g(is)g(not)g(p)s +(ossible)0 4953 y(to)j(c)m(hange)h(switc)m(hes)h(and)e(parameters)h +(freely)f(during)g(the)g(course)i(of)d(the)i(run.)58 +b(A)37 b(fairly)f(precise)0 5062 y(recip)s(e)d(for)f(ho)m(w)h(a)f(run)h +(should)f(b)s(e)h(structured)h(can)f(therefore)g(b)s(e)g(giv)m(en.)146 +5170 y(Th)m(us,)i(the)e(usage)g(of)39 b Fm(Pythia)32 +b Fw(can)h(b)s(e)g(sub)s(divided)g(in)m(to)f(three)h(steps.)119 +5283 y(1.)49 b(The)42 b(initialization)35 b(step.)70 +b(It)41 b(is)g(here)h(that)e(all)f(the)j(basic)f(c)m(haracteristics)g +(of)g(the)g(coming)244 5391 y(generation)32 b(are)g(sp)s(eci\014ed.)45 +b(The)33 b(material)d(in)i(this)g(section)h(includes)f(the)h(follo)m +(wing.)360 5509 y Fn(\017)48 b Fw(Common)32 b(blo)s(c)m(ks,)h(at)f +(least)g(the)h(follo)m(wing,)d(and)j(ma)m(yb)s(e)f(some)h(more:)766 +5627 y Fq(COMMON/LUJETS/N,K\(4000,5\))q(,P\()q(4000)q(,5\),)q(V\(40)q +(00,)q(5\))1841 5953 y Fw(39)p eop +%%Page: 40 46 +40 45 bop 766 -18 a Fq(COMMON/LUDAT1/MSTU\(200\),P)q(ARU)q(\(200)q +(\),MS)q(TJ\(2)q(00\))q(,PAR)q(J\(20)q(0\))766 90 y +(COMMON/PYSUBS/MSEL,MSUB\(2)q(00\))q(,KFI)q(N\(2,)q(-40:)q(40\))q(,CKI) +q(N\(20)q(0\))766 198 y(COMMON/PYPARS/MSTP\(200\),P)q(ARP)q(\(200)q +(\),MS)q(TI\(2)q(00\))q(,PAR)q(I\(20)q(0\))360 321 y +Fn(\017)48 b Fw(Selection)d(of)f(required)h(pro)s(cesses.)82 +b(Some)45 b(\014xed)h(`men)m(us')f(of)g(subpro)s(cesses)i(can)e(b)s(e) +458 429 y(selected)33 b(with)f(di\013eren)m(t)f Fq(MSEL)i +Fw(v)-5 b(alues,)32 b(but)g(with)f Fq(MSEL)p Fw(=0)h(it)f(is)g(p)s +(ossible)g(to)h(comp)s(ose)458 537 y(`\022)-49 b(a)37 +b(la)f(carte',)j(using)e(the)g(subpro)s(cess)i(n)m(um)m(b)s(ers.)58 +b(T)-8 b(o)37 b(generate)h(pro)s(cesses)h(14,)f(18)e(and)458 +646 y(29,)d(for)f(instance,)h(one)g(needs)766 764 y Fq(MSEL=0)766 +872 y(MSUB\(14\)=1)766 980 y(MSUB\(18\)=1)766 1089 y(MSUB\(29\)=1)360 +1211 y Fn(\017)48 b Fw(Selection)39 b(of)f(kinematics)h(cuts)g(in)g +(the)g Fq(CKIN)h Fw(arra)m(y)-8 b(.)63 b(T)-8 b(o)39 +b(generate)h(hard)f(scatterings)458 1319 y(with)33 b(5)f(GeV)h +Fn(\024)28 b Fj(p)1142 1334 y Fk(?)1228 1319 y Fn(\024)33 +b Fw(10)f(GeV,)h(for)f(instance,)h(use)766 1437 y Fq(CKIN\(3\)=5.)766 +1546 y(CKIN\(4\)=10.)458 1663 y Fw(Unfortunately)-8 b(,)27 +b(initial-)21 b(and)26 b(\014nal-state)f(radiation)e(will)g(shift)i +(around)h(the)f(kinematics)458 1772 y(of)f(the)h(hard)f(scattering,)i +(making)d(the)h(e\013ects)i(of)d(cuts)j(less)e(predictable.)40 +b(One)25 b(therefore)458 1880 y(alw)m(a)m(ys)33 b(has)f(to)f(b)s(e)h(v) +m(ery)h(careful)e(that)h(no)g(desired)g(ev)m(en)m(t)h(con\014gurations) +f(are)f(cut)i(out.)360 1998 y Fn(\017)48 b Fw(De\014nition)31 +b(of)h(underlying)g(ph)m(ysics)j(scenario,)d(e.g.)44 +b(top)32 b(mass.)360 2116 y Fn(\017)48 b Fw(Selection)28 +b(of)f(parton-distribution)e(sets,)30 b Fj(Q)2104 2079 +y Fl(2)2172 2116 y Fw(de\014nitions,)e(and)g(all)e(other)i(details)f +(of)g(the)458 2224 y(generation.)360 2342 y Fn(\017)48 +b Fw(Switc)m(hing)34 b(o\013)g(of)f(generator)h(parts)g(not)g(needed)i +(for)d(to)m(y)i(sim)m(ulations,)d(e.g.)48 b(fragmen-)458 +2450 y(tation)32 b(for)g(parton)g(lev)m(el)g(studies.)360 +2568 y Fn(\017)48 b Fw(Initialization)40 b(of)k(the)g(ev)m(en)m(t)i +(generation)e(pro)s(cedure.)79 b(Here)45 b(kinematics)e(is)g(set)i(up,) +458 2676 y(maxima)d(of)h(di\013eren)m(tial)f(cross)j(sections)g(are)f +(found)g(for)f(future)h(Mon)m(te)h(Carlo)e(gen-)458 2785 +y(eration,)g(and)f(a)f(n)m(um)m(b)s(er)h(of)f(other)h(preparatory)f +(tasks)i(carried)e(out.)70 b(Initialization)458 2893 +y(is)41 b(p)s(erformed)g(b)m(y)i Fq(PYINIT)p Fw(,)g(whic)m(h)e(should)g +(b)s(e)h(called)e(only)g(after)h(the)h(switc)m(hes)g(and)458 +3001 y(parameters)35 b(ab)s(o)m(v)m(e)f(ha)m(v)m(e)i(b)s(een)f(set)f +(to)g(their)g(desired)g(v)-5 b(alues.)48 b(The)35 b(frame,)f(the)g(b)s +(eam)458 3110 y(particles)e(and)h(the)g(energy)h(ha)m(v)m(e)f(to)g(b)s +(e)f(sp)s(eci\014ed.)766 3227 y Fq(CALL)52 b(PYINIT\('CMS','p','pbar')q +(,180)q(0.\))360 3350 y Fn(\017)c Fw(An)m(y)34 b(other)f(initial)c +(material)g(required)k(b)m(y)h(the)f(user,)h(e.g.)43 +b(histogram)31 b(b)s(o)s(oking.)119 3468 y(2.)49 b(The)37 +b(generation)e(lo)s(op.)53 b(It)36 b(is)g(here)g(that)g(ev)m(en)m(ts)j +(are)d(generated)h(and)f(studied.)54 b(It)37 b(includes)244 +3576 y(the)c(follo)m(wing)d(tasks:)360 3694 y Fn(\017)48 +b Fw(Generation)32 b(of)g(the)h(next)h(ev)m(en)m(t,)g(with)766 +3812 y Fq(CALL)52 b(PYEVNT)360 3934 y Fn(\017)c Fw(Prin)m(ting)32 +b(of)g(a)g(few)h(ev)m(en)m(ts,)i(to)e(c)m(hec)m(k)h(that)f(ev)m +(erything)g(is)g(w)m(orking)f(as)h(planned,)f(with)766 +4052 y Fq(CALL)52 b(LULIST\(1\))360 4174 y Fn(\017)c +Fw(An)37 b(analysis)e(of)h(the)g(ev)m(en)m(t)i(for)e(prop)s(erties)g +(of)f(in)m(terest,)j(either)e(directly)f(reading)h(out)458 +4283 y(information)42 b(from)i(the)h Fq(LUJETS)i Fw(common)c(blo)s(c)m +(k)i(or)g(making)e(use)j(of)f(a)g(n)m(um)m(b)s(er)g(of)458 +4391 y(utilit)m(y)31 b(routines)i(in)e Fm(Jetset)p Fw(.)360 +4509 y Fn(\017)48 b Fw(Sa)m(ving)33 b(of)f(ev)m(en)m(ts)j(on)d(tap)s +(e,)h(or)f(in)m(terfacing)f(to)i(detector)g(sim)m(ulation.)119 +4627 y(3.)49 b(The)33 b(\014nishing)f(step.)45 b(Here)33 +b(the)g(tasks)h(are:)360 4745 y Fn(\017)48 b Fw(Prin)m(ting)43 +b(a)h(table)g(of)f(deduced)j(cross)f(sections,)j(obtained)43 +b(as)i(a)f(b)m(y-pro)s(duct)g(of)g(the)458 4853 y(Mon)m(te)34 +b(Carlo)d(generation)h(activit)m(y)-8 b(,)32 b(with)h(the)g(command)766 +4971 y Fq(CALL)52 b(PYSTAT\(1\))360 5093 y Fn(\017)c +Fw(Prin)m(ting)32 b(histograms)f(and)i(other)g(user)g(output.)146 +5211 y(T)-8 b(o)36 b(illustrate)d(this)i(structure,)j(imagine)33 +b(a)i(to)m(y)h(example,)g(where)h(one)f(w)m(an)m(ts)h(to)e(sim)m(ulate) +f(the)0 5319 y(pro)s(duction)46 b(of)g(a)h(300)f(GeV)h(Higgs)f +(particle.)85 b(In)47 b Fm(Pythia)p Fw(,)k(a)46 b(program)g(for)g(this) +g(migh)m(t)g(lo)s(ok)0 5428 y(something)32 b(lik)m(e)f(the)i(follo)m +(wing.)0 5619 y Fq(C...Common)54 b(blocks.)1841 5953 +y Fw(40)p eop +%%Page: 41 47 +41 46 bop 308 -18 a Fq(COMMON/LUJETS/N,K\(4000,5\),)q(P\(40)q(00,5)q +(\),V\()q(400)q(0,5\))308 90 y(COMMON/LUDAT1/MSTU\(200\),PA)q(RU\(2)q +(00\),)q(MSTJ)q(\(20)q(0\),P)q(ARJ\()q(200\))308 198 +y(COMMON/LUDAT2/KCHG\(500,3\),)q(PMAS)q(\(500)q(,4\),)q(PAR)q(F\(20)q +(00\),)q(VCKM)q(\(4,4)q(\))308 307 y(COMMON/LUDAT3/MDCY\(500,3\),)q +(MDME)q(\(200)q(0,2\))q(,BR)q(AT\(2)q(000\))q(,KFD)q(P\(20)q(00,)q(5\)) +308 415 y(COMMON/PYSUBS/MSEL,MSUB\(20)q(0\),K)q(FIN\()q(2,-4)q(0:4)q +(0\),C)q(KIN\()q(200\))308 523 y(COMMON/PYPARS/MSTP\(200\),PA)q(RP\(2)q +(00\),)q(MSTI)q(\(20)q(0\),P)q(ARI\()q(200\))308 632 +y(COMMON/PAWC/HBOOK\(10000\))0 848 y(C...Number)54 b(of)e(events)h(to)e +(generate.)j(Switch)f(on)f(proper)h(processes.)308 957 +y(NEV=1000)308 1065 y(MSEL=0)308 1173 y(MSUB\(102\)=1)308 +1282 y(MSUB\(123\)=1)308 1390 y(MSUB\(124\)=1)0 1607 +y(C...Select)h(t)d(and)i(H)e(masses)i(and)f(kinematics)i(cuts)e(in)g +(mass.)308 1715 y(PMAS\(6,1\)=140.)308 1823 y(PMAS\(25,1\)=300.)308 +1932 y(CKIN\(1\)=290.)308 2040 y(CKIN\(2\)=310.)0 2257 +y(C...For)h(simulation)h(of)e(hard)g(process)h(only:)g(cut)f(out)g +(unnecessary)i(tasks.)308 2365 y(MSTP\(61\)=0)308 2473 +y(MSTP\(71\)=0)308 2582 y(MSTP\(81\)=0)308 2690 y(MSTP\(111\)=0)0 +2907 y(C...Initialize)h(and)d(list)g(partial)i(widths.)308 +3015 y(CALL)e(PYINIT\('CMS','p','p',1600)q(0.\))308 3123 +y(CALL)g(PYSTAT\(2\))0 3340 y(C...Book)h(histograms.)308 +3448 y(CALL)f(HLIMIT\(10000\))308 3557 y(CALL)g(HBOOK1\(1,'Higgs)j +(mass',50,275.,325.,0.\))0 3774 y(C...Generate)f(events.)g(Look)e(at)g +(first)g(few.)308 3882 y(DO)f(200)h(IEV=1,NEV)308 3990 +y(CALL)g(PYEVNT)308 4099 y(IF\(IEV.LE.3\))i(CALL)e(LULIST\(1\))0 +4315 y(C...Loop)h(over)g(particles)g(to)f(find)h(Higgs)f(and)g +(histogram)i(its)e(mass.)308 4424 y(DO)f(100)h(I=1,N)103 +4532 y(100)g(IF\(K\(I,2\).EQ.25\))j(HMASS=P\(I,5\))308 +4640 y(CALL)d(HF1\(1,HMASS,1.\))103 4749 y(200)g(CONTINUE)0 +4965 y(C...Print)i(cross)e(sections)i(and)e(histograms.)308 +5074 y(CALL)g(PYSTAT\(1\))308 5182 y(CALL)g(HISTDO)308 +5399 y(END)146 5561 y Fw(Here)32 b(102,)f(123)g(and)h(124)e(are)i(the)g +(three)g(main)d(Higgs)i(pro)s(duction)g(graphs)g(gg)e +Fn(!)e Fw(H,)32 b(ZZ)27 b Fn(!)g Fw(H,)0 5669 y(and)47 +b(WW)55 b Fn(!)d Fw(H,)f(and)c Fq(MSUB\(ISUB\)=1)j Fw(is)d(the)g +(command)f(to)h(switc)m(h)h(on)f(pro)s(cess)h Fq(ISUB)p +Fw(.)h(F)-8 b(ull)1841 5953 y(41)p eop +%%Page: 42 48 +42 47 bop 0 -18 a Fw(freedom)35 b(to)h(com)m(bine)f(subpro)s(cesses)k +(`\022)-49 b(a)35 b(la)g(carte')h(is)f(ensured)i(b)m(y)h +Fq(MSEL=0)p Fw(;)h(ready-made)d(`men)m(us')0 90 y(can)c(b)s(e)g +(ordered)g(with)f(other)h Fq(MSEL)h Fw(n)m(um)m(b)s(ers.)44 +b(The)33 b Fq(PMAS)f Fw(commands)f(set)i(the)f(masses)g(of)g(the)g(top) +0 198 y(quark)40 b(and)e(the)i(Higgs)e(itself,)h(and)g(the)g +Fq(CKIN)g Fw(v)-5 b(ariables)38 b(the)h(desired)g(mass)g(range)g(of)f +(the)h(Higgs)0 307 y(|)34 b(a)g(Higgs)f(with)h(a)g(300)g(GeV)g(nominal) +d(mass)k(actually)e(has)h(a)g(fairly)f(broad)h(Breit{Wigner)f(t)m(yp)s +(e)0 415 y(mass)f(distribution.)42 b(The)33 b Fq(MSTP)h +Fw(switc)m(hes)g(that)e(come)g(next)h(are)g(there)g(to)f(mo)s(dify)e +(the)j(generation)0 523 y(pro)s(cedure,)d(in)d(this)h(case)h(to)f +(switc)m(h)h(o\013)e(initial-)d(and)k(\014nal-state)g(radiation,)f(m)m +(ultiple)e(in)m(teractions)0 632 y(among)c(b)s(eam)h(jets,)j(and)d +(fragmen)m(tation,)h(to)f(giv)m(e)g(only)g(the)h(`parton)f(sk)m +(eleton')i(of)e(the)h(hard)f(pro)s(cess.)0 740 y(The)28 +b Fq(PYINIT)h Fw(call)c(initializes)f Fm(Pythia)p Fw(,)k(b)m(y)g +(\014nding)f(maxima)d(of)j(cross)h(sections,)h(recalculating)c(the)0 +848 y(Higgs)30 b(deca)m(y)i(prop)s(erties)f(\(whic)m(h)g(dep)s(end)h +(on)e(the)h(Higgs)f(mass\),)h(etc.)44 b(The)31 b(deca)m(y)i(prop)s +(erties)d(can)0 957 y(b)s(e)j(listed)e(with)i Fq(PYSTAT\(2\))p +Fw(.)146 1065 y(Inside)41 b(the)f(ev)m(en)m(t)h(lo)s(op,)f +Fq(PYEVNT)i Fw(is)d(called)g(to)g(generate)h(an)g(ev)m(en)m(t,)k(and)39 +b Fq(LULIST\(1\))k Fw(to)c(list)0 1173 y(the)29 b(ev)m(en)m(t.)45 +b(The)29 b(information)d(used)k(b)m(y)i Fq(LULIST\(1\))f +Fw(is)d(the)i(ev)m(en)m(t)g(record,)h(stored)e(in)f(the)i(common)0 +1282 y(blo)s(c)m(k)24 b Fq(LUJETS)p Fw(.)i(Here)f(one)g(\014nds)g(all)d +(pro)s(duced)k(particles,)f(b)s(oth)f(\014nal)f(and)i(in)m(termediate)e +(ones,)k(with)0 1390 y(information)35 b(on)i(particle)g(sp)s(ecies)h +(and)g(ev)m(en)m(t)i(history)d(\()p Fq(K)h Fw(arra)m(y\),)h(particle)e +(momen)m(ta)g(\()p Fq(P)g Fw(arra)m(y\))0 1498 y(and)g(pro)s(duction)f +(v)m(ertices)i(\()p Fq(V)f Fw(arra)m(y\).)55 b(In)37 +b(the)h(lo)s(op)d(o)m(v)m(er)j(all)c(particles)i(pro)s(duced,)j +Fq(1)e Fw(through)f Fq(N)p Fw(,)0 1607 y(the)d(Higgs)f(particle)f(is)h +(found)h(b)m(y)g(its)f(co)s(de,)h Fq(K\(I,2\)=25)p Fw(,)i(and)e(its)f +(mass)h(is)f(stored)h(in)f Fq(P\(I,5\))p Fw(.)146 1715 +y(After)38 b(all)e(ev)m(en)m(ts)k(ha)m(v)m(e)f(b)s(een)f(generated,)i +Fq(PYSTAT\(1\))g Fw(giv)m(es)e(a)f(summary)h(of)f(the)h(n)m(um)m(b)s +(er)g(of)0 1823 y(ev)m(en)m(ts)d(generated)e(in)f(the)h(v)-5 +b(arious)32 b(allo)m(w)m(ed)g(c)m(hannels,)h(and)g(the)g(inferred)f +(cross)i(sections.)146 1932 y(In)f(the)g(run)g(ab)s(o)m(v)m(e,)h(a)e(t) +m(ypical)g(ev)m(en)m(t)i(listing)c(migh)m(t)h(lo)s(ok)h(lik)m(e)g(the)h +(follo)m(wing.)1282 2121 y Fq(Event)52 b(listing)h(\(summary\))205 +2338 y(I)103 b(particle/jet)259 b(KF)206 b(p_x)308 b(p_y)h(p_z)359 +b(E)411 b(m)205 2555 y(1)103 b(!p+!)565 b(2212)206 b(0.000)g(0.000)53 +b(8000.000)g(8000.000)208 b(0.938)205 2663 y(2)103 b(!p+!)565 +b(2212)206 b(0.000)g(0.000-8000.000)55 b(8000.000)208 +b(0.938)51 2771 y(========================)q(====)q(===)q(====)q(====)q +(====)q(===)q(====)q(====)q(====)q(====)q(===)q(====)q(=)205 +2880 y(3)103 b(!g!)718 b(21)155 b(-0.505)g(-0.229)h(28.553)f(28.558)207 +b(0.000)205 2988 y(4)103 b(!g!)718 b(21)206 b(0.224)g(0.041)53 +b(-788.073)105 b(788.073)207 b(0.000)205 3096 y(5)103 +b(!g!)718 b(21)155 b(-0.505)g(-0.229)h(28.553)f(28.558)207 +b(0.000)205 3205 y(6)103 b(!g!)718 b(21)206 b(0.224)g(0.041)53 +b(-788.073)105 b(788.073)207 b(0.000)205 3313 y(7)103 +b(!H0!)667 b(25)155 b(-0.281)g(-0.188)53 b(-759.520)105 +b(816.631)f(300.027)205 3421 y(8)f(!W+!)667 b(24)103 +b(120.648)156 b(35.239)53 b(-397.843)105 b(424.829)155 +b(80.023)205 3530 y(9)103 b(!W-!)616 b(-24)52 b(-120.929)105 +b(-35.426)53 b(-361.677)105 b(391.801)155 b(82.579)154 +3638 y(10)103 b(!e+!)616 b(-11)155 b(12.922)g(-4.760)53 +b(-160.940)105 b(161.528)207 b(0.001)154 3746 y(11)103 +b(!nu_e!)565 b(12)103 b(107.726)156 b(39.999)53 b(-236.903)105 +b(263.302)207 b(0.000)154 3855 y(12)103 b(!s!)770 b(3)102 +b(-62.423)207 b(7.195)53 b(-256.713)105 b(264.292)207 +b(0.199)154 3963 y(13)103 b(!c~!)667 b(-4)103 b(-58.506)i(-42.621)53 +b(-104.963)105 b(127.509)207 b(1.350)51 4071 y +(========================)q(====)q(===)q(====)q(====)q(====)q(===)q +(====)q(====)q(====)q(====)q(===)q(====)q(=)154 4180 +y(14)103 b(\(H0\))667 b(25)155 b(-0.281)g(-0.188)53 b(-759.520)105 +b(816.631)f(300.027)154 4288 y(15)f(\(W+\))667 b(24)103 +b(120.648)156 b(35.239)53 b(-397.843)105 b(424.829)155 +b(80.023)154 4396 y(16)103 b(\(W-\))616 b(-24)52 b(-120.929)105 +b(-35.426)53 b(-361.677)105 b(391.801)155 b(82.579)154 +4505 y(17)103 b(e+)718 b(-11)155 b(12.922)g(-4.760)53 +b(-160.940)105 b(161.528)207 b(0.001)154 4613 y(18)103 +b(nu_e)667 b(12)103 b(107.726)156 b(39.999)53 b(-236.903)105 +b(263.302)207 b(0.000)154 4721 y(19)103 b(s)462 b(A)359 +b(3)102 b(-62.423)207 b(7.195)53 b(-256.713)105 b(264.292)207 +b(0.199)154 4830 y(20)103 b(c~)411 b(V)307 b(-4)103 b(-58.506)i +(-42.621)53 b(-104.963)105 b(127.509)207 b(1.350)154 +4938 y(21)103 b(ud_1)309 b(A)205 b(2103)155 b(-0.101)206 +b(0.176)53 b(7971.328)g(7971.328)208 b(0.771)154 5046 +y(22)103 b(d)462 b(V)359 b(1)154 b(-0.316)206 b(0.001)104 +b(-87.390)156 b(87.390)207 b(0.010)154 5155 y(23)103 +b(u)462 b(A)359 b(2)205 b(0.606)h(0.052)156 b(-0.751)206 +b(0.967)h(0.006)154 5263 y(24)103 b(uu_1)309 b(V)205 +b(2203)h(0.092)155 b(-0.042-7123.668)55 b(7123.668)208 +b(0.771)51 5371 y(========================)q(====)q(===)q(====)q(====)q +(====)q(===)q(====)q(====)q(====)q(====)q(===)q(====)q(=)820 +5480 y(sum:)104 b(2.00)257 b(0.00)h(0.00)f(0.00)52 b(15999.98)i +(15999.98)0 5669 y Fw(The)29 b(ab)s(o)m(v)m(e)h(ev)m(en)m(t)g(listing)c +(is)i(abnormally)e(short,)k(in)d(part)i(b)s(ecause)h(some)e(columns)g +(of)g(information)1841 5953 y(42)p eop +%%Page: 43 49 +43 48 bop 0 -18 a Fw(w)m(ere)31 b(remo)m(v)m(ed)f(to)f(mak)m(e)h(it)e +(\014t)i(in)m(to)e(this)h(text,)i(in)e(part)g(b)s(ecause)i(all)c +(initial-)f(and)j(\014nal-state)g(QCD)0 90 y(radiation,)37 +b(all)f(non-trivial)f(b)s(eam)i(jet)h(structure,)i(and)e(all)e(fragmen) +m(tation)g(w)m(as)j(inhibited)d(in)h(the)0 198 y(generation.)69 +b(Therefore)43 b(only)e(the)g(sk)m(eleton)i(of)d(the)i(pro)s(cess)h(is) +e(visible.)68 b(In)42 b(lines)f(1)g(and)g(2)g(one)0 307 +y(recognizes)30 b(the)f(t)m(w)m(o)h(incoming)d(protons.)43 +b(In)29 b(lines)f(3)h(and)g(4)g(are)g(incoming)e(partons)j(b)s(efore)f +(initial-)0 415 y(state)h(radiation)d(and)j(in)f(5)g(and)h(6)f(after)g +(|)g(since)h(there)g(is)f(no)h(suc)m(h)h(radiation)c(they)k(coincide)e +(here.)0 523 y(Line)j(7)g(sho)m(ws)h(the)g(Higgs)e(pro)s(duced)i(b)m(y) +h(gg)f(fusion,)e(8)h(and)h(9)f(its)f(deca)m(y)j(pro)s(ducts)f(and)f +(10{13)f(the)0 632 y(second-step)37 b(deca)m(y)f(pro)s(ducts.)52 +b(Up)35 b(to)g(this)f(p)s(oin)m(t)h(lines)f(giv)m(e)h(a)f(summary)h(of) +f(the)i(ev)m(en)m(t)h(history)-8 b(,)0 740 y(indicated)36 +b(b)m(y)h(the)g(exclamation)e(marks)i(that)f(surround)i(particle)d +(names)i(\(and)f(also)g(re\015ected)i(in)0 848 y(the)29 +b Fq(K\(I,1\))h Fw(co)s(de,)g(not)e(sho)m(wn\).)44 b(F)-8 +b(rom)27 b(line)g(14)h(on)m(w)m(ards)i(come)f(the)g(particles)e +(actually)h(pro)s(duced)0 957 y(in)41 b(the)g(\014nal)g(states,)j +(\014rst)e(in)e(lines)h(14{16)f(particles)g(that)i(subsequen)m(tly)i +(deca)m(y)m(ed,)h(whic)m(h)d(ha)m(v)m(e)0 1065 y(their)g(names)h +(surrounded)h(b)m(y)g(brac)m(k)m(ets,)k(and)42 b(\014nally)g(the)h +(particles)f(and)h(jets)g(left)f(in)g(the)i(end,)0 1173 +y(including)35 b(b)s(eam)h(remnan)m(ts.)56 b(Here)37 +b(this)g(also)f(includes)g(a)g(n)m(um)m(b)s(er)i(of)e(unfragmen)m(ted)h +(jets,)h(since)0 1282 y(fragmen)m(tation)25 b(w)m(as)j(inhibited.)40 +b(Ordinarily)-8 b(,)25 b(the)j(listing)c(w)m(ould)j(ha)m(v)m(e)h(gone)f +(on)g(for)f(a)h(few)g(h)m(undred)0 1390 y(more)38 b(lines,)i(with)e +(the)h(particles)f(pro)s(duced)i(in)e(the)h(fragmen)m(tation)e(and)i +(their)f(deca)m(y)j(pro)s(ducts.)0 1498 y(The)48 b(\014nal)e(line)f +(giv)m(es)i(total)f(c)m(harge)h(and)g(momen)m(tum,)i(as)e(a)f(con)m(v)m +(enien)m(t)j(c)m(hec)m(k)g(that)d(nothing)0 1607 y(unexp)s(ected)37 +b(happ)s(ened.)50 b(The)36 b(\014rst)f(column)e(of)h(the)h(listing)d +(is)i(just)h(a)f(coun)m(ter,)i(the)f(second)h(giv)m(es)0 +1715 y(the)e(particle)e(name)h(and)g(information)d(on)k(status)g(and)f +(string)g(dra)m(wing)g(\(the)h Fq(A)f Fw(and)h Fq(V)p +Fw(\),)f(the)h(third)0 1823 y(the)j(particle-\015a)m(v)m(our)f(co)s(de) +h(\(whic)m(h)h(is)e(used)i(to)f(giv)m(e)f(the)i(name\),)f(and)g(the)g +(subsequen)m(t)j(columns)0 1932 y(giv)m(e)33 b(the)g(momen)m(tum)e +(comp)s(onen)m(ts.)146 2040 y(One)g(of)e(the)i(main)d(problems)i(is)f +(to)h(select)h(kinematics)e(e\016cien)m(tly)-8 b(.)43 +b(Imagine)29 b(for)g(instance)i(that)0 2148 y(one)f(is)g(in)m(terested) +h(in)e(the)i(pro)s(duction)e(of)h(a)g(single)f(Z)h(with)f(a)h(transv)m +(erse)i(momen)m(tum)d(in)g(excess)k(of)0 2257 y(50)d(GeV.)g(If)h(one)g +(tries)f(to)g(generate)h(the)g(inclusiv)m(e)f(sample)f(of)h(Z)g(ev)m +(en)m(ts,)k(b)m(y)d(the)g(basic)f(pro)s(duction)0 2365 +y(graphs)35 b(q)p 368 2312 52 4 v(q)e Fn(!)e Fw(Z,)k(then)g(most)f(ev)m +(en)m(ts)k(will)32 b(ha)m(v)m(e)k(lo)m(w)f(transv)m(erse)i(momen)m(ta)c +(and)i(will)e(ha)m(v)m(e)j(to)e(b)s(e)0 2473 y(discarded.)57 +b(That)37 b(an)m(y)h(of)e(the)h(desired)h(ev)m(en)m(ts)h(are)e(pro)s +(duced)g(at)g(all)e(is)h(due)h(to)g(the)g(initial-state)0 +2582 y(generation)j(mac)m(hinery)-8 b(,)43 b(whic)m(h)e(can)g(build)f +(up)h(transv)m(erse)i(momen)m(ta)d(for)g(the)i(incoming)c(q)j(and)p +0 2637 V 0 2690 a(q.)52 b(Ho)m(w)m(ev)m(er,)38 b(the)d(amoun)m(t)g(of)g +(initial-state)c(radiation)i(cannot)i(b)s(e)g(constrained)h(b)s +(eforehand.)51 b(T)-8 b(o)0 2798 y(increase)44 b(the)g(e\016ciency)-8 +b(,)47 b(one)d(ma)m(y)f(therefore)h(turn)f(to)g(the)h(higher-order)f +(pro)s(cesses)i(qg)j Fn(!)d Fw(Zq)0 2907 y(and)39 b(q)p +247 2854 V(q)i Fn(!)d Fw(Zg)q(,)j(where)g(already)d(the)i(hard)g +(subpro)s(cess)h(giv)m(es)f(a)f(transv)m(erse)i(momen)m(tum)d(to)h(the) +0 3015 y(Z.)59 b(This)38 b(transv)m(erse)i(momen)m(tum)c(can)i(b)s(e)g +(constrained)g(as)g(one)g(wishes,)i(but)e(again)f(initial-)c(and)0 +3123 y(\014nal-state)40 b(radiation)e(will)g(smear)i(the)h(picture.)67 +b(If)40 b(one)h(w)m(ere)h(to)e(set)h(a)f Fj(p)2889 3138 +y Fk(?)2989 3123 y Fw(cut)h(at)f(50)g(GeV)g(for)0 3232 +y(the)30 b(hard-pro)s(cess)h(generation,)f(those)g(ev)m(en)m(ts)i +(where)f(the)f(Z)f(w)m(as)i(giv)m(en)f(only)f(40)h(GeV)f(in)g(the)h +(hard)0 3340 y(pro)s(cess)35 b(but)e(got)g(the)h(rest)g(from)e +(initial-state)e(radiation)h(w)m(ould)i(b)s(e)h(missed.)46 +b(Not)33 b(only)g(therefore)0 3448 y(w)m(ould)g(cross)h(sections)f +(come)g(out)g(wrong,)g(but)g(so)g(migh)m(t)f(the)h(t)m(ypical)f(ev)m +(en)m(t)j(shap)s(es.)46 b(In)33 b(the)h(end,)0 3557 y(it)g(is)h +(therefore)g(necessary)j(to)d(\014nd)g(some)g(reasonable)g(compromise,) +f(b)m(y)i(starting)f(the)g(generation)0 3665 y(at)g(30)f(GeV,)h(sa)m(y) +-8 b(,)36 b(if)e(one)h(kno)m(ws)i(that)d(only)h(rarely)f(do)h(ev)m(en)m +(ts)i(b)s(elo)m(w)e(this)f(v)-5 b(alue)35 b(\015uctuate)h(up)f(to)0 +3774 y(50)28 b(GeV.)h(Of)f(course,)j(most)d(ev)m(en)m(ts)j(will)26 +b(therefore)j(not)g(con)m(tain)f(a)h(Z)f(ab)s(o)m(v)m(e)h(50)f(GeV,)h +(and)g(one)g(will)0 3882 y(ha)m(v)m(e)40 b(to)d(liv)m(e)h(with)g(some)g +(ine\016ciency)-8 b(.)61 b(It)38 b(is)g(not)g(uncommon)f(that)h(only)g +(one)g(ev)m(en)m(t)i(out)e(of)g(ten)0 3990 y(can)33 b(b)s(e)g(used,)g +(and)g(o)s(ccasionally)e(it)g(can)i(b)s(e)g(ev)m(en)h(w)m(orse.)146 +4099 y(If)24 b(it)f(is)h(di\016cult)f(to)h(set)h(kinematics,)g(it)e(is) +g(often)h(easier)g(to)g(set)h(the)f(\015a)m(v)m(our)h(con)m(ten)m(t)h +(of)d(a)h(pro)s(cess.)0 4207 y(In)38 b(a)g(Higgs)f(study)-8 +b(,)41 b(one)d(migh)m(t)f(wish,)j(for)d(example,)i(to)f(consider)g(the) +h(deca)m(y)g(H)3112 4171 y Fl(0)3189 4207 y Fn(!)d Fw(Z)3385 +4171 y Fl(0)3424 4207 y Fw(Z)3484 4171 y Fl(0)3523 4207 +y Fw(,)k(with)0 4315 y(eac)m(h)d(Z)283 4279 y Fl(0)356 +4315 y Fn(!)c Fw(e)532 4279 y Fl(+)591 4315 y Fw(e)634 +4279 y Fk(\000)729 4315 y Fw(or)j Fj(\026)911 4279 y +Fl(+)970 4315 y Fj(\026)1029 4279 y Fk(\000)1088 4315 +y Fw(.)53 b(It)36 b(is)g(therefore)h(necessary)h(to)e(inhibit)d(all)h +(other)i(H)3137 4279 y Fl(0)3213 4315 y Fw(and)g(Z)3466 +4279 y Fl(0)3541 4315 y Fw(deca)m(y)0 4424 y(c)m(hannels,)g(and)f(also) +f(to)g(adjust)h(cross)h(sections)f(to)g(tak)m(e)g(in)m(to)f(accoun)m(t) +i(this)e(c)m(hange,)i(all)d(of)h(whic)m(h)0 4532 y(is)g(fairly)f +(straigh)m(tforw)m(ard.)49 b(Ho)m(w)m(ev)m(er,)38 b(if)33 +b(one)i(w)m(an)m(ted)h(to)e(consider)h(instead)g(the)g(deca)m(y)h(Z) +3465 4496 y Fl(0)3535 4532 y Fn(!)31 b Fw(c)p 3709 4479 +44 4 v(c,)0 4640 y(with)c(a)g(D)g(meson)h(pro)s(ducing)e(a)i(lepton,)g +(not)f(only)g(w)m(ould)g(there)h(then)h(b)s(e)e(the)h(problem)e(of)h +(di\013eren)m(t)0 4749 y(leptonic)40 b(branc)m(hing)i(ratios)e(for)h +(di\013eren)m(t)g(D:s)h(\(whic)m(h)g(means)f(that)g(fragmen)m(tation)f +(and)h(deca)m(y)0 4857 y(treatmen)m(ts)c(w)m(ould)g(no)g(longer)e +(decouple\),)k(but)e(also)e(that)i(of)f(additional)e(c)p +2913 4804 V(c)j(pair)f(pro)s(duction)g(in)0 4965 y(parton-sho)m(w)m(er) +28 b(ev)m(olution,)g(at)f(a)f(rate)i(that)f(is)f(unkno)m(wn)j(b)s +(eforehand.)42 b(In)28 b(practice,)g(it)e(is)h(therefore)0 +5074 y(imp)s(ossible)j(to)j(force)f(D)g(deca)m(y)i(mo)s(des)f(in)e(a)i +(consisten)m(t)g(manner.)1841 5953 y(43)p eop +%%Page: 44 50 +44 49 bop 0 -18 a Ft(4)161 b(Mon)l(te)52 b(Carlo)j(T)-13 +b(ec)l(hniques)0 189 y Fw(Quan)m(tum)45 b(mec)m(hanics)g(in)m(tro)s +(duces)h(a)f(concept)h(of)e(randomness)i(in)e(the)i(b)s(eha)m(viour)f +(of)g(ph)m(ysical)0 297 y(pro)s(cesses.)67 b(The)40 b(virtue)g(of)f(ev) +m(en)m(t)i(generators)g(is)e(that)g(this)g(randomness)i(can)e(b)s(e)h +(sim)m(ulated)f(b)m(y)0 405 y(the)30 b(use)g(of)f(Mon)m(te)h(Carlo)f +(tec)m(hniques.)44 b(In)30 b(the)g(pro)s(cess,)h(the)f(program)e +(authors)h(ha)m(v)m(e)i(to)e(use)i(some)0 514 y(ingen)m(uit)m(y)j(to)f +(\014nd)i(the)f(most)f(e\016cien)m(t)i(w)m(a)m(y)g(to)f(sim)m(ulate)e +(an)i(assumed)g(probabilit)m(y)e(distribution.)0 622 +y(A)37 b(detailed)f(description)h(of)g(p)s(ossible)g(tec)m(hniques)i(w) +m(ould)e(carry)g(us)h(to)s(o)f(far,)h(but)f(in)f(this)h(section)0 +730 y(some)44 b(of)g(the)h(most)f(frequen)m(tly)i(used)g(approac)m(hes) +g(are)e(presen)m(ted,)50 b(since)45 b(they)h(will)c(app)s(ear)i(in)0 +839 y(discussions)33 b(in)f(subsequen)m(t)k(sections.)44 +b(F)-8 b(urther)33 b(examples)f(ma)m(y)g(b)s(e)h(found)g(e.g.)44 +b(in)31 b([Jam80)o(].)146 947 y(First)i(of)g(all)f(one)i(assumes)h(the) +f(existence)h(of)f(a)f(random)g(n)m(um)m(b)s(er)h(generator.)47 +b(This)34 b(is)f(a)h(\(F)-8 b(or-)0 1055 y(tran\))35 +b(function)g(whic)m(h,)i(eac)m(h)f(time)f(it)f(is)h(called,)g(returns)i +(a)e(n)m(um)m(b)s(er)h Fj(R)g Fw(in)f(the)h(range)f(b)s(et)m(w)m(een)j +(0)0 1164 y(and)27 b(1,)h(suc)m(h)h(that)d(the)i(inclusiv)m(e)e +(distribution)f(of)i(n)m(um)m(b)s(ers)h Fj(R)g Fw(is)e(\015at)h(in)f +(the)i(range,)g(and)f(suc)m(h)i(that)0 1272 y(di\013eren)m(t)40 +b(n)m(um)m(b)s(ers)h Fj(R)g Fw(are)e(uncorrelated.)66 +b(The)40 b(random)f(n)m(um)m(b)s(er)h(generator)g(that)g(comes)g(with)0 +1380 y Fm(Jetset)31 b Fw(is)i(describ)s(ed)g(at)f(the)h(end)g(of)g +(this)f(section,)h(and)f(w)m(e)i(defer)f(the)g(discussion)g(un)m(til)e +(then.)0 1654 y Fp(4.1)135 b(Selection)46 b(F)-11 b(rom)45 +b(a)g(Distribution)0 1827 y Fw(The)i(situation)d(that)h(is)h(probably)f +(most)g(common)f(is)i(that)f(w)m(e)i(kno)m(w)g(a)e(function)g +Fj(f)11 b Fw(\()p Fj(x)p Fw(\))46 b(whic)m(h)0 1935 y(is)c(non-negativ) +m(e)h(in)f(the)i(allo)m(w)m(ed)e Fj(x)h Fw(range)g Fj(x)1782 +1950 y Fl(min)1950 1935 y Fn(\024)i Fj(x)h Fn(\024)g +Fj(x)2351 1950 y Fl(max)2487 1935 y Fw(.)74 b(W)-8 b(e)44 +b(w)m(an)m(t)g(to)e(select)i(an)e Fj(x)i Fw(`at)0 2044 +y(random')29 b(so)g(that)h(the)g(probabilit)m(y)d(for)i(a)g(giv)m(en)h +Fj(x)g Fw(is)f(prop)s(ortional)e(to)i Fj(f)11 b Fw(\()p +Fj(x)p Fw(\).)43 b(Here)30 b Fj(f)11 b Fw(\()p Fj(x)p +Fw(\))29 b(migh)m(t)f(b)s(e)0 2152 y(a)i(fragmen)m(tation)f(function,)h +(a)g(di\013eren)m(tial)f(cross)i(section,)g(or)f(an)m(y)h(of)f(a)g(n)m +(um)m(b)s(er)h(of)f(distributions.)146 2260 y(One)c(do)s(es)h(not)e(ha) +m(v)m(e)i(to)e(assume)i(that)e(the)h(in)m(tegral)e(of)i +Fj(f)11 b Fw(\()p Fj(x)p Fw(\))25 b(is)g(explicitly)f(normalized)g(to)h +(unit)m(y:)0 2369 y(b)m(y)37 b(the)f(Mon)m(te)g(Carlo)f(pro)s(cedure)i +(of)e(pic)m(king)g(exactly)h(one)g(accepted)h Fj(x)f +Fw(v)-5 b(alue,)36 b(normalization)c(is)0 2477 y(implicit)h(in)j(the)h +(\014nal)e(result.)56 b(Sometimes)35 b(the)i(in)m(tegral)e(of)h +Fj(f)11 b Fw(\()p Fj(x)p Fw(\))37 b(do)s(es)g(carry)g(a)f(ph)m(ysics)i +(con)m(ten)m(t)0 2585 y(of)i(its)g(o)m(wn,)j(as)d(part)h(of)e(an)i(o)m +(v)m(erall)e(w)m(eigh)m(t)i(factor)f(w)m(e)h(w)m(an)m(t)h(to)e(k)m(eep) +i(trac)m(k)f(of.)66 b(Consider,)43 b(for)0 2694 y(instance,)50 +b(the)d(case)g(when)g Fj(x)g Fw(represen)m(ts)h(one)f(or)f(sev)m(eral)h +(phase-space)g(v)-5 b(ariables)45 b(and)i Fj(f)11 b Fw(\()p +Fj(x)p Fw(\))46 b(a)0 2802 y(di\013eren)m(tial)39 b(cross)k(section;)i +(here)d(the)g(in)m(tegral)e(has)h(a)g(meaning)f(of)h(total)f(cross)i +(section)f(for)g(the)0 2910 y(pro)s(cess)35 b(studied.)46 +b(The)34 b(task)g(of)f(a)g(Mon)m(te)i(Carlo)d(is)h(then,)h(on)g(the)f +(one)h(hand,)g(to)f(generate)h(ev)m(en)m(ts)0 3019 y(one)d(at)e(a)h +(time,)g(and,)h(on)f(the)h(other)f(hand,)h(to)f(estimate)f(the)i(total) +e(cross)i(section.)43 b(The)31 b(discussion)0 3127 y(of)h(this)g(imp)s +(ortan)m(t)f(example)h(is)g(deferred)i(to)e(section)h(7.4.)146 +3235 y(If)j(it)e(is)h(p)s(ossible)g(to)g(\014nd)g(a)h(primitiv)m(e)d +(function)i Fj(F)14 b Fw(\()p Fj(x)p Fw(\))35 b(whic)m(h)h(has)g(a)f +(kno)m(wn)h(in)m(v)m(erse)h Fj(F)3527 3199 y Fk(\000)p +Fl(1)3621 3235 y Fw(\()p Fj(x)p Fw(\),)0 3344 y(an)32 +b Fj(x)h Fw(can)g(b)s(e)g(found)g(as)g(follo)m(ws)e(\(metho)s(d)h(1\):) +1306 3479 y Fg(Z)1389 3505 y Fh(x)1352 3667 y(x)1392 +3678 y Ff(min)1517 3596 y Fj(f)11 b Fw(\()p Fj(x)p Fw(\))17 +b(d)p Fj(x)28 b Fw(=)g Fj(R)2057 3479 y Fg(Z)2140 3505 +y Fh(x)2180 3513 y Ff(max)2103 3667 y Fh(x)2143 3678 +y Ff(min)2317 3596 y Fj(f)11 b Fw(\()p Fj(x)p Fw(\))17 +b(d)p Fj(x)783 3814 y Fw(=)-17 b Fn(\))83 b Fj(x)28 b +Fw(=)f Fj(F)1288 3778 y Fk(\000)p Fl(1)1382 3814 y Fw(\()p +Fj(F)14 b Fw(\()p Fj(x)1590 3829 y Fl(min)1712 3814 y +Fw(\))22 b(+)g Fj(R)q Fw(\()p Fj(F)14 b Fw(\()p Fj(x)2153 +3829 y Fl(max)2289 3814 y Fw(\))22 b Fn(\000)g Fj(F)14 +b Fw(\()p Fj(x)2618 3829 y Fl(min)2740 3814 y Fw(\)\)\))33 +b Fj(:)741 b Fw(\(2\))0 4022 y(The)32 b(statemen)m(t)f(of)g(the)g +(\014rst)h(line)d(is)i(that)f(a)h(fraction)f Fj(R)i Fw(of)e(the)i +(total)d(area)i(under)h Fj(f)11 b Fw(\()p Fj(x)p Fw(\))30 +b(should)h(b)s(e)0 4130 y(to)h(the)h(left)e(of)h Fj(x)p +Fw(.)44 b(Ho)m(w)m(ev)m(er,)35 b(seldom)c(are)h(functions)h(of)e(in)m +(terest)i(so)g(nice)f(that)g(the)h(metho)s(d)f(ab)s(o)m(v)m(e)0 +4239 y(w)m(orks.)45 b(It)33 b(is)f(therefore)h(necessary)i(to)d(use)h +(more)f(complicated)f(sc)m(hemes.)146 4347 y(Sp)s(ecial)39 +b(tric)m(ks)h(can)h(sometimes)e(b)s(e)h(found.)65 b(Consider)41 +b(e.g.)65 b(the)41 b(generation)e(of)g(a)h(Gaussian)0 +4455 y Fj(f)11 b Fw(\()p Fj(x)p Fw(\))41 b(=)f(exp)q(\()p +Fn(\000)p Fj(x)666 4419 y Fl(2)706 4455 y Fw(\).)66 b(This)41 +b(function)e(is)h(not)g(in)m(tegrable,)h(but)f(if)f(w)m(e)j(com)m(bine) +d(it)g(with)h(the)h(same)0 4564 y(Gaussian)22 b(distribution)e(of)i(a)g +(second)i(v)-5 b(ariable)20 b Fj(y)t Fw(,)k(it)d(is)h(p)s(ossible)g(to) +g(transform)f(to)h(p)s(olar)f(co)s(ordinates)628 4772 +y Fj(f)11 b Fw(\()p Fj(x)p Fw(\))17 b(d)p Fj(x)g(f)11 +b Fw(\()p Fj(y)t Fw(\))17 b(d)p Fj(y)29 b Fw(=)e(exp)q(\()p +Fn(\000)p Fj(x)1718 4731 y Fl(2)1781 4772 y Fn(\000)22 +b Fj(y)1932 4731 y Fl(2)1971 4772 y Fw(\))17 b(d)p Fj(x)g +Fw(d)p Fj(y)31 b Fw(=)c Fj(r)20 b Fw(exp)q(\()p Fn(\000)p +Fj(r)2763 4731 y Fl(2)2802 4772 y Fw(\))d(d)p Fj(r)i +Fw(d)p Fj(')33 b(;)503 b Fw(\(3\))0 4980 y(and)38 b(no)m(w)h(the)f +Fj(r)j Fw(and)d Fj(')g Fw(distributions)e(ma)m(y)i(b)s(e)g(easily)f +(generated)i(and)f(recom)m(bined)g(to)g(yield)f Fj(x)p +Fw(.)0 5088 y(A)m(t)c(the)g(same)g(time)e(w)m(e)j(get)e(a)h(second)h(n) +m(um)m(b)s(er)f Fj(y)t Fw(,)f(whic)m(h)h(can)g(also)e(b)s(e)i(used.)45 +b(F)-8 b(or)32 b(the)h(generation)0 5196 y(of)e(transv)m(erse)j(momen)m +(ta)c(in)h(fragmen)m(tation,)f(this)h(is)g(v)m(ery)i(con)m(v)m(enien)m +(t,)h(since)e(in)e(fact)i(w)m(e)g(w)m(an)m(t)h(to)0 5305 +y(assign)f(t)m(w)m(o)i(transv)m(erse)g(degrees)g(of)e(freedom.)146 +5413 y(If)c(the)f(maxim)m(um)e(of)i Fj(f)11 b Fw(\()p +Fj(x)p Fw(\))27 b(is)g(kno)m(wn,)j Fj(f)11 b Fw(\()p +Fj(x)p Fw(\))28 b Fn(\024)g Fj(f)1970 5428 y Fl(max)2133 +5413 y Fw(in)e(the)i Fj(x)g Fw(range)f(considered,)i(a)e(hit-or-miss)0 +5521 y(metho)s(d)32 b(will)e(alw)m(a)m(ys)j(yield)f(the)h(correct)g +(answ)m(er)h(\(metho)s(d)e(2\):)119 5634 y(1.)49 b(select)25 +b(an)g Fj(x)h Fw(with)e(ev)m(en)j(probabilit)m(y)c(in)h(the)i(allo)m(w) +m(ed)e(range,)j(i.e.)40 b Fj(x)28 b Fw(=)g Fj(x)2931 +5649 y Fl(min)3060 5634 y Fw(+)7 b Fj(R)q Fw(\()p Fj(x)3311 +5649 y Fl(max)3453 5634 y Fn(\000)g Fj(x)3592 5649 y +Fl(min)3714 5634 y Fw(\);)1841 5953 y(44)p eop +%%Page: 45 51 +45 50 bop 119 -18 a Fw(2.)49 b(compare)37 b(a)g(\(new\))h +Fj(R)g Fw(with)f(the)h(ratio)e Fj(f)11 b Fw(\()p Fj(x)p +Fw(\))p Fj(=f)2043 -3 y Fl(max)2178 -18 y Fw(;)40 b(if)c +Fj(f)11 b Fw(\()p Fj(x)p Fw(\))p Fj(=f)2626 -3 y Fl(max)2797 +-18 y Fn(\024)37 b Fj(R)q Fw(,)h(then)g(reject)g(the)g +Fj(x)244 90 y Fw(v)-5 b(alue)32 b(and)h(return)g(to)f(p)s(oin)m(t)g(1)g +(for)g(a)g(new)i(try;)119 208 y(3.)49 b(otherwise)33 +b(the)g(most)f(recen)m(t)i Fj(x)f Fw(v)-5 b(alue)32 b(is)g(retained)g +(as)h(\014nal)f(answ)m(er.)0 321 y(The)26 b(probabilit)m(y)c(that)j +Fj(f)11 b Fw(\()p Fj(x)p Fw(\))p Fj(=f)1174 336 y Fl(max)1337 +321 y Fj(>)28 b(R)d Fw(is)g(prop)s(ortional)d(to)i Fj(f)11 +b Fw(\()p Fj(x)p Fw(\);)28 b(hence)e(the)f(correct)g(distribution)0 +429 y(of)36 b(retained)g Fj(x)h Fw(v)-5 b(alues.)55 b(The)37 +b(e\016ciency)h(of)e(this)g(metho)s(d,)h(i.e.)55 b(the)37 +b(a)m(v)m(erage)g(probabilit)m(y)d(that)j(an)0 537 y +Fj(x)h Fw(will)c(b)s(e)k(retained,)g(is)f(\()972 466 +y Fg(R)1060 537 y Fj(f)11 b Fw(\()p Fj(x)p Fw(\))17 b(d)p +Fj(x)p Fw(\))p Fj(=)p Fw(\()p Fj(f)1549 552 y Fl(max)1685 +537 y Fw(\()p Fj(x)1778 552 y Fl(max)1939 537 y Fn(\000)26 +b Fj(x)2097 552 y Fl(min)2219 537 y Fw(\)\).)57 b(The)38 +b(metho)s(d)f(is)f(acceptable)i(if)e(this)0 646 y(n)m(um)m(b)s(er)d(is) +f(not)g(to)s(o)g(lo)m(w,)g(i.e.)43 b(if)32 b Fj(f)11 +b Fw(\()p Fj(x)p Fw(\))32 b(do)s(es)h(not)g(\015uctuate)g(to)s(o)f +(wildly)-8 b(.)146 754 y(V)g(ery)39 b(often)g Fj(f)11 +b Fw(\()p Fj(x)p Fw(\))38 b(do)s(es)h(ha)m(v)m(e)h(narro)m(w)e(spik)m +(es,)k(and)c(it)g(ma)m(y)g(not)g(ev)m(en)i(b)s(e)e(p)s(ossible)g(to)g +(de\014ne)0 862 y(an)44 b Fj(f)195 877 y Fl(max)330 862 +y Fw(.)78 b(An)44 b(example)f(of)g(the)i(former)d(phenomenon)j(is)e(a)h +(function)f(with)g(a)h(singularit)m(y)e(just)0 971 y(outside)34 +b(the)h(allo)m(w)m(ed)f(region,)g(an)h(example)f(of)g(the)h(latter)e +(an)i(in)m(tegrable)e(singularit)m(y)g(just)i(at)f(the)0 +1079 y Fj(x)55 1094 y Fl(min)206 1079 y Fw(and/or)28 +b Fj(x)582 1094 y Fl(max)747 1079 y Fw(b)s(orders.)42 +b(V)-8 b(ariable)27 b(transformations)g(ma)m(y)i(then)g(b)s(e)g(used)g +(to)g(mak)m(e)g(a)f(function)0 1187 y(smo)s(other.)47 +b(Th)m(us)36 b(a)e(function)g Fj(f)11 b Fw(\()p Fj(x)p +Fw(\))34 b(whic)m(h)g(blo)m(ws)h(up)f(as)g(1)p Fj(=x)g +Fw(for)g Fj(x)d Fn(!)e Fw(0,)35 b(with)e(an)h Fj(x)3301 +1202 y Fl(min)3458 1187 y Fw(close)g(to)0 1296 y(0,)e(w)m(ould)h +(instead)f(b)s(e)h(roughly)f(constan)m(t)i(if)d(transformed)h(to)g(the) +i(v)-5 b(ariable)30 b Fj(y)h Fw(=)d(ln)16 b Fj(x)p Fw(.)146 +1404 y(The)32 b(v)-5 b(ariable)28 b(transformation)g(strategy)j(ma)m(y) +f(b)s(e)g(seen)i(as)e(a)g(com)m(bination)f(of)g(metho)s(ds)h(1)g(and)0 +1512 y(2,)h(as)g(follo)m(ws.)42 b(Assume)31 b(the)h(existence)g(of)f(a) +f(function)g Fj(g)t Fw(\()p Fj(x)p Fw(\),)h(with)g Fj(f)11 +b Fw(\()p Fj(x)p Fw(\))27 b Fn(\024)i Fj(g)t Fw(\()p +Fj(x)p Fw(\))h(o)m(v)m(er)i(the)f Fj(x)g Fw(range)0 1621 +y(of)f(in)m(terest.)43 b(Here)32 b Fj(g)t Fw(\()p Fj(x)p +Fw(\))e(is)f(pic)m(k)m(ed)j(to)e(b)s(e)h(a)f(`simple')f(function,)i +(suc)m(h)h(that)e(the)h(primitiv)m(e)d(function)0 1729 +y Fj(G)p Fw(\()p Fj(x)p Fw(\))33 b(and)f(its)g(in)m(v)m(erse)i +Fj(G)966 1693 y Fk(\000)p Fl(1)1061 1729 y Fw(\()p Fj(x)p +Fw(\))f(are)f(kno)m(wn.)45 b(Then)34 b(\(metho)s(d)e(3\):)119 +1842 y(1.)49 b(select)33 b(an)f Fj(x)h Fw(according)f(to)h(the)g +(distribution)d Fj(g)t Fw(\()p Fj(x)p Fw(\),)i(using)h(metho)s(d)f(1;) +119 1960 y(2.)49 b(compare)37 b(a)g(\(new\))i Fj(R)f +Fw(with)g(the)g(ratio)e Fj(f)11 b Fw(\()p Fj(x)p Fw(\))p +Fj(=g)t Fw(\()p Fj(x)p Fw(\);)39 b(if)d Fj(f)11 b Fw(\()p +Fj(x)p Fw(\))p Fj(=g)t Fw(\()p Fj(x)p Fw(\))36 b Fn(\024)h +Fj(R)q Fw(,)i(then)f(reject)g(the)g Fj(x)244 2068 y Fw(v)-5 +b(alue)32 b(and)h(return)g(to)f(p)s(oin)m(t)g(1)g(for)g(a)g(new)i(try;) +119 2186 y(3.)49 b(otherwise)33 b(the)g(most)f(recen)m(t)i +Fj(x)f Fw(v)-5 b(alue)32 b(is)g(retained)g(as)h(\014nal)f(answ)m(er.)0 +2299 y(This)j(w)m(orks,)i(since)e(the)g(\014rst)g(step)h(will)c(select) +k Fj(x)f Fw(with)f(a)h(probabilit)m(y)e Fj(g)t Fw(\()p +Fj(x)p Fw(\))17 b(d)p Fj(x)31 b Fw(=)g(d)p Fj(G)p Fw(\()p +Fj(x)p Fw(\))k(and)g(the)0 2408 y(second)28 b(retain)f(this)g(c)m +(hoice)g(with)g(probabilit)m(y)e Fj(f)11 b Fw(\()p Fj(x)p +Fw(\))p Fj(=g)t Fw(\()p Fj(x)p Fw(\).)41 b(The)28 b(total)e(probabilit) +m(y)f(to)i(pic)m(k)g(a)g(v)-5 b(alue)0 2516 y Fj(x)33 +b Fw(is)f(then)h(just)g(the)g(pro)s(duct)g(of)f(the)h(t)m(w)m(o,)g +(i.e.)43 b Fj(f)11 b Fw(\()p Fj(x)p Fw(\))17 b(d)p Fj(x)p +Fw(.)146 2624 y(If)37 b Fj(f)11 b Fw(\()p Fj(x)p Fw(\))38 +b(has)f(sev)m(eral)h(spik)m(es,)i(metho)s(d)d(3)f(ma)m(y)h(w)m(ork)i +(for)d(eac)m(h)i(spik)m(e)g(separately)-8 b(,)39 b(but)f(it)e(ma)m(y)0 +2733 y(not)h(b)s(e)h(p)s(ossible)f(to)g(\014nd)i(a)e +Fj(g)t Fw(\()p Fj(x)p Fw(\))g(that)g(co)m(v)m(ers)j(all)35 +b(of)i(them)h(at)f(the)h(same)f(time,)h(and)g(whic)m(h)g(still)0 +2841 y(has)30 b(an)g(in)m(v)m(ertible)f(primitiv)m(e)f(function.)42 +b(Ho)m(w)m(ev)m(er,)33 b(assume)d(that)g(w)m(e)h(can)f(\014nd)g(a)g +(function)f Fj(g)t Fw(\()p Fj(x)p Fw(\))f(=)0 2883 y +Fg(P)88 2970 y Fh(i)132 2949 y Fj(g)179 2964 y Fh(i)207 +2949 y Fw(\()p Fj(x)p Fw(\),)33 b(suc)m(h)h(that)f Fj(f)11 +b Fw(\()p Fj(x)p Fw(\))28 b Fn(\024)g Fj(g)t Fw(\()p +Fj(x)p Fw(\))k(o)m(v)m(er)i(the)f Fj(x)g Fw(range)g(considered,)g(and)g +(suc)m(h)h(that)e(the)h(functions)0 3058 y Fj(g)47 3073 +y Fh(i)75 3058 y Fw(\()p Fj(x)p Fw(\))f(eac)m(h)i(are)e(non-negativ)m +(e)g(and)h(simple,)e(in)g(the)i(sense)h(that)e(w)m(e)i(can)f(\014nd)f +(primitiv)m(e)e(functions)0 3166 y(and)j(their)f(in)m(v)m(erses.)45 +b(In)33 b(that)f(case)i(\(metho)s(d)e(4\):)119 3279 y(1.)49 +b(select)33 b(an)f Fj(i)h Fw(at)f(random,)g(with)g(relativ)m(e)g +(probabilit)m(y)f(giv)m(en)i(b)m(y)g(the)g(in)m(tegrals)1194 +3391 y Fg(Z)1277 3417 y Fh(x)1317 3425 y Ff(max)1240 +3579 y Fh(x)1280 3590 y Ff(min)1454 3508 y Fj(g)1501 +3523 y Fh(i)1529 3508 y Fw(\()p Fj(x)p Fw(\))17 b(d)p +Fj(x)28 b Fw(=)g Fj(G)1995 3523 y Fh(i)2023 3508 y Fw(\()p +Fj(x)2116 3523 y Fl(max)2252 3508 y Fw(\))22 b Fn(\000)g +Fj(G)2488 3523 y Fh(i)2517 3508 y Fw(\()p Fj(x)2610 3523 +y Fl(min)2732 3508 y Fw(\))32 b(;)826 b(\(4\))119 3754 +y(2.)49 b(for)32 b(the)h Fj(i)g Fw(selected,)g(use)h(metho)s(d)e(1)g +(to)g(\014nd)i(an)e Fj(x)p Fw(,)h(i.e.)1024 3944 y Fj(x)c +Fw(=)e Fj(G)1288 3903 y Fk(\000)p Fl(1)1288 3968 y Fh(i)1382 +3944 y Fw(\()p Fj(G)1497 3959 y Fh(i)1525 3944 y Fw(\()p +Fj(x)1618 3959 y Fl(min)1741 3944 y Fw(\))22 b(+)g Fj(R)q +Fw(\()p Fj(G)2089 3959 y Fh(i)2117 3944 y Fw(\()p Fj(x)2210 +3959 y Fl(max)2346 3944 y Fw(\))g Fn(\000)g Fj(G)2582 +3959 y Fh(i)2610 3944 y Fw(\()p Fj(x)2703 3959 y Fl(min)2826 +3944 y Fw(\)\)\))32 b(;)656 b(\(5\))119 4138 y(3.)49 +b(compare)37 b(a)g(\(new\))i Fj(R)f Fw(with)g(the)g(ratio)e +Fj(f)11 b Fw(\()p Fj(x)p Fw(\))p Fj(=g)t Fw(\()p Fj(x)p +Fw(\);)39 b(if)d Fj(f)11 b Fw(\()p Fj(x)p Fw(\))p Fj(=g)t +Fw(\()p Fj(x)p Fw(\))36 b Fn(\024)h Fj(R)q Fw(,)i(then)f(reject)g(the)g +Fj(x)244 4247 y Fw(v)-5 b(alue)32 b(and)h(return)g(to)f(p)s(oin)m(t)g +(1)g(for)g(a)g(new)i(try;)119 4364 y(4.)49 b(otherwise)33 +b(the)g(most)f(recen)m(t)i Fj(x)f Fw(v)-5 b(alue)32 b(is)g(retained)g +(as)h(\014nal)f(answ)m(er.)0 4478 y(This)44 b(is)f(just)h(a)g(trivial)d +(extension)k(of)e(metho)s(d)g(3,)k(where)e(steps)g(1)e(and)h(2)g +(ensure)h(that,)h(on)e(the)0 4586 y(a)m(v)m(erage,)36 +b(eac)m(h)g Fj(x)f Fw(v)-5 b(alue)34 b(pic)m(k)m(ed)h(there)h(is)e +(distributed)g(according)g(to)g Fj(g)t Fw(\()p Fj(x)p +Fw(\):)47 b(the)35 b(\014rst)g(step)h(pic)m(ks)f Fj(i)0 +4694 y Fw(with)21 b(relativ)m(e)h(probabilit)m(y)1035 +4623 y Fg(R)1107 4694 y Fj(g)1154 4709 y Fh(i)1182 4694 +y Fw(\()p Fj(x)p Fw(\))17 b(d)p Fj(x)p Fw(,)25 b(the)d(second)h +Fj(x)g Fw(with)e(absolute)h(probabilit)m(y)e Fj(g)3151 +4709 y Fh(i)3178 4694 y Fw(\()p Fj(x)p Fw(\))p Fj(=)3375 +4623 y Fg(R)3447 4694 y Fj(g)3494 4709 y Fh(i)3522 4694 +y Fw(\()p Fj(x)p Fw(\))d(d)p Fj(x)0 4803 y Fw(\(this)34 +b(is)g(one)h(place)f(where)h(one)g(m)m(ust)g(remem)m(b)s(er)f(to)g(do)g +(normalization)d(correctly\);)k(the)g(pro)s(duct)0 4911 +y(of)d(the)h(t)m(w)m(o)g(is)f(therefore)i Fj(g)1018 4926 +y Fh(i)1046 4911 y Fw(\()p Fj(x)p Fw(\))e(and)h(the)g(sum)f(o)m(v)m(er) +i(all)d Fj(i)h Fw(giv)m(es)h(bac)m(k)h Fj(g)t Fw(\()p +Fj(x)p Fw(\).)146 5019 y(W)-8 b(e)34 b(ha)m(v)m(e)g(no)m(w)g(arriv)m +(ed)f(at)f(an)h(approac)m(h)h(that)f(is)f(su\016cien)m(tly)i(p)s(o)m(w) +m(erful)f(for)f(a)h(large)f(selection)0 5128 y(of)f(problems.)43 +b(In)32 b(general,)f(for)g(a)h(function)f Fj(f)11 b Fw(\()p +Fj(x)p Fw(\))32 b(whic)m(h)g(is)f(kno)m(wn)i(to)f(ha)m(v)m(e)h(sharp)f +(p)s(eaks)h(in)d(a)i(few)0 5236 y(di\013eren)m(t)42 b(places,)i(the)e +(generic)f(b)s(eha)m(viour)g(at)g(eac)m(h)i(p)s(eak)f(separately)g(ma)m +(y)f(b)s(e)g(co)m(v)m(ered)j(b)m(y)e(one)0 5344 y(or)d(a)g(few)h +(simple)e(functions)h Fj(g)1182 5359 y Fh(i)1210 5344 +y Fw(\()p Fj(x)p Fw(\),)i(to)e(whic)m(h)h(one)f(adds)h(a)f(few)h(more)f +Fj(g)2810 5359 y Fh(i)2838 5344 y Fw(\()p Fj(x)p Fw(\))g(to)g(co)m(v)m +(er)i(the)f(basic)0 5453 y(b)s(eha)m(viour)e(a)m(w)m(a)m(y)h(from)e +(the)h(p)s(eaks.)60 b(By)39 b(a)e(suitable)g(selection)h(of)f(the)h +(relativ)m(e)g(strengths)h(of)e(the)0 5561 y(di\013eren)m(t)28 +b Fj(g)427 5576 y Fh(i)455 5561 y Fw('s,)h(it)e(is)h(p)s(ossible)f(to)g +(\014nd)i(a)e(function)g Fj(g)t Fw(\()p Fj(x)p Fw(\))h(that)f(matc)m +(hes)i(w)m(ell)e(the)h(general)g(b)s(eha)m(viour)0 5669 +y(of)k Fj(f)11 b Fw(\()p Fj(x)p Fw(\),)33 b(and)f(th)m(us)i(ac)m(hiev)m +(e)g(a)e(reasonable)g(Mon)m(te)i(Carlo)d(e\016ciency)-8 +b(.)1841 5953 y(45)p eop +%%Page: 46 52 +46 51 bop 146 -18 a Fw(The)34 b(ma)5 b(jor)32 b(additional)f +(complication)f(is)i(when)i Fj(x)g Fw(is)f(a)f(m)m(ultidimensional)d(v) +-5 b(ariable.)43 b(Usually)0 90 y(the)36 b(problem)d(is)i(not)g(so)g(m) +m(uc)m(h)h Fj(f)11 b Fw(\()p Fj(x)p Fw(\))35 b(itself,)g(but)g(rather)g +(that)g(the)h(phase-space)h(b)s(oundaries)e(ma)m(y)0 +198 y(b)s(e)f(v)m(ery)h(complicated.)46 b(If)33 b(the)h(b)s(oundaries)g +(factorize)f(it)g(is)g(p)s(ossible)g(to)g(pic)m(k)i(phase-space)g(p)s +(oin)m(ts)0 307 y(restricted)26 b(to)g(the)g(desired)g(region.)41 +b(Otherwise)26 b(the)g(region)f(ma)m(y)h(ha)m(v)m(e)h(to)e(b)s(e)h +(inscrib)s(ed)f(in)g(a)h(h)m(yp)s(er-)0 415 y(rectangle,)36 +b(with)e(p)s(oin)m(ts)h(pic)m(k)m(ed)h(within)f(the)g(whole)g(h)m(yp)s +(er-rectangle)h(but)f(only)g(retained)g(if)f(they)0 523 +y(are)k(inside)e(the)i(allo)m(w)m(ed)f(region.)58 b(This)37 +b(ma)m(y)h(lead)e(to)i(a)f(signi\014can)m(t)g(loss)g(in)g(e\016ciency) +-8 b(.)59 b(V)-8 b(ariable)0 632 y(transformations)31 +b(ma)m(y)h(often)h(mak)m(e)g(the)g(allo)m(w)m(ed)e(region)h(easier)h +(to)f(handle.)146 740 y(There)38 b(are)e(t)m(w)m(o)h(main)e(metho)s(ds) +h(to)g(handle)g(sev)m(eral)h(dimensions,)f(eac)m(h)i(with)e(its)f(set)i +(of)f(v)-5 b(ari-)0 848 y(ations.)75 b(The)45 b(\014rst)f(metho)s(d)f +(is)g(based)h(on)g(a)f(factorized)g(ansatz,)k(i.e.)75 +b(one)44 b(attempts)g(to)f(\014nd)h(a)0 957 y(function)f +Fj(g)t Fw(\()p Fo(x)p Fw(\))g(whic)m(h)h(is)f(ev)m(erywhere)k(larger)42 +b(than)i Fj(f)11 b Fw(\()p Fo(x)p Fw(\),)46 b(and)d(whic)m(h)i(can)e(b) +s(e)h(factorized)f(in)m(to)0 1076 y Fj(g)t Fw(\()p Fo(x)p +Fw(\))f(=)h Fj(g)398 1040 y Fl(\(1\))491 1076 y Fw(\()p +Fj(x)584 1091 y Fl(1)624 1076 y Fw(\))17 b Fj(g)730 1040 +y Fl(\(2\))823 1076 y Fw(\()p Fj(x)916 1091 y Fl(2)956 +1076 y Fw(\))g Fn(\001)g(\001)g(\001)d Fj(g)1194 1040 +y Fl(\()p Fh(n)p Fl(\))1295 1076 y Fw(\()p Fj(x)1388 +1091 y Fh(n)1436 1076 y Fw(\),)43 b(where)g Fo(x)g Fw(=)f(\()p +Fj(x)2148 1091 y Fl(1)2188 1076 y Fj(;)17 b(x)2287 1091 +y Fl(2)2327 1076 y Fj(;)g(:)g(:)g(:)f(;)h(x)2601 1091 +y Fh(n)2648 1076 y Fw(\).)69 b(Here)43 b(eac)m(h)f Fj(g)3301 +1040 y Fl(\()p Fh(j)t Fl(\))3392 1076 y Fw(\()p Fj(x)3485 +1091 y Fh(j)3521 1076 y Fw(\))g(ma)m(y)0 1213 y(in)d(its)f(turn)i(b)s +(e)f(a)g(sum)g(of)g(functions)g Fj(g)1523 1162 y Fl(\()p +Fh(j)t Fl(\))1519 1236 y Fh(i)1614 1213 y Fw(,)i(as)f(in)e(metho)s(d)h +(4)g(ab)s(o)m(v)m(e.)64 b(First,)40 b(eac)m(h)g Fj(x)3267 +1228 y Fh(j)3344 1213 y Fw(is)e(selected)0 1321 y(indep)s(enden)m(tly) +-8 b(,)31 b(and)e(afterw)m(ards)i(the)f(ratio)d Fj(f)11 +b Fw(\()p Fo(x)p Fw(\))p Fj(=g)t Fw(\()p Fo(x)p Fw(\))29 +b(is)g(used)h(to)f(determine)g(whether)i(to)e(retain)0 +1429 y(the)k(p)s(oin)m(t.)146 1538 y(The)f(second)h(metho)s(d)d(is)h +(useful)g(if)f(the)i(b)s(oundaries)f(of)f(the)i(allo)m(w)m(ed)e(region) +h(can)g(b)s(e)g(written)g(in)0 1646 y(a)k(form)f(where)j(the)f(maxim)m +(um)d(range)j(of)f Fj(x)1669 1661 y Fl(1)1744 1646 y +Fw(is)g(kno)m(wn,)j(the)d(allo)m(w)m(ed)g(range)h(of)f +Fj(x)3143 1661 y Fl(2)3218 1646 y Fw(only)g(dep)s(ends)0 +1754 y(on)f Fj(x)192 1769 y Fl(1)232 1754 y Fw(,)h(that)g(of)f +Fj(x)676 1769 y Fl(3)750 1754 y Fw(only)g(on)g Fj(x)1158 +1769 y Fl(1)1232 1754 y Fw(and)h Fj(x)1479 1769 y Fl(2)1519 +1754 y Fw(,)g(and)f(so)h(on)g(un)m(til)e Fj(x)2319 1769 +y Fh(n)2366 1754 y Fw(,)i(whose)h(range)e(ma)m(y)h(dep)s(end)g(on)g +(all)0 1863 y(the)g(preceding)f(v)-5 b(ariables.)47 b(In)35 +b(that)f(case)h(it)e(ma)m(y)h(b)s(e)g(p)s(ossible)g(to)g(\014nd)g(a)g +(function)g Fj(g)t Fw(\()p Fo(x)p Fw(\))f(that)h(can)0 +1971 y(b)s(e)28 b(in)m(tegrated)g(o)m(v)m(er)i Fj(x)847 +1986 y Fl(2)914 1971 y Fw(through)f Fj(x)1334 1986 y +Fh(n)1409 1971 y Fw(to)f(yield)f(a)h(simple)f(function)g(of)h +Fj(x)2671 1986 y Fl(1)2711 1971 y Fw(,)h(according)f(to)f(whic)m(h)i +Fj(x)3646 1986 y Fl(1)3714 1971 y Fw(is)0 2079 y(selected.)44 +b(Ha)m(ving)31 b(done)h(that,)g Fj(x)1258 2094 y Fl(2)1329 +2079 y Fw(is)f(selected)h(according)f(to)g(a)g(distribution)f(whic)m(h) +i(no)m(w)g(dep)s(ends)0 2188 y(on)i Fj(x)192 2203 y Fl(1)232 +2188 y Fw(,)g(but)g(with)g Fj(x)752 2203 y Fl(3)826 2188 +y Fw(through)g Fj(x)1251 2203 y Fh(n)1332 2188 y Fw(in)m(tegrated)g(o)m +(v)m(er.)49 b(In)34 b(particular,)f(the)h(allo)m(w)m(ed)g(range)g(for)f +Fj(x)3640 2203 y Fl(2)3714 2188 y Fw(is)0 2296 y(kno)m(wn.)47 +b(The)34 b(pro)s(cedure)h(is)e(con)m(tin)m(ued)h(un)m(til)e +Fj(x)1834 2311 y Fh(n)1915 2296 y Fw(is)h(reac)m(hed,)i(where)f(no)m(w) +g(the)g(function)f(dep)s(ends)0 2404 y(on)d(all)e(the)j(preceding)f +Fj(x)923 2419 y Fh(j)990 2404 y Fw(v)-5 b(alues.)43 b(In)30 +b(the)h(end,)g(the)g(ratio)d Fj(f)11 b Fw(\()p Fo(x)p +Fw(\))p Fj(=g)t Fw(\()p Fo(x)p Fw(\))29 b(is)h(again)f(used)i(to)f +(determine)0 2513 y(whether)k(to)e(retain)g(the)h(p)s(oin)m(t.)0 +2785 y Fp(4.2)135 b(The)45 b(V)-11 b(eto)45 b(Algorithm)0 +2957 y Fw(The)28 b(`radioactiv)m(e)f(deca)m(y')h(t)m(yp)s(e)h(of)d +(problems)h(is)g(v)m(ery)i(common,)e(in)f(particular)g(in)g(parton)h +(sho)m(w)m(ers,)0 3066 y(but)35 b(it)f(is)h(also)f(used,)j(e.g.)51 +b(in)35 b(the)g(m)m(ultiple)e(in)m(teractions)h(description)h(in)f +Fm(Pythia)p Fw(.)51 b(In)36 b(this)f(kind)0 3174 y(of)30 +b(problems)f(there)h(is)g(one)g(v)-5 b(ariable)28 b Fj(t)p +Fw(,)j(whic)m(h)g(ma)m(y)f(b)s(e)g(though)m(t)g(of)f(as)i(giving)d(a)i +(kind)g(of)f(time)g(axis)0 3282 y(along)37 b(whic)m(h)i(di\013eren)m(t) +g(ev)m(en)m(ts)i(are)e(ordered.)63 b(The)39 b(probabilit)m(y)e(that)i +(`something)e(will)g(happ)s(en')0 3391 y(\(a)42 b(n)m(ucleus)h(deca)m +(y)-8 b(,)46 b(a)c(parton)g(branc)m(h\))h(at)f(time)e +Fj(t)j Fw(is)e(describ)s(ed)i(b)m(y)g(a)f(function)g +Fj(f)11 b Fw(\()p Fj(t)p Fw(\),)44 b(whic)m(h)f(is)0 +3499 y(non-negativ)m(e)d(in)g(the)h(range)f(of)g Fj(t)h +Fw(v)-5 b(alues)40 b(to)g(b)s(e)h(studied.)67 b(Ho)m(w)m(ev)m(er,)45 +b(this)40 b(na)-11 b(\177)-38 b(\020v)m(e)41 b(probabilit)m(y)d(is)0 +3607 y(mo)s(di\014ed)g(b)m(y)j(the)e(additional)e(requiremen)m(t)j +(that)f(something)g(can)g(only)g(happ)s(en)h(at)f(time)g +Fj(t)g Fw(if)f(it)0 3716 y(did)i(not)g(happ)s(en)h(at)f(earlier)f +(times)h Fj(t)1446 3679 y Fk(0)1510 3716 y Fj(<)h(t)p +Fw(.)67 b(\(The)42 b(original)37 b(n)m(ucleus)k(cannot)g(deca)m(y)h +(once)f(again)0 3824 y(if)34 b(it)f(already)h(did)h(deca)m(y;)i(p)s +(ossibly)d(the)h(deca)m(y)h(pro)s(ducts)f(ma)m(y)g(deca)m(y)h(in)e +(their)g(turn,)i(but)e(that)h(is)0 3932 y(another)e(question.\))146 +4041 y(The)44 b(probabilit)m(y)d(that)i(nothing)f(has)i(happ)s(ened)g +(b)m(y)g(time)d Fj(t)i Fw(is)g(expressed)j(b)m(y)e(the)f(function)0 +4149 y Fn(N)15 b Fw(\()p Fj(t)p Fw(\))43 b(and)g(the)h(di\013eren)m +(tial)e(probabilit)m(y)f(that)j(something)e(happ)s(ens)j(at)e(time)f +Fj(t)h Fw(b)m(y)i Fn(P)8 b Fw(\()p Fj(t)p Fw(\).)77 b(The)0 +4257 y(basic)32 b(equation)h(then)g(is)1313 4422 y Fn(P)8 +b Fw(\()p Fj(t)p Fw(\))29 b(=)e Fn(\000)1720 4354 y Fw(d)p +Fn(N)p 1720 4398 151 4 v 1751 4490 a Fw(d)p Fj(t)1909 +4422 y Fw(=)h Fj(f)11 b Fw(\()p Fj(t)p Fw(\))17 b Fn(N)e +Fw(\()p Fj(t)p Fw(\))31 b Fj(:)1189 b Fw(\(6\))0 4621 +y(F)-8 b(or)32 b(simplicit)m(y)-8 b(,)30 b(w)m(e)j(shall)e(assume)j +(that)e(the)h(pro)s(cess)h(starts)f(at)f(time)f Fj(t)d +Fw(=)g(0,)k(with)g Fn(N)15 b Fw(\(0\))27 b(=)g(1.)146 +4729 y(The)34 b(ab)s(o)m(v)m(e)f(equation)g(can)f(b)s(e)h(solv)m(ed)g +(easily)f(if)g(one)g(notes)i(that)e(d)p Fn(N)15 b Fj(=)p +Fn(N)42 b Fw(=)27 b(d)17 b(ln)f Fn(N)f Fw(:)662 4979 +y Fn(N)g Fw(\()p Fj(t)p Fw(\))27 b(=)h Fn(N)15 b Fw(\(0\))i(exp)1404 +4857 y Fg(\032)1466 4979 y Fn(\000)1560 4861 y Fg(Z)1643 +4888 y Fh(t)1606 5050 y Fl(0)1690 4979 y Fj(f)11 b Fw(\()p +Fj(t)1822 4937 y Fk(0)1845 4979 y Fw(\))17 b(d)p Fj(t)1989 +4937 y Fk(0)2012 4857 y Fg(\033)2102 4979 y Fw(=)27 b(exp)2371 +4857 y Fg(\032)2433 4979 y Fn(\000)2527 4861 y Fg(Z)2610 +4888 y Fh(t)2574 5050 y Fl(0)2657 4979 y Fj(f)11 b Fw(\()p +Fj(t)2789 4937 y Fk(0)2812 4979 y Fw(\))17 b(d)p Fj(t)2956 +4937 y Fk(0)2979 4857 y Fg(\033)3091 4979 y Fj(;)537 +b Fw(\(7\))0 5216 y(and)33 b(th)m(us)1181 5356 y Fn(P)8 +b Fw(\()p Fj(t)p Fw(\))28 b(=)f Fj(f)11 b Fw(\()p Fj(t)p +Fw(\))17 b(exp)1852 5234 y Fg(\032)1915 5356 y Fn(\000)2009 +5238 y Fg(Z)2092 5265 y Fh(t)2055 5427 y Fl(0)2138 5356 +y Fj(f)11 b Fw(\()p Fj(t)2270 5314 y Fk(0)2293 5356 y +Fw(\))17 b(d)p Fj(t)2437 5314 y Fk(0)2460 5234 y Fg(\033)2572 +5356 y Fj(:)1056 b Fw(\(8\))0 5561 y(With)31 b Fj(f)11 +b Fw(\()p Fj(t)p Fw(\))28 b(=)g Fj(c)k Fw(this)f(is)h(nothing)f(but)h +(the)h(textb)s(o)s(ok)f(form)m(ulae)f(for)h(radioactiv)m(e)f(deca)m(y) +-8 b(.)44 b(In)33 b(partic-)0 5669 y(ular,)38 b(at)f(small)e(times)i +(the)g(correct)h(deca)m(y)h(probabilit)m(y)-8 b(,)37 +b Fn(P)8 b Fw(\()p Fj(t)p Fw(\),)39 b(agrees)f(w)m(ell)f(with)g(the)h +(input)f(one,)1841 5953 y(46)p eop +%%Page: 47 53 +47 52 bop 0 -18 a Fj(f)11 b Fw(\()p Fj(t)p Fw(\),)46 +b(since)e(the)f(exp)s(onen)m(tial)g(factor)g(is)g(close)g(to)g(unit)m +(y)h(there.)76 b(A)m(t)44 b(larger)e Fj(t)p Fw(,)k(the)e(exp)s(onen)m +(tial)0 90 y(giv)m(es)37 b(a)f(damp)s(ening)f(whic)m(h)i(ensures)i +(that)d(the)h(in)m(tegral)e(of)h Fn(P)8 b Fw(\()p Fj(t)p +Fw(\))37 b(nev)m(er)h(can)f(exceed)h(unit)m(y)-8 b(,)38 +b(ev)m(en)0 198 y(if)33 b(the)h(in)m(tegral)f(of)h Fj(f)11 +b Fw(\()p Fj(t)p Fw(\))33 b(do)s(es.)49 b(The)35 b(exp)s(onen)m(tial)e +(can)i(b)s(e)f(seen)i(as)e(the)g(probabilit)m(y)e(that)i(nothing)0 +307 y(happ)s(ens)d(b)s(et)m(w)m(een)i(the)d(original)d(time)i(0)h(and)g +(the)h(\014nal)e(time)g Fj(t)p Fw(.)43 b(In)31 b(the)f(parton-sho)m(w)m +(er)h(language,)0 415 y(this)h(is)g(\(almost\))f(the)i(so-called)e +(Sudak)m(o)m(v)j(form)e(factor.)146 523 y(If)45 b Fj(f)11 +b Fw(\()p Fj(t)p Fw(\))44 b(has)h(a)f(primitiv)m(e)f(function)h(with)g +(a)g(kno)m(wn)i(in)m(v)m(erse,)j(it)44 b(is)g(easy)i(to)e(select)h +Fj(t)g Fw(v)-5 b(alues)0 632 y(correctly:)527 752 y Fg(Z)610 +779 y Fh(t)573 941 y Fl(0)656 869 y Fn(P)8 b Fw(\()p +Fj(t)806 828 y Fk(0)830 869 y Fw(\))17 b(d)p Fj(t)974 +828 y Fk(0)1025 869 y Fw(=)27 b Fn(N)15 b Fw(\(0\))22 +b Fn(\000)g(N)15 b Fw(\()p Fj(t)p Fw(\))27 b(=)h(1)22 +b Fn(\000)g Fw(exp)2146 748 y Fg(\032)2208 869 y Fn(\000)2302 +752 y Fg(Z)2385 779 y Fh(t)2349 941 y Fl(0)2432 869 y +Fj(f)11 b Fw(\()p Fj(t)2564 828 y Fk(0)2587 869 y Fw(\))17 +b(d)p Fj(t)2731 828 y Fk(0)2754 748 y Fg(\033)2844 869 +y Fw(=)28 b(1)22 b Fn(\000)g Fj(R)34 b(;)402 b Fw(\(9\))0 +1100 y(whic)m(h)33 b(has)g(the)g(solution)793 1287 y +Fj(F)14 b Fw(\(0\))22 b Fn(\000)g Fj(F)14 b Fw(\()p Fj(t)p +Fw(\))28 b(=)f(ln)16 b Fj(R)126 b Fw(=)-17 b Fn(\))125 +b Fj(t)28 b Fw(=)g Fj(F)2261 1246 y Fk(\000)p Fl(1)2355 +1287 y Fw(\()p Fj(F)14 b Fw(\(0\))21 b Fn(\000)i Fw(ln)16 +b Fj(R)q Fw(\))32 b Fj(:)620 b Fw(\(10\))146 1474 y(If)36 +b Fj(f)11 b Fw(\()p Fj(t)p Fw(\))36 b(is)g(not)g(su\016cien)m(tly)g +(nice,)h(one)g(ma)m(y)f(again)e(try)i(to)g(\014nd)h(a)f(b)s(etter)g +(function)f Fj(g)t Fw(\()p Fj(t)p Fw(\),)i(with)0 1582 +y Fj(f)11 b Fw(\()p Fj(t)p Fw(\))32 b Fn(\024)g Fj(g)t +Fw(\()p Fj(t)p Fw(\))i(for)h(all)e Fj(t)f Fn(\025)g Fw(0.)50 +b(Ho)m(w)m(ev)m(er)38 b(to)c(use)i(metho)s(d)e(3)h(with)g(this)f +Fj(g)t Fw(\()p Fj(t)p Fw(\))h(w)m(ould)g(not)f(w)m(ork,)j(since)0 +1691 y(the)f(metho)s(d)f(w)m(ould)h(not)g(correctly)g(tak)m(e)g(in)m +(to)f(accoun)m(t)i(the)f(e\013ects)h(of)f(the)g(exp)s(onen)m(tial)f +(term)g(in)0 1799 y Fn(P)8 b Fw(\()p Fj(t)p Fw(\).)44 +b(Instead)34 b(one)f(ma)m(y)f(use)h(the)g(so-called)f(v)m(eto)h +(algorithm:)119 1912 y(1.)49 b(start)32 b(with)h Fj(i)28 +b Fw(=)f(0)32 b(and)h Fj(t)1170 1927 y Fl(0)1237 1912 +y Fw(=)28 b(0;)119 2030 y(2.)49 b(add)34 b(1)h(to)f Fj(i)g +Fw(and)h(select)g Fj(t)1202 2045 y Fh(i)1261 2030 y Fw(=)c +Fj(G)1445 1994 y Fk(\000)p Fl(1)1539 2030 y Fw(\()p Fj(G)p +Fw(\()p Fj(t)1727 2045 y Fh(i)p Fk(\000)p Fl(1)1845 2030 +y Fw(\))24 b Fn(\000)g Fw(ln)16 b Fj(R)q Fw(\),)34 b(i.e.)49 +b(according)34 b(to)g Fj(g)t Fw(\()p Fj(t)p Fw(\),)g(but)h(with)f(the) +244 2138 y(constrain)m(t)e(that)h Fj(t)949 2153 y Fh(i)1005 +2138 y Fj(>)27 b(t)1143 2153 y Fh(i)p Fk(\000)p Fl(1)1262 +2138 y Fw(,)119 2256 y(3.)49 b(compare)42 b(a)g(\(new\))i +Fj(R)f Fw(with)f(the)h(ratio)e Fj(f)11 b Fw(\()p Fj(t)1924 +2271 y Fh(i)1952 2256 y Fw(\))p Fj(=g)t Fw(\()p Fj(t)2163 +2271 y Fh(i)2191 2256 y Fw(\);)47 b(if)41 b Fj(f)11 b +Fw(\()p Fj(t)2534 2271 y Fh(i)2563 2256 y Fw(\))p Fj(=g)t +Fw(\()p Fj(t)2774 2271 y Fh(i)2801 2256 y Fw(\))44 b +Fn(\024)i Fj(R)q Fw(,)f(then)e(return)g(to)244 2364 y(p)s(oin)m(t)32 +b(2)g(for)g(a)g(new)i(try;)119 2482 y(4.)49 b(otherwise)33 +b Fj(t)713 2497 y Fh(i)774 2482 y Fw(is)f(retained)g(as)h(\014nal)f +(answ)m(er.)146 2595 y(It)e(ma)m(y)f(not)g(b)s(e)g(apparen)m(t)h(wh)m +(y)g(this)f(w)m(orks.)44 b(Consider,)30 b(ho)m(w)m(ev)m(er,)j(the)c(v) +-5 b(arious)29 b(w)m(a)m(ys)i(in)d(whic)m(h)0 2703 y(one)34 +b(can)f(select)h(a)f(sp)s(eci\014c)h(time)e Fj(t)p Fw(.)45 +b(The)35 b(probabilit)m(y)c(that)i(the)h(\014rst)f(try)h(w)m(orks,)h +Fj(t)29 b Fw(=)g Fj(t)3331 2718 y Fl(1)3370 2703 y Fw(,)34 +b(i.e.)45 b(that)0 2812 y(no)32 b(in)m(termediate)g Fj(t)h +Fw(v)-5 b(alues)32 b(need)i(b)s(e)e(rejected,)i(is)e(giv)m(en)h(b)m(y) +489 3060 y Fn(P)558 3075 y Fl(0)598 3060 y Fw(\()p Fj(t)p +Fw(\))28 b(=)f(exp)1006 2939 y Fg(\032)1068 3060 y Fn(\000)1162 +2943 y Fg(Z)1245 2969 y Fh(t)1208 3132 y Fl(0)1292 3060 +y Fj(g)t Fw(\()p Fj(t)1416 3019 y Fk(0)1438 3060 y Fw(\))17 +b(d)p Fj(t)1582 3019 y Fk(0)1606 2939 y Fg(\033)1701 +3060 y Fj(g)t Fw(\()p Fj(t)p Fw(\))1889 2993 y Fj(f)11 +b Fw(\()p Fj(t)p Fw(\))p 1889 3037 170 4 v 1893 3128 +a Fj(g)t Fw(\()p Fj(t)p Fw(\))2097 3060 y(=)27 b Fj(f)11 +b Fw(\()p Fj(t)p Fw(\))17 b(exp)2552 2939 y Fg(\032)2614 +3060 y Fn(\000)2708 2943 y Fg(Z)2791 2969 y Fh(t)2755 +3132 y Fl(0)2838 3060 y Fj(g)t Fw(\()p Fj(t)2962 3019 +y Fk(0)2984 3060 y Fw(\))g(d)p Fj(t)3128 3019 y Fk(0)3152 +2939 y Fg(\033)3263 3060 y Fj(;)316 b Fw(\(11\))0 3315 +y(where)33 b(the)e(exp)s(onen)m(tial)g(times)f Fj(g)t +Fw(\()p Fj(t)p Fw(\))h(comes)h(from)e(eq.)i(\(8\))f(applied)f(to)h +Fj(g)t Fw(,)g(and)g(the)h(ratio)e Fj(f)11 b Fw(\()p Fj(t)p +Fw(\))p Fj(=g)t Fw(\()p Fj(t)p Fw(\))0 3423 y(is)32 b(the)i(probabilit) +m(y)d(that)h Fj(t)h Fw(is)g(accepted.)46 b(No)m(w)33 +b(consider)h(the)f(case)h(where)g(one)f(in)m(termediate)f(time)0 +3532 y Fj(t)35 3547 y Fl(1)107 3532 y Fw(is)g(rejected)i(and)f +Fj(t)28 b Fw(=)f Fj(t)962 3547 y Fl(2)1034 3532 y Fw(is)32 +b(only)h(accepted)h(in)d(the)i(second)h(step.)45 b(This)32 +b(giv)m(es)50 3787 y Fn(P)119 3802 y Fl(1)159 3787 y +Fw(\()p Fj(t)p Fw(\))27 b(=)401 3670 y Fg(Z)484 3696 +y Fh(t)447 3859 y Fl(0)530 3787 y Fw(d)p Fj(t)619 3802 +y Fl(1)676 3787 y Fw(exp)841 3666 y Fg(\032)903 3787 +y Fn(\000)997 3670 y Fg(Z)1081 3696 y Fh(t)1106 3705 +y Ff(1)1044 3859 y Fl(0)1161 3787 y Fj(g)t Fw(\()p Fj(t)1285 +3746 y Fk(0)1308 3787 y Fw(\))17 b(d)p Fj(t)1452 3746 +y Fk(0)1475 3666 y Fg(\033)1554 3787 y Fj(g)t Fw(\()p +Fj(t)1678 3802 y Fl(1)1717 3787 y Fw(\))1772 3641 y Fg(")1820 +3787 y Fw(1)22 b Fn(\000)2001 3720 y Fj(f)11 b Fw(\()p +Fj(t)2133 3735 y Fl(1)2172 3720 y Fw(\))p 2001 3764 210 +4 v 2005 3855 a Fj(g)t Fw(\()p Fj(t)2129 3870 y Fl(1)2168 +3855 y Fw(\))2220 3641 y Fg(#)2285 3787 y Fw(exp)2451 +3666 y Fg(\032)2513 3787 y Fn(\000)2607 3670 y Fg(Z)2690 +3696 y Fh(t)2653 3859 y(t)2678 3868 y Ff(1)2736 3787 +y Fj(g)t Fw(\()p Fj(t)2860 3746 y Fk(0)2883 3787 y Fw(\))17 +b(d)p Fj(t)3027 3746 y Fk(0)3050 3666 y Fg(\033)3129 +3787 y Fj(g)t Fw(\()p Fj(t)p Fw(\))3317 3720 y Fj(f)11 +b Fw(\()p Fj(t)p Fw(\))p 3317 3764 170 4 v 3321 3855 +a Fj(g)t Fw(\()p Fj(t)p Fw(\))3529 3787 y Fj(;)50 b Fw(\(12\))0 +4048 y(where)38 b(the)g(\014rst)f(exp)s(onen)m(tial)f(times)g +Fj(g)t Fw(\()p Fj(t)1580 4063 y Fl(1)1619 4048 y Fw(\))h(giv)m(es)g +(the)h(probabilit)m(y)d(that)h Fj(t)2863 4063 y Fl(1)2940 +4048 y Fw(is)g(\014rst)i(selected,)h(the)0 4157 y(square)h(brac)m(k)m +(ets)h(the)e(probabilit)m(y)e(that)i Fj(t)1634 4172 y +Fl(1)1712 4157 y Fw(is)f(subsequen)m(tly)k(rejected,)g(the)d(follo)m +(wing)d(piece)j(the)0 4265 y(probabilit)m(y)g(that)h +Fj(t)i Fw(=)g Fj(t)956 4280 y Fl(2)1036 4265 y Fw(is)e(selected)i(when) +g(starting)e(from)g Fj(t)2423 4280 y Fl(1)2462 4265 y +Fw(,)j(and)e(the)g(\014nal)f(factor)g(that)h Fj(t)g Fw(is)0 +4373 y(retained.)82 b(The)47 b(whole)e(is)g(to)g(b)s(e)h(in)m(tegrated) +g(o)m(v)m(er)g(all)e(p)s(ossible)g(in)m(termediate)h(times)f +Fj(t)3462 4388 y Fl(1)3502 4373 y Fw(.)83 b(The)0 4482 +y(exp)s(onen)m(tials)36 b(together)f(giv)m(e)h(an)g(in)m(tegral)e(o)m +(v)m(er)j(the)f(range)f(from)g(0)g(to)g Fj(t)p Fw(,)i(just)f(as)g(in)f +Fn(P)3348 4497 y Fl(0)3388 4482 y Fw(,)h(and)g(the)0 +4590 y(factor)c(for)g(the)h(\014nal)f(step)h(b)s(eing)f(accepted)i(is)e +(also)g(the)h(same,)g(so)f(therefore)h(one)g(\014nds)h(that)1128 +4828 y Fn(P)1197 4843 y Fl(1)1236 4828 y Fw(\()p Fj(t)p +Fw(\))28 b(=)g Fn(P)1548 4843 y Fl(0)1587 4828 y Fw(\()p +Fj(t)p Fw(\))1715 4711 y Fg(Z)1798 4737 y Fh(t)1761 4899 +y Fl(0)1844 4828 y Fw(d)p Fj(t)1933 4843 y Fl(1)1990 +4828 y Fw([)p Fj(g)t Fw(\()p Fj(t)2141 4843 y Fl(1)2180 +4828 y Fw(\))22 b Fn(\000)g Fj(f)11 b Fw(\()p Fj(t)2471 +4843 y Fl(1)2511 4828 y Fw(\)])49 b Fj(:)954 b Fw(\(13\))0 +5055 y(This)33 b(generalizes.)45 b(In)33 b Fn(P)942 5070 +y Fl(2)1015 5055 y Fw(one)g(has)h(to)e(consider)i(t)m(w)m(o)f(in)m +(termediate)f(times,)g(0)d Fn(\024)g Fj(t)3127 5070 y +Fl(1)3195 5055 y Fn(\024)g Fj(t)3336 5070 y Fl(2)3404 +5055 y Fn(\024)g Fj(t)3545 5070 y Fl(3)3613 5055 y Fw(=)f +Fj(t)p Fw(,)0 5164 y(and)33 b(so)663 5382 y Fn(P)732 +5397 y Fl(2)772 5382 y Fw(\()p Fj(t)p Fw(\))83 b(=)g +Fn(P)1194 5397 y Fl(0)1234 5382 y Fw(\()p Fj(t)p Fw(\))1362 +5265 y Fg(Z)1445 5291 y Fh(t)1408 5454 y Fl(0)1491 5382 +y Fw(d)p Fj(t)1580 5397 y Fl(1)1636 5382 y Fw([)p Fj(g)t +Fw(\()p Fj(t)1787 5397 y Fl(1)1826 5382 y Fw(\))22 b +Fn(\000)h Fj(f)11 b Fw(\()p Fj(t)2118 5397 y Fl(1)2157 +5382 y Fw(\)])2239 5265 y Fg(Z)2322 5291 y Fh(t)2285 +5454 y(t)2310 5463 y Ff(1)2368 5382 y Fw(d)p Fj(t)2457 +5397 y Fl(2)2514 5382 y Fw([)p Fj(g)t Fw(\()p Fj(t)2665 +5397 y Fl(2)2704 5382 y Fw(\))22 b Fn(\000)g Fj(f)11 +b Fw(\()p Fj(t)2995 5397 y Fl(2)3035 5382 y Fw(\)])966 +5644 y(=)83 b Fn(P)1194 5659 y Fl(0)1234 5644 y Fw(\()p +Fj(t)p Fw(\))1355 5577 y(1)p 1355 5621 49 4 v 1355 5713 +a(2)1430 5523 y Fg(\022)1491 5527 y(Z)1574 5554 y Fh(t)1537 +5716 y Fl(0)1621 5644 y Fw([)p Fj(g)t Fw(\()p Fj(t)1772 +5603 y Fk(0)1794 5644 y Fw(\))22 b Fn(\000)h Fj(f)11 +b Fw(\()p Fj(t)2086 5603 y Fk(0)2109 5644 y Fw(\)])17 +b(d)p Fj(t)2280 5603 y Fk(0)2304 5523 y Fg(\023)2365 +5539 y Fl(2)2453 5644 y Fj(:)1126 b Fw(\(14\))1841 5953 +y(47)p eop +%%Page: 48 54 +48 53 bop 0 -18 a Fw(The)34 b(last)f(equalit)m(y)g(is)f(most)h(easily)g +(seen)h(if)e(one)i(also)e(considers)i(the)g(alternativ)m(e)e(region)h +(0)28 b Fn(\024)i Fj(t)3634 -3 y Fl(2)3702 -18 y Fn(\024)0 +90 y Fj(t)35 105 y Fl(1)102 90 y Fn(\024)e Fj(t)p Fw(,)i(where)g(the)g +(r^)-49 b(oles)28 b(of)g Fj(t)1108 105 y Fl(1)1177 90 +y Fw(and)h Fj(t)1398 105 y Fl(2)1466 90 y Fw(ha)m(v)m(e)h(just)f(b)s +(een)h(in)m(terc)m(hanged,)h(and)d(the)i(in)m(tegral)d(therefore)0 +198 y(has)41 b(the)h(same)f(v)-5 b(alue)40 b(as)i(in)e(the)i(region)e +(considered.)70 b(Adding)40 b(the)i(t)m(w)m(o)g(regions,)g(ho)m(w)m(ev) +m(er,)k(the)0 307 y(in)m(tegrals)28 b(o)m(v)m(er)i Fj(t)630 +322 y Fl(1)699 307 y Fw(and)f Fj(t)920 322 y Fl(2)989 +307 y Fw(decouple,)h(and)f(b)s(ecome)g(equal.)42 b(In)30 +b(general,)f(for)g Fn(P)2934 322 y Fh(i)2962 307 y Fw(,)h(the)f +Fj(i)h Fw(in)m(termediate)0 415 y(times)35 b(can)g(b)s(e)h(ordered)g +(in)f Fj(i)p Fw(!)g(di\013eren)m(t)h(w)m(a)m(ys.)54 b(Therefore)36 +b(the)g(total)e(probabilit)m(y)f(to)j(accept)g Fj(t)p +Fw(,)g(in)0 523 y(an)m(y)d(step,)h(is)608 788 y Fn(P)8 +b Fw(\()p Fj(t)p Fw(\))84 b(=)1063 680 y Fk(1)1038 705 +y Fg(X)1041 888 y Fh(i)p Fl(=0)1175 788 y Fn(P)1244 803 +y Fh(i)1272 788 y Fw(\()p Fj(t)p Fw(\))28 b(=)g Fn(P)1584 +803 y Fl(0)1624 788 y Fw(\()p Fj(t)p Fw(\))1776 680 y +Fk(1)1751 705 y Fg(X)1754 888 y Fh(i)p Fl(=0)1904 721 +y Fw(1)p 1898 765 61 4 v 1898 857 a Fj(i)p Fw(!)1985 +667 y Fg(\022)2046 671 y(Z)2129 697 y Fh(t)2092 860 y +Fl(0)2175 788 y Fw([)p Fj(g)t Fw(\()p Fj(t)2326 747 y +Fk(0)2349 788 y Fw(\))22 b Fn(\000)h Fj(f)11 b Fw(\()p +Fj(t)2641 747 y Fk(0)2664 788 y Fw(\)])16 b(d)p Fj(t)2834 +747 y Fk(0)2858 667 y Fg(\023)2919 683 y Fh(i)880 1061 +y Fw(=)82 b Fj(f)11 b Fw(\()p Fj(t)p Fw(\))17 b(exp)1391 +940 y Fg(\032)1453 1061 y Fn(\000)1547 944 y Fg(Z)1630 +970 y Fh(t)1593 1132 y Fl(0)1676 1061 y Fj(g)t Fw(\()p +Fj(t)1800 1020 y Fk(0)1823 1061 y Fw(\))g(d)p Fj(t)1967 +1020 y Fk(0)1990 940 y Fg(\033)2069 1061 y Fw(exp)2235 +940 y Fg(\032)2297 944 y(Z)2380 970 y Fh(t)2343 1132 +y Fl(0)2426 1061 y Fw([)p Fj(g)t Fw(\()p Fj(t)2577 1020 +y Fk(0)2600 1061 y Fw(\))22 b Fn(\000)h Fj(f)11 b Fw(\()p +Fj(t)2892 1020 y Fk(0)2915 1061 y Fw(\)])17 b(d)p Fj(t)3086 +1020 y Fk(0)3109 940 y Fg(\033)880 1300 y Fw(=)82 b Fj(f)11 +b Fw(\()p Fj(t)p Fw(\))17 b(exp)1391 1179 y Fg(\032)1453 +1300 y Fn(\000)1547 1183 y Fg(Z)1630 1210 y Fh(t)1593 +1372 y Fl(0)1676 1300 y Fj(f)11 b Fw(\()p Fj(t)1808 1259 +y Fk(0)1831 1300 y Fw(\))17 b(d)p Fj(t)1975 1259 y Fk(0)1999 +1179 y Fg(\033)2110 1300 y Fj(;)1469 b Fw(\(15\))0 1541 +y(whic)m(h)33 b(is)f(the)h(desired)g(answ)m(er.)146 1649 +y(If)42 b(the)g(pro)s(cess)h(is)e(to)g(b)s(e)g(stopp)s(ed)i(at)e(some)g +(scale)h Fj(t)2190 1664 y Fl(max)2326 1649 y Fw(,)h(i.e.)70 +b(if)41 b(one)g(w)m(ould)h(lik)m(e)f(to)g(remain)0 1757 +y(with)32 b(a)f(fraction)g Fn(N)15 b Fw(\()p Fj(t)832 +1772 y Fl(max)967 1757 y Fw(\))32 b(of)f(ev)m(en)m(ts)k(where)e +(nothing)e(happ)s(ens)i(at)e(all,)f(this)i(is)f(easy)i(to)f(include)f +(in)0 1866 y(the)j(v)m(eto)f(algorithm:)42 b(just)33 +b(iterate)g(up)m(w)m(ards)i(in)d Fj(t)h Fw(at)g(usual,)g(but)h(stop)f +(the)h(pro)s(cess)g(if)e(no)h(allo)m(w)m(ed)0 1974 y(branc)m(hing)g(is) +f(found)g(b)s(efore)h Fj(t)1152 1989 y Fl(max)1288 1974 +y Fw(.)146 2082 y(Usually)28 b Fj(f)11 b Fw(\()p Fj(t)p +Fw(\))27 b(is)h(a)g(function)f(also)g(of)h(additional)d(v)-5 +b(ariables)27 b Fj(x)p Fw(.)42 b(The)29 b(metho)s(ds)f(of)g(the)g +(preceding)0 2191 y(subsection)34 b(are)e(easy)i(to)f(generalize)e(if)h +(one)h(can)g(\014nd)g(a)g(suitable)e(function)i Fj(g)t +Fw(\()p Fj(t;)17 b(x)p Fw(\))32 b(with)g Fj(f)11 b Fw(\()p +Fj(t;)17 b(x)p Fw(\))28 b Fn(\024)0 2299 y Fj(g)t Fw(\()p +Fj(t;)17 b(x)p Fw(\).)58 b(The)39 b Fj(g)t Fw(\()p Fj(t)p +Fw(\))e(used)i(in)e(the)h(v)m(eto)g(algorithm)d(is)i(the)h(in)m(tegral) +e(of)h Fj(g)t Fw(\()p Fj(t;)17 b(x)p Fw(\))37 b(o)m(v)m(er)i +Fj(x)p Fw(.)59 b(Eac)m(h)39 b(time)0 2407 y(a)33 b Fj(t)117 +2422 y Fh(i)178 2407 y Fw(has)h(b)s(een)g(selected)g(also)f(an)g +Fj(x)1336 2422 y Fh(i)1398 2407 y Fw(is)f(pic)m(k)m(ed,)j(according)e +(to)f Fj(g)t Fw(\()p Fj(t)2508 2422 y Fh(i)2536 2407 +y Fj(;)17 b(x)p Fw(\))g Fj(dx)p Fw(,)33 b(and)h(the)f(\()p +Fj(t;)17 b(x)p Fw(\))34 b(p)s(oin)m(t)e(is)0 2516 y(accepted)i(with)e +(probabilit)m(y)f Fj(f)11 b Fw(\()p Fj(t)1254 2531 y +Fh(i)1282 2516 y Fj(;)17 b(x)1381 2531 y Fh(i)1409 2516 +y Fw(\))p Fj(=g)t Fw(\()p Fj(t)1620 2531 y Fh(i)1648 +2516 y Fj(;)g(x)1747 2531 y Fh(i)1775 2516 y Fw(\).)0 +2788 y Fp(4.3)135 b(The)45 b(Random)g(Num)l(b)t(er)g(Generator)0 +2961 y Fw(The)i(construction)g(of)f(a)g(go)s(o)s(d,)i(p)s(ortable)d +(\(pseudo\)random)i(generator)f(is)g(not)g(a)g(trivial)e(task.)0 +3069 y(Therefore)d Fm(Jetset)f Fw(has)g(traditionally)d(sta)m(y)m(ed)42 +b(a)m(w)m(a)m(y)g(from)d(that)h(area,)i(and)f(just)f(pro)m(vided)h(the) +0 3177 y(routine)c Fq(RLU)h Fw(as)g(an)g(in)m(terface,)h(whic)m(h)f +(the)g(user)h(could)e(mo)s(dify)f(to)h(call)f(on)h(an)h(existing)f +(routine,)0 3286 y(implemen)m(ted)31 b(on)i(the)g(actual)e(mac)m(hine)h +(b)s(eing)g(used.)146 3394 y(In)c(recen)m(t)h(y)m(ears,)h(progress)e +(has)g(b)s(een)g(made)f(in)g(constructing)g(p)s(ortable)g(generators)h +(with)f(large)0 3502 y(p)s(erio)s(ds)k(and)g(other)h(go)s(o)s(d)e(prop) +s(erties;)i(see)h(the)f(review)g([Jam90)o(].)43 b(Therefore)32 +b(the)g(curren)m(t)h(v)m(ersion)0 3611 y(con)m(tains)47 +b(a)f(random)g(n)m(um)m(b)s(er)i(generator)f(based)g(on)g(the)g +(algorithm)d(prop)s(osed)k(b)m(y)f(Marsaglia,)0 3719 +y(Zaman)37 b(and)i(Tsang)g([Mar90].)61 b(This)39 b(routine)f(should)g +(w)m(ork)h(on)g(an)m(y)g(mac)m(hine)f(with)g(a)g(man)m(tissa)0 +3827 y(of)c(at)f(least)h(24)g(digits,)f(i.e.)47 b(all)32 +b(common)h(32-bit)f(\(or)i(more\))f(computers.)49 b(Giv)m(en)34 +b(the)g(same)g(initial)0 3936 y(state,)50 b(the)c(sequence)j(will)44 +b(also)h(b)s(e)h(iden)m(tical)f(on)h(di\013eren)m(t)g(mac)m(hines.)84 +b(This)46 b(need)h(not)f(mean)0 4044 y(that)c(the)g(same)g(sequence)j +(of)c(ev)m(en)m(ts)j(will)c(b)s(e)i(generated)h(on)f(an)g(IBM)g(and)h +(a)e(V)-11 b(AX,)43 b(sa)m(y)-8 b(,)45 b(since)0 4152 +y(the)d(di\013eren)m(t)f(treatmen)m(ts)h(of)f(roundo\013)g(errors)h(in) +f(n)m(umerical)f(op)s(erations)g(will)f(lead)i(to)g(sligh)m(tly)0 +4261 y(di\013eren)m(t)29 b(real)g(n)m(um)m(b)s(ers)h(b)s(eing)e(tested) +i(against)f(these)h(random)e(n)m(um)m(b)s(ers)i(in)f(IF)g(statemen)m +(ts.)43 b(Also)0 4369 y(co)s(de)d(optimization)d(ma)m(y)j(lead)f(to)h +(a)g(div)m(ergence.)67 b(Apart)40 b(from)e(nomenclature)i(issues,)j +(and)d(the)0 4478 y(co)s(ding)h(of)49 b Fq(RLU)43 b Fw(as)g(a)f +(function)f(rather)i(than)f(a)g(subroutine,)j(the)e(only)f +(di\013erence)h(b)s(et)m(w)m(een)h(the)0 4586 y Fm(Jetset)32 +b Fw(co)s(de)h(and)g(the)g(co)s(de)g(giv)m(en)g(in)f([Jam90)o(])h(is)f +(that)h(sligh)m(tly)e(di\013eren)m(t)i(algorithms)d(are)j(used)0 +4694 y(to)f(ensure)i(that)f(the)g(random)e(n)m(um)m(b)s(er)i(is)f(not)h +(equal)f(to)g(0)h(or)f(1)g(within)g(the)h(mac)m(hine)f(precision.)146 +4803 y(The)j(generator)e(has)h(a)g(p)s(erio)s(d)e(of)i(o)m(v)m(er)g(10) +1764 4766 y Fl(43)1838 4803 y Fw(,)g(and)g(the)g(p)s(ossibilit)m(y)e +(to)h(obtain)f(almost)g(10)3563 4766 y Fl(9)3636 4803 +y Fw(dif-)0 4911 y(feren)m(t)j(and)f(disjoin)m(t)f(subsequences,)38 +b(selected)e(b)m(y)f(giving)d(an)i(initial)c(in)m(teger)k(n)m(um)m(b)s +(er.)49 b(The)35 b(price)0 5019 y(to)28 b(b)s(e)h(paid)f(for)g(the)i +(long)d(p)s(erio)s(d)h(is)g(that)g(the)i(state)f(of)f(the)h(generator)g +(at)f(a)h(giv)m(en)f(momen)m(t)g(cannot)0 5128 y(b)s(e)40 +b(describ)s(ed)g(b)m(y)g(a)f(single)f(in)m(teger,)j(but)f(requires)g +(ab)s(out)f(100)f(w)m(ords.)65 b(Some)39 b(of)f(these)j(are)e(real)0 +5236 y(n)m(um)m(b)s(ers,)32 b(and)f(are)f(th)m(us)i(not)f(correctly)g +(represen)m(ted)i(in)d(decimal)e(form.)42 b(The)32 b(normal)c(pro)s +(cedure,)0 5344 y(whic)m(h)41 b(mak)m(es)f(it)f(p)s(ossible)h(to)g +(restart)g(the)h(generation)e(from)g(a)h(seed)h(v)-5 +b(alue)40 b(written)g(to)g(the)g(run)0 5453 y(output,)29 +b(is)e(therefore)i(not)e(con)m(v)m(enien)m(t.)44 b(The)29 +b(CERN)f(library)f(implemen)m(tation)d(k)m(eeps)30 b(trac)m(k)f(of)e +(the)0 5561 y(n)m(um)m(b)s(er)33 b(of)f(random)f(n)m(um)m(b)s(ers)j +(generated)f(since)g(the)g(start.)43 b(With)32 b(this)g(v)-5 +b(alue)32 b(sa)m(v)m(ed,)i(in)e(a)g(subse-)0 5669 y(quen)m(t)f(run)f +(the)g(random)f(generator)h(can)g(b)s(e)g(ask)m(ed)h(to)e(skip)h(ahead) +g(the)g(corresp)s(onding)g(n)m(um)m(b)s(er)g(of)1841 +5953 y(48)p eop +%%Page: 49 55 +49 54 bop 0 -18 a Fw(random)29 b(n)m(um)m(b)s(ers.)44 +b Fm(Jetset)29 b Fw(is)h(a)g(hea)m(vy)h(user)h(of)d(random)h(n)m(um)m +(b)s(ers,)h(ho)m(w)m(ev)m(er:)45 b(t)m(ypically)29 b(30\045)h(of)0 +90 y(the)g(full)e(run)i(time)e(is)h(sp)s(en)m(t)i(on)f(random)f(n)m(um) +m(b)s(er)h(generation.)42 b(Of)29 b(this,)h(half)f(is)g(o)m(v)m(erhead) +i(coming)0 198 y(from)j(the)i(function)f(call)f(administration,)f(but)i +(the)h(other)g(half)e(is)h(truly)g(related)g(to)g(the)h(sp)s(eed)h(of)0 +307 y(the)31 b(algorithm.)40 b(Therefore)32 b(a)f(skipping)f(ahead)h(w) +m(ould)g(tak)m(e)h(place)f(with)f(15\045)h(of)g(the)g(time)f(cost)h(of) +0 415 y(the)i(original)c(run,)k(i.e.)43 b(an)33 b(uncomfortably)e(high) +h(\014gure.)146 523 y(Instead)48 b(a)f(di\013eren)m(t)g(solution)f(is)g +(c)m(hosen)j(here.)88 b(Tw)m(o)48 b(sp)s(ecial)e(routines)h(are)g(pro)m +(vided)g(for)0 632 y(writing)35 b(and)i(reading)f(the)h(state)g(of)f +(the)h(random)f(n)m(um)m(b)s(er)h(generator)g(\(plus)f(some)h +(initialization)0 740 y(information\))24 b(on)j(a)g(sequen)m(tial)h +(\014le,)g(in)f(a)g(mac)m(hine-dep)s(enden)m(t)h(in)m(ternal)e +(represen)m(tation.)43 b(The)28 b(\014le)0 848 y(used)34 +b(for)f(this)f(purp)s(ose)i(has)f(to)g(b)s(e)g(sp)s(eci\014ed)h(b)m(y)g +(y)m(ou,)f(and)g(op)s(ened)h(for)f(read)g(and)g(write.)44 +b(A)33 b(state)0 957 y(is)d(written)g(as)h(a)f(single)f(record,)i(in)f +(free)h(format.)41 b(It)30 b(is)g(p)s(ossible)g(to)g(write)g(an)g +(arbitrary)f(n)m(um)m(b)s(er)i(of)0 1065 y(states)h(on)f(a)g(\014le,)h +(and)f(a)g(record)h(can)f(b)s(e)h(o)m(v)m(erwritten,)h(if)d(so)h +(desired.)44 b(The)32 b(ev)m(en)m(t)h(generation)e(lo)s(op)0 +1173 y(migh)m(t)g(then)i(lo)s(ok)f(something)f(lik)m(e:)119 +1286 y(1.)49 b(sa)m(v)m(e)34 b(the)f(state)g(of)f(the)h(generator)g(on) +f(\014le)g(\(using)h(\015ag)f(set)h(in)f(p)s(oin)m(t)g(3)g(b)s(elo)m +(w\),)119 1404 y(2.)49 b(generate)33 b(an)g(ev)m(en)m(t,)119 +1522 y(3.)49 b(study)42 b(the)f(ev)m(en)m(t)i(for)d(errors)h(or)f +(other)h(reasons)h(wh)m(y)g(to)f(regenerate)g(it)f(later;)k(set)d +(\015ag)g(to)244 1630 y(o)m(v)m(erwrite)48 b(previous)f(generator)g +(state)g(if)f(no)h(errors,)k(otherwise)c(set)h(\015ag)e(to)h(create)h +(new)244 1739 y(record;)119 1856 y(4.)h(lo)s(op)31 b(bac)m(k)j(to)e(p)s +(oin)m(t)f(1.)0 1969 y(With)25 b(this)g(pro)s(cedure,)j(the)e(\014le)f +(will)e(con)m(tain)j(the)g(state)g(b)s(efore)f(eac)m(h)i(of)e(the)h +(problematical)c(ev)m(en)m(ts.)0 2078 y(An)34 b(alternativ)m(e)g +(approac)m(h)g(migh)m(t)f(b)s(e)h(to)g(sa)m(v)m(e)h(the)g(state)f(ev)m +(ery)i(100)d(ev)m(en)m(ts)k(or)d(so.)48 b(If)34 b(the)g(ev)m(en)m(ts)0 +2186 y(are)25 b(subsequen)m(tly)j(pro)s(cessed)f(through)e(a)f +(detector)i(sim)m(ulation,)e(y)m(ou)i(ma)m(y)f(ha)m(v)m(e)h(to)f(sa)m +(v)m(e)h(also)e(other)0 2295 y(sets)34 b(of)e(seeds,)i(naturally)-8 +b(.)146 2403 y(In)32 b(addition)e(to)i(the)g(service)h(routines,)f(the) +g(common)e(blo)s(c)m(k)i(whic)m(h)g(con)m(tains)g(the)h(state)f(of)f +(the)0 2511 y(generator)41 b(is)g(a)m(v)-5 b(ailable)39 +b(for)i(manipulation,)g(if)f(y)m(ou)i(so)g(desire.)71 +b(In)41 b(particular,)h(the)g(initial)c(seed)0 2620 y(v)-5 +b(alue)35 b(is)g(b)m(y)i(default)e(19780503,)g(i.e.)52 +b(di\013eren)m(t)36 b(from)f(the)h(Marsaglia/CERN)e(default)h +(54217137.)0 2728 y(It)k(is)e(p)s(ossible)h(to)g(c)m(hange)i(this)e(v) +-5 b(alue)38 b(b)s(efore)g(an)m(y)h(random)f(n)m(um)m(b)s(ers)h(ha)m(v) +m(e)h(b)s(een)f(generated,)i(or)0 2836 y(to)36 b(force)h +(reinitialization)32 b(in)k(mid-run)f(with)h(an)m(y)i(desired)f(new)h +(seed.)57 b(Inside)37 b Fm(Jetset/Pythia)p Fw(,)0 2945 +y(some)d(initialization)29 b(ma)m(y)34 b(tak)m(e)h(place)f(in)f +(connection)h(with)g(the)h(v)m(ery)h(\014rst)e(ev)m(en)m(t)i(generated) +f(in)f(a)0 3053 y(run,)d(so)g(sometimes)e(it)g(ma)m(y)h(b)s(e)h +(necessary)i(to)d(generate)h(one)f(ordinary)g(ev)m(en)m(t)i(b)s(efore)f +(reading)e(in)h(a)0 3161 y(sa)m(v)m(ed)k(state)f(to)g(generate)g(an)f +(in)m(teresting)h(ev)m(en)m(t.)45 b(In)33 b(the)g(curren)m(t)h +Fm(Pythia)e Fw(v)m(ersion,)i(some)e(of)g(the)0 3270 y(m)m(ultiple)d(in) +m(teraction)h(mac)m(hinery)h(options)f(con)m(tain)h(an)g(elemen)m(t)g +(of)g(learning,)f(whic)m(h)h(means)h(that)0 3378 y(the)h(ev)m(en)m(t)h +(sequence)i(ma)m(y)c(b)s(e)h(brok)m(en.)146 3486 y(It)44 +b(should)g(b)s(e)g(noted)g(that,)j(of)c(course,)48 b(the)d(app)s +(earance)f(of)g(a)f(random)g(n)m(um)m(b)s(er)h(generator)0 +3595 y(pac)m(k)-5 b(age)32 b(inside)f Fm(Jetset)g Fw(do)s(es)h(in)f(no) +h(w)m(a)m(y)h(preclude)f(the)h(use)f(of)g(other)f(routines.)44 +b(Y)-8 b(ou)31 b(can)h(easily)0 3703 y(rev)m(ert)f(to)e(the)h(old)e +(approac)m(h,)j(where)f Fq(RLU)g Fw(is)f(nothing)g(but)h(an)f(in)m +(terface)h(to)f(an)g(arbitrary)f(external)0 3811 y(random)k(n)m(um)m(b) +s(er)h(generator;)f(e.g.)44 b(to)32 b(call)f(a)h(routine)g +Fq(RNDM)i Fw(all)c(y)m(ou)k(need)f(to)g(ha)m(v)m(e)g(is)308 +3997 y Fq(FUNCTION)53 b(RLU\(IDUMMY\))103 4105 y(100)f +(RLU=RNDM\(IDUMMY\))308 4214 y(IF\(RLU.LE.0..OR.RLU.GE.1.\))58 +b(GOTO)52 b(100)308 4322 y(RETURN)308 4430 y(END)146 +4616 y Fw(The)34 b(random)e(generator)g(subpac)m(k)-5 +b(age)34 b(consists)f(of)f(the)h(follo)m(wing)d(comp)s(onen)m(ts.)p +0 4760 928 9 v 0 4980 9 220 v 79 4900 a Fq(R)52 b(=)f(RLU\(IDUMMY\))p +919 4980 V 0 4988 928 9 v 0 5125 a Fo(Purp)s(ose:)d Fw(to)38 +b(generate)h(a)f(\(pseudo\)random)h(n)m(um)m(b)s(er)g +Fq(R)g Fw(uniformly)d(in)i(the)h(range)f(0)p Fj(<)p Fq(R)p +Fj(<)p Fw(1,)i(i.e.)472 5233 y(excluding)33 b(the)g(endp)s(oin)m(ts.)0 +5342 y Fq(IDUMMY)53 b(:)62 b Fw(dumm)m(y)33 b(input)f(argumen)m(t;)g +(normally)e(0.)p 0 5486 1235 9 v 0 5711 9 225 v 79 5626 +a Fq(CALL)52 b(RLUGET\(LFN,MOVE\))p 1227 5711 V 0 5719 +1235 9 v 1841 5953 a Fw(49)p eop +%%Page: 50 56 +50 55 bop 0 -18 a Fo(Purp)s(ose:)48 b Fw(to)30 b(dump)h(the)h(curren)m +(t)g(state)f(of)g(the)g(random)f(n)m(um)m(b)s(er)i(generator)e(on)h(a)g +(separate)h(\014le,)472 90 y(using)i(in)m(ternal)e(represen)m(tation)i +(for)f(real)g(and)h(in)m(teger)f(n)m(um)m(b)s(ers.)47 +b(T)-8 b(o)34 b(b)s(e)f(precise,)i(the)472 198 y(full)41 +b(con)m(ten)m(ts)k(of)d(the)h Fq(LUDATR)i Fw(common)c(blo)s(c)m(k)i +(are)f(written)h(on)g(the)g(\014le,)i(with)d(the)472 +307 y(exception)34 b(of)39 b Fq(MRLU\(6\))p Fw(.)0 415 +y Fq(LFN)52 b(:)216 b Fw(\(logical)30 b(\014le)j(n)m(um)m(b)s(er\))g +(the)h(\014le)f(n)m(um)m(b)s(er)g(to)g(whic)m(h)h(the)f(state)h(is)e +(dump)s(ed.)45 b(Y)-8 b(ou)33 b(m)m(ust)472 523 y(asso)s(ciate)g(this)g +(n)m(um)m(b)s(er)h(with)f(a)g(true)g(\014le)g(\(with)g(a)g(mac)m +(hine-dep)s(enden)m(t)h(name\),)f(and)472 632 y(see)h(to)e(it)g(that)g +(this)h(\014le)f(is)g(op)s(en)h(for)f(write.)0 740 y +Fq(MOVE)52 b(:)165 b Fw(c)m(hoice)27 b(of)f(adding)f(a)h(new)h(record)g +(to)f(the)h(\014le)f(or)g(o)m(v)m(erwriting)f(old)h(record\(s\).)42 +b(Normally)472 848 y(only)33 b(options)e(0)i(or)f Fn(\000)p +Fw(1)h(should)f(b)s(e)h(used.)236 957 y Fq(=)52 b(0)f(\(or)h(>)g(0\))g +(:)47 b Fw(add)33 b(a)f(new)i(record)f(to)f(the)h(end)g(of)f(the)h +(\014le.)236 1065 y Fq(=)52 b(-1)g(:)165 b Fw(o)m(v)m(erwrite)36 +b(the)f(last)g(record)h(with)f(a)f(new)j(one)e(\(i.e.)51 +b(do)35 b(one)h Fq(BACKSPACE)h Fw(b)s(efore)709 1173 +y(the)c(new)g(write\).)236 1282 y Fq(=)52 b Fn(\000)p +Fj(n)g Fq(:)132 b Fw(bac)m(k)35 b(up)g Fj(n)g Fw(records)g(b)s(efore)g +(writing)e(the)i(new)g(record.)50 b(The)36 b(records)f(follo)m(wing)709 +1390 y(after)k(the)h(new)h(one)f(are)g(lost,)h(i.e.)65 +b(the)40 b(last)f Fj(n)h Fw(old)f(records)h(are)g(lost)f(and)h(one)709 +1498 y(new)33 b(added.)p 0 1623 1235 9 v 0 1848 9 225 +v 79 1763 a Fq(CALL)52 b(RLUSET\(LFN,MOVE\))p 1227 1848 +V 0 1856 1235 9 v 0 1988 a Fo(Purp)s(ose:)c Fw(to)24 +b(read)g(in)g(a)g(state)h(for)f(the)g(random)g(n)m(um)m(b)s(er)h +(generator,)h(from)d(whic)m(h)i(the)f(subsequen)m(t)472 +2096 y(generation)48 b(can)g(pro)s(ceed.)91 b(The)49 +b(state)g(m)m(ust)f(previously)g(ha)m(v)m(e)i(b)s(een)f(sa)m(v)m(ed)h +(b)m(y)f(a)472 2205 y Fq(RLUGET)42 b Fw(call.)63 b(Again)39 +b(the)h(full)e(con)m(ten)m(ts)k(of)d(the)h Fq(LUDATR)h +Fw(common)e(blo)s(c)m(k)g(are)h(read,)472 2313 y(with)33 +b(the)g(exception)g(of)39 b Fq(MRLU\(6\))p Fw(.)0 2421 +y Fq(LFN)52 b(:)216 b Fw(\(logical)34 b(\014le)i(n)m(um)m(b)s(er\))g +(the)h(\014le)f(n)m(um)m(b)s(er)h(from)e(whic)m(h)i(the)f(state)h(is)f +(read.)55 b(Y)-8 b(ou)36 b(m)m(ust)472 2530 y(asso)s(ciate)i(this)f(n)m +(um)m(b)s(er)h(with)f(a)g(true)h(\014le)f(previously)h(written)g(with)f +(a)g Fq(RLUGET)i Fw(call,)472 2638 y(and)33 b(see)h(to)e(it)g(that)g +(this)g(\014le)g(is)g(op)s(en)h(for)f(read.)0 2746 y +Fq(MOVE)52 b(:)165 b Fw(p)s(ositioning)23 b(in)i(\014le)h(b)s(efore)g +(a)f(record)h(is)g(read.)41 b(With)25 b(zero)h(v)-5 b(alue,)27 +b(records)g(are)e(read)h(one)472 2855 y(after)f(the)g(other)h(for)e +(eac)m(h)i(new)g(call,)e(while)h(non-zero)f(v)-5 b(alues)25 +b(ma)m(y)g(b)s(e)g(used)h(to)f(na)m(vigate)472 2963 y(bac)m(k)34 +b(and)f(forth,)f(and)h(e.g.)43 b(return)33 b(to)g(the)g(same)f(initial) +d(state)k(sev)m(eral)g(times.)236 3071 y Fq(=)52 b(0)f(:)217 +b Fw(read)32 b(the)h(next)h(record.)236 3180 y Fq(=)52 +b Fw(+)p Fj(n)f Fq(:)134 b Fw(skip)32 b(ahead)h Fj(n)f +Fw(records)i(b)s(efore)e(reading)g(the)g(record)h(that)f(sets)i(the)e +(state)h(of)f(the)709 3288 y(random)f(n)m(um)m(b)s(er)i(generator.)236 +3396 y Fq(=)52 b Fn(\000)p Fj(n)g Fq(:)132 b Fw(bac)m(k)42 +b(up)g Fj(n)f Fw(records)h(b)s(efore)g(reading)e(the)i(record)g(that)f +(sets)i(the)e(state)h(of)f(the)709 3505 y(random)31 b(n)m(um)m(b)s(er)i +(generator.)p 0 3649 1748 9 v 0 3874 9 225 v 79 3789 +a Fq(COMMON/LUDATR/MRLU\(6\),RR)q(LU\(1)q(00\))p 1739 +3874 V 0 3882 1748 9 v 0 4019 a Fo(Purp)s(ose:)48 b Fw(to)e(con)m(tain) +g(the)h(state)h(of)e(the)h(random)f(n)m(um)m(b)s(er)h(generator)g(at)f +(an)m(y)h(momen)m(t)f(\(for)472 4128 y(comm)m(unication)c(b)s(et)m(w)m +(een)k Fq(RLU)p Fw(,)f Fq(RLUGET)h Fw(and)e Fq(RLUSET)p +Fw(\),)i(and)e(also)f(to)h(pro)m(vide)g(the)472 4236 +y(user)35 b(with)d(the)i(p)s(ossibilit)m(y)d(to)i(initialize)c +(di\013eren)m(t)34 b(random)e(n)m(um)m(b)s(er)i(sequences,)i(and)472 +4344 y(to)d(kno)m(w)g(ho)m(w)h(man)m(y)e(n)m(um)m(b)s(ers)i(ha)m(v)m(e) +g(b)s(een)f(generated.)0 4453 y Fq(MRLU\(1\))53 b(:)48 +b Fw(\(D=19780503\))30 b(the)j(in)m(teger)f(n)m(um)m(b)s(er)h(that)g +(sp)s(eci\014es)h(whic)m(h)f(of)f(the)h(p)s(ossible)f(subse-)472 +4561 y(quences)k(will)c(b)s(e)h(initialized)d(in)j(the)h(next)h +Fq(RLU)f Fw(call)e(for)h(whic)m(h)h Fq(MRLU\(2\)=0)p +Fw(.)49 b(Allo)m(w)m(ed)472 4669 y(v)-5 b(alues)24 b(are)f(0)p +Fn(\024)p Fq(MRLU\(1\))p Fn(\024)p Fw(900)16 b(000)g(000,)26 +b(the)e(original)c(Marsaglia)i(\(and)h(CERN)h(library\))472 +4778 y(seed)42 b(is)e(54217137.)64 b(The)41 b Fq(MRLU\(1\))h +Fw(v)-5 b(alue)40 b(is)g(not)g(c)m(hanged)h(b)m(y)g(an)m(y)g(of)f(the)h +Fm(Jetset)472 4886 y Fw(routines.)0 4994 y Fq(MRLU\(2\))53 +b(:)48 b Fw(\(D=0\))24 b(initialization)c(\015ag,)26 +b(put)g(to)f(1)g(in)f(the)i(\014rst)g Fq(RLU)g Fw(call)d(of)i(run.)41 +b(A)26 b(reinitialization)472 5103 y(of)g(the)h(random)e(n)m(um)m(b)s +(er)i(generator)f(can)h(b)s(e)g(made)e(in)h(mid-run)f(b)m(y)i +(resetting)h Fq(MRLU\(2\))472 5211 y Fw(to)j(0)g(b)m(y)i(hand.)43 +b(In)32 b(addition,)e(an)m(y)i(time)e(the)h(coun)m(ter)i +Fq(MRLU\(3\))g Fw(reac)m(hes)g(1000000000,)472 5319 y(it)f(is)g(reset)i +(to)e(0)g(and)h Fq(MRLU\(2\))h Fw(is)e(increased)i(b)m(y)f(1.)0 +5428 y Fq(MRLU\(3\))53 b(:)48 b Fw(\(D=0\))29 b(coun)m(ter)i(for)f(the) +g(n)m(um)m(b)s(er)h(of)f(random)f(n)m(um)m(b)s(ers)i(generated)g(from)e +(the)i(b)s(egin-)472 5536 y(ning)38 b(of)g(the)h(run.)62 +b(T)-8 b(o)39 b(a)m(v)m(oid)g(o)m(v)m(er\015o)m(w)h(when)g(v)m(ery)g +(man)m(y)e(n)m(um)m(b)s(ers)i(are)f(generated,)472 5644 +y Fq(MRLU\(2\))c Fw(is)d(used)i(as)e(describ)s(ed)i(ab)s(o)m(v)m(e.) +1841 5953 y(50)p eop +%%Page: 51 57 +51 56 bop 0 -18 a Fq(MRLU\(4\),)53 b(MRLU\(5\))h(:)47 +b(I97)26 b Fw(and)e Fq(J97)i Fw(of)e(the)h(CERN)h(library)d(implemen)m +(tation;)h(part)h(of)f(the)h(state)472 90 y(of)33 b(the)g(generator.)0 +198 y Fq(MRLU\(6\))53 b(:)48 b Fw(\(D=0\))40 b(curren)m(t)i(p)s +(osition,)f(i.e.)69 b(ho)m(w)41 b(man)m(y)g(records)h(after)f(b)s +(eginning,)h(in)e(the)i(\014le;)472 307 y(used)34 b(b)m(y)h +Fq(RLUGET)f Fw(and)f Fq(RLUSET)p Fw(.)0 415 y Fq(RRLU\(1\))53 +b(-)f(RRLU\(97\))h(:)48 b Fw(the)43 b Fq(U)g Fw(arra)m(y)g(of)g(the)g +(CERN)g(library)f(implemen)m(tation;)j(part)e(of)f(the)472 +523 y(state)33 b(of)g(the)g(generator.)0 632 y Fq(RRLU\(98\))53 +b(-)f(RRLU\(100\))i(:)47 b(C)p Fw(,)39 b Fq(CD)g Fw(and)g +Fq(CM)g Fw(of)f(the)h(CERN)g(library)e(implemen)m(tation;)i(the)g +(\014rst)472 740 y(part)f(of)f(the)h(state)g(of)f(the)h(generator,)i +(the)e(latter)e(t)m(w)m(o)j(constan)m(ts)g(calculated)d(at)i(ini-)472 +848 y(tialization.)1841 5953 y(51)p eop +%%Page: 52 58 +52 57 bop 0 -18 a Ft(5)161 b(The)53 b(Ev)l(en)l(t)f(Record)0 +189 y Fw(The)39 b(ev)m(en)m(t)h(record)e(is)g(the)g(cen)m(tral)g(rep)s +(ository)g(for)g(information)c(ab)s(out)k(the)g(particles)g(pro)s +(duced)0 297 y(in)33 b(the)h(curren)m(t)h(ev)m(en)m(t:)48 +b(\015a)m(v)m(ours,)35 b(momen)m(ta,)e(ev)m(en)m(t)j(history)-8 +b(,)34 b(and)g(pro)s(duction)f(v)m(ertices.)48 b(It)34 +b(pla)m(ys)0 405 y(a)e(v)m(ery)i(cen)m(tral)e(r^)-49 +b(ole:)42 b(without)32 b(a)g(prop)s(er)h(understanding)f(of)g(what)h +(the)f(record)h(is)f(and)g(ho)m(w)h(infor-)0 514 y(mation)j(is)h +(stored,)j(it)c(is)i(meaningless)e(to)i(try)g(to)f(use)i(either)e +Fm(Jetset)g Fw(or)g Fm(Pythia)p Fw(.)59 b(The)39 b(record)0 +622 y(is)34 b(stored)h(in)e(the)i(common)e(blo)s(c)m(k)h +Fq(LUJETS)p Fw(.)h(Almost)e(all)f(the)j(routines)f(thatthe)h(user)g +(calls)e(can)h(b)s(e)0 730 y(view)m(ed)d(as)g(p)s(erforming)d(some)i +(action)f(on)h(the)h(record:)42 b(\014ll)29 b(a)h(new)h(ev)m(en)m(t,)i +(let)c(partons)h(fragmen)m(t)g(or)0 839 y(particles)i(deca)m(y)-8 +b(,)34 b(b)s(o)s(ost)e(it,)f(list)h(it,)f(\014nd)i(clusters,)h(etc.)146 +947 y(In)42 b(this)g(section)g(w)m(e)g(will)e(\014rst)i(describ)s(e)g +(the)g(KF)f(\015a)m(v)m(our)i(co)s(de,)h(subsequen)m(tly)h(the)d +Fq(LUJETS)0 1055 y Fw(common)35 b(blo)s(c)m(k,)h(and)h(then)f(giv)m(e)g +(a)g(few)g(commen)m(ts)g(ab)s(out)g(the)g(r^)-49 b(ole)35 +b(of)h(the)g(ev)m(en)m(t)i(record)f(in)e(the)0 1164 y(programs.)146 +1272 y(T)-8 b(o)28 b(ease)g(the)f(in)m(terfacing)f(of)h(di\013eren)m(t) +h(ev)m(en)m(t)h(generators,)f(a)f Fq(HEPEVT)i Fw(standard)f(common)e +(blo)s(c)m(k)0 1380 y(structure)42 b(for)e(the)h(ev)m(en)m(t)h(record)f +(has)g(b)s(een)g(agreed)g(on.)68 b(F)-8 b(or)39 b(historical)g(reasons) +i(the)g(standard)0 1489 y(common)28 b(blo)s(c)m(ks)i(are)g(not)f +(directly)g(used)i(in)e Fm(Jetset)p Fw(,)g(but)h(a)f(con)m(v)m(ersion)i +(routine)e(comes)h(with)f(the)0 1597 y(program,)i(and)i(is)f(describ)s +(ed)h(at)g(the)g(end)g(of)f(this)g(section.)0 1871 y +Fp(5.1)135 b(P)l(article)47 b(Co)t(des)0 2044 y Fw(The)30 +b(new)g(particle)d(co)s(de)i(no)m(w)h(adopted)f(b)m(y)h(the)f(P)m +(article)f(Data)g(Group)g([PDG88)o(,)h(PDG92)o(])g(is)f(used)0 +2152 y(consisten)m(tly)41 b(throughout)f(the)h(program,)g(and)g(is)f +(referred)h(to)f(as)h(the)g(KF)f(particle)f(co)s(de.)67 +b(This)0 2260 y(co)s(de)33 b(y)m(ou)g(ha)m(v)m(e)h(to)e(b)s(e)h +(thoroughly)f(familiar)c(with.)43 b(It)33 b(is)f(describ)s(ed)i(b)s +(elo)m(w.)146 2369 y(Note)29 b(that)f(a)g(few)i(inconsistencies)e(b)s +(et)m(w)m(een)j(the)e(KF)f(and)h(the)f(PDG)g(co)s(des)i(are)e(kno)m +(wn,)j(whic)m(h)0 2477 y(stem)k(from)f(di\013erences)j(of)e(in)m +(terpretation)f(of)h(the)g(rules)h(agreed)f(on)g(when)i(dev)m(eloping)e +(the)h(stan-)0 2585 y(dard.)51 b(These)37 b(rules)f(form)d(the)j(basis) +f(of)g(the)h(PDG)e(tables)h(and)g(\(indep)s(enden)m(tly\))h(of)f(the)h +Fm(Jetset)0 2694 y Fw(tables.)65 b(\(Of)39 b(course,)k(m)m(y)d(priv)-5 +b(ate)39 b(opinion)f(is)i(that)f(I)h(follo)m(w)e(the)j(original)36 +b(agreemen)m(t,)42 b(and)e(the)0 2802 y(PDG)31 b(deviate)g(from)f +(it.\))42 b(Hop)s(efully)-8 b(,)30 b(this)h(should)g(ha)m(v)m(e)i(few)f +(practical)d(consequences,)35 b(since)d(only)0 2910 y(rarely-pro)s +(duced)h(particles)e(are)i(a\013ected.)44 b(An)m(yw)m(a)m(y)-8 +b(,)35 b(here)e(is)g(a)f(list)f(of)h(the)h(kno)m(wn)h(discrepancies:) +119 3023 y(1.)49 b(The)37 b(PDG)e(has)h(not)g(allo)m(w)m(ed)f(for)g +(the)h(existence)h(of)f(an)f Fj(\021)2447 3038 y Fl(b)2491 +3023 y Fw(,)i(whic)m(h)f(in)f Fm(Jetset)g Fw(is)g(included)244 +3132 y(with)24 b(co)s(de)i(551.)40 b(This)25 b(co)s(de)g(is)g(reserv)m +(ed)i(for)e Fj(\037)1988 3147 y Fl(0b)2091 3132 y Fw(b)m(y)h(the)g +(PDG,)e(a)h(particle)e(whic)m(h)j(app)s(ears)f(as)244 +3240 y(10551)g(in)i Fm(Jetset)p Fw(.)40 b(\(W)-8 b(e)27 +b(agree)g(to)g(ha)m(v)m(e)h Fj(\021)1852 3255 y Fl(c)1914 +3240 y Fw(as)f(441,)g(whic)m(h)h(illustrates)d(the)i(basic)g +(di\013erence:)244 3348 y(I)46 b(use)i(the)f(additional)c(recurrence)48 +b(\014gure)f(to)f(refer)h(to)f(a)g(whole)g(m)m(ultiplet,)i(whether)g +(all)244 3457 y(particles)39 b(of)h(that)g(m)m(ultiplet)e(ha)m(v)m(e)k +(b)s(een)f(found)f(or)g(not;)k(the)d(PDG,)f(on)g(the)h(other)f(hand,) +244 3565 y(do)s(es)29 b(not)f(reserv)m(e)j(space)f(for)e(particles)f +(whic)m(h)j(w)m(e)f(kno)m(w)h(should)e(b)s(e)h(there)g(but)g(ha)m(v)m +(e)h(not)e(y)m(et)244 3673 y(b)s(een)33 b(disco)m(v)m(ered,)i(whic)m(h) +e(means)f(that)h(mem)m(b)s(ers)f(of)g(a)g(m)m(ultiplet)f(need)i(not)g +(go)f(together.\))119 3791 y(2.)49 b(The)26 b(PDG)e(has)h(not)g(allo)m +(w)m(ed)g(for)f(the)h(existence)i(of)d(an)h(h)2345 3806 +y Fl(1c)2416 3791 y Fw(,)i(whic)m(h)e(in)g Fm(Jetset)e +Fw(is)i(represen)m(ted)244 3900 y(b)m(y)37 b(10443.)53 +b(Therefore)37 b Fj(\037)1214 3915 y Fl(1c)1321 3900 +y Fw(is)e(the)i(PDG)e(co)s(de)i(10443)e(but)h Fm(Jetset)f +Fw(co)s(de)i(20443.)52 b(F)-8 b(urther)244 4008 y Fj( )311 +3972 y Fk(0)370 4008 y Fw(is)35 b(either)h(20443)f(or)g(30443,)h(and)g +(\007)1730 3972 y Fk(0)1786 4008 y Fw(=)e(\007\(2)p Fj(S)6 +b Fw(\))35 b(either)g(20553)g(or)h(30553.)52 b(\(Commen)m(t)35 +b(as)244 4116 y(for)d(p)s(oin)m(t)g(1.\))119 4234 y(3.)49 +b(Di\013eren)m(t)32 b(con)m(v)m(en)m(tions)j(for)d(spin)h(1)p +Fj(=)p Fw(2)g(bary)m(ons)h(with)e(one)i(hea)m(vy)g(\015a)m(v)m(our)g +(\(c)m(harm,)f(b)s(ottom,)244 4342 y(top\),)e(one)g(strange)g(\015a)m +(v)m(our,)h(and)f(one)g(ligh)m(t)e(\(u)h(or)h(d\).)43 +b(Here)31 b(t)m(w)m(o)h(states)f(exist,)h(e.g.)43 b(\004)3533 +4306 y Fl(+)3533 4367 y(c)3622 4342 y Fw(and)244 4451 +y(\004)309 4415 y Fk(0)p Fl(+)309 4475 y(c)387 4451 y +Fw(,)c(b)s(oth)e(with)g(\015a)m(v)m(our)i(con)m(ten)m(t)f(csu.)60 +b(By)38 b(analogy)e(with)h(the)h(\003)2807 4415 y Fl(0)2846 +4451 y Fw({\006)g(pair,)g Fm(Jetset)e Fw(uses)244 4559 +y(the)i(decreasing)g(order)g(of)g(\015a)m(v)m(our)g(con)m(ten)m(t)i +(for)d(the)h(hea)m(vier)g(state)h(and)f(in)m(v)m(ersed)h(order)f(of)244 +4667 y(the)31 b(t)m(w)m(o)h(ligh)m(ter)e(\015a)m(v)m(ours)i(for)f(the)h +(ligh)m(ter)d(state,)j(while)e(the)i(PDG)e(tables)h(use)h(the)g(opp)s +(osite)244 4776 y(con)m(v)m(en)m(tion.)44 b(Th)m(us)33 +b(in)d Fm(Jetset)g Fw(\004)1554 4740 y Fl(+)1554 4800 +y(c)1645 4776 y Fw(is)g(4232)g(and)i(\004)2221 4740 y +Fk(0)p Fl(+)2221 4800 y(c)2330 4776 y Fw(4322,)f(while)f(in)g(PDG)h(it) +f(is)h(the)g(other)244 4884 y(w)m(a)m(y)j(around.)0 4997 +y(There)i(are)f(no)f(plans)h(to)f(c)m(hange)i(the)f Fm(Jetset)f +Fw(rules)h(to)f(agree)h(with)f(the)i(PDG)e(ones)h(in)f(either)h(of)0 +5106 y(the)e(cases)h(ab)s(o)m(v)m(e.)146 5214 y(The)42 +b(KF)e(co)s(de)i(is)e(not)h(con)m(v)m(enien)m(t)h(for)f(a)f(direct)h +(storing)f(of)g(masses,)k(deca)m(y)e(data,)h(or)d(other)0 +5322 y(particle)30 b(prop)s(erties,)i(since)g(the)g(KF)f(co)s(des)h +(are)f(so)h(spread)h(out.)43 b(Instead)32 b(a)f(compressed)i(co)s(de)f +(K)m(C)0 5431 y(b)s(et)m(w)m(een)h(1)d(and)h(500)f(is)g(used)i(here,)g +(where)g(the)f(most)f(frequen)m(tly)i(used)f(particles)f(ha)m(v)m(e)i +(a)f(separate)0 5539 y(co)s(de,)e(but)e(man)m(y)g(hea)m(vy-\015a)m(v)m +(our)i(hadrons)e(are)g(lump)s(ed)f(together)i(in)e(groups.)42 +b(Normally)24 b(this)j(co)s(de)0 5647 y(is)j(only)f(used)j(at)d(v)m +(ery)j(sp)s(eci\014c)f(places)f(in)f(the)i(program,)e(not)h(visible)f +(to)h(the)g(user.)44 b(If)30 b(need)h(b)s(e,)g(the)1841 +5953 y(52)p eop +%%Page: 53 59 +53 58 bop 1151 34 a Fw(T)-8 b(able)32 b(3:)44 b(Quark)32 +b(and)h(lepton)f(co)s(des.)p 877 160 2025 4 v 875 281 +4 121 v 927 248 a(KF)p 1115 281 V 99 w(Name)p 1461 281 +V 99 w(Prin)m(ted)p 1879 281 V 1896 281 V 117 w(KF)p +2135 281 V 99 w(Name)p 2481 281 V 99 w(Prin)m(ted)p 2899 +281 V 877 284 2025 4 v 875 404 4 121 v 973 372 a(1)p +1115 404 V 240 w(d)p 1461 404 V 330 w Fq(d)p 1879 404 +V 1896 404 V 271 w Fw(11)p 2135 404 V 192 w(e)2301 336 +y Fk(\000)p 2481 404 V 2640 372 a Fq(e-)p 2899 404 V +875 525 V 973 492 a Fw(2)p 1115 525 V 240 w(u)p 1461 +525 V 330 w Fq(u)p 1879 525 V 1896 525 V 271 w Fw(12)p +2135 525 V 202 w Fj(\027)2316 507 y Fl(e)p 2481 525 V +2596 492 a Fq(nu)p 2704 492 31 4 v 38 w(e)p 2899 525 +4 121 v 875 645 V 973 613 a Fw(3)p 1115 645 V 248 w(s)p +1461 645 V 338 w Fq(s)p 1879 645 V 1896 645 V 271 w Fw(13)p +2135 645 V 185 w Fj(\026)2310 576 y Fk(\000)p 2481 645 +V 2615 613 a Fq(mu-)p 2899 645 V 875 765 V 973 733 a +Fw(4)p 1115 765 V 246 w(c)p 1461 765 V 335 w Fq(c)p 1879 +765 V 1896 765 V 271 w Fw(14)p 2135 765 V 196 w Fj(\027)2310 +748 y Fh(\026)p 2481 765 V 2571 733 a Fq(nu)p 2679 733 +31 4 v 37 w(mu)p 2899 765 4 121 v 875 886 V 973 853 a +Fw(5)p 1115 886 V 240 w(b)p 1461 886 V 330 w Fq(b)p 1879 +886 V 1896 886 V 271 w Fw(15)p 2135 886 V 187 w Fj(\034)2306 +817 y Fk(\000)p 2481 886 V 2589 853 a Fq(tau-)p 2899 +886 V 875 1006 V 973 974 a Fw(6)p 1115 1006 V 249 w(t)p +1461 1006 V 337 w Fq(t)p 1879 1006 V 1896 1006 V 271 +w Fw(16)p 2135 1006 V 198 w Fj(\027)2312 989 y Fh(\034)p +2481 1006 V 2545 974 a Fq(nu)p 2653 974 31 4 v 37 w(tau)p +2899 1006 4 121 v 875 1127 V 973 1094 a Fw(7)p 1115 1127 +V 254 w(l)p 1461 1127 V 342 w Fq(l)p 1879 1127 V 1896 +1127 V 271 w Fw(17)p 2135 1127 V 183 w Fj(\037)2310 1058 +y Fk(\000)p 2481 1127 V 2589 1094 a Fq(chi-)p 2899 1127 +V 875 1247 V 973 1214 a Fw(8)p 1115 1247 V 240 w(h)p +1461 1247 V 330 w Fq(h)p 1879 1247 V 1896 1247 V 271 +w Fw(18)p 2135 1247 V 195 w Fj(\027)2309 1229 y Fh(\037)p +2481 1247 V 2545 1214 a Fq(nu)p 2653 1214 31 4 v 37 w(chi)p +2899 1247 4 121 v 875 1367 V 973 1335 a Fw(9)p 1115 1367 +V 1461 1367 V 1879 1367 V 1896 1367 V 946 w(19)p 2135 +1367 V 2481 1367 V 2899 1367 V 875 1488 V 948 1455 a(10)p +1115 1488 V 1461 1488 V 1879 1488 V 1896 1488 V 922 w(20)p +2135 1488 V 2481 1488 V 2899 1488 V 877 1491 2025 4 v +0 1761 a(corresp)s(ondence)g(can)e(alw)m(a)m(ys)g(b)s(e)f(obtained)g(b) +m(y)i(using)e(the)h(function)f Fq(LUCOMP)p Fw(,)i Fq(KC)52 +b(=)g(LUCOMP\(KF\))r Fw(.)0 1870 y(It)38 b(is)f(therefore)h(not)f(in)m +(tended)h(that)f(y)m(ou)h(should)g(ev)m(er)h(need)f(to)f(kno)m(w)i(an)m +(y)f(K)m(C)g(co)s(des)g(at)f(all.)56 b(It)0 1978 y(ma)m(y)32 +b(b)s(e)h(useful)g(to)f(kno)m(w,)i(ho)m(w)m(ev)m(er,)h(that)d(for)g(co) +s(des)i(smaller)c(than)j(80,)f(KF)g(and)h(K)m(C)g(agree.)146 +2086 y(The)25 b(particle)e(names)h(prin)m(ted)g(in)f(the)i(tables)e(in) +h(this)f(section)h(corresp)s(ond)h(to)f(the)g(ones)h(obtained)0 +2195 y(with)45 b(the)h(routine)e Fq(LUNAME)p Fw(,)j(whic)m(h)f(is)f +(used)h(extensiv)m(ely)-8 b(,)50 b(e.g.)82 b(in)44 b +Fq(LULIST)p Fw(.)j(Greek)f(c)m(haracters)0 2303 y(are)41 +b(sp)s(elt)g(out)f(in)g(full,)i(with)e(a)h(capital)e(\014rst)i(letter)g +(to)f(corresp)s(ond)i(to)f(a)f(capital)f(Greek)j(letter.)0 +2411 y(Generically)31 b(the)i(name)f(of)g(a)g(particle)g(is)g(made)g +(up)h(of)f(the)h(follo)m(wing)d(pieces:)119 2525 y(1.)49 +b(The)38 b(basic)f(ro)s(ot)f(name.)57 b(This)37 b(includes)g(a)g(*)g +(for)f(most)h(spin)g(1)g(\()p Fj(L)f Fw(=)f(0\))i(mesons)g(and)h(spin) +244 2633 y(3)p Fj(=)p Fw(2)f(bary)m(ons,)j(and)e(a)1106 +2597 y Fk(0)1167 2633 y Fw(for)g(some)f(spin)h(1)p Fj(=)p +Fw(2)f(bary)m(ons)i(\(where)g(there)f(are)g(t)m(w)m(o)g(states)h(to)e +(b)s(e)244 2741 y(distinguished,)27 b(cf.)42 b(\003{\006)1187 +2705 y Fl(0)1226 2741 y Fw(\).)g(The)27 b(rules)g(for)f(hea)m(vy)j +(bary)m(on)e(naming)e(are)i(in)f(accordance)i(with)244 +2850 y(the)38 b(1986)e(P)m(article)h(Data)f(Group)h(con)m(v)m(en)m +(tions)i([PDG86)o(].)59 b(F)-8 b(or)36 b(mesons)i(with)f(one)h(unit)f +(of)244 2958 y(orbital)28 b(angular)g(momen)m(tum,)h(K)h(\(D,)f(B,)h(.) +16 b(.)g(.)g(\))44 b(is)29 b(used)i(for)f(quark-spin)g(0)f(and)h(K*)g +(\(D*,)g(B*,)244 3066 y(.)16 b(.)g(.)g(\))45 b(for)33 +b(quark-spin)g(1)g(mesons;)g(the)h(con)m(v)m(en)m(tion)g(for)e(`*')h +(ma)m(y)g(here)g(deviate)g(sligh)m(tly)f(from)244 3175 +y(the)h(one)g(used)g(b)m(y)h(the)f(PDG.)119 3292 y(2.)49 +b(An)m(y)38 b(lo)m(w)m(er)g(indices,)g(separated)g(from)e(the)i(ro)s +(ot)e(b)m(y)i(a)p 2367 3292 30 4 v 72 w(.)58 b(F)-8 b(or)36 +b(hea)m(vy)j(hadrons,)g(this)e(is)g(the)244 3401 y(additional)30 +b(hea)m(vy-\015a)m(v)m(our)k(con)m(ten)m(t)g(not)f(inheren)m(t)g(in)f +(the)h(ro)s(ot)f(itself.)43 b(F)-8 b(or)32 b(a)g(diquark,)h(it)f(is)244 +3509 y(the)h(spin.)119 3627 y(3.)49 b(The)32 b(c)m(haracter)f +Fn(\030)g Fw(\(alternativ)m(ely)f(bar,)h(see)g Fq(MSTU\(15\))p +Fw(\))i(for)d(an)h(an)m(tiparticle,)e(wherev)m(er)k(the)244 +3735 y(distinction)f(b)s(et)m(w)m(een)k(particle)d(and)h(an)m +(tiparticle)e(is)h(not)h(inheren)m(t)g(in)f(the)i(c)m(harge)f(informa-) +244 3844 y(tion.)119 3961 y(4.)49 b(Charge)22 b(information:)35 +b(++,)24 b(+,)g(0,)g Fn(\000)p Fw(,)g(or)e Fn(\000\000)p +Fw(.)40 b(Charge)23 b(is)e(not)h(giv)m(en)g(for)f(quarks)i(or)f +(diquarks.)244 4070 y(Some)40 b(neutral)f(particles)g(whic)m(h)i(are)f +(customarily)f(giv)m(en)h(without)g(a)f(0)h(also)f(here)i(lac)m(k)f +(it,)244 4178 y(suc)m(h)h(as)f(neutrinos,)h(g)q(,)g Fj(\015)5 +b Fw(,)42 b(and)d(\015a)m(v)m(our-diagonal)f(mesons)i(other)f(than)h +Fj(\031)3120 4142 y Fl(0)3199 4178 y Fw(and)f Fj(\032)3445 +4142 y Fl(0)3485 4178 y Fw(.)64 b(Note)244 4286 y(that)35 +b(c)m(harge)g(is)g(included)f(b)s(oth)h(for)g(the)g(proton)g(and)g(the) +g(neutron.)51 b(While)34 b(non-standard,)244 4395 y(it)d(is)i(helpful)e +(in)h(a)m(v)m(oiding)f(misunderstandings)i(when)g(lo)s(oking)e(at)h(an) +h(ev)m(en)m(t)h(listing.)146 4508 y(Belo)m(w)i(follo)m(ws)f(a)g(list)f +(of)i(KF)f(particle)f(co)s(des.)54 b(The)37 b(list)d(is)i(not)f +(complete;)i(a)e(more)g(extensiv)m(e)0 4616 y(one)42 +b(ma)m(y)f(b)s(e)h(obtained)e(with)i Fq(CALL)52 b(LULIST\(11\))p +Fw(.)73 b(P)m(articles)41 b(are)g(group)s(ed)h(together,)i(and)d(the)0 +4724 y(basic)i(rules)f(are)h(describ)s(ed)h(for)e(eac)m(h)i(group.)74 +b(Whenev)m(er)45 b(a)d(distinct)g(an)m(tiparticle)f(exists,)46 +b(it)c(is)0 4833 y(giv)m(en)33 b(the)g(same)f(KF)g(co)s(de)h(with)f(a)h +(min)m(us)f(sign)g(\(whereas)i(K)m(C)f(co)s(des)g(are)g(alw)m(a)m(ys)g +(p)s(ositiv)m(e\).)119 4951 y(1.)49 b(Quarks)33 b(and)g(leptons,)f(T)-8 +b(able)33 b(3.)244 5059 y(This)48 b(group)g(con)m(tains)h(the)f(basic)g +(building)e(blo)s(c)m(ks)j(of)f(matter,)j(arranged)d(according)g(to)244 +5167 y(family)-8 b(,)43 b(with)g(the)h(lo)m(w)m(er)f(mem)m(b)s(er)g(of) +f(w)m(eak)j(iso)s(doublets)d(also)g(ha)m(ving)h(the)h(smaller)d(co)s +(de)244 5276 y(\(th)m(us)29 b(d)g(precedes)i(u,)e(con)m(trary)g(to)f +(the)h(ordering)f(in)g(previous)h Fm(Jetset)e Fw(v)m(ersions\).)43 +b(A)29 b(fourth)244 5384 y(generation)38 b(is)h(included)g(for)f +(future)i(reference.)65 b(The)40 b(quark)g(co)s(des)g(are)f(used)h(as)g +(building)244 5492 y(blo)s(c)m(ks)33 b(for)f(the)h(diquark,)g(meson)f +(and)h(bary)m(on)g(co)s(des)g(b)s(elo)m(w.)119 5610 y(2.)49 +b(Gauge)32 b(b)s(osons)h(and)g(other)g(fundamen)m(tal)e(b)s(osons,)i(T) +-8 b(able)33 b(4.)1841 5953 y(53)p eop +%%Page: 54 60 +54 59 bop 610 34 a Fw(T)-8 b(able)32 b(4:)43 b(Gauge)32 +b(b)s(oson)h(and)g(other)f(fundamen)m(tal)g(b)s(oson)h(co)s(des.)p +793 160 2195 4 v 791 281 4 121 v 843 248 a(KF)p 1030 +281 V 99 w(Name)p 1376 281 V 119 w(Prin)m(ted)p 1835 +281 V 1852 281 V 137 w(KF)p 2091 281 V 99 w(Name)p 2437 +281 V 164 w(Prin)m(ted)p 2983 281 V 793 284 2195 4 v +791 404 4 121 v 864 372 a(21)p 1030 404 V 218 w(g)p 1376 +404 V 353 w Fq(g)p 1835 404 V 1852 404 V 291 w Fw(31)p +2091 404 V 2437 404 V 2983 404 V 791 525 V 864 492 a(22)p +1030 525 V 215 w Fj(\015)p 1376 525 V 251 w Fq(gamma)p +1835 525 V 1852 525 V 190 w Fw(32)p 2091 525 V 184 w(Z)2266 +456 y Fk(0)p Fl(0)p 2437 525 V 2635 492 a Fq(Z'0)p 2983 +525 V 791 645 V 864 613 a Fw(23)p 1030 645 V 193 w(Z)1215 +576 y Fl(0)p 1376 645 V 1556 613 a Fq(Z0)p 1835 645 V +1852 645 V 266 w Fw(33)p 2091 645 V 175 w(Z)2257 576 +y Fk(00)p Fl(0)p 2437 645 V 2635 613 a Fq(Z"0)p 2983 +645 V 791 765 V 864 733 a Fw(24)p 1030 765 V 163 w(W)1226 +697 y Fl(+)p 1376 765 V 1556 733 a Fq(W+)p 1835 765 V +1852 765 V 266 w Fw(34)p 2091 765 V 153 w(W)2276 697 +y Fk(0)p Fl(+)p 2437 765 V 2635 733 a Fq(W'+)p 2983 765 +V 791 886 V 864 853 a Fw(25)p 1030 886 V 187 w(H)1222 +817 y Fl(0)p 1376 886 V 1556 853 a Fq(H0)p 1835 886 V +1852 886 V 266 w Fw(35)p 2091 886 V 178 w(H)2273 817 +y Fk(0)p Fl(0)p 2437 886 V 2635 853 a Fq(H'0)p 2983 886 +V 791 1006 V 864 974 a Fw(26)p 1030 1006 V 1376 1006 +V 1835 1006 V 1852 1006 V 962 w(36)p 2091 1006 V 187 +w(A)2282 938 y Fl(0)p 2437 1006 V 2661 974 a Fq(A0)p +2983 1006 V 791 1127 V 864 1094 a Fw(27)p 1030 1127 V +1376 1127 V 1835 1127 V 1852 1127 V 962 w(37)p 2091 1127 +V 177 w(H)2272 1058 y Fl(+)p 2437 1127 V 2661 1094 a +Fq(H+)p 2983 1127 V 791 1247 V 864 1214 a Fw(28)p 1030 +1247 V 198 w(I)-17 b(R)p 1376 1247 V 178 w Fq(reggeon)p +1835 1247 V 1852 1247 V 139 w Fw(38)p 2091 1247 V 124 +w Fj(\021)2194 1229 y Fl(tec)n(hni)p 2437 1247 V 2488 +1214 a Fq(eta)p 2647 1214 31 4 v 38 w(tech0)p 2983 1247 +4 121 v 791 1367 V 864 1335 a Fw(29)p 1030 1367 V 200 +w(I)g(P)p 1376 1367 V 182 w Fq(pomeron)p 1835 1367 V +1852 1367 V 139 w Fw(39)p 2091 1367 V 183 w(L)2266 1350 +y Fl(Q)p 2437 1367 V 2661 1335 a Fq(LQ)p 2983 1367 V +791 1488 V 864 1455 a Fw(30)p 1030 1488 V 1376 1488 V +1835 1488 V 1852 1488 V 962 w(40)p 2091 1488 V 188 w(R)2282 +1419 y Fl(0)p 2437 1488 V 2661 1455 a Fq(R0)p 2983 1488 +V 793 1491 2195 4 v 244 1747 a Fw(This)34 b(group)f(includes)h(all)e +(the)i(gauge)g(and)g(Higgs)f(b)s(osons)h(of)f(the)h(standard)h(mo)s +(del,)d(as)i(w)m(ell)244 1855 y(as)44 b(some)h(of)e(the)i(b)s(osons)g +(app)s(earing)e(in)h(v)-5 b(arious)43 b(extensions)j(of)e(it.)78 +b(The)45 b(latter)e(are)i(not)244 1963 y(co)m(v)m(ered)e(b)m(y)f(the)g +(standard)f(PDG)g(co)s(des.)70 b(They)42 b(corresp)s(ond)g(to)f(one)h +(extra)f Fo(U\(1\))g Fw(group)244 2072 y(and)35 b(one)h(extra)g +Fo(SU\(2\))e Fw(one,)j(a)e(further)g(Higgs)g(doublet,)h(a)f(\(scalar,)g +(colour)f(o)s(ctet\))i(tec)m(hni-)244 2180 y Fj(\021)t +Fw(,)48 b(a)d(\(scalar\))g(lepto)s(quark)g(L)1395 2195 +y Fl(Q)1454 2180 y Fw(,)j(and)e(a)f(horizon)m(tal)e(gauge)i(b)s(oson)h +(R)f(\(coupling)e(b)s(et)m(w)m(een)244 2288 y(families\).)k +(Additionally)-8 b(,)33 b(w)m(e)j(here)g(include)e(the)i(p)s(omeron)e +(I)-17 b(P)36 b(and)f(reggeon)g(I)-17 b(R)35 b(`particles',)244 +2397 y(whic)m(h)41 b(are)f(imp)s(ortan)m(t)e(e.g.)67 +b(in)39 b(the)i(description)f(of)g(di\013ractiv)m(e)f(scattering,)j +(but)f(ha)m(v)m(e)h(no)244 2505 y(ob)m(vious)33 b(p)s(osition)d(an)m +(ywhere)35 b(in)d(the)h(classi\014cation)e(sc)m(heme.)119 +2623 y(3.)49 b(F)-8 b(ree)33 b(space.)244 2731 y(The)42 +b(p)s(ositions)d(41{80)h(are)h(curren)m(tly)h(un)m(used.)70 +b(In)42 b(the)f(future,)j(they)d(migh)m(t)f(come)h(to)f(b)s(e)244 +2839 y(used,)46 b(e.g.)75 b(for)42 b(sup)s(ersymmetric)h(partners)g(of) +g(the)g(particles)f(ab)s(o)m(v)m(e,)k(or)c(for)h(some)f(other)244 +2948 y(kind)32 b(of)g(new)i(ph)m(ysics.)45 b(A)m(t)33 +b(the)g(momen)m(t,)f(they)h(are)g(at)f(y)m(our)h(disp)s(osal.)119 +3066 y(4.)49 b(V)-8 b(arious)32 b(sp)s(ecial)f(co)s(des,)j(T)-8 +b(able)32 b(5.)244 3174 y(In)38 b(a)g(Mon)m(te)h(Carlo,)g(it)e(is)h +(alw)m(a)m(ys)h(necessary)h(to)e(ha)m(v)m(e)i(co)s(des)f(that)f(do)g +(not)g(corresp)s(ond)h(to)244 3282 y(an)m(y)f(sp)s(eci\014c)g +(particle,)f(but)g(are)h(used)g(to)f(lump)f(together)h(groups)h(of)f +(similar)d(particles)i(for)244 3391 y(deca)m(y)41 b(treatmen)m(t,)h(or) +e(to)f(sp)s(ecify)i(generic)f(deca)m(y)h(pro)s(ducts.)67 +b(These)42 b(co)s(des,)g(whic)m(h)f(again)244 3499 y(are)31 +b(non-standard,)g(are)g(found)g(b)s(et)m(w)m(een)i(n)m(um)m(b)s(ers)f +(81)e(and)h(100.)42 b(Sev)m(eral)32 b(are)f(not)f(found)h(in)244 +3607 y(the)i(ev)m(en)m(t)h(record,)f(and)g(therefore)g(prop)s(erly)g(b) +s(elong)e(only)h(to)g(the)h(K)m(C)h(group)e(of)g(co)s(des.)119 +3725 y(5.)49 b(Diquark)32 b(co)s(des,)h(T)-8 b(able)33 +b(6.)244 3833 y(A)j(diquark)g(made)g(up)g(of)g(a)g(quark)g(with)g(co)s +(de)h Fj(i)f Fw(and)g(another)g(with)g(co)s(de)g Fj(j)6 +b Fw(,)37 b(where)g Fj(i)d Fn(\025)g Fj(j)6 b Fw(,)244 +3942 y(and)33 b(with)f(total)f(spin)h Fj(s)p Fw(,)h(is)f(giv)m(en)h +(the)g(co)s(de)1384 4124 y(KF)27 b(=)h(1000)p Fj(i)21 +b Fw(+)h(100)p Fj(j)28 b Fw(+)22 b(2)p Fj(s)g Fw(+)g(1)32 +b Fj(;)967 b Fw(\(16\))244 4306 y(i.e.)51 b(the)36 b(tens)g(p)s +(osition)d(is)i(left)g(empt)m(y)g(\(cf.)52 b(the)36 b(bary)m(on)g(co)s +(de)f(b)s(elo)m(w\).)52 b(Some)35 b(of)f(the)i(most)244 +4414 y(frequen)m(tly)47 b(used)g(co)s(des)g(are)f(listed)f(in)g(the)h +(table.)83 b(All)44 b(the)j(lo)m(w)m(est-lying)d(spin)i(0)g(and)g(1)244 +4522 y(diquarks)33 b(are)g(included)f(in)g(the)h(program.)244 +4636 y(The)g(corresp)s(onding)g(K)m(C)g(co)s(de)g(is)f(90,)g(and)h(it)e +(is)h(mainly)f(used)j(to)e(store)h(colour)f(c)m(harge.)119 +4753 y(6.)49 b(Meson)34 b(co)s(des,)f(T)-8 b(ables)33 +b(7)f(and)h(8.)244 4862 y(A)38 b(meson)h(made)f(up)g(of)g(a)g(quark)i +(with)e(co)s(de)g Fj(i)h Fw(and)f(an)h(an)m(tiquark)f(with)g(co)s(de)h +Fn(\000)p Fj(j)6 b Fw(,)40 b Fj(j)k Fn(6)p Fw(=)37 b +Fj(i)p Fw(,)244 4970 y(and)c(with)f(total)f(spin)h Fj(s)p +Fw(,)h(is)f(giv)m(en)h(the)g(co)s(de)467 5162 y(KF)27 +b(=)g Fn(f)p Fw(100)17 b(max)o(\()p Fj(i;)g(j)6 b Fw(\))22 +b(+)g(10)17 b(min)m(\()p Fj(i;)g(j)6 b Fw(\))22 b(+)g(2)p +Fj(s)g Fw(+)g(1)p Fn(g)33 b Fw(sign\()p Fj(i)22 b Fn(\000)h +Fj(j)6 b Fw(\))17 b(\()p Fn(\000)p Fw(1\))3058 5121 y +Fl(max)o(\()p Fh(i;j)t Fl(\))3356 5162 y Fj(:)223 b Fw(\(17\))244 +5344 y(Note)24 b(the)h(presence)h(of)e(an)g(extra)g Fn(\000)h +Fw(sign)e(if)g(the)i(hea)m(viest)g(quark)g(is)e(a)h(do)m(wn-t)m(yp)s(e) +i(one.)41 b(This)24 b(is)244 5453 y(in)29 b(accordance)i(with)e(the)i +(particle{an)m(tiparticle)26 b(distinction)i(adopted)j(in)e(the)h(1986) +f(Review)244 5561 y(of)j(P)m(article)g(Prop)s(erties)i([PDG86)o(].)44 +b(It)33 b(means)g(for)g(example)f(that)h(a)g(B)g(meson)g(con)m(tains)g +(a)p 3725 5482 55 4 v 32 w(b)244 5669 y(an)m(tiquark)g(rather)f(than)h +(a)f(b)h(quark.)1841 5953 y(54)p eop +%%Page: 55 61 +55 60 bop 1210 34 a Fw(T)-8 b(able)32 b(5:)44 b(V)-8 +b(arious)31 b(sp)s(ecial)h(co)s(des.)p 360 160 3059 4 +v 358 281 4 121 v 414 248 a(KF)p 605 281 V 148 w(Prin)m(ted)p +1114 281 V 1064 w(Meaning)p 3416 281 V 360 284 3059 4 +v 358 404 4 121 v 435 372 a(81)p 605 404 V 123 w Fq(specflav)p +1114 404 V 171 w Fw(Sp)s(ectator)h(\015a)m(v)m(our;)g(used)h(in)e(deca) +m(y-pro)s(duct)h(listings)p 3416 404 V 358 525 V 435 +492 a(82)p 605 525 V 123 w Fq(rndmflav)p 1114 525 V 102 +w Fw(A)f(random)g(u,)h(d,)g(or)f(s)h(\015a)m(v)m(our;)h(p)s(ossible)d +(deca)m(y)j(pro)s(duct)p 3416 525 V 358 645 V 435 613 +a(83)p 605 645 V 123 w Fq(phasespa)p 1114 645 V 460 w +Fw(Simple)c(isotropic)h(phase-space)k(deca)m(y)p 3416 +645 V 358 765 V 435 733 a(84)p 605 765 V 123 w Fq(c-hadron)p +1114 765 V 214 w Fw(Information)30 b(on)j(deca)m(y)h(of)e(generic)g(c)m +(harm)h(hadron)p 3416 765 V 358 886 V 435 853 a(85)p +605 886 V 123 w Fq(b-hadron)p 1114 886 V 189 w Fw(Information)e(on)h +(deca)m(y)i(of)e(generic)h(b)s(ottom)e(hadron)p 3416 +886 V 358 1006 V 435 974 a(86)p 605 1006 V 123 w Fq(t-hadron)p +1114 1006 V 275 w Fw(Information)f(on)j(deca)m(y)h(of)e(generic)g(top)h +(hadron)p 3416 1006 V 358 1127 V 435 1094 a(87)p 605 +1127 V 123 w Fq(l-hadron)p 1114 1127 V 273 w Fw(Information)e(on)h +(deca)m(y)i(of)e(generic)h(lo)m(w)f(hadron)p 3416 1127 +V 358 1247 V 435 1214 a(88)p 605 1247 V 123 w Fq(h-hadron)p +1114 1247 V 253 w Fw(Information)f(on)h(deca)m(y)i(of)e(generic)h(high) +e(hadron)p 3416 1247 V 358 1367 V 435 1335 a(89)p 605 +1367 V 200 w Fq(Wvirt)p 1114 1367 V 283 w Fw(O\013-mass-shell)g(W)j(in) +e(w)m(eak)i(deca)m(ys)g(of)e(t,)h(l,)e(h)i(or)f Fj(\037)p +3416 1367 V 358 1488 V 435 1455 a Fw(90)p 605 1488 V +149 w Fq(diquark)p 1114 1488 V 289 w Fw(Generic)g(co)s(de)h(for)f +(diquark)h(colour)e(information)p 3416 1488 V 358 1608 +V 435 1576 a(91)p 605 1608 V 149 w Fq(cluster)p 1114 +1608 V 392 w Fw(P)m(arton)i(system)g(in)f(cluster)h(fragmen)m(tation)p +3416 1608 V 358 1728 V 435 1696 a(92)p 605 1728 V 174 +w Fq(string)p 1114 1728 V 437 w Fw(P)m(arton)f(system)i(in)e(string)g +(fragmen)m(tation)p 3416 1728 V 358 1849 V 435 1816 a(93)p +605 1849 V 174 w Fq(indep.)p 1114 1849 V 299 w Fw(P)m(arton)h(system)g +(in)f(indep)s(enden)m(t)i(fragmen)m(tation)p 3416 1849 +V 358 1969 V 435 1937 a(94)p 605 1969 V 123 w Fq(CMshower)p +1114 1969 V 205 w Fw(F)-8 b(our-momen)m(tum)31 b(of)h(time-lik)m(e)e +(sho)m(w)m(ering)j(system)p 3416 1969 V 358 2090 V 435 +2057 a(95)p 605 2090 V 123 w Fq(SPHEaxis)p 1114 2090 +V 562 w Fw(Ev)m(en)m(t)h(axis)e(found)h(with)f Fq(LUSPHE)p +3416 2090 V 358 2210 V 435 2177 a Fw(96)p 605 2210 V +123 w Fq(THRUaxis)p 1114 2210 V 562 w Fw(Ev)m(en)m(t)i(axis)e(found)h +(with)f Fq(LUTHRU)p 3416 2210 V 358 2330 V 435 2298 a +Fw(97)p 605 2330 V 149 w Fq(CLUSjet)p 1114 2330 V 549 +w Fw(Jet)h(\(cluster\))f(found)h(with)f Fq(LUCLUS)p 3416 +2330 V 358 2451 V 435 2418 a Fw(98)p 605 2451 V 149 w +Fq(CELLjet)p 1114 2451 V 549 w Fw(Jet)h(\(cluster\))f(found)h(with)f +Fq(LUCELL)p 3416 2451 V 358 2571 V 435 2539 a Fw(99)p +605 2571 V 200 w Fq(table)p 1114 2571 V 667 w Fw(T)-8 +b(abular)32 b(output)h(from)e Fq(LUTABU)p 3416 2571 V +358 2692 V 410 2659 a Fw(100)p 605 2692 V 1114 2692 V +3416 2692 V 360 2695 3059 4 v 244 2965 a(The)i(\015a)m(v)m +(our-diagonal)e(states)i(are)g(arranged)f(in)g(order)g(of)g(ascending)h +(mass.)44 b(The)33 b(standard)244 3074 y(rule)41 b(of)h(ha)m(ving)f +(the)h(last)g(digit)d(of)j(the)g(form)f(2)p Fj(s)28 b +Fw(+)g(1)42 b(is)f(brok)m(en)i(for)e(the)i(K)3204 3037 +y Fl(0)3204 3098 y(S)3247 3074 y Fw({K)3372 3037 y Fl(0)3372 +3098 y(L)3461 3074 y Fw(system,)244 3182 y(where)32 b(it)e(is)h(0,)g +(and)g(this)g(con)m(v)m(en)m(tion)h(should)f(carry)g(o)m(v)m(er)i(to)d +(mixed)h(states)h(in)e(the)h(B)g(meson)244 3290 y(system.)44 +b(F)-8 b(or)30 b(higher)h(m)m(ultiplets)e(with)h(the)i(same)f(spin,)g +Fn(\006)p Fw(10000,)g Fn(\006)p Fw(20000,)g(etc.,)h(are)f(added)244 +3399 y(to)d(pro)m(vide)h(the)f(extra)h(distinction)e(needed.)44 +b(Some)28 b(of)g(the)g(most)g(frequen)m(tly)i(used)f(co)s(des)g(are)244 +3507 y(giv)m(en)k(b)s(elo)m(w.)244 3620 y(The)24 b(full)e(lo)m(w)m +(est-lying)g(pseudoscalar)i(and)g(v)m(ector)g(m)m(ultiplets)e(are)h +(included)g(in)g(the)h(program,)244 3728 y(T)-8 b(able)32 +b(7.)244 3841 y(Also)22 b(the)h(lo)m(w)m(est-lying)f(orbital)f(angular) +g(momen)m(tum)g Fj(L)28 b Fw(=)g(1)23 b(mesons)g(are)g(included,)h(T)-8 +b(able)23 b(8:)244 3950 y(one)32 b(pseudo)m(v)m(ector)j(m)m(ultiplet)30 +b(obtained)h(for)h(total)e(quark-spin)j(0)f(\()p Fj(L)c +Fw(=)f(1)p Fj(;)17 b(S)33 b Fw(=)28 b(0)f Fn(\))g Fj(J)37 +b Fw(=)28 b(1\))244 4058 y(and)h(one)h(scalar,)f(one)g(pseudo)m(v)m +(ector)j(and)d(one)h(tensor)g(m)m(ultiplet)c(obtained)j(for)f(total)g +(quark-)244 4166 y(spin)33 b(1)g(\()p Fj(L)c Fw(=)f(1)p +Fj(;)17 b(S)34 b Fw(=)28 b(1)h Fn(\))f Fj(J)38 b Fw(=)28 +b(0)p Fj(;)17 b Fw(1)32 b(or)h(2\),)g(where)i Fj(J)42 +b Fw(is)32 b(what)i(is)e(con)m(v)m(en)m(tionally)h(called)f(the)244 +4275 y(spin)39 b Fj(s)f Fw(of)h(the)g(meson.)63 b(An)m(y)39 +b(mixing)e(b)s(et)m(w)m(een)k(the)e(t)m(w)m(o)h(pseudo)m(v)m(ector)h(m) +m(ultiplets)c(is)i(not)1356 4612 y(T)-8 b(able)33 b(6:)43 +b(Diquark)32 b(co)s(des.)p 822 4738 2137 4 v 820 4859 +4 121 v 899 4826 a(KF)p 1115 4859 V 127 w(Name)p 1461 +4859 V 99 w(Prin)m(ted)p 1879 4859 V 1896 4859 V 145 +w(KF)p 2190 4859 V 127 w(Name)p 2536 4859 V 99 w(Prin)m(ted)p +2954 4859 V 822 4862 2137 4 v 820 4983 4 121 v 1115 4983 +V 1461 4983 V 1879 4983 V 1896 4983 V 1947 4950 a(1103)p +2190 4983 V 148 w(dd)2399 4965 y Fl(1)p 2536 4983 V 2652 +4950 a Fq(dd)p 2760 4950 31 4 v 37 w(1)p 2954 4983 4 +121 v 820 5103 V 872 5070 a Fw(2101)p 1115 5103 V 148 +w(ud)1324 5085 y Fl(0)p 1461 5103 V 1576 5070 a Fq(ud)p +1684 5070 31 4 v 38 w(0)p 1879 5103 4 121 v 1896 5103 +V 180 w Fw(2103)p 2190 5103 V 148 w(ud)2399 5085 y Fl(1)p +2536 5103 V 2652 5070 a Fq(ud)p 2760 5070 31 4 v 37 w(1)p +2954 5103 4 121 v 820 5223 V 1115 5223 V 1461 5223 V +1879 5223 V 1896 5223 V 1947 5191 a Fw(2203)p 2190 5223 +V 148 w(uu)2399 5206 y Fl(1)p 2536 5223 V 2652 5191 a +Fq(uu)p 2760 5191 31 4 v 37 w(1)p 2954 5223 4 121 v 820 +5344 V 872 5311 a Fw(3101)p 1115 5344 V 155 w(sd)1315 +5326 y Fl(0)p 1461 5344 V 1576 5311 a Fq(sd)p 1684 5311 +31 4 v 38 w(0)p 1879 5344 4 121 v 1896 5344 V 180 w Fw(3103)p +2190 5344 V 156 w(sd)2391 5326 y Fl(1)p 2536 5344 V 2652 +5311 a Fq(sd)p 2760 5311 31 4 v 37 w(1)p 2954 5344 4 +121 v 820 5464 V 872 5432 a Fw(3201)p 1115 5464 V 155 +w(su)1315 5447 y Fl(0)p 1461 5464 V 1576 5432 a Fq(su)p +1684 5432 31 4 v 38 w(0)p 1879 5464 4 121 v 1896 5464 +V 180 w Fw(3203)p 2190 5464 V 156 w(su)2391 5447 y Fl(1)p +2536 5464 V 2652 5432 a Fq(su)p 2760 5432 31 4 v 37 w(1)p +2954 5464 4 121 v 820 5584 V 1115 5584 V 1461 5584 V +1879 5584 V 1896 5584 V 1947 5552 a Fw(3303)p 2190 5584 +V 164 w(ss)2383 5567 y Fl(1)p 2536 5584 V 2652 5552 a +Fq(ss)p 2760 5552 31 4 v 37 w(1)p 2954 5584 4 121 v 822 +5588 2137 4 v 1841 5953 a Fw(55)p eop +%%Page: 56 62 +56 61 bop 1232 34 a Fw(T)-8 b(able)32 b(7:)44 b(Meson)33 +b(co)s(des,)h(part)e(1.)p 850 160 2080 4 v 848 281 4 +121 v 903 248 a(KF)p 1095 281 V 103 w(Name)p 1441 281 +V 99 w(Prin)m(ted)p 1859 281 V 1876 281 V 120 w(KF)p +2121 281 V 103 w(Name)p 2467 281 V 119 w(Prin)m(ted)p +2926 281 V 850 284 2080 4 v 848 404 4 121 v 900 372 a(211)p +1095 404 V 163 w Fj(\031)1269 336 y Fl(+)p 1441 404 V +1574 372 a Fq(pi+)p 1859 404 V 1876 404 V 200 w Fw(213)p +2121 404 V 167 w Fj(\032)2291 336 y Fl(+)p 2467 404 V +2596 372 a Fq(rho+)p 2926 404 V 848 525 V 900 492 a Fw(311)p +1095 525 V 165 w(K)1288 456 y Fl(0)p 1441 525 V 1600 +492 a Fq(K0)p 1859 525 V 1876 525 V 225 w Fw(313)p 2121 +525 V 147 w(K)2297 456 y Fk(\003)p Fl(0)p 2467 525 V +2621 492 a Fq(K*0)p 2926 525 V 848 645 V 900 613 a Fw(321)p +1095 645 V 155 w(K)1278 576 y Fl(+)p 1441 645 V 1600 +613 a Fq(K+)p 1859 645 V 1876 645 V 225 w Fw(323)p 2121 +645 V 137 w(K)2287 576 y Fk(\003)p Fl(+)p 2467 645 V +2621 613 a Fq(K*+)p 2926 645 V 848 765 V 900 733 a Fw(411)p +1095 765 V 156 w(D)1278 697 y Fl(+)p 1441 765 V 1600 +733 a Fq(D+)p 1859 765 V 1876 765 V 225 w Fw(413)p 2121 +765 V 138 w(D)2287 697 y Fk(\003)p Fl(+)p 2467 765 V +2621 733 a Fq(D*+)p 2926 765 V 848 886 V 900 853 a Fw(421)p +1095 886 V 165 w(D)1287 817 y Fl(0)p 1441 886 V 1600 +853 a Fq(D0)p 1859 886 V 1876 886 V 225 w Fw(423)p 2121 +886 V 147 w(D)2296 817 y Fk(\003)p Fl(0)p 2467 886 V +2621 853 a Fq(D*0)p 2926 886 V 848 1006 V 900 974 a Fw(431)p +1095 1006 V 156 w(D)1278 938 y Fl(+)1278 998 y Fh(s)p +1441 1006 V 1556 974 a Fq(D)p 1613 974 31 4 v 37 w(s+)p +1859 1006 4 121 v 1876 1006 V 181 w Fw(433)p 2121 1006 +V 138 w(D)2287 938 y Fk(\003)p Fl(+)2287 998 y(s)p 2467 +1006 V 2577 974 a Fq(D*)p 2685 974 31 4 v 38 w(s+)p 2926 +1006 4 121 v 848 1127 V 900 1094 a Fw(511)p 1095 1127 +V 168 w(B)1284 1058 y Fl(0)p 1441 1127 V 1600 1094 a +Fq(B0)p 1859 1127 V 1876 1127 V 225 w Fw(513)p 2121 1127 +V 150 w(B)2293 1058 y Fk(\003)p Fl(0)p 2467 1127 V 2621 +1094 a Fq(B*0)p 2926 1127 V 848 1247 V 900 1214 a Fw(521)p +1095 1247 V 158 w(B)1274 1178 y Fl(+)p 1441 1247 V 1600 +1214 a Fq(B+)p 1859 1247 V 1876 1247 V 225 w Fw(523)p +2121 1247 V 140 w(B)2283 1178 y Fk(\003)p Fl(+)p 2467 +1247 V 2621 1214 a Fq(B*+)p 2926 1247 V 848 1367 V 900 +1335 a Fw(531)p 1095 1367 V 168 w(B)1284 1299 y Fl(0)1284 +1359 y Fh(s)p 1441 1367 V 1556 1335 a Fq(B)p 1613 1335 +31 4 v 37 w(s0)p 1859 1367 4 121 v 1876 1367 V 181 w +Fw(533)p 2121 1367 V 150 w(B)2293 1299 y Fk(\003)p Fl(0)2293 +1359 y(s)p 2467 1367 V 2577 1335 a Fq(B*)p 2685 1335 +31 4 v 38 w(s0)p 2926 1367 4 121 v 848 1488 V 900 1455 +a Fw(541)p 1095 1488 V 158 w(B)1274 1419 y Fl(+)1274 +1480 y Fh(c)p 1441 1488 V 1556 1455 a Fq(B)p 1613 1455 +31 4 v 37 w(c+)p 1859 1488 4 121 v 1876 1488 V 181 w +Fw(543)p 2121 1488 V 140 w(B)2283 1419 y Fk(\003)p Fl(+)2283 +1480 y(c)p 2467 1488 V 2577 1455 a Fq(B*)p 2685 1455 +31 4 v 38 w(c+)p 2926 1488 4 121 v 848 1608 V 900 1576 +a Fw(111)p 1095 1608 V 173 w Fj(\031)1279 1539 y Fl(0)p +1441 1608 V 1574 1576 a Fq(pi0)p 1859 1608 V 1876 1608 +V 200 w Fw(113)p 2121 1608 V 177 w Fj(\032)2301 1539 +y Fl(0)p 2467 1608 V 2596 1576 a Fq(rho0)p 2926 1608 +V 848 1728 V 900 1696 a Fw(221)p 1095 1728 V 196 w Fj(\021)p +1441 1728 V 283 w Fq(eta)p 1859 1728 V 1876 1728 V 200 +w Fw(223)p 2121 1728 V 190 w Fj(!)p 2467 1728 V 245 w +Fq(omega)p 2926 1728 V 848 1849 V 900 1816 a Fw(331)p +1095 1849 V 185 w Fj(\021)1284 1780 y Fk(0)p 1441 1849 +V 1549 1816 a Fq(eta')p 1859 1849 V 1876 1849 V 174 w +Fw(333)p 2121 1849 V 193 w Fj(\036)p 2467 1849 V 296 +w Fq(phi)p 2926 1849 V 848 1969 V 900 1937 a Fw(441)p +1095 1969 V 180 w Fj(\021)1275 1952 y Fl(c)p 1441 1969 +V 1530 1937 a Fq(eta)p 1689 1937 31 4 v 38 w(c)p 1859 +1969 4 121 v 1876 1969 V 155 w Fw(443)p 2121 1969 V 139 +w(J)p Fj(= )p 2467 1969 V 195 w Fq(J/psi)p 2926 1969 +V 848 2090 V 900 2057 a Fw(551)p 1095 2090 V 177 w Fj(\021)1272 +2072 y Fl(b)p 1441 2090 V 1530 2057 a Fq(eta)p 1689 2057 +31 4 v 38 w(b)p 1859 2090 4 121 v 1876 2090 V 155 w Fw(553)p +2121 2090 V 184 w(\007)p 2467 2090 V 185 w Fq(Upsilon)p +2926 2090 V 848 2210 V 900 2177 a Fw(661)p 1095 2210 +V 182 w Fj(\021)1277 2192 y Fl(t)p 1441 2210 V 1530 2177 +a Fq(eta)p 1689 2177 31 4 v 38 w(t)p 1859 2210 4 121 +v 1876 2210 V 155 w Fw(663)p 2121 2210 V 184 w(\002)p +2467 2210 V 236 w Fq(Theta)p 2926 2210 V 848 2330 V 900 +2298 a Fw(130)p 1095 2330 V 160 w(K)1283 2262 y Fl(0)1283 +2322 y(L)p 1441 2330 V 1556 2298 a Fq(K)p 1613 2298 31 +4 v 37 w(L0)p 1859 2330 4 121 v 1876 2330 V 2121 2330 +V 2467 2330 V 2926 2330 V 848 2451 V 900 2418 a Fw(310)p +1095 2451 V 163 w(K)1286 2382 y Fl(0)1286 2443 y(S)p +1441 2451 V 1556 2418 a Fq(K)p 1613 2418 31 4 v 37 w(S0)p +1859 2451 4 121 v 1876 2451 V 2121 2451 V 2467 2451 V +2926 2451 V 850 2454 2080 4 v 244 2724 a Fw(tak)m(en)40 +b(in)m(to)e(accoun)m(t.)63 b(Please)39 b(note)g(that)f(some)h(mem)m(b)s +(ers)g(of)f(these)i(m)m(ultiplets)d(ha)m(v)m(e)j(still)244 +2833 y(not)e(b)s(een)h(found,)h(and)e(are)g(included)g(here)h(only)f +(based)h(on)f(guessw)m(ork.)63 b(Ev)m(en)39 b(for)f(kno)m(wn)244 +2941 y(ones,)31 b(the)f(information)c(on)k(particles)f(\(mass,)h +(width,)g(deca)m(y)h(mo)s(des\))e(is)g(highly)g(incomplete.)244 +3054 y(Only)j(t)m(w)m(o)h(radial)e(excitations)h(are)g(included,)h(the) +g Fj( )2252 3018 y Fk(0)2303 3054 y Fw(=)27 b Fj( )t +Fw(\(2)p Fj(S)6 b Fw(\))32 b(and)h(\007)2962 3018 y Fk(0)3013 +3054 y Fw(=)27 b(\007\(2)p Fj(S)6 b Fw(\).)244 3167 y(The)26 +b(corresp)s(onding)g(meson)f(K)m(C)h(co)s(des,)i(used)f(for)e +(organizing)e(mass)i(and)h(deca)m(y)h(data,)f(range)244 +3276 y(b)s(et)m(w)m(een)35 b(101)c(and)i(240.)119 3393 +y(7.)49 b(Bary)m(on)33 b(co)s(des,)g(T)-8 b(able)33 b(9.)244 +3502 y(A)i(bary)m(on)h(made)f(up)h(of)e(quarks)j Fj(i)p +Fw(,)f Fj(j)41 b Fw(and)36 b Fj(k)s Fw(,)g(with)f Fj(i)d +Fn(\025)h Fj(j)38 b Fn(\025)33 b Fj(k)s Fw(,)j(and)g(total)d(spin)j +Fj(s)p Fw(,)g(is)e(giv)m(en)244 3610 y(the)f(co)s(de)1248 +3718 y(KF)28 b(=)f(1000)p Fj(i)22 b Fw(+)g(100)p Fj(j)27 +b Fw(+)22 b(10)p Fj(k)j Fw(+)d(2)p Fj(s)g Fw(+)g(1)32 +b Fj(:)831 b Fw(\(18\))244 3881 y(An)38 b(exception)g(is)g(pro)m(vided) +g(b)m(y)h(spin)e(1)p Fj(=)p Fw(2)h(bary)m(ons)g(made)g(up)g(of)f(three) +i(di\013eren)m(t)f(t)m(yp)s(es)h(of)244 3989 y(quarks,)33 +b(where)g(the)f(t)m(w)m(o)g(ligh)m(test)f(quarks)i(form)d(a)h(spin-0)g +(diquark)h(\(\003-lik)m(e)e(bary)m(ons\).)44 b(Here)244 +4097 y(the)g(order)g(of)f(the)h Fj(j)50 b Fw(and)43 b +Fj(k)k Fw(quarks)e(is)e(rev)m(ersed,)49 b(so)44 b(as)g(to)f(pro)m(vide) +h(a)f(simple)f(means)i(of)244 4206 y(distinction)28 b(to)h(bary)m(ons)i +(with)e(the)h(ligh)m(test)e(quarks)j(in)e(a)g(spin-1)g(diquark)h +(\(\006-lik)m(e)e(bary)m(ons\).)244 4319 y(F)-8 b(or)31 +b(hadrons)h(with)f(hea)m(vy)i(\015a)m(v)m(ours,)g(the)f(ro)s(ot)f +(names)g(are)h(Lam)m(b)s(da)e(or)h(Sigma)f(for)h(hadrons)244 +4427 y(with)g(t)m(w)m(o)h(u)g(or)f(d)h(quarks,)h(Xi)e(for)g(those)h +(with)f(one,)h(and)g(Omega)e(for)h(those)h(without)f(u)h(or)f(d)244 +4536 y(quarks.)244 4649 y(Some)i(of)g(the)i(most)e(frequen)m(tly)i +(used)g(co)s(des)f(are)g(giv)m(en)g(in)f(T)-8 b(able)33 +b(9.)47 b(The)35 b(full)d(lo)m(w)m(est-lying)244 4757 +y(spin)g(1)p Fj(=)p Fw(2)g(and)h(3)p Fj(=)p Fw(2)f(m)m(ultiplets)e(are) +j(included)f(in)g(the)h(program.)244 4870 y(The)k(corresp)s(onding)g(K) +m(C)g(co)s(des,)i(used)f(for)e(organizing)e(mass)j(and)g(deca)m(y)h +(data,)f(range)g(b)s(e-)244 4978 y(t)m(w)m(een)d(301)e(and)h(400,)f +(with)g(some)g(slots)h(still)d(free.)119 5096 y(8.)49 +b(Di\013ractiv)m(e)31 b(states,)j(T)-8 b(able)32 b(10.)244 +5204 y(These)37 b(co)s(des)f(are)g(not)f(standard)h(ones:)50 +b(they)36 b(ha)m(v)m(e)h(b)s(een)f(de\014ned)h(b)m(y)f(analogy)f(to)g +(b)s(e)g(used)244 5313 y(for)28 b(denoting)h(di\013ractiv)m(e)f(states) +i(in)e Fm(Pythia)p Fw(,)h(as)h(part)e(of)h(the)g(ev)m(en)m(t)i(history) +-8 b(.)42 b(The)29 b(\014rst)h(t)m(w)m(o)244 5421 y(or)h(three)i +(digits)d(giv)m(e)h(\015a)m(v)m(our)i(con)m(ten)m(t,)g(while)e(the)h +(last)f(one)h(is)f(0,)g(to)h(denote)g(the)g(somewhat)244 +5530 y(un)m(usual)k(c)m(haracter)g(of)e(the)i(co)s(de.)52 +b(Only)35 b(a)g(few)h(co)s(des)g(ha)m(v)m(e)g(b)s(een)g(in)m(tro)s +(duced;)h(dep)s(ending)244 5638 y(on)32 b(circumstances)i(these)g(also) +d(ha)m(v)m(e)j(to)e(double)h(up)g(for)f(other)g(di\013ractiv)m(e)g +(states.)1841 5953 y(56)p eop +%%Page: 57 63 +57 62 bop 1232 34 a Fw(T)-8 b(able)32 b(8:)44 b(Meson)33 +b(co)s(des,)h(part)e(2.)p 714 160 2352 4 v 712 281 4 +121 v 816 248 a(KF)p 1056 281 V 151 w(Name)p 1402 281 +V 145 w(Prin)m(ted)p 1912 281 V 1929 281 V 215 w(KF)p +2272 281 V 151 w(Name)p 2618 281 V 113 w(Prin)m(ted)p +3062 281 V 714 284 2352 4 v 712 404 4 121 v 764 372 a(10213)p +1056 404 V 175 w(b)1238 387 y Fl(1)p 1402 404 V 1563 +372 a Fq(b)p 1620 372 31 4 v 37 w(1+)p 1912 404 4 121 +v 1929 404 V 227 w Fw(10211)p 2272 404 V 168 w(a)2442 +331 y Fl(+)2442 394 y(0)p 2618 404 V 2746 372 a Fq(a)p +2803 372 31 4 v 38 w(0+)p 3062 404 4 121 v 712 525 V +764 492 a Fw(10313)p 1056 525 V 164 w(K)1249 456 y Fl(0)1249 +517 y(1)p 1402 525 V 1563 492 a Fq(K)p 1620 492 31 4 +v 37 w(10)p 1912 525 4 121 v 1929 525 V 227 w Fw(10311)p +2272 525 V 146 w(K)2447 456 y Fk(\003)p Fl(0)2447 517 +y(0)p 2618 525 V 2721 492 a Fq(K*)p 2829 492 31 4 v 37 +w(00)p 3062 525 4 121 v 712 645 V 764 613 a Fw(10323)p +1056 645 V 154 w(K)1239 571 y Fl(+)1239 634 y(1)p 1402 +645 V 1563 613 a Fq(K)p 1620 613 31 4 v 37 w(1+)p 1912 +645 4 121 v 1929 645 V 227 w Fw(10321)p 2272 645 V 137 +w(K)2438 571 y Fk(\003)p Fl(+)2438 634 y(0)p 2618 645 +V 2721 613 a Fq(K*)p 2829 613 31 4 v 37 w(0+)p 3062 645 +4 121 v 712 765 V 764 733 a Fw(10413)p 1056 765 V 155 +w(D)1239 692 y Fl(+)1239 755 y(1)p 1402 765 V 1563 733 +a Fq(D)p 1620 733 31 4 v 37 w(1+)p 1912 765 4 121 v 1929 +765 V 227 w Fw(10411)p 2272 765 V 137 w(D)2437 692 y +Fk(\003)p Fl(+)2437 755 y(0)p 2618 765 V 2721 733 a Fq(D*)p +2829 733 31 4 v 37 w(0+)p 3062 765 4 121 v 712 886 V +764 853 a Fw(10423)p 1056 886 V 165 w(D)1249 817 y Fl(0)1249 +878 y(1)p 1402 886 V 1563 853 a Fq(D)p 1620 853 31 4 +v 37 w(10)p 1912 886 4 121 v 1929 886 V 227 w Fw(10421)p +2272 886 V 147 w(D)2447 817 y Fk(\003)p Fl(0)2447 878 +y(0)p 2618 886 V 2721 853 a Fq(D*)p 2829 853 31 4 v 37 +w(00)p 3062 886 4 121 v 712 1006 V 764 974 a Fw(10433)p +1056 1006 V 151 w(D)1235 932 y Fl(+)1235 995 y(1s)p 1402 +1006 V 1538 974 a Fq(D)p 1595 974 31 4 v 37 w(1s+)p 1912 +1006 4 121 v 1929 1006 V 201 w Fw(10431)p 2272 1006 V +137 w(D)2437 932 y Fk(\003)p Fl(+)2437 995 y(0s)p 2618 +1006 V 2695 974 a Fq(D*)p 2803 974 31 4 v 38 w(0s+)p +3062 1006 4 121 v 712 1127 V 764 1094 a Fw(10113)p 1056 +1127 V 175 w(b)1238 1058 y Fl(0)1238 1119 y(1)p 1402 +1127 V 1563 1094 a Fq(b)p 1620 1094 31 4 v 37 w(10)p +1912 1127 4 121 v 1929 1127 V 227 w Fw(10111)p 2272 1127 +V 178 w(a)2452 1058 y Fl(0)2452 1119 y(0)p 2618 1127 +V 2746 1094 a Fq(a)p 2803 1094 31 4 v 38 w(00)p 3062 +1127 4 121 v 712 1247 V 764 1214 a Fw(10223)p 1056 1247 +V 175 w(h)1238 1178 y Fl(0)1238 1239 y(1)p 1402 1247 +V 1563 1214 a Fq(h)p 1620 1214 31 4 v 37 w(10)p 1912 +1247 4 121 v 1929 1247 V 227 w Fw(10221)p 2272 1247 V +184 w(f)2446 1178 y Fl(0)2439 1239 y(0)p 2618 1247 V +2746 1214 a Fq(f)p 2803 1214 31 4 v 38 w(00)p 3062 1247 +4 121 v 712 1367 V 764 1335 a Fw(10333)p 1056 1367 V +165 w(h)1228 1299 y Fk(0)p Fl(0)1228 1359 y(1)p 1402 +1367 V 1538 1335 a Fq(h')p 1646 1335 31 4 v 37 w(10)p +1912 1367 4 121 v 1929 1367 V 201 w Fw(10331)p 2272 1367 +V 174 w(f)2436 1299 y Fk(0)p Fl(0)2429 1359 y(0)p 2618 +1367 V 2721 1335 a Fq(f')p 2829 1335 31 4 v 37 w(00)p +3062 1367 4 121 v 712 1488 V 764 1455 a Fw(10443)p 1056 +1488 V 159 w(h)1222 1419 y Fl(0)1222 1480 y(1c)p 1402 +1488 V 1538 1455 a Fq(h)p 1595 1455 31 4 v 37 w(1c0)p +1912 1488 4 121 v 1929 1488 V 201 w Fw(10441)p 2272 1488 +V 156 w Fj(\037)2442 1419 y Fl(0)2442 1480 y(0c)p 2618 +1488 V 2670 1455 a Fq(chi)p 2829 1455 31 4 v 37 w(0c0)p +3062 1488 4 121 v 714 1491 2352 4 v 712 1611 4 121 v +764 1579 a Fw(20213)p 1056 1611 V 168 w(a)1226 1538 y +Fl(+)1226 1601 y(1)p 1402 1611 V 1563 1579 a Fq(a)p 1620 +1579 31 4 v 37 w(1+)p 1912 1611 4 121 v 1929 1611 V 276 +w Fw(215)p 2272 1611 V 217 w(a)2442 1538 y Fl(+)2442 +1601 y(2)p 2618 1611 V 2746 1579 a Fq(a)p 2803 1579 31 +4 v 38 w(2+)p 3062 1611 4 121 v 712 1732 V 764 1699 a +Fw(20313)p 1056 1732 V 146 w(K)1231 1663 y Fk(\003)p +Fl(0)1231 1724 y(1)p 1402 1732 V 1538 1699 a Fq(K*)p +1646 1699 31 4 v 37 w(10)p 1912 1732 4 121 v 1929 1732 +V 250 w Fw(315)p 2272 1732 V 195 w(K)2447 1663 y Fk(\003)p +Fl(0)2447 1724 y(2)p 2618 1732 V 2721 1699 a Fq(K*)p +2829 1699 31 4 v 37 w(20)p 3062 1732 4 121 v 712 1852 +V 764 1820 a Fw(20323)p 1056 1852 V 137 w(K)1222 1778 +y Fk(\003)p Fl(+)1222 1841 y(1)p 1402 1852 V 1538 1820 +a Fq(K*)p 1646 1820 31 4 v 37 w(1+)p 1912 1852 4 121 +v 1929 1852 V 250 w Fw(325)p 2272 1852 V 186 w(K)2438 +1778 y Fk(\003)p Fl(+)2438 1841 y(2)p 2618 1852 V 2721 +1820 a Fq(K*)p 2829 1820 31 4 v 37 w(2+)p 3062 1852 4 +121 v 712 1973 V 764 1940 a Fw(20413)p 1056 1973 V 137 +w(D)1221 1899 y Fk(\003)p Fl(+)1221 1962 y(1)p 1402 1973 +V 1538 1940 a Fq(D*)p 1646 1940 31 4 v 37 w(1+)p 1912 +1973 4 121 v 1929 1973 V 250 w Fw(415)p 2272 1973 V 186 +w(D)2437 1899 y Fk(\003)p Fl(+)2437 1962 y(2)p 2618 1973 +V 2721 1940 a Fq(D*)p 2829 1940 31 4 v 37 w(2+)p 3062 +1973 4 121 v 712 2093 V 764 2060 a Fw(20423)p 1056 2093 +V 147 w(D)1231 2024 y Fk(\003)p Fl(0)1231 2085 y(1)p +1402 2093 V 1538 2060 a Fq(D*)p 1646 2060 31 4 v 37 w(10)p +1912 2093 4 121 v 1929 2093 V 250 w Fw(425)p 2272 2093 +V 196 w(D)2447 2024 y Fk(\003)p Fl(0)2447 2085 y(2)p +2618 2093 V 2721 2060 a Fq(D*)p 2829 2060 31 4 v 37 w(20)p +3062 2093 4 121 v 712 2213 V 764 2181 a Fw(20433)p 1056 +2213 V 137 w(D)1221 2140 y Fk(\003)p Fl(+)1221 2203 y(1s)p +1402 2213 V 1512 2181 a Fq(D*)p 1620 2181 31 4 v 37 w(1s+)p +1912 2213 4 121 v 1929 2213 V 225 w Fw(435)p 2272 2213 +V 186 w(D)2437 2140 y Fk(\003)p Fl(+)2437 2203 y(2s)p +2618 2213 V 2695 2181 a Fq(D*)p 2803 2181 31 4 v 38 w(2s+)p +3062 2213 4 121 v 712 2334 V 764 2301 a Fw(20113)p 1056 +2334 V 177 w(a)1235 2265 y Fl(0)1235 2326 y(1)p 1402 +2334 V 1563 2301 a Fq(a)p 1620 2301 31 4 v 37 w(10)p +1912 2334 4 121 v 1929 2334 V 276 w Fw(115)p 2272 2334 +V 227 w(a)2452 2265 y Fl(0)2452 2326 y(2)p 2618 2334 +V 2746 2301 a Fq(a)p 2803 2301 31 4 v 38 w(20)p 3062 +2334 4 121 v 712 2454 V 764 2422 a Fw(20223)p 1056 2454 +V 184 w(f)1230 2385 y Fl(0)1223 2446 y(1)p 1402 2454 +V 1563 2422 a Fq(f)p 1620 2422 31 4 v 37 w(10)p 1912 +2454 4 121 v 1929 2454 V 276 w Fw(225)p 2272 2454 V 233 +w(f)2446 2385 y Fl(0)2439 2446 y(2)p 2618 2454 V 2746 +2422 a Fq(f)p 2803 2422 31 4 v 38 w(20)p 3062 2454 4 +121 v 712 2574 V 764 2542 a Fw(20333)p 1056 2574 V 174 +w(f)1220 2506 y Fk(0)p Fl(0)1213 2567 y(1)p 1402 2574 +V 1538 2542 a Fq(f')p 1646 2542 31 4 v 37 w(10)p 1912 +2574 4 121 v 1929 2574 V 250 w Fw(335)p 2272 2574 V 223 +w(f)2436 2506 y Fk(0)p Fl(0)2429 2567 y(2)p 2618 2574 +V 2721 2542 a Fq(f')p 2829 2542 31 4 v 37 w(20)p 3062 +2574 4 121 v 712 2695 V 764 2662 a Fw(20443)p 1056 2695 +V 156 w Fj(\037)1226 2626 y Fl(0)1226 2687 y(1c)p 1402 +2695 V 1486 2662 a Fq(chi)p 1645 2662 31 4 v 38 w(1c0)p +1912 2695 4 121 v 1929 2695 V 199 w Fw(445)p 2272 2695 +V 205 w Fj(\037)2442 2626 y Fl(0)2442 2687 y(2c)p 2618 +2695 V 2670 2662 a Fq(chi)p 2829 2662 31 4 v 37 w(2c0)p +3062 2695 4 121 v 714 2698 2352 4 v 712 2819 4 121 v +764 2786 a Fw(30443)p 1056 2819 V 176 w Fj( )1252 2750 +y Fk(0)p 1402 2819 V 1556 2786 a Fq(psi')p 1912 2819 +V 1929 2819 V 2272 2819 V 2618 2819 V 3062 2819 V 712 +2939 V 764 2906 a Fw(30553)p 1056 2939 V 172 w(\007)1257 +2870 y Fk(0)p 1402 2939 V 1453 2906 a Fq(Upsilon')p 1912 +2939 V 1929 2939 V 2272 2939 V 2618 2939 V 3062 2939 +V 714 2942 2352 4 v 119 3213 a Fw(9.)49 b(F)-8 b(ree)41 +b(compressed)h(co)s(des.)69 b(The)42 b(p)s(ositions)d(401{500)h(of)g +(mass)h(and)g(deca)m(y)h(arra)m(ys)f(are)g(left)244 3321 +y(op)s(en.)48 b(Here)35 b(a)f(user)h(ma)m(y)f(map)f(an)m(y)i(new)g +(kind)f(of)g(particle)f(from)g(the)h(ordinary)g(KF)g(co)s(des,)244 +3429 y(whic)m(h)k(probably)f(are)g(ab)s(o)m(v)m(e)h(10000,)g(in)m(to)e +(a)h(more)g(manageable)f(K)m(C)i(range)f(for)g(mass)g(and)244 +3538 y(deca)m(y)27 b(data)d(information.)38 b(The)26 +b(mapping)e(m)m(ust)i(b)s(e)f(implemen)m(ted)f(in)g(the)i +Fq(LUCOMP)h Fw(function.)0 3812 y Fp(5.2)135 b(The)45 +b(Ev)l(en)l(t)h(Record)0 3984 y Fw(Eac)m(h)40 b(new)g(ev)m(en)m(t)h +(generated)f(is)e(in)g(its)h(en)m(tiret)m(y)h(stored)f(in)f(the)i +(common)d(blo)s(c)m(k)i Fq(LUJETS)p Fw(,)i(whic)m(h)0 +4093 y(th)m(us)46 b(forms)e(the)h(ev)m(en)m(t)h(record.)80 +b(Here)46 b(eac)m(h)f(jet)g(or)f(particle)g(that)g(app)s(ears)h(at)g +(some)f(stage)h(of)0 4201 y(the)h(fragmen)m(tation)e(or)h(deca)m(y)i(c) +m(hain)f(will)d(o)s(ccup)m(y)k(one)f(line)f(in)f(the)j(matrices.)82 +b(The)46 b(di\013eren)m(t)0 4309 y(comp)s(onen)m(ts)h(of)f(this)h(line) +e(will)g(tell)g(whic)m(h)i(jet/particle)e(it)h(is,)k(from)c(where)i(it) +d(originates,)k(its)0 4418 y(presen)m(t)42 b(status)g(\(fragmen)m +(ted/deca)m(y)m(ed)h(or)d(not\),)j(its)d(momen)m(tum,)i(energy)f(and)g +(mass,)i(and)e(the)0 4526 y(space{time)33 b(p)s(osition)e(of)h(its)h +(pro)s(duction)f(v)m(ertex.)47 b(Note)33 b(that)g Fq(K\(I,3\))p +Fw({)p Fq(K\(I,5\))i Fw(and)f(the)f Fq(P)g Fw(and)g Fq(V)0 +4634 y Fw(v)m(ectors)e(ma)m(y)f(tak)m(e)h(sp)s(ecial)d(meaning)h(for)g +(some)h(sp)s(eci\014c)g(applications)e(\(e.g.)43 b(sphericit)m(y)30 +b(or)f(cluster)0 4743 y(analysis\),)j(as)h(describ)s(ed)g(in)f(those)h +(connections.)146 4851 y(The)k(ev)m(en)m(t)h(history)d(information)e +(stored)j(in)f Fq(K\(I,3\))p Fw({)p Fq(K\(I,5\))k Fw(should)d(not)f(b)s +(e)h(tak)m(en)h(to)s(o)e(lit-)0 4959 y(erally)-8 b(.)76 +b(In)44 b(the)g(particle)f(deca)m(y)i(c)m(hains,)i(the)d(meaning)f(of)g +(a)g(mother)h(is)f(w)m(ell-de\014ned,)k(but)d(the)0 5068 +y(fragmen)m(tation)31 b(description)i(is)f(more)h(complicated.)43 +b(The)34 b(primary)d(hadrons)j(pro)s(duced)g(in)e(string)0 +5176 y(fragmen)m(tation)k(come)h(from)g(the)h(string)f(as)h(a)g(whole,) +h(rather)e(than)h(from)f(an)g(individual)f(parton.)0 +5284 y(Ev)m(en)45 b(when)g(the)f(string)f(is)g(not)h(included)f(in)g +(the)h(history)f(\(see)i Fq(MSTU\(16\))p Fw(\),)k(the)44 +b(p)s(oin)m(ter)f(from)0 5393 y(hadron)37 b(to)f(parton)g(is)g +(deceptiv)m(e.)57 b(F)-8 b(or)36 b(instance,)i(in)d(a)i(qg)p +2251 5340 52 4 v 1 w(q)g(ev)m(en)m(t,)j(those)d(hadrons)g(are)f(p)s +(oin)m(ting)0 5501 y(to)m(w)m(ards)26 b(the)g(q)f(\()p +631 5448 V(q)q(\))f(parton)h(that)g(w)m(ere)i(pro)s(duced)e(b)m(y)h +(fragmen)m(tation)e(from)f(that)i(end)h(of)f(the)g(string,)0 +5609 y(according)k(to)h(the)g(random)f(pro)s(cedure)i(used)g(in)e(the)h +(fragmen)m(tation)e(routine.)42 b(No)29 b(particles)g(p)s(oin)m(t)1841 +5953 y(57)p eop +%%Page: 58 64 +58 63 bop 1375 34 a Fw(T)-8 b(able)33 b(9:)43 b(Bary)m(on)33 +b(co)s(des.)p 667 160 2445 4 v 665 281 4 121 v 745 248 +a(KF)p 960 281 V 127 w(Name)p 1307 281 V 163 w(Prin)m(ted)p +1853 281 V 1870 281 V 209 w(KF)p 2165 281 V 127 w(Name)p +2511 281 V 189 w(Prin)m(ted)p 3109 281 V 667 284 2445 +4 v 665 404 4 121 v 960 404 V 1307 404 V 1853 404 V 1870 +404 V 1921 372 a(1114)p 2165 404 V 152 w(\001)2350 336 +y Fk(\000)p 2511 404 V 2658 372 a Fq(Delta-)p 3109 404 +V 665 525 V 717 492 a Fw(2112)p 960 525 V 195 w(n)p 1307 +525 V 368 w Fq(n0)p 1853 525 V 1870 525 V 289 w Fw(2114)p +2165 525 V 162 w(\001)2360 456 y Fl(0)p 2511 525 V 2658 +492 a Fq(Delta0)p 3109 525 V 665 645 V 717 613 a Fw(2212)p +960 645 V 195 w(p)p 1307 645 V 368 w Fq(p+)p 1853 645 +V 1870 645 V 289 w Fw(2214)p 2165 645 V 152 w(\001)2350 +576 y Fl(+)p 2511 645 V 2658 613 a Fq(Delta+)p 3109 645 +V 665 765 V 960 765 V 1307 765 V 1853 765 V 1870 765 +V 1921 733 a Fw(2224)p 2165 765 V 125 w(\001)2323 697 +y Fl(++)p 2511 765 V 2632 733 a Fq(Delta++)p 3109 765 +V 665 886 V 717 853 a Fw(3112)p 960 886 V 157 w(\006)1140 +817 y Fk(\000)p 1307 886 V 1428 853 a Fq(Sigma-)p 1853 +886 V 1870 886 V 187 w Fw(3114)p 2165 886 V 140 w(\006)2327 +817 y Fk(\003\000)p 2511 886 V 2632 853 a Fq(Sigma*-)p +3109 886 V 665 1006 V 717 974 a Fw(3122)p 960 1006 V +169 w(\003)1150 938 y Fl(0)p 1307 1006 V 1402 974 a Fq(Lambda0)p +1853 1006 V 1870 1006 V 2165 1006 V 2511 1006 V 3109 +1006 V 665 1127 V 717 1094 a Fw(3212)p 960 1127 V 167 +w(\006)1150 1058 y Fl(0)p 1307 1127 V 1428 1094 a Fq(Sigma0)p +1853 1127 V 1870 1127 V 187 w Fw(3214)p 2165 1127 V 150 +w(\006)2337 1058 y Fk(\003)p Fl(0)p 2511 1127 V 2632 +1094 a Fq(Sigma*0)p 3109 1127 V 665 1247 V 717 1214 a +Fw(3222)p 960 1247 V 157 w(\006)1140 1178 y Fl(+)p 1307 +1247 V 1428 1214 a Fq(Sigma+)p 1853 1247 V 1870 1247 +V 187 w Fw(3224)p 2165 1247 V 140 w(\006)2327 1178 y +Fk(\003)p Fl(+)p 2511 1247 V 2632 1214 a Fq(Sigma*+)p +3109 1247 V 665 1367 V 717 1335 a Fw(3312)p 960 1367 +V 160 w(\004)1138 1299 y Fk(\000)p 1307 1367 V 1505 1335 +a Fq(Xi-)p 1853 1367 V 1870 1367 V 263 w Fw(3314)p 2165 +1367 V 143 w(\004)2325 1299 y Fk(\003\000)p 2511 1367 +V 2709 1335 a Fq(Xi*-)p 3109 1367 V 665 1488 V 717 1455 +a Fw(3322)p 960 1488 V 170 w(\004)1148 1419 y Fl(0)p +1307 1488 V 1505 1455 a Fq(Xi0)p 1853 1488 V 1870 1488 +V 263 w Fw(3324)p 2165 1488 V 153 w(\004)2335 1419 y +Fk(\003)p Fl(0)p 2511 1488 V 2709 1455 a Fq(Xi*0)p 3109 +1488 V 665 1608 V 960 1608 V 1307 1608 V 1853 1608 V +1870 1608 V 1921 1576 a Fw(3334)p 2165 1608 V 158 w(\012)2345 +1539 y Fk(\000)p 2511 1608 V 2658 1576 a Fq(Omega-)p +3109 1608 V 665 1728 V 717 1696 a Fw(4112)p 960 1728 +V 167 w(\006)1150 1660 y Fl(0)1150 1721 y(c)p 1307 1728 +V 1384 1696 a Fq(Sigma)p 1645 1696 31 4 v 38 w(c0)p 1853 +1728 4 121 v 1870 1728 V 142 w Fw(4114)p 2165 1728 V +150 w(\006)2337 1660 y Fk(\003)p Fl(0)2337 1721 y(c)p +2511 1728 V 2588 1696 a Fq(Sigma*)p 2900 1696 31 4 v +38 w(c0)p 3109 1728 4 121 v 665 1849 V 717 1816 a Fw(4122)p +960 1849 V 159 w(\003)1140 1780 y Fl(+)1140 1841 y(c)p +1307 1849 V 1358 1816 a Fq(Lambda)p 1670 1816 31 4 v +39 w(c+)p 1853 1849 4 121 v 1870 1849 V 2165 1849 V 2511 +1849 V 3109 1849 V 665 1969 V 717 1937 a Fw(4212)p 960 +1969 V 157 w(\006)1140 1901 y Fl(+)1140 1961 y(c)p 1307 +1969 V 1384 1937 a Fq(Sigma)p 1645 1937 31 4 v 38 w(c+)p +1853 1969 4 121 v 1870 1969 V 142 w Fw(4214)p 2165 1969 +V 140 w(\006)2327 1901 y Fk(\003)p Fl(+)2327 1961 y(c)p +2511 1969 V 2588 1937 a Fq(Sigma*)p 2900 1937 31 4 v +38 w(c+)p 3109 1969 4 121 v 665 2090 V 717 2057 a Fw(4222)p +960 2090 V 130 w(\006)1113 2021 y Fl(++)1113 2082 y(c)p +1307 2090 V 1358 2057 a Fq(Sigma)p 1619 2057 31 4 v 38 +w(c++)p 1853 2090 4 121 v 1870 2090 V 117 w Fw(4224)p +2165 2090 V 113 w(\006)2300 2021 y Fk(\003)p Fl(++)2300 +2082 y(c)p 2511 2090 V 2562 2057 a Fq(Sigma*)p 2874 2057 +31 4 v 39 w(c++)p 3109 2090 4 121 v 665 2210 V 717 2177 +a Fw(4132)p 960 2210 V 170 w(\004)1148 2141 y Fl(0)1148 +2202 y(c)p 1307 2210 V 1461 2177 a Fq(Xi)p 1569 2177 +31 4 v 37 w(c0)p 1853 2210 4 121 v 1870 2210 V 2165 2210 +V 2511 2210 V 3109 2210 V 665 2330 V 717 2298 a Fw(4312)p +960 2330 V 160 w(\004)1138 2262 y Fk(0)p Fl(0)1138 2322 +y(c)p 1307 2330 V 1435 2298 a Fq(Xi')p 1594 2298 31 4 +v 38 w(c0)p 1853 2330 4 121 v 1870 2330 V 193 w Fw(4314)p +2165 2330 V 153 w(\004)2335 2262 y Fk(\003)p Fl(0)2335 +2322 y(c)p 2511 2330 V 2665 2298 a Fq(Xi*)p 2824 2298 +31 4 v 38 w(c0)p 3109 2330 4 121 v 665 2451 V 717 2418 +a Fw(4232)p 960 2451 V 160 w(\004)1138 2382 y Fl(+)1138 +2443 y(c)p 1307 2451 V 1461 2418 a Fq(Xi)p 1569 2418 +31 4 v 37 w(c+)p 1853 2451 4 121 v 1870 2451 V 2165 2451 +V 2511 2451 V 3109 2451 V 665 2571 V 717 2539 a Fw(4322)p +960 2571 V 151 w(\004)1129 2502 y Fk(0)p Fl(+)1129 2563 +y(c)p 1307 2571 V 1435 2539 a Fq(Xi')p 1594 2539 31 4 +v 38 w(c+)p 1853 2571 4 121 v 1870 2571 V 193 w Fw(4324)p +2165 2571 V 143 w(\004)2325 2502 y Fk(\003)p Fl(+)2325 +2563 y(c)p 2511 2571 V 2665 2539 a Fq(Xi*)p 2824 2539 +31 4 v 38 w(c+)p 3109 2571 4 121 v 665 2692 V 717 2659 +a Fw(4332)p 960 2692 V 167 w(\012)1150 2623 y Fl(0)1150 +2684 y(c)p 1307 2692 V 1384 2659 a Fq(Omega)p 1645 2659 +31 4 v 38 w(c0)p 1853 2692 4 121 v 1870 2692 V 142 w +Fw(4334)p 2165 2692 V 150 w(\012)2337 2623 y Fk(\003)p +Fl(0)2337 2684 y(c)p 2511 2692 V 2588 2659 a Fq(Omega*)p +2900 2659 31 4 v 38 w(c0)p 3109 2692 4 121 v 665 2812 +V 717 2779 a Fw(5112)p 960 2812 V 157 w(\006)1140 2738 +y Fk(\000)1140 2804 y Fl(b)p 1307 2812 V 1384 2779 a +Fq(Sigma)p 1645 2779 31 4 v 38 w(b-)p 1853 2812 4 121 +v 1870 2812 V 142 w Fw(5114)p 2165 2812 V 140 w(\006)2327 +2738 y Fk(\003\000)2327 2804 y Fl(b)p 2511 2812 V 2588 +2779 a Fq(Sigma*)p 2900 2779 31 4 v 38 w(b-)p 3109 2812 +4 121 v 665 2932 V 717 2900 a Fw(5122)p 960 2932 V 167 +w(\003)1148 2864 y Fl(0)1148 2924 y(b)p 1307 2932 V 1358 +2900 a Fq(Lambda)p 1670 2900 31 4 v 39 w(b0)p 1853 2932 +4 121 v 1870 2932 V 2165 2932 V 2511 2932 V 3109 2932 +V 665 3053 V 717 3020 a Fw(5212)p 960 3053 V 165 w(\006)1148 +2984 y Fl(0)1148 3045 y(b)p 1307 3053 V 1384 3020 a Fq(Sigma)p +1645 3020 31 4 v 38 w(b0)p 1853 3053 4 121 v 1870 3053 +V 142 w Fw(5214)p 2165 3053 V 150 w(\006)2337 2984 y +Fk(\003)p Fl(0)2337 3045 y(b)p 2511 3053 V 2588 3020 +a Fq(Sigma*)p 2900 3020 31 4 v 38 w(b0)p 3109 3053 4 +121 v 665 3173 V 717 3141 a Fw(5222)p 960 3173 V 157 +w(\006)1140 3099 y Fl(+)1140 3166 y(b)p 1307 3173 V 1384 +3141 a Fq(Sigma)p 1645 3141 31 4 v 38 w(b+)p 1853 3173 +4 121 v 1870 3173 V 142 w Fw(5224)p 2165 3173 V 140 w(\006)2327 +3099 y Fk(\003)p Fl(+)2327 3166 y(b)p 2511 3173 V 2588 +3141 a Fq(Sigma*)p 2900 3141 31 4 v 38 w(b+)p 3109 3173 +4 121 v 667 3176 2445 4 v 0 3447 a Fw(to)g(the)i(g)q(.)47 +b(This)34 b(assignmen)m(t)g(seldom)f(agrees)h(with)g(the)g(visual)f +(impression,)g(and)h(is)f(not)h(in)m(tended)0 3555 y(to.)146 +3663 y(The)f(common)d(blo)s(c)m(k)h Fq(LUJETS)i Fw(has)f(expanded)h +(with)e(time,)g(and)g(can)h(no)m(w)g(house)g(4000)f(en)m(tries.)0 +3772 y(This)49 b(\014gure)g(ma)m(y)f(seem)i(ridiculously)c(large,)52 +b(but)d(actually)e(the)i(previous)g(limit)d(of)i(2000)g(w)m(as)0 +3880 y(often)38 b(reac)m(hed)h(in)e(studies)h(of)g(high-)p +Fj(p)1446 3895 y Fk(?)1541 3880 y Fw(pro)s(cesses)i(at)e(the)g(LHC)g +(and)g(SSC.)h(This)f(is)f(b)s(ecause)i(the)0 3988 y(ev)m(en)m(t)g +(record)f(con)m(tains)g(not)f(only)g(the)h(\014nal)f(particles,)h(but)f +(also)g(all)e(in)m(termediate)i(partons)g(and)0 4097 +y(hadrons,)30 b(whic)m(h)f(subsequen)m(t)m(y)k(sho)m(w)m(ered,)f +(fragmen)m(ted)c(or)h(deca)m(y)m(ed.)44 b(Included)30 +b(are)e(also)g(a)g(w)m(ealth)0 4205 y(of)42 b(photons)h(coming)e(from)h +Fj(\031)1146 4169 y Fl(0)1228 4205 y Fw(deca)m(ys;)49 +b(the)43 b(simplest)f(w)m(a)m(y)i(of)e(reducing)g(the)i(size)e(of)h +(the)g(ev)m(en)m(t)1162 4543 y(T)-8 b(able)33 b(10:)43 +b(Di\013ractiv)m(e)31 b(state)i(co)s(des.)p 889 4659 +2002 4 v 887 4780 4 121 v 967 4747 a(KF)p 1182 4780 V +191 w(Prin)m(ted)p 1729 4780 V 511 w(Meaning)p 2887 4780 +V 889 4783 2002 4 v 887 4903 4 121 v 963 4871 a(110)p +1182 4903 V 124 w Fq(rho)p 1393 4871 31 4 v 37 w(diff0)p +1729 4903 4 121 v 101 w Fw(Di\013ractiv)m(e)e Fj(\031)2317 +4835 y Fl(0)2357 4871 y Fj(=\032)2456 4835 y Fl(0)2495 +4871 y Fj(=\015)38 b Fw(state)p 2887 4903 V 887 5024 +V 963 4991 a(210)p 1182 5024 V 124 w Fq(pi)p 1342 4991 +31 4 v 37 w(diffr+)p 1729 5024 4 121 v 213 w Fw(Di\013ractiv)m(e)31 +b Fj(\031)2429 4955 y Fl(+)2521 4991 y Fw(state)p 2887 +5024 V 887 5144 V 963 5111 a(220)p 1182 5144 V 124 w +Fq(omega)p 1495 5111 31 4 v 38 w(di0)p 1729 5144 4 121 +v 239 w Fw(Di\013ractiv)m(e)g Fj(!)36 b Fw(state)p 2887 +5144 V 887 5264 V 963 5232 a(330)p 1182 5264 V 124 w +Fq(phi)p 1393 5232 31 4 v 37 w(diff0)p 1729 5264 4 121 +v 243 w Fw(Di\013ractiv)m(e)31 b Fj(\036)i Fw(state)p +2887 5264 V 887 5385 V 963 5352 a(440)p 1182 5385 V 124 +w Fq(J/psi)p 1495 5352 31 4 v 38 w(di0)p 1729 5385 4 +121 v 188 w Fw(Di\013ractiv)m(e)e(J)p Fj(= )37 b Fw(state)p +2887 5385 V 887 5505 V 939 5473 a(2110)p 1182 5505 V +150 w Fq(n)p 1342 5473 31 4 v 37 w(diffr)p 1729 5505 +4 121 v 296 w Fw(Di\013ractiv)m(e)31 b(n)i(state)p 2887 +5505 V 887 5626 V 939 5593 a(2210)p 1182 5626 V 124 w +Fq(p)p 1316 5593 31 4 v 37 w(diffr+)p 1729 5626 4 121 +v 271 w Fw(Di\013ractiv)m(e)e(p)i(state)p 2887 5626 V +889 5629 2002 4 v 1841 5953 a(58)p eop +%%Page: 59 65 +59 64 bop 0 -18 a Fw(record)41 b(is)f(actually)g(to)g(switc)m(h)i +(o\013)e Fj(\031)1434 -55 y Fl(0)1514 -18 y Fw(deca)m(ys)i(b)m(y)h +Fq(MDCY\(LUCOMP\(111\),1\)=0)p Fw(.)74 b(Also)40 b(note)h(that)0 +90 y(some)32 b(routines,)h(suc)m(h)h(as)e Fq(LUCLUS)j +Fw(and)d Fq(LUCELL)p Fw(,)i(use)g(memory)d(after)h(the)h(ev)m(en)m(t)i +(record)e(prop)s(er)f(as)0 198 y(a)g(w)m(orking)h(area.)43 +b(Still,)30 b(to)i(c)m(hange)i(the)f(size)g(of)f(the)h(common)e(blo)s +(c)m(k,)h(up)m(w)m(ards)j(or)d(do)m(wn)m(w)m(ards,)j(is)0 +307 y(easy:)40 b(just)25 b(do)e(a)h(global)e(substitute)i(in)f(the)i +(common)d(blo)s(c)m(k)i(and)g(c)m(hange)h(the)f Fq(MSTU\(4\))i +Fw(v)-5 b(alue)23 b(to)h(the)0 415 y(new)35 b(n)m(um)m(b)s(er.)49 +b(If)34 b(more)g(than)g(10000)f(lines)g(are)i(to)e(b)s(e)i(used,)h(the) +e(pac)m(king)h(of)e(colour)h(information)0 523 y(should)e(also)g(b)s(e) +h(c)m(hanged,)h(see)f Fq(MSTU\(5\))p Fw(.)p 0 668 2466 +9 v 0 892 9 225 v 79 808 a Fq(COMMON/LUJETS/N,K\(4000,5)q(\),P\()q +(4000)q(,5\),)q(V\(4)q(000,)q(5\))p 2457 892 V 0 900 +2466 9 v 0 1057 a Fo(Purp)s(ose:)48 b Fw(to)34 b(con)m(tain)g(the)h(ev) +m(en)m(t)h(record,)f(i.e.)49 b(the)34 b(complete)g(list)f(of)h(all)e +(partons)j(and)f(particles)472 1166 y(in)e(the)h(curren)m(t)h(ev)m(en)m +(t.)0 1274 y Fq(N)52 b(:)318 b Fw(n)m(um)m(b)s(er)38 +b(of)g(lines)e(in)h(the)h Fq(K)p Fw(,)g Fq(P)g Fw(and)f +Fq(V)h Fw(matrices)f(o)s(ccupied)h(b)m(y)g(the)g(curren)m(t)h(ev)m(en)m +(t.)60 b Fq(N)472 1382 y Fw(is)32 b(con)m(tin)m(uously)g(up)s(dated)g +(as)g(the)g(de\014nition)f(of)g(the)i(original)28 b(con\014guration)j +(and)h(the)472 1491 y(treatmen)m(t)26 b(of)f(fragmen)m(tation)e(and)i +(deca)m(y)i(pro)s(ceed.)42 b(In)26 b(the)f(follo)m(wing,)f(the)i +(individual)472 1599 y(parton/particle)31 b(n)m(um)m(b)s(er,)i(running) +f(b)s(et)m(w)m(een)j(1)d(and)h Fq(N)p Fw(,)g(is)f(called)f +Fq(I)p Fw(.)0 1707 y Fq(K\(I,1\))53 b(:)62 b Fw(status)30 +b(co)s(de)f(KS,)g(whic)m(h)g(giv)m(es)h(the)f(curren)m(t)h(status)f(of) +g(the)g(parton/particle)e(stored)i(in)472 1816 y(the)36 +b(line.)48 b(The)35 b(ground)g(rule)f(is)g(that)h(co)s(des)g(1{10)f +(corresp)s(ond)h(to)g(curren)m(tly)g(existing)472 1924 +y(partons/particles,)27 b(while)e(larger)f(co)s(des)j(con)m(tain)e +(partons/particles)g(whic)m(h)i(no)e(longer)472 2032 +y(exist,)33 b(or)g(other)f(kinds)h(of)f(ev)m(en)m(t)j(information.)236 +2141 y Fq(=)52 b(0)f(:)217 b Fw(empt)m(y)33 b(line.)236 +2249 y Fq(=)52 b(1)f(:)217 b Fw(an)36 b(undeca)m(y)m(ed)j(particle)c +(or)i(an)f(unfragmen)m(ted)h(jet,)g(the)g(latter)f(b)s(eing)f(either)i +(a)709 2357 y(single)31 b(jet)i(or)f(the)h(last)f(one)h(of)f(a)g(jet)h +(system.)236 2466 y Fq(=)52 b(2)f(:)217 b Fw(an)33 b(unfragmen)m(ted)h +(jet,)g(whic)m(h)g(is)f(follo)m(w)m(ed)g(b)m(y)i(more)d(jets)j(in)d +(the)i(same)g(colour-)709 2574 y(singlet)d(jet)i(system.)236 +2682 y Fq(=)52 b(3)f(:)217 b Fw(an)22 b(unfragmen)m(ted)g(jet)g(with)g +(sp)s(ecial)f(colour)g(\015o)m(w)i(information)c(stored)k(in)e +Fq(K\(I,4\))709 2791 y Fw(and)31 b Fq(K\(I,5\))p Fw(,)i(suc)m(h)f(that) +f(adjacen)m(t)h(partons)f(along)f(the)i(string)e(need)i(not)f(follo)m +(w)709 2899 y(eac)m(h)i(other)g(in)f(the)h(ev)m(en)m(t)h(record.)236 +3007 y Fq(=)52 b(4)f(:)217 b Fw(a)47 b(particle)g(whic)m(h)i(could)e +(ha)m(v)m(e)j(deca)m(y)m(ed,)k(but)48 b(did)g(not)g(within)f(the)h +(allo)m(w)m(ed)709 3116 y(v)m(olume)32 b(around)g(the)h(original)d(v)m +(ertex.)236 3224 y Fq(=)52 b(5)f(:)217 b Fw(a)34 b(particle)f(whic)m(h) +i(is)g(to)f(b)s(e)h(forced)g(to)f(deca)m(y)i(in)e(the)h(next)h +Fq(LUEXEC)g Fw(call,)d(in)h(the)709 3332 y(v)m(ertex)g(p)s(osition)d +(giv)m(en)i(\(this)f(co)s(de)h(is)f(only)g(set)h(b)m(y)h(user)f(in)m +(terv)m(en)m(tion\).)236 3441 y Fq(=)52 b(11)g(:)165 +b Fw(a)28 b(deca)m(y)m(ed)k(particle)27 b(or)i(a)g(fragmen)m(ted)f +(jet,)i(the)g(latter)e(b)s(eing)g(either)h(a)f(single)g(jet)709 +3549 y(or)k(the)h(last)f(one)h(of)f(a)g(jet)h(system,)g(cf.)44 +b Fq(=1)p Fw(.)236 3657 y Fq(=)52 b(12)g(:)165 b Fw(a)23 +b(fragmen)m(ted)h(jet,)i(whic)m(h)e(is)g(follo)m(w)m(ed)f(b)m(y)i(more) +e(jets)i(in)e(the)h(same)g(colour-singlet)709 3766 y(jet)29 +b(system,)i(cf.)43 b Fq(=2)p Fw(.)g(F)-8 b(urther,)30 +b(a)f(B)h(meson)f(whic)m(h)h(deca)m(y)m(ed)i(as)e(a)p +3196 3688 70 4 v 29 w(B)g(one,)g(or)f(vice)709 3874 y(v)m(ersa,)i(b)s +(ecause)h(of)d(B{)p 1568 3796 V(B)h(mixing,)f(is)g(mark)m(ed)h(with)g +(this)f(co)s(de)i(rather)f(than)g Fq(=11)p Fw(.)236 3982 +y Fq(=)52 b(13)g(:)165 b Fw(a)35 b(jet)h(whic)m(h)h(has)f(b)s(een)h +(remo)m(v)m(ed)g(when)g(sp)s(ecial)e(colour)g(\015o)m(w)h(information)d +(has)709 4091 y(b)s(een)g(used)h(to)e(rearrange)h(a)f(jet)g(system,)i +(cf.)44 b Fq(=3)p Fw(.)236 4199 y Fq(=)52 b(14)g(:)165 +b Fw(a)38 b(parton)h(whic)m(h)g(has)g(branc)m(hed)i(in)m(to)d(further)h +(partons,)i(with)d(sp)s(ecial)g(colour-)709 4307 y(\015o)m(w)33 +b(information)c(pro)m(vided,)k(cf.)44 b Fq(=3)p Fw(.)236 +4416 y Fq(=)52 b(15)g(:)165 b Fw(a)32 b(particle)f(whic)m(h)i(has)g(b)s +(een)h(forced)f(to)f(deca)m(y)i(\(b)m(y)f(user)h(in)m(terv)m(en)m +(tion\),)f(cf.)43 b Fq(=5)p Fw(.)236 4524 y Fq(=)52 b(21)g(:)165 +b Fw(do)s(cumen)m(tation)32 b(lines)g(used)i(to)e(giv)m(e)h(a)g +(compressed)h(story)f(of)g(the)g(ev)m(en)m(t)i(at)d(the)709 +4632 y(b)s(eginning)f(of)h(the)h(ev)m(en)m(t)h(record.)236 +4741 y Fq(=)52 b(31)g(:)165 b Fw(lines)31 b(with)i(information)c(on)j +(sphericit)m(y)-8 b(,)33 b(thrust)h(or)e(cluster)h(searc)m(h.)236 +4849 y Fq(=)52 b(32)g(:)165 b Fw(tabular)31 b(output,)i(as)g(generated) +g(b)m(y)i Fq(LUTABU)p Fw(.)236 4958 y Fq(=)52 b(41)g(:)165 +b Fw(junction)32 b(\(curren)m(tly)h(not)f(fully)g(implemen)m(ted\).)236 +5066 y Fq(<)52 b(0)f(:)217 b Fw(these)45 b(co)s(des)g(are)f(nev)m(er)h +(used)h(b)m(y)e(the)h(program,)g(and)g(are)f(therefore)g(usually)709 +5174 y(not)c(a\013ected)i(b)m(y)g(op)s(erations)e(on)h(the)g(record,)j +(suc)m(h)e(as)f Fq(LUROBO)p Fw(,)i Fq(LULIST)f Fw(and)709 +5283 y(ev)m(en)m(t-analysis)36 b(routines)g(\(the)g(exception)h(is)e +(some)h Fq(LUEDIT)i Fw(calls,)d(where)i(lines)709 5391 +y(are)30 b(mo)m(v)m(ed)i(but)f(not)g(deleted\).)43 b(Suc)m(h)32 +b(co)s(des)g(ma)m(y)e(therefore)i(b)s(e)f(useful)g(in)f(some)709 +5499 y(connections.)0 5608 y Fq(K\(I,2\))53 b(:)62 b +Fw(parton/particle)31 b(KF)h(co)s(de,)h(as)g(describ)s(ed)g(in)f +(section)h(5.1.)1841 5953 y(59)p eop +%%Page: 60 66 +60 65 bop 0 -18 a Fq(K\(I,3\))53 b(:)62 b Fw(line)28 +b(n)m(um)m(b)s(er)h(of)f(paren)m(t)i(particle)d(or)i(jet,)g(where)h +(kno)m(wn,)h(otherwise)f(0.)42 b(Note)28 b(that)h(the)472 +90 y(assignmen)m(t)j(of)g(a)f(particle)g(to)g(a)h(giv)m(en)g(jet)g(in)f +(a)h(jet)f(system)i(is)f(unph)m(ysical,)g(and)g(what)472 +198 y(is)h(giv)m(en)f(there)i(is)e(only)g(related)g(to)g(the)h(w)m(a)m +(y)h(the)f(ev)m(en)m(t)h(w)m(as)g(generated.)0 307 y +Fq(K\(I,4\))53 b(:)62 b Fw(normally)25 b(the)i(line)e(n)m(um)m(b)s(er)i +(of)f(the)h(\014rst)g(daugh)m(ter;)j(it)25 b(is)i(0)f(for)g(an)h +(undeca)m(y)m(ed)i(particle)472 415 y(or)k(unfragmen)m(ted)f(jet.)472 +523 y(F)-8 b(or)26 b Fq(K\(I,1\))53 b(=)e(3,)h(13)27 +b Fw(or)f Fq(14)p Fw(,)j(instead,)e(it)f(con)m(tains)g(sp)s(ecial)g +(colour-\015o)m(w)g(information)472 632 y(\(for)32 b(in)m(ternal)g(use) +h(only\))f(of)g(the)h(form)472 740 y Fq(K\(I,4\))i Fw(=)d +(200000000*MCFR)e(+)j(100000000*MCTO)e(+)i(10000*ICFR)e(+)h(ICTO,)472 +848 y(where)38 b(ICFR)f(and)g(ICTO)h(giv)m(e)e(the)i(line)d(n)m(um)m(b) +s(ers)j(of)e(the)h(partons)g(from)f(whic)m(h)h(the)472 +957 y(colour)31 b(comes)g(and)g(to)f(where)j(it)d(go)s(es,)h(resp)s +(ectiv)m(ely;)i(MCFR)e(and)g(MCTO)h(originally)472 1065 +y(are)23 b(0)f(and)h(are)f(set)h(to)g(1)f(when)h(the)g(corresp)s +(onding)g(colour)e(connection)i(has)g(b)s(een)g(traced)472 +1173 y(in)36 b(the)g Fq(LUPREP)h Fw(rearrangemen)m(t)f(pro)s(cedure.)55 +b(\(The)37 b(pac)m(king)f(ma)m(y)g(b)s(e)g(c)m(hanged)h(with)472 +1282 y Fq(MSTU\(5\))p Fw(.\))58 b(The)37 b(`from')f(colour)g(p)s +(osition)e(ma)m(y)j(indicate)e(a)i(parton)f(whic)m(h)h(branc)m(hed)472 +1390 y(to)e(pro)s(duce)h(the)g(curren)m(t)g(parton,)f(or)g(a)g(parton)g +(created)h(together)f(with)g(the)g(curren)m(t)472 1498 +y(parton)27 b(but)g(with)g(matc)m(hed)g(an)m(ticolour,)f(while)g(the)i +(`to')e(normally)f(indicates)h(a)h(parton)472 1607 y(that)38 +b(the)g(curren)m(t)h(parton)e(branc)m(hes)j(in)m(to.)58 +b(Th)m(us,)40 b(for)d(setting)h(up)g(an)f(initial)d(colour)472 +1715 y(con\014guration,)40 b(it)e(is)g(normally)e(only)j(the)g(`from')f +(part)g(that)h(is)f(used,)k(while)37 b(the)j(`to')472 +1823 y(part)33 b(is)f(added)h(b)m(y)g(the)g(program)e(in)h(a)g +(subsequen)m(t)k(call)31 b(to)h(parton-sho)m(w)m(er)h(ev)m(olution)472 +1932 y(\(for)28 b(\014nal-state)f(radiation;)h(it)f(is)h(the)h(other)f +(w)m(a)m(y)h(around)g(for)e(initial-state)e(radiation\).)472 +2040 y Fo(Note:)69 b Fw(normally)43 b(most)i(users)h(nev)m(er)h(ha)m(v) +m(e)g(to)e(w)m(orry)h(ab)s(out)f(the)h(exact)g(rules)f(for)472 +2148 y(colour-\015o)m(w)35 b(storage,)h(since)g(this)f(is)g(used)i +(mainly)c(for)i(in)m(ternal)g(purp)s(oses.)53 b(Ho)m(w)m(ev)m(er,)472 +2257 y(when)36 b(it)d(is)h(necessary)j(to)d(de\014ne)i(this)e(\015o)m +(w,)i(it)d(is)h(recommended)h(to)f(use)h(the)g Fq(LUJOIN)472 +2365 y Fw(routine,)f(since)g(it)f(is)g(lik)m(ely)g(that)h(this)f(w)m +(ould)h(reduce)h(the)f(c)m(hances)i(of)d(making)g(a)g(mis-)472 +2473 y(tak)m(e.)0 2582 y Fq(K\(I,5\))53 b(:)62 b Fw(normally)26 +b(the)i(line)f(n)m(um)m(b)s(er)h(of)f(the)h(last)g(daugh)m(ter;)i(it)c +(is)i(0)f(for)h(an)f(undeca)m(y)m(ed)k(particle)472 2690 +y(or)i(unfragmen)m(ted)f(jet.)472 2798 y(F)-8 b(or)26 +b Fq(K\(I,1\))53 b(=)e(3,)h(13)27 b Fw(or)f Fq(14)p Fw(,)j(instead,)e +(it)f(con)m(tains)g(sp)s(ecial)g(colour-\015o)m(w)g(information)472 +2907 y(\(for)32 b(in)m(ternal)g(use)h(only\))f(of)g(the)h(form)472 +3015 y Fq(K\(I,5\))i Fw(=)d(200000000*MCFR)e(+)j(100000000*MCTO)e(+)i +(10000*ICFR)e(+)h(ICTO,)472 3123 y(where)38 b(ICFR)f(and)g(ICTO)h(giv)m +(e)e(the)i(line)d(n)m(um)m(b)s(ers)j(of)e(the)h(partons)g(from)f(whic)m +(h)h(the)472 3232 y(an)m(ticolour)c(comes)i(and)f(to)g(where)i(it)d(go) +s(es,)i(resp)s(ectiv)m(ely;)i(MCFR)d(and)h(MCTO)g(orig-)472 +3340 y(inally)40 b(are)i(0)f(and)h(are)g(set)g(to)f(1)h(when)h(the)f +(corresp)s(onding)f(colour)g(connection)h(has)472 3448 +y(b)s(een)e(traced)f(in)e(the)i Fq(LUPREP)h Fw(rearrangemen)m(t)f(pro)s +(cedure.)62 b(F)-8 b(or)37 b(further)i(discussion,)472 +3557 y(see)34 b Fq(K\(I,4\))p Fw(.)0 3665 y Fq(P\(I,1\))53 +b(:)62 b Fj(p)521 3680 y Fh(x)565 3665 y Fw(,)33 b(momen)m(tum)e(in)h +(the)h Fj(x)g Fw(direction,)e(in)h(GeV/)p Fj(c)p Fw(.)0 +3774 y Fq(P\(I,2\))53 b(:)62 b Fj(p)521 3789 y Fh(y)563 +3774 y Fw(,)32 b(momen)m(tum)g(in)f(the)i Fj(y)j Fw(direction,)c(in)f +(GeV/)p Fj(c)p Fw(.)0 3882 y Fq(P\(I,3\))53 b(:)62 b +Fj(p)521 3897 y Fh(z)561 3882 y Fw(,)33 b(momen)m(tum)e(in)h(the)h +Fj(z)k Fw(direction,)32 b(in)f(GeV/)p Fj(c)p Fw(.)0 3990 +y Fq(P\(I,4\))53 b(:)62 b Fj(E)6 b Fw(,)33 b(energy)-8 +b(,)34 b(in)d(GeV.)0 4099 y Fq(P\(I,5\))53 b(:)62 b Fj(m)p +Fw(,)31 b(mass,)e(in)g(GeV/)p Fj(c)1273 4062 y Fl(2)1312 +4099 y Fw(.)42 b(In)30 b(parton)e(sho)m(w)m(ers,)k(with)d(space-lik)m +(e)g(virtualities,)e(i.e.)42 b(where)472 4207 y Fj(Q)549 +4171 y Fl(2)617 4207 y Fw(=)27 b Fn(\000)p Fj(m)882 4171 +y Fl(2)950 4207 y Fj(>)h Fw(0,)k(one)h(puts)g Fq(P\(I,5\))p +Fw(=)d Fn(\000)p Fj(Q)p Fw(.)0 4315 y Fq(V\(I,1\))53 +b(:)62 b Fj(x)33 b Fw(p)s(osition)e(of)h(pro)s(duction)g(v)m(ertex,)j +(in)c(mm.)0 4424 y Fq(V\(I,2\))53 b(:)62 b Fj(y)36 b +Fw(p)s(osition)31 b(of)h(pro)s(duction)g(v)m(ertex,)i(in)e(mm.)0 +4532 y Fq(V\(I,3\))53 b(:)62 b Fj(z)38 b Fw(p)s(osition)30 +b(of)j(pro)s(duction)e(v)m(ertex,)k(in)d(mm.)0 4640 y +Fq(V\(I,4\))53 b(:)62 b Fw(time)32 b(of)g(pro)s(duction,)g(in)g(mm/)p +Fj(c)e Fw(\()p Fn(\031)e Fw(3)p Fj(:)p Fw(33)22 b Fn(\002)h +Fw(10)2265 4604 y Fk(\000)p Fl(12)2426 4640 y Fw(s\).)0 +4749 y Fq(V\(I,5\))53 b(:)62 b Fw(prop)s(er)36 b(lifetime)d(of)i +(particle,)g(in)g(mm/)p Fj(c)f Fw(\()p Fn(\031)g Fw(3)p +Fj(:)p Fw(33)23 b Fn(\002)i Fw(10)2589 4712 y Fk(\000)p +Fl(12)2754 4749 y Fw(s\).)53 b(If)36 b(the)g(particle)e(is)i(not)472 +4857 y(exp)s(ected)e(to)d(deca)m(y)-8 b(,)33 b Fq(V\(I,5\)=0)p +Fw(.)45 b(A)32 b(line)e(with)h Fq(K\(I,1\)=4)p Fw(,)j(i.e.)42 +b(a)32 b(particle)e(that)h(could)472 4965 y(ha)m(v)m(e)k(deca)m(y)m +(ed,)i(but)d(did)f(not)h(within)e(the)i(allo)m(w)m(ed)f(region,)g(has)i +(the)f(prop)s(er)f(non-zero)472 5074 y Fq(V\(I,5\))p +Fw(.)472 5182 y(In)i(the)h(absence)g(of)e(electric)g(or)g(magnetic)g +(\014elds,)h(or)g(other)g(disturbances,)h(the)f(deca)m(y)472 +5290 y(v)m(ertex)g Fq(VP)e Fw(of)f(an)g(unstable)h(particle)e(ma)m(y)i +(b)s(e)g(calculated)e(as)472 5399 y Fq(VP\(j\))53 b(=)f(V\(I,j\))g(+)g +(V\(I,5\)*P\(I,j\)/P\(I,5\))p Fw(,)38 b Fq(j)33 b Fw(=)f(1{4.)1841 +5953 y(60)p eop +%%Page: 61 67 +61 66 bop 0 -18 a Fp(5.3)135 b(Ho)l(w)46 b(The)e(Ev)l(en)l(t)i(Record)g +(W)-11 b(orks)0 154 y Fw(The)28 b(ev)m(en)m(t)i(record)d(is)g(the)h +(main)e(rep)s(ository)h(for)g(information)d(ab)s(out)j(an)g(ev)m(en)m +(t.)44 b(In)27 b(the)h(generation)0 263 y(c)m(hain,)38 +b(it)e(is)h(used)h(as)f(a)g(`scoreb)s(oard')g(for)g(what)g(has)h +(already)e(b)s(een)i(done)f(and)g(what)h(remains)e(to)0 +371 y(b)s(e)g(done.)54 b(This)36 b(information)d(can)j(b)s(e)g(studied) +g(b)m(y)h(y)m(ou,)h(to)d(access)j(information)33 b(not)j(only)f(ab)s +(out)0 479 y(the)e(\014nal)f(state,)h(but)g(also)e(ab)s(out)h(what)h +(came)g(b)s(efore.)0 727 y Fo(5.3.1)112 b(A)37 b(simple)f(example)0 +900 y Fw(The)27 b(example)g(of)f(section)g(3.5)g(ma)m(y)h(help)f(to)g +(clarify)f(what)i(is)f(going)f(on.)42 b(When)27 b Fq(LU2ENT)h +Fw(is)e(called)g(to)0 1008 y(generate)j(a)g(q)p 515 955 +52 4 v(q)h(pair,)e(the)i(quarks)g(are)f(stored)g(in)f(lines)g(1)h(and)f +(2)h(of)f(the)i(ev)m(en)m(t)g(record,)g(resp)s(ectiv)m(ely)-8 +b(.)0 1116 y(Colour)43 b(information)e(is)j(set)g(to)g(sho)m(w)h(that)f +(they)h(b)s(elong)e(together)i(as)f(a)g(colour)f(singlet.)77 +b(The)0 1225 y(coun)m(ter)32 b Fq(N)f Fw(is)f(also)g(up)s(dated)i(to)e +(the)i(v)-5 b(alue)30 b(of)g(2.)43 b(A)m(t)31 b(no)g(stage)g(is)g(the)g +(previously)g(generated)h(ev)m(en)m(t)0 1333 y(remo)m(v)m(ed.)53 +b(Lines)35 b(1)g(and)h(2)f(are)g(o)m(v)m(erwritten,)i(but)f(lines)e(3)h +(on)m(w)m(ards)i(still)c(con)m(tain)i(whatev)m(er)i(ma)m(y)0 +1441 y(ha)m(v)m(e)j(b)s(een)f(there)g(b)s(efore.)60 b(This)39 +b(do)s(es)f(not)g(matter,)h(since)g Fq(N)g Fw(indicates)e(where)j(the)e +(`real')g(record)0 1550 y(ends.)146 1658 y(As)e Fq(LUEXEC)h +Fw(is)e(called,)h(explicitly)d(b)m(y)k(y)m(ou)f(or)f(indirectly)f(b)m +(y)k Fq(LU2ENT)p Fw(,)f(the)f(\014rst)g(en)m(try)h(is)e(con-)0 +1766 y(sidered)29 b(and)f(found)g(to)f(b)s(e)i(the)f(\014rst)h(jet)f +(of)f(a)h(system.)43 b(Therefore)29 b(the)f(second)i(en)m(try)f(is)e +(also)g(found,)0 1875 y(and)h(these)g(t)m(w)m(o)g(together)g(form)e(a)h +(jet)h(system,)h(whic)m(h)f(ma)m(y)f(b)s(e)h(allo)m(w)m(ed)e(to)h +(fragmen)m(t.)42 b(The)28 b(`string')0 1983 y(that)35 +b(fragmen)m(ts)f(is)g(put)h(in)f(line)g(3)g(and)h(the)h(fragmen)m +(tation)c(pro)s(ducts)k(in)e(lines)g(4)g(through)h(10)f(\(in)0 +2091 y(this)g(particular)f(case\).)51 b(A)m(t)35 b(the)g(same)f(time,)g +(the)h(q)g(and)p 2192 2039 V 35 w(q)g(in)f(the)h(\014rst)g(t)m(w)m(o)h +(lines)e(are)g(mark)m(ed)h(as)0 2200 y(ha)m(ving)c(fragmen)m(ted,)g +(and)g(the)g(same)f(for)h(the)g(string.)42 b(A)m(t)31 +b(this)g(stage,)g Fq(N)g Fw(is)g(10.)42 b(In)m(ternally)30 +b(there)i(is)0 2308 y(another)k(coun)m(ter)h(with)f(the)g(v)-5 +b(alue)36 b(2,)h(whic)m(h)f(indicates)g(ho)m(w)g(far)g(do)m(wn)h(in)e +(the)i(record)f(the)h(ev)m(en)m(t)0 2416 y(has)c(b)s(een)g(studied.)146 +2525 y(This)23 b(second)g(coun)m(ter)g(is)f(gradually)e(increased)j(b)m +(y)g(one.)41 b(If)22 b(the)g(en)m(try)i(in)d(the)i(corresp)s(onding)f +(line)0 2633 y(can)g(fragmen)m(t)f(or)h(deca)m(y)-8 b(,)25 +b(then)d(fragmen)m(tation)e(or)i(deca)m(y)h(is)e(p)s(erfomed.)39 +b(The)23 b(fragmen)m(tation/deca)m(y)0 2741 y(pro)s(ducts)40 +b(are)g(added)h(at)e(the)h(end)g(of)g(the)g(ev)m(en)m(t)h(record,)i +(and)c Fq(N)h Fw(is)g(up)s(dated)g(accordingly)-8 b(.)64 +b(The)0 2850 y(en)m(try)30 b(is)f(then)h(also)e(mark)m(ed)h(as)h(ha)m +(ving)f(b)s(een)g(treated.)43 b(F)-8 b(or)29 b(instance,)h(when)g(line) +e(3)h(is)f(considered,)0 2958 y(the)g(`string')e(en)m(try)j(of)e(this)g +(line)e(is)i(seen)i(to)e(ha)m(v)m(e)h(b)s(een)g(fragmen)m(ted,)h(and)e +(no)g(action)f(is)h(tak)m(en.)43 b(Line)0 3067 y(4,)d(a)e +Fj(\032)253 3030 y Fl(+)312 3067 y Fw(,)i(is)e(allo)m(w)m(ed)g(to)g +(deca)m(y)h(to)g Fj(\031)1422 3030 y Fl(+)1480 3067 y +Fj(\031)1539 3030 y Fl(0)1579 3067 y Fw(;)i(the)e(deca)m(y)h(pro)s +(ducts)f(are)f(stored)h(in)f(lines)f(11)h(and)h(12,)0 +3175 y(and)34 b(line)g(4)g(is)g(mark)m(ed)g(as)h(ha)m(ving)f(deca)m(y)m +(ed.)51 b(Next,)36 b(en)m(try)f(5)g(is)e(allo)m(w)m(ed)h(to)g(deca)m(y) +-8 b(.)50 b(The)36 b(en)m(try)f(in)0 3283 y(line)d(6,)g +Fj(\031)352 3247 y Fl(+)411 3283 y Fw(,)i(is)e(a)h(stable)f(particle)g +(\(b)m(y)i(default\))e(and)h(is)g(therefore)g(passed)h(b)m(y)g(without) +f(an)m(y)g(action)0 3392 y(b)s(eing)f(tak)m(en.)146 3500 +y(In)i(the)g(b)s(eginning)e(of)h(the)h(pro)s(cess,)h(en)m(tries)f(are)f +(usually)g(unstable,)h(and)f Fq(N)h Fw(gro)m(ws)g(faster)f(than)0 +3608 y(the)j(second)h(coun)m(ter)g(of)f(treated)g(en)m(tries.)54 +b(Later)35 b(on,)i(an)f(increasing)f(fraction)f(of)i(the)g(en)m(tries)g +(are)0 3717 y(stable)42 b(end)i(pro)s(ducts,)h(and)e(the)g(r^)-49 +b(oles)42 b(are)h(no)m(w)g(rev)m(ersed,)48 b(with)42 +b(the)h(second)h(coun)m(ter)f(gro)m(wing)0 3825 y(faster.)53 +b(When)37 b(the)f(t)m(w)m(o)g(coincide,)g(the)g(end)g(of)g(the)g +(record)g(has)g(b)s(een)g(reac)m(hed,)i(and)e(the)g(pro)s(cess)0 +3933 y(can)d(b)s(e)g(stopp)s(ed.)45 b(All)31 b(unstable)i(ob)5 +b(jects)34 b(ha)m(v)m(e)g(no)m(w)f(b)s(een)h(allo)m(w)m(ed)e(to)g +(fragmen)m(t)g(or)h(deca)m(y)-8 b(.)45 b(They)0 4042 +y(are)33 b(still)d(presen)m(t)k(in)e(the)h(record,)g(so)g(as)g(to)f +(simplify)e(the)j(tracing)e(of)i(the)g(history)-8 b(.)146 +4150 y(Notice)26 b(that)g Fq(LUEXEC)h Fw(could)f(w)m(ell)f(b)s(e)i +(called)d(a)i(second)i(time.)39 b(The)27 b(second)h(coun)m(ter)f(w)m +(ould)f(then)0 4258 y(start)41 b(all)d(o)m(v)m(er)k(from)d(the)i(b)s +(eginning,)g(but)g(slide)f(through)h(un)m(til)e(the)i(end)g(without)f +(causing)h(an)m(y)0 4367 y(action,)25 b(since)h(all)c(ob)5 +b(jects)26 b(that)f(can)f(b)s(e)h(treated)g(already)g(ha)m(v)m(e)h(b)s +(een.)41 b(Unless)26 b(some)e(of)g(the)i(relev)-5 b(an)m(t)0 +4475 y(switc)m(hes)41 b(w)m(ere)f(c)m(hanged)g(mean)m(while,)g(that)f +(is.)62 b(F)-8 b(or)38 b(instance,)j(if)d Fj(\031)2643 +4439 y Fl(0)2721 4475 y Fw(deca)m(ys)j(w)m(ere)g(switc)m(hed)f(o\013)0 +4583 y(the)30 b(\014rst)g(time)e(around)i(but)f(on)h(the)g(second,)h +(all)d(the)h Fj(\031)2078 4547 y Fl(0)2118 4583 y Fw('s)h(found)f(in)g +(the)h(record)g(w)m(ould)g(b)s(e)f(allo)m(w)m(ed)0 4692 +y(to)g(deca)m(y)i(in)e(the)i(second)g(call.)40 b(A)30 +b(particle)f(once)h(deca)m(y)m(ed)i(is)d(not)h(`undeca)m(y)m(ed',)j(ho) +m(w)m(ev)m(er,)g(so)c(if)g(the)0 4800 y Fj(\031)59 4764 +y Fl(0)131 4800 y Fw(is)j(put)h(bac)m(k)g(stable)g(and)f +Fq(LUEXEC)j Fw(is)d(called)f(a)h(third)g(time,)g(nothing)f(will)f(happ) +s(en.)0 5048 y Fo(5.3.2)112 b(Applications)36 b(to)h(PYTHIA)0 +5220 y Fw(In)d(a)g(full-blo)m(wn)e(ev)m(en)m(t)k(generated)f(with)f +Fm(Pythia)p Fw(,)g(the)h(usage)g(of)40 b Fq(LUJETS)c +Fw(is)e(more)f(complicated,)0 5329 y(although)g(the)h(general)f +(principles)g(surviv)m(e.)49 b Fq(LUJETS)35 b Fw(is)e(used)i(extensiv)m +(ely)h(b)s(oth)d(b)m(y)i(the)f Fm(Pythia)0 5437 y Fw(and)43 +b(the)f Fm(Jetset)g Fw(routines;)47 b(indeed)c(it)e(pro)m(vides)i(the)g +(bridge)f(that)g(allo)m(ws)g(the)h(general)e(utilit)m(y)0 +5545 y(routines)32 b(in)g Fm(Jetset)f Fw(to)h(b)s(e)h(used)g(also)f +(for)f Fm(Pythia)i Fw(ev)m(en)m(ts.)46 b(The)33 b Fm(Pythia)g +Fw(ev)m(en)m(t)h(listing)c(b)s(egins)0 5654 y(\(optionally\))39 +b(with)j(a)g(few)h(lines)e(of)g(ev)m(en)m(t)j(summary)-8 +b(,)44 b(sp)s(eci\014c)f(to)f(the)g(hard)g(pro)s(cess)i(sim)m(ulated) +1841 5953 y(61)p eop +%%Page: 62 68 +62 67 bop 0 -18 a Fw(and)41 b(th)m(us)i(not)e(describ)s(ed)h(in)f(the)h +(o)m(v)m(erview)g(ab)s(o)m(v)m(e.)71 b(These)43 b(sp)s(eci\014c)f +(parts)g(are)f(co)m(v)m(ered)i(in)e(the)0 90 y(follo)m(wing.)146 +198 y(In)26 b(most)f(instances,)i(only)e(the)h(partons)f(and)g +(particles)g(actually)f(pro)s(duced)i(are)f(of)g(in)m(terest.)41 +b(F)-8 b(or)0 307 y Fq(MSTP\(125\)=0)p Fw(,)32 b(the)27 +b(ev)m(en)m(t)j(record)e(starts)g(o\013)f(with)g(the)h(parton)g +(con\014guration)e(existing)h(after)g(hard)0 415 y(in)m(teraction,)45 +b(initial-)39 b(and)k(\014nal-state)f(radiation,)i(m)m(ultiple)d(in)m +(teractions)h(and)i(b)s(eam)e(remnan)m(ts)0 523 y(ha)m(v)m(e)i(b)s(een) +g(considered.)76 b(The)45 b(partons)e(are)g(arranged)g(in)g(colour)f +(singlet)g(clusters,)k(ordered)e(as)0 632 y(required)30 +b(for)e(string)h(fragmen)m(tation.)41 b(Also)28 b(photons)i(and)f +(leptons)g(pro)s(duced)i(as)e(part)g(of)g(the)g(hard)0 +740 y(in)m(teraction)39 b(\(e.g.)66 b(from)39 b(q)p 1037 +687 52 4 v(q)i Fn(!)f Fw(g)q Fj(\015)45 b Fw(or)40 b(u)p +1596 687 55 4 v(u)h Fn(!)f Fw(Z)1891 704 y Fl(0)1970 +740 y Fn(!)g Fw(e)2153 704 y Fl(+)2213 740 y Fw(e)2256 +704 y Fk(\000)2315 740 y Fw(\))g(app)s(ear)g(in)f(this)h(part)g(of)f +(the)i(ev)m(en)m(t)0 848 y(record.)i(These)30 b(original)c(en)m(tries)j +(app)s(ear)g(with)g(p)s(oin)m(ter)f Fq(K\(I,3\)=0)p Fw(,)k(whereas)e +(the)f(pro)s(ducts)h(of)e(the)0 957 y(subsequen)m(t)41 +b(fragmen)m(tation)c(and)h(deca)m(y)i(ha)m(v)m(e)g Fq(K\(I,3\))g +Fw(n)m(um)m(b)s(ers)f(p)s(oin)m(ting)e(bac)m(k)i(to)f(the)h(line)e(of)0 +1065 y(the)c(paren)m(t.)146 1173 y(The)f(standard)e(do)s(cumen)m +(tation,)g(obtained)g(with)g Fq(MSTP\(125\)=1)p Fw(,)k(includes)c(a)g +(few)h(lines)e(at)h(the)0 1282 y(b)s(eginning)23 b(of)h(the)g(ev)m(en)m +(t)j(record,)f(whic)m(h)f(con)m(tain)f(a)g(brief)g(summary)f(of)h(the)h +(pro)s(cess)h(that)e(has)g(tak)m(en)0 1390 y(place.)43 +b(The)33 b(n)m(um)m(b)s(er)g(of)f(lines)f(used)j(dep)s(ends)g(on)e(the) +h(nature)f(of)g(the)h(hard)f(pro)s(cess)i(and)e(is)g(stored)0 +1498 y(in)e Fq(MSTI\(4\))i Fw(for)f(the)g(curren)m(t)h(ev)m(en)m(t.)44 +b(These)33 b(lines)d(all)e(ha)m(v)m(e)k Fq(K\(I,1\)=21)p +Fw(.)46 b(F)-8 b(or)29 b(all)g(pro)s(cesses,)k(lines)0 +1607 y(1)e(and)g(2)f(giv)m(e)h(the)g(t)m(w)m(o)h(incoming)d(hadrons.)43 +b(When)32 b(listed)e(with)g Fq(LULIST)p Fw(,)j(these)f(t)m(w)m(o)g +(lines)e(will)e(b)s(e)0 1715 y(separated)36 b(from)f(subsequen)m(t)j +(ones)e(b)m(y)h(a)e(sequence)j(of)d(`)p Fq(======)p Fw(')i(signs,)f(to) +f(impro)m(v)m(e)g(readabilit)m(y)-8 b(.)0 1823 y(F)g(or)36 +b(di\013ractiv)m(e)h(and)g(elastic)f(ev)m(en)m(ts,)41 +b(the)c(t)m(w)m(o)h(outgoing)d(states)j(in)f(lines)f(3)h(and)g(4)g +(complete)f(the)0 1932 y(list.)56 b(Otherwise,)40 b(lines)c(3)h(and)h +(4)f(con)m(tain)g(the)h(t)m(w)m(o)g(partons)f(that)h(initiate)c(the)k +(t)m(w)m(o)g(initial-state)0 2040 y(parton)k(sho)m(w)m(ers,)47 +b(and)42 b(5)g(and)g(6)g(the)g(end)h(pro)s(ducts)g(of)e(these)j(sho)m +(w)m(ers,)i(i.e.)72 b(the)42 b(partons)h(that)0 2148 +y(en)m(ter)f(the)f(hard)f(in)m(teraction.)67 b(With)40 +b(initial-state)d(radiation)h(switc)m(hed)k(o\013,)g(lines)e(3)g(and)h +(5)f(and)0 2257 y(lines)e(4)h(and)g(6)g(coincide.)62 +b(F)-8 b(or)39 b(a)f(simple)g(2)g Fn(!)h Fw(2)g(hard)g(scattering,)h +(lines)f(7)f(and)h(8)g(giv)m(e)g(the)h(t)m(w)m(o)0 2365 +y(outgoing)25 b(partons/particles)h(from)f(the)i(hard)g(in)m +(teraction,)f(b)s(efore)h(an)m(y)g(\014nal-state)f(radiation.)39 +b(F)-8 b(or)0 2473 y(2)29 b Fn(!)f Fw(2)33 b(pro)s(cesses)j(pro)s +(ceeding)d(via)g(an)g(in)m(termediate)f(resonance)j(suc)m(h)g(as)e +Fj(\015)2909 2437 y Fk(\003)2949 2473 y Fj(=)p Fw(Z)3058 +2437 y Fl(0)3096 2473 y Fw(,)h(W)3258 2437 y Fk(\006)3351 +2473 y Fw(or)f(H)3544 2437 y Fl(0)3583 2473 y Fw(,)h(the)0 +2582 y(resonance)i(is)f(found)g(in)f(line)g(7)g(and)h(the)h(t)m(w)m(o)f +(outgoing)f(partons/particles)g(in)g(8)h(and)g(9.)50 +b(In)36 b(some)0 2690 y(cases)g(one)g(of)e(these)i(ma)m(y)f(b)s(e)g(a)g +(resonance)i(in)d(its)g(o)m(wn)i(righ)m(t,)f(or)f(b)s(oth)h(of)g(them,) +g(so)g(that)g(further)0 2798 y(pairs)43 b(of)h(lines)f(are)g(added)i +(for)e(subsequen)m(t)k(deca)m(ys.)79 b(If)44 b(the)g(deca)m(y)h(of)e(a) +h(giv)m(en)g(resonance)h(has)0 2907 y(b)s(een)36 b(switc)m(hed)g +(o\013,)g(then)g(no)f(deca)m(y)i(pro)s(ducts)f(are)f(listed)f(either)h +(in)f(this)h(initial)d(summary)i(or)h(in)0 3015 y(the)e(subsequen)m(t)i +(ordinary)d(listing.)41 b(Whenev)m(er)35 b(partons)e(are)f(listed,)g +(they)h(are)g(assumed)g(to)f(b)s(e)h(on)0 3123 y(the)h(mass)g(shell)f +(for)g(simplicit)m(y)-8 b(.)44 b(The)34 b(fact)g(that)f(e\013ectiv)m(e) +i(masses)f(ma)m(y)g(b)s(e)g(generated)g(b)m(y)h(initial-)0 +3232 y(and)h(\014nal-state)e(radiation)g(is)h(tak)m(en)h(in)m(to)f +(accoun)m(t)h(in)f(the)h(actual)f(parton)g(con\014guration)g(that)g(is) +0 3340 y(allo)m(w)m(ed)c(to)g(fragmen)m(t,)h(ho)m(w)m(ev)m(er.)45 +b(A)32 b(sp)s(ecial)f(case)h(is)f(pro)m(vided)i(b)m(y)f(W)2674 +3304 y Fl(+)2734 3340 y Fw(W)2835 3304 y Fk(\000)2926 +3340 y Fw(or)f(Z)3104 3304 y Fl(0)3143 3340 y Fw(Z)3203 +3304 y Fl(0)3274 3340 y Fw(fusion)g(to)h(an)0 3448 y(H)73 +3412 y Fl(0)113 3448 y Fw(.)64 b(Then)41 b(the)g(virtual)d(W)q('s)j(or) +e(Z's)h(are)g(sho)m(wn)h(in)e(lines)f(7)i(and)g(8,)h(the)f(H)2938 +3412 y Fl(0)3017 3448 y Fw(in)f(line)g(9,)i(and)f(the)0 +3557 y(t)m(w)m(o)32 b(recoiling)d(quarks)j(\(that)g(emitted)e(the)i(b)s +(osons\))f(in)g(10)g(and)g(11,)g(follo)m(w)m(ed)g(b)m(y)h(the)g(Higgs)e +(deca)m(y)0 3665 y(pro)s(ducts.)65 b(Since)40 b(the)g(W)q('s)h(and)e +(Z's)h(are)g(space-lik)m(e,)h(what)f(is)f(actually)f(listed)h(as)g(the) +h(mass)g(for)0 3782 y(them)35 b(is)f Fn(\000)429 3701 +y(p)p 513 3701 203 4 v 513 3782 a(\000)p Fj(m)675 3754 +y Fl(2)715 3782 y Fw(.)51 b(The)36 b(listing)d(of)i(the)g(ev)m(en)m(t)i +(do)s(cumen)m(tation)e(closes)g(with)g(another)g(line)f(made)0 +3891 y(up)f(of)f(`)p Fq(======)p Fw(')i(signs.)146 3999 +y(A)25 b(few)g(examples)f(ma)m(y)h(help)f(clarify)f(the)i(picture.)41 +b(F)-8 b(or)23 b(a)h(single)g(di\013ractiv)m(e)g(ev)m(en)m(t)i(p)p +3303 3946 55 4 v(p)i Fn(!)f Fw(p)3566 4014 y Fl(di\013r)p +3698 3946 V 3698 3999 a Fw(p,)0 4107 y(the)33 b(ev)m(en)m(t)h(record)f +(will)e(start)h(with)51 4216 y Fq(I)52 b(K\(I,1\))155 +b(K\(I,2\))53 b(K\(I,3\))85 b Fw(commen)m(t)51 4324 y +Fq(1)257 b(21)g(2212)308 b(0)84 b Fw(incoming)31 b(p)51 +4432 y Fq(2)257 b(21)205 b(-2212)309 b(0)84 b Fw(incoming)p +1783 4380 V 31 w(p)0 4541 y Fq(=========================)90 +b Fw(not)33 b(part)f(of)g(record;)h(app)s(ears)g(in)f(listings)51 +4649 y Fq(3)257 b(21)359 b(27)308 b(1)84 b Fw(outgoing)31 +b(p)1820 4664 y Fl(di\013r)51 4757 y Fq(4)257 b(21)205 +b(-2212)309 b(2)84 b Fw(outgoing)p 1766 4705 V 31 w(p)0 +4866 y Fq(=========================)90 b Fw(again)32 +b(not)g(part)g(of)g(record)146 4974 y(The)i(t)m(ypical)e(QCD)g(2)27 +b Fn(!)h Fw(2)k(pro)s(cess)i(w)m(ould)e(b)s(e)51 5082 +y Fq(I)52 b(K\(I,1\))155 b(K\(I,2\))53 b(K\(I,3\))85 +b Fw(commen)m(t)51 5191 y Fq(1)257 b(21)g(2212)308 b(0)84 +b Fw(incoming)31 b(p)51 5299 y Fq(2)257 b(21)205 b(-2212)309 +b(0)84 b Fw(incoming)p 1783 5246 V 31 w(p)0 5408 y Fq +(=========================)51 5516 y(3)257 b(21)411 b(2)307 +b(1)84 b Fw(u)33 b(pic)m(k)m(ed)h(from)d(incoming)g(p)51 +5624 y Fq(4)257 b(21)359 b(-1)308 b(2)p 1365 5545 V 84 +w Fw(d)33 b(pic)m(k)m(ed)h(from)d(incoming)p 2401 5571 +V 31 w(p)1841 5953 y(62)p eop +%%Page: 63 69 +63 68 bop 51 -18 a Fq(5)257 b(21)359 b(21)308 b(3)84 +b Fw(u)33 b(ev)m(olv)m(ed)h(to)e(g)i(at)e(hard)h(scattering)51 +90 y Fq(6)257 b(21)359 b(-1)308 b(4)84 b Fw(still)p 1556 +11 55 4 v 31 w(d)32 b(at)h(hard)f(scattering)51 198 y +Fq(7)257 b(21)359 b(21)308 b(0)84 b Fw(outgoing)31 b(g)j(from)d(hard)i +(scattering)51 307 y Fq(8)257 b(21)359 b(-1)308 b(0)84 +b Fw(outgoing)p 1766 227 V 31 w(d)33 b(from)f(hard)g(scattering)0 +415 y Fq(=========================)146 523 y Fw(Note)h(that,)g(where)i +(w)m(ell)d(de\014ned,)i(the)g Fq(K\(I,3\))g Fw(co)s(de)f(do)s(es)h(con) +m(tain)e(information)e(as)j(to)g(whic)m(h)0 632 y(side)h(the)h +(di\013eren)m(t)f(partons)h(come)e(from,)h(e.g.)48 b(ab)s(o)m(v)m(e)35 +b(the)g(gluon)e(in)g(line)g(5)h(p)s(oin)m(ts)g(bac)m(k)h(to)f(the)g(u)0 +740 y(in)e(line)f(3,)i(whic)m(h)g(p)s(oin)m(ts)g(bac)m(k)h(to)e(the)h +(proton)g(in)f(line)f(1.)44 b(In)33 b(the)h(example)e(ab)s(o)m(v)m(e,)i +(it)d(w)m(ould)i(ha)m(v)m(e)0 848 y(b)s(een)k(p)s(ossible)f(to)g(asso)s +(ciate)g(the)h(scattered)h(g)e(in)g(line)f(7)h(with)g(the)h(incoming)d +(one)j(in)f(line)f(5,)i(but)0 957 y(this)27 b(is)g(not)h(p)s(ossible)f +(in)g(the)h(general)f(case,)i(consider)f(e.g.)42 b(gg)29 +b Fn(!)e Fw(gg)q(.)42 b(As)28 b(a)f(\014nal)g(example,)h(W)3559 +920 y Fl(+)3619 957 y Fw(W)3720 920 y Fk(\000)0 1065 +y Fw(fusion)k(to)g(an)h(H)613 1029 y Fl(0)685 1065 y +Fw(in)f(pro)s(cess)h(8)g(\(not)f(pro)s(cess)i(124,)e(whic)m(h)h(is)f +(lengthier\))f(migh)m(t)h(lo)s(ok)f(lik)m(e)51 1173 y +Fq(I)52 b(K\(I,1\))155 b(K\(I,2\))53 b(K\(I,3\))85 b +Fw(commen)m(t)51 1282 y Fq(1)257 b(21)g(2212)308 b(0)84 +b Fw(\014rst)33 b(incoming)e(p)51 1390 y Fq(2)257 b(21)g(2212)308 +b(0)84 b Fw(second)34 b(incoming)d(p)0 1498 y Fq +(=========================)51 1607 y(3)257 b(21)411 b(2)307 +b(1)84 b Fw(u)33 b(pic)m(k)m(ed)h(from)d(\014rst)i(p)51 +1715 y Fq(4)257 b(21)359 b(21)308 b(2)84 b Fw(g)34 b(pic)m(k)m(ed)g +(from)d(second)j(p)51 1823 y Fq(5)257 b(21)411 b(2)307 +b(3)84 b Fw(still)31 b(u)h(after)h(initial-state)c(radiation)51 +1932 y Fq(6)257 b(21)359 b(-4)308 b(4)84 b Fw(g)34 b(ev)m(olv)m(ed)g +(to)p 1914 1879 44 4 v 32 w(c)51 2040 y Fq(7)257 b(21)359 +b(24)308 b(5)84 b Fw(space-lik)m(e)33 b(W)1906 2004 y +Fl(+)1998 2040 y Fw(emitted)f(b)m(y)h(u)g(quark)51 2148 +y Fq(8)257 b(21)308 b(-24)g(6)84 b Fw(space-lik)m(e)33 +b(W)1906 2112 y Fk(\000)1998 2148 y Fw(emitted)f(b)m(y)p +2491 2096 V 33 w(c)h(quark)51 2257 y Fq(9)257 b(21)359 +b(25)308 b(0)84 b Fw(Higgs)32 b(pro)s(duced)i(b)m(y)f(W)2296 +2221 y Fl(+)2356 2257 y Fw(W)2457 2221 y Fk(\000)2549 +2257 y Fw(fusion)0 2365 y Fq(10)257 b(21)411 b(1)307 +b(5)84 b Fw(u)33 b(turned)g(in)m(to)f(d)h(b)m(y)g(emission)f(of)g(W) +2790 2329 y Fl(+)0 2473 y Fq(11)257 b(21)359 b(-3)308 +b(6)p 1365 2421 V 84 w Fw(c)33 b(turned)h(in)m(to)p 1953 +2421 39 4 v 31 w(s)f(b)m(y)h(emission)d(of)h(W)2763 2437 +y Fk(\000)0 2582 y Fq(12)257 b(21)359 b(23)308 b(9)84 +b Fw(\014rst)33 b(Z)1626 2546 y Fl(0)1698 2582 y Fw(coming)e(from)g +(deca)m(y)j(of)e(H)2719 2546 y Fl(0)0 2690 y Fq(13)257 +b(21)359 b(23)308 b(9)84 b Fw(second)34 b(Z)1740 2654 +y Fl(0)1812 2690 y Fw(coming)d(from)g(deca)m(y)j(of)e(H)2833 +2654 y Fl(0)0 2798 y Fq(14)257 b(21)359 b(12)257 b(12)84 +b Fj(\027)1413 2813 y Fl(e)1482 2798 y Fw(from)31 b(\014rst)i(Z)1973 +2762 y Fl(0)2045 2798 y Fw(deca)m(y)0 2907 y Fq(15)257 +b(21)308 b(-12)257 b(12)p 1365 2854 55 4 v 84 w Fj(\027)1420 +2922 y Fl(e)1488 2907 y Fw(from)31 b(\014rst)i(Z)1979 +2871 y Fl(0)2051 2907 y Fw(deca)m(y)0 3015 y Fq(16)257 +b(21)411 b(5)256 b(13)84 b Fw(b)33 b(quark)h(from)d(second)j(Z)2334 +2979 y Fl(0)2405 3015 y Fw(deca)m(y)0 3123 y Fq(17)257 +b(21)359 b(-5)257 b(13)p 1365 3044 V 84 w Fw(b)33 b(an)m(tiquark)g +(from)e(second)j(Z)2499 3087 y Fl(0)2571 3123 y Fw(deca)m(y)0 +3232 y Fq(=========================)146 3340 y Fw(After)49 +b(these)g(lines)e(with)h(the)g(initial)d(information,)j(the)h(ev)m(en)m +(t)h(record)f(lo)s(oks)e(the)h(same)g(as)0 3448 y(for)39 +b Fq(MSTP\(125\)=0)p Fw(,)44 b(i.e.)64 b(\014rst)40 b(comes)g(the)g +(parton)f(con\014guration)g(to)g(b)s(e)h(fragmen)m(ted)f(and,)j(after)0 +3557 y(another)e(separator)g(line)e(`)p Fq(======)p Fw(')j(in)e(the)i +(output)e(\(but)h(not)g(the)g(ev)m(en)m(t)i(record\),)g(the)e(pro)s +(ducts)0 3665 y(of)35 b(subsequen)m(t)k(fragmen)m(tation)34 +b(and)i(deca)m(y)h(c)m(hains.)54 b(The)37 b Fq(K\(I,3\))g +Fw(p)s(oin)m(ters)f(for)f(the)h(partons,)h(as)0 3774 +y(w)m(ell)d(as)h(leptons)g(and)h(photons)f(pro)s(duced)h(in)e(the)i +(hard)f(in)m(teraction,)f(are)h(no)m(w)h(p)s(oin)m(ting)d(to)m(w)m +(ards)0 3882 y(the)k(do)s(cumen)m(tation)f(lines)h(ab)s(o)m(v)m(e,)i +(ho)m(w)m(ev)m(er.)59 b(In)37 b(particular,)g(b)s(eam)f(remnan)m(ts)h +(p)s(oin)m(t)g(to)f(1)h(or)g(2,)0 3990 y(dep)s(ending)f(on)f(whic)m(h)h +(side)g(they)g(b)s(elong)f(to,)g(and)h(partons)g(emitted)e(in)h(the)h +(initial-state)c(parton)0 4099 y(sho)m(w)m(ers)43 b(p)s(oin)m(t)d(to)g +(3)g(or)g(4.)68 b(In)40 b(the)i(second)f(example)f(ab)s(o)m(v)m(e,)k +(the)d(partons)g(pro)s(duced)g(b)m(y)h(\014nal-)0 4207 +y(state)34 b(radiation)e(will)f(b)s(e)k(p)s(oin)m(ting)d(bac)m(k)i(to)g +(7)g(and)g(8;)g(as)g(usual,)g(it)f(should)h(b)s(e)g(remem)m(b)s(ered)g +(that)0 4315 y(a)41 b(sp)s(eci\014c)h(assignmen)m(t)f(to)f(7)h(or)g(8)g +(need)h(not)f(b)s(e)g(unique.)70 b(F)-8 b(or)40 b(the)i(third)e +(example,)j(\014nal-state)0 4424 y(radiation)37 b(partons)i(will)d +(come)j(b)s(oth)g(from)e(partons)j(10)e(and)h(11)g(and)g(from)e +(partons)i(16)g(and)g(17,)0 4532 y(and)f(additionally)d(there)j(will)e +(b)s(e)i(a)g(neutrino{an)m(tineutrino)e(pair)h(p)s(oin)m(ting)f(to)i +(14)f(and)h(15.)60 b(The)0 4640 y(extra)39 b(pairs)f(of)g(partons)g +(that)g(are)h(generated)g(b)m(y)g(m)m(ultiple)d(in)m(teractions)i(do)h +(not)f(p)s(oin)m(t)f(bac)m(k)j(to)0 4749 y(an)m(ything,)33 +b(i.e.)43 b(they)33 b(ha)m(v)m(e)h Fq(K\(I,3\)=0)p Fw(.)146 +4857 y(There)h(exists)e(a)g(third)f(do)s(cumen)m(tation)g(option,)h +Fq(MSTP\(125\)=2)p Fw(.)47 b(Here)34 b(the)f(history)g(of)g(initial-)0 +4965 y(and)27 b(\014nal-state)f(parton)h(branc)m(hings)g(ma)m(y)g(b)s +(e)g(traced,)i(including)c(all)g(details)h(on)h(colour)f(\015o)m(w.)42 +b(This)0 5074 y(information)25 b(has)k(not)g(b)s(een)g(optimized)e(for) +h(user-friendliness,)h(and)g(cannot)f(b)s(e)h(recommended)g(for)0 +5182 y(general)34 b(usage.)50 b(With)33 b(this)i(option,)e(the)i +(initial)c(do)s(cumen)m(tation)j(lines)f(are)i(the)g(same.)49 +b(They)35 b(are)0 5290 y(follo)m(w)m(ed)h(b)m(y)i(blank)e(lines,)i +Fq(K\(I,1\)=0)p Fw(,)i(up)d(to)g(line)e(20)i(\(can)g(b)s(e)g(c)m +(hanged)h(in)e Fq(MSTP\(126\))p Fw(\).)59 b(F)-8 b(rom)0 +5399 y(line)37 b(21)h(on)m(w)m(ards)i(eac)m(h)g(parton)e(with)g +Fq(K\(I,1\)=)j Fw(3,)f(13)e(or)g(14)g(app)s(ears)h(with)g(sp)s(ecial)e +(colour-\015o)m(w)0 5507 y(information)32 b(in)j(the)h +Fq(K\(I,4\))h Fw(and)e Fq(K\(I,5\))i Fw(p)s(ositions.)51 +b(F)-8 b(or)34 b(an)i(ordinary)f(2)d Fn(!)g Fw(2)j(scattering,)h(the)0 +5615 y(t)m(w)m(o)i(incoming)e(partons)h(at)h(the)g(hard)f(scattering)h +(are)f(stored)h(in)f(lines)g(21)g(and)h(22,)g(and)g(the)g(t)m(w)m(o) +1841 5953 y(63)p eop +%%Page: 64 70 +64 69 bop 0 -18 a Fw(outgoing)20 b(in)i(23)f(and)h(24.)40 +b(The)23 b(colour)e(\015o)m(w)h(b)s(et)m(w)m(een)i(these)g(partons)e +(has)g(to)g(b)s(e)g(c)m(hosen)h(according)f(to)0 90 y(the)31 +b(prop)s(er)g(relativ)m(e)g(probabilities)d(in)i(cases)j(when)f(man)m +(y)f(alternativ)m(es)f(are)h(p)s(ossible,)g(see)h(section)0 +198 y(8.2.1.)41 b(If)27 b(there)h(is)e(initial-state)e(radiation,)i +(the)h(t)m(w)m(o)h(partons)f(in)f(lines)g(21)h(and)g(22)g(are)g(copied) +g(do)m(wn)0 307 y(to)k(lines)g(25)f(and)i(26,)f(from)f(whic)m(h)i(the)g +(initial-state)c(sho)m(w)m(ers)33 b(are)f(reconstructed)h(bac)m(kw)m +(ards)h(step)0 415 y(b)m(y)43 b(step.)72 b(The)42 b(branc)m(hing)g +(history)g(ma)m(y)f(b)s(e)h(read)g(b)m(y)h(noting)d(that,)k(for)d(a)h +(branc)m(hing)g Fj(a)h Fn(!)g Fj(bc)p Fw(,)0 523 y(the)38 +b Fq(K\(I,3\))g Fw(co)s(des)h(of)d Fj(b)i Fw(and)f Fj(c)h +Fw(p)s(oin)m(t)e(to)m(w)m(ards)i(the)g(line)e(n)m(um)m(b)s(er)h(of)g +Fj(a)p Fw(.)58 b(Since)37 b(the)h(sho)m(w)m(ers)h(are)0 +632 y(reconstructed)g(bac)m(kw)m(ards,)j(this)37 b(actually)f(means)i +(that)f(parton)g Fj(b)h Fw(w)m(ould)g(app)s(ear)f(in)g(the)h(listing)0 +740 y(b)s(efore)43 b(parton)f Fj(a)g Fw(and)h Fj(c)p +Fw(,)i(and)d(hence)i(ha)m(v)m(e)g(a)e(p)s(oin)m(ter)g(to)g(a)g(p)s +(osition)f(b)s(elo)m(w)h(itself)f(in)h(the)h(list.)0 +848 y(Asso)s(ciated)49 b(time-lik)m(e)d(partons)j Fj(c)g +Fw(ma)m(y)f(initiate)e(time-lik)m(e)g(sho)m(w)m(ers,)55 +b(as)49 b(ma)m(y)g(the)g(partons)g(of)0 957 y(the)42 +b(hard)f(scattering.)68 b(Again)40 b(a)h(sho)m(w)m(ering)h(parton)f(or) +g(pair)f(of)g(partons)i(will)c(b)s(e)k(copied)f(do)m(wn)0 +1065 y(to)m(w)m(ards)f(the)g(end)f(of)g(the)g(list)f(and)h(allo)m(w)m +(ed)f(to)h(undergo)g(successiv)m(e)j(branc)m(hings)d +Fj(c)g Fn(!)f Fj(de)p Fw(,)j(with)0 1173 y Fj(d)34 b +Fw(and)h Fj(e)f Fw(p)s(oin)m(ting)f(to)m(w)m(ards)j Fj(c)p +Fw(.)49 b(The)36 b(mass)e(of)g(time-lik)m(e)e(partons)j(is)f(prop)s +(erly)g(stored)h(in)f Fq(P\(I,5\))p Fw(;)0 1290 y(for)41 +b(space-lik)m(e)h(partons)h Fn(\000)1047 1209 y(p)p 1130 +1209 203 4 v 81 x(\000)p Fj(m)1292 1262 y Fl(2)1374 1290 +y Fw(is)f(stored)g(instead.)72 b(After)42 b(this)g(section,)j(con)m +(taining)40 b(all)g(the)0 1399 y(branc)m(hings,)29 b(comes)f(the)g +(\014nal)e(parton)h(con\014guration,)h(prop)s(erly)f(arranged)h(in)e +(colour,)i(follo)m(w)m(ed)f(b)m(y)0 1507 y(all)j(subsequen)m(t)36 +b(fragmen)m(tation)31 b(and)h(deca)m(y)i(pro)s(ducts,)g(as)f(usual.)0 +1781 y Fp(5.4)135 b(The)45 b(HEPEVT)f(Standard)0 1954 +y Fw(A)34 b(set)h(of)f(common)f(blo)s(c)m(ks)h(w)m(as)i(dev)m(elop)s +(ed)f(and)f(agreed)h(on)f(within)f(the)i(framew)m(ork)f(of)g(the)g +(1989)0 2062 y(LEP)41 b(ph)m(ysics)h(study)-8 b(,)43 +b(see)f([Sj\177)-49 b(o89)o(].)67 b(This)40 b(standard)h(de\014nes)h +(an)e(ev)m(en)m(t)j(record)d(structure)i(whic)m(h)0 2170 +y(should)32 b(mak)m(e)h(the)g(in)m(terfacing)e(of)i(di\013eren)m(t)f +(ev)m(en)m(t)j(generators)e(m)m(uc)m(h)g(simpler.)146 +2279 y(It)43 b(w)m(ould)g(b)s(e)f(a)h(ma)5 b(jor)41 b(w)m(ork)j(to)e +(rewrite)h Fm(Pythia/Jetset)f Fw(to)g(agree)h(with)f(this)g(standard)0 +2387 y(ev)m(en)m(t)35 b(record)e(structure.)45 b(More)33 +b(imp)s(ortan)m(tly)-8 b(,)31 b(the)i(standard)g(only)g(co)m(v)m(ers)h +(quan)m(tities)f(whic)m(h)g(can)0 2495 y(b)s(e)42 b(de\014ned)h(unam)m +(biguously)-8 b(,)43 b(i.e.)70 b(whic)m(h)42 b(are)g(indep)s(enden)m(t) +h(of)e(the)h(particular)e(program)g(used.)0 2604 y(There)k(are)e(th)m +(us)i(no)e(pro)m(visions)h(for)f(the)h(need)g(for)f(colour-\015o)m(w)g +(information)d(in)j(mo)s(dels)g(based)0 2712 y(on)35 +b(string)g(fragmen)m(tation,)g(etc.,)i(so)f(the)g(standard)g(common)e +(blo)s(c)m(ks)i(w)m(ould)g(an)m(yw)m(a)m(y)h(ha)m(v)m(e)g(to)e(b)s(e)0 +2820 y(supplemen)m(ted)d(with)e(additional)d(ev)m(en)m(t)33 +b(information.)39 b(F)-8 b(or)30 b(the)h(momen)m(t,)f(the)h(adopted)g +(approac)m(h)0 2929 y(is)40 b(therefore)g(to)g(retain)f(the)i +Fq(LUJETS)g Fw(ev)m(en)m(t)h(record,)h(but)d(supply)h(a)f(routine)f +Fq(LUHEPC)j Fw(whic)m(h)e(can)0 3037 y(con)m(v)m(ert)j(to)e(or)g(from)g +(the)h(standard)f(ev)m(en)m(t)j(record.)71 b(Owing)40 +b(to)i(a)f(somewhat)g(di\013eren)m(t)h(con)m(ten)m(t)0 +3146 y(in)37 b(the)g(t)m(w)m(o)i(records,)g(some)e(am)m(biguities)e(do) +j(exist)f(in)g(the)h(translation)d(pro)s(cedure.)59 b +Fq(LUHEPC)39 b Fw(has)0 3254 y(therefore)33 b(to)f(b)s(e)h(used)h(with) +e(some)h(judgmen)m(t.)146 3362 y(In)j(this)e(section,)i(the)f(new)h +(standard)f(ev)m(en)m(t)i(structure)f(is)f(\014rst)g(presen)m(ted,)j +(i.e.)50 b(the)35 b(most)g(im-)0 3471 y(p)s(ortan)m(t)25 +b(p)s(oin)m(ts)h(in)f([Sj\177)-49 b(o89)o(])26 b(are)g(recapitulated.) +40 b(Thereafter)27 b(the)f(con)m(v)m(ersion)h(routine)e(is)h(describ)s +(ed,)0 3579 y(with)32 b(particular)f(atten)m(tion)h(to)g(am)m +(biguities)e(and)j(limitations.)146 3687 y(The)41 b(standard)f(ev)m(en) +m(t)i(record)e(is)f(stored)i(in)e(t)m(w)m(o)h(common)f(blo)s(c)m(ks.)65 +b(The)41 b(second)g(of)e(these)i(is)0 3796 y(sp)s(eci\014cally)35 +b(in)m(tended)i(for)f(spin)g(information.)52 b(Since)36 +b Fm(Jetset)g Fw(nev)m(er)h(\(explicitly\))e(mak)m(es)i(use)g(of)0 +3904 y(spin)31 b(information,)d(this)j(latter)g(common)e(blo)s(c)m(k)i +(is)g(not)g(addressed)i(here.)44 b(A)31 b(third)g(common)f(blo)s(c)m(k) +0 4012 y(for)i(colour)g(\015o)m(w)h(information)c(has)k(b)s(een)h +(discussed,)g(but)f(nev)m(er)h(formalized.)146 4121 y(In)40 +b(order)f(to)g(mak)m(e)g(the)h(comp)s(onen)m(ts)g(of)e(the)i(standard)g +(more)e(distinguishable)g(in)g(user)i(pro-)0 4229 y(grams,)30 +b(the)i(three)f(c)m(haracters)h Fq(HEP)g Fw(\(for)e(High)g(Energy)i(Ph) +m(ysics\))g(ha)m(v)m(e)g(b)s(een)g(c)m(hosen)g(to)e(b)s(e)h(a)g(part)0 +4337 y(of)h(all)f(names.)146 4446 y(Originally)39 b(it)i(w)m(as)j(not)e +(sp)s(eci\014ed)h(whether)h(real)d(v)-5 b(ariables)41 +b(should)h(b)s(e)h(in)e(single)h(or)g(double)0 4554 y(precision.)61 +b(A)m(t)39 b(the)g(time,)f(this)g(mean)m(t)h(that)f(single)g(precision) +f(b)s(ecame)i(the)g(default)f(c)m(hoice,)i(but)0 4662 +y(since)35 b(then)g(the)g(trend)f(has)h(b)s(een)g(to)m(w)m(ards)h +(increasing)d(precision.)48 b(In)35 b(connection)g(with)f(the)g(1995)0 +4771 y(LEP)40 b(2)e(w)m(orkshop,)k(it)c(w)m(as)i(therefore)g(agreed)f +(to)g(adopt)f Fq(DOUBLE)53 b(PRECISION)42 b Fw(real)c(v)-5 +b(ariables)37 b(as)0 4879 y(part)32 b(of)g(the)h(standard.)p +0 5023 3440 9 v 0 5598 9 576 v 130 5170 a Fq(PARAMETER)54 +b(\(NMXHEP=2000\))130 5278 y(COMMON/HEPEVT/NEVHEP,NH)q(EP,I)q(STHE)q +(P\(NM)q(XHE)q(P\),I)q(DHEP)q(\(NMX)q(HEP)q(\),)79 5387 +y(&JMOHEP\(2,NMXHEP\),JDAHEP)q(\(2,N)q(MXHE)q(P\),P)q(HEP)q(\(5,N)q +(MXHE)q(P\),V)q(HEP)q(\(4,N)q(MXHE)q(P\))130 5495 y(DOUBLE)f(PRECISION) +h(PHEP,)f(VHEP)p 3431 5598 V 0 5606 3440 9 v 1841 5953 +a Fw(64)p eop +%%Page: 65 71 +65 70 bop 0 -18 a Fo(Purp)s(ose:)48 b Fw(to)32 b(con)m(tain)g(an)h(ev)m +(en)m(t)h(record)f(in)f(a)g(Mon)m(te)i(Carlo-indep)s(enden)m(t)e +(format.)0 90 y Fq(NMXHEP:)115 b Fw(maxim)m(um)44 b(n)m(um)m(b)s(ers)j +(of)e(en)m(tries)i(\(partons/particles\))e(that)h(can)g(b)s(e)g(stored) +h(in)e(the)472 198 y(common)35 b(blo)s(c)m(k.)55 b(The)37 +b(default)f(v)-5 b(alue)36 b(of)g(2000)f(can)i(b)s(e)f(c)m(hanged)i +(via)d(the)i(parameter)472 307 y(construction.)44 b(In)33 +b(the)g(translation,)e(it)g(is)h(c)m(hec)m(k)m(ed)k(that)d(this)f(v)-5 +b(alue)32 b(is)g(not)g(exceeded.)0 415 y Fq(NEVHEP:)115 +b Fw(is)39 b(normally)e(the)j(ev)m(en)m(t)h(n)m(um)m(b)s(er,)h(but)e +(ma)m(y)f(ha)m(v)m(e)h(sp)s(ecial)f(meanings,)h(according)f(to)472 +523 y(the)33 b(description)g(b)s(elo)m(w:)236 632 y Fq(>)52 +b(0)f(:)217 b Fw(ev)m(en)m(t)30 b(n)m(um)m(b)s(er,)g(sequen)m(tially)f +(increased)g(b)m(y)g(1)g(for)f(eac)m(h)h(call)e(to)i(the)g(main)e(ev)m +(en)m(t)709 740 y(generation)32 b(routine,)g(starting)f(with)i(1)f(for) +g(the)h(\014rst)g(ev)m(en)m(t)h(generated.)236 848 y +Fq(=)52 b(0)f(:)217 b Fw(for)32 b(a)g(program)f(whic)m(h)i(do)s(es)g +(not)g(k)m(eep)h(trac)m(k)f(of)f(ev)m(en)m(t)j(n)m(um)m(b)s(ers,)e(as)g +Fm(Jetset)p Fw(.)236 957 y Fq(=)52 b(-1)g(:)165 b Fw(sp)s(ecial)31 +b(initialization)c(record;)33 b(not)g(used)h(b)m(y)g +Fm(Jetset)p Fw(.)236 1065 y Fq(=)52 b(-2)g(:)165 b Fw(sp)s(ecial)31 +b(\014nal)h(record;)h(not)g(used)g(b)m(y)i Fm(Jetset)p +Fw(.)0 1173 y Fq(NHEP:)217 b Fw(the)25 b(actual)f(n)m(um)m(b)s(er)h(of) +f(en)m(tries)h(stored)g(in)e(the)i(curren)m(t)h(ev)m(en)m(t.)42 +b(These)26 b(are)f(found)f(in)g(the)472 1282 y(\014rst)j +Fq(NHEP)h Fw(p)s(ositions)d(of)h(the)g(resp)s(ectiv)m(e)i(arra)m(ys)f +(b)s(elo)m(w.)41 b(Index)28 b Fq(IHEP)p Fw(,)g(1)p Fn(\024)p +Fq(IHEP)p Fn(\024)p Fq(NHEP)p Fw(,)472 1390 y(is)33 b(used)g(b)s(elo)m +(w)g(to)f(denote)h(a)g(giv)m(en)f(en)m(try)-8 b(.)0 1498 +y Fq(ISTHEP\(IHEP\):)51 b Fw(status)33 b(co)s(de)g(for)f(en)m(try)j +Fq(IHEP)p Fw(,)f(with)e(the)h(follo)m(wing)d(meanings:)236 +1607 y Fq(=)52 b(0)f(:)217 b Fw(n)m(ull)31 b(en)m(try)-8 +b(.)236 1715 y Fq(=)52 b(1)f(:)217 b Fw(an)27 b(existing)g(en)m(try)-8 +b(,)29 b(whic)m(h)f(has)g(not)f(deca)m(y)m(ed)i(or)e(fragmen)m(ted.)42 +b(This)28 b(is)e(the)i(main)709 1823 y(class)j(of)g(en)m(tries,)i(whic) +m(h)f(represen)m(ts)i(the)e(`\014nal)f(state')h(giv)m(en)g(b)m(y)g(the) +g(generator.)236 1932 y Fq(=)52 b(2)f(:)217 b Fw(an)27 +b(en)m(try)h(whic)m(h)g(has)g(deca)m(y)m(ed)i(or)d(fragmen)m(ted)g(and) +g(is)g(therefore)h(not)g(app)s(earing)709 2040 y(in)j(the)i(\014nal)f +(state,)h(but)g(is)f(retained)h(for)f(ev)m(en)m(t)i(history)f +(information.)236 2148 y Fq(=)52 b(3)f(:)217 b Fw(a)42 +b(do)s(cumen)m(tation)f(line,)i(de\014ned)h(separately)e(from)f(the)h +(ev)m(en)m(t)i(history)-8 b(.)72 b(This)709 2257 y(could)32 +b(include)g(the)h(t)m(w)m(o)g(incoming)d(reacting)i(particles,)g(etc.) +236 2365 y Fq(=)52 b(4)f(-)h(10)g(:)47 b Fw(unde\014ned,)35 +b(but)d(reserv)m(ed)j(for)d(future)h(standards.)236 2473 +y Fq(=)52 b(11)g(-)f(200)h(:)c Fw(at)39 b(the)h(disp)s(osal)e(of)h(eac) +m(h)h(mo)s(del)e(builder)h(for)f(constructs)j(sp)s(eci\014c)g(to)e(his) +709 2582 y(program,)23 b(but)g(equiv)-5 b(alen)m(t)22 +b(to)g(a)g(n)m(ull)f(line)h(in)f(the)i(con)m(text)h(of)e(an)m(y)h +(other)g(program.)236 2690 y Fq(=)52 b(201)g(-)f(:)d +Fw(at)31 b(the)h(disp)s(osal)e(of)h(users,)i(in)e(particular)f(for)g +(ev)m(en)m(t)k(trac)m(king)d(in)g(the)h(detector.)0 2798 +y Fq(IDHEP\(IHEP\))54 b(:)48 b Fw(particle)38 b(iden)m(tit)m(y)-8 +b(,)42 b(according)d(to)g(the)h(PDG)g(standard.)65 b(The)41 +b(four)e(additional)472 2907 y(co)s(des)34 b(91{94)d(ha)m(v)m(e)i(b)s +(een)g(in)m(tro)s(duced)g(to)f(mak)m(e)g(the)h(ev)m(en)m(t)h(history)e +(more)g(legible,)e(see)472 3015 y(section)j(5.1)f(and)h(the)g +Fq(MSTU\(16\))i Fw(description.)0 3123 y Fq(JMOHEP\(1,IHEP\))55 +b(:)48 b Fw(p)s(oin)m(ter)28 b(to)g(the)h(p)s(osition)e(where)j(the)g +(mother)e(is)g(stored.)43 b(The)30 b(v)-5 b(alue)28 b(is)g(0)h(for)472 +3232 y(initial)g(en)m(tries.)0 3340 y Fq(JMOHEP\(2,IHEP\))55 +b(:)48 b Fw(p)s(oin)m(ter)e(to)h(p)s(osition)e(of)i(second)h(mother.)87 +b(Normally)45 b(only)i(one)g(mother)472 3448 y(exists,)55 +b(in)50 b(whic)m(h)g(case)h(the)f(v)-5 b(alue)49 b(0)h(is)f(to)h(b)s(e) +g(used.)96 b(In)50 b Fm(Jetset)p Fw(,)j(en)m(tries)e(with)472 +3557 y(co)s(des)60 b(91{94)d(are)i(the)f(only)g(ones)i(to)e(ha)m(v)m(e) +i(t)m(w)m(o)f(mothers.)121 b(The)59 b(\015a)m(v)m(our)h(con-)472 +3665 y(ten)m(ts)46 b(of)e(these)i(ob)5 b(jects,)48 b(as)d(w)m(ell)f(as) +g(details)g(of)g(momen)m(tum)f(sharing,)j(ha)m(v)m(e)g(to)e(b)s(e)472 +3774 y(found)i(b)m(y)h(lo)s(oking)d(at)h(the)h(mother)g(partons,)j +(i.e.)83 b(the)46 b(t)m(w)m(o)h(partons)f(in)f(p)s(ositions)472 +3882 y Fq(JMOHEP\(1,IHEP\))c Fw(and)c Fq(JMOHEP\(2,IHEP\))j +Fw(for)c(a)h(cluster)g(or)f(a)h(sho)m(w)m(er)h(system,)h(and)472 +3990 y(the)k(range)f Fq(JMOHEP\(1,IHEP\))p Fw({)p Fq(JMOHEP\(2,IHEP)q +(\))48 b Fw(for)41 b(a)h(string)f(or)g(an)h(indep)s(enden)m(t)472 +4099 y(fragmen)m(tation)31 b(parton)h(system.)0 4207 +y Fq(JDAHEP\(1,IHEP\))55 b(:)48 b Fw(p)s(oin)m(ter)d(to)g(the)i(p)s +(osition)d(of)h(the)i(\014rst)f(daugh)m(ter.)84 b(If)46 +b(an)g(en)m(try)h(has)g(not)472 4315 y(deca)m(y)m(ed,)35 +b(this)e(is)f(0.)0 4424 y Fq(JDAHEP\(2,IHEP\))55 b(:)48 +b Fw(p)s(oin)m(ter)e(to)h(the)g(p)s(osition)f(of)g(the)i(last)e(daugh)m +(ter.)88 b(If)47 b(an)g(en)m(try)h(has)g(not)472 4532 +y(deca)m(y)m(ed,)h(this)43 b(is)g(0.)75 b(It)44 b(is)f(assumed)h(that)f +(daugh)m(ters)h(are)g(stored)f(sequen)m(tially)-8 b(,)46 +b(so)472 4640 y(that)40 b(the)h(whole)e(range)h Fq(JDAHEP\(1,IHEP\))p +Fw({)p Fq(JDAHEP\(2,IH)q(EP\))46 b Fw(con)m(tains)40 +b(daugh)m(ters.)472 4749 y(This)49 b(v)-5 b(ariable)46 +b(should)i(b)s(e)g(set)h(also)e(when)j(only)d(one)i(daugh)m(ter)f(is)g +(presen)m(t,)54 b(as)48 b(in)472 4857 y(K)548 4821 y +Fl(0)615 4857 y Fn(!)28 b Fw(K)819 4821 y Fl(0)819 4882 +y(S)892 4857 y Fw(deca)m(ys,)33 b(so)d(that)g(lo)s(oping)e(from)h(the)h +(\014rst)h(daugh)m(ter)g(to)f(the)g(last)g(one)g(w)m(orks)472 +4965 y(transparen)m(tly)-8 b(.)43 b(Normally)28 b(daugh)m(ters)i(are)g +(stored)h(after)e(mothers,)h(but)g(in)f(bac)m(kw)m(ards)472 +5074 y(ev)m(olution)j(of)g(initial-state)c(radiation)i(the)j(opp)s +(osite)e(ma)m(y)h(app)s(ear,)h(i.e.)43 b(that)32 b(mothers)472 +5182 y(are)e(found)f(b)s(elo)m(w)h(the)f(daugh)m(ters)i(they)f(branc)m +(h)g(in)m(to.)42 b(Also,)30 b(the)f(t)m(w)m(o)h(daugh)m(ters)h(then)472 +5290 y(need)e(not)e(app)s(ear)h(one)g(after)f(the)h(other,)h(but)e(ma)m +(y)h(b)s(e)f(separated)i(in)e(the)h(ev)m(en)m(t)h(record.)0 +5399 y Fq(PHEP\(1,IHEP\))54 b(:)48 b Fw(momen)m(tum)31 +b(in)h(the)h Fj(x)g Fw(direction,)e(in)h(GeV/)p Fj(c)p +Fw(.)0 5507 y Fq(PHEP\(2,IHEP\))54 b(:)48 b Fw(momen)m(tum)31 +b(in)h(the)h Fj(y)j Fw(direction,)31 b(in)h(GeV/)p Fj(c)p +Fw(.)0 5615 y Fq(PHEP\(3,IHEP\))54 b(:)48 b Fw(momen)m(tum)31 +b(in)h(the)h Fj(z)k Fw(direction,)32 b(in)g(GeV/)p Fj(c)p +Fw(.)1841 5953 y(65)p eop +%%Page: 66 72 +66 71 bop 0 -18 a Fq(PHEP\(4,IHEP\))54 b(:)48 b Fw(energy)-8 +b(,)34 b(in)d(GeV.)0 90 y Fq(PHEP\(5,IHEP\))54 b(:)48 +b Fw(mass,)31 b(in)g(GeV/)p Fj(c)1427 54 y Fl(2)1466 +90 y Fw(.)43 b(F)-8 b(or)30 b(space-lik)m(e)h(partons,)g(it)f(is)h +(allo)m(w)m(ed)f(to)h(use)h(a)e(negativ)m(e)472 213 y(mass,)j +(according)f(to)g Fq(PHEP\(5,IHEP\))p Fw(=)f Fn(\000)2093 +131 y(p)p 2177 131 203 4 v 2177 213 a(\000)p Fj(m)2339 +184 y Fl(2)2379 213 y Fw(.)0 321 y Fq(VHEP\(1,IHEP\))54 +b(:)48 b Fw(pro)s(duction)32 b(v)m(ertex)i Fj(x)f Fw(p)s(osition,)e(in) +h(mm.)0 429 y Fq(VHEP\(2,IHEP\))54 b(:)48 b Fw(pro)s(duction)32 +b(v)m(ertex)i Fj(y)i Fw(p)s(osition,)31 b(in)h(mm.)0 +538 y Fq(VHEP\(3,IHEP\))54 b(:)48 b Fw(pro)s(duction)32 +b(v)m(ertex)i Fj(z)j Fw(p)s(osition,)31 b(in)h(mm.)0 +646 y Fq(VHEP\(4,IHEP\))54 b(:)48 b Fw(pro)s(duction)32 +b(time,)f(in)h(mm/)p Fj(c)f Fw(\()p Fn(\031)d Fw(3)p +Fj(:)p Fw(33)21 b Fn(\002)i Fw(10)2446 610 y Fk(\000)p +Fl(12)2608 646 y Fw(s\).)146 808 y(This)34 b(completes)g(the)h(brief)e +(description)g(of)h(the)g(standard.)48 b(In)35 b Fm(Jetset)p +Fw(,)e(the)i(routine)e Fq(LUHEPC)0 917 y Fw(is)f(pro)m(vided)h(as)g(an) +f(in)m(terface.)p 0 1061 1082 9 v 0 1280 9 220 v 79 1201 +a Fq(CALL)52 b(LUHEPC\(MCONV\))p 1073 1280 V 0 1288 1082 +9 v 0 1420 a Fo(Purp)s(ose:)c Fw(to)32 b(con)m(v)m(ert)i(b)s(et)m(w)m +(een)h(the)e Fq(LUJETS)h Fw(ev)m(en)m(t)g(record)f(and)g(the)g +Fq(HEPEVT)h Fw(ev)m(en)m(t)h(record.)0 1529 y Fq(MCONV)53 +b(:)113 b Fw(direction)32 b(of)g(con)m(v)m(ersion.)236 +1637 y Fq(=)52 b(1)f(:)217 b Fw(translates)34 b(the)g(curren)m(t)h +Fq(LUJETS)h Fw(record)f(in)m(to)e(the)i Fq(HEPEVT)g Fw(one,)g(while)e +(lea)m(ving)709 1745 y(the)g(original)c Fq(LUJETS)34 +b Fw(one)f(una\013ected.)236 1854 y Fq(=)52 b(2)f(:)217 +b Fw(translates)34 b(the)g(curren)m(t)h Fq(HEPEVT)h Fw(record)f(in)m +(to)e(the)i Fq(LUJETS)g Fw(one,)g(while)e(lea)m(ving)709 +1962 y(the)g(original)c Fq(HEPEVT)34 b Fw(one)f(una\013ected.)146 +2125 y(The)c(con)m(v)m(ersion)f(of)f(momen)m(ta)g(is)g(trivial:)38 +b(it)27 b(is)g(just)h(a)f(matter)f(of)h(exc)m(hanging)h(the)g(order)g +(of)f(the)0 2233 y(indices.)43 b(The)31 b(v)m(ertex)i(information)27 +b(is)j(but)h(little)e(more)h(complicated;)f(the)j(extra)f(\014fth)f +(comp)s(onen)m(t)0 2341 y(presen)m(t)k(in)e Fq(LUJETS)i +Fw(can)f(b)s(e)f(easily)g(reconstructed)i(from)e(other)g(information)d +(for)j(particles)g(whic)m(h)0 2450 y(ha)m(v)m(e)i(deca)m(y)m(ed.)45 +b(\(Some)32 b(of)g(the)g(adv)-5 b(anced)34 b(features)f(made)e(p)s +(ossible)h(b)m(y)h(this)f(comp)s(onen)m(t,)h(suc)m(h)g(as)0 +2558 y(the)c(p)s(ossibilit)m(y)d(to)j(consider)g(deca)m(ys)h(within)d +(expanding)i(spatial)e(v)m(olumes)h(in)g(subsequen)m(t)k +Fq(LUEXEC)0 2666 y Fw(calls,)48 b(cannot)f(b)s(e)f(used)h(if)e(the)i +(record)f(is)g(translated)g(bac)m(k)h(and)f(forth,)k(ho)m(w)m(ev)m +(er.\))86 b(Also,)49 b(the)0 2775 y(particle)29 b(co)s(des)i +Fq(K\(I,2\))g Fw(and)f Fq(IDHEP\(I\))i Fw(are)e(iden)m(tical,)f(since)i +(they)g(are)f(b)s(oth)g(based)h(on)f(the)g(PDG)0 2883 +y(co)s(des.)146 2991 y(The)35 b(remaining,)c(non-trivial)f(areas)k +(deal)e(with)h(the)h(status)g(co)s(des)g(and)f(the)h(ev)m(en)m(t)h +(history)-8 b(.)45 b(In)0 3100 y(mo)m(ving)25 b(from)g +Fq(LUJETS)j Fw(to)d Fq(HEPEVT)p Fw(,)j(information)23 +b(on)j(colour)f(\015o)m(w)i(is)f(lost.)40 b(On)26 b(the)h(other)f +(hand,)i(the)0 3208 y(p)s(osition)j(of)i(a)g(second)h(mother,)f(if)f +(an)m(y)-8 b(,)34 b(has)f(to)g(b)s(e)g(found;)h(this)e(only)h +(a\013ects)h(lines)e(with)h Fq(K\(I,2\)=)0 3316 y Fw(91{94.)42 +b(Also,)30 b(for)f(lines)h(with)f Fq(K\(I,1\)=)j Fw(13)e(or)g(14,)g +(the)h(daugh)m(ter)f(p)s(oin)m(ters)g(ha)m(v)m(e)i(to)e(b)s(e)g(found.) +43 b(By)0 3425 y(and)37 b(large,)g(ho)m(w)m(ev)m(er,)k(the)c +(translation)e(from)h Fq(LUJETS)i Fw(to)f Fq(HEPEVT)h +Fw(should)f(cause)h(little)d(problem,)0 3533 y(and)28 +b(there)g(should)f(nev)m(er)j(b)s(e)d(an)m(y)i(need)f(for)f(user)i(in)m +(terv)m(en)m(tion.)42 b(\(W)-8 b(e)28 b(assume)g(that)g +Fm(Jetset)e Fw(is)h(run)0 3641 y(with)32 b(the)h(default)f +Fq(MSTU\(16\)=1)p Fw(,)j(otherwise)e(some)f(discrepancies)h(with)f +(resp)s(ect)i(to)e(the)h(prop)s(osed)0 3750 y(standard)g(ev)m(en)m(t)h +(history)f(description)f(will)e(b)s(e)j(presen)m(t.\))146 +3858 y(In)48 b(mo)m(ving)e(from)g Fq(HEPEVT)j Fw(to)e +Fq(LUJETS)p Fw(,)i(information)44 b(on)j(a)g(second)h(mother)f(is)g +(lost.)86 b(An)m(y)0 3966 y(co)s(des)40 b Fq(IDHEP\(I\))i +Fw(not)e(equal)f(to)h(1,)h(2)e(or)h(3)f(are)h(translated)f(in)m(to)g +Fq(K\(I,1\)=0)p Fw(,)44 b(and)39 b(so)h(all)e(en)m(tries)0 +4075 y(with)k Fq(K\(I,1\))p Fn(\025)47 b Fw(30)42 b(are)g(e\013ectiv)m +(ely)h(lost)f(in)g(a)g(translation)e(bac)m(k)k(and)e(forth.)73 +b(All)41 b(en)m(tries)i(with)0 4183 y Fq(IDHEP\(I\)=2)32 +b Fw(are)d(translated)f(in)m(to)h Fq(K\(I,1\)=11)p Fw(,)j(and)d(so)g +(en)m(tries)h(of)f(t)m(yp)s(e)g Fq(K\(I,1\))53 b(=)f(12,)g(13,)g(14)0 +4291 y Fw(or)43 b Fq(15)h Fw(are)g(nev)m(er)h(found.)77 +b(There)45 b(is)e(th)m(us)i(no)f(colour-\015o)m(w)f(information)d(a)m +(v)-5 b(ailable)41 b(for)i(partons)0 4400 y(whic)m(h)37 +b(ha)m(v)m(e)g(fragmen)m(ted.)55 b(F)-8 b(or)35 b(partons)i(with)f +Fq(IDHEP\(I\)=1)p Fw(,)k(i.e.)54 b(whic)m(h)37 b(ha)m(v)m(e)g(not)g +(fragmen)m(ted,)0 4508 y(an)43 b(attempt)g(is)g(made)g(to)f(sub)s +(divide)i(the)f(partonic)g(system)h(in)m(to)f(colour)f(singlets,)j(as)f +(required)0 4616 y(for)36 b(subsequen)m(t)41 b(string)36 +b(fragmen)m(tation.)55 b(T)-8 b(o)37 b(this)g(end,)i(it)d(is)g(assumed) +i(that)f(partons)g(are)g(stored)0 4725 y(sequen)m(tially)28 +b(along)f(strings.)42 b(Normally)-8 b(,)26 b(a)i(string)g(w)m(ould)g +(then)h(start)f(at)g(a)g(q)h(\()p 2968 4672 52 4 v(q\))f(or)p +3200 4672 V 28 w(q)p 3252 4672 V 1 w(q)g(\(qq\))h(en)m(try)-8 +b(,)0 4833 y(co)m(v)m(er)42 b(a)e(n)m(um)m(b)s(er)h(of)f(in)m +(termediate)g(gluons,)i(and)f(end)g(at)f(a)p 2353 4780 +V 40 w(q)h(\(q\))g(or)f(qq)i(\()p 2922 4780 V(q)p 2973 +4780 V(q)q(\))e(en)m(try)-8 b(.)69 b(P)m(articles)0 4941 +y(could)38 b(b)s(e)h(in)m(tersp)s(ersed)h(in)e(this)g(list)f(with)h(no) +g(adv)m(erse)j(e\013ects,)g(i.e.)61 b(a)38 b(u)27 b Fn(\000)f +Fw(g)i Fn(\000)e Fj(\015)31 b Fn(\000)p 3315 4889 55 +4 v 27 w Fw(u)39 b(sequence)0 5050 y(w)m(ould)30 b(b)s(e)f(in)m +(terpreted)i(as)f(a)f(u)16 b Fn(\000)g Fw(g)i Fn(\000)p +1428 4997 V 16 w Fw(u)31 b(string)e(plus)g(an)h(additional)c(photon.)43 +b(A)30 b(closed)f(gluon)g(lo)s(op)0 5158 y(w)m(ould)41 +b(b)s(e)g(assumed)g(to)f(b)s(e)h(made)f(up)h(of)g(a)f(sequen)m(tial)h +(listing)d(of)i(the)h(gluons,)i(with)d(the)h(string)0 +5266 y(con)m(tin)m(uing)35 b(from)g(the)h(last)f(gluon)g(up)h(bac)m(k)h +(to)f(the)g(\014rst)h(one.)53 b(Con)m(trary)37 b(to)f(the)g(previous,)h +(op)s(en)0 5375 y(string)c(case,)i(the)f(app)s(earance)g(of)f(an)m(y)h +(particle)e(but)i(a)f(gluon)f(w)m(ould)i(therefore)g(signal)e(the)i +(end)g(of)0 5483 y(the)e(gluon)e(lo)s(op.)42 b(F)-8 b(or)30 +b(example,)h(a)g(g)21 b Fn(\000)f Fw(g)h Fn(\000)f Fw(g)h +Fn(\000)f Fw(g)32 b(sequence)i(w)m(ould)e(b)s(e)f(in)m(terpreted)h(as)g +(one)g(single)0 5592 y(four-gluon)k(lo)s(op,)i(while)f(a)g(g)27 +b Fn(\000)g Fw(g)f Fn(\000)h Fj(\015)j Fn(\000)d Fw(g)g +Fn(\000)f Fw(g)39 b(sequence)h(w)m(ould)e(b)s(e)g(seen)h(as)f(comp)s +(osed)g(of)g(t)m(w)m(o)1841 5953 y(66)p eop +%%Page: 67 73 +67 72 bop 0 -18 a Fw(2-gluon)31 b(systems.)146 90 y(If)36 +b(these)i(in)m(terpretations,)e(whic)m(h)h(are)f(not)g(unique,)i(are)e +(not)g(to)g(y)m(our)h(liking,)e(it)g(is)g(up)i(to)f(y)m(ou)0 +198 y(to)f(correct)g(them,)g(e.g.)51 b(b)m(y)36 b(using)g +Fq(LUJOIN)g Fw(to)f(tell)e(exactly)j(whic)m(h)f(partons)g(should)g(b)s +(e)g(joined,)g(in)0 307 y(whic)m(h)c(sequence,)j(to)d(giv)m(e)g(a)f +(string.)43 b(Calls)29 b(to)i Fq(LUJOIN)h Fw(\(or)f(the)g(equiv)-5 +b(alen)m(t\))31 b(are)f(also)g(necessary)k(if)0 415 y +Fq(LUSHOW)g Fw(is)e(to)g(b)s(e)h(used)h(to)e(ha)m(v)m(e)i(some)e +(partons)h(dev)m(elop)h(a)e(sho)m(w)m(er.)146 523 y(F)-8 +b(or)27 b(practical)g(applications,)g(one)h(should)g(note)g(that)f +Fm(Jetset)g Fw(e)2578 487 y Fl(+)2638 523 y Fw(e)2681 +487 y Fk(\000)2768 523 y Fw(ev)m(en)m(ts,)k(whic)m(h)d(ha)m(v)m(e)i(b)s +(een)0 632 y(allo)m(w)m(ed)37 b(to)g(sho)m(w)m(er)i(but)e(not)g(to)g +(fragmen)m(t,)h(do)g(ha)m(v)m(e)g(partons)g(arranged)f(in)g(the)g +(order)h(assumed)0 740 y(ab)s(o)m(v)m(e,)26 b(so)e(that)g(a)g +(translation)e(to)h Fq(HEPEVT)i Fw(and)f(bac)m(k)h(do)s(es)f(not)g +(destro)m(y)h(the)f(p)s(ossibilit)m(y)e(to)i(p)s(erform)0 +848 y(fragmen)m(tation)34 b(b)m(y)j(a)f(simple)f Fq(LUEXEC)i +Fw(call.)53 b(Also)35 b(the)i(hard)f(in)m(teractions)g(in)f +Fm(Pythia)h Fw(ful\014l)f(this)0 957 y(condition,)c(while)g(problems)g +(ma)m(y)g(app)s(ear)h(in)f(the)i(m)m(ultiple)c(in)m(teraction)i +(scenario,)h(where)h(sev)m(eral)0 1065 y(closed)c(gg)h(lo)s(ops)e(ma)m +(y)g(app)s(ear)h(directly)g(follo)m(wing)d(one)j(another,)h(and)f(th)m +(us)h(w)m(ould)f(b)s(e)g(in)m(terpreted)0 1173 y(as)k(a)f(single)g(m)m +(ultigluon)d(lo)s(op)i(after)h(translation)f(bac)m(k)j(and)e(forth.) +1841 5953 y(67)p eop +%%Page: 68 74 +68 73 bop 0 -18 a Ft(6)161 b(Hard)54 b(Pro)t(cesses)e(in)j(JETSET)0 +189 y Fm(Jetset)38 b Fw(con)m(tains)h(the)h(sim)m(ulation)c(of)i(t)m(w) +m(o)i(hard)f(pro)s(cesses.)65 b(The)40 b(pro)s(cess)g(of)f(main)e(in)m +(terest)j(is)0 297 y(e)43 261 y Fl(+)102 297 y Fw(e)145 +261 y Fk(\000)236 297 y Fn(!)31 b Fj(\015)423 261 y Fk(\003)462 +297 y Fj(=)p Fw(Z)571 261 y Fl(0)641 297 y Fn(!)g Fw(q)p +823 244 52 4 v(q)q(.)49 b(Higher-order)34 b(QCD)h(corrections)f(can)h +(b)s(e)g(obtained)f(either)g(with)h(parton)0 405 y(sho)m(w)m(ers)29 +b(or)e(with)f(second-order)i(matrix)e(elemen)m(ts.)42 +b(The)28 b(details)d(of)i(the)g(parton-sho)m(w)m(er)h(ev)m(olution)0 +514 y(are)g(giv)m(en)g(in)g(section)g(10,)g(while)g(this)f(section)i +(con)m(tains)f(the)g(matrix-elemen)m(t)e(description,)j(includ-)0 +622 y(ing)j(a)g(summary)g(of)g(the)h Fm(Jetset)f Fw(algorithm)d(for)j +(initial-state)d(photon)k(radiation.)41 b(Also)32 b Fm(Pythia)0 +730 y Fw(can)42 b(b)s(e)g(used)i(to)d(sim)m(ulate)g(the)h(pro)s(cess)h +(e)1658 694 y Fl(+)1718 730 y Fw(e)1761 694 y Fk(\000)1864 +730 y Fn(!)g Fj(\015)2063 694 y Fk(\003)2102 730 y Fj(=)p +Fw(Z)2211 694 y Fl(0)2294 730 y Fn(!)g Fw(q)p 2488 677 +V(q)q(,)h(but)f(without)e(the)i(options)e(of)0 839 y(using)31 +b(second-order)h(matrix)d(elemen)m(ts)j(or)e(p)s(olarized)g(incoming)f +(b)s(eams.)42 b(Some)31 b(other)g(di\013erences)0 947 +y(b)s(et)m(w)m(een)k(the)e(t)m(w)m(o)g(algorithms)d(are)i(describ)s +(ed.)146 1055 y(The)25 b(other)f(hard)g(pro)s(cess)g(in)f +Fm(Jetset)g Fw(is)g(\007)h(deca)m(y)h(to)e(ggg)h(or)g +Fj(\015)5 b Fw(gg)q(,)25 b(whic)m(h)f(is)g(brie\015y)f(commen)m(ted)0 +1164 y(on.)146 1272 y(The)34 b(main)d(sources)j(of)e(information)d(for) +j(this)h(c)m(hapter)g(are)g(refs.)44 b([Sj\177)-49 b(o83)o(,)33 +b(Sj\177)-49 b(o86)o(,)33 b(Sj\177)-49 b(o89)o(].)0 1544 +y Fp(6.1)135 b(Annihilation)46 b(Ev)l(en)l(ts)g(in)f(the)g(Con)l(tin)l +(uum)0 1716 y Fw(The)39 b(description)f(of)g(e)871 1680 +y Fl(+)931 1716 y Fw(e)974 1680 y Fk(\000)1071 1716 y +Fw(annihilation)d(in)m(to)j(hadronic)f(ev)m(en)m(ts)k(in)m(v)m(olv)m +(es)e(a)f(n)m(um)m(b)s(er)h(of)f(comp)s(o-)0 1825 y(nen)m(ts:)j(the)25 +b Fj(s)f Fw(dep)s(endence)j(of)d(the)g(total)f(cross)j(section)e(and)h +(\015a)m(v)m(our)g(comp)s(osition,)f(m)m(ultijet)e(matrix)0 +1933 y(elemen)m(ts,)30 b(angular)e(orien)m(tation)f(of)i(ev)m(en)m(ts,) +j(initial-state)25 b(photon)30 b(bremsstrahlung)e(and)i(e\013ects)g(of) +0 2041 y(initial-state)f(electron)k(p)s(olarization.)42 +b(Man)m(y)34 b(of)f(the)g(published)g(form)m(ulae)f(ha)m(v)m(e)i(b)s +(een)g(deriv)m(ed)g(for)0 2150 y(the)39 b(case)g(of)f(massless)g +(outgoing)f(quarks.)62 b(F)-8 b(or)38 b(eac)m(h)h(of)f(the)g(comp)s +(onen)m(ts)h(describ)s(ed)g(in)f(the)g(fol-)0 2258 y(lo)m(wing,)29 +b(w)m(e)j(will)27 b(b)s(egin)j(b)m(y)h(discussing)f(the)h(massless)f +(case,)i(and)e(then)h(commen)m(t)f(on)g(what)g(is)g(done)0 +2366 y(to)i(accommo)s(date)f(massiv)m(e)i(quarks.)0 2612 +y Fo(6.1.1)112 b(Electro)m(w)m(eak)36 b(cross)i(sections)0 +2785 y Fw(In)27 b(the)h(standard)f(theory)-8 b(,)29 b(fermions)d(ha)m +(v)m(e)i(the)g(follo)m(wing)c(couplings)i(\(illustrated)f(here)j(for)f +(the)g(\014rst)0 2893 y(generation\):)918 3085 y Fj(e)963 +3100 y Fh(\027)1035 3085 y Fw(=)g(0,)275 b Fj(v)1536 +3100 y Fh(\027)1607 3085 y Fw(=)27 b(1,)746 b Fj(a)2583 +3100 y Fh(\027)2654 3085 y Fw(=)27 b(1,)918 3205 y Fj(e)963 +3220 y Fl(e)1027 3205 y Fw(=)g Fn(\000)p Fw(1,)206 b +Fj(v)1536 3220 y Fl(e)1599 3205 y Fw(=)28 b Fn(\000)p +Fw(1)22 b(+)g(4)17 b(sin)2134 3166 y Fl(2)2174 3205 y +Fj(\022)2219 3220 y Fh(W)2300 3205 y Fw(,)205 b Fj(a)2583 +3220 y Fl(e)2646 3205 y Fw(=)28 b Fn(\000)p Fw(1,)918 +3326 y Fj(e)963 3341 y Fl(u)1035 3326 y Fw(=)f(2)p Fj(=)p +Fw(3,)177 b Fj(v)1536 3341 y Fl(u)1607 3326 y Fw(=)27 +b(1)22 b Fn(\000)h Fw(8)17 b(sin)2066 3286 y Fl(2)2106 +3326 y Fj(\022)2151 3341 y Fh(W)2232 3326 y Fj(=)p Fw(3,)175 +b Fj(a)2583 3341 y Fh(\027)2654 3326 y Fw(=)27 b(1,)918 +3446 y Fj(e)963 3461 y Fl(d)1035 3446 y Fw(=)g Fn(\000)p +Fw(1)p Fj(=)p Fw(3,)100 b Fj(v)1536 3461 y Fl(d)1607 +3446 y Fw(=)27 b Fn(\000)p Fw(1)c(+)f(4)17 b(sin)2142 +3406 y Fl(2)2181 3446 y Fj(\022)2226 3461 y Fh(W)2307 +3446 y Fj(=)p Fw(3,)100 b Fj(a)2583 3461 y Fl(d)2654 +3446 y Fw(=)28 b Fn(\000)p Fw(1,)0 3637 y(with)40 b Fj(e)h +Fw(the)g(electric)f(c)m(harge,)k(and)d Fj(v)j Fw(and)d +Fj(a)g Fw(the)g(v)m(ector)h(and)e(axial)f(couplings)h(to)h(the)g(Z)3478 +3601 y Fl(0)3517 3637 y Fw(.)68 b(The)0 3745 y(relativ)m(e)25 +b(energy)i(dep)s(endence)i(of)c(the)i(w)m(eak)g(neutral)f(curren)m(t)h +(to)e(the)i(electromagnetic)d(one)j(is)e(giv)m(en)0 3854 +y(b)m(y)990 4013 y Fj(\037)p Fw(\()p Fj(s)p Fw(\))j(=)1622 +3945 y(1)p 1314 3990 664 4 v 1314 4082 a(4)17 b(sin)1499 +4042 y Fl(2)1539 4082 y Fj(\022)1584 4097 y Fh(W)1682 +4082 y Fw(cos)1812 4053 y Fl(2)1852 4082 y Fj(\022)1897 +4097 y Fh(W)2349 3945 y Fj(s)p 2025 3990 695 4 v 2025 +4081 a(s)22 b Fn(\000)h Fj(m)2278 4047 y Fl(2)2278 4105 +y(Z)2348 4081 y Fw(+)f Fj(im)2564 4096 y Fl(Z)2612 4081 +y Fw(\000)2673 4096 y Fl(Z)2762 4013 y Fj(;)817 b Fw(\(19\))0 +4244 y(where)40 b Fj(s)e Fw(=)f Fj(E)563 4208 y Fl(2)557 +4269 y(cm)652 4244 y Fw(.)61 b(In)39 b Fm(Jetset)f Fw(the)h(electro)m +(w)m(eak)h(mixing)c(parameter)i(sin)2861 4204 y Fl(2)2901 +4244 y Fj(\022)2946 4259 y Fh(W)3065 4244 y Fw(and)h(the)g(Z)3495 +4208 y Fl(0)3573 4244 y Fw(mass)0 4353 y Fj(m)85 4368 +y Fl(Z)173 4353 y Fw(and)h(width)g(\000)715 4368 y Fl(Z)802 +4353 y Fw(are)h(considered)g(as)f(constan)m(ts)i(to)d(b)s(e)i(giv)m(en) +f(b)m(y)h(y)m(ou)g(\(while)e Fm(Pythia)i Fw(itself)0 +4461 y(calculates)32 b(an)g Fj(s)p Fw(-dep)s(enden)m(t)i(width\).)146 +4569 y(Although)e(the)i(incoming)c(e)1206 4533 y Fl(+)1298 +4569 y Fw(and)j(e)1531 4533 y Fk(\000)1623 4569 y Fw(b)s(eams)g(are)g +(normally)d(unp)s(olarized,)i(w)m(e)i(ha)m(v)m(e)g(included)0 +4678 y(the)d(p)s(ossibilit)m(y)e(of)h(p)s(olarized)f(b)s(eams,)i(follo) +m(wing)d(the)k(formalism)27 b(of)j([Ols80)o(].)43 b(Th)m(us)33 +b(the)e(incoming)0 4786 y(e)43 4750 y Fl(+)135 4786 y +Fw(and)i(e)368 4750 y Fk(\000)460 4786 y Fw(are)f(c)m(haracterized)i(b) +m(y)f(p)s(olarizations)d Fo(P)2006 4750 y Fk(\006)2097 +4786 y Fw(in)i(the)h(rest)g(frame)f(of)g(the)h(particles:)1419 +4980 y Fo(P)1496 4939 y Fk(\006)1582 4980 y Fw(=)28 b +Fj(P)1763 4939 y Fk(\006)1749 5004 y Fl(T)1819 4979 y +Fw(^)1821 4980 y Fo(s)1865 4939 y Fk(\006)1946 4980 y +Fw(+)22 b Fj(P)2121 4939 y Fk(\006)2107 5004 y Fl(L)2187 +4979 y Fw(^)2180 4980 y Fo(p)2242 4939 y Fk(\006)2334 +4980 y Fj(;)1245 b Fw(\(20\))0 5173 y(where)34 b(0)27 +b Fn(\024)h Fj(P)540 5132 y Fk(\006)526 5198 y Fl(T)627 +5173 y Fn(\024)g Fw(1)k(and)h Fn(\000)p Fw(1)28 b Fn(\024)g +Fj(P)1339 5132 y Fk(\006)1325 5198 y Fl(L)1425 5173 y +Fn(\024)g Fw(1,)k(with)h(the)g(constrain)m(t)1267 5367 +y(\()p Fo(P)1382 5326 y Fk(\006)1441 5367 y Fw(\))1479 +5326 y Fl(2)1546 5367 y Fw(=)27 b(\()p Fj(P)1764 5326 +y Fk(\006)1750 5392 y Fl(T)1823 5367 y Fw(\))1861 5326 +y Fl(2)1922 5367 y Fw(+)22 b(\()p Fj(P)2135 5326 y Fk(\006)2121 +5392 y Fl(L)2194 5367 y Fw(\))2232 5326 y Fl(2)2299 5367 +y Fn(\024)28 b Fw(1)k Fj(:)1094 b Fw(\(21\))0 5561 y(Here)238 +5560 y(^)240 5561 y Fo(s)284 5525 y Fk(\006)385 5561 +y Fw(are)42 b(unit)g(v)m(ectors)i(p)s(erp)s(endicular)d(to)h(the)g(b)s +(eam)g(directions)2781 5560 y(^)2774 5561 y Fo(p)2836 +5525 y Fk(\006)2895 5561 y Fw(.)73 b(T)-8 b(o)42 b(b)s(e)g(sp)s +(eci\014c,)j(w)m(e)0 5669 y(c)m(ho)s(ose)d(a)f(righ)m(t-handed)g(co)s +(ordinate)g(frame)f(with)2003 5668 y(^)1996 5669 y Fo(p)2058 +5633 y Fk(\006)2160 5669 y Fw(=)i(\(0)p Fj(;)17 b Fw(0)p +Fj(;)g Fn(\007)p Fw(1\),)43 b(and)f(standard)f(transv)m(erse)1841 +5953 y(68)p eop +%%Page: 69 75 +69 74 bop 0 -18 a Fw(p)s(olarization)35 b(directions)j(\(out)g(of)f +(the)i(mac)m(hine)f(plane)g(for)f(storage)i(rings\))2934 +-19 y(^)2936 -18 y Fo(s)2980 -55 y Fk(\006)3077 -18 y +Fw(=)e(\(0)p Fj(;)17 b Fn(\006)p Fw(1)p Fj(;)g Fw(0\),)39 +b(the)0 90 y(latter)30 b(corresp)s(onding)i(to)f(azim)m(uthal)e(angles) +j Fj(')1816 54 y Fk(\006)1902 90 y Fw(=)c Fn(\006)p Fj(\031)t(=)p +Fw(2.)43 b(As)32 b(free)g(parameters)f(in)g(the)h(program)0 +233 y(w)m(e)i(c)m(ho)s(ose)f Fj(P)530 192 y Fl(+)516 +258 y(L)589 233 y Fw(,)f Fj(P)725 192 y Fk(\000)711 258 +y Fl(L)784 233 y Fw(,)g Fj(P)906 248 y Fl(T)989 233 y +Fw(=)1092 130 y Fg(q)p 1175 130 271 4 v 103 x Fj(P)1252 +192 y Fl(+)1238 258 y(T)1311 233 y Fj(P)1388 192 y Fk(\000)1374 +258 y Fl(T)1479 233 y Fw(and)h(\001)p Fj(')27 b Fw(=)h(\()p +Fj(')2047 197 y Fl(+)2128 233 y Fw(+)22 b Fj(')2290 197 +y Fk(\000)2349 233 y Fw(\))p Fj(=)p Fw(2.)146 363 y(In)30 +b(the)g(massless)g(QED)f(case,)i(the)f(probabilit)m(y)d(to)i(pro)s +(duce)h(a)g(\015a)m(v)m(our)g(f)36 b(is)29 b(prop)s(ortional)e(to)i +Fj(e)3713 327 y Fl(2)3713 388 y(f)3752 363 y Fw(,)0 471 +y(i.e)38 b(up-t)m(yp)s(e)i(quarks)g(are)f(four)g(times)f(as)h(lik)m +(ely)e(as)i(do)m(wn-t)m(yp)s(e)i(ones.)63 b(In)39 b(lo)m(w)m(est-order) +g(massless)0 580 y(QFD)32 b(the)h(corresp)s(onding)f(relativ)m(e)g +(probabilities)e(are)i(giv)m(en)h(b)m(y)g([Ols80])163 +812 y Fj(h)219 827 y Fl(f)250 812 y Fw(\()p Fj(s)p Fw(\))83 +b(=)g Fj(e)659 771 y Fl(2)659 837 y(e)715 812 y Fw(\(1)22 +b Fn(\000)h Fj(P)1001 771 y Fl(+)987 837 y(L)1059 812 +y Fj(P)1136 771 y Fk(\000)1122 837 y Fl(L)1194 812 y +Fw(\))17 b Fj(e)1294 771 y Fl(2)1294 837 y(f)1372 812 +y Fw(+)39 b(2)p Fj(e)1581 827 y Fl(e)1633 716 y Fg(n)1688 +812 y Fj(v)1735 827 y Fl(e)1771 812 y Fw(\(1)22 b Fn(\000)h +Fj(P)2057 771 y Fl(+)2043 837 y(L)2115 812 y Fj(P)2192 +771 y Fk(\000)2178 837 y Fl(L)2251 812 y Fw(\))f Fn(\000)g +Fj(a)2461 827 y Fl(e)2497 812 y Fw(\()p Fj(P)2612 771 +y Fk(\000)2598 837 y Fl(L)2692 812 y Fn(\000)h Fj(P)2869 +771 y Fl(+)2855 837 y(L)2928 812 y Fw(\))2966 716 y Fg(o)3054 +812 y Fn(<)p Fj(\037)p Fw(\()p Fj(s)p Fw(\))17 b Fj(e)3371 +827 y Fl(f)3402 812 y Fj(v)3449 827 y Fl(f)3519 812 y +Fw(+)614 995 y(+)723 899 y Fg(n)778 995 y Fw(\()p Fj(v)867 +954 y Fl(2)863 1020 y(e)928 995 y Fw(+)22 b Fj(a)1077 +954 y Fl(2)1077 1020 y(e)1117 995 y Fw(\)\(1)g Fn(\000)h +Fj(P)1441 954 y Fl(+)1427 1020 y(L)1499 995 y Fj(P)1576 +954 y Fk(\000)1562 1020 y Fl(L)1634 995 y Fw(\))g Fn(\000)f +Fw(2)p Fj(v)1890 1010 y Fl(e)1926 995 y Fj(a)1977 1010 +y Fl(e)2012 995 y Fw(\()p Fj(P)2127 954 y Fk(\000)2113 +1020 y Fl(L)2208 995 y Fn(\000)g Fj(P)2384 954 y Fl(+)2370 +1020 y(L)2443 995 y Fw(\))2481 899 y Fg(o)2569 995 y +Fn(j)p Fj(\037)p Fw(\()p Fj(s)p Fw(\))p Fn(j)2808 946 +y Fl(2)2880 899 y Fg(n)2936 995 y Fj(v)2987 954 y Fl(2)2983 +1020 y(f)3048 995 y Fw(+)g Fj(a)3197 954 y Fl(2)3197 +1020 y(f)3237 899 y Fg(o)3341 995 y Fj(;)238 b Fw(\(22\))0 +1227 y(where)37 b Fn(<)p Fj(\037)p Fw(\()p Fj(s)p Fw(\))f(denotes)h +(the)f(real)f(part)h(of)f Fj(\037)p Fw(\()p Fj(s)p Fw(\).)53 +b(The)37 b Fj(h)2148 1242 y Fl(f)2179 1227 y Fw(\()p +Fj(s)p Fw(\))e(expression)j(dep)s(ends)f(b)s(oth)f(on)f(the)i +Fj(s)0 1336 y Fw(v)-5 b(alue)32 b(and)h(on)f(the)h(longitudinal)c(p)s +(olarization)g(of)j(the)h(e)2148 1300 y Fk(\006)2240 +1336 y Fw(b)s(eams)g(in)e(a)i(non-trivial)c(w)m(a)m(y)-8 +b(.)146 1444 y(The)34 b(cross)f(section)g(for)f(the)h(pro)s(cess)h(e) +1612 1408 y Fl(+)1671 1444 y Fw(e)1714 1408 y Fk(\000)1801 +1444 y Fn(!)28 b Fj(\015)1985 1408 y Fk(\003)2024 1444 +y Fj(=)p Fw(Z)2133 1408 y Fl(0)2200 1444 y Fn(!)f Fw(f)p +2364 1365 37 4 v 7 w(f)39 b(ma)m(y)32 b(no)m(w)i(b)s(e)e(written)h(as) +1435 1723 y Fj(\033)1490 1738 y Fl(f)1521 1723 y Fw(\()p +Fj(s)p Fw(\))28 b(=)1784 1656 y(4)p Fj(\031)t(\013)1955 +1620 y Fl(2)1954 1680 y(em)p 1784 1700 265 4 v 1869 1792 +a Fw(3)p Fj(s)2058 1723 y(R)2132 1738 y Fl(f)2163 1723 +y Fw(\()p Fj(s)p Fw(\))33 b Fj(;)1261 b Fw(\(23\))0 1976 +y(where)39 b Fj(R)361 1991 y Fl(f)430 1976 y Fw(giv)m(es)f(the)g(ratio) +e(to)i(the)g(lo)m(w)m(est-order)g(QED)g(cross)g(section)g(for)f(the)i +(pro)s(cess)g(e)3482 1940 y Fl(+)3541 1976 y Fw(e)3584 +1940 y Fk(\000)3680 1976 y Fn(!)0 2084 y Fj(\026)59 2048 +y Fl(+)118 2084 y Fj(\026)177 2048 y Fk(\000)235 2084 +y Fw(,)1372 2192 y Fj(R)1446 2207 y Fl(f)1477 2192 y +Fw(\()p Fj(s)p Fw(\))28 b(=)f Fj(N)1808 2207 y Fh(C)1884 +2192 y Fj(R)1958 2207 y Fl(QCD)2139 2192 y Fj(h)2195 +2207 y Fl(f)2226 2192 y Fw(\()p Fj(s)p Fw(\))32 b Fj(:)1199 +b Fw(\(24\))0 2355 y(The)37 b(factor)e(of)h Fj(N)679 +2370 y Fh(C)771 2355 y Fw(=)e(3)h(coun)m(ts)i(the)g(n)m(um)m(b)s(er)f +(of)f(colour)g(states)i(a)m(v)-5 b(ailable)34 b(for)h(the)h(q)p +3275 2302 52 4 v(q)h(pair.)53 b(The)0 2463 y Fj(R)74 +2478 y Fl(QCD)264 2463 y Fw(factor)26 b(tak)m(es)i(in)m(to)d(accoun)m +(t)i(QCD)f(lo)s(op)f(corrections)h(to)g(the)h(cross)g(section.)41 +b(F)-8 b(or)26 b Fj(n)3364 2478 y Fh(f)3435 2463 y Fw(e\013ectiv)m(e)0 +2571 y(\015a)m(v)m(ours)34 b(\(normally)c Fj(n)866 2586 +y Fh(f)939 2571 y Fw(=)e(5\))866 2848 y Fj(R)940 2863 +y Fl(QCD)1131 2848 y Fn(\031)h Fw(1)22 b(+)1415 2781 +y Fj(\013)1477 2796 y Fl(s)p 1415 2825 95 4 v 1433 2917 +a Fj(\031)1542 2848 y Fw(+)g(\(1)p Fj(:)p Fw(986)f Fn(\000)i +Fw(0)p Fj(:)p Fw(115)p Fj(n)2303 2863 y Fh(f)2347 2848 +y Fw(\))2402 2727 y Fg(\022)2473 2781 y Fj(\013)2535 +2796 y Fl(s)p 2473 2825 V 2491 2917 a Fj(\031)2577 2727 +y Fg(\023)2638 2750 y Fl(2)2700 2848 y Fw(+)f Fn(\001)17 +b(\001)g(\001)690 b Fw(\(25\))0 3116 y(in)35 b(the)p +289 3038 144 4 v 37 w(MS)i(renormalization)c(sc)m(heme)k([Din79)n(].)55 +b(Note)36 b(that)g Fj(R)2426 3131 y Fl(QCD)2626 3116 +y Fw(do)s(es)h(not)f(a\013ect)h(the)f(relativ)m(e)0 3224 +y(quark-\015a)m(v)m(our)j(comp)s(osition,)e(and)h(so)g(is)g(of)f(p)s +(eripheral)g(in)m(terest)h(in)g Fm(Jetset)p Fw(.)58 b(\(F)-8 +b(or)37 b(leptons)h(the)0 3332 y Fj(N)78 3347 y Fh(C)176 +3332 y Fw(and)g Fj(R)445 3347 y Fl(QCD)647 3332 y Fw(factors)h(w)m +(ould)f(b)s(e)h(absen)m(t,)i(i.e.)60 b Fj(N)2004 3347 +y Fh(C)2080 3332 y Fj(R)2154 3347 y Fl(QCD)2356 3332 +y Fw(=)37 b(1,)j(but)e(leptonic)g(\014nal)f(states)i(are)0 +3441 y(not)32 b(generated)i(in)e Fm(Jetset)p Fw(.\))146 +3549 y(Neglecting)d(higher-order)h(QCD)g(and)g(QFD)f(e\013ects,)j(the)f +(corrections)f(for)g(massiv)m(e)g(quarks)h(are)0 3677 +y(giv)m(en)j(in)f(terms)h(of)f(the)i(v)m(elo)s(cit)m(y)e +Fj(v)1334 3692 y Fl(q)1410 3677 y Fw(of)g(a)h(quark)g(with)g(mass)g +Fj(m)2432 3692 y Fl(q)2473 3677 y Fw(,)g Fj(v)2581 3692 +y Fl(q)2653 3677 y Fw(=)2759 3583 y Fg(q)p 2842 3583 +441 4 v 94 x Fw(1)22 b Fn(\000)g Fw(4)p Fj(m)3146 3648 +y Fl(2)3146 3702 y(q)3188 3677 y Fj(=s)o Fw(,)35 b(as)f(follo)m(ws.)0 +3817 y(The)g(v)m(ector)f(quark)h(curren)m(t)f(terms)g(in)f +Fj(h)1550 3832 y Fl(f)1613 3817 y Fw(\(prop)s(ortional)e(to)i +Fj(e)2376 3781 y Fl(2)2376 3841 y(f)2416 3817 y Fw(,)h +Fj(e)2521 3832 y Fl(f)2552 3817 y Fj(v)2599 3832 y Fl(f)2630 +3817 y Fw(,)f(or)h Fj(v)2860 3781 y Fl(2)2856 3841 y(f)2899 +3817 y Fw(\))f(are)h(m)m(ultiplied)c(b)m(y)34 b(a)0 3925 +y(threshold)f(factor)g Fj(v)756 3940 y Fl(q)797 3925 +y Fw(\(3)22 b Fn(\000)h Fj(v)1057 3889 y Fl(2)1053 3950 +y(q)1096 3925 y Fw(\))p Fj(=)p Fw(2,)33 b(while)f(the)h(axial)e(v)m +(ector)j(quark)g(curren)m(t)g(term)f(\(prop)s(ortional)d(to)0 +4050 y Fj(a)51 4014 y Fl(2)51 4074 y(f)91 4050 y Fw(\))35 +b(is)f(m)m(ultiplied)e(b)m(y)k Fj(v)919 4014 y Fl(3)915 +4074 y(q)958 4050 y Fw(.)51 b(While)34 b(inclusion)g(of)g(quark)i +(masses)g(in)e(the)i(QFD)e(form)m(ulae)f(decreases)0 +4170 y(the)e(total)e(cross)i(section,)g(\014rst-order)g(QCD)f +(corrections)h(tend)g(in)e(the)i(opp)s(osite)f(direction)f([Jer81].)0 +4279 y(Na)-11 b(\177)-38 b(\020v)m(ely)-8 b(,)34 b(one)f(w)m(ould)h +(exp)s(ect)h(one)f(factor)f(of)g Fj(v)1767 4294 y Fl(q)1842 +4279 y Fw(to)h(get)f(cancelled.)47 b(So)33 b(far,)h(the)g(a)m(v)-5 +b(ailable)31 b(options)0 4387 y(are)i(either)f(to)g(include)g +(threshold)h(factors)f(in)g(full)f(or)h(not)h(at)f(all.)146 +4495 y(Giv)m(en)38 b(that)f(all)f(\014v)m(e)i(quarks)h(are)f(ligh)m(t)e +(at)h(the)h(scale)f(of)g(the)h(Z)2576 4459 y Fl(0)2615 +4495 y Fw(,)h(the)f(issue)g(of)f(quark)i(masses)0 4604 +y(is)31 b(not)g(really)g(of)g(in)m(terest)h(at)f(LEP)-8 +b(.)32 b(Here,)g(ho)m(w)m(ev)m(er,)j(purely)c(w)m(eak)i(corrections)f +(are)f(imp)s(ortan)m(t,)f(in)0 4712 y(particular)i(since)j(they)g(c)m +(hange)g(the)f(b)g(quark)h(partial)d(width)i(di\013eren)m(tly)g(from)e +(that)i(of)g(the)g(other)0 4820 y(ones)f([K)s(\177)-51 +b(uh89)o(].)44 b(No)32 b(suc)m(h)i(e\013ects)g(are)f(included)f(in)g +(the)h(program.)0 5068 y Fo(6.1.2)112 b(First-order)37 +b(QCD)h(matrix)e(elemen)m(ts)0 5241 y Fw(The)26 b(Born)g(pro)s(cess)g +(e)804 5205 y Fl(+)864 5241 y Fw(e)907 5205 y Fk(\000)994 +5241 y Fn(!)h Fw(q)p 1172 5188 52 4 v(q)f(is)f(mo)s(di\014ed)f(in)h +(\014rst-order)h(QCD)f(b)m(y)h(the)g(probabilit)m(y)d(for)i(the)h(q)g +(or)p 0 5296 V 0 5349 a(q)31 b(to)f(radiate)f(a)h(gluon,)g(i.e.)43 +b(b)m(y)31 b(the)g(pro)s(cess)g(e)1744 5313 y Fl(+)1804 +5349 y Fw(e)1847 5313 y Fk(\000)1934 5349 y Fn(!)c Fw(q)p +2112 5296 V(q)q(g)q(.)43 b(The)31 b(matrix)e(elemen)m(t)h(is)g(con)m(v) +m(enien)m(tly)0 5458 y(giv)m(en)35 b(in)g(terms)g(of)g(scaled)g(energy) +i(v)-5 b(ariables)34 b(in)g(the)i(c.m.)51 b(frame)34 +b(of)h(the)h(ev)m(en)m(t,)i Fj(x)3195 5473 y Fl(1)3267 +5458 y Fw(=)32 b(2)p Fj(E)3496 5473 y Fl(q)3537 5458 +y Fj(=E)3658 5473 y Fl(cm)3752 5458 y Fw(,)1841 5953 +y(69)p eop +%%Page: 70 76 +70 75 bop 0 -18 a Fj(x)55 -3 y Fl(2)123 -18 y Fw(=)27 +b(2)p Fj(E)p 347 -42 42 4 v 14 x Fl(q)388 -18 y Fj(=E)509 +-3 y Fl(cm)604 -18 y Fw(,)32 b(and)g Fj(x)907 -3 y Fl(3)975 +-18 y Fw(=)27 b(2)p Fj(E)1199 -3 y Fl(g)1240 -18 y Fj(=E)1361 +-3 y Fl(cm)1455 -18 y Fw(,)32 b(i.e.)43 b Fj(x)1737 -3 +y Fl(1)1798 -18 y Fw(+)21 b Fj(x)1950 -3 y Fl(2)2011 +-18 y Fw(+)f Fj(x)2162 -3 y Fl(3)2230 -18 y Fw(=)28 b(2.)43 +b(F)-8 b(or)31 b(massless)h(quarks)i(the)e(matrix)0 90 +y(elemen)m(t)g(reads)i([Ell76)n(])1098 291 y(1)p 1075 +336 95 4 v 1075 427 a Fj(\033)1130 442 y Fl(0)1308 291 +y Fw(d)p Fj(\033)p 1207 336 315 4 v 1207 427 a Fw(d)p +Fj(x)1316 442 y Fl(1)1372 427 y Fw(d)p Fj(x)1481 442 +y Fl(2)1559 359 y Fw(=)1680 291 y Fj(\013)1742 306 y +Fl(s)p 1673 336 108 4 v 1673 427 a Fw(2)p Fj(\031)1807 +359 y(C)1877 374 y Fh(F)2148 291 y Fj(x)2203 255 y Fl(2)2203 +316 y(1)2265 291 y Fw(+)22 b Fj(x)2418 255 y Fl(2)2418 +316 y(2)p 1962 336 683 4 v 1962 427 a Fw(\(1)g Fn(\000)g +Fj(x)2225 442 y Fl(1)2265 427 y Fw(\)\(1)g Fn(\000)h +Fj(x)2567 442 y Fl(2)2607 427 y Fw(\))2687 359 y Fj(;)892 +b Fw(\(26\))0 625 y(where)32 b Fj(\033)335 640 y Fl(0)406 +625 y Fw(is)e(the)h(lo)m(w)m(est-order)g(cross)h(section,)g +Fj(C)1874 640 y Fh(F)1960 625 y Fw(=)27 b(4)p Fj(=)p +Fw(3)j(is)h(the)g(appropriate)f(colour)g(factor,)g(and)0 +733 y(the)k(kinematically)c(allo)m(w)m(ed)i(region)h(is)g(0)28 +b Fn(\024)i Fj(x)1750 748 y Fh(i)1807 733 y Fn(\024)f +Fw(1)p Fj(;)17 b(i)29 b Fw(=)g(1)p Fj(;)17 b Fw(2)p Fj(;)g +Fw(3.)44 b(By)34 b(kinematics,)e(the)i Fj(x)3370 748 +y Fh(k)3446 733 y Fw(v)-5 b(ariable)0 841 y(for)42 b(parton)h +Fj(k)j Fw(is)c(related)g(to)h(the)g(in)m(v)-5 b(arian)m(t)41 +b(mass)i Fj(m)2086 856 y Fh(ij)2190 841 y Fw(of)f(the)h(other)g(t)m(w)m +(o)h(partons)f Fj(i)g Fw(and)g Fj(j)49 b Fw(b)m(y)0 950 +y Fj(y)48 965 y Fh(ij)136 950 y Fw(=)27 b Fj(m)324 913 +y Fl(2)324 974 y Fh(ij)385 950 y Fj(=E)512 913 y Fl(2)506 +974 y(cm)628 950 y Fw(=)h(1)22 b Fn(\000)g Fj(x)957 965 +y Fh(k)1000 950 y Fw(.)146 1058 y(The)34 b(strong)e(coupling)g(constan) +m(t)h Fj(\013)1491 1073 y Fl(s)1556 1058 y Fw(is)f(in)g(\014rst)h +(order)f(giv)m(en)h(b)m(y)1186 1307 y Fj(\013)1248 1322 +y Fl(s)1280 1307 y Fw(\()p Fj(Q)1395 1266 y Fl(2)1434 +1307 y Fw(\))28 b(=)1991 1239 y(12)p Fj(\031)p 1614 1283 +911 4 v 1614 1375 a Fw(\(33)21 b Fn(\000)i Fw(2)p Fj(n)1978 +1390 y Fh(f)2023 1375 y Fw(\))33 b(ln\()p Fj(Q)2291 1346 +y Fl(2)2330 1375 y Fj(=)p Fw(\003)2447 1346 y Fl(2)2486 +1375 y Fw(\))2567 1307 y Fj(:)1012 b Fw(\(27\))0 1580 +y(Con)m(v)m(en)m(tionally)30 b Fj(Q)744 1543 y Fl(2)812 +1580 y Fw(=)d Fj(s)h Fw(=)g Fj(E)1171 1543 y Fl(2)1165 +1604 y(cm)1259 1580 y Fw(;)k(w)m(e)f(will)e(return)i(to)f(this)h(issue) +g(b)s(elo)m(w.)43 b(The)32 b(n)m(um)m(b)s(er)f(of)f(\015a)m(v)m(ours)0 +1688 y Fj(n)58 1703 y Fh(f)137 1688 y Fw(is)k(5)g(for)f(LEP)h +(applications,)f(and)h(so)g(the)g(\003)g(v)-5 b(alue)33 +b(determined)h(is)f(\003)2783 1703 y Fl(5)2856 1688 y +Fw(\(while)g(e.g.)48 b(most)33 b(deep)0 1796 y(inelastic)27 +b(scattering)i(studies)h(refer)g(to)f(\003)1552 1811 +y Fl(4)1591 1796 y Fw(,)h(the)f(energies)h(for)e(these)j(exp)s(erimen)m +(ts)f(b)s(eing)e(b)s(elo)m(w)h(the)0 1905 y(b)s(ottom)f(threshold\).)42 +b(The)30 b Fj(\013)1103 1920 y Fl(s)1164 1905 y Fw(v)-5 +b(alues)29 b(are)g(matc)m(hed)g(at)g(\015a)m(v)m(our)h(thresholds,)g +(i.e.)42 b(as)29 b Fj(n)3266 1920 y Fh(f)3341 1905 y +Fw(is)f(c)m(hanged)0 2013 y(the)e(\003)g(v)-5 b(alue)25 +b(is)g(also)g(c)m(hanged.)42 b(It)26 b(is)g(therefore)g(the)g(deriv)-5 +b(ativ)m(e)25 b(of)h Fj(\013)2553 2028 y Fl(s)2611 2013 +y Fw(that)f(c)m(hanges)i(at)f(a)f(threshold,)0 2121 y(not)32 +b Fj(\013)235 2136 y Fl(s)300 2121 y Fw(itself.)146 2230 +y(In)k(order)g(to)g(separate)g(2-jets)g(from)e(3-jets,)j(it)e(is)g +(useful)h(to)f(in)m(tro)s(duce)h(jet-resolution)e(param-)0 +2338 y(eters.)85 b(This)46 b(can)h(b)s(e)f(done)h(in)e(sev)m(eral)i +(di\013eren)m(t)f(w)m(a)m(ys.)86 b(Most)46 b(famous)g(are)g(the)g +Fj(y)j Fw(and)e(\()p Fj(\017;)17 b(\016)t Fw(\))0 2446 +y(pro)s(cedures.)50 b(W)-8 b(e)35 b(will)d(only)i(refer)h(to)f(the)h +Fj(y)i Fw(cut,)f(whic)m(h)f(is)f(the)g(one)h(used)h(in)d(the)i +(program.)48 b(Here)0 2555 y(a)32 b(3-parton)g(con\014guration)g(is)g +(called)f(a)h(2-jet)g(ev)m(en)m(t)j(if)1281 2825 y(min)1325 +2883 y Fh(i;j)1444 2825 y Fw(\()p Fj(y)1530 2840 y Fh(ij)1590 +2825 y Fw(\))28 b(=)f(min)1802 2883 y Fh(i;j)1938 2679 +y Fg( )2024 2751 y Fj(m)2109 2715 y Fl(2)2109 2775 y +Fh(ij)p 2014 2802 167 4 v 2014 2893 a Fj(E)2092 2864 +y Fl(2)2086 2918 y(cm)2190 2679 y Fg(!)2284 2825 y Fj(<)g(y)36 +b(:)1108 b Fw(\(28\))146 3097 y(The)44 b(cross)g(section)f(in)f(eq.)h +(\(26\))f(div)m(erges)i(for)e Fj(x)2046 3112 y Fl(1)2131 +3097 y Fn(!)j Fw(1)d(or)h Fj(x)2552 3112 y Fl(2)2637 +3097 y Fn(!)h Fw(1)f(but,)i(when)f(\014rst-order)0 3205 +y(propagator)27 b(and)h(v)m(ertex)i(corrections)e(are)f(included,)i(a)f +(corresp)s(onding)f(singularit)m(y)g(with)g(opp)s(osite)0 +3314 y(sign)k(app)s(ears)h(in)g(the)g(q)p 892 3261 52 +4 v(q)h(cross)f(section,)h(so)f(that)f(the)h(total)f(cross)i(section)e +(is)h(\014nite.)43 b(In)32 b(analytical)0 3422 y(calculations,)26 +b(the)g(a)m(v)m(erage)i(v)-5 b(alue)25 b(of)h(an)m(y)h(w)m(ell-b)s(eha) +m(v)m(ed)g(quan)m(tit)m(y)g Fn(Q)f Fw(can)h(therefore)g(b)s(e)f +(calculated)0 3530 y(as)176 3778 y Fn(hQi)h Fw(=)526 +3710 y(1)p 476 3754 150 4 v 476 3846 a Fj(\033)531 3861 +y Fl(tot)656 3778 y Fw(lim)652 3834 y Fh(y)r Fk(!)p Fl(0)812 +3631 y Fg( )878 3778 y Fn(Q)p Fw(\(2parton\))17 b Fj(\033)1438 +3793 y Fl(2parton)1681 3778 y Fw(\()p Fj(y)t Fw(\))k(+)1928 +3660 y Fg(Z)1974 3849 y Fh(y)2009 3859 y Fe(ij)2064 3849 +y Fh(>y)2177 3778 y Fn(Q)p Fw(\()p Fj(x)2351 3793 y Fl(1)2391 +3778 y Fj(;)c(x)2490 3793 y Fl(2)2529 3778 y Fw(\))2594 +3710 y(d)p Fj(\033)2703 3725 y Fl(3parton)p 2594 3754 +354 4 v 2613 3846 a Fw(d)p Fj(x)2722 3861 y Fl(1)2779 +3846 y Fw(d)p Fj(x)2888 3861 y Fl(2)2974 3778 y Fw(d)p +Fj(x)3083 3793 y Fl(1)3139 3778 y Fw(d)p Fj(x)3248 3793 +y Fl(2)3288 3631 y Fg(!)3403 3778 y Fj(;)176 b Fw(\(29\))0 +4044 y(where)34 b(an)m(y)f(explicit)e Fj(y)36 b Fw(dep)s(endence)f +(disapp)s(ears)e(in)e(the)i(limit)c Fj(y)i Fn(!)c Fw(0.)146 +4152 y(In)34 b(a)f(Mon)m(te)h(Carlo)e(program,)g(it)g(is)g(not)h(p)s +(ossible)g(to)g(w)m(ork)h(with)e(a)h(negativ)m(e)g(total)f(2-jet)g +(rate,)0 4261 y(and)f(th)m(us)h(it)e(is)g(necessary)j(to)d(in)m(tro)s +(duce)h(a)g(\014xed)h(non-v)-5 b(anishing)29 b Fj(y)34 +b Fw(cut)d(in)f(the)h(3-jet)g(phase)g(space.)0 4369 y(Exp)s(erimen)m +(tally)-8 b(,)34 b(there)i(is)e(evidence)i(for)f(the)g(need)h(of)f(a)f +(lo)m(w)h Fj(y)j Fw(cut,)e(i.e.)50 b(a)35 b(large)e(3-jet)i(rate.)50 +b(F)-8 b(or)0 4478 y(LEP)32 b(applications,)e(the)h(recommended)h(v)-5 +b(alue)31 b(is)g Fj(y)g Fw(=)c(0)p Fj(:)p Fw(01,)k(whic)m(h)h(is)f(ab)s +(out)g(as)h(far)e(do)m(wn)j(as)e(one)0 4586 y(can)39 +b(go)f(and)h(still)d(retain)i(a)g(p)s(ositiv)m(e)g(2-jet)g(rate.)61 +b(With)38 b Fj(\013)2262 4601 y Fl(s)2332 4586 y Fw(=)g(0)p +Fj(:)p Fw(12,)i(in)d(full)g(second-order)j(QCD)0 4694 +y(\(see)34 b(b)s(elo)m(w\),)e(the)h(2)28 b(:)f(3)h(:)g(4)k(jet)g(comp)s +(osition)f(is)h(then)h(appro)m(ximately)e(11\045)d(:)f(77\045)h(:)g +(12\045.)146 4803 y(Note,)c(ho)m(w)m(ev)m(er,)j(that)21 +b(initial-state)d(QED)k(radiation)d(ma)m(y)j(o)s(ccasionally)e(lo)m(w)m +(er)i(the)g(c.m.)39 b(energy)0 4911 y(signi\014can)m(tly)-8 +b(,)31 b(i.e.)43 b(increase)32 b Fj(\013)1159 4926 y +Fl(s)1191 4911 y Fw(,)g(and)g(thereb)m(y)i(bring)d(the)h(3-jet)g +(fraction)e(ab)s(o)m(v)m(e)j(unit)m(y)f(if)f Fj(y)k Fw(is)c(k)m(ept)0 +5019 y(\014xed)k(at)f(0.01)g(also)f(in)g(those)i(ev)m(en)m(ts.)50 +b(Therefore,)36 b(at)e(PETRA/PEP)i(energies,)f Fj(y)i +Fw(v)-5 b(alues)34 b(sligh)m(tly)0 5128 y(ab)s(o)m(v)m(e)46 +b(0.01)f(are)h(needed.)84 b(In)46 b(addition)e(to)h(the)h +Fj(y)j Fw(cut,)g(the)d(program)f(con)m(tains)g(a)g(cut)i(on)e(the)0 +5236 y(in)m(v)-5 b(arian)m(t)27 b(mass)i Fj(m)726 5251 +y Fh(ij)815 5236 y Fw(b)s(et)m(w)m(een)i(an)m(y)f(t)m(w)m(o)f(partons,) +h(whic)m(h)f(is)f(t)m(ypically)g(required)h(to)f(b)s(e)h(larger)e(than) +0 5344 y(2)h(GeV.)g(This)g(cut)g(corresp)s(onds)h(to)f(the)g(actual)f +(merging)f(of)i(t)m(w)m(o)g(nearb)m(y)h(parton)f(jets,)h(i.e.)42 +b(where)29 b(a)0 5453 y(treatmen)m(t)h(with)g(t)m(w)m(o)h(separate)g +(partons)f(rather)h(than)f(one)h(w)m(ould)f(b)s(e)g(sup)s(er\015uous)i +(in)e(view)g(of)g(the)0 5561 y(smearing)g(arising)f(from)h(the)i +(subsequen)m(t)i(fragmen)m(tation.)41 b(Since)31 b(the)h(cut-o\013)f +(mass)g(scale)3479 5499 y Fn(p)p 3562 5499 52 4 v 62 +x Fj(y)s(E)3685 5576 y Fl(cm)0 5669 y Fw(normally)f(is)i(m)m(uc)m(h)h +(larger,)f(this)g(additional)e(cut)j(only)f(en)m(ters)i(for)e(ev)m(en)m +(ts)j(at)d(lo)m(w)g(energies.)1841 5953 y(70)p eop +%%Page: 71 77 +71 76 bop 146 -18 a Fw(F)-8 b(or)32 b(massiv)m(e)h(quarks,)h(the)f +(amoun)m(t)f(of)g(QCD)g(radiation)f(is)h(sligh)m(tly)f(reduced)j +([Iof78)o(]:)220 200 y(1)p 197 244 95 4 v 197 336 a Fj(\033)252 +351 y Fl(0)429 200 y Fw(d)p Fj(\033)p 328 244 315 4 v +328 336 a Fw(d)p Fj(x)437 351 y Fl(1)494 336 y Fw(d)p +Fj(x)603 351 y Fl(2)736 267 y Fw(=)911 200 y Fj(\013)973 +215 y Fl(s)p 905 244 108 4 v 905 336 a Fw(2)p Fj(\031)1039 +267 y(C)1109 282 y Fh(F)1200 121 y Fg(\()1464 200 y Fj(x)1519 +164 y Fl(2)1519 225 y(1)1581 200 y Fw(+)22 b Fj(x)1734 +164 y Fl(2)1734 225 y(2)p 1277 244 683 4 v 1277 336 a +Fw(\(1)g Fn(\000)h Fj(x)1541 351 y Fl(1)1581 336 y Fw(\)\(1)e +Fn(\000)i Fj(x)1882 351 y Fl(2)1922 336 y Fw(\))1992 +267 y Fn(\000)2102 193 y Fw(4)p Fj(m)2236 157 y Fl(2)2236 +218 y(q)p 2102 244 176 4 v 2166 336 a Fj(s)2304 146 y +Fg(\022)2483 200 y Fw(1)p 2375 244 266 4 v 2375 336 a(1)f +Fn(\000)g Fj(x)2600 351 y Fl(1)2672 267 y Fw(+)2888 200 +y(1)p 2780 244 V 2780 336 a(1)g Fn(\000)h Fj(x)3006 351 +y Fl(2)3056 146 y Fg(\023)895 577 y Fn(\000)1009 503 +y Fw(2)p Fj(m)1143 467 y Fl(2)1143 527 y(q)p 1009 554 +176 4 v 1073 645 a Fj(s)1211 431 y Fg( )1452 509 y Fw(1)p +1286 554 381 4 v 1286 645 a(\(1)f Fn(\000)h Fj(x)1550 +660 y Fl(1)1590 645 y Fw(\))1628 616 y Fl(2)1699 577 +y Fw(+)1973 509 y(1)p 1807 554 V 1807 645 a(\(1)f Fn(\000)h +Fj(x)2071 660 y Fl(2)2110 645 y Fw(\))2148 616 y Fl(2)2198 +431 y Fg(!)2286 577 y Fn(\000)2395 503 y Fw(4)p Fj(m)2529 +467 y Fl(4)2529 527 y(q)p 2395 554 176 4 v 2440 645 a +Fj(s)2486 616 y Fl(2)2597 456 y Fg(\022)2777 509 y Fw(1)p +2668 554 266 4 v 2668 645 a(1)f Fn(\000)h Fj(x)2894 660 +y Fl(1)2966 577 y Fw(+)3182 509 y(1)p 3074 554 V 3074 +645 a(1)f Fn(\000)g Fj(x)3299 660 y Fl(2)3349 456 y Fg(\023)3410 +472 y Fl(2)3450 431 y Fg(\))3566 577 y Fj(:)13 b Fw(\(30\))0 +854 y(In)33 b(addition,)e(the)i(phase)g(space)h(for)e(emission)f(is)h +(reduced)i(b)m(y)g(the)f(requiremen)m(t)1208 1067 y(\(1)22 +b Fn(\000)h Fj(x)1472 1082 y Fl(1)1512 1067 y Fw(\)\(1)e +Fn(\000)i Fj(x)1813 1082 y Fl(2)1853 1067 y Fw(\)\(1)f +Fn(\000)g Fj(x)2154 1082 y Fl(3)2194 1067 y Fw(\))p 1208 +1111 1024 4 v 1673 1202 a Fj(x)1728 1168 y Fl(2)1728 +1224 y(3)2270 1134 y Fn(\025)2385 1060 y Fj(m)2470 1024 +y Fl(2)2470 1084 y(q)p 2385 1111 127 4 v 2425 1202 a +Fj(s)2554 1134 y(:)1025 b Fw(\(31\))0 1401 y(F)-8 b(or)32 +b(b)g(quarks)i(at)f(LEP)g(energies,)g(these)h(corrections)e(are)h +(fairly)e(small.)0 1649 y Fo(6.1.3)112 b(4-jet)38 b(matrix)e(elemen)m +(ts)0 1822 y Fw(Tw)m(o)e(new)g(ev)m(en)m(t)h(t)m(yp)s(es)f(are)f(added) +h(in)e(second-order)i(QCD,)f(e)2396 1785 y Fl(+)2455 +1822 y Fw(e)2498 1785 y Fk(\000)2586 1822 y Fn(!)28 b +Fw(q)p 2765 1769 52 4 v(q)q(gg)34 b(and)f(e)3182 1785 +y Fl(+)3241 1822 y Fw(e)3284 1785 y Fk(\000)3372 1822 +y Fn(!)28 b Fw(q)p 3551 1769 V(q)q(q)3654 1785 y Fk(0)p +3678 1769 V 3678 1822 a Fw(q)3729 1785 y Fk(0)3752 1822 +y Fw(.)0 1930 y(The)23 b(4-jet)e(cross)i(section)f(has)g(b)s(een)g +(calculated)f(b)m(y)i(sev)m(eral)g(groups)f([Ali80a)m(,)g(Gae80)o(,)g +(Ell81)n(,)g(Dan82)o(],)0 2038 y(whic)m(h)32 b(agree)f(on)g(the)h +(result.)43 b(The)32 b(form)m(ulae)e(are)i(to)s(o)e(length)m(y)i(to)e +(b)s(e)i(quoted)g(here.)44 b(In)32 b(one)f(of)g(the)0 +2147 y(calculations)40 b([Ali80a)n(],)k(quark)f(masses)g(w)m(ere)g +(explicitly)e(included,)j(but)e Fm(Jetset)f Fw(only)h(includes)0 +2255 y(the)31 b(massless)h(expressions,)h(as)e(tak)m(en)h(from)e +([Ell81)n(].)43 b(Here)32 b(the)f(angular)f(orien)m(tation)f(of)h(the)i +(ev)m(en)m(t)0 2363 y(has)37 b(b)s(een)g(in)m(tegrated)f(out,)h(so)f +(that)g(\014v)m(e)i(indep)s(enden)m(t)f(in)m(ternal)e(kinematical)f(v) +-5 b(ariables)35 b(remain.)0 2472 y(These)e(ma)m(y)e(b)s(e)g(related)g +(to)f(the)i(six)f Fj(y)1426 2487 y Fh(ij)1517 2472 y +Fw(and)g(the)h(four)f Fj(y)2122 2487 y Fh(ij)t(k)2251 +2472 y Fw(v)-5 b(ariables,)31 b Fj(y)2730 2487 y Fh(ij)2817 +2472 y Fw(=)d Fj(m)3006 2436 y Fl(2)3006 2496 y Fh(ij)3067 +2472 y Fj(=s)f Fw(=)h(\()p Fj(p)3380 2487 y Fh(i)3427 +2472 y Fw(+)19 b Fj(p)3571 2487 y Fh(j)3607 2472 y Fw(\))3645 +2436 y Fl(2)3685 2472 y Fj(=s)0 2596 y Fw(and)33 b Fj(y)238 +2611 y Fh(ij)t(k)364 2596 y Fw(=)28 b Fj(m)553 2560 y +Fl(2)553 2621 y Fh(ij)t(k)652 2596 y Fj(=s)f Fw(=)h(\()p +Fj(p)965 2611 y Fh(i)1015 2596 y Fw(+)22 b Fj(p)1162 +2611 y Fh(j)1221 2596 y Fw(+)g Fj(p)1368 2611 y Fh(k)1410 +2596 y Fw(\))1448 2560 y Fl(2)1488 2596 y Fj(=s)p Fw(,)32 +b(in)g(terms)g(of)g(whic)m(h)i(the)f(matrix)e(elemen)m(ts)h(are)h(giv)m +(en.)146 2705 y(The)40 b(original)35 b(calculations)h(w)m(ere)k(for)d +(the)i(pure)g Fj(\015)5 b Fw(-exc)m(hange)40 b(case;)i(it)37 +b(w)m(as)j(recen)m(tly)f(p)s(oin)m(ted)0 2813 y(out)27 +b([Kni89)o(])h(that)f(an)h(additional)c(con)m(tribution)j(to)g(the)h(e) +2168 2777 y Fl(+)2227 2813 y Fw(e)2270 2777 y Fk(\000)2357 +2813 y Fn(!)g Fw(q)p 2536 2760 V(q)q(q)2639 2777 y Fk(0)p +2663 2760 V 2663 2813 a Fw(q)2714 2777 y Fk(0)2765 2813 +y Fw(cross)g(section)g(arises)g(from)0 2921 y(the)36 +b(axial)d(part)i(of)g(the)h(Z)968 2885 y Fl(0)1007 2921 +y Fw(.)52 b(This)35 b(term)g(is)g(not)g(included)g(in)g(the)h(program,) +e(but)i(fortunately)f(it)f(is)0 3030 y(\014nite)e(and)h(small.)146 +3138 y(Whereas)47 b(the)f(w)m(a)m(y)g(the)g(string,)i(i.e.)81 +b(the)46 b(fragmen)m(ting)d(colour)i(\015ux)h(tub)s(e,)j(is)c(stretc)m +(hed)i(is)0 3247 y(uniquely)37 b(giv)m(en)h(in)e(q)p +829 3194 V(q)q(g)j(ev)m(en)m(t,)h(for)d(q)p 1464 3194 +V(q)q(gg)h(ev)m(en)m(ts)i(there)e(are)f(t)m(w)m(o)h(p)s(ossibilities:) +50 b(q)22 b Fn(\000)h Fw(g)3357 3262 y Fl(1)3418 3247 +y Fn(\000)g Fw(g)3567 3262 y Fl(2)3628 3247 y Fn(\000)p +3728 3194 V 23 w Fw(q)0 3355 y(or)39 b(q)23 b Fn(\000)f +Fw(g)348 3370 y Fl(2)410 3355 y Fn(\000)g Fw(g)558 3370 +y Fl(1)620 3355 y Fn(\000)p 719 3302 V 22 w Fw(q)q(.)64 +b(A)39 b(kno)m(wledge)i(of)e(quark)h(and)g(gluon)e(colours,)j(obtained) +e(b)m(y)h(p)s(erturbation)0 3463 y(theory)-8 b(,)31 b(will)d(uniquely)j +(sp)s(ecify)f(the)h(stretc)m(hing)g(of)e(the)i(string,)f(as)h(long)e +(as)h(the)h(t)m(w)m(o)g(gluons)e(do)i(not)0 3572 y(ha)m(v)m(e)41 +b(the)e(same)h(colour.)62 b(The)41 b(probabilit)m(y)c(for)i(the)h +(latter)e(is)h(do)m(wn)h(in)f(magnitude)f(b)m(y)i(a)f(factor)0 +3680 y(1)p Fj(=)-5 b(N)181 3644 y Fl(2)171 3705 y Fh(C)257 +3680 y Fw(=)28 b(1)p Fj(=)p Fw(9.)39 b(One)23 b(ma)m(y)g(either)g(c)m +(ho)s(ose)g(to)g(neglect)g(these)h(terms)e(en)m(tirely)-8 +b(,)25 b(or)d(to)h(k)m(eep)h(them)f(for)f(the)0 3788 +y(c)m(hoice)33 b(of)g(kinematical)d(setup,)k(but)g(then)f(drop)g(them)g +(at)f(the)i(c)m(hoice)f(of)g(string)f(dra)m(wing)g([Gus82].)0 +3897 y(W)-8 b(e)39 b(ha)m(v)m(e)g(adopted)g(the)g(latter)e(pro)s +(cedure.)62 b(Comparing)36 b(the)j(t)m(w)m(o)g(p)s(ossibilities,)e +(di\013erences)i(are)0 4005 y(t)m(ypically)c(10{20\045)g(for)g(a)h(giv) +m(en)g(kinematical)e(con\014guration,)i(and)g(less)h(for)e(the)i(total) +d(4-jet)i(cross)0 4113 y(section,)d(so)g(from)e(a)h(practical)f(p)s +(oin)m(t)h(of)g(view)h(this)f(is)g(not)h(a)f(ma)5 b(jor)31 +b(problem.)146 4222 y(In)52 b(higher)f(orders,)57 b(results)52 +b(dep)s(end)g(on)g(the)g(renormalization)c(sc)m(heme;)62 +b(w)m(e)52 b(will)e(use)p 3636 4144 144 4 v 52 w(MS)0 +4330 y(throughout.)64 b(In)40 b(addition)d(to)j(this)f(c)m(hoice,)i +(sev)m(eral)f(p)s(ossible)f(forms)g(can)h(b)s(e)f(c)m(hosen)i(for)e +Fj(\013)3576 4345 y Fl(s)3608 4330 y Fw(,)j(all)0 4438 +y(of)g(whic)m(h)i(are)f(equiv)-5 b(alen)m(t)42 b(to)h(that)g(order)g +(but)g(di\013er)f(in)g(higher)g(orders.)75 b(W)-8 b(e)44 +b(ha)m(v)m(e)g(pic)m(k)m(ed)g(the)0 4547 y(recommended)33 +b(standard)g([PDG88)o(])351 4834 y Fj(\013)413 4849 y +Fl(s)445 4834 y Fw(\()p Fj(Q)560 4793 y Fl(2)599 4834 +y Fw(\))28 b(=)1190 4767 y(12)p Fj(\031)p 778 4811 980 +4 v 778 4902 a Fw(\(33)22 b Fn(\000)h Fw(2)p Fj(n)1143 +4917 y Fh(f)1188 4902 y Fw(\))33 b(ln)o(\()p Fj(Q)1455 +4874 y Fl(2)1495 4902 y Fj(=)p Fw(\003)1612 4868 y Fl(2)p +1612 4888 108 4 v 1612 4943 a(MS)1720 4902 y Fw(\))1784 +4688 y Fg(\()1851 4834 y Fw(1)22 b Fn(\000)g Fw(6)2106 +4767 y(153)f Fn(\000)i Fw(19)p Fj(n)2530 4782 y Fh(f)p +2097 4811 488 4 v 2097 4902 a Fw(\(33)e Fn(\000)i Fw(2)p +Fj(n)2461 4917 y Fh(f)2506 4902 y Fw(\))2544 4874 y Fl(2)2620 +4758 y Fw(ln\(ln)o(\()p Fj(Q)2936 4722 y Fl(2)2976 4758 +y Fj(=)p Fw(\003)3093 4722 y Fl(2)p 3093 4742 108 4 v +3093 4798 a(MS)3200 4758 y Fw(\)\))p 2620 4811 656 4 +v 2699 4902 a(ln)o(\()p Fj(Q)2895 4874 y Fl(2)2935 4902 +y Fj(=)p Fw(\003)3052 4868 y Fl(2)p 3052 4888 108 4 v +3052 4943 a(MS)3159 4902 y Fw(\))3286 4688 y Fg(\))3402 +4834 y Fj(:)177 b Fw(\(32\))0 5160 y Fo(6.1.4)112 b(Second-order)39 +b(3-jet)f(matrix)e(elemen)m(ts)0 5333 y Fw(As)43 b(for)e(\014rst)i +(order,)h(a)e(full)e(second-order)j(calculation)d(consists)j(b)s(oth)e +(of)h(real)f(parton)h(emission)0 5441 y(terms)37 b(and)g(of)g(v)m +(ertex)i(and)e(propagator)f(corrections.)57 b(These)39 +b(mo)s(dify)c(the)j(3-jet)e(and)h(2-jet)g(cross)0 5550 +y(sections.)57 b(Although)37 b(there)g(w)m(as)h(some)f(initial)d +(confusion,)k(ev)m(eryb)s(o)s(dy)h(so)s(on)d(agreed)i(on)f(the)g(size)0 +5658 y(of)47 b(the)g(lo)s(op)e(corrections)j([Ell81)n(,)f(V)-8 +b(er81,)47 b(F)-8 b(ab82)o(].)86 b(In)48 b(analytic)d(calculations,)k +(the)f(pro)s(cedure)1841 5953 y(71)p eop +%%Page: 72 78 +72 77 bop 0 -18 a Fw(of)36 b(eq.)i(\(29\),)g(suitably)e(expanded,)k +(can)d(therefore)h(b)s(e)f(used)h(unam)m(biguously)e(for)g(a)h(w)m +(ell-b)s(eha)m(v)m(ed)0 90 y(v)-5 b(ariable.)146 198 +y(F)d(or)44 b(Mon)m(te)h(Carlo)f(ev)m(en)m(t)i(sim)m(ulation,)f(it)e +(is)h(again)f(necessary)k(to)d(imp)s(ose)f(some)i(\014nite)f(jet-)0 +307 y(resolution)c(criterion.)70 b(This)41 b(means)h(that)f +(four-parton)g(ev)m(en)m(ts)j(whic)m(h)e(fail)d(the)j(cuts)h(should)e +(b)s(e)0 415 y(reassigned)30 b(either)f(to)g(the)g(3-jet)g(or)g(to)g +(the)g(2-jet)g(ev)m(en)m(t)i(class.)42 b(It)30 b(is)e(this)h(area)g +(that)g(caused)i(quite)e(a)0 523 y(lot)21 b(of)i(confusion)f(in)g(the)h +(past)g([Kun81,)g(Got82)o(,)f(Ali82)n(,)h(Zh)m(u83,)g(Gut84)o(,)g +(Gut87)o(,)g(Kra88)o(],)h(and)f(where)0 632 y(full)35 +b(agreemen)m(t)j(do)s(es)f(not)g(exist.)58 b(Most)37 +b(lik)m(ely)-8 b(,)37 b(agreemen)m(t)h(will)c(nev)m(er)39 +b(b)s(e)e(reac)m(hed,)j(since)e(there)0 740 y(are)32 +b(indeed)g(am)m(biguous)f(p)s(oin)m(ts)h(in)f(the)h(pro)s(cedure,)h +(related)f(to)f(uncertain)m(ties)i(on)e(the)i(theoretical)0 +848 y(side,)g(as)g(follo)m(ws.)146 957 y(F)-8 b(or)41 +b(the)g Fj(y)t Fw(-cut)f(case,)k(an)m(y)e(t)m(w)m(o)g(partons)f(with)f +(an)h(in)m(v)-5 b(arian)m(t)40 b(mass)h Fj(m)2882 920 +y Fl(2)2882 981 y Fh(ij)2985 957 y Fj(<)h(y)t(E)3233 +920 y Fl(2)3227 981 y(cm)3361 957 y Fw(should)f(b)s(e)0 +1065 y(recom)m(bined)h(in)m(to)g(one.)74 b(If)42 b(the)h(four-momen)m +(ta)e(are)h(simply)f(added,)46 b(the)d(sum)f(will)f(corresp)s(ond)0 +1173 y(to)46 b(a)g(parton)f(with)h(a)g(p)s(ositiv)m(e)f(mass,)50 +b(namely)45 b(the)i(original)c Fj(m)2529 1188 y Fh(ij)2589 +1173 y Fw(.)85 b(The)47 b(lo)s(op)d(corrections)i(are)0 +1282 y(giv)m(en)j(in)e(terms)i(of)f(\014nal)g(massless)g(partons,)53 +b(ho)m(w)m(ev)m(er.)94 b(In)49 b(order)f(to)g(p)s(erform)g(the)h +(\(partial\))0 1390 y(cancellation)43 b(b)s(et)m(w)m(een)j(the)g +(four-parton)d(real)h(and)h(the)g(3-parton)f(virtual)f(con)m +(tributions,)k(it)d(is)0 1498 y(therefore)36 b(necessary)i(to)d(get)h +(rid)e(of)i(the)f(b)s(othersome)h(mass)f(in)g(the)h(four-parton)f +(states.)53 b(Sev)m(eral)0 1607 y(recom)m(binations)44 +b(are)g(used)i(in)f(practice,)j(whic)m(h)d(go)f(under)i(names)f(suc)m +(h)h(as)f(`E',)h(`E0',)i(`p')d(and)0 1715 y(`p0')c([OP)-8 +b(A91].)69 b(In)42 b(the)f(`E'-t)m(yp)s(e)h(sc)m(hemes,)k(the)41 +b(energy)h(of)f(a)g(recom)m(bined)g(parton)g(is)f(giv)m(en)i(b)m(y)0 +1823 y Fj(E)72 1838 y Fh(ij)180 1823 y Fw(=)k Fj(E)374 +1838 y Fh(i)432 1823 y Fw(+)30 b Fj(E)610 1838 y Fh(j)647 +1823 y Fw(,)46 b(and)e(three-momen)m(ta)f(ma)m(y)h(ha)m(v)m(e)h(to)e(b) +s(e)i(adjusted)f(accordingly)-8 b(.)76 b(In)44 b(the)h(`p'-)0 +1932 y(t)m(yp)s(e)f(sc)m(hemes,)k(on)43 b(the)g(other)h(hand,)i +(three-momen)m(ta)c(are)h(added,)k Fo(p)2765 1947 y Fh(ij)2871 +1932 y Fw(=)f Fo(p)3055 1947 y Fh(i)3113 1932 y Fw(+)29 +b Fo(p)3280 1947 y Fh(j)3317 1932 y Fw(,)46 b(and)d(then)0 +2040 y(energies)38 b(ma)m(y)f(ha)m(v)m(e)i(to)e(b)s(e)h(adjusted.)59 +b(These)40 b(pro)s(cedures)f(result)e(in)g(di\013eren)m(t)h(3-jet)e +(top)s(ologies,)0 2148 y(and)d(therefore)g(in)f(di\013eren)m(t)g +(second-order)i(di\013eren)m(tial)d(3-jet)h(cross)h(sections.)146 +2257 y(Within)g(eac)m(h)h(sc)m(heme,)i(a)d(n)m(um)m(b)s(er)h(of)f +(lesser)i(p)s(oin)m(ts)e(remain)f(to)i(b)s(e)g(dealt)f(with,)g(in)g +(particular)0 2365 y(what)25 b(to)g(do)g(if)e(a)i(recom)m(bination)e +(of)i(a)f(nearb)m(y)j(parton)d(pair)g(w)m(ere)i(to)f(giv)m(e)g(an)g(ev) +m(en)m(t)i(with)d(a)h(non-q)p 3678 2312 52 4 v(qg)0 2473 +y(\015a)m(v)m(our)33 b(structure.)146 2582 y Fm(Jetset)64 +b Fw(con)m(tains)g(t)m(w)m(o)h(alternativ)m(e)f(second-order)h(3-jet)f +(implemen)m(tations,)69 b(GKS)64 b(and)0 2690 y(ER)-8 +b(T\(Zh)m(u\).)79 b(F)-8 b(or)43 b(historical)f(reasons)j(the)g(former) +e(is)h(default,)i(but)f(actually)e(the)h(latter)f(is)h(the)0 +2798 y(recommended)31 b(one)g(to)s(da)m(y)-8 b(.)42 b(Other)31 +b(parametrizations)e(ha)m(v)m(e)j(also)d(b)s(een)j(made)e(a)m(v)-5 +b(ailable)28 b(that)i(run)0 2907 y(together)j(with)f +Fm(Jetset)p Fw(,)g(see)h([Sj\177)-49 b(o89,)32 b(Mag89].)146 +3015 y(The)g(GKS)f(option)f(is)h(based)h(on)f(the)g(GKS)g([Gut84)o(])g +(calculation,)e(where)k(some)e(of)f(the)i(original)0 +3123 y(mistak)m(es)d(in)g(FKSS)f([F)-8 b(ab82])29 b(ha)m(v)m(e)h(b)s +(een)g(corrected.)44 b(The)30 b(GKS)e(form)m(ulae)g(ha)m(v)m(e)i(the)g +(adv)-5 b(an)m(tage)29 b(of)0 3232 y(giving)36 b(the)h(second-order)i +(corrections)e(in)g(closed)g(analytic)f(form,)i(as)f(not-to)s(o-long)e +(functions)i(of)0 3340 y Fj(x)55 3355 y Fl(1)95 3340 +y Fw(,)28 b Fj(x)205 3355 y Fl(2)244 3340 y Fw(,)g(and)f(the)f +Fj(y)k Fw(cut.)42 b(Ho)m(w)m(ev)m(er,)30 b(it)25 b(is)h(to)s(da)m(y)h +(recognized,)h(also)d(b)m(y)i(the)g(authors,)h(that)e(imp)s(ortan)m(t)0 +3448 y(terms)37 b(are)g(still)e(missing,)i(and)h(that)f(the)g(matrix)f +(elemen)m(ts)i(should)f(therefore)h(not)f(b)s(e)g(tak)m(en)h(to)s(o)0 +3557 y(seriously)-8 b(.)43 b(The)34 b(option)d(is)h(th)m(us)i(k)m(ept)g +(mainly)c(for)i(bac)m(kw)m(ards)j(compatibilit)m(y)-8 +b(.)146 3665 y(The)36 b(ER)-8 b(T\(Zh)m(u\))36 b(generator)f([Zh)m +(u83])h(is)e(based)i(on)f(the)h(ER)-8 b(T)36 b(matrix)d(elemen)m(ts)j +([Ell81)n(],)g(with)0 3774 y(a)e(Mon)m(te)g(Carlo)f(recom)m(bination)f +(pro)s(cedure)j(suggested)g(b)m(y)g(Kunszt)g([Kun81])f(and)g(dev)m +(elop)s(ed)h(b)m(y)0 3882 y(Ali)41 b([Ali82)m(].)73 b(It)42 +b(has)h(the)g(merit)d(of)i(giving)f(corrections)h(in)g(a)g(con)m(v)m +(enien)m(t,)k(parametrized)c(form.)0 3990 y(F)-8 b(or)36 +b(practical)f(applications,)g(the)j(main)c(limitation)e(is)k(that)h +(the)g(corrections)g(are)f(only)g(giv)m(en)h(for)0 4099 +y(discrete)c(v)-5 b(alues)33 b(of)f(the)h(cut-o\013)f(parameter)g +Fj(y)t Fw(,)g(namely)g Fj(y)j Fw(=)e(0.01,)f(0.02,)g(0.03,)g(0.04,)g +(and)g(0.05.)146 4207 y(The)38 b(basic)e(approac)m(h)g(is)g(the)h +(follo)m(wing.)52 b(Without)35 b(an)m(y)i(loss)f(of)g(generalit)m(y)-8 +b(,)37 b(the)f(full)f(second-)0 4315 y(order)28 b(3-jet)f(cross)i +(section)f(can)g(b)s(e)g(written)f(in)g(terms)h(of)f(the)h(`ratio)f +(function')g Fj(R)q Fw(\()p Fj(X)r(;)17 b(Y)k Fw(;)c +Fj(y)t Fw(\),)28 b(de\014ned)0 4424 y(b)m(y)914 4528 +y(1)p 891 4572 95 4 v 891 4664 a Fj(\033)946 4679 y Fl(0)1048 +4528 y Fw(d)p Fj(\033)1161 4492 y Fl(tot)1157 4553 y(3)p +1006 4572 293 4 v 1006 4664 a Fw(d)p Fj(X)d Fw(d)p Fj(Y)1336 +4596 y Fw(=)1449 4528 y Fj(\013)1511 4543 y Fl(s)p 1449 +4572 95 4 v 1467 4664 a Fj(\031)1553 4596 y(A)1626 4611 +y Fl(0)1666 4596 y Fw(\()p Fj(X)r(;)17 b(Y)k Fw(\))1964 +4474 y Fg(\032)2026 4596 y Fw(1)h(+)2205 4528 y Fj(\013)2267 +4543 y Fl(s)p 2205 4572 V 2222 4664 a Fj(\031)2309 4596 +y(R)q Fw(\()p Fj(X)r(;)17 b(Y)k Fw(;)c Fj(y)t Fw(\))2761 +4474 y Fg(\033)2871 4596 y Fj(;)708 b Fw(\(33\))0 4810 +y(where)47 b Fj(X)57 b Fw(=)50 b Fj(x)614 4825 y Fl(1)684 +4810 y Fn(\000)32 b Fj(x)848 4825 y Fl(2)937 4810 y Fw(=)50 +b Fj(x)1118 4825 y Fl(q)1190 4810 y Fn(\000)32 b Fj(x)p +1354 4787 42 4 v 15 x Fl(q)1396 4810 y Fw(,)48 b Fj(Y)71 +b Fw(=)50 b Fj(x)1780 4825 y Fl(3)1869 4810 y Fw(=)f +Fj(x)2049 4825 y Fh(g)2090 4810 y Fw(,)g Fj(\033)2221 +4825 y Fl(0)2306 4810 y Fw(is)c(the)h(lo)m(w)m(est-order)g(hadronic)f +(cross)0 4919 y(section,)33 b(and)f Fj(A)615 4934 y Fl(0)655 +4919 y Fw(\()p Fj(X)r(;)17 b(Y)k Fw(\))32 b(the)h(standard)f +(\014rst-order)h(3-jet)f(cross)h(section,)f(cf.)44 b(eq.)33 +b(\(26\).)43 b(By)33 b(Mon)m(te)0 5027 y(Carlo)k(in)m(tegration,)g(the) +h(v)-5 b(alue)37 b(of)g Fj(R)q Fw(\()p Fj(X)r(;)17 b(Y)k +Fw(;)c Fj(y)t Fw(\))37 b(is)g(ev)-5 b(aluated)37 b(in)g(bins)h(of)f(\() +p Fj(X)r(;)17 b(Y)k Fw(\),)39 b(and)e(the)i(result)0 +5135 y(parametrized)32 b(b)m(y)h(a)f(simple)g(function)g +Fj(F)14 b Fw(\()p Fj(X)r(;)j(Y)k Fw(;)c Fj(y)t Fw(\).)146 +5244 y(In)35 b(order)f(to)g(obtain)f(the)i(second-order)g(3-jet)e +(rate,)i(a)f(small)e(cut)i Fj(y)2706 5259 y Fl(0)2776 +5244 y Fw(=)c(10)2980 5208 y Fk(\000)p Fl(7)3108 5244 +y Fw(w)m(as)35 b(in)m(tro)s(duced.)0 5352 y(It)48 b(w)m(as)i(assumed)f +(that)f(four-parton)f(ev)m(en)m(ts)k(whic)m(h)e(fail)d(this)i(cut)h +(can)g(b)s(e)f(\(partly\))g(cancelled)0 5460 y(analytically)23 +b(against)i(the)i(virtual)d(3-jet)h(ev)m(en)m(ts,)30 +b(to)c(giv)m(e)g(a)f(net)i(`regularized)e(virtual')g(con)m(tribution)0 +5569 y(to)32 b(the)h(3-jet)f(rate.)44 b(F)-8 b(or)31 +b(a)i(giv)m(en)f(c)m(hoice)h(of)f Fj(y)k Fw(cut,)d(in)f(the)h(ph)m +(ysical)g(range)f Fj(y)f Fn(\035)c Fj(y)3117 5584 y Fl(0)3156 +5569 y Fw(,)33 b(an)f(additional)1841 5953 y(72)p eop +%%Page: 73 79 +73 78 bop 0 -18 a Fw(`soft')34 b(con)m(tribution)f(comes)h(from)f +(four-parton)g(ev)m(en)m(ts)j(whic)m(h)e(surviv)m(e)i(the)e +Fj(y)2970 -3 y Fl(0)3043 -18 y Fw(cut)g(but)g(fail)e(the)i +Fj(y)0 90 y Fw(one.)146 198 y(A)26 b(large)e(sample)g(\(9)16 +b(000)g(000\))24 b(of)h(four-parton)f(ev)m(en)m(ts)k(w)m(as)e +(generated)g(inside)f(the)g Fj(y)3267 213 y Fl(0)3332 +198 y Fw(cut)g(region.)0 307 y(F)-8 b(or)47 b(ev)m(en)m(ts)i(whic)m(h)g +(failed)c(the)j(more)f(stringen)m(t)h Fj(y)i Fw(cuts,)i(the)c(parton)g +(pair)e(with)h(the)h(smallest)0 415 y(in)m(v)-5 b(arian)m(t)28 +b(mass)i(w)m(as)h(recom)m(bined)f(in)m(to)f(an)g(e\013ectiv)m(e)i(jet,) +g(using)e(the)h(`p0')g(recom)m(bination)e(sc)m(heme.)0 +523 y(This)39 b(means)f(that)h(the)g(individual)d(three-momen)m(ta)h(w) +m(ere)j(added,)h Fo(p)2684 538 y Fh(ij)2783 523 y Fw(=)d +Fo(p)2959 538 y Fh(i)3013 523 y Fw(+)26 b Fo(p)3177 538 +y Fh(j)3214 523 y Fw(,)40 b(the)f(mass)g(of)0 632 y(the)h(recom)m +(bined)g(pair)f(w)m(as)h(set)h(to)e(zero)h(for)g(the)g(calculation)d +(of)i(energy)-8 b(,)43 b Fj(E)2963 647 y Fh(ij)3064 632 +y Fw(=)c Fn(j)p Fo(p)3269 647 y Fh(i)3324 632 y Fw(+)27 +b Fo(p)3489 647 y Fh(j)3526 632 y Fn(j)p Fw(,)41 b(and)0 +740 y(\014nally)34 b(all)g(four-momen)m(ta)f(w)m(ere)k(rescaled)f(b)m +(y)g(a)g(common)e(factor)h(so)g(as)h(to)f(preserv)m(e)j(the)e(correct)0 +848 y(c.m.)43 b(frame)32 b(energy)-8 b(.)146 957 y(In)34 +b(calculating)d(the)j Fn(O)s Fw(\()p Fj(\013)1115 920 +y Fl(2)1114 981 y(s)1154 957 y Fw(\))f(correction)g(functions,)h(care)f +(w)m(as)i(tak)m(en)f(to)f(main)m(tain)e(the)j(\015a)m(v)m(our)0 +1065 y(signature)c(of)g(the)h(jets)g(in)e(the)i(recom)m(bination)d(pro) +s(cess.)44 b(A)31 b(quark)g(and)f(a)g(gluon)g(w)m(ere)h(recom)m(bined)0 +1173 y(in)m(to)h(a)h(quark)h(with)e(the)i(same)e(\015a)m(v)m(our)i(as)f +(the)h(original)c(quark,)j(t)m(w)m(o)h(gluons)f(w)m(ere)h(recom)m +(bined)f(to)0 1282 y(form)d(a)h(gluon,)g(etc.)44 b(In)31 +b(some)h(cases)g(the)g(three)g(jets)g(of)f(the)h(\014nal)f(state)h(w)m +(ere)g(not)g(in)e(the)i(standard)0 1390 y(q)p 51 1337 +52 4 v(q)q(g)j(con\014guration.)48 b(The)35 b(probabilit)m(y)e(for)g +(this)h(to)g(happ)s(en)h(corresp)s(onded)h(to)e(less)g(than)h(0.5\045)f +(of)0 1498 y(the)42 b(total)e(cross)j(section,)h(ev)m(en)f(for)e(the)h +(most)f(stringen)m(t)h(cuts)g(used.)72 b(F)-8 b(or)41 +b(these)i(non-q)p 3452 1445 V(q)q(g)f(\014nal)0 1607 +y(states,)34 b(the)f(assignmen)m(t)f(of)g(q,)p 1197 1554 +V 33 w(q)h(and)g(g)g(w)m(as)h(done)f(at)f(random.)146 +1715 y(The)e(sum)e(of)h(`regularized)e(virtual')h(\(1)16 +b(000)g(000)27 b(3-jet)h(ev)m(en)m(ts)j(w)m(ere)f(generated,)g(with)f +(ev)-5 b(aluated)0 1823 y(second-order)34 b(w)m(eigh)m(ts\))g(and)g +(`soft')f(corrections,)h(normalized)e(to)h(the)g(\014rst-order)h(3-jet) +f(cross)h(sec-)0 1932 y(tion,)40 b(w)m(as)g(tabulated)e(in)h(the)g(\()p +Fj(X)r(;)17 b(Y)22 b Fw(\))39 b(plane,)h(using)f(bins)g(of)g(size)g(0)p +Fj(:)p Fw(05)26 b Fn(\002)h Fw(0)p Fj(:)p Fw(05.)63 b(This)39 +b(estimated)0 2040 y Fj(R)q Fw(-function)32 b(b)s(eha)m(viour)g(w)m(as) +i(then)f(\014t)g(with)f(a)g(12-parameter)f(function)h +Fj(F)14 b Fw(,)338 2210 y Fj(F)g Fw(\()p Fj(X)r(;)j(Y)k +Fw(;)c Fj(y)t Fw(\))82 b(=)h Fj(p)1082 2225 y Fl(1)1144 +2210 y Fw(+)22 b Fj(p)1291 2225 y Fl(2)1330 2210 y Fj(X)1419 +2169 y Fl(2)1480 2210 y Fw(+)g Fj(p)1627 2225 y Fl(3)1667 +2210 y Fj(X)1756 2169 y Fl(4)1817 2210 y Fw(+)g(\()p +Fj(p)2002 2225 y Fl(4)2064 2210 y Fw(+)g Fj(p)2211 2225 +y Fl(5)2250 2210 y Fj(X)2339 2169 y Fl(2)2378 2210 y +Fw(\))p Fj(Y)44 b Fw(+)22 b(\()p Fj(p)2702 2225 y Fl(6)2763 +2210 y Fw(+)g Fj(p)2910 2225 y Fl(7)2949 2210 y Fj(X)3038 +2169 y Fl(2)3078 2210 y Fw(\))p Fj(Y)3194 2169 y Fl(2)3255 +2210 y Fw(+)1033 2352 y(\()p Fj(p)1120 2367 y Fl(8)1181 +2352 y Fw(+)h Fj(p)1329 2367 y Fl(9)1368 2352 y Fj(X)1457 +2311 y Fl(2)1496 2352 y Fw(\))p Fj(Y)1612 2311 y Fl(3)1674 +2352 y Fw(+)f Fj(p)1821 2367 y Fl(10)1896 2352 y Fj(=)p +Fw(\()p Fj(X)2072 2311 y Fl(2)2133 2352 y Fn(\000)g Fj(Y)2311 +2311 y Fl(2)2350 2352 y Fw(\))g(+)g Fj(p)2557 2367 y +Fl(11)2632 2352 y Fj(=)p Fw(\(1)f Fn(\000)i Fj(Y)e Fw(\))h(+)g +Fj(p)3174 2367 y Fl(12)3249 2352 y Fj(=)5 b(Y)54 b(:)165 +b Fw(\(34\))0 2522 y(The)34 b(parameters)e Fj(p)754 2537 +y Fh(i)815 2522 y Fw(are)g(repro)s(duced)i(in)e([Sj\177)-49 +b(o89)o(].)0 2764 y Fo(6.1.5)112 b(The)38 b(matrix-elemen)m(t)d(ev)m +(en)m(t)j(generator)f(sc)m(heme)0 2937 y Fw(The)c(program)d(con)m +(tains)i(parametrizations,)e(separately)-8 b(,)32 b(of)f(the)i(total)d +(\014rst-order)i(3-jet)f(rate,)h(the)0 3045 y(total)i(second-order)j +(3-jet)e(rate,)i(and)e(the)i(total)d(4-jet)h(rate,)h(all)e(as)i +(functions)g(of)f Fj(y)k Fw(\(with)c Fj(\013)3540 3060 +y Fl(s)3608 3045 y Fw(as)h(a)0 3154 y(separate)d(prefactor\).)44 +b(These)34 b(parametrizations)d(ha)m(v)m(e)i(b)s(een)h(obtained)e(as)h +(follo)m(ws:)145 3267 y Fn(\017)49 b Fw(The)42 b(\014rst-order)g(3-jet) +e(matrix)g(elemen)m(t)h(is)g(almost)f(analytically)e(in)m(tegrable;)45 +b(some)c(small)244 3375 y(\014nite)26 b(pieces)h(w)m(ere)g(obtained)f +(b)m(y)h(a)f(truncated)h(series)g(expansion)g(of)f(the)g(relev)-5 +b(an)m(t)27 b(in)m(tegrand.)145 3493 y Fn(\017)49 b Fw(The)35 +b(GKS)e(second-order)i(3-jet)e(matrix)g(elemen)m(ts)h(w)m(ere)h(in)m +(tegrated)f(for)f(40)g(di\013eren)m(t)h Fj(y)t Fw(-cut)244 +3601 y(v)-5 b(alues,)35 b(ev)m(enly)h(distributed)f(in)f(ln)15 +b Fj(y)38 b Fw(b)s(et)m(w)m(een)f(a)e(smallest)e(v)-5 +b(alue)34 b Fj(y)h Fw(=)c(0)p Fj(:)p Fw(001)j(and)h(the)g(kine-)244 +3710 y(matical)27 b(limit)f Fj(y)k Fw(=)e(1)p Fj(=)p +Fw(3.)42 b(F)-8 b(or)28 b(eac)m(h)j Fj(y)h Fw(v)-5 b(alue,)30 +b(250)16 b(000)28 b(phase-space)k(p)s(oin)m(ts)d(w)m(ere)i(generated,) +244 3818 y(ev)m(enly)h(in)d(d)17 b(ln\(1)g Fn(\000)i +Fj(x)1062 3833 y Fh(i)1090 3818 y Fw(\))28 b(=)g(d)p +Fj(x)1369 3833 y Fh(i)1397 3818 y Fj(=)p Fw(\(1)18 b +Fn(\000)g Fj(x)1701 3833 y Fh(i)1730 3818 y Fw(\),)31 +b Fj(i)d Fw(=)f(1)p Fj(;)17 b Fw(2,)31 b(and)f(the)h(second-order)h +(3-jet)e(rate)g(in)g(the)244 3926 y(p)s(oin)m(t)f(ev)-5 +b(aluated.)42 b(The)31 b(prop)s(erly)f(normalized)e(sum)i(of)f(w)m +(eigh)m(ts)i(in)e(eac)m(h)i(of)f(the)g(40)g Fj(y)j Fw(p)s(oin)m(ts)244 +4035 y(w)m(ere)f(then)f(\014tted)g(to)f(a)g(p)s(olynomial)c(in)k(ln)o +(\()p Fj(y)1925 3999 y Fk(\000)p Fl(1)2036 4035 y Fn(\000)19 +b Fw(2\).)42 b(F)-8 b(or)30 b(the)g(ER)-8 b(T\(Zh)m(u\))31 +b(matrix)e(elemen)m(ts)244 4143 y(the)h(parametrizations)e(in)g(eq.)j +(\(34\))e(w)m(ere)i(used)g(to)e(p)s(erform)g(a)g(corresp)s(onding)h +(Mon)m(te)g(Carlo)244 4251 y(in)m(tegration)h(for)h(the)h(\014v)m(e)h +Fj(y)h Fw(v)-5 b(alues)33 b(a)m(v)-5 b(ailable.)145 4369 +y Fn(\017)49 b Fw(The)30 b(4-jet)f(rate)h(w)m(as)h(in)m(tegrated)e(n)m +(umerically)-8 b(,)28 b(separately)i(for)g(q)p 2707 4316 +V(q)q(gg)g(and)g(q)p 3125 4316 V(q)q(q)3228 4333 y Fk(0)p +3252 4316 V 3252 4369 a Fw(q)3303 4333 y Fk(0)3356 4369 +y Fw(ev)m(en)m(ts,)j(b)m(y)244 4478 y(generating)27 b(large)g(samples)g +(of)h(4-jet)f(phase-space)i(p)s(oin)m(ts)f(within)e(the)j(b)s(oundary)f +Fj(y)j Fw(=)c(0)p Fj(:)p Fw(001.)244 4586 y(Eac)m(h)49 +b(p)s(oin)m(t)f(w)m(as)i(classi\014ed)e(according)g(to)g(the)h(actual)f +(minim)m(um)d Fj(y)52 b Fw(b)s(et)m(w)m(een)f(an)m(y)e(t)m(w)m(o)244 +4694 y(partons.)64 b(The)40 b(same)g(ev)m(en)m(ts)h(could)e(then)h(b)s +(e)g(used)g(to)f(up)s(date)h(the)g(summed)f(w)m(eigh)m(ts)h(for)244 +4803 y(40)c(di\013eren)m(t)h(coun)m(ters,)i(corresp)s(onding)e(to)f +Fj(y)k Fw(v)-5 b(alues)37 b(ev)m(enly)h(distributed)e(in)g(ln)16 +b Fj(y)39 b Fw(b)s(et)m(w)m(een)244 4911 y Fj(y)31 b +Fw(=)c(0)p Fj(:)p Fw(001)f(and)h(the)g(kinematical)d(limit)f +Fj(y)31 b Fw(=)d(1)p Fj(=)p Fw(6.)40 b(In)27 b(fact,)h(since)f(the)g(w) +m(eigh)m(t)g(sums)g(for)g(large)244 5019 y Fj(y)44 b +Fw(v)-5 b(alues)41 b(only)g(receiv)m(ed)i(con)m(tributions)d(from)g +(few)i(phase-space)h(p)s(oin)m(ts,)g(extra)f(\(smaller\))244 +5128 y(subsamples)48 b(of)f(ev)m(en)m(ts)j(w)m(ere)e(generated)h(with)e +(larger)f Fj(y)51 b Fw(cuts.)89 b(The)48 b(summed)g(w)m(eigh)m(ts,)244 +5236 y(prop)s(erly)27 b(normalized,)g(w)m(ere)h(then)g(parametrized)f +(in)g(terms)g(of)g(p)s(olynomials)d(in)j(ln)o(\()p Fj(y)3471 +5200 y Fk(\000)p Fl(1)3577 5236 y Fn(\000)12 b Fw(5\).)244 +5344 y(Since)30 b(it)g(turned)h(out)f(to)g(b)s(e)g(di\016cult)g(to)g +(obtain)f(one)h(single)g(go)s(o)s(d)f(\014t)h(o)m(v)m(er)i(the)e(whole) +g(range)244 5453 y(of)43 b Fj(y)j Fw(v)-5 b(alues,)45 +b(di\013eren)m(t)f(parametrizations)d(are)i(used)h(ab)s(o)m(v)m(e)g +(and)f(b)s(elo)m(w)g Fj(y)49 b Fw(=)d(0)p Fj(:)p Fw(018.)74 +b(As)244 5561 y(originally)29 b(giv)m(en,)j(the)h(q)p +1175 5508 V(q)q(q)1278 5525 y Fk(0)p 1302 5508 V 1302 +5561 a Fw(q)1354 5525 y Fk(0)1409 5561 y Fw(parametrization)d(only)i +(to)s(ok)g(in)m(to)g(accoun)m(t)i(four)e(q)3368 5525 +y Fk(0)3424 5561 y Fw(\015a)m(v)m(ours,)244 5669 y(i.e.)43 +b(secondary)34 b(b)p 919 5590 55 4 v(b)f(pairs)f(w)m(ere)i(not)e +(generated,)i(but)f(this)f(has)h(b)s(een)g(corrected)h(for)e(LEP)-8 +b(.)1841 5953 y(73)p eop +%%Page: 74 80 +74 79 bop 146 -18 a Fw(In)29 b(the)g(generation)f(stage,)h(eac)m(h)h +(ev)m(en)m(t)g(is)e(treated)h(on)f(its)g(o)m(wn,)i(whic)m(h)f(means)g +(that)f(the)h Fj(\013)3562 -3 y Fl(s)3622 -18 y Fw(and)0 +90 y Fj(y)36 b Fw(v)-5 b(alues)32 b(ma)m(y)g(b)s(e)h(allo)m(w)m(ed)f +(to)g(v)-5 b(ary)33 b(from)e(ev)m(en)m(t)k(to)d(ev)m(en)m(t.)45 +b(The)34 b(main)d(steps)j(are)e(the)h(follo)m(wing.)119 +203 y(1.)49 b(The)f Fj(y)j Fw(v)-5 b(alue)46 b(to)h(b)s(e)h(used)g(in)f +(the)g(curren)m(t)i(ev)m(en)m(t)g(is)e(determined.)87 +b(If)48 b(p)s(ossible,)i(this)d(is)244 311 y(the)d(v)-5 +b(alue)44 b(giv)m(en)g(b)m(y)h(y)m(ou,)j(but)c(additional)d(constrain)m +(ts)k(exist)f(from)f(the)h(v)-5 b(alidit)m(y)42 b(of)i(the)244 +420 y(parametrizations)g(\()p Fj(y)53 b Fn(\025)f Fw(0)p +Fj(:)p Fw(001)45 b(for)g(GKS,)h(0)p Fj(:)p Fw(01)k Fn(\024)h +Fj(y)j Fn(\024)d Fw(0)p Fj(:)p Fw(05)45 b(for)h(ER)-8 +b(T\(Zh)m(u\)\))46 b(and)h(an)244 528 y(extra)30 b(\(user-mo)s +(di\014able\))f(requiremen)m(t)h(of)g(a)g(minim)m(um)d(absolute)j(in)m +(v)-5 b(arian)m(t)28 b(mass)i(b)s(et)m(w)m(een)244 636 +y(jets)44 b(\(whic)m(h)g(translates)f(in)m(to)f(v)-5 +b(arying)43 b Fj(y)k Fw(cuts)d(due)g(to)f(the)h(e\013ects)g(of)f +(initial-state)d(QED)244 745 y(radiation\).)119 862 y(2.)49 +b(The)33 b Fj(\013)506 877 y Fl(s)571 862 y Fw(v)-5 b(alue)32 +b(is)g(calculated.)119 980 y(3.)49 b(F)-8 b(or)42 b(the)h +Fj(y)i Fw(and)e Fj(\013)962 995 y Fl(s)1036 980 y Fw(v)-5 +b(alues)43 b(giv)m(en,)i(the)e(relativ)m(e)f(t)m(w)m(o/three/4-jet)h +(comp)s(osition)d(is)i(deter-)244 1089 y(mined.)58 b(This)38 +b(is)f(ac)m(hiev)m(ed)i(b)m(y)f(using)g(the)g(parametrized)f(functions) +g(of)h Fj(y)i Fw(for)d(3-)g(and)h(4-jet)244 1197 y(rates,)e(m)m +(ultiplied)31 b(b)m(y)36 b(the)f(relev)-5 b(an)m(t)35 +b(n)m(um)m(b)s(er)g(of)g(factors)f(of)h Fj(\013)2623 +1212 y Fl(s)2655 1197 y Fw(.)50 b(In)35 b(ER)-8 b(T\(Zh)m(u\),)36 +b(where)g(the)244 1305 y(second-order)h(3-jet)e(rate)h(is)f(a)m(v)-5 +b(ailable)33 b(only)j(at)f(a)h(few)g Fj(y)j Fw(v)-5 b(alues,)37 +b(in)m(termediate)d(results)i(are)244 1414 y(obtained)25 +b(b)m(y)i(linear)d(in)m(terp)s(olation)f(in)i(the)i(ratio)d(of)h +(second-order)i(to)f(\014rst-order)g(3-jet)f(rates.)244 +1522 y(The)32 b(3-jet)f(and)g(4-jet)g(rates)h(are)f(normalized)e(to)i +(the)h(analytically)c(kno)m(wn)33 b(second-order)f(to-)244 +1630 y(tal)j(ev)m(en)m(t)i(rate,)g(i.e.)53 b(divided)36 +b(b)m(y)h Fj(R)1625 1645 y Fl(QCD)1825 1630 y Fw(of)e(eq.)i(\(25\).)53 +b(Finally)-8 b(,)34 b(the)i(2-jet)g(rate)g(is)f(obtained)244 +1739 y(b)m(y)e(conserv)-5 b(ation)33 b(of)f(total)f(probabilit)m(y)-8 +b(.)119 1856 y(4.)49 b(If)33 b(the)h(com)m(bination)d(of)i +Fj(y)j Fw(and)d Fj(\013)1515 1871 y Fl(s)1581 1856 y +Fw(v)-5 b(alues)33 b(is)g(suc)m(h)h(that)f(the)h(total)e(3-)g(plus)h +(4-jet)g(fraction)f(is)244 1965 y(larger)27 b(than)h(unit)m(y)-8 +b(,)29 b(i.e.)41 b(the)28 b(remainder)f(2-jet)h(fraction)e(negativ)m +(e,)k(the)e Fj(y)t Fw(-cut)f(v)-5 b(alue)27 b(is)h(raised)244 +2073 y(\(for)k(that)g(ev)m(en)m(t\),)j(and)d(the)h(pro)s(cess)h(is)e +(started)h(o)m(v)m(er)h(at)e(p)s(oin)m(t)g(3.)119 2191 +y(5.)49 b(The)c(c)m(hoice)g(is)g(made)f(b)s(et)m(w)m(een)j(generating)d +(a)g(2-,)j(3-)d(or)g(4-jet)g(ev)m(en)m(t,)50 b(according)44 +b(to)g(the)244 2299 y(relativ)m(e)32 b(probabilities.)119 +2417 y(6.)49 b(F)-8 b(or)43 b(the)h(generation)g(of)f(4-jets,)k(it)c +(is)g(\014rst)i(necessary)h(to)e(mak)m(e)g(a)f(c)m(hoice)i(b)s(et)m(w)m +(een)h(q)p 3629 2364 52 4 v(q)q(gg)244 2525 y(and)36 +b(q)p 488 2473 V(q)q(q)591 2489 y Fk(0)p 615 2473 V 615 +2525 a Fw(q)667 2489 y Fk(0)726 2525 y Fw(ev)m(en)m(ts,)k(according)c +(to)g(the)h(relativ)m(e)e(\(parametrized\))h(total)f(cross)i(sections.) +55 b(A)244 2634 y(phase-space)34 b(p)s(oin)m(t)d(is)h(then)h(selected,) +h(and)e(the)h(di\013eren)m(tial)e(cross)i(section)f(at)g(this)g(p)s +(oin)m(t)g(is)244 2742 y(ev)-5 b(aluated)32 b(and)h(compared)g(with)g +(a)f(parametrized)g(maxim)m(um)f(w)m(eigh)m(t.)45 b(If)33 +b(the)g(phase-space)244 2850 y(p)s(oin)m(t)f(is)g(rejected,)i(a)e(new)h +(one)g(is)f(selected,)i(un)m(til)d(an)i(acceptable)g(4-jet)f(ev)m(en)m +(t)i(is)e(found.)119 2968 y(7.)49 b(F)-8 b(or)33 b(3-jets,)g(a)g +(phase-space)i(p)s(oin)m(t)e(is)g(\014rst)h(c)m(hosen)h(according)e(to) +g(the)h(\014rst-order)f(cross)i(sec-)244 3077 y(tion.)42 +b(F)-8 b(or)32 b(this)g(p)s(oin)m(t,)g(the)h(w)m(eigh)m(t)1310 +3304 y Fj(W)14 b Fw(\()p Fj(x)1509 3319 y Fl(1)1549 3304 +y Fj(;)j(x)1648 3319 y Fl(2)1687 3304 y Fw(;)g Fj(y)t +Fw(\))27 b(=)g(1)22 b(+)2130 3236 y Fj(\013)2192 3251 +y Fl(s)p 2130 3280 95 4 v 2148 3372 a Fj(\031)2234 3304 +y(R)q Fw(\()p Fj(x)2402 3319 y Fl(1)2442 3304 y Fj(;)17 +b(x)2541 3319 y Fl(2)2580 3304 y Fw(;)g Fj(y)t Fw(\))892 +b(\(35\))244 3544 y(is)43 b(ev)-5 b(aluated.)76 b(Here)44 +b Fj(R)q Fw(\()p Fj(x)1269 3559 y Fl(1)1309 3544 y Fj(;)17 +b(x)1408 3559 y Fl(2)1448 3544 y Fw(;)g Fj(y)t Fw(\))42 +b(is)h(analytically)e(giv)m(en)j(for)f(GKS)g([Gut84)o(],)k(while)42 +b(it)h(is)244 3652 y(appro)m(ximated)32 b(b)m(y)i(the)g +(parametrization)d Fj(F)14 b Fw(\()p Fj(X)r(;)j(Y)k Fw(;)c +Fj(y)t Fw(\))31 b(of)i(eq.)h(\(34\))f(for)g(ER)-8 b(T\(Zh)m(u\).)45 +b(Again,)244 3761 y(linear)33 b(in)m(terp)s(olation)e(of)j +Fj(F)14 b Fw(\()p Fj(X)r(;)j(Y)k Fw(;)c Fj(y)t Fw(\))33 +b(has)i(to)f(b)s(e)h(applied)e(for)h(in)m(termediate)f +Fj(y)38 b Fw(v)-5 b(alues.)49 b(The)244 3869 y(w)m(eigh)m(t)33 +b Fj(W)46 b Fw(is)32 b(compared)g(with)h(a)f(maxim)m(um)e(w)m(eigh)m(t) +1429 4096 y Fj(W)1521 4111 y Fl(max)1657 4096 y Fw(\()p +Fj(y)t Fw(\))c(=)i(1)22 b(+)2094 4029 y Fj(\013)2156 +4044 y Fl(s)p 2094 4073 V 2111 4164 a Fj(\031)2198 4096 +y(R)2272 4111 y Fl(max)2408 4096 y Fw(\()p Fj(y)t Fw(\))31 +b Fj(;)1012 b Fw(\(36\))244 4331 y(whic)m(h)38 b(has)g(b)s(een)h(n)m +(umerically)d(determined)i(b)s(eforehand)g(and)g(suitably)f +(parametrized.)59 b(If)244 4439 y(the)33 b(phase-space)h(p)s(oin)m(t)e +(is)g(rejected,)i(a)e(new)i(p)s(oin)m(t)d(is)h(generated,)i(etc.)119 +4557 y(8.)49 b(Massiv)m(e)41 b(matrix)e(elemen)m(ts)h(are)g(not)g(a)m +(v)-5 b(ailable)38 b(in)h Fm(Jetset)g Fw(for)g(second-order)i(QCD)f +(\(but)244 4665 y(are)32 b(in)f(the)i(\014rst-order)f(option\).)42 +b(Ho)m(w)m(ev)m(er,)35 b(if)c(a)g(3-)h(or)f(4-jet)h(ev)m(en)m(t)i +(determined)d(ab)s(o)m(v)m(e)i(falls)244 4774 y(outside)c(the)h +(phase-space)h(region)e(allo)m(w)m(ed)f(for)h(massiv)m(e)h(quarks,)i +(the)d(ev)m(en)m(t)j(is)d(rejected)h(and)244 4882 y(reassigned)39 +b(to)f(b)s(e)g(a)g(2-jet)g(ev)m(en)m(t.)62 b(\(The)40 +b(w)m(a)m(y)f(the)g Fj(y)2280 4897 y Fh(ij)2378 4882 +y Fw(and)g Fj(y)2622 4897 y Fh(ij)t(k)2759 4882 y Fw(v)-5 +b(ariables)37 b(of)g(4-jet)h(ev)m(en)m(ts)244 4990 y(should)g(b)s(e)h +(in)m(terpreted)g(for)f(massiv)m(e)h(quarks)h(is)e(not)g(ev)m(en)j +(unique,)f(so)f(some)f(latitute)f(has)244 5099 y(b)s(een)e(tak)m(en)h +(here)g(to)e(pro)m(vide)h(a)f(reasonable)h(con)m(tin)m(uit)m(y)g(from)e +(3-jet)h(ev)m(en)m(ts.\))53 b(This)35 b(pro)s(ce-)244 +5207 y(dure)j(is)g(kno)m(wn)h(not)f(to)g(giv)m(e)f(the)i(exp)s(ected)h +(full)c(mass)i(suppression,)i(but)e(is)g(a)g(reasonable)244 +5315 y(\014rst)33 b(appro)m(ximation.)119 5433 y(9.)49 +b(Finally)-8 b(,)37 b(if)f(the)j(ev)m(en)m(t)h(is)d(classi\014ed)h(as)g +(a)g(2-jet)f(ev)m(en)m(t,)k(either)d(b)s(ecause)i(it)d(w)m(as)h +(initially)c(so)244 5542 y(assigned,)46 b(or)c(b)s(ecause)i(it)e +(failed)f(the)i(massiv)m(e)g(phase-space)i(cuts)f(for)e(3-)g(and)h +(4-jets,)i(the)244 5650 y(generation)32 b(of)g(2-jets)g(is)g(trivial.) +1841 5953 y(74)p eop +%%Page: 75 81 +75 80 bop 0 -18 a Fo(6.1.6)112 b(Optimized)36 b(p)s(erturbation)h +(theory)0 154 y Fw(Theoretically)-8 b(,)24 b(it)f(turns)i(out)e(that)h +(the)g(second-order)h(corrections)f(to)f(the)h(3-jet)f(rate)h(are)g +(large.)39 b(It)24 b(is)0 263 y(therefore)f(not)g(unreasonable)g(to)g +(exp)s(ect)h(large)e(third-order)g(corrections)h(to)f(the)i(4-jet)e +(rate.)40 b(Indeed,)0 371 y(the)26 b(exp)s(erimen)m(tal)e(4-jet)h(rate) +g(is)g(m)m(uc)m(h)h(larger)e(than)i(second)h(order)e(predicts)h(\(when) +g(fragmen)m(tation)0 479 y(e\013ects)34 b(ha)m(v)m(e)g(b)s(een)f +(folded)f(in\),)g(if)f Fj(\013)1371 494 y Fl(s)1436 479 +y Fw(is)h(determined)g(based)i(on)e(the)h(3-jet)f(rate)h([Sj\177)-49 +b(o84a)o(,)33 b(JAD88)o(].)146 588 y(The)e(only)e(consisten)m(t)i(w)m +(a)m(y)f(to)g(resolv)m(e)g(this)f(issue)h(is)f(to)h(go)f(ahead)h(and)f +(calculate)g(the)h(full)e(next)0 696 y(order.)64 b(This)39 +b(is)g(a)g(tough)g(task,)j(ho)m(w)m(ev)m(er,)h(so)d(p)s(eople)e(ha)m(v) +m(e)j(lo)s(ok)m(ed)e(at)g(p)s(ossible)f(shortcuts.)65 +b(F)-8 b(or)0 804 y(example,)37 b(one)g(can)g(try)g(to)f(minimize)d +(the)k(higher-order)f(con)m(tributions)g(b)m(y)h(a)f(suitable)g(c)m +(hoice)h(of)0 913 y(the)h(renormalization)c(scale)j([Ste81])h(|)e +(`optimized)g(p)s(erturbation)h(theory'.)58 b(This)38 +b(is)f(equiv)-5 b(alen)m(t)0 1021 y(to)41 b(a)g(di\013eren)m(t)g(c)m +(hoice)h(for)f(the)h Fj(Q)1322 985 y Fl(2)1402 1021 y +Fw(scale)g(in)e Fj(\013)1829 1036 y Fl(s)1861 1021 y +Fw(,)k(a)d(scale)g(whic)m(h)h(is)f(not)g(unam)m(biguous)g(an)m(yw)m(a)m +(y)-8 b(.)0 1129 y(Indeed)45 b(the)g(standard)f(v)-5 +b(alue)43 b Fj(Q)1266 1093 y Fl(2)1353 1129 y Fw(=)k +Fj(s)g Fw(=)g Fj(E)1770 1093 y Fl(2)1764 1154 y(cm)1902 +1129 y Fw(is)c(larger)g(than)h(the)g(natural)f(ph)m(ysical)h(scale)g +(of)0 1238 y(gluon)30 b(emission)h(in)f(ev)m(en)m(ts,)k(giv)m(en)e +(that)f(most)g(gluons)g(are)h(fairly)d(soft.)43 b(One)32 +b(could)f(therefore)h(pic)m(k)0 1346 y(another)39 b(scale,)i +Fj(Q)710 1310 y Fl(2)788 1346 y Fw(=)e Fj(f)11 b(s)p +Fw(,)40 b(with)f Fj(f)49 b(<)38 b Fw(1.)63 b(The)40 b +Fn(O)s Fw(\()p Fj(\013)2043 1361 y Fl(s)2075 1346 y Fw(\))f(3-jet)f +(rate)h(w)m(ould)g(b)s(e)g(increased)h(b)m(y)g(suc)m(h)0 +1454 y(a)c(scale)g(c)m(hange,)i(and)e(so)g(w)m(ould)g(the)h(n)m(um)m(b) +s(er)f(of)g(4-jet)f(ev)m(en)m(ts,)40 b(including)34 b(those)j(whic)m(h) +f(collapse)0 1563 y(in)m(to)f(3-jet)h(ones.)54 b(The)37 +b(lo)s(op)e(corrections)h(dep)s(end)h(on)f(the)h Fj(Q)2344 +1527 y Fl(2)2420 1563 y Fw(scale,)g(ho)m(w)m(ev)m(er,)i(and)d(comp)s +(ensate)0 1671 y(the)d(c)m(hanges)h(ab)s(o)m(v)m(e)f(b)m(y)h(giving)d +(a)h(larger)f(negativ)m(e)i(con)m(tribution)f(to)g(the)h(3-jet)f(rate.) +146 1779 y(The)49 b(p)s(ossibilit)m(y)d(of)h(pic)m(king)h(an)g +(optimized)e(scale)i Fj(f)58 b Fw(is)48 b(implemen)m(ted)e(as)i(follo)m +(ws)f([Sj\177)-49 b(o89)o(].)0 1888 y(Assume)33 b(that)g(the)g +(di\013eren)m(tial)e(3-jet)g(rate)i(at)f(scale)h Fj(Q)2084 +1852 y Fl(2)2151 1888 y Fw(=)28 b Fj(s)k Fw(is)g(giv)m(en)h(b)m(y)g +(the)g(expression)1496 2096 y Fj(R)1570 2111 y Fl(3)1637 +2096 y Fw(=)28 b Fj(r)1785 2111 y Fl(1)1824 2096 y Fj(\013)1886 +2111 y Fl(s)1940 2096 y Fw(+)22 b Fj(r)2082 2111 y Fl(2)2122 +2096 y Fj(\013)2185 2055 y Fl(2)2184 2120 y(s)2256 2096 +y Fj(;)1323 b Fw(\(37\))0 2304 y(where)38 b Fj(R)360 +2319 y Fl(3)399 2304 y Fw(,)g Fj(r)508 2319 y Fl(1)583 +2304 y Fw(and)f Fj(r)821 2319 y Fl(2)896 2304 y Fw(are)g(functions)f +(of)g(the)h(kinematical)c(v)-5 b(ariables)36 b Fj(x)2764 +2319 y Fl(1)2840 2304 y Fw(and)g Fj(x)3088 2319 y Fl(2)3164 +2304 y Fw(and)h(the)g Fj(y)i Fw(cut,)0 2412 y(as)34 b(describ)s(ed)h +(ab)s(o)m(v)m(e.)47 b(When)35 b(the)f(coupling)f(is)g(c)m(hosen)i(at)f +(a)f(di\013eren)m(t)h(scale,)g Fj(Q)3058 2376 y Fk(0)p +Fl(2)3147 2412 y Fw(=)29 b Fj(f)11 b(s)p Fw(,)34 b(the)g(3-jet)0 +2520 y(rate)f(has)f(to)h(b)s(e)f(c)m(hanged)i(to)1486 +2629 y Fj(R)1561 2588 y Fk(0)1560 2653 y Fl(3)1628 2629 +y Fw(=)27 b Fj(r)1778 2588 y Fk(0)1775 2653 y Fl(1)1815 +2629 y Fj(\013)1878 2588 y Fk(0)1877 2653 y Fl(s)1931 +2629 y Fw(+)22 b Fj(r)2073 2644 y Fl(2)2112 2629 y Fj(\013)2175 +2588 y Fk(0)p Fl(2)2174 2653 y(s)2266 2629 y Fj(;)1313 +b Fw(\(38\))0 2791 y(where)34 b Fj(r)329 2755 y Fk(0)326 +2816 y Fl(1)393 2791 y Fw(=)27 b Fj(r)540 2806 y Fl(1)580 +2791 y Fw(,)1327 2955 y Fj(r)1374 2914 y Fk(0)1371 2980 +y Fl(2)1438 2955 y Fw(=)g Fj(r)1585 2970 y Fl(2)1647 +2955 y Fw(+)22 b Fj(r)1789 2970 y Fl(1)1838 2888 y Fw(33)g +Fn(\000)h Fw(2)p Fj(n)2165 2903 y Fh(f)p 1838 2932 372 +4 v 1946 3024 a Fw(12)p Fj(\031)2237 2955 y Fw(ln)15 +b Fj(f)44 b(;)1153 b Fw(\(39\))0 3161 y(and)34 b Fj(\013)254 +3125 y Fk(0)253 3185 y Fl(s)315 3161 y Fw(=)c Fj(\013)483 +3176 y Fl(s)515 3161 y Fw(\()p Fj(f)11 b(s)p Fw(\).)47 +b(Since)35 b(w)m(e)g(only)e(ha)m(v)m(e)i(the)g(Born)f(term)f(for)h +(4-jets,)g(here)h(the)f(e\013ects)h(of)f(a)f(scale)0 +3269 y(c)m(hange)25 b(come)f(only)g(from)g(the)g(c)m(hange)i(in)d(the)i +(coupling)e(constan)m(t.)42 b(Finally)-8 b(,)23 b(the)i(2-jet)f(cross)h +(section)0 3378 y(can)34 b(still)d(b)s(e)i(calculated)f(from)g(the)i +(di\013erence)g(b)s(et)m(w)m(een)i(the)d(total)f(cross)i(section)g(and) +f(the)h(3-)e(and)0 3486 y(4-jet)g(cross)h(sections.)146 +3594 y(If)i(an)f(optimized)f(scale)h(is)g(used)h(in)f(the)h(program,)f +(the)g(default)g(v)-5 b(alue)34 b(is)g Fj(f)41 b Fw(=)31 +b(0)p Fj(:)p Fw(002,)j(whic)m(h)h(is)0 3703 y(fa)m(v)m(oured)27 +b(b)m(y)g(the)g(studies)g(in)e(ref.)41 b([Bet89].)h(\(In)26 +b(fact,)i(it)d(is)g(also)h(p)s(ossible)f(to)h(use)h(a)f(corresp)s +(ondingly)0 3811 y(optimized)36 b Fj(R)529 3826 y Fl(QCD)732 +3811 y Fw(factor,)j(eq.)g(\(25\),)g(but)f(then)h(the)f(corresp)s +(onding)h Fj(f)48 b Fw(is)38 b(c)m(hosen)i(indep)s(enden)m(tly)0 +3919 y(and)29 b(m)m(uc)m(h)g(closer)f(to)h(unit)m(y)-8 +b(.\))42 b(The)29 b(success)i(of)e(describing)f(the)h(jet)f(rates)h +(should)g(not)f(hide)h(the)g(fact)0 4028 y(that)k(one)h(is)f(dabbling)f +(in)h(\(educated,)i(hop)s(efully\))e(guessw)m(ork,)j(and)d(that)h(an)m +(y)g(conclusions)g(based)0 4136 y(on)e(this)h(metho)s(d)f(ha)m(v)m(e)i +(to)e(b)s(e)h(tak)m(en)g(with)f(a)h(pinc)m(h)f(of)h(salt.)146 +4244 y(One)g(sp)s(ecial)d(problem)h(asso)s(ciated)h(with)f(the)i(use)f +(of)g(optimized)e(p)s(erturbation)h(theory)h(is)g(that)0 +4353 y(the)42 b(di\013eren)m(tial)d(3-jet)i(rate)g(ma)m(y)h(b)s(ecome)f +(negativ)m(e)h(o)m(v)m(er)g(large)e(regions)h(of)g(the)h(\()p +Fj(x)3283 4368 y Fl(1)3323 4353 y Fj(;)17 b(x)3422 4368 +y Fl(2)3461 4353 y Fw(\))42 b(phase)0 4461 y(space.)h(This)29 +b(problem)f(already)g(exists,)j(at)d(least)g(in)g(principle,)g(ev)m(en) +j(for)d(a)h(scale)f Fj(f)39 b Fw(=)27 b(1,)j(since)f +Fj(r)3646 4476 y Fl(2)3714 4461 y Fw(is)0 4569 y(not)h(guaran)m(teed)h +(to)e(b)s(e)i(p)s(ositiv)m(e)e(de\014nite.)43 b(Indeed,)32 +b(dep)s(ending)e(on)g(the)h(c)m(hoice)f(of)g Fj(y)j Fw(cut,)e +Fj(\013)3498 4584 y Fl(s)3560 4569 y Fw(v)-5 b(alue)0 +4678 y(and)37 b(recom)m(bination)e(sc)m(heme,)j(one)f(ma)m(y)g(observ)m +(e)h(a)e(small)f(region)g(of)i(negativ)m(e)f(di\013eren)m(tial)f(3-jet) +0 4786 y(rate)25 b(for)g(the)g(full)f(second-order)i(expression.)42 +b(This)26 b(region)e(is)h(cen)m(tred)h(around)g(q)p 3029 +4733 52 4 v(qg)h(con\014gurations,)0 4894 y(where)i(the)f(q)g(and)p +704 4841 V 28 w(q)g(are)f(close)h(together)g(in)f(one)h(hemisphere)g +(and)f(the)h(g)h(is)e(alone)g(in)g(the)h(other,)h(i.e.)0 +5003 y Fj(x)55 5018 y Fl(1)124 5003 y Fn(\031)h Fj(x)286 +5018 y Fl(2)355 5003 y Fn(\031)g Fw(1)p Fj(=)p Fw(2.)45 +b(It)34 b(is)f(w)m(ell)g(understo)s(o)s(d)g(wh)m(y)i(second-order)g +(corrections)e(should)h(b)s(e)g(negativ)m(e)f(in)0 5111 +y(this)25 b(region)g([Dok89]:)40 b(the)26 b(q)g(and)p +1284 5058 V 26 w(q)g(of)g(a)f(q)p 1591 5058 V(q)q(g)i(state)f(are)g(in) +f(a)g(relativ)m(e)g(colour)g(o)s(ctet)h(state,)i(and)d(th)m(us)0 +5219 y(the)33 b(colour)f(force)g(b)s(et)m(w)m(een)j(them)d(is)g +(repulsiv)m(e,)h(whic)m(h)g(translates)g(in)m(to)e(a)i(negativ)m(e)f +(second-order)0 5328 y(term.)146 5436 y(Ho)m(w)m(ev)m(er,)27 +b(as)c Fj(f)33 b Fw(is)22 b(decreased)j(b)s(elo)m(w)d(unit)m(y)-8 +b(,)25 b Fj(r)1846 5400 y Fk(0)1843 5461 y Fl(2)1905 +5436 y Fw(receiv)m(es)f(a)e(negativ)m(e)h(con)m(tribution)f(from)f(the) +i(ln)16 b Fj(f)0 5544 y Fw(term,)27 b(and)f(the)h(region)e(of)g +(negativ)m(e)i(di\013eren)m(tial)d(cross)j(section)f(has)h(a)f +(tendency)i(to)d(b)s(ecome)i(larger,)0 5653 y(also)39 +b(after)h(taking)g(in)m(to)f(accoun)m(t)i(related)f(c)m(hanges)i(in)d +Fj(\013)2208 5668 y Fl(s)2240 5653 y Fw(.)67 b(In)40 +b(an)h(ev)m(en)m(t-generator)g(framew)m(ork,)1841 5953 +y(75)p eop +%%Page: 76 82 +76 81 bop 0 -18 a Fw(where)48 b(all)d(ev)m(en)m(ts)k(are)d(supp)s(osed) +j(to)d(come)g(with)h(unit)f(w)m(eigh)m(t,)51 b(it)45 +b(is)h(clearly)g(not)h(p)s(ossible)f(to)0 90 y(sim)m(ulate)30 +b(negativ)m(e)i(cross)h(sections.)44 b(What)32 b(happ)s(ens)h(in)e(the) +h(program)e(is)h(therefore)i(that)e(no)h(3-jet)0 198 +y(ev)m(en)m(ts)39 b(at)e(all)e(are)i(generated)h(in)f(the)g(regions)g +(of)f(negativ)m(e)i(di\013eren)m(tial)d(cross)j(section,)g(and)g(that)0 +307 y(the)c(3-jet)e(rate)h(in)f(regions)h(of)g(p)s(ositiv)m(e)f(cross)i +(sections)g(is)f(reduced)h(b)m(y)g(a)f(constan)m(t)h(factor,)f(c)m +(hosen)0 415 y(so)39 b(that)g(the)g(total)f(n)m(um)m(b)s(er)h(of)f +(3-jet)h(ev)m(en)m(ts)i(comes)e(out)g(as)g(it)f(should.)62 +b(This)39 b(is)g(a)f(consequence)0 523 y(of)f(the)g(w)m(a)m(y)i(the)e +(program)f(w)m(orks,)j(where)g(it)d(is)h(\014rst)g(decided)h(what)f +(kind)g(of)g(ev)m(en)m(t)i(to)e(generate,)0 632 y(based)31 +b(on)f(in)m(tegrated)f(3-jet)g(rates)i(in)e(whic)m(h)h(p)s(ositiv)m(e)f +(and)h(negativ)m(e)g(con)m(tributions)g(are)g(added)g(up)0 +740 y(with)i(sign,)g(and)h(only)f(thereafter)h(the)g(kinematics)f(is)g +(c)m(hosen.)146 848 y(Based)41 b(on)e(our)g(ph)m(ysics)i(understanding) +f(of)f(the)h(origin)d(of)i(this)h(negativ)m(e)f(cross)i(section,)g(the) +0 957 y(approac)m(h)27 b(adopted)g(is)f(as)h(sensible)g(as)g(an)m(y)-8 +b(,)28 b(at)f(least)f(to)g(that)g(order)h(in)f(p)s(erturbation)g +(theory)h(\(what)0 1065 y(one)h(migh)m(t)f(striv)m(e)h(for)g(is)f(a)h +(prop)s(erly)f(exp)s(onen)m(tiated)i(description)e(of)h(the)g(relev)-5 +b(an)m(t)28 b(region\).)41 b(It)28 b(can)0 1173 y(giv)m(e)39 +b(rise)f(to)h(funn)m(y)h(results)f(for)f(lo)m(w)g Fj(f)50 +b Fw(v)-5 b(alues,)40 b(ho)m(w)m(ev)m(er,)j(as)c(observ)m(ed)i(b)m(y)e +(OP)-8 b(AL)39 b([OP)-8 b(A92])39 b(for)0 1282 y(the)33 +b(energy{energy)h(correlation)d(asymmetry)-8 b(.)0 1529 +y Fo(6.1.7)112 b(Angular)37 b(orien)m(tation)0 1702 y +Fw(While)28 b(pure)i Fj(\015)k Fw(exc)m(hange)d(giv)m(es)f(a)f(simple)f +(1)15 b(+)g(cos)1899 1666 y Fl(2)1955 1702 y Fj(\022)33 +b Fw(distribution)27 b(for)i(the)h(q)f(\(and)p 3177 1649 +52 4 v 30 w(q\))g(direction)f(in)0 1810 y(q)p 51 1758 +V(q)j(ev)m(en)m(ts,)i(Z)514 1774 y Fl(0)583 1810 y Fw(exc)m(hange)f +(and)f Fj(\015)1242 1774 y Fk(\003)1281 1810 y Fj(=)p +Fw(Z)1390 1774 y Fl(0)1459 1810 y Fw(in)m(terference)h(results)e(in)g +(a)g(forw)m(ard{bac)m(kw)m(ard)i(asymmetry)-8 b(.)0 1919 +y(If)33 b(one)f(in)m(tro)s(duces)429 2127 y Fj(h)485 +2086 y Fk(0)485 2151 y Fl(f)517 2127 y Fw(\()p Fj(s)p +Fw(\))82 b(=)h(2)p Fj(e)974 2142 y Fl(e)1026 2030 y Fg(n)1082 +2127 y Fj(a)1133 2142 y Fl(e)1168 2127 y Fw(\(1)22 b +Fn(\000)h Fj(P)1454 2086 y Fl(+)1440 2151 y(L)1512 2127 +y Fj(P)1589 2086 y Fk(\000)1575 2151 y Fl(L)1648 2127 +y Fw(\))f Fn(\000)h Fj(v)1855 2142 y Fl(e)1890 2127 y +Fw(\()p Fj(P)2005 2086 y Fk(\000)1991 2151 y Fl(L)2086 +2127 y Fn(\000)f Fj(P)2262 2086 y Fl(+)2248 2151 y(L)2321 +2127 y Fw(\))2359 2030 y Fg(o)2447 2127 y Fn(<)p Fj(\037)p +Fw(\()p Fj(s)p Fw(\))p Fj(e)2747 2142 y Fl(f)2778 2127 +y Fj(a)2829 2142 y Fl(f)880 2309 y Fw(+)989 2213 y Fg(n)1045 +2309 y Fw(2)p Fj(v)1141 2324 y Fl(e)1176 2309 y Fj(a)1227 +2324 y Fl(e)1263 2309 y Fw(\(1)g Fn(\000)g Fj(P)1548 +2268 y Fl(+)1534 2334 y(L)1607 2309 y Fj(P)1684 2268 +y Fk(\000)1670 2334 y Fl(L)1742 2309 y Fw(\))g Fn(\000)h +Fw(\()p Fj(v)1991 2268 y Fl(2)1987 2334 y(e)2052 2309 +y Fw(+)f Fj(a)2201 2268 y Fl(2)2201 2334 y(e)2241 2309 +y Fw(\)\()p Fj(P)2394 2268 y Fk(\000)2380 2334 y Fl(L)2474 +2309 y Fn(\000)h Fj(P)2651 2268 y Fl(+)2637 2334 y(L)2709 +2309 y Fw(\))2747 2213 y Fg(o)2836 2309 y Fn(j)p Fj(\037)p +Fw(\()p Fj(s)p Fw(\))p Fn(j)3075 2268 y Fl(2)3130 2309 +y Fj(v)3177 2324 y Fl(f)3208 2309 y Fj(a)3259 2324 y +Fl(f)3323 2309 y Fj(;)256 b Fw(\(40\))0 2536 y(then)33 +b(the)g(angular)e(distribution)g(of)h(the)h(quark)h(is)e(giv)m(en)g(b)m +(y)1069 2733 y(d)p Fj(\033)p 949 2777 354 4 v 949 2869 +a Fw(d\(cos)18 b Fj(\022)1234 2884 y Fl(f)1265 2869 y +Fw(\))1341 2800 y Fn(/)28 b Fj(h)1502 2815 y Fl(f)1533 +2800 y Fw(\()p Fj(s)p Fw(\)\(1)22 b(+)g(cos)1992 2759 +y Fl(2)2048 2800 y Fj(\022)2093 2815 y Fl(f)2125 2800 +y Fw(\))g(+)g(2)p Fj(h)2388 2759 y Fk(0)2388 2825 y Fl(f)2419 +2800 y Fw(\()p Fj(s)p Fw(\))17 b(cos)f Fj(\022)2749 2815 +y Fl(f)2813 2800 y Fj(:)766 b Fw(\(41\))146 3071 y(The)27 +b(angular)e(orien)m(tation)f(of)i(a)g(3-)f(or)g(4-jet)h(ev)m(en)m(t)i +(ma)m(y)d(b)s(e)i(describ)s(ed)f(in)g(terms)g(of)f(three)i(angles)0 +3179 y Fj(\037)p Fw(,)43 b Fj(\022)h Fw(and)d Fj(')p +Fw(;)k(for)40 b(2-jet)g(ev)m(en)m(ts)k(only)c Fj(\022)k +Fw(and)d Fj(')g Fw(are)f(necessary)-8 b(.)71 b(F)-8 b(rom)39 +b(a)i(standard)g(orien)m(tation,)0 3287 y(with)48 b(the)h(q)g(along)e +(the)i(+)p Fj(z)k Fw(axis)48 b(and)g(the)p 1759 3234 +52 4 v 49 w(q)h(in)f(the)g Fj(xz)54 b Fw(plane)48 b(with)g +Fj(p)2889 3302 y Fh(x)2987 3287 y Fj(>)55 b Fw(0,)d(an)c(arbitrary)0 +3396 y(orien)m(tation)36 b(ma)m(y)i(b)s(e)h(reac)m(hed)g(b)m(y)g(the)g +(rotations)e(+)p Fj(\037)h Fw(in)f(azim)m(uthal)f(angle,)j(+)p +Fj(\022)i Fw(in)d(p)s(olar)e(angle,)0 3504 y(and)45 b(+)p +Fj(')f Fw(in)g(azim)m(uthal)f(angle,)k(in)d(that)g(order.)80 +b(Di\013eren)m(tial)43 b(cross)i(sections,)k(including)42 +b(QFD)0 3612 y(e\013ects)d(and)e(arbitrary)f(b)s(eam)h(p)s +(olarizations)d(ha)m(v)m(e)39 b(b)s(een)e(giv)m(en)h(for)f(2-)f(and)h +(3-jet)g(ev)m(en)m(ts)i(in)e(refs.)0 3721 y([Ols80)o(,)22 +b(Sc)m(h80)q(].)40 b(W)-8 b(e)22 b(use)i(the)e(formalism)d(of)i(ref.)40 +b([Ols80],)24 b(with)e Fj(\037)27 b Fn(!)h Fj(\031)t +Fn(\000)q Fj(\037)23 b Fw(and)f Fj(')3087 3684 y Fk(\000)3174 +3721 y Fn(!)27 b(\000)p Fw(\()p Fj(')q Fw(+)q Fj(\031)t(=)p +Fw(2\).)0 3829 y(The)43 b(resulting)e(form)m(ulae)f(are)i(tedious,)j +(but)d(straigh)m(tforw)m(ard)f(to)h(apply)-8 b(,)44 b(once)e(the)h(in)m +(ternal)d(jet)0 3937 y(con\014guration)26 b(has)i(b)s(een)g(c)m(hosen.) +43 b(4-jet)27 b(ev)m(en)m(ts)i(are)f(appro)m(ximated)e(b)m(y)i(3-jet)f +(ones,)i(b)m(y)f(joining)d(the)0 4046 y(t)m(w)m(o)32 +b(gluons)g(of)f(a)g(q)p 728 3993 V(q)q(gg)i(ev)m(en)m(t)h(and)e(the)g +(q)1575 4009 y Fk(0)1630 4046 y Fw(and)p 1819 3993 V +32 w(q)1871 4009 y Fk(0)1926 4046 y Fw(of)f(a)g(q)p 2167 +3993 V(q)q(q)2270 4009 y Fk(0)p 2294 3993 V 2294 4046 +a Fw(q)2346 4009 y Fk(0)2401 4046 y Fw(ev)m(en)m(t)i(in)m(to)e(one)h +(e\013ectiv)m(e)h(jet.)43 b(This)0 4154 y(means)c(that)f(some)g +(angular)f(asymmetries)h(are)h(neglected)g([Ali80a)n(],)h(but)f(that)f +(w)m(eak)i(e\013ects)f(are)0 4262 y(automatically)34 +b(included.)57 b(It)38 b(is)f(assumed)h(that)f(the)h(second-order)g +(3-jet)f(ev)m(en)m(ts)i(ha)m(v)m(e)g(the)f(same)0 4371 +y(angular)h(orien)m(tation)g(as)i(the)g(\014rst-order)g(ones,)i(some)d +(studies)i(on)e(this)g(issue)h(ma)m(y)g(b)s(e)g(found)f(in)0 +4479 y([K\177)-49 b(or85)o(].)51 b(F)-8 b(urther,)36 +b(the)f(form)m(ulae)f(normally)f(refer)i(to)g(the)g(massless)h(case;)h +(only)d(for)h(the)g(QED)g(2-)0 4587 y(and)e(3-jet)f(cases)i(are)e(mass) +h(corrections)f(a)m(v)-5 b(ailable.)146 4696 y(The)36 +b(main)d(e\013ect)j(of)e(the)i(angular)d(distribution)g(of)i(m)m +(ultijet)d(ev)m(en)m(ts)38 b(is)c(to)g(smear)h(the)g(lo)m(w)m(est-)0 +4804 y(order)27 b(result,)i(i.e.)41 b(to)27 b(reduce)h(an)m(y)g +(anisotropies)e(presen)m(t)j(in)e(2-jet)f(systems.)43 +b(In)28 b(the)f(parton-sho)m(w)m(er)0 4912 y(option)41 +b(of)h(the)h(program,)g(only)f(the)h(initial)38 b(q)p +1785 4860 V(q)44 b(axis)e(is)g(determined.)72 b(The)43 +b(subsequen)m(t)j(sho)m(w)m(er)0 5021 y(ev)m(olution)28 +b(then)i Fi(de)h(facto)d Fw(leads)h(to)g(a)f(smearing)g(of)g(the)i(jet) +f(axis,)g(although)f(not)h(necessarily)g(in)f(full)0 +5129 y(agreemen)m(t)33 b(with)f(the)h(exp)s(ectations)g(from)e(m)m +(ultijet)g(matrix-elemen)m(t)f(treatmen)m(ts.)0 5377 +y Fo(6.1.8)112 b(Initial-state)36 b(radiation)0 5549 +y Fw(Initial-state)27 b(photon)j(radiation)d(has)j(b)s(een)h(included)e +(using)g(the)h(formalism)c(of)k(ref.)42 b([Ber82].)h(Here)0 +5658 y(eac)m(h)h(ev)m(en)m(t)h(con)m(tains)f(either)f(no)g(photon)g(or) +g(one,)j(i.e.)76 b(it)42 b(is)h(a)g(\014rst-order)g(non-exp)s(onen)m +(tiated)1841 5953 y(76)p eop +%%Page: 77 83 +77 82 bop 0 -18 a Fw(description.)43 b(The)34 b(main)c(form)m(ula)h +(for)h(the)h(hard)g(radiativ)m(e)e(photon)i(cross)g(section)g(is)940 +191 y(d)p Fj(\033)p 920 235 155 4 v 920 327 a Fw(d)p +Fj(x)1029 342 y Fh(\015)1111 258 y Fw(=)1225 191 y Fj(\013)1287 +206 y Fl(em)p 1225 235 157 4 v 1274 327 a Fj(\031)1424 +112 y Fg( )1490 258 y Fw(ln)1637 191 y Fj(s)p 1598 235 +125 4 v 1598 327 a(m)1683 298 y Fl(2)1683 351 y(e)1755 +258 y Fn(\000)23 b Fw(1)1904 112 y Fg(!)2012 191 y Fw(1)f(+)g(\(1)g +Fn(\000)h Fj(x)2445 206 y Fh(\015)2489 191 y Fw(\))2527 +155 y Fl(2)p 2012 235 555 4 v 2240 327 a Fj(x)2295 342 +y Fh(\015)2593 258 y Fj(\033)2648 273 y Fl(0)2688 258 +y Fw(\()t(^)-53 b Fj(s)p Fw(\))33 b Fj(;)736 b Fw(\(42\))0 +541 y(where)35 b Fj(x)338 556 y Fh(\015)417 541 y Fw(is)f(the)g(photon) +g(energy)h(fraction)e(of)h(the)g(b)s(eam)f(energy)-8 +b(,)40 b(^)-53 b Fj(s)30 b Fw(=)g(\(1)23 b Fn(\000)g +Fj(x)3019 556 y Fh(\015)3064 541 y Fw(\))p Fj(s)34 b +Fw(is)g(the)g(squared)0 649 y(reduced)42 b(hadronic)e(c.m.)68 +b(energy)-8 b(,)44 b(and)d Fj(\033)1621 664 y Fl(0)1701 +649 y Fw(is)g(the)g(ordinary)f(annihilation)d(cross)42 +b(section)f(at)f(the)0 757 y(reduced)g(energy)-8 b(.)64 +b(In)39 b(particular,)f(the)i(selection)e(of)g(jet)h(\015a)m(v)m(ours)i +(should)d(b)s(e)h(done)h(according)e(to)0 866 y(exp)s(ectations)f(at)e +(the)h(reduced)i(energy)-8 b(.)54 b(The)37 b(cross)g(section)f(is)g +(div)m(ergen)m(t)g(b)s(oth)g(for)f Fj(x)3326 881 y Fh(\015)3405 +866 y Fn(!)e Fw(1)i(and)0 974 y Fj(x)55 989 y Fh(\015)131 +974 y Fn(!)c Fw(0.)49 b(The)36 b(former)d(is)i(related)f(to)g(the)h +(fact)g(that)f Fj(\033)2085 989 y Fl(0)2159 974 y Fw(has)h(a)g(1)p +Fj(=)t Fw(^)-53 b Fj(s)34 b Fw(singularit)m(y)f(\(the)i(real)e(photon)0 +1082 y(p)s(ole\))j(for)41 b(^)-53 b Fj(s)36 b Fn(!)g +Fw(0.)58 b(An)37 b(upp)s(er)h(cut)g(on)g Fj(x)1574 1097 +y Fh(\015)1656 1082 y Fw(can)f(here)i(b)s(e)e(c)m(hosen)i(to)e(\014t)h +(the)g(exp)s(erimen)m(tal)e(setup.)0 1191 y(The)41 b(latter)d(is)h(a)g +(soft)h(photon)g(singularit)m(y)-8 b(,)39 b(whic)m(h)h(is)f(to)h(b)s(e) +f(comp)s(ensated)h(in)f(the)h(no-radiation)0 1299 y(cross)47 +b(section.)85 b(A)47 b(requiremen)m(t)f Fj(x)1388 1314 +y Fh(\015)1484 1299 y Fj(>)51 b Fw(0)p Fj(:)p Fw(01)46 +b(has)h(therefore)g(b)s(een)g(c)m(hosen)h(so)e(that)g(the)h(hard-)0 +1407 y(photon)c(fraction)f(is)h(smaller)f(than)h(unit)m(y)-8 +b(.)76 b(In)43 b(the)h(total)e(cross)i(section,)i(e\013ects)f(from)d +(photons)0 1516 y(with)g Fj(x)287 1531 y Fh(\015)377 +1516 y Fj(<)j Fw(0)p Fj(:)p Fw(01)d(are)g(tak)m(en)i(in)m(to)e(accoun)m +(t,)k(together)d(with)f(v)m(ertex)j(and)d(v)-5 b(acuum)43 +b(p)s(olarization)0 1624 y(corrections)c(\(hadronic)g(v)-5 +b(acuum)39 b(p)s(olarizations)e(using)i(a)g(simple)f(parametrization)f +(of)h(the)i(more)0 1732 y(complicated)31 b(form)m(ulae)g(of)h(ref.)44 +b([Ber82]\).)146 1841 y(The)32 b(hard)f(photon)g(sp)s(ectrum)g(can)g(b) +s(e)g(in)m(tegrated)g(analytically)-8 b(,)28 b(for)j(the)g(full)e +Fj(\015)3176 1804 y Fk(\003)3216 1841 y Fj(=)p Fw(Z)3325 +1804 y Fl(0)3394 1841 y Fw(structure)0 1949 y(including)24 +b(in)m(terference)k(terms,)g(pro)m(vided)e(that)g(no)h(new)g(\015a)m(v) +m(our)g(thresholds)g(are)f(crossed)i(and)f(that)0 2057 +y(the)40 b Fj(R)249 2072 y Fl(QCD)454 2057 y Fw(term)f(in)g(the)i +(cross)g(section)f(can)g(b)s(e)g(appro)m(ximated)f(b)m(y)i(a)f(constan) +m(t)h(o)m(v)m(er)g(the)f(range)0 2166 y(of)45 b(allo)m(w)m(ed)j(^)-53 +b Fj(s)45 b Fw(v)-5 b(alues.)81 b(In)45 b(fact,)j(threshold)e +(e\013ects)g(can)f(b)s(e)h(tak)m(en)g(in)m(to)e(accoun)m(t)i(b)m(y)g +(standard)0 2274 y(rejection)28 b(tec)m(hniques,)k(at)c(the)h(price)g +(of)f(not)h(obtaining)d(the)k(exact)f(cross)h(section)f(analytically)-8 +b(,)26 b(but)0 2382 y(only)39 b(b)m(y)i(an)e(e\013ectiv)m(e)i(Mon)m(te) +f(Carlo)f(in)m(tegration)f(taking)h(place)g(in)g(parallel)e(with)i(the) +h(ordinary)0 2491 y(ev)m(en)m(t)j(generation.)67 b(In)41 +b(addition)e(to)h Fj(x)1510 2506 y Fh(\015)1555 2491 +y Fw(,)j(the)e(p)s(olar)e(angle)h Fj(\022)2369 2506 y +Fh(\015)2454 2491 y Fw(and)h(azim)m(uthal)e(angle)h Fj(')3440 +2506 y Fh(\015)3525 2491 y Fw(of)g(the)0 2599 y(photons)k(are)f(also)f +(to)h(b)s(e)h(c)m(hosen.)77 b(F)-8 b(urther,)46 b(for)d(the)h(orien)m +(tation)d(of)i(the)h(hadronic)f(system,)k(a)0 2707 y(c)m(hoice)39 +b(has)f(to)g(b)s(e)h(made)f(whether)i(the)e(photon)h(is)f(to)g(b)s(e)g +(considered)h(as)g(ha)m(ving)f(b)s(een)h(radiated)0 2816 +y(from)31 b(the)i(e)441 2780 y Fl(+)533 2816 y Fw(or)f(from)g(the)h(e) +1094 2780 y Fk(\000)1153 2816 y Fw(.)146 2924 y(Final-state)40 +b(photon)j(radiation,)f(as)g(w)m(ell)g(as)g(in)m(terference)i(b)s(et)m +(w)m(een)g(initial-)38 b(and)k(\014nal-state)0 3032 y(radiation,)e(has) +g(b)s(een)g(left)g(out)f(of)h(this)f(treatmen)m(t.)66 +b(The)41 b(form)m(ulae)d(for)h(e)2875 2996 y Fl(+)2935 +3032 y Fw(e)2978 2996 y Fk(\000)3077 3032 y Fn(!)h Fj(\026)3276 +2996 y Fl(+)3335 3032 y Fj(\026)3394 2996 y Fk(\000)3492 +3032 y Fw(cannot)0 3141 y(b)s(e)d(simply)d(tak)m(en)k(o)m(v)m(er)f(for) +f(the)h(case)g(of)f(outgoing)e(quarks,)39 b(since)e(the)g(quarks)g(as)g +(suc)m(h)g(only)f(liv)m(e)0 3249 y(for)d(a)g(short)g(while)g(b)s(efore) +g(turning)g(in)m(to)f(hadrons.)46 b(Another)34 b(simpli\014cation)c(in) +j(our)g(treatmen)m(t)g(is)0 3357 y(that)h(e\013ects)h(of)f(incoming)d +(p)s(olarized)i(e)1506 3321 y Fk(\006)1599 3357 y Fw(b)s(eams)h(ha)m(v) +m(e)h(b)s(een)g(completely)e(neglected,)i(i.e.)47 b(neither)0 +3466 y(the)29 b(e\013ectiv)m(e)g(shift)f(in)f(azim)m(uthal)f +(distribution)g(of)i(photons)h(nor)f(the)g(reduction)h(in)e(p)s +(olarization)e(is)0 3574 y(included.)41 b(The)27 b(p)s(olarization)c +(parameters)j(of)g(the)g(program)f(are)h(to)g(b)s(e)g(though)m(t)h(of)e +(as)i(the)f(e\013ectiv)m(e)0 3682 y(p)s(olarization)j(surviving)j +(after)h(initial-state)c(radiation.)0 3930 y Fo(6.1.9)112 +b(Alternativ)m(e)36 b(matrix)g(elemen)m(ts)0 4103 y Fw(The)c(program)e +(con)m(tains)h(t)m(w)m(o)g(sets)i(of)d(`to)m(y)i(mo)s(del')d(matrix)h +(elemen)m(ts,)h(one)h(for)e(an)h(Ab)s(elian)e(v)m(ector)0 +4211 y(gluon)42 b(mo)s(del)g(and)h(one)g(for)g(a)g(scalar)f(gluon)g(mo) +s(del.)74 b(Clearly)42 b(b)s(oth)h(of)f(these)j(alternativ)m(es)d(are)0 +4320 y(already)32 b(excluded)i(b)m(y)g(data,)f(and)g(are)f(an)m(yw)m(a) +m(y)j(not)e(viable)f(alternativ)m(es)g(for)g(a)h(consisten)m(t)h +(theory)0 4428 y(of)h(strong)h(in)m(teractions.)53 b(They)37 +b(are)f(therefore)g(included)f(more)h(as)g(references)h(to)f(sho)m(w)h +(ho)m(w)f(w)m(ell)0 4536 y(the)d(c)m(haracteristic)f(features)i(of)e +(QCD)g(can)h(b)s(e)g(measured)g(exp)s(erimen)m(tally)-8 +b(.)146 4645 y(Second-order)29 b(matrix)d(elemen)m(ts)j(are)f(a)m(v)-5 +b(ailable)25 b(for)j(the)g(Ab)s(elian)e(v)m(ector)j(gluon)e(mo)s(del.) +41 b(These)0 4753 y(are)k(easily)g(obtained)g(from)f(the)i(standard)f +(QCD)h(matrix)d(elemen)m(ts)j(b)m(y)g(a)f(substitution)g(of)g(the)0 +4861 y(Casimir)33 b(group)j(factors:)49 b Fj(C)1077 4876 +y Fh(F)1168 4861 y Fw(=)32 b(4)p Fj(=)p Fw(3)g Fn(!)g +Fw(1,)k Fj(N)1777 4876 y Fh(C)1869 4861 y Fw(=)c(3)h +Fn(!)f Fw(0,)k(and)f Fj(T)2552 4876 y Fh(R)2643 4861 +y Fw(=)d Fj(n)2809 4876 y Fl(f)2840 4861 y Fj(=)p Fw(2)h +Fn(!)f Fw(3)p Fj(n)3210 4876 y Fl(f)3241 4861 y Fw(.)52 +b(First-order)0 4970 y(matrix)31 b(elemen)m(ts)i(con)m(tain)g(only)f +Fj(C)1345 4985 y Fh(F)1403 4970 y Fw(;)h(therefore)h(the)f(standard)g +(\014rst-order)g(QCD)g(results)g(ma)m(y)f(b)s(e)0 5078 +y(reco)m(v)m(ered)42 b(b)m(y)f(a)f(rescaling)f(of)h Fj(\013)1260 +5093 y Fl(s)1332 5078 y Fw(b)m(y)h(a)e(factor)h(4)p Fj(=)p +Fw(3.)65 b(In)40 b(second)i(order)e(the)g(c)m(hange)h(of)f +Fj(N)3505 5093 y Fh(C)3604 5078 y Fw(to)g(0)0 5186 y(means)32 +b(that)f(g)e Fn(!)e Fw(gg)32 b(couplings)f(are)g(absen)m(t)i(from)d +(the)i(Ab)s(elian)e(mo)s(del,)h(while)f(the)i(c)m(hange)h(of)e +Fj(T)3722 5201 y Fh(R)0 5295 y Fw(corresp)s(onds)37 b(to)f(an)f +(enhancemen)m(t)j(of)d(the)h(g)f Fn(!)e Fw(q)1944 5259 +y Fk(0)p 1967 5242 52 4 v 1967 5295 a Fw(q)2019 5259 +y Fk(0)2078 5295 y Fw(coupling,)i(i.e.)53 b(to)36 b(an)f(enhancemen)m +(t)j(of)d(the)0 5403 y(q)p 51 5350 V(q)q(q)154 5367 y +Fk(0)p 178 5350 V 178 5403 a Fw(q)229 5367 y Fk(0)285 +5403 y Fw(4-jet)d(ev)m(en)m(t)i(rate.)146 5511 y(The)39 +b(second-order)f(corrections)f(to)g(the)h(3-jet)e(rate)i(turn)f(out)g +(to)g(b)s(e)h(strongly)e(negativ)m(e)i(|)f(if)0 5620 +y Fj(\013)62 5635 y Fl(s)126 5620 y Fw(is)32 b(\014tted)h(to)e(get)i +(ab)s(out)e(the)i(righ)m(t)e(rate)h(of)g(4-jet)g(ev)m(en)m(ts,)i(the)f +(predicted)g(di\013eren)m(tial)d(3-jet)i(rate)1841 5953 +y(77)p eop +%%Page: 78 84 +78 83 bop 0 -18 a Fw(is)36 b(negativ)m(e)i(almost)d(ev)m(erywhere)40 +b(in)c(the)h(\()p Fj(x)1705 -3 y Fl(1)1745 -18 y Fj(;)17 +b(x)1844 -3 y Fl(2)1884 -18 y Fw(\))37 b(plane.)56 b(Whether)38 +b(this)e(unph)m(ysical)i(b)s(eha)m(viour)0 90 y(w)m(ould)i(b)s(e)g(sa)m +(v)m(ed)i(b)m(y)f(higher)e(orders)i(is)e(unclear.)66 +b(It)40 b(has)g(b)s(een)h(p)s(oin)m(ted)e(out)h(that)g(the)g(rate)g +(can)0 198 y(b)s(e)35 b(made)f(p)s(ositiv)m(e)h(b)m(y)g(a)g(suitable)f +(c)m(hoice)h(of)g(scale,)g(since)g Fj(\013)2320 213 y +Fl(s)2387 198 y Fw(runs)h(in)e(opp)s(osite)g(directions)g(in)h(an)0 +307 y(Ab)s(elian)d(mo)s(del)g(and)h(in)g(QCD)g([Bet89].)47 +b(This)33 b(ma)m(y)h(b)s(e)f(seen)i(directly)e(from)f(eq.)47 +b(\(39\),)33 b(where)i(the)0 415 y(term)e(33)28 b(=)h(11)p +Fj(N)641 430 y Fh(C)733 415 y Fw(is)k(absen)m(t)h(in)f(the)h(Ab)s +(elian)d(mo)s(del,)h(and)i(therefore)g(the)f(scale-dep)s(enden)m(t)i +(term)0 523 y(c)m(hanges)k(sign.)56 b(In)38 b(the)f(program,)g +(optimized)f(scales)h(ha)m(v)m(e)i(not)e(b)s(een)h(implemen)m(ted)e +(for)g(this)h(to)m(y)0 632 y(mo)s(del.)i(Therefore)26 +b(the)f(alternativ)m(es)g(pro)m(vided)g(for)f(y)m(ou)i(are)e(either)h +(to)f(generate)i(only)e(4-jet)g(ev)m(en)m(ts,)0 740 y(or)32 +b(to)g(neglect)h(second-order)g(corrections)g(to)f(the)h(3-jet)e(rate,) +i(or)f(to)g(ha)m(v)m(e)i(the)f(total)e(3-jet)g(rate)i(set)0 +848 y(v)-5 b(anishing)28 b(\(so)i(that)f(only)g(2-)f(and)i(4-jet)e(ev)m +(en)m(ts)k(are)e(generated\).)43 b(Normally)27 b(w)m(e)j(w)m(ould)f +(exp)s(ect)i(the)0 957 y(former)39 b(to)h(b)s(e)g(the)h(one)f(of)g +(most)g(in)m(terest,)i(since)f(it)e(is)h(in)f(angular)g(\(and)h(\015a)m +(v)m(our\))h(distributions)0 1065 y(of)i(4-jet)g(ev)m(en)m(ts)j(that)d +(the)h(structure)h(of)e(QCD)g(can)h(b)s(e)f(tested.)78 +b(Also)43 b(note)g(that)h(the)g(`correct')0 1173 y(running)35 +b(of)h Fj(\013)543 1188 y Fl(s)610 1173 y Fw(is)g(not)f(included;)i(y)m +(ou)g(are)f(exp)s(ected)h(to)f(use)g(the)h(option)d(where)j +Fj(\013)3192 1188 y Fl(s)3260 1173 y Fw(is)e(just)h(giv)m(en)0 +1282 y(as)d(a)f(constan)m(t)i(n)m(um)m(b)s(er.)146 1390 +y(The)47 b(scalar)d(gluon)h(mo)s(del)e(is)i(ev)m(en)i(more)d(excluded)j +(than)e(the)h(Ab)s(elian)e(v)m(ector)i(one,)j(since)0 +1498 y(di\013erences)34 b(app)s(ear)e(already)g(in)g(the)h(3-jet)f +(matrix)f(elemen)m(t)h([Lae80]:)1415 1688 y(d)p Fj(\033)p +1315 1732 315 4 v 1315 1823 a Fw(d)p Fj(x)1424 1838 y +Fl(1)1480 1823 y Fw(d)p Fj(x)1589 1838 y Fl(2)1667 1755 +y Fn(/)2076 1688 y Fj(x)2131 1652 y Fl(2)2131 1712 y(3)p +1782 1732 683 4 v 1782 1823 a Fw(\(1)22 b Fn(\000)h Fj(x)2046 +1838 y Fl(1)2086 1823 y Fw(\)\(1)e Fn(\000)i Fj(x)2387 +1838 y Fl(2)2427 1823 y Fw(\))3606 1755 y(\(43\))0 2013 +y(when)46 b(only)e Fj(\015)50 b Fw(exc)m(hange)c(is)e(included.)80 +b(The)45 b(axial)e(part)i(of)f(the)h(Z)2645 1977 y Fl(0)2729 +2013 y Fw(giv)m(es)g(a)f(sligh)m(tly)f(di\013eren)m(t)0 +2121 y(shap)s(e;)38 b(this)d(is)f(included)h(in)g(the)h(program)e(but)h +(do)s(es)h(not)f(mak)m(e)h(m)m(uc)m(h)g(di\013erence.)52 +b(The)37 b(angular)0 2230 y(orien)m(tation)26 b(do)s(es)i(include)g +(the)g(full)e Fj(\015)1423 2193 y Fk(\003)1462 2230 y +Fj(=)p Fw(Z)1571 2193 y Fl(0)1638 2230 y Fw(in)m(terference)j([Lae80],) +g(but)f(the)g(main)e(in)m(terest)j(is)e(in)g(the)0 2338 +y(3-jet)22 b(top)s(ology)e(as)j(suc)m(h)h([Ell79)n(].)40 +b(No)22 b(higher-order)g(corrections)g(are)g(included.)40 +b(It)22 b(is)g(recommended)0 2446 y(to)32 b(use)i(the)f(option)e(of)h +(a)h(\014xed)g Fj(\013)1249 2461 y Fl(s)1314 2446 y Fw(also)f(here,)h +(since)g(the)g(correct)g(running)f(is)g(not)h(a)m(v)-5 +b(ailable.)0 2717 y Fp(6.2)135 b(Deca)l(ys)46 b(of)f(Onia)h(Resonances) +0 2890 y Fw(Man)m(y)35 b(di\013eren)m(t)g(p)s(ossibilities)c(are)k(op)s +(en)f(for)g(the)h(deca)m(y)h(of)d(hea)m(vy)j Fj(J)2640 +2853 y Fh(P)10 b(C)2785 2890 y Fw(=)30 b(1)2940 2853 +y Fk(\000\000)3088 2890 y Fw(onia)k(resonances.)0 2998 +y(Of)40 b(sp)s(ecial)g(in)m(terest)h(are)g(the)g(deca)m(ys)h(in)m(to)e +(three)i(gluons)e(or)g(t)m(w)m(o)h(gluons)f(plus)h(a)f(photon,)j(since) +0 3106 y(these)37 b(o\013er)e(unique)i(p)s(ossibilities)32 +b(to)k(study)g(a)g(`pure)g(sample')f(of)g(gluon)g(jets.)53 +b(A)36 b(routine)f(for)g(this)0 3215 y(purp)s(ose)44 +b(is)f(included)h(in)e(the)j(program.)75 b(It)43 b(w)m(as)i(written)e +(at)h(a)f(time)f(where)j(the)f(exp)s(ectations)0 3323 +y(w)m(ere)32 b(to)e(\014nd)h(top)s(onium)d(at)i(PETRA)i(energies.)43 +b(If,)31 b(as)f(no)m(w)h(seems)h(lik)m(ely)-8 b(,)29 +b(the)i(top)f(mass)h(is)f(ab)s(o)m(v)m(e)0 3431 y(100)i(GeV,)g(w)m(eak) +h(deca)m(ys)i(will)30 b(dominate,)h(to)g(the)i(exten)m(t)h(that)e(the)h +(top)f(quark)h(will)d(deca)m(y)k(w)m(eakly)0 3540 y(ev)m(en)g(b)s +(efore)e(a)g(b)s(ound)g(top)s(onium)e(state)j(is)e(formed,)h(and)g(th)m +(us)h(the)g(routine)e(will)f(b)s(e)i(of)g(no)g(use)h(for)0 +3648 y(top.)55 b(The)37 b(c)m(harm)f(system,)j(on)d(the)h(other)f +(hand,)i(is)e(far)g(to)s(o)f(lo)m(w)h(in)g(mass)g(for)g(a)g(jet)h +(language)e(to)0 3756 y(b)s(e)i(of)f(an)m(y)h(use.)56 +b(The)37 b(only)f(application)e(is)i(therefore)h(lik)m(ely)e(to)h(b)s +(e)h(for)e(\007,)j(whic)m(h)f(unfortunately)0 3865 y(also)32 +b(is)g(on)g(the)h(lo)m(w)f(side)h(in)f(mass.)146 3973 +y(The)i(matrix)d(elemen)m(t)h(for)g(q)p 1224 3920 52 +4 v(q)d Fn(!)e Fw(ggg)33 b(is)g(\(in)e(lo)m(w)m(est)i(order\))g([Kol78) +n(])584 4165 y(1)p 525 4210 167 4 v 525 4301 a Fj(\033)580 +4316 y Fl(ggg)759 4165 y Fw(d)p Fj(\033)868 4180 y Fl(ggg)p +712 4210 315 4 v 712 4301 a Fw(d)p Fj(x)821 4316 y Fl(1)877 +4301 y Fw(d)p Fj(x)986 4316 y Fl(2)1064 4233 y Fw(=)1288 +4165 y(1)p 1177 4210 269 4 v 1177 4301 a Fj(\031)1236 +4272 y Fl(2)1298 4301 y Fn(\000)23 b Fw(9)1473 4087 y +Fg(\()1540 4112 y(\022)1611 4165 y Fw(1)f Fn(\000)g Fj(x)1836 +4180 y Fl(1)p 1611 4210 266 4 v 1649 4301 a Fj(x)1704 +4316 y Fl(2)1744 4301 y Fj(x)1799 4316 y Fl(3)1886 4112 +y Fg(\023)1947 4128 y Fl(2)2009 4233 y Fw(+)2107 4112 +y Fg(\022)2178 4165 y Fw(1)g Fn(\000)h Fj(x)2404 4180 +y Fl(2)p 2178 4210 V 2216 4301 a Fj(x)2271 4316 y Fl(1)2311 +4301 y Fj(x)2366 4316 y Fl(3)2453 4112 y Fg(\023)2515 +4128 y Fl(2)2576 4233 y Fw(+)2674 4112 y Fg(\022)2745 +4165 y Fw(1)f Fn(\000)h Fj(x)2971 4180 y Fl(3)p 2745 +4210 V 2783 4301 a Fj(x)2838 4316 y Fl(1)2878 4301 y +Fj(x)2933 4316 y Fl(2)3021 4112 y Fg(\023)3082 4128 y +Fl(2)3121 4087 y Fg(\))3237 4233 y Fj(;)342 b Fw(\(44\))0 +4493 y(where,)43 b(as)d(b)s(efore,)j Fj(x)830 4508 y +Fh(i)899 4493 y Fw(=)d(2)p Fj(E)1136 4508 y Fh(i)1164 +4493 y Fj(=E)1285 4508 y Fl(cm)1419 4493 y Fw(in)g(the)g(c.m.)66 +b(frame)39 b(of)g(the)i(ev)m(en)m(t.)68 b(This)40 b(is)f(a)h(w)m +(ell-de\014ned)0 4601 y(expression,)c(without)e(the)g(kind)g(of)g +(singularities)e(encoun)m(tered)k(in)d(the)i(q)p 2794 +4548 52 4 v(q)q(g)g(matrix)e(elemen)m(ts.)48 b(In)0 4709 +y(principle,)40 b(no)f(cuts)i(at)e(all)f(w)m(ould)h(b)s(e)h(necessary) +-8 b(,)44 b(but)c(for)f(reasons)h(of)f(n)m(umerical)f(simplicit)m(y)f +(w)m(e)0 4818 y(implemen)m(t)32 b(a)h Fj(y)j Fw(cut)e(as)g(for)f(con)m +(tin)m(uum)g(jet)h(pro)s(duction,)f(with)g(all)f(ev)m(en)m(ts)j(not)f +(ful\014lling)c(this)j(cut)0 4926 y(considered)i(as)f(\(e\013ectiv)m +(e\))g(gg)h(ev)m(en)m(ts.)50 b(F)-8 b(or)33 b(ggg)h(ev)m(en)m(ts,)j +(eac)m(h)d(gg)h(in)m(v)-5 b(arian)m(t)32 b(mass)i(is)g(required)g(to)0 +5034 y(b)s(e)f(at)f(least)g(2)g(GeV.)146 5143 y(Another)d(pro)s(cess)h +(is)e(q)p 1005 5090 V(q)g Fn(!)g Fj(\015)5 b Fw(gg)q(,)29 +b(obtained)f(b)m(y)h(replacing)e(a)h(gluon)f(in)h(q)p +2863 5090 V(q)h Fn(!)e Fw(ggg)i(b)m(y)g(a)f(photon.)0 +5251 y(This)36 b(pro)s(cess)h(has)f(the)g(same)g(normalized)e(cross)j +(section)f(as)g(the)g(one)g(ab)s(o)m(v)m(e,)h(if)e(e.g.)54 +b Fj(x)3370 5266 y Fl(1)3445 5251 y Fw(is)35 b(tak)m(en)0 +5359 y(to)d(refer)h(to)f(the)h(photon.)44 b(The)33 b(relativ)m(e)f +(rate)h(is)f([Kol78)n(])1488 5556 y Fj(\033)1543 5571 +y Fh(\015)t Fl(gg)p 1488 5600 172 4 v 1490 5691 a Fj(\033)1545 +5706 y Fl(ggg)1697 5623 y Fw(=)1811 5556 y(36)p 1811 +5600 98 4 v 1835 5691 a(5)1958 5549 y Fj(e)2003 5513 +y Fl(2)2003 5573 y(q)2062 5549 y Fj(\013)2124 5564 y +Fl(em)p 1945 5600 287 4 v 1945 5691 a Fj(\013)2007 5706 +y Fl(s)2039 5691 y Fw(\()p Fj(Q)2154 5662 y Fl(2)2194 +5691 y Fw(\))2274 5623 y Fj(:)1305 b Fw(\(45\))1841 5953 +y(78)p eop +%%Page: 79 85 +79 84 bop 0 -18 a Fw(Here)31 b Fj(e)273 -3 y Fl(q)344 +-18 y Fw(is)f(the)h(c)m(harge)f(of)g(the)g(hea)m(vy)i(quark,)g(and)e +(the)g(scale)g(in)g Fj(\013)2519 -3 y Fl(s)2581 -18 y +Fw(has)g(b)s(een)h(c)m(hosen)h(as)e(the)h(mass)0 90 y(of)i(the)i(onium) +d(state.)48 b(If)34 b(the)g(mass)g(of)f(the)h(recoiling)e(gg)i(system)h +(is)f(lo)m(w)m(er)g(than)f(some)h(cut-o\013)g(\(b)m(y)0 +198 y(default)e(2)g(GeV\),)h(the)g(ev)m(en)m(t)h(is)e(rejected.)146 +307 y(In)40 b(the)h(presen)m(t)g(implemen)m(tation)c(the)j(angular)e +(orien)m(tation)g(of)i(the)g(ggg)g(and)g Fj(\015)5 b +Fw(gg)41 b(ev)m(en)m(ts)h(is)0 415 y(giv)m(en)30 b(for)f(the)h(e)606 +379 y Fl(+)666 415 y Fw(e)709 379 y Fk(\000)796 415 y +Fn(!)d Fj(\015)979 379 y Fk(\003)1046 415 y Fn(!)i Fw(onium)g(case)h +([Kol78)o(])f(\(optionally)e(with)j(b)s(eam)f(p)s(olarization)d +(e\013ects)0 523 y(included\),)40 b(i.e.)62 b(w)m(eak)41 +b(e\013ects)f(ha)m(v)m(e)g(not)f(b)s(een)h(included,)g(since)f(they)h +(are)f(negligible)d(at)i(around)0 632 y(10)32 b(GeV.)146 +740 y(It)41 b(is)f(p)s(ossible)f(to)h(start)h(a)f(p)s(erturbativ)m(e)h +(sho)m(w)m(er)h(ev)m(olution)d(from)h(either)g(of)g(the)g(t)m(w)m(o)i +(states)0 848 y(ab)s(o)m(v)m(e.)h(Ho)m(w)m(ev)m(er,)33 +b(for)d(\007)f(the)h(phase)h(space)g(for)f(additional)c(ev)m(olution)j +(is)h(so)g(constrained)g(that)g(not)0 957 y(m)m(uc)m(h)40 +b(is)f(to)g(b)s(e)g(gained)g(from)f(that.)64 b(W)-8 b(e)39 +b(therefore)h(do)g(not)f(recommend)g(this)g(p)s(ossibilit)m(y)-8 +b(.)62 b(The)0 1065 y(sho)m(w)m(er)36 b(generation)e(mac)m(hinery)-8 +b(,)35 b(when)h(starting)e(up)h(from)e(a)i Fj(\015)5 +b Fw(gg)35 b(con\014guration,)g(is)f(constructed)0 1173 +y(suc)m(h)50 b(that)e(the)h(photon)f(energy)h(is)f(not)g(c)m(hanged.)92 +b(This)48 b(means)h(that)f(there)h(is)f(curren)m(tly)h(no)0 +1282 y(p)s(ossibilit)m(y)34 b(to)j(use)g(sho)m(w)m(ers)i(to)d(bring)g +(the)h(theoretical)e(photon)i(sp)s(ectrum)g(in)e(b)s(etter)i(agreemen)m +(t)0 1390 y(with)32 b(the)h(exp)s(erimen)m(tal)f(one.)146 +1498 y(In)37 b(string)f(fragmen)m(tation)e(language,)i(a)h(ggg)g(state) +f(corresp)s(onds)i(to)e(a)g(closed)h(string)e(triangle)0 +1607 y(with)f(the)g(three)h(gluons)e(at)h(the)g(corners.)49 +b(As)35 b(the)f(partons)g(mo)m(v)m(e)h(apart)e(from)g(a)h(common)f +(origin,)0 1715 y(the)39 b(string)f(triangle)e(expands.)63 +b(Since)38 b(the)h(photon)f(do)s(es)h(not)f(tak)m(e)i(part)e(in)f(the)i +(fragmen)m(tation,)0 1823 y(the)33 b Fj(\015)5 b Fw(gg)33 +b(state)g(corresp)s(onds)h(to)f(a)f(double)g(string)g(running)g(b)s(et) +m(w)m(een)j(the)e(t)m(w)m(o)g(gluons.)0 2097 y Fp(6.3)135 +b(Routines)46 b(and)f(Common)g(Blo)t(c)l(k)g(V)-11 b(ariables)0 +2270 y Fo(6.3.1)112 b Fw(e)385 2234 y Fl(+)445 2270 y +Fw(e)488 2234 y Fk(\000)585 2270 y Fo(con)m(tin)m(uum)36 +b(ev)m(en)m(t)h(generation)0 2443 y Fw(The)j(only)e(routine)h(a)g +(normal)e(user)i(will)e(call)g(to)i(generate)h(e)2349 +2406 y Fl(+)2408 2443 y Fw(e)2451 2406 y Fk(\000)2549 +2443 y Fw(con)m(tin)m(uum)f(ev)m(en)m(ts)i(is)e Fq(LUEEVT)p +Fw(.)0 2551 y(The)27 b(other)f(routines)g(listed)f(b)s(elo)m(w,)j(as)e +(w)m(ell)f(as)i Fq(LUSHOW)g Fw(\(see)g(section)g(10.4\),)f(are)h +(called)d(b)m(y)29 b Fq(LUEEVT)p Fw(.)p 0 2701 1184 9 +v 0 2926 9 225 v 79 2841 a Fq(CALL)52 b(LUEEVT\(KFL,ECM\))p +1175 2926 V 0 2934 1184 9 v 0 3075 a Fo(Purp)s(ose:)c +Fw(to)23 b(generate)g(a)g(complete)g(ev)m(en)m(t)i(e)1736 +3039 y Fl(+)1795 3075 y Fw(e)1838 3039 y Fk(\000)1925 +3075 y Fn(!)j Fj(\015)2109 3039 y Fk(\003)2148 3075 y +Fj(=)p Fw(Z)2257 3039 y Fl(0)2324 3075 y Fn(!)f Fw(q)p +2502 3022 52 4 v(q)i Fn(!)22 b Fw(parton)h(sho)m(w)m(er)i +Fn(!)e Fw(hadrons)472 3184 y(according)30 b(to)g(QFD)g(and)g(QCD)g +(cross)i(sections.)43 b(As)31 b(an)f(alternativ)m(e)g(to)g(parton)g +(sho)m(w-)472 3292 y(ers,)41 b(second-order)e(matrix)d(elemen)m(ts)i +(are)g(a)m(v)-5 b(ailable)36 b(for)h(q)p 2740 3239 V(q)27 +b(+)f(q)p 2971 3239 V(q)q(g)f(+)h(q)p 3250 3239 V(q)q(gg)f(+)h(q)p +3578 3239 V(q)q(q)3681 3256 y Fk(0)p 3705 3239 V 3705 +3292 a Fw(q)3756 3256 y Fk(0)472 3400 y Fw(pro)s(duction.)0 +3509 y Fq(KFL)52 b(:)216 b Fw(\015a)m(v)m(our)34 b(of)e(ev)m(en)m(ts)j +(generated.)236 3617 y Fq(=)52 b(0)f(:)217 b Fw(mixture)31 +b(of)i(all)d(allo)m(w)m(ed)i(\015a)m(v)m(ours)i(according)e(to)g(relev) +-5 b(an)m(t)33 b(probabilities.)236 3725 y Fq(=)52 b(1)f(-)h(8)f(:)d +Fw(primary)31 b(quarks)j(are)f(only)f(of)g(the)h(sp)s(eci\014ed)g +(\015a)m(v)m(our)h Fq(KFL)p Fw(.)0 3834 y Fq(ECM)52 b(:)216 +b Fw(total)31 b(c.m.)44 b(energy)33 b(of)f(system.)0 +3942 y Fo(Remark:)53 b Fw(Eac)m(h)41 b(call)d(generates)i(one)g(ev)m +(en)m(t,)j(whic)m(h)d(is)f(indep)s(enden)m(t)i(of)e(preceding)h(ones,)i +(with)472 4050 y(one)e(exception,)h(as)f(follo)m(ws.)62 +b(If)39 b(radiativ)m(e)f(corrections)h(are)g(included,)i(the)e(shap)s +(e)h(of)472 4159 y(the)f(hard)g(photon)f(sp)s(ectrum)h(is)f +(recalculated)g(only)g(with)g(eac)m(h)i Fq(LUXTOT)g Fw(call,)e(whic)m +(h)472 4267 y(normally)33 b(is)i(done)h(only)f(if)41 +b Fq(KFL)p Fw(,)c Fq(ECM)f Fw(or)f Fq(MSTJ\(102\))j Fw(is)c(c)m +(hanged.)54 b(A)35 b(c)m(hange)h(of)f(e.g.)472 4375 y(the)i(Z)704 +4339 y Fl(0)779 4375 y Fw(mass)e(in)h(mid-run)e(has)i(to)g(b)s(e)g +(follo)m(w)m(ed)f(either)g(b)m(y)i(a)f(user)h(call)d(to)h +Fq(LUXTOT)j Fw(or)472 4484 y(b)m(y)c(an)e(in)m(ternal)g(call)f(forced)i +(e.g.)43 b(b)m(y)34 b(putting)f Fq(MSTJ\(116\)=3)p Fw(.)0 +4671 y Fq(SUBROUTINE)54 b(LUXTOT\(KFL,ECM,XTOT\))j(:)47 +b Fw(to)33 b(calculate)g(the)g(total)f(hadronic)h(cross)i(section,)f +(in-)472 4780 y(cluding)i(quark)i(thresholds,)h(w)m(eak,)g(b)s(eam)d(p) +s(olarization,)f(and)i(QCD)g(e\013ects)h(and)f(ra-)472 +4888 y(diativ)m(e)42 b(corrections.)71 b(In)42 b(the)h(pro)s(cess,)i(v) +-5 b(ariables)41 b(necessary)j(for)e(the)g(treatmen)m(t)g(of)472 +4996 y(hard)33 b(photon)g(radiation)d(are)j(calculated)e(and)i(stored.) +236 5105 y Fq(KFL,)53 b(ECM)f(:)47 b Fw(as)33 b(for)f +Fq(LUEEVT)p Fw(.)236 5213 y Fq(XTOT)53 b(:)165 b Fw(the)33 +b(calculated)e(total)g(cross)j(section)f(in)e(n)m(b.)0 +5321 y Fq(SUBROUTINE)54 b(LURADK\(ECM,MK,PAK,THEK,PH)q(IK,A)q(LPK\))k +(:)47 b Fw(to)k(describ)s(e)g(initial-state)d(hard)j +Fj(\015)472 5430 y Fw(radiation.)0 5538 y Fq(SUBROUTINE)j +(LUXKFL\(KFL,ECM,ECMC,KFLC\))k(:)47 b Fw(to)42 b(generate)g(the)g +(primary)f(quark)i(\015a)m(v)m(our)f(in)472 5646 y(case)34 +b(this)e(is)g(not)h(sp)s(eci\014ed)g(b)m(y)h(the)f(user.)1841 +5953 y(79)p eop +%%Page: 80 86 +80 85 bop 0 -18 a Fq(SUBROUTINE)54 b(LUXJET\(ECM,NJET,CUT\))j(:)47 +b Fw(to)29 b(determine)g(the)h(n)m(um)m(b)s(er)f(of)g(jets)h(\(2,)g(3)e +(or)h(4\))g(to)g(b)s(e)472 90 y(generated)23 b(within)e(the)h +(kinematically)d(allo)m(w)m(ed)j(region)f(\(c)m(haracterized)h(b)m(y)j +Fq(CUT)d Fw(=)28 b Fj(y)3640 105 y Fl(cut)3742 90 y Fw(\))472 +198 y(in)39 b(the)h(matrix-elemen)m(t)e(approac)m(h;)43 +b(to)d(b)s(e)g(c)m(hosen)h(suc)m(h)g(that)e(all)f(probabilities)e(are) +472 307 y(b)s(et)m(w)m(een)f(0)d(and)h(1.)0 415 y Fq(SUBROUTINE)54 +b(LUX3JT\(NJET,CUT,KFL,ECM,X)q(1,X2)q(\))j(:)48 b Fw(to)35 +b(generate)g(the)h(in)m(ternal)e(momen)m(tum)472 523 +y(v)-5 b(ariables)29 b(of)h(a)f(3-jet)h(ev)m(en)m(t,)i(q)p +1617 470 52 4 v(q)q(g)q(,)f(according)e(to)h(\014rst-)g(or)f +(second-order)i(QCD)f(matrix)472 632 y(elemen)m(ts.)0 +740 y Fq(SUBROUTINE)54 b(LUX4JT\(NJET,CUT,KFL,ECM,K)q(FLN,)q(X1,X)q +(2,X)q(4,X1)q(2,X1)q(4\))j(:)48 b Fw(to)64 b(generate)g(the)472 +848 y(in)m(ternal)40 b(momen)m(tum)g(v)-5 b(ariables)40 +b(for)h(a)g(4-jet)f(ev)m(en)m(t,)45 b(q)p 2602 795 V(q)q(gg)d(or)f(q)p +2973 795 V(q)q(q)3076 812 y Fk(0)p 3100 795 V 3100 848 +a Fw(q)3152 812 y Fk(0)3175 848 y Fw(,)i(according)e(to)472 +957 y(second-order)34 b(QCD)e(matrix)f(elemen)m(ts.)0 +1065 y Fq(SUBROUTINE)54 b(LUXDIF\(NC,NJET,KFL,ECM,CH)q(I,TH)q(E,PH)q +(I\))k(:)47 b Fw(to)35 b(describ)s(e)h(the)g(angular)e(orien-)472 +1173 y(tation)29 b(of)g(the)h(jets.)43 b(In)30 b(\014rst-order)g(QCD)f +(the)h(complete)f(QED)g(or)h(QFD)e(form)m(ulae)g(are)472 +1282 y(used;)46 b(in)39 b(second)j(order)e(3-jets)g(are)g(assumed)h(to) +f(ha)m(v)m(e)i(the)e(same)g(orien)m(tation)f(as)h(in)472 +1390 y(\014rst,)34 b(and)e(4-jets)h(are)f(appro)m(ximated)g(b)m(y)i +(3-jets.)0 1638 y Fo(6.3.2)112 b(A)37 b(routine)g(for)g(onium)g(deca)m +(y)0 1810 y Fw(In)31 b Fq(LUONIA)h Fw(w)m(e)g(ha)m(v)m(e)f(implemen)m +(ted)f(the)h(deca)m(ys)h(of)e(hea)m(vy)i(onia)d(resonances)k(in)m(to)d +(three)h(gluons)f(or)0 1919 y(t)m(w)m(o)j(gluons)f(plus)h(a)f(photon,)h +(whic)m(h)g(are)f(the)h(dominan)m(t)f(non-bac)m(kground-lik)m(e)g(deca) +m(ys)i(of)e(\007.)p 0 2063 1184 9 v 0 2288 9 225 v 79 +2203 a Fq(CALL)52 b(LUONIA\(KFL,ECM\))p 1175 2288 V 0 +2296 1184 9 v 0 2435 a Fo(Purp)s(ose:)c Fw(to)27 b(sim)m(ulate)e(the)j +(pro)s(cess)g(e)1516 2399 y Fl(+)1576 2435 y Fw(e)1619 +2399 y Fk(\000)1706 2435 y Fn(!)f Fj(\015)1889 2399 y +Fk(\003)1956 2435 y Fn(!)g Fw(1)2132 2399 y Fk(\000\000)2273 +2435 y Fw(onium)f(resonance)i Fn(!)g Fw(\(ggg)g(or)e(gg)q +Fj(\015)5 b Fw(\))28 b Fn(!)472 2543 y Fw(sho)m(w)m(er)35 +b Fn(!)d Fw(hadrons.)0 2652 y Fq(KFL)52 b(:)216 b Fw(the)33 +b(\015a)m(v)m(our)h(of)e(the)h(quark)g(giving)e(rise)i(to)f(the)h +(resonance.)236 2760 y Fq(=)52 b(0)f(:)217 b Fw(generate)33 +b(ggg)g(ev)m(en)m(ts)i(alone.)236 2868 y Fq(=)52 b(1)f(-)h(8)f(:)d +Fw(generate)i(ggg)g(and)g(gg)q Fj(\015)k Fw(ev)m(en)m(ts)e(in)d +(mixture)g(determined)h(b)m(y)g(the)g(squared)709 2977 +y(c)m(harge)33 b(of)f(\015a)m(v)m(our)h Fq(KFL)p Fw(.)h(Normally)d +Fq(KFL=)j Fw(5)e(or)g(6.)0 3085 y Fq(ECM)52 b(:)216 b +Fw(total)31 b(c.m.)44 b(energy)33 b(of)f(system.)0 3333 +y Fo(6.3.3)112 b(Common)37 b(blo)s(c)m(k)g(v)-6 b(ariables)0 +3505 y Fw(The)41 b(status)h(co)s(des)f(and)g(parameters)f(relev)-5 +b(an)m(t)41 b(for)f(the)h(e)2239 3469 y Fl(+)2298 3505 +y Fw(e)2341 3469 y Fk(\000)2441 3505 y Fw(routines)g(are)f(found)h(in)f +(the)h(com-)0 3614 y(mon)k(blo)s(c)m(k)h Fq(LUDAT1)p +Fw(.)86 b(This)46 b(common)f(blo)s(c)m(k)h(also)f(con)m(tains)i(more)e +(general)h(status)g(co)s(des)h(and)0 3722 y(parameters,)33 +b(describ)s(ed)g(elsewhere.)p 0 3866 2876 9 v 0 4091 +9 225 v 79 4006 a Fq(COMMON/LUDAT1/MSTU\(200\),)q(PARU)q(\(200)q(\),MS) +q(TJ\()q(200\))q(,PAR)q(J\(20)q(0\))p 2867 4091 V 0 4099 +2876 9 v 0 4231 a Fo(Purp)s(ose:)48 b Fw(to)f(giv)m(e)h(access)i(to)d +(a)h(n)m(um)m(b)s(er)g(of)f(status)i(co)s(des)f(and)g(parameters)g +(regulating)e(the)472 4339 y(p)s(erformance)33 b(of)f(the)h(e)1353 +4303 y Fl(+)1412 4339 y Fw(e)1455 4303 y Fk(\000)1547 +4339 y Fw(ev)m(en)m(t)h(generation)e(routines.)0 4448 +y Fq(MSTJ\(101\))54 b(:)47 b Fw(\(D=5\))29 b(giv)m(es)i(the)g(t)m(yp)s +(e)g(of)e(QCD)h(corrections)h(used)g(for)f(con)m(tin)m(uum)g(ev)m(en)m +(ts.)236 4556 y Fq(=)52 b(0)f(:)217 b Fw(only)32 b(q)p +974 4503 52 4 v(q)h(ev)m(en)m(ts)i(are)e(generated.)236 +4664 y Fq(=)52 b(1)f(:)217 b Fw(q)p 760 4612 V(q)23 b(+)f(q)p +983 4612 V(q)q(g)33 b(ev)m(en)m(ts)i(are)e(generated)g(according)f(to)g +(\014rst-order)h(QCD.)236 4773 y Fq(=)52 b(2)f(:)217 +b Fw(q)p 760 4720 V(q)20 b(+)f(q)p 977 4720 V(qg)g(+)g(q)p +1242 4720 V(q)q(gg)g(+)g(q)p 1557 4720 V(q)q(q)1660 4737 +y Fk(0)p 1683 4720 V 1683 4773 a Fw(q)1735 4737 y Fk(0)1789 +4773 y Fw(ev)m(en)m(ts)33 b(are)e(generated)h(according)f(to)f +(second-order)709 4881 y(QCD.)236 4989 y Fq(=)52 b(3)f(:)217 +b Fw(q)p 760 4937 V(q)18 b(+)g(q)p 974 4937 V(q)q(g)f(+)h(q)p +1237 4937 V(q)q(gg)f(+)h(q)p 1549 4937 V(q)q(q)1652 4953 +y Fk(0)p 1676 4937 V 1676 4989 a Fw(q)1727 4953 y Fk(0)1781 +4989 y Fw(ev)m(en)m(ts)33 b(are)d(generated,)i(but)f(without)e +(second-order)709 5098 y(corrections)j(to)h(the)g(3-jet)f(rate.)236 +5206 y Fq(=)52 b(5)f(:)217 b Fw(a)51 b(parton)g(sho)m(w)m(er)i(is)e +(allo)m(w)m(ed)g(to)g(dev)m(elop)i(from)d(an)h(original)e(q)p +3300 5153 V(q)j(pair,)j(see)709 5315 y Fq(MSTJ\(40\))e(-)f(MSTJ\(50\)) +34 b Fw(for)e(details.)236 5423 y Fq(=)52 b(-1)g(:)165 +b Fw(only)38 b(q)p 980 5370 V(q)q(g)i(ev)m(en)m(ts)h(are)e(generated)g +(\(within)f(same)h(matrix-elemen)m(t)d(cuts)k(as)f(for)709 +5531 y Fq(=1)p Fw(\).)j(Since)30 b(the)f(c)m(hange)h(in)e(\015a)m(v)m +(our)i(comp)s(osition)d(from)h(mass)h(cuts)h(or)f(radiativ)m(e)1841 +5953 y(80)p eop +%%Page: 81 87 +81 86 bop 709 -18 a Fw(corrections)48 b(is)g(not)f(tak)m(en)j(in)m(to)d +(accoun)m(t,)53 b(this)48 b(option)f(is)g(not)h(in)m(tended)h(for)709 +90 y(quan)m(titativ)m(e)32 b(studies.)236 198 y Fq(=)52 +b(-2)g(:)165 b Fw(only)27 b(q)p 969 145 52 4 v(q)q(gg)h(and)g(q)p +1383 145 V(q)q(q)1486 162 y Fk(0)p 1510 145 V 1510 198 +a Fw(q)1561 162 y Fk(0)1612 198 y Fw(ev)m(en)m(ts)i(are)d(generated)i +(\(as)f(for)f Fq(=2)p Fw(\).)42 b(The)28 b(same)g(w)m(arning)709 +307 y(as)k(for)g Fq(=-1)i Fw(applies.)236 415 y Fq(=)52 +b(-3)g(:)165 b Fw(only)29 b(q)p 971 362 V(q)q(gg)h(ev)m(en)m(ts)i(are)e +(generated)g(\(as)g(for)f Fq(=2)p Fw(\).)43 b(The)30 +b(same)g(w)m(arning)f(as)h(for)f Fq(=-1)709 523 y Fw(applies.)236 +632 y Fq(=)52 b(-4)g(:)165 b Fw(only)39 b(q)p 981 579 +V(q)q(q)1084 595 y Fk(0)p 1108 579 V 1108 632 a Fw(q)1159 +595 y Fk(0)1222 632 y Fw(ev)m(en)m(ts)j(are)d(generated)i(\(as)f(for)f +Fq(=2)p Fw(\).)65 b(The)40 b(same)g(w)m(arning)f(as)h(for)709 +740 y Fq(=-1)33 b Fw(applies.)236 848 y Fo(Note)k(1:)110 +b Fq(MSTJ\(101\))35 b Fw(is)d(also)f(used)j(in)e Fq(LUONIA)p +Fw(,)i(with)236 957 y Fn(\024)52 b Fq(4)g(:)190 b Fw(ggg)5 +b(+)g Fj(\015)g Fw(gg)23 b(ev)m(en)m(ts)k(are)d(generated)h(according)e +(to)h(lo)m(w)m(est-order)h(matrix)d(elemen)m(ts.)236 +1065 y Fn(\025)52 b Fq(5)g(:)190 b Fw(a)34 b(parton)g(sho)m(w)m(er)i +(is)e(allo)m(w)m(ed)f(to)h(dev)m(elop)h(from)e(the)i(original)c(ggg)k +(or)f(gg)q Fj(\015)39 b Fw(con-)709 1173 y(\014guration,)31 +b(see)j Fq(MSTJ\(40\))53 b(-)f(MSTJ\(50\))34 b Fw(for)e(details.)236 +1282 y Fo(Note)37 b(2:)110 b Fw(The)25 b(default)e(v)-5 +b(alues)24 b(of)g(fragmen)m(tation)e(parameters)i(ha)m(v)m(e)h(b)s(een) +g(c)m(hosen)h(to)e(w)m(ork)709 1390 y(w)m(ell)32 b(with)g(the)h +(default)f(parton-sho)m(w)m(er)i(approac)m(h)g(ab)s(o)m(v)m(e.)45 +b(If)32 b(an)m(y)i(of)e(the)h(other)709 1498 y(options)e(are)i(used,)h +(or)e(if)f(the)i(parton)f(sho)m(w)m(er)i(is)e(used)i(in)d(non-default)h +(mo)s(de,)f(it)709 1607 y(ma)m(y)21 b(b)s(e)h(necessary)i(to)e(retune)g +(fragmen)m(tation)e(parameters.)40 b(As)22 b(an)g(example,)h(w)m(e)709 +1715 y(note)39 b(that)h(the)g(second-order)g(matrix-elemen)m(t)e +(approac)m(h)i(\()p Fq(MSTJ\(101\)=2)p Fw(\))i(at)709 +1823 y(PETRA/PEP)24 b(energies)f(giv)m(es)g(a)g(b)s(etter)g +(description)f(when)i(the)f Fj(a)f Fw(and)h Fj(b)g Fw(param-)709 +1932 y(eters)k(of)f(the)h(symmetric)e(fragmen)m(tation)g(function)h +(are)g(set)h(to)f Fj(a)i Fw(=)p Fq(PARJ\(41\)=1)p Fw(,)709 +2040 y Fj(b)g Fw(=)p Fq(PARJ\(42\)=0.7)p Fw(,)36 b(and)c(the)h(width)g +(of)f(the)h(transv)m(erse)i(momen)m(tum)c(distribu-)709 +2148 y(tion)37 b(to)g Fj(\033)k Fw(=)p Fq(PARJ\(21\)=0.40)p +Fw(.)64 b(In)38 b(principle,)g(one)g(also)f(ough)m(t)h(to)g(c)m(hange)h +(the)709 2257 y(joining)26 b(parameter)h(to)h Fq +(PARJ\(33\)=PARJ\(35\)=1.1)34 b Fw(to)27 b(preserv)m(e)k(a)d(\015at)g +(rapidit)m(y)709 2365 y(plateau,)34 b(but)h(if)f(this)g(should)h(b)s(e) +g(forgotten,)f(it)g(do)s(es)h(not)g(mak)m(e)g(to)s(o)f(m)m(uc)m(h)h +(dif-)709 2473 y(ference.)44 b(F)-8 b(or)31 b(applications)f(at)h +(TRIST)-8 b(AN)33 b(or)e(LEP)-8 b(,)32 b(one)g(m)m(ust)g(exp)s(ect)h +(to)e(ha)m(v)m(e)709 2582 y(to)k(c)m(hange)h(the)f(matrix-elemen)m(t)e +(approac)m(h)j(parameters)f(ev)m(en)i(more,)e(to)g(mak)m(e)709 +2690 y(up)e(for)f(additional)d(soft)k(gluon)e(e\013ects)j(not)f(co)m(v) +m(ered)h(in)e(this)g(approac)m(h.)0 2798 y Fq(MSTJ\(102\))54 +b(:)47 b Fw(\(D=2\))26 b(inclusion)g(of)g(w)m(eak)i(e\013ects)h(\(Z) +2047 2762 y Fl(0)2113 2798 y Fw(exc)m(hange\))f(for)f(\015a)m(v)m(our)h +(pro)s(duction,)f(angu-)472 2907 y(lar)33 b(orien)m(tation,)g(cross)i +(sections)f(and)g(initial-state)c(photon)k(radiation)e(in)h(con)m(tin)m +(uum)472 3015 y(ev)m(en)m(ts.)236 3123 y Fq(=)52 b(1)f(:)217 +b Fw(QED,)32 b(i.e.)43 b(no)33 b(w)m(eak)g(e\013ects)h(are)f(included.) +236 3232 y Fq(=)52 b(2)f(:)217 b Fw(QFD,)31 b(i.e.)43 +b(including)31 b(w)m(eak)j(e\013ects.)236 3340 y Fq(=)52 +b(3)f(:)217 b Fw(as)43 b Fq(=2)p Fw(,)k(but)d(at)g(initialization)38 +b(in)43 b Fq(LUXTOT)i Fw(the)f(Z)2631 3304 y Fl(0)2713 +3340 y Fw(width)g(is)f(calculated)g(from)709 3448 y(sin)828 +3409 y Fl(2)868 3448 y Fj(\022)913 3463 y Fh(W)994 3448 +y Fw(,)30 b Fj(\013)1113 3463 y Fl(em)1236 3448 y Fw(and)f(Z)1482 +3412 y Fl(0)1550 3448 y Fw(and)g(quark)h(masses)g(\(including)d(b)s +(ottom)h(and)h(top)g(thresh-)709 3557 y(old)g(factors)h(for)g +Fq(MSTJ\(103\))j Fw(o)s(dd\),)e(assuming)e(three)i(full)e(generations,) +i(and)f(the)709 3665 y(result)i(is)g(stored)h(in)f Fq(PARJ\(124\))p +Fw(.)0 3774 y Fq(MSTJ\(103\))54 b(:)47 b Fw(\(D=7\))33 +b(mass)h(e\013ects)h(in)e(con)m(tin)m(uum)g(matrix)g(elemen)m(ts,)h(in) +f(the)i(form)d Fq(MSTJ\(103\))472 3882 y Fw(=)c Fj(M)670 +3897 y Fl(1)722 3882 y Fw(+)12 b(2)p Fj(M)953 3897 y +Fl(2)1006 3882 y Fw(+)g(4)p Fj(M)1237 3897 y Fl(3)1277 +3882 y Fw(,)28 b(where)i Fj(M)1704 3897 y Fh(i)1760 3882 +y Fw(=)d(0)h(if)f(no)g(mass)h(e\013ects)h(and)f Fj(M)2960 +3897 y Fh(i)3017 3882 y Fw(=)f(1)h(if)e(mass)i(e\013ects)472 +3990 y(should)33 b(b)s(e)g(included.)43 b(Here;)236 4099 +y Fj(M)330 4114 y Fl(1)421 4099 y Fq(:)237 b Fw(threshold)32 +b(factor)g(for)g(new)i(\015a)m(v)m(our)f(pro)s(duction)f(according)g +(to)h(QFD)e(result;)236 4207 y Fj(M)330 4222 y Fl(2)421 +4207 y Fq(:)237 b Fw(gluon)32 b(emission)h(probabilit)m(y)e(\(only)i +(applies)g(for)g Fq(|MSTJ\(101\)|)p Fn(\024)g Fw(1,)h(otherwise)709 +4315 y(no)e(mass)h(e\013ects)h(an)m(yho)m(w\);)236 4424 +y Fj(M)330 4439 y Fl(3)421 4424 y Fq(:)237 b Fw(angular)54 +b(orien)m(tation)f(of)i(ev)m(en)m(t)i(\(only)e(applies)f(for)h +Fq(|MSTJ\(101\)|)p Fn(\024)69 b Fw(1)55 b(and)709 4532 +y Fq(MSTJ\(102\)=1)p Fw(,)35 b(otherwise)e(no)g(mass)f(e\013ects)i(an)m +(yho)m(w\).)0 4640 y Fq(MSTJ\(104\))54 b(:)47 b Fw(\(D=5\))33 +b(n)m(um)m(b)s(er)h(of)g(allo)m(w)m(ed)f(\015a)m(v)m(ours,)j(i.e.)47 +b(\015a)m(v)m(ours)36 b(that)d(can)i(b)s(e)f(pro)s(duced)h(in)e(a)472 +4749 y(con)m(tin)m(uum)d(ev)m(en)m(t)i(if)d(the)h(energy)h(is)f +(enough.)43 b(A)30 b(c)m(hange)h(to)e(6)h(mak)m(es)g(top)g(pro)s +(duction)472 4857 y(allo)m(w)m(ed)i(ab)s(o)m(v)m(e)h(the)f(threshold,)g +(etc.)44 b(Note)33 b(that)e(in)h(q)p 2523 4804 V(q)q(q)2626 +4821 y Fk(0)p 2649 4804 V 2649 4857 a Fw(q)2701 4821 +y Fk(0)2756 4857 y Fw(ev)m(en)m(ts)j(only)c(the)i(\014rst)f(\014v)m(e) +472 4965 y(\015a)m(v)m(ours)i(are)f(allo)m(w)m(ed)f(in)g(the)h +(secondary)h(pair,)d(pro)s(duced)j(b)m(y)f(a)f(gluon)g(breakup.)0 +5074 y Fq(MSTJ\(105\))54 b(:)47 b Fw(\(D=1\))32 b(fragmen)m(tation)e +(and)j(deca)m(y)h(in)e Fq(LUEEVT)i Fw(and)f Fq(LUONIA)h +Fw(calls.)236 5182 y Fq(=)52 b(0)f(:)217 b Fw(no)41 b +Fq(LUEXEC)i Fw(calls,)g(i.e.)70 b(only)42 b(matrix-elemen)m(t)d(and/or) +i(parton-sho)m(w)m(er)i(treat-)709 5290 y(men)m(t.)236 +5399 y Fq(=)52 b(1)f(:)217 b(LUEXEC)34 b Fw(calls)d(are)i(made)f(to)g +(generate)h(fragmen)m(tation)e(and)i(deca)m(y)h(c)m(hain.)236 +5507 y Fq(=)52 b(-1)g(:)165 b Fw(no)45 b Fq(LUEXEC)i +Fw(calls)e(and)g(no)h(collapse)f(of)g(small)e(jet)j(systems)h(in)m(to)e +(one)h(or)f(t)m(w)m(o)709 5615 y(particles)31 b(\(in)h +Fq(LUPREP)p Fw(\).)1841 5953 y(81)p eop +%%Page: 82 88 +82 87 bop 0 -18 a Fq(MSTJ\(106\))54 b(:)47 b Fw(\(D=1\))32 +b(angular)f(orien)m(tation)g(in)h Fq(LUEEVT)i Fw(and)e +Fq(LUONIA)p Fw(.)236 90 y Fq(=)52 b(0)f(:)217 b Fw(standard)33 +b(orien)m(tation)e(of)i(ev)m(en)m(ts,)i(i.e.)44 b(q)34 +b(along)d(+)p Fj(z)38 b Fw(axis)33 b(and)p 3109 37 52 +4 v 33 w(q)g(along)f Fn(\000)p Fj(z)38 b Fw(axis)709 +198 y(or)32 b(in)g Fj(xz)38 b Fw(plane)33 b(with)f Fj(p)1612 +213 y Fh(x)1685 198 y Fj(>)c Fw(0)k(for)h(con)m(tin)m(uum)f(ev)m(en)m +(ts,)k(and)d(g)3065 213 y Fl(1)3104 198 y Fw(g)3153 213 +y Fl(2)3192 198 y Fw(g)3241 213 y Fl(3)3313 198 y Fw(or)g +Fj(\015)5 b Fw(g)3538 213 y Fl(2)3577 198 y Fw(g)3626 +213 y Fl(3)3698 198 y Fw(in)709 307 y Fj(xz)37 b Fw(plane)32 +b(with)h(g)1378 322 y Fl(1)1449 307 y Fw(or)g Fj(\015)k +Fw(along)31 b(the)i(+)p Fj(z)k Fw(axis)c(for)f(onium)f(ev)m(en)m(ts.) +236 415 y Fq(=)52 b(1)f(:)217 b Fw(random)31 b(orien)m(tation)g +(according)h(to)g(matrix)f(elemen)m(ts.)0 523 y Fq(MSTJ\(107\))54 +b(:)47 b Fw(\(D=0\))32 b(radiativ)m(e)f(corrections)i(to)f(con)m(tin)m +(uum)g(ev)m(en)m(ts.)236 632 y Fq(=)52 b(0)f(:)217 b +Fw(no)32 b(radiativ)m(e)g(corrections.)236 740 y Fq(=)52 +b(1)f(:)217 b Fw(initial-state)27 b(radiativ)m(e)i(corrections)i +(\(including)e(w)m(eak)j(e\013ects)h(for)d Fq(MSTJ\(102\)=)709 +848 y Fw(2)i(or)g(3\).)0 957 y Fq(MSTJ\(108\))54 b(:)47 +b Fw(\(D=2\))39 b(calculation)f(of)i Fj(\013)1608 972 +y Fl(s)1681 957 y Fw(for)f(matrix-elemen)m(t)f(alternativ)m(es.)67 +b(The)41 b Fq(MSTU\(111\))472 1065 y Fw(and)27 b Fq(PARU\(112\))i +Fw(v)-5 b(alues)26 b(are)h(automatically)c(o)m(v)m(erwritten)28 +b(in)d Fq(LUEEVT)j Fw(or)f Fq(LUONIA)h Fw(calls)472 1173 +y(accordingly)-8 b(.)236 1282 y Fq(=)52 b(0)f(:)217 b +Fw(\014xed)33 b Fj(\013)1006 1297 y Fl(s)1071 1282 y +Fw(v)-5 b(alue)32 b(as)h(giv)m(en)f(in)g Fq(PARU\(111\))p +Fw(.)236 1390 y Fq(=)52 b(1)f(:)217 b Fw(\014rst-order)32 +b(form)m(ula)f(is)h(alw)m(a)m(ys)h(used,)h(with)e(\003)2472 +1405 y Fl(QCD)2669 1390 y Fw(giv)m(en)g(b)m(y)j Fq(PARJ\(121\))p +Fw(.)236 1498 y Fq(=)52 b(2)f(:)217 b Fw(\014rst-)30 +b(or)g(second-order)i(form)m(ula)d(is)h(used,)i(dep)s(ending)f(on)f(v) +-5 b(alue)30 b(of)37 b Fq(MSTJ\(101\))p Fw(,)709 1607 +y(with)32 b(\003)999 1622 y Fl(QCD)1195 1607 y Fw(giv)m(en)h(b)m(y)i +Fq(PARJ\(121\))f Fw(or)f Fq(PARJ\(122\))p Fw(.)0 1715 +y Fq(MSTJ\(109\))54 b(:)47 b Fw(\(D=0\))c(giv)m(es)h(a)g(p)s(ossibilit) +m(y)e(to)h(switc)m(h)i(from)e(QCD)g(matrix)g(elemen)m(ts)h(to)g(some) +472 1823 y(alternativ)m(e)f(to)m(y)i(mo)s(dels.)76 b(Is)44 +b(not)g(relev)-5 b(an)m(t)44 b(for)f(sho)m(w)m(er)j(ev)m(olution,)g +Fq(MSTJ\(101\)=5)p Fw(,)472 1932 y(where)34 b(one)f(can)g(use)g +Fq(MSTJ\(49\))i Fw(instead.)236 2040 y Fq(=)52 b(0)f(:)217 +b Fw(standard)33 b(QCD)f(scenario.)236 2148 y Fq(=)52 +b(1)f(:)217 b Fw(a)34 b(scalar)f(gluon)h(mo)s(del.)47 +b(Since)34 b(no)g(second-order)i(corrections)e(are)g(a)m(v)-5 +b(ailable)32 b(in)709 2257 y(this)26 b(scenario,)h(one)g(can)g(only)e +(use)j(this)e(with)g Fq(MSTJ\(101\))53 b(=)f(1)27 b Fw(or)f +Fq(-1)p Fw(.)41 b(Also)26 b(note)709 2365 y(that)46 b(the)h(ev)m(en)m +(t-as-a-whole)f(angular)f(distribution)g(is)h(for)f(photon)i(exc)m +(hange)709 2473 y(only)37 b(\(i.e.)60 b(no)38 b(w)m(eak)h(e\013ects\),) +i(and)d(that)g(no)g(higher-order)f(corrections)h(to)g(the)709 +2582 y(total)31 b(cross)i(section)g(are)g(included.)236 +2690 y Fq(=)52 b(2)f(:)217 b Fw(an)36 b(Ab)s(elian)f(v)m(ector)j(gluon) +d(theory)-8 b(,)38 b(with)e(the)h(colour)f(factors)g +Fj(C)3197 2705 y Fh(F)3290 2690 y Fw(=)e(1)i(\(=)e(4)p +Fj(=)p Fw(3)709 2798 y(in)45 b(QCD\),)g Fj(N)1245 2813 +y Fh(C)1354 2798 y Fw(=)50 b(0)c(\(=)k(3)45 b(in)g(QCD\))g(and)h +Fj(T)2524 2813 y Fh(R)2632 2798 y Fw(=)k(3)p Fj(n)2865 +2813 y Fh(f)2956 2798 y Fw(\(=)g Fj(n)3178 2813 y Fh(f)3224 +2798 y Fj(=)p Fw(2)45 b(in)g(QCD\).)709 2907 y(If)h(one)i(selects)g +Fj(\013)1395 2922 y Fl(Ab)r(elian)1690 2907 y Fw(=)k(\(4)p +Fj(=)p Fw(3\))p Fj(\013)2103 2922 y Fl(QCD)2266 2907 +y Fw(,)e(the)e(3-jet)e(cross)i(section)f(will)d(agree)709 +3015 y(with)37 b(the)g(QCD)g(one,)i(and)e(di\013erences)i(are)e(to)g(b) +s(e)h(found)f(only)g(in)f(4-jets.)58 b(The)709 3123 y +Fq(MSTJ\(109\)=2)31 b Fw(option)d(has)h(to)g(b)s(e)g(run)g(with)g +Fq(MSTJ\(110\)=1)j Fw(and)d Fq(MSTJ\(111\)=0)p Fw(;)709 +3232 y(if)i(need)j(b)s(e,)f(the)g(latter)e(v)-5 b(ariables)31 +b(will)g(b)s(e)h(o)m(v)m(erwritten)i(b)m(y)f(the)g(program.)709 +3340 y Fo(W)-9 b(arning:)40 b Fw(second-order)30 b(corrections)e(giv)m +(e)g(a)g(large)f(negativ)m(e)i(con)m(tribution)e(to)709 +3448 y(the)g(3-jet)g(cross)h(section,)h(so)e(large)f(that)h(the)h +(whole)f(scenario)g(is)g(of)g(doubtful)f(use.)709 3557 +y(In)42 b(order)h(to)f(mak)m(e)h(the)f(second-order)i(options)e(w)m +(ork)h(at)f(all,)h(the)g(3-jet)f(cross)709 3665 y(section)34 +b(is)h(here)g(b)m(y)h(hand)e(set)i(exactly)f(equal)f(to)h(zero)g(for)f +Fq(MSTJ\(101\)=2)p Fw(.)52 b(It)35 b(is)709 3774 y(here)28 +b(probably)e(b)s(etter)i(to)f(use)h(the)g(option)e Fq(MSTJ\(101\)=3)p +Fw(,)31 b(although)26 b(this)h(is)g(not)709 3882 y(a)32 +b(consisten)m(t)i(pro)s(cedure)f(either.)0 3990 y Fq(MSTJ\(110\))54 +b(:)47 b Fw(\(D=2\))32 b(c)m(hoice)h(of)f(second-order)h(con)m +(tributions)f(to)h(the)g(3-jet)e(rate.)236 4099 y Fq(=)52 +b(1)f(:)217 b Fw(the)33 b(GKS)f(second-order)h(matrix)e(elemen)m(ts,)i +(i.e.)43 b(the)33 b(old)f Fm(Jetset)f Fw(standard.)236 +4207 y Fq(=)52 b(2)f(:)217 b Fw(the)32 b(Zh)m(u)g(parametrization)d(of) +i(the)i(ER)-8 b(T)32 b(matrix)e(elemen)m(ts,)i(based)h(on)f(the)g(pro-) +709 4315 y(gram)21 b(of)h(Kunszt)h(and)g(Ali,)f(i.e.)40 +b(in)22 b(historical)e(sequence)25 b(ER)-8 b(T/Kunszt/Ali/Zh)m(u.)709 +4424 y(The)35 b(parametrization)e(is)h(a)m(v)-5 b(ailable)32 +b(for)i Fj(y)h Fw(=)g(0.01,)f(0.02,)h(0.03,)g(0.04)f(and)h(0.05.)709 +4532 y(V)-8 b(alues)35 b(outside)h(this)g(range)g(are)g(put)g(at)g(the) +g(nearest)h(b)s(order,)g(while)e(those)i(in-)709 4640 +y(side)27 b(it)g(are)g(giv)m(en)h(b)m(y)g(a)g(linear)e(in)m(terp)s +(olation)e(b)s(et)m(w)m(een)30 b(the)e(t)m(w)m(o)g(nearest)h(p)s(oin)m +(ts.)709 4749 y(Since)38 b(this)g(pro)s(cedure)g(is)g(rather)g +(primitiv)m(e,)f(one)i(should)f(try)g(to)g(w)m(ork)h(at)e(one)709 +4857 y(of)f(the)i(v)-5 b(alues)37 b(giv)m(en)h(ab)s(o)m(v)m(e.)58 +b(Note)37 b(that)g(no)g(Ab)s(elian)f(QCD)h(parametrization)709 +4965 y(is)32 b(a)m(v)-5 b(ailable)30 b(for)i(this)g(option.)0 +5074 y Fq(MSTJ\(111\))54 b(:)47 b Fw(\(D=0\))40 b(use)h(of)f(optimized) +f(p)s(erturbation)h(theory)h(for)f(second-order)h(matrix)e(ele-)472 +5182 y(men)m(ts)44 b(\(it)e(can)h(also)g(b)s(e)g(used)h(for)f +(\014rst-order)g(matrix)f(elemen)m(ts,)k(but)d(here)h(it)e(only)472 +5290 y(corresp)s(onds)34 b(to)f(a)f(trivial)e(rescaling)h(of)h(the)h +Fj(\013)2240 5305 y Fl(s)2305 5290 y Fw(argumen)m(t\).)236 +5399 y Fq(=)52 b(0)f(:)217 b Fw(no)32 b(optimization)d(pro)s(cedure;)34 +b(i.e.)43 b Fj(Q)2138 5363 y Fl(2)2205 5399 y Fw(=)28 +b Fj(E)2387 5363 y Fl(2)2381 5423 y(cm)2475 5399 y Fw(.)236 +5507 y Fq(=)52 b(1)f(:)217 b Fw(an)31 b(optimized)e Fj(Q)1368 +5471 y Fl(2)1439 5507 y Fw(scale)i(is)f(c)m(hosen)j(as)e +Fj(Q)2273 5471 y Fl(2)2341 5507 y Fw(=)c Fj(f)11 b(E)2581 +5471 y Fl(2)2575 5532 y(cm)2670 5507 y Fw(,)31 b(where)h +Fj(f)39 b Fw(=)p Fq(PARJ\(128\))33 b Fw(for)709 5615 +y(the)d(total)e(cross)j(section)f Fj(R)h Fw(factor,)f(while)e +Fj(f)39 b Fw(=)p Fq(PARJ\(129\))32 b Fw(for)d(the)h(3-)f(and)h(4-jet) +1841 5953 y(82)p eop +%%Page: 83 89 +83 88 bop 709 -18 a Fw(rates.)58 b(This)38 b Fj(f)48 +b Fw(v)-5 b(alue)36 b(en)m(ters)j(via)e(the)h Fj(\013)2270 +-3 y Fl(s)2302 -18 y Fw(,)h(and)e(also)f(via)h(a)g(term)g(prop)s +(ortional)709 90 y(to)30 b Fj(\013)889 54 y Fl(2)888 +114 y(s)945 90 y Fw(ln)16 b Fj(f)11 b Fw(.)43 b(Some)30 +b(constrain)m(ts)i(are)f(imp)s(osed;)f(th)m(us)i(the)g(optimized)d +(`3-jet')i(con-)709 198 y(tribution)f(to)h Fj(R)i Fw(is)e(assumed)i(to) +e(b)s(e)h(p)s(ositiv)m(e)f(\(for)g Fq(PARJ\(128\))p Fw(\),)k(the)d +(total)e(3-jet)709 307 y(rate)d(is)f(not)h(allo)m(w)m(ed)f(to)h(b)s(e)g +(negativ)m(e)g(\(for)g Fq(PARJ\(129\))p Fw(\),)j(etc.)43 +b(Ho)m(w)m(ev)m(er,)30 b(there)e(is)709 415 y(no)i(guaran)m(tee)i(that) +e(the)h(di\013eren)m(tial)e(3-jet)h(cross)i(section)f(is)f(not)h +(negativ)m(e)f(\(and)709 523 y(truncated)g(to)f(0\))f(somewhere)j +(\(this)e(can)g(also)f(happ)s(en)i(with)f Fj(f)38 b Fw(=)28 +b(1,)i(but)f(is)g(then)709 632 y(less)37 b(frequen)m(t\).)56 +b(The)38 b(actually)d(obtained)h Fj(f)47 b Fw(v)-5 b(alues)37 +b(are)f(stored)h(in)f Fq(PARJ\(168\))709 740 y Fw(and)e +Fq(PARJ\(169\))p Fw(,)k(resp)s(ectiv)m(ely)-8 b(.)51 +b(If)34 b(an)h(optimized)d Fj(Q)2757 704 y Fl(2)2832 +740 y Fw(scale)i(is)g(used,)j(then)e(the)709 848 y(\003)777 +863 y Fl(QCD)982 848 y Fw(\(and)42 b Fj(\013)1281 863 +y Fl(s)1313 848 y Fw(\))g(should)f(also)g(b)s(e)h(c)m(hanged.)72 +b(With)41 b(the)i(v)-5 b(alue)41 b Fj(f)54 b Fw(=)43 +b(0)p Fj(:)p Fw(002,)g(it)709 957 y(has)g(b)s(een)g(sho)m(wn)h([Bet89]) +f(that)f(a)h(\003)2165 972 y Fl(QCD)2373 957 y Fw(=)i(0)p +Fj(:)p Fw(100)d(GeV)g(giv)m(es)h(a)g(reasonable)709 1065 +y(agreemen)m(t;)29 b(the)f(parameter)g(to)f(b)s(e)h(c)m(hanged)h(is)e +Fq(PARJ\(122\))j Fw(for)d(a)g(second-order)709 1173 y(running)33 +b Fj(\013)1135 1188 y Fl(s)1167 1173 y Fw(.)47 b(Note)34 +b(that,)f(since)i(the)f(optimized)e Fj(Q)2655 1137 y +Fl(2)2728 1173 y Fw(scale)i(is)f(sometimes)g(b)s(elo)m(w)709 +1282 y(the)28 b(c)m(harm)f(threshold,)i(the)f(e\013ectiv)m(e)g(n)m(um)m +(b)s(er)g(of)f(\015a)m(v)m(ours)i(used)g(in)d Fj(\013)3348 +1297 y Fl(s)3408 1282 y Fw(ma)m(y)h(w)m(ell)709 1390 +y(b)s(e)37 b(4)h(only)-8 b(.)58 b(If)37 b(one)h(feels)f(that)h(it)e(is) +h(still)f(appropriate)g(to)i(use)g(5)f(\015a)m(v)m(ours)i(\(one)709 +1498 y(c)m(hoice)24 b(migh)m(t)e(b)s(e)i(as)g(go)s(o)s(d)e(as)i(the)g +(other\),)i(it)d(is)g(necessary)j(to)e(put)g Fq(MSTU\(113\)=5)p +Fw(.)0 1607 y Fq(MSTJ\(115\))54 b(:)47 b Fw(\(D=1\))27 +b(do)s(cumen)m(tation)h(of)f(con)m(tin)m(uum)h(or)g(onium)f(ev)m(en)m +(ts,)32 b(in)27 b(increasing)h(order)g(of)472 1715 y(completeness.)236 +1823 y Fq(=)52 b(0)f(:)217 b Fw(only)53 b(the)h(parton)f(sho)m(w)m(er,) +61 b(the)54 b(fragmen)m(ting)e(partons)i(and)g(the)g(generated)709 +1932 y(hadronic)32 b(system)h(are)g(stored)g(in)f(the)h +Fq(LUJETS)h Fw(common)d(blo)s(c)m(k.)236 2040 y Fq(=)52 +b(1)f(:)217 b Fw(also)31 b(a)i(radiativ)m(e)e(photon)i(is)f(stored)h +(\(for)f(con)m(tin)m(uum)g(ev)m(en)m(ts\).)236 2148 y +Fq(=)52 b(2)f(:)217 b Fw(also)31 b(the)i(original)d(e)1468 +2112 y Fl(+)1527 2148 y Fw(e)1570 2112 y Fk(\000)1662 +2148 y Fw(are)i(stored)i(\(with)e Fq(K\(I,1\)=21)p Fw(\).)236 +2257 y Fq(=)52 b(3)f(:)217 b Fw(also)29 b(the)i Fj(\015)36 +b Fw(or)30 b Fj(\015)1328 2221 y Fk(\003)1367 2257 y +Fj(=)p Fw(Z)1476 2221 y Fl(0)1546 2257 y Fw(exc)m(hanged)i(for)e(con)m +(tin)m(uum)h(ev)m(en)m(ts,)i(the)e(onium)e(state)i(for)709 +2365 y(resonance)j(ev)m(en)m(ts)g(is)f(stored)g(\(with)f +Fq(K\(I,1\)=21)p Fw(\).)0 2473 y Fq(MSTJ\(116\))54 b(:)47 +b Fw(\(D=1\))39 b(initialization)34 b(of)39 b(total)f(cross)i(section)g +(and)f(radiativ)m(e)g(photon)g(sp)s(ectrum)472 2582 y(in)32 +b Fq(LUEEVT)i Fw(calls.)236 2690 y Fq(=)52 b(0)f(:)217 +b Fw(nev)m(er;)34 b(cannot)f(b)s(e)f(used)i(together)f(with)f(radiativ) +m(e)g(corrections.)236 2798 y Fq(=)52 b(1)f(:)217 b Fw(calculated)34 +b(at)h(\014rst)h(call)d(and)i(then)h(whenev)m(er)i Fq(KFL)e +Fw(or)f Fq(MSTJ\(102\))j Fw(is)c(c)m(hanged)709 2907 +y(or)e Fq(ECM)h Fw(is)f(c)m(hanged)i(b)m(y)f(more)f(than)h +Fq(PARJ\(139\))p Fw(.)236 3015 y Fq(=)52 b(2)f(:)217 +b Fw(calculated)31 b(at)i(eac)m(h)g(call.)236 3123 y +Fq(=)52 b(3)f(:)217 b Fw(ev)m(erything)37 b(is)f(reinitialized)d(in)j +(the)g(next)i(call,)d(but)i Fq(MSTJ\(116\))i Fw(is)d(afterw)m(ards)709 +3232 y(automatically)29 b(put)k Fq(=1)g Fw(for)f(use)h(in)f(subsequen)m +(t)k(calls.)0 3340 y Fq(MSTJ\(119\))54 b(:)47 b Fw(\(I\))33 +b(c)m(hec)m(k)i(on)d(need)i(to)e(reinitialize)d Fq(LUXTOT)p +Fw(.)0 3448 y Fq(MSTJ\(120\))54 b(:)47 b Fw(\(R\))g(t)m(yp)s(e)i(of)e +(con)m(tin)m(uum)g(ev)m(en)m(t)j(generated)e(with)f(the)h +(matrix-elemen)m(t)e(option)472 3557 y(\(with)33 b(the)g(sho)m(w)m(er)h +(one,)f(the)g(result)f(is)g(alw)m(a)m(ys)i Fq(=1)p Fw(\).)236 +3665 y Fq(=)52 b(1)f(:)217 b Fw(q)p 760 3612 52 4 v(q)q(.)236 +3774 y Fq(=)52 b(2)f(:)217 b Fw(q)p 760 3721 V(q)q(g)q(.)236 +3882 y Fq(=)52 b(3)f(:)217 b Fw(q)p 760 3829 V(q)q(gg)33 +b(from)e(Ab)s(elian)g(\(QED-lik)m(e\))g(graphs)i(in)f(matrix)f(elemen)m +(t.)236 3990 y Fq(=)52 b(4)f(:)217 b Fw(q)p 760 3937 +V(q)q(gg)35 b(from)f(non-Ab)s(elian)f(\(i.e.)50 b(con)m(taining)34 +b(triple-gluon)e(coupling\))h(graphs)i(in)709 4099 y(matrix)c(elemen)m +(t.)236 4207 y Fq(=)52 b(5)f(:)217 b Fw(q)p 760 4154 +V(q)q(q)863 4171 y Fk(0)p 886 4154 V 886 4207 a Fw(q)938 +4171 y Fk(0)961 4207 y Fw(.)0 4315 y Fq(MSTJ\(121\))54 +b(:)47 b Fw(\(R\))37 b(\015ag)h(set)g(if)f(a)g(negativ)m(e)h +(di\013eren)m(tial)e(cross)j(section)f(w)m(as)g(encoun)m(tered)i(in)d +(the)472 4424 y(latest)d Fq(LUX3JT)i Fw(call.)47 b(Ev)m(en)m(ts)37 +b(are)e(still)d(generated,)j(but)g(ma)m(yb)s(e)f(not)h(quite)f +(according)472 4532 y(to)44 b(the)h(distribution)d(one)i(w)m(ould)g +(lik)m(e)g(\(the)g(rate)g(is)g(set)g(to)g(zero)h(in)e(the)h(regions)g +(of)472 4640 y(negativ)m(e)33 b(cross)f(section,)h(and)f(the)g +(di\013eren)m(tial)e(rate)i(in)f(the)h(regions)g(of)f(p)s(ositiv)m(e)h +(cross)472 4749 y(section)h(is)f(rescaled)h(to)g(giv)m(e)f(the)h +(`correct')g(total)e(3-jet)h(rate\).)0 4911 y Fq(PARJ\(121\))54 +b(:)47 b Fw(\(D=1.0)39 b(GeV\))g(\003)h(v)-5 b(alue)39 +b(used)i(in)d(\014rst-order)i(calculation)e(of)h Fj(\013)3095 +4926 y Fl(s)3166 4911 y Fw(in)g(the)h(matrix-)472 5019 +y(elemen)m(t)33 b(alternativ)m(e.)0 5128 y Fq(PARJ\(122\))54 +b(:)47 b Fw(\(D=0.25)22 b(GeV\))h(\003)f(v)-5 b(alues)23 +b(used)h(in)e(second-order)i(calculation)d(of)h Fj(\013)3145 +5143 y Fl(s)3200 5128 y Fw(in)g(the)h(matrix-)472 5236 +y(elemen)m(t)33 b(alternativ)m(e.)0 5344 y Fq(PARJ\(123\))54 +b(:)47 b Fw(\(D=91.187)31 b(GeV\))h(mass)h(of)f(Z)1777 +5308 y Fl(0)1849 5344 y Fw(as)g(used)i(in)e(propagators)g(for)g(the)h +(QFD)f(case.)0 5453 y Fq(PARJ\(124\))54 b(:)47 b Fw(\(D=2.489)g(GeV\))g +(width)h(of)g(Z)1827 5417 y Fl(0)1914 5453 y Fw(as)g(used)h(in)e +(propagators)h(for)f(the)i(QFD)d(case.)472 5561 y(Ov)m(erwritten)34 +b(at)e(initialization)27 b(if)38 b Fq(MSTJ\(102\)=3)p +Fw(.)1841 5953 y(83)p eop +%%Page: 84 90 +84 89 bop 0 -18 a Fq(PARJ\(125\))54 b(:)47 b Fw(\(D=0.01\))31 +b Fj(y)1091 -3 y Fl(cut)1192 -18 y Fw(,)h(minim)m(um)d(squared)k +(scaled)f(in)m(v)-5 b(arian)m(t)31 b(mass)h(of)f(an)m(y)i(t)m(w)m(o)f +(partons)472 90 y(in)g(3-)f(or)h(4-jet)g(ev)m(en)m(ts;)i(the)f(main)e +(user-con)m(trolled)g(matrix-elemen)m(t)f(cut.)44 b Fq(PARJ\(126\))472 +198 y Fw(pro)m(vides)54 b(an)f(additional)d(constrain)m(t.)104 +b(F)-8 b(or)52 b(eac)m(h)h(new)h(ev)m(en)m(t,)60 b(it)52 +b(is)g(additionally)472 307 y(c)m(hec)m(k)m(ed)43 b(that)c(the)h(total) +e(3-)h(plus)g(4-jet)g(fraction)f(do)s(es)i(not)f(exceed)j(unit)m(y;)h +(if)38 b(so)i(the)472 415 y(e\013ectiv)m(e)34 b Fj(y)h +Fw(cut)e(will)d(b)s(e)j(dynamically)d(increased.)44 b(The)33 +b(actual)f Fj(y)t Fw(-cut)f(v)-5 b(alue)32 b(is)g(stored)472 +523 y(in)g Fq(PARJ\(150\))p Fw(,)j(ev)m(en)m(t)g(b)m(y)e(ev)m(en)m(t.)0 +632 y Fq(PARJ\(126\))54 b(:)47 b Fw(\(D=2.)73 b(GeV\))42 +b(minim)m(um)e(in)m(v)-5 b(arian)m(t)41 b(mass)i(of)f(an)m(y)h(t)m(w)m +(o)g(partons)g(in)f(3-)g(or)g(4-jet)472 740 y(ev)m(en)m(ts;)f(a)35 +b(cut)i(in)e(addition)f(to)i(the)g(one)h(ab)s(o)m(v)m(e,)h(mainly)33 +b(for)j(the)g(case)h(of)f(a)g(radiativ)m(e)472 848 y(photon)d(lo)m(w)m +(ering)f(the)h(hadronic)f(c.m.)43 b(energy)34 b(signi\014can)m(tly)-8 +b(.)0 957 y Fq(PARJ\(127\))54 b(:)47 b Fw(\(D=1.)41 b(GeV\))29 +b(is)g(used)h(as)f(a)g(safet)m(y)h(margin)d(for)h(small)f +(colour-singlet)f(jet)j(systems,)472 1065 y(cf.)77 b +Fq(PARJ\(32\))p Fw(,)49 b(sp)s(eci\014cally)43 b(q)p +1689 1012 52 4 v(q)1741 1029 y Fk(0)1808 1065 y Fw(masses)h(in)f(q)p +2316 1012 V(q)q(q)2419 1029 y Fk(0)p 2443 1012 V 2443 +1065 a Fw(q)2494 1029 y Fk(0)2561 1065 y Fw(4-jet)g(ev)m(en)m(ts)j(and) +e(gg)h(mass)e(in)472 1173 y(onium)32 b Fj(\015)5 b Fw(gg)33 +b(ev)m(en)m(ts.)0 1282 y Fq(PARJ\(128\))54 b(:)47 b Fw(\(D=0.25\))d +(optimized)g Fj(Q)1596 1245 y Fl(2)1681 1282 y Fw(scale)h(for)g(the)g +(QCD)g Fj(R)i Fw(\(total)c(rate\))i(factor)g(for)g(the)472 +1390 y Fq(MSTJ\(111\)=1)28 b Fw(option)23 b(is)h(giv)m(en)h(b)m(y)g +Fj(Q)1897 1354 y Fl(2)1965 1390 y Fw(=)i Fj(f)11 b(E)2205 +1354 y Fl(2)2199 1415 y(cm)2293 1390 y Fw(,)26 b(where)g +Fj(f)39 b Fw(=)p Fq(PARJ\(128\))p Fw(.)k(F)-8 b(or)23 +b(v)-5 b(arious)472 1498 y(reasons)27 b(the)f(actually)e(used)j +Fj(f)36 b Fw(v)-5 b(alue)25 b(ma)m(y)g(b)s(e)h(increased)h(compared)e +(with)g(the)h(nominal)472 1607 y(one;)k(while)e Fq(PARJ\(128\))i +Fw(giv)m(es)e(the)h(nominal)c(v)-5 b(alue,)29 b Fq(PARJ\(168\))h +Fw(giv)m(es)f(the)f(actual)f(one)472 1715 y(for)32 b(the)h(curren)m(t)h +(ev)m(en)m(t.)0 1823 y Fq(PARJ\(129\))54 b(:)47 b Fw(\(D=0.002\))25 +b(optimized)g Fj(Q)1607 1787 y Fl(2)1673 1823 y Fw(scale)i(for)f(the)h +(3-)f(and)g(4-jet)g(rate)h(for)f(the)h Fq(MSTJ\(111\)=1)472 +1932 y Fw(option)33 b(is)g(giv)m(en)h(b)m(y)h Fj(Q)1346 +1896 y Fl(2)1415 1932 y Fw(=)30 b Fj(f)11 b(E)1658 1896 +y Fl(2)1652 1956 y(cm)1746 1932 y Fw(,)34 b(where)h Fj(f)40 +b Fw(=)p Fq(PARJ\(129\))p Fw(.)49 b(F)-8 b(or)33 b(v)-5 +b(arious)33 b(reasons)i(the)472 2040 y(actually)29 b(used)i +Fj(f)40 b Fw(v)-5 b(alue)29 b(ma)m(y)g(b)s(e)h(increased)h(compared)e +(with)g(the)h(nominal)d(one;)k(while)472 2148 y Fq(PARJ\(129\))44 +b Fw(giv)m(es)d(the)h(nominal)d(v)-5 b(alue,)42 b Fq(PARJ\(169\))i +Fw(giv)m(es)d(the)h(actual)e(one)h(for)g(the)472 2257 +y(curren)m(t)f(ev)m(en)m(t.)65 b(The)39 b(default)f(v)-5 +b(alue)39 b(is)f(in)g(agreemen)m(t)h(with)g(the)g(studies)g(of)g(Bethk) +m(e)472 2365 y([Bet89].)0 2473 y Fq(PARJ\(131\),)54 b(PARJ\(132\))g(:) +47 b Fw(\(D=2*0.\))i(longitudinal)31 b(p)s(olarizations)h +Fj(P)2826 2432 y Fl(+)2812 2498 y(L)2919 2473 y Fw(and)j +Fj(P)3188 2432 y Fk(\000)3174 2498 y Fl(L)3281 2473 y +Fw(of)g(incoming)472 2582 y(e)515 2546 y Fl(+)607 2582 +y Fw(and)e(e)840 2546 y Fk(\000)899 2582 y Fw(.)0 2700 +y Fq(PARJ\(133\))54 b(:)47 b Fw(\(D=0.\))42 b(transv)m(erse)32 +b(p)s(olarization)27 b Fj(P)2015 2715 y Fl(T)2097 2700 +y Fw(=)2201 2597 y Fg(q)p 2284 2597 271 4 v 103 x Fj(P)2361 +2659 y Fl(+)2347 2725 y(T)2419 2700 y Fj(P)2496 2659 +y Fk(\000)2482 2725 y Fl(T)2555 2700 y Fw(,)k(with)e +Fj(P)2909 2659 y Fl(+)2895 2725 y(T)2998 2700 y Fw(and)h +Fj(P)3262 2659 y Fk(\000)3248 2725 y Fl(T)3350 2700 y +Fw(transv)m(erse)472 2827 y(p)s(olarizations)g(of)i(incoming)f(e)1622 +2791 y Fl(+)1713 2827 y Fw(and)i(e)1946 2791 y Fk(\000)2006 +2827 y Fw(.)0 2936 y Fq(PARJ\(134\))54 b(:)47 b Fw(\(D=0.\))h(mean)35 +b(of)f(transv)m(erse)i(p)s(olarization)31 b(directions)j(of)g(incoming) +f(e)3365 2900 y Fl(+)3458 2936 y Fw(and)i(e)3693 2900 +y Fk(\000)3752 2936 y Fw(,)472 3044 y(\001)p Fj(')g Fw(=)e(\()p +Fj(')863 3008 y Fl(+)947 3044 y Fw(+)24 b Fj(')1111 3008 +y Fk(\000)1170 3044 y Fw(\))p Fj(=)p Fw(2,)37 b(with)f +Fj(')g Fw(the)h(azim)m(uthal)d(angle)h(of)h(p)s(olarization,)e(leading) +h(to)h(a)472 3152 y(shift)c(in)g(the)h Fj(')g Fw(distribution)d(of)i +(jets)i(b)m(y)f(\001)p Fj(')p Fw(.)0 3261 y Fq(PARJ\(135\))54 +b(:)47 b Fw(\(D=0.01\))24 b(minim)m(um)e(photon)j(energy)h(fraction)e +(\(of)h(b)s(eam)g(energy\))h(in)e(initial-state)472 3369 +y(radiation;)j(should)g(normally)d(nev)m(er)29 b(b)s(e)e(c)m(hanged)h +(\(if)e(lo)m(w)m(ered)h(to)s(o)g(m)m(uc)m(h,)h(the)g(fraction)472 +3477 y(of)e(ev)m(en)m(ts)j(con)m(taining)c(a)h(radiativ)m(e)f(photon)h +(will)e(exceed)29 b(unit)m(y)-8 b(,)27 b(leading)e(to)h(problems\).)0 +3586 y Fq(PARJ\(136\))54 b(:)47 b Fw(\(D=0.99\))22 b(maxim)m(um)f +(photon)i(energy)h(fraction)e(\(of)g(b)s(eam)h(energy\))h(in)e +(initial-state)472 3694 y(radiation;)j(ma)m(y)f(b)s(e)g(c)m(hanged)h +(to)f(re\015ect)h(actual)e(trigger)g(conditions)g(of)h(a)f(detector)i +(\(but)472 3802 y(m)m(ust)33 b(alw)m(a)m(ys)g(b)s(e)g(larger)e(than)i +Fq(PARJ\(135\))p Fw(\).)0 3911 y Fq(PARJ\(139\))54 b(:)47 +b Fw(\(D=0.2)32 b(GeV\))h(maxim)m(um)e(deviation)h(of)g +Fj(E)2286 3926 y Fl(cm)2414 3911 y Fw(from)g(the)h(corresp)s(onding)g +(v)-5 b(alue)33 b(at)472 4019 y(last)f Fq(LUXTOT)i Fw(call,)d(ab)s(o)m +(v)m(e)j(whic)m(h)f(a)f(new)i(call)c(is)j(made)f(if)38 +b Fq(MSTJ\(116\)=1)p Fw(.)0 4128 y Fq(PARJ\(141\))54 +b(:)47 b Fw(\(R\))c(v)-5 b(alue)42 b(of)h Fj(R)q Fw(,)j(the)d(ratio)f +(of)g(con)m(tin)m(uum)h(cross)h(section)f(to)g(the)g(lo)m(w)m +(est-order)472 4236 y(m)m(uon)28 b(pair)e(pro)s(duction)h(cross)h +(section,)h(as)e(giv)m(en)h(in)e(massless)i(QED)f(\(i.e.)41 +b(three)28 b(times)472 4344 y(the)33 b(sum)g(of)f(activ)m(e)h(quark)g +(squared)h(c)m(harges,)g(p)s(ossibly)e(mo)s(di\014ed)f(for)h(p)s +(olarization\).)0 4453 y Fq(PARJ\(142\))54 b(:)47 b Fw(\(R\))25 +b(v)-5 b(alue)24 b(of)h Fj(R)h Fw(including)d(quark-mass)j(e\013ects)g +(\(for)f Fq(MSTJ\(102\)=1)p Fw(\))i(and/or)e(w)m(eak)472 +4561 y(propagator)32 b(e\013ects)i(\(for)e Fq(MSTJ\(102\)=2)p +Fw(\).)0 4669 y Fq(PARJ\(143\))54 b(:)47 b Fw(\(R\))36 +b(v)-5 b(alue)37 b(of)f Fj(R)i Fw(as)e Fq(PARJ\(142\))p +Fw(,)41 b(but)c(including)d(QCD)j(corrections)g(as)g(giv)m(en)g(b)m(y) +472 4778 y Fq(MSTJ\(101\))p Fw(.)0 4886 y Fq(PARJ\(144\))54 +b(:)47 b Fw(\(R\))37 b(v)-5 b(alue)36 b(of)g Fj(R)i Fw(as)f +Fq(PARJ\(143\))p Fw(,)k(but)c(additionally)d(including)h(corrections)i +(from)472 4994 y(initial-state)43 b(photon)k(radiation)e(\(if)52 +b Fq(MSTJ\(107\)=1)p Fw(\).)89 b(Since)47 b(the)g(e\013ects)h(of)e(hea) +m(vy)472 5103 y(\015a)m(v)m(our)35 b(thresholds)f(are)f(not)h(simply)e +(in)m(tegrable,)h(the)h(initial)29 b(v)-5 b(alue)33 b(of)40 +b Fq(PARJ\(144\))c Fw(is)472 5211 y(up)s(dated)e(during)d(the)i(course) +h(of)e(the)h(run)g(to)f(impro)m(v)m(e)g(accuracy)-8 b(.)0 +5319 y Fq(PARJ\(145\))54 b(-)d(PARJ\(148\))j(:)47 b Fw(\(R\))31 +b(absolute)h(cross)g(sections)g(in)f(n)m(b)h(as)g(for)e(the)i(cases)h +Fq(PARJ\(141\))472 5428 y(-)52 b(PARJ\(144\))35 b Fw(ab)s(o)m(v)m(e.)0 +5536 y Fq(PARJ\(150\))54 b(:)47 b Fw(\(R\))38 b(curren)m(t)h +(e\013ectiv)m(e)g(matrix)e(elemen)m(t)g(cut-o\013)h Fj(y)2571 +5551 y Fl(cut)2673 5536 y Fw(,)h(as)f(giv)m(en)h(b)m(y)h +Fq(PARJ\(125\),)472 5644 y(PARJ\(126\))d Fw(and)d(the)g(requiremen)m +(ts)h(of)f(ha)m(ving)f(non-negativ)m(e)h(cross)h(sections)g(for)e(2-,) +1841 5953 y(84)p eop +%%Page: 85 91 +85 90 bop 472 -18 a Fw(3-)32 b(and)h(4-jet)f(ev)m(en)m(ts.)46 +b(Not)32 b(used)i(in)e(parton)g(sho)m(w)m(ers.)0 90 y +Fq(PARJ\(151\))54 b(:)47 b Fw(\(R\))32 b(v)-5 b(alue)32 +b(of)g(c.m.)44 b(energy)35 b Fq(ECM)e Fw(at)f(last)g +Fq(LUXTOT)i Fw(call.)0 198 y Fq(PARJ\(152\))54 b(:)47 +b Fw(\(R\))32 b(curren)m(t)i(\014rst-order)e(con)m(tribution)f(to)h +(the)h(3-jet)f(fraction;)f(mo)s(di\014ed)g(b)m(y)j(mass)472 +307 y(e\013ects.)45 b(Not)33 b(used)g(in)f(parton)h(sho)m(w)m(ers.)0 +415 y Fq(PARJ\(153\))54 b(:)47 b Fw(\(R\))e(curren)m(t)i(second-order)g +(con)m(tribution)d(to)h(the)h(3-jet)f(fraction;)51 b(mo)s(di\014ed)45 +b(b)m(y)472 523 y(mass)33 b(e\013ects.)45 b(Not)32 b(used)i(in)e +(parton)g(sho)m(w)m(ers.)0 632 y Fq(PARJ\(154\))54 b(:)47 +b Fw(\(R\))e(curren)m(t)i(second-order)g(con)m(tribution)d(to)h(the)h +(4-jet)f(fraction;)51 b(mo)s(di\014ed)45 b(b)m(y)472 +740 y(mass)33 b(e\013ects.)45 b(Not)32 b(used)i(in)e(parton)g(sho)m(w)m +(ers.)0 848 y Fq(PARJ\(155\))54 b(:)47 b Fw(\(R\))34 +b(curren)m(t)i(fraction)e(of)g(4-jet)g(rate)g(attributable)f(to)i(q)p +2756 795 52 4 v(q)q(q)2859 812 y Fk(0)p 2882 795 V 2882 +848 a Fw(q)2934 812 y Fk(0)2992 848 y Fw(ev)m(en)m(ts)i(rather)d(than) +472 957 y(q)p 523 904 V(q)q(gg)g(ones;)f(mo)s(di\014ed)f(b)m(y)h(mass)g +(e\013ects.)44 b(Not)33 b(used)h(in)d(parton)i(sho)m(w)m(ers.)0 +1065 y Fq(PARJ\(156\))54 b(:)47 b Fw(\(R\))c(has)g(t)m(w)m(o)h +(functions)f(when)i(using)e(second-order)h(QCD.)f(F)-8 +b(or)42 b(a)h(3-jet)g(ev)m(en)m(t,)472 1173 y(it)g(giv)m(es)i(the)g +(ratio)d(of)i(the)g(second-order)h(to)f(the)h(total)d(3-jet)h(cross)j +(section)e(in)f(the)472 1282 y(giv)m(en)c(kinematical)d(p)s(oin)m(t.)60 +b(F)-8 b(or)37 b(a)i(4-jet)e(ev)m(en)m(t,)42 b(it)37 +b(giv)m(es)i(the)g(ratio)e(of)h(the)h(mo)s(di\014ed)472 +1390 y(4-jet)c(cross)i(section,)g(obtained)e(when)i(neglecting)d(in)m +(terference)j(terms)f(whose)g(colour)472 1498 y(\015o)m(w)f(is)f(not)g +(w)m(ell)g(de\014ned,)i(to)e(the)h(full)d(unmo)s(di\014ed)i(one,)h(all) +d(ev)-5 b(aluated)34 b(in)g(the)g(giv)m(en)472 1607 y(kinematical)c(p)s +(oin)m(t.)43 b(Not)32 b(used)i(in)e(parton)g(sho)m(w)m(ers.)0 +1715 y Fq(PARJ\(157\))54 b(-)d(PARJ\(159\))j(:)47 b Fw(\(I\))26 +b(used)i(for)d(cross-section)i(calculations)d(to)h(include)h(mass)g +(thresh-)472 1823 y(old)45 b(e\013ects)h(to)f(radiativ)m(e)f(photon)h +(cross)h(section.)81 b(What)45 b(is)f(stored)i(is)f(basic)g(cross)472 +1932 y(section,)33 b(n)m(um)m(b)s(er)g(of)f(ev)m(en)m(ts)j(generated)f +(and)e(n)m(um)m(b)s(er)h(that)g(passed)h(cuts.)0 2040 +y Fq(PARJ\(160\))54 b(:)47 b Fw(\(R\))32 b(nominal)e(fraction)i(of)g +(ev)m(en)m(ts)j(that)d(should)g(con)m(tain)h(a)f(radiativ)m(e)f +(photon.)0 2148 y Fq(PARJ\(161\))54 b(-)d(PARJ\(164\))j(:)47 +b Fw(\(I\))36 b(giv)m(e)g(shap)s(e)h(of)e(radiativ)m(e)g(photon)h(sp)s +(ectrum)g(including)e(w)m(eak)472 2257 y(e\013ects.)0 +2365 y Fq(PARJ\(168\))54 b(:)47 b Fw(\(R\))28 b(actual)g +Fj(f)39 b Fw(v)-5 b(alue)28 b(of)g(curren)m(t)i(ev)m(en)m(t)h(in)c +(optimized)g(p)s(erturbation)h(theory)h(for)f Fj(R)q +Fw(;)472 2473 y(see)34 b Fq(MSTJ\(111\))h Fw(and)e Fq(PARJ\(128\))p +Fw(.)0 2582 y Fq(PARJ\(169\))54 b(:)47 b Fw(\(R\))30 +b(actual)g Fj(f)41 b Fw(v)-5 b(alue)29 b(of)h(curren)m(t)i(ev)m(en)m(t) +g(in)d(optimized)g(p)s(erturbation)g(theory)i(for)f(3-)472 +2690 y(and)j(4-jet)f(rate;)h(see)g Fq(MSTJ\(111\))i Fw(and)e +Fq(PARJ\(129\))p Fw(.)0 2798 y Fq(PARJ\(171\))54 b(:)47 +b Fw(\(R\))38 b(fraction)e(of)h(cross)i(section)f(corresp)s(onding)g +(to)f(the)h(axial)e(coupling)g(of)i(quark)472 2907 y(pair)28 +b(to)h(the)g(in)m(termediate)f Fj(\015)1568 2871 y Fk(\003)1608 +2907 y Fj(=)p Fw(Z)1717 2871 y Fl(0)1784 2907 y Fw(state;)j(needed)g +(for)d(the)h(Ab)s(elian)f(gluon)g(mo)s(del)f(3-jet)472 +3015 y(matrix)k(elemen)m(t.)0 3288 y Fp(6.4)135 b(Examples)0 +3460 y Fw(An)32 b(ordinary)g(e)595 3424 y Fl(+)654 3460 +y Fw(e)697 3424 y Fk(\000)788 3460 y Fw(annihilation)d(ev)m(en)m(t)34 +b(in)d(the)h(con)m(tin)m(uum,)g(at)g(a)g(c.m.)43 b(energy)33 +b(of)e(40)h(GeV,)g(ma)m(y)0 3569 y(b)s(e)h(generated)g(with)308 +3752 y Fq(CALL)52 b(LUEEVT\(0,40.\))0 3936 y Fw(In)41 +b(this)g(case)h(a)e(q)p 684 3883 V(q)i(ev)m(en)m(t)h(is)e(generated,)j +(including)39 b(w)m(eak)j(e\013ects,)j(follo)m(w)m(ed)40 +b(b)m(y)h(parton-sho)m(w)m(er)0 4044 y(ev)m(olution)22 +b(and)i(fragmen)m(tation/deca)m(y)e(treatmen)m(t.)40 +b(Before)24 b(a)f(call)e(to)i Fq(LUEEVT)p Fw(,)i(ho)m(w)m(ev)m(er,)i(a) +c(n)m(um)m(b)s(er)0 4152 y(of)41 b(default)f(v)-5 b(alues)41 +b(ma)m(y)g(b)s(e)g(c)m(hanged,)j(e.g.)69 b Fq(MSTJ\(101\)=2)44 +b Fw(to)d(use)h(second-order)g(QCD)f(matrix)0 4261 y(elemen)m(ts,)28 +b(giving)c(a)i(mixture)f(of)g(q)p 1293 4208 V(q)q(,)i(q)p +1450 4208 V(q)q(g)q(,)h(q)p 1658 4208 V(q)q(gg)q(,)f(and)f(q)p +2097 4208 V(q)q(q)2200 4225 y Fk(0)p 2224 4208 V 2224 +4261 a Fw(q)2275 4225 y Fk(0)2324 4261 y Fw(ev)m(en)m(ts,)k +Fq(MSTJ\(102\)=1)f Fw(to)d(ha)m(v)m(e)h(QED)0 4369 y(only)-8 +b(,)42 b Fq(MSTJ\(104\)=6)h Fw(to)d(allo)m(w)f(t)p 1272 +4298 38 4 v(t)h(pro)s(duction)g(as)g(w)m(ell,)i Fq(MSTJ\(107\)=1)h +Fw(to)d(include)g(initial-state)0 4478 y(photon)35 b(radiation)d +(\(including)h(a)h(treatmen)m(t)h(of)f(the)h(Z)2096 4441 +y Fl(0)2170 4478 y Fw(p)s(ole\),)f Fq(PARJ\(123\)=92.0)k +Fw(to)d(c)m(hange)g(the)0 4586 y(Z)60 4550 y Fl(0)126 +4586 y Fw(mass,)28 b Fq(PARJ\(81\)=0.3)i Fw(to)c(c)m(hange)i(the)g +(parton-sho)m(w)m(er)f(\003)g(v)-5 b(alue,)28 b(or)e +Fq(PARJ\(82\)=1.5)k Fw(to)d(c)m(hange)0 4694 y(the)f(parton-sho)m(w)m +(er)h(cut-o\013.)41 b(If)26 b(initial-state)d(photon)j(radiation)d(is)j +(used,)i(some)e(restrictions)g(apply)0 4803 y(to)37 b(ho)m(w)h(one)g +(can)g(alternate)f(the)h(generation)e(of)h(ev)m(en)m(ts)j(at)d +(di\013eren)m(t)h(energies)g(or)f(with)g(di\013eren)m(t)0 +4911 y(Z)60 4875 y Fl(0)138 4911 y Fw(mass,)k(etc.)63 +b(These)41 b(restrictions)e(are)g(not)g(there)g(for)g(e\016ciency)h +(reasons)g(\(the)g(extra)f(time)f(for)0 5019 y(recalculating)k(the)j +(extra)g(constan)m(ts)g(ev)m(ery)h(time)d(is)h(small\),)h(but)g(b)s +(ecause)g(it)f(ties)g(in)f(with)h(the)0 5128 y(cross-section)33 +b(calculations)e(\(see)j Fq(PARJ\(144\))p Fw(\).)146 +5236 y(Most)40 b(parameters)f(can)g(b)s(e)g(c)m(hanged)h(indep)s(enden) +m(tly)g(of)e(eac)m(h)i(other.)62 b(Ho)m(w)m(ev)m(er,)43 +b(if)38 b(just)h(one)0 5344 y(or)e(a)f(few)i(parameters/switc)m(hes)h +(are)e(c)m(hanged,)i(one)e(should)g(not)g(b)s(e)g(surprised)h(to)f +(\014nd)h(a)e(rather)0 5453 y(bad)f(agreemen)m(t)g(with)f(the)i(data,)f +(lik)m(e)f(e.g.)50 b(a)35 b(to)s(o)f(lo)m(w)g(or)g(high)g(a)m(v)m +(erage)i(hadron)f(m)m(ultiplicit)m(y)-8 b(.)46 b(It)0 +5561 y(is)36 b(therefore)h(usually)e(necessary)k(to)d(retune)h(one)g +(parameter)e(related)h(to)g(the)h(p)s(erturbativ)m(e)g(QCD)0 +5669 y(description,)50 b(lik)m(e)45 b Fj(\013)798 5684 +y Fl(s)877 5669 y Fw(or)h(\003,)k(one)d(of)f(the)h(t)m(w)m(o)g +(parameters)f Fj(a)h Fw(and)f Fj(b)h Fw(of)f(the)h(Lund)g(symmetric) +1841 5953 y(85)p eop +%%Page: 86 92 +86 91 bop 0 -18 a Fw(fragmen)m(tation)40 b(function)i(\(since)g(they)h +(are)f(so)g(strongly)g(correlated,)i(it)d(is)g(often)h(not)g(necessary) +0 90 y(to)h(retune)i(b)s(oth)e(of)h(them\),)i(and)e(the)g(a)m(v)m +(erage)g(fragmen)m(tation)e(transv)m(erse)k(momen)m(tum)c(|)h(see)0 +198 y(Note)32 b(2)g(of)g(the)g Fq(MSTJ\(101\))j Fw(description)c(for)h +(an)g(example.)43 b(F)-8 b(or)31 b(v)m(ery)j(detailed)d(studies)h(it)f +(ma)m(y)h(b)s(e)0 307 y(necessary)j(to)d(retune)i(ev)m(en)g(more)e +(parameters.)146 415 y(The)i(three-gluon)e(and)g(gluon{gluon{photon)f +(deca)m(ys)j(of)e(\007)h(ma)m(y)f(b)s(e)h(sim)m(ulated)e(b)m(y)i(a)g +(call)308 606 y Fq(CALL)52 b(LUONIA\(5,9.46\))0 798 y +Fw(Unfortunately)-8 b(,)32 b(with)h(presen)m(t)h(top-mass)e(limits,)e +(this)i(routine)g(will)f(not)h(b)s(e)h(of)g(m)m(uc)m(h)g(in)m(terest)g +(for)0 906 y(top)s(onium)e(studies)i(\(w)m(eak)h(deca)m(ys)g(will)c +(dominate\).)146 1014 y(A)43 b(t)m(ypical)f(program)g(for)g(analysis)g +(of)h(e)1694 978 y Fl(+)1753 1014 y Fw(e)1796 978 y Fk(\000)1898 +1014 y Fw(annihilation)d(ev)m(en)m(ts)45 b(at)d(100)g(GeV)h(migh)m(t)f +(lo)s(ok)0 1123 y(something)32 b(lik)m(e)308 1314 y Fq +(COMMON/LUJETS/N,K\(4000,5\),)q(P\(40)q(00,5)q(\),V\()q(400)q(0,5\))308 +1422 y(COMMON/LUDAT1/MSTU\(200\),PA)q(RU\(2)q(00\),)q(MSTJ)q(\(20)q +(0\),P)q(ARJ\()q(200\))308 1531 y(COMMON/LUDAT2/KCHG\(500,3\),)q(PMAS)q +(\(500)q(,4\),)q(PAR)q(F\(20)q(00\),)q(VCKM)q(\(4,4)q(\))308 +1639 y(COMMON/LUDAT3/MDCY\(500,3\),)q(MDME)q(\(200)q(0,2\))q(,BR)q +(AT\(2)q(000\))q(,KFD)q(P\(20)q(00,)q(5\))308 1747 y +(MDCY\(LUCOMP\(111\),1\)=0)569 b(!)52 b(put)g(pi0)g(stable)308 +1856 y(MSTJ\(107\)=1)1079 b(!)52 b(include)h(initial-state)h(radiation) +308 1964 y(PARU\(41\)=1.)1079 b(!)52 b(use)g(linear)h(sphericity)308 +2072 y(.....)1385 b(!)52 b(other)g(desired)h(changes)308 +2181 y(.....)1385 b(!)52 b(initialize)i(analysis)f(statistics)308 +2289 y(DO)e(100)h(IEVENT=1,1000)619 b(!)52 b(loop)g(over)g(events)308 +2397 y(CALL)g(LUEEVT\(0,100.\))670 b(!)52 b(generate)h(new)f(event)308 +2506 y(IF\(IEVENT.EQ.1\))j(CALL)d(LULIST\(2\))105 b(!)52 +b(list)g(first)h(event)308 2614 y(CALL)f(LUTABU\(11\))874 +b(!)52 b(save)g(particle)h(composition)1948 2722 y(!)154 +b(statistics)308 2831 y(CALL)52 b(LUEDIT\(2\))925 b(!)52 +b(remove)h(decayed)g(particles)308 2939 y(CALL)f(LUSPHE\(SPH,APL\))619 +b(!)52 b(linear)h(sphericity)g(analysis)308 3047 y(IF\(SPH.LT.0.\))h +(GOTO)f(100)513 b(!)52 b(too)g(few)g(particles)h(in)f(event)h(for)1948 +3156 y(!)154 b(LUSPHE)53 b(to)f(work)g(on)g(it)g(\(unusual\))308 +3264 y(CALL)g(LUEDIT\(31\))874 b(!)52 b(orient)h(event)f(along)h(axes)f +(above)308 3373 y(IF\(IEVENT.EQ.1\))j(CALL)d(LULIST\(2\))105 +b(!)52 b(list)g(first)h(treated)g(event)308 3481 y(.....)1385 +b(!)52 b(fill)g(analysis)h(statistics)308 3589 y(CALL)f +(LUTHRU\(THR,OBL\))619 b(!)52 b(now)g(do)g(thrust)g(analysis)308 +3698 y(.....)1385 b(!)52 b(more)g(analysis)h(statistics)103 +3806 y(100)f(CONTINUE)1232 b(!)308 3914 y(CALL)52 b(LUTABU\(12\))874 +b(!)52 b(print)g(particle)i(composition)1948 4023 y(!)154 +b(statistics)308 4131 y(.....)1385 b(!)52 b(print)g(analysis)i +(statistics)308 4239 y(END)1841 5953 y Fw(86)p eop +%%Page: 87 93 +87 92 bop 0 -18 a Ft(7)161 b(Pro)t(cess)53 b(Generation)g(in)h(PYTHIA)0 +189 y Fw(Muc)m(h)36 b(can)f(b)s(e)g(said)f(ab)s(out)g(the)h(hard)g(pro) +s(cesses)h(in)e Fm(Pythia)h Fw(and)g(the)g(w)m(a)m(y)g(they)h(are)f +(generated.)0 297 y(Therefore)40 b(the)f(material)c(has)k(b)s(een)g +(split)f(in)m(to)f(three)j(sections.)62 b(In)38 b(the)h(curren)m(t)h +(one)f(the)g(philo-)0 405 y(soph)m(y)j(underlying)d(the)i(ev)m(en)m(t)h +(generation)e(sc)m(heme)i(is)d(presen)m(ted.)69 b(Here)41 +b(w)m(e)h(pro)m(vide)e(a)g(generic)0 514 y(description,)i(where)f(some) +f(sp)s(ecial)f(cases)j(are)e(sw)m(ept)h(under)g(the)g(carp)s(et.)66 +b(In)41 b(the)f(next)h(section,)0 622 y(the)31 b(existing)f(pro)s +(cesses)j(are)e(en)m(umerated,)g(with)g(some)f(commen)m(ts)h(ab)s(out)f +(applications)f(and)h(limi-)0 730 y(tations.)44 b(Finally)-8 +b(,)30 b(in)j(the)g(third)f(section)i(the)f(generation)f(routines)h +(and)g(common)f(blo)s(c)m(k)h(switc)m(hes)0 839 y(are)g(describ)s(ed.) +146 947 y(The)27 b(section)e(starts)h(with)f(a)h(surv)m(ey)h(of)e +(parton)g(distributions,)h(follo)m(w)m(ed)e(b)m(y)j(a)e(detailed)f +(descrip-)0 1055 y(tion)32 b(of)h(the)h(simple)e(2)d +Fn(!)g Fw(2)k(and)g(2)c Fn(!)g Fw(1)k(hard)h(subpro)s(cess)h +(generation)e(sc)m(hemes,)i(including)d(pairs)0 1164 +y(of)g(resonances.)45 b(This)33 b(is)f(follo)m(w)m(ed)g(b)m(y)h(a)g +(few)g(commen)m(ts)f(on)h(more)f(complicated)f(con\014gurations.)0 +1438 y Fp(7.1)135 b(P)l(arton)46 b(Distributions)0 1610 +y Fw(The)34 b(parton-distribution)d(function)i Fj(f)1490 +1574 y Fh(a)1479 1635 y(i)1531 1610 y Fw(\()p Fj(x;)17 +b(Q)1745 1574 y Fl(2)1785 1610 y Fw(\))33 b(parametrizes)g(the)h +(probabilit)m(y)d(to)i(\014nd)h(a)f(parton)0 1719 y Fj(i)41 +b Fw(with)g(a)f(fraction)g Fj(x)h Fw(of)f(the)i(b)s(eam)e(energy)i +(when)g(the)f(b)s(eam)f(particle)g Fj(a)h Fw(is)f(prob)s(ed)h(b)m(y)h +(a)e(hard)0 1827 y(scattering)22 b(at)g(virtualit)m(y)f(scale)i +Fj(Q)1271 1791 y Fl(2)1310 1827 y Fw(.)40 b(Usually)22 +b(the)h(momen)m(tum-w)m(eigh)m(ted)f(com)m(bination)e +Fj(xf)3446 1791 y Fh(a)3435 1852 y(i)3488 1827 y Fw(\()p +Fj(x;)d(Q)3702 1791 y Fl(2)3742 1827 y Fw(\))0 1948 y(is)35 +b(used,)i(for)d(whic)m(h)i(the)f(normalization)d(condition)2008 +1881 y Fg(P)2096 1968 y Fh(i)2141 1877 y Fg(R)2196 1903 +y Fl(1)2180 1973 y(0)2252 1948 y Fj(dx)17 b(xf)2489 1911 +y Fh(a)2478 1972 y(i)2531 1948 y Fw(\()p Fj(x;)g(Q)2745 +1911 y Fl(2)2784 1948 y Fw(\))32 b Fn(\021)h Fw(1)i(normally)d +(applies.)0 2056 y(The)c Fj(Q)272 2020 y Fl(2)338 2056 +y Fw(dep)s(endence)h(of)d(parton)h(distributions)e(is)h(p)s(erturbativ) +m(ely)h(calculable,)f(see)i(section)f(10.3.1.)146 2164 +y(The)33 b(parton)e(distributions)e(in)i Fm(Pythia)g +Fw(come)g(in)g(man)m(y)g(shap)s(es,)i(as)e(sho)m(wn)i(in)d(the)i(follo) +m(wing.)0 2412 y Fo(7.1.1)112 b(Bary)m(ons)0 2585 y Fw(F)-8 +b(or)35 b(protons,)i(man)m(y)f(sets)h(exist)f(on)f(the)h(mark)m(et.)54 +b(These)37 b(are)f(obtained)f(b)m(y)i(\014ts)f(to)f(exp)s(erimen)m(tal) +0 2693 y(data,)43 b(constrained)e(so)g(that)f(the)i Fj(Q)1390 +2657 y Fl(2)1470 2693 y Fw(dep)s(endence)h(is)e(in)f(accordance)i(with) +e(the)h(standard)h(QCD)0 2801 y(ev)m(olution)25 b(equations.)41 +b(The)27 b(\(new\))f(default)f(in)g Fm(Pythia)g Fw(is)g(CTEQ2L)i +([Bot93)o(],)g(a)f(mo)s(dern)f(leading-)0 2910 y(order)33 +b(\014t.)43 b(T)-8 b(en)34 b(other)e(sets)i(are)f(found)f(in)g +Fm(Pythia)p Fw(.)44 b(The)33 b(complete)f(list)f(is:)145 +3023 y Fn(\017)49 b Fw(EHLQ)33 b(sets)g(1)g(and)f(2)h([Eic84)o(];)145 +3141 y Fn(\017)49 b Fw(DO)32 b(sets)i(1)e(and)g(2)h([Duk82];)145 +3258 y Fn(\017)49 b Fw(the)28 b(other)g(CTEQ2)h(\014ts,)h(namely)d +(CTEQ2M,)i(CTEQ2MS,)h(CTEQ2MF,)f(CTEQ2ML,)g(and)244 3367 +y(CTEQ2D)k([Bot93)o(];)g(and)145 3485 y Fn(\017)49 b +Fw(the)33 b(dynamically)d(generated)k(\014t)e(GR)-11 +b(V)32 b(LO)h(\(up)s(dated)g(v)m(ersion\))g([Glu92)n(].)0 +3598 y(Of)24 b(these,)j(EHLQ,)e(DO,)f(CTEQ2L)h(and)f(GR)-11 +b(V)24 b(LO)g(are)g(leading-order)f(parton)h(distributions,)g(while)0 +3706 y(CTEQ2D)30 b(are)g(in)e(the)j(next-to-leading-order)c(DIS)i(sc)m +(heme)i(and)f(the)g(rest)g(in)f(the)h(next-to-leading)0 +3814 y(order)p 258 3736 144 4 v 36 w(MS)37 b(sc)m(heme.)54 +b(The)37 b(EHLQ)g(and)f(DO)f(sets)i(are)f(b)m(y)h(no)m(w)f(rather)h +(old,)e(and)h(are)g(k)m(ept)i(mainly)0 3923 y(for)g(bac)m(kw)m(ards)j +(compatibilit)m(y)-8 b(.)58 b(Since)39 b(only)f(Born-lev)m(el)f(matrix) +g(elemen)m(ts)i(are)g(included)f(in)g(the)0 4031 y(program,)45 +b(there)f(is)f(no)h(particular)e(reason)i(to)f(use)i(higher-order)d +(parton)i(distributions)e(|)h(the)0 4139 y(resulting)27 +b(com)m(bination)g(is)g(an)m(yw)m(a)m(y)k(only)d(go)s(o)s(d)f(to)h +(leading-order)e(accuracy)-8 b(.)43 b(\(Some)28 b(higher-order)0 +4248 y(corrections)i(are)h(e\013ectiv)m(ely)g(included)f(b)m(y)h(the)g +(parton-sho)m(w)m(er)g(treatmen)m(t,)g(but)f(there)i(is)d(no)i(exact)0 +4356 y(matc)m(h.\))146 4464 y(There)38 b(is)e(a)g(steady)h(\015o)m(w)g +(of)f(new)h(parton-distribution)d(sets)j(on)f(the)h(mark)m(et.)55 +b(T)-8 b(o)36 b(k)m(eep)i(trac)m(k)0 4573 y(of)32 b(all)f(of)h(them)g +(is)g(a)h(ma)5 b(jor)31 b(w)m(ork)j(on)e(its)g(o)m(wn.)45 +b(Therefore)34 b Fm(Pythia)e Fw(con)m(tains)h(an)g(in)m(terface)f(to)h +(an)0 4681 y(external)39 b(library)e(of)h(parton)h(distribution)d +(functions,)41 b Fm(Pdflib)e Fw([Plo93)o(].)62 b(This)39 +b(is)f(a)g(truly)h(ency-)0 4789 y(clop)s(edic)e(collection)f(of)i +(almost)e(all)g(proton,)k(pion)d(and)h(photon)g(parton)g(distributions) +f(prop)s(osed)0 4898 y(since)d(the)f(late)g(70's.)45 +b(Tw)m(o)34 b(dumm)m(y)f(routines)g(come)g(with)g(the)h +Fm(Pythia)f Fw(pac)m(k)-5 b(age,)34 b(so)f(as)h(to)f(a)m(v)m(oid)0 +5006 y(problems)39 b(with)g(unresolv)m(ed)i(external)f(references)i(if) +j Fm(Pdflib)40 b Fw(is)g(not)f(link)m(ed.)65 b(One)40 +b(should)f(also)0 5114 y(note)d(that)f Fm(Pythia)g Fw(do)s(es)h(not)g +(c)m(hec)m(k)h(the)f(results,)h(but)f(assumes)g(that)f(sensible)h(answ) +m(ers)h(will)c(b)s(e)0 5223 y(returned,)38 b(also)d(outside)h(the)h +(nominal)c(\()p Fj(x;)17 b(Q)1729 5187 y Fl(2)1769 5223 +y Fw(\))36 b(range)g(of)f(a)h(set.)55 b(Only)36 b(the)g(sets)h(that)f +(come)g(with)0 5331 y Fm(Pythia)29 b Fw(ha)m(v)m(e)h(b)s(een)g +(suitably)e(mo)s(di\014ed)g(to)g(pro)m(vide)h(reasonable)g(answ)m(ers)i +(outside)e(their)f(nominal)0 5439 y(domain)j(of)h(v)-5 +b(alidit)m(y)d(.)146 5548 y(F)g(rom)39 b(the)i(proton)g(parton)f +(distributions,)h(those)h(of)e(the)h(neutron)g(are)g(obtained)f(b)m(y)h +(isospin)0 5656 y(conjugation,)31 b(i.e.)43 b Fj(f)782 +5620 y Fl(n)771 5681 y(u)853 5656 y Fw(=)28 b Fj(f)1016 +5609 y Fl(p)1005 5681 y(d)1091 5656 y Fw(and)33 b Fj(f)1340 +5620 y Fl(n)1329 5681 y(d)1411 5656 y Fw(=)27 b Fj(f)1573 +5620 y Fl(p)1562 5681 y(u)1616 5656 y Fw(.)1841 5953 +y(87)p eop +%%Page: 88 94 +88 93 bop 146 -18 a Fw(The)44 b(program)c(do)s(es)j(allo)m(w)e(for)h +(incoming)e(b)s(eams)i(of)g(a)g(n)m(um)m(b)s(er)g(of)g(h)m(yp)s(erons:) +65 b(\003)3383 -55 y Fl(0)3422 -18 y Fw(,)45 b(\006)3564 +-55 y Fk(\000)p Fh(;)p Fl(0)p Fh(;)p Fl(+)3752 -18 y +Fw(,)0 90 y(\004)65 54 y Fk(\000)p Fh(;)p Fl(0)214 90 +y Fw(and)36 b(\012)477 54 y Fk(\000)537 90 y Fw(.)52 +b(Here)36 b(one)g(has)g(essen)m(tially)f(no)g(exp)s(erimen)m(tal)g +(information.)49 b(One)36 b(could)f(imagine)0 198 y(to)f(construct)i +(mo)s(dels)d(in)h(whic)m(h)h(v)-5 b(alence)35 b(s)g(quarks)h(are)f +(found)g(at)f(larger)f(a)m(v)m(erage)j Fj(x)f Fw(v)-5 +b(alues)34 b(than)0 307 y(v)-5 b(alence)35 b(u)h(and)f(d)h(ones,)g(b)s +(ecause)h(of)e(the)h(larger)e(s-quark)i(mass.)51 b(Ho)m(w)m(ev)m(er,)39 +b(h)m(yp)s(eron)d(b)s(eams)f(is)g(a)0 415 y(little-used)24 +b(part)h(of)g(the)h(program,)g(included)f(only)g(for)g(a)g(few)h(sp)s +(eci\014c)g(studies.)42 b(Therefore)27 b(a)e(simple)0 +523 y(approac)m(h)i(has)g(b)s(een)h(tak)m(en,)h(in)d(whic)m(h)h(an)g(a) +m(v)m(erage)h(v)-5 b(alence)27 b(quark)h(distribution)c(is)j +(constructed)h(as)0 632 y Fj(f)48 647 y Fl(v)l(al)168 +632 y Fw(=)g(\()p Fj(f)369 584 y Fl(p)358 657 y(u)p Fh(;)p +Fl(v)l(al)523 632 y Fw(+)14 b Fj(f)672 584 y Fl(p)661 +657 y(d)p Fh(;)p Fl(v)l(al)812 632 y Fw(\))p Fj(=)p Fw(3,)29 +b(according)f(to)g(whic)m(h)h(eac)m(h)h(v)-5 b(alence)28 +b(quark)i(in)e(a)g(h)m(yp)s(eron)h(is)g(assumed)g(to)0 +740 y(b)s(e)g(distributed.)42 b(Sea-quark)29 b(and)g(gluon)f +(distributions)g(are)h(tak)m(en)g(as)g(in)f(the)i(proton.)42 +b(An)m(y)30 b(proton)0 848 y(parton)i(distribution)f(set)i(ma)m(y)g(b)s +(e)f(used)i(with)e(this)h(pro)s(cedure.)0 1096 y Fo(7.1.2)112 +b(Mesons)39 b(and)f(photons)0 1268 y Fw(Data)45 b(on)h(meson)g(parton)g +(distributions)e(are)j(scarce,)j(so)d(only)e(v)m(ery)j(few)e(sets)h(ha) +m(v)m(e)h(b)s(een)f(con-)0 1377 y(structed,)37 b(and)e(only)f(for)g +(the)i Fj(\031)1199 1341 y Fk(\006)1258 1377 y Fw(.)50 +b Fm(Pythia)35 b Fw(con)m(tains)g(the)g(Ow)m(ens)i(set)e(1)g(and)g(2)f +(parton)h(distribu-)0 1485 y(tions)29 b([Ow)m(e84],)h(whic)m(h)g(for)f +(a)g(long)f(time)g(w)m(ere)i(essen)m(tially)f(the)h(only)e(sets)j(on)e +(the)h(mark)m(et,)g(and)f(the)0 1593 y(more)h(recen)m(t)i(dynamically)c +(generated)k(GR)-11 b(V)30 b(LO)g(\(up)s(dated)h(v)m(ersion\))g +([Glu92a)o(].)42 b(The)32 b(\014rst)f(one)g(is)0 1702 +y(the)37 b(default)e(in)h Fm(Pythia)p Fw(.)54 b(F)-8 +b(urther)36 b(sets)i(are)e(found)g(in)g Fm(Pdflib)g Fw(and)h(can)f +(therefore)h(b)s(e)f(used)i(b)m(y)0 1810 y Fm(Pythia)p +Fw(,)33 b(just)g(as)g(describ)s(ed)g(ab)s(o)m(v)m(e)g(for)f(protons.) +146 1918 y(Sets)j(of)e(photon)h(parton)g(distributions)e(ha)m(v)m(e)j +(b)s(een)g(obtained)e(as)h(for)g(hadrons;)h(an)e(additional)0 +2027 y(complication)c(comes)k(from)e(the)i(necessit)m(y)h(to)e(handle)g +(the)h(matc)m(hing)e(of)h(the)h(v)m(ector)g(meson)g(dom-)0 +2135 y(inance)j(\(VMD\))h(and)f(the)h(p)s(erturbativ)m(e)g(pieces)g(in) +f(a)g(consisten)m(t)h(manner.)55 b(New)37 b(sets)h(ha)m(v)m(e)g(b)s +(een)0 2243 y(pro)s(duced)25 b(where)g(this)e(division)g(is)g(explicit) +g(and)h(therefore)g(esp)s(ecially)f(w)m(ell)g(suited)h(for)g +(applications)0 2352 y(to)k(ev)m(en)m(t)i(generation[Sc)m(h95].)42 +b(The)30 b(Sc)m(h)m(uler)f(and)f(Sj\177)-49 b(ostand)29 +b(set)g(1D)e(is)h(the)h(default.)41 b(Although)28 b(the)0 +2460 y(v)m(ector-meson)38 b(philosoph)m(y)f(is)g(at)h(the)g(base,)h +(the)f(details)e(of)i(the)f(\014ts)i(do)e(not)g(rely)h(on)f(pion)g +(data,)0 2569 y(but)c(only)f(on)g Fj(F)605 2521 y Fh(\015)591 +2590 y Fl(2)682 2569 y Fw(data.)43 b(Here)33 b(follo)m(ws)f(a)g(brief)g +(summary)g(of)g(relev)-5 b(an)m(t)33 b(details.)146 2677 +y(Photons)i(ob)s(ey)f(a)g(set)h(of)e(inhomogeneous)h(ev)m(olution)f +(equations,)h(where)i(the)e(inhomogeneous)0 2785 y(term)j(is)f(induced) +i(b)m(y)g Fj(\015)j Fn(!)35 b Fw(q)p 1126 2732 52 4 v(q)j(branc)m +(hings.)58 b(The)38 b(solution)e(can)h(b)s(e)h(written)f(as)g(the)h +(sum)f(of)g(t)m(w)m(o)0 2894 y(terms,)862 3002 y Fj(f)921 +2961 y Fh(\015)910 3027 y(a)965 3002 y Fw(\()p Fj(x;)17 +b(Q)1179 2961 y Fl(2)1219 3002 y Fw(\))28 b(=)f Fj(f)1447 +2961 y Fh(\015)t(;)p Fl(NP)1436 3027 y Fh(a)1612 3002 +y Fw(\()p Fj(x;)17 b(Q)1826 2961 y Fl(2)1866 3002 y Fw(;)g +Fj(Q)1987 2961 y Fl(2)1987 3027 y(0)2026 3002 y Fw(\))22 +b(+)g Fj(f)2243 2961 y Fh(\015)t(;)p Fl(PT)2232 3027 +y Fh(a)2406 3002 y Fw(\()p Fj(x;)17 b(Q)2620 2961 y Fl(2)2659 +3002 y Fw(;)g Fj(Q)2780 2961 y Fl(2)2780 3027 y(0)2820 +3002 y Fw(\))32 b Fj(;)689 b Fw(\(46\))0 3163 y(where)64 +b(the)g(former)e(term)h(is)g(a)g(solution)f(to)h(the)g(homogeneous)h +(ev)m(olution)e(with)h(a)g(\(non-)0 3272 y(p)s(erturbativ)m(e\))43 +b(input)g(at)f Fj(Q)j Fw(=)g Fj(Q)1329 3287 y Fl(0)1412 +3272 y Fw(and)e(the)g(latter)f(is)g(a)h(solution)e(to)i(the)g(full)e +(inhomogeneous)0 3380 y(equation)33 b(with)f(b)s(oundary)h(condition)f +Fj(f)1548 3344 y Fh(\015)t(;)p Fl(PT)1537 3405 y Fh(a)1710 +3380 y Fw(\()p Fj(x;)17 b(Q)1924 3344 y Fl(2)1924 3405 +y(0)1964 3380 y Fw(;)g Fj(Q)2085 3344 y Fl(2)2085 3405 +y(0)2125 3380 y Fw(\))28 b Fn(\021)g Fw(0.)44 b(One)33 +b(p)s(ossible)g(ph)m(ysics)h(in)m(terpreta-)0 3488 y(tion)h(is)h(to)g +(let)f Fj(f)632 3452 y Fh(\015)t(;)p Fl(NP)621 3513 y +Fh(a)833 3488 y Fw(corresp)s(ond)i(to)f Fj(\015)j Fn($)33 +b Fj(V)58 b Fw(\015uctuations,)37 b(where)h Fj(V)55 b +Fw(=)34 b Fj(\032)2915 3452 y Fl(0)2955 3488 y Fj(;)17 +b(!)t(;)g(\036;)g(:)g(:)g(:)33 b Fw(is)j(a)g(set)h(of)0 +3597 y(v)m(ector)i(mesons,)h(and)f(let)e Fj(f)1070 3561 +y Fh(\015)t(;)p Fl(PT)1059 3621 y Fh(a)1271 3597 y Fw(corresp)s(ond)i +(to)f(p)s(erturbativ)m(e)h(\(`anomalous'\))d Fj(\015)42 +b Fn($)37 b Fw(q)p 3364 3544 V(q)i(\015uctua-)0 3705 +y(tions.)57 b(The)38 b(discrete)g(sp)s(ectum)f(of)g(v)m(ector)h(mesons) +g(can)g(b)s(e)f(com)m(bined)g(with)g(the)g(con)m(tin)m(uous)h(\(in)0 +3813 y(virtualit)m(y)31 b Fj(k)485 3777 y Fl(2)524 3813 +y Fw(\))i(sp)s(ectrum)g(of)f(q)p 1183 3760 V(q)h(\015uctuations,)g(to)f +(giv)m(e)245 4091 y Fj(f)304 4049 y Fh(\015)293 4115 +y(a)348 4091 y Fw(\()p Fj(x;)17 b(Q)562 4049 y Fl(2)602 +4091 y Fw(\))27 b(=)771 4007 y Fg(X)802 4191 y Fh(V)917 +4023 y Fw(4)p Fj(\031)t(\013)1087 4038 y Fl(em)p 917 +4067 265 4 v 995 4159 a Fj(f)1054 4125 y Fl(2)1043 4183 +y Fh(V)1191 4091 y Fj(f)1250 4049 y Fh(\015)t(;V)1239 +4115 y(a)1371 4091 y Fw(\()p Fj(x;)17 b(Q)1585 4049 y +Fl(2)1625 4091 y Fw(\))22 b(+)1793 4023 y Fj(\013)1855 +4038 y Fl(em)p 1793 4067 157 4 v 1817 4159 a Fw(2)p Fj(\031)1992 +4007 y Fg(X)2034 4182 y Fl(q)2129 4091 y Fw(2)p Fj(e)2223 +4049 y Fl(2)2223 4115 y(q)2297 3973 y Fg(Z)2380 4000 +y Fh(Q)2436 3976 y Ff(2)2344 4162 y Fh(Q)2400 4139 y +Ff(2)2400 4185 y(0)2501 4023 y Fw(d)p Fj(k)2609 3987 +y Fl(2)p 2501 4067 148 4 v 2528 4159 a Fj(k)2582 4130 +y Fl(2)2676 4091 y Fj(f)2735 4049 y Fh(\015)t(;)p Fl(q)p +2832 4011 38 4 v(q)2724 4115 y Fh(a)2873 4091 y Fw(\()p +Fj(x;)17 b(Q)3087 4049 y Fl(2)3127 4091 y Fw(;)g Fj(k)3225 +4049 y Fl(2)3264 4091 y Fw(\))32 b Fj(;)245 b Fw(\(47\))0 +4390 y(where)34 b(eac)m(h)f(comp)s(onen)m(t)g Fj(f)1059 +4354 y Fh(\015)t(;V)1212 4390 y Fw(and)g Fj(f)1461 4354 +y Fh(\015)t(;)p Fl(q)p 1558 4316 V(q)1631 4390 y Fw(ob)s(eys)h(a)e +(unit)g(momen)m(tum)f(sum)i(rule.)146 4499 y(In)f(sets)g(1)f(the)g +Fj(Q)779 4514 y Fl(0)850 4499 y Fw(scale)g(is)f(pic)m(k)m(ed)i(at)f(a)g +(lo)m(w)f(v)-5 b(alue,)31 b(0.6)g(GeV,)g(where)h(an)f(iden)m +(ti\014cation)f(of)g(the)0 4607 y(non-p)s(erturbativ)m(e)35 +b(comp)s(onen)m(t)f(with)g(a)g(set)i(of)e(lo)m(w-lying)e(mesons)j(app)s +(ear)f(natural,)g(while)g(sets)i(2)0 4715 y(use)30 b(a)e(higher)h(v)-5 +b(alue,)29 b(2)f(GeV,)h(where)h(the)f(v)-5 b(alidit)m(y)27 +b(of)h(p)s(erturbation)g(theory)i(is)e(b)s(etter)h(established.)0 +4824 y(The)38 b(data)g(are)f(not)g(go)s(o)s(d)g(enough)h(to)f(allo)m(w) +f(a)h(precise)h(determination)e(of)h(\003)2973 4839 y +Fl(QCD)3137 4824 y Fw(.)58 b(Therefore)38 b(w)m(e)0 4946 +y(use)46 b(a)f(\014xed)i(v)-5 b(alue)44 b(\003)856 4910 +y Fl(\(4\))1000 4946 y Fw(=)49 b(200)44 b(MeV,)i(in)f(agreemen)m(t)g +(with)g(con)m(v)m(en)m(tional)g(results)h(for)f(proton)0 +5054 y(distributions.)e(In)33 b(the)h(VMD)e(comp)s(onen)m(t)h(the)h +Fj(\032)1887 5018 y Fl(0)1959 5054 y Fw(and)f Fj(!)j +Fw(ha)m(v)m(e)f(b)s(een)e(added)h(coheren)m(tly)-8 b(,)34 +b(so)f(that)0 5163 y(u)p 54 5110 55 4 v(u)28 b(:)g(d)p +245 5083 V(d)g(=)f(4)h(:)g(1)k(at)g Fj(Q)839 5178 y Fl(0)879 +5163 y Fw(.)146 5271 y(Unlik)m(e)37 b(the)h(p,)h(the)e +Fj(\015)42 b Fw(has)c(a)f(direct)g(comp)s(onen)m(t)g(where)i(the)f +(photon)f(acts)h(as)f(an)g(unresolv)m(ed)0 5379 y(prob)s(e.)44 +b(In)33 b(the)g(de\014nition)e(of)h Fj(F)1223 5332 y +Fh(\015)1209 5401 y Fl(2)1300 5379 y Fw(this)g(adds)h(a)f(comp)s(onen)m +(t)h Fj(C)2375 5343 y Fh(\015)2419 5379 y Fw(,)g(sym)m(b)s(olically)801 +5607 y Fj(F)878 5559 y Fh(\015)864 5628 y Fl(2)922 5607 +y Fw(\()p Fj(x;)17 b(Q)1136 5565 y Fl(2)1176 5607 y Fw(\))27 +b(=)1345 5524 y Fg(X)1386 5698 y Fl(q)1481 5607 y Fj(e)1526 +5565 y Fl(2)1526 5631 y(q)1585 5510 y Fg(h)1624 5607 +y Fj(f)1683 5565 y Fh(\015)1672 5631 y Fl(q)1749 5607 +y Fw(+)22 b Fj(f)1906 5559 y Fh(\015)p 1895 5592 42 4 +v 1895 5631 a Fl(q)1950 5510 y Fg(i)2012 5607 y Fn(\012)g +Fj(C)2181 5622 y Fl(q)2244 5607 y Fw(+)h Fj(f)2402 5565 +y Fh(\015)2391 5631 y Fl(g)2468 5607 y Fn(\012)f Fj(C)2637 +5622 y Fl(g)2700 5607 y Fw(+)g Fj(C)2875 5565 y Fh(\015)2952 +5607 y Fj(:)627 b Fw(\(48\))1841 5953 y(88)p eop +%%Page: 89 95 +89 94 bop 0 -18 a Fw(Since)33 b Fj(C)332 -55 y Fh(\015)404 +-18 y Fn(\021)c Fw(0)k(in)f(leading)f(order,)i(and)g(since)g(w)m(e)h +(sta)m(y)g(with)f(leading-order)d(\014ts,)k(it)e(is)g(p)s(ermissible)0 +90 y(to)j(neglect)g(this)g(complication.)49 b(Numerically)-8 +b(,)33 b(ho)m(w)m(ev)m(er,)39 b(it)34 b(mak)m(es)i(a)f(non-negligible)d +(di\013erence.)0 198 y(W)-8 b(e)27 b(therefore)f(mak)m(e)h(t)m(w)m(o)g +(kinds)f(of)g(\014ts,)i(one)e(DIS)g(t)m(yp)s(e)h(with)f +Fj(C)2400 162 y Fh(\015)2472 198 y Fw(=)i(0)e(and)g(one)p +3007 120 144 4 v 27 w(MS)g(t)m(yp)s(e)h(including)0 307 +y(the)33 b(univ)m(ersal)f(part)h(of)f Fj(C)980 270 y +Fh(\015)1024 307 y Fw(.)146 415 y(When)47 b(jet)f(pro)s(duction)g(is)f +(studied)i(for)e(real)h(incoming)d(photons,)50 b(the)d(standard)f(ev)m +(olution)0 523 y(approac)m(h)31 b(is)g(reasonable)g(also)e(for)i(hea)m +(vy)h(\015a)m(v)m(ours,)h(i.e.)42 b(predominan)m(tly)30 +b(the)h(c,)h(but)f(with)g(a)f(lo)m(w)m(er)0 632 y(cut-o\013)36 +b Fj(Q)387 647 y Fl(0)462 632 y Fn(\031)f Fj(m)659 647 +y Fl(c)732 632 y Fw(for)h Fj(\015)k Fn(!)34 b Fw(c)p +1153 579 44 4 v(c)q(.)56 b(Mo)m(ving)36 b(to)h(deep)h(inelastic)d +(scattering,)i(e)p Fj(\015)j Fn(!)35 b Fw(e)p Fj(X)8 +b Fw(,)38 b(there)f(is)g(an)0 740 y(extra)43 b(kinematical)c(constrain) +m(t:)63 b Fj(W)1416 704 y Fl(2)1500 740 y Fw(=)44 b Fj(Q)1697 +704 y Fl(2)1736 740 y Fw(\(1)29 b Fn(\000)g Fj(x)p Fw(\))p +Fj(=x)45 b(>)f Fw(4)p Fj(m)2454 704 y Fl(2)2454 765 y(c)2493 +740 y Fw(.)73 b(It)42 b(is)g(here)h(b)s(etter)g(to)f(use)h(the)0 +848 y(`Bethe-Heitler')d(cross)i(section)f(for)f Fj(\015)1460 +812 y Fk(\003)1499 848 y Fj(\015)47 b Fn(!)41 b Fw(c)p +1781 795 V(c)q(.)68 b(Therefore)41 b(eac)m(h)h(distribution)d(app)s +(ears)i(in)f(t)m(w)m(o)0 957 y(v)-5 b(arian)m(ts.)42 +b(F)-8 b(or)27 b(applications)f(to)i(real)g Fj(\015)5 +b Fw('s)29 b(the)g(parton)f(distributions)f(are)h(calculated)f(as)i +(the)g(sum)f(of)0 1065 y(a)36 b(v)m(ector-meson)h(part)g(and)f(an)h +(anomalous)e(part)h(including)f(all)f(\014v)m(e)k(\015a)m(v)m(ours.)57 +b(F)-8 b(or)36 b(applications)0 1173 y(to)e(DIS,)h(the)h(sum)e(runs)i +(o)m(v)m(er)g(the)f(same)g(v)m(ector-meson)g(part,)h(an)e(anomalous)f +(part)i(and)g(p)s(ossibly)0 1282 y(a)d Fj(C)158 1245 +y Fh(\015)235 1282 y Fw(part)h(for)f(the)h(three)g(ligh)m(t)e(\015a)m +(v)m(ours,)j(and)e(a)h(Bethe-Heitler)f(part)g(for)g(c)h(and)g(b.)146 +1390 y(In)43 b(addition)e(to)h(the)h(SaS)g(sets,)j Fm(Pythia)d +Fw(also)e(con)m(tains)i(the)g(Drees{Grassie)f(set)i(of)e(parton)0 +1498 y(distributions)35 b([Dre85])i(and,)h(as)f(for)g(the)g(proton,)h +(there)f(is)g(an)g(in)m(terface)g(to)f(the)i Fm(Pdflib)f +Fw(library)0 1607 y([Plo93)o(].)42 b(Ho)m(w)m(ev)m(er,)31 +b(these)e(sets)g(do)e(not)h(allo)m(w)e(a)h(sub)s(division)g(of)g(the)h +(photon)g(parton)f(distributions)0 1715 y(in)m(to)f(one)g(VMD)g(part)h +(and)f(one)h(anomalous)d(part.)41 b(This)27 b(sub)s(division)e(is)h +(necessary)j(a)d(sophisticated)0 1823 y(mo)s(delling)36 +b(of)j Fj(\015)5 b Fw(p)40 b(and)f Fj(\015)5 b(\015)45 +b Fw(ev)m(en)m(ts,)f(see)c(ab)s(o)m(v)m(e)h(and)e(section)h(7.7.2.)64 +b(As)40 b(an)f(alternativ)m(e,)i(for)e(the)0 1932 y(VMD)33 +b(part)f(alone,)g(the)h Fj(\032)981 1896 y Fl(0)1053 +1932 y Fw(parton)f(distribution)f(can)i(b)s(e)g(found)f(from)g(the)h +(assumed)g(equalit)m(y)1294 2191 y Fj(f)1353 2143 y Fh(\032)1389 +2120 y Ff(0)1342 2213 y Fh(i)1455 2191 y Fw(=)28 b Fj(f)1618 +2149 y Fh(\031)1661 2126 y Ff(0)1607 2215 y Fh(i)1727 +2191 y Fw(=)1840 2123 y(1)p 1840 2167 49 4 v 1840 2259 +a(2)1916 2191 y(\()p Fj(f)2013 2149 y Fh(\031)2056 2126 +y Ff(+)2002 2215 y Fh(i)2132 2191 y Fw(+)22 b Fj(f)2289 +2149 y Fh(\031)2332 2126 y Fd(\000)2278 2215 y Fh(i)2388 +2191 y Fw(\))33 b Fj(:)1120 b Fw(\(49\))0 2446 y(Th)m(us)33 +b(an)m(y)f Fj(\031)488 2410 y Fl(+)578 2446 y Fw(parton)f(distribution) +e(set,)j(from)e(an)m(y)i(library)-8 b(,)30 b(can)h(b)s(e)g(turned)h(in) +m(to)f(a)g(VMD)g Fj(\032)3562 2410 y Fl(0)3633 2446 y +Fw(set.)0 2554 y(The)39 b Fj(!)j Fw(parton)c(distribution)f(is)h +(assumed)h(the)g(same,)h(while)e(the)h Fj(\036)f Fw(and)g(J)p +Fj(= )43 b Fw(ones)c(are)g(handled)0 2681 y(in)d(the)g(v)m(ery)i(crude) +f(appro)m(ximation)d Fj(f)1489 2633 y Fh(\036)1478 2706 +y Fl(s)p Fh(;)p Fl(v)l(al)1652 2681 y Fw(=)g Fj(f)1821 +2645 y Fh(\031)1864 2621 y Ff(+)1810 2705 y Fl(u)p Fh(;)p +Fl(v)l(al)1998 2681 y Fw(and)i Fj(f)2250 2645 y Fh(\036)2239 +2705 y Fl(sea)2372 2681 y Fw(=)e Fj(f)2541 2645 y Fh(\031)2584 +2621 y Ff(+)2530 2705 y Fl(sea)2638 2681 y Fw(.)55 b(therefore)37 +b(is)f(default.)54 b(The)0 2789 y(VMD)36 b(part)g(needs)i(to)e(b)s(e)g +(complemen)m(ted)g(b)m(y)h(an)f(anomalous)e(part)i(to)g(mak)m(e)h(upp)f +(a)g(full)e(photon)0 2897 y(distribution.)69 b(The)43 +b(latter)e(is)g(fully)g(p)s(erturbativ)m(ely)g(calculable,)i(giv)m(en)f +(the)g(lo)m(w)m(er)g(cut-o\013)f(scale)0 3006 y Fj(Q)77 +3021 y Fl(0)117 3006 y Fw(.)h(The)32 b(SaS)e(parametrization)e(of)i +(the)h(anomalous)d(part)i(is)g(therefore)h(used)h(throughout)e(for)g +(this)0 3114 y(purp)s(ose.)44 b(The)34 b Fj(Q)682 3129 +y Fl(0)754 3114 y Fw(scale)f(can)f(b)s(e)h(set)h(freely)e(in)g(the)h +Fq(PARP\(15\))i Fw(parameter.)146 3222 y(The)46 b Fj(f)418 +3175 y Fh(\015)t(;)p Fl(anom)407 3245 y Fh(i)695 3222 +y Fw(distribution)d(can)i(b)s(e)g(further)g(decomp)s(osed,)k(b)m(y)d +(the)f(\015a)m(v)m(our)h(and)f(the)g Fj(p)3597 3237 y +Fk(?)3701 3222 y Fw(of)0 3331 y(the)40 b(original)c(branc)m(hing)j +Fj(\015)44 b Fn(!)38 b Fw(q)p 1277 3278 52 4 v(q)q(.)64 +b(The)40 b(\015a)m(v)m(our)g(is)f(distributed)g(according)f(to)h +(squared)i(c)m(harge)0 3439 y(\(plus)32 b(\015a)m(v)m(our)h(thresholds) +g(for)f(hea)m(vy)i(\015a)m(v)m(ours\))f(and)g(the)f Fj(p)2265 +3454 y Fk(?)2357 3439 y Fw(according)f(to)h(d)p Fj(p)3017 +3403 y Fl(2)3017 3464 y Fk(?)3076 3439 y Fj(=p)3174 3403 +y Fl(2)3174 3464 y Fk(?)3265 3439 y Fw(in)g(the)g(range)0 +3547 y Fj(Q)77 3562 y Fl(0)160 3547 y Fj(<)44 b(p)329 +3562 y Fk(?)431 3547 y Fj(<)g(Q)p Fw(.)71 b(A)m(t)43 +b(the)f(branc)m(hing)g(scale,)i(the)e(photon)g(only)g(consists)g(of)g +(a)f(q)p 3159 3495 V(q)i(pair,)h(with)d Fj(x)0 3656 y +Fw(distribution)34 b Fn(/)h Fj(x)702 3620 y Fl(2)766 +3656 y Fw(+)25 b(\(1)f Fn(\000)h Fj(x)p Fw(\))1173 3620 +y Fl(2)1213 3656 y Fw(.)54 b(A)37 b(comp)s(onen)m(t)f +Fj(f)1965 3620 y Fh(\015)t(;)p Fl(q)p 2062 3581 38 4 +v(q)1954 3680 y Fh(a)2103 3656 y Fw(\()p Fj(x;)17 b(Q)2317 +3620 y Fl(2)2357 3656 y Fw(;)g Fj(k)2455 3620 y Fl(2)2494 +3656 y Fw(\),)37 b(c)m(haracterized)g(b)m(y)g(its)f Fj(k)h +Fn(\031)e Fj(p)3721 3671 y Fk(?)0 3764 y Fw(and)40 b(\015a)m(v)m(our,)i +(then)e(is)f(ev)m(olv)m(ed)i(homogeneously)e(from)g Fj(p)2212 +3779 y Fk(?)2310 3764 y Fw(to)g Fj(Q)p Fw(.)65 b(F)-8 +b(or)39 b(theoretical)f(studies)i(it)f(is)0 3872 y(con)m(v)m(enien)m(t) +33 b(to)e(b)s(e)g(able)f(to)h(access)i(a)e(sp)s(eci\014c)h(comp)s(onen) +m(t)f(of)f(this)h(kind.)43 b(Therefore)32 b(also)f(leading-)0 +3981 y(order)i(parametrizations)d(of)i(these)i(decomp)s(osed)f +(distributions)e(are)i(a)m(v)-5 b(ailable)30 b([Sc)m(h95)q(].)0 +4229 y Fo(7.1.3)112 b(Leptons)0 4401 y Fw(Con)m(trary)40 +b(to)g(the)g(hadron)f(case,)k(there)d(is)f(no)h(necessit)m(y)h(to)e(in) +m(tro)s(duce)h(the)g(parton-distribution)0 4510 y(function)g(concept)h +(for)f(leptons.)67 b(A)41 b(lepton)f(can)h(b)s(e)f(considered)h(as)g(a) +f(p)s(oin)m(t-lik)m(e)f(particle,)i(with)0 4618 y(initial-state)i +(radiation)i(handled)i(b)m(y)g(higher-order)f(matrix)g(elemen)m(ts.)87 +b(Ho)m(w)m(ev)m(er,)52 b(the)c(parton)0 4726 y(distribution)27 +b(function)i(approac)m(h)h(o\013ers)f(a)g(sligh)m(tly)f(simpli\014ed)f +(but)j(v)m(ery)h(economical)c(description)0 4835 y(of)41 +b(initial-state)c(radiation)i(e\013ects)k(for)e(an)m(y)h(hard)f(pro)s +(cess,)k(also)c(those)h(for)e(whic)m(h)i(higher-order)0 +4943 y(corrections)33 b(are)f(not)h(y)m(et)g(calculated.)146 +5051 y(P)m(arton)40 b(distributions)f(for)g(electrons)h(ha)m(v)m(e)i(b) +s(een)e(in)m(tro)s(duced)g(in)f Fm(Pythia)p Fw(,)j(but)e(not)g(y)m(et)h +(for)0 5160 y(m)m(uons,)28 b(i.e.)41 b(curren)m(tly)28 +b Fj(f)966 5124 y Fh(\026)955 5184 y(\026)1012 5160 y +Fw(\()p Fj(x;)17 b(Q)1226 5124 y Fl(2)1266 5160 y Fw(\))27 +b(=)h Fj(\016)t Fw(\()p Fj(x)10 b Fn(\000)g Fw(1\).)42 +b(Also)26 b(for)g(the)i(electron)e(one)h(is)f(free)i(to)e(use)i(a)e +(simple)0 5284 y(`unresolv)m(ed')34 b(e,)f Fj(f)699 5248 +y Fl(e)688 5309 y(e)734 5284 y Fw(\()p Fj(x;)17 b(Q)948 +5248 y Fl(2)988 5284 y Fw(\))28 b(=)f Fj(\016)t Fw(\()p +Fj(x)c Fn(\000)f Fw(1\),)33 b(where)g(the)g(e)g(retains)g(the)g(full)d +(original)g(momen)m(tum.)146 5393 y(Electron)f(parton)g(distributions)e +(are)i(calculable)e(en)m(tirely)i(from)e(\014rst)j(principles,)e(but)h +(di\013eren)m(t)0 5501 y(lev)m(els)39 b(of)f(appro)m(ximation)f(ma)m(y) +i(b)s(e)g(used.)64 b(The)40 b(parton-distribution)c(form)m(ulae)h(in)h +Fm(Pythia)h Fw(are)0 5610 y(based)d(on)f(a)g(next-to-leading-order)e +(exp)s(onen)m(tiated)j(description,)g(see)g(ref.)52 b([Kle89)o(],)36 +b(p.)52 b(34.)f(The)1841 5953 y(89)p eop +%%Page: 90 96 +90 95 bop 0 -18 a Fw(appro)m(ximate)32 b(b)s(eha)m(viour)g(is)1380 +235 y Fj(f)1439 194 y Fl(e)1428 259 y(e)1474 235 y Fw(\()p +Fj(x;)17 b(Q)1688 194 y Fl(2)1728 235 y Fw(\))28 b Fn(\031)1909 +167 y Fj(\014)p 1909 212 61 4 v 1915 303 a Fw(2)1979 +235 y(\(1)22 b Fn(\000)h Fj(x)p Fw(\))2281 194 y Fh(\014)s(=)p +Fl(2)p Fk(\000)p Fl(1)2522 235 y Fw(;)1380 486 y Fj(\014)33 +b Fw(=)1582 418 y(2)p Fj(\013)1693 433 y Fl(em)p 1582 +463 206 4 v 1655 554 a Fj(\031)1814 340 y Fg( )1879 486 +y Fw(ln)1991 418 y Fj(Q)2068 382 y Fl(2)p 1987 463 125 +4 v 1987 554 a Fj(m)2072 525 y Fl(2)2072 579 y(e)2144 +486 y Fn(\000)23 b Fw(1)2293 340 y Fg(!)2407 486 y Fj(:)1172 +b Fw(\(50\))0 752 y(The)32 b(form)e(is)g(div)m(ergen)m(t)i(but)g(in)m +(tegrable)e(for)g Fj(x)e Fn(!)g Fw(1,)j(i.e.)42 b(the)32 +b(electron)f(lik)m(es)g(to)f(k)m(eep)j(most)d(of)h(the)0 +860 y(energy)-8 b(.)47 b(T)-8 b(o)33 b(handle)g(the)h(n)m(umerical)e +(precision)h(problems)f(for)h Fj(x)h Fw(v)m(ery)h(close)e(to)g(unit)m +(y)-8 b(,)34 b(the)g(parton)0 969 y(distribution)25 b(is)h(set,)j(b)m +(y)f(hand,)g(to)f(zero)g(for)f Fj(x)j(>)e Fw(0)p Fj(:)p +Fw(999999,)g(and)g(is)f(rescaled)h(up)m(w)m(ards)i(in)d(the)h(range)0 +1077 y(0)p Fj(:)p Fw(9999)g Fj(<)g(x)h(<)g Fw(0)p Fj(:)p +Fw(999999,)h(in)h(suc)m(h)h(a)f(w)m(a)m(y)i(that)e(the)g(total)f(area)h +(under)h(the)g(parton)f(distribution)e(is)0 1185 y(preserv)m(ed:)479 +1493 y Fg(\020)529 1589 y Fj(f)588 1548 y Fl(e)577 1614 +y(e)623 1589 y Fw(\()p Fj(x;)17 b(Q)837 1548 y Fl(2)877 +1589 y Fw(\))915 1493 y Fg(\021)964 1643 y Fl(mo)r(d)1131 +1589 y Fw(=)1235 1315 y Fg(8)1235 1390 y(>)1235 1415 +y(>)1235 1440 y(>)1235 1465 y(>)1235 1489 y(<)1235 1639 +y(>)1235 1664 y(>)1235 1689 y(>)1235 1714 y(>)1235 1739 +y(:)1350 1381 y Fj(f)1409 1345 y Fl(e)1398 1406 y(e)1444 +1381 y Fw(\()p Fj(x;)g(Q)1658 1345 y Fl(2)1698 1381 y +Fw(\))554 b(0)28 b Fn(\024)g Fj(x)g Fn(\024)g Fw(0)p +Fj(:)p Fw(9999)1445 1552 y(100)1592 1511 y Fh(\014)s(=)p +Fl(2)p 1360 1568 435 4 v 1360 1662 a Fw(100)1507 1621 +y Fh(\014)s(=)p Fl(2)1646 1662 y Fn(\000)23 b Fw(1)1821 +1591 y Fj(f)1880 1555 y Fl(e)1869 1616 y(e)1915 1591 +y Fw(\()p Fj(x;)17 b(Q)2129 1555 y Fl(2)2169 1591 y Fw(\))83 +b(0)p Fj(:)p Fw(9999)27 b Fj(<)g(x)h Fn(\024)h Fw(0)p +Fj(:)p Fw(999999)1350 1794 y(0)891 b Fj(x)28 b(>)g Fw(0)p +Fj(:)p Fw(999999)47 b Fj(:)3606 1589 y Fw(\(51\))146 +1993 y(The)h(branc)m(hings)f(e)52 b Fn(!)f Fw(e)p Fj(\015)5 +b Fw(,)51 b(whic)m(h)c(are)g(resp)s(onsible)f(for)g(the)h(softening)g +(of)f(the)h Fj(f)3416 1957 y Fl(e)3405 2017 y(e)3498 +1993 y Fw(parton)0 2101 y(distribution,)26 b(also)h(giv)m(es)g(rise)g +(to)g(a)g(\015o)m(w)h(of)f(photons.)42 b(In)28 b(photon-induced)f(hard) +g(pro)s(cesses,)k(the)c Fj(f)3744 2065 y Fl(e)3733 2126 +y Fh(\015)0 2210 y Fw(parton)34 b(distribution)e(can)j(b)s(e)f(used)h +(to)f(describ)s(e)h(the)g(equiv)-5 b(alen)m(t)34 b(\015o)m(w)h(of)e +(photons.)49 b(The)35 b(form)m(ula)0 2318 y(used)g(in)e(the)h(program)f +(is)g(the)h(simple)e(\014rst-order)i(expression.)49 b(There)35 +b(is)e(some)h(am)m(biguit)m(y)e(in)h(the)0 2426 y(c)m(hoice)d(of)f +Fj(Q)472 2390 y Fl(2)542 2426 y Fw(range)g(o)m(v)m(er)i(whic)m(h)f +(emissions)f(should)h(b)s(e)f(included.)43 b(The)30 b(na)-11 +b(\177)-38 b(\020v)m(e)30 b(\(default\))f(c)m(hoice)h(is)1028 +2698 y Fj(f)1087 2657 y Fl(e)1076 2723 y Fh(\015)1122 +2698 y Fw(\()p Fj(x;)17 b(Q)1336 2657 y Fl(2)1376 2698 +y Fw(\))28 b(=)1555 2631 y Fj(\013)1617 2646 y Fl(em)p +1555 2675 157 4 v 1579 2766 a Fw(2)p Fj(\031)1748 2631 +y Fw(1)22 b(+)g(\(1)g Fn(\000)g Fj(x)p Fw(\))2218 2594 +y Fl(2)p 1748 2675 511 4 v 1975 2766 a Fj(x)2301 2698 +y Fw(ln)2399 2552 y Fg( )2479 2631 y Fj(Q)2556 2594 y +Fl(2)p 2475 2675 125 4 v 2475 2766 a Fj(m)2560 2738 y +Fl(2)2560 2791 y(e)2610 2552 y Fg(!)2724 2698 y Fj(:)855 +b Fw(\(52\))0 2964 y(Here)49 b(it)e(is)h(assumed)h(that)f(only)g(one)h +(scale)f(en)m(ters)i(the)f(problem,)i(namely)d(that)g(of)g(the)g(hard)0 +3072 y(in)m(teraction,)40 b(and)g(that)f(the)h(scale)g(of)f(the)h +(branc)m(hing)f(e)h Fn(!)g Fw(e)p Fj(\015)k Fw(is)c(b)s(ounded)g(from)e +(ab)s(o)m(v)m(e)j(b)m(y)f(the)0 3181 y(hard)47 b(in)m(teraction)f +(scale.)87 b(F)-8 b(or)46 b(a)g(pure)i(QCD)f(or)f(pure)i(QED)f(sho)m(w) +m(er)h(this)f(is)f(an)h(appropriate)0 3289 y(pro)s(cedure,)34 +b(cf.)44 b(section)33 b(10.1.3,)f(but)h(in)f(other)h(cases)h(it)e(ma)m +(y)g(not)h(b)s(e)g(optimal.)41 b(In)33 b(particular,)e(for)0 +3398 y(photopro)s(duction)h(the)h(alternativ)m(e)f(that)g(is)g +(probably)g(most)g(appropriate)g(is)g([Ali88)n(]:)833 +3669 y Fj(f)892 3628 y Fl(e)881 3694 y Fh(\015)927 3669 +y Fw(\()p Fj(x;)17 b(Q)1141 3628 y Fl(2)1181 3669 y Fw(\))28 +b(=)1360 3602 y Fj(\013)1422 3617 y Fl(em)p 1360 3646 +157 4 v 1384 3738 a Fw(2)p Fj(\031)1553 3602 y Fw(1)22 +b(+)g(\(1)g Fn(\000)g Fj(x)p Fw(\))2023 3566 y Fl(2)p +1553 3646 511 4 v 1780 3738 a Fj(x)2106 3669 y Fw(ln)2204 +3523 y Fg( )2280 3602 y Fj(Q)2357 3566 y Fl(2)2357 3626 +y(max)2493 3602 y Fw(\(1)g Fn(\000)g Fj(x)p Fw(\))p 2280 +3646 515 4 v 2419 3738 a Fj(m)2504 3709 y Fl(2)2504 3762 +y(e)2561 3738 y Fj(x)2616 3709 y Fl(2)2805 3523 y Fg(!)2919 +3669 y Fj(:)660 b Fw(\(53\))0 3945 y(Here)46 b Fj(Q)320 +3909 y Fl(2)320 3970 y(max)500 3945 y Fw(is)e(a)h(user-de\014ned)i(cut) +e(for)f(the)h(range)g(of)g(scattered)h(electron)f(kinematics)e(that)i +(is)0 4054 y(coun)m(ted)d(as)g(photopro)s(duction.)68 +b(Note)41 b(that)g(w)m(e)h(no)m(w)g(deal)f(with)f(t)m(w)m(o)i +(di\013eren)m(t)g Fj(Q)3243 4017 y Fl(2)3323 4054 y Fw(scales,)i(one)0 +4162 y(related)38 b(to)g(the)g(hard)g(subpro)s(cess)j(itself,)d(whic)m +(h)h(app)s(ears)f(as)h(the)f(argumen)m(t)g(of)g(the)g(parton)g(dis-)0 +4270 y(tribution,)43 b(and)g(the)f(other)h(related)f(to)g(the)h +(scattering)f(of)g(the)h(electron,)h(whic)m(h)f(is)f(re\015ected)i(in)0 +4379 y Fj(Q)77 4342 y Fl(2)77 4403 y(max)213 4379 y Fw(.)146 +4487 y(In)29 b(resolv)m(ed)f(photopro)s(duction)f(or)h(resolv)m(ed)h +Fj(\015)5 b(\015)33 b Fw(in)m(teractions,)28 b(one)g(has)g(to)g +(include)f(the)i(parton)0 4595 y(distributions)36 b(for)h(quarks)j(and) +d(gluons)h(inside)f(the)h(photon)g(inside)f(the)h(electron.)59 +b(There)39 b(are)f(no)0 4704 y(published)33 b(sets)i(where)g(results)f +(are)f(directly)g(presen)m(ted)j(in)c(terms)i(of)f(quark)h(and)f(gluon) +g(distribu-)0 4812 y(tions)h(inside)g(the)h(electron.)49 +b(In)35 b(the)g(program,)f(the)h Fj(f)2045 4776 y Fl(e)2034 +4837 y(q)p Fh(;)p Fl(g)2166 4812 y Fw(are)f(therefore)h(obtained)f(b)m +(y)i(a)e(n)m(umerical)0 4920 y(con)m(v)m(olution)e(according)g(to)902 +5186 y Fj(f)961 5145 y Fl(e)950 5211 y(q)p Fh(;)p Fl(g)1048 +5186 y Fw(\()p Fj(x;)17 b(Q)1262 5145 y Fl(2)1302 5186 +y Fw(\))27 b(=)1471 5069 y Fg(Z)1554 5096 y Fl(1)1517 +5258 y Fh(x)1620 5119 y Fj(dx)1726 5134 y Fh(\015)p 1620 +5163 151 4 v 1645 5255 a Fj(x)1700 5270 y Fh(\015)1797 +5186 y Fj(f)1856 5145 y Fl(e)1845 5211 y Fh(\015)1891 +5186 y Fw(\()p Fj(x)1984 5201 y Fh(\015)2029 5186 y Fj(;)17 +b(Q)2150 5145 y Fl(2)2189 5186 y Fw(\))g Fj(f)2303 5145 +y Fh(\015)2292 5211 y Fl(q)p Fh(;)p Fl(g)2389 5040 y +Fg( )2487 5119 y Fj(x)p 2465 5163 100 4 v 2465 5255 a(x)2520 +5270 y Fh(\015)2575 5186 y Fj(;)g(Q)2696 5145 y Fl(2)2735 +5040 y Fg(!)2850 5186 y Fj(;)729 b Fw(\(54\))0 5453 y(with)38 +b Fj(f)287 5416 y Fl(e)276 5477 y Fh(\015)360 5453 y +Fw(as)h(discussed)h(ab)s(o)m(v)m(e.)61 b(The)39 b(necessit)m(y)i(for)c +(n)m(umerical)g(con)m(v)m(olution)h(mak)m(es)h(this)f(parton)0 +5561 y(distribution)c(ev)-5 b(aluation)34 b(rather)i(slo)m(w)g +(compared)g(with)f(the)h(others;)j(one)d(should)g(therefore)g(only)0 +5669 y(ha)m(v)m(e)e(it)d(switc)m(hed)j(on)f(for)f(resolv)m(ed)h +(photopro)s(duction)f(studies.)1841 5953 y(90)p eop +%%Page: 91 97 +91 96 bop 146 -18 a Fw(One)32 b(can)f(obtain)e(the)j(p)s(ositron)e +(distribution)e(inside)j(an)f(electron,)i(whic)m(h)f(is)f(also)g(the)i +(electron)0 90 y(sea)38 b(parton)f(distribution,)f(b)m(y)i(a)f(con)m(v) +m(olution)f(of)h(the)g(t)m(w)m(o)h(branc)m(hings)g(e)e +Fn(!)f Fw(e)p Fj(\015)42 b Fw(and)37 b Fj(\015)k Fn(!)35 +b Fw(e)3591 54 y Fl(+)3650 90 y Fw(e)3693 54 y Fk(\000)3752 +90 y Fw(;)0 198 y(the)e(result)g(is)f([Che75])201 497 +y Fj(f)260 456 y Fl(e)291 432 y Fd(\000)249 522 y Fl(e)280 +503 y Ff(+)347 497 y Fw(\()p Fj(x;)17 b(Q)561 456 y Fl(2)601 +497 y Fw(\))28 b(=)780 430 y(1)p 780 474 49 4 v 780 565 +a(2)872 351 y Fg(\()949 430 y Fj(\013)1011 445 y Fl(em)p +949 474 157 4 v 973 565 a Fw(2)p Fj(\031)1149 351 y Fg( )1214 +497 y Fw(ln)1326 430 y Fj(Q)1403 393 y Fl(2)p 1322 474 +125 4 v 1322 565 a Fj(m)1407 537 y Fl(2)1407 590 y(e)1479 +497 y Fn(\000)23 b Fw(1)1628 351 y Fg(!)o(\))1760 374 +y Fl(2)1846 430 y Fw(1)p 1843 474 56 4 v 1843 565 a Fj(x)1941 +376 y Fg(\022)2012 430 y Fw(4)p 2012 474 49 4 v 2012 +565 a(3)2093 497 y Fn(\000)g Fj(x)2248 456 y Fl(2)2310 +497 y Fn(\000)2420 430 y Fw(4)p 2420 474 V 2420 565 a(3)2478 +497 y Fj(x)2533 456 y Fl(3)2595 497 y Fw(+)f(2)p Fj(x)p +Fw(\(1)g(+)g Fj(x)p Fw(\))17 b(ln)f Fj(x)3267 376 y Fg(\023)3378 +497 y Fj(:)201 b Fw(\(55\))146 781 y(Finally)-8 b(,)30 +b(the)j(program)e(also)g(con)m(tains)h(the)h(distribution)e(of)g(a)i +(transv)m(erse)h(W)3086 745 y Fk(\000)3178 781 y Fw(inside)e(an)g +(elec-)0 889 y(tron)715 1047 y Fj(f)774 1006 y Fl(e)763 +1072 y(W)841 1047 y Fw(\()p Fj(x;)17 b(Q)1055 1006 y +Fl(2)1095 1047 y Fw(\))27 b(=)1274 980 y Fj(\013)1336 +995 y Fl(em)p 1274 1024 157 4 v 1298 1115 a Fw(2)p Fj(\031)1617 +980 y Fw(1)p 1467 1024 351 4 v 1467 1116 a(4)17 b(sin)1652 +1076 y Fl(2)1691 1116 y Fj(\022)1736 1131 y Fh(W)1854 +980 y Fw(1)22 b(+)g(\(1)f Fn(\000)i Fj(x)p Fw(\))2324 +943 y Fl(2)p 1854 1024 511 4 v 2081 1115 a Fj(x)2407 +1047 y Fw(ln)2505 901 y Fg( )2571 1047 y Fw(1)f(+)2773 +980 y Fj(Q)2850 943 y Fl(2)p 2750 1024 163 4 v 2750 1115 +a Fj(m)2835 1081 y Fl(2)2835 1140 y(W)2922 901 y Fg(!)3037 +1047 y Fj(:)542 b Fw(\(56\))0 1377 y Fp(7.2)135 b(Kinematics)47 +b(and)e(Cross)g(section)g(for)h(a)f Fs(2)32 b Fc(!)h +Fs(2)45 b Fp(Pro)t(cess)0 1550 y Fw(In)33 b(this)e(section)i(w)m(e)g(b) +s(egin)e(the)i(description)f(of)f(kinematics)g(selection)h(and)h +(cross-section)f(calcula-)0 1658 y(tion.)45 b(The)34 +b(example)f(is)g(for)f(the)i(case)g(of)f(a)g(2)c Fn(!)f +Fw(2)33 b(pro)s(cess,)i(with)e(\014nal-state)g(masses)h(assumed)g(to)0 +1767 y(b)s(e)f(v)-5 b(anishing.)42 b(Later)33 b(on)f(w)m(e)i(will)c +(expand)k(to)e(\014nite)g(\014xed)i(masses,)f(and)g(to)f(resonances.) +146 1875 y(Consider)39 b(t)m(w)m(o)g(incoming)c(b)s(eam)j(particles)f +(in)g(their)h(c.m.)59 b(frame,)39 b(eac)m(h)g(with)e(energy)i +Fj(E)3581 1890 y Fl(b)r(eam)3752 1875 y Fw(.)0 1983 y(The)46 +b(total)e(squared)j(c.m.)81 b(energy)47 b(is)e(then)h +Fj(s)j Fw(=)g(4)p Fj(E)2111 1947 y Fl(2)2105 2008 y(b)r(eam)2276 +1983 y Fw(.)82 b(The)46 b(t)m(w)m(o)g(partons)g(that)f(en)m(ter)h(the)0 +2092 y(hard)37 b(in)m(teraction)f(do)i(not)f(carry)g(the)h(total)e(b)s +(eam)g(momen)m(tum,)h(but)h(only)f(fractions)f Fj(x)3386 +2107 y Fl(1)3463 2092 y Fw(and)i Fj(x)3713 2107 y Fl(2)3752 +2092 y Fw(,)0 2200 y(resp)s(ectiv)m(ely)-8 b(,)34 b(i.e.)43 +b(they)33 b(ha)m(v)m(e)h(four-momen)m(ta)1287 2408 y +Fj(p)1336 2423 y Fl(1)1459 2408 y Fw(=)83 b Fj(E)1690 +2423 y Fl(b)r(eam)1861 2408 y Fw(\()p Fj(x)1954 2423 +y Fl(1)1994 2408 y Fw(;)17 b(0)p Fj(;)g Fw(0)p Fj(;)g(x)2279 +2423 y Fl(1)2317 2408 y Fw(\))33 b Fj(;)1287 2541 y(p)1336 +2556 y Fl(2)1459 2541 y Fw(=)83 b Fj(E)1690 2556 y Fl(b)r(eam)1861 +2541 y Fw(\()p Fj(x)1954 2556 y Fl(2)1994 2541 y Fw(;)17 +b(0)p Fj(;)g Fw(0)p Fj(;)g Fn(\000)p Fj(x)2356 2556 y +Fl(2)2395 2541 y Fw(\))32 b Fj(:)1114 b Fw(\(57\))0 2749 +y(There)37 b(is)d(no)i(reason)f(to)g(put)h(the)g(incoming)d(partons)i +(on)h(the)f(mass)h(shell,)f(i.e.)51 b(to)35 b(ha)m(v)m(e)i(time-lik)m +(e)0 2858 y(incoming)d(four-v)m(ectors,)j(since)g(partons)f(inside)f(a) +h(particle)f(are)h(alw)m(a)m(ys)g(virtual)f(and)h(th)m(us)h(space-)0 +2966 y(lik)m(e.)42 b(These)31 b(space-lik)m(e)e(virtualities)e(are)i +(in)m(tro)s(duced)h(as)f(part)g(of)g(the)h(initial-state)25 +b(parton-sho)m(w)m(er)0 3074 y(description,)38 b(see)h(section)e +(10.3.3,)h(but)f(do)g(not)h(a\013ect)f(the)h(formalism)c(of)i(this)h +(section.)58 b(The)38 b(one)0 3183 y(example)23 b(where)i(it)e(w)m +(ould)g(b)s(e)h(appropriate)f(to)g(put)h(a)f(parton)h(on)f(the)h(mass)g +(shell)f(is)g(for)g(an)h(incoming)0 3291 y(lepton)k(b)s(eam,)g(but)h +(ev)m(en)h(here)f(the)f(massless)h(kinematics)e(description)h(is)g +(adequate)h(as)g(long)e(as)h(the)0 3399 y(c.m.)43 b(energy)34 +b(is)e(correctly)h(calculated)e(with)i(masses.)146 3508 +y(The)h(squared)g(in)m(v)-5 b(arian)m(t)31 b(mass)h(of)h(the)g(t)m(w)m +(o)g(partons)g(is)f(de\014ned)i(as)1369 3716 y(^)-53 +b Fj(s)28 b Fw(=)f(\()p Fj(p)1629 3731 y Fl(1)1691 3716 +y Fw(+)22 b Fj(p)1838 3731 y Fl(2)1877 3716 y Fw(\))1915 +3674 y Fl(2)1982 3716 y Fw(=)28 b Fj(x)2141 3731 y Fl(1)2197 +3716 y Fj(x)2252 3731 y Fl(2)2309 3716 y Fj(s)k(:)1192 +b Fw(\(58\))0 3924 y(Instead)34 b(of)e Fj(x)511 3939 +y Fl(1)583 3924 y Fw(and)h Fj(x)828 3939 y Fl(2)868 3924 +y Fw(,)f(it)g(is)g(often)h(customary)f(to)g(use)i Fj(\034)44 +b Fw(and)33 b(either)f Fj(y)k Fw(or)c Fj(x)2942 3939 +y Fl(F)2993 3924 y Fw(:)1537 4187 y Fj(\034)94 b Fw(=)83 +b Fj(x)1887 4202 y Fl(1)1927 4187 y Fj(x)1982 4202 y +Fl(2)2049 4187 y Fw(=)2167 4120 y(^)-53 b Fj(s)p 2163 +4164 46 4 v 2163 4256 a(s)2251 4187 y Fw(;)1328 b(\(59\))1539 +4421 y Fj(y)86 b Fw(=)1842 4353 y(1)p 1842 4397 49 4 +v 1842 4489 a(2)1917 4421 y(ln)2025 4353 y Fj(x)2080 +4368 y Fl(1)p 2025 4397 95 4 v 2025 4489 a Fj(x)2080 +4504 y Fl(2)2163 4421 y Fw(;)1416 b(\(60\))1484 4612 +y Fj(x)1539 4627 y Fl(F)1673 4612 y Fw(=)83 b Fj(x)1887 +4627 y Fl(1)1949 4612 y Fn(\000)23 b Fj(x)2104 4627 y +Fl(2)2176 4612 y Fj(:)1403 b Fw(\(61\))146 4820 y(In)25 +b(addition)d(to)h Fj(x)801 4835 y Fl(1)865 4820 y Fw(and)h +Fj(x)1101 4835 y Fl(2)1141 4820 y Fw(,)i(t)m(w)m(o)f(additional)c(v)-5 +b(ariables)22 b(are)i(needed)i(to)d(describ)s(e)i(the)f(kinematics)0 +4928 y(of)30 b(a)f(scattering)h(1)17 b(+)f(2)28 b Fn(!)f +Fw(3)17 b(+)g(4.)42 b(One)30 b(corresp)s(onds)i(to)d(the)i(azim)m +(uthal)d(angle)h Fj(')h Fw(of)f(the)i(scattering)0 5036 +y(plane)c(around)g(the)h(b)s(eam)e(axis.)42 b(This)27 +b(angle)f(is)h(alw)m(a)m(ys)h(isotropically)c(distributed)j(for)g(unp)s +(olarized)0 5145 y(incoming)32 b(b)s(eam)i(particles,)g(and)g(so)h +(need)g(not)g(b)s(e)f(considered)h(further.)50 b(The)35 +b(other)g(v)-5 b(ariable)32 b(can)0 5268 y(b)s(e)h(pic)m(k)m(ed)g(as) +560 5242 y(^)553 5268 y Fj(\022)s Fw(,)f(the)h(p)s(olar)e(angle)g(of)h +(parton)g(3)g(in)g(the)h(c.m.)43 b(frame)31 b(of)h(the)h(hard)f +(scattering.)44 b(The)0 5376 y(con)m(v)m(en)m(tional)33 +b(c)m(hoice)g(is)f(to)g(use)h(the)g(v)-5 b(ariable)939 +5602 y(^)938 5621 y Fj(t)28 b Fw(=)f(\()p Fj(p)1191 5636 +y Fl(1)1253 5621 y Fn(\000)22 b Fj(p)1401 5636 y Fl(3)1441 +5621 y Fw(\))1479 5580 y Fl(2)1546 5621 y Fw(=)27 b(\()p +Fj(p)1736 5636 y Fl(2)1798 5621 y Fn(\000)22 b Fj(p)1946 +5636 y Fl(4)1986 5621 y Fw(\))2024 5580 y Fl(2)2091 5621 +y Fw(=)27 b Fn(\000)2286 5553 y Fw(^)-53 b Fj(s)p 2281 +5598 49 4 v 2281 5689 a Fw(2)2340 5621 y(\(1)22 b Fn(\000)h +Fw(cos)2704 5594 y(^)2696 5621 y Fj(\022)s Fw(\))33 b +Fj(;)764 b Fw(\(62\))1841 5953 y(91)p eop +%%Page: 92 98 +92 97 bop 0 -18 a Fw(with)236 -45 y(^)228 -18 y Fj(\022)42 +b Fw(de\014ned)e(as)f(ab)s(o)m(v)m(e.)63 b(In)39 b(the)g(follo)m(wing,) +f(w)m(e)h(will)e(mak)m(e)h(use)i(of)e(b)s(oth)2995 -37 +y(^)2994 -18 y Fj(t)h Fw(and)3271 -45 y(^)3263 -18 y +Fj(\022)t Fw(.)61 b(It)39 b(is)f(also)0 90 y(customary)33 +b(to)f(de\014ne)40 b(^)-55 b Fj(u)o Fw(,)934 310 y(^)g +Fj(u)28 b Fw(=)f(\()p Fj(p)1202 325 y Fl(1)1264 310 y +Fn(\000)22 b Fj(p)1412 325 y Fl(4)1452 310 y Fw(\))1490 +268 y Fl(2)1557 310 y Fw(=)27 b(\()p Fj(p)1747 325 y +Fl(2)1809 310 y Fn(\000)22 b Fj(p)1957 325 y Fl(3)1997 +310 y Fw(\))2035 268 y Fl(2)2102 310 y Fw(=)27 b Fn(\000)2297 +242 y Fw(^)-53 b Fj(s)p 2292 286 49 4 v 2292 378 a Fw(2)2351 +310 y(\(1)22 b(+)g(cos)2713 283 y(^)2705 310 y Fj(\022)t +Fw(\))32 b Fj(;)755 b Fw(\(63\))0 511 y(but)39 b(^)-55 +b Fj(u)32 b Fw(is)g(not)g(an)h(indep)s(enden)m(t)h(v)-5 +b(ariable)30 b(since)1585 675 y(^)-53 b Fj(s)23 b Fw(+)1749 +656 y(^)1748 675 y Fj(t)f Fw(+)28 b(^)-55 b Fj(u)27 b +Fw(=)h(0)k Fj(:)1408 b Fw(\(64\))146 838 y(If)45 b(the)h(t)m(w)m(o)g +(outgoing)e(particles)g(ha)m(v)m(e)i(masses)g Fj(m)2107 +853 y Fl(3)2192 838 y Fw(and)f Fj(m)2479 853 y Fl(4)2519 +838 y Fw(,)k(resp)s(ectiv)m(ely)-8 b(,)49 b(then)d(the)f(four-)0 +947 y(momen)m(ta)31 b(in)h(the)h(c.m.)43 b(frame)32 b(of)g(the)h(hard)g +(in)m(teraction)e(are)i(giv)m(en)g(b)m(y)670 1190 y(^)-57 +b Fj(p)711 1205 y Fl(3)p Fh(;)p Fl(4)833 1190 y Fw(=)936 +1044 y Fg( )1016 1122 y Fw(^)k Fj(s)22 b Fn(\006)h Fw(\()p +Fj(m)1303 1086 y Fl(2)1303 1147 y(3)1365 1122 y Fn(\000)f +Fj(m)1549 1086 y Fl(2)1549 1147 y(4)1589 1122 y Fw(\))p +1012 1167 615 4 v 1231 1269 a(2)1280 1184 y Fn(p)p 1363 +1184 46 4 v 1367 1269 a Fw(^)-53 b Fj(s)1637 1190 y(;)17 +b Fn(\006)1768 1038 y(p)p 1851 1038 V 1855 1122 a Fw(^)-53 +b Fj(s)p 1768 1167 129 4 v 1808 1258 a Fw(2)1924 1190 +y Fj(\014)1979 1205 y Fl(34)2070 1190 y Fw(sin)2214 1164 +y(^)2206 1190 y Fj(\022)t(;)17 b Fw(0)p Fj(;)g Fn(\006)2479 +1038 y(p)p 2561 1038 46 4 v 2565 1122 a Fw(^)-53 b Fj(s)p +2479 1167 129 4 v 2518 1258 a Fw(2)2634 1190 y Fj(\014)2689 +1205 y Fl(34)2780 1190 y Fw(cos)2935 1164 y(^)2927 1190 +y Fj(\022)2976 1044 y Fg(!)3090 1190 y Fj(;)489 b Fw(\(65\))0 +1422 y(where)1063 1625 y Fj(\014)1118 1640 y Fl(34)1220 +1625 y Fw(=)1324 1437 y Fg(v)1324 1484 y(u)1324 1534 +y(u)1324 1583 y(t)p 1411 1437 1246 4 v 1411 1479 a( )1477 +1625 y Fw(1)22 b Fn(\000)1658 1558 y Fj(m)1743 1524 y +Fl(2)1743 1580 y(3)p 1658 1602 125 4 v 1701 1694 a Fw(^)-53 +b Fj(s)1815 1625 y Fn(\000)1924 1558 y Fj(m)2009 1524 +y Fl(2)2009 1580 y(4)p 1924 1602 V 1968 1694 a Fw(^)g +Fj(s)2059 1479 y Fg(!)2125 1502 y Fl(2)2186 1625 y Fn(\000)23 +b Fw(4)2361 1558 y Fj(m)2446 1524 y Fl(2)2446 1580 y(3)p +2361 1602 V 2405 1694 a Fw(^)-53 b Fj(s)2522 1558 y(m)2607 +1524 y Fl(2)2607 1580 y(4)p 2522 1602 V 2566 1694 a Fw(^)g +Fj(s)2690 1625 y(:)889 b Fw(\(66\))0 1864 y(Then)256 +1845 y(^)255 1864 y Fj(t)32 b Fw(and)39 b(^)-55 b Fj(u)32 +b Fw(are)h(mo)s(di\014ed)e(to)1013 2041 y(^)1012 2059 +y Fj(t;)23 b Fw(^)-55 b Fj(u)27 b Fw(=)g Fn(\000)1364 +1992 y Fw(1)p 1364 2036 49 4 v 1364 2127 a(2)1440 1963 +y Fg(n)1495 2059 y Fw(\()t(^)-53 b Fj(s)22 b Fn(\000)h +Fj(m)1786 2018 y Fl(2)1786 2084 y(3)1848 2059 y Fn(\000)g +Fj(m)2033 2018 y Fl(2)2033 2084 y(4)2072 2059 y Fw(\))f +Fn(\007)27 b Fw(^)-53 b Fj(s)17 b(\014)2350 2074 y Fl(34)2441 +2059 y Fw(cos)2596 2033 y(^)2588 2059 y Fj(\022)2636 +1963 y Fg(o)2741 2059 y Fj(;)838 b Fw(\(67\))0 2260 y(with)1425 +2369 y(^)-53 b Fj(s)22 b Fw(+)1588 2350 y(^)1587 2369 +y Fj(t)g Fw(+)29 b(^)-56 b Fj(u)28 b Fw(=)f Fj(m)2014 +2328 y Fl(2)2014 2393 y(3)2076 2369 y Fw(+)22 b Fj(m)2259 +2328 y Fl(2)2259 2393 y(4)2331 2369 y Fj(:)1248 b Fw(\(68\))146 +2512 y(The)34 b(cross)f(section)g(for)f(the)h(pro)s(cess)h(1)22 +b(+)g(2)27 b Fn(!)h Fw(3)22 b(+)g(4)32 b(ma)m(y)g(b)s(e)h(written)f(as) +777 2732 y Fj(\033)87 b Fw(=)1078 2615 y Fg(Z)54 b(Z)f(Z)1377 +2732 y Fw(d)p Fj(x)1486 2747 y Fl(1)1543 2732 y Fw(d)p +Fj(x)1652 2747 y Fl(2)1708 2732 y Fw(d)1763 2713 y(^)1762 +2732 y Fj(t)17 b(f)1862 2747 y Fl(1)1902 2732 y Fw(\()p +Fj(x)1995 2747 y Fl(1)2035 2732 y Fj(;)g(Q)2156 2691 +y Fl(2)2195 2732 y Fw(\))g Fj(f)2298 2747 y Fl(2)2337 +2732 y Fw(\()p Fj(x)2430 2747 y Fl(2)2470 2732 y Fj(;)g(Q)2591 +2691 y Fl(2)2630 2732 y Fw(\))2695 2664 y(d)5 b(^)-54 +b Fj(\033)p 2695 2709 114 4 v 2707 2806 a Fw(d)2762 2788 +y(^)2761 2806 y Fj(t)919 2976 y Fw(=)1078 2859 y Fg(Z)54 +b(Z)f(Z)1387 2909 y Fw(d)p Fj(\034)p 1387 2953 108 4 +v 1414 3044 a(\034)1521 2976 y Fw(d)p Fj(y)20 b Fw(d)1698 +2958 y(^)1697 2976 y Fj(t)d(x)1804 2991 y Fl(1)1844 2976 +y Fj(f)1892 2991 y Fl(1)1932 2976 y Fw(\()p Fj(x)2025 +2991 y Fl(1)2064 2976 y Fj(;)g(Q)2185 2935 y Fl(2)2225 +2976 y Fw(\))g Fj(x)2335 2991 y Fl(2)2374 2976 y Fj(f)2422 +2991 y Fl(2)2462 2976 y Fw(\()p Fj(x)2555 2991 y Fl(2)2595 +2976 y Fj(;)g(Q)2716 2935 y Fl(2)2755 2976 y Fw(\))2819 +2909 y(d)5 b(^)-54 b Fj(\033)p 2819 2953 114 4 v 2831 +3050 a Fw(d)2886 3032 y(^)2885 3050 y Fj(t)2975 2976 +y(:)604 b Fw(\(69\))146 3193 y(The)48 b(c)m(hoice)f(of)g +Fj(Q)868 3157 y Fl(2)954 3193 y Fw(scale)g(is)f(am)m(biguous,)k(and)d +(sev)m(eral)g(alternativ)m(es)g(are)g(a)m(v)-5 b(ailable)44 +b(in)i(the)0 3301 y(program.)40 b(F)-8 b(or)25 b(massless)i(outgoing)d +(particles)i(the)g(default)g(is)f(the)i(squared)h(transv)m(erse)g +(momen)m(tum)1341 3539 y Fj(Q)1418 3498 y Fl(2)1485 3539 +y Fw(=)36 b(^)-57 b Fj(p)1638 3498 y Fl(2)1638 3564 y +Fk(?)1724 3539 y Fw(=)1843 3472 y(^)k Fj(s)p 1838 3516 +49 4 v 1838 3608 a Fw(4)1913 3539 y(sin)2033 3498 y Fl(2)2097 +3513 y Fw(^)2089 3539 y Fj(\022)31 b Fw(=)2280 3454 y(^)2278 +3472 y Fj(t)7 b Fw(^)-55 b Fj(u)p 2278 3516 91 4 v 2305 +3608 a Fw(^)i Fj(s)2412 3539 y(;)1167 b Fw(\(70\))0 3741 +y(whic)m(h)33 b(is)f(mo)s(di\014ed)g(to)393 3959 y Fj(Q)470 +3918 y Fl(2)538 3959 y Fw(=)651 3892 y(1)p 651 3936 49 +4 v 651 4028 a(2)710 3959 y(\()p Fj(m)833 3918 y Fl(2)833 +3984 y Fk(?)p Fl(3)950 3959 y Fw(+)22 b Fj(m)1133 3918 +y Fl(2)1133 3984 y Fk(?)p Fl(4)1227 3959 y Fw(\))28 b(=)1406 +3892 y(1)p 1406 3936 V 1406 4028 a(2)1465 3959 y(\()p +Fj(m)1588 3918 y Fl(2)1588 3984 y(3)1650 3959 y Fw(+)22 +b Fj(m)1833 3918 y Fl(2)1833 3984 y(4)1873 3959 y Fw(\))g(+)30 +b(^)-57 b Fj(p)2080 3918 y Fl(2)2080 3984 y Fk(?)2166 +3959 y Fw(=)2280 3892 y(1)p 2280 3936 V 2280 4028 a(2)2339 +3959 y(\()p Fj(m)2462 3918 y Fl(2)2462 3984 y(3)2524 +3959 y Fw(+)22 b Fj(m)2707 3918 y Fl(2)2707 3984 y(4)2746 +3959 y Fw(\))g(+)2916 3874 y(^)2914 3892 y Fj(t)7 b Fw(^)-55 +b Fj(u)21 b Fn(\000)i Fj(m)3212 3856 y Fl(2)3212 3917 +y(3)3252 3892 y Fj(m)3337 3856 y Fl(2)3337 3917 y(4)p +2914 3936 463 4 v 3126 4028 a Fw(^)-53 b Fj(s)3606 3959 +y Fw(\(71\))0 4161 y(when)32 b(masses)g(are)f(in)m(tro)s(duced.)43 +b(The)32 b(mass)f(term)f(is)h(selected)h(suc)m(h)g(that,)f(for)f +Fj(m)3073 4176 y Fl(3)3141 4161 y Fw(=)d Fj(m)3329 4176 +y Fl(4)3397 4161 y Fw(=)g Fj(m)p Fw(,)32 b(the)0 4269 +y(expression)i(reduces)g(to)e(the)h(squared)h(transv)m(erse)h(mass,)e +Fj(Q)2271 4233 y Fl(2)2338 4269 y Fw(=)46 b(^)-67 b Fj(m)2527 +4233 y Fl(2)2527 4294 y Fk(?)2614 4269 y Fw(=)27 b Fj(m)2802 +4233 y Fl(2)2864 4269 y Fw(+)j(^)-57 b Fj(p)3011 4233 +y Fl(2)3011 4294 y Fk(?)3070 4269 y Fw(.)146 4390 y(The)32 +b(d)5 b(^)-54 b Fj(\033)t(=)p Fw(d)562 4371 y(^)561 4390 +y Fj(t)30 b Fw(expresses)k(the)c(di\013eren)m(tial)f(cross)i(section)f +(for)g(a)g(scattering,)h(as)f(a)g(function)g(of)g(the)0 +4510 y(kinematical)d(quan)m(tities)34 b(^)-53 b Fj(s)p +Fw(,)1073 4492 y(^)1071 4510 y Fj(t)30 b Fw(and)36 b(^)-55 +b Fj(u)p Fw(.)42 b(It)30 b(is)g(in)f(this)g(function)h(that)g(the)g(ph) +m(ysics)h(of)f(a)f(giv)m(en)h(pro)s(cess)0 4619 y(resides.)146 +4727 y(The)47 b(p)s(erformance)e(of)g(a)g(mac)m(hine)g(is)g(measured)i +(in)d(terms)i(of)f(its)g(luminosit)m(y)e Fn(L)p Fw(,)49 +b(whic)m(h)d(is)0 4835 y(directly)31 b(prop)s(ortional)f(to)h(the)i(n)m +(um)m(b)s(er)f(of)g(particles)f(in)g(eac)m(h)i(bunc)m(h)h(and)e(to)g +(the)g(bunc)m(h)h(crossing)0 4944 y(frequency)-8 b(,)45 +b(and)40 b(in)m(v)m(ersely)i(prop)s(ortional)c(to)i(the)h(area)g(of)f +(the)h(bunc)m(hes)h(at)f(the)g(collision)c(p)s(oin)m(t.)0 +5052 y(F)-8 b(or)29 b(a)g(pro)s(cess)i(with)e(a)g Fj(\033)34 +b Fw(as)c(giv)m(en)g(b)m(y)g(eq.)h(\(69\),)e(the)h(di\013eren)m(tial)e +(ev)m(en)m(t)j(rate)f(is)f(giv)m(en)h(b)m(y)g Fj(\033)t +Fn(L)p Fw(,)g(and)0 5160 y(the)j(n)m(um)m(b)s(er)g(of)f(ev)m(en)m(ts)j +(collected)d(o)m(v)m(er)i(a)e(giv)m(en)h(p)s(erio)s(d)e(of)h(time)1567 +5361 y Fj(N)38 b Fw(=)28 b Fj(\033)1879 5244 y Fg(Z)1978 +5361 y Fn(L)17 b Fw(d)p Fj(t)33 b(:)1393 b Fw(\(72\))0 +5561 y(The)49 b(program)d(do)s(es)i(not)g(calculate)e(the)i(n)m(um)m(b) +s(er)h(of)e(ev)m(en)m(ts,)54 b(but)48 b(only)f(the)h(in)m(tegrated)g +(cross)0 5669 y(sections.)1841 5953 y(92)p eop +%%Page: 93 99 +93 98 bop 0 -18 a Fp(7.3)135 b(Resonance)46 b(Pro)t(duction)0 +154 y Fw(The)e(simplest)e(w)m(a)m(y)i(to)f(pro)s(duce)g(a)g(resonance)i +(is)d(b)m(y)i(a)f(2)i Fn(!)g Fw(1)e(pro)s(cess.)76 b(If)43 +b(the)g(deca)m(y)i(of)d(the)0 263 y(resonance)30 b(is)d(not)h +(considered,)i(the)f(cross-section)g(form)m(ula)d(do)s(es)j(not)f(dep)s +(end)i(on)3134 244 y(^)3133 263 y Fj(t)p Fw(,)f(but)g(tak)m(es)g(the)0 +371 y(form)912 516 y Fj(\033)i Fw(=)1102 399 y Fg(Z)53 +b(Z)1311 448 y Fw(d)p Fj(\034)p 1311 493 108 4 v 1338 +584 a(\034)1445 516 y Fw(d)p Fj(y)20 b(x)1622 531 y Fl(1)1662 +516 y Fj(f)1710 531 y Fl(1)1750 516 y Fw(\()p Fj(x)1843 +531 y Fl(1)1882 516 y Fj(;)d(Q)2003 475 y Fl(2)2043 516 +y Fw(\))g Fj(x)2153 531 y Fl(2)2192 516 y Fj(f)2240 531 +y Fl(2)2280 516 y Fw(\()p Fj(x)2373 531 y Fl(2)2413 516 +y Fj(;)g(Q)2534 475 y Fl(2)2573 516 y Fw(\))22 b(^)-54 +b Fj(\033)t Fw(\()t(^)h Fj(s)o Fw(\))33 b Fj(:)738 b +Fw(\(73\))0 708 y(Here)35 b(the)h(ph)m(ysics)g(is)e(con)m(tained)h(in)f +(the)h(cross)h(section)k(^)-55 b Fj(\033)t Fw(\()t(^)i +Fj(s)p Fw(\).)50 b(The)36 b Fj(Q)2679 671 y Fl(2)2753 +708 y Fw(scale)f(is)f(usually)g(tak)m(en)i(to)0 816 y(b)s(e)d +Fj(Q)210 780 y Fl(2)277 816 y Fw(=)f(^)-53 b Fj(s)p Fw(.)146 +924 y(In)30 b(published)g(form)m(ulae,)e(cross)j(sections)f(are)f +(often)h(giv)m(en)g(in)e(the)i(zero-width)g(appro)m(ximation,)0 +1033 y(i.e.)66 b(^)-54 b Fj(\033)t Fw(\()t(^)h Fj(s)p +Fw(\))38 b Fn(/)h Fj(\016)t Fw(\()t(^)-53 b Fj(s)26 b +Fn(\000)h Fj(m)867 996 y Fl(2)867 1057 y Fh(R)925 1033 +y Fw(\),)40 b(where)g Fj(m)1403 1048 y Fh(R)1499 1033 +y Fw(is)f(the)g(mass)f(of)g(the)i(resonance.)63 b(In)m(tro)s(ducing)38 +b(the)h(scaled)0 1141 y(mass)f Fj(\034)287 1156 y Fh(R)382 +1141 y Fw(=)f Fj(m)580 1105 y Fl(2)580 1166 y Fh(R)638 +1141 y Fj(=s)p Fw(,)j(this)e(corresp)s(onds)h(to)f(a)g(delta)f +(function)h Fj(\016)t Fw(\()p Fj(\034)f Fn(\000)26 b +Fj(\034)2694 1156 y Fh(R)2753 1141 y Fw(\),)39 b(whic)m(h)g(can)f(b)s +(e)h(used)g(to)0 1249 y(eliminate)30 b(the)j(in)m(tegral)e(o)m(v)m(er)i +Fj(\034)11 b Fw(.)146 1358 y(Ho)m(w)m(ev)m(er,)41 b(what)d(w)m(e)g +(normally)d(w)m(an)m(t)k(to)e(do)g(is)g(replace)g(the)h +Fj(\016)j Fw(function)c(b)m(y)i(the)e(appropriate)0 1466 +y(Breit{Wigner)31 b(shap)s(e.)44 b(F)-8 b(or)32 b(a)g(resonance)i +(width)f(\000)1959 1481 y Fh(R)2049 1466 y Fw(this)f(is)g(ac)m(hiev)m +(ed)i(b)m(y)g(the)f(replacemen)m(t)1095 1687 y Fj(\016)t +Fw(\()p Fj(\034)h Fn(\000)22 b Fj(\034)1397 1702 y Fh(R)1455 +1687 y Fw(\))28 b Fn(!)1665 1620 y Fj(s)p 1658 1664 59 +4 v 1658 1756 a(\031)2053 1620 y(m)2138 1635 y Fh(R)2196 +1620 y Fw(\000)2257 1635 y Fh(R)p 1754 1664 862 4 v 1754 +1756 a Fw(\()p Fj(s\034)33 b Fn(\000)23 b Fj(m)2098 1721 +y Fl(2)2098 1780 y Fh(R)2156 1756 y Fw(\))2194 1727 y +Fl(2)2255 1756 y Fw(+)f Fj(m)2438 1721 y Fl(2)2438 1780 +y Fh(R)2496 1756 y Fw(\000)2557 1721 y Fl(2)2557 1780 +y Fh(R)2657 1687 y Fj(:)922 b Fw(\(74\))0 1916 y(In)33 +b(this)f(form)m(ula)f(the)i(resonance)h(width)e(\000)1620 +1931 y Fh(R)1710 1916 y Fw(is)g(a)h(constan)m(t.)146 +2024 y(An)49 b(impro)m(v)m(ed)g(description)f(of)h(resonance)h(shap)s +(es)g(is)e(obtained)g(if)g(the)h(width)f(is)h(made)j(^)-53 +b Fj(s)p Fw(-)0 2133 y(dep)s(enden)m(t)25 b(\(o)s(ccasionally)c(also)i +(referred)h(to)f(as)g(mass-dep)s(enden)m(t)i(width,)g(since)j(^)-53 +b Fj(s)23 b Fw(is)g(not)g(alw)m(a)m(ys)h(the)0 2241 y(resonance)32 +b(mass\),)f(see)h(e.g.)44 b([Ber89].)f(T)-8 b(o)30 b(\014rst)i(appro)m +(ximation,)d(this)h(means)h(that)g(the)g(expression)0 +2350 y Fj(m)85 2365 y Fh(R)143 2350 y Fw(\000)204 2365 +y Fh(R)301 2350 y Fw(is)40 b(to)f(b)s(e)h(replaced)g(b)m(y)k(^)-53 +b Fj(s)p Fw(\000)1314 2365 y Fh(R)1372 2350 y Fj(=m)1506 +2365 y Fh(R)1564 2350 y Fw(.)64 b(T)-8 b(o)40 b(b)s(e)g(more)f +(precise,)j(in)d(the)h(program)f(the)h(quan)m(tit)m(y)0 +2458 y Fj(H)81 2473 y Fh(R)139 2458 y Fw(\()t(^)-53 b +Fj(s)o Fw(\))33 b(is)f(in)m(tro)s(duced,)h(and)f(the)h(Breit{Wigner)f +(is)g(written)g(as)1069 2691 y Fj(\016)t Fw(\()p Fj(\034)h +Fn(\000)23 b Fj(\034)1371 2706 y Fh(R)1429 2691 y Fw(\))28 +b Fn(!)1638 2624 y Fj(s)p 1632 2668 59 4 v 1632 2760 +a(\031)2027 2624 y(H)2108 2639 y Fh(R)2166 2624 y Fw(\()p +Fj(s\034)11 b Fw(\))p 1727 2668 914 4 v 1727 2760 a(\()p +Fj(s\034)34 b Fn(\000)23 b Fj(m)2072 2725 y Fl(2)2072 +2784 y Fh(R)2130 2760 y Fw(\))2168 2731 y Fl(2)2229 2760 +y Fw(+)f Fj(H)2416 2725 y Fl(2)2408 2784 y Fh(R)2466 +2760 y Fw(\()p Fj(s\034)11 b Fw(\))2683 2691 y Fj(:)896 +b Fw(\(75\))0 2952 y(The)31 b Fj(H)279 2967 y Fh(R)366 +2952 y Fw(factor)e(is)h(ev)-5 b(aluated)29 b(as)h(a)g(sum)f(o)m(v)m(er) +i(all)d(p)s(ossible)h(\014nal-state)g(c)m(hannels,)i +Fj(H)3225 2967 y Fh(R)3310 2952 y Fw(=)3414 2885 y Fg(P)3502 +2973 y Fh(f)3564 2952 y Fj(H)3653 2901 y Fl(\()p Fh(f)7 +b Fl(\))3645 2976 y Fh(R)3752 2952 y Fw(.)0 3060 y(Eac)m(h)34 +b(deca)m(y)f(c)m(hannel)g(ma)m(y)g(ha)m(v)m(e)h(its)e(o)m(wn)37 +b(^)-53 b Fj(s)32 b Fw(dep)s(endence,)k(as)c(follo)m(ws.)146 +3168 y(A)42 b(deca)m(y)g(to)f(a)g(fermion)e(pair,)j Fj(R)i +Fn(!)e Fw(f)p 1656 3089 37 4 v 7 w(f)6 b(,)43 b(giv)m(es)f(no)f(con)m +(tribution)f(b)s(elo)m(w)h(threshold,)i(i.e.)69 b(for)4 +3297 y(^)-53 b Fj(s)41 b(<)g Fw(4)p Fj(m)338 3261 y Fl(2)338 +3321 y(f)378 3297 y Fw(.)67 b(Ab)s(o)m(v)m(e)41 b(threshold,)i +Fj(H)1335 3246 y Fl(\()p Fh(f)7 b Fl(\))1327 3321 y Fh(R)1475 +3297 y Fw(is)40 b(prop)s(ortional)e(to)44 b(^)-53 b Fj(s)p +Fw(,)43 b(m)m(ultiplied)37 b(b)m(y)k(a)f(threshold)h(factor)0 +3405 y Fj(\014)6 b Fw(\(3)18 b Fn(\000)g Fj(\014)322 +3369 y Fl(2)361 3405 y Fw(\))p Fj(=)p Fw(2)30 b(for)g(the)h(v)m(ector)h +(part)f(of)f(a)g(spin)h(1)f(resonance,)j(b)m(y)e Fj(\014)2478 +3369 y Fl(3)2548 3405 y Fw(for)f(the)h(axial)e(v)m(ector)i(part,)g(and) +0 3546 y(again)k(b)m(y)j Fj(\014)465 3510 y Fl(3)541 +3546 y Fw(for)e(a)h(spin)g(0)f(resonance.)58 b(Here)37 +b Fj(\014)k Fw(=)2013 3445 y Fg(q)p 2096 3445 439 4 v +101 x Fw(1)22 b Fn(\000)g Fw(4)p Fj(m)2400 3512 y Fl(2)2400 +3571 y(f)2440 3546 y Fj(=)t Fw(^)-53 b Fj(s)o Fw(.)57 +b(F)-8 b(or)36 b(the)h(deca)m(y)h(in)m(to)e(unequal)0 +3676 y(masses,)d(e.g.)44 b(of)32 b(the)h(W)918 3640 y +Fl(+)978 3676 y Fw(,)f(corresp)s(onding)h(but)g(more)f(complicated)f +(expressions)j(are)f(used.)146 3784 y(F)-8 b(or)44 b(deca)m(ys)i(in)m +(to)d(a)h(quark)h(pair,)h(the)f(univ)m(ersal)f(\014rst-order)g(strong)g +(correction)g(factor)g(1)30 b(+)0 3912 y Fj(\013)62 3927 +y Fl(s)94 3912 y Fw(\()t(^)-53 b Fj(s)p Fw(\))p Fj(=\031)49 +b Fw(is)c(included)g(in)g Fj(H)1099 3862 y Fl(\()p Fh(f)7 +b Fl(\))1091 3937 y Fh(R)1199 3912 y Fw(.)82 b(The)47 +b(second-order)f(corrections)g(are)f(often)h(kno)m(wn,)k(but)c(then)0 +4021 y(are)38 b(sp)s(eci\014c)h(to)f(eac)m(h)h(resonance,)j(and)c(are)g +(not)g(included.)61 b(An)38 b(option)f(exists)i(for)f(the)h +Fj(\015)5 b(=)p Fw(Z)3574 3985 y Fl(0)3613 4021 y Fj(=)p +Fw(Z)3722 3985 y Fk(0)p Fl(0)0 4129 y Fw(resonances,)27 +b(where)c(threshold)g(e\013ects)h(due)g(to)e(q)p 1814 +4076 52 4 v(q)h(b)s(ound-state)g(formation)d(are)j(tak)m(en)h(in)m(to)e +(accoun)m(t)0 4238 y(in)32 b(a)g(smeared-out,)h(a)m(v)m(erage)g(sense,) +i(see)e(eq.)h(\(117\).)146 4346 y(F)-8 b(or)35 b(other)h(deca)m(y)h(c)m +(hannels,)h(not)d(in)m(to)g(fermion)f(pairs,)i(the)41 +b(^)-53 b Fj(s)35 b Fw(dep)s(endence)j(is)e(t)m(ypically)e(more)0 +4454 y(complicated.)39 b(F)-8 b(or)25 b(instance,)i(the)f(deca)m(y)h(H) +1644 4418 y Fl(0)1711 4454 y Fn(!)g Fw(W)1939 4418 y +Fl(+)1999 4454 y Fw(W)2100 4418 y Fk(\000)2185 4454 y +Fw(has)e(a)g(partial)e(width)i(prop)s(ortional)e(to)29 +b(^)-53 b Fj(s)3713 4418 y Fl(2)3752 4454 y Fw(,)0 4563 +y(with)24 b(a)f(threshold)i(factor)e Fj(\014)1038 4526 +y Fl(3)1077 4563 y Fw(.)41 b(Since)24 b(a)g(Higgs)f(with)h +Fj(m)2023 4578 y Fl(H)2108 4563 y Fj(<)j Fw(2)p Fj(m)2345 +4578 y Fl(W)2447 4563 y Fw(could)d(still)d(deca)m(y)26 +b(in)d(this)h(c)m(hannel,)0 4671 y(it)35 b(is)h(in)g(fact)g(necessary)j +(to)d(p)s(erform)g(a)g(t)m(w)m(o-dimensional)e(in)m(tegral)h(o)m(v)m +(er)j(the)f Fj(W)3109 4635 y Fk(\006)3204 4671 y Fw(Breit{Wigner)0 +4779 y(mass)h(distributions)e(to)i(obtain)e(the)i(correct)h(result)f +(\(and)f(this)h(has)g(to)f(b)s(e)h(done)h(n)m(umerically)-8 +b(,)37 b(at)0 4888 y(least)d(in)g(part\).)48 b(F)-8 b(ortunately)g(,)34 +b(a)h(Higgs)e(particle)g(ligh)m(ter)g(than)i(2)p Fj(m)2569 +4903 y Fl(W)2681 4888 y Fw(is)f(su\016cien)m(tly)h(narro)m(w)g(that)0 +4996 y(the)i(in)m(tegral)f(only)g(needs)i(to)f(b)s(e)g(p)s(erformed)f +(once)i(and)f(for)f(all)f(at)h(initialization)c(\(whereas)38 +b(most)0 5104 y(other)29 b(partial)d(widths)j(are)g(recalculated)f +(whenev)m(er)j(needed\).)44 b(Channels)29 b(that)g(pro)s(ceed)g(via)f +(lo)s(ops,)0 5213 y(suc)m(h)34 b(as)f(H)28 b Fn(!)f Fw(gg)q(,)32 +b(also)g(displa)m(y)g(complicated)f(threshold)i(b)s(eha)m(viours.)146 +5321 y(The)e(coupling)d(structure)j(within)e(the)h(electro)m(w)m(eak)h +(sector)g(is)e(usually)g(\(re\)expressed)k(in)c(terms)0 +5429 y(of)j(gauge)g(b)s(oson)h(masses,)h Fj(\013)1078 +5444 y Fl(em)1204 5429 y Fw(and)f(sin)1514 5389 y Fl(2)1553 +5429 y Fj(\022)1598 5444 y Fh(W)1679 5429 y Fw(,)g(i.e.)43 +b(factors)33 b(of)f Fj(G)2413 5444 y Fl(F)2495 5429 y +Fw(are)h(replaced)g(according)f(to)1423 5538 y Fn(p)p +1506 5538 49 4 v 87 x Fw(2)o Fj(G)1631 5640 y Fl(F)1709 +5625 y Fw(=)1939 5558 y Fj(\031)21 b(\013)2077 5573 y +Fl(em)p 1823 5602 465 4 v 1823 5695 a Fw(sin)1942 5655 +y Fl(2)1982 5695 y Fj(\022)2027 5710 y Fh(W)2124 5695 +y Fj(m)2209 5660 y Fl(2)2209 5719 y(W)2330 5625 y Fj(:)1249 +b Fw(\(76\))1841 5953 y(93)p eop +%%Page: 94 100 +94 99 bop 0 -18 a Fw(Ha)m(ving)30 b(done)i(that,)e Fj(\013)861 +-3 y Fl(em)986 -18 y Fw(is)h(allo)m(w)m(ed)f(to)g(run)h([Kle89)o(],)g +(and)g(is)f(ev)-5 b(aluated)30 b(at)h(the)k(^)-53 b Fj(s)30 +b Fw(scale.)43 b(Thereb)m(y)0 90 y(the)31 b(relev)-5 +b(an)m(t)31 b(electro)m(w)m(eak)i(lo)s(op)c(correction)i(factors)g(are) +g(reco)m(v)m(ered)i(at)e(the)g Fj(m)2996 105 y Fl(W)3074 +90 y Fj(=m)3208 105 y Fl(Z)3286 90 y Fw(scale.)43 b(Ho)m(w-)0 +198 y(ev)m(er,)33 b(the)e(option)f(exists)h(to)g(go)f(the)i(other)f(w)m +(a)m(y)h(and)f(eliminate)d Fj(\013)2500 213 y Fh(e)2537 +198 y Fj(m)j Fw(in)f(fa)m(v)m(our)h(of)g Fj(G)3248 213 +y Fl(F)3298 198 y Fw(.)43 b(Curren)m(tly)0 307 y(sin)120 +267 y Fl(2)159 307 y Fj(\022)204 322 y Fh(W)322 307 y +Fw(is)36 b(not)h(allo)m(w)m(ed)f(to)g(run.)56 b(F)-8 +b(or)36 b(the)h(Higgs)f(particle,)h(the)g(couplings)e(to)i(fermions)e +(are)i(pro-)0 415 y(p)s(ortional)30 b(to)i(the)h(fermion)e(masses;)j +(then)f(also)f(the)h(masses)g(are)f(ev)-5 b(aluated)33 +b(at)f(the)37 b(^)-53 b Fj(s)32 b Fw(scale.)146 523 y(In)39 +b(summary)-8 b(,)39 b(w)m(e)h(see)g(that)e(an)k(^)-53 +b Fj(s)39 b Fw(dep)s(endence)h(ma)m(y)f(en)m(ter)g(sev)m(eral)g +(di\013eren)m(t)g(w)m(a)m(ys)h(in)m(to)e(the)0 652 y +Fj(H)89 601 y Fl(\()p Fh(f)7 b Fl(\))81 676 y Fh(R)221 +652 y Fw(expressions)33 b(from)e(whic)m(h)h(the)g(total)f +Fj(H)1717 667 y Fh(R)1806 652 y Fw(is)g(built)f(up.)44 +b(Also)31 b(note)h(that,)g(with)g(the)g(exception)0 760 +y(of)j(the)h(term)f(\(s)p Fj(\034)h Fn(\000)25 b Fj(m)862 +724 y Fl(2)862 785 y Fh(R)920 760 y Fw(\))958 724 y Fl(2)1033 +760 y Fw(in)34 b(the)i(denominator)e(of)h(the)h(Breit{Wigner,)f(no)h +(memory)e(remains)h(of)0 886 y(the)e(nominal)d Fj(m)627 +901 y Fh(R)717 886 y Fw(mass:)44 b(ev)m(erywhere)36 b(else,)d(what)f +(en)m(ters)j(is)d(the)h(actual)e(resonance)j(mass)3486 +801 y Fn(p)p 3569 801 46 4 v 3573 886 a Fw(^)-53 b Fj(s)p +Fw(.)146 994 y(When)28 b(only)e(deca)m(ys)j(to)d(a)h(sp)s(eci\014c)g +(\014nal)f(state)h Fj(f)38 b Fw(are)27 b(considered,)h(the)g +Fj(H)2889 1009 y Fh(R)2973 994 y Fw(in)e(the)h(denominator)0 +1102 y(remains)40 b(the)h(sum)f(o)m(v)m(er)i(all)c(allo)m(w)m(ed)i +(deca)m(y)i(c)m(hannels,)h(but)e(the)g(n)m(umerator)f(only)g(con)m +(tains)h(the)0 1231 y Fj(H)89 1180 y Fl(\()p Fh(f)7 b +Fl(\))81 1255 y Fh(R)221 1231 y Fw(term)32 b(of)g(the)h(\014nal)f +(state)h(considered.)146 1339 y(If)j(the)h(com)m(bined)e(pro)s(duction) +h(and)g(deca)m(y)h(pro)s(cess)g Fj(i)d Fn(!)f Fj(R)h +Fn(!)g Fj(f)46 b Fw(is)36 b(considered,)h(the)g(same)j(^)-53 +b Fj(s)0 1447 y Fw(dep)s(endence)28 b(is)e(implicit)c(in)j(the)i +(coupling)e(structure)i(of)e Fj(i)j Fn(!)g Fj(R)f Fw(as)f(one)g(w)m +(ould)g(ha)m(v)m(e)i(had)e(in)f Fj(R)k Fn(!)e Fj(i)p +Fw(,)0 1556 y(i.e.)54 b(to)36 b(\014rst)h(appro)m(ximation)d(there)j +(is)f(a)g(symmetry)g(b)s(et)m(w)m(een)i(couplings)e(of)g(a)f(resonance) +j(to)e(the)0 1664 y(initial)30 b(and)j(to)g(the)h(\014nal)e(state.)46 +b(The)35 b(cross)f(section)k(^)-54 b Fj(\033)38 b Fw(is)32 +b(therefore,)j(in)d(the)i(program,)e(written)h(in)0 1772 +y(the)g(form)1117 1949 y(^)-54 b Fj(\033)1167 1964 y +Fh(i)p Fk(!)p Fh(R)p Fk(!)p Fh(f)1431 1949 y Fw(\()t(^)h +Fj(s)p Fw(\))28 b Fn(/)1696 1881 y Fj(\031)p 1696 1926 +59 4 v 1706 2017 a Fw(^)-53 b Fj(s)1884 1881 y(H)1973 +1831 y Fl(\()p Fh(i)p Fl(\))1965 1906 y Fh(R)2056 1881 +y Fw(\()t(^)g Fj(s)p Fw(\))17 b Fj(H)2284 1831 y Fl(\()p +Fh(f)7 b Fl(\))2276 1906 y Fh(R)2383 1881 y Fw(\()t(^)-53 +b Fj(s)p Fw(\))p 1791 1926 807 4 v 1791 2017 a(\()t(^)g +Fj(s)23 b Fn(\000)f Fj(m)2082 1983 y Fl(2)2082 2042 y +Fh(R)2140 2017 y Fw(\))2178 1988 y Fl(2)2240 2017 y Fw(+)g +Fj(H)2427 1983 y Fl(2)2419 2042 y Fh(R)2476 2017 y Fw(\()t(^)-53 +b Fj(s)p Fw(\))2641 1949 y Fj(:)938 b Fw(\(77\))0 2181 +y(As)27 b(a)e(simple)g(example,)i(the)f(cross)h(section)f(for)g(the)g +(pro)s(cess)h(e)2307 2145 y Fk(\000)p 2367 2128 55 4 +v 2367 2181 a Fj(\027)2421 2196 y Fl(e)2484 2181 y Fn(!)h +Fw(W)2713 2145 y Fk(\000)2800 2181 y Fn(!)f Fj(\026)2986 +2145 y Fk(\000)p 3045 2128 V 3045 2181 a Fj(\027)3100 +2196 y Fh(\026)3172 2181 y Fw(can)f(b)s(e)h(written)0 +2289 y(as)1171 2465 y(^)-54 b Fj(\033)t Fw(\()t(^)h Fj(s)p +Fw(\))28 b(=)f(12)1602 2398 y Fj(\031)p 1602 2442 59 +4 v 1612 2534 a Fw(^)-53 b Fj(s)1810 2398 y(H)1899 2347 +y Fl(\()p Fh(i)p Fl(\))1891 2422 y(W)1982 2398 y Fw(\()t(^)g +Fj(s)p Fw(\))17 b Fj(H)2210 2347 y Fl(\()p Fh(f)7 b Fl(\))2202 +2422 y(W)2309 2398 y Fw(\()t(^)-53 b Fj(s)p Fw(\))p 1698 +2442 847 4 v 1698 2534 a(\()t(^)g Fj(s)22 b Fn(\000)g +Fj(m)1988 2499 y Fl(2)1988 2558 y(W)2066 2534 y Fw(\))2104 +2505 y Fl(2)2166 2534 y Fw(+)g Fj(H)2353 2499 y Fl(2)2345 +2558 y(W)2422 2534 y Fw(\()t(^)-53 b Fj(s)p Fw(\))2586 +2465 y Fj(;)993 b Fw(\(78\))0 2690 y(where)1178 2841 +y Fj(H)1267 2790 y Fl(\()p Fh(i)p Fl(\))1259 2865 y(W)1349 +2841 y Fw(\()t(^)-53 b Fj(s)p Fw(\))28 b(=)f Fj(H)1691 +2790 y Fl(\()p Fh(f)7 b Fl(\))1683 2865 y(W)1791 2841 +y Fw(\()t(^)-53 b Fj(s)p Fw(\))27 b(=)2123 2773 y Fj(\013)2185 +2788 y Fl(em)2279 2773 y Fw(\()t(^)-53 b Fj(s)p Fw(\))p +2054 2817 416 4 v 2054 2910 a(24)33 b(sin)2304 2870 y +Fl(2)2344 2910 y Fj(\022)2389 2925 y Fh(W)2500 2841 y +Fw(^)-53 b Fj(s)33 b(:)1004 b Fw(\(79\))0 3062 y(If)46 +b(the)g(e\013ects)g(of)g(sev)m(eral)g(initial)c(and/or)j(\014nal)g +(states)h(are)g(studied,)j(it)c(is)g(straigh)m(tforw)m(ard)g(to)0 +3170 y(in)m(tro)s(duce)33 b(an)f(appropriate)g(summation)e(in)i(the)h +(n)m(umerator.)146 3299 y(The)47 b(analogy)e(b)s(et)m(w)m(een)j(the)e +Fj(H)1394 3248 y Fl(\()p Fh(f)7 b Fl(\))1386 3323 y Fh(R)1539 +3299 y Fw(and)46 b Fj(H)1831 3248 y Fl(\()p Fh(i)p Fl(\))1823 +3323 y Fh(R)1960 3299 y Fw(cannot)g(b)s(e)g(pushed)h(to)s(o)e(far,)k +(ho)m(w)m(ev)m(er.)86 b(The)0 3407 y(t)m(w)m(o)31 b(di\013er)f(in)g +(sev)m(eral)h(imp)s(ortan)m(t)e(asp)s(ects.)44 b(Firstly)-8 +b(,)30 b(colour)f(factors)i(app)s(ear)f(rev)m(ersed:)45 +b(the)31 b(deca)m(y)0 3515 y Fj(R)e Fn(!)e Fw(q)p 281 +3462 52 4 v(q)d(con)m(tains)g(a)f(colour)g(factor)g Fj(N)1434 +3530 y Fh(C)1521 3515 y Fw(=)k(3)c(enhancemen)m(t,)k(while)c(q)p +2601 3462 V(q)28 b Fn(!)g Fj(R)c Fw(is)f(instead)h(suppressed)0 +3624 y(b)m(y)40 b(a)e(factor)g(1)p Fj(=)-5 b(N)685 3639 +y Fh(C)782 3624 y Fw(=)38 b(1)p Fj(=)p Fw(3.)61 b(Secondly)-8 +b(,)41 b(the)e(1)26 b(+)g Fj(\013)1980 3639 y Fl(s)2012 +3624 y Fw(\()t(^)-53 b Fj(s)p Fw(\))p Fj(=\031)42 b Fw(\014rst-order)d +(correction)g(factor)f(for)g(the)0 3732 y(\014nal)c(state)i(has)f(to)f +(b)s(e)i(replaced)f(b)m(y)h(a)e(more)g(complicated)g +Fj(K)42 b Fw(factor)34 b(for)h(the)g(initial)c(state.)51 +b(This)0 3840 y(factor)33 b(is)h(not)g(usually)f(kno)m(wn,)i(or)f(it)f +(is)g(kno)m(wn)j(\(to)d(\014rst)h(non-trivial)d(order\))j(but)h(to)s(o) +e(length)m(y)h(to)0 3949 y(b)s(e)j(included)f(in)f(the)i(program.)54 +b(Thirdly)-8 b(,)37 b(incoming)d(partons)j(as)g(a)f(rule)g(are)g +(space-lik)m(e.)55 b(All)35 b(the)0 4057 y(threshold)h(suppression)i +(factors)e(of)g(the)h(\014nal)e(state)i(expressions)h(are)e(therefore)h +(irrelev)-5 b(an)m(t)35 b(when)0 4185 y(pro)s(duction)29 +b(is)g(considered.)43 b(In)30 b(sum,)g(the)g Fj(H)1706 +4134 y Fl(\()p Fh(f)7 b Fl(\))1698 4210 y Fh(R)1806 4185 +y Fw({)p Fj(H)1944 4134 y Fl(\()p Fh(i)p Fl(\))1936 4210 +y Fh(R)2056 4185 y Fw(analogy)28 b(is)h(mainly)e(useful)j(as)g(a)f +(consistency)0 4294 y(cross-c)m(hec)m(k,)h(while)25 b(the)h(t)m(w)m(o)g +(usually)f(are)h(calculated)f(separately)-8 b(.)41 b(Exceptions)27 +b(include)e(the)h(rather)0 4402 y(messy)34 b(lo)s(op)d(structure)j(in)m +(v)m(olv)m(ed)f(in)e(gg)e Fn(!)e Fw(H)1740 4366 y Fl(0)1812 +4402 y Fw(and)33 b(H)2075 4366 y Fl(0)2142 4402 y Fn(!)28 +b Fw(gg)q(,)k(whic)m(h)h(is)f(only)g(co)s(ded)h(once.)146 +4510 y(It)38 b(is)e(of)h(some)g(in)m(terest)h(to)f(consider)h(the)f +(observ)-5 b(able)38 b(resonance)g(shap)s(e)g(when)h(the)e(e\013ects)i +(of)0 4619 y(parton)i(distributions)g(are)g(included.)71 +b(In)42 b(a)f(hadron)h(collider,)g(to)f(\014rst)h(appro)m(ximation,)g +(parton)0 4727 y(distributions)30 b(tend)i(to)f(ha)m(v)m(e)i(a)e(b)s +(eha)m(viour)g(roughly)g(lik)m(e)g Fj(f)11 b Fw(\()p +Fj(x)p Fw(\))28 b Fn(/)g Fw(1)p Fj(=x)j Fw(for)g(small)e +Fj(x)j Fw(|)f(this)g(is)g(wh)m(y)0 4835 y Fj(f)11 b Fw(\()p +Fj(x)p Fw(\))38 b(is)f(replaced)i(b)m(y)f Fj(xf)11 b +Fw(\()p Fj(x)p Fw(\))39 b(in)e(eq.)60 b(\(69\).)f(Instead,)41 +b(the)d(basic)g(parton-distribution)e(b)s(eha)m(viour)0 +4944 y(is)f(shifted)g(in)m(to)f(the)i(factor)e(of)h(1)p +Fj(=\034)46 b Fw(in)34 b(the)i(in)m(tegration)d(phase)j(space)g(d)p +Fj(\034)11 b(=\034)g Fw(,)37 b(cf.)51 b(eq.)36 b(\(73\).)51 +b(When)0 5052 y(folded)27 b(with)h(the)g(Breit{Wigner)e(shap)s(e,)k(t)m +(w)m(o)e(e\013ects)h(app)s(ear.)42 b(One)28 b(is)g(that)f(the)h(o)m(v)m +(erall)f(resonance)0 5161 y(is)42 b(tilted:)62 b(the)42 +b(lo)m(w-mass)g(tail)e(is)i(enhanced)i(and)f(the)f(high-mass)g(one)g +(suppressed.)76 b(The)43 b(other)0 5269 y(is)j(that)g(an)h(extremely)g +(long)e(tail)g(dev)m(elops)i(on)g(the)g(lo)m(w-mass)f(side)g(of)g(the)h +(resonance:)73 b(when)0 5377 y Fj(\034)52 b Fn(!)39 b +Fw(0,)j(eq.)66 b(\(77\))40 b(with)f Fj(H)1062 5392 y +Fh(R)1120 5377 y Fw(\()t(^)-53 b Fj(s)p Fw(\))40 b Fn(/)k +Fw(^)-53 b Fj(s)40 b Fw(giv)m(es)h(a)j(^)-54 b Fj(\033)t +Fw(\()t(^)h Fj(s)p Fw(\))40 b Fn(/)45 b Fw(^)-53 b Fj(s)40 +b Fn(/)h Fj(\034)11 b Fw(,)42 b(whic)m(h)e(exactly)h(cancels)f(the)g(1) +p Fj(=\034)0 5486 y Fw(factor)33 b(men)m(tioned)g(ab)s(o)m(v)m(e.)48 +b(Na)-11 b(\177)-38 b(\020v)m(ely)-8 b(,)34 b(the)g(in)m(tegral)e(o)m +(v)m(er)j Fj(y)t Fw(,)2293 5414 y Fg(R)2365 5486 y Fw(d)p +Fj(y)d Fw(=)e Fn(\000)17 b Fw(ln)f Fj(\034)11 b Fw(,)34 +b(therefore)h(giv)m(es)f(a)f(net)0 5594 y(logarithmic)e(div)m(ergence)k +(of)f(the)h(resonance)h(shap)s(e)f(when)g Fj(\034)43 +b Fn(!)30 b Fw(0.)49 b(Clearly)-8 b(,)34 b(it)f(is)h(then)h(necessary) +1841 5953 y(94)p eop +%%Page: 95 101 +95 100 bop 0 -18 a Fw(to)29 b(consider)g(the)h(shap)s(e)g(of)f(the)g +(parton)g(distributions)f(in)h(more)f(detail.)41 b(A)m(t)29 +b(not-to)s(o-small)c Fj(Q)3547 -55 y Fl(2)3587 -18 y +Fw(,)30 b(the)0 90 y(ev)m(olution)36 b(equations)g(in)g(fact)h(lead)e +(to)i(parton)f(distributions)f(more)h(strongly)g(p)s(eak)m(ed)i(than)e +(1)p Fj(=x)p Fw(,)0 198 y(t)m(ypically)k(with)h Fj(xf)11 +b Fw(\()p Fj(x)p Fw(\))44 b Fn(/)f Fj(x)1102 162 y Fk(\000)p +Fl(0)p Fh(:)p Fl(3)1252 198 y Fw(,)g(and)f(therefore)g(a)f(div)m +(ergence)i(lik)m(e)e Fj(\034)2756 162 y Fk(\000)p Fl(0)p +Fh(:)p Fl(3)2947 198 y Fw(in)g(the)h(cross-section)0 +307 y(expression.)82 b(Ev)m(en)m(tually)46 b(this)f(div)m(ergence)h(is) +f(regularized)f(b)m(y)i(a)f(closing)f(of)h(the)g(phase)h(space,)0 +415 y(i.e.)55 b(that)36 b Fj(H)476 430 y Fh(R)533 415 +y Fw(\()t(^)-53 b Fj(s)p Fw(\))37 b(v)-5 b(anishes)37 +b(faster)f(than)41 b(^)-53 b Fj(s)p Fw(,)37 b(and)g(b)m(y)g(a)f(less)h +(drastic)f(small-)p Fj(x)e Fw(parton-distribution)0 523 +y(b)s(eha)m(viour)f(when)g Fj(Q)784 487 y Fl(2)852 523 +y Fn(\031)f Fw(^)-53 b Fj(s)27 b Fn(!)h Fw(0.)146 632 +y(The)37 b(secondary)g(p)s(eak)f(at)f(small)e Fj(\034)47 +b Fw(ma)m(y)35 b(giv)m(e)g(a)g(rather)h(high)e(cross)j(section,)f(whic) +m(h)g(can)g(ev)m(en)0 740 y(riv)-5 b(al)33 b(that)i(of)g(the)h +(ordinary)f(p)s(eak)g(around)h(the)g(nominal)c(mass.)52 +b(This)36 b(is)e(the)i(case,)h(for)e(instance,)0 848 +y(with)c(W)i(pro)s(duction.)42 b(Suc)m(h)33 b(a)e(p)s(eak)h(has)g(nev)m +(er)h(b)s(een)f(observ)m(ed)i(exp)s(erimen)m(tally)-8 +b(,)30 b(but)i(this)f(is)g(not)0 957 y(surprising,)43 +b(since)e(the)h(bac)m(kground)g(from)e(other)h(pro)s(cesses)j(is)c(o)m +(v)m(erwhelming)h(at)g(lo)m(w)k(^)-53 b Fj(s)p Fw(.)69 +b(Th)m(us)0 1065 y(a)39 b(lepton)f(of)h(one)g(or)f(a)h(few)h(GeV)e(of)h +(transv)m(erse)i(momen)m(tum)d(is)g(far)g(more)h(lik)m(ely)e(to)i(come) +g(from)0 1173 y(the)34 b(deca)m(y)i(of)d(a)h(c)m(harm)g(or)f(b)s(ottom) +g(hadron)h(than)g(from)e(a)i(`W)q(')h(of)e(a)h(mass)g(of)f(a)h(few)h +(GeV.)f(When)0 1282 y(resonance)e(pro)s(duction)e(is)h(studied,)g(it)f +(is)g(therefore)i(imp)s(ortan)m(t)c(to)j(set)g(limits)d(on)j(the)g +(mass)g(of)f(the)0 1390 y(resonance,)h(so)d(as)h(to)f(agree)h(with)f +(the)h(exp)s(erimen)m(tal)e(de\014nition,)h(at)h(least)f(to)g(\014rst)h +(appro)m(ximation.)0 1498 y(If)k(not,)f(cross-section)h(information)d +(giv)m(en)i(b)m(y)i(the)f(program)e(ma)m(y)h(b)s(e)h(v)m(ery)h +(confusing.)146 1607 y(Another)23 b(problem)e(is)h(that)g(often)h(the)f +(matrix)f(elemen)m(ts)i(really)e(are)h(v)-5 b(alid)21 +b(only)h(in)f(the)i(resonance)0 1715 y(region.)47 b(The)36 +b(reason)e(is)g(that)g(one)g(usually)g(includes)g(only)g(the)g +(simplest)g Fj(s)p Fw(-c)m(hannel)g(graph)g(in)f(the)0 +1823 y(calculation.)39 b(It)25 b(is)g(this)f(`signal')g(graph)h(that)g +(has)h(a)e(p)s(eak)i(at)f(the)g(p)s(osition)f(of)h(the)g(resonance,)j +(where)0 1932 y(it)37 b(\(usually\))f(giv)m(es)j(m)m(uc)m(h)f(larger)e +(cross)j(sections)f(than)g(the)g(other)g(`bac)m(kground')h(graphs.)59 +b(Aw)m(a)m(y)0 2040 y(from)39 b(the)h(resonance)i(p)s(osition,)e +(`signal')e(and)i(`bac)m(kground')i(ma)m(y)d(b)s(e)i(of)e(comparable)g +(order,)j(or)0 2148 y(the)34 b(`bac)m(kground')g(ma)m(y)f(ev)m(en)i +(dominate.)45 b(There)34 b(is)f(a)g(quan)m(tum)h(mec)m(hanical)e(in)m +(terference)i(when)0 2257 y(some)26 b(of)f(the)i(`signal')d(and)i(`bac) +m(kground')h(graphs)f(ha)m(v)m(e)i(the)e(same)g(initial)c(and)k +(\014nal)f(state,)j(and)e(this)0 2365 y(in)m(terference)35 +b(ma)m(y)e(b)s(e)h(destructiv)m(e)h(or)e(constructiv)m(e.)48 +b(When)34 b(the)g(in)m(terference)h(is)e(non-negligible,)0 +2473 y(it)27 b(is)h(no)g(longer)f(meaningful)f(to)i(sp)s(eak)h(of)e(a)h +(`signal')f(cross)i(section.)42 b(As)29 b(an)f(example,)h(consider)f +(the)0 2582 y(scattering)h(of)h(longitudinal)c(W)q('s,)31 +b(W)1420 2541 y Fl(+)1419 2606 y(L)1480 2582 y Fw(W)1581 +2541 y Fk(\000)1580 2606 y Fl(L)1668 2582 y Fn(!)d Fw(W)1897 +2541 y Fl(+)1896 2606 y(L)1956 2582 y Fw(W)2057 2541 +y Fk(\000)2056 2606 y Fl(L)2117 2582 y Fw(,)i(where)h(the)f(`signal')e +(pro)s(cess)j(is)f Fj(s)p Fw(-c)m(hannel)0 2690 y(exc)m(hange)36 +b(of)e(a)g(Higgs.)47 b(This)35 b(graph)f(b)m(y)h(itself)e(is)h(ill-b)s +(eha)m(v)m(ed)f(a)m(w)m(a)m(y)i(from)e(the)i(resonance)g(region.)0 +2798 y(Destructiv)m(e)f(in)m(terference)h(with)e(`bac)m(kground')h +(graphs)g(suc)m(h)h(as)f Fj(t)p Fw(-c)m(hannel)f(exc)m(hange)i(of)e(a)g +(Higgs)0 2907 y(and)g Fj(s)p Fw(-)f(and)g Fj(t)p Fw(-c)m(hannel)h(exc)m +(hange)h(of)e(a)h Fj(\015)5 b(=)p Fw(Z)32 b(is)g(required)h(to)f(sa)m +(v)m(e)i(unitarit)m(y)e(at)g(large)f(energies.)146 3015 +y(In)j(e)312 2979 y Fl(+)371 3015 y Fw(e)414 2979 y Fk(\000)507 +3015 y Fw(colliders,)d(the)j Fj(f)1142 2979 y Fl(e)1131 +3040 y(e)1210 3015 y Fw(parton)f(distribution)e(is)i(p)s(eak)m(ed)h(at) +f Fj(x)c Fw(=)f(1)33 b(rather)g(than)g(at)g Fj(x)c Fw(=)g(0.)0 +3123 y(The)36 b(situation)d(therefore)i(is)f(the)h(opp)s(osite,)g(if)e +(one)i(considers)g(e.g.)50 b(Z)2659 3087 y Fl(0)2733 +3123 y Fw(pro)s(duction)34 b(in)g(a)g(mac)m(hine)0 3232 +y(running)j(at)g(energies)i(ab)s(o)m(v)m(e)f Fj(m)1233 +3247 y Fl(Z)1281 3232 y Fw(:)53 b(the)38 b(tail)e(to)m(w)m(ards)j(lo)m +(w)m(er)e(masses)i(is)e(suppressed)j(and)e(the)g(one)0 +3340 y(to)m(w)m(ards)44 b(higher)e(masses)i(enhanced,)j(with)c(a)f +(sharp)i(secondary)g(p)s(eak)f(at)g(around)g(the)g(nominal)0 +3448 y(energy)49 b(of)e(the)i(mac)m(hine.)89 b(Also)47 +b(in)g(this)h(case,)53 b(an)48 b(appropriate)f(de\014nition)g(of)g +(cross)i(sections)0 3557 y(therefore)29 b(is)e(necessary)j(|)e(with)g +(additional)d(complications)g(due)k(to)e(the)i(in)m(terference)g(b)s +(et)m(w)m(een)h Fj(\015)3740 3521 y Fk(\003)0 3665 y +Fw(and)k(Z)251 3629 y Fl(0)290 3665 y Fw(.)49 b(When)35 +b(other)g(pro)s(cesses)h(are)e(considered,)i(problems)d(of)h(in)m +(terference)h(with)f(bac)m(kground)0 3774 y(app)s(ears)43 +b(also)e(here.)73 b(Numerically)40 b(the)i(problems)g(ma)m(y)g(b)s(e)g +(less)g(pressing,)j(ho)m(w)m(ev)m(er,)i(since)c(the)0 +3882 y(secondary)j(p)s(eak)g(is)e(o)s(ccuring)g(in)g(a)h(high-mass)e +(region,)48 b(rather)c(than)h(in)f(a)h(more)f(complicated)0 +3990 y(lo)m(w-mass)37 b(one.)59 b(F)-8 b(urther,)39 b(in)e(e)1202 +3954 y Fl(+)1262 3990 y Fw(e)1305 3954 y Fk(\000)1402 +3990 y Fw(there)h(is)f(little)f(uncertain)m(t)m(y)i(from)f(the)h(shap)s +(e)g(of)g(the)g(parton)0 4099 y(distributions.)146 4207 +y(In)33 b(2)28 b Fn(!)g Fw(2)k(pro)s(cesses)j(where)f(a)e(pair)g(of)g +(resonances)j(are)e(pro)s(duced,)h(e.g.)44 b(e)2984 4171 +y Fl(+)3043 4207 y Fw(e)3086 4171 y Fk(\000)3173 4207 +y Fn(!)28 b Fw(Z)3361 4171 y Fl(0)3400 4207 y Fw(H)3473 +4171 y Fl(0)3513 4207 y Fw(,)33 b(cross)0 4315 y(section)c(are)g +(almost)e(alw)m(a)m(ys)j(giv)m(en)f(in)f(the)h(zero-width)g(appro)m +(ximation)e(for)h(the)i(resonances.)44 b(Here)0 4424 +y(t)m(w)m(o)33 b(substitutions)g(of)f(the)h(t)m(yp)s(e)673 +4686 y(1)28 b(=)853 4569 y Fg(Z)953 4686 y Fj(\016)t +Fw(\()p Fj(m)1123 4645 y Fl(2)1185 4686 y Fn(\000)22 +b Fj(m)1369 4645 y Fl(2)1369 4711 y Fh(R)1427 4686 y +Fw(\))17 b Fj(dm)1618 4645 y Fl(2)1685 4686 y Fn(!)1812 +4569 y Fg(Z)1927 4619 y Fw(1)p 1922 4663 59 4 v 1922 +4755 a Fj(\031)2330 4619 y(m)2415 4634 y Fh(R)2473 4619 +y Fw(\000)2534 4634 y Fh(R)p 2017 4663 887 4 v 2017 4755 +a Fw(\()p Fj(m)2140 4726 y Fl(2)2202 4755 y Fn(\000)23 +b Fj(m)2387 4720 y Fl(2)2387 4779 y Fh(R)2445 4755 y +Fw(\))2483 4726 y Fl(2)2544 4755 y Fw(+)f Fj(m)2727 4720 +y Fl(2)2727 4779 y Fh(R)2785 4755 y Fw(\000)2846 4720 +y Fl(2)2846 4779 y Fh(R)2931 4686 y Fj(dm)3067 4645 y +Fl(2)3606 4686 y Fw(\(80\))0 4966 y(are)37 b(used)h(to)f(in)m(tro)s +(duce)f(mass)h(distributions)f(for)g(the)h(t)m(w)m(o)h(resonance)g +(masses,)h(i.e.)56 b Fj(m)3357 4930 y Fl(2)3357 4991 +y(3)3434 4966 y Fw(and)37 b Fj(m)3713 4930 y Fl(2)3713 +4991 y(4)3752 4966 y Fw(.)0 5075 y(In)42 b(the)f(form)m(ula,)h +Fj(m)788 5090 y Fh(R)887 5075 y Fw(is)f(the)h(nominal)d(mass)i(and)g +Fj(m)h Fw(the)f(actually)f(selected)j(one.)70 b(The)42 +b(phase-)0 5183 y(space)36 b(in)m(tegral)e(o)m(v)m(er)i +Fj(x)887 5198 y Fl(1)927 5183 y Fw(,)g Fj(x)1045 5198 +y Fl(1)1120 5183 y Fw(and)1314 5165 y(^)1313 5183 y Fj(t)f +Fw(in)g(eq.)52 b(\(69\))35 b(is)f(then)i(extended)i(to)c(in)m(v)m(olv)m +(e)i(also)e Fj(m)3360 5147 y Fl(2)3360 5208 y(3)3435 +5183 y Fw(and)i Fj(m)3713 5147 y Fl(2)3713 5208 y(4)3752 +5183 y Fw(.)0 5292 y(The)h(e\013ects)g(of)e(the)i(mass-dep)s(enden)m(t) +g(width)f(is)f(only)g(partly)g(tak)m(en)i(in)m(to)e(accoun)m(t,)j(b)m +(y)f(replacing)0 5400 y(the)h(nominal)d(masses)k Fj(m)964 +5364 y Fl(2)964 5424 y(3)1041 5400 y Fw(and)f Fj(m)1321 +5364 y Fl(2)1321 5424 y(4)1399 5400 y Fw(in)f(the)h(d)5 +b(^)-54 b Fj(\033)t(=)p Fw(d)1908 5381 y(^)1907 5400 +y Fj(t)38 b Fw(expression)h(b)m(y)g(the)f(actually)e(generated)j(ones)0 +5529 y(\(also)k(e.g.)78 b(in)44 b(the)g(relation)e(b)s(et)m(w)m(een) +1533 5510 y(^)1532 5529 y Fj(t)i Fw(and)g(cos)1967 5502 +y(^)1959 5529 y Fj(\022)s Fw(\),)j(while)d(the)g(widths)g(are)h(ev)-5 +b(aluated)43 b(at)h(the)0 5637 y(nominal)33 b(masses.)52 +b(This)35 b(is)g(the)g(equiv)-5 b(alen)m(t)35 b(of)g(a)g(simple)f +(replacemen)m(t)h(of)g Fj(m)2957 5652 y Fh(R)3015 5637 +y Fw(\000)3076 5652 y Fh(R)3169 5637 y Fw(b)m(y)40 b(^)-53 +b Fj(s)p Fw(\000)3414 5652 y Fh(R)3471 5637 y Fj(=m)3605 +5652 y Fh(R)3698 5637 y Fw(in)1841 5953 y(95)p eop +%%Page: 96 102 +96 101 bop 0 -18 a Fw(the)39 b(n)m(umerator)g(of)f(eq.)64 +b(\(74\),)40 b(but)f(not)g(in)f(the)i(denominator.)61 +b(In)39 b(addition,)g(the)g(full)e(threshold)0 90 y(dep)s(endence,)e +(i.e.)43 b(the)33 b Fj(\014)6 b Fw(-dep)s(enden)m(t)34 +b(factors,)e(is)g(not)h(repro)s(duced.)146 198 y(There)i(is)e(no)g +(particular)e(reason)j(wh)m(y)h(the)e(full)f(mass-dep)s(endence)j +(could)e(not)g(b)s(e)g(in)m(tro)s(duced,)0 307 y(except)42 +b(for)e(the)h(extra)g(w)m(ork)h(and)f(time)e(consumption)h(needed)i +(for)e(eac)m(h)i(pro)s(cess.)69 b(In)41 b(fact,)h(the)0 +415 y(matrix)c(elemen)m(ts)i(for)g(sev)m(eral)g Fj(\015)1270 +379 y Fk(\003)1310 415 y Fj(=)p Fw(Z)1419 379 y Fl(0)1497 +415 y Fw(pro)s(duction)f(pro)s(cesses)j(do)e(con)m(tain)f(the)i(full)d +(expressions.)0 523 y(On)32 b(the)h(other)f(hand,)h(the)f(matrix)f +(elemen)m(ts)h(giv)m(en)g(in)g(the)g(literature)f(are)h(often)g(v)-5 +b(alid)31 b(only)g(when)0 632 y(the)f(resonances)h(are)f(almost)d(on)j +(the)g(mass)f(shell,)h(since)f(some)h(graphs)g(ha)m(v)m(e)g(b)s(een)h +(omitted.)41 b(As)30 b(an)0 740 y(example,)e(the)f(pro)s(cess)h(q)p +952 687 52 4 v(q)h Fn(!)e Fw(e)1202 704 y Fk(\000)p 1262 +687 55 4 v 1262 740 a Fj(\027)1316 755 y Fl(e)1352 740 +y Fj(\026)1411 704 y Fl(+)1469 740 y Fj(\027)1517 755 +y Fh(\026)1591 740 y Fw(is)g(dominated)f(b)m(y)i(q)p +2342 687 52 4 v(q)g Fn(!)f Fw(W)2649 704 y Fk(\000)2709 +740 y Fw(W)2810 704 y Fl(+)2897 740 y Fw(when)h(eac)m(h)g(of)e(the)i(t) +m(w)m(o)0 848 y(lepton)35 b(pairs)g(is)g(close)h(to)f +Fj(m)1088 863 y Fl(W)1201 848 y Fw(in)g(mass,)i(but)e(in)g(general)g +(also)g(receiv)m(es)i(con)m(tributions)e(e.g.)53 b(from)0 +957 y(q)p 51 904 V(q)29 b Fn(!)e Fw(Z)318 920 y Fl(0)385 +957 y Fn(!)g Fw(e)555 920 y Fl(+)614 957 y Fw(e)657 920 +y Fk(\000)717 957 y Fw(,)j(follo)m(w)m(ed)e(b)m(y)i(e)1322 +920 y Fl(+)1409 957 y Fn(!)p 1536 904 55 4 v 27 w Fj(\027)1591 +972 y Fl(e)1626 957 y Fw(W)1727 920 y Fl(+)1816 957 y +Fw(and)f(W)2103 920 y Fl(+)2191 957 y Fn(!)e Fj(\026)2377 +920 y Fl(+)2436 957 y Fj(\027)2484 972 y Fh(\026)2530 +957 y Fw(.)43 b(The)30 b(latter)e(con)m(tributions)g(are)0 +1065 y(neglected)33 b(in)f(cross)h(sections)h(giv)m(en)e(in)g(the)h +(zero-width)g(appro)m(ximation.)146 1173 y(Pro)s(cesses)e(with)e(one)g +(\014nal-state)f(resonance)i(and)f(another)f(ordinary)g(\014nal-state)g +(pro)s(duct,)i(e.g.)0 1282 y(qg)35 b Fn(!)e Fw(W)369 +1245 y Fl(+)429 1282 y Fw(q)480 1245 y Fk(0)504 1282 +y Fw(,)k(are)f(treated)g(in)f(the)i(same)f(spirit)e(as)j(the)f(2)d +Fn(!)g Fw(2)j(pro)s(cesses)i(with)e(t)m(w)m(o)h(resonances,)0 +1390 y(except)d(that)f(only)f(one)g(mass)h(need)h(b)s(e)e(selected)i +(according)e(to)g(a)h(Breit{Wigner.)0 1663 y Fp(7.4)135 +b(Cross-section)46 b(Calculations)0 1836 y Fw(In)c(the)g(program,)h +(the)g(v)-5 b(ariables)40 b(used)j(in)e(the)i(generation)e(of)g(a)h(2)h +Fn(!)g Fw(2)f(pro)s(cess)h(are)f Fj(\034)11 b Fw(,)44 +b Fj(y)h Fw(and)0 1959 y Fj(z)35 b Fw(=)c(cos)342 1933 +y(^)334 1959 y Fj(\022)s Fw(.)49 b(F)-8 b(or)33 b(a)h(2)c +Fn(!)g Fw(1)k(pro)s(cess,)i(the)f Fj(z)k Fw(v)-5 b(ariable)33 +b(can)h(b)s(e)h(in)m(tegrated)f(out,)g(and)h(need)g(therefore)0 +2067 y(not)h(b)s(e)g(generated)h(as)f(part)g(of)f(the)i(hard)f(pro)s +(cess,)i(except)g(when)f(the)f(allo)m(w)m(ed)f(angular)g(range)h(of)0 +2176 y(deca)m(ys)30 b(is)e(restricted.)42 b(In)29 b(unresolv)m(ed)g +(lepton)f(b)s(eams,)h(i.e.)41 b(when)30 b Fj(f)2560 2139 +y Fl(e)2549 2200 y(e)2595 2176 y Fw(\()p Fj(x)p Fw(\))e(=)f +Fj(\016)t Fw(\()p Fj(x)13 b Fn(\000)g Fw(1\),)30 b(the)f(v)-5 +b(ariables)0 2284 y Fj(\034)46 b Fw(and/or)34 b Fj(y)j +Fw(ma)m(y)d(b)s(e)g(in)m(tegrated)g(out.)49 b(W)-8 b(e)35 +b(will)c(co)m(v)m(er)36 b(all)c(these)k(sp)s(ecial)d(cases)j(to)m(w)m +(ards)f(the)g(end)0 2392 y(of)d(the)h(section,)g(and)g(here)g(concen)m +(trate)h(on)e(`standard')i(2)27 b Fn(!)g Fw(2)33 b(and)f(2)c +Fn(!)f Fw(1)32 b(pro)s(cesses.)0 2639 y Fo(7.4.1)112 +b(The)38 b(simple)e Fw(2)27 b Fn(!)h Fw(2)37 b Fo(pro)s(cesses)0 +2812 y Fw(In)31 b(the)g(spirit)e(of)h(section)g(4.1,)h(w)m(e)g(w)m(an)m +(t)g(to)g(select)g(simple)d(functions)j(suc)m(h)h(that)e(the)h(true)f +Fj(\034)11 b Fw(,)32 b Fj(y)h Fw(and)0 2920 y Fj(z)38 +b Fw(dep)s(endence)d(of)e(the)g(cross)h(sections)g(is)e(appro)m +(ximately)g(mo)s(delled.)43 b(In)33 b(particular,)e(\(almost\))h(all)0 +3029 y(conceiv)-5 b(able)24 b(kinematical)d(p)s(eaks)k(should)f(b)s(e)h +(represen)m(ted)h(b)m(y)f(separate)g(terms)f(in)g(the)g(appro)m(ximate) +0 3137 y(form)m(ulae.)39 b(If)25 b(this)g(can)h(b)s(e)f(ac)m(hiev)m +(ed,)j(the)d(ratio)f(of)g(the)i(correct)g(to)e(the)i(appro)m(ximate)e +(cross)i(sections)0 3245 y(will)k(not)j(\015uctuate)g(to)s(o)f(m)m(uc)m +(h,)h(but)g(allo)m(w)e(reasonable)h(Mon)m(te)i(Carlo)d(e\016ciency)-8 +b(.)146 3354 y(Therefore)35 b(the)f(v)-5 b(ariables)33 +b(are)h(generated)g(according)f(to)h(the)g(distributions)e +Fj(h)3130 3369 y Fh(\034)3174 3354 y Fw(\()p Fj(\034)11 +b Fw(\),)34 b Fj(h)3420 3369 y Fh(y)3462 3354 y Fw(\()p +Fj(y)t Fw(\))e(and)0 3462 y Fj(h)56 3477 y Fh(z)96 3462 +y Fw(\()p Fj(z)t Fw(\),)h(where)h(normally)468 3721 y +Fj(h)524 3736 y Fh(\034)567 3721 y Fw(\()p Fj(\034)11 +b Fw(\))84 b(=)955 3654 y Fj(c)997 3669 y Fl(1)p 949 +3698 94 4 v 949 3789 a Fn(I)1003 3804 y Fl(1)1081 3654 +y Fw(1)p 1079 3698 54 4 v 1079 3789 a Fj(\034)1164 3721 +y Fw(+)1279 3654 y Fj(c)1321 3669 y Fl(2)p 1272 3698 +94 4 v 1272 3789 a Fn(I)1326 3804 y Fl(2)1425 3654 y +Fw(1)p 1403 3698 93 4 v 1403 3789 a Fj(\034)1456 3761 +y Fl(2)1528 3721 y Fw(+)1642 3654 y Fj(c)1684 3669 y +Fl(3)p 1636 3698 94 4 v 1636 3789 a Fn(I)1690 3804 y +Fl(3)1943 3654 y Fw(1)p 1766 3698 404 4 v 1766 3789 a +Fj(\034)11 b Fw(\()p Fj(\034)34 b Fw(+)22 b Fj(\034)2073 +3804 y Fh(R)2131 3789 y Fw(\))2201 3721 y(+)2315 3654 +y Fj(c)2357 3669 y Fl(4)p 2309 3698 94 4 v 2309 3789 +a Fn(I)2363 3804 y Fl(4)2846 3654 y Fw(1)p 2439 3698 +862 4 v 2439 3789 a(\()p Fj(s\034)34 b Fn(\000)22 b Fj(m)2783 +3755 y Fl(2)2783 3814 y Fh(R)2841 3789 y Fw(\))2879 3761 +y Fl(2)2941 3789 y Fw(+)g Fj(m)3124 3755 y Fl(2)3124 +3814 y Fh(R)3182 3789 y Fw(\000)3243 3755 y Fl(2)3243 +3814 y Fh(R)939 3979 y Fw(+)1031 3912 y Fj(c)1073 3927 +y Fl(5)p 1025 3956 94 4 v 1025 4047 a Fn(I)1079 4062 +y Fl(5)1343 3912 y Fw(1)p 1155 3956 426 4 v 1155 4047 +a Fj(\034)11 b Fw(\()p Fj(\034)34 b Fw(+)22 b Fj(\034)1462 +4062 y Fh(R)1515 4043 y Fd(0)1542 4047 y Fw(\))1612 3979 +y(+)1726 3912 y Fj(c)1768 3927 y Fl(6)p 1720 3956 94 +4 v 1720 4047 a Fn(I)1774 4062 y Fl(6)2290 3912 y Fw(1)p +1850 3956 929 4 v 1850 4047 a(\()p Fj(s\034)34 b Fn(\000)23 +b Fj(m)2195 4013 y Fl(2)2195 4073 y Fh(R)2248 4054 y +Fd(0)2275 4047 y Fw(\))2313 4019 y Fl(2)2375 4047 y Fw(+)f +Fj(m)2558 4013 y Fl(2)2558 4073 y Fh(R)2611 4054 y Fd(0)2638 +4047 y Fw(\000)2699 4013 y Fl(2)2699 4073 y Fh(R)2752 +4054 y Fd(0)2821 3979 y Fj(;)758 b Fw(\(81\))472 4261 +y Fj(h)528 4276 y Fh(y)570 4261 y Fw(\()p Fj(y)t Fw(\))82 +b(=)955 4194 y Fj(c)997 4209 y Fl(1)p 949 4238 94 4 v +949 4330 a Fn(I)1003 4345 y Fl(1)1069 4261 y Fw(\()p +Fj(y)25 b Fn(\000)e Fj(y)1328 4276 y Fl(min)1449 4261 +y Fw(\))f(+)1623 4194 y Fj(c)1665 4209 y Fl(2)p 1617 +4238 V 1617 4330 a Fn(I)1671 4345 y Fl(2)1737 4261 y +Fw(\()p Fj(y)1823 4276 y Fl(max)1981 4261 y Fn(\000)g +Fj(y)t Fw(\))f(+)2305 4194 y Fj(c)2347 4209 y Fl(3)p +2299 4238 V 2299 4330 a Fn(I)2353 4345 y Fl(3)2531 4194 +y Fw(1)p 2430 4238 253 4 v 2430 4330 a(cosh)c Fj(y)2725 +4261 y(;)854 b Fw(\(82\))475 4538 y Fj(h)531 4553 y Fh(z)571 +4538 y Fw(\()p Fj(z)t Fw(\))84 b(=)955 4470 y Fj(c)997 +4485 y Fl(1)p 949 4514 94 4 v 949 4606 a Fn(I)1003 4621 +y Fl(1)1074 4538 y Fw(+)1189 4470 y Fj(c)1231 4485 y +Fl(2)p 1182 4514 V 1182 4606 a Fn(I)1236 4621 y Fl(2)1400 +4470 y Fw(1)p 1313 4514 223 4 v 1313 4606 a Fj(a)22 b +Fn(\000)h Fj(z)1567 4538 y Fw(+)1682 4470 y Fj(c)1724 +4485 y Fl(3)p 1675 4514 94 4 v 1675 4606 a Fn(I)1729 +4621 y Fl(3)1892 4470 y Fw(1)p 1806 4514 222 4 v 1806 +4606 a Fj(a)f Fw(+)g Fj(z)2059 4538 y Fw(+)2173 4470 +y Fj(c)2215 4485 y Fl(4)p 2167 4514 94 4 v 2167 4606 +a Fn(I)2221 4621 y Fl(4)2442 4470 y Fw(1)p 2297 4514 +339 4 v 2297 4606 a(\()p Fj(a)g Fn(\000)h Fj(z)t Fw(\))2595 +4577 y Fl(2)2667 4538 y Fw(+)2781 4470 y Fj(c)2823 4485 +y Fl(5)p 2775 4514 94 4 v 2775 4606 a Fn(I)2829 4621 +y Fl(5)3049 4470 y Fw(1)p 2905 4514 337 4 v 2905 4606 +a(\()p Fj(a)g Fw(+)f Fj(z)t Fw(\))3202 4577 y Fl(2)3284 +4538 y Fj(:)295 b Fw(\(83\))0 4803 y(Here)37 b(eac)m(h)f(term)g(is)f +(separately)h(in)m(tegrable,)g(with)g(an)f(in)m(v)m(ertible)g(primitiv) +m(e)f(function,)i(suc)m(h)i(that)0 4911 y(generation)31 +b(of)h Fj(\034)11 b Fw(,)33 b Fj(y)i Fw(and)d Fj(z)37 +b Fw(separately)c(is)e(a)h(standard)h(task,)g(as)f(describ)s(ed)h(in)e +(section)i(4.1.)43 b(In)32 b(the)0 5019 y(follo)m(wing)e(w)m(e)35 +b(describ)s(e)f(the)f(details)f(of)h(the)h(sc)m(heme,)g(including)e +(the)h(meaning)f(of)h(the)g(co)s(e\016cien)m(ts)0 5128 +y Fj(c)42 5143 y Fh(i)103 5128 y Fw(and)f Fn(I)346 5143 +y Fh(i)375 5128 y Fw(,)g(whic)m(h)h(are)g(separate)g(for)f +Fj(\034)11 b Fw(,)34 b Fj(y)h Fw(and)e Fj(z)t Fw(.)146 +5236 y(The)38 b(\014rst)g(v)-5 b(ariable)35 b(to)i(b)s(e)g(selected)h +(is)f Fj(\034)11 b Fw(.)57 b(The)38 b(range)f(of)f(allo)m(w)m(ed)h(v)-5 +b(alues,)38 b Fj(\034)3103 5251 y Fl(min)3260 5236 y +Fn(\024)e Fj(\034)47 b Fn(\024)36 b Fj(\034)3617 5251 +y Fl(max)3752 5236 y Fw(,)0 5344 y(is)d(generally)f(constrained)i(b)m +(y)g(a)f(n)m(um)m(b)s(er)h(of)e(user-de\014ned)k(requiremen)m(ts.)46 +b(A)34 b(cut)f(on)g(the)h(allo)m(w)m(ed)0 5453 y(mass)c(range)f(is)h +(directly)f(re\015ected)i(in)e Fj(\034)11 b Fw(,)31 b(a)f(cut)g(on)f +(the)i Fj(p)2147 5468 y Fk(?)2235 5453 y Fw(range)f(indirectly)-8 +b(.)41 b(The)31 b(\014rst)f(t)m(w)m(o)h(terms)0 5561 +y(of)c Fj(h)162 5576 y Fh(\034)234 5561 y Fw(are)g(in)m(tended)i(to)f +(represen)m(t)i(a)d(smo)s(oth)g Fj(\034)40 b Fw(dep)s(endence,)31 +b(as)d(generally)f(obtained)g(in)g(pro)s(cesses)0 5669 +y(whic)m(h)38 b(do)f(not)g(receiv)m(e)h(con)m(tributions)e(from)g +Fj(s)p Fw(-c)m(hannel)h(resonances.)59 b(Also)37 b Fj(s)p +Fw(-c)m(hannel)g(exc)m(hange)1841 5953 y(96)p eop +%%Page: 97 103 +97 102 bop 0 -18 a Fw(of)36 b(essen)m(tially)g(massless)h(particles)e +(\()p Fj(\015)5 b Fw(,)38 b(g)q(,)f(ligh)m(t)e(quarks)j(and)e +(leptons\))h(are)f(accoun)m(ted)i(for,)f(since)0 90 y(these)47 +b(do)e(not)g(pro)s(duce)h(an)m(y)g(separate)h(p)s(eaks)f(at)f(non-v)-5 +b(anishing)44 b Fj(\034)11 b Fw(.)82 b(The)47 b(last)e(four)g(terms)g +(of)0 198 y Fj(h)56 213 y Fh(\034)139 198 y Fw(are)40 +b(there)g(to)f(catc)m(h)i(the)f(p)s(eaks)h(in)e(the)h(cross)g(section)g +(from)f(resonance)i(pro)s(duction.)64 b(These)0 307 y(terms)28 +b(are)g(only)g(included)f(when)i(needed.)44 b(Eac)m(h)29 +b(resonance)g(is)f(represen)m(ted)j(b)m(y)e(t)m(w)m(o)f(pieces,)i(a)e +(\014rst)0 415 y(to)37 b(co)m(v)m(er)h(the)f(in)m(terference)h(with)f +(graphs)g(whic)m(h)g(p)s(eak)h(at)e Fj(\034)47 b Fw(=)35 +b(0,)j(plus)e(the)i(v)-5 b(ariation)34 b(of)j(parton)0 +523 y(distributions,)25 b(and)g(a)f(second)j(to)d(appro)m(ximate)g(the) +h(Breit{Wigner)f(shap)s(e)h(of)f(the)i(resonance)g(itself.)0 +632 y(The)h(subscripts)h Fj(R)f Fw(and)g Fj(R)1005 595 +y Fk(0)1054 632 y Fw(denote)g(v)-5 b(alues)27 b(p)s(ertaining)d(to)i +(the)h(t)m(w)m(o)g(resonances,)i(with)d Fj(\034)3325 +647 y Fh(R)3411 632 y Fw(=)i Fj(m)3600 595 y Fl(2)3600 +656 y Fh(R)3658 632 y Fj(=s)p Fw(.)0 740 y(Curren)m(tly)34 +b(there)g(is)f(only)g(one)h(pro)s(cess)g(where)h(the)f(full)d +(structure)k(with)e(t)m(w)m(o)h(resonances)h(is)e(used,)0 +848 y(namely)c(f)p 373 769 37 4 v 7 w(f)34 b Fn(!)27 +b Fj(\015)620 812 y Fk(\003)660 848 y Fj(=)p Fw(Z)769 +812 y Fl(0)807 848 y Fj(=)p Fw(Z)916 812 y Fk(0)p Fl(0)974 +848 y Fw(.)43 b(Otherwise)30 b(either)g(one)f(or)h(no)f(resonance)i(p)s +(eak)f(is)f(tak)m(en)i(in)m(to)e(accoun)m(t.)146 957 +y(The)41 b(kinematically)36 b(allo)m(w)m(ed)j(range)g(of)g +Fj(y)k Fw(v)-5 b(alues)39 b(is)g(constrained)h(b)m(y)g +Fj(\034)11 b Fw(,)42 b Fn(j)p Fj(y)t Fn(j)c(\024)h(\000)3340 +917 y Fl(1)p 3340 933 36 4 v 3340 991 a(2)3403 957 y +Fw(ln)16 b Fj(\034)11 b Fw(,)41 b(and)0 1065 y(y)m(ou)g(ma)m(y)e(imp)s +(ose)g(additional)e(cuts.)67 b(Therefore)41 b(the)g(allo)m(w)m(ed)e +(range)h Fj(y)2781 1080 y Fl(min)2942 1065 y Fn(\024)h +Fj(y)j Fn(\024)c Fj(y)3317 1080 y Fl(max)3492 1065 y +Fw(is)g(only)0 1173 y(constructed)31 b(after)f Fj(\034)41 +b Fw(has)30 b(b)s(een)h(selected.)44 b(The)30 b(\014rst)h(t)m(w)m(o)f +(terms)g(of)f Fj(h)2644 1188 y Fh(y)2715 1173 y Fw(giv)m(e)h(a)g +(fairly)e(\015at)h Fj(y)k Fw(dep)s(en-)0 1282 y(dence)c(|)f(for)f(pro)s +(cesses)j(whic)m(h)e(are)g(symmetric)f(in)h Fj(y)i Fn($)e(\000)p +Fj(y)t Fw(,)g(they)h(will)d(add)i(to)f(giv)m(e)h(a)g(completely)0 +1390 y(\015at)38 b Fj(y)i Fw(sp)s(ectrum)f(b)s(et)m(w)m(een)g(the)g +(allo)m(w)m(ed)e(limits.)55 b(In)39 b(principle,)e(the)h(natural)f(sub) +s(division)g(w)m(ould)0 1498 y(ha)m(v)m(e)d(b)s(een)f(one)f(term)g +(\015at)g(in)g Fj(y)j Fw(and)d(one)h(forw)m(ard{bac)m(kw)m(ard)h +(asymmetric,)d(i.e.)43 b(prop)s(ortional)30 b(to)0 1607 +y Fj(y)t Fw(.)54 b(The)38 b(latter)d(is)h(disallo)m(w)m(ed)g(b)m(y)h +(the)g(requiremen)m(t)g(of)f(p)s(ositivit)m(y)-8 b(,)36 +b(ho)m(w)m(ev)m(er.)58 b(The)37 b Fj(y)28 b Fn(\000)e +Fj(y)3465 1622 y Fl(min)3622 1607 y Fw(and)0 1715 y Fj(y)48 +1730 y Fl(max)211 1715 y Fn(\000)i Fj(y)44 b Fw(terms)d(actually)f +(used)i(giv)m(e)f(the)h(same)f(amoun)m(t)f(of)h(freedom,)h(but)g(resp)s +(ect)g(p)s(ositivit)m(y)-8 b(.)0 1823 y(The)30 b(third)f(term)g(is)f(p) +s(eak)m(ed)j(at)e(around)g Fj(y)i Fw(=)d(0,)h(and)h(represen)m(ts)i +(the)d(bias)g(of)g(parton)g(distributions)0 1932 y(to)m(w)m(ards)34 +b(this)e(region.)146 2055 y(The)j(allo)m(w)m(ed)e Fj(z)h +Fw(=)c(cos)1036 2029 y(^)1028 2055 y Fj(\022)37 b Fw(range)c(is)h(na) +-11 b(\177)-38 b(\020v)m(ely)33 b Fn(\000)p Fw(1)d Fn(\024)g +Fj(z)k Fn(\024)c Fw(1.)47 b(Ho)m(w)m(ev)m(er,)36 b(most)d(cross)i +(sections)f(are)0 2163 y(div)m(ergen)m(t)f(for)g Fj(z)f +Fn(!)c(\006)p Fw(1,)33 b(so)f(some)h(kind)f(of)h(regularization)c(is)k +(necessary)-8 b(.)46 b(Normally)30 b(one)j(requires)0 +2272 y Fj(p)49 2287 y Fk(?)145 2272 y Fn(\025)j Fj(p)307 +2287 y Fk(?)p Fl(min)484 2272 y Fw(,)j(whic)m(h)f(translates)g(in)m(to) +f Fj(z)1537 2235 y Fl(2)1614 2272 y Fn(\024)g Fw(1)25 +b Fn(\000)h Fw(4)p Fj(p)2003 2235 y Fl(2)2003 2296 y +Fk(?)p Fl(min)2180 2272 y Fj(=)p Fw(\()p Fj(\034)11 b(s)p +Fw(\))38 b(for)f(massless)h(outgoing)e(particles.)0 2380 +y(Since)e(again)e(the)i(limits)d(dep)s(end)j(on)g Fj(\034)11 +b Fw(,)34 b(the)g(selection)f(of)h Fj(z)k Fw(is)33 b(done)h(after)f +(that)h(of)f Fj(\034)11 b Fw(.)47 b(Additional)0 2488 +y(requiremen)m(ts)30 b(ma)m(y)e(constrain)h(the)g(range)g(further.)43 +b(In)29 b(particular,)f(a)g Fj(p)2713 2503 y Fk(?)p Fl(max)2932 +2488 y Fw(constrain)m(t)h(ma)m(y)g(split)0 2597 y(the)37 +b(allo)m(w)m(ed)f Fj(z)41 b Fw(range)c(in)m(to)f(t)m(w)m(o,)i(i.e.)56 +b Fj(z)1523 2612 y Fk(\000)p Fl(min)1734 2597 y Fn(\024)35 +b Fj(z)40 b Fn(\024)35 b Fj(z)2088 2612 y Fk(\000)p Fl(max)2315 +2597 y Fw(or)i Fj(z)2484 2612 y Fl(+min)2695 2597 y Fn(\024)e +Fj(z)40 b Fn(\024)35 b Fj(z)3049 2612 y Fl(+max)3240 +2597 y Fw(.)55 b(An)37 b(unsplit)0 2705 y(range)29 b(is)g(represen)m +(ted)i(b)m(y)f Fj(z)1048 2720 y Fk(\000)p Fl(max)1267 +2705 y Fw(=)d Fj(z)1415 2720 y Fl(+min)1620 2705 y Fw(=)h(0.)42 +b(F)-8 b(or)28 b(massless)i(outgoing)d(particles)h(the)i(parameter)0 +2823 y Fj(a)e Fw(=)f(1)c(in)f Fj(h)414 2838 y Fh(z)454 +2823 y Fw(,)j(suc)m(h)g(that)d(the)i(\014v)m(e)g(terms)f(represen)m(t)i +(a)e(piece)g(\015at)g(in)f(angle)g(and)h(pieces)h(p)s(eak)m(ed)g(as)g +(1)p Fj(=)3719 2804 y Fw(^)3718 2823 y Fj(t)o Fw(,)0 +2943 y(1)p Fj(=)6 b Fw(^)-55 b Fj(u)o Fw(,)36 b(1)p Fj(=)315 +2925 y Fw(^)314 2943 y Fj(t)349 2907 y Fl(2)389 2943 +y Fw(,)g(and)f(1)p Fj(=)6 b Fw(^)-55 b Fj(u)798 2907 +y Fl(2)837 2943 y Fw(,)36 b(resp)s(ectiv)m(ely)-8 b(.)53 +b(F)-8 b(or)35 b(non-v)-5 b(anishing)34 b(masses)i(one)g(has)g +Fj(a)d Fw(=)f(1)24 b(+)g(2)p Fj(m)3454 2907 y Fl(2)3454 +2968 y(3)3494 2943 y Fj(m)3579 2907 y Fl(2)3579 2968 +y(4)3618 2943 y Fj(=)t Fw(^)-53 b Fj(s)3713 2907 y Fl(2)3752 +2943 y Fw(.)0 3064 y(In)32 b(this)f(case,)i(the)f(full)d(range)j +Fn(\000)p Fw(1)c Fn(\024)g Fj(z)33 b Fn(\024)28 b Fw(1)j(is)g +(therefore)h(a)m(v)-5 b(ailable)29 b(|)i(ph)m(ysically)-8 +b(,)31 b(the)h(standard)3746 3046 y(^)3744 3064 y Fj(t)0 +3173 y Fw(and)39 b(^)-55 b Fj(u)32 b Fw(singularities)e(are)i +(regularized)g(b)m(y)h(the)g(masses)h Fj(m)2192 3188 +y Fl(3)2264 3173 y Fw(and)f Fj(m)2539 3188 y Fl(4)2578 +3173 y Fw(.)146 3281 y(F)-8 b(or)48 b(eac)m(h)h(of)e(the)i(terms,)j +(the)d Fn(I)1438 3296 y Fh(i)1514 3281 y Fw(co)s(e\016cien)m(ts)h +(represen)m(t)g(the)e(in)m(tegral)f(o)m(v)m(er)i(the)g(quan)m(tit)m(y)0 +3389 y(m)m(ultiplying)29 b(the)k(co)s(e\016cien)m(t)h +Fj(c)1186 3404 y Fh(i)1214 3389 y Fw(;)e(th)m(us,)i(for)e(instance:)713 +3653 y Fj(h)769 3668 y Fh(\034)840 3653 y Fw(:)166 b +Fn(I)1087 3668 y Fl(1)1154 3653 y Fw(=)1258 3536 y Fg(Z)1367 +3586 y Fw(d)p Fj(\034)p 1367 3630 108 4 v 1394 3721 a(\034)1513 +3653 y Fw(=)27 b(ln)1714 3532 y Fg(\022)1785 3586 y Fj(\034)1827 +3601 y Fl(max)p 1785 3630 178 4 v 1792 3721 a Fj(\034)1834 +3736 y Fl(min)1973 3532 y Fg(\023)2083 3653 y Fj(;)1033 +3906 y Fn(I)1087 3921 y Fl(2)1154 3906 y Fw(=)1258 3789 +y Fg(Z)1367 3839 y Fw(d)p Fj(\034)p 1367 3883 108 4 v +1374 3975 a(\034)1427 3946 y Fl(2)1513 3906 y Fw(=)1684 +3839 y(1)p 1626 3883 165 4 v 1626 3975 a Fj(\034)1668 +3990 y Fl(min)1822 3906 y Fn(\000)1996 3839 y Fw(1)p +1932 3883 178 4 v 1932 3975 a Fj(\034)1974 3990 y Fl(max)2152 +3906 y Fw(;)714 4154 y Fj(h)770 4169 y Fh(y)840 4154 +y Fw(:)166 b Fn(I)1087 4169 y Fl(1)1154 4154 y Fw(=)1258 +4037 y Fg(Z)1341 4154 y Fw(\()p Fj(y)25 b Fn(\000)e Fj(y)1600 +4169 y Fl(min)1721 4154 y Fw(\))17 b(d)p Fj(y)30 b Fw(=)2022 +4087 y(1)p 2022 4131 49 4 v 2022 4223 a(2)2081 4154 y(\()p +Fj(y)2167 4169 y Fl(max)2324 4154 y Fn(\000)22 b Fj(y)2471 +4169 y Fl(min)2593 4154 y Fw(\))2631 4113 y Fl(2)2703 +4154 y Fw(;)716 4373 y Fj(h)772 4388 y Fh(z)840 4373 +y Fw(:)166 b Fn(I)1087 4388 y Fl(1)1154 4373 y Fw(=)1258 +4256 y Fg(Z)1357 4373 y Fw(d)p Fj(z)33 b Fw(=)27 b(\()p +Fj(z)1675 4388 y Fk(\000)p Fl(max)1888 4373 y Fn(\000)c +Fj(z)2033 4388 y Fk(\000)p Fl(min)2210 4373 y Fw(\))f(+)g(\()p +Fj(z)2451 4388 y Fl(+max)2664 4373 y Fn(\000)g Fj(z)2808 +4388 y Fl(+min)2985 4373 y Fw(\))p Fj(;)1033 4623 y Fn(I)1087 +4638 y Fl(2)1154 4623 y Fw(=)1258 4506 y Fg(Z)1427 4556 +y Fw(d)p Fj(z)p 1367 4600 223 4 v 1367 4691 a(a)h Fn(\000)f +Fj(z)1628 4623 y Fw(=)27 b(ln)1829 4477 y Fg( )1912 4556 +y Fw(\()p Fj(a)22 b Fn(\000)g Fj(z)2167 4571 y Fk(\000)p +Fl(min)2344 4556 y Fw(\)\()p Fj(a)h Fn(\000)f Fj(z)2638 +4571 y Fl(+min)2815 4556 y Fw(\))p 1905 4600 956 4 v +1905 4691 a(\()p Fj(a)g Fn(\000)h Fj(z)2161 4706 y Fk(\000)p +Fl(max)2351 4691 y Fw(\)\()p Fj(a)g Fn(\000)f Fj(z)2645 +4706 y Fk(\000)p Fl(min)2822 4691 y Fw(\))2870 4477 y +Fg(!)2985 4623 y Fj(:)594 b Fw(\(84\))146 4900 y(The)45 +b Fj(c)400 4915 y Fh(i)471 4900 y Fw(co)s(e\016cien)m(ts)f(are)g +(normalized)d(to)i(unit)g(sum)g(for)g Fj(h)2438 4915 +y Fh(\034)2481 4900 y Fw(,)j Fj(h)2610 4915 y Fh(y)2695 +4900 y Fw(and)d Fj(h)2951 4915 y Fh(z)3034 4900 y Fw(separately)-8 +b(.)76 b(They)0 5008 y(ha)m(v)m(e)40 b(a)e(simple)e(in)m(terpretation,) +j(as)f(the)h(probabilit)m(y)d(for)i(eac)m(h)h(of)f(the)h(terms)f(to)g +(b)s(e)g(used)i(in)d(the)0 5116 y(preliminary)d(selection)i(of)f +Fj(\034)11 b Fw(,)38 b Fj(y)i Fw(and)c Fj(z)t Fw(,)i(resp)s(ectiv)m +(ely)-8 b(.)56 b(The)37 b(v)-5 b(ariation)34 b(of)i(the)h(cross)g +(section)f(o)m(v)m(er)0 5225 y(the)d(allo)m(w)m(ed)f(phase)i(space)g +(is)e(explored)i(in)e(the)h(initialization)27 b(pro)s(cedure)34 +b(of)f(a)f Fm(Pythia)h Fw(run,)g(and)0 5333 y(based)k(on)f(this)g(kno)m +(wledge)h(the)g Fj(c)1297 5348 y Fh(i)1361 5333 y Fw(are)f(optimized)f +(so)h(as)g(to)g(giv)m(e)g(functions)g Fj(h)3034 5348 +y Fh(\034)3078 5333 y Fw(,)h Fj(h)3198 5348 y Fh(y)3275 +5333 y Fw(and)g Fj(h)3525 5348 y Fh(z)3601 5333 y Fw(that)0 +5441 y(closely)30 b(follo)m(w)e(the)i(general)g(b)s(eha)m(viour)f(of)h +(the)g(true)h(cross)g(section.)42 b(F)-8 b(or)30 b(instance,)g(the)h +(co)s(e\016cien)m(t)0 5550 y Fj(c)42 5565 y Fl(4)115 +5550 y Fw(in)h Fj(h)285 5565 y Fh(\034)361 5550 y Fw(is)h(to)g(b)s(e)g +(made)g(larger)f(the)i(more)e(the)i(total)e(cross)i(section)f(is)g +(dominated)f(b)m(y)i(the)f(region)0 5658 y(around)g(the)g(resonance)h +(mass.)1841 5953 y(97)p eop +%%Page: 98 104 +98 103 bop 146 -18 a Fw(The)35 b(phase-space)h(p)s(oin)m(ts)e(tested)h +(at)f(initialization)28 b(are)35 b(put)f(on)g(a)g(grid,)f(with)h(the)g +(n)m(um)m(b)s(er)h(of)0 90 y(p)s(oin)m(ts)40 b(in)f(eac)m(h)j +(dimension)d(giv)m(en)h(b)m(y)h(the)g(n)m(um)m(b)s(er)g(of)e(terms)i +(in)e(the)i(resp)s(ectiv)m(e)h Fj(h)e Fw(expression,)0 +198 y(and)34 b(with)g(the)g(p)s(osition)e(of)i(eac)m(h)h(p)s(oin)m(t)e +(giv)m(en)h(b)m(y)h(the)f(median)f(v)-5 b(alue)34 b(of)f(the)i +(distribution)d(of)h(one)0 307 y(of)e(the)i(terms.)43 +b(F)-8 b(or)31 b(instance,)h(the)g(d)p Fj(\034)11 b(=\034)44 +b Fw(distribution)30 b(giv)m(es)i(a)f(median)g(p)s(oin)m(t)g(at)3138 +243 y Fn(p)p 3221 243 342 4 v 64 x Fj(\034)3263 322 y +Fl(min)3386 307 y Fj(\034)3428 322 y Fl(max)3563 307 +y Fw(,)h(and)0 426 y(d)p Fj(\034)11 b(=\034)209 389 y +Fl(2)284 426 y Fw(has)35 b(the)g(median)e(2)p Fj(\034)1064 +441 y Fl(min)1186 426 y Fj(\034)1228 441 y Fl(max)1364 +426 y Fj(=)p Fw(\()p Fj(\034)1493 441 y Fl(min)1638 426 +y Fw(+)24 b Fj(\034)1780 441 y Fl(max)1916 426 y Fw(\).)49 +b(Since)35 b(the)g(allo)m(w)m(ed)f Fj(y)j Fw(and)e Fj(z)k +Fw(ranges)c(dep)s(end)0 534 y(on)d(the)h Fj(\034)44 b +Fw(v)-5 b(alue)32 b(selected,)i(then)f(so)g(do)g(the)g(median)e(p)s +(oin)m(ts)h(de\014ned)i(for)e(these)i(t)m(w)m(o)f(v)-5 +b(ariables.)146 642 y(With)24 b(only)g(a)g(limited)d(set)k(of)f +(phase-space)i(p)s(oin)m(ts)e(studied)g(at)g(the)h(initialization,)20 +b(the)25 b(`optimal')0 751 y(set)i(of)e(co)s(e\016cien)m(ts)i(is)f(not) +g(uniquely)g(de\014ned.)43 b(T)-8 b(o)26 b(b)s(e)g(on)g(the)g(safe)h +(side,)g(40\045)f(of)g(the)g(total)f(w)m(eigh)m(t)h(is)0 +859 y(therefore)31 b(assigned)g(ev)m(enly)h(b)s(et)m(w)m(een)g(all)d +(allo)m(w)m(ed)g Fj(c)1984 874 y Fh(i)2012 859 y Fw(,)i(whereas)h(the)f +(remaining)d(60\045)j(are)f(assigned)0 967 y(according)h(to)g(the)h +(relativ)m(e)f(imp)s(ortance)g(surmised,)h(under)g(the)g(constrain)m(t) +g(that)f(no)h(co)s(e\016cien)m(t)g(is)0 1076 y(allo)m(w)m(ed)g(to)g +(receiv)m(e)i(a)e(negativ)m(e)h(con)m(tribution)e(from)h(this)g(second) +i(piece.)146 1184 y(After)41 b(a)f(preliminary)e(c)m(hoice)i(has)h(b)s +(een)g(made)f(of)g Fj(\034)11 b Fw(,)43 b Fj(y)g Fw(and)d +Fj(z)t Fw(,)j(it)d(is)g(necessary)i(to)e(\014nd)h(the)0 +1292 y(w)m(eigh)m(t)k(of)e(the)i(ev)m(en)m(t,)k(whic)m(h)c(is)f(to)g(b) +s(e)h(used)g(to)f(determine)g(whether)i(to)e(k)m(eep)i(it)d(or)h +(generate)0 1401 y(another)33 b(one.)43 b(Using)33 b(the)g(relation)d +(d)1429 1382 y(^)1428 1401 y Fj(t)e Fw(=)k(^)-53 b Fj(s)17 +b(\014)1713 1416 y Fl(34)1804 1401 y Fw(d)p Fj(z)t(=)p +Fw(2,)33 b(eq.)g(\(69\))f(ma)m(y)h(b)s(e)g(rewritten)f(as)264 +1670 y Fj(\033)87 b Fw(=)565 1553 y Fg(Z)53 b(Z)h(Z)874 +1603 y Fw(d)p Fj(\034)p 874 1647 108 4 v 901 1738 a(\034)1008 +1670 y Fw(d)p Fj(y)1144 1603 y Fw(^)-53 b Fj(s\014)1241 +1618 y Fl(34)p 1140 1647 176 4 v 1203 1738 a Fw(2)1326 +1670 y(d)p Fj(z)21 b(x)1501 1685 y Fl(1)1541 1670 y Fj(f)1589 +1685 y Fl(1)1628 1670 y Fw(\()p Fj(x)1721 1685 y Fl(1)1761 +1670 y Fj(;)c(Q)1882 1629 y Fl(2)1922 1670 y Fw(\))g +Fj(x)2032 1685 y Fl(2)2071 1670 y Fj(f)2119 1685 y Fl(2)2159 +1670 y Fw(\()p Fj(x)2252 1685 y Fl(2)2291 1670 y Fj(;)g(Q)2412 +1629 y Fl(2)2452 1670 y Fw(\))2516 1603 y(d)5 b(^)-54 +b Fj(\033)p 2516 1647 114 4 v 2528 1744 a Fw(d)2583 1726 +y(^)2582 1744 y Fj(t)406 1948 y Fw(=)575 1880 y Fj(\031)p +575 1924 59 4 v 581 2016 a(s)660 1830 y Fg(Z)760 1948 +y Fj(h)816 1963 y Fh(\034)859 1948 y Fw(\()p Fj(\034)11 +b Fw(\))17 b(d)p Fj(\034)1129 1830 y Fg(Z)1229 1948 y +Fj(h)1285 1963 y Fh(y)1327 1948 y Fw(\()p Fj(y)t Fw(\))g(d)p +Fj(y)1592 1830 y Fg(Z)1692 1948 y Fj(h)1748 1963 y Fh(z)1788 +1948 y Fw(\()p Fj(z)t Fw(\))g(d)p Fj(z)22 b(\014)2106 +1963 y Fl(34)2207 1880 y Fj(x)2262 1895 y Fl(1)2302 1880 +y Fj(f)2350 1895 y Fl(1)2389 1880 y Fw(\()p Fj(x)2482 +1895 y Fl(1)2522 1880 y Fj(;)17 b(Q)2643 1844 y Fl(2)2683 +1880 y Fw(\))g Fj(x)2793 1895 y Fl(2)2832 1880 y Fj(f)2880 +1895 y Fl(2)2919 1880 y Fw(\()p Fj(x)3012 1895 y Fl(2)3052 +1880 y Fj(;)g(Q)3173 1844 y Fl(2)3213 1880 y Fw(\))p +2207 1924 1044 4 v 2304 2016 a Fj(\034)2357 1987 y Fl(2)2397 +2016 y Fj(h)2453 2031 y Fh(\034)2496 2016 y Fw(\()p Fj(\034)11 +b Fw(\))17 b Fj(h)2698 2031 y Fh(y)2740 2016 y Fw(\()p +Fj(y)t Fw(\))g(2)p Fj(h)2990 2031 y Fh(z)3028 2016 y +Fw(\()p Fj(z)t Fw(\))3291 1880 y(^)-53 b Fj(s)3333 1844 +y Fl(2)p 3287 1924 86 4 v 3300 2016 a Fj(\031)3392 1880 +y Fw(d)5 b(^)-54 b Fj(\033)p 3392 1924 114 4 v 3404 2022 +a Fw(d)3459 2003 y(^)3458 2022 y Fj(t)406 2250 y Fw(=)565 +2104 y Fg(*)642 2183 y Fj(\031)p 642 2227 59 4 v 648 +2318 a(s)1097 2183 y(\014)1152 2198 y Fl(34)p 737 2227 +850 4 v 737 2318 a Fj(\034)790 2290 y Fl(2)830 2318 y +Fj(h)886 2333 y Fh(\034)929 2318 y Fw(\()p Fj(\034)11 +b Fw(\))17 b Fj(h)1131 2333 y Fh(y)1173 2318 y Fw(\()p +Fj(y)t Fw(\))g(2)p Fj(h)1423 2333 y Fh(z)1461 2318 y +Fw(\()p Fj(z)t Fw(\))1613 2250 y Fj(x)1668 2265 y Fl(1)1708 +2250 y Fj(f)1756 2265 y Fl(1)1796 2250 y Fw(\()p Fj(x)1889 +2265 y Fl(1)1929 2250 y Fj(;)g(Q)2050 2209 y Fl(2)2089 +2250 y Fw(\))g Fj(x)2199 2265 y Fl(2)2238 2250 y Fj(f)2286 +2265 y Fl(2)2326 2250 y Fw(\()p Fj(x)2419 2265 y Fl(2)2459 +2250 y Fj(;)g(Q)2580 2209 y Fl(2)2619 2250 y Fw(\))2688 +2183 y(^)-53 b Fj(s)2730 2146 y Fl(2)p 2684 2227 86 4 +v 2697 2318 a Fj(\031)2789 2183 y Fw(d)5 b(^)-54 b Fj(\033)p +2789 2227 114 4 v 2801 2324 a Fw(d)2856 2306 y(^)2855 +2324 y Fj(t)2912 2104 y Fg(+)3028 2250 y Fj(:)551 b Fw(\(85\))0 +2532 y(In)33 b(the)f(middle)f(line,)g(a)h(factor)g(of)f(1)d(=)f +Fj(h)1526 2547 y Fh(\034)1570 2532 y Fj(=h)1675 2547 +y Fh(\034)1750 2532 y Fw(has)33 b(b)s(een)g(in)m(tro)s(duced)f(to)g +(rewrite)g(the)h Fj(\034)44 b Fw(in)m(tegral)30 b(in)0 +2641 y(terms)36 b(of)g(a)g(phase)h(space)g(of)e(unit)h(v)m(olume:)1719 +2570 y Fg(R)1791 2641 y Fj(h)1847 2656 y Fh(\034)1890 +2641 y Fw(\()p Fj(\034)11 b Fw(\))17 b(d)p Fj(\034)46 +b Fw(=)33 b(1)j(according)g(to)f(the)i(relations)e(ab)s(o)m(v)m(e.)0 +2749 y(Corresp)s(ondingly)29 b(for)g(the)h Fj(y)i Fw(and)e +Fj(z)k Fw(in)m(tegrals.)41 b(In)30 b(addition,)f(factors)g(of)g(1)e(=) +32 b(^)-53 b Fj(s=)p Fw(\()p Fj(\034)11 b(s)p Fw(\))29 +b(and)h(1)d(=)h Fj(\031)t(=\031)0 2870 y Fw(are)35 b(used)i(to)e +(isolate)f(the)i(dimensionless)e(cross)j(section)e(\()t(^)-53 +b Fj(s)2257 2834 y Fl(2)2297 2870 y Fj(=\031)t Fw(\))17 +b(d)5 b(^)-54 b Fj(\033)s(=)p Fw(d)2676 2851 y(^)2675 +2870 y Fj(t)p Fw(.)52 b(The)37 b(con)m(ten)m(t)f(of)f(the)h(last)0 +2978 y(line)30 b(is)i(that,)f(with)h Fj(\034)11 b Fw(,)32 +b Fj(y)j Fw(and)c Fj(z)37 b Fw(selected)32 b(according)g(to)f(the)h +(expressions)h Fj(h)2854 2993 y Fh(\034)2898 2978 y Fw(\()p +Fj(\034)11 b Fw(\),)32 b Fj(h)3142 2993 y Fh(y)3183 2978 +y Fw(\()p Fj(y)t Fw(\))f(and)h Fj(h)3587 2993 y Fh(z)3627 +2978 y Fw(\()p Fj(z)t Fw(\),)0 3086 y(resp)s(ectiv)m(ely)-8 +b(,)41 b(the)e(cross)g(section)f(is)g(obtained)g(as)g(the)h(a)m(v)m +(erage)g(of)f(the)h(\014nal)f(expression)h(o)m(v)m(er)h(all)0 +3195 y(ev)m(en)m(ts.)52 b(Since)35 b(the)g Fj(h)p Fw('s)g(ha)m(v)m(e)h +(b)s(een)f(pic)m(k)m(ed)h(to)e(giv)m(e)h(unit)f(v)m(olume,)g(there)h +(is)g(no)f(need)i(to)e(m)m(ultiply)0 3303 y(b)m(y)f(the)g(total)f +(phase-space)i(v)m(olume.)146 3411 y(As)29 b(can)f(b)s(e)g(seen,)i(the) +e(cross)h(section)f(for)f(a)h(giv)m(en)g(Mon)m(te)g(Carlo)f(ev)m(en)m +(t)j(is)d(giv)m(en)h(as)g(the)g(pro)s(duct)0 3520 y(of)k(four)g +(factors,)h(as)g(follo)m(ws:)119 3633 y(1.)49 b(The)36 +b Fj(\031)t(=s)e Fw(factor,)h(whic)m(h)g(is)g(common)e(to)i(all)e(ev)m +(en)m(ts,)k(giv)m(es)f(the)f(o)m(v)m(erall)f(dimensions)g(of)g(the)244 +3741 y(cross)40 b(section,)h(in)e(GeV)1165 3705 y Fk(\000)p +Fl(2)1259 3741 y Fw(.)64 b(Since)39 b(the)h(\014nal)e(cross)i(section)g +(is)f(giv)m(en)g(in)f(units)i(of)e(m)m(b,)j(the)244 3850 +y(con)m(v)m(ersion)34 b(factor)e(of)g(1)g(GeV)1383 3813 +y Fk(\000)p Fl(2)1505 3850 y Fw(=)c(0)p Fj(:)p Fw(3894)j(m)m(b)h(is)h +(also)e(included)h(here.)119 3967 y(2.)49 b(Next)36 b(comes)f(the)g +(`Jacobian',)g(whic)m(h)h(comp)s(ensates)f(for)g(the)g(c)m(hange)h +(from)e(the)h(original)d(to)244 4076 y(the)h(\014nal)f(phase-space)i(v) +m(olume.)119 4193 y(3.)49 b(The)42 b(parton-distribution)c(function)i +(w)m(eigh)m(t)h(is)f(obtained)h(b)m(y)g(making)f(use)h(of)g(the)g +(parton)244 4302 y(distribution)35 b(libraries)g(in)i +Fm(Pythia)g Fw(or)g(externally)-8 b(.)58 b(The)38 b Fj(x)2545 +4317 y Fl(1)2622 4302 y Fw(and)f Fj(x)2871 4317 y Fl(2)2948 +4302 y Fw(v)-5 b(alues)38 b(are)f(obtained)244 4410 y(from)31 +b Fj(\034)44 b Fw(and)33 b Fj(y)j Fw(via)31 b(the)i(relations)f +Fj(x)1613 4425 y Fl(1)p Fh(;)p Fl(2)1735 4410 y Fw(=)1839 +4339 y Fn(p)p 1922 4339 54 4 v 71 x Fj(\034)c Fw(exp)q(\()p +Fn(\006)p Fj(y)t Fw(\).)119 4543 y(4.)49 b(Finally)-8 +b(,)31 b(the)j(dimensionless)f(cross)h(section)g(\()t(^)-53 +b Fj(s)2026 4507 y Fl(2)2065 4543 y Fj(=\031)t Fw(\))17 +b(d)5 b(^)-54 b Fj(\033)t(=)p Fw(d)2445 4525 y(^)2444 +4543 y Fj(t)33 b Fw(is)g(the)h(quan)m(tit)m(y)h(that)e(has)h(to)f(b)s +(e)244 4652 y(co)s(ded)g(for)f(eac)m(h)h(pro)s(cess)h(separately)-8 +b(,)33 b(and)g(where)h(the)f(ph)m(ysics)h(con)m(ten)m(t)g(is)e(found.) +146 4765 y(Of)k(course,)h(the)f(expression)h(in)e(the)h(last)e(line)h +(is)g(not)g(strictly)g(necessary)j(to)d(obtain)g(the)h(cross)0 +4873 y(section)d(b)m(y)h(Mon)m(te)g(Carlo)e(in)m(tegration.)44 +b(One)33 b(could)g(also)f(ha)m(v)m(e)j(used)f(eq.)g(\(69\))e(directly) +-8 b(,)33 b(selecting)0 4994 y(phase-space)38 b(p)s(oin)m(ts)e(ev)m +(enly)i(in)e Fj(\034)11 b Fw(,)38 b Fj(y)h Fw(and)1656 +4976 y(^)1655 4994 y Fj(t)p Fw(,)f(and)f(a)m(v)m(eraging)f(o)m(v)m(er)h +(those)h(Mon)m(te)f(Carlo)f(w)m(eigh)m(ts.)0 5102 y(Clearly)47 +b(this)g(w)m(ould)h(b)s(e)g(m)m(uc)m(h)g(simpler,)i(but)e(the)g(price)g +(to)g(b)s(e)f(paid)g(is)h(that)f(the)h(w)m(eigh)m(ts)h(of)0 +5211 y(individual)44 b(ev)m(en)m(ts)49 b(could)e(\015uctuate)h(wildly) +-8 b(.)84 b(F)-8 b(or)46 b(instance,)51 b(if)46 b(the)h(cross)h +(section)f(con)m(tains)g(a)0 5319 y(narro)m(w)33 b(resonance,)i(the)e +(few)h(phase-space)g(p)s(oin)m(ts)f(that)g(are)g(generated)g(in)g(the)g +(resonance)h(region)0 5427 y(obtain)46 b(large)f(w)m(eigh)m(ts,)52 +b(while)45 b(the)j(rest)f(do)g(not.)86 b(With)46 b(our)h(pro)s(cedure,) +k(a)46 b(resonance)j(w)m(ould)0 5536 y(b)s(e)39 b(included)f(in)f(the)i +Fj(h)884 5551 y Fh(\034)928 5536 y Fw(\()p Fj(\034)11 +b Fw(\))38 b(factor,)i(so)e(that)h(more)e(ev)m(en)m(ts)k(w)m(ould)e(b)s +(e)f(generated)h(at)g(around)f(the)0 5644 y(appropriate)27 +b Fj(\034)563 5659 y Fh(R)649 5644 y Fw(v)-5 b(alue)28 +b(\(o)m(wing)f(to)h(the)g Fj(h)1543 5659 y Fh(\034)1614 +5644 y Fw(n)m(umerator)g(in)f(the)i(phase-space)g(expression\),)i(but)d +(with)1841 5953 y(98)p eop +%%Page: 99 105 +99 104 bop 0 -18 a Fw(these)29 b(ev)m(en)m(ts)h(assigned)f(a)e(lo)m(w)m +(er,)i(more)e(normal)f(w)m(eigh)m(t)i(\(o)m(wing)g(to)f(the)i(factor)e +(1)p Fj(=h)3160 -3 y Fh(\034)3231 -18 y Fw(in)g(the)h(w)m(eigh)m(t)0 +90 y(expression\).)44 b(Since)29 b(the)g(w)m(eigh)m(ts)h(\015uctuate)f +(less,)i(few)m(er)f(phase-space)g(p)s(oin)m(ts)f(need)h(b)s(e)f +(selected)h(to)0 198 y(get)j(a)f(reasonable)g(cross-section)i +(estimate.)146 307 y(In)27 b(the)h(program,)e(the)h(cross)h(section)f +(is)f(obtained)g(as)h(the)g(a)m(v)m(erage)h(o)m(v)m(er)g(all)d +(phase-space)j(p)s(oin)m(ts)0 415 y(generated.)52 b(The)37 +b(ev)m(en)m(ts)g(actually)d(handed)i(on)g(to)e(the)i(user)g(should)f +(ha)m(v)m(e)i(unit)e(w)m(eigh)m(t,)h(ho)m(w)m(ev)m(er)0 +523 y(\(an)27 b(option)g(with)g(w)m(eigh)m(ted)h(ev)m(en)m(ts)i +(exists,)g(but)d(do)s(es)h(not)g(represen)m(t)h(the)f(mainstream)e +(usage\).)42 b(A)m(t)0 632 y(initialization,)33 b(after)k(the)h +Fj(c)1052 647 y Fh(i)1118 632 y Fw(co)s(e\016cien)m(ts)g(ha)m(v)m(e)h +(b)s(een)f(determined,)h(a)e(searc)m(h)i(inside)d(the)i(allo)m(w)m(ed)0 +740 y(phase-space)h(v)m(olume)f(is)f(therefore)h(made)f(to)h(\014nd)g +(the)g(maxim)m(um)e(of)h(the)h(w)m(eigh)m(t)g(expression)h(in)0 +848 y(the)f(last)g(line)e(of)i(eq.)h(\(85\).)59 b(In)38 +b(the)g(subsequen)m(t)k(generation)37 b(of)g(ev)m(en)m(ts,)42 +b(a)c(selected)h(phase-space)0 957 y(p)s(oin)m(t)44 b(is)h(then)g +(retained)g(with)g(a)f(probabilit)m(y)f(equal)i(to)g(the)g(w)m(eigh)m +(t)g(in)g(the)g(p)s(oin)m(t)f(divided)h(b)m(y)0 1065 +y(the)36 b(maxim)m(um)e(w)m(eigh)m(t.)53 b(Only)36 b(the)g(retained)g +(phase-space)h(p)s(oin)m(ts)f(are)g(considered)g(further,)h(and)0 +1173 y(generated)c(as)g(complete)f(ev)m(en)m(ts.)146 +1282 y(The)40 b(searc)m(h)g(for)e(the)h(maxim)m(um)d(is)i(b)s(egun)h(b) +m(y)h(ev)-5 b(aluating)36 b(the)j(w)m(eigh)m(t)g(in)f(the)h(same)f +(grid)g(of)0 1390 y(p)s(oin)m(ts)c(as)h(used)h(to)e(determine)h(the)g +Fj(c)1433 1405 y Fh(i)1496 1390 y Fw(co)s(e\016cien)m(ts.)51 +b(The)35 b(p)s(oin)m(t)f(with)h(highest)f(w)m(eigh)m(t)h(is)f(used)i +(as)0 1498 y(starting)c(p)s(oin)m(t)g(for)h(a)g(searc)m(h)h(to)m(w)m +(ards)g(the)g(maxim)m(um.)43 b(In)33 b(unfortunate)h(cases,)g(the)g +(con)m(v)m(ergence)0 1607 y(could)42 b(b)s(e)h(to)m(w)m(ards)g(a)f(lo)s +(cal)e(maxim)m(um)h(whic)m(h)i(is)e(not)i(the)g(global)d(one.)73 +b(T)-8 b(o)43 b(somewhat)f(reduce)0 1715 y(this)31 b(risk,)h(also)f +(the)i(grid)d(p)s(oin)m(t)h(with)h(second-highest)g(w)m(eigh)m(t)g(is)g +(used)h(for)e(another)h(searc)m(h.)44 b(After)0 1823 +y(initialization,)32 b(when)37 b(ev)m(en)m(ts)i(are)d(generated,)i(a)e +(w)m(arning)g(message)g(will)e(b)s(e)j(giv)m(en)f(b)m(y)h(default)f(at) +0 1932 y(an)m(y)i(time)e(a)h(phase-space)h(p)s(oin)m(t)f(is)f(selected) +j(where)f(the)g(w)m(eigh)m(t)f(is)g(larger)f(than)h(the)h(maxim)m(um,)0 +2040 y(and)28 b(thereafter)g(the)g(maxim)m(um)e(w)m(eigh)m(t)i(is)f +(adjusted)i(to)e(re\015ect)i(the)f(new)h(kno)m(wledge.)43 +b(This)27 b(means)0 2148 y(that)35 b(ev)m(en)m(ts)j(generated)f(b)s +(efore)f(this)f(time)f(ha)m(v)m(e)j(a)e(somewhat)h(erroneous)h +(distribution)d(in)h(phase)0 2257 y(space,)29 b(but)e(if)e(the)i(maxim) +m(um)d(violation)g(is)i(rather)h(mo)s(dest)f(the)h(e\013ects)h(should)e +(b)s(e)h(negligible.)39 b(The)0 2365 y(estimation)f(of)i(the)g(cross)i +(section)e(is)g(not)g(a\013ected)h(b)m(y)g(an)m(y)g(of)e(these)j +(considerations,)f(since)g(the)0 2473 y(maxim)m(um)30 +b(w)m(eigh)m(t)j(do)s(es)g(not)g(en)m(ter)g(in)m(to)f(eq.)44 +b(\(85\).)146 2582 y(F)-8 b(or)35 b(2)f Fn(!)f Fw(2)i(pro)s(cesses)j +(with)e(iden)m(tical)e(\014nal-state)h(particles,)h(the)h +(symmetrization)c(factor)j(of)0 2690 y(1)p Fj(=)p Fw(2)f(is)h +(explicitly)e(included)h(at)h(the)g(end)h(of)f(the)g(d)5 +b(^)-54 b Fj(\033)t(=)p Fw(d)2088 2672 y(^)2087 2690 +y Fj(t)36 b Fw(calculation.)51 b(In)37 b(the)f(\014nal)f(cross)i +(section,)0 2798 y(a)42 b(factor)g(of)g(2)h(is)f(retriev)m(ed)h(b)s +(ecause)h(of)e(in)m(tegration)f(o)m(v)m(er)i(the)g(full)e(phase)i +(space)h(\(rather)e(than)0 2907 y(only)29 b(half)e(of)i(it\).)41 +b(That)29 b(w)m(a)m(y)-8 b(,)31 b(no)e(sp)s(ecial)f(pro)m(visions)h +(are)g(needed)i(in)d(the)i(phase-space)g(in)m(tegration)0 +3015 y(mac)m(hinery)-8 b(.)0 3263 y Fo(7.4.2)112 b(Resonance)39 +b(pro)s(duction)0 3436 y Fw(W)-8 b(e)32 b(ha)m(v)m(e)h(no)m(w)g(co)m(v) +m(ered)g(the)f(simple)f(2)c Fn(!)g Fw(2)32 b(case.)44 +b(In)32 b(a)f(2)d Fn(!)f Fw(1)32 b(pro)s(cess,)h(the)2961 +3417 y(^)2960 3436 y Fj(t)f Fw(in)m(tegral)e(is)h(absen)m(t,)0 +3544 y(and)37 b(the)g(di\013eren)m(tial)e(cross)j(section)f(d)5 +b(^)-54 b Fj(\033)t(=)p Fw(d)1649 3526 y(^)1648 3544 +y Fj(t)37 b Fw(is)f(replaced)h(b)m(y)43 b(^)-54 b Fj(\033)t +Fw(\()t(^)h Fj(s)p Fw(\).)56 b(The)38 b(cross)f(section)g(ma)m(y)g(no)m +(w)0 3652 y(b)s(e)c(written)f(as)556 3897 y Fj(\033)87 +b Fw(=)857 3780 y Fg(Z)53 b(Z)1066 3829 y Fw(d)p Fj(\034)p +1066 3874 108 4 v 1093 3965 a(\034)1200 3897 y Fw(d)p +Fj(y)20 b(x)1377 3912 y Fl(1)1417 3897 y Fj(f)1465 3912 +y Fl(1)1504 3897 y Fw(\()p Fj(x)1597 3912 y Fl(1)1637 +3897 y Fj(;)d(Q)1758 3856 y Fl(2)1798 3897 y Fw(\))g +Fj(x)1908 3912 y Fl(2)1947 3897 y Fj(f)1995 3912 y Fl(2)2035 +3897 y Fw(\()p Fj(x)2128 3912 y Fl(2)2167 3897 y Fj(;)g(Q)2288 +3856 y Fl(2)2328 3897 y Fw(\))k(^)-53 b Fj(\033)s Fw(\()t(^)g +Fj(s)p Fw(\))698 4145 y(=)867 4077 y Fj(\031)p 867 4121 +59 4 v 873 4213 a(s)952 4028 y Fg(Z)1052 4145 y Fj(h)1108 +4160 y Fh(\034)1151 4145 y Fw(\()p Fj(\034)11 b Fw(\))17 +b(d)p Fj(\034)1421 4028 y Fg(Z)1521 4145 y Fj(h)1577 +4160 y Fh(y)1618 4145 y Fw(\()p Fj(y)t Fw(\))g(d)p Fj(y)1894 +4077 y(x)1949 4092 y Fl(1)1989 4077 y Fj(f)2037 4092 +y Fl(1)2076 4077 y Fw(\()p Fj(x)2169 4092 y Fl(1)2209 +4077 y Fj(;)g(Q)2330 4041 y Fl(2)2370 4077 y Fw(\))g +Fj(x)2480 4092 y Fl(2)2519 4077 y Fj(f)2567 4092 y Fl(2)2606 +4077 y Fw(\()p Fj(x)2699 4092 y Fl(2)2739 4077 y Fj(;)g(Q)2860 +4041 y Fl(2)2900 4077 y Fw(\))p 1894 4121 1044 4 v 2134 +4213 a Fj(\034)2187 4184 y Fl(2)2227 4213 y Fj(h)2283 +4228 y Fh(\034)2327 4213 y Fw(\()p Fj(\034)11 b Fw(\))17 +b Fj(h)2529 4228 y Fh(y)2570 4213 y Fw(\()p Fj(y)t Fw(\))2985 +4077 y(^)-53 b Fj(s)p 2974 4121 59 4 v 2974 4213 a(\031)3048 +4145 y Fw(^)f Fj(\033)t Fw(\()t(^)h Fj(s)p Fw(\))698 +4424 y(=)857 4277 y Fg(*)933 4356 y Fj(\031)p 933 4400 +V 939 4492 a(s)1286 4356 y Fw(1)p 1029 4400 563 4 v 1029 +4492 a Fj(\034)1082 4463 y Fl(2)1122 4492 y Fj(h)1178 +4507 y Fh(\034)1221 4492 y Fw(\()p Fj(\034)11 b Fw(\))17 +b Fj(h)1423 4507 y Fh(y)1465 4492 y Fw(\()p Fj(y)t Fw(\))1618 +4424 y Fj(x)1673 4439 y Fl(1)1713 4424 y Fj(f)1761 4439 +y Fl(1)1801 4424 y Fw(\()p Fj(x)1894 4439 y Fl(1)1933 +4424 y Fj(;)g(Q)2054 4382 y Fl(2)2094 4424 y Fw(\))g +Fj(x)2204 4439 y Fl(2)2243 4424 y Fj(f)2291 4439 y Fl(2)2331 +4424 y Fw(\()p Fj(x)2424 4439 y Fl(2)2464 4424 y Fj(;)g(Q)2585 +4382 y Fl(2)2624 4424 y Fw(\))2699 4356 y(^)-53 b Fj(s)p +2688 4400 59 4 v 2688 4492 a(\031)2762 4424 y Fw(^)f +Fj(\033)t Fw(\()t(^)h Fj(s)p Fw(\))2938 4277 y Fg(+)3054 +4424 y Fj(:)525 b Fw(\(86\))0 4700 y(The)35 b(structure)h(is)d(th)m(us) +j(exactly)e(the)h(same,)f(but)h(the)f Fj(z)t Fw(-related)g(pieces)h +(are)g(absen)m(t,)g(and)g(the)f(r^)-49 b(ole)0 4809 y(of)32 +b(the)h(dimensionless)f(cross)h(section)g(is)f(pla)m(y)m(ed)h(b)m(y)h +(\()t(^)-53 b Fj(s=\031)t Fw(\))5 b(^)-54 b Fj(\033)s +Fw(\()t(^)h Fj(s)p Fw(\).)146 4917 y(If)38 b(the)h(range)f(of)g(allo)m +(w)m(ed)f(deca)m(y)i(angles)f(of)g(the)g(resonance)i(is)d(restricted,)j +(e.g.)60 b(b)m(y)39 b(requiring)0 5025 y(the)34 b(deca)m(y)i(pro)s +(ducts)e(to)g(ha)m(v)m(e)h(a)f(minim)m(um)c(transv)m(erse)36 +b(momen)m(tum,)d(e\013ectiv)m(ely)i(this)f(translates)0 +5148 y(in)m(to)d(constrain)m(ts)g(on)g(the)h Fj(z)h Fw(=)27 +b(cos)1329 5122 y(^)1321 5148 y Fj(\022)35 b Fw(v)-5 +b(ariable)29 b(of)i(the)h(2)27 b Fn(!)h Fw(2)j(pro)s(cess.)44 +b(The)32 b(di\013erence)g(is)f(that)g(the)0 5257 y(angular)38 +b(dep)s(endence)k(of)c(a)h(resonance)i(deca)m(y)f(is)f(trivial,)f(and)i +(that)f(therefore)h(the)f Fj(z)t Fw(-dep)s(enden)m(t)0 +5365 y(factor)j(can)g(b)s(e)g(easily)f(ev)-5 b(aluated.)72 +b(F)-8 b(or)41 b(a)g(spin-0)h(resonance,)j(whic)m(h)e(deca)m(ys)h +(isotropically)-8 b(,)41 b(the)0 5473 y(relev)-5 b(an)m(t)23 +b(w)m(eigh)m(t)g(is)g(simply)e(\()p Fj(z)1132 5488 y +Fk(\000)p Fl(max)1325 5473 y Fn(\000)s Fj(z)1450 5488 +y Fk(\000)p Fl(min)1627 5473 y Fw(\))p Fj(=)p Fw(2)s(+)s(\()p +Fj(z)1928 5488 y Fl(+max)2120 5473 y Fn(\000)s Fj(z)2245 +5488 y Fl(+min)2422 5473 y Fw(\))p Fj(=)p Fw(2.)40 b(F)-8 +b(or)22 b(a)g(transv)m(ersely)j(p)s(olarized)1841 5953 +y(99)p eop +%%Page: 100 106 +100 105 bop 0 -18 a Fw(spin-1)32 b(resonance)i(the)f(expression)h(is,)e +(instead,)116 147 y(3)p 116 191 49 4 v 116 282 a(8)174 +214 y(\()p Fj(z)257 229 y Fk(\000)p Fl(max)470 214 y +Fn(\000)23 b Fj(z)615 229 y Fk(\000)p Fl(min)792 214 +y Fw(\))f(+)960 147 y(3)p 960 191 V 960 282 a(8)1018 +214 y(\()p Fj(z)1101 229 y Fl(+max)1314 214 y Fn(\000)h +Fj(z)1459 229 y Fl(+min)1636 214 y Fw(\))f(+)1804 147 +y(1)p 1804 191 V 1804 282 a(8)1863 214 y(\()p Fj(z)1946 +229 y Fk(\000)p Fl(max)2158 214 y Fn(\000)h Fj(z)2303 +229 y Fk(\000)p Fl(min)2480 214 y Fw(\))2518 173 y Fl(3)2579 +214 y Fw(+)2687 147 y(1)p 2687 191 V 2687 282 a(8)2746 +214 y(\()p Fj(z)2829 229 y Fl(+max)3042 214 y Fn(\000)g +Fj(z)3187 229 y Fl(+min)3364 214 y Fw(\))3402 173 y Fl(3)3473 +214 y Fj(:)106 b Fw(\(87\))0 439 y(Since)36 b(the)g(allo)m(w)m(ed)f +Fj(z)41 b Fw(range)36 b(could)f(dep)s(end)i(on)f Fj(\034)47 +b Fw(and/or)35 b Fj(y)k Fw(\(it)c(do)s(es)h(for)f(a)h +Fj(p)3030 454 y Fk(?)3125 439 y Fw(cut\),)h(the)f(factor)0 +547 y(has)d(to)g(b)s(e)g(ev)-5 b(aluated)33 b(for)f(eac)m(h)i +(individual)c(phase-space)35 b(p)s(oin)m(t)d(and)h(included)g(in)f(the) +h(expression)0 655 y(of)f(eq.)44 b(\(86\).)146 764 y(F)-8 +b(or)36 b(2)f Fn(!)g Fw(2)i(pro)s(cesses)i(where)f(either)e(of)h(the)g +(\014nal-state)f(particles)h(is)f(a)h(resonance,)i(or)e(b)s(oth,)0 +872 y(an)32 b(additional)d(c)m(hoice)j(has)h(to)e(b)s(e)i(made)e(for)h +(eac)m(h)h(resonance)g(mass,)f(eq.)h(\(80\).)43 b(Since)32 +b(the)g(allo)m(w)m(ed)0 980 y Fj(\034)11 b Fw(,)45 b +Fj(y)h Fw(and)d Fj(z)k Fw(ranges)c(dep)s(end)g(on)g Fj(m)1404 +944 y Fl(2)1404 1005 y(3)1486 980 y Fw(and)f Fj(m)1770 +944 y Fl(2)1770 1005 y(4)1810 980 y Fw(,)j(the)e(selection)f(of)g +(masses)h(ha)m(v)m(e)h(to)e(precede)i(the)0 1089 y(c)m(hoice)i(of)e +(the)i(other)g(phase-space)g(v)-5 b(ariables.)81 b(Just)46 +b(as)f(for)g(the)h(other)f(v)-5 b(ariables,)47 b(masses)f(are)0 +1197 y(not)c(selected)i(uniformly)d(o)m(v)m(er)i(the)g(allo)m(w)m(ed)f +(range,)j(but)e(are)g(rather)g(distributed)f(according)g(to)0 +1305 y(a)h(function)f Fj(h)540 1320 y Fh(m)607 1305 y +Fw(\()p Fj(m)730 1269 y Fl(2)770 1305 y Fw(\))17 b Fj(dm)961 +1269 y Fl(2)1000 1305 y Fw(,)46 b(with)c(a)h(comp)s(ensating)f(factor)h +(1)p Fj(=h)2467 1320 y Fh(m)2533 1305 y Fw(\()p Fj(m)2656 +1269 y Fl(2)2696 1305 y Fw(\))g(in)f(the)i(`Jacobian'.)75 +b(The)0 1414 y(functional)31 b(form)g(pic)m(k)m(ed)j(is)e(normally)555 +1650 y Fj(h)611 1665 y Fh(m)677 1650 y Fw(\()p Fj(m)800 +1609 y Fl(2)840 1650 y Fw(\))c(=)1025 1583 y Fj(c)1067 +1598 y Fl(1)p 1019 1627 94 4 v 1019 1718 a Fn(I)1073 +1733 y Fl(1)1154 1583 y Fw(1)p 1149 1627 59 4 v 1149 +1718 a Fj(\031)1557 1583 y(m)1642 1598 y Fh(R)1700 1583 +y Fw(\000)1761 1598 y Fh(R)p 1245 1627 887 4 v 1245 1718 +a Fw(\()p Fj(m)1368 1690 y Fl(2)1430 1718 y Fn(\000)22 +b Fj(m)1614 1684 y Fl(2)1614 1743 y Fh(R)1672 1718 y +Fw(\))1710 1690 y Fl(2)1772 1718 y Fw(+)g Fj(m)1955 1684 +y Fl(2)1955 1743 y Fh(R)2013 1718 y Fw(\000)2074 1684 +y Fl(2)2074 1743 y Fh(R)2164 1650 y Fw(+)2278 1583 y +Fj(c)2320 1598 y Fl(2)p 2272 1627 94 4 v 2272 1718 a +Fn(I)2326 1733 y Fl(2)2397 1650 y Fw(+)2511 1583 y Fj(c)2553 +1598 y Fl(3)p 2505 1627 V 2505 1718 a Fn(I)2559 1733 +y Fl(3)2674 1583 y Fw(1)p 2636 1627 125 4 v 2636 1718 +a Fj(m)2721 1690 y Fl(2)2792 1650 y Fw(+)2907 1583 y +Fj(c)2949 1598 y Fl(4)p 2900 1627 94 4 v 2900 1718 a +Fn(I)2954 1733 y Fl(4)3069 1583 y Fw(1)p 3031 1627 125 +4 v 3031 1718 a Fj(m)3116 1690 y Fl(4)3198 1650 y Fj(:)381 +b Fw(\(88\))0 1894 y(The)28 b(de\014nition)e(of)g(the)h +Fn(I)944 1909 y Fh(i)1000 1894 y Fw(in)m(tegrals)e(is)i(analogous)e(to) +i(the)g(one)g(b)s(efore.)42 b(The)28 b Fj(c)2939 1909 +y Fh(i)2994 1894 y Fw(co)s(e\016cien)m(ts)g(are)f(not)0 +2002 y(found)37 b(b)m(y)h(optimization,)c(but)j(predetermined,)h +(normally)d(to)h Fj(c)2458 2017 y Fl(1)2533 2002 y Fw(=)e(0)p +Fj(:)p Fw(8,)k Fj(c)2875 2017 y Fl(2)2949 2002 y Fw(=)d +Fj(c)3102 2017 y Fl(3)3176 2002 y Fw(=)g(0)p Fj(:)p Fw(1,)j +Fj(c)3519 2017 y Fl(4)3593 2002 y Fw(=)d(0.)0 2111 y(Clearly)-8 +b(,)36 b(had)f(the)h(phase)h(space)g(and)f(the)g(cross)g(section)g(b)s +(een)h(indep)s(enden)m(t)f(of)g Fj(m)3188 2075 y Fl(2)3188 +2135 y(3)3263 2111 y Fw(and)g Fj(m)3541 2075 y Fl(2)3541 +2135 y(4)3581 2111 y Fw(,)g(the)0 2219 y(optimal)28 b(c)m(hoice)j(w)m +(ould)g(ha)m(v)m(e)h(b)s(een)g(to)f(put)g Fj(c)1716 2234 +y Fl(1)1783 2219 y Fw(=)d(1)i(and)h(ha)m(v)m(e)h(all)d(other)i +Fj(c)2806 2234 y Fh(i)2865 2219 y Fw(v)-5 b(anishing)30 +b(|)g(then)i(the)0 2327 y(1)p Fj(=h)154 2342 y Fh(m)255 +2327 y Fw(factor)i(of)h(the)g(`Jacobian')f(w)m(ould)h(exactly)g(ha)m(v) +m(e)h(cancelled)e(the)i(Breit{Wigner)d(of)h(eq.)i(\(80\))0 +2436 y(in)j(the)h(cross)h(section.)65 b(The)41 b(second)g(and)f(the)g +(third)g(terms)f(are)h(there)h(to)e(co)m(v)m(er)i(the)g(p)s(ossibilit)m +(y)0 2544 y(that)31 b(the)h(cross)g(section)f(do)s(es)h(not)f(die)g(a)m +(w)m(a)m(y)h(quite)f(as)h(fast)f(as)g(giv)m(en)h(b)m(y)g(the)f(na)-11 +b(\177)-38 b(\020v)m(e)32 b(Breit{Wigner)0 2653 y(shap)s(e.)59 +b(In)38 b(particular,)f(the)h(third)f(term)g(co)m(v)m(ers)i(the)f(p)s +(ossibilit)m(y)d(of)i(a)h(secondary)h(p)s(eak)f(at)f(small)0 +2761 y Fj(m)85 2725 y Fl(2)125 2761 y Fw(,)42 b(in)e(a)g(spirit)e +(sligh)m(tly)h(similar)e(to)j(the)h(one)f(discussed)i(for)e(resonance)i +(pro)s(duction)d(in)h(2)g Fn(!)h Fw(1)0 2869 y(pro)s(cesses.)146 +2978 y(The)f(fourth)e(term)g(is)g(only)f(used)j(for)e(pro)s(cesses)i +(in)m(v)m(olving)d Fj(\015)2506 2941 y Fk(\003)2546 2978 +y Fj(=)p Fw(Z)2655 2941 y Fl(0)2732 2978 y Fw(pro)s(duction,)i(where)h +(the)f Fj(\015)0 3086 y Fw(propagator)d(guaran)m(tees)j(that)e(the)h +(cross)g(section)g(do)s(es)g(ha)m(v)m(e)g(a)g(signi\014can)m(t)e +(secondary)j(p)s(eak)f(for)0 3194 y Fj(m)85 3158 y Fl(2)152 +3194 y Fn(!)28 b Fw(0.)43 b(Therefore)34 b(here)f(the)g(c)m(hoice)g(is) +f Fj(c)1650 3209 y Fl(1)1717 3194 y Fw(=)c(0)p Fj(:)p +Fw(4,)k Fj(c)2047 3209 y Fl(2)2114 3194 y Fw(=)c(0)p +Fj(:)p Fw(05,)k Fj(c)2493 3209 y Fl(3)2560 3194 y Fw(=)27 +b(0)p Fj(:)p Fw(3)32 b(and)h Fj(c)3052 3209 y Fl(4)3119 +3194 y Fw(=)28 b(0)p Fj(:)p Fw(25.)146 3303 y(A)36 b(few)g(sp)s(ecial)e +(tric)m(ks)i(ha)m(v)m(e)g(b)s(een)g(included)f(to)g(impro)m(v)m(e)g +(e\016ciency)i(when)f(the)g(allo)m(w)m(ed)f(mass)0 3411 +y(range)h(of)f(resonances)i(is)f(constrained)f(b)m(y)i(kinematics)e(or) +g(b)m(y)i(user)f(cuts.)54 b(F)-8 b(or)35 b(instance,)i(if)d(a)i(pair)0 +3519 y(of)d(equal)h(or)f(c)m(harge-conjugate)h(resonances)h(are)f(pro)s +(duced,)h(suc)m(h)g(as)f(in)f(e)2842 3483 y Fl(+)2901 +3519 y Fw(e)2944 3483 y Fk(\000)3033 3519 y Fn(!)c Fw(W)3263 +3483 y Fl(+)3323 3519 y Fw(W)3424 3483 y Fk(\000)3483 +3519 y Fw(,)34 b(use)h(is)0 3628 y(made)h(of)g(the)i(constrain)m(t)e +(that)h(the)g(ligh)m(ter)e(of)h(the)h(t)m(w)m(o)h(has)f(to)f(ha)m(v)m +(e)i(a)f(mass)f(smaller)f(than)i(half)0 3736 y(the)c(c.m.)43 +b(energy)-8 b(.)0 3980 y Fo(7.4.3)112 b(Lepton)38 b(b)s(eams)0 +4152 y Fw(Lepton)27 b(b)s(eams)g(ha)m(v)m(e)h(to)f(b)s(e)g(handled)g +(sligh)m(tly)f(di\013eren)m(tly)h(from)e(what)j(has)f(b)s(een)h +(describ)s(ed)g(so)f(far.)0 4261 y(One)33 b(also)f(has)h(to)f +(distinguish)g(b)s(et)m(w)m(een)i(a)f(lepton)f(for)g(whic)m(h)h(parton) +g(distributions)e(are)i(included)0 4369 y(and)27 b(one)g(whic)m(h)h(is) +e(treated)i(as)f(an)g(unresolv)m(ed)h(p)s(oin)m(t-lik)m(e)d(particle.) +40 b(The)28 b(necessary)i(mo)s(di\014cations)0 4478 y(are)38 +b(the)g(same)g(for)g(2)e Fn(!)h Fw(2)g(and)h(2)f Fn(!)f +Fw(1)i(pro)s(cesses,)j(ho)m(w)m(ev)m(er,)h(since)d(the)2840 +4459 y(^)2839 4478 y Fj(t)f Fw(degree)h(of)e(freedom)h(is)0 +4586 y(una\013ected.)146 4694 y(If)d(one)h(incoming)d(b)s(eam)h(is)h +(an)g(unresolv)m(ed)i(lepton,)e(the)h(corresp)s(onding)f +(parton-distribution)0 4803 y(piece)d(collapses)e(to)h(a)g +Fj(\016)36 b Fw(function.)42 b(This)32 b(function)e(can)i(b)s(e)g(used) +g(to)f(in)m(tegrate)g(out)g(the)h Fj(y)i Fw(v)-5 b(ariable:)0 +4911 y Fj(\016)t Fw(\()p Fj(x)140 4926 y Fl(1)p Fh(;)p +Fl(2)262 4911 y Fn(\000)27 b Fw(1\))40 b(=)f Fj(\016)t +Fw(\()p Fj(y)30 b Fn(\006)e Fw(\(1)p Fj(=)p Fw(2\))17 +b(ln)d Fj(\034)d Fw(\).)66 b(It)39 b(is)h(therefore)g(only)f(necessary) +j(to)d(select)i(the)f Fj(\034)51 b Fw(and)40 b(the)g +Fj(z)0 5019 y Fw(v)-5 b(ariables)40 b(according)h(to)g(the)g(prop)s(er) +h(distributions,)g(with)f(comp)s(ensating)f(w)m(eigh)m(t)i(factors,)h +(and)0 5128 y(only)32 b(one)h(set)g(of)f(parton)h(distributions)e(has)i +(to)f(b)s(e)h(ev)-5 b(aluated)32 b(explicitly)-8 b(.)146 +5236 y(If)41 b(b)s(oth)g(incoming)d(b)s(eams)j(are)g(unresolv)m(ed)h +(leptons,)h(b)s(oth)d(the)i Fj(\034)52 b Fw(and)41 b(the)g +Fj(y)j Fw(v)-5 b(ariables)39 b(are)0 5344 y(trivially)32 +b(giv)m(en:)49 b Fj(\034)43 b Fw(=)32 b(1)j(and)g Fj(y)h +Fw(=)c(0.)51 b(P)m(arton-distribution)33 b(w)m(eigh)m(ts)j(disapp)s +(ear)e(completely)-8 b(.)50 b(F)-8 b(or)0 5453 y(a)35 +b(2)c Fn(!)g Fw(2)k(pro)s(cess,)h(only)f(the)g Fj(z)k +Fw(selection)c(remains)f(to)g(b)s(e)h(p)s(erformed,)g(while)f(a)h(2)c +Fn(!)g Fw(1)k(pro)s(cess)h(is)0 5561 y(completely)f(sp)s(eci\014ed,)j +(i.e.)53 b(the)36 b(cross)h(section)f(is)g(a)g(simple)e(n)m(um)m(b)s +(er)i(that)g(only)g(dep)s(ends)h(on)f(the)0 5669 y(c.m.)43 +b(energy)-8 b(.)1817 5953 y(100)p eop +%%Page: 101 107 +101 106 bop 146 -18 a Fw(F)-8 b(or)34 b(a)h(resolv)m(ed)h(electron,)g +(the)f Fj(f)1412 -55 y Fl(e)1401 6 y(e)1482 -18 y Fw(parton)g +(distribution)e(is)h(strongly)h(p)s(eak)m(ed)h(to)m(w)m(ards)g +Fj(x)c Fw(=)g(1.)0 90 y(This)40 b(a\013ects)g(b)s(oth)g(the)g +Fj(\034)51 b Fw(and)40 b(the)g Fj(y)j Fw(distributions,)d(whic)m(h)g +(are)g(not)g(w)m(ell)e(describ)s(ed)j(b)m(y)g(either)0 +198 y(of)32 b(the)h(pieces)g(in)f Fj(h)731 213 y Fh(\034)774 +198 y Fw(\()p Fj(\034)11 b Fw(\))33 b(or)f Fj(h)1111 +213 y Fh(y)1153 198 y Fw(\()p Fj(y)t Fw(\))g(in)f(pro)s(cesses)k(with)d +(in)m(teracting)g(e)2604 162 y Fk(\006)2663 198 y Fw(.)43 +b(\(Pro)s(cesses)35 b(whic)m(h)e(in)m(v)m(olv)m(e)0 307 +y(e.g.)44 b(the)33 b Fj(\015)k Fw(con)m(ten)m(t)d(of)e(the)h(e)g(are)g +(still)d(w)m(ell)i(sim)m(ulated,)f(since)i Fj(f)2466 +270 y Fl(e)2455 331 y Fh(\015)2534 307 y Fw(is)f(p)s(eak)m(ed)i(at)e +(small)e Fj(x)p Fw(.\))146 427 y(If)40 b(b)s(oth)g(parton)f +(distributions)g(are)g(p)s(eak)m(ed)j(close)d(to)h(1,)h(the)g +Fj(h)2609 442 y Fh(\034)2652 427 y Fw(\()p Fj(\034)11 +b Fw(\))40 b(expression)h(in)e(eq.)66 b(\(83\))0 535 +y(is)47 b(therefore)h(increased)g(with)f(one)g(additional)e(term)i(of)g +(the)g(form)f Fj(h)2738 550 y Fh(\034)2782 535 y Fw(\()p +Fj(\034)11 b Fw(\))53 b Fn(/)g Fw(1)p Fj(=)p Fw(\(1)32 +b Fn(\000)g Fj(\034)11 b Fw(\),)52 b(with)0 644 y(co)s(e\016cien)m(ts) +33 b Fj(c)535 659 y Fl(7)607 644 y Fw(and)f Fn(I)850 +659 y Fl(7)922 644 y Fw(determined)g(as)g(b)s(efore.)43 +b(The)34 b(div)m(ergence)f(when)g Fj(\034)39 b Fn(!)28 +b Fw(1)k(is)f(cut)i(o\013)f(b)m(y)h(our)0 752 y(regularization)h(pro)s +(cedure)k(for)f(the)g Fj(f)1464 716 y Fl(e)1453 777 y(e)1536 +752 y Fw(parton)g(distribution;)g(therefore)h(w)m(e)g(only)e(need)i +(consider)0 860 y Fj(\034)h(<)28 b Fw(1)22 b Fn(\000)g +Fw(2)g Fn(\002)h Fw(10)624 824 y Fk(\000)p Fl(6)718 860 +y Fw(.)146 969 y(Corresp)s(ondingly)-8 b(,)25 b(the)f +Fj(h)1105 984 y Fh(y)1146 969 y Fw(\()p Fj(y)t Fw(\))e(expression)j(is) +e(expanded)i(with)e(a)g(term)f(1)p Fj(=)p Fw(\(1)s Fn(\000)s +Fw(exp)q(\()p Fj(y)7 b Fn(\000)s Fj(y)3419 984 y Fl(0)3458 +969 y Fw(\)\))23 b(when)0 1077 y(incoming)28 b(b)s(eam)h(n)m(um)m(b)s +(er)h(1)f(consists)i(of)e(a)h(resolv)m(ed)h(e)2064 1041 +y Fk(\006)2123 1077 y Fw(,)f(and)g(with)g(a)f(term)h(1)p +Fj(=)p Fw(\(1)17 b Fn(\000)g Fw(exp\()p Fn(\000)p Fj(y)j +Fn(\000)d Fj(y)3665 1092 y Fl(0)3704 1077 y Fw(\)\))0 +1186 y(when)45 b(incoming)c(b)s(eam)i(n)m(um)m(b)s(er)h(2)f(consists)i +(of)e(a)g(resolv)m(ed)i(e)2440 1149 y Fk(\006)2499 1186 +y Fw(.)77 b(Both)43 b(terms)h(are)g(presen)m(t)h(for)0 +1294 y(an)40 b(e)186 1258 y Fl(+)246 1294 y Fw(e)289 +1258 y Fk(\000)388 1294 y Fw(collider,)g(only)g(one)h(for)e(an)i(ep)f +(one.)67 b(The)42 b(co)s(e\016cien)m(t)e Fj(y)2571 1309 +y Fl(0)2651 1294 y Fw(=)h Fn(\000)p Fw(\(1)p Fj(=)p Fw(2\))17 +b(ln)e Fj(\034)52 b Fw(is)40 b(the)g(na)-11 b(\177)-38 +b(\020v)m(e)0 1402 y(kinematical)39 b(limit)f(of)j(the)h +Fj(y)j Fw(range,)f Fn(j)p Fj(y)t Fn(j)d Fj(<)i(y)1784 +1417 y Fl(0)1823 1402 y Fw(.)71 b(F)-8 b(rom)40 b(the)i(de\014nitions)f +(of)g Fj(y)k Fw(and)c Fj(y)3303 1417 y Fl(0)3384 1402 +y Fw(it)f(is)h(easy)0 1511 y(to)e(see)h(that)f(the)g(t)m(w)m(o)h(terms) +f(ab)s(o)m(v)m(e)h(corresp)s(ond)g(to)f(1)p Fj(=)p Fw(\(1)26 +b Fn(\000)h Fj(x)2433 1526 y Fl(1)2473 1511 y Fw(\))39 +b(and)g(1)p Fj(=)p Fw(\(1)26 b Fn(\000)h Fj(x)3116 1526 +y Fl(2)3156 1511 y Fw(\),)40 b(resp)s(ectiv)m(ely)-8 +b(,)0 1619 y(and)32 b(th)m(us)h(are)g(again)d(regularized)i(b)m(y)h +(our)f(parton-distribution)d(function)j(cut-o\013.)43 +b(Therefore)33 b(the)0 1727 y(in)m(tegration)c(ranges)j(are)f +Fj(y)g(<)c(y)1188 1742 y Fl(0)1246 1727 y Fn(\000)20 +b Fw(10)1441 1691 y Fk(\000)p Fl(6)1566 1727 y Fw(for)30 +b(the)i(\014rst)g(term)e(and)h Fj(y)g(>)d Fn(\000)p Fj(y)2807 +1742 y Fl(0)2865 1727 y Fw(+)19 b(10)3058 1691 y Fk(\000)p +Fl(6)3183 1727 y Fw(for)31 b(the)g(second)0 1836 y(one.)0 +2083 y Fo(7.4.4)112 b(Mixing)37 b(pro)s(cesses)0 2256 +y Fw(In)e(the)h(cross-section)g(form)m(ulae)d(giv)m(en)i(so)h(far,)f(w) +m(e)h(ha)m(v)m(e)g(delib)s(erately)e(suppressed)k(a)c(summation)0 +2364 y(o)m(v)m(er)c(the)f(allo)m(w)m(ed)g(incoming)d(\015a)m(v)m(ours.) +44 b(F)-8 b(or)28 b(instance,)i(the)f(pro)s(cess)i(f)p +2637 2285 37 4 v 7 w(f)j Fn(!)27 b Fw(Z)2888 2328 y Fl(0)2956 +2364 y Fw(in)h(a)h(hadron)g(collider)0 2473 y(receiv)m(es)36 +b(con)m(tributions)d(from)g(u)p 1241 2420 55 4 v(u)e +Fn(!)f Fw(Z)1516 2437 y Fl(0)1555 2473 y Fw(,)k(d)p 1670 +2394 V(d)d Fn(!)f Fw(Z)1945 2437 y Fl(0)1984 2473 y Fw(,)35 +b(s)p 2084 2420 39 4 v(s)c Fn(!)f Fw(Z)2343 2437 y Fl(0)2382 +2473 y Fw(,)35 b(and)f(so)g(on.)48 b(These)36 b(con)m(tributions)0 +2581 y(share)29 b(the)g(same)f(basic)g(form,)g(but)h(di\013er)f(in)f +(the)i(parton-distribution)d(w)m(eigh)m(ts)j(and)g(\(usually\))e(in)h +(a)0 2689 y(few)h(coupling)e(constan)m(ts)i(in)f(the)g(hard)h(matrix)d +(elemen)m(ts.)43 b(It)28 b(it)f(therefore)i(con)m(v)m(enien)m(t)h(to)e +(generate)0 2798 y(the)33 b(terms)g(together,)f(as)h(follo)m(ws:)119 +2911 y(1.)49 b(A)42 b(phase-space)i(p)s(oin)m(t)e(is)g(pic)m(k)m(ed,)k +(and)c(all)e(common)h(factors)i(related)f(to)g(this)g(c)m(hoice)g(are) +244 3019 y(ev)-5 b(aluated,)38 b(i.e.)57 b(the)37 b(`Jacobian')g(and)g +(the)g(common)f(pieces)i(of)f(the)g(matrix)f(elemen)m(ts)h(\(e.g.)244 +3127 y(for)32 b(a)g(Z)534 3091 y Fl(0)606 3127 y Fw(the)h(basic)f +(Breit{Wigner)f(shap)s(e,)j(excluding)e(couplings)g(to)g(the)h(initial) +c(\015a)m(v)m(our\).)119 3245 y(2.)49 b(The)39 b +(parton-distribution-function)34 b(library)i(is)h(called)g(to)g(pro)s +(duce)i(all)d(the)i(parton)f(distri-)244 3354 y(butions,)32 +b(at)h(the)g(relev)-5 b(an)m(t)32 b Fj(x)h Fw(and)g Fj(Q)1629 +3317 y Fl(2)1701 3354 y Fw(v)-5 b(alues,)33 b(for)f(the)h(t)m(w)m(o)g +(incoming)d(b)s(eams.)119 3471 y(3.)49 b(A)37 b(lo)s(op)e(is)h(made)g +(o)m(v)m(er)i(the)f(t)m(w)m(o)h(incoming)c(\015a)m(v)m(ours,)39 +b(one)e(from)f(eac)m(h)i(b)s(eam)e(particle.)54 b(F)-8 +b(or)244 3580 y(eac)m(h)48 b(allo)m(w)m(ed)f(set)i(of)e(incoming)f +(\015a)m(v)m(ours,)52 b(the)d(full)c(matrix-elemen)m(t)h(expression)j +(is)e(put)244 3688 y(together,)e(using)d(the)h(common)e(pieces)j(and)e +(the)h(\015a)m(v)m(our-dep)s(enden)m(t)i(couplings.)72 +b(This)43 b(is)244 3796 y(m)m(ultiplied)33 b(b)m(y)k(the)f(common)f +(factors)h(and)g(the)h(parton-distribution)c(w)m(eigh)m(ts)k(to)f +(obtain)f(a)244 3905 y(cross-section)e(w)m(eigh)m(t.)119 +4023 y(4.)49 b(Eac)m(h)35 b(allo)m(w)m(ed)e(\015a)m(v)m(our)i(com)m +(bination)c(is)j(stored)g(as)h(a)e(separate)i(en)m(try)g(in)e(a)h +(table,)f(together)244 4131 y(with)f(its)g(w)m(eigh)m(t.)44 +b(In)33 b(addition,)e(a)h(summed)g(w)m(eigh)m(t)h(is)f(calculated.)119 +4249 y(5.)49 b(The)28 b(phase-space)h(p)s(oin)m(t)e(is)g(k)m(ept)i(or)e +(rejected,)i(according)e(to)g(a)h(comparison)e(of)h(the)h(summed)244 +4357 y(w)m(eigh)m(t)35 b(with)f(the)h(maxim)m(um)d(w)m(eigh)m(t)j +(obtained)f(at)h(initialization.)44 b(Also)34 b(the)h(cross-section)244 +4465 y(Mon)m(te)e(Carlo)f(in)m(tegration)f(is)h(based)h(on)g(the)g +(summed)f(w)m(eigh)m(t.)119 4583 y(6.)49 b(If)31 b(the)h(p)s(oin)m(t)e +(is)h(retained,)h(one)f(of)g(the)h(allo)m(w)m(ed)f(\015a)m(v)m(our)h +(com)m(binations)e(is)h(pic)m(k)m(ed)h(according)244 +4692 y(to)g(the)h(relativ)m(e)f(w)m(eigh)m(ts)h(stored)h(in)d(the)i +(full)e(table.)146 4805 y(Generally)-8 b(,)43 b(the)e(\015a)m(v)m(ours) +i(of)e(the)h(\014nal)e(state)i(are)f(either)g(completely)g(sp)s +(eci\014ed)h(b)m(y)g(those)g(of)0 4913 y(the)j(initial)40 +b(state,)48 b(e.g.)79 b(as)44 b(in)g(qg)49 b Fn(!)f Fw(qg)q(,)g(or)43 +b(completely)h(decoupled)h(from)e(them,)k(e.g.)79 b(as)44 +b(in)0 5037 y(f)p 37 4958 37 4 v 7 w(f)38 b Fn(!)32 b +Fw(Z)297 5001 y Fl(0)368 5037 y Fn(!)f Fw(f)536 5001 +y Fk(0)p 559 4958 V 559 5037 a Fw(f)596 4978 y Fk(0)619 +5037 y Fw(.)51 b(In)35 b(neither)g(case)h(need)g(therefore)g(the)f +(\014nal-state)f(\015a)m(v)m(ours)j(b)s(e)e(sp)s(eci\014ed)h(in)e(the)0 +5145 y(cross-section)44 b(calculation.)73 b(It)43 b(is)f(only)h +(necessary)-8 b(,)48 b(in)43 b(the)g(latter)f(case,)47 +b(to)c(include)f(an)h(o)m(v)m(erall)0 5254 y(w)m(eigh)m(t)37 +b(factor,)f(whic)m(h)h(tak)m(es)h(in)m(to)d(accoun)m(t)i(the)g(summed)f +(con)m(tribution)f(of)h(all)e(\014nal)i(states)h(that)0 +5362 y(are)d(to)g(b)s(e)g(sim)m(ulated.)47 b(F)-8 b(or)33 +b(instance,)i(if)e(only)g(the)i(pro)s(cess)g(Z)2366 5326 +y Fl(0)2435 5362 y Fn(!)30 b Fw(e)2608 5326 y Fl(+)2667 +5362 y Fw(e)2710 5326 y Fk(\000)2804 5362 y Fw(is)j(studied,)i(the)g +(relev)-5 b(an)m(t)0 5470 y(w)m(eigh)m(t)43 b(factor)g(is)g(simply)e +(\000)1101 5485 y Fl(ee)1168 5470 y Fj(=)p Fw(\000)1278 +5485 y Fl(tot)1372 5470 y Fw(.)75 b(Once)44 b(the)g(kinematics)e(and)h +(the)h(incoming)d(\015a)m(v)m(ours)j(ha)m(v)m(e)0 5579 +y(b)s(een)37 b(selected,)i(the)e(outgoing)e(\015a)m(v)m(ours)j(can)f(b) +s(e)g(pic)m(k)m(ed)h(according)e(to)g(the)h(appropriate)f(relativ)m(e) +1817 5953 y(101)p eop +%%Page: 102 108 +102 107 bop 0 -18 a Fw(probabilities.)146 90 y(In)40 +b(some)e(pro)s(cesses,)43 b(suc)m(h)e(as)e(gg)g Fn(!)f +Fw(gg)q(,)j(sev)m(eral)e(di\013eren)m(t)h(colour)e(\015o)m(ws)i(are)f +(allo)m(w)m(ed,)h(eac)m(h)0 198 y(with)25 b(its)f(o)m(wn)i(kinematical) +c(dep)s(endence)27 b(of)e(the)g(matrix-elemen)m(t)e(w)m(eigh)m(t,)k +(see)f(section)f(8.2.1.)41 b(Eac)m(h)0 307 y(colour)28 +b(\015o)m(w)i(is)f(then)h(giv)m(en)f(as)h(a)f(separate)h(en)m(try)g(in) +f(the)g(table)g(men)m(tioned)g(ab)s(o)m(v)m(e,)h(i.e.)42 +b(in)29 b(total)f(an)0 415 y(en)m(try)35 b(is)e(c)m(haracterized)h(b)m +(y)g(the)g(t)m(w)m(o)g(incoming)d(\015a)m(v)m(ours,)36 +b(a)d(colour-\015o)m(w)g(index,)h(and)f(the)h(w)m(eigh)m(t.)0 +523 y(F)-8 b(or)42 b(an)g(accepted)i(phase-space)g(p)s(oin)m(t,)g(the)e +(colour)g(\015o)m(w)h(is)f(selected)h(in)f(the)h(same)f(w)m(a)m(y)h(as) +g(the)0 632 y(incoming)30 b(\015a)m(v)m(ours.)146 740 +y(The)i(program)e(can)h(also)f(allo)m(w)g(the)h(mixed)g(generation)f +(of)h(t)m(w)m(o)g(or)g(more)f(completely)g(di\013eren)m(t)0 +848 y(pro)s(cesses,)d(suc)m(h)e(as)f(f)p 800 769 37 4 +v 7 w(f)34 b Fn(!)27 b Fw(Z)1051 812 y Fl(0)1113 848 +y Fw(and)d(q)p 1345 795 52 4 v(q)k Fn(!)g Fw(gg)q(.)40 +b(In)24 b(that)f(case,)j(eac)m(h)e(pro)s(cess)h(is)e(initialized)c +(separately)-8 b(,)0 957 y(with)27 b(its)g(o)m(wn)h(set)g(of)f(co)s +(e\016cien)m(ts)h Fj(c)1329 972 y Fh(i)1385 957 y Fw(and)g(so)f(on.)42 +b(The)28 b(maxima)d(obtained)i(for)g(the)h(individual)d(cross)0 +1065 y(sections)38 b(are)f(all)f(expressed)k(in)c(the)i(same)f(units,)i +(ev)m(en)g(when)f(the)g(dimensionalit)m(y)d(of)i(the)h(phase)0 +1173 y(space)33 b(is)f(di\013eren)m(t.)44 b(\(This)32 +b(is)g(b)s(ecause)h(w)m(e)g(alw)m(a)m(ys)g(transform)e(to)h(a)g(phase)h +(space)h(of)d(unit)h(v)m(olume,)0 1211 y Fg(R)72 1282 +y Fj(h)128 1297 y Fh(\034)171 1282 y Fw(\()p Fj(\034)11 +b Fw(\))17 b(d)p Fj(\034)41 b Fn(\021)30 b Fw(1,)k(etc.\))47 +b(The)35 b(ab)s(o)m(v)m(e)f(generation)f(sc)m(heme)i(need)g(therefore)f +(only)f(b)s(e)h(generalized)f(as)0 1390 y(follo)m(ws:)119 +1503 y(1.)49 b(One)29 b(pro)s(cess)g(is)g(selected)g(among)e(the)i +(allo)m(w)m(ed)f(ones,)i(with)e(a)h(relativ)m(e)e(probabilit)m(y)g(giv) +m(en)i(b)m(y)244 1611 y(the)k(maxim)m(um)d(w)m(eigh)m(t)j(for)f(this)g +(pro)s(cess.)119 1729 y(2.)49 b(A)29 b(phase-space)h(p)s(oin)m(t)e(is)g +(found,)i(using)e(the)h(distributions)f Fj(h)2555 1744 +y Fh(\034)2598 1729 y Fw(\()p Fj(\034)11 b Fw(\))29 b(and)g(so)g(on,)g +(optimized)e(for)244 1838 y(this)32 b(particular)f(pro)s(cess.)119 +1955 y(3.)49 b(The)e(total)d(w)m(eigh)m(t)i(for)g(the)g(phase-space)i +(p)s(oin)m(t)d(is)g(ev)-5 b(aluated,)49 b(again)c(with)g(`Jacobians',) +244 2064 y(matrix)29 b(elemen)m(ts)i(and)g(allo)m(w)m(ed)g(incoming)d +(\015a)m(v)m(our)k(com)m(binations)d(that)i(are)g(sp)s(eci\014c)g(to)g +(the)244 2172 y(pro)s(cess.)119 2290 y(4.)49 b(The)d(p)s(oin)m(t)e(is)g +(retained)g(with)h(a)f(probabilit)m(y)f(giv)m(en)i(b)m(y)h(the)f(ratio) +e(of)i(the)g(actual)f(to)g(the)244 2398 y(maxim)m(um)29 +b(w)m(eigh)m(t)i(of)g(the)h(pro)s(cess.)44 b(If)32 b(the)f(p)s(oin)m(t) +g(is)f(rejected,)j(one)f(has)g(to)f(go)f(bac)m(k)j(to)e(step)244 +2506 y(1)h(and)h(pic)m(k)g(a)f(new)i(pro)s(cess.)119 +2624 y(5.)49 b(Once)26 b(a)f(phase-space)i(p)s(oin)m(t)d(has)i(b)s(een) +g(accepted,)i(\015a)m(v)m(ours)e(ma)m(y)f(b)s(e)h(selected,)i(and)d +(the)h(ev)m(en)m(t)244 2733 y(generated)33 b(in)f(full.)0 +2846 y(It)38 b(is)g(clear)f(wh)m(y)j(this)d(w)m(orks:)56 +b(although)37 b(phase-space)j(p)s(oin)m(ts)e(are)g(selected)h(among)e +(the)h(allo)m(w)m(ed)0 2954 y(pro)s(cesses)30 b(according)e(to)g +(relativ)m(e)f(probabilities)f(giv)m(en)i(b)m(y)h(the)g(maxim)m(um)d(w) +m(eigh)m(ts,)k(the)f(probabil-)0 3062 y(it)m(y)j(that)g(a)g(p)s(oin)m +(t)f(is)g(accepted)j(is)e(prop)s(ortional)d(to)j(the)g(ratio)f(of)h +(actual)f(to)h(maxim)m(um)d(w)m(eigh)m(t.)44 b(In)0 3171 +y(total,)34 b(the)h(probabilit)m(y)d(for)i(a)g(giv)m(en)h(pro)s(cess)h +(to)e(b)s(e)h(retained)f(is)g(therefore)h(only)f(prop)s(ortional)e(to)0 +3279 y(the)h(a)m(v)m(erage)h(of)e(the)h(actual)e(w)m(eigh)m(ts,)j(and)e +(an)m(y)i(dep)s(endence)h(on)d(the)h(maxim)m(um)d(w)m(eigh)m(t)j(is)f +(gone.)146 3387 y(In)26 b Fj(\015)5 b Fw(p)25 b(and)g +Fj(\015)5 b(\015)30 b Fw(ph)m(ysics,)e(the)e(di\013eren)m(t)f(comp)s +(onen)m(ts)h(of)e(the)i(photon)f(giv)m(e)g(di\013eren)m(t)g(\014nal)f +(states,)0 3496 y(see)32 b(section)f(7.7.2.)42 b(T)-8 +b(ec)m(hnically)g(,)31 b(this)f(in)m(tro)s(duces)h(a)g(further)g(lev)m +(el)f(of)g(administration,)e(since)k(eac)m(h)0 3604 y(ev)m(en)m(t)j +(class)f(con)m(tains)g(a)f(set)i(of)e(\(partly)g(o)m(v)m(erlapping\))g +(pro)s(cesses.)49 b(F)-8 b(rom)32 b(an)h(ideological)d(p)s(oin)m(t)j +(of)0 3712 y(view,)i(ho)m(w)m(ev)m(er,)j(it)33 b(just)i(represen)m(ts)i +(one)d(more)g(c)m(hoice)h(to)f(b)s(e)g(made,)h(that)f(of)g(ev)m(en)m(t) +i(class,)f(b)s(efore)0 3821 y(the)h(selection)g(of)f(pro)s(cess)i(in)e +(step)i(1)f(ab)s(o)m(v)m(e.)54 b(When)37 b(a)e(w)m(eigh)m(ting)h +(fails,)f(b)s(oth)g(class)h(and)g(pro)s(cess)0 3929 y(ha)m(v)m(e)e(to)e +(b)s(e)h(pic)m(k)m(ed)h(anew.)0 4196 y Fp(7.5)135 b Fs(2)33 +b Fc(!)g Fs(3)44 b Fp(and)h Fs(2)33 b Fc(!)f Fs(4)45 +b Fp(Pro)t(cesses)0 4369 y Fw(The)34 b Fm(Pythia)g Fw(mac)m(hinery)g +(to)f(handle)g(2)c Fn(!)g Fw(1)k(and)h(2)29 b Fn(!)g +Fw(2)k(pro)s(cesses)i(is)e(fairly)f(sophisticated)h(and)0 +4478 y(generic.)43 b(The)33 b(same)e(cannot)h(b)s(e)g(said)f(ab)s(out)g +(the)h(generation)f(of)g(hard)h(scattering)f(pro)s(cesses)j(with)0 +4586 y(more)c(than)h(t)m(w)m(o)h(\014nal-state)e(particles.)42 +b(The)32 b(n)m(um)m(b)s(er)f(of)g(phase-space)h(v)-5 +b(ariables)30 b(is)g(larger,)g(and)h(it)0 4694 y(is)25 +b(therefore)g(more)f(di\016cult)h(to)f(\014nd)i(and)f(transform)f(a)m +(w)m(a)m(y)i(all)d(p)s(ossible)i(p)s(eaks)h(in)e(the)h(cross)h(section) +0 4803 y(b)m(y)i(a)e(suitably)g(biased)h(c)m(hoice)g(of)f(phase-space)j +(p)s(oin)m(ts.)41 b(In)27 b(addition,)f(matrix-elemen)m(t)f +(expressions)0 4911 y(for)35 b(2)d Fn(!)h Fw(3)i(pro)s(cesses)j(are)d +(t)m(ypically)g(fairly)e(length)m(y)-8 b(.)53 b(Therefore)36 +b Fm(Pythia)g Fw(only)f(con)m(tains)h(a)f(v)m(ery)0 5019 +y(limited)25 b(n)m(um)m(b)s(er)j(of)f(2)h Fn(!)f Fw(3)g(and)h(2)g +Fn(!)f Fw(4)g(pro)s(cesses,)k(and)d(almost)e(eac)m(h)j(pro)s(cess)g(is) +e(a)h(sp)s(ecial)e(case)j(of)0 5128 y(its)j(o)m(wn.)45 +b(It)33 b(is)g(therefore)g(less)g(in)m(teresting)g(to)f(discuss)i +(details,)e(and)h(w)m(e)h(only)f(giv)m(e)g(a)f(v)m(ery)i(generic)0 +5236 y(o)m(v)m(erview.)146 5344 y(If)d(the)g(Higgs)f(mass)g(is)g(not)h +(ligh)m(t,)e(in)m(teractions)h(among)g(longitudinal)d(W)32 +b(and)e(Z)h(gauge)f(b)s(osons)0 5453 y(are)45 b(of)f(in)m(terest.)81 +b(In)45 b(the)h(program,)g(2)j Fn(!)f Fw(1)c(pro)s(cesses)j(suc)m(h)g +(as)e(W)2709 5411 y Fl(+)2708 5477 y(L)2768 5453 y Fw(W)2869 +5411 y Fk(\000)2868 5477 y Fl(L)2978 5453 y Fn(!)j Fw(H)3199 +5416 y Fl(0)3283 5453 y Fw(and)d(2)k Fn(!)f Fw(2)0 5561 +y(ones)38 b(suc)m(h)g(as)g(W)672 5520 y Fl(+)671 5585 +y(L)731 5561 y Fw(W)832 5520 y Fk(\000)831 5585 y Fl(L)927 +5561 y Fn(!)d Fw(Z)1122 5525 y Fl(0)1122 5586 y(L)1170 +5561 y Fw(Z)1230 5525 y Fl(0)1230 5586 y(L)1315 5561 +y Fw(are)i(included.)56 b(The)38 b(former)e(are)h(for)g(use)h(when)g +(the)g(H)3443 5525 y Fl(0)3519 5561 y Fw(still)d(is)0 +5669 y(reasonably)k(narro)m(w,)i(suc)m(h)f(that)e(a)h(resonance)h +(description)f(is)f(applicable,)g(while)g(the)i(latter)d(are)1817 +5953 y(102)p eop +%%Page: 103 109 +103 108 bop 0 -18 a Fw(in)m(tended)35 b(for)f(high)f(energies,)i(where) +h(di\013eren)m(t)e(con)m(tributions)g(ha)m(v)m(e)i(to)d(b)s(e)i(added)g +(up.)49 b(Since)34 b(the)0 90 y(program)24 b(do)s(es)i(not)g(con)m +(tain)f(W)1200 105 y Fl(L)1274 90 y Fw(or)g(Z)1446 105 +y Fl(L)1519 90 y Fw(distributions)f(inside)h(hadrons,)j(the)e(basic)f +(hard)h(scattering)0 198 y(has)h(to)f(b)s(e)g(con)m(v)m(oluted)i(with)e +(the)g(q)j Fn(!)e Fw(q)1527 162 y Fk(0)1551 198 y Fw(W)1651 +213 y Fl(L)1725 198 y Fw(and)g(q)h Fn(!)f Fw(qZ)2226 +213 y Fl(L)2301 198 y Fw(branc)m(hings,)h(to)e(yield)g(e\013ectiv)m(e)h +(2)g Fn(!)h Fw(3)0 307 y(and)33 b(2)28 b Fn(!)f Fw(4)32 +b(pro)s(cesses.)46 b(Ho)m(w)m(ev)m(er,)36 b(it)31 b(is)i(p)s(ossible)f +(to)g(in)m(tegrate)g(out)h(the)g(scattering)f(angles)h(of)f(the)0 +415 y(quarks)38 b(analytically)-8 b(,)35 b(as)h(w)m(ell)g(as)h(one)g +(energy-sharing)f(v)-5 b(ariable)35 b([Cha85].)56 b(Only)36 +b(after)g(an)h(ev)m(en)m(t)0 523 y(has)j(b)s(een)h(accepted)g(are)f +(these)h(other)f(kinematical)d(v)-5 b(ariables)38 b(selected.)67 +b(This)40 b(in)m(v)m(olv)m(es)g(further)0 632 y(c)m(hoices)33 +b(of)g(random)e(v)-5 b(ariables,)32 b(according)g(to)g(a)g(separate)h +(selection)g(lo)s(op.)146 740 y(In)d(total,)e(it)f(is)i(therefore)g +(only)g(necessary)i(to)d(in)m(tro)s(duce)h(one)g(additional)d(v)-5 +b(ariable)27 b(in)h(the)i(basic)0 848 y(phase-space)45 +b(selection,)h(whic)m(h)e(is)f(c)m(hosen)i(to)f(b)s(e)j(^)-53 +b Fj(s)2022 812 y Fk(0)2046 848 y Fw(,)46 b(the)e(squared)h(in)m(v)-5 +b(arian)m(t)42 b(mass)h(of)g(the)h(full)0 957 y(2)i Fn(!)h +Fw(3)c(or)h(2)i Fn(!)h Fw(4)c(pro)s(cess,)48 b(while)f(^)-53 +b Fj(s)43 b Fw(is)h(used)h(for)e(the)h(squared)h(in)m(v)-5 +b(arian)m(t)43 b(mass)g(of)h(the)g(inner)0 1065 y(2)g +Fn(!)g Fw(1)f(or)f(2)i Fn(!)g Fw(2)f(pro)s(cess.)74 b(The)43 +b Fj(y)j Fw(v)-5 b(ariable)41 b(is)h(coupled)g(to)g(the)h(full)e(pro)s +(cess,)46 b(since)d(parton-)0 1183 y(distribution)31 +b(w)m(eigh)m(ts)i(ha)m(v)m(e)h(to)e(b)s(e)h(giv)m(en)f(for)g(the)h +(original)d(quarks)j(at)g Fj(x)2769 1198 y Fl(1)p Fh(;)p +Fl(2)2891 1183 y Fw(=)2995 1101 y Fn(p)p 3078 1101 77 +4 v 82 x Fj(\034)3131 1155 y Fk(0)3171 1183 y Fw(exp)18 +b(\()p Fn(\006)p Fj(y)t Fw(\))o(.)44 b(The)1 1289 y(^)0 +1307 y Fj(t)38 b Fw(v)-5 b(ariable)36 b(is)h(related)h(to)f(the)i +(inner)e(pro)s(cess,)k(and)d(th)m(us)g(not)g(needed)i(for)d(the)h(2)f +Fn(!)f Fw(3)h(pro)s(cesses.)0 1415 y(The)e(selection)f(of)g(the)h +Fj(\034)936 1379 y Fk(0)990 1415 y Fw(=)g(^)-53 b Fj(s)1143 +1379 y Fk(0)1166 1415 y Fj(=s)34 b Fw(v)-5 b(ariable)33 +b(is)h(done)g(after)g Fj(\034)11 b Fw(,)36 b(but)e(b)s(efore)h +Fj(y)i Fw(has)e(b)s(een)g(c)m(hosen.)50 b(T)-8 b(o)0 +1524 y(impro)m(v)m(e)36 b(the)h(e\016ciency)-8 b(,)39 +b(the)d(selection)g(is)g(made)g(according)g(to)g(a)g(w)m(eigh)m(ted)h +(phase)h(space)f(of)f(the)0 1632 y(form)230 1561 y Fg(R)302 +1632 y Fj(h)358 1647 y Fh(\034)397 1628 y Fd(0)424 1632 +y Fw(\()p Fj(\034)515 1596 y Fk(0)539 1632 y Fw(\))17 +b(d)p Fj(\034)701 1596 y Fk(0)724 1632 y Fw(,)33 b(where)849 +1911 y Fj(h)905 1926 y Fh(\034)944 1907 y Fd(0)971 1911 +y Fw(\()p Fj(\034)1062 1870 y Fk(0)1086 1911 y Fw(\))27 +b(=)1271 1844 y Fj(c)1313 1859 y Fl(1)p 1265 1888 94 +4 v 1265 1980 a Fn(I)1319 1995 y Fl(1)1392 1844 y Fw(1)p +1378 1888 77 4 v 1378 1980 a Fj(\034)1431 1951 y Fk(0)1487 +1911 y Fw(+)1601 1844 y Fj(c)1643 1859 y Fl(2)p 1595 +1888 94 4 v 1595 1980 a Fn(I)1649 1995 y Fl(2)1725 1844 +y Fw(\(1)22 b Fn(\000)h Fj(\034)11 b(=\034)2089 1808 +y Fk(0)2113 1844 y Fw(\))2151 1808 y Fl(3)p 1725 1888 +465 4 v 1902 1980 a Fj(\034)1955 1951 y Fk(0)p Fl(2)2222 +1911 y Fw(+)2337 1844 y Fj(c)2379 1859 y Fl(3)p 2330 +1888 94 4 v 2330 1980 a Fn(I)2384 1995 y Fl(3)2636 1844 +y Fw(1)p 2461 1888 400 4 v 2461 1980 a Fj(\034)2514 1951 +y Fk(0)2537 1980 y Fw(\(1)22 b Fn(\000)h Fj(\034)2799 +1951 y Fk(0)2823 1980 y Fw(\))2903 1911 y Fj(;)676 b +Fw(\(89\))0 2182 y(in)31 b(con)m(v)m(en)m(tional)i(notation.)42 +b(The)33 b Fj(c)1347 2197 y Fh(i)1407 2182 y Fw(co)s(e\016cien)m(ts)h +(are)e(optimized)e(at)i(initialization.)38 b(The)33 b +Fj(c)3480 2197 y Fl(3)3552 2182 y Fw(term,)0 2290 y(p)s(eak)m(ed)k(at)f +Fj(\034)507 2254 y Fk(0)565 2290 y Fn(\031)e Fw(1,)j(is)e(only)h(used)h +(for)f(e)1530 2254 y Fl(+)1589 2290 y Fw(e)1632 2254 +y Fk(\000)1728 2290 y Fw(collisions.)51 b(The)37 b(c)m(hoice)g(of)e +Fj(h)2857 2305 y Fh(\034)2896 2286 y Fd(0)2959 2290 y +Fw(is)h(roughly)f(matc)m(hed)0 2398 y(to)d(the)h(longitudinal)c +(gauge-b)s(oson)j(\015ux)i(factor,)e(whic)m(h)h(is)f(of)g(the)h(form) +1194 2529 y Fg(\022)1256 2650 y Fw(1)21 b(+)1446 2583 +y Fj(\034)p 1434 2627 77 4 v 1434 2718 a(\034)1487 2690 +y Fk(0)1521 2529 y Fg(\023)1615 2650 y Fw(ln)1713 2529 +y Fg(\022)1796 2583 y Fj(\034)p 1784 2627 V 1784 2718 +a(\034)1837 2690 y Fk(0)1871 2529 y Fg(\023)1954 2650 +y Fn(\000)i Fw(2)2120 2529 y Fg(\022)2181 2650 y Fw(1)e +Fn(\000)2373 2583 y Fj(\034)p 2361 2627 V 2361 2718 a(\034)2414 +2690 y Fk(0)2448 2529 y Fg(\023)2558 2650 y Fj(:)1021 +b Fw(\(90\))146 2902 y(F)-8 b(or)28 b(a)h(ligh)m(t)e(H)i(the)h +(e\013ectiv)m(e)g(W)g(appro)m(ximation)d(ab)s(o)m(v)m(e)j(breaks)g(do)m +(wn,)g(and)f(it)f(is)h(necessary)i(to)0 3010 y(include)c(the)h(full)e +(structure)j(of)f(the)g(qq)1445 2974 y Fk(0)1497 3010 +y Fn(!)f Fw(qq)1726 2974 y Fk(0)1750 3010 y Fw(H)1823 +2974 y Fl(0)1891 3010 y Fw(\(i.e.)41 b(ZZ)27 b(fusion\))g(and)h(qq)2847 +2974 y Fk(0)2899 3010 y Fn(!)f Fw(q)3077 2974 y Fk(00)3120 +3010 y Fw(q)3171 2974 y Fk(000)3233 3010 y Fw(H)3306 +2974 y Fl(0)3373 3010 y Fw(\(i.e.)42 b(WW)0 3119 y(fusion\))21 +b(matrix)g(elemen)m(ts.)40 b(The)23 b Fj(\034)1295 3083 +y Fk(0)1319 3119 y Fw(,)h Fj(\034)33 b Fw(and)22 b Fj(y)j +Fw(v)-5 b(ariables)21 b(are)g(here)i(retained,)h(and)e(selected)h +(according)0 3227 y(to)32 b(standard)i(pro)s(cedures.)45 +b(The)34 b(Higgs)e(mass)g(is)h(represen)m(ted)i(b)m(y)f(the)f +Fj(\034)44 b Fw(c)m(hoice;)33 b(normally)e(the)i(H)3740 +3191 y Fl(0)0 3335 y Fw(is)g(so)g(narro)m(w)h(that)e(the)i +Fj(\034)45 b Fw(distribution)31 b(e\013ectiv)m(ely)j(collapses)e(to)h +(a)g Fj(\016)k Fw(function.)45 b(In)33 b(addition,)f(the)0 +3444 y(three-b)s(o)s(dy)h(\014nal-state)f(phase)h(space)h(is)e +(rewritten)h(as)0 3584 y Fg( )105 3622 y Fl(5)70 3647 +y Fg(Y)66 3829 y Fh(i)p Fl(=3)294 3663 y Fw(1)p 206 3707 +223 4 v 206 3798 a(\(2)p Fj(\031)t Fw(\))390 3770 y Fl(3)449 +3663 y Fw(d)503 3626 y Fl(3)543 3663 y Fj(p)592 3678 +y Fh(i)p 449 3707 171 4 v 460 3798 a Fw(2)p Fj(E)581 +3813 y Fh(i)630 3584 y Fg(!)729 3730 y Fw(\(2)p Fj(\031)t +Fw(\))913 3689 y Fl(4)952 3730 y Fj(\016)999 3689 y Fl(\(4\))1093 +3730 y Fw(\()p Fj(p)1180 3745 y Fl(3)1233 3730 y Fw(+)13 +b Fj(p)1371 3745 y Fl(4)1423 3730 y Fw(+)g Fj(p)1561 +3745 y Fl(5)1613 3730 y Fn(\000)g Fj(p)1752 3745 y Fl(1)1805 +3730 y Fn(\000)g Fj(p)1944 3745 y Fl(2)1983 3730 y Fw(\))28 +b(=)2250 3663 y(1)p 2163 3707 223 4 v 2163 3798 a(\(2)p +Fj(\031)t Fw(\))2347 3770 y Fl(5)2532 3663 y Fj(\031)2591 +3626 y Fl(2)p 2422 3707 319 4 v 2422 3802 a Fw(4)2471 +3725 y Fn(p)p 2554 3725 187 4 v 77 x Fj(\025)2611 3817 +y Fk(?)p Fl(34)2767 3730 y Fw(d)p Fj(p)2870 3689 y Fl(2)2870 +3755 y Fk(?)p Fl(3)2991 3663 y Fw(d)p Fj(')3109 3678 +y Fl(3)p 2991 3707 158 4 v 3016 3798 a Fw(2)p Fj(\031)3175 +3730 y Fw(d)p Fj(p)3278 3689 y Fl(2)3278 3755 y Fk(?)p +Fl(4)3399 3663 y Fw(d)p Fj(')3517 3678 y Fl(4)p 3399 +3707 V 3424 3798 a Fw(2)p Fj(\031)3583 3730 y Fw(d)p +Fj(y)3685 3745 y Fl(5)3752 3730 y Fj(;)3606 3921 y Fw(\(91\))0 +4029 y(where)f Fj(\025)332 4044 y Fk(?)p Fl(34)489 4029 +y Fw(=)h(\()p Fj(m)716 3993 y Fl(2)716 4054 y Fk(?)p +Fl(34)854 4029 y Fn(\000)8 b Fj(m)1024 3993 y Fl(2)1024 +4054 y Fk(?)p Fl(3)1128 4029 y Fn(\000)g Fj(m)1298 3993 +y Fl(2)1298 4054 y Fk(?)p Fl(4)1393 4029 y Fw(\))1431 +3993 y Fl(2)1479 4029 y Fn(\000)g Fw(4)p Fj(m)1698 3993 +y Fl(2)1698 4054 y Fk(?)p Fl(3)1793 4029 y Fj(m)1878 +3993 y Fl(2)1878 4054 y Fk(?)p Fl(4)1973 4029 y Fw(.)41 +b(The)26 b(outgoing)f(quarks)i(are)f(lab)s(elled)d(3)j(and)g(4,)0 +4137 y(and)g(the)g(outgoing)e(Higgs)h(5.)41 b(The)27 +b Fj(')f Fw(angles)f(are)h(selected)h(isotropically)-8 +b(,)24 b(while)h(the)h(t)m(w)m(o)g(transv)m(erse)0 4246 +y(momen)m(ta)37 b(are)h(pic)m(k)m(ed,)j(with)c(some)h(forekno)m(wledge) +h(of)f(the)g(shap)s(e)h(of)e(the)i(W)q Fj(=)p Fw(Z)f(propagators)f(in)0 +4354 y(the)c(cross)h(sections,)f(according)f(to)g Fj(h)1413 +4369 y Fk(?)1472 4354 y Fw(\()p Fj(p)1559 4318 y Fl(2)1559 +4379 y Fk(?)1618 4354 y Fw(\))17 b(d)p Fj(p)1776 4318 +y Fl(2)1776 4379 y Fk(?)1835 4354 y Fw(,)33 b(where)889 +4618 y Fj(h)945 4633 y Fk(?)1004 4618 y Fw(\()p Fj(p)1091 +4577 y Fl(2)1091 4643 y Fk(?)1150 4618 y Fw(\))28 b(=)1335 +4551 y Fj(c)1377 4566 y Fl(1)p 1329 4595 94 4 v 1329 +4687 a Fn(I)1383 4702 y Fl(1)1455 4618 y Fw(+)1569 4551 +y Fj(c)1611 4566 y Fl(2)p 1563 4595 V 1563 4687 a Fn(I)1617 +4702 y Fl(2)1854 4551 y Fw(1)p 1693 4595 372 4 v 1693 +4687 a Fj(m)1778 4652 y Fl(2)1778 4711 y Fh(R)1858 4687 +y Fw(+)22 b Fj(p)2005 4652 y Fl(2)2005 4712 y Fk(?)2096 +4618 y Fw(+)2210 4551 y Fj(c)2252 4566 y Fl(3)p 2204 +4595 94 4 v 2204 4687 a Fn(I)2258 4702 y Fl(3)2553 4551 +y Fw(1)p 2335 4595 487 4 v 2335 4687 a(\()p Fj(m)2458 +4652 y Fl(2)2458 4711 y Fh(R)2538 4687 y Fw(+)g Fj(p)2685 +4652 y Fl(2)2685 4712 y Fk(?)2744 4687 y Fw(\))2782 4658 +y Fl(2)2864 4618 y Fj(;)715 b Fw(\(92\))0 4889 y(with)35 +b Fj(m)310 4904 y Fh(R)403 4889 y Fw(the)h(W)h(or)e(Z)g(mass,)i(dep)s +(ending)e(on)g(pro)s(cess,)j(and)d Fj(c)2413 4904 y Fl(1)2485 +4889 y Fw(=)e Fj(c)2636 4904 y Fl(2)2708 4889 y Fw(=)f(0)p +Fj(:)p Fw(05,)k Fj(c)3095 4904 y Fl(3)3167 4889 y Fw(=)c(0)p +Fj(:)p Fw(9.)52 b(Within)0 4997 y(the)31 b(limits)d(giv)m(en)j(b)m(y)h +(the)f(other)g(v)-5 b(ariable)29 b(c)m(hoices,)j(the)f(rapidit)m(y)f +Fj(y)2541 5012 y Fl(5)2611 4997 y Fw(is)g(c)m(hosen)j(uniformly)-8 +b(.)40 b(A)31 b(\014nal)0 5106 y(c)m(hoice)45 b(remains)e(to)h(b)s(e)h +(made,)h(whic)m(h)f(comes)g(from)e(a)h(t)m(w)m(ofold)g(am)m(biguit)m(y) +e(of)i(exc)m(hanging)h(the)0 5214 y(longitudinal)28 b(momen)m(ta)j(of)h +(partons)g(3)f(and)h(4)g(\(with)g(minor)e(mo)s(di\014cations)g(if)g +(they)j(are)f(massiv)m(e\).)0 5322 y(Here)42 b(the)g(relativ)m(e)f(w)m +(eigh)m(t)h(can)f(b)s(e)h(obtained)f(exactly)h(from)e(the)i(form)e(of)h +(the)h(matrix)e(elemen)m(t)0 5431 y(itself.)146 5539 +y(No)h(go)s(o)s(d)e(phase-space)k(c)m(hoice)e(w)m(as)g(found)g(for)f +(the)h(pro)s(cess)h(gg)g Fn(!)f Fw(Z)2893 5503 y Fl(0)2932 +5539 y Fw(b)p 2986 5460 55 4 v(b)q(.)67 b(This)41 b(pro)s(cess)h(is)0 +5647 y(therefore)h(not)g(so)g(easy)g(to)f(generate)i(with)e +Fm(Pythia)p Fw(.)74 b(What)42 b(is)h(curren)m(tly)g(done)g(is)f(to)g +(use)i(the)1817 5953 y(103)p eop +%%Page: 104 110 +104 109 bop 0 -18 a Fw(basic)34 b(formalism)d(of)i(2)d +Fn(!)g Fw(2)k(pro)s(cesses,)j(where)e(the)g(b)23 b(+)p +2185 -98 55 4 v 23 w(b)34 b(system)h(is)f(considered)h(as)f(an)g +(e\013ectiv)m(e)0 90 y(`resonance'.)44 b(Tw)m(o)30 b(masses)h(are)e +(then)h(selected,)h(the)f(Z)2062 54 y Fl(0)2131 90 y +Fw(one)f(according)g(to)g(eq.)i(\(88\))d(and)i(the)g(b)16 +b(+)p 3726 11 V 16 w(b)0 198 y(one)36 b(according)f(to)g(d)p +Fj(m)885 162 y Fl(2)925 198 y Fj(=m)1059 162 y Fl(2)1099 +198 y Fw(.)53 b(Both)35 b(`deca)m(ys')j(are)e(selected)h(isotropically) +c(in)h(the)j(resp)s(ectiv)m(e)g(rest)0 307 y(frame,)g(to)f(giv)m(e)h +(the)g(\014nal)f(four)h(fermions)e(in)h(terms)h(of)f(whic)m(h)i(the)f +(matrix)e(elemen)m(t)i(is)f(giv)m(en.)56 b(In)0 415 y(addition,)31 +b Fj(\034)11 b Fw(,)33 b Fj(y)j Fw(and)c Fj(z)38 b Fw(are)32 +b(selected)i(according)e(to)g(the)h(standard)g(rules)g(for)f(2)27 +b Fn(!)g Fw(2)33 b(pro)s(cesses.)0 689 y Fp(7.6)135 b(Resonance)46 +b(Deca)l(ys)0 861 y Fw(Resonances)40 b(can)e(b)s(e)g(made)g(to)g(deca)m +(y)h(in)e(t)m(w)m(o)i(di\013eren)m(t)f(routines.)60 b(One)39 +b(is)e(the)i(standard)f(deca)m(y)0 970 y(treatmen)m(t)23 +b(\(in)g Fq(LUDECY)p Fw(\))h(that)g(can)f(b)s(e)h(used)g(for)f(an)m(y)h +(unstable)f(particle,)h(where)h(deca)m(y)f(c)m(hannels)g(are)0 +1078 y(c)m(hosen)36 b(according)d(to)h(\014xed)i(probabilities,)c(and)i +(deca)m(y)h(angles)f(usually)g(are)g(pic)m(k)m(ed)h(isotropically)0 +1187 y(in)k(the)h(rest)g(frame)e(of)h(the)h(resonance,)j(see)d(section) +g(13.3.)63 b(The)41 b(more)d(sophisticated)i(treatmen)m(t)0 +1295 y(\(in)30 b Fq(PYRESD)p Fw(\))i(is)e(the)h(default)f(one)h(for)g +(resonances)h(pro)s(duced)g(in)e Fm(Pythia)p Fw(,)h(and)g(is)f(describ) +s(ed)i(here.)0 1403 y(The)k(follo)m(wing)c(are)j(included)g(in)f(the)i +(list)d(of)i(resonances:)50 b(Z)2327 1367 y Fl(0)2366 +1403 y Fw(,)36 b(W)2530 1367 y Fk(\006)2589 1403 y Fw(,)g(H)2725 +1367 y Fl(0)2765 1403 y Fw(,)f(Z)2887 1367 y Fk(0)p Fl(0)2946 +1403 y Fw(,)g(W)3109 1367 y Fk(0\006)3188 1403 y Fw(,)h(H)3324 +1367 y Fk(0)p Fl(0)3382 1403 y Fw(,)g(A)3518 1367 y Fl(0)3558 +1403 y Fw(,)f(H)3693 1367 y Fk(\006)3752 1403 y Fw(,)0 +1512 y Fj(\021)52 1475 y Fl(0)48 1536 y(tec)n(h)180 1512 +y Fw(,)43 b(L)311 1527 y Fl(Q)370 1512 y Fw(,)g(and)e(R)710 +1475 y Fl(0)749 1512 y Fw(.)69 b(The)42 b(top)f(is)f(also)g(considered) +i(as)f(a)g(resonance)h(if)e(it)g(is)h(assumed)g(to)g(deca)m(y)0 +1620 y(b)s(efore)31 b(it)g(has)g(time)f(to)h(fragmen)m(t.)42 +b(Lik)m(ewise)32 b(for)f(the)g(fourth)g(generation)g(fermions.)42 +b(If)31 b(the)h(fourth)0 1728 y(generation)37 b(is)g(used)i(to)f +(represen)m(t)h(excited)g(quarks)g(and)f(leptons,)h(these)g(are)e(also) +g(considered)i(to)0 1837 y(b)s(e)33 b(resonances.)0 2084 +y Fo(7.6.1)112 b(The)38 b(deca)m(y)g(sc)m(heme)0 2257 +y Fw(In)h(the)h(b)s(eginning)e(of)g(the)i(deca)m(y)g(treatmen)m(t,)h +(either)e(one)g(or)g(t)m(w)m(o)h(resonances)h(ma)m(y)d(b)s(e)i(presen)m +(t,)0 2365 y(the)g(former)f(represen)m(ted)j(b)m(y)e(pro)s(cesses)i +(suc)m(h)f(as)e(q)p 1994 2312 52 4 v(q)2046 2329 y Fk(0)2109 +2365 y Fn(!)g Fw(W)2349 2329 y Fl(+)2448 2365 y Fw(and)h(qg)h +Fn(!)e Fw(W)3026 2329 y Fl(+)3086 2365 y Fw(q)3137 2329 +y Fk(0)3161 2365 y Fw(,)i(the)f(latter)f(b)m(y)0 2474 +y(q)p 51 2421 V(q)33 b Fn(!)f Fw(W)368 2438 y Fl(+)428 +2474 y Fw(W)529 2438 y Fk(\000)589 2474 y Fw(.)51 b(If)35 +b(the)h(latter)e(is)h(the)h(case,)h(the)f(deca)m(y)g(of)f(the)h(t)m(w)m +(o)g(resonances)h(is)e(considered)h(in)0 2582 y(parallel)30 +b(\(unlik)m(e)i Fq(LUDECY)p Fw(,)i(where)g(one)f(particle)e(at)h(a)h +(time)e(is)h(made)g(to)g(deca)m(y\).)146 2690 y(First)e(the)h(deca)m(y) +h(c)m(hannel)g(of)e(eac)m(h)i(resonance)g(is)e(selected)i(according)e +(to)g(the)i(relativ)m(e)e(w)m(eigh)m(ts)0 2819 y Fj(H)89 +2768 y Fl(\()p Fh(f)7 b Fl(\))81 2843 y Fh(R)189 2819 +y Fw(,)38 b(as)f(describ)s(ed)g(ab)s(o)m(v)m(e,)i(ev)-5 +b(aluated)37 b(at)f(the)h(actual)f(mass)h(of)f(the)i(resonance,)h +(rather)e(than)g(at)0 2927 y(the)d(nominal)d(one.)47 +b(Threshold)34 b(factors)f(are)h(therefore)g(fully)e(tak)m(en)j(in)m +(to)e(accoun)m(t,)h(with)g(c)m(hannels)0 3035 y(automatically)c(switc)m +(hed)36 b(o\013)d(b)s(elo)m(w)h(the)g(threshold.)48 b(Normally)31 +b(the)j(masses)h(of)f(the)g(deca)m(y)h(pro)s(d-)0 3144 +y(ucts)j(are)e(w)m(ell-de\014ned,)i(but)f(e.g.)57 b(in)36 +b(deca)m(ys)i(lik)m(e)e(H)2016 3108 y Fl(0)2090 3144 +y Fn(!)f Fw(W)2326 3108 y Fl(+)2385 3144 y Fw(W)2486 +3108 y Fk(\000)2583 3144 y Fw(it)g(is)i(also)e(necessary)40 +b(to)c(select)0 3252 y(the)j(deca)m(y)h(pro)s(duct)e(masses.)62 +b(This)38 b(is)g(done)h(according)f(to)g(t)m(w)m(o)h(Breit{Wigners)e +(of)h(the)h(t)m(yp)s(e)g(in)0 3360 y(eq.)33 b(\(80\),)f(m)m(ultiplied)e +(b)m(y)j(the)g(threshold)g(factor,)f(whic)m(h)h(dep)s(ends)i(on)d(b)s +(oth)g(masses.)146 3469 y(Next)46 b(the)e(deca)m(y)i(angles)e(of)g(the) +h(resonance)h(are)e(selected)h(isotropically)d(in)h(its)h(rest)h +(frame.)0 3577 y(Normally)38 b(the)j(full)e(range)h(of)g(deca)m(y)i +(angles)e(is)g(a)m(v)-5 b(ailable,)40 b(but)h(in)f(2)h +Fn(!)f Fw(1)h(pro)s(cesses)h(the)f(deca)m(y)0 3686 y(angles)25 +b(of)g(the)h(original)c(resonance)k(ma)m(y)f(b)s(e)h(restrained)g(b)m +(y)g(user)g(cuts,)i(e.g.)41 b(on)25 b(the)h Fj(p)3192 +3701 y Fk(?)3276 3686 y Fw(of)f(the)h(deca)m(y)0 3794 +y(pro)s(ducts.)48 b(Based)35 b(on)f(the)g(angles,)g(the)h(four-momen)m +(ta)d(of)h(the)i(deca)m(y)g(pro)s(ducts)g(are)f(constructed)0 +3902 y(and)i(b)s(o)s(osted)h(to)f(the)h(correct)g(frame.)54 +b(As)37 b(a)f(rule,)h(matrix)e(elemen)m(ts)h(are)h(giv)m(en)f(with)g +(quark)h(and)0 4011 y(lepton)e(masses)h(assumed)g(v)-5 +b(anishing.)51 b(Therefore)36 b(the)g(four-momen)m(tum)d(v)m(ectors)k +(constructed)g(at)0 4119 y(this)32 b(stage)h(are)g(actually)e(massless) +i(for)f(all)e(quarks)k(and)f(leptons.)146 4227 y(The)k(matrix)c(elemen) +m(ts)j(ma)m(y)f(no)m(w)h(b)s(e)g(ev)-5 b(aluated.)51 +b(F)-8 b(or)35 b(a)g(pro)s(cess)i(suc)m(h)f(as)g(q)p +3110 4174 V(q)d Fn(!)f Fw(W)3427 4191 y Fl(+)3487 4227 +y Fw(W)3588 4191 y Fk(\000)3680 4227 y Fn(!)0 4336 y +Fw(e)43 4299 y Fl(+)102 4336 y Fj(\027)150 4351 y Fl(e)186 +4336 y Fj(\026)245 4299 y Fk(\000)p 304 4283 55 4 v 304 +4336 a Fj(\027)358 4351 y Fh(\026)405 4336 y Fw(,)47 +b(the)d(matrix)f(elemen)m(t)h(is)f(a)h(function)g(of)f(the)i +(four-momen)m(ta)d(of)i(the)g(t)m(w)m(o)h(incoming)0 +4444 y(fermions)g(and)g(of)h(the)g(four)f(outgoing)f(ones.)84 +b(An)46 b(upp)s(er)g(limit)c(for)k(the)g(ev)m(en)m(t)h(w)m(eigh)m(t)f +(can)g(b)s(e)0 4552 y(constructed)32 b(from)e(the)h(cross)h(section)f +(for)f(the)h(basic)f(pro)s(cess)i(q)p 2425 4499 52 4 +v(q)d Fn(!)e Fw(W)2733 4516 y Fl(+)2793 4552 y Fw(W)2894 +4516 y Fk(\000)2954 4552 y Fw(,)k(as)g(already)f(used)i(to)0 +4661 y(select)g(the)g(t)m(w)m(o)h(W)g(momen)m(ta.)42 +b(If)31 b(the)h(w)m(eigh)m(ting)g(fails,)e(new)i(resonance)h(deca)m(y)g +(angles)f(are)f(pic)m(k)m(ed)0 4769 y(and)i(the)g(pro)s(cedure)g(is)f +(iterated)g(un)m(til)g(acceptance.)146 4877 y(Based)e(on)g(the)g +(accepted)g(set)g(of)f(angles,)h(the)g(correct)g(deca)m(y)g(pro)s(duct) +g(four-momen)m(ta)d(are)j(con-)0 4986 y(structed,)k(including)d +(previously)i(neglected)h(fermion)d(masses.)45 b(Quarks)34 +b(and,)f(optionally)-8 b(,)30 b(leptons)0 5094 y(are)25 +b(allo)m(w)m(ed)g(to)f(radiate,)i(using)f(the)h(standard)f +(\014nal-state)g(sho)m(w)m(ering)g(mac)m(hinery)-8 b(,)27 +b(with)e(maxim)m(um)0 5202 y(virtualit)m(y)31 b(giv)m(en)i(b)m(y)g(the) +g(resonance)h(mass.)146 5311 y(In)28 b(some)g(deca)m(ys)h(new)g +(resonances)g(are)f(pro)s(duced,)h(and)f(these)h(are)f(then)g +(subsequen)m(tly)i(allo)m(w)m(ed)0 5419 y(to)e(deca)m(y)-8 +b(.)44 b(Only)28 b(one)i(resonance)g(pair)d(is)i(considered)h(at)e(a)h +(time,)f(i.e.)42 b(it)27 b(is)i(not)f(p)s(ossible)h(to)f(include)0 +5527 y(correlations)h(whic)m(h)j(in)m(v)m(olv)m(e)f(the)g(sim)m +(ultaneous)e(deca)m(y)k(of)d(three)h(or)f(more)g(resonances.)45 +b(This)31 b(is)f(in)0 5636 y(fact)g(all)f(that)h(is)g(curren)m(tly)i +(needed:)44 b(in)30 b(a)g(pro)s(cess)i(lik)m(e)d(q)p +2163 5583 V(q)g Fn(!)e Fw(Z)2430 5600 y Fl(0)2469 5636 +y Fw(H)2542 5600 y Fl(0)2610 5636 y Fn(!)g Fw(Z)2797 +5600 y Fl(0)2836 5636 y Fw(W)2937 5600 y Fl(+)2997 5636 +y Fw(W)3098 5600 y Fk(\000)3185 5636 y Fn(!)g Fw(6)j(fermions,)1817 +5953 y(104)p eop +%%Page: 105 111 +105 110 bop 0 -18 a Fw(the)33 b(spinless)f(nature)h(of)e(the)i(H)1181 +-55 y Fl(0)1253 -18 y Fw(ensures)h(that)e(the)g(W)2074 +-55 y Fk(\006)2166 -18 y Fw(deca)m(ys)i(are)f(decoupled)f(from)f(that)h +(of)g(the)0 90 y(Z)60 54 y Fl(0)132 90 y Fw(\(but)g(not)h(from)e(eac)m +(h)j(other\).)0 338 y Fo(7.6.2)112 b(Cross-section)38 +b(considerations)0 510 y Fw(The)30 b(cross)g(section)g(for)f(a)g(pro)s +(cess)h(whic)m(h)g(in)m(v)m(olv)m(es)g(the)g(pro)s(duction)e(of)h(one)h +(or)f(sev)m(eral)h(resonances)0 619 y(is)j(alw)m(a)m(ys)i(reduced)g(to) +f(tak)m(e)h(in)m(to)e(accoun)m(t)i(c)m(hannels)f(not)g(allo)m(w)m(ed)f +(b)m(y)i(user)g(\015ags.)48 b(This)34 b(is)f(trivial)0 +727 y(for)j(a)g(single)g Fj(s)p Fw(-c)m(hannel)g(resonance,)j(cf.)56 +b(eq.)37 b(\(77\),)g(but)g(can)g(also)e(b)s(e)i(included)f(appro)m +(ximately)g(if)0 835 y(sev)m(eral)j(la)m(y)m(ers)h(of)e(resonance)i +(deca)m(ys)g(are)f(in)m(v)m(olv)m(ed.)62 b(A)m(t)39 b(initialization,)c +(the)k(ratio)e(b)s(et)m(w)m(een)k(the)0 944 y(user-allo)m(w)m(ed)31 +b(width)h(and)f(the)h(nominally)d(p)s(ossible)i(one)h(is)f(ev)-5 +b(aluated)31 b(and)h(stored,)g(starting)f(from)0 1052 +y(the)f(ligh)m(test)e(resonances)j(and)e(mo)m(ving)f(up)m(w)m(ards.)44 +b(As)30 b(an)f(example,)g(one)g(\014rst)h(\014nds)g(the)f(reduction)0 +1160 y(factors)34 b(for)f(W)570 1124 y Fl(+)663 1160 +y Fw(and)h(for)f(W)1105 1124 y Fk(\000)1198 1160 y Fw(deca)m(ys,)j +(whic)m(h)e(need)h(not)f(b)s(e)f(the)h(same)g(if)e(e.g.)47 +b(W)3152 1124 y Fl(+)3246 1160 y Fw(is)33 b(allo)m(w)m(ed)g(to)0 +1269 y(deca)m(y)38 b(only)d(to)h(quarks)i(and)e(W)1228 +1233 y Fk(\000)1323 1269 y Fw(only)g(to)g(leptons.)54 +b(These)38 b(factors)e(en)m(ter)i(together)e(as)g(a)g(w)m(eigh)m(t)0 +1377 y(for)31 b(the)h(H)388 1341 y Fl(0)455 1377 y Fn(!)c +Fw(W)684 1341 y Fl(+)743 1377 y Fw(W)844 1341 y Fk(\000)936 +1377 y Fw(c)m(hannel,)k(whic)m(h)g(is)f(th)m(us)i(reduced)g(in)e(imp)s +(ortance)g(compared)g(with)g(other)0 1485 y(p)s(ossible)h(Higgs)h(deca) +m(y)h(c)m(hannels.)47 b(This)33 b(is)g(also)f(re\015ected)j(in)d(the)i +(w)m(eigh)m(t)f(factor)g(of)f(the)i(H)3476 1449 y Fl(0)3549 +1485 y Fw(itself,)0 1594 y(where)e(some)e(c)m(hannels)h(are)f(op)s(en)h +(in)e(full,)g(others)i(completely)f(closed,)h(and)f(\014nally)f(some)h +(\(lik)m(e)g(the)0 1702 y(one)i(ab)s(o)m(v)m(e\))g(op)s(en)f(but)h +(with)f(reduced)i(w)m(eigh)m(t.)43 b(Finally)-8 b(,)29 +b(the)j(w)m(eigh)m(t)g(for)f(the)g(pro)s(cess)i(q)p 3361 +1649 52 4 v(q)c Fn(!)e Fw(Z)3628 1666 y Fl(0)3667 1702 +y Fw(H)3740 1666 y Fl(0)0 1810 y Fw(is)35 b(ev)-5 b(aluated)36 +b(as)g(the)g(pro)s(duct)g(of)g(the)g(Z)1550 1774 y Fl(0)1625 +1810 y Fw(w)m(eigh)m(t)g(factor)f(and)h(the)h(H)2657 +1774 y Fl(0)2732 1810 y Fw(one.)53 b(The)37 b(standard)g(cross)0 +1919 y(section)c(of)f(the)h(pro)s(cess)h(is)e(m)m(ultiplied)d(with)j +(this)g(w)m(eigh)m(t.)146 2027 y(Since)k(the)g(restriction)f(on)g(allo) +m(w)m(ed)g(deca)m(y)i(mo)s(des)f(is)f(already)g(included)h(in)e(the)j +(hard)e(pro)s(cess)0 2135 y(cross)23 b(section,)h(mixing)c(of)i +(di\013eren)m(t)g(ev)m(en)m(t)i(t)m(yp)s(es)g(is)d(greatly)h +(simpli\014ed,)g(and)g(the)h(selection)e(of)h(deca)m(y)0 +2244 y(c)m(hannel)39 b(c)m(hains)f(is)g(straigh)m(tforw)m(ard.)60 +b(There)39 b(is)f(a)g(price)g(to)g(b)s(e)h(paid,)f(ho)m(w)m(ev)m(er.)63 +b(The)39 b(reduction)0 2352 y(factors)k(ev)-5 b(aluated)43 +b(at)f(initialization)c(all)j(refer)i(to)g(resonances)i(at)e(their)f +(nominal)f(masses.)75 b(F)-8 b(or)0 2460 y(instance,)42 +b(the)e(W)i(reduction)e(factor)f(is)g(ev)-5 b(aluated)40 +b(at)g(the)g(nominal)d(W)k(mass,)h(ev)m(en)g(when)f(that)0 +2569 y(factor)29 b(is)g(used,)i(later)d(on,)i(in)e(the)i(description)f +(of)g(the)g(deca)m(y)i(of)e(a)g(120)f(GeV)h(Higgs,)h(where)g(at)f +(least)0 2677 y(one)e(W)h(w)m(ould)e(b)s(e)h(pro)s(duced)h(b)s(elo)m(w) +e(this)g(mass.)42 b(W)-8 b(e)27 b(kno)m(w)h(of)e(no)g(case)i(where)f +(this)g(appro)m(ximation)0 2785 y(has)33 b(an)m(y)g(serious)g +(consequences,)j(ho)m(w)m(ev)m(er.)146 2894 y(The)44 +b(w)m(eigh)m(ting)f(pro)s(cedure)g(w)m(orks)i(b)s(ecause)f(the)f(n)m +(um)m(b)s(er)h(of)e(resonances)j(to)d(b)s(e)i(pro)s(duced,)0 +3002 y(directly)c(or)h(in)f(subsequen)m(t)45 b(deca)m(ys,)g(can)c(b)s +(e)g(deriv)m(ed)h(recursiv)m(ely)g(already)f(from)f(the)h(start.)69 +b(It)0 3111 y(do)s(es)45 b(not)f(w)m(ork)h(for)e(particles)h(whic)m(h)h +(could)e(also)h(b)s(e)g(pro)s(duced)h(at)f(later)f(stages,)48 +b(suc)m(h)e(as)e(the)0 3219 y(parton-sho)m(w)m(er)27 +b(ev)m(olution)d(and)i(the)g(fragmen)m(tation.)39 b(F)-8 +b(or)25 b(instance,)i(D)2695 3183 y Fl(0)2759 3219 y +Fw(mesons)f(can)g(b)s(e)g(pro)s(duced)0 3327 y(fairly)32 +b(late)i(in)f(the)i(ev)m(en)m(t)h(generation)e(c)m(hain,)h(in)e(unkno)m +(wn)j(n)m(um)m(b)s(ers,)g(and)e(so)h(w)m(eigh)m(ts)g(could)f(not)0 +3436 y(b)s(e)h(in)m(tro)s(duced)g(to)f(comp)s(ensate,)h(e.g.)50 +b(for)34 b(the)h(forcing)e(of)h(deca)m(ys)j(only)d(in)m(to)g +Fj(\031)3045 3399 y Fl(+)3104 3436 y Fw(K)3180 3399 y +Fk(\000)3239 3436 y Fw(.)49 b(F)-8 b(or)34 b(similar)0 +3544 y(reasons)42 b(the)f(top)g(is)g(only)f(considered)i(as)f(a)g +(resonance)h(if)e(it)g(is)h(not)f(allo)m(w)m(ed)h(to)f(hadronize;)45 +b(see)0 3652 y(discussion)33 b(in)f(section)g(8.2.2.)146 +3761 y(One)46 b(should)e(note)h(that)g(this)f(reduction)h(factor)g(is)f +(separate)h(from)f(the)h(description)g(of)f(the)0 3869 +y(resonance)35 b(shap)s(e)g(itself,)e(where)i(the)f(full)e(width)i(of)f +(the)i(resonance)g(has)f(to)g(b)s(e)g(used.)49 b(This)34 +b(width)0 3977 y(is)k(based)i(on)f(the)g(sum)g(of)g(all)d(p)s(ossible)j +(deca)m(y)h(mo)s(des,)g(not)f(just)g(the)h(sim)m(ulated)d(ones.)63 +b Fm(Pythia)0 4086 y Fw(do)s(es)35 b(allo)m(w)e(the)j(p)s(ossibilit)m +(y)c(to)j(c)m(hange)g(also)f(the)h(underlying)g(ph)m(ysics)h(scenario,) +f(e.g.)51 b(to)34 b(include)0 4194 y(the)f(deca)m(y)h(of)e(a)g(Z)691 +4158 y Fl(0)763 4194 y Fw(in)m(to)g(a)g(fourth-generation)f(neutrino.) +146 4302 y(Normally)45 b(the)j(ev)-5 b(aluation)45 b(of)i(the)h +(reduction)f(factors)g(is)g(straigh)m(tforw)m(ard.)87 +b(Ho)m(w)m(ev)m(er,)53 b(for)0 4411 y(deca)m(ys)35 b(in)m(to)e(a)g +(pair)f(of)h(equal)g(or)g(c)m(harge-conjugate)g(resonances,)j(suc)m(h)e +(as)g(Z)2943 4374 y Fl(0)2982 4411 y Fw(Z)3042 4374 y +Fl(0)3114 4411 y Fw(or)f(W)3335 4374 y Fl(+)3395 4411 +y Fw(W)3496 4374 y Fk(\000)3555 4411 y Fw(,)h(it)e(is)0 +4519 y(p)s(ossible)d(to)h(pic)m(k)g(com)m(binations)f(in)g(suc)m(h)i(a) +f(w)m(a)m(y)h(that)f(the)h(w)m(eigh)m(t)f(of)f(the)i(pair)e(do)s(es)h +(not)g(factorize)0 4627 y(in)m(to)37 b(a)h(pro)s(duct)h(of)e(the)i(w)m +(eigh)m(t)f(of)g(eac)m(h)h(resonance)g(itself.)59 b(T)-8 +b(o)38 b(b)s(e)g(precise,)j(an)m(y)e(deca)m(y)g(c)m(hannel)0 +4736 y(can)33 b(b)s(e)g(giv)m(en)f(sev)m(en)j(di\013eren)m(t)e(status)g +(co)s(des:)145 4849 y Fn(\017)49 b(\000)p Fw(1:)44 b(a)32 +b(non-existen)m(t)h(deca)m(y)h(mo)s(de,)e(completely)g(switc)m(hed)h +(o\013)g(and)f(of)g(no)h(concern)h(to)e(us;)145 4967 +y Fn(\017)49 b Fw(0:)43 b(an)33 b(existing)f(deca)m(y)h(c)m(hannel,)h +(whic)m(h)f(is)f(switc)m(hed)i(o\013;)145 5084 y Fn(\017)49 +b Fw(1:)43 b(a)32 b(c)m(hannel)h(whic)m(h)g(is)g(switc)m(hed)g(on;)145 +5202 y Fn(\017)49 b Fw(2:)43 b(a)32 b(c)m(hannel)h(switc)m(hed)h(on)f +(for)f(particles,)g(but)g(o\013)h(for)f(an)m(tiparticles;)145 +5320 y Fn(\017)49 b Fw(3:)43 b(a)32 b(c)m(hannel)h(switc)m(hed)h(on)f +(for)f(an)m(tiparticles,)f(but)i(o\013)f(for)g(particles;)145 +5438 y Fn(\017)49 b Fw(4:)43 b(a)32 b(c)m(hannel)h(switc)m(hed)h(on)f +(for)f(one)h(of)f(the)h(resonances,)h(but)f(not)f(for)h(b)s(oth;)145 +5555 y Fn(\017)49 b Fw(5:)43 b(a)32 b(c)m(hannel)h(switc)m(hed)h(on)f +(for)f(the)h(other)f(of)h(the)g(resonances,)h(but)f(not)f(for)g(b)s +(oth.)1817 5953 y(105)p eop +%%Page: 106 112 +106 111 bop 0 -18 a Fw(The)38 b(meaning)d(of)h(p)s(ossibilities)e(4)j +(and)g(5)f(is)g(exempli\014ed)h(b)m(y)g(the)h(statemen)m(t)f(`in)f(a)g +(W)3327 -55 y Fl(+)3387 -18 y Fw(W)3488 -55 y Fk(\000)3584 +-18 y Fw(pair,)0 90 y(one)30 b(W)i(deca)m(ys)f(hadronically)d(and)i +(the)g(other)g(leptonically',)f(whic)m(h)h(th)m(us)h(co)m(v)m(ers)h +(the)e(cases)h(where)0 198 y(either)h(W)377 162 y Fl(+)470 +198 y Fw(or)g(W)690 162 y Fk(\000)782 198 y Fw(deca)m(ys)i +(hadronically)-8 b(.)146 307 y(Neglecting)32 b(non-existing)g(c)m +(hannels,)i(eac)m(h)f(c)m(hannel)g(b)s(elongs)g(to)f(either)g(of)h(the) +g(classes)h(ab)s(o)m(v)m(e.)0 415 y(If)i(w)m(e)h(denote)g(the)g(total)d +(branc)m(hing)i(ratio)f(in)m(to)g(c)m(hannels)i(of)f(t)m(yp)s(e)h +Fj(i)f Fw(b)m(y)h Fj(r)2855 430 y Fh(i)2883 415 y Fw(,)g(this)f(then)h +(translates)0 523 y(in)m(to)29 b(the)h(requiremen)m(t)g +Fj(r)943 538 y Fl(0)999 523 y Fw(+)16 b Fj(r)1135 538 +y Fl(1)1191 523 y Fw(+)g Fj(r)1327 538 y Fl(2)1383 523 +y Fw(+)g Fj(r)1519 538 y Fl(3)1576 523 y Fw(+)g Fj(r)1712 +538 y Fl(4)1768 523 y Fw(+)g Fj(r)1904 538 y Fl(5)1971 +523 y Fw(=)28 b(1.)42 b(F)-8 b(or)29 b(a)g(single)g(particle)g(the)h(w) +m(eigh)m(t)g(factor)0 632 y(is)f Fj(r)139 647 y Fl(1)195 +632 y Fw(+)17 b Fj(r)332 647 y Fl(2)388 632 y Fw(+)g +Fj(r)525 647 y Fl(4)564 632 y Fw(,)30 b(and)g(for)f(a)h(single)f(an)m +(tiparticle)f Fj(r)1861 647 y Fl(1)1917 632 y Fw(+)17 +b Fj(r)2054 647 y Fl(3)2109 632 y Fw(+)g Fj(r)2246 647 +y Fl(4)2285 632 y Fw(.)43 b(F)-8 b(or)29 b(a)g(pair)g(of)g(iden)m +(tical)g(resonances,)0 740 y(the)k(join)m(t)f(w)m(eigh)m(t)h(is)f +(instead)1044 948 y(\()p Fj(r)1126 963 y Fl(1)1187 948 +y Fw(+)22 b Fj(r)1329 963 y Fl(2)1369 948 y Fw(\))1407 +907 y Fl(2)1468 948 y Fw(+)g(2\()p Fj(r)1697 963 y Fl(1)1758 +948 y Fw(+)g Fj(r)1900 963 y Fl(2)1940 948 y Fw(\)\()p +Fj(r)2060 963 y Fl(4)2121 948 y Fw(+)g Fj(r)2263 963 +y Fl(5)2303 948 y Fw(\))g(+)g(2)p Fj(r)2554 963 y Fl(4)2593 +948 y Fj(r)2637 963 y Fl(5)2709 948 y Fj(;)870 b Fw(\(93\))0 +1156 y(and)33 b(for)f(a)g(resonance{an)m(tiresonance)i(pair)780 +1364 y(\()p Fj(r)862 1379 y Fl(1)924 1364 y Fw(+)22 b +Fj(r)1066 1379 y Fl(2)1105 1364 y Fw(\)\()p Fj(r)1225 +1379 y Fl(1)1287 1364 y Fw(+)g Fj(r)1429 1379 y Fl(3)1468 +1364 y Fw(\))g(+)g(\(2)p Fj(r)1757 1379 y Fl(1)1818 1364 +y Fw(+)g Fj(r)1960 1379 y Fl(2)2022 1364 y Fw(+)g Fj(r)2164 +1379 y Fl(3)2203 1364 y Fw(\)\()p Fj(r)2323 1379 y Fl(4)2385 +1364 y Fw(+)g Fj(r)2527 1379 y Fl(5)2566 1364 y Fw(\))g(+)g(2)p +Fj(r)2817 1379 y Fl(4)2856 1364 y Fj(r)2900 1379 y Fl(5)2972 +1364 y Fj(:)607 b Fw(\(94\))0 1572 y(If)30 b(some)g(c)m(hannels)h(come) +f(with)g(a)g(reduced)h(w)m(eigh)m(t)g(b)s(ecause)g(of)f(restrictions)g +(on)g(subsequen)m(t)j(deca)m(y)0 1680 y(c)m(hains,)d(this)e(ma)m(y)g(b) +s(e)g(describ)s(ed)i(in)d(terms)i(of)f(prop)s(erly)g(reduced)h +Fj(r)2541 1695 y Fh(i)2570 1680 y Fw(,)g(so)f(that)h(the)f(sum)h(is)f +(less)g(than)0 1788 y(unit)m(y)-8 b(.)47 b(F)-8 b(or)33 +b(instance,)h(in)f(a)h(t)p 1108 1717 38 4 v(t)29 b Fn(!)g +Fw(bW)1459 1752 y Fl(+)p 1536 1709 55 4 v 1536 1788 a +Fw(bW)1691 1752 y Fk(\000)1784 1788 y Fw(pro)s(cess,)36 +b(the)e(W)h(deca)m(y)g(mo)s(des)f(ma)m(y)f(b)s(e)h(restricted)0 +1897 y(to)28 b(W)216 1861 y Fl(+)303 1897 y Fn(!)g Fw(q)p +482 1844 52 4 v(q)h(and)g(W)849 1861 y Fk(\000)936 1897 +y Fn(!)e Fw(e)1106 1861 y Fk(\000)1171 1897 y Fw(\026)-54 +b Fj(\027)1214 1912 y Fl(e)1249 1897 y Fw(,)30 b(in)d(whic)m(h)i(case)g +(\()1930 1830 y Fg(P)2035 1897 y Fj(r)2079 1912 y Fh(i)2107 +1897 y Fw(\))2145 1912 y Fl(t)2204 1897 y Fn(\031)f Fw(2)p +Fj(=)p Fw(3)g(and)g(\()2707 1830 y Fg(P)2811 1897 y Fj(r)2855 +1912 y Fh(i)2884 1897 y Fw(\))p 2922 1869 32 4 v 23 x +Fl(t)2981 1897 y Fn(\031)g Fw(1)p Fj(=)p Fw(9.)41 b(With)28 +b(index)0 2005 y Fn(\006)33 b Fw(denoting)f(resonance/an)m +(tiresonance,)j(eq.)e(\(94\))f(then)h(generalizes)f(to)56 +2213 y(\()p Fj(r)138 2228 y Fl(1)199 2213 y Fw(+)22 b +Fj(r)341 2228 y Fl(2)381 2213 y Fw(\))419 2172 y Fl(+)478 +2213 y Fw(\()p Fj(r)560 2228 y Fl(1)621 2213 y Fw(+)g +Fj(r)763 2228 y Fl(3)803 2213 y Fw(\))841 2172 y Fk(\000)922 +2213 y Fw(+)g(\()p Fj(r)1102 2228 y Fl(1)1163 2213 y +Fw(+)g Fj(r)1305 2228 y Fl(2)1345 2213 y Fw(\))1383 2172 +y Fl(+)1442 2213 y Fw(\()p Fj(r)1524 2228 y Fl(4)1585 +2213 y Fw(+)g Fj(r)1727 2228 y Fl(5)1767 2213 y Fw(\))1805 +2172 y Fk(\000)1886 2213 y Fw(+)g(\()p Fj(r)2066 2228 +y Fl(4)2127 2213 y Fw(+)g Fj(r)2269 2228 y Fl(5)2309 +2213 y Fw(\))2347 2172 y Fl(+)2406 2213 y Fw(\()p Fj(r)2488 +2228 y Fl(1)2549 2213 y Fw(+)g Fj(r)2691 2228 y Fl(3)2730 +2213 y Fw(\))2768 2172 y Fk(\000)2850 2213 y Fw(+)g Fj(r)2995 +2172 y Fl(+)2992 2238 y(4)3053 2213 y Fj(r)3100 2172 +y Fk(\000)3097 2238 y Fl(5)3181 2213 y Fw(+)g Fj(r)3326 +2172 y Fl(+)3323 2238 y(5)3385 2213 y Fj(r)3432 2172 +y Fk(\000)3429 2238 y Fl(4)3523 2213 y Fj(:)56 b Fw(\(95\))0 +2487 y Fp(7.7)135 b(Nonp)t(erturbativ)l(e)46 b(Pro)t(cesses)0 +2660 y Fw(A)31 b(few)h(pro)s(cesses)h(are)e(not)f(co)m(v)m(ered)j(b)m +(y)f(the)g(discussion)f(so)g(far.)43 b(These)32 b(are)f(the)h(ones)g +(that)e(dep)s(end)0 2768 y(on)f(the)g(details)e(of)h(hadronic)g(w)m(a)m +(v)m(e)j(functions,)e(and)g(therefore)g(are)g(not)f(strictly)g +(calculable)f(p)s(ertur-)0 2876 y(bativ)m(ely)g(\(although)f(p)s +(erturbation)g(theory)i(ma)m(y)f(often)g(pro)m(vide)h(some)f +(guidance\).)42 b(What)27 b(w)m(e)h(ha)m(v)m(e)0 2985 +y(primarily)34 b(in)i(mind)f(is)h(elastic)g(scattering,)i(di\013ractiv) +m(e)e(scattering)h(and)g(lo)m(w-)p Fj(p)3026 3000 y Fk(?)3121 +2985 y Fw(`minim)m(um-bias')0 3093 y(ev)m(en)m(ts)i(in)d(hadron{hadron) +h(collisions,)f(but)h(one)g(can)g(also)f(\014nd)h(corresp)s(onding)g +(pro)s(cesses)i(in)d Fj(\015)5 b Fw(p)0 3201 y(and)41 +b Fj(\015)5 b(\015)45 b Fw(in)m(teractions.)67 b(The)41 +b(description)f(of)g(these)i(pro)s(cesses)g(is)e(rather)h(di\013eren)m +(tly)f(structured)0 3310 y(from)h(that)h(of)g(the)h(other)g(ones,)j(as) +c(is)g(explained)g(b)s(elo)m(w.)73 b(Mo)s(dels)43 b(for)f(`minim)m +(um-bias')c(ev)m(en)m(ts)0 3418 y(are)i(discussed)i(in)d(detail)f(in)h +(section)h(11.2,)h(to)f(whic)m(h)g(w)m(e)h(refer)f(for)g(details)f(on)g +(this)h(part)g(of)f(the)0 3526 y(program.)0 3774 y Fo(7.7.1)112 +b(Hadron{hadron)39 b(in)m(teractions)0 3947 y Fw(In)29 +b(hadron{hadron)g(in)m(teractions,)g(the)h(total)d(hadronic)i(cross)h +(section)f(for)g Fj(AB)k Fn(!)28 b Fw(an)m(ything,)i +Fj(\033)3639 3911 y Fh(AB)3635 3972 y Fl(tot)3752 3947 +y Fw(,)0 4055 y(is)46 b(calculated)f(using)i(the)f(parametrization)e +(of)i(Donnac)m(hie)g(and)h(Landsho\013)g([Don92)o(].)85 +b(In)47 b(this)0 4164 y(approac)m(h,)39 b(eac)m(h)g(cross)g(section)e +(app)s(ears)h(as)g(the)g(sum)g(of)f(one)h(p)s(omeron)f(term)g(and)g +(one)h(reggeon)0 4272 y(one)1263 4380 y Fj(\033)1322 +4339 y Fh(AB)1318 4405 y Fl(tot)1435 4380 y Fw(\()p Fj(s)p +Fw(\))28 b(=)f Fj(X)1777 4339 y Fh(AB)1907 4380 y Fj(s)1953 +4339 y Fh(\017)2008 4380 y Fw(+)22 b Fj(Y)2184 4339 y +Fh(AB)2314 4380 y Fj(s)2360 4339 y Fk(\000)p Fh(\021)2490 +4380 y Fj(;)1089 b Fw(\(96\))0 4543 y(where)42 b Fj(s)f +Fw(=)f Fj(E)571 4506 y Fl(2)565 4567 y(cm)660 4543 y +Fw(.)67 b(The)41 b(p)s(o)m(w)m(ers)h Fj(\017)g Fw(=)e(0)p +Fj(:)p Fw(0808)g(and)g Fj(\021)45 b Fw(=)c(0)p Fj(:)p +Fw(4525)e(are)i(exp)s(ected)h(to)e(b)s(e)h(univ)m(ersal,)0 +4651 y(whereas)30 b(the)e(co)s(e\016cien)m(ts)h Fj(X)1106 +4615 y Fh(AB)1248 4651 y Fw(and)f Fj(Y)1511 4615 y Fh(AB)1653 +4651 y Fw(are)g(sp)s(eci\014c)h(to)e(eac)m(h)i(initial)c(state.)42 +b(\(In)28 b(fact,)h(the)g(high-)0 4759 y(energy)k(b)s(eha)m(viour)f +(giv)m(en)g(b)m(y)h(the)g(p)s(omeron)e(term)h(is)f(exp)s(ected)j(to)e +(b)s(e)h(the)f(same)g(for)g(particle)e(and)0 4885 y(an)m(tiparticle)38 +b(in)m(teractions,)k(i.e.)65 b Fj(X)p 1370 4794 53 4 +v 1370 4849 a Fh(AB)1524 4885 y Fw(=)41 b Fj(X)1730 4849 +y Fh(AB)1843 4885 y Fw(.\))66 b(P)m(arametrizations)38 +b(not)i(pro)m(vided)h(in)e([Don92)o(])0 4993 y(ha)m(v)m(e)34 +b(b)s(een)f(calculated)f(in)g(the)h(same)f(spirit,)f(making)h(use)h(of) +f(quark)i(coun)m(ting)e(rules)h([Sc)m(h93a].)146 5102 +y(The)h(total)d(cross)i(section)g(is)f(sub)s(divided)h(according)f(to) +544 5310 y Fj(\033)603 5269 y Fh(AB)599 5334 y Fl(tot)717 +5310 y Fw(\()p Fj(s)p Fw(\))27 b(=)h Fj(\033)1029 5269 +y Fh(AB)1025 5334 y Fl(el)1142 5310 y Fw(\()p Fj(s)p +Fw(\))22 b(+)g Fj(\033)1443 5269 y Fh(AB)1439 5334 y +Fl(sd)q(\()p Fh(X)5 b(B)s Fl(\))1685 5310 y Fw(\()p Fj(s)p +Fw(\))22 b(+)g Fj(\033)1986 5269 y Fh(AB)1982 5334 y +Fl(sd)q(\()p Fh(AX)5 b Fl(\))2225 5310 y Fw(\()p Fj(s)p +Fw(\))22 b(+)g Fj(\033)2526 5269 y Fh(AB)2522 5334 y +Fl(dd)2639 5310 y Fw(\()p Fj(s)p Fw(\))g(+)g Fj(\033)2940 +5269 y Fh(AB)2936 5334 y Fl(nd)3054 5310 y Fw(\()p Fj(s)p +Fw(\))32 b Fj(:)371 b Fw(\(97\))0 5534 y(Here)41 b(`el')g(is)f(the)h +(elastic)e(pro)s(cess)j Fj(AB)47 b Fn(!)41 b Fj(AB)5 +b Fw(,)43 b(`sd\()p Fj(X)8 b(B)d Fw(\)')41 b(the)g(single)f +(di\013ractiv)m(e)g Fj(AB)46 b Fn(!)c Fj(X)8 b(B)d Fw(,)0 +5642 y(`sd\()p Fj(AX)j Fw(\)')35 b(the)g(single)f(di\013ractiv)m(e)g +Fj(AB)i Fn(!)31 b Fj(AX)8 b Fw(,)35 b(`dd')h(the)f(double)f +(di\013ractiv)m(e)g Fj(AB)j Fn(!)30 b Fj(X)3400 5657 +y Fl(1)3440 5642 y Fj(X)3521 5657 y Fl(2)3560 5642 y +Fw(,)35 b(and)1817 5953 y(106)p eop +%%Page: 107 113 +107 112 bop 0 -18 a Fw(`nd')30 b(the)f(non-di\013ractiv)m(e)f(ones.)43 +b(Higher)29 b(di\013ractiv)m(e)f(top)s(ologies,)g(suc)m(h)i(as)g(cen)m +(tral)e(di\013raction,)g(are)0 90 y(curren)m(tly)36 b(neglected.)51 +b(In)35 b(the)h(follo)m(wing,)d(the)i(elastic)f(and)i(di\013ractiv)m(e) +e(cross)i(sections)g(and)f(ev)m(en)m(t)0 198 y(c)m(haracteristics)47 +b(are)f(describ)s(ed,)51 b(as)c(giv)m(en)f(in)g(the)h(mo)s(del)e(b)m(y) +i(Sc)m(h)m(uler)g(and)g(Sj\177)-49 b(ostrand)47 b([Sc)m(h94,)0 +307 y(Sc)m(h93a].)76 b(The)45 b(non-di\013ractiv)m(e)d(comp)s(onen)m(t) +i(is)f(iden)m(ti\014ed)g(with)g(the)h(`minim)m(um)c(bias')j(ph)m(ysics) +0 415 y(already)33 b(men)m(tioned,)g(a)g(practical)f(but)i(not)f(unam)m +(biguous)g(c)m(hoice.)46 b(Its)34 b(cross)h(section)e(is)g(giv)m(en)h +(b)m(y)0 523 y(`whatev)m(er)g(is)e(left')g(according)g(to)g(eq.)i +(\(97\),)e(and)h(its)f(prop)s(erties)g(are)h(discussed)h(in)e(section)h +(11.2.)146 632 y(A)m(t)38 b(not)f(to)s(o)f(large)g(squared)i(momen)m +(tum)e(transfers)h Fj(t)p Fw(,)i(the)e(elastic)f(cross)i(section)g(can) +f(b)s(e)g(ap-)0 740 y(pro)m(ximated)27 b(b)m(y)h(a)f(simple)e(exp)s +(onen)m(tial)i(fall-o\013.)39 b(If)27 b(one)g(neglects)h(the)g(small)d +(real)h(part)h(of)g(the)h(cross)0 848 y(section,)33 b(the)g(optical)e +(theorem)h(then)h(giv)m(es)1412 1046 y(d)p Fj(\033)1521 +1061 y Fl(el)p 1412 1090 165 4 v 1450 1181 a Fw(d)p Fj(t)1615 +1113 y Fw(=)1732 1046 y Fj(\033)1791 1009 y Fl(2)1787 +1070 y(tot)p 1728 1090 157 4 v 1728 1181 a Fw(16)p Fj(\031)1928 +1113 y Fw(exp)q(\()p Fj(B)2189 1128 y Fl(el)2244 1113 +y Fj(t)p Fw(\))g Fj(;)1229 b Fw(\(98\))0 1359 y(and)33 +b Fj(\033)245 1374 y Fl(el)328 1359 y Fw(=)27 b Fj(\033)490 +1323 y Fl(2)486 1384 y(tot)581 1359 y Fj(=)p Fw(16)p +Fj(\031)t(B)861 1374 y Fl(el)916 1359 y Fw(.)43 b(The)34 +b(elastic)d(slop)s(e)h(parameter)g(is)h(parametrized)e(b)m(y)1051 +1569 y Fj(B)1125 1584 y Fl(el)1208 1569 y Fw(=)c Fj(B)1390 +1528 y Fh(AB)1385 1594 y Fl(el)1504 1569 y Fw(\()p Fj(s)p +Fw(\))g(=)h(2)p Fj(b)1847 1584 y Fh(A)1926 1569 y Fw(+)22 +b(2)p Fj(b)2114 1584 y Fh(B)2197 1569 y Fw(+)g(4)p Fj(s)2390 +1528 y Fh(\017)2445 1569 y Fn(\000)h Fw(4)p Fj(:)p Fw(2)32 +b Fj(;)877 b Fw(\(99\))0 1768 y(with)27 b Fj(s)h Fw(giv)m(en)g(in)f +(units)h(of)f(GeV)h(and)g Fj(B)1476 1783 y Fl(el)1559 +1768 y Fw(in)f(GeV)1861 1732 y Fk(\000)p Fl(2)1956 1768 +y Fw(.)41 b(The)29 b(constan)m(ts)h Fj(b)2689 1783 y +Fh(A;B)2850 1768 y Fw(are)e Fj(b)3049 1783 y Fl(p)3120 +1768 y Fw(=)g(2)p Fj(:)p Fw(3,)g Fj(b)3445 1783 y Fh(\031)r(;\032;!)r +(;\036)3704 1768 y Fw(=)0 1877 y(1)p Fj(:)p Fw(4,)43 +b Fj(b)236 1892 y Fl(J)p Fh(= )403 1877 y Fw(=)e(0)p +Fj(:)p Fw(23.)69 b(The)42 b(increase)f(of)g(the)g(slop)s(e)g(parameter) +f(with)h(c.m.)69 b(energy)42 b(is)e(faster)h(than)0 1985 +y(the)32 b(logarithmically)26 b(one)32 b(con)m(v)m(en)m(tionally)f +(assumed;)i(that)f(w)m(a)m(y)g(the)g(ratio)e Fj(\033)2933 +2000 y Fl(el)2989 1985 y Fj(=\033)3093 2000 y Fl(tot)3219 +1985 y Fw(remains)h(w)m(ell-)0 2093 y(b)s(eha)m(v)m(ed)j(at)f(large)e +(energies.)146 2202 y(The)j(di\013ractiv)m(e)e(cross)h(sections)h(are)e +(giv)m(en)h(b)m(y)754 2395 y(d)p Fj(\033)863 2410 y Fl(sd)q(\()p +Fh(X)5 b(B)s Fl(\))1110 2395 y Fw(\()p Fj(s)p Fw(\))p +754 2440 478 4 v 841 2532 a(d)p Fj(t)17 b Fw(d)p Fj(M)1105 +2503 y Fl(2)1324 2463 y Fw(=)1498 2396 y Fj(g)1545 2411 +y Fl(3I)-12 b(P)p 1493 2440 157 4 v 1493 2532 a Fw(16)p +Fj(\031)1676 2463 y(\014)1731 2478 y Fh(A)p Fl(I)g(P)1867 +2463 y Fj(\014)1928 2422 y Fl(2)1922 2488 y Fh(B)s Fl(I)g(P)2118 +2396 y Fw(1)p 2071 2440 145 4 v 2071 2532 a Fj(M)2175 +2503 y Fl(2)2258 2463 y Fw(exp)q(\()p Fj(B)2519 2479 +y Fl(sd\()p Fh(X)5 b(B)s Fl(\))2765 2463 y Fj(t)p Fw(\))17 +b Fj(F)2918 2478 y Fl(sd)3021 2463 y Fj(;)758 2640 y +Fw(d)p Fj(\033)867 2655 y Fl(sd)q(\()p Fh(AX)5 b Fl(\))1110 +2640 y Fw(\()p Fj(s)p Fw(\))p 758 2685 474 4 v 842 2777 +a(d)p Fj(t)17 b Fw(d)p Fj(M)1106 2748 y Fl(2)1324 2708 +y Fw(=)1498 2641 y Fj(g)1545 2656 y Fl(3I)-12 b(P)p 1493 +2685 157 4 v 1493 2777 a Fw(16)p Fj(\031)1676 2708 y(\014)1737 +2667 y Fl(2)1731 2733 y Fh(A)p Fl(I)g(P)1867 2708 y Fj(\014)1922 +2723 y Fh(B)s Fl(I)g(P)2118 2641 y Fw(1)p 2071 2685 145 +4 v 2071 2777 a Fj(M)2175 2748 y Fl(2)2258 2708 y Fw(exp)q(\()p +Fj(B)2519 2724 y Fl(sd\()p Fh(AX)5 b Fl(\))2761 2708 +y Fj(t)p Fw(\))17 b Fj(F)2914 2723 y Fl(sd)3018 2708 +y Fj(;)815 2889 y Fw(d)p Fj(\033)924 2904 y Fl(dd)1007 +2889 y Fw(\()p Fj(s)p Fw(\))p 712 2933 520 4 v 712 3025 +a(d)p Fj(t)g Fw(d)p Fj(M)976 2990 y Fl(2)966 3046 y(1)1033 +3025 y Fw(d)p Fj(M)1191 2990 y Fl(2)1181 3046 y(2)1324 +2956 y Fw(=)1498 2889 y Fj(g)1549 2853 y Fl(2)1545 2913 +y(3I)-12 b(P)p 1493 2933 157 4 v 1493 3025 a Fw(16)p +Fj(\031)1676 2956 y(\014)1731 2971 y Fh(A)p Fl(I)g(P)1867 +2956 y Fj(\014)1922 2971 y Fh(B)s Fl(I)g(P)2118 2889 +y Fw(1)p 2071 2933 145 4 v 2071 3025 a Fj(M)2175 2990 +y Fl(2)2165 3046 y(1)2299 2889 y Fw(1)p 2251 2933 V 2251 +3025 a Fj(M)2355 2990 y Fl(2)2345 3046 y(2)2439 2956 +y Fw(exp)q(\()p Fj(B)2700 2971 y Fl(dd)2782 2956 y Fj(t)p +Fw(\))17 b Fj(F)2935 2971 y Fl(dd)3050 2956 y Fj(:)480 +b Fw(\(100\))146 3227 y(The)36 b(couplings)d Fj(\014)834 +3242 y Fh(A)p Fl(I)-12 b(P)988 3227 y Fw(are)34 b(related)g(to)h(the)g +(p)s(omeron)e(term)h Fj(X)2500 3191 y Fh(AB)2614 3227 +y Fj(s)2660 3191 y Fh(\017)2727 3227 y Fw(of)g(the)h(total)e(cross)i +(section)0 3335 y(parametrization,)j(eq.)j(\(96\).)63 +b(Pic)m(king)39 b(a)g(reference)i(scale)2270 3271 y Fn(p)p +2353 3271 136 4 v 64 x Fj(s)2399 3350 y Fl(ref)2528 3335 +y Fw(=)e(20)g(GeV,)g(the)h(couplings)e(are)0 3457 y(giv)m(en)j(b)m(y)h +Fj(\014)462 3472 y Fh(A)p Fl(I)-12 b(P)580 3457 y Fj(\014)635 +3472 y Fh(B)s Fl(I)g(P)799 3457 y Fw(=)42 b Fj(X)1006 +3421 y Fh(AB)1136 3457 y Fj(s)1182 3421 y Fh(\017)1182 +3481 y Fl(ref)1271 3457 y Fw(.)68 b(The)42 b(triple-p)s(omeron)c +(coupling)i(is)g(determined)h(from)e(single-)0 3576 y(di\013ractiv)m(e) +46 b(data)g(to)h(b)s(e)g Fj(g)1036 3591 y Fl(3I)-12 b(P)1188 +3576 y Fn(\031)53 b Fw(0)p Fj(:)p Fw(318)46 b(m)m(b)1720 +3540 y Fl(1)p Fh(=)p Fl(2)1829 3576 y Fw(;)54 b(within)46 +b(the)h(con)m(text)h(of)e(the)i(form)m(ulae)d(in)h(this)0 +3684 y(section.)146 3792 y(The)38 b(sp)s(ectrum)g(of)e(di\013ractiv)m +(e)h(masses)h Fj(M)48 b Fw(is)36 b(tak)m(en)i(to)f(b)s(egin)g(0.28)f +(GeV)h Fn(\031)f Fw(2)p Fj(m)3279 3807 y Fh(\031)3363 +3792 y Fw(ab)s(o)m(v)m(e)i(the)0 3901 y(mass)31 b(of)f(the)h(resp)s +(ectiv)m(e)i(incoming)28 b(particle)i(and)h(extend)h(to)e(the)i +(kinematical)c(limit.)39 b(The)32 b(simple)0 4009 y(d)p +Fj(M)158 3973 y Fl(2)198 4009 y Fj(=)-5 b(M)346 3973 +y Fl(2)414 4009 y Fw(form)27 b(is)g(mo)s(di\014ed)g(b)m(y)i(the)g +(mass-dep)s(endence)h(in)d(the)i(di\013ractiv)m(e)e(slop)s(es)h(and)g +(in)g(the)g Fj(F)3708 4024 y Fl(sd)0 4117 y Fw(and)33 +b Fj(F)253 4132 y Fl(dd)368 4117 y Fw(factors.)146 4226 +y(The)h(slop)s(e)e(parameters)h(are)f(assumed)h(to)g(b)s(e)1063 +4469 y Fj(B)1137 4484 y Fl(sd\()p Fh(X)5 b(B)s Fl(\))1383 +4469 y Fw(\()p Fj(s)p Fw(\))83 b(=)g(2)p Fj(b)1837 4484 +y Fh(B)1920 4469 y Fw(+)22 b(2)p Fj(\013)2130 4427 y +Fk(0)2169 4469 y Fw(ln)2267 4347 y Fg(\022)2387 4401 +y Fj(s)p 2338 4445 145 4 v 2338 4537 a(M)2442 4508 y +Fl(2)2492 4347 y Fg(\023)2602 4469 y Fj(;)1067 4701 y(B)1141 +4717 y Fl(sd\()p Fh(AX)5 b Fl(\))1383 4701 y Fw(\()p +Fj(s)p Fw(\))83 b(=)g(2)p Fj(b)1837 4716 y Fh(A)1916 +4701 y Fw(+)22 b(2)p Fj(\013)2126 4660 y Fk(0)2165 4701 +y Fw(ln)2263 4580 y Fg(\022)2383 4634 y Fj(s)p 2334 4678 +V 2334 4769 a(M)2438 4741 y Fl(2)2488 4580 y Fg(\023)2599 +4701 y Fj(;)1226 4958 y(B)1300 4973 y Fl(dd)1383 4958 +y Fw(\()p Fj(s)p Fw(\))83 b(=)g(2)p Fj(\013)1859 4917 +y Fk(0)1898 4958 y Fw(ln)1996 4812 y Fg( )2062 4958 y +Fj(e)2107 4917 y Fl(4)2168 4958 y Fw(+)2355 4891 y Fj(ss)2447 +4906 y Fl(0)p 2276 4935 289 4 v 2276 5027 a Fj(M)2380 +4992 y Fl(2)2370 5049 y(1)2421 5027 y Fj(M)2525 4992 +y Fl(2)2515 5049 y(2)2575 4812 y Fg(!)2690 4958 y Fj(:)840 +b Fw(\(101\))0 5236 y(Here)35 b Fj(\013)295 5200 y Fk(0)349 +5236 y Fw(=)c(0)p Fj(:)p Fw(25)j(GeV)857 5200 y Fk(\000)p +Fl(2)986 5236 y Fw(and)h(con)m(v)m(en)m(tionally)f Fj(s)1868 +5251 y Fl(0)1942 5236 y Fw(is)g(pic)m(k)m(ed)i(as)f Fj(s)2513 +5251 y Fl(0)2583 5236 y Fw(=)c(1)p Fj(=\013)2851 5200 +y Fk(0)2874 5236 y Fw(.)49 b(The)36 b(term)e Fj(e)3433 +5200 y Fl(4)3507 5236 y Fw(in)g Fj(B)3697 5251 y Fl(dd)0 +5344 y Fw(is)42 b(added)h(b)m(y)h(hand)f(to)f(a)m(v)m(oid)h(a)f +(breakdo)m(wn)i(of)f(the)g(standard)g(expression)h(for)e(large)f(v)-5 +b(alues)43 b(of)0 5453 y Fj(M)104 5416 y Fl(2)94 5477 +y(1)144 5453 y Fj(M)248 5416 y Fl(2)238 5477 y(2)288 +5453 y Fw(.)j(The)34 b Fj(b)603 5468 y Fh(A;B)770 5453 +y Fw(terms)f(protect)h Fj(B)1453 5468 y Fl(sd)1557 5453 +y Fw(from)e(breaking)h(do)m(wn;)i(ho)m(w)m(ev)m(er)g(a)e(minim)m(um)d +(v)-5 b(alue)33 b(of)g(2)0 5561 y(is)d(still)f(explicitly)g(required)i +(for)f Fj(B)1307 5576 y Fl(sd)1379 5561 y Fw(,)h(whic)m(h)g(comes)g(in) +m(to)f(pla)m(y)h(e.g.)43 b(for)30 b(a)h(J)p Fj(= )k Fw(state)c(\(as)g +(part)f(of)h(a)0 5669 y(VMD)i(photon)f(b)s(eam\).)1817 +5953 y(107)p eop +%%Page: 108 114 +108 113 bop 146 -18 a Fw(The)43 b(kinematical)c(range)j(in)f +Fj(t)h Fw(dep)s(ends)h(on)f(all)e(the)i(masses)h(of)e(the)h(problem.)70 +b(In)42 b(terms)g(of)0 90 y(the)h(scaled)g(v)-5 b(ariables)42 +b Fj(\026)950 105 y Fl(1)1034 90 y Fw(=)j Fj(m)1240 54 +y Fl(2)1240 114 y Fh(A)1298 90 y Fj(=s)p Fw(,)g Fj(\026)1524 +105 y Fl(2)1608 90 y Fw(=)g Fj(m)1814 54 y Fl(2)1814 +114 y Fh(B)1875 90 y Fj(=s)p Fw(,)h Fj(\026)2102 105 +y Fl(3)2186 90 y Fw(=)f Fj(M)2411 54 y Fl(2)2401 117 +y(\(1\))2496 90 y Fj(=s)d Fw(\(=)j Fj(m)2877 54 y Fl(2)2877 +114 y Fh(A)2935 90 y Fj(=s)d Fw(when)i Fj(A)f Fw(scatters)0 +221 y(elastically\),)30 b Fj(\026)577 236 y Fl(4)644 +221 y Fw(=)d Fj(M)851 185 y Fl(2)841 248 y(\(2\))936 +221 y Fj(=s)32 b Fw(\(=)c Fj(m)1290 185 y Fl(2)1290 245 +y Fh(B)1351 221 y Fj(=s)k Fw(when)i Fj(B)j Fw(scatters)d +(elastically\),)c(and)j(the)g(com)m(binations)519 447 +y Fj(C)589 462 y Fl(1)712 447 y Fw(=)82 b(1)22 b Fn(\000)h +Fw(\()p Fj(\026)1138 462 y Fl(1)1199 447 y Fw(+)f Fj(\026)1356 +462 y Fl(2)1417 447 y Fw(+)g Fj(\026)1574 462 y Fl(3)1636 +447 y Fw(+)g Fj(\026)1793 462 y Fl(4)1832 447 y Fw(\))g(+)g(\()p +Fj(\026)2087 462 y Fl(1)2148 447 y Fn(\000)h Fj(\026)2307 +462 y Fl(2)2346 447 y Fw(\)\()p Fj(\026)2481 462 y Fl(3)2542 +447 y Fn(\000)g Fj(\026)2701 462 y Fl(4)2740 447 y Fw(\))32 +b Fj(;)519 617 y(C)589 632 y Fl(2)712 617 y Fw(=)870 +512 y Fg(q)p 953 512 971 4 v 105 x Fw(\(1)22 b Fn(\000)h +Fj(\026)1221 632 y Fl(1)1282 617 y Fn(\000)g Fj(\026)1441 +632 y Fl(2)1480 617 y Fw(\))1518 588 y Fl(2)1579 617 +y Fn(\000)g Fw(4)p Fj(\026)1787 632 y Fl(1)1826 617 y +Fj(\026)1885 632 y Fl(2)1941 512 y Fg(q)p 2024 512 V +105 x Fw(\(1)f Fn(\000)g Fj(\026)2291 632 y Fl(3)2353 +617 y Fn(\000)g Fj(\026)2511 632 y Fl(4)2550 617 y Fw(\))2588 +588 y Fl(2)2650 617 y Fn(\000)g Fw(4)p Fj(\026)2857 632 +y Fl(3)2896 617 y Fj(\026)2955 632 y Fl(4)3027 617 y +Fj(;)519 766 y(C)589 781 y Fl(3)712 766 y Fw(=)82 b(\()p +Fj(\026)967 781 y Fl(3)1029 766 y Fn(\000)22 b Fj(\026)1187 +781 y Fl(1)1226 766 y Fw(\)\()p Fj(\026)1361 781 y Fl(4)1423 +766 y Fn(\000)g Fj(\026)1581 781 y Fl(2)1620 766 y Fw(\))g(+)g(\()p +Fj(\026)1875 781 y Fl(1)1937 766 y Fw(+)g Fj(\026)2094 +781 y Fl(4)2155 766 y Fn(\000)g Fj(\026)2313 781 y Fl(2)2375 +766 y Fn(\000)g Fj(\026)2533 781 y Fl(3)2573 766 y Fw(\)\()p +Fj(\026)2708 781 y Fl(1)2747 766 y Fj(\026)2806 781 y +Fl(4)2867 766 y Fn(\000)g Fj(\026)3025 781 y Fl(2)3065 +766 y Fj(\026)3124 781 y Fl(3)3163 766 y Fw(\))32 b Fj(;)297 +b Fw(\(102\))0 974 y(one)33 b(has)g Fj(t)388 989 y Fl(min)537 +974 y Fj(<)28 b(t)g(<)f(t)842 989 y Fl(max)1011 974 y +Fw(with)887 1207 y Fj(t)922 1222 y Fl(min)1127 1207 y +Fw(=)83 b Fn(\000)1374 1139 y Fj(s)p 1373 1184 49 4 v +1373 1275 a Fw(2)1432 1207 y(\()p Fj(C)1540 1222 y Fl(1)1601 +1207 y Fw(+)22 b Fj(C)1769 1222 y Fl(2)1809 1207 y Fw(\))32 +b Fj(;)873 1455 y(t)908 1470 y Fl(max)1127 1455 y Fw(=)83 +b Fn(\000)1374 1387 y Fj(s)p 1373 1431 V 1373 1523 a +Fw(2)1432 1455 y(\()p Fj(C)1540 1470 y Fl(1)1601 1455 +y Fn(\000)23 b Fj(C)1771 1470 y Fl(2)1810 1455 y Fw(\))28 +b(=)f Fn(\000)2067 1387 y Fj(s)p 2066 1431 V 2066 1523 +a Fw(2)2243 1387 y(4)p Fj(C)2362 1402 y Fl(3)p 2152 1431 +339 4 v 2152 1523 a Fj(C)2222 1538 y Fl(1)2284 1523 y +Fw(+)22 b Fj(C)2452 1538 y Fl(2)2528 1455 y Fw(=)2642 +1387 y Fj(s)2688 1351 y Fl(2)2727 1387 y Fj(C)2797 1402 +y Fl(3)p 2642 1431 195 4 v 2661 1523 a Fj(t)2696 1538 +y Fl(min)2879 1455 y Fj(:)651 b Fw(\(103\))146 1715 y(The)42 +b(Regge)e(form)m(ulae)f(ab)s(o)m(v)m(e)i(for)f(single-)e(and)j +(double-di\013ractiv)m(e)e(ev)m(en)m(ts)k(are)d(supp)s(osed)i(to)0 +1823 y(hold)j(in)g(certain)g(asymptotic)f(regions)i(of)f(the)h(total)e +(phase)i(space.)84 b(Of)45 b(course,)50 b(there)c(will)d(b)s(e)0 +1932 y(di\013raction)26 b(also)i(outside)g(these)h(restrictiv)m(e)f +(regions.)42 b(Lac)m(king)28 b(a)g(theory)h(whic)m(h)f(predicts)h +(di\013eren-)0 2040 y(tial)f(cross)k(sections)f(at)f(arbitrary)g +Fj(t)h Fw(and)f Fj(M)1658 2004 y Fl(2)1729 2040 y Fw(v)-5 +b(alues,)31 b(the)g(Regge)g(form)m(ulae)e(are)h(used)i(ev)m(erywhere,)0 +2148 y(but)i(fudge)h(factors)f(are)g(in)m(tro)s(duced)g(in)g(order)g +(to)g(obtain)f(`sensible')h(b)s(eha)m(viour)g(in)g(the)g(full)f(phase)0 +2257 y(space.)45 b(These)34 b(factors)f(are:)890 2534 +y Fj(F)953 2549 y Fl(sd)1108 2534 y Fw(=)1268 2387 y +Fg( )1334 2534 y Fw(1)22 b Fn(\000)1514 2466 y Fj(M)1618 +2430 y Fl(2)p 1514 2510 145 4 v 1563 2602 a Fj(s)1668 +2387 y Fg(!)17 b( )1817 2534 y Fw(1)k(+)2053 2466 y Fj(c)2095 +2481 y Fl(res)2202 2466 y Fj(M)2306 2430 y Fl(2)2296 +2491 y(res)p 1995 2510 450 4 v 1995 2602 a Fj(M)2099 +2573 y Fl(2)2089 2627 y(res)2203 2602 y Fw(+)h Fj(M)2405 +2573 y Fl(2)2455 2387 y Fg(!)2570 2534 y Fj(;)879 2825 +y(F)942 2840 y Fl(dd)1108 2825 y Fw(=)1268 2679 y Fg( )1334 +2825 y Fw(1)g Fn(\000)1514 2758 y Fw(\()p Fj(M)1646 2773 +y Fl(1)1708 2758 y Fw(+)g Fj(M)1900 2773 y Fl(2)1940 +2758 y Fw(\))1978 2709 y Fl(2)p 1514 2802 504 4 v 1743 +2893 a Fj(s)2027 2679 y Fg(!)17 b( )2398 2751 y Fj(s)g(m)2546 +2715 y Fl(2)2546 2776 y(p)p 2185 2802 617 4 v 2185 2893 +a Fj(s)g(m)2333 2865 y Fl(2)2333 2918 y(p)2399 2893 y +Fw(+)22 b Fj(M)2601 2859 y Fl(2)2591 2915 y(1)2658 2893 +y Fj(M)2762 2859 y Fl(2)2752 2915 y(2)2812 2679 y Fg(!)1108 +3114 y Fn(\002)1268 2967 y Fg( )1334 3114 y Fw(1)g(+)1570 +3046 y Fj(c)1612 3061 y Fl(res)1720 3046 y Fj(M)1824 +3010 y Fl(2)1814 3071 y(res)p 1513 3090 450 4 v 1513 +3182 a Fj(M)1617 3153 y Fl(2)1607 3207 y(res)1720 3182 +y Fw(+)g Fj(M)1922 3148 y Fl(2)1912 3204 y(1)1972 2967 +y Fg(!)17 b( )2120 3114 y Fw(1)22 b(+)2357 3046 y Fj(c)2399 +3061 y Fl(res)2506 3046 y Fj(M)2610 3010 y Fl(2)2600 +3071 y(res)p 2299 3090 V 2299 3182 a Fj(M)2403 3153 y +Fl(2)2393 3207 y(res)2507 3182 y Fw(+)g Fj(M)2709 3148 +y Fl(2)2699 3204 y(2)2759 2967 y Fg(!)2874 3114 y Fj(:)656 +b Fw(\(104\))0 3390 y(The)33 b(\014rst)g(factor)f(in)g(either)g +(expression)i(suppresses)h(pro)s(duction)d(close)g(to)g(the)h +(kinematical)d(limit.)0 3499 y(The)49 b(second)h(factor)e(in)g +Fj(F)1035 3514 y Fh(dd)1160 3499 y Fw(suppresses)k(con\014gurations)c +(where)h(the)g(t)m(w)m(o)g(di\013ractiv)m(e)f(systems)0 +3607 y(o)m(v)m(erlap)34 b(in)f(rapidit)m(y)g(space.)48 +b(The)35 b(\014nal)e(factors)h(giv)m(e)g(an)f(enhancemen)m(t)j(of)d +(the)h(lo)m(w-mass)f(region,)0 3715 y(where)38 b(a)f(resonance)h +(structure)g(is)f(observ)m(ed)i(in)d(the)h(data.)56 b(Clearly)36 +b(a)h(more)f(detailed)g(mo)s(delling)0 3824 y(w)m(ould)47 +b(ha)m(v)m(e)h(to)e(b)s(e)h(based)h(on)e(a)h(set)g(of)g(exclusiv)m(e)g +(states)h(rather)f(than)g(on)f(this)h(smeared-out)0 3932 +y(a)m(v)m(eraging)34 b(pro)s(cedure.)49 b(A)35 b(reasonable)f(\014t)g +(to)g(pp)p Fj(=)p 1924 3879 55 4 v Fw(pp)h(data)f(is)f(obtained)h(for)g +Fj(c)2986 3947 y Fl(res)3107 3932 y Fw(=)d(2)j(and)g +Fj(M)3582 3947 y Fl(res)3704 3932 y Fw(=)0 4040 y(2)c(GeV,)h(for)f(an)g +(arbitary)g(particle)f Fj(A)h Fw(whic)m(h)h(is)f(di\013ractiv)m(ely)g +(excited)h(w)m(e)h(use)f Fj(M)3089 4004 y Fh(A)3079 4065 +y Fl(res)3198 4040 y Fw(=)d Fj(m)3387 4055 y Fh(A)3462 +4040 y Fn(\000)18 b Fj(m)3642 4055 y Fl(p)3704 4040 y +Fw(+)0 4149 y(2)32 b(GeV.)146 4257 y(The)46 b(di\013ractiv)m(e)d +(cross-section)i(form)m(ulae)e(ab)s(o)m(v)m(e)i(ha)m(v)m(e)h(b)s(een)f +(in)m(tegrated)f(for)g(a)g(set)h(of)f(c.m.)0 4365 y(energies,)54 +b(starting)49 b(at)g(10)g(GeV,)g(and)h(the)g(results)f(ha)m(v)m(e)i(b)s +(een)f(parametrized.)93 b(The)51 b(form)d(of)0 4474 y(these)34 +b(parametrizations)c(is)i(giv)m(en)g(in)g(ref.)43 b([Sc)m(h94)q(],)32 +b(with)g(explicit)f(n)m(um)m(b)s(ers)i(for)f(the)h(pp)p +Fj(=)p 3438 4421 V Fw(pp)f(case.)0 4582 y Fm(Pythia)42 +b Fw(also)f(con)m(tains)h(similar)c(parametrizations)i(for)h +Fj(\031)t Fw(p)h(\(assumed)g(to)g(b)s(e)g(same)f(as)h +Fj(\032)p Fw(p)g(and)0 4690 y Fj(!)t Fw(p\),)32 b Fj(\036)p +Fw(p,)h(J)p Fj(= )t Fw(p,)f Fj(\032\032)h Fw(\()p Fj(\031)t(\031)k +Fw(etc.\),)c Fj(\032\036)p Fw(,)g Fj(\032)p Fw(J)p Fj(= )t +Fw(,)f Fj(\036\036)p Fw(,)h Fj(\036)p Fw(J)p Fj(= )j +Fw(and)c(J)p Fj(= )t Fw(J)p Fj(= )t Fw(.)146 4799 y(The)c(pro)s(cesses) +h(ab)s(o)m(v)m(e)f(do)f(not)g(ob)s(ey)h(the)f(ordinary)f(ev)m(en)m(t)j +(mixing)c(strategy)-8 b(.)42 b(First)26 b(of)h(all,)f(since)0 +4907 y(their)h(total)f(cross)i(sections)g(are)g(kno)m(wn,)i(it)c(is)h +(p)s(ossible)g(to)g(pic)m(k)h(the)g(appropriate)e(pro)s(cess)j(from)d +(the)0 5015 y(start,)39 b(and)f(then)g(remain)e(with)h(that)g(c)m +(hoice.)59 b(In)38 b(other)g(w)m(ords,)i(if)c(the)i(selection)f(of)g +(kinematical)0 5124 y(v)-5 b(ariables)39 b(fails,)i(one)g(w)m(ould)g +(not)f(go)g(bac)m(k)i(and)e(pic)m(k)h(a)g(new)g(pro)s(cess,)j(the)d(w)m +(a)m(y)h(it)e(w)m(as)h(done)g(in)0 5232 y(section)35 +b(7.4.4.)51 b(Second,)37 b(it)d(is)h(not)g(p)s(ossible)f(to)h(imp)s +(ose)f(an)m(y)i(cuts)g(or)f(restrain)f(allo)m(w)m(ed)h(incoming)0 +5340 y(or)k(outgoing)f(\015a)m(v)m(ours:)59 b(if)38 b(not)i(additional) +c(information)h(w)m(ere)k(to)e(b)s(e)h(pro)m(vided,)h(it)e(w)m(ould)g +(mak)m(e)0 5449 y(the)e(whole)g(scenario)g(ill-de\014ned.)54 +b(Third,)38 b(it)e(is)h(not)f(recommended)h(to)g(mix)f(generation)g(of) +g(these)0 5557 y(pro)s(cesses)g(with)d(that)h(of)f(an)m(y)h(of)g(the)g +(other)g(ones:)46 b(normally)32 b(the)i(other)g(pro)s(cesses)i(ha)m(v)m +(e)f(so)f(small)0 5665 y(cross)h(sections)g(that)f(they)i(w)m(ould)e +(almost)f(nev)m(er)j(b)s(e)e(generated)h(an)m(yw)m(a)m(y)-8 +b(.)51 b(\(W)-8 b(e)35 b(here)g(exclude)g(the)1817 5953 +y(108)p eop +%%Page: 109 115 +109 114 bop 0 -18 a Fw(cases)37 b(of)e(`underlying)g(ev)m(en)m(ts')i +(and)f(`pile-up)e(ev)m(en)m(ts',)k(where)f(mixing)c(is)i(pro)m(vided)h +(for,)f(and)h(ev)m(en)0 90 y(is)c(a)g(cen)m(tral)h(part)f(of)g(the)h +(formalism,)c(see)34 b(sections)f(11.2)f(and)h(11.3.\))146 +198 y(Once)40 b(the)f(cross-section)h(parametrizations)d(has)i(b)s(een) +h(used)g(to)e(pic)m(k)h(one)h(of)e(the)h(pro)s(cesses,)0 +307 y(the)33 b(v)-5 b(ariables)31 b Fj(t)i Fw(and)g Fj(M)43 +b Fw(are)33 b(selected)g(according)f(to)g(the)h(form)m(ulae)e(giv)m(en) +i(ab)s(o)m(v)m(e.)146 415 y(A)j Fj(\032)305 379 y Fl(0)381 +415 y Fw(formed)f(b)m(y)i Fj(\015)i Fn(!)33 b Fj(\032)1124 +379 y Fl(0)1200 415 y Fw(in)i(elastic)g(or)h(di\013ractiv)m(e)f +(scattering)h(is)f(p)s(olarized,)h(and)g(therefore)0 +523 y(its)e(deca)m(y)i(angular)d(distribution)g(in)h +Fj(\032)1465 487 y Fl(0)1535 523 y Fn(!)d Fj(\031)1725 +487 y Fl(+)1784 523 y Fj(\031)1843 487 y Fk(\000)1936 +523 y Fw(is)k(tak)m(en)g(to)f(b)s(e)h(prop)s(ortional)d(to)i(sin)3364 +483 y Fl(2)3420 523 y Fj(\022)s Fw(,)h(where)0 632 y(the)e(reference)h +(axis)f(is)f(giv)m(en)g(b)m(y)i(the)f Fj(\032)1482 595 +y Fl(0)1554 632 y Fw(direction)f(of)g(motion.)146 740 +y(A)43 b(ligh)m(t)e(di\013ractiv)m(e)g(system,)46 b(with)c(a)g(mass)h +(less)g(than)f(1)g(GeV)h(ab)s(o)m(v)m(e)g(the)g(mass)f(of)g(the)h(in-)0 +848 y(coming)30 b(particle,)h(is)g(allo)m(w)m(ed)g(to)h(deca)m(y)h +(isotropically)c(in)m(to)i(a)g(t)m(w)m(o-b)s(o)s(dy)h(state.)44 +b(Single-resonance)0 957 y(di\013ractiv)m(e)39 b(states,)j(suc)m(h)f +(as)e(a)h(\001)1301 920 y Fl(+)1360 957 y Fw(,)h(are)f(therefore)g(not) +f(explicily)f(generated,)k(but)d(are)h(assumed)0 1065 +y(describ)s(ed)33 b(in)f(an)h(a)m(v)m(erage,)g(smeared-out)g(sense.)146 +1173 y(A)24 b(more)f(massiv)m(e)h(di\013ractiv)m(e)f(system)h(is)f +(subsequen)m(tly)k(treated)d(as)g(a)f(string)g(with)g(the)h(quan)m(tum) +0 1282 y(n)m(um)m(b)s(ers)h(of)f(the)h(original)c(hadron.)41 +b(Since)24 b(the)h(exact)g(nature)g(of)f(the)h(p)s(omeron)e(exc)m +(hanged)j(b)s(et)m(w)m(een)0 1390 y(the)49 b(hadrons)f(is)g(unkno)m +(wn,)54 b(t)m(w)m(o)49 b(alternativ)m(es)f(are)g(included.)91 +b(In)48 b(the)h(\014rst,)k(the)c(p)s(omeron)e(is)0 1498 +y(assumed)28 b(to)f(couple)g(to)g(\(v)-5 b(alence\))28 +b(quarks,)h(so)f(that)f(the)h(string)f(is)g(stretc)m(hed)i(directly)e +(b)s(et)m(w)m(een)i(the)0 1607 y(struc)m(k)j(quark)g(and)e(the)i +(remnan)m(t)e(diquark)h(\(an)m(tiquark\))f(of)h(the)g(di\013ractiv)m(e) +f(state.)43 b(In)31 b(the)g(second,)0 1715 y(the)f(in)m(teraction)e(is) +h(rather)h(with)f(a)g(gluon,)h(giving)e(rise)h(to)g(a)g(`hairpin')g +(con\014guration)f(in)h(whic)m(h)h(the)0 1823 y(string)g(is)g(stretc)m +(hed)i(from)d(a)h(quark)i(to)e(a)g(gluon)f(and)i(then)g(bac)m(k)g(to)f +(a)g(diquark)h(\(an)m(tiquark\).)43 b(Both)0 1932 y(of)30 +b(these)h(scenarios)f(could)g(b)s(e)g(presen)m(t)i(in)e(the)g(data;)h +(the)f(default)g(c)m(hoice)g(is)g(to)g(mix)e(them)i(in)g(equal)0 +2040 y(prop)s(ortions.)146 2148 y(There)45 b(is)e(exp)s(erimen)m(tal)g +(supp)s(ort)h(for)f(more)g(complicated)f(scenarios)i([Ing85],)j +(wherein)d(the)0 2257 y(p)s(omeron)38 b(has)h(a)f(partonic)g +(substructure,)43 b(whic)m(h)c(e.g.)62 b(can)39 b(lead)f(to)g(high-)p +Fj(p)2950 2272 y Fk(?)3047 2257 y Fw(jet)g(pro)s(duction)g(in)0 +2365 y(the)33 b(di\013ractiv)m(e)f(system.)44 b(The)33 +b(full)e(mac)m(hinery)-8 b(,)32 b(wherein)h(a)f(p)s(omeron)f(sp)s +(ectrum)i(is)f(folded)g(with)g(a)0 2473 y(p)s(omeron-proton)f(hard)i +(in)m(teraction,)e(is)h(not)h(a)m(v)-5 b(ailable)30 b(in)i +Fm(Pythia)p Fw(.)0 2717 y Fo(7.7.2)112 b(Photopro)s(duction)37 +b(and)h Fj(\015)5 b(\015)43 b Fo(ph)m(ysics)0 2890 y +Fw(The)35 b(photopro)s(duction)f(part)g(is)g(still)e(under)j(activ)m(e) +g(dev)m(elopmen)m(t.)50 b(Curren)m(tly)35 b(only)f(in)m(teractions)0 +2998 y(b)s(et)m(w)m(een)27 b(a)e(hadron)h(and)f(a)g(real)f(photon)h(ha) +m(v)m(e)i(b)s(een)f(studied)g(in)e(detail.)39 b Fj(\015)5 +b(\015)31 b Fw(ph)m(ysics)26 b(is)f(under)h(study)0 3106 +y([Sc)m(h94a],)32 b(and)f(is)g(no)m(w)h(preliminarily)27 +b(included)k(for)f(real)h(photons.)43 b(Deep)32 b(inelastic)e +(scattering)h(on)0 3215 y(a)i(real)f(photon)h(is)g(also)f +(preliminarily)c(included.)45 b(In)33 b(the)h(future)f(it)f(is)h(hop)s +(ed)g(to)g(add)g(in)m(teractions)0 3323 y(of)i(mildly)e(virtual)h +(photons)j(\(the)f(transition)e(region)h(b)s(et)m(w)m(een)i(real)e +(photons)i(and)e(deep)i(inelastic)0 3431 y(scattering\).)146 +3540 y(The)d(total)d Fj(\015)5 b Fw(p)32 b(and)h Fj(\015)5 +b(\015)37 b Fw(cross)c(sections)g(can)g(again)e(b)s(e)i(parametrized)e +(in)h(a)g(form)f(lik)m(e)h(eq.)h(\(96\),)0 3648 y(whic)m(h)27 +b(is)f(not)h(so)g(ob)m(vious)g(since)g(the)g(photon)g(has)g(more)f +(complicated)f(structure)j(than)f(an)f(ordinary)0 3756 +y(hadron.)43 b(In)30 b(fact,)h(the)f(structure)h(is)f(still)e(not)i(so) +g(w)m(ell)f(understo)s(o)s(d.)43 b(The)31 b(mo)s(del)e(w)m(e)i(outline) +d(is)i(the)0 3865 y(one)i(studied)g(b)m(y)g(Sc)m(h)m(uler)g(and)g +(Sj\177)-49 b(ostrand)32 b([Sc)m(h93,)g(Sc)m(h93a].)43 +b(In)32 b(this)f(mo)s(del)f(the)i(ph)m(ysical)f(photon)0 +3973 y(is)h(represen)m(ted)j(b)m(y)484 4184 y Fn(j)p +Fj(\015)5 b Fn(i)27 b Fw(=)738 4078 y Fg(q)p 821 4078 +107 4 v 106 x Fj(Z)888 4199 y Fl(3)943 4184 y Fn(j)p +Fj(\015)1022 4199 y Fh(B)1082 4184 y Fn(i)22 b Fw(+)1406 +4101 y Fg(X)1241 4291 y Fh(V)16 b Fl(=)p Fh(\032)1389 +4272 y Ff(0)1424 4291 y Fh(;!)r(;\036;)p Fl(J)p Fh(= )1749 +4117 y Fj(e)p 1717 4161 110 4 v 1717 4253 a(f)1765 4268 +y Fh(V)1853 4184 y Fn(j)p Fj(V)21 b Fn(i)h Fw(+)2169 +4117 y Fj(e)p 2128 4161 127 4 v 2128 4253 a(f)2176 4268 +y Fl(q)p 2213 4229 38 4 v(q)2281 4184 y Fn(j)p Fw(q)p +2360 4131 52 4 v(q)q Fn(i)g Fw(+)2629 4101 y Fg(X)2571 +4286 y Fh(`)p Fl(=e)p Fh(;\026;\034)2865 4117 y Fj(e)p +2833 4161 110 4 v 2833 4253 a(f)2881 4268 y Fh(``)2970 +4184 y Fn(j)p Fj(`)3039 4143 y Fl(+)3097 4184 y Fj(`)3138 +4143 y Fk(\000)3197 4184 y Fn(i)32 b Fj(:)262 b Fw(\(105\))146 +4463 y(By)35 b(virtue)g(of)f(this)g(sup)s(erp)s(osition,)h(one)g(is)f +(led)g(to)g(a)g(mo)s(del)f(of)i Fj(\015)5 b Fw(p)34 b(in)m(teractions,) +h(where)h(three)0 4572 y(di\013eren)m(t)d(kinds)g(of)f(ev)m(en)m(ts)j +(ma)m(y)d(b)s(e)h(distinguished:)145 4685 y Fn(\017)49 +b Fw(Direct)36 b(ev)m(en)m(ts,)41 b(wherein)d(the)g(bare)f(photon)h +Fn(j)p Fj(\015)2051 4700 y Fh(B)2110 4685 y Fn(i)f Fw(in)m(teracts)h +(directly)f(with)g(a)g(parton)g(from)244 4793 y(the)j(proton.)63 +b(The)41 b(pro)s(cess)f(is)f(p)s(erturbativ)m(ely)h(calculable,)f(and)g +(no)h(parton)f(distributions)244 4901 y(of)e(the)i(photon)f(are)g(in)m +(v)m(olv)m(ed.)61 b(The)38 b(t)m(ypical)g(ev)m(en)m(t)i(structure)f(is) +f(t)m(w)m(o)g(high-)p Fj(p)3252 4916 y Fk(?)3348 4901 +y Fw(jets)h(and)f(a)244 5010 y(proton)32 b(remnan)m(t,)h(while)f(the)h +(photon)f(do)s(es)h(not)g(lea)m(v)m(e)g(b)s(ehind)f(an)m(y)h(remnan)m +(t.)145 5128 y Fn(\017)49 b Fw(VMD)33 b(ev)m(en)m(ts,)j(in)d(whic)m(h)h +(the)g(photon)f(\015uctuates)i(in)m(to)d(a)h(v)m(ector)i(meson,)f +(predominan)m(tly)e(a)244 5236 y Fj(\032)294 5200 y Fl(0)334 +5236 y Fw(.)41 b(All)26 b(the)i(ev)m(en)m(t)h(classes)g(kno)m(wn)g +(from)d(ordinary)h(hadron{hadron)g(in)m(teractions)g(ma)m(y)g(th)m(us) +244 5344 y(o)s(ccur)38 b(here,)j(suc)m(h)f(as)e(elastic,)h +(di\013ractiv)m(e,)g(lo)m(w-)p Fj(p)2160 5359 y Fk(?)2256 +5344 y Fw(and)g(high-)p Fj(p)2719 5359 y Fk(?)2815 5344 +y Fw(ev)m(en)m(ts.)62 b(F)-8 b(or)38 b(the)g(latter,)244 +5453 y(one)45 b(ma)m(y)f(de\014ne)i(\(VMD\))e(parton)g(distributions)f +(of)h(the)h(photon,)i(and)e(the)g(photon)f(also)244 5561 +y(lea)m(v)m(es)35 b(b)s(ehind)f(a)g(b)s(eam)f(remnan)m(t.)49 +b(This)34 b(remnan)m(t)g(is)g(smeared)g(in)g(transv)m(erse)i(momen)m +(tum)244 5669 y(b)m(y)d(a)g(t)m(ypical)e(`primordial)e +Fj(k)1335 5684 y Fk(?)1394 5669 y Fw(')k(of)f(a)g(few)h(h)m(undred)h +(MeV.)1817 5953 y(109)p eop +%%Page: 110 116 +110 115 bop 145 -18 a Fn(\017)49 b Fw(Anomalous)29 b(ev)m(en)m(ts,)k +(in)c(whic)m(h)i(the)f(photon)g(\015uctuates)i(in)m(to)d(a)h(q)p +2719 -71 52 4 v(q)h(pair)e(of)g(larger)g(virtualit)m(y)244 +90 y(than)37 b(in)f(the)h(VMD)g(class.)57 b(This)37 b(pro)s(cess)h(is)e +(p)s(erturbativ)m(ely)h(calculable,)f(as)i(is)e(the)h(subse-)244 +198 y(quen)m(t)j(QCD)e(ev)m(olution.)60 b(It)39 b(giv)m(es)g(rise)f(to) +g(the)h(so-called)e(anomalous)g(part)h(of)g(the)h(parton)244 +307 y(distributions)32 b(ofthe)i(photon,)h(whence)g(the)g(name)e(for)g +(the)i(class.)47 b(It)34 b(is)g(assumed)g(that)g(only)244 +415 y(high-)p Fj(p)511 430 y Fk(?)601 415 y Fw(ev)m(en)m(ts)h(ma)m(y)e +(o)s(ccur.)44 b(Either)33 b(the)g(q)g(or)f(the)p 2250 +362 V 34 w(q)h(pla)m(ys)g(the)g(r^)-49 b(ole)32 b(of)g(a)g(b)s(eam)g +(remnan)m(t,)244 523 y(but)f(this)f(remnan)m(t)h(has)g(a)g(larger)f +Fj(p)1571 538 y Fk(?)1660 523 y Fw(than)h(in)f(the)i(VMD)e(case,)j +(related)d(to)h(the)g(virtualit)m(y)e(of)244 632 y(the)k +Fj(\015)g Fn($)27 b Fw(q)p 674 579 V(q)33 b(\015uctuation.)0 +745 y(The)44 b Fn(j)p Fj(`)280 708 y Fl(+)339 745 y Fj(`)380 +708 y Fk(\000)439 745 y Fn(i)e Fw(states)i(can)g(only)e(in)m(teract)h +(strongly)g(with)g(partons)g(inside)g(the)g(hadron)g(at)g(higher)0 +853 y(orders,)33 b(and)g(can)g(therefore)g(b)s(e)g(neglected.)146 +961 y(In)28 b(order)f(that)g(the)h(ab)s(o)m(v)m(e)g(classi\014cation)e +(is)h(smo)s(oth)f(and)h(free)h(of)f(double)g(coun)m(ting,)h(one)f(has)h +(to)0 1070 y(in)m(tro)s(duce)g(scales)h(that)e(separate)i(the)g(three)f +(comp)s(onen)m(ts.)43 b(The)29 b(main)d(one)j(is)e Fj(p)3018 +1085 y Fl(0)3058 1070 y Fw(,)i(whic)m(h)f(separates)0 +1178 y(the)38 b(lo)m(w-mass)f(v)m(ector)h(meson)g(region)e(from)h(the)g +(high-mass)g Fn(j)p Fw(q)p 2441 1125 V(q)p Fn(i)h Fw(one,)h +Fj(p)2830 1193 y Fl(0)2905 1178 y Fn(\031)e Fj(m)3104 +1193 y Fh(\036)3150 1178 y Fj(=)p Fw(2)f Fn(\031)g Fw(0)p +Fj(:)p Fw(5)h(GeV.)0 1286 y(Since)23 b(it)g(is)g(the)g(same)h +Fj(\015)5 b Fw(q)p 924 1233 V(q)24 b(v)m(ertex)h(that)e(is)g(resp)s +(onsible)g(for)g(the)h(bare)f Fj(\015)5 b Fw(p)24 b(in)m(teractions,)g +Fj(p)3306 1301 y Fl(0)3369 1286 y Fw(is)f(also)f(the)0 +1395 y(lo)m(w)m(er)29 b(cut-o\013)f(of)g(the)h(photon{parton)f(cross)i +(sections.)42 b(In)29 b(addition,)f(a)g Fj(p)2770 1410 +y Fk(?)p Fl(min)2975 1395 y Fw(cut-o\013)h(is)f(needed)i(to)0 +1503 y(separate)e(lo)m(w-)p Fj(p)606 1518 y Fk(?)691 +1503 y Fw(and)f(high-)p Fj(p)1142 1518 y Fk(?)1226 1503 +y Fw(ph)m(ysics;)k(see)d(section)f(11.2.)41 b(As)28 b(it)d(turns)j +(out,)g(somewhat)f(di\013eren)m(t)0 1611 y Fj(p)49 1626 +y Fk(?)p Fl(min)255 1611 y Fw(v)-5 b(alues)30 b(are)f(needed)j(for)d +(the)h(VMD)f(and)h(anomalous)e(parts;)j(at)e(least)g(qualitativ)m(ely)f +(this)h(can)0 1720 y(b)s(e)k(understo)s(o)s(d)g(in)f(terms)g(of)g +(di\013eren)m(t)h(sizes)g(of)f(the)h(w)m(a)m(v)m(e)i(functions.)146 +1828 y(The)g(VMD)f(and)g(anomalous)e(ev)m(en)m(ts)k(are)e(together)g +(called)f(resolv)m(ed)i(ones.)48 b(In)34 b(terms)g(of)g(high-)0 +1936 y Fj(p)49 1951 y Fk(?)144 1936 y Fw(jet)h(pro)s(duction,)h(the)g +(VMD)g(and)g(anomalous)e(con)m(tributions)h(can)h(b)s(e)f(com)m(bined)h +(in)m(to)f(a)g(total)0 2045 y(resolv)m(ed)40 b(one,)i(and)e(the)f(same) +h(for)f(parton-distribution)e(functions.)64 b(Ho)m(w)m(ev)m(er,)43 +b(the)d(t)m(w)m(o)h(classes)0 2153 y(di\013er)32 b(in)g(the)h +(structure)h(of)e(the)h(underlying)f(ev)m(en)m(t)i(and)f(in)f(the)h +(app)s(earance)g(of)f(soft)g(pro)s(cesses.)146 2261 y(In)h(terms)g(of)f +(cross)h(sections,)h(eq.)f(\(105\))f(corresp)s(onds)i(to)1053 +2464 y Fj(\033)1112 2416 y Fh(\015)t Fl(p)1108 2483 y(tot)1203 +2464 y Fw(\()p Fj(s)p Fw(\))27 b(=)h Fj(\033)1515 2416 +y Fh(\015)t Fl(p)1511 2489 y(dir)1602 2464 y Fw(\()p +Fj(s)p Fw(\))22 b(+)g Fj(\033)1903 2416 y Fh(\015)t Fl(p)1899 +2488 y(VMD)2075 2464 y Fw(\()p Fj(s)p Fw(\))g(+)g Fj(\033)2376 +2423 y Fh(\015)t Fl(p)2372 2488 y(anom)2545 2464 y Fw(\()p +Fj(s)p Fw(\))32 b Fj(:)831 b Fw(\(106\))146 2666 y(The)34 +b(direct)f(cross)i(section)e(is,)g(to)g(lo)m(w)m(est)g(order,)h(the)g +(p)s(erturbativ)m(e)f(cross)h(section)g(for)e(the)i(t)m(w)m(o)0 +2774 y(pro)s(cesses)39 b Fj(\015)5 b Fw(q)35 b Fn(!)f +Fw(qg)k(and)f Fj(\015)5 b Fw(g)36 b Fn(!)e Fw(q)p 1360 +2721 V(q)q(,)k(with)e(a)g(lo)m(w)m(er)h(cut-o\013)f Fj(p)2406 +2789 y Fk(?)2500 2774 y Fj(>)f(p)2660 2789 y Fl(0)2699 +2774 y Fw(.)56 b(Prop)s(erly)36 b(sp)s(eaking,)i(this)0 +2883 y(should)32 b(b)s(e)h(m)m(ultiplied)d(b)m(y)j(the)g +Fj(Z)1276 2898 y Fl(3)1348 2883 y Fw(co)s(e\016cien)m(t,)708 +3170 y Fj(Z)775 3185 y Fl(3)842 3170 y Fw(=)27 b(1)22 +b Fn(\000)1280 3087 y Fg(X)1116 3276 y Fh(V)15 b Fl(=)p +Fh(\032)1263 3258 y Ff(0)1298 3276 y Fh(;!)r(;\036;)p +Fl(J)p Fh(= )1582 3024 y Fg( )1689 3103 y Fj(e)p 1657 +3147 110 4 v 1657 3238 a(f)1705 3253 y Fh(V)1776 3024 +y Fg(!)1842 3047 y Fl(2)1904 3170 y Fn(\000)2003 3024 +y Fg( )2120 3103 y Fj(e)p 2079 3147 127 4 v 2079 3238 +a(f)2127 3253 y Fl(q)p 2164 3215 38 4 v(q)2216 3024 y +Fg(!)2281 3047 y Fl(2)2343 3170 y Fn(\000)2500 3087 y +Fg(X)2443 3272 y Fh(`)p Fl(=e)p Fh(;\026;\034)2695 3024 +y Fg( )2803 3103 y Fj(e)p 2771 3147 110 4 v 2771 3238 +a(f)2819 3253 y Fh(``)2890 3024 y Fg(!)2956 3047 y Fl(2)3045 +3170 y Fj(;)485 b Fw(\(107\))0 3473 y(but)33 b(normally)d +Fj(Z)655 3488 y Fl(3)727 3473 y Fw(is)i(so)h(close)f(to)g(unit)m(y)h +(as)g(to)f(mak)m(e)h(no)f(di\013erence.)146 3581 y(The)h(VMD)g(factor)e +(\()p Fj(e=f)1074 3596 y Fh(V)1135 3581 y Fw(\))1173 +3545 y Fl(2)1240 3581 y Fw(=)d(4)p Fj(\031)t(\013)1514 +3596 y Fl(em)1608 3581 y Fj(=f)1716 3545 y Fl(2)1705 +3606 y Fh(V)1798 3581 y Fw(giv)m(es)k(the)h(probabilit)m(y)d(for)i(the) +g(transition)f Fj(\015)i Fn(!)27 b Fj(V)21 b Fw(.)0 3689 +y(The)34 b(co)s(e\016cien)m(ts)h Fj(f)755 3653 y Fl(2)744 +3714 y Fh(V)805 3689 y Fj(=)p Fw(4)p Fj(\031)i Fw(are)d(determined)f +(from)f(data)i(to)f(b)s(e)g(\(with)h(a)f(non-negligible)d(amoun)m(t)j +(of)0 3798 y(uncertain)m(t)m(y\))g(2.20)f(for)f Fj(\032)959 +3762 y Fl(0)999 3798 y Fw(,)h(23.6)g(for)g Fj(!)t Fw(,)f(18.4)h(for)g +Fj(\036)g Fw(and)g(11.5)f(for)h(J)p Fj(= )t Fw(.)43 b(T)-8 +b(ogether)33 b(these)h(n)m(um)m(b)s(ers)0 3906 y(imply)d(that)i(the)h +(photon)f(can)h(b)s(e)f(found)h(in)e(a)h(VMD)g(state)h(ab)s(out)f +(0.4\045)g(of)g(the)h(time,)e(dominated)0 4014 y(b)m(y)39 +b(the)f Fj(\032)364 3978 y Fl(0)441 4014 y Fw(con)m(tribution.)57 +b(All)36 b(the)i(prop)s(erties)g(of)f(the)h(VMD)g(in)m(teractions)f +(can)h(b)s(e)f(obtained)h(b)m(y)0 4123 y(appropriately)29 +b(scaling)f(do)m(wn)j Fj(V)22 b Fw(p)30 b(ph)m(ysics)h(predictions.)42 +b(Th)m(us)32 b(the)e(whole)g(mac)m(hinery)g(dev)m(elop)s(ed)0 +4231 y(in)44 b(the)h(previous)f(subsection)i(for)e(hadron{hadron)g(in)m +(teractions)g(is)g(directly)g(applicable.)77 b(Also)0 +4339 y(parton)36 b(distributions)e(of)i(the)h(VMD)f(comp)s(onen)m(t)g +(inside)f(the)i(photon)f(are)g(obtained)f(b)m(y)i(suitable)0 +4448 y(rescaling.)146 4556 y(The)32 b(con)m(tribution)f(from)e(the)j +(`anomalous')e(high-mass)g(\015uctuations)h(dep)s(ends)i(on)e(the)g(t)m +(ypical)0 4664 y(scale)i Fj(\026)f Fw(of)g(the)h(in)m(teraction)1043 +4806 y Fg( )1159 4885 y Fj(e)p 1119 4929 127 4 v 1119 +5020 a(f)1167 5035 y Fl(q)p 1204 4997 38 4 v(q)1255 4806 +y Fg(!)1321 4829 y Fl(2)1388 4952 y Fn(\031)1503 4885 +y Fj(\013)1565 4900 y Fl(em)p 1503 4929 157 4 v 1528 +5020 a Fw(2)p Fj(\031)1696 4885 y(N)1774 4900 y Fh(C)p +1696 4929 138 4 v 1740 5020 a Fw(3)1877 4806 y Fg( )1942 +4952 y Fw(2)2008 4869 y Fg(X)2049 5043 y Fl(q)2144 4952 +y Fj(e)2189 4911 y Fl(2)2189 4977 y(q)2231 4806 y Fg(!)2313 +4952 y Fw(ln)2411 4806 y Fg( )2487 4885 y Fj(\026)2546 +4848 y Fl(2)p 2487 4929 99 4 v 2492 5020 a Fj(p)2541 +4986 y Fl(2)2541 5042 y(0)2595 4806 y Fg(!)2710 4952 +y Fj(;)820 b Fw(\(108\))0 5236 y(where)43 b Fj(N)369 +5251 y Fh(C)471 5236 y Fw(=)g(3)e(and)h(q)g(runs)g(o)m(v)m(er)g(the)g +(quarks)h(that)f(can)f(b)s(e)h(tak)m(en)h(massless)e(compared)h(with)0 +5344 y Fj(\026)p Fw(.)63 b(The)40 b(logarithmic)35 b(increase)k(with)g +Fj(\026)g Fw(implies)d(that)j(the)h(anomalous)d(con)m(tribution)h(to)h +(the)g(to-)0 5453 y(tal)g(photopro)s(duction)g(cross)i(section)g(\()p +Fj(\026)f Fn(\030)h Fj(m)1822 5468 y Fh(V)1883 5453 y +Fw(\))f(is)g(less)g(imp)s(ortan)m(t)f(than)h(that)g(to)g(high-)p +Fj(p)3571 5468 y Fk(?)3668 5453 y Fw(jet)0 5561 y(pro)s(duction)34 +b(\()p Fj(\026)c Fn(\030)h Fj(p)782 5576 y Fk(?)841 5561 +y Fw(\).)48 b(T)-8 b(o)34 b(\014rst)h(appro)m(ximation,)e(therefore)i +(only)e(p)s(erturbativ)m(e)i(jet)f(pro)s(duction)0 5669 +y(ab)s(o)m(v)m(e)42 b(some)g Fj(p)588 5684 y Fk(?)p Fl(min)806 +5669 y Fw(scale)f(is)g(considered.)71 b(This)42 b(includes)f(the)h +(standard)g(QCD)f(parton{parton)1817 5953 y(110)p eop +%%Page: 111 117 +111 116 bop 0 -18 a Fw(scattering)28 b(pro)s(cesses,)j(with)d +(anomalous-photon)e(parton)h(distributions)g(that)h(are)g(fully)f(p)s +(erturba-)0 90 y(tiv)m(ely)j(calculable)f([Sc)m(h95)q(].)42 +b(In)31 b(order)g(to)f(satisfy)g(the)h(equalit)m(y)f(in)g(eq.)h +(\(106\),)g(with)f(the)h(total)e(cross)0 198 y(section)j(kno)m(wn)i +(and)e(the)g(direct)g(and)h(VDM)f(con)m(tributions)f(already)h +(\014xed,)h(a)f(b)s(eha)m(viour)g(roughly)0 307 y(lik)m(e)1039 +415 y Fj(p)1088 374 y Fl(anom)1088 440 y Fk(?)p Fl(min)1264 +415 y Fw(\()p Fj(s)p Fw(\))c(=)f(0)p Fj(:)p Fw(70)22 +b(+)g(0)p Fj(:)p Fw(17)17 b(log)2127 372 y Fl(2)2166 +415 y Fw(\(1)p Fj(:)22 b Fw(+)g(0)p Fj(:)p Fw(05)2574 +339 y Fn(p)p 2657 339 46 4 v 76 x Fj(s)p Fw(\))816 b(\(109\))0 +577 y(is)49 b(needed)h(o)m(v)m(er)h(the)e(HERA)h(energy)g(range.)93 +b(This)49 b(is)g(to)g(b)s(e)g(seen)h(en)m(tirely)f(as)h(a)e(pragmatic)0 +686 y(parametrization,)28 b(not)i(b)s(e)h(giv)m(en)f(an)m(y)h(fundamen) +m(tal)f(in)m(terpretation.)41 b(It)31 b(is)e(based)j(on)e(SaS)g(set)h +(1D,)0 794 y(another)i(set)g(migh)m(t)e(w)m(ell)h(require)h(a)f +(somewhat)h(di\013eren)m(t)g(form.)146 902 y(In)40 b +Fj(\015)5 b(\015)44 b Fw(ph)m(ysics)d([Sc)m(h94a)q(],)g(the)f(sup)s +(erp)s(osition)e(in)h(eq.)h(\(105\))f(applies)f(separately)i(for)f(eac) +m(h)h(of)0 1011 y(the)31 b(t)m(w)m(o)h(incoming)c(photons.)44 +b(In)31 b(total)e(there)j(are)e(therefore)i(3)18 b Fn(\002)h +Fw(3)28 b(=)f(9)k(com)m(binations.)41 b(Ho)m(w)m(ev)m(er,)0 +1119 y(trivial)36 b(symmetry)j(reduces)i(this)e(to)g(six)f(distinct)h +(classes,)i(written)e(in)f(terms)h(of)g(the)g(total)f(cross)0 +1227 y(section)33 b(\(cf.)43 b(eq.)34 b(\(106\)\))d(as)629 +1435 y Fj(\033)688 1388 y Fh(\015)t(\015)684 1455 y Fl(tot)779 +1435 y Fw(\()p Fj(s)p Fw(\))83 b(=)g Fj(\033)1202 1388 +y Fh(\015)t(\015)1198 1460 y Fl(dir)o Fk(\002)p Fl(dir)1430 +1435 y Fw(\()p Fj(s)p Fw(\))22 b(+)g Fj(\033)1731 1388 +y Fh(\015)t(\015)1727 1460 y Fl(VMD)p Fk(\002)p Fl(VMD)2129 +1435 y Fw(\()p Fj(s)p Fw(\))g(+)g Fj(\033)2430 1388 y +Fh(\015)t(\015)2426 1454 y Fl(anom)p Fk(\002)p Fl(anom)2823 +1435 y Fw(\()p Fj(s)p Fw(\))984 1568 y(+)83 b(2)p Fj(\033)1251 +1521 y Fh(\015)t(\015)1247 1594 y Fl(dir)o Fk(\002)p +Fl(VMD)1564 1568 y Fw(\()p Fj(s)p Fw(\))22 b(+)g(2)p +Fj(\033)1914 1521 y Fh(\015)t(\015)1910 1594 y Fl(dir)o +Fk(\002)p Fl(anom)2224 1568 y Fw(\()p Fj(s)p Fw(\))g(+)g(2)p +Fj(\033)2574 1521 y Fh(\015)t(\015)2570 1593 y Fl(VMD)o +Fk(\002)p Fl(anom)2969 1568 y Fw(\()p Fj(s)p Fw(\))32 +b Fj(:)407 b Fw(\(110\))0 1776 y(A)31 b(parametrization)e(of)h(the)i +(total)d Fj(\015)5 b(\015)36 b Fw(cross)c(section)f(and)g(commen)m(ts)g +(on)g(its)g(sub)s(division)f(in)m(to)g(the)0 1885 y(six)j(classes)g(is) +f(found)h(in)f([Sc)m(h94a].)146 1993 y(The)i(six)e(di\013eren)m(t)h +(kinds)g(of)f Fj(\015)5 b(\015)38 b Fw(ev)m(en)m(ts)d(are)d(th)m(us:) +145 2106 y Fn(\017)49 b Fw(The)36 b(direct)p Fn(\002)p +Fw(direct)g(ev)m(en)m(ts,)j(whic)m(h)d(corresp)s(ond)g(to)f(the)h +(subpro)s(cess)i Fj(\015)5 b(\015)38 b Fn(!)32 b Fw(q)p +3267 2053 52 4 v(q)k(\(or)g Fj(`)3556 2070 y Fl(+)3615 +2106 y Fj(`)3656 2070 y Fk(\000)3714 2106 y Fw(\).)244 +2215 y(The)g(t)m(ypical)f(ev)m(en)m(t)i(structure)g(is)e(t)m(w)m(o)h +(high-)p Fj(p)2006 2230 y Fk(?)2099 2215 y Fw(jets)g(and)g(no)f(b)s +(eam)g(remnan)m(ts.)53 b(The)36 b(lo)m(w)m(er)244 2323 +y(cut-o\013)c(is)g Fj(p)697 2338 y Fk(?)784 2323 y Fj(>)27 +b(p)936 2338 y Fl(0)976 2323 y Fw(.)145 2441 y Fn(\017)49 +b Fw(The)39 b(VMD)p Fn(\002)p Fw(VMD)f(ev)m(en)m(ts,)j(whic)m(h)d(ha)m +(v)m(e)h(the)f(same)g(prop)s(erties)g(as)f(the)i(VMD)e +Fj(\015)5 b Fw(p)38 b(ev)m(en)m(ts.)244 2549 y(There)f(are)g(four)f(b)m +(y)h(four)f(com)m(binations)f(of)g(the)i(t)m(w)m(o)g(incoming)d(v)m +(ector)j(mesons,)h(with)e(one)244 2657 y(VMD)c(factor)h(for)f(eac)m(h)h +(meson.)145 2775 y Fn(\017)49 b Fw(The)39 b(anomalous)p +Fn(\002)p Fw(anomalous)d(ev)m(en)m(ts,)42 b(wherein)d(eac)m(h)h(photon) +e(\015uctuates)i(in)m(to)e(a)g(q)p 3521 2722 V(q)i(pair)244 +2883 y(of)c(larger)g(virtualit)m(y)f(than)h(in)g(the)h(VMD)g(class.)56 +b(One)37 b(parton)f(of)g(eac)m(h)i(pair)e(giv)m(es)h(a)f(b)s(eam)244 +2992 y(remnan)m(t,)29 b(whereas)g(the)f(other)g(\(or)f(a)h(daugh)m(ter) +g(parton)g(thereof)7 b(\))27 b(participates)g(in)g(a)h(high-)p +Fj(p)3722 3007 y Fk(?)244 3100 y Fw(scattering,)k(with)h +Fj(p)993 3115 y Fk(?)1079 3100 y Fj(>)28 b(p)1232 3064 +y Fl(anom)1232 3125 y Fk(?)p Fl(min)1408 3100 y Fw(.)145 +3218 y Fn(\017)49 b Fw(The)33 b(direct)p Fn(\002)p Fw(VMD)g(ev)m(en)m +(ts,)i(whic)m(h)e(ha)m(v)m(e)h(the)f(same)g(prop)s(erties)f(as)h(the)g +(direct)f Fj(\015)5 b Fw(p)33 b(ev)m(en)m(ts.)145 3336 +y Fn(\017)49 b Fw(The)31 b(direct)p Fn(\002)p Fw(anomalous)e(ev)m(en)m +(ts,)k(in)c(whic)m(h)i(a)f(bare)g(photon)h(in)m(teracts)f(with)g(a)g +(parton)g(from)244 3444 y(the)k(anomalous)e(photon.)48 +b(The)34 b(lo)m(w)m(er)g(cut-o\013)g(for)f(the)h(hard)g(scattering)g +(is)f(giv)m(en)h(b)m(y)h Fj(p)3576 3408 y Fl(anom)3576 +3469 y Fk(?)p Fl(min)3752 3444 y Fw(.)244 3552 y(The)e(t)m(ypical)f +(structure)i(is)e(then)h(t)m(w)m(o)h(high-)p Fj(p)1954 +3567 y Fk(?)2044 3552 y Fw(jets)f(and)g(a)f(b)s(eam)g(remnan)m(t.)145 +3670 y Fn(\017)49 b Fw(The)30 b(VMD)p Fn(\002)p Fw(anomalous)d(ev)m(en) +m(ts,)32 b(whic)m(h)d(ha)m(v)m(e)i(the)e(same)f(prop)s(erties)h(as)g +(the)g(anomalous)e Fj(\015)5 b Fw(p)244 3779 y(ev)m(en)m(ts.)0 +3892 y(In)26 b(m)m(uc)m(h)h(of)e(the)i(literature,)f(where)h(a)f +(coarser)g(classi\014cation)f(us)i(used,)h(our)e(direct)p +Fn(\002)p Fw(direct)g(is)g(called)0 4000 y(direct,)f(our)f(direct)p +Fn(\002)p Fw(VMD)g(and)f(direct)p Fn(\002)p Fw(anomalous)g(is)g(called) +f(1-resolv)m(ed)i(since)g(they)h(b)s(oth)e(in)m(v)m(olv)m(e)0 +4108 y(one)32 b(resolv)m(ed)g(photon)g(whic)m(h)g(giv)m(es)g(a)f(b)s +(eam)g(remnan)m(t,)g(and)h(the)g(rest)g(are)g(called)e(2-resolv)m(es)i +(since)0 4217 y(b)s(oth)g(photons)h(are)g(resolv)m(ed)g(and)g(giv)m(e)g +(b)s(eam)e(remnan)m(ts.)1817 5953 y(111)p eop +%%Page: 112 118 +112 117 bop 0 -18 a Ft(8)161 b(Ph)l(ysics)53 b(Pro)t(cesses)g(in)h +(PYTHIA)0 189 y Fw(In)26 b(this)f(section)h(w)m(e)h(en)m(umerate)f(the) +h(ph)m(ysics)g(pro)s(cesses)h(that)d(are)h(a)m(v)-5 b(ailable)23 +b(in)i Fm(Pythia)p Fw(,)i(in)m(tro)s(duc-)0 297 y(ing)34 +b(the)h(ISUB)h(co)s(de)f(that)g(can)g(b)s(e)g(used)h(to)f(select)g +(desired)h(pro)s(cesses.)53 b(A)35 b(n)m(um)m(b)s(er)g(of)g(commen)m +(ts)0 405 y(are)45 b(made)g(ab)s(out)g(the)h(ph)m(ysics)h(scenarios)f +(in)m(v)m(olv)m(ed,)j(in)44 b(particular)g(with)h(resp)s(ect)i(to)e +(underly-)0 514 y(ing)36 b(assumptions)h(and)g(domain)f(of)g(v)-5 +b(alidit)m(y)d(.)55 b(The)38 b(section)g(closes)f(with)g(a)g(surv)m(ey) +i(of)e(in)m(teresting)0 622 y(pro)s(cesses)e(b)m(y)e(mac)m(hine.)0 +896 y Fp(8.1)135 b(The)45 b(Pro)t(cess)g(Classi\014cation)h(Sc)l(heme)0 +1068 y Fw(A)34 b(wide)g(selection)g(of)g(fundamen)m(tal)f(2)d +Fn(!)g Fw(1)k(and)g(2)d Fn(!)f Fw(2)j(tree)i(pro)s(cesses)h(of)e(the)h +(Standard)f(Mo)s(del)0 1177 y(\(electro)m(w)m(eak)h(and)g(strong\))f +(has)g(b)s(een)h(included)f(in)f Fm(Pythia)p Fw(,)h(and)h(slots)e(are)h +(pro)m(vided)h(for)e(man)m(y)0 1285 y(more,)28 b(not)f(y)m(et)i +(implemen)m(ted.)41 b(In)27 b(addition,)g(a)h(few)g(`minim)m +(um-bias'-t)m(yp)s(e)c(pro)s(cesses)30 b(\(lik)m(e)c(elastic)0 +1394 y(scattering\),)38 b(lo)s(op)e(graphs,)j(b)s(o)m(x)f(graphs,)h(2)c +Fn(!)h Fw(3)h(tree)h(graphs)f(and)h(some)f(non-Standard)g(Mo)s(del)0 +1502 y(pro)s(cesses)g(are)e(included.)49 b(The)36 b(classi\014cation)d +(is)h(not)h(alw)m(a)m(ys)g(unique.)51 b(A)35 b(pro)s(cess)h(that)e(pro) +s(ceeds)0 1610 y(only)j(via)f(an)h Fj(s)p Fw(-c)m(hannel)g(state)h(is)f +(classi\014ed)g(as)g(a)g(2)f Fn(!)f Fw(1)i(pro)s(cess)h(\(e.g.)58 +b(q)p 2873 1557 52 4 v(q)36 b Fn(!)g Fj(\015)3152 1574 +y Fk(\003)3191 1610 y Fj(=)p Fw(Z)3300 1574 y Fl(0)3374 +1610 y Fn(!)g Fw(e)3553 1574 y Fl(+)3612 1610 y Fw(e)3655 +1574 y Fk(\000)3714 1610 y Fw(\),)0 1719 y(but)30 b(a)g(2)d +Fn(!)h Fw(2)h(cross)i(section)f(ma)m(y)g(w)m(ell)f(ha)m(v)m(e)j(con)m +(tributions)d(from)g Fj(s)p Fw(-c)m(hannel)h(diagrams)e(\(gg)g +Fn(!)g Fw(gg)0 1827 y(obtains)41 b(con)m(tributions)g(from)f(gg)k +Fn(!)f Fw(g)1528 1791 y Fk(\003)1610 1827 y Fn(!)g Fw(gg)q(\).)70 +b(Also,)43 b(in)e(the)h(program,)g(2)h Fn(!)g Fw(1)e(and)g(2)i +Fn(!)g Fw(2)0 1935 y(graphs)d(ma)m(y)g(sometimes)f(b)s(e)h(folded)f +(with)h(t)m(w)m(o)g(1)g Fn(!)g Fw(2)f(splittings)f(to)i(form)f +(e\013ectiv)m(e)i(2)e Fn(!)h Fw(3)g(or)0 2044 y(2)49 +b Fn(!)g Fw(4)44 b(pro)s(cesses)k(\(W)914 2007 y Fl(+)973 +2044 y Fw(W)1074 2007 y Fk(\000)1183 2044 y Fn(!)h Fw(H)1405 +2007 y Fl(0)1489 2044 y Fw(is)c(folded)f(with)h(q)50 +b Fn(!)e Fw(q)2437 2007 y Fk(00)2480 2044 y Fw(W)2581 +2007 y Fl(+)2686 2044 y Fw(and)d(q)2939 2007 y Fk(0)3012 +2044 y Fn(!)k Fw(q)3212 2007 y Fk(000)3274 2044 y Fw(W)3375 +2007 y Fk(\000)3480 2044 y Fw(to)c(giv)m(e)0 2152 y(qq)102 +2116 y Fk(0)154 2152 y Fn(!)27 b Fw(q)332 2116 y Fk(00)375 +2152 y Fw(q)426 2116 y Fk(000)488 2152 y Fw(H)561 2116 +y Fl(0)601 2152 y Fw(\).)146 2260 y(It)33 b(is)e(p)s(ossible)h(to)g +(select)h(a)f(com)m(bination)e(of)i(subpro)s(cesses)j(to)d(sim)m +(ulate,)f(and)h(also)g(afterw)m(ards)0 2369 y(to)47 b(kno)m(w)i(whic)m +(h)f(subpro)s(cess)h(w)m(as)g(actually)d(selected)i(in)f(eac)m(h)i(ev)m +(en)m(t.)90 b(F)-8 b(or)46 b(this)h(purp)s(ose,)53 b(all)0 +2477 y(subpro)s(cesses)32 b(are)d(n)m(um)m(b)s(ered)g(according)g(to)f +(an)h(ISUB)g(co)s(de.)43 b(The)29 b(list)f(of)g(p)s(ossible)g(co)s(des) +i(is)e(giv)m(en)0 2585 y(in)c(T)-8 b(ables)24 b(11,)i(12,)g(13)e(and)g +(14.)41 b(Only)24 b(pro)s(cesses)i(mark)m(ed)f(with)f(a)h(`+')f(sign)g +(in)g(the)h(\014rst)g(column)e(ha)m(v)m(e)0 2694 y(b)s(een)29 +b(implemen)m(ted)d(in)i(the)g(program)f(to)g(date.)43 +b(Although)27 b(ISUB)h(co)s(des)h(w)m(ere)h(originally)24 +b(designed)0 2802 y(in)37 b(a)h(logical)e(fashion,)j(w)m(e)g(m)m(ust)f +(admit)f(that)h(subsequen)m(t)j(dev)m(elopmen)m(ts)f(of)e(the)g +(program)f(ha)m(v)m(e)0 2910 y(tended)d(to)e(obscure)i(the)f +(structure.)44 b(F)-8 b(or)32 b(instance,)h(the)g(pro)s(cess)h(n)m(um)m +(b)s(ers)f(for)f(Higgs)g(pro)s(duction)0 3019 y(are)43 +b(spread)g(out,)j(in)c(part)g(as)h(a)g(consequence)j(of)c(the)h +(original)d(classi\014cation,)k(in)e(part)g(b)s(ecause)0 +3127 y(further)h(pro)s(duction)f(mec)m(hanisms)h(ha)m(v)m(e)h(b)s(een)f +(added)h(one)f(at)f(a)h(time,)h(in)e(whatev)m(er)j(free)e(slots)0 +3235 y(could)d(b)s(e)h(found.)69 b(A)m(t)41 b(some)g(future)g(date)g +(the)g(subpro)s(cess)i(list)d(will)e(therefore)k(b)s(e)f(reorganized.)0 +3344 y(In)j(the)h(thematic)d(descriptions)i(that)g(follo)m(w)e(the)i +(main)f(tables,)j(the)f(pro)s(cesses)h(of)d(in)m(terest)h(are)0 +3452 y(rep)s(eated)f(in)d(a)i(more)f(logical)e(order.)71 +b(If)42 b(y)m(ou)g(w)m(an)m(t)h(to)e(lo)s(ok)g(for)g(a)g(sp)s(eci\014c) +i(pro)s(cess,)i(it)c(will)e(b)s(e)0 3560 y(easier)33 +b(to)f(\014nd)h(it)e(there.)146 3669 y(In)36 b(the)f(follo)m(wing,)e(f) +913 3684 y Fh(i)977 3669 y Fw(represen)m(ts)k(a)e(fundamen)m(tal)f +(fermion)g(of)g(\015a)m(v)m(our)i Fj(i)p Fw(,)g(i.e.)51 +b(d,)36 b(u,)g(s,)g(c,)g(b,)g(t,)0 3777 y(l,)h(h,)h(e)254 +3741 y Fk(\000)313 3777 y Fw(,)g Fj(\027)426 3792 y Fl(e)462 +3777 y Fw(,)g Fj(\026)586 3741 y Fk(\000)645 3777 y Fw(,)g +Fj(\027)758 3792 y Fh(\026)804 3777 y Fw(,)g Fj(\034)922 +3741 y Fk(\000)982 3777 y Fw(,)g Fj(\027)1095 3792 y +Fh(\034)1138 3777 y Fw(,)g Fj(\037)1264 3741 y Fk(\000)1360 +3777 y Fw(or)e Fj(\027)1531 3792 y Fh(\037)1579 3777 +y Fw(.)56 b(A)37 b(corresp)s(onding)g(an)m(tifermion)d(is)j(denoted)g +(b)m(y)p 3542 3698 37 4 v 38 w(f)3579 3792 y Fh(i)3607 +3777 y Fw(.)56 b(In)0 3885 y(sev)m(eral)39 b(cases,)i(some)c(classes)i +(of)f(fermions)f(are)h(explicitly)e(excluded,)k(since)f(they)g(do)f +(not)g(couple)0 3994 y(to)c(the)g(g)h(or)f Fj(\015)39 +b Fw(\(no)34 b(e)803 3958 y Fl(+)863 3994 y Fw(e)906 +3958 y Fk(\000)995 3994 y Fn(!)c Fw(gg)q(,)35 b(e.g.\).)48 +b(When)35 b(pro)s(cesses)h(ha)m(v)m(e)f(only)f(b)s(een)h(included)f +(for)f(quarks,)0 4102 y(while)f(leptons)g(migh)m(t)f(also)g(ha)m(v)m(e) +j(b)s(een)f(p)s(ossible,)f(the)h(notation)e(q)2523 4117 +y Fh(i)2584 4102 y Fw(is)h(used.)44 b(A)33 b(lepton)f(is)g(denoted)0 +4210 y(b)m(y)41 b Fj(`)p Fw(;)j(in)39 b(a)h(few)g(cases)i(neutrinos)e +(are)g(also)f(lump)s(ed)g(under)i(this)e(heading.)66 +b(In)40 b(pro)s(cesses)i(where)0 4319 y(fermion)32 b(masses)i(are)g +(explicitly)d(included)i(in)g(the)h(matrix)e(elemen)m(ts,)i(an)f(F)h +(is)f(used)h(to)f(denote)i(an)0 4427 y(arbitrary)j(fermion)g(and)i(a)f +(Q)g(a)g(quark.)64 b(Fla)m(v)m(ours)40 b(app)s(earing)e(already)h(in)f +(the)i(initial)c(state)j(are)0 4535 y(denoted)34 b(b)m(y)h(indices)e +Fj(i)h Fw(and)f Fj(j)6 b Fw(,)34 b(whereas)h(new)f(\015a)m(v)m(ours)h +(in)e(the)h(\014nal)f(state)h(are)f(denoted)h(b)m(y)h +Fj(k)h Fw(and)0 4644 y Fj(l)r Fw(.)146 4752 y(Charge-conjugate)29 +b(c)m(hannels)h(are)e(alw)m(a)m(ys)h(assumed)h(included)e(as)h(w)m(ell) +e(\(where)j(separate\),)g(and)0 4860 y(pro)s(cesses)35 +b(in)m(v)m(olving)d(a)h(W)1023 4824 y Fl(+)1115 4860 +y Fw(also)g(imply)e(those)j(in)m(v)m(olving)d(a)i(W)2442 +4824 y Fk(\000)2502 4860 y Fw(.)45 b(Wherev)m(er)35 b(Z)3076 +4824 y Fl(0)3148 4860 y Fw(is)e(written,)g(it)f(is)0 +4969 y(understo)s(o)s(d)k(that)f Fj(\015)783 4933 y Fk(\003)859 +4969 y Fw(and)g Fj(\015)1107 4933 y Fk(\003)1147 4969 +y Fj(=)p Fw(Z)1256 4933 y Fl(0)1330 4969 y Fw(in)m(terference)i(should) +e(b)s(e)h(included)g(as)f(w)m(ell)g(\(with)g(p)s(ossibilities)0 +5077 y(to)29 b(switc)m(h)h(o\013)e(either,)i(if)e(so)h(desired\).)43 +b(In)30 b(some)f(cases)h(this)f(is)g(not)g(fully)e(implemen)m(ted,)i +(see)h(further)0 5186 y(b)s(elo)m(w.)63 b(Corresp)s(ondingly)-8 +b(,)40 b(Z)1153 5149 y Fk(0)p Fl(0)1251 5186 y Fw(denotes)g(the)g +(complete)e(set)i Fj(\015)2418 5149 y Fk(\003)2457 5186 +y Fj(=)p Fw(Z)2566 5149 y Fl(0)2605 5186 y Fj(=)p Fw(Z)2714 +5149 y Fk(0)p Fl(0)2811 5186 y Fw(\(or)f(some)g(subset)i(of)d(it\).)0 +5294 y(Th)m(us)c(the)f(notation)e Fj(\015)38 b Fw(is)32 +b(only)g(used)i(for)e(a)g(photon)h(on)f(the)h(mass)g(shell.)146 +5402 y(In)48 b(the)g(last)f(column)g(of)g(the)h(tables)f(b)s(elo)m(w,)k +(references)f(are)e(giv)m(en)f(to)h(w)m(orks)h(from)d(whic)m(h)0 +5511 y(form)m(ulae)37 b(ha)m(v)m(e)i(b)s(een)g(tak)m(en.)61 +b(Sometimes)37 b(these)j(references)g(are)e(to)g(the)h(original)34 +b(w)m(orks)40 b(on)e(the)0 5619 y(sub)5 b(ject,)32 b(sometimes)c(only)g +(to)h(the)g(place)g(where)h(the)g(form)m(ulae)d(are)i(giv)m(en)h(in)e +(the)h(most)g(con)m(v)m(enien)m(t)1817 5953 y(112)p eop +%%Page: 113 119 +113 118 bop 0 42 a Fw(T)-8 b(able)37 b(11:)52 b(Subpro)s(cess)39 +b(co)s(des,)g(part)e(1.)57 b(First)37 b(column)f(is)g(`+')i(for)e(pro)s +(cesses)k(implemen)m(ted)35 b(and)0 151 y(blank)e(for)f(those)i(that)e +(are)h(only)g(foreseen.)45 b(Second)34 b(is)f(the)g(subpro)s(cess)i(n)m +(um)m(b)s(er)e Fq(ISUB)p Fw(,)h(and)f(third)0 259 y(the)41 +b(description)g(of)f(the)i(pro)s(cess.)70 b(The)42 b(\014nal)e(column)g +(giv)m(es)h(references)i(from)d(whic)m(h)h(the)h(cross)0 +367 y(sections)33 b(ha)m(v)m(e)h(b)s(een)f(obtained.)43 +b(See)34 b(text)f(for)f(further)h(information.)p 565 +487 2651 4 v 563 607 4 121 v 614 575 a(In)p 752 607 V +100 w(No.)p 1001 607 V 100 w(Subpro)s(cess)p 1833 607 +V 364 w(Reference)p 3212 607 V 565 611 2651 4 v 563 731 +4 121 v 752 731 V 1001 731 V 1052 699 a(a\))f(2)c Fn(!)f +Fw(1,)32 b(tree)p 1833 731 V 3212 731 V 563 851 V 621 +819 a(+)p 752 851 V 207 w(1)p 1001 851 V 99 w(f)1082 +834 y Fh(i)p 1110 740 37 4 v 1110 819 a Fw(f)1147 834 +y Fh(i)1203 819 y Fn(!)27 b Fj(\015)1386 783 y Fk(\003)1425 +819 y Fj(=)p Fw(Z)1534 783 y Fl(0)p 1833 851 4 121 v +1884 819 a Fw([Eic84])p 3212 851 V 563 972 V 621 939 +a(+)p 752 972 V 207 w(2)p 1001 972 V 99 w(f)1082 954 +y Fh(i)p 1110 860 37 4 v 1110 939 a Fw(f)1147 954 y Fh(j)1211 +939 y Fn(!)g Fw(W)1439 903 y Fl(+)p 1833 972 4 121 v +1884 939 a Fw([Eic84])p 3212 972 V 563 1092 V 621 1060 +a(+)p 752 1092 V 207 w(3)p 1001 1092 V 99 w(f)1082 1075 +y Fh(i)p 1110 981 37 4 v 1110 1060 a Fw(f)1147 1075 y +Fh(i)1203 1060 y Fn(!)g Fw(H)1403 1024 y Fl(0)p 1833 +1092 4 121 v 1884 1060 a Fw([Eic84])p 3212 1092 V 563 +1213 V 752 1213 V 904 1180 a(4)p 1001 1213 V 99 w Fj(\015)5 +b Fw(W)1209 1144 y Fl(+)1296 1180 y Fn(!)28 b Fw(W)1525 +1144 y Fl(+)p 1833 1213 V 3212 1213 V 563 1333 V 621 +1301 a Fw(+)p 752 1333 V 207 w(5)p 1001 1333 V 99 w(Z)1112 +1264 y Fl(0)1151 1301 y Fw(Z)1211 1264 y Fl(0)1278 1301 +y Fn(!)f Fw(H)1478 1264 y Fl(0)p 1833 1333 V 1884 1301 +a Fw([Eic84,)33 b(Cha85])p 3212 1333 V 563 1453 V 752 +1453 V 904 1421 a(6)p 1001 1453 V 99 w(Z)1112 1385 y +Fl(0)1151 1421 y Fw(W)1252 1385 y Fl(+)1339 1421 y Fn(!)28 +b Fw(W)1568 1385 y Fl(+)p 1833 1453 V 3212 1453 V 563 +1574 V 752 1574 V 904 1541 a Fw(7)p 1001 1574 V 99 w(W)1153 +1505 y Fl(+)1213 1541 y Fw(W)1314 1505 y Fk(\000)1401 +1541 y Fn(!)f Fw(Z)1588 1505 y Fl(0)p 1833 1574 V 3212 +1574 V 563 1694 V 621 1662 a Fw(+)p 752 1694 V 207 w(8)p +1001 1694 V 99 w(W)1153 1626 y Fl(+)1213 1662 y Fw(W)1314 +1626 y Fk(\000)1401 1662 y Fn(!)g Fw(H)1601 1626 y Fl(0)p +1833 1694 V 1884 1662 a Fw([Eic84,)33 b(Cha85])p 3212 +1694 V 565 1697 2651 4 v 563 1818 4 121 v 752 1818 V +1001 1818 V 1052 1785 a(b\))g(2)27 b Fn(!)g Fw(2,)33 +b(tree)p 1833 1818 V 3212 1818 V 563 1938 V 621 1906 +a(+)p 752 1938 V 158 w(10)p 1001 1938 V 99 w(f)1082 1921 +y Fh(i)1110 1906 y Fw(f)1140 1921 y Fh(j)1204 1906 y +Fn(!)27 b Fw(f)1361 1921 y Fh(i)1389 1906 y Fw(f)1419 +1921 y Fh(j)1488 1906 y Fw(\(QFD\))p 1833 1938 V 105 +w([Ing87b])p 3212 1938 V 563 2059 V 621 2026 a(+)p 752 +2059 V 158 w(11)p 1001 2059 V 99 w(f)1082 2041 y Fh(i)1110 +2026 y Fw(f)1140 2041 y Fh(j)1204 2026 y Fn(!)g Fw(f)1361 +2041 y Fh(i)1389 2026 y Fw(f)1419 2041 y Fh(j)1488 2026 +y Fw(\(QCD\))p 1833 2059 V 99 w([Com77,)32 b(Ben84,)h(Eic84)o(,)g +(Chi90)o(])p 3212 2059 V 563 2179 V 621 2147 a(+)p 752 +2179 V 158 w(12)p 1001 2179 V 99 w(f)1082 2162 y Fh(i)p +1110 2067 37 4 v 1110 2147 a Fw(f)1147 2162 y Fh(i)1203 +2147 y Fn(!)27 b Fw(f)1360 2162 y Fh(k)p 1402 2067 V +1402 2147 a Fw(f)1439 2162 y Fh(k)p 1833 2179 4 121 v +1884 2147 a Fw([Com77,)32 b(Ben84,)h(Eic84)o(,)g(Chi90)o(])p +3212 2179 V 563 2299 V 621 2267 a(+)p 752 2299 V 158 +w(13)p 1001 2299 V 99 w(f)1082 2282 y Fh(i)p 1110 2188 +37 4 v 1110 2267 a Fw(f)1147 2282 y Fh(i)1203 2267 y +Fn(!)27 b Fw(gg)p 1833 2299 4 121 v 456 w([Com77,)32 +b(Ben84])p 3212 2299 V 563 2420 V 621 2387 a(+)p 752 +2420 V 158 w(14)p 1001 2420 V 99 w(f)1082 2402 y Fh(i)p +1110 2308 37 4 v 1110 2387 a Fw(f)1147 2402 y Fh(i)1203 +2387 y Fn(!)27 b Fw(g)q Fj(\015)p 1833 2420 4 121 v 453 +w Fw([Hal78)o(,)33 b(Ben84])p 3212 2420 V 563 2540 V +621 2508 a(+)p 752 2540 V 158 w(15)p 1001 2540 V 99 w(f)1082 +2523 y Fh(i)p 1110 2429 37 4 v 1110 2508 a Fw(f)1147 +2523 y Fh(i)1203 2508 y Fn(!)27 b Fw(gZ)1439 2471 y Fl(0)p +1833 2540 4 121 v 1884 2508 a Fw([Eic84])p 3212 2540 +V 563 2661 V 621 2628 a(+)p 752 2661 V 158 w(16)p 1001 +2661 V 99 w(f)1082 2643 y Fh(i)p 1110 2549 37 4 v 1110 +2628 a Fw(f)1147 2643 y Fh(j)1211 2628 y Fn(!)g Fw(gW)1488 +2592 y Fl(+)p 1833 2661 4 121 v 1884 2628 a Fw([Eic84])p +3212 2661 V 563 2781 V 752 2781 V 855 2748 a(17)p 1001 +2781 V 99 w(f)1082 2763 y Fh(i)p 1110 2669 37 4 v 1110 +2748 a Fw(f)1147 2763 y Fh(i)1203 2748 y Fn(!)g Fw(gH)1452 +2712 y Fl(0)p 1833 2781 4 121 v 3212 2781 V 563 2901 +V 621 2869 a Fw(+)p 752 2901 V 158 w(18)p 1001 2901 V +99 w(f)1082 2884 y Fh(i)p 1110 2790 37 4 v 1110 2869 +a Fw(f)1147 2884 y Fh(i)1203 2869 y Fn(!)g Fj(\015)5 +b(\015)p 1833 2901 4 121 v 447 w Fw([Ber84)q(])p 3212 +2901 V 563 3022 V 621 2989 a(+)p 752 3022 V 158 w(19)p +1001 3022 V 99 w(f)1082 3004 y Fh(i)p 1110 2910 37 4 +v 1110 2989 a Fw(f)1147 3004 y Fh(i)1203 2989 y Fn(!)27 +b Fj(\015)5 b Fw(Z)1446 2953 y Fl(0)p 1833 3022 4 121 +v 1884 2989 a Fw([Eic84])p 3212 3022 V 563 3142 V 621 +3110 a(+)p 752 3142 V 158 w(20)p 1001 3142 V 99 w(f)1082 +3125 y Fh(i)p 1110 3030 37 4 v 1110 3110 a Fw(f)1147 +3125 y Fh(j)1211 3110 y Fn(!)27 b Fj(\015)5 b Fw(W)1495 +3073 y Fl(+)p 1833 3142 4 121 v 1884 3110 a Fw([Eic84,)33 +b(Sam91)n(])p 3212 3142 V 563 3262 V 752 3262 V 855 3230 +a(21)p 1001 3262 V 99 w(f)1082 3245 y Fh(i)p 1110 3151 +37 4 v 1110 3230 a Fw(f)1147 3245 y Fh(i)1203 3230 y +Fn(!)27 b Fj(\015)5 b Fw(H)1459 3194 y Fl(0)p 1833 3262 +4 121 v 3212 3262 V 563 3383 V 621 3350 a Fw(+)p 752 +3383 V 158 w(22)p 1001 3383 V 99 w(f)1082 3365 y Fh(i)p +1110 3271 37 4 v 1110 3350 a Fw(f)1147 3365 y Fh(i)1203 +3350 y Fn(!)27 b Fw(Z)1390 3314 y Fl(0)1429 3350 y Fw(Z)1489 +3314 y Fl(0)p 1833 3383 4 121 v 1884 3350 a Fw([Eic84,)33 +b(Gun86)o(])p 3212 3383 V 563 3503 V 621 3471 a(+)p 752 +3503 V 158 w(23)p 1001 3503 V 99 w(f)1082 3486 y Fh(i)p +1110 3392 37 4 v 1110 3471 a Fw(f)1147 3486 y Fh(j)1211 +3471 y Fn(!)27 b Fw(Z)1398 3435 y Fl(0)1437 3471 y Fw(W)1538 +3435 y Fl(+)p 1833 3503 4 121 v 1884 3471 a Fw([Eic84,)33 +b(Gun86)o(])p 3212 3503 V 563 3624 V 621 3591 a(+)p 752 +3624 V 158 w(24)p 1001 3624 V 99 w(f)1082 3606 y Fh(i)p +1110 3512 37 4 v 1110 3591 a Fw(f)1147 3606 y Fh(i)1203 +3591 y Fn(!)27 b Fw(Z)1390 3555 y Fl(0)1429 3591 y Fw(H)1502 +3555 y Fl(0)p 1833 3624 4 121 v 1884 3591 a Fw([Ber85)q(])p +3212 3624 V 563 3744 V 621 3711 a(+)p 752 3744 V 158 +w(25)p 1001 3744 V 99 w(f)1082 3726 y Fh(i)p 1110 3632 +37 4 v 1110 3711 a Fw(f)1147 3726 y Fh(i)1203 3711 y +Fn(!)g Fw(W)1431 3675 y Fl(+)1491 3711 y Fw(W)1592 3675 +y Fk(\000)p 1833 3744 4 121 v 1884 3711 a Fw([Bar94,)33 +b(Gun86)o(])p 3212 3744 V 563 3864 V 621 3832 a(+)p 752 +3864 V 158 w(26)p 1001 3864 V 99 w(f)1082 3847 y Fh(i)p +1110 3753 37 4 v 1110 3832 a Fw(f)1147 3847 y Fh(j)1211 +3832 y Fn(!)27 b Fw(W)1439 3796 y Fl(+)1499 3832 y Fw(H)1572 +3796 y Fl(0)p 1833 3864 4 121 v 1884 3832 a Fw([Eic84])p +3212 3864 V 563 3985 V 752 3985 V 855 3952 a(27)p 1001 +3985 V 99 w(f)1082 3967 y Fh(i)p 1110 3873 37 4 v 1110 +3952 a Fw(f)1147 3967 y Fh(i)1203 3952 y Fn(!)g Fw(H)1403 +3916 y Fl(0)1443 3952 y Fw(H)1516 3916 y Fl(0)p 1833 +3985 4 121 v 3212 3985 V 563 4105 V 621 4073 a Fw(+)p +752 4105 V 158 w(28)p 1001 4105 V 99 w(f)1082 4088 y +Fh(i)1110 4073 y Fw(g)i Fn(!)e Fw(f)1345 4088 y Fh(i)1373 +4073 y Fw(g)p 1833 4105 V 462 w([Com77,)32 b(Ben84])p +3212 4105 V 563 4225 V 621 4193 a(+)p 752 4225 V 158 +w(29)p 1001 4225 V 99 w(f)1082 4208 y Fh(i)1110 4193 +y Fw(g)d Fn(!)e Fw(f)1345 4208 y Fh(i)1373 4193 y Fj(\015)p +1833 4225 V 460 w Fw([Hal78)o(,)33 b(Ben84])p 3212 4225 +V 563 4346 V 621 4313 a(+)p 752 4346 V 158 w(30)p 1001 +4346 V 99 w(f)1082 4328 y Fh(i)1110 4313 y Fw(g)c Fn(!)e +Fw(f)1345 4328 y Fh(i)1373 4313 y Fw(Z)1433 4277 y Fl(0)p +1833 4346 V 1884 4313 a Fw([Eic84])p 3212 4346 V 563 +4466 V 621 4434 a(+)p 752 4466 V 158 w(31)p 1001 4466 +V 99 w(f)1082 4449 y Fh(i)1110 4434 y Fw(g)i Fn(!)e Fw(f)1345 +4449 y Fh(k)1388 4434 y Fw(W)1489 4398 y Fl(+)p 1833 +4466 V 1884 4434 a Fw([Eic84])p 3212 4466 V 563 4587 +V 752 4587 V 855 4554 a(32)p 1001 4587 V 99 w(f)1082 +4569 y Fh(i)1110 4554 y Fw(g)i Fn(!)e Fw(f)1345 4569 +y Fh(i)1373 4554 y Fw(H)1446 4518 y Fl(0)p 1833 4587 +V 3212 4587 V 563 4707 V 621 4675 a Fw(+)p 752 4707 V +158 w(33)p 1001 4707 V 99 w(f)1082 4690 y Fh(i)1110 4675 +y Fj(\015)33 b Fn(!)27 b Fw(f)1351 4690 y Fh(i)1379 4675 +y Fw(g)p 1833 4707 V 456 w([Duk82])p 3212 4707 V 563 +4827 V 621 4795 a(+)p 752 4827 V 158 w(34)p 1001 4827 +V 99 w(f)1082 4810 y Fh(i)1110 4795 y Fj(\015)33 b Fn(!)27 +b Fw(f)1351 4810 y Fh(i)1379 4795 y Fj(\015)p 1833 4827 +V 454 w Fw([Duk82])p 3212 4827 V 563 4948 V 621 4915 +a(+)p 752 4948 V 158 w(35)p 1001 4948 V 99 w(f)1082 4930 +y Fh(i)1110 4915 y Fj(\015)33 b Fn(!)27 b Fw(f)1351 4930 +y Fh(i)1379 4915 y Fw(Z)1439 4879 y Fl(0)p 1833 4948 +V 1884 4915 a Fw([Gab86])p 3212 4948 V 563 5068 V 621 +5036 a(+)p 752 5068 V 158 w(36)p 1001 5068 V 99 w(f)1082 +5051 y Fh(i)1110 5036 y Fj(\015)33 b Fn(!)27 b Fw(f)1351 +5051 y Fh(k)1394 5036 y Fw(W)1495 5000 y Fl(+)p 1833 +5068 V 1884 5036 a Fw([Gab86])p 3212 5068 V 563 5189 +V 752 5189 V 855 5156 a(37)p 1001 5189 V 99 w(f)1082 +5171 y Fh(i)1110 5156 y Fj(\015)33 b Fn(!)27 b Fw(f)1351 +5171 y Fh(i)1379 5156 y Fw(H)1452 5120 y Fl(0)p 1833 +5189 V 3212 5189 V 563 5309 V 752 5309 V 855 5276 a Fw(38)p +1001 5309 V 99 w(f)1082 5291 y Fh(i)1110 5276 y Fw(Z)1170 +5240 y Fl(0)1237 5276 y Fn(!)g Fw(f)1394 5291 y Fh(i)1422 +5276 y Fw(g)p 1833 5309 V 3212 5309 V 563 5429 V 752 +5429 V 855 5397 a(39)p 1001 5429 V 99 w(f)1082 5412 y +Fh(i)1110 5397 y Fw(Z)1170 5361 y Fl(0)1237 5397 y Fn(!)g +Fw(f)1394 5412 y Fh(i)1422 5397 y Fj(\015)p 1833 5429 +V 3212 5429 V 563 5550 V 752 5550 V 855 5517 a Fw(40)p +1001 5550 V 99 w(f)1082 5532 y Fh(i)1110 5517 y Fw(Z)1170 +5481 y Fl(0)1237 5517 y Fn(!)g Fw(f)1394 5532 y Fh(i)1422 +5517 y Fw(Z)1482 5481 y Fl(0)p 1833 5550 V 3212 5550 +V 565 5553 2651 4 v 1817 5953 a Fw(113)p eop +%%Page: 114 120 +114 119 bop 0 44 a Fw(T)-8 b(able)37 b(12:)52 b(Subpro)s(cess)39 +b(co)s(des,)g(part)e(2.)57 b(First)37 b(column)f(is)g(`+')i(for)e(pro)s +(cesses)k(implemen)m(ted)35 b(and)0 152 y(blank)e(for)f(those)i(that)e +(are)h(only)g(foreseen.)45 b(Second)34 b(is)f(the)g(subpro)s(cess)i(n)m +(um)m(b)s(er)e Fq(ISUB)p Fw(,)h(and)f(third)0 261 y(the)41 +b(description)g(of)f(the)i(pro)s(cess.)70 b(The)42 b(\014nal)e(column)g +(giv)m(es)h(references)i(from)d(whic)m(h)h(the)h(cross)0 +369 y(sections)33 b(ha)m(v)m(e)h(b)s(een)f(obtained.)43 +b(See)34 b(text)f(for)f(further)h(information.)p 515 +489 2751 4 v 513 609 4 121 v 564 577 a(In)p 702 609 V +101 w(No.)p 951 609 V 99 w(Subpro)s(cess)p 2466 609 V +1047 w(Reference)p 3262 609 V 515 612 2751 4 v 513 733 +4 121 v 702 733 V 951 733 V 1002 700 a(b\))g(2)27 b Fn(!)h +Fw(2,)k(tree)h(\(con)m(t'd\))p 2466 733 V 3262 733 V +513 853 V 702 853 V 805 821 a(41)p 951 853 V 99 w(f)1032 +836 y Fh(i)1060 821 y Fw(Z)1120 784 y Fl(0)1187 821 y +Fn(!)27 b Fw(f)1344 836 y Fh(k)1387 821 y Fw(W)1488 784 +y Fl(+)p 2466 853 V 3262 853 V 513 974 V 702 974 V 805 +941 a Fw(42)p 951 974 V 99 w(f)1032 956 y Fh(i)1060 941 +y Fw(Z)1120 905 y Fl(0)1187 941 y Fn(!)g Fw(f)1344 956 +y Fh(i)1372 941 y Fw(H)1445 905 y Fl(0)p 2466 974 V 3262 +974 V 513 1094 V 702 1094 V 805 1061 a Fw(43)p 951 1094 +V 99 w(f)1032 1076 y Fh(i)1060 1061 y Fw(W)1161 1025 +y Fl(+)1248 1061 y Fn(!)h Fw(f)1406 1076 y Fh(k)1448 +1061 y Fw(g)p 2466 1094 V 3262 1094 V 513 1214 V 702 +1214 V 805 1182 a(44)p 951 1214 V 99 w(f)1032 1197 y +Fh(i)1060 1182 y Fw(W)1161 1146 y Fl(+)1248 1182 y Fn(!)g +Fw(f)1406 1197 y Fh(k)1448 1182 y Fj(\015)p 2466 1214 +V 3262 1214 V 513 1335 V 702 1335 V 805 1302 a Fw(45)p +951 1335 V 99 w(f)1032 1317 y Fh(i)1060 1302 y Fw(W)1161 +1266 y Fl(+)1248 1302 y Fn(!)g Fw(f)1406 1317 y Fh(k)1448 +1302 y Fw(Z)1508 1266 y Fl(0)p 2466 1335 V 3262 1335 +V 513 1455 V 702 1455 V 805 1423 a Fw(46)p 951 1455 V +99 w(f)1032 1438 y Fh(i)1060 1423 y Fw(W)1161 1386 y +Fl(+)1248 1423 y Fn(!)g Fw(f)1406 1438 y Fh(k)1448 1423 +y Fw(W)1549 1386 y Fl(+)p 2466 1455 V 3262 1455 V 513 +1575 V 702 1575 V 805 1543 a Fw(47)p 951 1575 V 99 w(f)1032 +1558 y Fh(i)1060 1543 y Fw(W)1161 1507 y Fl(+)1248 1543 +y Fn(!)g Fw(f)1406 1558 y Fh(k)1448 1543 y Fw(H)1521 +1507 y Fl(0)p 2466 1575 V 3262 1575 V 513 1696 V 702 +1696 V 805 1663 a Fw(48)p 951 1696 V 99 w(f)1032 1678 +y Fh(i)1060 1663 y Fw(H)1133 1627 y Fl(0)1200 1663 y +Fn(!)g Fw(f)1358 1678 y Fh(i)1386 1663 y Fw(g)p 2466 +1696 V 3262 1696 V 513 1816 V 702 1816 V 805 1784 a(49)p +951 1816 V 99 w(f)1032 1799 y Fh(i)1060 1784 y Fw(H)1133 +1748 y Fl(0)1200 1784 y Fn(!)g Fw(f)1358 1799 y Fh(i)1386 +1784 y Fj(\015)p 2466 1816 V 3262 1816 V 513 1937 V 702 +1937 V 805 1904 a Fw(50)p 951 1937 V 99 w(f)1032 1919 +y Fh(i)1060 1904 y Fw(H)1133 1868 y Fl(0)1200 1904 y +Fn(!)g Fw(f)1358 1919 y Fh(i)1386 1904 y Fw(Z)1446 1868 +y Fl(0)p 2466 1937 V 3262 1937 V 513 2057 V 702 2057 +V 805 2024 a Fw(51)p 951 2057 V 99 w(f)1032 2039 y Fh(i)1060 +2024 y Fw(H)1133 1988 y Fl(0)1200 2024 y Fn(!)g Fw(f)1358 +2039 y Fh(k)1400 2024 y Fw(W)1501 1988 y Fl(+)p 2466 +2057 V 3262 2057 V 513 2177 V 702 2177 V 805 2145 a Fw(52)p +951 2177 V 99 w(f)1032 2160 y Fh(i)1060 2145 y Fw(H)1133 +2109 y Fl(0)1200 2145 y Fn(!)g Fw(f)1358 2160 y Fh(i)1386 +2145 y Fw(H)1459 2109 y Fl(0)p 2466 2177 V 3262 2177 +V 513 2298 V 571 2265 a Fw(+)p 702 2298 V 158 w(53)p +951 2298 V 99 w(gg)h Fn(!)e Fw(f)1286 2280 y Fh(k)p 1328 +2186 37 4 v 1328 2265 a Fw(f)1365 2280 y Fh(k)p 2466 +2298 4 121 v 2517 2265 a Fw([Com77)o(,)33 b(Ben84])p +3262 2298 V 513 2418 V 571 2386 a(+)p 702 2418 V 158 +w(54)p 951 2418 V 99 w(g)q Fj(\015)g Fn(!)27 b Fw(f)1293 +2401 y Fh(k)p 1336 2306 37 4 v 1336 2386 a Fw(f)1372 +2401 y Fh(k)p 2466 2418 4 121 v 2517 2386 a Fw([Duk82])p +3262 2418 V 513 2538 V 702 2538 V 805 2506 a(55)p 951 +2538 V 99 w(gZ)1111 2470 y Fl(0)1178 2506 y Fn(!)g Fw(f)1335 +2521 y Fh(k)p 1377 2427 37 4 v 1377 2506 a Fw(f)1414 +2521 y Fh(k)p 2466 2538 4 121 v 3262 2538 V 513 2659 +V 702 2659 V 805 2626 a Fw(56)p 951 2659 V 99 w(gW)1152 +2590 y Fl(+)1239 2626 y Fn(!)g Fw(f)1396 2641 y Fh(k)p +1439 2547 37 4 v 1439 2626 a Fw(f)1476 2641 y Fh(l)p +2466 2659 4 121 v 3262 2659 V 513 2779 V 702 2779 V 805 +2747 a Fw(57)p 951 2779 V 99 w(gH)1124 2711 y Fl(0)1191 +2747 y Fn(!)g Fw(f)1348 2762 y Fh(k)p 1391 2668 37 4 +v 1391 2747 a Fw(f)1428 2762 y Fh(l)p 2466 2779 4 121 +v 3262 2779 V 513 2900 V 571 2867 a Fw(+)p 702 2900 V +158 w(58)p 951 2900 V 99 w Fj(\015)5 b(\015)33 b Fn(!)27 +b Fw(f)1299 2882 y Fh(k)p 1342 2788 37 4 v 1342 2867 +a Fw(f)1378 2882 y Fh(k)p 2466 2900 4 121 v 2517 2867 +a Fw([Bar90)o(])p 3262 2900 V 513 3020 V 702 3020 V 805 +2988 a(59)p 951 3020 V 99 w Fj(\015)5 b Fw(Z)1118 2951 +y Fl(0)1185 2988 y Fn(!)27 b Fw(f)1342 3003 y Fh(k)p +1385 2908 37 4 v 1385 2988 a Fw(f)1421 3003 y Fh(k)p +2466 3020 4 121 v 3262 3020 V 513 3140 V 702 3140 V 805 +3108 a Fw(60)p 951 3140 V 99 w Fj(\015)5 b Fw(W)1159 +3072 y Fl(+)1246 3108 y Fn(!)28 b Fw(f)1404 3123 y Fh(k)p +1446 3029 37 4 v 1446 3108 a Fw(f)1483 3123 y Fh(l)p +2466 3140 4 121 v 3262 3140 V 513 3261 V 702 3261 V 805 +3228 a Fw(61)p 951 3261 V 99 w Fj(\015)5 b Fw(H)1131 +3192 y Fl(0)1198 3228 y Fn(!)28 b Fw(f)1356 3243 y Fh(k)p +1398 3149 37 4 v 1398 3228 a Fw(f)1435 3243 y Fh(k)p +2466 3261 4 121 v 3262 3261 V 513 3381 V 702 3381 V 805 +3349 a Fw(62)p 951 3381 V 99 w(Z)1062 3313 y Fl(0)1101 +3349 y Fw(Z)1161 3313 y Fl(0)1228 3349 y Fn(!)f Fw(f)1385 +3364 y Fh(k)p 1428 3270 37 4 v 1428 3349 a Fw(f)1464 +3364 y Fh(k)p 2466 3381 4 121 v 3262 3381 V 513 3502 +V 702 3502 V 805 3469 a Fw(63)p 951 3502 V 99 w(Z)1062 +3433 y Fl(0)1101 3469 y Fw(W)1202 3433 y Fl(+)1289 3469 +y Fn(!)h Fw(f)1447 3484 y Fh(k)p 1489 3390 37 4 v 1489 +3469 a Fw(f)1526 3484 y Fh(l)p 2466 3502 4 121 v 3262 +3502 V 513 3622 V 702 3622 V 805 3589 a Fw(64)p 951 3622 +V 99 w(Z)1062 3553 y Fl(0)1101 3589 y Fw(H)1174 3553 +y Fl(0)1241 3589 y Fn(!)g Fw(f)1399 3604 y Fh(k)p 1441 +3510 37 4 v 1441 3589 a Fw(f)1478 3604 y Fh(k)p 2466 +3622 4 121 v 3262 3622 V 513 3742 V 702 3742 V 805 3710 +a Fw(65)p 951 3742 V 99 w(W)1103 3674 y Fl(+)1163 3710 +y Fw(W)1264 3674 y Fk(\000)1351 3710 y Fn(!)f Fw(f)1508 +3725 y Fh(k)p 1551 3631 37 4 v 1551 3710 a Fw(f)1588 +3725 y Fh(k)p 2466 3742 4 121 v 3262 3742 V 513 3863 +V 702 3863 V 805 3830 a Fw(66)p 951 3863 V 99 w(W)1103 +3794 y Fl(+)1163 3830 y Fw(H)1236 3794 y Fl(0)1303 3830 +y Fn(!)g Fw(f)1460 3845 y Fh(k)p 1503 3751 37 4 v 1503 +3830 a Fw(f)1540 3845 y Fh(l)p 2466 3863 4 121 v 3262 +3863 V 513 3983 V 702 3983 V 805 3951 a Fw(67)p 951 3983 +V 99 w(H)1075 3914 y Fl(0)1115 3951 y Fw(H)1188 3914 +y Fl(0)1255 3951 y Fn(!)g Fw(f)1412 3966 y Fh(k)p 1455 +3871 37 4 v 1455 3951 a Fw(f)1491 3966 y Fh(k)p 2466 +3983 4 121 v 3262 3983 V 513 4103 V 571 4071 a Fw(+)p +702 4103 V 158 w(68)p 951 4103 V 99 w(gg)i Fn(!)e Fw(gg)p +2466 4103 V 1163 w([Com77)o(,)33 b(Ben84])p 3262 4103 +V 513 4224 V 571 4191 a(+)p 702 4224 V 158 w(69)p 951 +4224 V 99 w Fj(\015)5 b(\015)33 b Fn(!)27 b Fw(W)1370 +4155 y Fl(+)1430 4191 y Fw(W)1531 4155 y Fk(\000)p 2466 +4224 V 2517 4191 a Fw([Kat83)o(])p 3262 4224 V 513 4344 +V 571 4312 a(+)p 702 4344 V 158 w(70)p 951 4344 V 99 +w Fj(\015)5 b Fw(W)1159 4276 y Fl(+)1246 4312 y Fn(!)28 +b Fw(Z)1434 4276 y Fl(0)1473 4312 y Fw(W)1574 4276 y +Fl(+)p 2466 4344 V 2517 4312 a Fw([Kun87])p 3262 4344 +V 513 4465 V 571 4432 a(+)p 702 4465 V 158 w(71)p 951 +4465 V 99 w(Z)1062 4396 y Fl(0)1101 4432 y Fw(Z)1161 +4396 y Fl(0)1228 4432 y Fn(!)f Fw(Z)1415 4396 y Fl(0)1454 +4432 y Fw(Z)1514 4396 y Fl(0)1586 4432 y Fw(\(longitudinal\))p +2466 4465 V 342 w([Abb87])p 3262 4465 V 513 4585 V 571 +4552 a(+)p 702 4585 V 158 w(72)p 951 4585 V 99 w(Z)1062 +4516 y Fl(0)1101 4552 y Fw(Z)1161 4516 y Fl(0)1228 4552 +y Fn(!)g Fw(W)1456 4516 y Fl(+)1516 4552 y Fw(W)1617 +4516 y Fk(\000)1709 4552 y Fw(\(longitudinal\))p 2466 +4585 V 219 w([Abb87])p 3262 4585 V 513 4705 V 571 4673 +a(+)p 702 4705 V 158 w(73)p 951 4705 V 99 w(Z)1062 4637 +y Fl(0)1101 4673 y Fw(W)1202 4637 y Fl(+)1289 4673 y +Fn(!)h Fw(Z)1477 4637 y Fl(0)1516 4673 y Fw(W)1617 4637 +y Fl(+)1709 4673 y Fw(\(longitudinal\))p 2466 4705 V +219 w([Dob91)o(])p 3262 4705 V 513 4826 V 702 4826 V +805 4793 a(74)p 951 4826 V 99 w(Z)1062 4757 y Fl(0)1101 +4793 y Fw(H)1174 4757 y Fl(0)1241 4793 y Fn(!)g Fw(Z)1429 +4757 y Fl(0)1468 4793 y Fw(H)1541 4757 y Fl(0)p 2466 +4826 V 3262 4826 V 513 4946 V 702 4946 V 805 4914 a Fw(75)p +951 4946 V 99 w(W)1103 4877 y Fl(+)1163 4914 y Fw(W)1264 +4877 y Fk(\000)1351 4914 y Fn(!)f Fj(\015)5 b(\015)p +2466 4946 V 3262 4946 V 513 5067 V 571 5034 a Fw(+)p +702 5067 V 158 w(76)p 951 5067 V 99 w(W)1103 4998 y Fl(+)1163 +5034 y Fw(W)1264 4998 y Fk(\000)1351 5034 y Fn(!)27 b +Fw(Z)1538 4998 y Fl(0)1577 5034 y Fw(Z)1637 4998 y Fl(0)1709 +5034 y Fw(\(longitudinal\))p 2466 5067 V 219 w([Ben87b])p +3262 5067 V 513 5187 V 571 5154 a(+)p 702 5187 V 158 +w(77)p 951 5187 V 99 w(W)1103 5118 y Fl(+)1163 5154 y +Fw(W)1264 5118 y Fk(\006)1351 5154 y Fn(!)g Fw(W)1579 +5118 y Fl(+)1639 5154 y Fw(W)1740 5118 y Fk(\006)1832 +5154 y Fw(\(longitudinal\))p 2466 5187 V 96 w([Dun86,)32 +b(Bar90a)o(])p 3262 5187 V 513 5307 V 702 5307 V 805 +5275 a(78)p 951 5307 V 99 w(W)1103 5239 y Fl(+)1163 5275 +y Fw(H)1236 5239 y Fl(0)1303 5275 y Fn(!)27 b Fw(W)1531 +5239 y Fl(+)1591 5275 y Fw(H)1664 5239 y Fl(0)p 2466 +5307 V 3262 5307 V 513 5428 V 702 5428 V 805 5395 a Fw(79)p +951 5428 V 99 w(H)1075 5359 y Fl(0)1115 5395 y Fw(H)1188 +5359 y Fl(0)1255 5395 y Fn(!)g Fw(H)1455 5359 y Fl(0)1495 +5395 y Fw(H)1568 5359 y Fl(0)p 2466 5428 V 3262 5428 +V 513 5548 V 571 5516 a Fw(+)p 702 5548 V 158 w(80)p +951 5548 V 99 w(q)1053 5531 y Fh(i)1082 5516 y Fj(\015)32 +b Fn(!)c Fw(q)1344 5531 y Fh(k)1387 5516 y Fj(\031)1446 +5479 y Fk(\006)p 2466 5548 V 2517 5516 a Fw([Bag82)o(])p +3262 5548 V 515 5551 2751 4 v 1817 5953 a(114)p eop +%%Page: 115 121 +115 120 bop 0 98 a Fw(T)-8 b(able)37 b(13:)52 b(Subpro)s(cess)39 +b(co)s(des,)g(part)e(3.)57 b(First)37 b(column)f(is)g(`+')i(for)e(pro)s +(cesses)k(implemen)m(ted)35 b(and)0 206 y(blank)e(for)f(those)i(that)e +(are)h(only)g(foreseen.)45 b(Second)34 b(is)f(the)g(subpro)s(cess)i(n)m +(um)m(b)s(er)e Fq(ISUB)p Fw(,)h(and)f(third)0 314 y(the)41 +b(description)g(of)f(the)i(pro)s(cess.)70 b(The)42 b(\014nal)e(column)g +(giv)m(es)h(references)i(from)d(whic)m(h)h(the)h(cross)0 +423 y(sections)33 b(ha)m(v)m(e)h(b)s(een)f(obtained.)43 +b(See)34 b(text)f(for)f(further)h(information.)p 350 +542 3080 4 v 348 663 4 121 v 400 630 a(In)p 537 663 V +100 w(No.)p 786 663 V 100 w(Subpro)s(cess)p 2392 663 +V 1137 w(Reference)p 3426 663 V 350 666 3080 4 v 348 +786 4 121 v 537 786 V 786 786 V 838 754 a(c\))f(2)c Fn(!)f +Fw(2,)32 b(tree,)i(massiv)m(e)e(\014nal)g(quarks)p 2392 +786 V 3426 786 V 348 907 V 407 874 a(+)p 537 907 V 157 +w(81)p 786 907 V 100 w(f)868 889 y Fh(i)p 895 795 37 +4 v 895 874 a Fw(f)932 889 y Fh(i)988 874 y Fn(!)27 b +Fw(Q)1191 889 y Fh(k)p 1234 796 76 4 v 1234 874 a Fw(Q)1310 +898 y Fh(k)p 2392 907 4 121 v 2443 874 a Fw([Com79)o(])p +3426 907 V 348 1027 V 407 995 a(+)p 537 1027 V 157 w(82)p +786 1027 V 100 w(gg)h Fn(!)f Fw(Q)1167 1010 y Fh(k)p +1210 917 76 4 v 1210 995 a Fw(Q)1286 1018 y Fh(k)p 2392 +1027 4 121 v 2443 995 a Fw([Com79)o(])p 3426 1027 V 348 +1147 V 407 1115 a(+)p 537 1147 V 157 w(83)p 786 1147 +V 100 w(q)889 1130 y Fh(i)917 1115 y Fw(f)947 1130 y +Fh(j)1011 1115 y Fn(!)g Fw(Q)1214 1130 y Fh(k)1257 1115 +y Fw(f)1287 1130 y Fh(l)p 2392 1147 V 2443 1115 a Fw([Dic86)o(])p +3426 1147 V 348 1268 V 407 1235 a(+)p 537 1268 V 157 +w(84)p 786 1268 V 100 w(g)q Fj(\015)32 b Fn(!)c Fw(Q)1175 +1250 y Fh(k)p 1217 1157 76 4 v 1217 1235 a Fw(Q)1293 +1259 y Fh(k)p 2392 1268 4 121 v 2443 1235 a Fw([F)-8 +b(on81)o(])p 3426 1268 V 348 1388 V 407 1356 a(+)p 537 +1388 V 157 w(85)p 786 1388 V 100 w Fj(\015)5 b(\015)32 +b Fn(!)c Fw(F)1169 1371 y Fh(k)p 1211 1278 64 4 v 1211 +1356 a Fw(F)1275 1371 y Fh(k)p 2392 1388 4 121 v 2443 +1356 a Fw([Bar90])p 3426 1388 V 348 1509 V 407 1476 a(+)p +537 1509 V 157 w(86)p 786 1509 V 100 w(gg)g Fn(!)f Fw(J)p +Fj(= )t Fw(g)p 2392 1509 V 1137 w([Bai83)o(])p 3426 1509 +V 348 1629 V 407 1596 a(+)p 537 1629 V 157 w(87)p 786 +1629 V 100 w(gg)h Fn(!)f Fj(\037)1152 1611 y Fl(0c)1223 +1596 y Fw(g)p 2392 1629 V 1171 w([Gas87])p 3426 1629 +V 348 1749 V 407 1717 a(+)p 537 1749 V 157 w(88)p 786 +1749 V 100 w(gg)h Fn(!)f Fj(\037)1152 1732 y Fl(1c)1223 +1717 y Fw(g)p 2392 1749 V 1171 w([Gas87])p 3426 1749 +V 348 1870 V 407 1837 a(+)p 537 1870 V 157 w(89)p 786 +1870 V 100 w(gg)h Fn(!)f Fj(\037)1152 1852 y Fl(2c)1223 +1837 y Fw(g)p 2392 1870 V 1171 w([Gas87])p 3426 1870 +V 348 1990 V 407 1958 a(+)p 537 1990 V 109 w(106)p 786 +1990 V 99 w(gg)h Fn(!)f Fw(J)p Fj(= )t(\015)p 2392 1990 +V 1135 w Fw([Dre91])p 3426 1990 V 348 2111 V 407 2078 +a(+)p 537 2111 V 109 w(107)p 786 2111 V 99 w(g)q Fj(\015)32 +b Fn(!)c Fw(J)p Fj(= )t Fw(g)p 2392 2111 V 1129 w([Ber81])p +3426 2111 V 348 2231 V 407 2198 a(+)p 537 2231 V 109 +w(108)p 786 2231 V 99 w Fj(\015)5 b(\015)32 b Fn(!)c +Fw(J)p Fj(= )t(\015)p 2392 2231 V 1121 w Fw([Jun97])p +3426 2231 V 350 2234 3080 4 v 348 2355 4 121 v 537 2355 +V 786 2355 V 838 2322 a(d\))k(`minim)m(um)e(bias')p 2392 +2355 V 3426 2355 V 348 2475 V 407 2442 a(+)p 537 2475 +V 157 w(91)p 786 2475 V 100 w(elastic)h(scattering)p +2392 2475 V 889 w([Sc)m(h94)q(])p 3426 2475 V 348 2595 +V 407 2563 a(+)p 537 2595 V 157 w(92)p 786 2595 V 100 +w(single)g(di\013raction)g(\()p Fj(AB)i Fn(!)27 b Fj(X)8 +b(B)d Fw(\))p 2392 2595 V 314 w([Sc)m(h94)q(])p 3426 +2595 V 348 2716 V 407 2683 a(+)p 537 2716 V 157 w(93)p +786 2716 V 100 w(single)31 b(di\013raction)g(\()p Fj(AB)i +Fn(!)27 b Fj(AX)8 b Fw(\))p 2392 2716 V 320 w([Sc)m(h94)q(])p +3426 2716 V 348 2836 V 407 2804 a(+)p 537 2836 V 157 +w(94)p 786 2836 V 100 w(double)32 b(di\013raction)p 2392 +2836 V 853 w([Sc)m(h94)q(])p 3426 2836 V 348 2957 V 407 +2924 a(+)p 537 2957 V 157 w(95)p 786 2957 V 100 w(lo)m(w-)p +Fj(p)1064 2939 y Fk(?)1154 2924 y Fw(pro)s(duction)p +2392 2957 V 825 w([Sj\177)-49 b(o87])p 3426 2957 V 350 +2960 3080 4 v 348 3080 4 121 v 537 3080 V 786 3080 V +838 3048 a(e\))32 b(2)c Fn(!)f Fw(1,)32 b(lo)s(op)p 2392 +3080 V 3426 3080 V 348 3201 V 537 3201 V 592 3168 a(101)p +786 3201 V 99 w(gg)c Fn(!)f Fw(Z)1151 3132 y Fl(0)p 2392 +3201 V 3426 3201 V 348 3321 V 407 3288 a Fw(+)p 537 3321 +V 109 w(102)p 786 3321 V 99 w(gg)h Fn(!)f Fw(H)1164 3252 +y Fl(0)p 2392 3321 V 2443 3288 a Fw([Eic84])p 3426 3321 +V 348 3441 V 407 3409 a(+)p 537 3441 V 109 w(103)p 786 +3441 V 99 w Fj(\015)5 b(\015)32 b Fn(!)c Fw(H)1178 3373 +y Fl(0)p 2392 3441 V 2443 3409 a Fw([Dre89])p 3426 3441 +V 350 3445 3080 4 v 348 3565 4 121 v 537 3565 V 786 3565 +V 838 3533 a(f)7 b(\))32 b(2)27 b Fn(!)g Fw(2,)33 b(b)s(o)m(x)p +2392 3565 V 3426 3565 V 348 3685 V 407 3653 a(+)p 537 +3685 V 109 w(110)p 786 3685 V 99 w(f)868 3668 y Fh(i)p +895 3574 37 4 v 895 3653 a Fw(f)932 3668 y Fh(i)988 3653 +y Fn(!)27 b Fj(\015)5 b Fw(H)1244 3617 y Fl(0)p 2392 +3685 4 121 v 2443 3653 a Fw([Ber85a])p 3426 3685 V 348 +3806 V 407 3773 a(+)p 537 3806 V 109 w(111)p 786 3806 +V 99 w(f)868 3788 y Fh(i)p 895 3694 37 4 v 895 3773 a +Fw(f)932 3788 y Fh(i)988 3773 y Fn(!)27 b Fw(gH)1237 +3737 y Fl(0)p 2392 3806 4 121 v 2443 3773 a Fw([Ell88)n(])p +3426 3806 V 348 3926 V 407 3894 a(+)p 537 3926 V 109 +w(112)p 786 3926 V 99 w(f)868 3909 y Fh(i)895 3894 y +Fw(g)i Fn(!)f Fw(f)1131 3909 y Fh(i)1159 3894 y Fw(H)1232 +3858 y Fl(0)p 2392 3926 V 2443 3894 a Fw([Ell88)n(])p +3426 3926 V 348 4047 V 407 4014 a(+)p 537 4047 V 109 +w(113)p 786 4047 V 99 w(gg)g Fn(!)f Fw(gH)1213 3978 y +Fl(0)p 2392 4047 V 2443 4014 a Fw([Ell88)n(])p 3426 4047 +V 348 4167 V 407 4134 a(+)p 537 4167 V 109 w(114)p 786 +4167 V 99 w(gg)h Fn(!)f Fj(\015)5 b(\015)p 2392 4167 +V 1245 w Fw([Con71,)33 b(Ber84,)f(Dic88)o(])p 3426 4167 +V 348 4287 V 407 4255 a(+)p 537 4287 V 109 w(115)p 786 +4287 V 99 w(gg)c Fn(!)f Fw(g)q Fj(\015)p 2392 4287 V +1251 w Fw([Con71,)33 b(Ber84,)f(Dic88)o(])p 3426 4287 +V 348 4408 V 537 4408 V 592 4375 a(116)p 786 4408 V 99 +w(gg)c Fn(!)f Fj(\015)5 b Fw(Z)1207 4339 y Fl(0)p 2392 +4408 V 3426 4408 V 348 4528 V 537 4528 V 592 4496 a Fw(117)p +786 4528 V 99 w(gg)28 b Fn(!)f Fw(Z)1151 4459 y Fl(0)1190 +4496 y Fw(Z)1250 4459 y Fl(0)p 2392 4528 V 3426 4528 +V 348 4648 V 537 4648 V 592 4616 a Fw(118)p 786 4648 +V 99 w(gg)h Fn(!)f Fw(W)1192 4580 y Fl(+)1252 4616 y +Fw(W)1353 4580 y Fk(\000)p 2392 4648 V 3426 4648 V 348 +4769 V 537 4769 V 592 4736 a Fw(119)p 786 4769 V 99 w +Fj(\015)5 b(\015)32 b Fn(!)c Fw(gg)p 2392 4769 V 3426 +4769 V 350 4772 3080 4 v 348 4893 4 121 v 537 4893 V +786 4893 V 838 4860 a(g\))k(2)27 b Fn(!)g Fw(3,)33 b(tree)p +2392 4893 V 3426 4893 V 348 5013 V 407 4980 a(+)p 537 +5013 V 109 w(121)p 786 5013 V 99 w(gg)28 b Fn(!)f Fw(Q)1167 +4995 y Fh(k)p 1210 4902 76 4 v 1210 4980 a Fw(Q)1286 +5004 y Fh(k)1328 4980 y Fw(H)1401 4944 y Fl(0)p 2392 +5013 4 121 v 2443 4980 a Fw([Kun84])p 3426 5013 V 348 +5133 V 407 5101 a(+)p 537 5133 V 109 w(122)p 786 5133 +V 99 w(q)889 5116 y Fh(i)p 917 5048 52 4 v 917 5101 a +Fw(q)969 5124 y Fh(i)1025 5101 y Fn(!)g Fw(Q)1228 5116 +y Fh(k)p 1270 5023 76 4 v 1270 5101 a Fw(Q)1346 5124 +y Fh(k)1389 5101 y Fw(H)1462 5065 y Fl(0)p 2392 5133 +4 121 v 2443 5101 a Fw([Kun84])p 3426 5133 V 348 5254 +V 407 5221 a(+)p 537 5254 V 109 w(123)p 786 5254 V 99 +w(f)868 5236 y Fh(i)895 5221 y Fw(f)925 5236 y Fh(j)989 +5221 y Fn(!)h Fw(f)1147 5236 y Fh(i)1175 5221 y Fw(f)1205 +5236 y Fh(j)1241 5221 y Fw(H)1314 5185 y Fl(0)1386 5221 +y Fw(\(ZZ)k(fusion\))p 2392 5254 V 576 w([Cah84])p 3426 +5254 V 348 5374 V 407 5342 a(+)p 537 5374 V 109 w(124)p +786 5374 V 99 w(f)868 5357 y Fh(i)895 5342 y Fw(f)925 +5357 y Fh(j)989 5342 y Fn(!)c Fw(f)1147 5357 y Fh(k)1189 +5342 y Fw(f)1219 5357 y Fh(l)1245 5342 y Fw(H)1318 5305 +y Fl(0)1390 5342 y Fw(\(W)1529 5305 y Fl(+)1589 5342 +y Fw(W)1690 5305 y Fk(\000)1782 5342 y Fw(fusion\))p +2392 5374 V 370 w([Cah84])p 3426 5374 V 348 5494 V 407 +5462 a(+)p 537 5494 V 109 w(131)p 786 5494 V 99 w(gg)g +Fn(!)f Fw(Z)1151 5426 y Fl(0)1190 5462 y Fw(Q)1266 5477 +y Fh(k)p 1309 5384 76 4 v 1309 5462 a Fw(Q)1385 5485 +y Fh(k)p 2392 5494 4 121 v 2443 5462 a Fw([Eij90)o(])p +3426 5494 V 350 5498 3080 4 v 1817 5953 a(115)p eop +%%Page: 116 122 +116 121 bop 0 343 a Fw(T)-8 b(able)37 b(14:)52 b(Subpro)s(cess)39 +b(co)s(des,)g(part)e(4.)57 b(First)37 b(column)f(is)g(`+')i(for)e(pro)s +(cesses)k(implemen)m(ted)35 b(and)0 452 y(blank)e(for)f(those)i(that)e +(are)h(only)g(foreseen.)45 b(Second)34 b(is)f(the)g(subpro)s(cess)i(n)m +(um)m(b)s(er)e Fq(ISUB)p Fw(,)h(and)f(third)0 560 y(the)41 +b(description)g(of)f(the)i(pro)s(cess.)70 b(The)42 b(\014nal)e(column)g +(giv)m(es)h(references)i(from)d(whic)m(h)h(the)h(cross)0 +668 y(sections)33 b(ha)m(v)m(e)h(b)s(een)f(obtained.)43 +b(See)34 b(text)f(for)f(further)h(information.)p 373 +788 3034 4 v 371 908 4 121 v 423 876 a(In)p 560 908 V +100 w(No.)p 809 908 V 99 w(Subpro)s(cess)p 2671 908 V +1394 w(Reference)p 3403 908 V 373 912 3034 4 v 371 1032 +4 121 v 560 1032 V 809 1032 V 860 1000 a(h\))g(non-Standard)f(Mo)s +(del,)h(2)27 b Fn(!)g Fw(1)p 2671 1032 V 3403 1032 V +371 1152 V 430 1120 a(+)p 560 1152 V 108 w(141)p 809 +1152 V 99 w(f)890 1135 y Fh(i)p 918 1041 37 4 v 918 1120 +a Fw(f)955 1135 y Fh(i)1011 1120 y Fn(!)g Fj(\015)5 b(=)p +Fw(Z)1303 1084 y Fl(0)1342 1120 y Fj(=)p Fw(Z)1451 1084 +y Fk(0)p Fl(0)p 2671 1152 4 121 v 2722 1120 a Fw([Alt89)o(])p +3403 1152 V 371 1273 V 430 1240 a(+)p 560 1273 V 108 +w(142)p 809 1273 V 99 w(f)890 1255 y Fh(i)p 918 1161 +37 4 v 918 1240 a Fw(f)955 1255 y Fh(j)1019 1240 y Fn(!)28 +b Fw(W)1248 1204 y Fk(0)p Fl(+)p 2671 1273 4 121 v 2722 +1240 a Fw([Alt89)o(])p 3403 1273 V 371 1393 V 430 1361 +a(+)p 560 1393 V 108 w(143)p 809 1393 V 99 w(f)890 1376 +y Fh(i)p 918 1282 37 4 v 918 1361 a Fw(f)955 1376 y Fh(j)1019 +1361 y Fn(!)g Fw(H)1220 1325 y Fl(+)p 2671 1393 4 121 +v 2722 1361 a Fw([Gun87])p 3403 1393 V 371 1514 V 430 +1481 a(+)p 560 1514 V 108 w(144)p 809 1514 V 99 w(f)890 +1496 y Fh(i)p 918 1402 37 4 v 918 1481 a Fw(f)955 1496 +y Fh(j)1019 1481 y Fn(!)g Fw(R)p 2671 1514 4 121 v 1503 +w([Ben85a])p 3403 1514 V 371 1634 V 430 1601 a(+)p 560 +1634 V 108 w(145)p 809 1634 V 99 w(q)911 1616 y Fh(i)940 +1601 y Fj(`)981 1616 y Fh(j)1045 1601 y Fn(!)g Fw(L)1234 +1616 y Fl(Q)p 2671 1634 V 2722 1601 a Fw([W)-8 b(ud86)q(])p +3403 1634 V 371 1754 V 430 1722 a(+)p 560 1754 V 108 +w(147)p 809 1754 V 99 w(dg)29 b Fn(!)f Fw(d)1174 1686 +y Fk(\003)p 2671 1754 V 2722 1722 a Fw([Bau90])p 3403 +1754 V 371 1875 V 430 1842 a(+)p 560 1875 V 108 w(148)p +809 1875 V 99 w(ug)h Fn(!)f Fw(u)1174 1806 y Fk(\003)p +2671 1875 V 2722 1842 a Fw([Bau90])p 3403 1875 V 371 +1995 V 430 1963 a(+)p 560 1995 V 108 w(149)p 809 1995 +V 99 w(gg)h Fn(!)e Fj(\021)1162 1978 y Fl(tec)n(hni)p +2671 1995 V 2722 1963 a Fw([Eic84,)32 b(App92)q(])p 3403 +1995 V 371 2115 V 430 2083 a(+)p 560 2115 V 108 w(151)p +809 2115 V 99 w(f)890 2098 y Fh(i)p 918 2004 37 4 v 918 +2083 a Fw(f)955 2098 y Fh(i)1011 2083 y Fn(!)27 b Fw(H)1211 +2047 y Fk(0)p Fl(0)p 2671 2115 4 121 v 2722 2083 a Fw([Eic84])p +3403 2115 V 371 2236 V 430 2203 a(+)p 560 2236 V 108 +w(152)p 809 2236 V 99 w(gg)i Fn(!)e Fw(H)1187 2167 y +Fk(0)p Fl(0)p 2671 2236 V 2722 2203 a Fw([Eic84])p 3403 +2236 V 371 2356 V 430 2324 a(+)p 560 2356 V 108 w(153)p +809 2356 V 99 w Fj(\015)5 b(\015)33 b Fn(!)27 b Fw(H)1200 +2288 y Fk(0)p Fl(0)p 2671 2356 V 2722 2324 a Fw([Dre89])p +3403 2356 V 371 2477 V 430 2444 a(+)p 560 2477 V 108 +w(156)p 809 2477 V 99 w(f)890 2459 y Fh(i)p 918 2365 +37 4 v 918 2444 a Fw(f)955 2459 y Fh(i)1011 2444 y Fn(!)g +Fw(A)1211 2408 y Fl(0)p 2671 2477 4 121 v 2722 2444 a +Fw([Eic84])p 3403 2477 V 371 2597 V 430 2565 a(+)p 560 +2597 V 108 w(157)p 809 2597 V 99 w(gg)i Fn(!)e Fw(A)1187 +2528 y Fl(0)p 2671 2597 V 2722 2565 a Fw([Eic84])p 3403 +2597 V 371 2717 V 430 2685 a(+)p 560 2717 V 108 w(158)p +809 2717 V 99 w Fj(\015)5 b(\015)33 b Fn(!)27 b Fw(A)1200 +2649 y Fl(0)p 2671 2717 V 2722 2685 a Fw([Dre89])p 3403 +2717 V 373 2721 3034 4 v 371 2841 4 121 v 560 2841 V +809 2841 V 860 2809 a(i\))32 b(non-Standard)g(Mo)s(del,)h(2)27 +b Fn(!)g Fw(2)33 b(and)f(2)c Fn(!)f Fw(3)p 2671 2841 +V 3403 2841 V 371 2961 V 430 2929 a(+)p 560 2961 V 108 +w(161)p 809 2961 V 99 w(f)890 2944 y Fh(i)918 2929 y +Fw(g)i Fn(!)f Fw(f)1154 2944 y Fh(k)1196 2929 y Fw(H)1269 +2893 y Fl(+)p 2671 2961 V 2722 2929 a Fw([Bar88])p 3403 +2961 V 371 3082 V 430 3049 a(+)p 560 3082 V 108 w(162)p +809 3082 V 99 w(qg)i Fn(!)d Fj(`)p Fw(L)1219 3064 y Fl(Q)p +2671 3082 V 2722 3049 a Fw([Hew88)q(])p 3403 3082 V 371 +3202 V 430 3170 a(+)p 560 3202 V 108 w(163)p 809 3202 +V 99 w(gg)i Fn(!)e Fw(L)1175 3185 y Fl(Q)p 1234 3092 +61 4 v 1234 3170 a Fw(L)1295 3185 y Fl(Q)p 2671 3202 +4 121 v 2722 3170 a Fw([Hew88)q(,)33 b(Eic84)o(])p 3403 +3202 V 371 3323 V 430 3290 a(+)p 560 3323 V 108 w(164)p +809 3323 V 99 w(q)911 3305 y Fh(i)p 940 3237 52 4 v 940 +3290 a Fw(q)992 3314 y Fh(i)1047 3290 y Fn(!)28 b Fw(L)1236 +3305 y Fl(Q)p 1295 3212 61 4 v 1295 3290 a Fw(L)1356 +3305 y Fl(Q)p 2671 3323 4 121 v 2722 3290 a Fw([Hew88)q(])p +3403 3323 V 371 3443 V 430 3411 a(+)p 560 3443 V 108 +w(165)p 809 3443 V 99 w(f)890 3426 y Fh(i)p 918 3331 +37 4 v 918 3411 a Fw(f)955 3426 y Fh(i)1011 3411 y Fn(!)f +Fw(f)1168 3426 y Fh(k)p 1211 3331 V 1211 3411 a Fw(f)1248 +3426 y Fh(k)1323 3411 y Fw(\(via)32 b Fj(\015)1577 3374 +y Fk(\003)1616 3411 y Fj(=)p Fw(Z)1725 3374 y Fl(0)1764 +3411 y Fw(\))p 2671 3443 4 121 v 920 w([Eic84,)g(Lan91])p +3403 3443 V 371 3563 V 430 3531 a(+)p 560 3563 V 108 +w(166)p 809 3563 V 99 w(f)890 3546 y Fh(i)p 918 3452 +37 4 v 918 3531 a Fw(f)955 3546 y Fh(j)1019 3531 y Fn(!)c +Fw(f)1177 3546 y Fh(k)p 1219 3452 V 1219 3531 a Fw(f)1256 +3546 y Fh(l)1314 3531 y Fw(\(via)k(W)1613 3495 y Fk(\006)1673 +3531 y Fw(\))p 2671 3563 4 121 v 1011 w([Eic84,)g(Lan91])p +3403 3563 V 371 3684 V 430 3651 a(+)p 560 3684 V 108 +w(167)p 809 3684 V 99 w(qq)962 3615 y Fk(0)1014 3651 +y Fn(!)c Fw(q)1193 3615 y Fk(00)1236 3651 y Fw(d)1290 +3615 y Fk(\003)p 2671 3684 V 2722 3651 a Fw([Bau90])p +3403 3684 V 371 3804 V 430 3772 a(+)p 560 3804 V 108 +w(168)p 809 3804 V 99 w(qq)962 3736 y Fk(0)1014 3772 +y Fn(!)g Fw(q)1193 3736 y Fk(00)1236 3772 y Fw(u)1290 +3736 y Fk(\003)p 2671 3804 V 2722 3772 a Fw([Bau90])p +3403 3804 V 371 3925 V 430 3892 a(+)p 560 3925 V 108 +w(171)p 809 3925 V 99 w(f)890 3907 y Fh(i)p 918 3813 +37 4 v 918 3892 a Fw(f)955 3907 y Fh(i)1011 3892 y Fn(!)f +Fw(Z)1198 3856 y Fl(0)1237 3892 y Fw(H)1310 3856 y Fk(0)p +Fl(0)p 2671 3925 4 121 v 2722 3892 a Fw([Eic84])p 3403 +3925 V 371 4045 V 430 4012 a(+)p 560 4045 V 108 w(172)p +809 4045 V 99 w(f)890 4027 y Fh(i)p 918 3933 37 4 v 918 +4012 a Fw(f)955 4027 y Fh(j)1019 4012 y Fn(!)h Fw(W)1248 +3976 y Fl(+)1307 4012 y Fw(H)1380 3976 y Fk(0)p Fl(0)p +2671 4045 4 121 v 2722 4012 a Fw([Eic84])p 3403 4045 +V 371 4165 V 430 4133 a(+)p 560 4165 V 108 w(173)p 809 +4165 V 99 w(f)890 4148 y Fh(i)918 4133 y Fw(f)948 4148 +y Fh(j)1012 4133 y Fn(!)g Fw(f)1170 4148 y Fh(i)1198 +4133 y Fw(f)1228 4148 y Fh(j)1264 4133 y Fw(H)1337 4097 +y Fk(0)p Fl(0)1428 4133 y Fw(\(ZZ)k(fusion\))p 2671 4165 +V 813 w([Cah84])p 3403 4165 V 371 4286 V 430 4253 a(+)p +560 4286 V 108 w(174)p 809 4286 V 99 w(f)890 4268 y Fh(i)918 +4253 y Fw(f)948 4268 y Fh(j)1012 4253 y Fn(!)c Fw(f)1170 +4268 y Fh(k)1212 4253 y Fw(f)1242 4268 y Fh(l)1268 4253 +y Fw(H)1341 4217 y Fk(0)p Fl(0)1432 4253 y Fw(\(W)1571 +4217 y Fl(+)1631 4253 y Fw(W)1732 4217 y Fk(\000)1824 +4253 y Fw(fusion\))p 2671 4286 V 607 w([Cah84])p 3403 +4286 V 371 4406 V 430 4374 a(+)p 560 4406 V 108 w(176)p +809 4406 V 99 w(f)890 4389 y Fh(i)p 918 4294 37 4 v 918 +4374 a Fw(f)955 4389 y Fh(i)1011 4374 y Fn(!)f Fw(Z)1198 +4337 y Fl(0)1237 4374 y Fw(A)1310 4337 y Fl(0)p 2671 +4406 4 121 v 2722 4374 a Fw([Eic84])p 3403 4406 V 371 +4526 V 430 4494 a(+)p 560 4526 V 108 w(177)p 809 4526 +V 99 w(f)890 4509 y Fh(i)p 918 4415 37 4 v 918 4494 a +Fw(f)955 4509 y Fh(j)1019 4494 y Fn(!)h Fw(W)1248 4458 +y Fl(+)1307 4494 y Fw(A)1380 4458 y Fl(0)p 2671 4526 +4 121 v 2722 4494 a Fw([Eic84])p 3403 4526 V 371 4647 +V 430 4614 a(+)p 560 4647 V 108 w(178)p 809 4647 V 99 +w(f)890 4629 y Fh(i)918 4614 y Fw(f)948 4629 y Fh(j)1012 +4614 y Fn(!)g Fw(f)1170 4629 y Fh(i)1198 4614 y Fw(f)1228 +4629 y Fh(j)1264 4614 y Fw(A)1337 4578 y Fl(0)1409 4614 +y Fw(\(ZZ)k(fusion\))p 2671 4647 V 832 w([Cah84])p 3403 +4647 V 371 4767 V 430 4735 a(+)p 560 4767 V 108 w(179)p +809 4767 V 99 w(f)890 4750 y Fh(i)918 4735 y Fw(f)948 +4750 y Fh(j)1012 4735 y Fn(!)c Fw(f)1170 4750 y Fh(k)1212 +4735 y Fw(f)1242 4750 y Fh(l)1268 4735 y Fw(A)1341 4699 +y Fl(0)1413 4735 y Fw(\(W)1552 4699 y Fl(+)1612 4735 +y Fw(W)1713 4699 y Fk(\000)1805 4735 y Fw(fusion\))p +2671 4767 V 626 w([Cah84])p 3403 4767 V 371 4888 V 430 +4855 a(+)p 560 4888 V 108 w(181)p 809 4888 V 99 w(gg)h +Fn(!)e Fw(Q)1190 4870 y Fh(k)p 1233 4777 76 4 v 1233 +4855 a Fw(Q)1309 4879 y Fh(k)1351 4855 y Fw(H)1424 4819 +y Fk(0)p Fl(0)p 2671 4888 4 121 v 2722 4855 a Fw([Kun84])p +3403 4888 V 371 5008 V 430 4975 a(+)p 560 5008 V 108 +w(182)p 809 5008 V 99 w(q)911 4990 y Fh(i)p 940 4923 +52 4 v 940 4975 a Fw(q)992 4999 y Fh(i)1047 4975 y Fn(!)h +Fw(Q)1251 4990 y Fh(k)p 1293 4897 76 4 v 1293 4975 a +Fw(Q)1369 4999 y Fh(k)1412 4975 y Fw(H)1485 4939 y Fk(0)p +Fl(0)p 2671 5008 4 121 v 2722 4975 a Fw([Kun84])p 3403 +5008 V 371 5128 V 430 5096 a(+)p 560 5128 V 108 w(186)p +809 5128 V 99 w(gg)h Fn(!)e Fw(Q)1190 5111 y Fh(k)p 1233 +5018 76 4 v 1233 5096 a Fw(Q)1309 5119 y Fh(k)1351 5096 +y Fw(A)1424 5060 y Fl(0)p 2671 5128 4 121 v 2722 5096 +a Fw([Kun84])p 3403 5128 V 371 5249 V 430 5216 a(+)p +560 5249 V 108 w(187)p 809 5249 V 99 w(q)911 5231 y Fh(i)p +940 5163 52 4 v 940 5216 a Fw(q)992 5240 y Fh(i)1047 +5216 y Fn(!)h Fw(Q)1251 5231 y Fh(k)p 1293 5138 76 4 +v 1293 5216 a Fw(Q)1369 5240 y Fh(k)1412 5216 y Fw(A)1485 +5180 y Fl(0)p 2671 5249 4 121 v 2722 5216 a Fw([Kun84])p +3403 5249 V 373 5252 3034 4 v 1817 5953 a(116)p eop +%%Page: 117 123 +117 122 bop 0 -18 a Fw(or)35 b(accessible)h(form,)f(or)h(where)h(c)m +(hance)g(lead)e(us.)53 b(Ap)s(ologies)34 b(to)h(all)e(matrix-elemen)m +(t)h(calculators)0 90 y(who)i(are)g(not)f(men)m(tioned.)53 +b(Ho)m(w)m(ev)m(er,)39 b(remem)m(b)s(er)c(that)h(this)f(is)h(not)f(a)h +(review)g(article)e(on)i(ph)m(ysics)0 198 y(pro)s(cesses,)f(but)d(only) +g(a)g(w)m(a)m(y)i(for)e(readers)h(to)f(kno)m(w)h(what)g(is)f(actually)f +(found)h(in)g(the)h(program,)e(for)0 307 y(b)s(etter)i(or)f(w)m(orse.) +46 b(In)33 b(sev)m(eral)g(instances,)h(errata)e(ha)m(v)m(e)i(b)s(een)f +(obtained)g(from)e(the)i(authors.)44 b(Often)0 415 y(the)j(form)m(ulae) +e(giv)m(en)i(in)e(the)i(literature)e(ha)m(v)m(e)j(b)s(een)g +(generalized)e(to)g(include)g(trivial)e(radiativ)m(e)0 +523 y(corrections,)33 b(Breit{Wigner)e(line)g(shap)s(es)j(with)i(^)-53 +b Fj(s)p Fw(-dep)s(enden)m(t)34 b(widths)f(\(see)h(section)e(7.3\),)h +(etc.)146 632 y(The)46 b(follo)m(wing)c(sections)j(con)m(tain)g(some)f +(useful)h(commen)m(ts)f(on)h(the)g(pro)s(cesses)i(included)d(in)0 +740 y(the)32 b(program,)f(group)s(ed)h(b)m(y)h(ph)m(ysics)g(in)m +(terest)g(rather)f(than)g(sequen)m(tially)f(b)m(y)i(ISUB)g(or)e +Fq(MSEL)i Fw(co)s(de)0 848 y(\(see)38 b(9.2)f(for)f(further)i +(information)c(on)j(the)g Fq(MSEL)h Fw(co)s(de\).)57 +b(The)39 b(di\013eren)m(t)e(ISUB)g(and)h Fq(MSEL)g Fw(co)s(des)0 +957 y(that)c(can)g(b)s(e)g(used)h(to)f(sim)m(ulate)e(the)j(di\013eren)m +(t)f(groups)g(are)g(giv)m(en.)48 b(ISUB)35 b(co)s(des)g(within)d(brac)m +(k)m(ets)0 1065 y(indicate)41 b(the)h(kind)f(of)g(pro)s(cesses)j(that)d +(indirectly)g(in)m(v)m(olv)m(e)g(the)h(giv)m(en)g(ph)m(ysics)h(topic,)h +(although)0 1173 y(only)29 b(as)h(part)g(of)f(a)h(larger)e(whole.)43 +b(Some)29 b(ob)m(vious)h(examples,)g(suc)m(h)i(as)e(the)g(p)s +(ossibilit)m(y)d(to)j(pro)s(duce)0 1282 y(jets)j(in)f(just)h(ab)s(out)f +(an)m(y)h(pro)s(cess,)h(are)f(not)f(sp)s(elled)g(out)h(in)e(detail.)146 +1390 y(The)g(text)f(at)f(times)f(con)m(tains)i(information)c(on)j(whic) +m(h)h(sp)s(ecial)e(switc)m(hes)j(or)e(parameters)h(are)f(of)0 +1498 y(particular)f(in)m(terest)j(to)f(a)g(giv)m(en)g(pro)s(cess.)44 +b(All)29 b(these)i(switc)m(hes)h(are)e(describ)s(ed)h(in)e(detail)g(in) +g(section)0 1607 y(9.3,)35 b(but)g(are)g(alluded)f(to)g(here)i(so)f(as) +g(to)g(pro)m(vide)g(a)f(more)h(complete)f(picture)h(of)f(the)h(p)s +(ossibilities)0 1715 y(a)m(v)-5 b(ailable)33 b(for)i(the)h(di\013eren)m +(t)f(subpro)s(cesses.)55 b(Ho)m(w)m(ev)m(er,)39 b(the)d(list)e(of)h(p)s +(ossibilities)d(is)j(certainly)g(not)0 1823 y(exhausted)f(b)m(y)g(the)f +(text)g(b)s(elo)m(w.)0 2097 y Fp(8.2)135 b(QCD)45 b(Pro)t(cesses)0 +2270 y Fw(In)38 b(this)e(section)i(w)m(e)g(discuss)h(scatterings)e +(exclusiv)m(ely)h(b)s(et)m(w)m(een)h(coloured)e(partons)h(|)e(a)h(pro)s +(cess)0 2378 y(lik)m(e)d(e)224 2342 y Fl(+)284 2378 y +Fw(e)327 2342 y Fk(\000)417 2378 y Fn(!)e Fj(\015)605 +2342 y Fk(\003)644 2378 y Fj(=)p Fw(Z)753 2342 y Fl(0)823 +2378 y Fn(!)g Fw(q)p 1006 2325 52 4 v(q)j(is)g(also)f(traditionally)d +(called)i(a)i(QCD)g(ev)m(en)m(t,)i(but)e(is)f(here)i(b)s(o)s(ok-k)m +(ept)0 2487 y(as)d Fj(\015)176 2450 y Fk(\003)215 2487 +y Fj(=)p Fw(Z)324 2450 y Fl(0)396 2487 y Fw(pro)s(duction.)0 +2734 y Fo(8.2.1)112 b(QCD)38 b(jets)0 2907 y Fq(MSEL)c +Fw(=)e(1,)g(2)0 3015 y(ISUB)h(=)50 3112 y(11)99 b(q)298 +3127 y Fh(i)327 3112 y Fw(q)378 3127 y Fh(j)442 3112 +y Fn(!)28 b Fw(q)621 3127 y Fh(i)649 3112 y Fw(q)700 +3127 y Fh(j)50 3232 y Fw(12)99 b(q)298 3247 y Fh(i)p +327 3179 V 327 3232 a Fw(q)378 3255 y Fh(i)434 3232 y +Fn(!)27 b Fw(q)612 3247 y Fh(k)p 655 3179 V 655 3232 +a Fw(q)707 3255 y Fh(k)50 3352 y Fw(13)99 b(q)298 3367 +y Fh(i)p 327 3299 V 327 3352 a Fw(q)378 3376 y Fh(i)434 +3352 y Fn(!)27 b Fw(gg)50 3473 y(28)99 b(q)298 3488 y +Fh(i)327 3473 y Fw(g)28 b Fn(!)g Fw(q)583 3488 y Fh(i)611 +3473 y Fw(g)50 3593 y(53)99 b(gg)29 b Fn(!)e Fw(q)552 +3608 y Fh(k)p 595 3540 V 595 3593 a Fw(q)647 3617 y Fh(k)50 +3713 y Fw(68)99 b(gg)29 b Fn(!)e Fw(gg)146 3823 y(No)d(higher-order)f +(pro)s(cesses)j(are)e(explicitly)f(included,)i(nor)f(an)m(y)h +(higher-order)e(lo)s(op)f(corrections)0 3932 y(to)h(the)h(2)k +Fn(!)f Fw(2)d(pro)s(cesses.)42 b(Ho)m(w)m(ev)m(er,)28 +b(b)m(y)d(initial-)19 b(and)24 b(\014nal-state)f(QCD)g(radiation,)h(m)m +(ultijet)d(ev)m(en)m(ts)0 4040 y(are)48 b(b)s(eing)f(generated,)52 +b(starting)47 b(from)g(the)h(ab)s(o)m(v)m(e)g(pro)s(cesses.)91 +b(The)49 b(sho)m(w)m(er)h(rate)d(of)h(m)m(ultijet)0 4149 +y(pro)s(duction)32 b(is)g(clearly)g(uncertain)g(b)m(y)i(some)e(amoun)m +(t,)g(esp)s(ecially)g(for)g(w)m(ell-separated)g(jets.)146 +4257 y(A)44 b(string-based)g(fragmen)m(tation)e(sc)m(heme)k(suc)m(h)f +(as)f(the)h(Lund)f(mo)s(del)e(needs)k(cross)f(sections)0 +4365 y(for)37 b(the)i(di\013eren)m(t)f(colour)f(\015o)m(ws;)42 +b(these)d(ha)m(v)m(e)h(b)s(een)e(calculated)f(in)h([Ben84])g(and)g +(di\013er)f(from)g(the)0 4474 y(usual)26 b(calculations)e(b)m(y)j(in)m +(terference)g(terms)g(of)e(the)i(order)f(1)p Fj(=)-5 +b(N)2383 4437 y Fl(2)2373 4498 y Fh(C)2432 4474 y Fw(.)41 +b(By)27 b(default,)f(the)h(standard)g(QCD)0 4582 y(expressions)k(for)e +(the)h(di\013eren)m(tial)d(cross)k(sections)f(are)f(used.)44 +b(In)29 b(this)g(case,)i(the)f(in)m(terference)h(terms)0 +4690 y(are)36 b(distributed)g(on)g(the)g(v)-5 b(arious)35 +b(colour)g(\015o)m(ws)j(according)d(to)h(the)g(p)s(ole)f(structure)i +(of)f(the)g(terms.)0 4799 y(Ho)m(w)m(ev)m(er,)f(the)e(in)m(terference)h +(terms)e(can)h(b)s(e)g(excluded,)h(b)m(y)f(c)m(hanging)h +Fq(MSTP\(34\))146 4907 y Fw(As)44 b(an)f(example,)i(consider)e(subpro)s +(cess)i(28,)h(qg)h Fn(!)e Fw(qg)q(.)75 b(The)44 b(total)d(cross)j +(section)f(for)g(this)0 5015 y(pro)s(cess,)33 b(obtained)d(b)m(y)i +(summing)d(and)i(squaring)g(the)g(F)-8 b(eynman)35 b(^)-53 +b Fj(s)p Fw(-,)2619 4997 y(^)2618 5015 y Fj(t)p Fw(-,)31 +b(and)37 b(^)-55 b Fj(u)o Fw(-c)m(hannel)31 b(graphs,)h(is)0 +5124 y([Com77)o(])1226 5306 y(2)1292 5160 y Fg( )1357 +5306 y Fw(1)22 b Fn(\000)1543 5239 y Fw(^)-55 b Fj(u)t +Fw(^)i Fj(s)p 1537 5283 102 4 v 1552 5362 a Fw(^)1550 +5381 y Fj(t)1585 5352 y Fl(2)1649 5160 y Fg(!)1736 5306 +y Fn(\000)1846 5239 y Fw(4)p 1846 5283 49 4 v 1846 5375 +a(9)1921 5160 y Fg( )2006 5239 y Fw(^)g Fj(s)p 1997 5283 +56 4 v 2003 5375 a Fw(^)e Fj(u)2085 5306 y Fw(+)2199 +5239 y(^)g Fj(u)p 2193 5283 V 2202 5375 a Fw(^)i Fj(s)2258 +5160 y Fg(!)2346 5306 y Fn(\000)23 b Fw(1)32 b Fj(:)1003 +b Fw(\(111\))0 5547 y(\(An)31 b(o)m(v)m(erall)g(factor)g +Fj(\031)t(\013)907 5511 y Fl(2)906 5572 y(s)946 5547 +y Fj(=)t Fw(^)-53 b Fj(s)1041 5511 y Fl(2)1111 5547 y +Fw(is)31 b(ignored.\))42 b(Using)31 b(the)h(iden)m(tit)m(y)f(of)g(the)g +(Mandelstam)g(v)-5 b(ariables)30 b(for)1817 5953 y(117)p +eop +%%Page: 118 124 +118 123 bop 0 -18 a Fw(the)33 b(massless)g(case,)38 b(^)-53 +b Fj(s)22 b Fw(+)956 -37 y(^)955 -18 y Fj(t)g Fw(+)28 +b(^)-55 b Fj(u)27 b Fw(=)h(0,)k(this)g(can)h(b)s(e)g(rewritten)g(as) +1401 178 y(^)-53 b Fj(s)1443 142 y Fl(2)1504 178 y Fw(+)28 +b(^)-55 b Fj(u)1658 142 y Fl(2)p 1397 222 301 4 v 1511 +301 a Fw(^)1510 319 y Fj(t)1545 291 y Fl(2)1729 245 y +Fn(\000)1839 178 y Fw(4)p 1839 222 49 4 v 1839 314 a(9)1914 +99 y Fg( )1999 178 y Fw(^)i Fj(s)p 1990 222 56 4 v 1996 +314 a Fw(^)e Fj(u)2077 245 y Fw(+)2192 178 y(^)f Fj(u)p +2185 222 V 2194 314 a Fw(^)j Fj(s)2251 99 y Fg(!)2366 +245 y Fj(:)1164 b Fw(\(112\))146 509 y(On)23 b(the)f(other)h(hand,)h +(the)f(cross)g(sections)g(for)f(the)g(t)m(w)m(o)h(p)s(ossible)f(colour) +f(\015o)m(ws)j(of)d(this)h(subpro)s(cess)0 617 y(are)33 +b([Ben84])1411 886 y Fj(A)27 b Fw(:)1714 819 y(4)p 1714 +863 49 4 v 1714 955 a(9)1790 740 y Fg( )1856 886 y Fw(2)1921 +819 y(^)-55 b Fj(u)1971 783 y Fl(2)p 1915 863 95 4 v +1926 942 a Fw(^)1925 961 y Fj(t)1960 932 y Fl(2)2041 +886 y Fn(\000)2157 819 y Fw(^)g Fj(u)p 2151 863 56 4 +v 2160 955 a Fw(^)i Fj(s)2216 740 y Fg(!)2331 886 y Fw(;)1405 +1169 y Fj(B)32 b Fw(:)1714 1101 y(4)p 1714 1145 49 4 +v 1714 1237 a(9)1790 1023 y Fg( )1856 1169 y Fw(2)1919 +1101 y(^)-53 b Fj(s)1961 1065 y Fl(2)p 1915 1145 86 4 +v 1922 1225 a Fw(^)1920 1243 y Fj(t)1955 1214 y Fl(2)2032 +1169 y Fn(\000)2150 1101 y Fw(^)g Fj(s)p 2141 1145 56 +4 v 2147 1237 a Fw(^)e Fj(u)2207 1023 y Fg(!)2322 1169 +y Fj(:)1208 b Fw(\(113\))0 1432 y(Colour)36 b(con\014guration)g +Fj(A)h Fw(is)g(one)g(in)f(whic)m(h)i(the)f(original)d(colour)i(of)g +(the)i(q)f(annihilates)e(with)i(the)0 1541 y(an)m(ticolour)h(of)i(the)g +(g)q(,)i(the)e(g)h(colour)e(\015o)m(ws)j(through,)f(and)f(a)g(new)h +(colour{an)m(ticolour)c(is)j(created)0 1649 y(b)s(et)m(w)m(een)33 +b(the)f(\014nal)f(q)g(and)h(g)q(.)43 b(In)32 b(colour)e +(con\014guration)h Fj(B)5 b Fw(,)31 b(the)h(gluon)e(an)m(ticolour)g +(\015o)m(ws)i(through,)0 1757 y(but)f(the)g(q)g(and)g(g)h(colours)e +(are)h(in)m(terc)m(hanged.)43 b(Note)31 b(that)g(these)h(t)m(w)m(o)f +(colour)f(con\014gurations)g(ha)m(v)m(e)0 1866 y(di\013eren)m(t)39 +b(kinematics)f(dep)s(endence.)65 b(F)-8 b(or)38 b Fq(MSTP\(34\)=0)p +Fw(,)44 b(these)c(are)f(the)g(cross)h(sections)g(actually)0 +1974 y(used.)146 2082 y(The)34 b(sum)e(of)g(the)h Fj(A)g +Fw(and)g Fj(B)k Fw(con)m(tributions)32 b(is)1362 2259 +y(8)p 1362 2304 49 4 v 1362 2395 a(9)1435 2259 y(^)-53 +b Fj(s)1477 2223 y Fl(2)1539 2259 y Fw(+)28 b(^)-55 b +Fj(u)1693 2223 y Fl(2)p 1431 2304 301 4 v 1545 2383 a +Fw(^)1544 2401 y Fj(t)1579 2372 y Fl(2)1764 2327 y Fn(\000)1873 +2259 y Fw(4)p 1873 2304 49 4 v 1873 2395 a(9)1949 2181 +y Fg( )2033 2259 y Fw(^)i Fj(s)p 2024 2304 56 4 v 2030 +2395 a Fw(^)e Fj(u)2112 2327 y Fw(+)2226 2259 y(^)g Fj(u)p +2220 2304 V 2229 2395 a Fw(^)i Fj(s)2285 2181 y Fg(!)2400 +2327 y Fj(:)1130 b Fw(\(114\))0 2596 y(The)37 b(di\013erence)f(b)s(et)m +(w)m(een)i(this)d(expression)i(and)f(that)f(of)g([Com77],)h(corresp)s +(onding)g(to)f(the)h(in)m(ter-)0 2704 y(ference)e(b)s(et)m(w)m(een)h +(the)e(t)m(w)m(o)g(colour-\015o)m(w)f(con\014gurations,)g(is)g(then) +1675 2898 y(1)p 1675 2942 49 4 v 1675 3033 a(9)1748 2898 +y(^)-53 b Fj(s)1790 2861 y Fl(2)1852 2898 y Fw(+)28 b(^)-55 +b Fj(u)2006 2861 y Fl(2)p 1744 2942 301 4 v 1858 3021 +a Fw(^)1857 3039 y Fj(t)1892 3010 y Fl(2)2087 2965 y +Fj(;)1443 b Fw(\(115\))0 3203 y(whic)m(h)33 b(can)g(b)s(e)g(naturally)e +(divided)h(b)s(et)m(w)m(een)j(colour)c(\015o)m(ws)j Fj(A)f +Fw(and)f Fj(B)5 b Fw(:)1616 3464 y Fj(A)28 b Fw(:)1920 +3396 y(1)p 1920 3441 49 4 v 1920 3532 a(9)1995 3396 y(^)-55 +b Fj(u)2045 3360 y Fl(2)p 1989 3441 95 4 v 2000 3520 +a Fw(^)1999 3538 y Fj(t)2034 3509 y Fl(2)2126 3464 y +Fw(;)1610 3718 y Fj(B)33 b Fw(:)1920 3650 y(1)p 1920 +3694 49 4 v 1920 3786 a(9)1993 3650 y(^)-53 b Fj(s)2035 +3614 y Fl(2)p 1989 3694 86 4 v 1996 3774 a Fw(^)1994 +3792 y Fj(t)2029 3763 y Fl(2)2116 3718 y Fj(:)1414 b +Fw(\(116\))0 3956 y(F)-8 b(or)45 b Fq(MSTP\(34\)=1)p +Fw(,)52 b(the)47 b(standard)f(QCD)g(matrix)e(elemen)m(t)i(is)f +(therefore)i(used,)k(with)45 b(the)i(same)0 4064 y(relativ)m(e)c(imp)s +(ortance)f(of)h(the)h(t)m(w)m(o)h(colour)e(con\014gurations)g(as)h(ab)s +(o)m(v)m(e.)77 b(Similar)40 b(pro)s(cedures)45 b(are)0 +4173 y(follo)m(w)m(ed)32 b(also)f(for)h(the)h(other)g(QCD)f(subpro)s +(cesses.)146 4281 y(All)42 b(the)h(matrix)f(elemen)m(ts)i(in)e(this)h +(group)g(are)g(for)g(massless)h(quarks)g(\(although)e(\014nal-state)0 +4389 y(quarks)27 b(are)g(of)e(course)j(put)e(on)g(the)h(mass)f +(shell\).)40 b(As)27 b(a)f(consequence,)31 b(cross)c(sections)f(are)h +(div)m(ergen)m(t)0 4498 y(for)37 b Fj(p)203 4513 y Fk(?)298 +4498 y Fn(!)e Fw(0,)k(and)e(some)h(kind)f(of)g(regularization)e(is)h +(required.)59 b(Normally)35 b(y)m(ou)j(are)g(exp)s(ected)h(to)0 +4606 y(set)33 b(the)g(desired)g Fj(p)700 4621 y Fk(?)p +Fl(min)910 4606 y Fw(v)-5 b(alue)32 b(in)f Fq(CKIN\(3\))p +Fw(.)146 4714 y(The)i(new)g(\015a)m(v)m(our)g(pro)s(duced)g(in)f(the)g +(annihilation)d(pro)s(cesses)34 b(\(ISUB)e(=)g(12)g(and)g(53\))g(is)f +(deter-)0 4823 y(mined)h(b)m(y)h(the)g(\015a)m(v)m(ours)h(allo)m(w)m +(ed)e(for)g(gluon)g(splitting)e(in)m(to)i(quark{an)m(tiquark;)h(see)h +(switc)m(h)f Fq(MDME)p Fw(.)0 5069 y Fo(8.2.2)112 b(Hea)m(vy)38 +b(\015a)m(v)m(ours)0 5241 y Fq(MSEL)c Fw(=)e(4,)g(5,)h(6,)f(7,)h(8)0 +5350 y(ISUB)g(=)126 5446 y(81)99 b(q)374 5461 y Fh(i)p +403 5393 52 4 v 403 5446 a Fw(q)454 5469 y Fh(i)510 5446 +y Fn(!)27 b Fw(Q)713 5461 y Fh(k)p 756 5368 76 4 v 756 +5446 a Fw(Q)832 5469 y Fh(k)126 5566 y Fw(82)99 b(gg)28 +b Fn(!)g Fw(Q)653 5581 y Fh(k)p 695 5488 V 695 5566 a +Fw(Q)771 5590 y Fh(k)50 5687 y Fw(\(83\))99 b(q)374 5702 +y Fh(i)403 5687 y Fw(f)433 5702 y Fh(j)497 5687 y Fn(!)27 +b Fj(Q)701 5702 y Fh(k)744 5687 y Fj(f)792 5702 y Fh(l)1817 +5953 y Fw(118)p eop +%%Page: 119 125 +119 124 bop 146 -18 a Fw(The)43 b(matrix)d(elemen)m(ts)i(in)e(this)i +(group)f(di\013er)g(from)f(the)i(corresp)s(onding)g(ones)g(in)f(the)h +(group)0 90 y(ab)s(o)m(v)m(e)36 b(in)e(that)h(they)i(correctly)e(tak)m +(e)h(in)m(to)e(accoun)m(t)i(the)g(quark)g(masses.)52 +b(As)36 b(a)f(consequence,)k(the)0 198 y(cross)33 b(sections)g(are)f +(\014nite)f(for)h Fj(p)1211 213 y Fk(?)1297 198 y Fn(!)c +Fw(0.)43 b(It)32 b(is)f(therefore)i(not)f(necessary)i(to)e(in)m(tro)s +(duce)g(an)m(y)g(sp)s(ecial)0 307 y(cuts.)146 415 y(The)48 +b(t)m(w)m(o)f(\014rst)h(pro)s(cesses)g(that)f(app)s(ear)f(here)i(are)f +(the)g(dominan)m(t)e(lo)m(w)m(est-order)i(graphs)g(in)0 +523 y(hadron)31 b(colliders)f(|)h(a)g(few)h(other)g(graphs)f(will)e(b)s +(e)j(men)m(tioned)f(later,)g(suc)m(h)i(as)e(pro)s(cess)i(83,)e(whic)m +(h)0 632 y(is)h(imp)s(ortan)m(t)f(for)h(a)g(hea)m(vy)i(top.)146 +740 y(The)g(c)m(hoice)f(of)f(\015a)m(v)m(our)h(to)g(pro)s(duce)g(is)f +(according)g(to)g(a)g(hierarc)m(h)m(y)i(of)e(options:)119 +853 y(1.)49 b(if)38 b Fq(MSEL=4-8)d Fw(then)e(the)g(\015a)m(v)m(our)h +(is)e(set)h(b)m(y)g(the)g Fq(MSEL)h Fw(v)-5 b(alue;)119 +971 y(2.)49 b(else)33 b(if)38 b Fq(MSTP\(7\)=1-8)d Fw(then)f(the)f +(\015a)m(v)m(our)g(is)f(set)i(b)m(y)f(the)g Fq(MSTP\(7\))h +Fw(v)-5 b(alue;)119 1089 y(3.)49 b(else)28 b(the)h(\015a)m(v)m(our)f +(is)g(determined)g(b)m(y)h(the)f(hea)m(viest)h(\015a)m(v)m(our)g(allo)m +(w)m(ed)e(for)h(gluon)e(splitting)g(in)m(to)244 1197 +y(quark{an)m(tiquark;)33 b(see)h(switc)m(h)f Fq(MDME)p +Fw(.)0 1310 y(Note)k(that)f(only)g(one)h(hea)m(vy)h(\015a)m(v)m(our)g +(is)e(allo)m(w)m(ed)g(at)g(a)g(time;)h(if)f(more)g(than)g(one)h(is)f +(turned)i(on)e(in)0 1418 y Fq(MDME)p Fw(,)h(only)d(the)i(hea)m(viest)h +(will)c(b)s(e)i(pro)s(duced)i(\(as)e(opp)s(osed)h(to)f(the)h(case)g +(for)f(ISUB)h(=)g(12)e(and)i(53)0 1527 y(ab)s(o)m(v)m(e,)d(where)h +(more)e(than)h(one)g(\015a)m(v)m(our)g(is)f(allo)m(w)m(ed)g(sim)m +(ultaneously\).)146 1635 y(The)49 b(lo)m(w)m(est-order)g(pro)s(cesses)h +(listed)d(ab)s(o)m(v)m(e)i(just)f(represen)m(t)i(one)f(source)g(of)e +(hea)m(vy-\015a)m(v)m(our)0 1743 y(pro)s(duction.)42 +b(Hea)m(vy)33 b(quarks)g(can)e(also)g(b)s(e)g(presen)m(t)i(in)d(the)i +(parton)f(distributions)f(at)h(the)h Fj(Q)3508 1707 y +Fl(2)3578 1743 y Fw(scale)0 1852 y(of)c(the)g(hard)g(in)m(teraction,)g +(leading)e(to)i(pro)s(cesses)i(lik)m(e)d(Qg)i Fn(!)e +Fw(Qg)q(,)i(so-called)e(\015a)m(v)m(our)i(excitation,)f(or)0 +1960 y(they)i(can)f(b)s(e)g(created)h(b)m(y)g(gluon)d(splittings)h(g)g +Fn(!)g Fw(Q)p 1953 1882 76 4 v(Q)g(in)g(initial-)d(or)k(\014nal-state)f +(sho)m(w)m(er)i(ev)m(olution.)0 2068 y(In)i(fact,)g(as)g(the)g(c.m.)43 +b(energy)33 b(is)e(increased,)i(these)g(other)f(pro)s(cesses)i(gain)d +(in)g(imp)s(ortance)f(relativ)m(e)0 2177 y(to)24 b(the)h(lo)m(w)m +(est-order)f(pro)s(duction)g(graphs)h(ab)s(o)m(v)m(e.)41 +b(As)25 b(as)g(example,)g(only)f(10\045)g(of)g(the)h(b)f(pro)s(duction) +0 2285 y(at)k(LHC)g(energies)h(come)e(from)g(the)h(lo)m(w)m(est-order)h +(graphs.)42 b(The)29 b(\014gure)f(is)g(ev)m(en)h(smaller)d(for)i(c)m +(harm,)0 2393 y(while)h(it)g(is)h(at)f(or)h(ab)s(o)m(v)m(e)h(50\045)e +(for)h(top.)42 b(A)m(t)31 b(LHC)f(energies,)h(the)g(sp)s(ecialized)e +(treatmen)m(t)h(describ)s(ed)0 2502 y(in)42 b(this)g(subsection)h(is)f +(therefore)h(only)f(of)g(in)m(terest)h(for)f(top)g(\(and)h(p)s(oten)m +(tial)e(fourth-generation)0 2610 y(quarks\))26 b(|)e(the)h +(higher-order)f(corrections)h(can)g(here)g(b)s(e)g(appro)m(ximated)f(b) +m(y)i(an)e(e\013ectiv)m(e)i Fj(K)32 b Fw(factor,)0 2718 +y(except)g(p)s(ossibly)d(in)h(some)g(rare)g(corners)h(of)e(phase)i +(space.)44 b(F)-8 b(or)29 b(c)m(harm)h(and)h(b)s(ottom,)e(on)h(the)g +(other)0 2827 y(hand,)48 b(it)43 b(is)h(necessary)j(to)d(sim)m(ulate)f +(the)i(full)e(ev)m(en)m(t)j(sample)e(\(within)f(the)i(desired)g +(kinematics)0 2935 y(cuts\),)38 b(and)d(then)i(only)e(k)m(eep)j(those)e +(ev)m(en)m(ts)i(with)e(b)p Fj(=)p Fw(c)g(either)f(from)g(lo)m(w)m +(est-order)h(pro)s(duction,)g(or)0 3043 y(\015a)m(v)m(our)31 +b(excitation,)f(or)f(gluon)h(splitting.)40 b(Ob)m(viously)30 +b(this)g(ma)m(y)g(b)s(e)g(a)g(time-consuming)d(en)m(terprise)0 +3152 y(|)h(although)f(the)i(probabilit)m(y)e(for)h(a)g(high-)p +Fj(p)1676 3167 y Fk(?)1763 3152 y Fw(ev)m(en)m(t)i(to)e(con)m(tain)g +(\(at)g(least\))h(one)f(c)m(harm)h(or)f(b)s(ottom)0 3260 +y(pair)j(is)i(fairly)d(large,)i(most)g(of)g(these)i(hea)m(vy)g(\015a)m +(v)m(ours)g(are)e(carrying)g(a)g(small)f(fraction)g(of)h(the)h(total)0 +3368 y Fj(p)49 3383 y Fk(?)141 3368 y Fw(\015o)m(w)g(of)f(the)h(jets,)g +(and)g(therefore)g(do)f(not)h(surviv)m(e)h(normal)c(exp)s(erimen)m(tal) +i(cuts.)146 3477 y(As)37 b(an)f(aside,)h(it)f(is)f(not)h(only)g(for)g +(the)h(lo)m(w)m(est-order)f(graphs)h(that)f(ev)m(en)m(ts)i(ma)m(y)e(b)s +(e)h(generated)0 3585 y(with)h(a)g(guaran)m(teed)h(hea)m(vy-\015a)m(v)m +(our)h(con)m(ten)m(t.)62 b(One)39 b(ma)m(y)f(also)g(generate)h(the)f +(\015a)m(v)m(our)i(excitation)0 3694 y(pro)s(cess)e(b)m(y)f(itself,)f +(in)f(the)i(massless)g(appro)m(ximation,)e(using)h(ISUB)g(=)h(28)e(and) +i(setting)f(the)g Fq(KFIN)0 3802 y Fw(arra)m(y)46 b(appropriately)-8 +b(.)83 b(No)46 b(tric)m(k)g(exists)h(to)f(force)g(the)h(gluon)e +(splittings)f(without)i(in)m(tro)s(ducing)0 3910 y(undesirable)32 +b(biases,)h(ho)m(w)m(ev)m(er.)146 4019 y(The)g(cross)f(section)f(for)g +(a)g(hea)m(vy)i(quark)g(pair)d(close)h(to)g(threshold)h(can)f(b)s(e)h +(mo)s(di\014ed)e(according)0 4127 y(to)k(the)g(form)m(ulae)f(of)g([F)-8 +b(ad90)o(],)35 b(see)g Fq(MSTP\(35\))p Fw(.)50 b(Here)35 +b(threshold)f(e\013ects)h(due)g(to)f(Q)p 3163 4049 V(Q)f(b)s +(ound-state)0 4235 y(formation)g(are)j(tak)m(en)h(in)m(to)e(accoun)m(t) +h(in)f(a)h(smeared-out,)g(a)m(v)m(erage)h(sense.)55 b(Then)36 +b(the)h(na)-11 b(\177)-38 b(\020v)m(e)36 b(cross)0 4344 +y(section)24 b(is)f(m)m(ultiplied)d(b)m(y)k(the)g(squared)h(w)m(a)m(v)m +(e)g(function)e(at)g(the)h(origin.)38 b(In)24 b(a)f(colour-singlet)e(c) +m(hannel)0 4452 y(this)32 b(giv)m(es)h(a)g(net)g(enhancemen)m(t)h(of)e +(the)h(form)768 4695 y Fn(j)p Fw(\011)872 4654 y Fl(\()p +Fh(s)p Fl(\))963 4695 y Fw(\(0\))p Fn(j)1116 4654 y Fl(2)1182 +4695 y Fw(=)1532 4627 y Fj(X)1613 4642 y Fl(\()p Fh(s)p +Fl(\))p 1296 4672 646 4 v 1296 4764 a Fw(1)22 b Fn(\000)g +Fw(exp)q(\()p Fn(\000)p Fj(X)1811 4779 y Fl(\()p Fh(s)p +Fl(\))1903 4764 y Fw(\))1984 4695 y Fj(;)114 b Fw(where)34 +b Fj(X)2488 4711 y Fl(\()p Fh(s)p Fl(\))2607 4695 y Fw(=)2721 +4628 y(4)p 2721 4672 49 4 v 2721 4764 a(3)2789 4628 y +Fj(\031)t(\013)2910 4643 y Fl(s)p 2789 4672 153 4 v 2836 +4764 a Fj(\014)2985 4695 y(;)545 b Fw(\(117\))0 4952 +y(while)32 b(in)g(a)g(colour)f(o)s(ctet)i(c)m(hannel)g(there)g(is)f(a)h +(net)g(suppression)h(giv)m(en)e(b)m(y)764 5196 y Fn(j)p +Fw(\011)868 5155 y Fl(\(8\))962 5196 y Fw(\(0\))p Fn(j)1115 +5155 y Fl(2)1181 5196 y Fw(=)1531 5127 y Fj(X)1612 5143 +y Fl(\(8\))p 1294 5172 649 4 v 1294 5264 a Fw(exp)q(\()p +Fn(\000)p Fj(X)1639 5279 y Fl(\(8\))1734 5264 y Fw(\))22 +b Fn(\000)h Fw(1)1985 5196 y Fj(;)114 b Fw(where)34 b +Fj(X)2489 5211 y Fl(\(8\))2611 5196 y Fw(=)2725 5128 +y(1)p 2725 5172 49 4 v 2725 5264 a(6)2793 5128 y Fj(\031)t(\013)2914 +5143 y Fl(s)p 2793 5172 153 4 v 2840 5264 a Fj(\014)2989 +5196 y(:)541 b Fw(\(118\))0 5453 y(The)37 b Fj(\013)266 +5468 y Fl(s)334 5453 y Fw(factor)f(in)g(this)f(expression)j(is)e +(related)g(to)f(the)i(energy)g(scale)g(of)e(b)s(ound-state)i +(formation;)0 5561 y(it)e(is)h(selected)i(indep)s(enden)m(tly)f(from)e +(the)i(one)g(of)f(the)h(standard)g(pro)s(duction)f(cross)h(section.)56 +b(The)0 5669 y(presence)35 b(of)d(a)g(threshold)h(factor)f(a\013ects)h +(the)g(total)e(rate)i(and)f(also)g(kinematical)e(distributions.)1817 +5953 y(119)p eop +%%Page: 120 126 +120 125 bop 146 -18 a Fw(Hea)m(vy)36 b(\015a)m(v)m(ours,)h(i.e.)48 +b(top)35 b(and)f(fourth)g(generation,)h(are)f(assumed)h(to)g(b)s(e)f +(so)h(short-liv)m(ed)f(that)0 90 y(they)k(deca)m(y)h(b)s(efore)e(they)h +(ha)m(v)m(e)g(time)e(to)h(hadronize.)57 b(This)37 b(means)g(that)g(the) +g(ligh)m(t)f(quark)i(in)e(the)0 198 y(deca)m(y)e(Q)27 +b Fn(!)h Fw(W)603 162 y Fk(\006)662 198 y Fw(q)33 b(inherits)e(the)i +(colour)e(of)h(the)h(hea)m(vy)h(one.)43 b(The)34 b(new)g +Fm(Pythia)f Fw(description)f(rep-)0 307 y(resen)m(ts)g(a)e(c)m(hange)g +(of)g(philosoph)m(y)g(compared)f(to)h(previous)g(v)m(ersions,)i(form)m +(ulated)c(at)i(a)g(time)e(when)0 415 y(the)e(top)f(w)m(as)h(though)m(t) +f(to)g(b)s(e)h(m)m(uc)m(h)f(ligh)m(ter)f(than)i(is)e(b)s(eliev)m(ed)i +(curren)m(tly)-8 b(.)41 b(Ho)m(w)m(ev)m(er,)29 b(optionally)23 +b(the)0 523 y(old)34 b(description)h(ma)m(y)g(still)d(b)s(e)k(used,)h +(where)f(top)f(hadrons)h(are)f(formed)f(and)h(these)i(subsequen)m(tly)0 +632 y(allo)m(w)m(ed)e(to)h(deca)m(y;)k(see)d Fq(MSTP\(48\))h +Fw(and)e Fq(MSTP\(49\))p Fw(.)56 b(F)-8 b(or)36 b(ev)m(en)m(t)i(shap)s +(es)f(the)g(di\013erence)f(b)s(et)m(w)m(een)0 740 y(the)d(t)m(w)m(o)g +(time)e(orderings)i(normally)d(has)j(only)f(marginal)d(e\013ects)34 +b([Sj\177)-49 b(o92a)o(].)146 848 y(It)42 b(should)g(b)s(e)f(noted)h +(that)g(cross)g(section)g(calculations)e(are)h(di\013eren)m(t)h(in)f +(the)h(t)m(w)m(o)g(cases.)73 b(If)0 957 y(the)36 b(top)g(\(or)g(the)g +(fourth)g(generation)f(fermion\))f(is)i(assumed)h(short-liv)m(ed,)f +(then)g(it)f(is)h(treated)g(lik)m(e)0 1065 y(a)j(resonance)i(in)d(the)i +(sense)h(of)d(section)i(7.6.2,)g(i.e.)63 b(the)40 b(cross-section)g(is) +e(reduced)j(so)f(as)f(only)g(to)0 1173 y(corresp)s(ond)f(to)g(the)f(c)m +(hannels)i(left)e(op)s(en)g(b)m(y)i(the)f(user.)59 b(This)38 +b(also)e(includes)i(the)g(restrictions)f(on)0 1282 y(secondary)f(deca)m +(ys,)h(i.e.)49 b(on)34 b(the)h(deca)m(ys)i(of)d(a)g(W)1884 +1245 y Fl(+)1978 1282 y Fw(or)g(a)h(H)2256 1245 y Fl(+)2349 +1282 y Fw(pro)s(duced)h(in)e(the)g(top)h(deca)m(y)-8 +b(.)51 b(If)34 b(the)0 1390 y(top)28 b(is)f(allo)m(w)m(ed)g(to)g(form)f +(hadrons,)k(no)d(suc)m(h)i(reduction)f(tak)m(es)h(place.)42 +b(Branc)m(hing)27 b(ratios)g(then)h(ha)m(v)m(e)0 1498 +y(to)j(b)s(e)h(folded)f(in)f(b)m(y)j(hand)f(to)f(get)g(the)h(correct)g +(cross)h(sections.)43 b(The)33 b(logic)c(b)s(ehind)j(this)f +(di\013erence)0 1607 y(is)37 b(that)g(if)f(hadronization)f(tak)m(es)k +(place,)f(one)f(w)m(ould)g(b)s(e)h(allo)m(w)m(ed)e(e.g.)58 +b(to)37 b(deca)m(y)h(the)g(T)3379 1571 y Fl(0)3456 1607 +y Fw(and)f(T)3720 1571 y Fl(+)0 1715 y Fw(meson)f(according)f(to)h +(di\013eren)m(t)g(branc)m(hing)g(ratios.)53 b(But)36 +b(whic)m(h)h(T)f(mesons)h(are)f(to)f(b)s(e)i(formed)e(is)0 +1823 y(not)25 b(kno)m(wn)h(at)f(the)g(top)g(quark)h(creation,)g(so)f +(one)g(could)g(not)g(w)m(eigh)m(t)g(for)g(that.)40 b(F)-8 +b(or)25 b(a)f(t)h(quark)h(whic)m(h)0 1932 y(deca)m(ys)32 +b(rapidly)d(this)h(am)m(biguit)m(y)e(do)s(es)j(not)f(exist,)h(and)f(so) +h(a)f(reduction)g(factor)f(can)i(b)s(e)f(in)m(tro)s(duced)0 +2040 y(directly)i(coupled)h(to)f(the)h(t)f(quark)i(pro)s(duction)e(pro) +s(cess.)146 2148 y(This)g(rule)f(ab)s(out)g(cross-section)h +(calculations)d(applies)i(to)g(all)e(the)j(pro)s(cesses)h(explicitly)d +(set)i(up)0 2257 y(to)j(handle)f(hea)m(vy)j(\015a)m(v)m(our)f +(creation.)50 b(In)35 b(addition)e(to)h(the)i(ones)g(ab)s(o)m(v)m(e,)g +(this)f(means)g(all)d(the)k(ones)0 2365 y(in)c(T)-8 b(ables)32 +b(11{14)f(where)j(the)e(fermion)f(\014nal)h(state)g(is)g(giv)m(en)g(as) +h(capital)d(letters)j(\(`Q')f(and)g(`F'\))g(and)0 2473 +y(also)27 b(\015a)m(v)m(ours)j(pro)s(duced)f(in)f(resonance)i(deca)m +(ys)g(\(Z)1923 2437 y Fl(0)1962 2473 y Fw(,)f(W)2119 +2437 y Fk(\006)2179 2473 y Fw(,)g(H)2308 2437 y Fl(0)2348 +2473 y Fw(,)g(etc.,)h(including)c(pro)s(cesses)31 b(165)c(and)0 +2582 y(166\).)41 b(Ho)m(w)m(ev)m(er,)31 b(hea)m(vy)e(\015a)m(v)m(ours)g +(can)e(also)g(b)s(e)h(pro)s(duced)g(in)e(a)i(pro)s(cess)g(suc)m(h)h(as) +f(31,)g(q)3264 2597 y Fh(i)3293 2582 y Fw(g)g Fn(!)g +Fw(q)3549 2597 y Fh(k)3592 2582 y Fw(W)3693 2546 y Fk(\006)3752 +2582 y Fw(,)0 2690 y(where)40 b(q)339 2705 y Fh(k)420 +2690 y Fw(could)e(b)s(e)h(a)f(top)g(quark.)61 b(In)39 +b(this)f(case,)j(the)e(thrust)g(of)f(the)g(description)g(is)g(clearly)g +(on)0 2798 y(ligh)m(t)29 b(\015a)m(v)m(ours)j(|)f(the)g(kinematics)f +(of)g(the)h(pro)s(cess)h(is)f(form)m(ulated)e(in)h(the)i(massless)f +(fermion)e(limit)0 2907 y(|)35 b(so)h(an)m(y)g(top)g(pro)s(duction)f +(is)g(purely)h(inciden)m(tal.)51 b(Since)36 b(here)g(the)g(c)m(hoice)g +(of)g(scattered)h(\015a)m(v)m(our)0 3015 y(is)f(only)g(done)h(at)f(a)g +(later)f(stage,)j(the)f(top)f(branc)m(hing)g(ratios)f(are)i(not)f +(correctly)h(folded)e(in)h(to)g(the)0 3123 y(hard)k(scattering)g(cross) +h(section.)66 b(So,)41 b(for)f(applications)e(lik)m(e)h(these,)k(it)c +(is)h(not)g(recommended)g(to)0 3232 y(restrict)31 b(the)h(allo)m(w)m +(ed)e(top)h(deca)m(y)i(mo)s(des.)43 b(Often)31 b(one)g(migh)m(t)f(lik)m +(e)g(to)h(get)g(rid)g(of)f(the)i(p)s(ossibilit)m(y)d(of)0 +3340 y(pro)s(ducing)f(top)h(together)g(with)f(ligh)m(t)f(\015a)m(v)m +(ours.)44 b(This)28 b(can)h(b)s(e)g(done)h(b)m(y)f(switc)m(hing)g +(o\013)f(\(i.e.)42 b(setting)0 3448 y Fq(MDME\(I,1\)=0)p +Fw(\))d(the)d(`c)m(hannels')h(d)c Fn(!)g Fw(W)1581 3412 +y Fk(\000)1641 3448 y Fw(t,)k(s)c Fn(!)g Fw(W)2048 3412 +y Fk(\000)2108 3448 y Fw(t,)k(b)c Fn(!)g Fw(W)2531 3412 +y Fk(\000)2591 3448 y Fw(t,)j(g)f Fn(!)e Fw(t)p 2947 +3377 38 4 v(t)j(and)g Fj(\015)i Fn(!)33 b Fw(t)p 3474 +3377 V(t.)53 b(Also)0 3557 y(an)m(y)31 b(hea)m(vy)g(\015a)m(v)m(ours)g +(pro)s(duced)g(b)m(y)g(parton)f(sho)m(w)m(er)h(ev)m(olution)f(w)m(ould) +f(not)h(b)s(e)g(correctly)h(w)m(eigh)m(ted)0 3665 y(in)m(to)37 +b(the)h(cross)g(section.)59 b(Ho)m(w)m(ev)m(er,)41 b(curren)m(tly)d +(top)f(pro)s(duction)g(is)g(switc)m(hed)i(o\013)e(in)g(b)s(oth)g +(initial)0 3774 y(\(see)d Fq(KFIN)f Fw(arra)m(y\))g(and)g(\014nal)e +(\(see)j Fq(MSTJ\(45\))p Fw(\))h(state)e(radiation.)0 +4021 y Fo(8.2.3)112 b(J/)p Fj( )0 4194 y Fw(ISUB)33 b(=)99 +4290 y(86)99 b(gg)28 b Fn(!)g Fw(J)p Fj(= )t Fw(g)99 +4411 y(87)99 b(gg)28 b Fn(!)g Fj(\037)611 4426 y Fl(0c)682 +4411 y Fw(g)99 4531 y(88)99 b(gg)28 b Fn(!)g Fj(\037)611 +4546 y Fl(1c)682 4531 y Fw(g)99 4651 y(89)99 b(gg)28 +b Fn(!)g Fj(\037)611 4666 y Fl(2c)682 4651 y Fw(g)50 +4772 y(106)99 b(gg)28 b Fn(!)g Fw(J)p Fj(= )t(\015)50 +4892 y Fw(107)99 b(g)q Fj(\015)33 b Fn(!)27 b Fw(J)p +Fj(= )t Fw(g)50 5012 y(108)99 b Fj(\015)5 b(\015)32 b +Fn(!)c Fw(J)p Fj(= )t(\015)146 5128 y Fw(One)33 b(ma)m(y)g(distinguish) +e(three)i(main)e(sources)j(of)e(J)p Fj(= )37 b Fw(pro)s(duction.)119 +5241 y(1.)49 b(Deca)m(ys)34 b(of)e(B)g(mesons)h(and)g(bary)m(ons.)119 +5359 y(2.)49 b(P)m(arton-sho)m(w)m(er)26 b(ev)m(olution,)g(wherein)g(a) +e(c)i(and)f(a)p 2077 5306 44 4 v 24 w(c)h(quark)f(pro)s(duced)h(in)e +(adjacen)m(t)i(branc)m(hings)244 5467 y(\(e.g.)66 b(g)42 +b Fn(!)e Fw(gg)h Fn(!)f Fw(c)p 1047 5414 V(c)q(c)p 1134 +5414 V(c)q(\))g(turn)g(out)g(to)g(ha)m(v)m(e)h(so)g(small)c(an)j(in)m +(v)-5 b(arian)m(t)39 b(mass)h(that)g(the)h(pair)244 5575 +y(collapses)32 b(to)g(a)h(single)e(particle.)1817 5953 +y(120)p eop +%%Page: 121 127 +121 126 bop 119 -18 a Fw(3.)49 b(Direct)37 b(pro)s(duction,)j(where)f +(a)f(c)h(quark)g(lo)s(op)e(giv)m(es)i(a)f(coupling)f(b)s(et)m(w)m(een)k +(a)d(set)h(of)f(gluons)244 90 y(and)29 b(a)g(c)p 551 +37 44 4 v(c)g(b)s(ound)h(state.)42 b(Higher-lying)27 +b(states,)k(lik)m(e)d(the)h Fj(\037)2453 105 y Fh(c)2517 +90 y Fw(ones,)i(ma)m(y)d(subsequen)m(tly)k(deca)m(y)244 +198 y(to)g(J)p Fj(= )t Fw(.)146 311 y(In)f(this)g(section)g(are)f(giv)m +(en)h(the)g(main)e(pro)s(cesses)k(for)d(the)i(third)e(source,)i(in)m +(tended)f(for)g(applica-)0 420 y(tions)i(at)g(hadron)h(colliders)e(at)h +(non-v)-5 b(anishing)32 b(transv)m(erse)j(momen)m(ta)e(|)g(in)g(the)h +(limit)29 b(of)34 b Fj(p)3514 435 y Fk(?)3602 420 y Fn(!)29 +b Fw(0)0 528 y(it)e(is)g(necessary)j(to)d(include)g(a)g(n)m(um)m(b)s +(er)h(of)f(2)g Fn(!)h Fw(1)f(pro)s(cesses)j(and)d(to)h(regularize)e +(div)m(ergences)j(in)e(the)0 636 y(2)g Fn(!)h Fw(2)h(graphs)h(ab)s(o)m +(v)m(e.)43 b(The)31 b(cross)f(sections)g(dep)s(end)h(on)e(w)m(a)m(v)m +(e)j(function)d(v)-5 b(alues)29 b(at)g(the)h(origin,)e(see)0 +745 y Fq(PARP\(38\))j Fw(and)e Fq(PARP\(39\))p Fw(.)44 +b(A)29 b(review)g(of)f(the)h(ph)m(ysics)h(issues)g(in)m(v)m(olv)m(ed)f +(ma)m(y)g(b)s(e)g(found)f(in)g([Glo88)n(])0 853 y(\(note,)33 +b(ho)m(w)m(ev)m(er,)i(that)d(the)h(c)m(hoice)g(of)f Fj(Q)1540 +817 y Fl(2)1612 853 y Fw(scale)h(is)f(di\013eren)m(t)h(in)f +Fm(Pythia)p Fw(\).)0 1101 y Fo(8.2.4)112 b(Minim)m(um)36 +b(bias)0 1273 y Fq(MSEL)e Fw(=)e(1,)g(2)0 1382 y(ISUB)h(=)50 +1478 y(91)99 b(elastic)32 b(scattering)50 1598 y(92)99 +b(single)32 b(di\013raction)e(\()p Fj(AB)j Fn(!)27 b +Fj(X)8 b(B)d Fw(\))50 1719 y(93)99 b(single)32 b(di\013raction)e(\()p +Fj(AB)j Fn(!)27 b Fj(AX)8 b Fw(\))50 1839 y(94)99 b(double)32 +b(di\013raction)50 1959 y(95)99 b(lo)m(w-)p Fj(p)473 +1974 y Fk(?)564 1959 y Fw(pro)s(duction)146 2069 y(These)25 +b(pro)s(cesses)g(are)e(brie\015y)h(discussed)g(in)f(section)g(7.7.)40 +b(Curren)m(tly)24 b(they)g(are)f(mainly)e(in)m(tended)0 +2178 y(for)35 b(in)m(teractions)g(b)s(et)m(w)m(een)i(hadrons,)g +(although)d(one)i(ma)m(y)f(also)g(consider)h Fj(\015)5 +b Fw(p)35 b(in)m(teractions)g(in)g(the)0 2286 y(option)k(where)j(the)e +(incoming)e(photon)j(is)f(assumed)h(resolv)m(ed,)i Fq(MSTP\(14\)=1)g +Fw(or)d Fq(=2)p Fw(.)67 b(A)40 b(p)s(ossible)0 2394 y(extension)33 +b(to)g Fj(\015)5 b(\015)37 b Fw(in)m(teractions)32 b(is)g(not)h(y)m(et) +g(a)m(v)-5 b(ailable.)146 2503 y(Uncertain)m(ties)37 +b(come)g(from)f(a)g(n)m(um)m(b)s(er)i(of)e(sources,)k(e.g.)57 +b(from)35 b(the)j(parametrizations)d(of)h(the)0 2611 +y(v)-5 b(arious)32 b(cross)h(sections)h(and)e(slop)s(e)g(parameters.) +146 2720 y(In)23 b(di\013ractiv)m(e)f(scattering,)j(the)e(structure)h +(of)e(the)h(selected)h(hadronic)e(system)i(ma)m(y)e(b)s(e)h(regulated)0 +2828 y(with)32 b Fq(MSTP\(101\))p Fw(.)46 b(No)32 b(high-)p +Fj(p)1175 2843 y Fk(?)1266 2828 y Fw(jet)g(pro)s(duction)g(in)g +(di\013ractiv)m(e)g(ev)m(en)m(ts)j(is)d(included)g(so)h(far.)146 +2936 y(The)f(subpro)s(cess)g(95,)e(lo)m(w-)p Fj(p)1210 +2951 y Fk(?)1299 2936 y Fw(ev)m(en)m(ts,)j(is)d(somewhat)h(unique)f(in) +g(that)g(no)g(meaningful)f(ph)m(ysical)0 3045 y(b)s(order-line)k(to)h +(high-)p Fj(p)886 3060 y Fk(?)979 3045 y Fw(ev)m(en)m(ts)j(can)e(b)s(e) +f(de\014ned.)52 b(Ev)m(en)36 b(if)d(the)i(QCD)g(2)c Fn(!)g +Fw(2)j(high-)p Fj(p)3298 3060 y Fk(?)3390 3045 y Fw(pro)s(cesses)0 +3153 y(are)h(formally)d(switc)m(hed)k(o\013,)f(some)g(of)f(the)h +(generated)h(ev)m(en)m(ts)h(will)32 b(b)s(e)j(classi\014ed)g(as)g(b)s +(elonging)e(to)0 3261 y(this)26 b(group,)i(with)e(a)h +Fj(p)824 3276 y Fk(?)909 3261 y Fw(sp)s(ectrum)g(of)f(in)m(teractions)g +(to)h(matc)m(h)f(the)h(`minim)m(um-bias')c(ev)m(en)m(t)28 +b(sample.)0 3370 y(Only)34 b(with)h(the)g(option)e Fq(MSTP\(82\)=0)38 +b Fw(will)32 b(subpro)s(cess)37 b(95)d(yield)g(strictly)g(lo)m(w-)p +Fj(p)3098 3385 y Fk(?)3191 3370 y Fw(ev)m(en)m(ts,)j(ev)m(en)m(ts)0 +3478 y(whic)m(h)i(will)e(then)i(probably)f(not)h(b)s(e)g(compatible)d +(with)j(an)m(y)g(exp)s(erimen)m(tal)f(data.)61 b(A)39 +b(n)m(um)m(b)s(er)g(of)0 3586 y(options)34 b(exist)i(for)e(the)h +(detailed)f(structure)i(of)f(lo)m(w-)p Fj(p)2030 3601 +y Fk(?)2123 3586 y Fw(ev)m(en)m(ts,)j(see)e(in)e(particular)f +Fq(MSTP\(81\))k Fw(and)0 3695 y Fq(MSTP\(82\))p Fw(.)46 +b(F)-8 b(urther)33 b(details)f(on)g(the)h(mo)s(del\(s\))f(for)g(minim)m +(um-bias)d(ev)m(en)m(ts)35 b(are)d(found)h(in)f(section)0 +3803 y(11.2.)0 4077 y Fp(8.3)135 b(Electro)l(w)l(eak)48 +b(Gauge)d(Bosons)0 4250 y Fw(This)27 b(section)g(co)m(v)m(ers)i(the)f +(pro)s(duction)e(and/or)h(exc)m(hange)h(of)f Fj(\015)5 +b Fw(,)28 b(Z)2483 4213 y Fl(0)2549 4250 y Fw(and)f(W)2834 +4213 y Fk(\006)2921 4250 y Fw(gauge)g(b)s(osons,)h(singly)0 +4358 y(and)g(in)g(pairs.)42 b(The)29 b(topic)f(of)f(longitudinal)e +(gauge-b)s(oson)j(scattering)g(at)g(high)g(energies)h(is)e(deferred)0 +4466 y(to)i(the)i(Higgs)d(section,)j(since)f(the)g(presence)i(or)e +(absence)h(of)e(a)h(Higgs)f(here)h(mak)m(es)g(a)g(big)f(di\013erence.)0 +4714 y Fo(8.3.1)112 b(Prompt)36 b(photon)i(pro)s(duction)0 +4887 y Fq(MSEL)c Fw(=)e(10)0 4995 y(ISUB)h(=)99 5091 +y(14)99 b(q)347 5106 y Fh(i)p 375 5038 52 4 v 375 5091 +a Fw(q)427 5115 y Fh(i)483 5091 y Fn(!)27 b Fw(g)q Fj(\015)99 +5212 y Fw(18)99 b(f)326 5227 y Fh(i)p 354 5132 37 4 v +354 5212 a Fw(f)391 5227 y Fh(i)446 5212 y Fn(!)28 b +Fj(\015)5 b(\015)99 5332 y Fw(29)99 b(q)347 5347 y Fh(i)375 +5332 y Fw(g)29 b Fn(!)f Fw(q)632 5347 y Fh(i)660 5332 +y Fj(\015)50 5452 y Fw(114)99 b(gg)28 b Fn(!)g Fj(\015)5 +b(\015)50 5573 y Fw(115)99 b(gg)28 b Fn(!)g Fw(g)q Fj(\015)1817 +5953 y Fw(121)p eop +%%Page: 122 128 +122 127 bop 146 -18 a Fw(In)46 b(hadron)f(colliders,)i(pro)s(cesses)g +(ISUB)f(=)f(14)g(and)g(29)g(giv)m(e)g(the)g(main)f(source)i(of)f +(single-)p Fj(\015)0 90 y Fw(pro)s(duction,)27 b(with)e(ISUB)i(=)f(115) +f(giving)f(an)i(additional)d(con)m(tribution)i(whic)m(h,)j(in)e(some)f +(kinematics)0 198 y(regions,)36 b(ma)m(y)g(b)s(ecome)g(imp)s(ortan)m +(t.)52 b(F)-8 b(or)35 b Fj(\015)5 b Fw(-pair)34 b(pro)s(duction,)j(the) +f(pro)s(cess)h(ISUB)g(=)f(18)f(is)g(often)0 307 y(o)m(v)m(ershado)m(w)m +(ed)h(in)31 b(imp)s(ortance)h(b)m(y)h(ISUB)g(=)g(114.)146 +415 y(Another)38 b(source)h(of)e(photons)h(is)g(bremsstrahlung)f(o\013) +g(incoming)f(or)h(outgoing)f(quarks.)60 b(This)0 523 +y(has)32 b(to)g(b)s(e)g(treated)g(on)g(an)g(equal)f(fo)s(oting)f(with)i +(QCD)f(parton)h(sho)m(w)m(ering.)44 b(F)-8 b(or)31 b(time-lik)m(e)e +(parton-)0 632 y(sho)m(w)m(er)36 b(ev)m(olution,)d(i.e.)47 +b(in)33 b(the)h(\014nal-state)f(sho)m(w)m(ering)i(and)f(in)f(the)h +(side)g(branc)m(hes)i(of)d(the)i(initial-)0 740 y(state)46 +b(sho)m(w)m(ering,)51 b(photon)46 b(emission)f(ma)m(y)h(b)s(e)g(switc)m +(hed)h(on)f(or)g(o\013)g(with)f Fq(MSTJ\(41\))p Fw(.)86 +b(Photon)0 848 y(radiation)43 b(o\013)i(the)h(space-lik)m(e)f(incoming) +e(quark)j(legs)f(is)g(not)g(y)m(et)h(included,)j(but)c(should)g(b)s(e)h +(of)0 957 y(lesser)28 b(imp)s(ortance)e(for)g(pro)s(duction)h(at)g +(reasonably)g(large)f Fj(p)2273 972 y Fk(?)2359 957 y +Fw(v)-5 b(alues.)42 b(Radiation)25 b(o\013)i(an)g(incoming)0 +1065 y(electron)33 b(is)f(included)g(in)g(a)g(leading-log)d(appro)m +(ximation.)146 1173 y Fo(W)-9 b(arning:)39 b Fw(the)25 +b(cross)h(sections)g(for)e(the)h(b)s(o)m(x)g(graphs)g(114)f(and)h(115)f +(b)s(ecome)h(v)m(ery)h(complicated,)0 1282 y(n)m(umerically)21 +b(unstable)i(and)g(slo)m(w)g(when)h(the)g(full)d(quark)j(mass)f(dep)s +(endence)i(is)e(included.)39 b(F)-8 b(or)23 b(quark)0 +1390 y(masses)46 b(m)m(uc)m(h)f(b)s(elo)m(w)g(the)k(^)-53 +b Fj(s)44 b Fw(scale,)k(the)e(simpli\014ed)c(massless)k(expressions)g +(are)f(therefore)g(used)0 1498 y(|)d(a)h(fairly)d(accurate)k(appro)m +(ximation.)71 b(Ho)m(w)m(ev)m(er,)48 b(there)43 b(is)g(another)f(set)i +(of)e(subtle)h(n)m(umerical)0 1607 y(cancellations)i(b)s(et)m(w)m(een)j +(di\013eren)m(t)e(terms)g(in)f(the)i(massiv)m(e)f(matrix)f(elemen)m(ts) +h(in)f(the)i(region)e(of)0 1715 y(small-angle)39 b(scattering.)74 +b(The)44 b(asso)s(ciated)f(problems)f(ha)m(v)m(e)i(not)e(b)s(een)i +(sorted)f(out)g(y)m(et.)75 b(There)0 1823 y(are)44 b(therefore)h(t)m(w) +m(o)f(p)s(ossible)f(solutions.)77 b(One)44 b(is)g(to)f(use)i(the)g +(massless)f(form)m(ulae)f(throughout.)0 1932 y(The)30 +b(program)e(then)i(b)s(ecomes)g(faster)g(and)f(n)m(umerically)f +(stable,)h(but)h(do)s(es)g(not)f(giv)m(e,)h(for)f(example,)0 +2040 y(the)49 b(c)m(haracteristic)f(dip)g(\(due)i(to)e(destructiv)m(e)i +(in)m(terference\))g(at)e(top)g(threshold.)92 b(This)49 +b(is)f(the)0 2148 y(curren)m(t)40 b(default)d(pro)s(cedure,)k(with)d +(\014v)m(e)i(\015a)m(v)m(ours)g(assumed,)g(but)f(this)f(n)m(um)m(b)s +(er)h(can)g(b)s(e)f(c)m(hanged)0 2257 y(in)c Fq(MSTP\(38\))p +Fw(.)51 b(The)35 b(other)f(p)s(ossibilit)m(y)f(is)h(to)g(imp)s(ose)f +(cuts)i(on)f(the)h(scattering)f(angle)g(of)g(the)g(hard)0 +2365 y(pro)s(cess,)46 b(see)e Fq(CKIN\(27\))g Fw(and)f +Fq(CKIN\(28\))p Fw(,)k(since)c(the)g(n)m(umerically)d(unstable)j +(regions)f(are)g(when)0 2488 y Fn(j)17 b Fw(cos)199 2462 +y(^)191 2488 y Fj(\022)t Fn(j)32 b Fw(is)g(close)h(to)f(unit)m(y)-8 +b(.)43 b(It)33 b(is)f(then)h(also)f(necessary)j(to)d(c)m(hange)h +Fq(MSTP\(38\))i Fw(to)d(0.)0 2736 y Fo(8.3.2)112 b(Photopro)s(duction) +37 b(and)h Fj(\015)5 b(\015)43 b Fo(ph)m(ysics)0 2909 +y Fq(MSEL)34 b Fw(=)e(1,)g(2,)h(4,)f(5,)h(6,)f(7,)g(8)0 +3017 y(ISUB)h(=)50 3113 y(33)99 b(q)298 3128 y Fh(i)327 +3113 y Fj(\015)32 b Fn(!)c Fw(q)589 3128 y Fh(i)617 3113 +y Fw(g)50 3234 y(34)99 b(f)277 3249 y Fh(i)305 3234 y +Fj(\015)33 b Fn(!)27 b Fw(f)546 3249 y Fh(i)574 3234 +y Fj(\015)50 3354 y Fw(54)99 b(g)q Fj(\015)33 b Fn(!)27 +b Fw(q)559 3369 y Fh(k)p 602 3301 52 4 v 602 3354 a Fw(q)654 +3377 y Fh(k)50 3474 y Fw(58)99 b Fj(\015)5 b(\015)33 +b Fn(!)27 b Fw(f)544 3489 y Fh(k)p 586 3395 37 4 v 586 +3474 a Fw(f)623 3489 y Fh(k)50 3595 y Fw(80)99 b(q)298 +3610 y Fh(i)327 3595 y Fj(\015)32 b Fn(!)c Fw(q)589 3610 +y Fh(k)632 3595 y Fj(\031)691 3559 y Fk(\006)50 3715 +y Fw(84)99 b(g)q Fj(\015)33 b Fn(!)27 b Fw(Q)584 3730 +y Fh(k)p 627 3637 76 4 v 627 3715 a Fw(Q)703 3739 y Fh(k)50 +3835 y Fw(85)99 b Fj(\015)5 b(\015)33 b Fn(!)27 b Fw(F)578 +3850 y Fh(k)p 620 3757 64 4 v 620 3835 a Fw(F)684 3850 +y Fh(k)146 3951 y Fw(An)j(\(almost\))d(real)h(photon)h(has)h(b)s(oth)f +(a)f(p)s(oin)m(t-lik)m(e)g(comp)s(onen)m(t)h(and)g(a)g(hadron-lik)m(e)f +(one.)42 b(This)0 4059 y(means)33 b(that)f(sev)m(eral)h(classes)h(of)e +(pro)s(cesses)j(ma)m(y)d(b)s(e)h(distinguished,)f(see)h(section)g +(7.7.2.)119 4172 y(1.)49 b(The)41 b(pro)s(cesses)h(listed)e(ab)s(o)m(v) +m(e)h(are)f(p)s(ossible)g(when)h(the)g(photon)f(in)m(teracts)h(as)f(a)g +(p)s(oin)m(t-lik)m(e)244 4281 y(particle,)31 b(i.e.)43 +b(couples)33 b(directly)f(to)g(quarks)i(and)f(leptons.)119 +4399 y(2.)49 b(When)43 b(the)h(photon)e(acts)h(lik)m(e)f(a)h(hadron,)i +(i.e.)73 b(is)42 b(resolv)m(ed)i(in)e(a)g(partonic)g(substructure,)244 +4507 y(then)d(high-)p Fj(p)739 4522 y Fk(?)835 4507 y +Fw(parton{parton)f(in)m(teractions)f(are)i(p)s(ossible,)g(as)f(already) +g(describ)s(ed)h(in)f(sec-)244 4615 y(tions)32 b(8.2.1)g(and)h(8.3.1.) +43 b(These)35 b(in)m(teractions)d(ma)m(y)g(b)s(e)h(further)g(sub)s +(divided)g(in)m(to)f(VMD)g(and)244 4724 y(anomalous)f(ones)i([Sc)m(h93) +q(,)f(Sc)m(h93a)q(].)119 4841 y(3.)49 b(A)25 b(hadron-lik)m(e)f(photon) +g(can)h(also)f(pro)s(duce)i(the)f(equiv)-5 b(alen)m(t)25 +b(of)f(the)i(minim)m(um)21 b(bias)j(pro)s(cesses)244 +4950 y(of)32 b(section)h(8.2.4.)146 5063 y(F)-8 b(or)23 +b Fj(\015)5 b Fw(p)23 b(ev)m(en)m(ts,)k(w)m(e)d(b)s(eliev)m(e)f(that)g +(the)h(b)s(est)g(description)e(can)i(b)s(e)f(obtained)g(when)h(three)g +(separate)0 5171 y(ev)m(en)m(t)39 b(classes)f(are)f(com)m(bined,)h(one) +g(for)e(direct,)i(one)g(for)e(VMD)h(and)h(one)f(for)g(anomalous)e(ev)m +(en)m(ts,)0 5279 y(see)j(the)g(detailed)f(description)f(in)h([Sc)m(h93) +q(,)g(Sc)m(h93a].)58 b(These)39 b(corresp)s(ond)g(to)e +Fq(MSTP\(14\))i Fw(b)s(eing)e(0,)0 5388 y(2)45 b(and)f(3,)k(resp)s +(ectiv)m(ely)-8 b(.)81 b(The)46 b(direct)e(and)h(anomalous)e(comp)s +(onen)m(ts)j(are)f(high-)p Fj(p)3207 5403 y Fk(?)3309 +5388 y Fw(only)-8 b(,)47 b(while)0 5496 y(VMD)40 b(con)m(tains)g(b)s +(oth)f(high-)p Fj(p)1171 5511 y Fk(?)1269 5496 y Fw(and)h(lo)m(w-)p +Fj(p)1692 5511 y Fk(?)1790 5496 y Fw(ev)m(en)m(ts.)67 +b(The)41 b(option)e Fq(MSTP\(14\)=1)j Fw(com)m(bines)e(the)0 +5604 y(VMD)32 b(and)g(anomalous)f(parts)h(of)f(the)i(photon)f(in)m(to)f +(one)i(single)e(resolv)m(ed)i(photon)f(concept,)h(whic)m(h)1817 +5953 y(122)p eop +%%Page: 123 129 +123 128 bop 0 -18 a Fw(therefore)33 b(is)f(less)h(precise)g(than)g(the) +g(full)e(sub)s(division.)146 90 y(When)40 b(com)m(bining)d(three)j +(runs)g(to)e(obtain)g(the)i(totalit)m(y)d(of)h Fj(\015)5 +b Fw(p)39 b(in)m(teractions,)h(to)f(the)g(b)s(est)h(of)0 +198 y(our)29 b(kno)m(wledge,)i(it)e(is)g(necessary)j(to)d(c)m(ho)s(ose) +h(the)g Fj(p)1921 213 y Fk(?)2009 198 y Fw(cut-o\013s)g(with)f(some)g +(care,)i(so)f(as)f(to)g(represen)m(t)0 307 y(the)k(exp)s(ected)h(total) +d(cross)j(section.)145 420 y Fn(\017)49 b Fw(The)64 b(direct)e(pro)s +(cesses)j(only)d(dep)s(end)i(on)f(the)g Fq(CKIN\(3\))i +Fw(cut-o\013)d(of)h(the)g(generation,)244 528 y(with)50 +b(preferred)i(v)-5 b(alue)49 b(0.5)i(GeV)f([Sc)m(h93)q(,)g(Sc)m(h93a)q +(].)97 b(Since)51 b(this)f(v)-5 b(alue)50 b(is)g(so)h(lo)m(w,)j(one)244 +636 y(m)m(ust)k(remem)m(b)s(er)g(to)f(reduce)i(a)f(few)h(other)f +(defaults)f(v)-5 b(alues:)95 b Fq(CKIN\(1\)=2.*CKIN\(3\))p +Fw(,)244 745 y Fq(CKIN\(5\)=CKIN\(6\)=0.5*CKIN\()q(3\))p +Fw(.)48 b(F)-8 b(or)26 b(the)h(same)g(reason)h(it)e(is)g(recommended)h +(to)g(include)244 853 y(a)32 b(damp)s(ening)f(of)i(proton)f(parton)g +(distributions,)f Fq(MSTP\(57\)=2)p Fw(.)145 971 y Fn(\017)49 +b Fw(The)40 b(VMD)f(pro)s(cesses)i(w)m(ork)e(as)h(ordinary)e +(hadron{hadron)h(ones,)i(i.e.)62 b(one)39 b(obtains)g(b)s(oth)244 +1079 y(lo)m(w-)22 b(and)i(high-)p Fj(p)891 1094 y Fk(?)972 +1079 y Fw(ev)m(en)m(ts)i(b)m(y)f(default,)f(with)g(dividing)d(line)h +(set)j(b)m(y)h Fq(PARP\(81\))f Fw(\(or)e Fq(PARP\(82\))p +Fw(,)244 1187 y(dep)s(ending)33 b(on)f(minijet)e(unitarization)g(sc)m +(heme\).)145 1305 y Fn(\017)49 b Fw(F)-8 b(or)48 b(the)h(anomalous,)i +(\014nally)-8 b(,)51 b(the)e(minimal)44 b Fj(p)2111 1320 +y Fk(?)2219 1305 y Fw(of)k(the)h Fj(\015)60 b Fn(!)55 +b Fw(q)p 2847 1252 52 4 v(q)49 b(branc)m(hing)g(is)f(set)h(in)244 +1414 y Fq(PARP\(15\))p Fw(.)54 b(The)36 b(default)e(is)h(0.5)g(GeV,)g +(in)g(agreemen)m(t)g(with)g(the)h(recommended)g(cuto\013)f(for)244 +1522 y(the)29 b(same)g(v)m(ertex)i(in)e(direct)f(pro)s(ccesses.)45 +b(In)30 b(addition,)e(a)g(lo)m(w)m(er)i Fq(CKIN\(3\))h +Fw(cut-o\013)d(should)h(b)s(e)244 1630 y(selected)37 +b(for)e(the)i(hard)f(in)m(teractions.)53 b(This)36 b(needs)i(some)e +(\014ne-tuning,)g(whic)m(h)h(in)e(principle)244 1739 +y(should)e(b)s(e)h(done)h(separately)f(for)f(eac)m(h)h(c.m.)47 +b(energy)-8 b(.)48 b(A)34 b(go)s(o)s(d)e(\014rst)j(appro)m(ximation)c +(in)i(the)244 1847 y(HERA)g(energy)g(range)g(\(but)g(not)f(b)s(ey)m +(ond)i(300)e(GeV\))g(is)g Fq(CKIN\(3\))p Fw(=)e(1)p Fj(:)p +Fw(50)21 b(+)h(0)p Fj(:)p Fw(0035)17 b Fj(E)3524 1862 +y Fl(cm)3617 1847 y Fw(.)146 1960 y(The)35 b(pro)s(cesses)g(in)e(p)s +(oin)m(ts)g(1)h(and)f(2)h(can)f(b)s(e)h(sim)m(ulated)e(either)i(with)f +(a)g(photon)h(b)s(eam)f(or)g(with)0 2068 y(an)k(electron)g(b)s(eam.)56 +b(F)-8 b(or)36 b(a)h(photon)g(b)s(eam)f(it)g(is)h(necessary)i(to)e(use) +h(option)e Fq(MSTP\(14\))j Fw(to)e(switc)m(h)0 2177 y(b)s(et)m(w)m(een) +f(a)e(p)s(oin)m(t-lik)m(e)f(and)h(a)g(resolv)m(ed)i(photon)e(|)g(it)f +(is)h(not)g(p)s(ossible)g(to)g(sim)m(ulate)e(the)j(t)m(w)m(o)g(sets)0 +2285 y(of)i(pro)s(cesses)i(in)d(a)h(single)f(run.)57 +b(An)37 b(electron)g(b)m(y)h(default)e(is)h(assumed)g(to)g(con)m(tain)g +(photons,)h(but)0 2393 y(this)28 b(can)g(b)s(e)g(switc)m(hed)h(o\013)f +(b)m(y)i Fq(MSTP\(11\)=0)p Fw(.)44 b(T)-8 b(o)28 b(ha)m(v)m(e)i(quark)e +(and)g(gluon)f(distributions)g(inside)g(the)0 2502 y(photon)36 +b(\(itself)f(inside)h(the)h(electron\),)g Fq(MSTP\(12\)=1)i +Fw(m)m(ust)d(b)s(e)h(used.)56 b(F)-8 b(or)35 b(the)i(electron,)g(the)g +(t)m(w)m(o)0 2610 y(kinds)i(of)g(pro)s(cesses)i(ma)m(y)e(b)s(e)g +(generated)h(together,)h(unlik)m(e)d(for)h(the)g(photon.)63 +b(It)39 b(is)f(not)h(p)s(ossible)0 2718 y(to)k(ha)m(v)m(e)h(also)e(the) +h(lo)m(w-)p Fj(p)975 2733 y Fk(?)1076 2718 y Fw(ph)m(ysics)i +(\(including)c(m)m(ultiple)g(in)m(teractions)h(in)g(high-)p +Fj(p)3218 2733 y Fk(?)3319 2718 y Fw(ev)m(en)m(ts\))j(for)0 +2827 y(an)e(electron)h(b)s(eam.)75 b(Kindly)42 b(note)i(that)f(subpro)s +(cess)i(34)e(con)m(tains)h(b)s(oth)f(the)g(scattering)h(of)f(an)0 +2935 y(electron)37 b(o\013)g(a)g(photon)h(and)f(the)h(scattering)f(of)g +(a)g(quark)h(\(inside)e(a)h(photon)h(inside)e(an)i(electron\))0 +3043 y(o\013)32 b(a)g(photon;)h(the)g(former)f(can)h(b)s(e)f(switc)m +(hed)i(o\013)e(with)h(the)g(help)f(of)g(the)h Fq(KFIN)h +Fw(arra)m(y)-8 b(.)146 3152 y(If)33 b(y)m(ou)g(are)f(only)g(concerned)i +(with)e(standard)h(QCD)f(ph)m(ysics,)j(the)d(option)g +Fq(MSTP\(14\)=10)j Fw(giv)m(es)0 3260 y(an)h(automatic)e(mixture)i(of)g +(the)g(VMD,)h(direct)f(and)g(anomalous)f(ev)m(en)m(t)j(classes.)55 +b(The)37 b(mixture)f(is)0 3368 y(prop)s(erly)k(giv)m(en)h(according)f +(to)g(the)h(relativ)m(e)f(cross)i(sections.)68 b(Whenev)m(er)43 +b(p)s(ossible,)f(this)f(option)0 3477 y(is)36 b(therefore)h +(preferrable)f(in)g(terms)h(of)f(user-friendliness.)55 +b(Ho)m(w)m(ev)m(er,)40 b(it)35 b(can)i(only)f(w)m(ork)h(b)s(ecause)0 +3585 y(of)j(a)h(completely)f(new)i(la)m(y)m(er)f(of)f(administration,)g +(not)h(found)g(an)m(ywhere)i(else)e(in)f Fm(Pythia)p +Fw(.)69 b(F)-8 b(or)0 3694 y(instance,)34 b(a)f(subpro)s(cess)i(lik)m +(e)d(qg)e Fn(!)f Fw(qg)34 b(is)f(allo)m(w)m(ed)f(in)h(sev)m(eral)g(of)g +(the)h(classes,)g(but)f(app)s(ears)h(with)0 3802 y(di\013eren)m(t)42 +b(sets)h(of)e(parton)g(distributions)f(and)i(di\013eren)m(t)g +Fj(p)2258 3817 y Fk(?)2358 3802 y Fw(cut-o\013s)g(in)f(eac)m(h)i(of)e +(these,)k(so)d(that)0 3910 y(it)36 b(is)h(necessary)i(to)e(switc)m(h)h +(gears)f(b)s(et)m(w)m(een)j(eac)m(h)e(ev)m(en)m(t)h(in)d(the)i +(generation.)56 b(It)37 b(is)g(therefore)h(not)0 4019 +y(p)s(ossible)32 b(to)g(a)m(v)m(oid)h(a)f(n)m(um)m(b)s(er)h(of)f +(restrictions)g(on)g(what)h(y)m(ou)h(can)e(do)h(in)f(this)g(case:)145 +4132 y Fn(\017)49 b Fw(The)38 b Fq(MSTP\(14\)=10)j Fw(option)36 +b(can)i(only)f(b)s(e)h(used)h(for)e(incoming)e(photon)j(b)s(eams,)g +(i.e.)58 b(when)244 4240 y Fq('gamma')28 b Fw(is)e(the)g(argumen)m(t)g +(in)f(the)i Fq(PYINIT)h Fw(call.)39 b(A)27 b(con)m(v)m(olution)e(with)h +(the)h(bremsstrahlung)244 4348 y(photon)k(sp)s(ectrum)g(in)f(an)h +(electron)g(b)s(eam)f(ma)m(y)h(come)g(one)g(da)m(y)-8 +b(,)32 b(but)f(not)g(in)f(the)h(immediate)244 4457 y(future.)145 +4574 y Fn(\017)49 b Fw(The)30 b(mac)m(hinery)f(has)g(only)f(b)s(een)i +(set)g(up)f(to)f(generate)i(standard)f(QCD)g(ph)m(ysics,)i(sp)s +(eci\014cally)244 4683 y(either)j(`minim)m(um-bias')29 +b(one)35 b(or)e(high-)p Fj(p)1782 4698 y Fk(?)1874 4683 +y Fw(jets.)48 b(F)-8 b(or)33 b(minim)m(um)d(bias,)k(y)m(ou)h(are)e(not) +h(allo)m(w)m(ed)244 4791 y(to)48 b(use)i(the)f Fq(CKIN)g +Fw(v)-5 b(ariables)48 b(at)g(all.)89 b(This)49 b(is)f(not)h(a)f(ma)5 +b(jor)48 b(limitation,)g(since)h(it)e(is)h(in)244 4899 +y(the)f(spirit)f(of)g(minim)m(um-bias)d(ph)m(ysics)48 +b(not)f(to)g(imp)s(ose)f(an)m(y)h(con)m(train)m(ts)g(on)g(allo)m(w)m +(ed)f(jet)244 5008 y(pro)s(duction.)41 b(\(If)28 b(y)m(ou)h(still)d +(do,)j(these)h(cuts)f(will)d(b)s(e)j(ine\013ectiv)m(e)f(for)g(the)h +(VMD)f(pro)s(cesses)i(but)244 5116 y(tak)m(e)41 b(e\013ect)f(for)g(the) +g(other)g(ones,)j(giving)38 b(inconsistencies.\))66 b(The)41 +b(minim)m(um-bias)36 b(ph)m(ysics)244 5224 y(option)d(is)g(obtained)g +(b)m(y)i(default;)f(b)m(y)g(switc)m(hing)g(from)e Fq(MSEL=1)k +Fw(to)d Fq(MSEL=2)i Fw(also)e(the)h(elastic)244 5333 +y(and)25 b(di\013ractiv)m(e)g(comp)s(onen)m(ts)h(of)f(the)h(VMD)f(part) +g(are)h(included.)41 b(High-)p Fj(p)3006 5348 y Fk(?)3089 +5333 y Fw(jet)25 b(pro)s(duction)g(is)244 5441 y(obtained)30 +b(b)m(y)j(setting)d(the)i Fq(CKIN\(3\))h Fw(cut-o\013)e(larger)f(than)h +(eac)m(h)h(of)e(the)i(\(energy-dep)s(enden)m(t\))244 +5550 y(cut-o\013)e(scales)h(for)e(the)i(VMD,)g(direct)f(and)g +(anomalous)f(comp)s(onen)m(ts;)i(t)m(ypically)e(this)h(means)244 +5658 y(at)45 b(least)h(3)f(GeV.)h(F)-8 b(or)45 b(lo)m(w)m(er)h(input)f +Fq(CKIN\(3\))i Fw(v)-5 b(alues)46 b(the)g(program)f(will)e +(automatically)1817 5953 y(123)p eop +%%Page: 124 130 +124 129 bop 244 -18 a Fw(switc)m(h)33 b(bac)m(k)h(to)e(minim)m(um-bias) +c(ph)m(ysics.)145 99 y Fn(\017)49 b Fw(Some)36 b(v)-5 +b(ariables)36 b(are)g(in)m(ternally)f(recalculated)i(and)f(reset:)53 +b Fq(CKIN\(1\))p Fw(,)40 b Fq(CKIN\(3\))p Fw(,)g Fq(CKIN\(5\))p +Fw(,)244 208 y Fq(CKIN\(6\))p Fw(,)59 b Fq(MSTP\(57\))p +Fw(,)h Fq(MSTP\(85\))p Fw(,)f Fq(PARP\(2\))p Fw(,)h Fq(PARP\(81\))p +Fw(,)f Fq(PARP\(82\))p Fw(,)h Fq(PARU\(115\))54 b Fw(and)244 +316 y Fq(MDME\(22,J\))p Fw(.)34 b(This)d(is)g(b)s(ecause)i(they)f(m)m +(ust)g(ha)m(v)m(e)g(v)-5 b(alues)32 b(that)f(dep)s(end)h(on)g(the)f +(comp)s(onen)m(t)244 424 y(studied.)68 b(These)42 b(v)-5 +b(ariables)39 b(can)i(therefore)g(not)f(b)s(e)h(mo)s(di\014ed)e +(without)h(c)m(hanging)i Fq(PYINPR)244 533 y Fw(and)33 +b(recompiling)c(the)k(program,)f(whic)m(h)h(ob)m(viously)f(is)g(a)g(ma) +5 b(jor)32 b(exercise.)145 650 y Fn(\017)49 b Fw(Pileup)32 +b(ev)m(en)m(ts)j(are)d(not)h(at)f(all)e(allo)m(w)m(ed.)146 +764 y(Also,)k(a)g(w)m(arning)f(ab)s(out)h(the)g(usage)g(of)41 +b Fm(Pdflib)34 b Fw(for)f(photons.)48 b(So)34 b(long)f(as)h +Fq(MSTP\(14\)=1)p Fw(,)j(i.e.)0 872 y(the)26 b(photon)f(is)g(not)h +(split)e(up,)j Fm(Pdflib)f Fw(is)f(accessed)j(b)m(y)g +Fq(MSTP\(56\)=2)g Fw(and)e Fq(MSTP\(55\))h Fw(as)f(the)g(parton)0 +980 y(distribution)i(set.)43 b(Ho)m(w)m(ev)m(er,)33 b(when)e(the)f(VMD) +g(and)g(anomalous)e(pieces)j(are)e(split,)h(the)g(VMD)g(part)0 +1089 y(is)d(based)i(on)f(a)f(rescaling)g(of)g(pion)g(distributions)f(b) +m(y)j(VMD)f(factors)f(\(except)j(for)d(the)h(SaS)g(sets,)i(that)0 +1197 y(already)c(come)g(with)g(a)g(separate)h(VMD)f(piece\).)42 +b(Therefore,)29 b(to)d(access)i Fm(Pdflib)f Fw(for)f +Fq(MSTP\(14\)=10)p Fw(,)0 1305 y(it)33 b(is)g(not)h(correct)h(to)f(set) +g Fq(MSTP\(56\)=2)j Fw(and)d(a)g(photon)g(distribution)e(in)h +Fq(MSTP\(55\))p Fw(.)50 b(Instead,)35 b(one)0 1414 y(should)43 +b(put)h Fq(MSTP\(56\)=2)p Fw(,)49 b Fq(MSTP\(54\)=2)c +Fw(and)f(a)f(pion)f(distribution)g(co)s(de)i(in)e Fq(MSTP\(53\))p +Fw(,)48 b(while)0 1522 y Fq(MSTP\(55\))31 b Fw(has)e(no)g(function.)42 +b(The)30 b(anomalous)d(part)i(is)f(still)f(based)j(on)f(the)g(SaS)g +(parametrization,)0 1630 y(with)j Fq(PARP\(15\))j Fw(as)e(main)d(free)j +(parameter.)146 1739 y(Curren)m(tly)-8 b(,)35 b(hadrons)f(are)g(not)g +(de\014ned)h(with)e(an)m(y)i(photonic)e(con)m(ten)m(t.)48 +b(None)34 b(of)f(the)h(pro)s(cesses)0 1847 y(are)f(therefore)g(relev)-5 +b(an)m(t)32 b(in)g(hadron{hadron)h(collisions.)40 b(In)33 +b(ep)g(collisions,)d(the)j(electron)g(can)g(emit)0 1955 +y(an)d(almost)e(real)h(photon,)i(whic)m(h)f(ma)m(y)g(in)m(teract)g +(directly)f(or)h(b)s(e)g(resolv)m(ed.)43 b(In)31 b(e)3004 +1919 y Fl(+)3063 1955 y Fw(e)3106 1919 y Fk(\000)3195 +1955 y Fw(collisions,)d(one)0 2064 y(ma)m(y)k(ha)m(v)m(e)i(direct,)f +(singly-resolv)m(ed)f(or)g(doubly-resolv)m(ed)h(pro)s(cesses.)146 +2172 y(The)40 b Fj(\015)5 b(\015)44 b Fw(equiv)-5 b(alen)m(t)39 +b(to)f(the)i Fj(\015)5 b Fw(p)39 b(description)f(in)m(v)m(olv)m(es)i +(six)f(di\013eren)m(t)g(ev)m(en)m(t)i(classes,)h(see)e(sec-)0 +2280 y(tion)i(7.7.2.)73 b(These)45 b(classes)e(can)g(b)s(e)g(obtained)f +(b)m(y)i(setting)g Fq(MSTP\(14\))h Fw(to)d(0,)j(2,)g(3,)g(5,)g(6)e(and) +g(7,)0 2389 y(resp)s(ectiv)m(ely)-8 b(.)51 b(If)35 b(one)g(com)m(bines) +f(the)h(VMD)g(and)g(anomalous)e(parts)i(of)f(the)h(parton)g +(distributions)0 2497 y(of)41 b(the)i(photon,)h(in)d(a)h(more)f(coarse) +i(description,)h(it)c(is)i(enough)g(to)g(use)h(the)f +Fq(MSTP\(14\))i Fw(options)0 2605 y(0,)g(1)e(and)h(4.)72 +b(The)43 b(cut-o\013)f(pro)s(cedures)i(follo)m(ws)d(from)g(the)h(ones)h +(used)h(for)d(the)i Fj(\015)5 b Fw(p)43 b(ones)g(ab)s(o)m(v)m(e.)0 +2714 y(Th)m(us)36 b(the)f(direct)p Fn(\002)p Fw(direct)f(and)g(direct)p +Fn(\002)p Fw(VMD)h(pro)s(cesses)h(require)f(the)g(same)f(cut-o\013s)g +(as)h(used)g(for)0 2822 y(direct)27 b Fj(\015)5 b Fw(p)27 +b(ev)m(en)m(ts,)k(the)c(VMD)p Fn(\002)p Fw(VMD)h(ones)f(the)h(same)f +(as)g(used)h(for)f(VMD)f Fj(\015)5 b Fw(p)28 b(ev)m(en)m(ts,)i(and)d +(the)h(rest)0 2930 y(\(anomalous)p Fn(\002)p Fw(anomalous,)i(direct)p +Fn(\002)p Fw(anomalous)i(and)h(VMD)p Fn(\002)p Fw(anomalous\))f(the)h +(same)g(as)g(used)h(for)0 3039 y(anomalous)d Fj(\015)5 +b Fw(p)33 b(ev)m(en)m(ts.)146 3147 y(As)43 b(with)f Fj(\015)5 +b Fw(p)43 b(ev)m(en)m(ts,)k(the)c(option)e Fq(MSTP\(14\)=10)k +Fw(giv)m(es)e(a)f(mixture)g(of)g(the)g(six)h(p)s(ossible)e +Fj(\015)5 b(\015)0 3255 y Fw(ev)m(en)m(t)33 b(classes.)44 +b(The)32 b(same)f(complications)d(and)k(restrictions)e(exist)i(here)f +(as)h(already)e(listed)h(ab)s(o)m(v)m(e.)0 3364 y(F)-8 +b(or)32 b(normal)e(use)k(the)f(adv)-5 b(an)m(tages)33 +b(should)f(out)m(w)m(eigh)m(t)i(the)f(disadv)-5 b(an)m(tages.)146 +3472 y(It)36 b(is)e(hop)s(ed)i(to)f(extend)h(the)g(formalism)c(also)i +(to)h(mildly)d(virtual)i(photons.)52 b(Curren)m(tly)36 +b(this)f(is)0 3580 y(not)29 b(done.)43 b(The)30 b(in)m(teraction)e(of)h +(a)f(highly)g(virtual)g(photon)h(with)g(a)g(real)f(photon)h(is)g +(included)g(in)f(the)0 3689 y(deep)34 b(inelastic)d(scattering)h +(formalism)d(b)s(elo)m(w,)j(ho)m(w)m(ev)m(er.)146 3797 +y(Pro)s(cess)e(54)e(generates)h(a)f(mixture)f(of)h(quark)h(\015a)m(v)m +(ours;)i(allo)m(w)m(ed)d(\015a)m(v)m(ours)h(are)g(set)g(b)m(y)g(the)f +(gluon)0 3905 y Fq(MDME)52 b(values)p Fw(.)75 b(Pro)s(cess)44 +b(58)d(can)i(generate)g(b)s(oth)f(quark)h(and)g(lepton)f(pairs,)i +(according)e(to)g(the)0 4014 y Fq(MDME)f Fw(v)-5 b(alues)40 +b(of)f(the)h(photon.)66 b(Pro)s(cesses)42 b(84)d(and)h(85)g(are)g(v)-5 +b(arian)m(ts)39 b(of)h(these)h(matrix)d(elemen)m(ts,)0 +4122 y(with)43 b(fermion)f(masses)i(included)f(in)g(the)h(matrix)d +(elemen)m(ts,)47 b(but)d(where)g(only)f(one)h(\015a)m(v)m(our)g(can)0 +4231 y(b)s(e)g(generated)h(at)f(a)g(time.)76 b(This)45 +b(\015a)m(v)m(our)g(is)e(selected)i(as)g(describ)s(ed)g(for)e(pro)s +(cesses)j(81)e(and)g(82)0 4339 y(in)35 b(section)g(8.2.2,)h(with)f(the) +h(exception)g(that)f(for)g(pro)s(cess)i(85)e(the)g(`hea)m(viest')i +(\015a)m(v)m(our)f(allo)m(w)m(ed)f(for)0 4447 y(photon)i(splitting)d +(tak)m(es)k(to)f(place)f(of)g(the)h(hea)m(viest)h(\015a)m(v)m(our)g +(allo)m(w)m(ed)e(for)g(gluon)g(splitting.)53 b(Since)0 +4556 y(lepton)41 b(KF)f(co)s(des)j(come)e(after)g(quark)h(ones,)i(they) +e(are)f(coun)m(ted)i(as)e(b)s(eing)g(`hea)m(vier',)j(and)d(th)m(us)0 +4664 y(tak)m(e)33 b(precedence)j(if)31 b(they)i(ha)m(v)m(e)h(b)s(een)g +(allo)m(w)m(ed.)146 4772 y(Pro)s(cess)43 b(80)d(is)g(a)h(higher)g(t)m +(wist)g(one.)68 b(The)42 b(theory)g(for)e(suc)m(h)j(pro)s(cesses)g(is)d +(rather)h(shaky)-8 b(,)44 b(so)0 4881 y(results)k(should)g(not)g(b)s(e) +g(tak)m(en)g(to)s(o)f(literally)-8 b(.)86 b(The)49 b(messy)g(form)m +(ulae)d(giv)m(en)i(in)f([Bag82)o(])h(ha)m(v)m(e)0 4989 +y(not)e(b)s(een)h(programmed)e(in)h(full,)i(instead)e(the)h(pion)e +(form)g(factor)h(has)h(b)s(een)g(parametrized)e(as)0 +5097 y Fj(Q)77 5061 y Fl(2)117 5097 y Fj(F)180 5112 y +Fh(\031)227 5097 y Fw(\()p Fj(Q)342 5061 y Fl(2)382 5097 +y Fw(\))27 b Fn(\031)h Fw(0)p Fj(:)p Fw(55)p Fj(=)17 +b Fw(ln)e Fj(Q)966 5061 y Fl(2)1006 5097 y Fw(,)32 b(with)h +Fj(Q)f Fw(in)g(GeV.)0 5345 y Fo(8.3.3)112 b(Deep)38 b(inelastic)e +(scattering)0 5518 y Fq(MSEL)e Fw(=)e(1,)g(2,)h(35,)f(36,)g(37,)g(38)0 +5626 y(ISUB)h(=)1817 5953 y(124)p eop +%%Page: 125 131 +125 130 bop 50 -30 a Fw(10)99 b(f)277 -15 y Fh(i)305 +-30 y Fw(f)335 -15 y Fh(j)399 -30 y Fn(!)27 b Fw(f)556 +-15 y Fh(k)599 -30 y Fw(f)629 -15 y Fh(l)50 90 y Fw(83)99 +b(q)298 105 y Fh(i)327 90 y Fw(f)357 105 y Fh(j)421 90 +y Fn(!)27 b Fw(Q)624 105 y Fh(k)666 90 y Fw(f)696 105 +y Fh(l)146 206 y Fw(The)j(`deep)f(inelastic)e(scattering')h(\(DIS\))h +(pro)s(cesses,)i(i.e.)42 b Fj(t)p Fw(-c)m(hannel)28 b(electro)m(w)m +(eak)i(gauge)e(b)s(oson)0 314 y(exc)m(hange,)k(are)f(traditionally)26 +b(asso)s(ciated)k(with)g(in)m(teractions)f(b)s(et)m(w)m(een)j(a)e +(lepton)g(or)g(neutrino)f(and)0 422 y(a)h(hadron,)g(but)g(pro)s(cesses) +i(10)d(and)h(83)g(can)g(equally)f(w)m(ell)g(b)s(e)h(applied)f(for)g(qq) +i(scattering)e(in)g(hadron)0 531 y(colliders)c(\(with)h(a)g(cross)h +(section)g(m)m(uc)m(h)g(smaller)d(than)j(corresp)s(onding)f(QCD)g(pro)s +(cesses,)k(ho)m(w)m(ev)m(er\).)0 639 y(If)j(applied)e(to)h(incoming)e +(e)1018 603 y Fl(+)1078 639 y Fw(e)1121 603 y Fk(\000)1213 +639 y Fw(b)s(eams,)i(pro)s(cess)i(10)e(corresp)s(onds)i(to)e(Bhabha)h +(scattering.)146 747 y(F)-8 b(or)25 b(pro)s(cess)j(10)d(b)s(oth)h +Fj(\015)5 b Fw(,)27 b(Z)1165 711 y Fl(0)1230 747 y Fw(and)f(W)1514 +711 y Fk(\006)1599 747 y Fw(exc)m(hange)i(con)m(tribute,)f(including)d +(in)m(terference)j(b)s(et)m(w)m(een)0 856 y Fj(\015)k +Fw(and)c(Z)326 820 y Fl(0)365 856 y Fw(.)42 b(The)27 +b(switc)m(h)g Fq(MSTP\(21\))i Fw(ma)m(y)d(b)s(e)h(used)g(to)f(restrict) +h(to)f(only)g(some)g(of)g(these,)j(e.g.)42 b(neutral)0 +964 y(or)32 b(c)m(harged)i(curren)m(t)f(only)-8 b(.)146 +1072 y(The)32 b(option)d Fq(MSTP\(14\)=10)k Fw(\(see)f(previous)e +(section\))h(has)g(no)m(w)g(b)s(een)g(extended)h(so)f(that)f(it)f(also) +0 1181 y(w)m(orks)44 b(for)d(deep)j(inelastic)c(sacattering)i(of)g(an)g +(electron)g(o\013)g(a)g(\(real\))f(photon,)k(i.e.)71 +b(pro)s(cess)44 b(10.)0 1289 y(What)39 b(is)e(obtained)h(is)g(a)h +(mixture)e(of)h(the)h(photon)f(acting)g(as)h(a)f(v)m(ector)h(meson)g +(and)f(it)g(acting)f(as)0 1397 y(an)44 b(anomalous)e(state.)77 +b(This)44 b(should)f(therefore)i(b)s(e)f(the)g(sum)f(of)h(what)g(can)g +(b)s(e)g(obtained)f(with)0 1506 y Fq(MSTP\(14\)=2)33 +b Fw(and)e Fq(=3)p Fw(.)43 b(It)30 b(is)g(distinct)g(from)f +Fq(MSTP\(14\)=1)k Fw(in)d(that)g(di\013eren)m(t)h(sets)g(are)g(used)g +(for)f(the)0 1614 y(parton)37 b(distributions)f(|)h(in)g +Fq(MSTP\(14\)=1)j Fw(all)35 b(the)j(con)m(tributions)f(to)g(the)h +(photon)f(distributions)0 1722 y(are)29 b(lump)s(ed)f(together,)i +(while)f(they)h(are)f(split)f(in)g(VMD)h(and)g(anomalous)f(parts)h(for) +g Fq(MSTP\(14\)=10)p Fw(.)0 1831 y(Also)40 b(the)h(b)s(eam)e(remnan)m +(t)i(treatmen)m(t)f(is)g(di\013eren)m(t,)j(with)d(a)g(simple)f +(Gaussian)g(distribution)g(\(at)0 1939 y(least)i(b)m(y)h(default\))f +(for)g Fq(MSTP\(14\)=1)j Fw(and)d(the)h(VMD)g(part)f(of)48 +b Fq(MSTP\(14\)=10)p Fw(,)e(but)c(a)f(p)s(o)m(w)m(erlik)m(e)0 +2048 y(distribution)31 b(d)p Fj(k)640 2011 y Fl(2)637 +2072 y Fk(?)696 2048 y Fj(=k)799 2011 y Fl(2)796 2072 +y Fk(?)887 2048 y Fw(b)s(et)m(w)m(een)j Fq(PARP\(15\))h +Fw(and)e Fj(Q)f Fw(for)g(the)h(anomalous)e(part)i(of)39 +b Fq(MSTP\(14\)=10)p Fw(.)146 2156 y(T)-8 b(o)49 b(access)h(this)e +(option)g(for)f(e)i(and)g Fj(\015)k Fw(as)c(incoming)d(b)s(eams,)52 +b(it)c(is)g(only)g(necessary)j(to)d(set)0 2264 y Fq(MSTP\(14\)=10)35 +b Fw(and)e(k)m(eep)h Fq(MSEL)f Fw(at)f(its)g(default)f(v)-5 +b(alue.)43 b(Unlik)m(e)32 b(the)h(corresp)s(onding)f(option)g(for)f +Fj(\015)5 b Fw(p)0 2373 y(and)35 b Fj(\015)5 b(\015)g +Fw(,)36 b(no)f(cuts)h(are)g(o)m(v)m(erwritten,)h(i.e.)50 +b(it)35 b(is)f(still)f(the)j(resp)s(onsabilit)m(y)e(of)h(the)g(user)h +(to)f(set)h(these)0 2481 y(appropriately)-8 b(.)146 2589 +y(Cuts)58 b(esp)s(ecially)e(appropriate)g(for)h(DIS)g(usage)g(include)g +(either)f Fq(CKIN\(21\)-CKIN\(22\))62 b Fw(or)0 2698 +y Fq(CKIN\(23\)-CKIN\(24\))49 b Fw(for)44 b(the)i Fj(x)f +Fw(range)f(\(former)g(or)g(latter)g(dep)s(ending)h(on)g(whic)m(h)g +(side)g(is)f(the)0 2806 y(incoming)36 b(real)h(photon\),)j +Fq(CKIN\(35\)-CKIN\(36\))i Fw(for)c(the)g Fj(Q)2335 2770 +y Fl(2)2413 2806 y Fw(range,)i(and)e Fq(CKIN\(39\)-CKIN\(40\))0 +2914 y Fw(for)32 b(the)h Fj(W)423 2878 y Fl(2)495 2914 +y Fw(range.)146 3023 y(In)48 b(principle,)h(the)f(DIS)f +Fj(x)h Fw(v)-5 b(ariable)45 b(of)i(an)h(ev)m(en)m(t)h(corresp)s(onds)f +(to)f(the)h Fj(x)g Fw(v)-5 b(alue)46 b(stored)i(in)0 +3131 y Fq(PARI\(33\))42 b Fw(or)e Fq(PARI\(34\))p Fw(,)k(dep)s(ending)d +(on)f(whic)m(h)g(side)g(the)h(incoming)d(hadron)i(is)g(on,)i(while)d +(the)0 3239 y(DIS)c Fj(Q)276 3203 y Fl(2)349 3239 y Fw(=)d +Fn(\000)535 3221 y Fw(^)534 3239 y Fj(t)i Fw(=)p Fq(-PARI\(15\))p +Fw(.)55 b(Ho)m(w)m(ev)m(er,)38 b(just)e(lik)m(e)f(initial-)c(and)36 +b(\014nal-state)f(radiation)e(can)j(shift)0 3348 y(jet)30 +b(momen)m(ta,)g(they)h(can)f(mo)s(dify)f(the)h(momen)m(tum)f(of)h(the)g +(scattered)i(lepton.)42 b(Therefore)31 b(the)g(DIS)0 +3456 y Fj(x)36 b Fw(and)f Fj(Q)360 3420 y Fl(2)435 3456 +y Fw(v)-5 b(ariables)35 b(are)g(not)g(automatically)d(conserv)m(ed.)55 +b(An)36 b(option,)f(on)g(b)m(y)h(default,)g(exists)g(in)0 +3564 y Fq(MSTP\(23\))p Fw(,)k(where)e(the)g(ev)m(en)m(t)g(can)f(b)s(e)g +(`mo)s(di\014ed)f(bac)m(k')i(so)f(as)g(to)g(conserv)m(e)i +Fj(x)e Fw(and)g Fj(Q)3334 3528 y Fl(2)3374 3564 y Fw(,)h(but)f(this)0 +3673 y(option)31 b(is)i(still)d(rather)i(primitiv)m(e)f(and)h(should)h +(not)f(b)s(e)h(tak)m(en)h(to)s(o)d(literally)-8 b(.)146 +3781 y(Pro)s(cess)34 b(83)e(is)g(the)h(equiv)-5 b(alen)m(t)33 +b(of)f(pro)s(cess)i(10)e(for)g(W)2189 3745 y Fk(\006)2281 +3781 y Fw(exc)m(hange)i(only)-8 b(,)32 b(but)h(with)f(the)h(hea)m(vy-)0 +3889 y(quark)d(mass)f(included)f(in)g(the)i(matrix)d(elemen)m(t.)42 +b(In)30 b(hadron)f(colliders)e(it)h(is)g(mainly)f(of)i(in)m(terest)g +(for)0 3998 y(the)35 b(pro)s(duction)e(of)h(v)m(ery)i(hea)m(vy)f(\015a) +m(v)m(ours,)h(where)g(the)e(p)s(ossibilit)m(y)f(of)g(pro)s(ducing)h +(just)g(one)h(hea)m(vy)0 4106 y(quark)g(is)e(kinematically)e(fa)m(v)m +(oured)k(o)m(v)m(er)g(pair)e(pro)s(duction.)48 b(The)34 +b(selection)g(of)g(the)g(hea)m(vy)i(\015a)m(v)m(our)0 +4214 y(is)c(already)g(discussed)j(in)c(section)i(8.2.2.)0 +4462 y Fo(8.3.4)112 b(Single)37 b Fw(W)q Fj(=)p Fw(Z)g +Fo(pro)s(duction)0 4635 y Fq(MSEL)d Fw(=)e(11,)g(12,)g(13,)g(14,)h(15,) +f(\(21\))0 4743 y(ISUB)h(=)1817 5953 y(125)p eop +%%Page: 126 132 +126 131 bop 223 -30 a Fw(1)100 b(f)402 -15 y Fh(i)p 430 +-109 37 4 v 430 -30 a Fw(f)466 -15 y Fh(i)522 -30 y Fn(!)28 +b Fj(\015)706 -66 y Fk(\003)745 -30 y Fj(=)p Fw(Z)854 +-66 y Fl(0)223 90 y Fw(2)100 b(f)402 105 y Fh(i)p 430 +11 V 430 90 a Fw(f)466 105 y Fh(j)531 90 y Fn(!)27 b +Fw(W)759 54 y Fl(+)174 211 y Fw(15)100 b(f)402 226 y +Fh(i)p 430 131 V 430 211 a Fw(f)466 226 y Fh(i)522 211 +y Fn(!)28 b Fw(g\()p Fj(\015)793 174 y Fk(\003)832 211 +y Fj(=)p Fw(Z)941 174 y Fl(0)980 211 y Fw(\))174 331 +y(16)100 b(f)402 346 y Fh(i)p 430 252 V 430 331 a Fw(f)466 +346 y Fh(j)531 331 y Fn(!)27 b Fw(gW)808 295 y Fl(+)174 +451 y Fw(19)100 b(f)402 466 y Fh(i)p 430 372 V 430 451 +a Fw(f)466 466 y Fh(i)522 451 y Fn(!)28 b Fj(\015)5 b +Fw(\()p Fj(\015)800 415 y Fk(\003)839 451 y Fj(=)p Fw(Z)948 +415 y Fl(0)987 451 y Fw(\))174 572 y(20)100 b(f)402 587 +y Fh(i)p 430 493 V 430 572 a Fw(f)466 587 y Fh(j)531 +572 y Fn(!)27 b Fj(\015)5 b Fw(W)815 536 y Fl(+)174 692 +y Fw(30)100 b(f)402 707 y Fh(i)430 692 y Fw(g)28 b Fn(!)g +Fw(f)665 707 y Fh(i)693 692 y Fw(\()p Fj(\015)787 656 +y Fk(\003)826 692 y Fj(=)p Fw(Z)935 656 y Fl(0)974 692 +y Fw(\))174 812 y(31)100 b(f)402 827 y Fh(i)430 812 y +Fw(g)28 b Fn(!)g Fw(f)665 827 y Fh(k)707 812 y Fw(W)808 +776 y Fl(+)174 933 y Fw(35)100 b(f)402 948 y Fh(i)430 +933 y Fj(\015)32 b Fn(!)c Fw(f)671 948 y Fh(i)699 933 +y Fw(\()p Fj(\015)793 897 y Fk(\003)832 933 y Fj(=)p +Fw(Z)941 897 y Fl(0)980 933 y Fw(\))174 1053 y(36)100 +b(f)402 1068 y Fh(i)430 1053 y Fj(\015)32 b Fn(!)c Fw(f)671 +1068 y Fh(k)713 1053 y Fw(W)814 1017 y Fl(+)126 1174 +y Fw(131)99 b(gg)28 b Fn(!)g Fw(Z)686 1137 y Fl(0)725 +1174 y Fw(Q)801 1189 y Fh(k)p 843 1096 76 4 v 843 1174 +a Fw(Q)919 1197 y Fh(k)50 1294 y Fw(\(141\))99 b(f)402 +1309 y Fh(i)p 430 1215 37 4 v 430 1294 a Fw(f)466 1309 +y Fh(i)522 1294 y Fn(!)28 b Fj(\015)5 b(=)p Fw(Z)815 +1258 y Fl(0)853 1294 y Fj(=)p Fw(Z)962 1258 y Fk(0)p +Fl(0)146 1404 y Fw(This)43 b(group)f(consists)h(of)e(2)j +Fn(!)g Fw(1)e(pro)s(cesses,)47 b(i.e.)72 b(pro)s(duction)41 +b(of)h(a)g(single)f(resonance,)46 b(and)0 1512 y(2)30 +b Fn(!)f Fw(2)34 b(pro)s(cesses,)i(where)f(the)f(resonance)h(is)f +(recoiling)d(against)i(a)g(jet)h(or)g(a)f(photon.)47 +b(The)35 b(pro)s(cess)0 1621 y(141,)d(whic)m(h)h(also)f(is)g(listed)f +(here,)j(is)e(describ)s(ed)h(further)g(elsewhere.)146 +1729 y(With)26 b(initial-state)c(sho)m(w)m(ers)28 b(turned)e(on,)h(the) +g(2)g Fn(!)g Fw(1)f(pro)s(cesses)i(also)d(generate)h(additional)d +(jets;)0 1837 y(in)j(order)g(to)g(a)m(v)m(oid)h(double-coun)m(ting,)g +(the)f(corresp)s(onding)h(2)g Fn(!)h Fw(2)e(pro)s(cesses)i(should)f +(therefore)g(not)0 1946 y(b)s(e)37 b(turned)i(on)e(sim)m(ultaneously)-8 +b(.)56 b(The)38 b(basic)f(rule)g(is)g(to)g(use)h(the)g(2)d +Fn(!)h Fw(1)h(pro)s(cesses)i(for)e(inclusiv)m(e)0 2054 +y(generation)d(of)f(W)q Fj(=)p Fw(Z,)i(i.e.)48 b(where)36 +b(the)f(bulk)f(of)g(the)g(ev)m(en)m(ts)j(studied)e(ha)m(v)m(e)g +Fj(p)2910 2069 y Fk(?)3000 2054 y Fn(\034)30 b Fj(m)3215 +2070 y Fl(W)q Fh(=)p Fl(Z)3371 2054 y Fw(,)35 b(whic)m(h)g(is)0 +2162 y(where)h(parton)e(sho)m(w)m(ers)j(ma)m(y)e(b)s(e)f(exp)s(ected)j +(to)d(do)h(a)f(go)s(o)s(d)g(job.)49 b(F)-8 b(or)34 b(dedicated)h +(studies)g(of)g(W)q Fj(=)p Fw(Z)0 2271 y(pro)s(duction)f(at)g(larger)f +(transv)m(erse)k(momen)m(ta,)d(the)h(parton)f(sho)m(w)m(ers)i(tend)f +(to)g(underestimate)f(the)0 2379 y(ev)m(en)m(t)e(rates.)43 +b(It)30 b(is)g(here)h(b)s(etter)g(to)e(start)i(from)e(the)h(2)e +Fn(!)f Fw(2)j(matrix)e(elemen)m(ts)j(and)f(add)g(sho)m(w)m(ers)j(to)0 +2487 y(these.)48 b(Ho)m(w)m(ev)m(er,)36 b(the)e(2)29 +b Fn(!)g Fw(2)k(matrix)f(elemen)m(ts)i(are)g(div)m(ergen)m(t)g(for)f +Fj(p)2677 2502 y Fk(?)2765 2487 y Fn(!)c Fw(0,)34 b(and)f(should)h(not) +f(b)s(e)0 2596 y(used)j(do)m(wn)f(to)f(the)h(lo)m(w-)p +Fj(p)1001 2611 y Fk(?)1094 2596 y Fw(region,)f(or)g(one)h(ma)m(y)f(get) +h(unph)m(ysical)g(cross)g(sections.)50 b(The)36 b(problem)0 +2704 y(of)31 b(double-coun)m(ting)g(applies)h(not)f(only)h(to)f(W)q +Fj(=)p Fw(Z)h(pro)s(duction)f(in)h(hadron)f(colliders,)g(but)h(also)f +(to)h(a)0 2812 y(pro)s(cess)h(lik)m(e)e(e)560 2776 y +Fl(+)619 2812 y Fw(e)662 2776 y Fk(\000)749 2812 y Fn(!)c +Fw(Z)936 2776 y Fl(0)976 2812 y Fj(\015)5 b Fw(,)31 b(whic)m(h)i +(clearly)d(is)h(part)h(of)f(the)h(initial-state)c(radiation)h +(corrections)j(to)0 2921 y(e)43 2885 y Fl(+)102 2921 +y Fw(e)145 2885 y Fk(\000)233 2921 y Fn(!)27 b Fw(Z)420 +2885 y Fl(0)492 2921 y Fw(obtained)32 b(for)g Fq(MSTP\(11\)=1)p +Fw(.)46 b(As)33 b(is)f(the)h(case)h(for)e(Z)g(pro)s(duction)g(in)g +(asso)s(ciation)f(with)0 3029 y(jets,)i(the)g(2)28 b +Fn(!)f Fw(2)32 b(pro)s(cess)i(should)e(therefore)i(only)e(b)s(e)g(used) +i(for)e(the)h(high-)p Fj(p)2874 3044 y Fk(?)2965 3029 +y Fw(region.)146 3137 y(The)41 b(Z)414 3101 y Fl(0)493 +3137 y Fw(of)f(subpro)s(cess)i(1)d(includes)h(the)h(full)d(in)m +(terference)j(structure)g Fj(\015)2944 3101 y Fk(\003)2984 +3137 y Fj(=)p Fw(Z)3093 3101 y Fl(0)3131 3137 y Fw(;)j(via)39 +b Fq(MSTP\(43\))0 3246 y Fw(y)m(ou)48 b(can)g(select)f(to)g(pro)s(duce) +h(only)f Fj(\015)1478 3210 y Fk(\003)1518 3246 y Fw(,)k(only)46 +b(Z)1884 3210 y Fl(0)1924 3246 y Fw(,)51 b(or)c(the)g(full)f +Fj(\015)2560 3210 y Fk(\003)2599 3246 y Fj(=)p Fw(Z)2708 +3210 y Fl(0)2747 3246 y Fw(.)88 b(The)48 b(same)f(holds)g(true)0 +3354 y(for)41 b(the)h(Z)395 3318 y Fk(0)p Fl(0)494 3354 +y Fw(of)f(subpro)s(cess)j(141;)h(via)c Fq(MSTP\(44\))i +Fw(an)m(y)f(com)m(bination)e(of)h Fj(\015)2883 3318 y +Fk(\003)2922 3354 y Fw(,)j(Z)3053 3318 y Fl(0)3133 3354 +y Fw(and)e(Z)3392 3318 y Fk(0)p Fl(0)3492 3354 y Fw(can)f(b)s(e)0 +3462 y(selected.)61 b(Th)m(us,)42 b(subpro)s(cess)e(141)d(with)h +Fq(MSTP\(44\)=4)j Fw(is)d(essen)m(tially)g(equiv)-5 b(alen)m(t)38 +b(to)f(subpro)s(cess)0 3571 y(1)43 b(with)h Fq(MSTP\(43\)=3)p +Fw(;)52 b(ho)m(w)m(ev)m(er,)d(pro)s(cess)c(141)d(also)h(includes)h(the) +g(p)s(ossibilit)m(y)e(of)h(a)g(deca)m(y)i(in)m(to)0 3679 +y(Higgses.)c(Also)24 b(pro)s(cesses)j(15,)e(19,)h(30)e(and)h(35)f(con)m +(tain)g(the)h(full)e(mixture)h(of)g Fj(\015)2915 3643 +y Fk(\003)2954 3679 y Fj(=)p Fw(Z)3063 3643 y Fl(0)3102 +3679 y Fw(,)i(with)e Fq(MSTP\(43\))0 3787 y Fw(a)m(v)-5 +b(ailable)28 b(to)h(c)m(hange)i(this.)43 b(Only)29 b(the)i(Z)1527 +3751 y Fl(0)1596 3787 y Fw(that)f(app)s(ears)g(in)g(pro)s(cess)h(131)e +(do)s(es)i(not)f(con)m(tain)g(the)g Fj(\015)3740 3751 +y Fk(\003)0 3896 y Fw(con)m(tribution.)146 4004 y(Note)39 +b(that)f(pro)s(cess)i(1,)g(with)e(only)g(q)p 1566 3951 +52 4 v(q)g Fn(!)f Fj(\015)1848 3968 y Fk(\003)1926 4004 +y Fn(!)g Fj(`)2104 3968 y Fl(+)2163 4004 y Fj(`)2204 +3968 y Fk(\000)2301 4004 y Fw(allo)m(w)m(ed,)i(and)g(studied)g(in)f +(the)g(region)0 4113 y(w)m(ell)g(b)s(elo)m(w)g(the)g(Z)719 +4076 y Fl(0)797 4113 y Fw(mass,)i(is)d(what)i(is)f(con)m(v)m(en)m +(tionally)g(called)f(Drell{Y)-8 b(an.)58 b(This)39 b(latter)e(pro)s +(cess)0 4221 y(therefore)i(do)s(es)g(not)f(app)s(ear)g(under)h(a)f +(separate)h(heading,)h(but)e(can)h(b)s(e)f(obtained)g(b)m(y)h(a)f +(suitable)0 4329 y(setting)32 b(of)g(switc)m(hes)j(and)d(parameters.) +146 4438 y(A)37 b(pro)s(cess)h(lik)m(e)e(f)813 4453 y +Fh(i)p 841 4358 37 4 v 841 4438 a Fw(f)878 4453 y Fh(j)950 +4438 y Fn(!)e Fj(\015)5 b Fw(W)1241 4401 y Fl(+)1338 +4438 y Fw(is)36 b(only)h(included)f(in)g(the)h(limit)d(that)i(the)i +Fj(\015)k Fw(is)36 b(emitted)g(in)g(the)0 4546 y(`initial)28 +b(state',)k(while)f(the)h(p)s(ossibilit)m(y)d(of)i(a)g(\014nal-state)g +(radiation)e(o\013)i(the)h(W)2950 4510 y Fl(+)3041 4546 +y Fw(deca)m(y)h(pro)s(ducts)f(is)0 4654 y(not)i(explicitly)d(included)j +(\(but)g(can)g(b)s(e)g(obtained)f(implicitly)c(b)m(y)35 +b(the)f(parton-sho)m(w)m(er)h(mac)m(hinery\))0 4763 y(and)42 +b(v)-5 b(arious)40 b(in)m(terference)j(terms)e(are)h(not)f(at)g(all)e +(presen)m(t.)72 b(Some)41 b(caution)g(m)m(ust)g(therefore)h(b)s(e)0 +4871 y(exercised;)34 b(see)g(also)e(section)g(8.3.5)g(for)g(related)h +(commen)m(ts.)146 4979 y(F)-8 b(or)44 b(the)i(2)i Fn(!)g +Fw(1)d(pro)s(cesses,)50 b(the)45 b(Breit{Wigner)e(includes)i(an)k(^)-53 +b Fj(s)p Fw(-dep)s(enden)m(t)46 b(width,)i(whic)m(h)0 +5088 y(should)38 b(pro)m(vide)g(an)g(impro)m(v)m(ed)g(description)g(of) +f(line)g(shap)s(es.)61 b(In)38 b(fact,)i(from)d(a)g(line-shap)s(e)g(p)s +(oin)m(t)0 5196 y(of)32 b(view,)g(pro)s(cess)i(1)e(should)g(pro)m(vide) +g(a)g(more)g(accurate)h(sim)m(ulation)c(of)j(e)2781 5160 +y Fl(+)2840 5196 y Fw(e)2883 5160 y Fk(\000)2975 5196 +y Fw(annihilation)c(ev)m(en)m(ts)0 5304 y(than)40 b(the)g(dedicated)h +(e)900 5268 y Fl(+)959 5304 y Fw(e)1002 5268 y Fk(\000)1102 +5304 y Fw(generation)e(sc)m(heme)i(of)47 b Fm(Jetset)38 +b Fw(\(see)j(section)g(6.1\).)65 b(Ho)m(w)m(ev)m(er,)44 +b(the)0 5413 y Fj(p)49 5428 y Fk(?)146 5413 y Fw(distribution)37 +b(of)h(radiated)f(initial-state)e(photons)k(is)f(probably)g(still)e(b)s +(etter)j(mo)s(delled)d(in)i(the)0 5521 y Fm(Jetset)21 +b Fw(routines.)40 b(Another)22 b(di\013erence)h(is)f(that)g +Fm(Jetset)f Fw(only)g(allo)m(ws)g(the)i(generation)e(of)h +Fj(\015)3465 5485 y Fk(\003)3504 5521 y Fj(=)p Fw(Z)3613 +5485 y Fl(0)3680 5521 y Fn(!)0 5629 y Fw(q)p 51 5576 +52 4 v(q)q(,)40 b(while)d(pro)s(cess)i(1)f(additionally)d(con)m(tains)j +Fj(\015)1851 5593 y Fk(\003)1891 5629 y Fj(=)p Fw(Z)2000 +5593 y Fl(0)2076 5629 y Fn(!)e Fj(`)2253 5593 y Fl(+)2312 +5629 y Fj(`)2353 5593 y Fk(\000)2450 5629 y Fw(and)j +Fj(\015)2702 5593 y Fk(\003)2741 5629 y Fj(=)p Fw(Z)2850 +5593 y Fl(0)2926 5629 y Fn(!)e Fj(\027)p 3117 5576 55 +4 v 6 w(\027)7 b Fw(.)60 b(The)39 b(parton-)1817 5953 +y(126)p eop +%%Page: 127 133 +127 132 bop 0 -18 a Fw(sho)m(w)m(er)29 b(and)d(fragmen)m(tation)f +(descriptions)i(are)g(the)g(same,)h(but)f(the)g Fm(Pythia)g +Fw(implemen)m(tation)d(has)0 90 y(not)36 b(b)s(een)h(in)m(terfaced)g +(with)f(the)g(\014rst-)h(and)f(second-order)i(matrix-elemen)m(t)c +(options)h(a)m(v)-5 b(ailable)34 b(in)0 198 y Fm(Jetset)p +Fw(.)146 307 y(Almost)d(all)e(pro)s(cesses)34 b(in)d(this)g(group)h(ha) +m(v)m(e)h(b)s(een)f(included)f(with)h(the)g(correct)g(angular)e +(distri-)0 415 y(bution)f(in)h(the)g(subsequen)m(t)j(W)q +Fj(=)p Fw(Z)28 b Fn(!)f Fw(f)p 1482 336 37 4 v 7 w(f)37 +b(deca)m(ys.)45 b(The)31 b(exception)f(is)g(pro)s(cess)h(36,)f(where)i +(curren)m(tly)0 523 y(the)h(W)h(deca)m(ys)h(isotropically)-8 +b(.)146 632 y(The)36 b(pro)s(cess)g(e)734 595 y Fl(+)793 +632 y Fw(e)836 595 y Fk(\000)927 632 y Fn(!)31 b Fw(e)1101 +595 y Fl(+)1161 632 y Fw(e)1204 595 y Fk(\000)1263 632 +y Fw(Z)1323 595 y Fl(0)1397 632 y Fw(can)k(b)s(e)g(sim)m(ulated)e(in)h +(t)m(w)m(o)i(di\013eren)m(t)f(w)m(a)m(ys.)51 b(One)36 +b(is)e(to)g(mak)m(e)0 740 y(use)45 b(of)e(the)i(e)f(`sea')h +(distribution)d(inside)h(e,)k(i.e.)78 b(ha)m(v)m(e)45 +b(splittings)d(e)47 b Fn(!)g Fj(\015)52 b Fn(!)47 b Fw(e.)78 +b(This)44 b(can)g(b)s(e)0 848 y(obtained,)30 b(together)h(with)f +(ordinary)f(Z)1479 812 y Fl(0)1549 848 y Fw(pro)s(duction,)h(b)m(y)h +(using)f(subpro)s(cess)i(1,)f(with)f Fq(MSTP\(11\)=1)0 +957 y Fw(and)k Fq(MSTP\(12\)=1)p Fw(.)49 b(Then)34 b(the)g(con)m +(tribution)f(of)g(the)h(t)m(yp)s(e)h(ab)s(o)m(v)m(e)f(is)f(5.0)g(pb)h +(for)f(a)g(500)g(GeV)h(e)3618 920 y Fl(+)3677 957 y Fw(e)3720 +920 y Fk(\000)0 1065 y Fw(collider,)40 b(compared)f(with)h(the)g +(correct)g(6.2)g(pb)g([Hag91)o(].)66 b(Alternativ)m(ely)39 +b(one)h(ma)m(y)f(use)i(pro)s(cess)0 1173 y(35,)31 b(with)h +Fq(MSTP\(11\)=1)i Fw(and)e Fq(MSTP\(12\)=0)p Fw(.)46 +b(T)-8 b(o)31 b(catc)m(h)i(the)f(singularit)m(y)e(in)h(the)h(forw)m +(ard)f(direction,)0 1282 y(regularized)j(b)m(y)i(the)g(electron)f +(mass,)h(it)e(is)h(necessary)j(to)d(set)h Fq(CKIN\(3\)=CKIN\(5\)=0.01)k +Fw(|)35 b(using)0 1390 y(lo)m(w)m(er)e(v)-5 b(alues)32 +b(will)f(only)h(slo)m(w)h(do)m(wn)g(execution,)h(not)e(signi\014can)m +(tly)g(increasing)g(the)h(cross)g(section.)0 1498 y(One)h(then)h +(obtains)e(5.1)g(pb,)i(i.e.)47 b(again)32 b(20\045)i(b)s(elo)m(w)f(the) +i(correct)f(v)-5 b(alue,)34 b(but)g(no)m(w)g(also)f(generates)0 +1607 y(a)f Fj(p)130 1622 y Fk(?)222 1607 y Fw(distribution)e(for)i(the) +h(Z)1130 1571 y Fl(0)1170 1607 y Fw(;)f(this)g(is)g(therefore)i(to)e(b) +s(e)h(preferred.)146 1715 y(Pro)s(cess)42 b(36,)f(f)7 +b Fj(\015)45 b Fn(!)40 b Fw(f)982 1679 y Fk(0)1005 1715 +y Fw(W)1106 1679 y Fk(\006)1205 1715 y Fw(ma)m(y)g(ha)m(v)m(e)h +(corresp)s(onding)f(problems;)j(except)f(that)d(in)g(e)3442 +1679 y Fl(+)3502 1715 y Fw(e)3545 1679 y Fk(\000)3644 +1715 y Fw(the)0 1823 y(forw)m(ard)f(scattering)f(amplitude)f(for)h(e)p +Fj(\015)42 b Fn(!)36 b Fj(\027)6 b Fw(W)40 b(is)d(killed)f(\(radiation) +f(zero\),)40 b(whic)m(h)e(means)g(that)0 1932 y(the)h(di\013eren)m +(tial)e(cross)i(section)g(is)f(v)-5 b(anishing)38 b(for)g +Fj(p)1991 1947 y Fk(?)2088 1932 y Fn(!)f Fw(0.)62 b(It)38 +b(is)g(therefore)i(feasible)d(to)h(use)i(the)0 2040 y(default)f +Fq(CKIN\(3\))j Fw(and)f Fq(CKIN\(5\))g Fw(v)-5 b(alues)40 +b(in)g(e)1793 2004 y Fl(+)1852 2040 y Fw(e)1895 2004 +y Fk(\000)1955 2040 y Fw(,)i(and)e(one)g(also)f(comes)i(closer)f(to)f +(the)i(correct)0 2148 y(cross)34 b(section.)146 2257 +y(One)23 b(single)f(true)h(2)k Fn(!)h Fw(3)22 b(pro)s(cess)i(is)e +(included)h(in)e(this)i(class)g(as)f(w)m(ell;)k(namely)21 +b(gg)29 b Fn(!)e Fw(Z)3347 2221 y Fl(0)3386 2257 y Fw(Q)p +3462 2179 76 4 v(Q,)e(with)0 2365 y(full)i(massiv)m(e)i(matrix)e +(elemen)m(ts.)42 b(The)30 b(more)e(complicated)f(phase)j(space)g(and)e +(the)i(length)m(y)e(matrix-)0 2473 y(elemen)m(t)34 b(ev)-5 +b(aluations)32 b(mak)m(e)i(this)g(pro)s(cess)h(extremely)f(slo)m(w.)48 +b(With)33 b(the)h(quark)h(\015a)m(v)m(our)g(pic)m(k)m(ed)g(to)0 +2582 y(b)s(e)h(b,)i(it)d(ma)m(y)h(form)f(an)h(imp)s(ortan)m(t)e(bac)m +(kground)j(to)f(in)m(termediate)f(mass)h(Higgs)f(searc)m(hes)k(in)c +(the)0 2690 y(m)m(ultilepton)f(c)m(hannel.)58 b(The)38 +b(quark)g(\015a)m(v)m(our)g(is)e(stored)i(in)e Fq(KFPR\(131,2\))p +Fw(;)43 b(the)37 b(default)f(is)h(5)e(=)g(b.)0 2798 y(The)26 +b(kinematics)f(is)f(set)i(up)g(in)e(terms)i(of)f(a)g(Z)1650 +2762 y Fl(0)1714 2798 y Fw(recoiling)e(against)h(the)i(Q)p +2663 2720 V(Q)f(system,)j(and)d(all)e(ordinary)0 2907 +y(kinematics)39 b(cut)i(for)f(a)g(2)h Fn(!)f Fw(2)g(pro)s(cess)i(can)f +(b)s(e)f(used)i(on)e(this)g(lev)m(el,)i(including)e Fq(CKIN\(43\))i +Fw(and)0 3015 y Fq(CKIN\(44\))g Fw(to)d(restrict)h(the)g(range)g(of)f +(the)i(Q)p 1738 2937 V(Q)e(in)m(v)-5 b(arian)m(t)38 b(mass.)66 +b(In)40 b(addition,)g(for)f(this)g(pro)s(cess)0 3123 +y(alone,)25 b Fq(CKIN\(51\))54 b(-)d(CKIN\(54\))27 b +Fw(can)e(b)s(e)g(used)g(to)g(set)g(the)g Fj(p)2249 3138 +y Fk(?)2333 3123 y Fw(range)f(of)g(the)h(t)m(w)m(o)g(quarks;)k(as)c(is) +f(to)g(b)s(e)0 3232 y(exp)s(ected,)33 b(that)e(of)g(the)g(Z)978 +3196 y Fl(0)1048 3232 y Fw(is)g(set)h(b)m(y)h Fq(CKIN\(3\))53 +b(-)f(CKIN\(4\))p Fw(.)44 b(Since)32 b(the)f(optimization)d(pro)s +(cedure)0 3340 y(is)47 b(not)g(set)g(up)h(to)f(prob)s(e)g(the)h(full)d +(m)m(ultidimensional)d(phase)48 b(space)h(allo)m(w)m(ed)d(in)g(this)h +(pro)s(cess,)0 3448 y(maxim)m(um)26 b(violations)g(ma)m(y)i(b)s(e)h +(quite)f(large.)41 b(It)28 b(ma)m(y)g(then)h(b)s(e)g(useful)f(to)g(mak) +m(e)g(a)g(preliminary)e(run)0 3557 y(to)36 b(\014nd)g(ho)m(w)h(big)e +(the)h(violations)e(are)i(in)f(total,)g(and)h(then)h(use)g(the)f +Fq(MSTP\(121\)=1)j Fw(option)c(in)g(the)0 3665 y(full)c(run.)0 +3913 y Fo(8.3.5)112 b Fw(W)q Fj(=)p Fw(Z)38 b Fo(pair)f(pro)s(duction)0 +4086 y Fq(MSEL)d Fw(=)e(15)0 4194 y(ISUB)h(=)50 4290 +y(22)99 b(f)277 4305 y Fh(i)p 305 4211 37 4 v 305 4290 +a Fw(f)342 4305 y Fh(i)398 4290 y Fn(!)27 b Fw(\()p Fj(\015)619 +4254 y Fk(\003)658 4290 y Fj(=)p Fw(Z)767 4254 y Fl(0)806 +4290 y Fw(\)\()p Fj(\015)938 4254 y Fk(\003)977 4290 +y Fj(=)p Fw(Z)1086 4254 y Fl(0)1125 4290 y Fw(\))50 4411 +y(23)99 b(f)277 4426 y Fh(i)p 305 4331 V 305 4411 a Fw(f)342 +4426 y Fh(j)406 4411 y Fn(!)27 b Fw(Z)593 4374 y Fl(0)632 +4411 y Fw(W)733 4374 y Fl(+)50 4531 y Fw(25)99 b(f)277 +4546 y Fh(i)p 305 4452 V 305 4531 a Fw(f)342 4546 y Fh(i)398 +4531 y Fn(!)27 b Fw(W)626 4495 y Fl(+)685 4531 y Fw(W)786 +4495 y Fk(\000)50 4651 y Fw(69)99 b Fj(\015)5 b(\015)33 +b Fn(!)27 b Fw(W)615 4615 y Fl(+)675 4651 y Fw(W)776 +4615 y Fk(\000)50 4772 y Fw(70)99 b Fj(\015)5 b Fw(W)404 +4736 y Fl(+)491 4772 y Fn(!)28 b Fw(Z)679 4736 y Fl(0)718 +4772 y Fw(W)819 4736 y Fl(+)146 4887 y Fw(In)d(this)f(section)g(w)m(e)h +(mainly)d(consider)i(the)h(pro)s(duction)e(of)h(W)q Fj(=)p +Fw(Z)g(pairs)g(b)m(y)h(fermion{an)m(tifermion)0 4996 +y(annihilation,)36 b(but)i(also)f(include)h(t)m(w)m(o)g(pro)s(cesses)i +(whic)m(h)f(in)m(v)m(olv)m(e)f Fj(\015)5 b(=)p Fw(W)39 +b(b)s(eams.)60 b(Scatterings)38 b(b)s(e-)0 5104 y(t)m(w)m(een)g +(gauge-b)s(oson)d(pairs,)h(i.e.)53 b(pro)s(cesses)38 +b(lik)m(e)d(W)1995 5068 y Fl(+)2055 5104 y Fw(W)2156 +5068 y Fk(\000)2249 5104 y Fn(!)e Fw(Z)2442 5068 y Fl(0)2481 +5104 y Fw(Z)2541 5068 y Fl(0)2580 5104 y Fw(,)k(dep)s(end)g(so)f +(crucially)e(on)i(the)0 5212 y(assumed)d(Higgs)f(scenario)h(that)f +(they)h(are)g(considered)g(separately)g(in)f(section)h(8.4.2.)146 +5321 y(The)f(cross)g(sections)g(used)g(for)e(the)h(ab)s(o)m(v)m(e)h +(pro)s(cesses)h(are)e(those)h(deriv)m(ed)f(in)f(the)i(narro)m(w-width)0 +5429 y(limit,)53 b(but)f(ha)m(v)m(e)g(b)s(een)h(extended)g(to)e +(include)g(Breit{Wigner)f(shap)s(es)j(with)e(mass-dep)s(enden)m(t)0 +5537 y(widths.)94 b(Ho)m(w)m(ev)m(er,)56 b(one)50 b(should)f(realize)f +(that)h(other)h(graphs,)k(not)49 b(included)g(here,)54 +b(can)c(con-)0 5646 y(tribute)i(in)g(regions)g(a)m(w)m(a)m(y)i(from)d +(the)i(W)q Fj(=)p Fw(Z)f(mass.)104 b(This)53 b(problem)e(is)h(esp)s +(ecially)f(imp)s(ortan)m(t)1817 5953 y(127)p eop +%%Page: 128 134 +128 133 bop 0 -18 a Fw(if)48 b(sev)m(eral)i(\015a)m(v)m(ours)g +(coincide)f(in)f(the)h(four-fermion)e(\014nal)h(state.)94 +b(Consider,)54 b(as)49 b(an)g(example,)0 90 y(e)43 54 +y Fl(+)102 90 y Fw(e)145 54 y Fk(\000)242 90 y Fn(!)38 +b Fj(\026)439 54 y Fl(+)497 90 y Fj(\026)556 54 y Fk(\000)615 +90 y Fj(\027)663 105 y Fh(\026)p 710 37 55 4 v 710 90 +a Fj(\027)764 105 y Fh(\026)811 90 y Fw(.)61 b(Not)38 +b(only)g(w)m(ould)g(suc)m(h)i(a)e(\014nal)g(state)h(receiv)m(e)g(con)m +(tributions)f(from)f(in)m(ter-)0 198 y(mediate)e(Z)432 +162 y Fl(0)471 198 y Fw(Z)531 162 y Fl(0)605 198 y Fw(and)h(W)899 +162 y Fl(+)959 198 y Fw(W)1060 162 y Fk(\000)1155 198 +y Fw(states,)h(but)f(also)f(from)f(pro)s(cesses)k(e)2545 +162 y Fl(+)2604 198 y Fw(e)2647 162 y Fk(\000)2740 198 +y Fn(!)32 b Fw(Z)2932 162 y Fl(0)3004 198 y Fn(!)g Fj(\026)3195 +162 y Fl(+)3254 198 y Fj(\026)3313 162 y Fk(\000)3372 +198 y Fw(,)k(follo)m(w)m(ed)0 307 y(either)d(b)m(y)h +Fj(\026)472 270 y Fl(+)560 307 y Fn(!)28 b Fj(\026)747 +270 y Fl(+)806 307 y Fw(Z)866 270 y Fl(0)934 307 y Fn(!)h +Fj(\026)1122 270 y Fl(+)1180 307 y Fj(\027)1228 322 y +Fh(\026)p 1275 254 V 1275 307 a Fj(\027)1330 322 y Fh(\026)1376 +307 y Fw(,)34 b(or)f(b)m(y)h Fj(\026)1752 270 y Fl(+)1840 +307 y Fn(!)p 1968 254 V 28 w Fj(\027)2023 322 y Fh(\026)2069 +307 y Fw(W)2170 270 y Fl(+)2259 307 y Fn(!)p 2387 254 +V 28 w Fj(\027)2442 322 y Fh(\026)2488 307 y Fj(\026)2547 +270 y Fl(+)2606 307 y Fj(\027)2654 322 y Fh(\026)2701 +307 y Fw(.)46 b(In)33 b(addition,)f(all)f(p)s(ossible)0 +415 y(in)m(terferences)36 b(should)e(b)s(e)g(considered.)49 +b(Since)34 b(this)g(is)f(not)h(done,)h(the)g(pro)s(cesses)h(ha)m(v)m(e) +f(to)f(b)s(e)g(used)0 523 y(with)i(some)h(sound)h(judgemen)m(t.)56 +b(V)-8 b(ery)38 b(often,)g(one)f(ma)m(y)g(wish)g(to)f(constrain)h(a)f +(lepton)h(pair)f(mass)0 632 y(to)31 b(b)s(e)g(close)h(to)f +Fj(m)685 647 y Fl(Z)732 632 y Fw(,)h(in)e(whic)m(h)i(case)g(a)f(n)m(um) +m(b)s(er)h(of)f(the)h(p)s(ossible)e(`other')i(pro)s(cesses)h(are)e +(negligible.)146 740 y(Of)44 b(the)g(ab)s(o)m(v)m(e)g(pro)s(cesses,)k +(the)c(\014rst)h(con)m(tains)e(the)h(full)e(f)2400 755 +y Fh(i)p 2428 661 37 4 v 2428 740 a Fw(f)2465 755 y Fh(i)2539 +740 y Fn(!)k Fw(\()p Fj(\015)2779 704 y Fk(\003)2819 +740 y Fj(=)p Fw(Z)2928 704 y Fl(0)2966 740 y Fw(\)\()p +Fj(\015)3098 704 y Fk(\003)3138 740 y Fj(=)p Fw(Z)3247 +704 y Fl(0)3286 740 y Fw(\))d(structure,)0 848 y(obtained)29 +b(b)m(y)i(a)e(straigh)m(tforw)m(ard)h(generalization)d(of)j(the)g(form) +m(ulae)e(in)h(ref.)43 b([Gun86)o(])30 b(\(done)g(b)m(y)h(the)0 +957 y(presen)m(t)40 b(author\).)60 b(Of)38 b(course,)j(the)d(p)s +(ossibilit)m(y)e(of)i(there)h(b)s(eing)f(signi\014can)m(t)f(con)m +(tributions)h(from)0 1065 y(graphs)28 b(that)f(are)g(not)g(included)g +(is)f(increased,)j(in)e(particular)e(if)h(one)i Fj(\015)2631 +1029 y Fk(\003)2698 1065 y Fw(is)e(v)m(ery)j(ligh)m(t)d(and)h +(therefore)0 1173 y(could)f(b)s(e)g(a)g(bremsstrahlung-t)m(yp)s(e)h +(photon.)41 b(It)27 b(is)f(p)s(ossible)f(to)h(use)i Fq(MSTP\(43\))g +Fw(to)e(reco)m(v)m(er)i(the)f(pure)0 1282 y(Z)60 1245 +y Fl(0)127 1282 y Fw(case,)i(i.e.)42 b(f)553 1297 y Fh(i)p +581 1202 V 581 1282 a Fw(f)618 1297 y Fh(i)673 1282 y +Fn(!)28 b Fw(Z)861 1245 y Fl(0)900 1282 y Fw(Z)960 1245 +y Fl(0)1026 1282 y Fw(exclusiv)m(ely)-8 b(.)43 b(In)28 +b(pro)s(cesses)i(23)d(and)h(70,)g(only)f(the)h(pure)h(Z)3190 +1245 y Fl(0)3257 1282 y Fw(con)m(tribution)0 1390 y(is)j(included.)146 +1498 y(F)-8 b(ull)23 b(angular)g(correlations)g(are)i(included)f(for)g +(the)h(\014rst)g(three)g(pro)s(cesses,)k(i.e.)40 b(the)25 +b(full)e(2)k Fn(!)g Fw(2)h Fn(!)0 1607 y Fw(4)33 b(matrix)e(elemen)m +(ts)j(are)f(included)g(in)f(the)i(resonance)g(deca)m(ys,)h(including)c +(the)j(appropriate)e Fj(\015)3592 1571 y Fk(\003)3632 +1607 y Fj(=)p Fw(Z)3741 1571 y Fl(0)0 1715 y Fw(in)m(terference)42 +b(in)d(pro)s(cess)j(22.)66 b(In)41 b(the)g(latter)e(t)m(w)m(o)i(pro)s +(cesses)i(no)d(spin)h(information)c(is)j(curren)m(tly)0 +1823 y(preserv)m(ed,)35 b(i.e.)43 b(the)33 b(W)q Fj(=)p +Fw(Z)g(b)s(osons)g(are)f(allo)m(w)m(ed)g(to)g(deca)m(y)i(isotropically) +-8 b(.)146 1932 y(W)g(e)48 b(remind)f(y)m(ou)h(that)g(the)g(mass)g +(ranges)g(of)f(the)h(t)m(w)m(o)g(resonances)i(ma)m(y)d(b)s(e)h(set)h +(with)e(the)0 2040 y Fq(CKIN\(41\))53 b(-)f(CKIN\(44\))41 +b Fw(parameters;)i(this)c(is)f(particularly)f(con)m(v)m(enien)m(t,)43 +b(for)c(instance,)i(to)e(pic)m(k)0 2148 y(one)33 b(resonance)h(almost)d +(on)h(the)h(mass)g(shell)e(and)i(the)g(other)g(not.)0 +2422 y Fp(8.4)135 b(Higgs)46 b(Pro)t(duction)0 2595 y +Fw(A)33 b(fair)f(fraction)f(of)i(all)e(the)i(pro)s(cesses)i(in)d +Fm(Pythia)h Fw(deal)g(with)f(Higgs)g(pro)s(duction)h(in)f(one)h(form)f +(or)0 2703 y(another.)41 b(This)23 b(m)m(ultiplication)c(is)k(caused)i +(b)m(y)f(the)g(need)h(to)e(consider)h(pro)s(duction)f(b)m(y)h(sev)m +(eral)h(di\013er-)0 2812 y(en)m(t)i(pro)s(cesses,)j(dep)s(ending)d(on)g +(Higgs)e(mass)i(and)g(mac)m(hine)f(t)m(yp)s(e.)42 b(F)-8 +b(urther,)28 b(the)f(program)e(con)m(tains)0 2920 y(a)37 +b(full)f(t)m(w)m(o-Higgs-m)m(ultiplet)e(scenario,)k(as)g(predicted)g +(for)f(example)f(in)h(the)h(Minimal)c(Sup)s(ersym-)0 +3028 y(metric)f(extension)i(of)f(the)h(Standard)f(Mo)s(del)g(\(MSSM\).) +h(Therefore)h(the)e(con)m(tin)m(ued)h(discussion)g(is,)0 +3137 y(somewhat)e(arbitrarily)-8 b(,)30 b(sub)s(divided)i(in)m(to)g(a)g +(few)h(di\013eren)m(t)g(scenarios.)0 3384 y Fo(8.4.1)112 +b(Ligh)m(t)37 b(Standard)i(Mo)s(del)e(Higgs)0 3557 y +Fq(MSEL)d Fw(=)e(16,)g(17,)g(18)0 3665 y(ISUB)h(=)147 +3762 y(3)100 b(f)326 3777 y Fh(i)p 354 3682 V 354 3762 +a Fw(f)391 3777 y Fh(i)446 3762 y Fn(!)28 b Fw(H)647 +3725 y Fl(0)99 3882 y Fw(24)99 b(f)326 3897 y Fh(i)p +354 3803 V 354 3882 a Fw(f)391 3897 y Fh(i)446 3882 y +Fn(!)28 b Fw(Z)634 3846 y Fl(0)673 3882 y Fw(H)746 3846 +y Fl(0)99 4002 y Fw(26)99 b(f)326 4017 y Fh(i)p 354 3923 +V 354 4002 a Fw(f)391 4017 y Fh(j)455 4002 y Fn(!)27 +b Fw(W)683 3966 y Fl(+)743 4002 y Fw(H)816 3966 y Fl(0)50 +4123 y Fw(102)99 b(gg)28 b Fn(!)g Fw(H)623 4087 y Fl(0)50 +4243 y Fw(103)99 b Fj(\015)5 b(\015)32 b Fn(!)c Fw(H)636 +4207 y Fl(0)50 4364 y Fw(110)99 b(f)326 4379 y Fh(i)p +354 4284 V 354 4364 a Fw(f)391 4379 y Fh(i)446 4364 y +Fn(!)28 b Fj(\015)5 b Fw(H)703 4327 y Fl(0)50 4484 y +Fw(111)99 b(f)326 4499 y Fh(i)p 354 4405 V 354 4484 a +Fw(f)391 4499 y Fh(i)446 4484 y Fn(!)28 b Fw(gH)696 4448 +y Fl(0)50 4604 y Fw(112)99 b(f)326 4619 y Fh(i)354 4604 +y Fw(g)29 b Fn(!)e Fw(f)589 4619 y Fh(i)617 4604 y Fw(H)690 +4568 y Fl(0)50 4725 y Fw(113)99 b(gg)28 b Fn(!)g Fw(gH)672 +4689 y Fl(0)50 4845 y Fw(121)99 b(gg)28 b Fn(!)g Fw(Q)626 +4860 y Fh(k)p 668 4767 76 4 v 668 4845 a Fw(Q)744 4869 +y Fh(k)787 4845 y Fw(H)860 4809 y Fl(0)50 4965 y Fw(122)99 +b(q)347 4980 y Fh(i)p 375 4913 52 4 v 375 4965 a Fw(q)427 +4989 y Fh(i)483 4965 y Fn(!)27 b Fw(Q)686 4980 y Fh(k)p +729 4887 76 4 v 729 4965 a Fw(Q)804 4989 y Fh(k)847 4965 +y Fw(H)920 4929 y Fl(0)50 5086 y Fw(123)99 b(f)326 5101 +y Fh(i)354 5086 y Fw(f)384 5101 y Fh(j)448 5086 y Fn(!)27 +b Fw(f)605 5101 y Fh(i)633 5086 y Fw(f)663 5101 y Fh(j)699 +5086 y Fw(H)772 5050 y Fl(0)844 5086 y Fw(\(Z)942 5050 +y Fl(0)981 5086 y Fw(Z)1041 5050 y Fl(0)1113 5086 y Fw(fusion\))50 +5206 y(124)99 b(f)326 5221 y Fh(i)354 5206 y Fw(f)384 +5221 y Fh(j)448 5206 y Fn(!)27 b Fw(f)605 5221 y Fh(k)648 +5206 y Fw(f)678 5221 y Fh(l)703 5206 y Fw(H)776 5170 +y Fl(0)848 5206 y Fw(\(W)987 5170 y Fl(+)1047 5206 y +Fw(W)1148 5170 y Fk(\000)1240 5206 y Fw(fusion\))146 +5316 y(In)k(this)f(section)h(w)m(e)h(discuss)g(the)f(pro)s(duction)f +(of)g(a)g(reasonably)g(ligh)m(t)f(Standard)i(Mo)s(del)f(Higgs,)0 +5425 y(b)s(elo)m(w)44 b(700)f(GeV,)h(sa)m(y)-8 b(,)48 +b(so)c(that)g(the)g(narro)m(w)g(width)g(appro)m(ximation)e(can)i(b)s(e) +g(used)h(with)f(some)0 5533 y(con\014dence.)71 b(Belo)m(w)41 +b(400)g(GeV)g(there)g(w)m(ould)h(certainly)e(b)s(e)h(no)g(trouble,)i +(while)d(ab)s(o)m(v)m(e)i(that)f(the)0 5641 y(narro)m(w)33 +b(width)f(appro)m(ximation)f(is)h(gradually)f(starting)g(to)h(break)i +(do)m(wn.)1817 5953 y(128)p eop +%%Page: 129 135 +129 134 bop 146 -18 a Fw(In)28 b(a)g(hadron)f(collider,)g(the)h(main)e +(pro)s(duction)h(pro)s(cesses)j(are)e(102,)g(123)f(and)g(124,)h(i.e.)42 +b(gg)q(,)28 b(Z)3641 -55 y Fl(0)3680 -18 y Fw(Z)3740 +-55 y Fl(0)0 90 y Fw(and)35 b(W)293 54 y Fl(+)353 90 +y Fw(W)454 54 y Fk(\000)549 90 y Fw(fusion.)51 b(In)35 +b(the)h(latter)e(t)m(w)m(o)i(pro)s(cesses,)i(it)c(is)h(also)f +(necessary)j(to)e(tak)m(e)h(in)m(to)f(accoun)m(t)0 198 +y(the)43 b(emission)e(of)h(the)h(space-lik)m(e)g(W)q +Fj(=)p Fw(Z)f(b)s(osons)h(o\013)f(quarks,)47 b(whic)m(h)c(in)e(total)g +(giv)m(es)i(the)g(2)i Fn(!)f Fw(3)0 307 y(pro)s(cesses)35 +b(ab)s(o)m(v)m(e.)146 415 y(F)-8 b(urther)35 b(pro)s(cesses)i(of)d(lo)m +(w)m(er)h(cross)h(sections)g(ma)m(y)e(b)s(e)h(of)g(in)m(terest)g(b)s +(ecause)h(of)f(easier)g(signals.)0 523 y(F)-8 b(or)30 +b(instance,)i(pro)s(cesses)g(24)f(and)g(26)f(giv)m(e)h(asso)s(ciated)f +(pro)s(duction)g(of)h(a)f(Z)h(or)f(a)h(W)h(together)f(with)0 +632 y(the)40 b(H)248 595 y Fl(0)287 632 y Fw(.)64 b(There)41 +b(is)e(also)g(the)g(pro)s(cesses)j(3,)f(121)e(and)g(122,)i(whic)m(h)f +(in)m(v)m(olv)m(e)f(pro)s(duction)g(of)g(hea)m(vy)0 740 +y(\015a)m(v)m(ours.)146 848 y(Pro)s(cess)30 b(3)e(con)m(tains)g(con)m +(tributions)g(from)f(all)f(\015a)m(v)m(ours,)31 b(but)d(is)g +(completely)f(dominated)g(b)m(y)i(the)0 957 y(subpro)s(cess)34 +b(t)p 524 885 38 4 v(t)27 b Fn(!)h Fw(H)790 920 y Fl(0)829 +957 y Fw(,)k(i.e.)43 b(b)m(y)32 b(the)g(con)m(tribution)f(from)f(the)i +(top)g(sea)g(distributions.)41 b(This)32 b(pro)s(cess)0 +1065 y(is)c(b)m(y)i(no)m(w)f(kno)m(wn)i(to)d(o)m(v)m(erestimate)h(the)g +(cross)h(section)f(for)f(Higgs)g(pro)s(duction)g(as)h(compared)g(with)0 +1173 y(a)45 b(more)g(careful)g(calculation)e(based)j(on)f(the)h(subpro) +s(cess)i(gg)i Fn(!)f Fw(t)p 2635 1102 V(tH)2746 1137 +y Fl(0)2831 1173 y Fw(\(121\).)81 b(The)47 b(di\013erence)0 +1282 y(b)s(et)m(w)m(een)42 b(the)e(t)m(w)m(o)g(is)f(that)g(in)g(pro)s +(cess)i(3)e(the)h(t)g(and)p 2078 1210 V 39 w(t)g(are)f(added)h(b)m(y)h +(the)f(initial-state)c(sho)m(w)m(er,)0 1390 y(while)29 +b(in)h(121)f(the)i(full)e(matrix)f(elemen)m(t)i(is)g(used.)44 +b(The)31 b(price)g(to)f(b)s(e)g(paid)g(is)f(that)h(the)h(complicated)0 +1498 y(m)m(ultib)s(o)s(dy)43 b(phase)j(space)g(in)f(pro)s(cess)h(121)f +(mak)m(es)g(the)h(program)e(run)h(slo)m(w)m(er)h(than)f(with)g(most)0 +1607 y(other)35 b(pro)s(cesses.)52 b(One)35 b(should)g(therefore)g +(think)f(t)m(wice)i(b)s(efore)e(using)h(it.)49 b(As)35 +b(usual,)g(it)f(w)m(ould)g(b)s(e)0 1715 y(double-coun)m(ting)27 +b(to)i(include)e(b)s(oth)i(3)f(and)g(121.)42 b(Pro)s(cess)29 +b(122)f(is)g(similar)d(in)j(structure)i(to)e(121,)g(but)0 +1823 y(is)k(less)i(imp)s(ortan)m(t.)42 b(In)33 b(b)s(oth)g(pro)s(cess)h +(121)e(and)h(122)f(the)i(pro)s(duced)g(quark)f(is)g(assumed)g(to)g(b)s +(e)g(a)f(t;)0 1932 y(this)g(can)h(b)s(e)g(c)m(hanged)g(in)f +Fq(KFPR\(121,2\))k Fw(and)c Fq(KFPR\(122,2\))k Fw(b)s(efore)d +(initialization,)27 b(ho)m(w)m(ev)m(er.)146 2040 y(A)41 +b(subpro)s(cess)j(lik)m(e)c(113,)i(with)f(a)g(Higgs)f(recoiling)f +(against)h(a)h(gluon)f(jet,)j(is)e(also)f(e\013ectiv)m(ely)0 +2148 y(generated)f(b)m(y)g(initial-state)c(corrections)j(to)g(subpro)s +(cess)i(102;)h(th)m(us,)f(in)e(order)g(to)g(a)m(v)m(oid)g(double-)0 +2257 y(coun)m(ting,)49 b(just)e(as)f(for)f(the)i(case)g(of)e(Z)1530 +2221 y Fl(0)1569 2257 y Fj(=)p Fw(W)1719 2221 y Fl(+)1824 +2257 y Fw(pro)s(duction,)k(section)d(8.3.4,)j(these)f(subpro)s(cesses)0 +2365 y(should)34 b(not)g(b)s(e)g(switc)m(hed)i(on)e(sim)m(ultaneously) +-8 b(.)46 b(Pro)s(cess)36 b(102)d(should)h(b)s(e)h(used)g(for)e +(inclusiv)m(e)h(pro-)0 2473 y(duction)d(of)g(Higgs,)g(and)g(111{113)f +(for)g(the)i(study)h(of)d(the)i(Higgs)f(subsample)g(with)g(high)f +(transv)m(erse)0 2582 y(momen)m(tum.)146 2690 y(In)j(e)311 +2654 y Fl(+)370 2690 y Fw(e)413 2654 y Fk(\000)505 2690 +y Fw(annihilation,)28 b(asso)s(ciated)k(pro)s(duction)g(of)g(an)g(H) +2352 2654 y Fl(0)2423 2690 y Fw(with)g(a)g(Z)2786 2654 +y Fl(0)2825 2690 y Fw(,)g(pro)s(cess)i(24,)e(is)f(usually)0 +2798 y(the)e(dominan)m(t)f(one)h(close)g(to)f(threshold,)i(while)e(the) +h(Z)2045 2762 y Fl(0)2084 2798 y Fw(Z)2144 2762 y Fl(0)2212 +2798 y Fw(and)g(W)2499 2762 y Fl(+)2559 2798 y Fw(W)2660 +2762 y Fk(\000)2748 2798 y Fw(fusion)f(pro)s(cesses)j(123)d(and)0 +2907 y(124)f(win)g(out)g(at)h(high)e(energies.)43 b(Pro)s(cess)29 +b(103,)f Fj(\015)5 b(\015)32 b Fw(fusion,)c(ma)m(y)g(also)e(b)s(e)i(of) +f(in)m(terest,)i(in)e(particular)0 3015 y(when)k(the)e(p)s +(ossibilities)e(of)i(b)s(eamstrahlung)f(photons)i(and)g(bac)m +(kscattered)h(photons)f(are)g(included.)0 3123 y(Pro)s(cess)k(110,)d +(whic)m(h)i(giv)m(es)g(an)f(H)1283 3087 y Fl(0)1355 3123 +y Fw(in)f(asso)s(ciation)g(with)h(a)g Fj(\015)5 b Fw(,)33 +b(is)e(a)h(lo)s(op)f(pro)s(cess)j(and)e(is)g(therefore)0 +3232 y(suppressed)38 b(in)d(rate.)51 b(Only)35 b(for)g(a)g(rather)g +(massiv)m(e)h(H)2065 3196 y Fl(0)2140 3232 y Fw(\(mass)f(ab)s(o)m(v)m +(e)h(60)f(GeV)g(at)g(LEP)h(1\))f(can)g(it)0 3340 y(start)c(to)g(comp)s +(ete)g(with)f(the)i(asso)s(ciated)f(pro)s(duction)f(of)h(a)g(Z)2330 +3304 y Fl(0)2369 3340 y Fw(,)g(since)g(phase)h(space)h(suppression)f +(is)0 3448 y(less)h(sev)m(ere)i(for)d(the)h(former)e(than)i(for)f(the)h +(latter.)146 3557 y(The)j(branc)m(hing)e(ratios)f(of)h(the)g(Higgs)g +(are)g(v)m(ery)i(strongly)e(dep)s(enden)m(t)i(on)e(the)h(mass.)48 +b(In)35 b(prin-)0 3665 y(ciple,)c(the)h(program)e(is)i(set)g(up)g(to)f +(calculate)g(these)i(correctly)-8 b(,)32 b(as)g(a)f(function)g(of)g +(the)i(actual)d(Higgs)0 3774 y(mass,)k(i.e.)45 b(not)33 +b(just)h(at)f(the)h(nominal)d(mass.)46 b(Ho)m(w)m(ev)m(er,)36 +b(higher-order)d(corrections)g(ma)m(y)g(at)g(times)0 +3882 y(b)s(e)g(imp)s(ortan)m(t)d(and)j(not)g(fully)e(unam)m(biguous;)h +(see)i(for)e(instance)g Fq(MSTP\(37\))p Fw(.)146 3990 +y(Since)i(the)g(Higgs)e(is)h(a)g(spin-0)g(particle)f(it)g(deca)m(ys)k +(isotropically)-8 b(.)42 b(In)34 b(deca)m(y)h(pro)s(cesses)g(suc)m(h)g +(as)0 4099 y(H)73 4062 y Fl(0)145 4099 y Fn(!)c Fw(W)377 +4062 y Fl(+)437 4099 y Fw(W)538 4062 y Fk(\000)630 4099 +y Fn(!)h Fw(4)i(fermions)h(angular)e(correlations)h(are)h(included.)51 +b(Also)35 b(in)f(pro)s(cesses)k(24)c(and)0 4207 y(26,)e(Z)217 +4171 y Fl(0)289 4207 y Fw(and)g(W)579 4171 y Fk(\006)672 +4207 y Fw(deca)m(y)i(angular)d(distributions)g(are)h(correctly)h(tak)m +(en)h(in)m(to)e(accoun)m(t.)0 4455 y Fo(8.4.2)112 b(Hea)m(vy)38 +b(Standard)h(Mo)s(del)e(Higgs)0 4627 y Fw(ISUB)c(=)99 +4724 y(5)99 b(Z)307 4687 y Fl(0)346 4724 y Fw(Z)406 4687 +y Fl(0)473 4724 y Fn(!)27 b Fw(H)673 4687 y Fl(0)99 4844 +y Fw(8)99 b(W)348 4808 y Fl(+)408 4844 y Fw(W)509 4808 +y Fk(\000)596 4844 y Fn(!)27 b Fw(H)796 4808 y Fl(0)50 +4964 y Fw(71)99 b(Z)307 4928 y Fl(0)346 4964 y Fw(Z)406 +4928 y Fl(0)473 4964 y Fn(!)27 b Fw(Z)660 4928 y Fl(0)699 +4964 y Fw(Z)759 4928 y Fl(0)831 4964 y Fw(\(longitudinal\))50 +5085 y(72)99 b(Z)307 5048 y Fl(0)346 5085 y Fw(Z)406 +5048 y Fl(0)473 5085 y Fn(!)27 b Fw(W)701 5048 y Fl(+)761 +5085 y Fw(W)862 5048 y Fk(\000)954 5085 y Fw(\(longitudinal\))50 +5205 y(73)99 b(Z)307 5169 y Fl(0)346 5205 y Fw(W)447 +5169 y Fl(+)534 5205 y Fn(!)28 b Fw(Z)722 5169 y Fl(0)761 +5205 y Fw(W)862 5169 y Fl(+)954 5205 y Fw(\(longitudinal\))50 +5325 y(76)99 b(W)348 5289 y Fl(+)408 5325 y Fw(W)509 +5289 y Fk(\000)596 5325 y Fn(!)27 b Fw(Z)783 5289 y Fl(0)822 +5325 y Fw(Z)882 5289 y Fl(0)954 5325 y Fw(\(longitudinal\))50 +5446 y(77)99 b(W)348 5410 y Fl(+)408 5446 y Fw(W)509 +5410 y Fk(\006)596 5446 y Fn(!)27 b Fw(W)824 5410 y Fl(+)884 +5446 y Fw(W)985 5410 y Fk(\006)1077 5446 y Fw(\(longitudinal\))146 +5556 y(Pro)s(cesses)38 b(5)d(and)g(8)g(are)g(the)h(simple)d(2)f +Fn(!)g Fw(1)j(v)m(ersions)h(of)f(what)g(is)g(no)m(w)h(a)m(v)-5 +b(ailable)32 b(in)j(123)f(and)0 5664 y(124)c(with)h(the)h(full)d(2)f +Fn(!)f Fw(3)k(kinematics.)42 b(F)-8 b(or)30 b(lo)m(w)h(Higgs)g(masses)h +(pro)s(cesses)h(5)e(and)g(8)g(o)m(v)m(erestimate)1817 +5953 y(129)p eop +%%Page: 130 136 +130 135 bop 0 -18 a Fw(the)36 b(correct)g(cross)h(sections)f(and)f +(should)h(not)f(b)s(e)h(used,)h(whereas)g(go)s(o)s(d)e(agreemen)m(t)g +(b)s(et)m(w)m(een)j(the)0 90 y(2)27 b Fn(!)h Fw(1)k(and)h(2)27 +b Fn(!)g Fw(3)33 b(descriptions)f(is)g(observ)m(ed)j(when)f(hea)m(vy)g +(Higgs)e(pro)s(duction)g(is)g(studied.)146 198 y(The)i(subpro)s(cesses) +h(5)e(and)g(8,)f Fj(V)22 b(V)49 b Fn(!)27 b Fw(H)1680 +162 y Fl(0)1720 198 y Fw(,)32 b(whic)m(h)i(con)m(tribute)e(to)h(the)g +(pro)s(cesses)h Fj(V)22 b(V)49 b Fn(!)28 b Fj(V)3627 +162 y Fk(0)3651 198 y Fj(V)3729 162 y Fk(0)3752 198 y +Fw(,)0 307 y(sho)m(w)43 b(a)f(bad)f(high-energy)h(b)s(eha)m(viour.)71 +b(Here)43 b Fj(V)63 b Fw(denotes)43 b(a)f(longitudinal)c(in)m +(termediate)j(gauge)0 415 y(b)s(oson,)35 b(Z)369 379 +y Fl(0)443 415 y Fw(or)f(W)665 379 y Fk(\006)724 415 +y Fw(.)50 b(This)34 b(can)h(b)s(e)g(cured)g(only)f(b)m(y)i(the)f +(inclusion)e(of)h(all)e Fj(V)22 b(V)52 b Fn(!)31 b Fj(V)3188 +379 y Fk(0)3212 415 y Fj(V)3290 379 y Fk(0)3348 415 y +Fw(graphs,)k(as)0 523 y(is)j(done)i(in)e(subpro)s(cesses)k(71,)e(72,)g +(73,)g(76)e(and)h(77.)62 b(In)39 b(particular,)g(subpro)s(cesses)i(5)e +(and)g(8)g(giv)m(e)0 632 y(rise)e(to)g(a)h(\014ctitious)e(high-mass)g +(tail)g(of)h(the)g(Higgs.)58 b(If)37 b(this)g(tail)f(is)h(thro)m(wn)h +(a)m(w)m(a)m(y)-8 b(,)40 b(ho)m(w)m(ev)m(er,)h(the)0 +740 y(agreemen)m(t)36 b(b)s(et)m(w)m(een)i(the)f Fj(s)p +Fw(-c)m(hannel)f(graphs)g(only)f(\(subpro)s(cesses)k(5)d(and)g(8\))g +(and)g(the)g(full)e(set)j(of)0 848 y(graphs)29 b(\(subpro)s(cesses)j +(71)d(etc.\))43 b(is)28 b(v)m(ery)j(go)s(o)s(d:)40 b(for)29 +b(a)g(Higgs)f(of)h(nominal)d(mass)j(300)f(\(800\))h(GeV,)g(a)0 +957 y(cut)34 b(at)f(600)g(\(1200\))f(GeV)i(retains)f(95\045)g +(\(84\045\))g(of)g(the)h(total)e(cross)j(section,)f(and)f(di\013ers)h +(from)e(the)0 1065 y(exact)h(calculation,)d(cut)i(at)g(the)g(same)g(v) +-5 b(alues,)32 b(b)m(y)h(only)e(2\045)h(\(11\045\))g(\(n)m(um)m(b)s +(ers)h(for)e(SSC)i(energies\).)0 1173 y(With)g(this)g(prescription)f +(there)i(is)f(therefore)h(no)f(need)i(to)e(use)h(subpro)s(cesses)i(71)d +(etc.)46 b(rather)33 b(than)0 1282 y(subpro)s(cesses)i(5)e(and)f(8.)146 +1390 y(F)-8 b(or)31 b(subpro)s(cess)j(77,)e(there)h(is)e(an)h(option,)f +(see)i Fq(MSTP\(45\))p Fw(,)h(to)d(select)i(the)f(c)m(harge)h(com)m +(bination)0 1498 y(of)f(the)h(scattering)f(W)q('s:)45 +b(lik)m(e-sign,)31 b(opp)s(osite-sign)g(\(relev)-5 b(an)m(t)33 +b(for)f(Higgs\),)f(or)i(b)s(oth.)146 1607 y(Pro)s(cess)40 +b(77)d(con)m(tains)h(a)f(div)m(ergence)i(for)f Fj(p)1799 +1622 y Fk(?)1894 1607 y Fn(!)e Fw(0)i(due)g(to)g Fj(\015)5 +b Fw(-exc)m(hange)39 b(con)m(tributions.)58 b(This)0 +1715 y(leads)28 b(to)g(an)g(in\014nite)f(total)g(cross)i(section,)h +(whic)m(h)e(is)g(en)m(tirely)g(\014ctitious,)g(since)h(the)g(simple)d +(parton-)0 1823 y(distribution)i(function)h(approac)m(h)h(to)f(the)h +(longitudinal)c(W)31 b(\015ux)g(is)e(not)g(appropriate)g(in)g(this)g +(limit.)0 1932 y(F)-8 b(or)32 b(this)g(pro)s(cess,)i(it)d(is)i +(therefore)g(necessary)i(to)d(mak)m(e)h(use)g(of)f(a)g(cut,)i(e.g.)43 +b Fj(p)2937 1947 y Fk(?)3024 1932 y Fj(>)27 b(m)3212 +1947 y Fl(W)3290 1932 y Fw(.)146 2040 y(F)-8 b(or)30 +b(subpro)s(cesses)k(71,)d(72,)f(76)g(and)h(77,)g(an)f(option)g(is)g +(included)h(\(see)g Fq(MSTP\(46\))p Fw(\))i(whereb)m(y)g(the)0 +2148 y(user)g(can)f(select)h(only)f(the)g Fj(s)p Fw(-c)m(hannel)g +(Higgs)f(graph;)i(this)e(will)f(then)j(b)s(e)f(essen)m(tially)g(equiv) +-5 b(alen)m(t)32 b(to)0 2257 y(running)j(subpro)s(cess)j(5)e(or)f(8)h +(with)f(the)h(prop)s(er)g(deca)m(y)h(c)m(hannels)g(\(i.e.)53 +b(Z)2806 2221 y Fl(0)2845 2257 y Fw(Z)2905 2221 y Fl(0)2979 +2257 y Fw(or)36 b(W)3203 2221 y Fl(+)3262 2257 y Fw(W)3363 +2221 y Fk(\000)3423 2257 y Fw(\))g(set)g(via)0 2365 y +Fq(MDME)p Fw(.)i(The)f(di\013erence)g(is)f(that)g(the)h(Breit{Wigners)f +(in)g(subpro)s(cesses)j(5)d(and)h(8)f(con)m(tain)g(a)g(mass-)0 +2473 y(dep)s(enden)m(t)i(width,)f(whereas)h(the)f(width)f(in)f(subpro)s +(cesses)k(71{77)c(is)h(calculated)g(at)f(the)i(nominal)0 +2582 y(Higgs)h(mass;)k(also,)e(higher-order)e(corrections)h(to)f(the)i +(widths)f(are)g(treated)g(more)f(accurately)h(in)0 2690 +y(subpro)s(cesses)g(5)c(and)h(8.)54 b(F)-8 b(urther,)37 +b(pro)s(cesses)h(71{77)c(assume)j(the)f(incoming)e(W)q +Fj(=)p Fw(Z)i(to)f(b)s(e)h(on)g(the)0 2798 y(mass)25 +b(shell,)h(with)f(asso)s(ciated)g(kinematics)f(factors,)j(while)d(pro)s +(cesses)j(5)e(and)g(8)g(ha)m(v)m(e)h(W)q Fj(=)p Fw(Z)f(correctly)0 +2907 y(space-lik)m(e.)43 b(All)31 b(this)i(leads)f(to)g(di\013erences)i +(in)e(the)h(cross)g(sections)g(b)m(y)h(up)f(to)f(a)g(factor)g(of)h +(1.5.)146 3015 y(In)i(the)g(absence)h(of)d(a)h(Higgs,)g(the)h(sector)g +(of)f(longitudinal)c(Z)k(and)h(W)g(scattering)g(will)c(b)s(ecome)0 +3123 y(strongly)k(in)m(teracting)g(at)g(energies)h(ab)s(o)m(v)m(e)g(1)g +(T)-8 b(eV.)36 b(The)h(mo)s(dels)d(prop)s(osed)i(b)m(y)h(Dobado,)e +(Herrero)0 3232 y(and)43 b(T)-8 b(erron)44 b([Dob91)o(])f(to)g(describ) +s(e)g(this)g(kind)g(of)g(ph)m(ysics)h(ha)m(v)m(e)h(b)s(een)e(included)g +(as)g(alternativ)m(e)0 3340 y(matrix)38 b(elemen)m(ts)j(for)e(subpro)s +(cesses)k(71,)e(72,)g(73,)h(76)d(and)h(77,)h(selectable)f(b)m(y)i +Fq(MSTP\(46\))p Fw(.)68 b(F)-8 b(rom)0 3448 y(the)29 +b(p)s(oin)m(t)e(of)h(view)g(of)g(the)h(general)f(classi\014cation)e(sc) +m(heme)k(for)e(subpro)s(cesses,)k(this)c(kind)g(of)g(mo)s(dels)0 +3557 y(should)35 b(appropriately)e(b)s(e)i(included)g(as)g(separate)g +(subpro)s(cesses)j(with)c(n)m(um)m(b)s(ers)i(ab)s(o)m(v)m(e)f(100,)g +(but)0 3665 y(the)g(curren)m(t)g(solution)e(allo)m(ws)g(a)h(more)f +(e\016cien)m(t)j(reuse)f(of)f(existing)f(co)s(de.)49 +b(By)35 b(a)f(prop)s(er)g(c)m(hoice)h(of)0 3774 y(parameters,)e(it)e +(is)h(also)g(here)h(p)s(ossible)f(to)g(sim)m(ulate)f(the)i(pro)s +(duction)f(of)g(a)h(tec)m(hni-)p Fj(\032)p Fw(.)146 3882 +y(Curren)m(tly)-8 b(,)25 b(the)e(scattering)f(of)g(transv)m(erse)i +(gauge)e(b)s(osons)h(has)f(not)h(b)s(een)f(included,)i(neither)f(that)0 +3990 y(of)32 b(mixed)g(transv)m(erse{longitudinal)f(scatterings.)44 +b(These)35 b(are)d(exp)s(ected)j(to)d(b)s(e)h(less)g(imp)s(ortan)m(t)e +(at)0 4099 y(high)23 b(energies,)j(and)e(do)g(not)g(con)m(tain)f(an)h +(H)1605 4062 y Fl(0)1668 4099 y Fw(resonance)h(p)s(eak,)h(but)e(need)h +(not)f(b)s(e)g(en)m(tirely)f(negligible)0 4207 y(in)33 +b(magnitude.)47 b(As)35 b(a)f(rule)f(of)h(th)m(um)m(b,)h(pro)s(cesses)h +(71{77)d(should)h(not)g(b)s(e)g(used)h(for)f Fj(V)21 +b(V)56 b Fw(in)m(v)-5 b(arian)m(t)0 4315 y(masses)33 +b(b)s(elo)m(w)g(500)f(GeV.)146 4424 y(The)27 b(deca)m(y)f(pro)s(ducts)g +(of)f(the)h(longitudinal)c(gauge)j(b)s(osons)h(are)f(correctly)h +(distributed)f(in)f(angle.)0 4671 y Fo(8.4.3)112 b(Extended)38 +b(neutral)f(Higgs)g(sector)0 4844 y Fq(MSEL)d Fw(=)e(19)0 +4952 y(ISUB)h(=)1817 5953 y(130)p eop +%%Page: 131 137 +131 136 bop 84 -30 a Fw(H)157 -66 y Fl(0)310 -30 y Fw(H)383 +-66 y Fk(0)p Fl(0)575 -30 y Fw(A)648 -66 y Fl(0)147 90 +y Fw(3)100 b(151)f(156)g(f)818 105 y Fh(i)p 846 11 37 +4 v 846 90 a Fw(f)882 105 y Fh(i)938 90 y Fn(!)28 b Fj(X)50 +211 y Fw(102)99 b(152)g(157)g(gg)28 b Fn(!)g Fj(X)50 +331 y Fw(103)99 b(153)g(158)g Fj(\015)5 b(\015)32 b Fn(!)c +Fj(X)99 451 y Fw(24)99 b(171)g(176)g(f)818 466 y Fh(i)p +846 372 V 846 451 a Fw(f)882 466 y Fh(i)938 451 y Fn(!)28 +b Fw(Z)1126 415 y Fl(0)1165 451 y Fj(X)99 572 y Fw(26)99 +b(172)g(177)g(f)818 587 y Fh(i)p 846 493 V 846 572 a +Fw(f)882 587 y Fh(j)947 572 y Fn(!)27 b Fw(W)1175 536 +y Fl(+)1235 572 y Fj(X)50 692 y Fw(123)99 b(173)g(178)g(f)818 +707 y Fh(i)846 692 y Fw(f)876 707 y Fh(j)940 692 y Fn(!)27 +b Fw(f)1097 707 y Fh(i)1125 692 y Fw(f)1155 707 y Fh(j)1191 +692 y Fj(X)41 b Fw(\(ZZ)31 b(fusion\))50 812 y(124)99 +b(174)g(179)g(f)818 827 y Fh(i)846 812 y Fw(f)876 827 +y Fh(j)940 812 y Fn(!)27 b Fw(f)1097 827 y Fh(k)1139 +812 y Fw(f)1169 827 y Fh(l)1195 812 y Fj(X)41 b Fw(\(W)1456 +776 y Fl(+)1515 812 y Fw(W)1616 776 y Fk(\000)1708 812 +y Fw(fusion\))50 933 y(121)99 b(181)g(186)g(gg)28 b Fn(!)g +Fw(Q)1118 948 y Fh(k)p 1160 855 76 4 v 1160 933 a Fw(Q)1236 +956 y Fh(k)1279 933 y Fj(X)50 1053 y Fw(122)99 b(182)g(187)g(q)839 +1068 y Fh(i)p 867 1000 52 4 v 867 1053 a Fw(q)919 1077 +y Fh(i)975 1053 y Fn(!)27 b Fw(Q)1178 1068 y Fh(k)p 1221 +975 76 4 v 1221 1053 a Fw(Q)1296 1077 y Fh(k)1339 1053 +y Fj(X)0 1162 y Fw(ISUB)33 b(=)50 1273 y(\(141\))99 b(f)402 +1288 y Fh(i)p 430 1194 37 4 v 430 1273 a Fw(f)466 1288 +y Fh(i)522 1273 y Fn(!)28 b Fj(\015)5 b(=)p Fw(Z)815 +1237 y Fl(0)853 1273 y Fj(=)p Fw(Z)962 1237 y Fk(0)p +Fl(0)146 1379 y Fw(In)49 b Fm(Pythia)p Fw(,)j(the)c(particle)f(con)m +(ten)m(t)i(of)e(a)h(t)m(w)m(o-Higgs-doublet)f(scenario)g(is)h +(included:)74 b(t)m(w)m(o)0 1487 y(neutral)28 b(scalar)g(particles,)g +(25)g(and)h(35,)g(one)g(pseudoscalar)g(one,)g(36,)g(and)g(a)f(c)m +(harged)h(doublet,)g Fn(\006)p Fw(37.)0 1595 y(\(Of)45 +b(course,)50 b(these)c(particles)f(ma)m(y)g(also)f(b)s(e)i(asso)s +(ciated)f(with)g(corresp)s(onding)g(Higgs)g(states)h(in)0 +1704 y(larger)35 b(m)m(ultiplets.\))52 b(By)37 b(con)m(v)m(en)m(tion,)i +(w)m(e)e(c)m(ho)s(ose)g(to)f(call)e(the)j(ligh)m(ter)e(scalar)h(Higgs)f +(H)3375 1668 y Fl(0)3451 1704 y Fw(and)h(the)0 1812 y(hea)m(vier)h(H) +413 1776 y Fk(0)p Fl(0)508 1812 y Fw(|)e(this)h(di\013ers)h(from)e(the) +h(con)m(v)m(en)m(tion)i(in)d(the)i(MSSM,)h(where)f(the)g(ligh)m(ter)e +(is)h(called)0 1920 y(h)54 1884 y Fl(0)126 1920 y Fw(and)d(the)h(hea)m +(vier)f(H)894 1884 y Fl(0)934 1920 y Fw(,)g(but)g(allo)m(ws)f(us)h(to)g +(call)e(the)i(Higgs)f(of)h(the)g(one-Higgs)f(scenario)h(H)3501 +1884 y Fl(0)3540 1920 y Fw(.)45 b(The)0 2029 y(pseudoscalar)39 +b(is)f(called)g(A)1036 1993 y Fl(0)1114 2029 y Fw(and)h(the)g(c)m +(harged)g(H)1923 1993 y Fk(\006)1983 2029 y Fw(.)61 b(Charged-Higgs)38 +b(pro)s(duction)g(is)h(co)m(v)m(ered)h(in)0 2137 y(section)33 +b(8.4.4.)146 2246 y(A)i(n)m(um)m(b)s(er)g(of)f(H)797 +2209 y Fl(0)871 2246 y Fw(pro)s(cesses)i(ha)m(v)m(e)g(b)s(een)f +(duplicated)f(for)g(H)2456 2209 y Fk(0)p Fl(0)2549 2246 +y Fw(and)g(A)2813 2209 y Fl(0)2853 2246 y Fw(.)49 b(The)35 +b(corresp)s(ondence)0 2354 y(b)s(et)m(w)m(een)k(ISUB)e(n)m(um)m(b)s +(ers)h(is)f(sho)m(wn)h(in)e(the)h(table)f(ab)s(o)m(v)m(e:)53 +b(the)38 b(\014rst)f(column)f(of)g(ISUB)i(n)m(um)m(b)s(ers)0 +2462 y(corresp)s(onds)50 b(to)e Fj(X)62 b Fw(=)55 b(H)1033 +2426 y Fl(0)1073 2462 y Fw(,)d(the)d(second)h(to)e Fj(X)62 +b Fw(=)55 b(H)2149 2426 y Fk(0)p Fl(0)2208 2462 y Fw(,)d(and)d(the)g +(third)e(to)i Fj(X)62 b Fw(=)55 b(A)3419 2426 y Fl(0)3458 +2462 y Fw(.)91 b(Note)0 2571 y(that)37 b(sev)m(eral)g(of)f(these)i(pro) +s(cesses)h(are)e(not)g(exp)s(ected)h(to)f(tak)m(e)g(place)g(at)f(all,)g +(o)m(wing)g(to)h(v)-5 b(anishing)0 2679 y(Born)37 b(term)g(couplings.) +56 b(W)-8 b(e)38 b(ha)m(v)m(e)g(still)d(included)i(them)g(for)f +(\015exibilit)m(y)g(in)g(sim)m(ulating)e(arbitrary)0 +2787 y(couplings)e(at)g(the)h(Born)f(or)h(lo)s(op)e(lev)m(el.)146 +2896 y(A)j(few)g(Standard)g(Mo)s(del)f(Higgs)g(pro)s(cesses)j(ha)m(v)m +(e)e(no)g(corresp)s(ondence)i(in)d(the)h(sc)m(heme)h(ab)s(o)m(v)m(e.)0 +3004 y(These)f(include)145 3117 y Fn(\017)49 b Fw(5)32 +b(and)h(8,)f(whic)m(h)h(an)m(yw)m(a)m(y)i(ha)m(v)m(e)f(b)s(een)f(sup)s +(erseded)i(b)m(y)f(123)d(and)i(124;)145 3235 y Fn(\017)49 +b Fw(71,)32 b(72,)h(73,)f(76)g(and)h(77,)g(whic)m(h)g(deal)f(with)g +(what)h(happ)s(ens)h(if)e(there)h(is)g(no)f(ligh)m(t)f(Higgs,)h(and)244 +3343 y(so)40 b(is)g(a)g(scenario)g(complemen)m(tary)g(to)g(the)g(one)h +(ab)s(o)m(v)m(e,)i(where)f(sev)m(eral)f(ligh)m(t)d(Higgses)i(are)244 +3451 y(assumed;)145 3569 y Fn(\017)49 b Fw(110,)32 b(whic)m(h)h(is)f +(mainly)e(of)j(in)m(terest)g(in)e(Standard)i(Mo)s(del)f(Higgs)g(searc)m +(hes;)j(and)145 3687 y Fn(\017)49 b Fw(111,)33 b(112)f(and)h(113,)g +(whic)m(h)h(describ)s(e)g(the)f(high-)p Fj(p)2120 3702 +y Fk(?)2211 3687 y Fw(tail)e(of)i(the)h(Higgs)e(pro)s(duction,)h(and)g +(are)244 3795 y(less)g(in)m(teresting)f(for)g(most)g(Higgs)g(studies.) +146 3908 y(In)g(pro)s(cesses)h(121,)e(122,)g(181,)g(182,)g(186)g(and)g +(187)g(the)h(recoiling)d(hea)m(vy)k(\015a)m(v)m(our)f(is)f(assumed)h +(to)0 4017 y(b)s(e)k(top,)h(whic)m(h)g(is)f(the)h(only)e(one)i(of)e(in) +m(terest)i(in)f(the)g(Standard)h(Mo)s(del,)f(and)h(the)f(one)h(where)g +(the)0 4125 y(parton-distribution-function)22 b(approac)m(h)k(in)m(v)m +(ok)m(ed)h(in)d(pro)s(cesses)k(3,)f(151)d(and)i(156)f(is)f(least)i +(reliable.)0 4233 y(Ho)m(w)m(ev)m(er,)33 b(it)28 b(is)h(p)s(ossible)g +(to)h(c)m(hange)g(the)g(quark)h(\015a)m(v)m(our)f(in)f(121)g(etc.;)i +(for)e(eac)m(h)i(pro)s(cess)g(ISUB)f(this)0 4342 y(\015a)m(v)m(our)f +(is)f(giv)m(en)h(b)m(y)h Fq(KFPR\(ISUB,2\))p Fw(.)45 +b(This)29 b(ma)m(y)f(b)s(ecome)h(relev)-5 b(an)m(t)28 +b(if)f(couplings)g(to)i(b)p 3294 4263 55 4 v(b)f(states)h(are)0 +4450 y(enhanced,)34 b(e.g.)44 b(if)31 b(tan)17 b Fj(\014)33 +b Fn(\035)27 b Fw(1)33 b(in)f(the)h(MSSM.)146 4559 y(By)47 +b(default,)h(the)e(H)938 4522 y Fl(0)1024 4559 y Fw(has)g(the)g +(couplings)f(of)g(the)h(Standard)g(Mo)s(del)f(Higgs,)k(while)c(the)h(H) +3721 4522 y Fk(0)p Fl(0)0 4667 y Fw(and)i(A)278 4631 +y Fl(0)365 4667 y Fw(ha)m(v)m(e)i(couplings)d(set)h(in)f +Fq(PARU\(171\))54 b(-)e(PARU\(178\))e Fw(and)e Fq(PARU\(181\))54 +b(-)d(PARU\(190\))p Fw(,)0 4775 y(resp)s(ectiv)m(ely)-8 +b(.)79 b(The)45 b(default)f(v)-5 b(alues)44 b(for)f(the)i(H)1863 +4739 y Fk(0)p Fl(0)1965 4775 y Fw(and)g(A)2240 4739 y +Fl(0)2323 4775 y Fw(ha)m(v)m(e)h(no)e(deep)h(ph)m(ysics)g(motiv)-5 +b(ation,)0 4884 y(but)37 b(are)g(set)g(just)g(so)g(that)f(the)h +(program)f(will)e(not)i(crash)i(due)f(to)f(the)i(absence)g(of)e(an)m(y) +h(couplings)0 4992 y(whatso)s(ev)m(er.)62 b(Y)-8 b(ou)39 +b(should)f(therefore)h(set)g(the)f(ab)s(o)m(v)m(e)h(couplings)f(to)g(y) +m(our)h(desired)f(v)-5 b(alues)39 b(if)e(y)m(ou)0 5100 +y(w)m(an)m(t)c(to)f(sim)m(ulate)e(either)i(H)1093 5064 +y Fk(0)p Fl(0)1184 5100 y Fw(or)g(A)1376 5064 y Fl(0)1416 +5100 y Fw(.)43 b(Also)31 b(the)i(couplings)e(of)h(the)g(H)2652 +5064 y Fl(0)2724 5100 y Fw(particle)f(can)h(b)s(e)h(mo)s(di\014ed,)0 +5209 y(in)f Fq(PARU\(161\))53 b(-)f(PARU\(165\))p Fw(,)35 +b(pro)m(vided)e(that)f Fq(MSTP\(4\))j Fw(is)d(set)h(to)f(1.)146 +5317 y(F)-8 b(or)22 b Fq(MSTP\(4\)=2)p Fw(,)27 b(the)c(mass)f(of)g(the) +h(H)1543 5281 y Fl(0)1605 5317 y Fw(\(in)e Fq(PMAS\(25,1\))p +Fw(\))k(and)e(the)f(tan)17 b Fj(\014)28 b Fw(v)-5 b(alue)22 +b(\(in)f Fq(PARU\(141\))p Fw(\))0 5425 y(are)54 b(used)h(to)e(deriv)m +(e)h(the)g(masses)h(of)e(the)h(other)g(Higgses,)59 b(as)54 +b(w)m(ell)f(as)h(all)d(Higgs)i(couplings.)0 5534 y Fq(PMAS\(35,1\))h(-) +d(PMAS\(37,1\))i Fw(and)c Fq(PARU\(161\))54 b(-)d(PARU\(195\))h +Fw(are)e(o)m(v)m(erwritten)h(accordingly)-8 b(.)0 5642 +y(The)29 b(relations)e(used)j(are)e(the)h(ones)g(of)f(the)h(Born-lev)m +(el)f(MSSM)h([Gun90].)42 b(T)-8 b(o)s(da)m(y)g(,)29 b(lo)s(op)e +(corrections)1817 5953 y(131)p eop +%%Page: 132 138 +132 137 bop 0 -18 a Fw(to)37 b(those)i(expressions)g(ha)m(v)m(e)g(b)s +(een)f(calculated,)g(and)g(are)g(kno)m(wn)h(to)e(ha)m(v)m(e)i +(non-negligible)34 b(e\013ects)0 90 y(on)c(the)h(resulting)e +(phenomenology)-8 b(.)42 b(Ev)m(en)m(tually)30 b(the)h(mo)s(di\014ed)e +(relations)f(will)g(b)s(e)j(included)e(as)i(an)0 198 +y(additional)f(option,)h(but)i(this)f(has)h(not)g(y)m(et)g(b)s(een)h +(done.)146 307 y(Note)26 b(that)g(not)g(all)d(com)m(binations)i(of)g +Fj(m)1652 322 y Fl(H)1735 307 y Fw(and)h(tan)17 b Fj(\014)31 +b Fw(are)26 b(allo)m(w)m(ed;)h(the)g(requiremen)m(t)f(of)f(a)h +(\014nite)0 415 y(A)73 379 y Fl(0)145 415 y Fw(mass)33 +b(imp)s(oses)f(the)h(constrain)m(t)1441 689 y Fj(m)1526 +704 y Fl(H)1611 689 y Fj(<)27 b(m)1799 704 y Fl(Z)1874 +621 y Fw(tan)2014 585 y Fl(2)2071 621 y Fj(\014)g Fn(\000)c +Fw(1)p 1874 665 429 4 v 1875 757 a(tan)2015 722 y Fl(2)2071 +757 y Fj(\014)28 b Fw(+)22 b(1)2312 689 y Fj(;)1218 b +Fw(\(119\))0 953 y(or,)32 b(equiv)-5 b(alen)m(tly)d(,)1474 +1106 y(tan)1614 1065 y Fl(2)1670 1106 y Fj(\014)34 b(>)1873 +1038 y(m)1958 1053 y Fl(Z)2028 1038 y Fw(+)22 b Fj(m)2211 +1053 y Fl(H)p 1872 1083 397 4 v 1872 1174 a Fj(m)1957 +1189 y Fl(Z)2027 1174 y Fn(\000)h Fj(m)2212 1189 y Fl(H)2279 +1106 y Fj(:)1251 b Fw(\(120\))0 1321 y(If)33 b(this)f(condition)f(is)h +(not)g(ful\014lled,)f(the)i(program)e(will)f(crash.)146 +1429 y(Pro)s(cess)45 b(141)e(can)g(also)g(b)s(e)h(used)g(to)f(sim)m +(ulate)f(Z)2061 1393 y Fl(0)2146 1429 y Fn(!)k Fw(H)2365 +1393 y Fl(0)2405 1429 y Fw(A)2478 1393 y Fl(0)2560 1429 +y Fw(and)e(Z)2821 1393 y Fl(0)2906 1429 y Fn(!)i Fw(H)3125 +1393 y Fk(0)p Fl(0)3184 1429 y Fw(A)3257 1393 y Fl(0)3339 +1429 y Fw(for)d(asso)s(ci-)0 1537 y(ated)36 b(neutral)g(Higgs)f(pro)s +(duction.)54 b(The)37 b(fact)f(that)g(w)m(e)h(here)g(mak)m(e)f(use)h +(of)f(the)g(Z)3130 1501 y Fk(0)p Fl(0)3225 1537 y Fw(can)g(easily)f(b)s +(e)0 1646 y(discoun)m(ted,)e(either)e(b)m(y)h(letting)e(the)i(relev)-5 +b(an)m(t)31 b(couplings)g(v)-5 b(anish,)31 b(or)g(b)m(y)i(the)e(option) +g Fq(MSTP\(44\)=4)p Fw(.)146 1754 y(Finally)-8 b(,)31 +b(hea)m(vier)j(Higgses)g(ma)m(y)f(deca)m(y)i(in)m(to)e(ligh)m(ter)f +(ones,)j(if)e(kinematically)d(allo)m(w)m(ed,)j(in)g(pro-)0 +1862 y(cesses)38 b(lik)m(e)c(A)535 1826 y Fl(0)607 1862 +y Fn(!)e Fw(Z)799 1826 y Fl(0)838 1862 y Fw(H)911 1826 +y Fl(0)985 1862 y Fw(or)j(H)1180 1826 y Fl(+)1272 1862 +y Fn(!)c Fw(W)1504 1826 y Fl(+)1564 1862 y Fw(H)1637 +1826 y Fl(0)1677 1862 y Fw(.)51 b(Suc)m(h)36 b(mo)s(des)f(are)g +(included)g(as)h(part)f(of)f(the)i(general)0 1971 y(mixture)k(of)g +(deca)m(y)h(c)m(hannels,)j(but)c(they)i(can)e(b)s(e)h(enhanced)h(if)d +(the)i(unin)m(teresting)f(c)m(hannels)h(are)0 2079 y(switc)m(hed)34 +b(o\013.)0 2327 y Fo(8.4.4)112 b(Charged)39 b(Higgs)d(sector)0 +2499 y Fq(MSEL)e Fw(=)e(23)0 2608 y(ISUB)h(=)126 2704 +y(143)99 b(f)402 2719 y Fh(i)p 430 2625 37 4 v 430 2704 +a Fw(f)466 2719 y Fh(j)531 2704 y Fn(!)27 b Fw(H)731 +2668 y Fl(+)126 2824 y Fw(161)99 b(f)402 2839 y Fh(i)430 +2824 y Fw(g)28 b Fn(!)g Fw(f)665 2839 y Fh(k)707 2824 +y Fw(H)780 2788 y Fl(+)50 2945 y Fw(\(141\))99 b(f)402 +2960 y Fh(i)p 430 2866 V 430 2945 a Fw(f)466 2960 y Fh(i)522 +2945 y Fn(!)28 b Fj(\015)5 b(=)p Fw(Z)815 2909 y Fl(0)853 +2945 y Fj(=)p Fw(Z)962 2909 y Fk(0)p Fl(0)146 3062 y +Fw(A)37 b(c)m(harged)h(Higgs)f(doublet,)h(H)1353 3026 +y Fk(\006)1412 3062 y Fw(,)g(is)f(included)f(in)h(the)g(program.)56 +b(This)37 b(doublet)g(ma)m(y)g(b)s(e)g(the)0 3170 y(one)27 +b(predicted)h(in)e(the)i(MSSM)g(scenario,)g(see)g(section)f(8.4.3,)h +(or)f(in)f(an)m(y)i(other)f(scenario.)41 b(The)28 b(tan)17 +b Fj(\014)0 3278 y Fw(parameter,)32 b(whic)m(h)h(is)f(relev)-5 +b(an)m(t)33 b(also)f(for)g(c)m(harged)h(Higgs)f(couplings,)f(is)i(set)g +(via)f Fq(PARU\(141\))p Fw(.)146 3387 y(The)48 b(basic)e(subpro)s(cess) +i(for)e(c)m(harged)h(Higgs)f(pro)s(duction)f(in)h(hadron)g(colliders)f +(is)h(ISUB)h(=)0 3495 y(143.)g(Ho)m(w)m(ev)m(er,)37 b(this)c(pro)s +(cess)i(is)f(dominated)f(b)m(y)h(t)p 1933 3416 55 4 v(b)d +Fn(!)e Fw(H)2220 3459 y Fl(+)2279 3495 y Fw(,)35 b(and)f(so)g(dep)s +(ends)i(on)d(the)i(c)m(hoice)f(of)g(t)0 3604 y(parton)k(distribution.) +57 b(A)38 b(b)s(etter)g(represen)m(tation)g(is)f(pro)m(vided)i(b)m(y)f +(subpro)s(cess)i(161,)f(fg)e Fn(!)f Fw(f)3597 3567 y +Fk(0)3620 3604 y Fw(H)3693 3567 y Fl(+)3752 3604 y Fw(;)0 +3712 y(i.e.)43 b(actually)p 538 3633 V 30 w(bg)29 b Fn(!)p +797 3641 38 4 v 27 w Fw(tH)908 3676 y Fl(+)967 3712 y +Fw(.)44 b(It)31 b(is)h(therefore)g(recommended)g(to)f(use)i(161)e(and)h +(not)f(143;)h(to)f(use)i(b)s(oth)0 3820 y(w)m(ould)g(b)s(e)f +(double-coun)m(ting.)146 3929 y(In)47 b(subpro)s(cess)i(141,)g(the)e +(deca)m(y)g Fj(\015)1528 3892 y Fk(\003)1568 3929 y Fj(=)p +Fw(Z)1677 3892 y Fl(0)1716 3929 y Fj(=)p Fw(Z)1825 3892 +y Fk(0)p Fl(0)1934 3929 y Fn(!)k Fw(H)2158 3892 y Fl(+)2217 +3929 y Fw(H)2290 3892 y Fk(\000)2396 3929 y Fw(allo)m(ws)45 +b(the)i(pro)s(duction)e(of)h(a)h(pair)0 4037 y(of)39 +b(c)m(harged)i(Higgs)d(particles.)64 b(This)40 b(pro)s(cess)h(is)e(esp) +s(ecially)g(imp)s(ortan)m(t)e(in)i(e)2971 4001 y Fl(+)3031 +4037 y Fw(e)3074 4001 y Fk(\000)3173 4037 y Fw(colliders.)63 +b(The)0 4145 y(coupling)35 b(of)g(the)i Fj(\015)736 4109 +y Fk(\003)811 4145 y Fw(to)f(H)1007 4109 y Fl(+)1066 +4145 y Fw(H)1139 4109 y Fk(\000)1234 4145 y Fw(is)g(determined)g(b)m(y) +h(the)f(c)m(harge)h(alone,)f(while)g(the)g(Z)3245 4109 +y Fl(0)3320 4145 y Fw(coupling)f(is)0 4254 y(regulated)27 +b(b)m(y)i Fq(PARU\(142\))p Fw(,)h(and)d(that)g(of)g(the)g(Z)1788 +4217 y Fk(0)p Fl(0)1873 4254 y Fw(b)m(y)i Fq(PARU\(143\))p +Fw(.)44 b(The)28 b(Z)2789 4217 y Fk(0)p Fl(0)2874 4254 +y Fw(piece)g(can)f(b)s(e)g(switc)m(hed)0 4362 y(o\013,)33 +b(e.g.)47 b(b)m(y)36 b Fq(MSTP\(44\)=4)p Fw(.)49 b(An)33 +b(ordinary)g(Z)1697 4326 y Fl(0)1736 4362 y Fw(,)h(i.e.)46 +b(particle)32 b(co)s(de)i(23,)f(cannot)h(b)s(e)g(made)f(to)g(deca)m(y)0 +4470 y(in)m(to)f(H)271 4434 y Fl(+)330 4470 y Fw(H)403 +4434 y Fk(\000)462 4470 y Fw(,)h(ho)m(w)m(ev)m(er.)146 +4579 y(A)i(ma)5 b(jor)34 b(p)s(oten)m(tial)e(source)k(of)e(c)m(harged)i +(Higgs)e(pro)s(duction)f(is)i(top)f(deca)m(y)-8 b(.)51 +b(When)35 b(the)g(top)g(is)0 4687 y(treated)f(as)g(a)f(resonance)i +(\(the)f(default)f(option\),)g(it)f(is)h(p)s(ossible)g(to)g(switc)m(h)i +(on)e(the)h(deca)m(y)h(c)m(hannel)0 4795 y(t)28 b Fn(!)f +Fw(bH)320 4759 y Fl(+)379 4795 y Fw(.)42 b(T)-8 b(op)29 +b(will)d(then)j(deca)m(y)g(to)f(H)1494 4759 y Fl(+)1582 +4795 y Fw(a)f(fraction)h(of)f(the)i(time,)f(whic)m(hev)m(er)i(w)m(a)m +(y)g(it)d(is)h(pro)s(duced.)0 4904 y(The)33 b(branc)m(hing)f(ratio)e +(is)i(automatically)c(calculated,)k(based)g(on)g(the)h(tan)16 +b Fj(\014)38 b Fw(v)-5 b(alue)31 b(and)h(masses.)44 b(It)0 +5012 y(is)34 b(p)s(ossible)f(to)h(only)g(ha)m(v)m(e)i(the)f(H)1275 +4976 y Fl(+)1368 5012 y Fw(deca)m(y)h(mo)s(de)d(switc)m(hed)j(on,)f(in) +e(whic)m(h)i(case)g(the)g(cross)g(section)0 5120 y(is)j(reduced)j +(accordingly)-8 b(.)62 b(If)38 b(one)i(instead)f(assumes)h(that)e(top)h +(hadrons)h(are)f(formed,)h(branc)m(hing)0 5229 y(ratios)30 +b(are)g(not)h(automatically)c(calculated.)42 b(Ho)m(w)m(ev)m(er,)33 +b(y)m(ou)e(can)g(set,)h(for)e(the)h(generic)g(top)f(hadron)0 +5337 y(86,)e(the)f(branc)m(hing)h(ratios)e(for)g(the)i(t)m(w)m(o)g +(main)d(c)m(hannels)j(t)g Fn(!)f Fw(bH)2460 5301 y Fl(+)2547 +5337 y Fw(and)g(t)g Fn(!)h Fw(bW)3079 5301 y Fl(+)3139 +5337 y Fw(.)41 b(In)28 b(this)f(option)0 5445 y(the)41 +b(cross)h(section)f(for)g(top)g(pro)s(duction)f(will)f(not)h(b)s(e)i +(reduced)g(if)e(only)g(the)i(t)g Fn(!)f Fw(bH)3334 5409 +y Fl(+)3435 5445 y Fw(deca)m(y)h(is)0 5554 y(switc)m(hed)34 +b(on,)e(cf.)44 b(section)33 b(7.6.2.)1817 5953 y(132)p +eop +%%Page: 133 139 +133 138 bop 0 -18 a Fp(8.5)135 b(Non-Standard)45 b(Ph)l(ysics)0 +154 y Fw(The)c(n)m(um)m(b)s(er)g(of)f(p)s(ossible)g(non-Standard)g(Mo)s +(del)g(scenarios)h(is)e(essen)m(tially)h(in\014nite,)i(but)e(man)m(y)0 +263 y(of)d(the)i(studied)f(scenarios)g(still)d(share)k(a)e(lot)g(of)g +(asp)s(ects.)60 b(F)-8 b(or)37 b(instance,)j(new)f(W)3159 +226 y Fk(0)3220 263 y Fw(and)f(Z)3475 226 y Fk(0)3536 +263 y Fw(gauge)0 371 y(b)s(osons)g(can)h(arise)e(in)g(a)h(n)m(um)m(b)s +(er)g(of)f(di\013eren)m(t)h(w)m(a)m(ys.)62 b(Therefore)39 +b(it)d(still)g(mak)m(es)i(sense)i(to)e(try)g(to)0 479 +y(co)m(v)m(er)27 b(a)f(few)g(basic)g(classes)h(of)e(particles,)i(with)e +(enough)i(freedom)e(in)g(couplings)g(that)h(man)m(y)g(kinds)g(of)0 +588 y(detailed)k(scenarios)h(can)g(b)s(e)g(accommo)s(dated)e(b)m(y)j +(suitable)e(parameter)g(c)m(hoices.)44 b(W)-8 b(e)31 +b(ha)m(v)m(e)h(already)0 696 y(seen)i(one)f(example)f(of)g(this,)g(in)g +(the)h(extended)h(Higgs)e(sector)h(ab)s(o)m(v)m(e.)44 +b(In)33 b(this)f(section)h(a)f(few)h(other)0 804 y(kinds)g(of)g +(non-standard)g(generic)g(ph)m(ysics)h(is)f(discussed.)46 +b(Clearly)32 b(man)m(y)h(others)h(could)e(ha)m(v)m(e)j(b)s(een)0 +913 y(included,)i(but)g(there)g(is)f(probably)g(only)g(one)h(glaring)d +(omission:)50 b(curren)m(tly)37 b(no)f(sup)s(ersymmetric)0 +1021 y(particle)f(pro)s(duction)i(has)g(b)s(een)g(included.)56 +b(One)37 b(main)e(reason)j(for)e(this)g(is)h(the)g(large)f(n)m(um)m(b)s +(er)h(of)0 1129 y(particles,)32 b(pro)s(cesses,)j(p)s(ossible)c(mass)i +(hierarc)m(hies)g(and)f(deca)m(y)i(c)m(hains.)0 1377 +y Fo(8.5.1)112 b(F)-9 b(ourth-generation)38 b(fermions)0 +1550 y Fq(MSEL)c Fw(=)e(7,)g(8,)h(37,)f(38)0 1658 y(ISUB)h(=)147 +1754 y(1)100 b(f)326 1769 y Fh(i)p 354 1675 37 4 v 354 +1754 a Fw(f)391 1769 y Fh(i)446 1754 y Fn(!)28 b Fj(\015)630 +1718 y Fk(\003)669 1754 y Fj(=)p Fw(Z)778 1718 y Fl(0)147 +1875 y Fw(2)100 b(f)326 1890 y Fh(i)p 354 1795 V 354 +1875 a Fw(f)391 1890 y Fh(j)455 1875 y Fn(!)27 b Fw(W)683 +1838 y Fl(+)99 1995 y Fw(81)99 b(q)347 2010 y Fh(i)p +375 1942 52 4 v 375 1995 a Fw(q)427 2019 y Fh(i)483 1995 +y Fn(!)27 b Fw(Q)686 2010 y Fh(k)p 729 1917 76 4 v 729 +1995 a Fw(Q)804 2019 y Fh(k)99 2115 y Fw(82)99 b(gg)28 +b Fn(!)g Fw(Q)626 2130 y Fh(k)p 668 2037 V 668 2115 a +Fw(Q)744 2139 y Fh(k)99 2236 y Fw(83)99 b(q)347 2251 +y Fh(i)375 2236 y Fw(f)405 2251 y Fh(j)469 2236 y Fn(!)28 +b Fw(Q)673 2251 y Fh(k)715 2236 y Fw(f)745 2251 y Fh(l)99 +2356 y Fw(84)99 b(g)q Fj(\015)33 b Fn(!)27 b Fw(Q)633 +2371 y Fh(k)p 675 2278 V 675 2356 a Fw(Q)751 2380 y Fh(k)99 +2477 y Fw(85)99 b Fj(\015)5 b(\015)32 b Fn(!)c Fw(F)627 +2492 y Fh(k)p 669 2398 64 4 v 669 2477 a Fw(F)733 2492 +y Fh(k)50 2597 y Fw(141)99 b(f)326 2612 y Fh(i)p 354 +2518 37 4 v 354 2597 a Fw(f)391 2612 y Fh(i)446 2597 +y Fn(!)28 b Fj(\015)5 b(=)p Fw(Z)739 2561 y Fl(0)777 +2597 y Fj(=)p Fw(Z)886 2561 y Fk(0)p Fl(0)50 2717 y Fw(142)99 +b(f)326 2732 y Fh(i)p 354 2638 V 354 2717 a Fw(f)391 +2732 y Fh(j)455 2717 y Fn(!)27 b Fw(W)683 2681 y Fk(0)p +Fl(+)146 2827 y Fw(The)36 b(prosp)s(ects)g(of)e(a)g(fourth)h +(generation)f(curren)m(tly)h(seem)g(rather)g(dim,)e(but)i(the)g +(appropriate)0 2936 y(\015a)m(v)m(our)c(con)m(ten)m(t)g(is)f(still)e +(found)i(in)f(the)i(program.)41 b(In)31 b(fact,)f(the)h(fourth)f +(generation)f(is)h(included)g(on)0 3044 y(an)38 b(equal)g(basis)h(with) +e(the)i(\014rst)g(three,)i(pro)m(vided)d Fq(MSTP\(1\)=4)p +Fw(.)63 b(Also)38 b(pro)s(cesses)i(other)f(than)f(the)0 +3152 y(ones)g(ab)s(o)m(v)m(e)h(can)f(therefore)g(b)s(e)g(used,)i(e.g.) +60 b(all)35 b(other)j(pro)s(cesses)i(with)d(gauge)h(b)s(osons,)h +(including)0 3261 y(non-standard)j(ones)g(suc)m(h)h(as)f(the)g(Z)1427 +3225 y Fk(0)p Fl(0)1485 3261 y Fw(.)71 b(W)-8 b(e)42 +b(therefore)g(do)f(not)h(rep)s(eat)g(the)g(descriptions)f(found)0 +3369 y(elsewhere,)c(e.g.)51 b(ho)m(w)35 b(to)g(set)h(only)e(the)h +(desired)h(\015a)m(v)m(our)g(in)e(pro)s(cesses)j(81{85.)49 +b(Note)35 b(that)g(it)f(ma)m(y)0 3477 y(b)s(e)27 b(con)m(v)m(enien)m(t) +i(to)d(set)h Fq(CKIN\(1\))i Fw(and)e(other)g(cuts)h(suc)m(h)g(that)e +(the)i(mass)e(of)h(pro)s(duced)g(gauge)g(b)s(osons)0 +3586 y(is)35 b(enough)h(for)f(the)h(w)m(an)m(ted)h(particle)e(pro)s +(duction)f(|)i(in)e(principle)g(the)i(program)f(will)e(cop)s(e)j(ev)m +(en)0 3694 y(without)c(that,)h(but)f(p)s(ossibly)g(at)h(the)g(exp)s +(ense)h(of)e(v)m(ery)i(slo)m(w)f(execution.)0 3942 y +Fo(8.5.2)112 b(New)38 b(gauge)g(b)s(osons)0 4114 y Fq(MSEL)c +Fw(=)e(21,)g(22,)g(24)0 4223 y(ISUB)h(=)50 4319 y(141)99 +b(f)326 4334 y Fh(i)p 354 4240 V 354 4319 a Fw(f)391 +4334 y Fh(i)446 4319 y Fn(!)28 b Fj(\015)5 b(=)p Fw(Z)739 +4283 y Fl(0)777 4319 y Fj(=)p Fw(Z)886 4283 y Fk(0)p +Fl(0)50 4439 y Fw(142)99 b(f)326 4454 y Fh(i)p 354 4360 +V 354 4439 a Fw(f)391 4454 y Fh(j)455 4439 y Fn(!)27 +b Fw(W)683 4403 y Fk(0)p Fl(+)50 4560 y Fw(144)99 b(f)326 +4575 y Fh(i)p 354 4481 V 354 4560 a Fw(f)391 4575 y Fh(j)455 +4560 y Fn(!)27 b Fw(R)146 4680 y(The)40 b(Z)413 4643 +y Fk(0)p Fl(0)509 4680 y Fw(of)e(subpro)s(cess)j(141)c(con)m(tains)i +(the)g(full)d Fj(\015)2098 4643 y Fk(\003)2138 4680 y +Fj(=)p Fw(Z)2247 4643 y Fl(0)2285 4680 y Fj(=)p Fw(Z)2394 +4643 y Fk(0)p Fl(0)2491 4680 y Fw(in)m(terference)j(structure)h(for)e +(cou-)0 4788 y(plings)31 b(to)i(fermion)e(pairs.)43 b(With)32 +b Fq(MSTP\(44\))j Fw(it)d(is)g(p)s(ossible)g(to)h(pic)m(k)g(only)f(a)g +(subset,)j(e.g.)44 b(only)32 b(the)0 4896 y(pure)i(Z)283 +4860 y Fk(0)p Fl(0)375 4896 y Fw(piece.)47 b(The)35 b(couplings)e(of)g +(the)h(Z)1633 4860 y Fk(0)p Fl(0)1725 4896 y Fw(to)f(quarks)i(and)f +(leptons)g(can)g(b)s(e)g(set)g(via)f Fq(PARU\(121\))0 +5005 y(-)52 b(PARU\(128\))p Fw(.)c(The)34 b(eigh)m(t)f(n)m(um)m(b)s +(ers)h(corresp)s(ond)g(to)f(the)h(v)m(ector)h(and)e(axial)f(couplings)g +(of)h(do)m(wn-)0 5113 y(t)m(yp)s(e)27 b(quarks,)h(up-t)m(yp)s(e)f +(quarks,)i(leptons)d(and)g(neutrinos,)h(resp)s(ectiv)m(ely)-8 +b(.)42 b(The)27 b(default)e(corresp)s(onds)0 5221 y(to)38 +b(the)h(same)f(couplings)g(as)g(that)h(of)f(the)g(Standard)h(Mo)s(del)f +(Z)2410 5185 y Fl(0)2449 5221 y Fw(,)i(with)e(axial)e(couplings)i +Fj(a)3471 5236 y Fl(f)3540 5221 y Fw(=)f Fn(\006)p Fw(1)0 +5330 y(and)d(v)m(ector)g(couplings)f Fj(v)961 5345 y +Fl(f)1021 5330 y Fw(=)c Fj(a)1177 5345 y Fl(f)1231 5330 +y Fn(\000)23 b Fw(4)p Fj(e)1425 5345 y Fl(f)1473 5330 +y Fw(sin)1593 5290 y Fl(2)1632 5330 y Fj(\022)1677 5345 +y Fh(W)1758 5330 y Fw(.)46 b(This)34 b(implies)d(a)i(resonance)i(width) +e(that)h(increases)0 5438 y(linearly)e(with)i(the)g(mass.)48 +b(By)35 b(a)f(suitable)f(c)m(hoice)h(of)g(the)h(parameters,)f(it)f(is)h +(p)s(ossible)f(to)h(sim)m(ulate)0 5546 y(just)e(ab)s(out)f(an)m(y)i +(imaginable)28 b(Z)1206 5510 y Fk(0)p Fl(0)1296 5546 +y Fw(scenario,)k(with)f(full)f(in)m(terference)i(e\013ects)i(in)c +(cross)j(sections)f(and)0 5655 y(deca)m(y)i(angular)d(distributions.) +1817 5953 y(133)p eop +%%Page: 134 140 +134 139 bop 146 -18 a Fw(The)54 b(coupling)e(to)h(the)g(deca)m(y)i(c)m +(hannel)e(Z)1833 -55 y Fk(0)p Fl(0)1954 -18 y Fn(!)63 +b Fw(W)2218 -55 y Fl(+)2277 -18 y Fw(W)2378 -55 y Fk(\000)2491 +-18 y Fw(is)53 b(regulated)f(b)m(y)k Fq(PARU\(129\))d(-)0 +90 y(PARU\(130\))p Fw(.)43 b(The)25 b(former)e(giv)m(es)h(the)g +(strength)h(of)e(the)h(coupling,)g(whic)m(h)h(determines)f(the)g(rate.) +41 b(The)0 198 y(default,)27 b Fq(PARU\(129\)=1.)p Fw(,)k(corresp)s +(onds)c(to)f(the)g(`extended)j(gauge)d(mo)s(del')e(of)i([Alt89)o(],)h +(wherein)g(the)0 307 y(Z)60 270 y Fl(0)139 307 y Fn(!)40 +b Fw(W)380 270 y Fl(+)440 307 y Fw(W)541 270 y Fk(\000)640 +307 y Fw(coupling)f(is)h(used,)j(scaled)d(do)m(wn)h(b)m(y)g(a)e(factor) +h Fj(m)2566 270 y Fl(2)2566 331 y(W)2644 307 y Fj(=m)2778 +270 y Fl(2)2778 331 y(Z)2821 312 y Fd(0)2847 307 y Fw(,)i(to)e(giv)m(e) +g(a)g(Z)3400 270 y Fk(0)p Fl(0)3498 307 y Fw(partial)0 +415 y(width)30 b(in)m(to)g(this)h(c)m(hannel)g(that)f(again)g +(increases)h(linearly)-8 b(.)41 b(If)31 b(this)f(factor)g(is)g +(cancelled,)h(b)m(y)h(ha)m(ving)0 523 y Fq(PARU\(129\))38 +b Fw(prop)s(ortional)32 b(to)k Fj(m)1268 487 y Fl(2)1268 +548 y(Z)1311 529 y Fd(0)1338 523 y Fj(=m)1472 487 y Fl(2)1472 +548 y(W)1549 523 y Fw(,)g(one)g(obtains)f(a)g(partial)e(width)i(that)g +(go)s(es)h(lik)m(e)f(the)g(\014fth)0 632 y(p)s(o)m(w)m(er)e(of)f(the)g +(Z)622 595 y Fk(0)p Fl(0)712 632 y Fw(mass,)h(the)f(`reference)i(mo)s +(del')c(of)i([Alt89)o(].)43 b(In)33 b(the)f(deca)m(y)i(angular)c +(distribution)0 740 y(one)e(could)f(imagine)d(a)k(m)m(uc)m(h)f(ric)m +(her)h(structure)h(than)e(is)g(giv)m(en)g(b)m(y)i(the)f(one)f +(parameter)g Fq(PARU\(130\))p Fw(.)146 848 y(Other)j(deca)m(y)h(mo)s +(des)e(include)f(Z)1383 812 y Fk(0)p Fl(0)1469 848 y +Fn(!)f Fw(Z)1656 812 y Fl(0)1695 848 y Fw(H)1768 812 +y Fl(0)1808 848 y Fw(,)j(predicted)g(in)e(left{righ)m(t)g(symmetric)g +(mo)s(dels)g(\(see)0 957 y Fq(PARU\(145\))39 b Fw(and)d(ref.)55 +b([Co)s(c91]\),)37 b(and)g(a)f(n)m(um)m(b)s(er)h(of)e(other)i(Higgs)e +(deca)m(y)j(c)m(hannels,)g(see)g(sections)0 1065 y(8.4.3)32 +b(and)h(8.4.4.)146 1173 y(The)44 b(W)458 1137 y Fk(0\006)579 +1173 y Fw(of)f(subpro)s(cess)h(142)e(so)h(far)f(do)s(es)h(not)g(con)m +(tain)f(in)m(terference)i(with)e(the)h(Standard)0 1282 +y(Mo)s(del)31 b(W)398 1245 y Fk(\006)489 1282 y Fw(|)g(in)g(practice)g +(this)g(should)h(not)f(b)s(e)h(a)f(ma)5 b(jor)30 b(limitation.)39 +b(The)32 b(couplings)f(of)g(the)h(W)3756 1245 y Fk(0)0 +1390 y Fw(to)40 b(quarks)i(and)e(leptons)h(are)f(set)h(via)f +Fq(PARU\(131\))54 b(-)d(PARU\(134\))p Fw(.)70 b(Again)39 +b(one)i(ma)m(y)f(set)h(v)m(ector)0 1498 y(and)29 b(axial)e(couplings)h +(freely)-8 b(,)30 b(separately)f(for)f(the)i(q)p 1946 +1445 52 4 v(q)1998 1462 y Fk(0)2050 1498 y Fw(and)f(the)g +Fj(`\027)2489 1513 y Fh(`)2551 1498 y Fw(deca)m(y)i(c)m(hannels.)43 +b(The)30 b(defaults)0 1607 y(corresp)s(ond)43 b(to)g(the)g +Fj(V)50 b Fn(\000)30 b Fj(A)43 b Fw(structure)h(of)e(the)h(Standard)g +(Mo)s(del)f(W)q(,)j(but)e(can)g(b)s(e)g(c)m(hanged)h(to)0 +1715 y(sim)m(ulate)35 b(a)h(wide)g(selection)g(of)g(mo)s(dels.)53 +b(One)37 b(p)s(ossible)e(limitation)d(is)k(that)g(the)g(same)g(Cabibb)s +(o{)0 1823 y(Koba)m(y)m(ashi{Mask)-5 b(a)m(w)m(a)34 b(quark)f(mixing)e +(matrix)g(is)h(assumed)h(as)g(for)f(the)h(standard)g(W)q(.)146 +1932 y(The)e(coupling)e(W)833 1896 y Fk(0)885 1932 y +Fn(!)e Fw(Z)1072 1896 y Fl(0)1111 1932 y Fw(W)32 b(can)e(b)s(e)g(set)h +(via)e Fq(PARU\(135\))54 b(-)d(PARU\(136\))p Fw(.)45 +b(F)-8 b(urther)31 b(commen)m(ts)0 2040 y(on)j(this)g(c)m(hannel)h(as)g +(for)e(Z)1018 2004 y Fk(0)1041 2040 y Fw(;)i(in)f(particular,)f +(default)h(couplings)f(again)g(agree)i(with)f(the)g(`extended)0 +2148 y(gauge)42 b(mo)s(del')f(of)h([Alt89)o(].)74 b(A)42 +b(W)1341 2112 y Fk(0)1410 2148 y Fn(!)i Fw(WH)1727 2112 +y Fl(0)1809 2148 y Fw(c)m(hannel)f(is)f(also)g(included,)j(in)d +(analogy)f(with)h(the)0 2257 y(Z)60 2221 y Fk(0)p Fl(0)146 +2257 y Fn(!)27 b Fw(Z)333 2221 y Fl(0)372 2257 y Fw(H)445 +2221 y Fl(0)517 2257 y Fw(one,)33 b(see)h Fq(PARU\(146\))p +Fw(.)146 2365 y(The)28 b(R)e(b)s(oson)g(\(particle)f(co)s(de)h(40\))g +(of)g(subpro)s(cess)i(144)e(represen)m(ts)j(one)d(p)s(ossible)g +(scenario)g(for)g(a)0 2473 y(horizon)m(tal)e(gauge)i(b)s(oson,)i(i.e.) +41 b(a)26 b(gauge)g(b)s(oson)g(that)g(couples)g(b)s(et)m(w)m(een)j(the) +d(generations,)h(inducing)0 2582 y(pro)s(cesses)h(lik)m(e)d(s)p +625 2503 55 4 v(d)j Fn(!)f Fw(R)906 2546 y Fl(0)973 2582 +y Fn(!)h Fj(\026)1160 2546 y Fk(\000)1218 2582 y Fw(e)1261 +2546 y Fl(+)1321 2582 y Fw(.)41 b(Exp)s(erimen)m(tal)25 +b(limits)d(on)k(\015a)m(v)m(our-c)m(hanging)g(neutral)f(curren)m(ts)0 +2690 y(forces)38 b(suc)m(h)h(a)e(b)s(oson)h(to)f(b)s(e)h(fairly)d(hea)m +(vy)-8 b(.)60 b(The)38 b(mo)s(del)e(implemen)m(ted)g(is)h(the)h(one)g +(describ)s(ed)g(in)0 2798 y([Ben85a].)0 3046 y Fo(8.5.3)112 +b(Lepto)s(quarks)0 3219 y Fq(MSEL)34 b Fw(=)e(25)0 3327 +y(ISUB)h(=)50 3423 y(145)99 b(q)347 3438 y Fh(i)375 3423 +y Fj(`)416 3438 y Fh(j)481 3423 y Fn(!)27 b Fw(L)669 +3438 y Fl(Q)50 3544 y Fw(162)99 b(qg)29 b Fn(!)e Fj(`)p +Fw(L)654 3559 y Fl(Q)50 3664 y Fw(163)99 b(gg)28 b Fn(!)g +Fw(L)611 3679 y Fl(Q)p 670 3586 61 4 v 670 3664 a Fw(L)731 +3679 y Fl(Q)50 3785 y Fw(164)99 b(q)347 3800 y Fh(i)p +375 3732 52 4 v 375 3785 a Fw(q)427 3808 y Fh(i)483 3785 +y Fn(!)27 b Fw(L)671 3800 y Fl(Q)p 730 3706 61 4 v 730 +3785 a Fw(L)791 3800 y Fl(Q)146 3895 y Fw(Sev)m(eral)34 +b(pro)s(cesses)i(that)e(can)g(generate)g(a)f(lepto)s(quark)h(ha)m(v)m +(e)h(b)s(een)f(included.)46 b(Curren)m(tly)35 b(only)0 +4003 y(one)44 b(lepto)s(quark)f(has)h(b)s(een)g(implemen)m(ted,)h(as)e +(particle)f(39,)k(denoted)e(L)2839 4018 y Fl(Q)2898 4003 +y Fw(.)76 b(The)45 b(lepto)s(quark)e(is)0 4111 y(assumed)c(to)g(carry)g +(sp)s(eci\014c)g(quark)h(and)e(lepton)h(quan)m(tum)g(n)m(um)m(b)s(ers,) +i(b)m(y)e(default)f(u)h(quark)h(plus)0 4220 y(electron.)55 +b(These)39 b(\015a)m(v)m(our)e(n)m(um)m(b)s(ers)g(are)g(conserv)m(ed,)j +(i.e.)55 b(a)36 b(pro)s(cess)i(suc)m(h)g(as)e(ue)3125 +4183 y Fk(\000)3219 4220 y Fn(!)e Fw(L)3414 4235 y Fl(Q)3508 +4220 y Fn(!)g Fw(d)p Fj(\027)3744 4235 y Fl(e)0 4328 +y Fw(is)j(not)h(allo)m(w)m(ed.)59 b(This)38 b(ma)m(y)g(b)s(e)g(a)f(bit) +g(restrictiv)m(e,)j(but)e(it)f(represen)m(ts)j(one)e(of)g(man)m(y)g +(lepto)s(quark)0 4436 y(p)s(ossibilities.)h(The)28 b(spin)f(of)f(the)i +(lepto)s(quark)f(is)g(assumed)g(to)g(b)s(e)g(zero,)i(i.e.)41 +b(its)27 b(deca)m(y)h(is)f(isotropical.)146 4545 y(Although)i(only)f +(one)i(lepto)s(quark)f(is)f(implemen)m(ted,)h(its)f(\015a)m(v)m(ours)j +(ma)m(y)e(b)s(e)g(c)m(hanged)h(arbitrarily)0 4653 y(to)44 +b(study)h(the)g(di\013eren)m(t)g(p)s(ossibilities.)75 +b(The)46 b(\015a)m(v)m(ours)f(of)f(the)h(lepto)s(quark)f(are)g +(de\014ned)i(b)m(y)f(the)0 4761 y(quark)28 b(and)g(lepton)e(\015a)m(v)m +(ours)j(in)e(the)g(deca)m(y)i(mo)s(de)e(list.)40 b(Since)27 +b(only)g(one)h(deca)m(y)h(c)m(hannel)e(is)g(allo)m(w)m(ed,)0 +4870 y(this)36 b(means)h(that)f(the)h(quark)g(\015a)m(v)m(our)g(is)f +(stored)h(in)f Fq(KFDP\(MDCY\(39,2\),1\))41 b Fw(and)36 +b(the)h(lepton)f(one)0 4978 y(in)44 b Fq(KFDP\(MDCY\(39,2\),2\))p +Fw(.)85 b(The)45 b(former)f(m)m(ust)h(alw)m(a)m(ys)g(b)s(e)g(a)g +(quark,)j(while)c(the)h(latter)f(could)0 5086 y(b)s(e)35 +b(a)f(lepton)g(or)g(an)g(an)m(tilepton;)h(a)f(c)m(harge-conjugate)h +(partner)g(is)f(automatically)d(de\014ned)36 b(b)m(y)f(the)0 +5195 y(program.)41 b(A)m(t)28 b(initialization,)c(the)k(c)m(harge)h(is) +f(recalculated)f(as)i(a)f(function)f(of)h(the)g(\015a)m(v)m(ours)i +(de\014ned;)0 5303 y(also)g(the)h(lepto)s(quark)f(name)g(is)g +(rede\014ned)i(to)f(b)s(e)f(of)g(the)h(t)m(yp)s(e)h Fq('LQ)p +2517 5303 31 4 v 37 w(\(q\)\(l\)')p Fw(,)h(where)f(actual)e(quark)0 +5411 y Fq(\(q\))j Fw(and)g(lepton)f Fq(\(l\))h Fw(\015a)m(v)m(ours)h +(are)f(displa)m(y)m(ed.)146 5520 y(The)49 b(L)423 5535 +y Fl(Q)535 5520 y Fn(!)54 b Fw(q)p Fj(`)48 b Fw(v)m(ertex)h(con)m +(tains)f(an)g(undetermined)g(Y)-8 b(uk)j(a)m(w)m(a)48 +b(coupling)f(strength,)52 b(whic)m(h)0 5628 y(a\013ects)30 +b(b)s(oth)g(the)f(width)h(of)f(the)h(lepto)s(quark)f(and)h(the)g(cross) +g(section)g(for)f(man)m(y)g(of)g(the)h(pro)s(duction)1817 +5953 y(134)p eop +%%Page: 135 141 +135 140 bop 0 -18 a Fw(graphs.)92 b(This)48 b(strength)h(ma)m(y)g(b)s +(e)f(c)m(hanged)i(in)e Fq(PARU\(151\))p Fw(.)93 b(The)50 +b(de\014nition)d(of)55 b Fq(PARU\(151\))0 90 y Fw(corresp)s(onds)26 +b(to)f(the)h Fj(k)i Fw(factor)c(of)h([Hew88],)i(i.e.)40 +b(to)25 b Fj(\025)1980 54 y Fl(2)2020 90 y Fj(=)p Fw(\(4)p +Fj(\031)t(\013)2277 105 y Fl(em)2370 90 y Fw(\),)i(where)f +Fj(\025)f Fw(is)g(the)g(Y)-8 b(uk)j(a)m(w)m(a)26 b(coupling)0 +198 y(strength)33 b(of)f([W)-8 b(ud86)q(].)43 b(Note)33 +b(that)f Fq(PARU\(151\))j Fw(is)d(th)m(us)i(quadratic)e(in)g(the)h +(coupling.)146 307 y(The)i(lepto)s(quark)f(is)f(lik)m(ely)f(to)i(b)s(e) +f(fairly)f(long-liv)m(ed,)g(in)h(whic)m(h)h(case)h(it)d(has)j(time)d +(to)h(fragmen)m(t)0 415 y(in)m(to)f(a)h(mesonic-)f(or)g(bary)m(onic-t)m +(yp)s(e)h(state,)h(whic)m(h)f(w)m(ould)g(deca)m(y)h(later)e(on.)44 +b(This)34 b(is)e(a)g(bit)g(tedious)0 523 y(to)g(handle;)g(therefore)h +(the)g(lepto)s(quark)f(is)g(alw)m(a)m(ys)h(assumed)g(to)f(deca)m(y)h(b) +s(efore)g(fragmen)m(tation)d(has)0 632 y(to)k(b)s(e)h(considered.)51 +b(This)35 b(ma)m(y)f(giv)m(e)h(some)f(imp)s(erfections)f(in)h(the)i(ev) +m(en)m(t)g(generation,)f(but)g(should)0 740 y(not)d(b)s(e)h(o\013)f(b)m +(y)i(m)m(uc)m(h)f(in)f(the)h(\014nal)f(analysis.)146 +848 y(Inside)k(the)f(program,)g(the)g(lepto)s(quark)g(is)g(treated)g +(as)g(a)g(resonance.)52 b(Since)35 b(it)f(carries)h(colour,)0 +957 y(some)e(extra)h(care)f(is)g(required.)46 b(In)33 +b(particular,)f(it)g(is)h(not)g(allo)m(w)m(ed)g(to)f(put)i(the)g(lepto) +s(quark)f(stable,)0 1065 y(b)m(y)47 b(mo)s(difying)c(either)i +Fq(MDCY\(39,1\))k Fw(or)c Fq(MSTP\(41\))p Fw(:)72 b(then)46 +b(the)g(lepto)s(quark)g(w)m(ould)g(b)s(e)g(handed)0 1173 +y(undeca)m(y)m(ed)32 b(to)d Fm(Jetset)p Fw(,)f(whic)m(h)i(w)m(ould)f +(try)h(to)e(fragmen)m(t)h(it)f(\(as)h(it)f(do)s(es)i(with)f(an)m(y)h +(other)f(coloured)0 1282 y(ob)5 b(ject\),)33 b(and)g(most)f(lik)m(ely)f +(crash.)0 1529 y Fo(8.5.4)112 b(Comp)s(ositeness)38 b(and)g(anomalous)g +(couplings)0 1702 y Fw(ISUB)33 b(=)99 1798 y(11)99 b(f)326 +1813 y Fh(i)354 1798 y Fw(f)384 1813 y Fh(j)448 1798 +y Fn(!)27 b Fw(f)605 1813 y Fh(i)633 1798 y Fw(f)663 +1813 y Fh(j)732 1798 y Fw(\(QCD\))99 1919 y(12)99 b(f)326 +1934 y Fh(i)p 354 1839 37 4 v 354 1919 a Fw(f)391 1934 +y Fh(i)446 1919 y Fn(!)28 b Fw(f)604 1934 y Fh(k)p 646 +1839 V 646 1919 a Fw(f)683 1934 y Fh(k)99 2039 y Fw(20)99 +b(f)326 2054 y Fh(i)p 354 1960 V 354 2039 a Fw(f)391 +2054 y Fh(j)455 2039 y Fn(!)27 b Fj(\015)5 b Fw(W)739 +2003 y Fl(+)50 2159 y Fw(165)99 b(f)326 2174 y Fh(i)p +354 2080 V 354 2159 a Fw(f)391 2174 y Fh(i)446 2159 y +Fn(!)28 b Fw(f)604 2174 y Fh(k)p 646 2080 V 646 2159 +a Fw(f)683 2174 y Fh(k)758 2159 y Fw(\(via)k Fj(\015)1012 +2123 y Fk(\003)1051 2159 y Fj(=)p Fw(Z)1160 2123 y Fl(0)1199 +2159 y Fw(\))50 2280 y(166)99 b(f)326 2295 y Fh(i)p 354 +2201 V 354 2280 a Fw(f)391 2295 y Fh(j)455 2280 y Fn(!)27 +b Fw(f)612 2295 y Fh(k)p 654 2201 V 654 2280 a Fw(f)691 +2295 y Fh(l)750 2280 y Fw(\(via)32 b(W)1049 2244 y Fk(\006)1108 +2280 y Fw(\))146 2390 y(Some)41 b(pro)s(cesses)i(ha)m(v)m(e)f(b)s(een)g +(set)f(up)h(to)e(allo)m(w)g(anomalous)f(coupling)g(to)i(b)s(e)g(in)m +(tro)s(duced,)i(in)0 2498 y(addition)d(to)h(the)i(Standard)f(Mo)s(del)f +(ones.)72 b(These)43 b(can)f(b)s(e)g(switc)m(hed)h(on)f(b)m(y)i +Fq(MSTP\(5\))p Fn(\025)i Fw(1;)g(the)0 2606 y(default)32 +b Fq(MSTP\(5\)=0)j Fw(corresp)s(onds)f(to)e(the)h(Standard)g(Mo)s(del)f +(b)s(eha)m(viour.)146 2715 y(In)42 b(pro)s(cesses)i(11)c(and)i(12,)h +(the)f(quark)g(substructure)i(is)d(included)g(in)f(the)i(left{left)e +(isoscalar)0 2823 y(mo)s(del)46 b([Eic84,)h(Chi90])g(for)h +Fq(MSTP\(5\)=1)p Fw(,)54 b(with)47 b(comp)s(ositeness)h(scale)g(\003)f +(giv)m(en)h(in)f Fq(PARU\(155\))0 2931 y Fw(\(default)31 +b(1000)f(GeV\))h(and)h(sign)f Fj(\021)k Fw(of)c(in)m(terference)h(term) +f(in)g Fq(PARU\(156\))i Fw(\(default)e(+1;)g(only)g(other)0 +3040 y(alternativ)m(e)47 b Fn(\000)p Fw(1\).)88 b(The)48 +b(ab)s(o)m(v)m(e)g(mo)s(del)e(assumes)j(that)e(only)g(u)g(and)h(d)f +(quarks)i(are)f(comp)s(osite)0 3148 y(\(at)35 b(least)h(at)f(the)i +(scale)e(studied\);)j(with)e Fq(MSTP\(5\)=2)i Fw(comp)s(ositeness)e +(terms)g(are)g(included)f(in)g(the)0 3257 y(in)m(teractions)d(b)s(et)m +(w)m(een)j(all)30 b(quarks.)146 3365 y(The)42 b(pro)s(cesses)h(165)e +(and)g(166)f(are)h(basically)f(equiv)-5 b(alen)m(t)40 +b(to)h(1)g(and)g(2,)i(i.e.)68 b Fj(\015)3192 3329 y Fk(\003)3232 +3365 y Fj(=)p Fw(Z)3341 3329 y Fl(0)3421 3365 y Fw(and)41 +b(W)3720 3329 y Fk(\006)0 3473 y Fw(exc)m(hange,)27 b(resp)s(ectiv)m +(ely)-8 b(,)26 b(but)e(a)f(bit)g(less)g(fancy)h(\(no)g(mass-dep)s +(enden)m(t)h(width)e(etc.\).)41 b(The)24 b(reason)g(for)0 +3582 y(this)30 b(duplication)e(is)h(that)h(the)h(resonance)g(treatmen)m +(t)f(formalism)d(of)j(pro)s(cesses)i(1)e(and)g(2)g(could)g(not)0 +3690 y(easily)d(b)s(e)h(extended)i(to)e(include)g(other)g(than)g +Fj(s)p Fw(-c)m(hannel)g(graphs.)42 b(In)28 b(pro)s(cesses)i(165)e(and)g +(166,)g(only)0 3798 y(one)i(\014nal-state)f(\015a)m(v)m(our)h(is)f +(generated)h(at)g(the)g(time;)f(this)g(\015a)m(v)m(our)h(should)g(b)s +(e)g(set)g(in)f Fq(KFPR\(165,1\))0 3907 y Fw(and)43 b +Fq(KFPR\(166,1\))p Fw(,)49 b(resp)s(ectiv)m(ely)-8 b(.)76 +b(F)-8 b(or)42 b(pro)s(cess)i(166)f(one)g(giv)m(es)h(the)f(do)m(wn-t)m +(yp)s(e)i(\015a)m(v)m(our,)h(and)0 4015 y(the)j(program)e(will)f(asso)s +(ciate)i(the)h(up-t)m(yp)s(e)g(\015a)m(v)m(our)g(of)f(the)h(same)f +(generation.)90 b(Defaults)47 b(are)0 4123 y(11)e(in)f(b)s(oth)i +(cases,)k(i.e.)81 b(e)1050 4087 y Fl(+)1110 4123 y Fw(e)1153 +4087 y Fk(\000)1257 4123 y Fw(and)46 b(e)1503 4087 y +Fl(+)1562 4123 y Fj(\027)1610 4138 y Fl(e)1691 4123 y +Fw(\(e)1772 4087 y Fk(\000)p 1832 4070 55 4 v 1832 4123 +a Fj(\027)1886 4138 y Fl(e)1922 4123 y Fw(\))f(\014nal)f(states.)83 +b(While)45 b Fq(MSTP\(5\)=0)i Fw(giv)m(es)f(the)0 4232 +y(Standard)29 b(Mo)s(del)f(results,)j Fq(MSTP\(5\)=1)g +Fw(con)m(tains)e(the)g(left{left)e(isoscalar)h(mo)s(del)f(\(whic)m(h)i +(do)s(es)h(not)0 4340 y(a\013ect)25 b(pro)s(cess)i(166\),)e(and)h +Fq(MSTP\(5\)=3)h Fw(the)e(helicit)m(y-non-conserving)f(mo)s(del)g +(\(whic)m(h)h(a\013ects)h(b)s(oth\))0 4448 y([Eic84)o(,)31 +b(Lan91].)42 b(Both)31 b(mo)s(dels)e(ab)s(o)m(v)m(e)j(assume)f(that)f +(only)g(u)h(and)f(d)h(quarks)h(are)f(comp)s(osite;)f(with)0 +4557 y Fq(MSTP\(5\)=)f Fw(2)d(or)g(4,)i(resp)s(ectiv)m(ely)-8 +b(,)29 b(con)m(tact)e(terms)f(are)h(included)f(for)g(all)e(quarks)k(in) +e(the)h(initial)c(state.)0 4665 y(P)m(arameters)33 b(are)g +Fq(PARU\(155\))i Fw(and)d Fq(PARU\(156\))p Fw(,)j(as)e(ab)s(o)m(v)m(e.) +146 4773 y(Note)i(that)g(pro)s(cesses)h(165)e(and)h(166)f(are)g(b)s(o)s +(okk)m(ept)i(as)f(2)c Fn(!)g Fw(2)j(pro)s(cesses,)j(while)d(1)g(and)h +(2)f(are)0 4882 y(2)i Fn(!)h Fw(1)g(ones.)60 b(This)38 +b(means)g(that)g(the)g(default)f(Q)1910 4845 y Fl(2)1988 +4882 y Fw(scale)g(in)h(parton)f(distributions)g(is)g +Fj(p)3393 4845 y Fl(2)3393 4906 y Fk(?)3490 4882 y Fw(for)g(the)0 +4990 y(former)c(and)38 b(^)-53 b Fj(s)34 b Fw(for)g(the)h(latter.)47 +b(T)-8 b(o)34 b(mak)m(e)g(con)m(tact)h(b)s(et)m(w)m(een)h(the)f(t)m(w)m +(o,)g(it)e(is)h(recommended)g(to)g(set)0 5098 y Fq(MSTP\(32\)=4)p +Fw(,)h(so)e(as)g(to)f(use)38 b(^)-53 b Fj(s)32 b Fw(as)h(scale)f(also)g +(for)g(pro)s(cesses)j(165)d(and)g(166.)146 5207 y(In)41 +b(pro)s(cess)h(20,)g(for)e(W)q Fj(\015)46 b Fw(pair)39 +b(pro)s(duction,)j(it)e(is)f(p)s(ossible)h(to)g(set)i(an)e(anomalous)f +(magnetic)0 5315 y(momen)m(t)26 b(for)h(the)h(W)h(in)d +Fq(PARU\(153\))k Fw(\(=)d Fj(\021)32 b Fw(=)27 b Fj(\024)11 +b Fn(\000)g Fw(1;)30 b(where)f Fj(\024)f Fw(=)f(1)g(is)g(the)h +(Standard)f(Mo)s(del)g(v)-5 b(alue\).)0 5423 y(The)35 +b(pro)s(duction)f(pro)s(cess)i(is)d(a\013ected)j(according)d(to)h(the)h +(form)m(ulae)e(of)h([Sam91)o(],)h(while)e(W)j(deca)m(y)0 +5532 y(curren)m(tly)d(remains)f(una\013ected.)45 b(It)32 +b(is)g(necessary)j(to)e(set)g Fq(MSTP\(5\)=1)i Fw(to)d(enable)g(this)h +(extension.)1817 5953 y(135)p eop +%%Page: 136 142 +136 141 bop 0 -18 a Fo(8.5.5)112 b(Excited)36 b(fermions)0 +154 y Fw(ISUB)d(=)50 250 y(147)99 b(dg)29 b Fn(!)e Fw(d)609 +214 y Fk(\003)50 371 y Fw(148)99 b(ug)29 b Fn(!)e Fw(u)609 +335 y Fk(\003)50 491 y Fw(167)99 b(qq)398 455 y Fk(0)450 +491 y Fn(!)27 b Fw(q)628 455 y Fk(00)671 491 y Fw(d)725 +455 y Fk(\003)50 612 y Fw(168)99 b(qq)398 575 y Fk(0)450 +612 y Fn(!)27 b Fw(q)628 575 y Fk(00)671 612 y Fw(u)725 +575 y Fk(\003)146 722 y Fw(Comp)s(ositeness)32 b(scenarios)g(ma)m(y)g +(also)e(giv)m(e)i(rise)f(to)h(sharp)g(resonances)h(of)e(excited)h +(quarks)h(and)0 830 y(leptons.)55 b(If)43 b Fq(MSTP\(6\)=1)p +Fw(,)d(then)d(at)f(initialization)30 b(the)37 b(standard)g(fourth)f +(generation)g(of)g(fermions)0 938 y(will)g(b)s(e)j(o)m(v)m(erwritten,)i +(and)e(made)f(to)g(corresp)s(ond)h(to)g(an)f(excited)h(cop)m(y)h(of)e +(the)h(\014rst)g(generation,)0 1047 y(consisting)30 b(of)g(spin)h(1)p +Fj(=)p Fw(2)f(particles)g(d)1383 1010 y Fk(\003)1454 +1047 y Fw(\(co)s(de)h(7\),)g(u)1914 1010 y Fk(\003)1984 +1047 y Fw(\(8\),)g(e)2210 1010 y Fk(\003)2280 1047 y +Fw(\(17\))g(and)g Fj(\027)2727 1010 y Fk(\003)2721 1071 +y Fl(e)2797 1047 y Fw(\(18\).)43 b(Since)31 b(the)g(original)0 +1155 y(fourth-generation)d(information)e(is)i(lost,)h(it)f(is)h(then)g +(not)g(p)s(ossible)f(to)h(generate)h(fourth-generation)0 +1263 y(particles)i(in)g(the)h(same)f(run.)146 1372 y(The)45 +b(curren)m(t)g(implemen)m(tation)c(con)m(tains)j(gauge)g(in)m +(teraction)f(pro)s(duction)g(b)m(y)i(quark{gluon)0 1480 +y(fusion)g(\(pro)s(cesses)i(147)d(and)h(148\))g(and)g(con)m(tact)h(in)m +(teraction)e(pro)s(duction)g(b)m(y)i(quark{quark)h(or)0 +1588 y(quark{an)m(tiquark)h(scattering)f(\(pro)s(cesses)i(167)e(and)g +(168\))g(.)87 b(The)48 b(couplings)f Fj(f)11 b Fw(,)50 +b Fj(f)3286 1552 y Fk(0)3356 1588 y Fw(and)e Fj(f)3609 +1603 y Fh(s)3693 1588 y Fw(to)0 1697 y(the)41 b Fo(SU\(2\))p +Fw(,)i Fo(U\(1\))d Fw(and)h Fo(SU\(3\))f Fw(groups)h(are)g(stored)h(in) +e Fq(PARU\(157\))53 b(-)f(PARU\(159\))p Fw(,)45 b(the)c(scale)0 +1805 y(parameter)33 b(\003)g(in)f Fq(PARU\(155\))p Fw(;)k(y)m(ou)e(are) +f(also)g(exp)s(ected)i(to)e(c)m(hange)h(the)g(f)2805 +1769 y Fk(\003)2877 1805 y Fw(masses)g(in)e(accordance)0 +1913 y(with)d(what)h(is)g(desired)g(|)f(see)i([Bau90])f(for)f(details)g +(on)g(con)m(v)m(en)m(tions.)45 b(Deca)m(y)30 b(pro)s(cesses)i(are)e(of) +f(the)0 2022 y(t)m(yp)s(es)37 b(q)312 1985 y Fk(\003)384 +2022 y Fn(!)c Fw(qg)q(,)j(q)732 1985 y Fk(\003)805 2022 +y Fn(!)c Fw(q)p Fj(\015)5 b Fw(,)37 b(q)1159 1985 y Fk(\003)1231 +2022 y Fn(!)c Fw(qZ)1475 1985 y Fl(0)1550 2022 y Fw(or)i(q)1723 +1985 y Fk(\003)1795 2022 y Fn(!)d Fw(q)1978 1985 y Fk(0)2002 +2022 y Fw(W)2103 1985 y Fk(\006)2163 2022 y Fw(.)52 b(A)35 +b(non-trivial)e(angular)h(dep)s(endence)k(is)0 2130 y(included)25 +b(in)f(the)i(q)701 2094 y Fk(\003)766 2130 y Fw(deca)m(y)g(for)f(pro)s +(cesses)i(147)e(and)g(148,)h(but)f(has)h(not)f(b)s(een)h(included)f +(for)f(pro)s(cesses)0 2238 y(167)32 b(and)h(168.)0 2486 +y Fo(8.5.6)112 b(T)-9 b(ec)m(hnicolor)0 2659 y Fw(ISUB)33 +b(=)50 2770 y(149)99 b(gg)28 b Fn(!)g Fj(\021)598 2785 +y Fl(tec)n(hni)146 2875 y Fw(The)44 b(tec)m(hnicolor)e(scenario)h +(o\013ers)h(an)e(alternativ)m(e)h(to)f(the)h(ordinary)g(Higgs)f(mec)m +(hanism)g(for)0 2984 y(giving)f(masses)j(to)f(the)h(W)g(and)f(Z.)75 +b(The)44 b(tec)m(hnicolor)f(gauge)f(group)h(is)g(an)g(analogue)f(of)h +(QCD,)0 3092 y(with)29 b(a)f(ric)m(h)h(sp)s(ectrum)h(of)e(tec)m +(hnimesons)i(made)f(out)g(of)f(tec)m(hniquarks.)44 b(Three)30 +b(of)f(the)g(tec)m(hnipions)0 3200 y(assume)34 b(the)h(role)e(of)g(the) +h(longitudinal)d(comp)s(onen)m(ts)j(of)f(the)i(W)g(and)f(Z)f(b)s +(osons,)i(but)f(man)m(y)g(other)0 3309 y(states)24 b(remain)d(as)i +(separate)g(particles.)40 b(No)22 b(fully)g(realistic)e(mo)s(del)h(has) +j(b)s(een)f(found)g(so)g(far,)h(ho)m(w)m(ev)m(er,)0 3417 +y(so)33 b(an)m(y)g(phenomenology)f(has)h(to)f(b)s(e)h(tak)m(en)h(as)e +(indicativ)m(e)g(only)-8 b(.)146 3525 y(In)29 b(section)f(8.4.2)f(it)g +(is)h(discussed)h(ho)m(w)g(pro)s(cesses)h(71{77,)e(in)f(some)h(of)f +(its)h(options,)g(can)g(b)s(e)g(used)0 3634 y(to)k(sim)m(ulate)f(a)i +(scenario)f(with)g(tec)m(hni-)p Fj(\032)h Fw(resonances)h(in)e +(longitudinal)d(gauge)k(b)s(oson)f(scattering.)146 3742 +y(Here)25 b(w)m(e)g(presen)m(t)h(another)e(pro)s(cess,)j(that)d(of)g +(the)g(pro)s(duction)f(of)h(a)g(tec)m(hni-)p Fj(\021)t +Fw(.)40 b(This)24 b(particle)f(has)0 3851 y(zero)38 b(spin,)h(is)f(a)f +(singlet)g(under)h(electro)m(w)m(eak)i Fo(SU\(2\))p Fn(\002)p +Fo(U\(1\))p Fw(,)e(but)g(carries)g(o)s(ctet)g(colour)f(c)m(harge.)0 +3959 y(It)30 b(is)f(one)h(of)g(the)g(p)s(ossible)f(tec)m(hni-)p +Fj(\031)34 b Fw(particles;)c(the)g(name)g(tec)m(hni-)p +Fj(\021)j Fw(is)d(part)f(of)h(a)f(sub)s(classi\014cation)0 +4067 y(not)j(used)i(b)m(y)g(all)c(authors.)146 4176 y(The)d(tec)m(hni-) +p Fj(\021)i Fw(couples)e(to)e(ordinary)g(fermions)g(according)g(to)h +(the)g(fermion)e(squared)j(mass.)42 b(The)0 4284 y(dominan)m(t)c(deca)m +(y)i(mo)s(de)e(is)h(therefore)g(t)p 1547 4213 38 4 v(t,)i(if)d(allo)m +(w)m(ed.)62 b(The)39 b(coupling)f(to)h(a)f(gg)i(state)g(is)e(roughly)0 +4392 y(comparable)e(with)h(that)h(to)f(b)p 1147 4313 +55 4 v(b.)59 b(Pro)s(duction)37 b(at)g(hadron)h(colliders)d(is)j +(therefore)g(predominan)m(tly)0 4501 y(through)33 b(gg)g(fusion,)f(as)h +(implemen)m(ted)e(in)h(pro)s(cess)i(149.)146 4609 y(The)g(t)m(w)m(o)f +(main)e(free)h(parameters)h(are)f(the)h(tec)m(hni-)p +Fj(\021)j Fw(mass)c(and)h(the)g(deca)m(y)h(constan)m(t)f +Fj(F)3494 4624 y Fh(\031)3541 4609 y Fw(.)44 b(The)0 +4717 y(latter)25 b(app)s(ears)i(in)m(v)m(ersely)g(quadratically)e(in)g +(all)f(the)j(partial)d(widths.)42 b(Also)26 b(the)g(total)f(cross)i +(section)0 4826 y(is)39 b(a\013ected,)i(since)f(the)g(cross)g(section)f +(is)g(prop)s(ortional)d(to)j(the)h(gg)g(partial)d(width.)63 +b Fj(F)3328 4841 y Fh(\031)3414 4826 y Fw(is)39 b(stored)0 +4934 y(in)34 b Fq(PARP\(46\))i Fw(and)e(has)h(the)g(default)e(v)-5 +b(alue)34 b(123)g(GeV,)g(whic)m(h)h(is)f(the)g(n)m(um)m(b)s(er)h +(predicted)g(in)f(some)0 5042 y(mo)s(dels.)0 5316 y Fp(8.6)135 +b(Main)45 b(Pro)t(cesses)h(b)l(y)e(Mac)l(hine)0 5489 +y Fw(In)k(the)h(previous)g(section)f(w)m(e)h(ha)m(v)m(e)g(already)f +(commen)m(ted)g(on)g(whic)m(h)h(pro)s(cesses)h(ha)m(v)m(e)f(limited)0 +5597 y(v)-5 b(alidit)m(y)d(,)37 b(or)g(ha)m(v)m(e)i(di\013eren)m(t)e +(meanings)g(\(according)g(to)g(con)m(v)m(en)m(tional)g(terminology\))f +(in)g(di\013eren)m(t)1817 5953 y(136)p eop +%%Page: 137 143 +137 142 bop 0 -18 a Fw(con)m(texts.)78 b(Let)43 b(us)h(just)g(rep)s +(eat)f(a)g(few)h(of)f(the)h(main)d(p)s(oin)m(ts)i(to)g(b)s(e)h(remem)m +(b)s(ered)f(for)g(di\013eren)m(t)0 90 y(mac)m(hines.)0 +338 y Fo(8.6.1)112 b Fw(e)385 301 y Fl(+)445 338 y Fw(e)488 +301 y Fk(\000)585 338 y Fo(collisions)0 510 y Fw(The)46 +b(main)c(annihilation)f(pro)s(cess)46 b(is)e(n)m(um)m(b)s(er)h(1,)j(e) +2018 474 y Fl(+)2077 510 y Fw(e)2120 474 y Fk(\000)2228 +510 y Fn(!)g Fw(Z)2436 474 y Fl(0)2475 510 y Fw(,)f(where)f(in)e(fact)g +(the)h(full)e Fj(\015)3592 474 y Fk(\003)3632 510 y Fj(=)p +Fw(Z)3741 474 y Fl(0)0 619 y Fw(in)m(terference)25 b(structure)g(is)e +(included.)40 b(This)24 b(pro)s(cess)g(can)g(b)s(e)g(used,)j(with)c +(some)g(con\014dence,)28 b(for)23 b(c.m.)0 727 y(energies)41 +b(from)e(ab)s(out)h(4)g(GeV)h(up)m(w)m(ards,)j(i.e.)67 +b(at)40 b(DORIS/CESR,)h(PETRA/PEP)-8 b(,)42 b(TRIST)-8 +b(AN,)0 835 y(LEP)g(,)29 b(and)g(an)m(y)g(future)g(linear)e(colliders.) +40 b(\(T)-8 b(o)29 b(get)f(b)s(elo)m(w)g(10)g(GeV,)h(y)m(ou)g(ha)m(v)m +(e)h(to)e(c)m(hange)i Fq(PARP\(2\))p Fw(,)0 944 y(ho)m(w)m(ev)m(er.\)) +44 b(This)29 b(is)e(the)i(default)e(pro)s(cess)j(obtained)d(when)i +Fq(MSEL=1)p Fw(,)i(i.e.)42 b(when)29 b(y)m(ou)g(do)f(not)g(c)m(hange)0 +1052 y(an)m(ything)k(y)m(ourself.)146 1160 y(Pro)s(cess)j(141)e(con)m +(tains)g(a)g(Z)1204 1124 y Fk(0)p Fl(0)1262 1160 y Fw(,)h(including)d +(full)h(in)m(terference)i(with)f(the)h(standard)g Fj(\015)3300 +1124 y Fk(\003)3339 1160 y Fj(=)p Fw(Z)3448 1124 y Fl(0)3487 +1160 y Fw(.)46 b(With)0 1269 y(the)41 b(v)-5 b(alue)40 +b Fq(MSTP\(44\)=4)j Fw(in)c(fact)h(one)h(is)f(bac)m(k)h(at)f(the)h +(standard)g Fj(\015)2612 1233 y Fk(\003)2651 1269 y Fj(=)p +Fw(Z)2760 1233 y Fl(0)2839 1269 y Fw(structure,)j(i.e.)67 +b(the)40 b(Z)3721 1233 y Fk(0)p Fl(0)0 1377 y Fw(piece)f(has)h(b)s(een) +f(switc)m(hed)i(o\013.)62 b(Ev)m(en)41 b(so,)g(this)d(pro)s(cess)j(ma)m +(y)d(b)s(e)i(useful,)g(since)g(it)e(can)h(sim)m(ulate)0 +1485 y(e.g.)77 b(e)266 1449 y Fl(+)326 1485 y Fw(e)369 +1449 y Fk(\000)475 1485 y Fn(!)47 b Fw(H)695 1449 y Fl(0)734 +1485 y Fw(A)807 1449 y Fl(0)847 1485 y Fw(.)77 b(Since)44 +b(the)g(H)1469 1449 y Fl(0)1552 1485 y Fw(ma)m(y)g(in)f(its)g(turn)h +(deca)m(y)i(to)d(Z)2748 1449 y Fl(0)2787 1485 y Fw(Z)2847 +1449 y Fl(0)2886 1485 y Fw(,)k(a)c(deca)m(y)j(c)m(hannel)e(of)0 +1594 y(the)34 b(ordinary)e(Z)622 1558 y Fl(0)694 1594 +y Fw(to)h(H)887 1558 y Fl(0)926 1594 y Fw(A)999 1558 +y Fl(0)1039 1594 y Fw(,)g(although)f(ph)m(ysically)h(correct,)h(w)m +(ould)f(b)s(e)g(tec)m(hnically)f(confusing.)45 b(In)0 +1702 y(particular,)30 b(it)h(w)m(ould)h(b)s(e)g(messy)g(to)g(set)g(the) +h(original)28 b(Z)2122 1666 y Fl(0)2193 1702 y Fw(to)j(deca)m(y)i(one)f +(w)m(a)m(y)h(and)f(the)g(subsequen)m(t)0 1810 y(ones)37 +b(another.)56 b(So,)37 b(in)f(this)g(sense,)k(the)d(Z)1623 +1774 y Fk(0)p Fl(0)1717 1810 y Fw(could)g(b)s(e)f(used)i(as)f(a)f(cop)m +(y)i(of)e(the)h(ordinary)f(Z)3530 1774 y Fl(0)3569 1810 +y Fw(,)h(but)0 1919 y(with)32 b(a)g(distinguishable)f(lab)s(el.)146 +2027 y(The)39 b(pro)s(cess)h(e)741 1991 y Fl(+)800 2027 +y Fw(e)843 1991 y Fk(\000)939 2027 y Fn(!)d Fw(\007)h(do)s(es)g(not)g +(exist)h(as)f(a)g(separate)g(pro)s(cess)i(in)d Fm(Pythia)p +Fw(,)j(but)e(can)g(b)s(e)0 2135 y(sim)m(ulated)31 b(b)m(y)j(using)f +Fq(LUONIA)p Fw(,)i(see)e(section)g(6.2.)146 2244 y(A)m(t)k(LEP)f(2)g +(and)g(ev)m(en)h(higher)e(energy)i(mac)m(hines,)g(the)f(simple)f +Fj(s)p Fw(-c)m(hannel)h(pro)s(cess)h(1)e(will)f(lose)0 +2352 y(out)44 b(to)g(other)g(pro)s(cesses,)49 b(suc)m(h)d(as)e(e)1451 +2316 y Fl(+)1511 2352 y Fw(e)1554 2316 y Fk(\000)1661 +2352 y Fn(!)j Fw(Z)1868 2316 y Fl(0)1907 2352 y Fw(Z)1967 +2316 y Fl(0)2050 2352 y Fw(and)d(e)2294 2316 y Fl(+)2354 +2352 y Fw(e)2397 2316 y Fk(\000)2503 2352 y Fn(!)k Fw(W)2752 +2316 y Fl(+)2811 2352 y Fw(W)2912 2316 y Fk(\000)2972 +2352 y Fw(,)f(i.e.)78 b(pro)s(cesses)46 b(22)0 2460 y(and)33 +b(25.)43 b(The)33 b(former)f(pro)s(cess)h(in)f(fact)g(includes)h(the)g +(structure)g(e)2518 2424 y Fl(+)2578 2460 y Fw(e)2621 +2424 y Fk(\000)2708 2460 y Fn(!)27 b Fw(\()p Fj(\015)2929 +2424 y Fk(\003)2968 2460 y Fj(=)p Fw(Z)3077 2424 y Fl(0)3116 +2460 y Fw(\)\()p Fj(\015)3248 2424 y Fk(\003)3288 2460 +y Fj(=)p Fw(Z)3397 2424 y Fl(0)3435 2460 y Fw(\),)33 +b(whic)m(h)0 2569 y(means)40 b(that)f(the)h(cross)g(section)g(is)f +(singular)f(if)g(either)i(of)f(the)h(t)m(w)m(o)g Fj(\015)2679 +2533 y Fk(\003)2718 2569 y Fj(=)p Fw(Z)2827 2533 y Fl(0)2906 +2569 y Fw(masses)g(is)f(allo)m(w)m(ed)g(to)0 2677 y(v)-5 +b(anish.)56 b(A)36 b(mass)h(cut)g(therefore)h(needs)g(to)e(b)s(e)h(in)m +(tro)s(duced,)h(and)f(is)f(actually)g(also)f(used)j(in)e(other)0 +2785 y(pro)s(cesses,)f(suc)m(h)f(as)f(e)832 2749 y Fl(+)891 +2785 y Fw(e)934 2749 y Fk(\000)1021 2785 y Fn(!)27 b +Fw(W)1249 2749 y Fl(+)1309 2785 y Fw(W)1410 2749 y Fk(\000)1470 +2785 y Fw(.)146 2894 y(F)-8 b(or)41 b(practical)e(applications,)j(b)s +(oth)e(with)h(resp)s(ect)i(to)d(cross)i(sections)g(and)f(to)g(ev)m(en)m +(t)i(shap)s(es,)0 3002 y(it)g(is)h(imp)s(erativ)m(e)f(to)g(include)h +(initial-state)d(radiation)g(e\013ects.)80 b(Therefore)46 +b Fq(MSTP\(11\)=1)g Fw(is)e(the)0 3111 y(default,)33 +b(wherein)g(exp)s(onen)m(tiated)h(electron-inside-electron)e +(distributions)g(are)h(used)h(to)f(giv)m(e)g(the)0 3219 +y(momen)m(tum)41 b(of)i(the)g(actually)e(in)m(teracting)h(electron.)74 +b(By)43 b(radiativ)m(e)e(corrections)i(to)g(pro)s(cess)h(1,)0 +3327 y(suc)m(h)37 b(pro)s(cesses)g(as)e(e)812 3291 y +Fl(+)871 3327 y Fw(e)914 3291 y Fk(\000)1006 3327 y Fn(!)d +Fj(\015)5 b Fw(Z)1254 3291 y Fl(0)1328 3327 y Fw(are)35 +b(therefore)g(automatically)d(generated.)52 b(If)35 b(pro)s(cess)i(19)d +(w)m(ere)0 3436 y(to)f(b)s(e)g(used)h(at)f(the)h(same)f(time,)f(this)h +(w)m(ould)g(mean)f(that)h(radiation)e(w)m(ere)k(to)d(b)s(e)i +(double-coun)m(ted.)0 3544 y(In)i(the)h(alternativ)m(e)e +Fq(MSTP\(11\)=0)p Fw(,)40 b(electrons)c(are)g(assumed)h(to)e(dep)s +(osit)h(their)g(full)e(energy)j(in)e(the)0 3652 y(hard)f(pro)s(cess,)h +(i.e.)46 b(initial-state)30 b(QED)j(radiation)e(is)i(not)h(included.)46 +b(This)34 b(option)e(is)h(v)m(ery)i(useful,)0 3761 y(since)e(it)f +(often)g(corresp)s(onds)i(to)e(the)h(`ideal')e(ev)m(en)m(ts)k(that)e +(one)g(w)m(an)m(ts)h(to)e(correct)h(bac)m(k)h(to.)146 +3869 y(Resolv)m(ed)f(electrons)g(also)e(means)h(that)g(one)g(ma)m(y)g +(ha)m(v)m(e)h(in)m(teractions)e(b)s(et)m(w)m(een)j(photons.)44 +b(This)0 3977 y(op)s(ens)27 b(up)h(the)f(whole)g(\014eld)f(of)h +Fj(\015)5 b(\015)31 b Fw(pro)s(cesses,)g(whic)m(h)c(is)f(describ)s(ed)i +(in)e(section)h(8.3.2.)41 b(In)27 b(particular,)0 4086 +y(with)h Fq(MSTP\(12\)=1)k Fw(photons)d(ma)m(y)f(b)s(e)h(resolv)m(ed,)i +(i.e.)41 b(photons)29 b(need)h(not)f(only)f(in)m(teract)g(p)s(oin)m +(t-lik)m(e,)0 4194 y(but)i(can)h(also)e(in)m(teract)h(lik)m(e)g(a)f +(hadron)i(with)e(a)h(partonic)g(substructure.)45 b(The)31 +b(whole)f(menagerie)f(of)0 4302 y(hadron{hadron)h(collider)f(pro)s +(cesses)k(can)d(then)i(b)s(e)f(accessed.)45 b(Ho)m(w)m(ev)m(er,)33 +b(it)d(is)g(not)g(y)m(et)i(p)s(ossible)e(to)0 4411 y(include)25 +b(the)h(lo)m(w-)p Fj(p)716 4426 y Fk(?)800 4411 y Fw(pro)s(cesses)i +(with)d(a)g(v)-5 b(ariable)24 b(photon)i(energy)g(sp)s(ectrum.)42 +b(That)26 b(is,)h(to)e(generate)0 4519 y(the)33 b(`total')e +Fj(\015)5 b(\015)38 b Fw(sp)s(ectrum,)33 b(the)g(program)e(also)h(has)h +(to)f(b)s(e)h(initialized)28 b(for)33 b(a)f Fj(\015)5 +b(\015)37 b Fw(collider.)146 4627 y(The)29 b(thrust)f(of)f(the)i +Fm(Pythia/Jetset)d Fw(programs)h(is)g(to)m(w)m(ards)i(pro)s(cesses)h +(that)d(in)m(v)m(olv)m(e)h(hadron)0 4736 y(pro)s(duction,)50 +b(one)e(w)m(a)m(y)g(or)f(another.)88 b(Because)49 b(of)d +(generalizations)g(from)g(other)h(areas,)k(also)c(a)0 +4844 y(few)40 b(completely)e(non-hadronic)g(pro)s(cesses)k(are)d(a)m(v) +-5 b(ailable.)61 b(These)41 b(include)e(Bhabha)h(scattering,)0 +4952 y(e)43 4916 y Fl(+)102 4952 y Fw(e)145 4916 y Fk(\000)255 +4952 y Fn(!)50 b Fw(e)448 4916 y Fl(+)508 4952 y Fw(e)551 +4916 y Fk(\000)656 4952 y Fw(in)45 b(pro)s(cess)i(10,)i(and)d(photon)g +(pair)f(pro)s(duction,)k(e)2654 4916 y Fl(+)2714 4952 +y Fw(e)2757 4916 y Fk(\000)2866 4952 y Fn(!)i Fj(\015)5 +b(\015)50 b Fw(in)c(pro)s(cess)h(18.)0 5061 y(Ho)m(w)m(ev)m(er,)33 +b(note)d(that)g(the)g(precision)f(that)h(could)g(b)s(e)g(exp)s(ected)h +(in)f(a)f Fm(Pythia)h Fw(sim)m(ulation)d(of)j(those)0 +5169 y(pro)s(cesses)g(is)e(certainly)f(far)h(less)g(than)g(that)g(of)g +(dedicated)g(programs.)41 b(F)-8 b(or)27 b(one)i(thing,)f(electro)m(w)m +(eak)0 5277 y(lo)s(op)21 b(e\013ects)j(are)f(not)g(included.)40 +b(F)-8 b(or)22 b(another,)j(no)m(where)f(is)e(the)h(electron)g(mass)g +(tak)m(en)h(in)m(to)e(accoun)m(t,)0 5386 y(whic)m(h)33 +b(means)g(that)f(explicit)f(cut-o\013s)i(at)f(some)h(minim)m(um)c +Fj(p)2327 5401 y Fk(?)2418 5386 y Fw(are)k(alw)m(a)m(ys)g(necessary)-8 +b(.)1817 5953 y(137)p eop +%%Page: 138 144 +138 143 bop 0 -18 a Fo(8.6.2)112 b(Lepton{hadron)40 b(collisions)0 +154 y Fw(The)34 b(issue)f(of)f(applications)e(to)i(ep)i(colliders)c +(has)j(b)s(een)h(co)m(v)m(ered)g(in)e(a)g(recen)m(t)i(rep)s(ort)f +([Sj\177)-49 b(o92b)o(].)146 263 y(The)29 b(default)f(pro)s(cess)h(for) +f(a)g(lepton{hadron)f(collider)f(is)i(deep)h(inelastic)d(scattering,)j +Fj(`)p Fw(q)f Fn(!)f Fj(`)3654 226 y Fk(0)3678 263 y +Fw(q)3729 226 y Fk(0)3752 263 y Fw(,)0 371 y(of)36 b(pro)s(cess)i(10.) +54 b(This)37 b(includes)f Fj(\015)1299 335 y Fl(0)1338 +371 y Fj(=)p Fw(Z)1447 335 y Fl(0)1486 371 y Fj(=)p Fw(W)1636 +335 y Fk(\006)1732 371 y Fw(exc)m(hange,)j(with)d(full)f(in)m +(terference,)j(as)f(describ)s(ed)g(in)0 479 y(section)i(8.3.3.)61 +b(Radiation)37 b(o\013)h(the)h(incoming)e(lepton)h(leg)g(is)g(included) +h(b)m(y)i Fq(MSTP\(11\)=1)g Fw(and)e(o\013)0 588 y(the)45 +b(outgoing)e(one)h(b)m(y)j Fq(MSTJ\(41\)=2)g Fw(\(b)s(oth)d(are)h +(default\).)78 b(Note)45 b(that)f(b)s(oth)g(QED)g(and)h(QCD)0 +696 y(radiation)d(\(o\013)i(the)h(e)g(and)g(the)g(q)g(legs,)i(resp)s +(ectiv)m(ely\))f(are)e(allo)m(w)m(ed)g(to)g(mo)s(dify)f(the)i +Fj(x)g Fw(and)g Fj(Q)3740 660 y Fl(2)0 804 y Fw(v)-5 +b(alues)38 b(of)f(the)i(pro)s(cess,)h(while)d(the)h(con)m(v)m(en)m +(tional)g(approac)m(h)h(in)e(the)h(literature)f(is)g(to)h(allo)m(w)e +(only)0 913 y(the)e(former.)44 b(Therefore)34 b(an)f(option)f(\(on)h(b) +m(y)h(default\))e(has)h(b)s(een)h(added)g(to)f(preserv)m(e)i(these)g(v) +-5 b(alues)0 1021 y(b)m(y)33 b(a)g(p)s(ost-facto)f(rescaling,)f +Fq(MSTP\(23\)=1)p Fw(.)146 1129 y(In)i(terms)g(of)f(cross)i(sections,)g +(a)e(more)g(imp)s(ortan)m(t)f(set)j(of)e(pro)s(cesses)j(are)d(related)h +(to)f(photopro-)0 1238 y(duction,)g(either)g(with)f(a)h(p)s(oin)m +(t-lik)m(e)e(or)i(with)f(a)h(resolv)m(ed)h(photon,)f(see)h(section)f +(8.3.2.)43 b(A)32 b(complete)0 1346 y(description)c(of)f(photopro)s +(duction)g(is)h(a)m(v)-5 b(ailable)25 b([Sc)m(h93)q(,)j(Sc)m(h93a],)h +(but)g(needs)g(three)g(separate)g(runs)0 1454 y(for)37 +b(the)h(three)g(distinct)e(b)s(eha)m(viours)i(of)f(a)g(photon:)53 +b(p)s(oin)m(t-lik)m(e,)37 b(VMD)g(resolv)m(ed)i(and)e(anomalous)0 +1563 y(resolv)m(ed.)0 1810 y Fo(8.6.3)112 b(Hadron{hadron)39 +b(collisions)0 1983 y Fw(The)30 b(default)f(is)g(to)g(include)g(QCD)g +(jet)h(pro)s(duction)f(b)m(y)h(2)d Fn(!)h Fw(2)h(pro)s(cesses,)j(see)f +(section)e(8.2.1.)42 b(Since)0 2091 y(the)30 b(di\013eren)m(tial)f +(cross)h(section)h(is)e(div)m(ergen)m(t)i(for)e Fj(p)1924 +2106 y Fk(?)2011 2091 y Fn(!)e Fw(0,)k(a)e(lo)m(w)m(er)h(cut-o\013)g +(has)g(to)g(b)s(e)g(in)m(tro)s(duced.)0 2200 y(Normally)43 +b(that)i(cut-o\013)g(is)g(giv)m(en)g(b)m(y)h(the)g(user-set)h +Fj(p)2112 2215 y Fk(?)p Fl(min)2334 2200 y Fw(v)-5 b(alue)44 +b(in)h Fq(CKIN\(3\))p Fw(.)84 b(If)52 b Fq(CKIN\(3\))47 +b Fw(is)0 2308 y(c)m(hosen)38 b(smaller)d(than)h(a)h(giv)m(en)f(v)-5 +b(alue)36 b(of)h(the)g(order)f(of)g(2)h(GeV)f(\(see)i +Fq(PARP\(81\))h Fw(and)d Fq(PARP\(82\))p Fw(\),)0 2416 +y(then)30 b(lo)m(w-)p Fj(p)445 2431 y Fk(?)533 2416 y +Fw(ev)m(en)m(ts)i(are)e(also)f(switc)m(hed)i(on.)43 b(The)30 +b(jet)g(cross)h(section)f(is)f(regularized)g(at)h(lo)m(w)f +Fj(p)3576 2431 y Fk(?)3635 2416 y Fw(,)h(so)0 2525 y(as)25 +b(to)g(obtain)f(a)g(smo)s(oth)g(joining)f(b)s(et)m(w)m(een)k(the)e +(high-)p Fj(p)2041 2540 y Fk(?)2124 2525 y Fw(and)g(the)h(lo)m(w-)p +Fj(p)2693 2540 y Fk(?)2776 2525 y Fw(descriptions,)g(see)g(further)0 +2633 y(section)36 b(11.2.)52 b(As)36 b Fq(CKIN\(3\))h +Fw(is)e(v)-5 b(aried,)36 b(the)g(jump)f(from)f(one)i(scenario)g(to)f +(another)h(is)f(abrupt,)h(in)0 2741 y(terms)i(of)f(cross)i(section:)55 +b(in)37 b(a)g(high-energy)h(hadron)g(collider,)f(the)i(cross)g(section) +f(for)f(jets)i(do)m(wn)0 2850 y(to)34 b(a)g Fj(p)253 +2865 y Fk(?)p Fl(min)464 2850 y Fw(scale)g(of)g(a)g(few)h(GeV)f(can)g +(w)m(ell)g(reac)m(h)h(v)-5 b(alues)34 b(m)m(uc)m(h)h(larger)e(than)i +(the)f(total)f(inelastic,)0 2958 y(non-di\013ractiv)m(e)40 +b(cross)i(section.)69 b(Clearly)40 b(this)h(is)f(nonsense;)47 +b(therefore)42 b(either)f Fj(p)3144 2973 y Fk(?)p Fl(min)3361 +2958 y Fw(should)g(b)s(e)0 3067 y(pic)m(k)m(ed)d(so)f(large)e(that)i +(the)g(jet)g(cross)g(section)g(b)s(e)g(only)f(a)h(fraction)e(of)i(the)g +(total)e(one,)j(or)e(else)h(one)0 3175 y(should)32 b(select)i +Fj(p)625 3190 y Fk(?)p Fl(min)829 3175 y Fw(=)27 b(0)33 +b(and)f(mak)m(e)h(use)h(of)e(the)h(full)d(description.)146 +3283 y(If)38 b(one)h(switc)m(hes)g(to)f Fq(MSEL=2)p Fw(,)j(also)c +(elastic)h(and)g(di\013ractiv)m(e)f(pro)s(cesses)j(are)e(switc)m(hed)i +(on,)f(see)0 3392 y(section)f(8.2.4.)58 b(Ho)m(w)m(ev)m(er,)41 +b(the)d(sim)m(ulation)d(of)i(these)i(pro)s(cesses)h(is)d(fairly)f +(primitiv)m(e,)h(and)h(should)0 3500 y(not)32 b(b)s(e)g(used)h(for)e +(dedicated)h(studies,)h(but)f(only)f(to)h(estimate)e(ho)m(w)j(m)m(uc)m +(h)f(they)h(ma)m(y)f(con)m(taminate)0 3608 y(the)h(class)g(of)f +(non-di\013ractiv)m(e)f(minim)m(um)f(bias)i(ev)m(en)m(ts.)146 +3717 y(Most)38 b(pro)s(cesses)h(can)f(b)s(e)g(sim)m(ulated)e(in)g +(hadron)h(colliders,)g(since)h(the)g(bulk)f(of)44 b Fm(Pythia)37 +b Fw(pro-)0 3825 y(cesses)g(can)f(b)s(e)f(initiated)e(b)m(y)j(quarks)g +(or)f(gluons.)50 b(Ho)m(w)m(ev)m(er,)38 b(there)e(are)f(limits.)48 +b(Curren)m(tly)36 b(w)m(e)g(in-)0 3933 y(clude)30 b(no)h(photon)f(or)g +(lepton)g(parton)g(distributions,)f(whic)m(h)i(means)f(that)g(a)g(pro)s +(cess)i(lik)m(e)e Fj(\015)5 b Fw(q)28 b Fn(!)f Fj(\015)5 +b Fw(q)0 4042 y(is)38 b(not)f(accessible.)61 b(F)-8 b(urther,)40 +b(the)e(p)s(ossibilit)m(y)e(of)i(ha)m(ving)f(Z)2304 4005 +y Fl(0)2381 4042 y Fw(and)i(W)2678 4005 y Fk(\006)2775 +4042 y Fw(in)m(teracting)e(in)g(pro)s(cesses)0 4150 y(suc)m(h)d(as)f +(71{77)f(has)h(b)s(een)h(hardwired)f(pro)s(cess)h(b)m(y)g(pro)s(cess,)g +(and)f(do)s(es)h(not)f(mean)f(that)h(there)g(is)g(a)0 +4258 y(generic)g(treatmen)m(t)f(of)g(Z)954 4222 y Fl(0)1026 +4258 y Fw(and)g(W)1316 4222 y Fk(\006)1409 4258 y Fw(distributions.)146 +4367 y(The)f(emphasis)g(in)e(the)i(hadron{hadron)f(pro)s(cess)h +(description)f(is)g(on)g(high)f(energy)j(hadron)e(col-)0 +4475 y(liders.)41 b(The)28 b(program)e(can)h(b)s(e)h(used)g(also)e(at)h +(\014xed-target)h(energies,)h(but)e(the)h(m)m(ultiple)d(in)m(teraction) +0 4583 y(mo)s(del)g(for)i(underlying)f(ev)m(en)m(ts)j(then)f(breaks)g +(do)m(wn)g(and)f(should)f(not)h(b)s(e)g(used.)43 b(The)28 +b(limit)23 b(of)k(appli-)0 4692 y(cabilit)m(y)f(is)h(somewhere)i(at)e +(around)h(100)f(GeV.)h(Belo)m(w)g(that,)g(one)g(is)f(also)g +(recommended)h(to)g(c)m(hange)0 4800 y(to)37 b Fq(MSTP\(92\)=3)p +Fw(,)42 b(to)37 b(obtain)f(a)i(reasonable)f(amoun)m(t)g(of)g(b)s(eam)g +(remnan)m(t)g(particle)f(pro)s(duction)h(in)0 4908 y(the)c(absence)h +(of)e(m)m(ultiple)e(in)m(teractions.)1817 5953 y(138)p +eop +%%Page: 139 145 +139 144 bop 0 -18 a Ft(9)161 b(The)53 b(PYTHIA)i(Program)e(Elemen)l(ts) +0 189 y Fw(In)38 b(the)f(previous)h(t)m(w)m(o)g(sections,)h(the)e(ph)m +(ysics)i(pro)s(cesses)g(and)e(the)h(ev)m(en)m(t-generation)g(sc)m +(hemes)h(of)0 297 y Fm(Pythia)23 b Fw(ha)m(v)m(e)i(b)s(een)f(presen)m +(ted.)42 b(Here,)26 b(\014nally)-8 b(,)24 b(the)g(ev)m(en)m +(t-generation)g(routines)f(and)g(the)h(common)0 405 y(blo)s(c)m(k)i(v) +-5 b(ariables)26 b(are)g(describ)s(ed.)42 b(Ho)m(w)m(ev)m(er,)30 +b(routines)d(and)f(v)-5 b(ariables)26 b(related)g(to)g(initial-)c(and) +27 b(\014nal-)0 514 y(state)38 b(sho)m(w)m(ers,)j(b)s(eam)c(remnan)m +(ts)i(and)e(underlying)h(ev)m(en)m(ts,)j(and)d(fragmen)m(tation)e(and)h +(deca)m(y)i(are)0 622 y(relegated)i(to)g(subsequen)m(t)j(sections)e(on) +g(these)g(topics.)70 b(F)-8 b(urther,)43 b(for)e(historical)e(reasons,) +44 b(man)m(y)0 730 y(adjustable)34 b(coupling)e(constan)m(ts)k(are)e +(found)g(in)f(the)i Fq(LUDAT1)g Fw(common)e(blo)s(c)m(k)h(in)f +Fm(Jetset)p Fw(,)g(rather)0 839 y(than)27 b(somewhere)g(in)f(the)h +Fm(Pythia)f Fw(common)g(blo)s(c)m(ks;)j(these)e(parameters)g(are)f +(describ)s(ed)i(in)d(section)0 947 y(14.5.)146 1055 y(In)38 +b(the)h(presen)m(tation)f(in)f(this)g(section,)j(information)34 +b(less)39 b(imp)s(ortan)m(t)d(for)h(an)h(e\016cien)m(t)g(use)h(of)0 +1164 y Fm(Pythia)23 b Fw(has)g(b)s(een)h(put)f(closer)g(to)f(the)i +(end.)41 b(W)-8 b(e)23 b(therefore)g(b)s(egin)f(with)h(the)g(main)e(ev) +m(en)m(t)k(generation)0 1272 y(routines,)33 b(and)f(follo)m(w)f(this)h +(b)m(y)i(the)f(main)e(common)g(blo)s(c)m(k)h(v)-5 b(ariables.)146 +1380 y(It)43 b(is)g(useful)g(to)f(distinguish)g(three)h(phases)i(in)d +(a)g(normal)f(run)i(with)g Fm(Pythia)p Fw(.)74 b(In)44 +b(the)f(\014rst)0 1489 y(phase,)36 b(the)f(initialization,)30 +b(the)35 b(general)f(c)m(haracter)h(of)f(the)h(run)g(is)f(determined.) +50 b(A)m(t)34 b(a)h(minim)m(um,)0 1597 y(this)45 b(requires)h(the)g(sp) +s(eci\014cation)f(of)f(the)i(incoming)d(hadrons)j(and)f(the)h(energies) +g(in)m(v)m(olv)m(ed.)82 b(A)m(t)0 1705 y(the)40 b(discretion)f(of)h +(the)g(user,)i(it)d(is)g(also)g(p)s(ossible)g(to)h(select)g(sp)s +(eci\014c)g(\014nal)f(states,)k(and)d(to)f(mak)m(e)0 +1814 y(a)f(n)m(um)m(b)s(er)h(of)f(decisions)g(ab)s(out)g(details)f(in)h +(the)h(subsequen)m(t)i(generation.)60 b(This)39 b(step)g(is)f +(\014nished)0 1922 y(b)m(y)i(a)e Fq(PYINIT)j Fw(call,)d(at)h(whic)m(h)g +(time)f(sev)m(eral)h(v)-5 b(ariables)38 b(are)h(initialized)c(in)j +(accordance)i(with)e(the)0 2030 y(v)-5 b(alues)36 b(set.)55 +b(The)37 b(second)g(phase)g(consists)g(of)e(the)i(main)d(lo)s(op)h(o)m +(v)m(er)i(the)f(n)m(um)m(b)s(er)h(of)e(ev)m(en)m(ts,)40 +b(with)0 2139 y(eac)m(h)45 b(new)g(ev)m(en)m(t)g(b)s(eing)f(generated)g +(b)m(y)h(a)f Fq(PYEVNT)h Fw(call.)76 b(This)44 b(ev)m(en)m(t)i(ma)m(y)d +(then)i(b)s(e)f(analysed,)0 2247 y(using)33 b(information)c(stored)34 +b(in)e(some)g(common)g(blo)s(c)m(ks,)h(and)g(the)g(statistics)g(accum)m +(ulated.)44 b(In)33 b(the)0 2355 y(\014nal)f(phase,)i(results)f(are)g +(presen)m(ted.)47 b(This)33 b(ma)m(y)g(often)f(b)s(e)i(done)f(without)f +(the)i(in)m(v)m(o)s(cation)d(of)i(an)m(y)0 2464 y Fm(Pythia)41 +b Fw(routines.)69 b(F)-8 b(rom)39 b Fq(PYSTAT)p Fw(,)k(ho)m(w)m(ev)m +(er,)i(it)40 b(is)h(p)s(ossible)f(to)h(obtain)f(a)g(useful)h(list)f(of) +h(cross)0 2572 y(sections)33 b(for)f(the)h(di\013eren)m(t)g(subpro)s +(cesses.)0 2846 y Fp(9.1)135 b(The)45 b(Main)g(Subroutines)0 +3019 y Fw(There)32 b(are)f(t)m(w)m(o)g(routines)f(that)h(y)m(ou)g(m)m +(ust)g(kno)m(w:)44 b Fq(PYINIT)32 b Fw(for)e(initialization)25 +b(and)31 b Fq(PYEVNT)h Fw(for)e(the)0 3127 y(subsequen)m(t)38 +b(generation)d(of)f(eac)m(h)j(new)f(ev)m(en)m(t.)53 b(In)35 +b(addition,)f(the)i(cross)g(section)f(and)h(other)f(kinds)0 +3235 y(of)47 b(information)d(a)m(v)-5 b(ailable)44 b(with)j +Fq(PYSTAT)i Fw(are)e(frequen)m(tly)h(useful.)87 b(The)48 +b(other)g(three)g(routines)0 3344 y(describ)s(ed)33 b(here,)h +Fq(PYFRAM)p Fw(,)g Fq(PYKCUT)p Fw(,)g(and)f Fq(PYEVWT)p +Fw(,)h(are)f(of)f(more)g(sp)s(ecialized)f(in)m(terest.)p +0 3488 1902 9 v 0 3713 9 225 v 79 3628 a Fq(CALL)52 b +(PYINIT\(FRAME,BEAM,TARGE)q(T,WI)q(N\))p 1893 3713 V +0 3721 1902 9 v 0 3853 a Fo(Purp)s(ose:)c Fw(to)32 b(initialize)d(the)k +(generation)f(pro)s(cedure.)0 3961 y Fq(FRAME)53 b(:)113 +b Fw(a)35 b(c)m(haracter)h(v)-5 b(ariable)33 b(used)k(to)d(sp)s(ecify)i +(the)f(frame)f(of)h(the)g(exp)s(erimen)m(t.)52 b(Upp)s(er-case)472 +4069 y(and)33 b(lo)m(w)m(er-case)g(letters)g(ma)m(y)f(b)s(e)h(freely)g +(mixed.)236 4178 y Fq(=)52 b('CMS')g(:)c Fw(colliding)29 +b(b)s(eam)j(exp)s(erimen)m(t)h(in)f(c.m.)43 b(frame,)32 +b(with)h(b)s(eam)f(momen)m(tum)f(in)h(+)p Fj(z)709 4286 +y Fw(direction)f(and)i(target)f(momen)m(tum)f(in)h Fn(\000)p +Fj(z)38 b Fw(direction.)236 4394 y Fq(=)52 b('FIXT')h(:)47 +b Fw(\014xed-target)27 b(exp)s(erimen)m(t,)h(with)e(b)s(eam)g(particle) +f(momen)m(tum)g(p)s(oin)m(ting)g(in)h(+)p Fj(z)709 4503 +y Fw(direction.)236 4611 y Fq(=)52 b('USER')h(:)47 b +Fw(full)39 b(freedom)g(to)h(sp)s(ecify)h(frame)e(b)m(y)i(giving)e(b)s +(eam)h(momen)m(tum)e(in)i Fq(P\(1,1\))p Fw(,)709 4719 +y Fq(P\(1,2\))59 b Fw(and)f Fq(P\(1,3\))h Fw(and)f(target)g(momen)m +(tum)e(in)h Fq(P\(2,1\))p Fw(,)66 b Fq(P\(2,2\))59 b +Fw(and)709 4828 y Fq(P\(2,3\))48 b Fw(in)d(common)g(blo)s(c)m(k)h +Fq(LUJETS)p Fw(.)i(P)m(articles)e(are)g(assumed)i(on)e(the)h(mass)709 +4936 y(shell,)31 b(and)i(energies)g(are)g(calculated)e(accordingly)-8 +b(.)236 5044 y Fq(=)52 b('FOUR')h(:)47 b Fw(as)h Fq('USER')p +Fw(,)h(except)g(also)d(energies)i(should)f(b)s(e)h(sp)s(eci\014ed,)k +(in)46 b Fq(P\(1,4\))j Fw(and)709 5153 y Fq(P\(2,4\))p +Fw(,)34 b(resp)s(ectiv)m(ely)-8 b(.)46 b(The)34 b(particles)e(need)i +(not)e(b)s(e)i(on)e(the)i(mass)f(shell;)f(e\013ec-)709 +5261 y(tiv)m(e)j(masses)g(are)g(calculated)f(from)g(energy)i(and)f +(momen)m(tum.)49 b(\(But)35 b(note)g(that)709 5370 y(n)m(umerical)23 +b(precision)h(ma)m(y)h(su\013er;)j(if)c(y)m(ou)i(kno)m(w)g(the)f +(masses)h(the)f(option)f Fq('FIVE')709 5478 y Fw(b)s(elo)m(w)32 +b(is)g(preferrable.\))236 5586 y Fq(=)52 b('FIVE')h(:)47 +b Fw(as)32 b Fq('USER')p Fw(,)h(except)f(also)f(energies)h(and)f +(masses)h(should)f(b)s(e)h(sp)s(eci\014ed,)g(i.e)f(the)1817 +5953 y(139)p eop +%%Page: 140 146 +140 145 bop 709 -18 a Fw(full)28 b(momen)m(tum)h(information)e(in)i +Fq(P\(1,1\))53 b(-)f(P\(1,5\))31 b Fw(and)g Fq(P\(2,1\))52 +b(-)g(P\(2,5\))709 90 y Fw(should)32 b(b)s(e)g(giv)m(en)g(for)g(b)s +(eam)f(and)h(target,)g(resp)s(ectiv)m(ely)-8 b(.)44 b(P)m(articles)32 +b(need)h(not)f(b)s(e)709 207 y(on)38 b(the)i(mass)f(shell.)61 +b(Space-lik)m(e)39 b(virtualities)d(should)j(b)s(e)g(stored)h(as)f +Fn(\000)3467 126 y(p)p 3550 126 203 4 v 81 x(\000)p Fj(m)3712 +178 y Fl(2)3752 207 y Fw(.)709 315 y(F)-8 b(our-momen)m(tum)30 +b(and)i(mass)h(information)c(m)m(ust)k(matc)m(h.)236 +424 y Fq(=)52 b('NONE')h(:)47 b Fw(there)38 b(will)d(b)s(e)i(no)g +(initialization)32 b(of)37 b(an)m(y)h(pro)s(cesses,)i(but)e(only)e(of)h +(resonance)709 532 y(widths)44 b(and)h(a)f(few)h(other)f(pro)s +(cess-indep)s(enden)m(t)i(v)-5 b(ariables.)78 b(Subsequen)m(t)47 +b(to)709 640 y(suc)m(h)36 b(a)f(call,)g Fq(PYEVNT)i Fw(cannot)e(b)s(e)h +(used)g(to)f(generate)h(ev)m(en)m(ts,)i(so)e(this)f(option)f(is)709 +749 y(mainly)i(in)m(tended)k(for)e(those)i(who)f(will)e(w)m(an)m(t)j +(to)e(construct)i(their)f(o)m(wn)g(ev)m(en)m(ts)709 857 +y(afterw)m(ards,)28 b(but)f(still)d(w)m(an)m(t)j(to)g(ha)m(v)m(e)g +(access)i(to)d(some)g(of)g(the)h Fm(Pythia)f Fw(facilities.)709 +965 y(In)33 b(this)f(option,)f(the)i Fq(BEAM)p Fw(,)h +Fq(TARGET)g Fw(and)f Fq(WIN)g Fw(argumen)m(ts)g(are)f(dumm)m(y)-8 +b(.)0 1074 y Fq(BEAM,)53 b(TARGET)f(:)c Fw(c)m(haracter)c(v)-5 +b(ariables)41 b(to)i(sp)s(ecify)g(b)s(eam)f(and)h(target)f(particles.) +74 b(Upp)s(er-case)472 1182 y(and)38 b(lo)m(w)m(er-case)g(letters)f(ma) +m(y)h(b)s(e)f(freely)g(mixed.)58 b(An)37 b(an)m(tiparticle)f(ma)m(y)h +(b)s(e)h(denoted)472 1290 y(either)e(b)m(y)h(`)p Fn(\030)p +Fw(')g(or)f(`bar')g(at)g(the)h(end)f(of)g(the)h(name.)54 +b(It)36 b(is)f(also)h(p)s(ossible)f(to)h(lea)m(v)m(e)h(out)472 +1399 y(the)i(underscore)g(\(`)p 1210 1399 30 4 v 36 w('\))e(directly)h +(after)f(`n)m(u')i(in)e(neutrino)h(names,)h(and)f(the)g(c)m(harge)h +(for)472 1507 y(proton)33 b(and)f(neutron.)236 1615 y +Fq(=)52 b('e-')g(:)63 b Fw(electron.)236 1724 y Fq(=)52 +b('e+')g(:)63 b Fw(p)s(ositron.)236 1832 y Fq(=)52 b('nu)p +498 1832 31 4 v 37 w(e')g(:)c Fj(\027)830 1847 y Fl(e)865 +1832 y Fw(.)236 1941 y Fq(=)k('nu)p 498 1941 V 37 w(e)p +Fn(\030)p Fq(')h(:)p 859 1888 55 4 v 47 w Fj(\027)914 +1956 y Fl(e)949 1941 y Fw(.)236 2049 y Fq(=)f('mu-')g(:)c +Fj(\026)804 2013 y Fk(\000)863 2049 y Fw(.)236 2157 y +Fq(=)k('mu+')g(:)c Fj(\026)804 2121 y Fl(+)863 2157 y +Fw(.)236 2266 y Fq(=)k('nu)p 498 2266 31 4 v 37 w(mu')h(:)47 +b Fj(\027)881 2281 y Fh(\026)928 2266 y Fw(.)236 2374 +y Fq(=)52 b('nu)p 498 2374 V 37 w(mu)p Fn(\030)p Fq(')h(:)p +911 2321 55 4 v 48 w Fj(\027)965 2389 y Fh(\026)1012 +2374 y Fw(.)236 2482 y Fq(=)f('tau-')h(:)47 b Fj(\034)849 +2446 y Fk(\000)909 2482 y Fw(.)236 2591 y Fq(=)52 b('tau+')h(:)47 +b Fj(\034)849 2554 y Fl(+)909 2591 y Fw(.)236 2699 y +Fq(=)52 b('nu)p 498 2699 31 4 v 37 w(tau')h(:)47 b Fj(\027)932 +2714 y Fh(\034)976 2699 y Fw(.)236 2807 y Fq(=)52 b('nu)p +498 2807 V 37 w(tau)p Fn(\030)p Fq(')h(:)p 962 2754 55 +4 v 48 w Fj(\027)1016 2822 y Fh(\034)1059 2807 y Fw(.)236 +2916 y Fq(=)f('gamma')h(:)47 b Fw(photon)33 b(\(real,)f(i.e.)43 +b(on)32 b(the)h(mass)g(shell\).)236 3024 y Fq(=)52 b('pi0')g(:)c +Fj(\031)804 2988 y Fl(0)843 3024 y Fw(.)236 3132 y Fq(=)k('pi+')g(:)c +Fj(\031)804 3096 y Fl(+)863 3132 y Fw(.)236 3241 y Fq(=)k('pi-')g(:)c +Fj(\031)804 3204 y Fk(\000)863 3241 y Fw(.)236 3349 y +Fq(=)k('n0')g(:)63 b Fw(neutron.)236 3457 y Fq(=)52 b('n)p +Fn(\030)p Fq(0')h(:)47 b Fw(an)m(tineutron.)236 3566 +y Fq(=)52 b('p+')g(:)63 b Fw(proton.)236 3674 y Fq(=)52 +b('p)p Fn(\030)p Fq(-')h(:)47 b Fw(an)m(tiproton.)236 +3782 y Fq(=)52 b('Lambda0')h(:)48 b Fw(\003)32 b(bary)m(on.)236 +3891 y Fq(=)52 b('Sigma-')h(:)48 b Fw(\006)969 3855 y +Fk(\000)1061 3891 y Fw(bary)m(on.)236 3999 y Fq(=)k('Sigma0')h(:)48 +b Fw(\006)969 3963 y Fl(0)1041 3999 y Fw(bary)m(on.)236 +4107 y Fq(=)k('Sigma+')h(:)48 b Fw(\006)969 4071 y Fl(+)1061 +4107 y Fw(bary)m(on.)236 4216 y Fq(=)k('Xi-')g(:)c Fw(\004)810 +4180 y Fk(\000)901 4216 y Fw(bary)m(on.)236 4324 y Fq(=)k('Xi0')g(:)c +Fw(\004)810 4288 y Fl(0)882 4324 y Fw(bary)m(on.)236 +4432 y Fq(=)k('Omega-')h(:)48 b Fw(\012)969 4396 y Fk(\000)1061 +4432 y Fw(bary)m(on.)236 4541 y Fq(=)k('pomeron')h(:)48 +b Fw(the)34 b(p)s(omeron)f(I)-17 b(P;)36 b(since)e(p)s(omeron)g(parton) +f(distribution)f(functions)i(ha)m(v)m(e)709 4649 y(not)e(b)s(een)h +(de\014ned)h(this)f(option)e(can)i(not)f(b)s(e)h(used)h(curren)m(tly)-8 +b(.)236 4757 y Fq(=)52 b('reggeon')h(:)48 b Fw(the)33 +b(reggeon)g(I)-17 b(R,)33 b(with)f(commen)m(ts)g(as)h(for)f(the)h(p)s +(omeron)f(ab)s(o)m(v)m(e.)0 4866 y Fq(WIN)52 b(:)216 +b Fw(related)33 b(to)f(energy)h(of)g(system,)g(exact)h(meaning)d(dep)s +(ends)j(on)e Fq(FRAME)p Fw(.)236 4974 y Fq(FRAME='CMS')54 +b(:)48 b Fw(total)31 b(energy)j(of)e(system)h(\(in)f(GeV\).)236 +5082 y Fq(FRAME='FIXT')55 b(:)47 b Fw(momen)m(tum)31 +b(of)h(b)s(eam)g(particle)g(\(in)f(GeV/)p Fj(c)p Fw(\).)236 +5191 y Fq(FRAME='USER')55 b(:)47 b Fw(dumm)m(y)32 b(\(information)e(is) +i(tak)m(en)h(from)f(the)h Fq(P)g Fw(v)m(ectors,)h(see)f(ab)s(o)m(v)m +(e\).)p 0 5341 723 9 v 0 5543 9 203 v 79 5472 a Fq(CALL)52 +b(PYEVNT)p 714 5543 V 0 5551 723 9 v 1817 5953 a Fw(140)p +eop +%%Page: 141 147 +141 146 bop 0 -18 a Fo(Purp)s(ose:)48 b Fw(to)39 b(generate)h(one)f(ev) +m(en)m(t)i(of)e(the)h(t)m(yp)s(e)g(sp)s(eci\014ed)g(b)m(y)g(the)g +Fq(PYINIT)h Fw(call.)62 b(\(This)39 b(is)g(the)472 90 +y(main)31 b(routine,)h(whic)m(h)i(calls)d(a)h(n)m(um)m(b)s(er)h(of)f +(other)h(routines)f(for)g(sp)s(eci\014c)i(tasks.\))p +0 240 1082 9 v 0 459 9 220 v 79 380 a Fq(CALL)52 b(PYSTAT\(MSTAT\))p +1073 459 V 0 467 1082 9 v 0 599 a Fo(Purp)s(ose:)c Fw(to)43 +b(prin)m(t)g(out)h(cross-sections)g(statistics,)i(deca)m(y)f(widths,)i +(branc)m(hing)c(ratios,)j(status)472 707 y(co)s(des)g(and)g(parameter)f +(v)-5 b(alues.)81 b Fq(PYSTAT)47 b Fw(ma)m(y)e(b)s(e)g(called)f(at)h +(an)m(y)h(time,)h(after)e(the)472 816 y Fq(PYINIT)35 +b Fw(call,)30 b(e.g.)44 b(at)32 b(the)h(end)h(of)e(the)h(run,)g(or)f +(not)g(at)h(all.)0 924 y Fq(MSTAT)53 b(:)113 b Fw(sp)s(eci\014cation)32 +b(of)h(desired)g(information.)236 1032 y Fq(=)52 b(1)f(:)217 +b Fw(prin)m(ts)35 b(a)g(table)f(of)h(ho)m(w)h(man)m(y)f(ev)m(en)m(ts)j +(of)c(the)i(di\013eren)m(t)g(kinds)f(that)g(ha)m(v)m(e)i(b)s(een)709 +1141 y(generated)47 b(and)f(the)g(corresp)s(onding)h(cross)g(sections.) +84 b(All)45 b(n)m(um)m(b)s(ers)i(already)709 1249 y(include)32 +b(the)h(e\013ects)h(of)e(cuts)h(required)g(b)m(y)h(the)f(user)g(in)f +Fq(PYKCUT)p Fw(.)236 1357 y Fq(=)52 b(2)f(:)217 b Fw(prin)m(ts)23 +b(a)h(table)e(of)h(the)h(resonances)i(de\014ned)f(in)e(the)h(program,)g +(with)f(their)g(particle)709 1466 y(co)s(des)h(\(KF\),)f(and)g(all)f +(allo)m(w)m(ed)g(deca)m(y)j(c)m(hannels.)42 b(\(If)23 +b(the)h(n)m(um)m(b)s(er)g(of)f(generations)709 1574 y(in)33 +b Fq(MSTP\(1\))k Fw(is)d(3,)h(ho)m(w)m(ev)m(er,)i(c)m(hannels)f(in)m(v) +m(olving)d(fourth-generation)g(particles)709 1682 y(are)c(not)g(displa) +m(y)m(ed.\))43 b(F)-8 b(or)28 b(eac)m(h)i(deca)m(y)h(c)m(hannel)e(is)g +(sho)m(wn)h(the)g(sequen)m(tial)f(c)m(han-)709 1791 y(nel)34 +b(n)m(um)m(b)s(er)h(\(IDC\))f(of)h(the)g Fm(Jetset)e +Fw(deca)m(y)j(tables,)f(the)g(partial)e(deca)m(y)j(width,)709 +1899 y(branc)m(hing)27 b(ratio)f(and)i(e\013ectiv)m(e)h(branc)m(hing)f +(ratio)e(\(in)g(the)j(ev)m(en)m(t)g(some)f(c)m(hannels)709 +2007 y(ha)m(v)m(e)34 b(b)s(een)f(excluded)h(b)m(y)f(the)g(user\).)236 +2116 y Fq(=)52 b(3)f(:)217 b Fw(prin)m(ts)36 b(a)h(table)e(with)h(the)h +(allo)m(w)m(ed)f(hard)h(in)m(teraction)e(\015a)m(v)m(ours)j +Fq(KFIN\(I,J\))h Fw(for)709 2224 y(b)s(eam)32 b(and)g(target)g +(particles.)236 2332 y Fq(=)52 b(4)f(:)217 b Fw(prin)m(ts)44 +b(a)g(table)g(of)g(the)h(kinematical)d(cuts)j Fq(CKIN\(I\))i +Fw(set)e(b)m(y)g(the)g(user)g(in)f(the)709 2441 y(curren)m(t)33 +b(run.)236 2549 y Fq(=)52 b(5)f(:)217 b Fw(prin)m(ts)40 +b(a)g(table)g(with)g(all)f(the)h(v)-5 b(alues)41 b(of)f(the)h(status)g +(co)s(des)g Fq(MSTP\(I\))h Fw(and)f(the)709 2657 y(parameters)32 +b Fq(PARP\(I\))j Fw(used)e(in)f(the)h(curren)m(t)h(run.)p +0 2802 1133 9 v 0 3021 9 220 v 79 2942 a Fq(CALL)52 b(PYFRAM\(IFRAME\)) +p 1124 3021 V 0 3029 1133 9 v 0 3161 a Fo(Purp)s(ose:)c +Fw(to)32 b(transform)g(an)g(ev)m(en)m(t)j(listing)30 +b(b)s(et)m(w)m(een)k(di\013eren)m(t)f(reference)h(frames,)f(if)e(so)i +(desired.)0 3269 y Fq(IFRAME)53 b(:)62 b Fw(sp)s(eci\014cation)32 +b(of)h(frame)e(the)i(ev)m(en)m(t)i(is)d(to)g(b)s(e)h(b)s(o)s(osted)f +(to.)236 3378 y Fq(=)52 b(1)f(:)217 b Fw(frame)31 b(sp)s(eci\014ed)j(b) +m(y)f(user)h(in)e(the)h Fq(PYINIT)h Fw(call.)236 3486 +y Fq(=)52 b(2)f(:)217 b Fw(c.m.)43 b(frame)32 b(of)g(incoming)e +(particles.)236 3594 y Fq(=)52 b(3)f(:)217 b Fw(hadronic)44 +b(c.m.)81 b(frame)44 b(of)g(lepton{hadron)h(in)m(teraction)f(ev)m(en)m +(ts.)83 b(Mainly)44 b(in-)709 3703 y(tended)c(for)f(deep)i(inelastic)c +(scattering,)k(but)f(can)g(also)e(b)s(e)i(used)h(in)d(photopro-)709 +3811 y(duction.)74 b(Note)43 b(that)g(b)s(oth)g(the)g(lepton)g(and)g +(an)m(y)h(photons)f(radiated)f(o\013)h(the)709 3919 y(lepton)33 +b(remain)f(in)h(the)h(ev)m(en)m(t)i(listing,)31 b(and)j(ha)m(v)m(e)h +(to)e(b)s(e)h(remo)m(v)m(ed)h(separately)f(if)709 4028 +y(y)m(ou)f(only)f(w)m(an)m(t)h(to)g(study)g(the)g(hadronic)g +(subsystem.)p 0 4172 1030 9 v 0 4391 9 220 v 79 4312 +a Fq(CALL)52 b(PYKCUT\(MCUT\))p 1022 4391 V 0 4399 1030 +9 v 0 4531 a Fo(Purp)s(ose:)c Fw(to)23 b(enable)h(y)m(ou)h(to)f(reject) +g(a)g(giv)m(en)g(set)h(of)e(kinematic)g(v)-5 b(ariables)22 +b(at)i(an)g(early)f(stage)i(of)e(the)472 4639 y(generation)34 +b(pro)s(cedure)h(\(b)s(efore)g(ev)-5 b(aluation)32 b(of)i(cross)h +(sections\),)g(so)g(as)f(not)g(to)g(sp)s(end)472 4748 +y(unnecessary)c(time)25 b(on)h(the)h(generation)f(of)g(ev)m(en)m(ts)j +(that)e(are)f(not)h(w)m(an)m(ted.)43 b(The)27 b(routine)472 +4856 y(will)35 b(not)h(b)s(e)h(called)f(unless)h(y)m(ou)g(require)g(is) +g(b)m(y)g(setting)h Fq(MSTP\(141\)=1)p Fw(,)j(and)36 +b(nev)m(er)j(if)472 4965 y(`minim)m(um-bias'-t)m(yp)s(e)24 +b(ev)m(en)m(ts)29 b(\(including)c(elastic)h(and)i(di\013ractiv)m(e)e +(scattering\))h(are)g(to)472 5073 y(b)s(e)41 b(generated)h(as)f(w)m +(ell.)66 b(A)41 b(dumm)m(y)f(routine)g Fq(PYKCUT)j Fw(is)d(included)g +(in)g(the)h(program)472 5181 y(\014le,)30 b(so)f(as)g(to)f(a)m(v)m(oid) +h(unresolv)m(ed)h(external)f(references)i(when)f(the)f(routine)f(is)h +(not)f(used.)0 5290 y Fq(MCUT)52 b(:)165 b Fw(\015ag)33 +b(to)f(signal)f(e\013ect)i(of)f(user-de\014ned)j(cuts.)236 +5398 y Fq(=)52 b(0)f(:)217 b Fw(ev)m(en)m(t)34 b(is)e(to)g(b)s(e)h +(retained)g(and)f(generated)i(in)d(full.)236 5506 y Fq(=)52 +b(1)f(:)217 b Fw(ev)m(en)m(t)34 b(is)e(to)g(b)s(e)h(rejected)h(and)f(a) +f(new)h(one)g(generated.)0 5615 y Fo(Remark)k(:)47 b +Fw(at)g(the)g(time)e(of)h(selection,)k(sev)m(eral)d(v)-5 +b(ariables)46 b(in)g(the)h Fq(MINT)h Fw(and)e Fq(VINT)i +Fw(arra)m(ys)f(in)1817 5953 y(141)p eop +%%Page: 142 148 +142 147 bop 472 -18 a Fw(the)35 b Fq(PYINT1)i Fw(common)c(blo)s(c)m(k)h +(con)m(tain)g(information)e(that)i(can)h(b)s(e)f(used)i(to)e(mak)m(e)h +(the)472 90 y(decision.)41 b(The)25 b(routine)f(pro)m(vided)h(in)e(the) +i(program)e(\014le)h(explicitly)f(reads)i(the)g(v)-5 +b(ariables)472 198 y(that)34 b(ha)m(v)m(e)g(b)s(een)h(de\014ned)f(at)f +(the)h(time)e Fq(PYKCUT)j Fw(is)e(called,)g(and)g(also)g(calculates)g +(some)472 307 y(deriv)m(ed)i(quan)m(tities.)45 b(The)35 +b(information)30 b(a)m(v)-5 b(ailable)31 b(includes)i(subpro)s(cess)j +(t)m(yp)s(e)e(ISUB,)472 430 y Fj(E)544 445 y Fl(cm)639 +430 y Fw(,)i(^)-53 b Fj(s)p Fw(,)803 411 y(^)802 430 +y Fj(t)p Fw(,)38 b(^)-55 b Fj(u)o Fw(,)40 b(^)-57 b Fj(p)1059 +445 y Fk(?)1118 430 y Fw(,)32 b Fj(x)1232 445 y Fl(1)1271 +430 y Fw(,)g Fj(x)1385 445 y Fl(2)1425 430 y Fw(,)g Fj(x)1539 +445 y Fl(F)1589 430 y Fw(,)g Fj(\034)11 b Fw(,)32 b Fj(y)t +Fw(,)f Fj(\034)1923 394 y Fk(0)1946 430 y Fw(,)h(cos)2160 +403 y(^)2152 430 y Fj(\022)s Fw(,)g(and)f(a)g(few)h(more.)42 +b(Some)31 b(of)g(these)i(ma)m(y)472 538 y(not)g(b)s(e)g(relev)-5 +b(an)m(t)32 b(for)g(the)h(pro)s(cess)h(under)f(study)-8 +b(,)34 b(and)f(are)f(then)i(set)f(to)f(zero.)p 0 682 +1030 9 v 0 902 9 220 v 79 822 a Fq(CALL)52 b(PYEVWT\(WTXS\))p +1022 902 V 0 910 1030 9 v 0 1042 a Fo(Purp)s(ose:)c Fw(to)33 +b(allo)m(w)e(y)m(ou)j(to)f(rew)m(eigh)m(t)h(ev)m(en)m(t)i(cross)e +(sections,)g(b)m(y)g(pro)s(cess)h(t)m(yp)s(e)f(and)f(kinematics)472 +1150 y(of)d(the)h(hard)f(scattering.)42 b(There)32 b(exists)f(t)m(w)m +(o)g(separate)f(mo)s(des)g(of)g(usage,)h(describ)s(ed)g(in)472 +1258 y(the)i(follo)m(wing.)472 1367 y(F)-8 b(or)24 b +Fq(MSTP\(142\)=1)p Fw(,)k(it)23 b(is)g(assumed)i(that)f(the)g(cross)h +(section)f(of)f(the)i(pro)s(cess)g(is)e(correctly)472 +1475 y(giv)m(en)34 b(b)m(y)f(default)g(in)f Fm(Pythia)p +Fw(,)h(but)g(that)g(one)g(wishes)h(to)f(generate)h(ev)m(en)m(ts)h +(biased)e(to)472 1583 y(a)42 b(sp)s(eci\014c)g(region)f(of)g(phase)i +(space.)72 b(While)41 b(the)h Fq(WTXS)h Fw(factor)e(therefore)h(m)m +(ultiplies)472 1692 y(the)f(na)-11 b(\177)-38 b(\020v)m(e)40 +b(cross)h(section)g(in)e(the)h(c)m(hoice)h(of)f(subpro)s(cess)i(t)m(yp) +s(e)f(and)f(kinematics,)h(the)472 1800 y(pro)s(duced)32 +b(ev)m(en)m(t)g(comes)e(with)g(a)g(comp)s(ensating)g(w)m(eigh)m(t)g +Fq(PARI\(10\)=1./WTXS)p Fw(,)35 b(whic)m(h)472 1908 y(should)e(b)s(e)f +(used)i(when)f(\014lling)d(histograms)h(etc.)44 b(In)33 +b(the)f Fq(PYSTAT\(1\))j Fw(table,)d(the)h(cross)472 +2017 y(sections)j(are)g(unc)m(hanged)h(\(up)e(to)g(statistical)e +(errors\))j(compared)f(with)g(the)h(standard)472 2125 +y(cross)28 b(sections,)g(but)e(the)h(relativ)m(e)e(comp)s(osition)f(of) +i(ev)m(en)m(ts)i(ma)m(y)e(b)s(e)h(c)m(hanged)g(and)f(need)472 +2233 y(no)k(longer)f(b)s(e)g(in)g(prop)s(ortion)f(to)i(relativ)m(e)e +(cross)j(sections.)43 b(A)30 b(t)m(ypical)f(example)g(of)g(this)472 +2342 y(usage)45 b(is)e(if)g(one)h(wishes)g(to)g(enhance)h(the)f(pro)s +(duction)f(of)g(high-)p Fj(p)3056 2357 y Fk(?)3158 2342 +y Fw(ev)m(en)m(ts;)51 b(then)45 b(a)472 2450 y(w)m(eigh)m(t)39 +b(lik)m(e)e Fq(WTXS)p Fw(=)i(\()p Fj(p)1377 2465 y Fk(?)1435 +2450 y Fj(=p)1533 2465 y Fk(?)p Fl(0)1628 2450 y Fw(\))1666 +2414 y Fl(2)1743 2450 y Fw(\(with)f Fj(p)2058 2465 y +Fk(?)p Fl(0)2190 2450 y Fw(some)g(\014xed)i(n)m(um)m(b)s(er\))e(migh)m +(t)f(b)s(e)h(appro-)472 2558 y(priate.)472 2667 y(F)-8 +b(or)30 b Fq(MSTP\(142\)=2)p Fw(,)k(on)d(the)g(other)f(hand,)i(it)d(is) +h(assumed)i(that)e(the)h(true)g(cross)g(section)472 2775 +y(is)d(really)e(to)i(b)s(e)g(mo)s(difed)e(b)m(y)j(the)g(m)m +(ultiplicativ)m(e)24 b(factor)k Fq(WTXS)p Fw(.)h(The)f(generated)h(ev)m +(en)m(ts)472 2883 y(therefore)h(come)e(with)g(unit)g(w)m(eigh)m(t,)i +(just)f(as)f(usual.)42 b(This)29 b(option)e(is)h(really)g(equiv)-5 +b(alen)m(t)472 2992 y(to)35 b(replacing)f(the)i(basic)f(cross)i +(sections)f(co)s(ded)g(in)e Fm(Pythia)p Fw(,)i(but)g(allo)m(ws)e(more)h +(\015exi-)472 3100 y(bilit)m(y:)42 b(no)33 b(need)g(to)f(recompile)f +(the)i(whole)g(of)39 b Fm(Pythia)p Fw(.)472 3208 y(The)e(routine)e +(will)e(not)i(b)s(e)h(called)e(unless)j Fq(MSTP\(142\))p +Fn(\025)e Fw(1,)h(and)g(nev)m(er)h(if)d(`minim)m(um-)472 +3317 y(bias'-t)m(yp)s(e)41 b(ev)m(en)m(ts)h(\(including)c(elastic)h +(and)h(di\013ractiv)m(e)g(scattering\))g(are)g(to)f(b)s(e)i(gen-)472 +3425 y(erated)e(as)e(w)m(ell.)58 b(F)-8 b(urther,)39 +b(cross)g(sections)f(for)f(additional)e(m)m(ultiple)g(in)m(teractions)i +(or)472 3533 y(pile-up)31 b(ev)m(en)m(ts)j(are)e(nev)m(er)i +(a\013ected.)44 b(A)32 b(dumm)m(y)g(routine)f Fq(PYEVWT)j +Fw(is)d(included)h(in)f(the)472 3642 y(program)f(\014le,)i(so)f(as)h +(to)f(a)m(v)m(oid)g(unresolv)m(ed)h(external)g(references)h(when)f(the) +g(routine)f(is)472 3750 y(not)i(used.)0 3858 y Fq(WTXS:)217 +b Fw(m)m(ultiplication)41 b(factor)k(to)g(ordinary)f(ev)m(en)m(t)k +(cross)e(section;)52 b(to)45 b(b)s(e)g(set)h(\(b)m(y)g(y)m(ou\))g(in) +472 3967 y Fq(PYEVWT)35 b Fw(call.)0 4075 y Fo(Remark)i(:)47 +b Fw(at)g(the)g(time)e(of)h(selection,)k(sev)m(eral)d(v)-5 +b(ariables)46 b(in)g(the)h Fq(MINT)h Fw(and)e Fq(VINT)i +Fw(arra)m(ys)f(in)472 4183 y(the)35 b Fq(PYINT1)i Fw(common)c(blo)s(c)m +(k)h(con)m(tain)g(information)e(that)i(can)h(b)s(e)f(used)i(to)e(mak)m +(e)h(the)472 4292 y(decision.)41 b(The)25 b(routine)f(pro)m(vided)h(in) +e(the)i(program)e(\014le)h(explicitly)f(reads)i(the)g(v)-5 +b(ariables)472 4400 y(that)34 b(ha)m(v)m(e)g(b)s(een)h(de\014ned)f(at)f +(the)h(time)e Fq(PYEVWT)j Fw(is)e(called,)g(and)g(also)g(calculates)g +(some)472 4509 y(deriv)m(ed)49 b(quan)m(tities.)90 b(The)50 +b(giv)m(en)e(list)f(of)g(information)e(includes)j(subpro)s(cess)j(t)m +(yp)s(e)472 4632 y(ISUB,)40 b Fj(E)842 4647 y Fl(cm)937 +4632 y Fw(,)k(^)-53 b Fj(s)p Fw(,)1119 4613 y(^)1118 +4632 y Fj(t)p Fw(,)47 b(^)-55 b Fj(u)p Fw(,)49 b(^)-58 +b Fj(p)1393 4647 y Fk(?)1452 4632 y Fw(,)41 b Fj(x)1575 +4647 y Fl(1)1615 4632 y Fw(,)g Fj(x)1738 4647 y Fl(2)1778 +4632 y Fw(,)f Fj(x)1900 4647 y Fl(F)1951 4632 y Fw(,)h +Fj(\034)11 b Fw(,)41 b Fj(y)t Fw(,)f Fj(\034)2312 4596 +y Fk(0)2336 4632 y Fw(,)g(cos)2558 4605 y(^)2550 4632 +y Fj(\022)t Fw(,)g(and)g(a)e(few)i(more.)62 b(Some)39 +b(of)472 4740 y(these)44 b(ma)m(y)e(not)g(b)s(e)g(relev)-5 +b(an)m(t)42 b(for)g(the)h(pro)s(cess)g(under)g(study)-8 +b(,)46 b(and)c(are)g(then)h(set)g(to)472 4848 y(zero.)0 +4957 y Fo(W)-9 b(arning:)47 b Fw(the)26 b(w)m(eigh)m(ts)g(only)f(apply) +g(to)h(the)g(hard)f(scattering)h(subpro)s(cesses.)44 +b(There)26 b(is)g(no)f(w)m(a)m(y)i(to)472 5065 y(rew)m(eigh)m(t)36 +b(the)f(shap)s(e)g(of)f(initial-)c(and)35 b(\014nal-state)f(sho)m(w)m +(ers,)j(fragmen)m(tation,)c(or)h(other)472 5173 y(asp)s(ects)g(of)e +(the)h(ev)m(en)m(t.)1817 5953 y(142)p eop +%%Page: 143 149 +143 148 bop 0 -18 a Fp(9.2)135 b(Switc)l(hes)46 b(for)f(Ev)l(en)l(t)h +(T)l(yp)t(e)e(and)h(Kinematics)i(Selection)0 154 y Fw(By)33 +b(default,)e(if)38 b Fm(Pythia)32 b Fw(is)g(run)g(for)g(a)g(hadron)g +(collider,)e(only)i(QCD)g(2)27 b Fn(!)g Fw(2)32 b(pro)s(cesses)i(are)e +(gener-)0 263 y(ated,)27 b(comp)s(osed)e(of)g(hard)g(in)m(teractions)g +(ab)s(o)m(v)m(e)h Fj(p)1842 278 y Fk(?)p Fl(min)2046 +263 y Fw(=)p Fq(PARP\(81\))p Fw(,)j(with)c(lo)m(w-)p +Fj(p)3027 278 y Fk(?)3110 263 y Fw(pro)s(cesses)j(added)0 +371 y(on)h(so)h(as)g(to)f(giv)m(e)g(the)h(full)e(\(parametrized\))g +(inelastic,)h(non-di\013ractiv)m(e)f(cross)j(section.)43 +b(In)29 b(an)h(e)3618 335 y Fl(+)3677 371 y Fw(e)3720 +335 y Fk(\000)0 479 y Fw(collider,)i Fj(\015)426 443 +y Fk(\003)466 479 y Fj(=)p Fw(Z)575 443 y Fl(0)648 479 +y Fw(pro)s(duction)h(is)g(the)i(default,)f(and)g(in)f(an)h(ep)g(one)h +(it)e(is)g(deep)i(inelastic)e(scattering.)0 588 y(With)g(the)h(help)f +(of)g(the)h(common)e(blo)s(c)m(k)i Fq(PYSUBS)p Fw(,)h(it)d(is)h(p)s +(ossible)g(to)g(select)h(the)g(generation)f(of)g(an-)0 +696 y(other)e(pro)s(cess,)i(or)d(com)m(bination)f(of)i(pro)s(cesses.)45 +b(It)31 b(is)f(also)g(allo)m(w)m(ed)h(to)f(restrict)h(the)h(generation) +e(to)0 804 y(sp)s(eci\014c)g(incoming)e(partons/particles)g(at)i(the)g +(hard)f(in)m(teraction.)42 b(This)30 b(often)f(automatically)d(also)0 +913 y(restricts)j(\014nal-state)f(\015a)m(v)m(ours)j(but,)f(in)e(pro)s +(cesses)j(suc)m(h)f(as)f(resonance)h(pro)s(duction)f(or)f(QCD/QED)0 +1021 y(pro)s(duction)h(of)f(new)j(\015a)m(v)m(ours,)g(switc)m(hes)g(in) +d(the)i Fm(Jetset)e Fw(program)g(ma)m(y)h(b)s(e)h(used)g(to)f(this)g +(end;)i(see)0 1129 y(section)i(14.6.)146 1238 y(The)j +Fq(CKIN)g Fw(arra)m(y)f(ma)m(y)f(b)s(e)h(used)h(to)f(imp)s(ose)e(sp)s +(eci\014c)j(kinematics)d(cuts.)51 b(Y)-8 b(ou)35 b(should)g(here)g(b)s +(e)0 1346 y(w)m(arned)f(that,)g(if)e(kinematical)f(v)-5 +b(ariables)32 b(are)h(to)s(o)f(strongly)h(restricted,)h(the)g +(generation)e(time)g(p)s(er)0 1454 y(ev)m(en)m(t)39 b(ma)m(y)f(b)s +(ecome)f(v)m(ery)i(long.)58 b(In)38 b(extreme)g(cases,)i(where)f(the)f +(cuts)h(e\013ectiv)m(ely)f(close)f(the)h(full)0 1563 +y(phase)31 b(space,)h(the)f(ev)m(en)m(t)h(generation)e(ma)m(y)g(run)h +(in)m(to)e(an)i(in\014nite)e(lo)s(op.)41 b(The)31 b(generation)f(of)g +(2)d Fn(!)h Fw(1)0 1671 y(resonance)39 b(pro)s(duction)e(is)g(p)s +(erformed)g(in)g(terms)h(of)f(the)42 b(^)-53 b Fj(s)38 +b Fw(and)g Fj(y)i Fw(v)-5 b(ariables,)38 b(and)g(so)g(the)g(ranges)0 +1779 y Fq(CKIN\(1\))53 b(-)f(CKIN\(2\))d Fw(and)f Fq(CKIN\(7\))54 +b(-)d(CKIN\(8\))f Fw(ma)m(y)e(b)s(e)g(arbitrarily)d(restricted)j +(without)g(a)0 1902 y(signi\014can)m(t)g(loss)h(of)f(sp)s(eed.)93 +b(F)-8 b(or)48 b(2)55 b Fn(!)g Fw(2)48 b(pro)s(cesses,)55 +b(cos)2335 1876 y(^)2327 1902 y Fj(\022)d Fw(is)c(added)i(as)f(a)f +(third)g(generation)0 2011 y(v)-5 b(ariable,)30 b(and)i(so)f +(additionally)d(the)k(range)g Fq(CKIN\(27\))53 b(-)f(CKIN\(28\))33 +b Fw(ma)m(y)e(b)s(e)h(restricted)g(without)0 2119 y(an)m(y)h(danger.) +146 2228 y(E\013ects)25 b(from)d(initial-)d(and)24 b(\014nal-state)f +(radiation)e(are)i(not)g(included,)i(since)f(they)g(are)g(not)f(kno)m +(wn)0 2336 y(at)29 b(the)g(time)f(the)i(kinematics)e(at)h(the)g(hard)g +(in)m(teraction)f(is)h(selected.)43 b(The)30 b(sharp)g(kinematical)d +(cut-)0 2444 y(o\013s)33 b(that)h(can)f(b)s(e)h(imp)s(osed)e(on)i(the)f +(generation)g(pro)s(cess)i(are)e(therefore)h(smeared,)g(b)s(oth)f(b)m +(y)i(QCD)0 2553 y(radiation)30 b(and)j(b)m(y)g(fragmen)m(tation.)42 +b(A)33 b(few)g(examples)f(of)g(suc)m(h)j(e\013ects)e(follo)m(w.)145 +2666 y Fn(\017)49 b Fw(Initial-state)42 b(radiation)h(implies)f(that)j +(eac)m(h)h(of)f(the)g(t)m(w)m(o)h(incoming)d(partons)i(has)g(a)g(non-) +244 2774 y(v)-5 b(anishing)27 b Fj(p)720 2789 y Fk(?)807 +2774 y Fw(when)j(they)f(in)m(teract.)42 b(The)30 b(hard)e(scattering)g +(subsystem)i(th)m(us)g(receiv)m(es)g(a)e(net)244 2882 +y(transv)m(erse)40 b(b)s(o)s(ost,)g(and)e(is)g(rotated)g(with)g(resp)s +(ect)i(to)e(the)g(b)s(eam)g(directions.)60 b(In)38 b(a)h(2)e +Fn(!)g Fw(2)244 2991 y(pro)s(cess,)49 b(what)44 b(t)m(ypically)f(happ)s +(ens)j(is)e(that)g(one)h(of)e(the)i(scattered)h(partons)f(receiv)m(es)h +(an)244 3099 y(increased)33 b Fj(p)716 3114 y Fk(?)775 +3099 y Fw(,)g(while)e(the)i Fj(p)1306 3114 y Fk(?)1398 +3099 y Fw(of)f(the)h(other)g(parton)f(is)g(reduced.)145 +3217 y Fn(\017)49 b Fw(Since)37 b(the)h(initial-state)33 +b(radiation)i(mac)m(hinery)i(assigns)g(space-lik)m(e)g(virtualities)d +(to)j(the)h(in-)244 3325 y(coming)h(partons,)44 b(the)d(de\014nitions)g +(of)f Fj(x)i Fw(in)e(terms)h(of)f(energy)i(fractions)f(and)g(in)f +(terms)h(of)244 3433 y(momen)m(tum)34 b(fractions)h(no)g(longer)f +(coincide,)i(and)g(so)f(the)h(in)m(teracting)e(subsystem)k(ma)m(y)d +(re-)244 3542 y(ceiv)m(e)46 b(a)e(net)h(longitudinal)c(b)s(o)s(ost)k +(compared)f(with)h(na)-11 b(\177)-38 b(\020v)m(e)45 b(exp)s(ectations,) +j(as)d(part)g(of)f(the)244 3650 y(parton-sho)m(w)m(er)33 +b(mac)m(hinery)-8 b(.)145 3768 y Fn(\017)49 b Fw(Initial-state)35 +b(radiation)g(giv)m(es)j(rise)f(to)h(additional)c(jets,)40 +b(whic)m(h)e(in)f(extreme)h(cases)h(ma)m(y)e(b)s(e)244 +3876 y(mistak)m(en)32 b(for)g(either)h(of)f(the)h(jets)g(of)f(the)h +(hard)g(in)m(teraction.)145 3994 y Fn(\017)49 b Fw(Final-state)31 +b(radiation)h(giv)m(es)i(rise)f(to)h(additional)d(jets,)j(whic)m(h)g +(smears)g(the)g(meaning)f(of)g(the)244 4102 y(basic)h(2)c +Fn(!)g Fw(2)k(scattering.)49 b(The)35 b(assignmen)m(t)f(of)g(soft)g +(jets)h(is)e(not)i(unique.)48 b(The)36 b(energy)f(of)f(a)244 +4211 y(jet)e(b)s(ecomes)i(dep)s(enden)m(t)g(on)e(the)i(w)m(a)m(y)f(it)f +(is)g(iden)m(ti\014ed,)g(e.g.)44 b(what)33 b(jet)g(cone)g(size)g(is)f +(used.)145 4329 y Fn(\017)49 b Fw(The)f(b)s(eam)e(remnan)m(t)g +(description)h(assigns)g(primordial)c Fj(k)2534 4344 +y Fk(?)2639 4329 y Fw(v)-5 b(alues,)50 b(whic)m(h)e(also)e(giv)m(es)h +(a)244 4437 y(net)c Fj(p)471 4452 y Fk(?)573 4437 y Fw(shift)f(of)g +(the)h(hard-in)m(teraction)e(subsystem;)50 b(except)44 +b(at)f(lo)m(w)f(energies)h(this)g(e\013ect)244 4545 y(is)36 +b(o)m(v)m(ershado)m(w)m(ed)j(b)m(y)e(initial-state)32 +b(radiation,)j(ho)m(w)m(ev)m(er.)57 b(Beam)36 b(remnan)m(ts)g(ma)m(y)g +(also)f(add)244 4654 y(further)e(activit)m(y)f(under)h(the)g(`p)s +(erturbativ)m(e')g(ev)m(en)m(t.)145 4771 y Fn(\017)49 +b Fw(F)-8 b(ragmen)m(tation)20 b(will)g(further)j(broaden)g(jet)f +(pro\014les,)j(and)d(mak)m(e)h(jet)f(assignmen)m(ts)h(and)f(energy)244 +4880 y(determinations)31 b(ev)m(en)j(more)e(uncertain.)0 +4993 y(In)37 b(a)f(study)i(of)e(ev)m(en)m(ts)j(within)d(a)g(giv)m(en)h +(windo)m(w)g(of)f(exp)s(erimen)m(tally)g(de\014ned)i(v)-5 +b(ariables,)36 b(it)g(is)g(up)0 5101 y(to)31 b(y)m(ou)h(to)g(lea)m(v)m +(e)g(suc)m(h)h(lib)s(eral)c(margins)h(that)h(no)h(ev)m(en)m(ts)i(are)d +(missed.)43 b(In)32 b(other)g(w)m(ords,)h(cuts)f(ha)m(v)m(e)0 +5209 y(to)g(b)s(e)h(c)m(hosen)h(suc)m(h)g(that)e(a)h(negligible)c +(fraction)i(of)i(ev)m(en)m(ts)h(migrate)d(from)g(outside)i(the)g(sim)m +(ulated)0 5318 y(region)i(to)g(inside)g(the)h(in)m(teresting)f(region.) +52 b(Often)36 b(this)f(ma)m(y)g(lead)g(to)g(lo)m(w)h(e\016ciency)h(in)d +(terms)i(of)0 5426 y(what)31 b(fraction)e(of)i(the)g(generated)g(ev)m +(en)m(ts)i(are)e(actually)e(of)i(in)m(terest)g(to)f(y)m(ou.)44 +b(See)31 b(also)f(section)h(3.6.)146 5535 y(In)i(addition)d(to)i(the)g +(v)-5 b(ariables)31 b(found)h(in)f Fq(PYSUBS)p Fw(,)j(also)d(those)i +(in)e(the)h Fq(PYPARS)i Fw(common)d(blo)s(c)m(k)0 5643 +y(ma)m(y)i(b)s(e)g(used)i(to)d(select)i(exactly)f(what)h(one)f(w)m(an)m +(ts)i(to)e(ha)m(v)m(e)h(sim)m(ulated.)44 b(These)35 b(p)s(ossibilities) +30 b(will)1817 5953 y(143)p eop +%%Page: 144 150 +144 149 bop 0 -18 a Fw(b)s(e)33 b(describ)s(ed)g(in)f(the)h(follo)m +(wing)d(subsection.)146 90 y(The)36 b(notation)e(used)i(ab)s(o)m(v)m(e) +f(and)g(in)g(the)g(follo)m(wing)d(is)j(that)f(`)-8 b(^)g(')35 +b(denotes)h(in)m(ternal)e(v)-5 b(ariables)33 b(in)0 198 +y(the)g(hard)g(scattering)f(subsystem,)j(while)d(`)1626 +162 y Fk(\003)1665 198 y Fw(')h(is)f(for)h(v)-5 b(ariables)31 +b(in)h(the)h(c.m.)44 b(frame)31 b(of)i(the)g(ev)m(en)m(t)h(as)0 +307 y(a)e(whole.)p 0 431 2876 9 v 0 656 9 225 v 79 572 +a Fq(COMMON/PYSUBS/MSEL,MSUB\()q(200\))q(,KFI)q(N\(2,)q(-40)q(:40\))q +(,CKI)q(N\(20)q(0\))p 2867 656 V 0 664 2876 9 v 0 796 +a Fo(Purp)s(ose:)48 b Fw(to)42 b(allo)m(w)g(the)h(user)h(to)e(run)h +(the)h(program)d(with)i(an)m(y)g(desired)g(subset)i(of)d(pro)s(cesses,) +472 905 y(or)47 b(restrict)g(\015a)m(v)m(ours)h(or)e(kinematics.)86 +b(If)46 b(the)i(default)e(v)-5 b(alues,)50 b(denoted)e(b)s(elo)m(w)f(b) +m(y)472 1013 y(\(D=.)16 b(.)g(.)g(\),)33 b(are)g(not)f(satisfactory)-8 +b(,)33 b(they)g(m)m(ust)g(b)s(e)g(c)m(hanged)g(b)s(efore)g(the)g +Fq(PYINIT)h Fw(call.)0 1175 y Fq(MSEL)52 b(:)165 b Fw(\(D=1\))36 +b(a)g(switc)m(h)i(to)e(select)h(b)s(et)m(w)m(een)h(full)d(user)j(con)m +(trol)d(and)i(some)g(preprogrammed)472 1284 y(alternativ)m(es.)236 +1392 y Fq(=)52 b(0)f(:)217 b Fw(desired)25 b(subpro)s(cesses)j(ha)m(v)m +(e)e(to)f(b)s(e)g(switc)m(hed)h(on)f(in)g Fq(MSUB)p Fw(,)h(i.e.)40 +b(full)23 b(user)j(con)m(trol.)236 1500 y Fq(=)52 b(1)f(:)217 +b Fw(dep)s(ending)32 b(on)h(incoming)d(particles,)i(di\013eren)m(t)h +(alternativ)m(es)f(are)h(used.)709 1609 y(Lepton{lepton:)43 +b(Z)32 b(or)g(W)i(pro)s(duction)e(\(ISUB)h(=)g(1)f(or)g(2\).)709 +1717 y(Lepton{hadron:)43 b(deep)34 b(inelastic)d(scattering)h(\(ISUB)h +(=)g(10\).)709 1825 y(Hadron{hadron:)66 b(QCD)44 b(high-)p +Fj(p)1998 1840 y Fk(?)2100 1825 y Fw(pro)s(cesses)j(\(ISUB)e(=)f(11,)i +(12,)h(13,)g(28,)g(53,)709 1934 y(68\);)31 b(additionally)d(lo)m(w-)p +Fj(p)1667 1949 y Fk(?)1757 1934 y Fw(pro)s(duction)j(if)38 +b Fq(CKIN\(3\))p Fj(<)p Fq(PARP\(81\))d Fw(or)c Fq(PARP\(82\))p +Fw(,)709 2042 y(dep)s(ending)c(on)h Fq(MSTP\(82\))h Fw(\(ISUB)f(=)g +(95\).)41 b(If)27 b(lo)m(w-)p Fj(p)2663 2057 y Fk(?)2749 +2042 y Fw(is)g(switc)m(hed)i(on,)f(the)g(other)709 2150 +y Fq(CKIN)33 b Fw(cuts)h(are)e(not)h(used.)709 2259 y(A)j(resolv)m(ed)i +(photon)f(coun)m(ts)g(as)g(hadron,)h(except)g(that)f(an)f(anomalous)f +(photon)709 2367 y(cannot)i(ha)m(v)m(e)h(lo)m(w-)p Fj(p)1488 +2382 y Fk(?)1582 2367 y Fw(in)m(teractions.)56 b(When)37 +b(the)h(photon)e(is)h(not)f(resolv)m(ed,)j(the)709 2476 +y(follo)m(wing)30 b(cases)j(are)g(p)s(ossible.)709 2584 +y(Photon{lepton:)43 b(Compton)32 b(scattering)g(\(ISUB)h(=)g(34\).)709 +2692 y(Photon{hadron:)43 b(photon-parton)32 b(scattering)g(\(ISUB)i(=)e +(33,)g(34,)g(54\).)709 2801 y(Photon{photon:)43 b(fermion)31 +b(pair)h(pro)s(duction)g(\(ISUB)h(=)f(58\).)236 2909 +y Fq(=)52 b(2)f(:)217 b Fw(as)38 b Fq(MSEL)52 b(=)g(1)38 +b Fw(for)f(lepton{lepton,)h(lepton{hadron)g(and)g(unresolv)m(ed)h +(photons.)709 3017 y(F)-8 b(or)34 b(hadron{hadron)i(\(including)e +(resolv)m(ed)i(photons\))g(all)e(QCD)h(pro)s(cesses,)k(in-)709 +3126 y(cluding)e(lo)m(w-)p Fj(p)1282 3141 y Fk(?)1340 +3126 y Fw(,)j(single)e(and)g(double)h(di\013ractiv)m(e)e(and)i(elastic) +f(scattering,)h(are)709 3234 y(included)d(\(ISUB)i(=)f(11,)g(12,)h(13,) +g(28,)g(53,)f(68,)h(91,)g(92,)g(93,)f(94,)h(95\).)56 +b(The)38 b Fq(CKIN)709 3342 y Fw(cuts)33 b(are)g(here)g(not)g(used.)236 +3451 y Fq(=)52 b(4)f(:)217 b Fw(c)m(harm)26 b(\(c)p 1079 +3398 44 4 v(c)q(\))g(pro)s(duction)h(with)f(massiv)m(e)h(matrix)e +(elemen)m(ts)i(\(ISUB)g(=)g(81,)g(82,)h(84,)709 3559 +y(85\).)236 3678 y Fq(=)52 b(5)f(:)217 b Fw(b)s(ottom)33 +b(\(b)p 1147 3599 55 4 v(b)q(\))h(pro)s(duction)h(with)f(massiv)m(e)i +(matrix)d(elemen)m(ts)i(\(ISUB)h(=)f(81,)g(82,)709 3786 +y(84,)d(85\).)236 3895 y Fq(=)52 b(6)f(:)217 b Fw(top)38 +b(\(t)p 964 3823 38 4 v(t\))h(pro)s(duction)f(with)g(massiv)m(e)h +(matrix)e(elemen)m(ts)i(\(ISUB)h(=)e(81,)i(82,)g(84,)709 +4003 y(85\).)236 4122 y Fq(=)52 b(7)f(:)217 b Fw(lo)m(w)40 +b(\(l)p 959 4043 28 4 v(l)n(\))g(pro)s(duction)g(with)g(massiv)m(e)g +(matrix)f(elemen)m(ts)i(\(ISUB)g(=)f(81,)i(82,)g(84,)709 +4230 y(85\).)236 4349 y Fq(=)52 b(8)f(:)217 b Fw(high)31 +b(\(h)p 1017 4270 55 4 v(h\))h(pro)s(duction)g(with)f(massiv)m(e)i +(matrix)d(elemen)m(ts)j(\(ISUB)f(=)g(81,)g(82,)g(84,)709 +4458 y(85\).)236 4566 y Fq(=)52 b(10)g(:)165 b Fw(prompt)32 +b(photons)h(\(ISUB)g(=)f(14,)g(18,)g(29\).)236 4674 y +Fq(=)52 b(11)g(:)165 b Fw(Z)769 4638 y Fl(0)840 4674 +y Fw(pro)s(duction)32 b(\(ISUB)h(=)g(1\).)236 4783 y +Fq(=)52 b(12)g(:)165 b Fw(W)810 4747 y Fk(\006)902 4783 +y Fw(pro)s(duction)32 b(\(ISUB)h(=)f(2\).)236 4891 y +Fq(=)52 b(13)g(:)165 b Fw(Z)769 4855 y Fl(0)840 4891 +y Fw(+)33 b(jet)f(pro)s(duction)g(\(ISUB)h(=)g(15,)f(30\).)236 +4999 y Fq(=)52 b(14)g(:)165 b Fw(W)810 4963 y Fk(\006)902 +4999 y Fw(+)32 b(jet)h(pro)s(duction)f(\(ISUB)h(=)f(16,)g(31\).)236 +5108 y Fq(=)52 b(15)g(:)165 b Fw(pair)37 b(pro)s(duction)g(of)g +(di\013eren)m(t)h(com)m(binations)f(of)g Fj(\015)5 b +Fw(,)39 b(Z)2820 5072 y Fl(0)2897 5108 y Fw(and)f(W)3193 +5072 y Fk(\006)3291 5108 y Fw(\(except)h Fj(\015)5 b(\015)g +Fw(;)709 5216 y(see)33 b Fq(MSEL)h Fw(=)e(10\))g(\(ISUB)h(=)g(19,)f +(20,)g(22,)g(23,)g(25\).)236 5324 y Fq(=)52 b(16)g(:)165 +b Fw(H)782 5288 y Fl(0)854 5324 y Fw(pro)s(duction)32 +b(\(ISUB)h(=)f(3,)g(102,)g(103,)g(123,)g(124\).)236 5433 +y Fq(=)52 b(17)g(:)165 b Fw(H)782 5397 y Fl(0)821 5433 +y Fw(Z)881 5397 y Fl(0)953 5433 y Fw(or)32 b(H)1145 5397 +y Fl(0)1185 5433 y Fw(W)1286 5397 y Fk(\006)1378 5433 +y Fw(\(ISUB)h(=)f(24,)g(26\).)236 5541 y Fq(=)52 b(18)g(:)165 +b Fw(H)782 5505 y Fl(0)855 5541 y Fw(pro)s(duction,)34 +b(com)m(bination)f(relev)-5 b(an)m(t)34 b(for)g(e)2502 +5505 y Fl(+)2561 5541 y Fw(e)2604 5505 y Fk(\000)2697 +5541 y Fw(annihilation)d(\(ISUB)k(=)f(24,)709 5649 y(103,)e(123,)g +(124\).)1817 5953 y(144)p eop +%%Page: 145 151 +145 150 bop 236 -18 a Fq(=)52 b(19)g(:)165 b Fw(H)782 +-55 y Fl(0)821 -18 y Fw(,)33 b(H)954 -55 y Fk(0)p Fl(0)1046 +-18 y Fw(and)g(A)1309 -55 y Fl(0)1381 -18 y Fw(pro)s(duction,)f +(excepting)i(pair)e(pro)s(duction)g(\(ISUB)h(=)g(24,)f(103,)709 +90 y(123,)g(124,)g(153,)f(158,)h(171,)g(173,)g(174,)g(176,)g(178,)g +(179\).)236 198 y Fq(=)52 b(21)g(:)165 b Fw(Z)769 162 +y Fk(0)p Fl(0)859 198 y Fw(pro)s(duction)32 b(\(ISUB)h(=)g(141\).)236 +307 y Fq(=)52 b(22)g(:)165 b Fw(W)810 270 y Fk(0\006)921 +307 y Fw(pro)s(duction)32 b(\(ISUB)h(=)f(142\).)236 415 +y Fq(=)52 b(23)g(:)165 b Fw(H)782 379 y Fk(\006)873 415 +y Fw(pro)s(duction)32 b(\(ISUB)h(=)g(143\).)236 523 y +Fq(=)52 b(24)g(:)165 b Fw(R)781 487 y Fl(0)852 523 y +Fw(pro)s(duction)32 b(\(ISUB)h(=)g(144\).)236 632 y Fq(=)52 +b(25)g(:)165 b Fw(L)770 647 y Fl(Q)861 632 y Fw(\(lepto)s(quark\))32 +b(pro)s(duction)g(\(ISUB)h(=)g(145,)f(162,)g(163,)g(164\).)236 +740 y Fq(=)52 b(35:)217 b Fw(single)31 b(b)s(ottom)g(pro)s(duction)h(b) +m(y)i(W)g(exc)m(hange)g(\(ISUB)f(=)g(83\).)236 848 y +Fq(=)52 b(36:)217 b Fw(single)31 b(top)i(pro)s(duction)e(b)m(y)j(W)g +(exc)m(hange)g(\(ISUB)f(=)g(83\).)236 957 y Fq(=)52 b(37:)217 +b Fw(single)31 b(lo)m(w)h(pro)s(duction)g(b)m(y)i(W)g(exc)m(hange)g +(\(ISUB)f(=)f(83\).)236 1065 y Fq(=)52 b(38:)217 b Fw(single)31 +b(high)h(pro)s(duction)g(b)m(y)h(W)h(exc)m(hange)h(\(ISUB)e(=)f(83\).)0 +1227 y Fq(MSUB)52 b(:)165 b Fw(\(D=200*0\))32 b(arra)m(y)h(to)g(b)s(e)g +(set)h(when)h Fq(MSEL=0)g Fw(\(for)d Fq(MSEL)p Fn(\025)f +Fw(1)i(relev)-5 b(an)m(t)33 b(en)m(tries)h(are)f(set)472 +1336 y(in)26 b Fq(PYINIT)p Fw(\))h(to)f(c)m(ho)s(ose)g(whic)m(h)h +(subset)g(of)f(subpro)s(cesses)j(to)c(include)h(in)f(the)h(generation.) +472 1444 y(The)41 b(ordering)e(follo)m(ws)g(the)h(ISUB)g(co)s(de)h(giv) +m(en)f(in)f(section)h(8.1)f(\(with)h(commen)m(ts)f(as)472 +1552 y(giv)m(en)33 b(there\).)236 1661 y Fq(MSUB\(ISUB\))54 +b(=)e(0)f(:)d Fw(the)33 b(subpro)s(cess)h(is)e(excluded.)236 +1769 y Fq(MSUB\(ISUB\))54 b(=)e(1)f(:)d Fw(the)33 b(subpro)s(cess)h(is) +e(included.)236 1878 y Fo(Note:)203 b Fw(when)49 b Fq(MSEL=0)p +Fw(,)k(the)c Fq(MSUB)f Fw(v)-5 b(alues)48 b(set)h(b)m(y)g(the)f(user)h +(are)f(nev)m(er)i(c)m(hanged)f(b)m(y)709 1986 y Fm(Pythia)p +Fw(.)61 b(If)39 b(y)m(ou)g(w)m(an)m(t)g(to)f(com)m(bine)g(sev)m(eral)i +(di\013eren)m(t)e(`subruns',)k(eac)m(h)e(with)709 2094 +y(its)30 b(o)m(wn)i Fq(PYINIT)g Fw(call,)e(in)m(to)g(one)h(single)f +(run,)i(it)e(is)g(up)h(to)g(y)m(ou)g(to)g(remem)m(b)s(er)g(not)709 +2203 y(only)40 b(to)h(switc)m(h)h(on)f(the)g(new)h(pro)s(cesses)h(b)s +(efore)f(eac)m(h)g(new)h Fq(PYINIT)g Fw(call,)e(but)709 +2311 y(also)31 b(to)i(switc)m(h)g(o\013)f(the)h(old)f(ones)h(that)f +(are)h(no)f(longer)g(desired.)0 2473 y Fq(KFIN\(I,J\))54 +b(:)47 b Fw(pro)m(vides)26 b(an)f(option)e(to)i(selectiv)m(ely)g(switc) +m(h)h(on)f(and)g(o\013)f(con)m(tributions)h(to)f(the)i(cross)472 +2582 y(sections)32 b(from)d(the)i(di\013eren)m(t)g(incoming)d +(partons/particles)i(at)h(the)g(hard)f(in)m(teraction.)472 +2690 y(In)44 b(com)m(bination)d(with)h(the)h Fm(Jetset)f +Fw(resonance)j(deca)m(y)f(switc)m(hes,)j(this)c(also)f(allo)m(ws)472 +2798 y(y)m(ou)34 b(to)e(set)h(restrictions)f(on)h(\015a)m(v)m(ours)h +(app)s(earing)d(in)h(the)h(\014nal)f(state.)236 2907 +y Fq(I)52 b(:)319 b Fw(is)32 b(1)g(for)g(b)s(eam)g(side)h(of)f(ev)m(en) +m(t)i(and)f(2)f(for)g(target)g(side.)236 3015 y Fq(J)52 +b(:)319 b Fw(en)m(umerates)33 b(\015a)m(v)m(ours)h(according)e(to)g +(the)h(KF)f(co)s(de;)h(see)h(section)f(5.1.)236 3123 +y Fq(KFIN\(I,J\))54 b(=)d(0)h(:)47 b Fw(the)33 b(parton/particle)e(is)h +(forbidden.)236 3232 y Fq(KFIN\(I,J\))54 b(=)d(1)h(:)47 +b Fw(the)33 b(parton/particle)e(is)h(allo)m(w)m(ed.)236 +3340 y Fo(Note:)203 b Fw(By)38 b(default,)h(the)g(follo)m(wing)c(are)j +(switc)m(hed)i(on:)54 b(d,)40 b(u,)g(s,)g(c,)f(b,)h(e)3197 +3304 y Fk(\000)3257 3340 y Fw(,)f Fj(\027)3371 3355 y +Fl(e)3407 3340 y Fw(,)g Fj(\026)3532 3304 y Fk(\000)3591 +3340 y Fw(,)h Fj(\027)3706 3355 y Fh(\026)3752 3340 y +Fw(,)709 3448 y Fj(\034)762 3412 y Fk(\000)821 3448 y +Fw(,)30 b Fj(\027)926 3463 y Fh(\034)970 3448 y Fw(,)g(g)q(,)g +Fj(\015)5 b Fw(,)30 b(Z)1307 3412 y Fl(0)1346 3448 y +Fw(,)g(W)1504 3412 y Fl(+)1593 3448 y Fw(and)f(their)g(an)m +(tiparticles.)41 b(In)29 b(particular,)g(top)g(is)g(o\013,)g(and)709 +3557 y(has)k(to)f(b)s(e)h(switc)m(hed)g(on)g(explicitly)e(if)g(needed.) +0 3719 y Fq(CKIN)52 b(:)165 b Fw(kinematics)31 b(cuts)h(that)f(can)g(b) +s(e)h(set)g(b)m(y)g(y)m(ou)g(b)s(efore)f(the)h Fq(PYINIT)h +Fw(call,)d(and)h(that)g(a\013ect)472 3828 y(the)39 b(region)f(of)g +(phase)h(space)h(within)d(whic)m(h)j(ev)m(en)m(ts)g(are)f(generated.)62 +b(Some)38 b(cuts)h(are)472 3936 y(`hardwired')27 b(while)e(most)g(are)h +(`soft)m(wired'.)41 b(The)27 b(hardwired)f(ones)h(are)f(directly)f +(related)472 4044 y(to)34 b(the)g(kinematical)e(v)-5 +b(ariables)33 b(used)i(in)e(the)h(ev)m(en)m(t)i(selection)e(pro)s +(cedure,)h(and)f(there-)472 4153 y(fore)29 b(ha)m(v)m(e)g(negligible)d +(e\013ects)j(on)g(program)d(e\016ciency)-8 b(.)44 b(The)29 +b(most)f(imp)s(ortan)m(t)e(of)i(these)472 4261 y(are)i +Fq(CKIN\(1\))53 b(-)f(CKIN\(8\))p Fw(,)32 b Fq(CKIN\(27\))53 +b(-)f(CKIN\(28\))p Fw(,)32 b(and)d Fq(CKIN\(31\))54 b(-)d(CKIN\(32\))p +Fw(.)472 4369 y(The)32 b(soft)m(wired)e(ones)i(are)e(most)g(of)g(the)g +(remaining)f(ones,)i(that)f(cannot)h(b)s(e)f(fully)f(tak)m(en)472 +4478 y(in)m(to)37 b(accoun)m(t)h(in)f(the)h(kinematical)d(v)-5 +b(ariable)35 b(selection,)k(so)e(that)g(generation)g(in)g(con-)472 +4586 y(strained)29 b(regions)g(of)f(phase)i(space)g(ma)m(y)f(b)s(e)g +(slo)m(w.)43 b(In)29 b(extreme)h(cases)g(the)f(phase)h(space)472 +4694 y(ma)m(y)44 b(b)s(e)f(so)h(small)d(that)i(the)h(maximization)39 +b(pro)s(cedure)45 b(fails)c(to)i(\014nd)h(an)m(y)g(allo)m(w)m(ed)472 +4803 y(p)s(oin)m(ts)e(at)g(all)e(\(although)h(some)g(small)f(region)h +(migh)m(t)g(still)e(exist)k(somewhere\),)i(and)472 4911 +y(therefore)34 b(switc)m(hes)g(o\013)e(some)g(subpro)s(cesses,)k(or)c +(ab)s(orts)h(altogether.)0 5031 y Fq(CKIN\(1\),)53 b(CKIN\(2\))h(:)47 +b Fw(\(D=2.,-1.)c(GeV\))32 b(range)h(of)f(allo)m(w)m(ed)51 +b(^)-68 b Fj(m)29 b Fw(=)2619 4947 y Fn(p)p 2702 4947 +46 4 v 2706 5031 a Fw(^)-53 b Fj(s)32 b Fw(v)-5 b(alues.)44 +b(If)c Fq(CKIN\(2\))p Fj(<)30 b Fw(0)p Fj(:)p Fw(,)472 +5140 y(the)j(upp)s(er)h(limit)29 b(is)j(inactiv)m(e.)0 +5248 y Fq(CKIN\(3\),)53 b(CKIN\(4\))h(:)47 b Fw(\(D=0.,-1.)64 +b(GeV\))40 b(range)g(of)f(allo)m(w)m(ed)48 b(^)-57 b +Fj(p)2501 5263 y Fk(?)2599 5248 y Fw(v)-5 b(alues)40 +b(for)g(hard)g(2)g Fn(!)f Fw(2)h(pro-)472 5356 y(cesses,)47 +b(with)41 b(transv)m(erse)j(momen)m(tum)k(^)-57 b Fj(p)2061 +5371 y Fk(?)2161 5356 y Fw(de\014ned)43 b(in)e(the)h(rest)g(frame)e(of) +h(the)h(hard)472 5465 y(in)m(teraction.)f(If)36 b Fq(CKIN\(4\))p +Fj(<)29 b Fw(0)p Fj(:)p Fw(,)g(the)g(upp)s(er)g(limit)24 +b(is)k(inactiv)m(e.)42 b(F)-8 b(or)27 b(pro)s(cesses)j(that)e(are)472 +5573 y(singular)38 b(in)g(the)h(limit)44 b(^)-57 b Fj(p)1431 +5588 y Fk(?)1528 5573 y Fn(!)38 b Fw(0)h(\(see)h Fq(CKIN\(6\))p +Fw(\),)i Fq(CKIN\(5\))f Fw(pro)m(vides)f(an)e(additional)1817 +5953 y(145)p eop +%%Page: 146 152 +146 151 bop 472 -18 a Fw(constrain)m(t.)54 b(The)37 b +Fq(CKIN\(3\))g Fw(and)f Fq(CKIN\(4\))i Fw(limits)33 b(can)j(also)f(b)s +(e)h(used)h(in)f(2)d Fn(!)g Fw(1)g Fn(!)g Fw(2)472 90 +y(pro)s(cesses.)44 b(Here,)30 b(ho)m(w)m(ev)m(er,)h(the)d(pro)s(duct)g +(masses)g(are)g(not)f(kno)m(wn)i(and)f(hence)h(are)f(as-)472 +198 y(sumed)j(to)f(b)s(e)h(v)-5 b(anishing)29 b(in)g(the)i(ev)m(en)m(t) +h(selection.)42 b(The)32 b(actual)d Fj(p)2954 213 y Fk(?)3043 +198 y Fw(range)i(for)e(massiv)m(e)472 307 y(pro)s(ducts)34 +b(is)e(th)m(us)h(shifted)g(do)m(wn)m(w)m(ards)i(with)d(resp)s(ect)i(to) +e(the)h(nominal)d(one.)0 415 y Fq(CKIN\(5\))53 b(:)48 +b Fw(\(D=1.)40 b(GeV\))27 b(lo)m(w)m(er)g(cut-o\013)f(on)35 +b(^)-57 b Fj(p)1800 430 y Fk(?)1885 415 y Fw(v)-5 b(alues,)28 +b(in)e(addition)f(to)i(the)g Fq(CKIN\(3\))h Fw(cut)g(ab)s(o)m(v)m(e,) +472 523 y(for)k(pro)s(cesses)j(that)d(are)h(singular)e(in)h(the)h +(limit)k(^)-57 b Fj(p)2350 538 y Fk(?)2437 523 y Fn(!)27 +b Fw(0)32 b(\(see)i Fq(CKIN\(6\))p Fw(\).)0 632 y Fq(CKIN\(6\))53 +b(:)48 b Fw(\(D=1.)j(GeV\))35 b(hard)h(2)c Fn(!)g Fw(2)j(pro)s(cesses,) +j(whic)m(h)e(do)g(not)f(pro)s(ceed)h(only)f(via)g(an)g(in)m(ter-)472 +740 y(mediate)d(resonance)j(\(i.e.)44 b(are)33 b(2)c +Fn(!)f Fw(1)g Fn(!)g Fw(2)33 b(pro)s(cesses\),)i(are)e(classi\014ed)g +(as)h(singular)d(in)472 848 y(the)37 b(limit)k(^)-58 +b Fj(p)929 863 y Fk(?)1022 848 y Fn(!)33 b Fw(0)j(if)f(either)h(or)g(b) +s(oth)f(of)h(the)g(t)m(w)m(o)h(\014nal-state)e(pro)s(ducts)i(has)g(a)f +(mass)472 957 y Fj(m)28 b(<)p Fq(CKIN\(6\))p Fw(.)0 1065 +y Fq(CKIN\(7\),)53 b(CKIN\(8\))h(:)47 b Fw(\(D=-10.,10.\))42 +b(range)33 b(of)g(allo)m(w)m(ed)f(scattering)h(subsystem)h(rapidities)d +Fj(y)h Fw(=)472 1173 y Fj(y)524 1137 y Fk(\003)599 1173 +y Fw(in)j(the)h(c.m.)54 b(frame)35 b(of)g(the)i(ev)m(en)m(t,)h(where)f +Fj(y)g Fw(=)c(\(1)p Fj(=)p Fw(2\))17 b(ln)n(\()p Fj(x)2863 +1188 y Fl(1)2903 1173 y Fj(=x)3007 1188 y Fl(2)3047 1173 +y Fw(\).)53 b(\(F)-8 b(ollo)m(wing)33 b(the)472 1282 +y(notation)f(of)h(this)g(section,)g(the)h(v)-5 b(ariable)31 +b(should)i(b)s(e)g(giv)m(en)g(as)h Fj(y)2925 1245 y Fk(\003)2963 +1282 y Fw(,)g(but)f(b)s(ecause)h(of)f(its)472 1390 y(frequen)m(t)i +(use,)e(it)f(w)m(as)h(called)f Fj(y)j Fw(in)d(section)h(7.2.\))0 +1498 y Fq(CKIN\(9\),)53 b(CKIN\(10\))h(:)47 b Fw(\(D=-10.,10.\))70 +b(range)43 b(of)e(allo)m(w)m(ed)h(\(true\))g(rapidities)e(for)i(the)g +(pro)s(duct)472 1607 y(with)36 b(largest)e(rapidit)m(y)h(in)g(a)g(2)d +Fn(!)g Fw(2)k(or)f(a)g(2)d Fn(!)h Fw(1)f Fn(!)g Fw(2)k(pro)s(cess,)h +(de\014ned)g(in)e(the)h(c.m.)472 1715 y(frame)42 b(of)h(the)g(ev)m(en)m +(t,)k(i.e.)74 b(max)o(\()p Fj(y)1823 1679 y Fk(\003)1819 +1740 y Fl(3)1862 1715 y Fj(;)17 b(y)1958 1679 y Fk(\003)1954 +1740 y Fl(4)1996 1715 y Fw(\).)74 b(Note)43 b(that)f(rapidities)f(are)i +(coun)m(ted)h(with)472 1823 y(sign,)33 b(i.e.)43 b(if)31 +b Fj(y)1010 1787 y Fk(\003)1006 1848 y Fl(3)1076 1823 +y Fw(=)d(1)k(and)h Fj(y)1503 1787 y Fk(\003)1499 1848 +y Fl(4)1569 1823 y Fw(=)28 b Fn(\000)p Fw(2)k(then)i(max)o(\()p +Fj(y)2325 1787 y Fk(\003)2321 1848 y Fl(3)2364 1823 y +Fj(;)17 b(y)2460 1787 y Fk(\003)2456 1848 y Fl(4)2498 +1823 y Fw(\))28 b(=)f(1.)0 1932 y Fq(CKIN\(11\),)54 b(CKIN\(12\))f(:)48 +b Fw(\(D=-10.,10.\))85 b(range)47 b(of)g(allo)m(w)m(ed)g(\(true\))g +(rapidities)f(for)g(the)i(pro)s(d-)472 2040 y(uct)h(with)f(smallest)e +(rapidit)m(y)h(in)h(a)g(2)53 b Fn(!)h Fw(2)48 b(or)g(a)g(2)53 +b Fn(!)h Fw(1)g Fn(!)g Fw(2)48 b(pro)s(cess,)53 b(de\014ned)472 +2148 y(in)42 b(the)i(c.m.)73 b(frame)42 b(of)g(the)i(ev)m(en)m(t,)j +(i.e.)73 b(min)o(\()p Fj(y)2359 2112 y Fk(\003)2355 2173 +y Fl(3)2397 2148 y Fj(;)17 b(y)2493 2112 y Fk(\003)2489 +2173 y Fl(4)2532 2148 y Fw(\).)73 b(Consistency)45 b(th)m(us)f +(requires)472 2257 y Fq(CKIN\(11\))p Fn(\024)p Fq(CKIN\(9\))37 +b Fw(and)c Fq(CKIN\(12\))p Fn(\024)p Fq(CKIN\(10\))p +Fw(.)0 2365 y Fq(CKIN\(13\),)54 b(CKIN\(14\))f(:)48 b +Fw(\(D=-10.,10.\))k(range)36 b(of)g(allo)m(w)m(ed)f(pseudorapidities)h +(for)g(the)g(pro)s(duct)472 2473 y(with)k(largest)f(pseudorapidit)m(y)h +(in)f(a)g(2)h Fn(!)g Fw(2)f(or)h(a)f(2)h Fn(!)f Fw(1)h +Fn(!)g Fw(2)f(pro)s(cess,)k(de\014ned)e(in)472 2582 y(the)c(c.m.)53 +b(frame)35 b(of)h(the)g(ev)m(en)m(t,)j(i.e.)53 b(max\()p +Fj(\021)2178 2546 y Fk(\003)2174 2606 y Fl(3)2217 2582 +y Fj(;)17 b(\021)2313 2546 y Fk(\003)2309 2606 y Fl(4)2352 +2582 y Fw(\).)53 b(Note)36 b(that)g(pseudorapidities)f(are)472 +2690 y(coun)m(ted)f(with)e(sign,)h(i.e.)43 b(if)31 b +Fj(\021)1598 2654 y Fk(\003)1594 2715 y Fl(3)1665 2690 +y Fw(=)c(1)33 b(and)f Fj(\021)2091 2654 y Fk(\003)2087 +2715 y Fl(4)2158 2690 y Fw(=)c Fn(\000)p Fw(2)k(then)i(max)o(\()p +Fj(\021)2914 2654 y Fk(\003)2910 2715 y Fl(3)2953 2690 +y Fj(;)17 b(\021)3049 2654 y Fk(\003)3045 2715 y Fl(4)3088 +2690 y Fw(\))28 b(=)f(1.)0 2798 y Fq(CKIN\(15\),)54 b(CKIN\(16\))f(:)48 +b Fw(\(D=-10.,10.\))k(range)36 b(of)g(allo)m(w)m(ed)f(pseudorapidities) +h(for)g(the)g(pro)s(duct)472 2907 y(with)43 b(smallest)e(pseudorapidit) +m(y)i(in)f(a)g(2)j Fn(!)g Fw(2)d(or)h(a)f(2)j Fn(!)g +Fw(1)f Fn(!)h Fw(2)d(pro)s(cess,)47 b(de\014ned)472 3015 +y(in)42 b(the)h(c.m.)74 b(frame)42 b(of)g(the)h(ev)m(en)m(t,)k(i.e.)73 +b(min)o(\()p Fj(\021)2358 2979 y Fk(\003)2354 3040 y +Fl(3)2397 3015 y Fj(;)17 b(\021)2493 2979 y Fk(\003)2489 +3040 y Fl(4)2532 3015 y Fw(\).)74 b(Consistency)44 b(th)m(us)g +(requires)472 3123 y Fq(CKIN\(15\))p Fn(\024)p Fq(CKIN\(13\))38 +b Fw(and)32 b Fq(CKIN\(16\))p Fn(\024)p Fq(CKIN\(14\))p +Fw(.)0 3232 y Fq(CKIN\(17\),)54 b(CKIN\(18\))f(:)48 b +Fw(\(D=-1.,1.\))61 b(range)39 b(of)g(allo)m(w)m(ed)f(cos)18 +b Fj(\022)2512 3196 y Fk(\003)2590 3232 y Fw(v)-5 b(alues)39 +b(for)g(the)g(pro)s(duct)h(with)472 3340 y(largest)e(cos)17 +b Fj(\022)988 3304 y Fk(\003)1067 3340 y Fw(v)-5 b(alue)38 +b(in)f(a)i(2)e Fn(!)h Fw(2)g(or)g(a)g(2)g Fn(!)f Fw(1)h +Fn(!)f Fw(2)i(pro)s(cess,)i(de\014ned)f(in)e(the)h(c.m.)472 +3448 y(frame)32 b(of)g(the)h(ev)m(en)m(t,)i(i.e.)43 b(max)o(\(cos)17 +b Fj(\022)1892 3412 y Fk(\003)1889 3473 y Fl(3)1932 3448 +y Fj(;)g Fw(cos)g Fj(\022)2171 3412 y Fk(\003)2168 3473 +y Fl(4)2211 3448 y Fw(\).)0 3557 y Fq(CKIN\(19\),)54 +b(CKIN\(20\))f(:)48 b Fw(\(D=-1.,1.\))61 b(range)39 b(of)g(allo)m(w)m +(ed)f(cos)18 b Fj(\022)2512 3521 y Fk(\003)2590 3557 +y Fw(v)-5 b(alues)39 b(for)g(the)g(pro)s(duct)h(with)472 +3665 y(smallest)k(cos)18 b Fj(\022)1056 3629 y Fk(\003)1141 +3665 y Fw(v)-5 b(alue)45 b(in)f(a)i(2)j Fn(!)h Fw(2)45 +b(or)g(a)g(2)50 b Fn(!)f Fw(1)h Fn(!)f Fw(2)c(pro)s(cess,)50 +b(de\014ned)d(in)e(the)472 3774 y(c.m.)77 b(frame)43 +b(of)g(the)h(ev)m(en)m(t,)k(i.e.)76 b(min)o(\(cos)17 +b Fj(\022)2209 3737 y Fk(\003)2206 3798 y Fl(3)2249 3774 +y Fj(;)g Fw(cos)f Fj(\022)2487 3737 y Fk(\003)2484 3798 +y Fl(4)2527 3774 y Fw(\).)77 b(Consistency)45 b(th)m(us)g(requires)472 +3882 y Fq(CKIN\(19\))p Fn(\024)p Fq(CKIN\(17\))38 b Fw(and)32 +b Fq(CKIN\(20\))p Fn(\024)p Fq(CKIN\(18\))p Fw(.)0 3990 +y Fq(CKIN\(21\),)54 b(CKIN\(22\))f(:)48 b Fw(\(D=0.,1.\))66 +b(range)41 b(of)f(allo)m(w)m(ed)g Fj(x)2348 4005 y Fl(1)2429 +3990 y Fw(v)-5 b(alues)41 b(for)f(the)h(parton)f(on)h(side)g(1)472 +4099 y(that)33 b(en)m(ters)h(the)f(hard)f(in)m(teraction.)0 +4207 y Fq(CKIN\(23\),)54 b(CKIN\(24\))f(:)48 b Fw(\(D=0.,1.\))66 +b(range)41 b(of)f(allo)m(w)m(ed)g Fj(x)2348 4222 y Fl(2)2429 +4207 y Fw(v)-5 b(alues)41 b(for)f(the)h(parton)f(on)h(side)g(2)472 +4315 y(that)33 b(en)m(ters)h(the)f(hard)f(in)m(teraction.)0 +4424 y Fq(CKIN\(25\),)54 b(CKIN\(26\))f(:)48 b Fw(\(D=-1.,1.\))40 +b(range)28 b(of)f(allo)m(w)m(ed)h(F)-8 b(eynman-)p Fj(x)27 +b Fw(v)-5 b(alues,)29 b(where)h Fj(x)3413 4439 y Fl(F)3491 +4424 y Fw(=)d Fj(x)3649 4439 y Fl(1)3702 4424 y Fn(\000)472 +4532 y Fj(x)527 4547 y Fl(2)567 4532 y Fw(.)0 4651 y +Fq(CKIN\(27\),)54 b(CKIN\(28\))f(:)48 b Fw(\(D=-1.,1.\))40 +b(range)28 b(of)f(allo)m(w)m(ed)g(cos)2416 4624 y(^)2409 +4651 y Fj(\022)k Fw(v)-5 b(alues)27 b(in)g(a)h(hard)g(2)f +Fn(!)h Fw(2)f(scatter-)472 4779 y(ing,)32 b(where)952 +4753 y(^)944 4779 y Fj(\022)k Fw(is)c(the)h(scattering)f(angle)g(in)g +(the)h(rest)g(frame)e(of)i(the)g(hard)f(in)m(teraction.)0 +4899 y Fq(CKIN\(31\),)54 b(CKIN\(32\))f(:)48 b Fw(\(D=2.,-1.)j(GeV\))36 +b(range)f(of)h(allo)m(w)m(ed)53 b(^)-67 b Fj(m)2610 4863 +y Fk(0)2666 4899 y Fw(=)2775 4815 y Fn(p)p 2858 4815 +70 4 v 2862 4899 a Fw(^)-53 b Fj(s)2904 4871 y Fk(0)2963 +4899 y Fw(v)-5 b(alues,)37 b(where)55 b(^)-67 b Fj(m)3655 +4863 y Fk(0)3714 4899 y Fw(is)472 5008 y(the)40 b(mass)f(of)g(the)h +(complete)e(three-)i(or)e(four-b)s(o)s(dy)h(\014nal)f(state)i(in)e(2)h +Fn(!)g Fw(3)g(or)f(2)h Fn(!)g Fw(4)472 5116 y(pro)s(cesses)46 +b(\(while)60 b(^)-67 b Fj(m)p Fw(,)46 b(constrained)d(in)g +Fq(CKIN\(1\))h Fw(and)g Fq(CKIN\(2\))p Fw(,)j(here)d(corresp)s(onds)472 +5224 y(to)35 b(the)g(one-)g(or)g(t)m(w)m(o-b)s(o)s(dy)g(cen)m(tral)g +(system\).)51 b(If)42 b Fq(CKIN\(32\))p Fj(<)33 b Fw(0)p +Fj(:)p Fw(,)j(the)f(upp)s(er)h(limit)31 b(is)472 5333 +y(inactiv)m(e.)0 5441 y Fq(CKIN\(35\),)54 b(CKIN\(36\))f(:)48 +b Fw(\(D=0.,-1.)43 b(GeV)1710 5405 y Fl(2)1749 5441 y +Fw(\))33 b(range)g(of)g(allo)m(w)m(ed)f Fn(j)2574 5423 +y Fw(^)2573 5441 y Fj(t)p Fn(j)c Fw(=)g Fn(\000)2846 +5423 y Fw(^)2845 5441 y Fj(t)34 b Fw(v)-5 b(alues)33 +b(in)f(2)c Fn(!)g Fw(2)33 b(pro-)472 5550 y(cesses.)46 +b(Note)30 b(that)f(for)h(deep)g(inelastic)f(scattering)g(this)h(is)f +(nothing)g(but)i(the)f Fj(Q)3482 5513 y Fl(2)3551 5550 +y Fw(scale,)472 5658 y(in)24 b(the)h(limit)d(that)i(initial-)d(and)j +(\014nal-state)g(radiation)f(is)h(neglected.)41 b(If)32 +b Fq(CKIN\(36\))p Fj(<)e Fw(0)p Fj(:)p Fw(,)1817 5953 +y(146)p eop +%%Page: 147 153 +147 152 bop 472 -18 a Fw(the)33 b(upp)s(er)h(limit)29 +b(is)j(inactiv)m(e.)0 90 y Fq(CKIN\(37\),)54 b(CKIN\(38\))f(:)48 +b Fw(\(D=0.,-1.)72 b(GeV)1739 54 y Fl(2)1779 90 y Fw(\))43 +b(range)g(of)f(allo)m(w)m(ed)g Fn(j)6 b Fw(^)-55 b Fj(u)o +Fn(j)45 b Fw(=)g Fn(\000)6 b Fw(^)-55 b Fj(u)43 b Fw(v)-5 +b(alues)43 b(in)f(2)j Fn(!)g Fw(2)472 198 y(pro)s(cesses.)h(If)39 +b Fq(CKIN\(38\))p Fj(<)30 b Fw(0)p Fj(:)p Fw(,)j(the)g(upp)s(er)g +(limit)c(is)j(inactiv)m(e.)0 307 y Fq(CKIN\(39\),)54 +b(CKIN\(40\))f(:)48 b Fw(\(D=4.,)40 b(-1.)64 b(GeV)1771 +270 y Fl(2)1810 307 y Fw(\))40 b(the)f Fj(W)2168 270 +y Fl(2)2247 307 y Fw(range)h(allo)m(w)m(ed)e(in)h(DIS)g(pro)s(cesses,) +44 b(i.e.)472 415 y(subpro)s(cess)34 b(n)m(um)m(b)s(er)e(10.)42 +b(If)d Fq(CKIN\(40\))p Fj(<)29 b Fw(0)p Fj(:)p Fw(,)j(the)g(upp)s(er)g +(limit)c(is)j(inactiv)m(e.)42 b(Here)32 b Fj(W)3740 379 +y Fl(2)472 523 y Fw(is)f(de\014ned)h(in)e(terms)h(of)g +Fj(W)1501 487 y Fl(2)1567 523 y Fw(=)d Fj(Q)1748 487 +y Fl(2)1788 523 y Fw(\(1)18 b Fn(\000)i Fj(x)p Fw(\))p +Fj(=x)p Fw(.)43 b(This)31 b(form)m(ula)e(is)i(not)f(quite)h(correct,)h +(in)472 632 y(that)j Fi(\(i\))i Fw(it)d(neglects)h(the)g(target)f(mass) +g(\(for)g(a)g(proton\),)h(and)g Fi(\(ii\))i Fw(it)d(neglects)h +(initial-)472 740 y(state)29 b(photon)f(radiation)e(o\013)i(the)h +(incoming)d(electron.)42 b(It)28 b(should)h(b)s(e)f(go)s(o)s(d)f +(enough)i(for)472 848 y(lo)s(ose)j(cuts,)i(ho)m(w)m(ev)m(er.)0 +957 y Fq(CKIN\(41\))53 b(-)f(CKIN\(44\))h(:)48 b Fw +(\(D=12.,-1.,12.,-1.)75 b(GeV\))44 b(range)f(of)h(allo)m(w)m(ed)f(mass) +h(v)-5 b(alues)44 b(of)f(the)472 1065 y(t)m(w)m(o)30 +b(\(or)e(one\))i(resonances)g(pro)s(duced)g(in)e(a)h(`true')g(2)f +Fn(!)f Fw(2)i(pro)s(cess,)h(i.e.)42 b(one)29 b(not)g(\(only\))472 +1173 y(pro)s(ceeding)j(through)g(a)g(single)f Fj(s)p +Fw(-c)m(hannel)h(resonance)i(\(2)27 b Fn(!)g Fw(1)h Fn(!)f +Fw(2\).)43 b(\(These)34 b(are)e(the)472 1282 y(ones)i(listed)e(as)h(2)c +Fn(!)f Fw(2)k(in)h(the)g(tables)g(in)f(section)h(8.1.\))45 +b(Only)32 b(particles)g(with)h(a)g(width)472 1390 y(ab)s(o)m(v)m(e)e +Fq(PARP\(41\))h Fw(are)e(considered)h(as)f(b)s(ona)f(\014de)i +(resonances)g(and)f(tested)h(against)e(the)472 1498 y +Fq(CKIN)36 b Fw(limits;)c(particles)i(with)g(a)g(smaller)f(width)h(are) +h(put)f(on)h(the)g(mass)f(shell)g(without)472 1607 y(applying)e(an)m(y) +h(cuts.)45 b(The)33 b(exact)h(in)m(terpretation)d(of)h(the)h +Fq(CKIN)h Fw(v)-5 b(ariables)31 b(dep)s(ends)k(on)472 +1715 y(the)e(\015a)m(v)m(ours)h(of)e(the)h(t)m(w)m(o)h(pro)s(duced)f +(resonances.)472 1823 y(F)-8 b(or)41 b(t)m(w)m(o)h(resonances)h(lik)m +(e)d(Z)1588 1787 y Fl(0)1627 1823 y Fw(W)1728 1787 y +Fl(+)1829 1823 y Fw(\(pro)s(duced)i(from)e(\013)2604 +1787 y Fk(0)2670 1823 y Fn(!)i Fw(Z)2872 1787 y Fl(0)2911 +1823 y Fw(W)3012 1787 y Fl(+)3071 1823 y Fw(\),)i(whic)m(h)d(are)h(not) +472 1932 y(iden)m(tical)31 b(and)i(whic)m(h)g(are)g(not)f(eac)m(h)i +(other's)f(an)m(tiparticles,)e(one)i(has)472 2040 y Fq(CKIN\(41\))p +Fj(<)d(m)1071 2055 y Fl(1)1139 2040 y Fj(<)p Fq(CKIN\(42\))p +Fw(,)k(and)472 2148 y Fq(CKIN\(43\))p Fj(<)c(m)1071 2163 +y Fl(2)1139 2148 y Fj(<)p Fq(CKIN\(44\))p Fw(,)472 2257 +y(where)44 b Fj(m)849 2272 y Fl(1)930 2257 y Fw(and)e +Fj(m)1214 2272 y Fl(2)1296 2257 y Fw(are)g(the)g(actually)f(generated)h +(masses)h(of)f(the)g(t)m(w)m(o)h(resonances,)472 2365 +y(and)29 b(1)f(and)h(2)f(are)g(de\014ned)i(b)m(y)f(the)g(order)g(in)e +(whic)m(h)i(they)h(are)e(giv)m(en)h(in)e(the)i(pro)s(duction)472 +2473 y(pro)s(cess)34 b(sp)s(eci\014cation.)472 2582 y(F)-8 +b(or)35 b(t)m(w)m(o)h(resonances)i(lik)m(e)d(Z)1566 2546 +y Fl(0)1605 2582 y Fw(Z)1665 2546 y Fl(0)1704 2582 y +Fw(,)h(whic)m(h)g(are)g(iden)m(tical,)e(or)h(W)2861 2546 +y Fl(+)2921 2582 y Fw(W)3022 2546 y Fk(\000)3082 2582 +y Fw(,)h(whic)m(h)g(are)g(eac)m(h)472 2690 y(other's)e(an)m +(tiparticles,)d(one)i(instead)f(has)472 2798 y Fq(CKIN\(41\))p +Fj(<)e Fw(min)o(\()p Fj(m)1272 2813 y Fl(1)1311 2798 +y Fj(;)17 b(m)1440 2813 y Fl(2)1480 2798 y Fw(\))27 b +Fj(<)p Fq(CKIN\(42\))p Fw(,)35 b(and)472 2907 y Fq(CKIN\(43\))p +Fj(<)30 b Fw(max\()p Fj(m)1291 2922 y Fl(1)1330 2907 +y Fj(;)17 b(m)1459 2922 y Fl(2)1499 2907 y Fw(\))27 b +Fj(<)p Fq(CKIN\(44\))p Fw(.)472 3015 y(In)h(addition,)f(whatev)m(er)i +(limits)24 b(are)k(set)g(on)f Fq(CKIN\(1\))i Fw(and,)g(in)e +(particular,)f(on)i Fq(CKIN\(2\))472 3123 y Fw(ob)m(viously)33 +b(a\013ect)g(the)g(masses)g(actually)e(selected.)236 +3232 y Fo(Note)37 b(1:)110 b Fw(If)32 b Fq(MSTP\(42\)=0)p +Fw(,)d(so)d(that)f(no)g(mass)g(smearing)f(is)h(allo)m(w)m(ed,)h(the)g +Fq(CKIN)g Fw(v)-5 b(alues)25 b(ha)m(v)m(e)709 3340 y(no)32 +b(e\013ect)i(\(the)f(same)f(as)h(for)f(particles)f(with)i(to)s(o)e +(narro)m(w)i(a)g(width\).)236 3448 y Fo(Note)k(2:)110 +b Fw(If)54 b Fq(CKIN\(42\))p Fj(<)p Fq(CKIN\(41\))d Fw(it)46 +b(means)h(that)g(the)g Fq(CKIN\(42\))j Fw(limit)43 b(is)k(inactiv)m(e;) +709 3557 y(corresp)s(ondingly)-8 b(,)32 b(if)38 b Fq(CKIN\(44\))p +Fj(<)p Fq(CKIN\(43\))f Fw(then)c Fq(CKIN\(44\))i Fw(is)d(inactiv)m(e.) +236 3665 y Fo(Note)37 b(3:)110 b Fw(If)40 b(limits)d(are)j(activ)m(e)g +(and)g(the)h(resonances)h(are)e(iden)m(tical,)g(it)f(is)h(up)g(to)g(y)m +(ou)h(to)709 3774 y(ensure)34 b(that)e Fq(CKIN\(41\))p +Fn(\024)p Fq(CKIN\(43\))37 b Fw(and)c Fq(CKIN\(42\))p +Fn(\024)p Fq(CKIN\(44\))p Fw(.)236 3882 y Fo(Note)k(4:)110 +b Fw(F)-8 b(or)33 b(iden)m(tical)g(resonances,)38 b(it)33 +b(is)h(not)h(p)s(ossible)f(to)g(preselect)i(whic)m(h)f(of)f(the)h(res-) +709 3990 y(onances)h(is)e(the)h(ligh)m(ter)f(one;)i(if,)f(for)f +(instance,)i(one)f(Z)2785 3954 y Fl(0)2859 3990 y Fw(is)f(to)h(deca)m +(y)h(to)e(leptons)709 4099 y(and)40 b(the)i(other)e(to)h(quarks,)j +(there)d(is)f(no)h(mec)m(hanism)f(to)g(guaran)m(tee)i(that)e(the)709 +4207 y(lepton)32 b(pair)f(has)i(a)g(mass)f(smaller)f(than)h(the)h +(quark)h(one.)236 4315 y Fo(Note)j(5:)110 b Fw(The)25 +b Fq(CKIN)f Fw(v)-5 b(alues)24 b(are)g(applied)f(to)h(all)e(relev)-5 +b(an)m(t)23 b(2)28 b Fn(!)f Fw(2)d(pro)s(cesses)i(equally)-8 +b(,)25 b(whic)m(h)709 4424 y(ma)m(y)35 b(not)g(b)s(e)h(what)g(one)g +(desires)g(if)e(sev)m(eral)i(pro)s(cesses)i(are)e(generated)g(sim)m +(ulta-)709 4532 y(neously)-8 b(.)58 b(Some)37 b(caution)g(is)g +(therefore)h(urged)g(in)f(the)h(use)g(of)f(the)h Fq(CKIN\(41\))53 +b(-)709 4640 y(CKIN\(44\))33 b Fw(v)-5 b(alues.)43 b(Also)31 +b(in)f(other)i(resp)s(ects,)h(users)g(are)e(recommended)h(to)f(tak)m(e) +709 4749 y(prop)s(er)e(care:)42 b(if)27 b(a)i(Z)1482 +4712 y Fl(0)1550 4749 y Fw(is)f(only)h(allo)m(w)m(ed)f(to)h(deca)m(y)h +(in)m(to)e(b)p 2829 4669 55 4 v(b,)i(for)f(example,)g(setting)709 +4857 y(its)j(mass)g(range)h(to)f(b)s(e)h(2{8)f(GeV)g(is)g(ob)m(viously) +h(not)f(a)g(go)s(o)s(d)g(idea.)236 4965 y Fo(Note)37 +b(6:)110 b Fw(In)46 b(principle,)i(the)f(mac)m(hinery)f(should)g(w)m +(ork)h(for)f(an)m(y)h(2)j Fn(!)h Fw(2)45 b(pro)s(cess)j(with)709 +5074 y(resonances)g(in)e(the)h(\014nal)f(state,)k(but)d(so)g(far)f(it)f +(has)i(only)f(b)s(een)h(c)m(hec)m(k)m(ed)j(for)709 5182 +y(pro)s(cesses)34 b(22{26,)e(so)h(also)e(from)h(this)g(p)s(oin)m(t)f +(some)i(caution)f(is)g(urged.)0 5290 y Fq(CKIN\(45\))53 +b(-)f(CKIN\(48\))h(:)48 b Fw(\(D=12.,-1.,12.,-1.)38 b(GeV\))24 +b(range)g(of)g(allo)m(w)m(ed)f(mass)h(v)-5 b(alues)24 +b(of)f(the)i(t)m(w)m(o)472 5399 y(\(or)38 b(one\))h(secondary)g +(resonances)h(pro)s(duced)g(in)d(a)h(2)f Fn(!)g Fw(1)g +Fn(!)g Fw(2)h(pro)s(cess)h(\(lik)m(e)f(gg)g Fn(!)472 +5507 y Fw(H)545 5471 y Fl(0)613 5507 y Fn(!)27 b Fw(Z)800 +5471 y Fl(0)839 5507 y Fw(Z)899 5471 y Fl(0)938 5507 +y Fw(\))c(or)g(ev)m(en)i(a)e(2)28 b Fn(!)f Fw(2)g Fn(!)h +Fw(4)23 b(\(or)g(3\))g(pro)s(cess)h(\(lik)m(e)f(q)p 2721 +5454 52 4 v(q)28 b Fn(!)g Fw(Z)2988 5471 y Fl(0)3027 +5507 y Fw(H)3100 5471 y Fl(0)3167 5507 y Fn(!)f Fw(Z)3354 +5471 y Fl(0)3393 5507 y Fw(W)3494 5471 y Fl(+)3554 5507 +y Fw(W)3655 5471 y Fk(\000)3714 5507 y Fw(\).)472 5615 +y(Note)j(that)f(these)i Fq(CKIN)g Fw(v)-5 b(alues)29 +b(only)g(a\013ect)h(the)g(secondary)g(resonances;)j(the)d(primary)1817 +5953 y(147)p eop +%%Page: 148 154 +148 153 bop 472 -18 a Fw(ones)37 b(are)g(constrained)f(b)m(y)j +Fq(CKIN\(1\))p Fw(,)g Fq(CKIN\(2\))f Fw(and)e Fq(CKIN\(41\))54 +b(-)d(CKIN\(44\))38 b Fw(\(indi-)472 90 y(rectly)-8 b(,)43 +b(of)c(course,)k(the)e(c)m(hoice)g(of)e(primary)g(resonance)j(masses)f +(a\013ects)g(the)f(allo)m(w)m(ed)472 198 y(mass)c(range)g(for)f(the)h +(secondary)h(ones\).)53 b(What)36 b(is)f(considered)i(to)e(b)s(e)h(a)f +(resonance)i(is)472 307 y(de\014ned)42 b(b)m(y)g Fq(PARP\(41\))p +Fw(;)k(particles)40 b(with)f(a)h(width)g(smaller)e(than)i(this)g(are)g +(automat-)472 415 y(ically)e(put)i(on)g(the)g(mass)g(shell.)64 +b(The)41 b(description)e(closely)h(parallels)d(the)j(one)g(giv)m(en)472 +523 y(for)32 b Fq(CKIN\(41\))53 b(-)f(CKIN\(44\))p Fw(.)45 +b(Th)m(us,)34 b(for)e(t)m(w)m(o)h(resonances)g(that)f(are)g(not)g(iden) +m(tical)f(or)472 632 y(eac)m(h)j(other's)f(an)m(tiparticles,)e(one)i +(has)472 740 y Fq(CKIN\(45\))p Fj(<)d(m)1071 755 y Fl(1)1139 +740 y Fj(<)p Fq(CKIN\(46\))p Fw(,)k(and)472 848 y Fq(CKIN\(47\))p +Fj(<)c(m)1071 863 y Fl(2)1139 848 y Fj(<)p Fq(CKIN\(48\))p +Fw(,)472 957 y(where)44 b Fj(m)849 972 y Fl(1)930 957 +y Fw(and)e Fj(m)1214 972 y Fl(2)1296 957 y Fw(are)g(the)g(actually)f +(generated)h(masses)h(of)f(the)g(t)m(w)m(o)h(resonances,)472 +1065 y(and)31 b(1)f(and)h(2)f(are)g(de\014ned)i(b)m(y)g(the)e(order)h +(in)f(whic)m(h)h(they)g(giv)m(en)g(in)e(the)i(deca)m(y)h(c)m(hannel)472 +1173 y(sp)s(eci\014cation)27 b(in)g(the)h(program)e(\(see)j(e.g.)42 +b(output)28 b(from)e Fq(PYSTAT\(2\))k Fw(or)d Fq(LULIST\(12\))p +Fw(\).)472 1282 y(F)-8 b(or)30 b(t)m(w)m(o)g(resonances)i(that)e(are)g +(iden)m(tical)f(or)g(eac)m(h)i(other's)g(an)m(tiparticles,)e(one)h +(instead)472 1390 y(has)472 1498 y Fq(CKIN\(45\))p Fj(<)g +Fw(min)o(\()p Fj(m)1272 1513 y Fl(1)1311 1498 y Fj(;)17 +b(m)1440 1513 y Fl(2)1480 1498 y Fw(\))27 b Fj(<)p Fq(CKIN\(46\))p +Fw(,)35 b(and)472 1607 y Fq(CKIN\(47\))p Fj(<)30 b Fw(max\()p +Fj(m)1291 1622 y Fl(1)1330 1607 y Fj(;)17 b(m)1459 1622 +y Fl(2)1499 1607 y Fw(\))27 b Fj(<)p Fq(CKIN\(48\))p +Fw(.)236 1715 y Fo(Notes)37 b(1)h(-)f(5:)48 b Fw(as)32 +b(for)h Fq(CKIN\(41\))53 b(-)e(CKIN\(44\))p Fw(,)35 b(with)d(trivial)e +(mo)s(di\014cations.)236 1823 y Fo(Note)37 b(6:)110 b +Fw(Setting)58 b(limits)f(on)i(secondary)h(resonance)h(masses)f(is)f(p)s +(ossible)g(in)f(an)m(y)i(of)709 1932 y(the)48 b(c)m(hannels)h(of)f(the) +h(allo)m(w)m(ed)e(t)m(yp)s(es)j(\(see)f(ab)s(o)m(v)m(e\).)91 +b(Ho)m(w)m(ev)m(er,)55 b(so)48 b(far)g(only)709 2040 +y(H)782 2004 y Fl(0)858 2040 y Fn(!)37 b Fw(Z)1055 2004 +y Fl(0)1094 2040 y Fw(Z)1154 2004 y Fl(0)1231 2040 y +Fw(and)h(H)1499 2004 y Fl(0)1575 2040 y Fn(!)f Fw(W)1813 +2004 y Fl(+)1872 2040 y Fw(W)1973 2004 y Fk(\000)2071 +2040 y Fw(ha)m(v)m(e)i(b)s(een)g(fully)d(implemen)m(ted,)i(suc)m(h)i +(that)709 2148 y(an)33 b(arbitrary)f(mass)i(range)f(b)s(elo)m(w)g(the)h +(na)-11 b(\177)-38 b(\020v)m(e)34 b(mass)f(threshold)g(ma)m(y)h(b)s(e)f +(pic)m(k)m(ed.)709 2257 y(F)-8 b(or)27 b(other)h(p)s(ossible)g +(resonances,)j(an)m(y)e(restrictions)f(made)f(on)h(the)h(allo)m(w)m(ed) +f(mass)709 2365 y(range)35 b(are)f(not)h(re\015ected)i(in)d(the)h +(cross)h(section;)g(and)f(further)g(it)f(is)h(not)f(recom-)709 +2473 y(mendable)42 b(to)g(pic)m(k)h(mass)g(windo)m(ws)h(that)e(mak)m(e) +h(a)g(deca)m(y)h(on)e(the)i(mass)e(shell)709 2582 y(imp)s(ossible.)f +(These)34 b(limitations)29 b(will)h(b)s(e)j(relaxed)f(in)g(future)h(v)m +(ersions.)0 2690 y Fq(CKIN\(51\))53 b(-)f(CKIN\(56\))h(:)48 +b Fw(\(D=0.,-1.,0.,-1.,0.,-1.)87 b(GeV\))48 b(range)h(of)e(allo)m(w)m +(ed)h(transv)m(erse)i(mo-)472 2798 y(men)m(ta)25 b(in)f(a)h(true)g(2)j +Fn(!)f Fw(3)d(pro)s(cess.)43 b(Curren)m(tly)25 b(t)m(w)m(o)h +(di\013eren)m(t)f(alternativ)m(es)f(are)h(around.)472 +2907 y(F)-8 b(or)30 b(subpro)s(cess)j(131,)e(the)g Fj(p)1550 +2922 y Fk(?)1640 2907 y Fw(of)f(the)h(\014rst)h(pro)s(duct)f(\(the)g(Z) +2743 2871 y Fl(0)2782 2907 y Fw(\))g(is)f(set)i(b)m(y)h +Fq(CKIN\(3\))f Fw(and)472 3015 y Fq(CKIN\(4\))p Fw(,)j(while)d(for)g +(the)h(quark)g(and)g(an)m(tiquark)f Fj(p)2419 3030 y +Fk(?)2478 3015 y Fw('s)i(one)e(has)472 3123 y Fq(CKIN\(51\))p +Fj(<)e Fw(min)o(\()p Fj(p)1236 3138 y Fk(?)p Fl(q)1332 +3123 y Fj(;)17 b(p)1425 3138 y Fk(?)p 1481 3100 38 4 +v Fl(q)1521 3123 y Fw(\))27 b Fj(<)p Fq(CKIN\(52\))p +Fw(,)35 b(and)472 3232 y Fq(CKIN\(53\))p Fj(<)30 b Fw(max\()p +Fj(p)1255 3247 y Fk(?)p Fl(q)1351 3232 y Fj(;)17 b(p)1444 +3247 y Fk(?)p 1500 3208 V Fl(q)1540 3232 y Fw(\))27 b +Fj(<)p Fq(CKIN\(54\))p Fw(.)472 3340 y(Negativ)m(e)33 +b Fq(CKIN\(52\))h Fw(and)e Fq(CKIN\(54\))i Fw(v)-5 b(alues)32 +b(means)g(that)f(the)i(corresp)s(onding)f(limits)472 +3448 y(are)d(inactiv)m(e.)42 b(F)-8 b(or)29 b(subpro)s(cesses)j +(121{124,)c(and)h(their)f(H)2654 3412 y Fk(0)p Fl(0)2742 +3448 y Fw(and)h(A)3001 3412 y Fl(0)3070 3448 y Fw(equiv)-5 +b(alen)m(ts)29 b(\(173,)472 3557 y(174,)39 b(178,)g(179,)g(181,)f(182,) +h(186,)g(187\),)g Fq(CKIN\(51\))53 b(-)e(CKIN\(54\))41 +b Fw(again)36 b(corresp)s(onds)472 3665 y(to)e Fj(p)642 +3680 y Fk(?)735 3665 y Fw(ranges)g(for)g(scattered)h(partons,)g(but)f +(in)f(order)i(of)e(app)s(earance,)i(i.e.)47 b Fq(CKIN\(51\))472 +3774 y(-)52 b(CKIN\(52\))32 b Fw(for)e(the)h(parton)f(scattered)i +(o\013)e(the)g(b)s(eam)g(and)g Fq(CKIN\(53\))54 b(-)d(CKIN\(54\))472 +3882 y Fw(for)25 b(the)g(one)g(scattered)h(o\013)f(the)g(target.)41 +b Fq(CKIN\(55\))27 b Fw(and)e Fq(CKIN\(56\))i Fw(here)f(sets)g +Fj(p)3457 3897 y Fk(?)3541 3882 y Fw(limits)472 3990 +y(for)38 b(the)h(third)e(pro)s(duct,)j(the)e(H)1696 3954 +y Fl(0)1736 3990 y Fw(,)i(i.e.)59 b(the)39 b Fq(CKIN\(3\))h +Fw(and)e Fq(CKIN\(4\))i Fw(v)-5 b(alues)38 b(ha)m(v)m(e)i(no)472 +4099 y(e\013ect)29 b(for)f(this)f(pro)s(cess.)43 b(Since)28 +b(the)h Fj(p)1894 4114 y Fk(?)1981 4099 y Fw(of)e(the)h(Higgs)f(is)h +(not)g(one)g(of)f(the)i(primary)d(v)-5 b(ari-)472 4207 +y(ables)30 b(selected,)h(an)m(y)f(constrain)m(ts)g(here)g(ma)m(y)f +(mean)g(reduced)i(Mon)m(te)g(Carlo)d(e\016ciency)-8 b(,)472 +4315 y(while)30 b(for)g(these)h(pro)s(cesses)h Fq(CKIN\(51\))54 +b(-)d(CKIN\(54\))33 b Fw(are)d(`hardwired')h(and)f(therefore)472 +4424 y(do)j(not)f(cost)h(an)m(ything.)0 4697 y Fp(9.3)135 +b(The)45 b(General)g(Switc)l(hes)h(and)f(P)l(arameters)0 +4870 y Fw(The)e Fq(PYPARS)g Fw(common)e(blo)s(c)m(k)h(con)m(tains)g +(the)g(status)h(co)s(de)f(and)g(parameters)g(that)g(regulate)f(the)0 +4979 y(p)s(erformance)25 b(of)g(the)h(program.)39 b(All)24 +b(of)h(them)g(are)g(pro)m(vided)h(with)f(sensible)h(default)e(v)-5 +b(alues,)27 b(so)f(that)0 5087 y(a)32 b(no)m(vice)h(user)h(can)f +(neglect)f(them,)h(and)f(only)g(gradually)f(explore)i(the)g(full)e +(range)h(of)g(p)s(ossibilities.)0 5195 y(Some)d(of)f(the)h(switc)m(hes) +i(and)e(parameters)g(in)f Fq(PYPARS)j Fw(will)26 b(b)s(e)j(describ)s +(ed)h(later,)f(in)f(the)i(sho)m(w)m(er)g(and)0 5304 y(b)s(eam)i(remnan) +m(ts)h(sections.)p 0 5428 2876 9 v 0 5653 9 225 v 79 +5569 a Fq(COMMON/PYPARS/MSTP\(200\),)q(PARP)q(\(200)q(\),MS)q(TI\()q +(200\))q(,PAR)q(I\(20)q(0\))p 2867 5653 V 0 5661 2876 +9 v 1817 5953 a Fw(148)p eop +%%Page: 149 155 +149 154 bop 0 -18 a Fo(Purp)s(ose:)48 b Fw(to)30 b(giv)m(e)g(access)j +(to)d(status)h(co)s(de)g(and)f(parameters)h(that)f(regulate)g(the)h(p)s +(erformance)f(of)472 90 y(the)37 b(program.)51 b(If)35 +b(the)h(default)f(v)-5 b(alues,)37 b(denoted)f(b)s(elo)m(w)g(b)m(y)g +(\(D=.)16 b(.)g(.)g(\),)37 b(are)f(not)f(satis-)472 198 +y(factory)-8 b(,)36 b(they)f(m)m(ust)g(in)f(general)g(b)s(e)h(c)m +(hanged)g(b)s(efore)g(the)g Fq(PYINIT)h Fw(call.)48 b(Exceptions,)472 +307 y(i.e.)43 b(v)-5 b(ariables)32 b(that)g(can)h(b)s(e)g(c)m(hanged)g +(for)f(eac)m(h)i(new)f(ev)m(en)m(t,)i(are)e(denoted)g(b)m(y)h(\(C\).)0 +415 y Fq(MSTP\(1\))53 b(:)48 b Fw(\(D=3\))31 b(maxim)m(um)f(n)m(um)m(b) +s(er)j(of)f(generations.)44 b(Automatically)29 b(set)34 +b Fn(\024)28 b Fw(4.)0 523 y Fq(MSTP\(2\))53 b(:)48 b +Fw(\(D=1\))31 b(calculation)f(of)i Fj(\013)1482 538 y +Fl(s)1547 523 y Fw(at)g(hard)h(in)m(teraction,)e(in)h(the)h(routine)f +Fq(ULALPS)p Fw(.)236 632 y Fq(=)52 b(0)f(:)217 b Fj(\013)771 +647 y Fl(s)835 632 y Fw(is)32 b(\014xed)i(at)e(v)-5 b(alue)32 +b Fq(PARU\(111\))p Fw(.)236 740 y Fq(=)52 b(1)f(:)217 +b Fw(\014rst-order)32 b(running)h Fj(\013)1590 755 y +Fl(s)1622 740 y Fw(.)236 848 y Fq(=)52 b(2)f(:)217 b +Fw(second-order)33 b(running)f Fj(\013)1703 863 y Fl(s)1735 +848 y Fw(.)0 957 y Fq(MSTP\(3\))53 b(:)48 b Fw(\(D=2\))31 +b(selection)h(of)g(\003)h(v)-5 b(alue)32 b(in)f Fj(\013)1851 +972 y Fl(s)1916 957 y Fw(for)h Fq(MSTP\(2\))p Fn(\025)e +Fw(1.)236 1065 y Fq(=)52 b(1)f(:)217 b Fw(\003)34 b(is)g(giv)m(en)g(b)m +(y)j Fq(PARP\(1\))f Fw(for)e(hard)h(in)m(teractions,)f(b)m(y)j +Fq(PARP\(61\))g Fw(for)d(space-lik)m(e)709 1173 y(sho)m(w)m(ers,)i(b)m +(y)f Fq(PARP\(72\))h Fw(for)d(time-lik)m(e)e(sho)m(w)m(ers)36 +b(not)d(from)f(a)h(resonance)i(deca)m(y)-8 b(,)709 1282 +y(and)23 b(b)m(y)j Fq(PARJ\(81\))g Fw(for)c(time-lik)m(e)f(ones)k(from) +d(a)h(resonance)i(deca)m(y)g(\(including)c(e.g.)709 1390 +y Fj(\015)5 b(=)p Fw(Z)874 1354 y Fl(0)948 1390 y Fn(!)35 +b Fw(q)p 1134 1337 52 4 v(q)k(deca)m(ys,)h(i.e.)57 b(con)m(v)m(en)m +(tional)38 b(e)2360 1354 y Fl(+)2419 1390 y Fw(e)2462 +1354 y Fk(\000)2559 1390 y Fw(ph)m(ysics\).)59 b(This)37 +b(\003)g(is)g(assumed)709 1498 y(to)29 b(b)s(e)h(v)-5 +b(alid)29 b(for)g(5)h(\015a)m(v)m(ours;)i(for)e(the)g(hard)g(in)m +(teraction)f(the)h(n)m(um)m(b)s(er)h(of)e(\015a)m(v)m(ours)709 +1607 y(assumed)k(can)g(b)s(e)g(c)m(hanged)g(b)m(y)i Fq(MSTU\(112\))p +Fw(.)236 1715 y Fq(=)52 b(2)f(:)217 b Fw(\003)48 b(v)-5 +b(alue)49 b(is)f(c)m(hosen)j(according)e(to)f(the)i +(parton-distribution-function)45 b(para-)709 1823 y(metrizations,)30 +b(i.e.)43 b(\003)32 b(=)f(0.20)h(GeV)g(for)f(EHLQ1,)i(=)e(0.29)h(GeV)g +(for)f(EHLQ2,)i(=)709 1932 y(0.20)e(GeV)h(for)f(DO1,)g(=)h(0.40)f(GeV)h +(for)f(DO2,)g(=)h(0.213)e(GeV)i(for)g(CTEQ2M,)h(=)709 +2040 y(0.208)38 b(GeV)g(for)h(CTEQ2MS,)h(=)e(0.208)g(GeV)h(for)f +(CTEQ2MF,)i(=)f(0.322)f(GeV)709 2148 y(for)33 b(CTEQ2ML,)j(=)e(0.190)f +(GeV)i(for)e(CTEQ2L,)j(=)e(0.235)f(GeV)h(for)g(CTEQ2D,)709 +2257 y(=)29 b(0.25)g(GeV)h(for)f(GR)-11 b(V)29 b(LO,)h(and)f(similarly) +d(for)j(parton-distribution)e(functions)709 2365 y(in)34 +b(the)h Fm(Pdflib)h Fw(library)d(\(cf.)51 b(\()p Fq(MSTP\(51\))p +Fw(,)38 b Fq(MSTP\(52\))p Fw(\).)53 b(The)36 b(c)m(hoice)f(is)g(alw)m +(a)m(ys)709 2473 y(based)28 b(on)g(the)g(proton)f(parton-distribution)e +(set)j(selected,)i(i.e.)42 b(is)27 b(una\013ected)i(b)m(y)709 +2582 y(pion)24 b(and)h(photon)g(parton-distribution)d(selection.)41 +b(All)23 b(the)i(\003)g(v)-5 b(alues)25 b(ab)s(o)m(v)m(e)g(are)709 +2690 y(assumed)31 b(to)f(refer)g(to)g(4)g(\015a)m(v)m(ours,)j(and)d +Fq(MSTU\(112\))j Fw(is)d(set)h(accordingly)-8 b(.)41 +b(This)31 b(\003)709 2798 y(v)-5 b(alue)31 b(is)g(used)h(b)s(oth)g(for) +f(the)h(hard)f(scattering)h(and)f(the)h(initial-)c(and)j(\014nal-state) +709 2907 y(radiation.)41 b(The)33 b(am)m(biguit)m(y)e(in)h(the)h(c)m +(hoice)g(of)f(the)h Fj(Q)2750 2871 y Fl(2)2822 2907 y +Fw(argumen)m(t)f(still)e(remains)709 3015 y(\(see)37 +b Fq(MSTP\(32\))p Fw(,)i Fq(MSTP\(64\))f Fw(and)e Fq(MSTJ\(44\))p +Fw(\).)56 b(This)37 b(\003)e(v)-5 b(alue)36 b(is)g(used)h(also)e(for) +709 3123 y Fq(MSTP\(57\)=0)p Fw(,)30 b(but)d(the)g(sensible)g(c)m +(hoice)g(here)g(w)m(ould)g(b)s(e)g(to)f(use)h Fq(MSTP\(2\)=0)i +Fw(and)709 3232 y(ha)m(v)m(e)j(no)f(initial-)26 b(or)31 +b(\014nal-state)f(radiation.)41 b(This)31 b(option)f(do)s(es)h +Fi(not)40 b Fw(c)m(hange)32 b(the)709 3340 y Fq(PARJ\(81\))37 +b Fw(v)-5 b(alue)35 b(of)g(timelik)m(e)e(parton)j(sho)m(w)m(ers)h(in)e +(resonance)i(deca)m(ys,)h(so)e(that)709 3448 y(LEP)26 +b(exp)s(erience)i(on)e(this)f(sp)s(eci\014c)i(parameter)e(is)h(not)g(o) +m(v)m(erwritten)h(un)m(wittingly)-8 b(.)709 3557 y(Therefore)33 +b Fq(PARJ\(81\))i Fw(can)e(b)s(e)g(up)s(dated)g(completely)e(indep)s +(enden)m(tly)-8 b(.)236 3665 y Fq(=)52 b(3)f(:)217 b +Fw(as)33 b Fq(=2)p Fw(,)g(except)i(that)e(here)g(also)f +Fq(PARJ\(81\))j Fw(is)e(o)m(v)m(erwritten)h(in)e(accordance)i(with)709 +3774 y(the)f(\003)f(v)-5 b(alue)32 b(of)g(the)h(proton)f +(parton-distribution-function)d(set.)0 3882 y Fq(MSTP\(4\))53 +b(:)48 b Fw(\(D=0\))31 b(treatmen)m(t)i(of)f(the)h(Higgs)f(sector,)h +(predominan)m(tly)e(the)i(neutral)f(one.)236 3990 y Fq(=)52 +b(0)f(:)217 b Fw(the)38 b(H)955 3954 y Fl(0)1033 3990 +y Fw(is)g(giv)m(en)h(the)f(Standard)h(Mo)s(del)f(Higgs)f(couplings,)i +(while)f(H)3375 3954 y Fk(0)p Fl(0)3472 3990 y Fw(and)g(A)3740 +3954 y Fl(0)709 4099 y Fw(couplings)49 b(should)h(b)s(e)g(set)h(b)m(y)g +(the)f(user)h(in)f Fq(PARU\(171\))j(-)f(PARU\(175\))g +Fw(and)709 4207 y Fq(PARU\(181\))h(-)f(PARU\(185\))p +Fw(,)35 b(resp)s(ectiv)m(ely)-8 b(.)236 4315 y Fq(=)52 +b(1)f(:)217 b Fw(the)61 b(user)h(should)g(set)g(couplings)e(for)h(all)e +(three)j(Higgses,)68 b(for)61 b(the)g(H)3597 4279 y Fl(0)3698 +4315 y Fw(in)709 4424 y Fq(PARU\(161\))53 b(-)f(PARU\(165\))p +Fw(,)35 b(and)e(for)f(the)h(H)2425 4387 y Fk(0)p Fl(0)2516 +4424 y Fw(and)f(A)2778 4387 y Fl(0)2851 4424 y Fw(as)g(ab)s(o)m(v)m(e.) +236 4532 y Fq(=)52 b(2)f(:)217 b Fw(the)27 b(mass)g(of)g(H)1284 +4496 y Fl(0)1350 4532 y Fw(in)f Fq(PMAS\(25,1\))k Fw(and)d(the)g(tan)17 +b Fj(\014)32 b Fw(v)-5 b(alue)27 b(in)f Fq(PARU\(141\))j +Fw(are)e(used)709 4640 y(to)d(deriv)m(e)h(H)1172 4604 +y Fk(0)p Fl(0)1231 4640 y Fw(,)h(A)1357 4604 y Fl(0)1421 +4640 y Fw(and)e(H)1675 4604 y Fk(\006)1759 4640 y Fw(masses,)j(and)d(H) +2355 4604 y Fl(0)2395 4640 y Fw(,)i(H)2521 4604 y Fk(0)p +Fl(0)2579 4640 y Fw(,)h(A)2706 4604 y Fl(0)2769 4640 +y Fw(and)e(H)3024 4604 y Fk(\006)3108 4640 y Fw(couplings,)g(using)709 +4749 y(the)35 b(relations)e(of)h(the)h(Minimal)c(Sup)s(ersymmetric)k +(extension)g(of)f(the)h(Standard)709 4857 y(Mo)s(del)22 +b(at)h(Born)h(lev)m(el)f([Gun90)o(].)41 b(Existing)22 +b(masses)i(and)g(couplings)e(are)h(o)m(v)m(erwrit-)709 +4965 y(ten)34 b(b)m(y)i(the)e(deriv)m(ed)h(v)-5 b(alues.)49 +b(See)35 b(section)g(8.4.3)e(for)h(discussion)h(on)f(parameter)709 +5074 y(constrain)m(ts.)236 5182 y Fq(=)52 b(3:)268 b +Fw(as)38 b Fq(=2)p Fw(,)j(but)e(using)f(relations)f(at)h(the)h(one-lo)s +(op)e(lev)m(el.)61 b(This)39 b(option)e(is)h(not)g(y)m(et)709 +5290 y(implemen)m(ted.)0 5399 y Fq(MSTP\(5\))53 b(:)48 +b Fw(\(D=0\))31 b(presence)k(of)d(anomalous)f(couplings)h(in)f(pro)s +(cesses.)236 5507 y Fq(=)52 b(0)f(:)217 b Fw(absen)m(t.)236 +5615 y Fn(\025)p Fq(1)52 b(:)242 b Fw(presen)m(t,)34 +b(wherev)m(er)h(implemen)m(ted.)42 b(See)33 b(section)g(8.5.4)f(for)g +(further)h(details.)1817 5953 y(149)p eop +%%Page: 150 156 +150 155 bop 0 -18 a Fq(MSTP\(6\))53 b(:)48 b Fw(\(D=0\))i(usage)i(of)e +(the)i(fourth-generation)e(fermions)g(to)h(sim)m(ulate)f(other)h +(fermion)472 90 y(kinds.)236 198 y Fq(=)h(0)f(:)217 b +Fw(none,)33 b(i.e.)43 b(can)33 b(b)s(e)f(used)i(as)f(a)f(standard)h +(fourth)g(generation.)236 307 y Fq(=)52 b(1)f(:)217 b +Fw(excited)28 b(fermions,)g(as)g(presen)m(t)i(in)d(comp)s(ositeness)h +(scenarios;)i(see)f(section)f(8.5.5.)0 415 y Fq(MSTP\(7\))53 +b(:)48 b Fw(\(D=0\))c(c)m(hoice)i(of)e(hea)m(vy)j(\015a)m(v)m(our)f(in) +f(subpro)s(cesses)j(81{85.)81 b(Do)s(es)45 b(not)g(apply)g(for)472 +523 y Fq(MSEL=4-8)p Fw(,)35 b(where)f(the)f(MSEL)g(v)-5 +b(alue)32 b(alw)m(a)m(ys)i(tak)m(es)f(precedence.)236 +632 y Fq(=)52 b(0)f(:)217 b Fw(for)28 b(pro)s(cesses)j(81{84)d(\(85\))g +(the)h(`hea)m(viest')h(\015a)m(v)m(our)g(allo)m(w)m(ed)e(for)h(gluon)f +(\(photon\))709 740 y(splitting)d(in)m(to)i(a)g(quark{an)m(tiquark)h +(\(fermion{an)m(tifermion\))c(pair,)j(as)h(set)g(in)f(the)709 +848 y Fq(MDME)h Fw(arra)m(y)-8 b(.)42 b(Note)28 b(that)f(`hea)m(vy')j +(is)d(de\014ned)i(as)f(the)g(one)g(with)f(largest)g(KF)g(co)s(de,)709 +957 y(so)32 b(that)h(leptons)f(tak)m(e)i(precedence)h(if)c(they)j(are)e +(allo)m(w)m(ed.)236 1065 y Fq(=)52 b(1)f(-)h(8)f(:)d +Fw(pic)m(k)35 b(this)g(particular)f(quark)i(\015a)m(v)m(our;)h(e.g.,)f +Fq(MSTP\(7\)=6)i Fw(means)d(that)g(top)g(will)709 1173 +y(b)s(e)d(pro)s(duced.)236 1282 y Fq(=)52 b(11)g(-)f(18)h(:)47 +b Fw(pic)m(k)31 b(this)e(particular)f(lepton)h(\015a)m(v)m(our.)44 +b(Note)30 b(that)f(neutrinos)h(are)g(not)f(p)s(ossi-)709 +1390 y(ble,)k(i.e.)45 b(only)33 b(11,)g(13,)g(15)g(and)g(17)g(are)g +(meaningful)e(alternativ)m(es.)46 b(Lepton)34 b(pair)709 +1498 y(pro)s(duction)d(can)h(only)g(o)s(ccur)g(in)f(pro)s(cess)i(85,)f +(so)g(if)f(an)m(y)h(of)g(the)g(other)g(pro)s(cesses)709 +1607 y(ha)m(v)m(e)27 b(b)s(een)h(switc)m(hed)f(on)g(they)g(are)f +(generated)i(with)e(the)g(same)h(\015a)m(v)m(our)g(as)g(w)m(ould)709 +1715 y(b)s(e)32 b(obtained)g(in)g(the)h(option)f Fq(MSTP\(7\)=0)p +Fw(.)0 1823 y Fq(MSTP\(8\))53 b(:)48 b Fw(\(D=0\))41 +b(c)m(hoice)h(of)g(electro)m(w)m(eak)i(parameters)e(to)g(use)h(in)f +(the)g(deca)m(y)i(widths)e(of)g(res-)472 1932 y(onances)51 +b(\(W)q(,)k(Z,)f(H,)h(.)16 b(.)g(.)g(\))96 b(and)50 b(cross)h(sections) +g(\(pro)s(duction)e(of)h(W)q('s,)55 b(Z's,)g(H's,)472 +2040 y(.)16 b(.)g(.)g(\).)236 2148 y Fq(=)52 b(0)f(:)217 +b Fw(ev)m(erything)26 b(is)f(expressed)j(in)d(terms)g(of)g(a)h(running) +f Fj(\013)2670 2163 y Fl(em)2764 2148 y Fw(\()p Fj(Q)2879 +2112 y Fl(2)2919 2148 y Fw(\))g(and)g(a)h(\014xed)g(sin)3587 +2109 y Fl(2)3626 2148 y Fj(\022)3671 2163 y Fh(W)3752 +2148 y Fw(,)709 2257 y(i.e.)43 b Fj(G)954 2272 y Fl(F)1036 +2257 y Fw(is)32 b(no)m(where)i(used.)236 2365 y Fq(=)52 +b(1)f(:)217 b Fw(a)40 b(replacemen)m(t)g(is)g(made)f(according)h(to)g +Fj(\013)2359 2380 y Fl(em)2453 2365 y Fw(\()p Fj(Q)2568 +2329 y Fl(2)2608 2365 y Fw(\))g Fn(!)2827 2283 y(p)p +2910 2283 49 4 v 82 x Fw(2)p Fj(G)3036 2380 y Fl(F)3086 +2365 y Fj(m)3171 2329 y Fl(2)3171 2390 y(W)3265 2365 +y Fw(sin)3385 2325 y Fl(2)3424 2365 y Fj(\022)3469 2380 +y Fh(W)3550 2365 y Fj(=\031)k Fw(in)709 2473 y(all)28 +b(widths)j(and)g(cross)h(sections.)43 b(If)31 b Fj(G)2155 +2488 y Fl(F)2236 2473 y Fw(and)g Fj(m)2509 2488 y Fl(Z)2587 +2473 y Fw(are)g(considered)h(as)e(giv)m(en,)i(this)709 +2582 y(means)g(that)h(sin)1338 2542 y Fl(2)1378 2582 +y Fj(\022)1423 2597 y Fh(W)1536 2582 y Fw(and)g Fj(m)1811 +2597 y Fl(W)1921 2582 y Fw(are)g(the)g(only)f(free)h(electro)m(w)m(eak) +h(parameter.)236 2690 y Fq(=)52 b(2)f(:)217 b Fw(a)35 +b(replacemen)m(t)h(is)f(made)g(as)h(for)f Fq(=1)p Fw(,)h(but)g +(additionally)c(sin)2989 2650 y Fl(2)3029 2690 y Fj(\022)3074 +2705 y Fh(W)3190 2690 y Fw(is)j(constrained)709 2798 +y(b)m(y)g(the)g(relation)d(sin)1495 2759 y Fl(2)1535 +2798 y Fj(\022)1580 2813 y Fh(W)1691 2798 y Fw(=)f(1)23 +b Fn(\000)h Fj(m)2056 2762 y Fl(2)2056 2823 y(W)2134 +2798 y Fj(=m)2268 2762 y Fl(2)2268 2823 y(Z)2315 2798 +y Fw(.)49 b(This)35 b(means)f(that)h Fj(m)3215 2813 y +Fl(W)3327 2798 y Fw(remains)e(as)709 2907 y(a)f(free)h(parameter,)f +(but)g(that)h(the)f(sin)2147 2867 y Fl(2)2187 2907 y +Fj(\022)2232 2922 y Fh(W)2345 2907 y Fw(v)-5 b(alue)32 +b(in)g Fq(PARU\(102\))i Fw(is)e(nev)m(er)i(used,)709 +3015 y Fi(exc)-5 b(ept)35 b Fw(in)25 b(the)i(v)m(ector)g(couplings)e +(in)h(the)g(com)m(bination)e Fj(v)32 b Fw(=)27 b Fj(a)9 +b Fn(\000)g Fw(4)17 b(sin)3310 2975 y Fl(2)3350 3015 +y Fj(\022)3395 3030 y Fh(W)3476 3015 y Fj(e)p Fw(.)41 +b(This)709 3123 y(latter)d(degree)j(of)e(freedom)h(en)m(ters)h(e.g.)66 +b(for)39 b(forw)m(ard-bac)m(kw)m(ard)i(asymmetries)709 +3232 y(in)31 b(Z)882 3196 y Fl(0)954 3232 y Fw(deca)m(ys.)236 +3340 y Fo(Note:)203 b Fw(This)28 b(option)e(do)s(es)j(not)e(a\013ect)i +(the)f(emission)e(of)i(real)f(photons)h(in)f(the)h(initial)c(and)709 +3448 y(\014nal)30 b(state,)i(where)g Fj(\013)1531 3463 +y Fl(em)1656 3448 y Fw(is)e(alw)m(a)m(ys)i(used.)44 b(Ho)m(w)m(ev)m +(er,)34 b(it)c(do)s(es)h(a\013ect)g(also)f(purely)709 +3557 y(electromagnetic)h(hard)h(pro)s(cesses,)j(suc)m(h)f(as)f(q)p +2475 3504 52 4 v(q)c Fn(!)e Fj(\015)5 b(\015)g Fw(.)0 +3665 y Fq(MSTP\(9\))53 b(:)48 b Fw(\(D=0\))29 b(inclusion)g(of)h(top)g +(\(and)g(fourth)h(generation\))e(as)i(allo)m(w)m(ed)f(remnan)m(t)g +(\015a)m(v)m(our)h(in)472 3774 y(pro)s(cesses)39 b(that)e(in)m(v)m(olv) +m(e)g(q)f Fn(!)e Fw(q)1718 3737 y Fk(0)1767 3774 y Fw(+)25 +b(W)38 b(branc)m(hings)g(as)f(part)g(of)f(the)h(o)m(v)m(erall)f(pro)s +(cess,)472 3882 y(and)d(where)h(q)995 3846 y Fk(0)1051 +3882 y Fw(is)e(\(implicitly\))c(assumed)34 b(to)e(b)s(e)h(massless.)236 +3990 y Fq(=)52 b(0)f(:)217 b Fw(no.)236 4099 y Fq(=)52 +b(1)f(:)217 b Fw(y)m(es)38 b(\(but)g(it)e(is)g(still)f(p)s(ossible)i +(to)f(switc)m(h)i(o\013)f(\015a)m(v)m(ours)i(individually)34 +b(with)i Fq(MDME)709 4207 y Fw(as)c(b)s(efore\).)0 4315 +y Fq(MSTP\(11\))53 b(:)48 b Fw(\(D=1\))28 b(use)j(of)e(electron)g +(parton)h(distribution)d(in)i(e)2497 4279 y Fl(+)2556 +4315 y Fw(e)2599 4279 y Fk(\000)2688 4315 y Fw(and)h(ep)g(in)m +(teractions.)236 4424 y Fq(=)52 b(0)f(:)217 b Fw(no,)32 +b(i.e.)43 b(electron)33 b(carries)f(the)h(whole)g(b)s(eam)e(energy)-8 +b(.)236 4532 y Fq(=)52 b(1)f(:)217 b Fw(y)m(es,)28 b(i.e.)41 +b(electron)25 b(carries)h(only)f(a)g(fraction)f(of)h(b)s(eam)g(energy)h +(in)f(agreemen)m(t)h(with)709 4640 y(next-to-leading)36 +b(electron)i(parton-distribution)e(function,)j(thereb)m(y)h(including) +709 4749 y(the)33 b(e\013ects)h(of)e(initial-state)c(bremsstrahlung.)0 +4857 y Fq(MSTP\(12\))53 b(:)48 b Fw(\(D=0\))32 b(use)i(of)e(e)1191 +4821 y Fk(\000)1284 4857 y Fw(\(`sea',)i(i.e.)44 b(from)32 +b(e)c Fn(!)g Fj(\015)34 b Fn(!)28 b Fw(e\),)33 b(e)2563 +4821 y Fl(+)2623 4857 y Fw(,)g(quark)h(and)f(gluon)f(distribu-)472 +4965 y(tion)g(functions)h(inside)e(an)i(electron.)236 +5074 y Fq(=)52 b(0)f(:)217 b Fw(o\013.)236 5182 y Fq(=)52 +b(1)f(:)217 b Fw(on,)32 b(pro)m(vided)h(that)f Fq(MSTP\(11\))p +Fn(\025)e Fw(1.)44 b(Quark)32 b(and)h(gluons)f(distributions)f(are)h +(ob-)709 5290 y(tained)c(b)m(y)i(n)m(umerical)d(con)m(v)m(olution)h(of) +h(the)g(photon)g(con)m(ten)m(t)h(inside)e(an)h(electron)709 +5399 y(\(as)23 b(giv)m(en)g(b)m(y)h(the)f(bremsstrahlung)g(sp)s(ectrum) +h(of)29 b Fq(MSTP\(11\)=1)p Fw(\))d(with)c(the)i(quark)709 +5507 y(and)36 b(gluon)f(con)m(ten)m(t)i(inside)e(a)h(photon.)53 +b(The)37 b(required)f(n)m(umerical)f(precision)g(is)709 +5615 y(set)27 b(b)m(y)i Fq(PARP\(14\))p Fw(.)44 b(Since)27 +b(the)g(need)h(for)e(n)m(umerical)f(in)m(tegration)g(mak)m(es)j(this)e +(op-)1817 5953 y(150)p eop +%%Page: 151 157 +151 156 bop 709 -18 a Fw(tion)36 b(somewhat)j(more)e(time-consuming)e +(than)j(ordinary)f(parton-distribution)709 90 y(ev)-5 +b(aluation,)40 b(one)h(should)f(only)g(use)h(it)e(when)i(studying)g +(pro)s(cesses)h(where)g(it)d(is)709 198 y(needed.)0 307 +y Fq(MSTP\(13\))53 b(:)48 b Fw(\(D=1\))32 b(c)m(hoice)i(of)f +Fj(Q)1348 270 y Fl(2)1420 307 y Fw(range)h(o)m(v)m(er)g(whic)m(h)g +(electrons)f(are)h(assumed)g(to)f(radiate)f(pho-)472 +415 y(tons;)44 b(a\013ects)d(normalization)36 b(of)k(e)1818 +379 y Fk(\000)1917 415 y Fw(\(sea\),)i(e)2235 379 y Fl(+)2295 +415 y Fw(,)f Fj(\015)5 b Fw(,)42 b(quark)f(and)f(gluon)f(distributions) +472 523 y(inside)32 b(an)h(electron.)236 632 y Fq(=)52 +b(1)f(:)217 b Fw(range)43 b(set)g(b)m(y)h Fj(Q)1370 595 +y Fl(2)1452 632 y Fw(argumen)m(t)f(of)f(parton-distribution-function)e +(call,)k(i.e.)74 b(b)m(y)709 740 y Fj(Q)786 704 y Fl(2)857 +740 y Fw(scale)31 b(of)h(the)g(hard)f(in)m(teraction.)42 +b(Therefore)33 b(parton)e(distributions)g(are)g(pro-)709 +848 y(p)s(ortional)45 b(to)i(ln)o(\()p Fj(Q)1474 812 +y Fl(2)1514 848 y Fj(=m)1648 812 y Fl(2)1648 873 y Fh(e)1687 +848 y Fw(\).)89 b(This)48 b(is)f(normally)e(most)i(appropriate)g(for)g +(e)3618 812 y Fl(+)3677 848 y Fw(e)3720 812 y Fk(\000)709 +957 y Fw(annihilation.)236 1065 y Fq(=)52 b(2)f(:)217 +b Fw(range)25 b(set)h(b)m(y)g(the)g(user-determined)f +Fj(Q)2186 1029 y Fl(2)2186 1090 y(max)2322 1065 y Fw(,)i(giv)m(en)e(in) +g Fq(PARP\(13\))p Fw(.)43 b(P)m(arton)25 b(distri-)709 +1173 y(butions)f(are)h(assumed)h(to)e(b)s(e)h(prop)s(ortional)e(to)h +(ln)o(\(\()p Fj(Q)2722 1137 y Fl(2)2722 1198 y(max)2858 +1173 y Fj(=m)2992 1137 y Fl(2)2992 1198 y Fh(e)3032 1173 +y Fw(\)\(1)6 b Fn(\000)g Fj(x)p Fw(\))p Fj(=x)3443 1137 +y Fl(2)3483 1173 y Fw(\).)41 b(This)709 1282 y(is)32 +b(normally)e(most)i(appropriate)f(for)h(photopro)s(duction,)g(where)i +(the)f(electron)f(is)709 1390 y(supp)s(osed)i(to)e(go)g(undetected,)j +(i.e.)43 b(scatter)33 b(less)g(than)g Fj(Q)2878 1354 +y Fl(2)2878 1415 y(max)3013 1390 y Fw(.)236 1498 y Fo(Note:)203 +b Fw(the)32 b(c)m(hoice)g(of)f(e\013ectiv)m(e)i(range)e(is)g(esp)s +(ecially)g(touc)m(h)m(y)i(for)e(the)h(quark)h(and)e(gluon)709 +1607 y(distributions.)66 b(An)40 b(\(almost\))f(on-the-mass-shell)g +(photon)h(has)h(a)g(VMD)f(piece)709 1715 y(that)k(dies)i(a)m(w)m(a)m(y) +g(for)e(a)h(virtual)f(photon.)80 b(A)45 b(simple)f(folding)f(of)h +(distribution)709 1823 y(functions)31 b(do)s(es)h(not)f(tak)m(e)h(this) +f(in)m(to)g(accoun)m(t)h(prop)s(erly)-8 b(.)42 b(Therefore)33 +b(the)e(con)m(tri-)709 1932 y(bution)j(from)f Fj(Q)j +Fw(v)-5 b(alues)34 b(ab)s(o)m(v)m(e)i(the)f Fj(\032)g +Fw(mass)g(should)g(b)s(e)g(suppressed.)53 b(A)35 b(c)m(hoice)709 +2040 y(of)41 b Fj(Q)906 2055 y Fl(max)1086 2040 y Fn(\031)j +Fw(1)e(GeV)g(is)g(then)h(appropriate)e(for)h(a)g(photopro)s(duction)f +(limit)d(de-)709 2148 y(scription)31 b(of)h(ph)m(ysics.)0 +2257 y Fq(MSTP\(14\))53 b(:)48 b Fw(\(D=0\))29 b(structure)i(of)f +(incoming)e(photon)i(b)s(eam)g(or)g(target)f(\(do)s(es)i(not)f +(a\013ect)g(photon)472 2365 y(inside)e(electron,)h(only)f(photons)h +(app)s(earing)e(as)i(argumen)m(t)f(in)f(the)i Fq(PYINIT)h +Fw(call\).)236 2473 y Fq(=)52 b(0)f(:)217 b Fw(a)43 b(photon)i(is)e +(assumed)i(to)f(b)s(e)g(p)s(oin)m(t-lik)m(e)e(\(a)i(direct)g(photon\),) +j(i.e.)78 b(can)44 b(only)709 2582 y(in)m(teract)32 b(in)g(pro)s +(cesses)i(whic)m(h)f(explicitly)e(con)m(tain)g(the)i(incoming)d +(photon,)j(suc)m(h)709 2690 y(as)43 b(f)869 2705 y Fh(i)897 +2690 y Fj(\015)50 b Fn(!)45 b Fw(f)1173 2705 y Fh(i)1201 +2690 y Fw(g)e(for)g Fj(\015)5 b Fw(p)43 b(in)m(teractions.)73 +b(In)44 b Fj(\015)5 b(\015)47 b Fw(in)m(teractions)c(b)s(oth)f(photons) +h(are)709 2798 y(direct,)32 b(i.e)g(the)h(main)e(pro)s(cess)j(is)e +Fj(\015)5 b(\015)33 b Fn(!)27 b Fw(f)2289 2813 y Fh(i)p +2317 2719 37 4 v 2317 2798 a Fw(f)2354 2813 y Fh(i)2382 +2798 y Fw(.)236 2907 y Fq(=)52 b(1)f(:)217 b Fw(a)41 +b(photon)g(is)f(assumed)i(to)f(b)s(e)h(resolv)m(ed,)i(i.e.)69 +b(can)41 b(only)g(in)m(teract)g(through)g(its)709 3015 +y(constituen)m(t)28 b(quarks)g(and)f(gluons,)h(giving)e(either)h(high-) +p Fj(p)2854 3030 y Fk(?)2939 3015 y Fw(parton{parton)f(scat-)709 +3123 y(terings)36 b(or)g(lo)m(w-)p Fj(p)1382 3138 y Fk(?)1477 +3123 y Fw(ev)m(en)m(ts.)58 b(Hard)36 b(pro)s(cesses)j(are)e(calculated) +e(with)h(the)h(use)h(of)709 3232 y(the)28 b(full)e(photon)h(parton)h +(distributions.)40 b(In)28 b Fj(\015)5 b(\015)33 b Fw(in)m(teractions) +27 b(b)s(oth)g(photons)h(are)709 3340 y(resolv)m(ed.)236 +3448 y Fq(=)52 b(2)f(:)217 b Fw(a)29 b(photon)g(is)f(assumed)i(resolv)m +(ed,)h(but)e(only)g(the)h(VMD)f(piece)g(is)g(included)g(in)f(the)709 +3557 y(parton)46 b(distributions,)j(whic)m(h)f(therefore)f(mainly)e +(are)i(scaled-do)m(wn)g(v)m(ersions)709 3665 y(of)36 +b(the)h Fj(\032)1046 3629 y Fl(0)1085 3665 y Fj(=\031)1193 +3629 y Fl(0)1269 3665 y Fw(ones.)56 b(Both)36 b(high-)p +Fj(p)2049 3680 y Fk(?)2144 3665 y Fw(parton{parton)f(scatterings)i(and) +g(lo)m(w-pT)709 3774 y(ev)m(en)m(ts)e(are)d(allo)m(w)m(ed.)43 +b(In)33 b Fj(\015)5 b(\015)37 b Fw(in)m(teractions)32 +b(b)s(oth)h(photons)g(are)f(VMD-lik)m(e.)236 3882 y Fq(=)52 +b(3)f(:)217 b Fw(a)24 b(photon)g(is)g(assumed)h(resolv)m(ed,)i(but)e +(only)f(the)g(anomalous)f(piece)i(of)f(the)g(photon)709 +3990 y(parton)i(distributions)f(is)g(included.)42 b(Only)25 +b(high-)p Fj(p)2600 4005 y Fk(?)2685 3990 y Fw(parton{parton)g +(scatterings)709 4099 y(are)32 b(allo)m(w)m(ed.)43 b(In)33 +b Fj(\015)5 b(\015)37 b Fw(in)m(teractions)32 b(b)s(oth)h(photons)g +(are)f(anomalous.)236 4207 y Fq(=)52 b(4)f(:)217 b Fw(in)30 +b Fj(\015)5 b(\015)36 b Fw(in)m(teractions)30 b(one)h(photon)g(is)g +(direct)g(and)g(the)g(other)g(resolv)m(ed.)44 b(A)31 +b(t)m(ypical)709 4315 y(pro)s(cess)43 b(is)f(th)m(us)i(f)1421 +4330 y Fh(i)1449 4315 y Fj(\015)50 b Fn(!)44 b Fw(f)1724 +4330 y Fh(i)1752 4315 y Fw(g)q(.)73 b(Hard)43 b(pro)s(cesses)h(are)f +(calculated)e(with)i(the)f(use)709 4424 y(of)h(the)h(full)e(photon)i +(parton)g(distributions)f(for)g(the)h(resolv)m(ed)h(photon.)78 +b(Both)709 4532 y(p)s(ossibilities)36 b(of)k(whic)m(h)g(photon)g(is)f +(direct)h(are)g(included,)h(in)e(ev)m(en)m(t)j(top)s(ologies)709 +4640 y(and)32 b(in)f(cross)h(sections.)44 b(This)32 b(option)f(cannot)h +(b)s(e)g(used)g(in)f(con\014gurations)h(with)709 4749 +y(only)g(one)h(incoming)d(photon.)236 4857 y Fq(=)52 +b(5)f(:)217 b Fw(in)38 b Fj(\015)5 b(\015)45 b Fw(in)m(teractions)39 +b(one)h(photon)f(is)g(direct)h(and)g(the)g(other)f(VMD-lik)m(e.)64 +b(Both)709 4965 y(p)s(ossibilities)36 b(of)k(whic)m(h)g(photon)g(is)f +(direct)h(are)g(included,)h(in)e(ev)m(en)m(t)j(top)s(ologies)709 +5074 y(and)32 b(in)f(cross)h(sections.)44 b(This)32 b(option)f(cannot)h +(b)s(e)g(used)g(in)f(con\014gurations)h(with)709 5182 +y(only)g(one)h(incoming)d(photon.)236 5290 y Fq(=)52 +b(6)f(:)217 b Fw(in)36 b Fj(\015)5 b(\015)42 b Fw(in)m(teractions)36 +b(one)h(photon)g(is)g(direct)f(and)h(the)h(other)f(anomalous.)55 +b(Both)709 5399 y(p)s(ossibilities)36 b(of)k(whic)m(h)g(photon)g(is)f +(direct)h(are)g(included,)h(in)e(ev)m(en)m(t)j(top)s(ologies)709 +5507 y(and)32 b(in)f(cross)h(sections.)44 b(This)32 b(option)f(cannot)h +(b)s(e)g(used)g(in)f(con\014gurations)h(with)709 5615 +y(only)g(one)h(incoming)d(photon.)1817 5953 y(151)p eop +%%Page: 152 158 +152 157 bop 236 -18 a Fq(=)52 b(7)f(:)217 b Fw(in)45 +b Fj(\015)5 b(\015)52 b Fw(in)m(teractions)45 b(one)i(photon)f(is)g +(VMD-lik)m(e)f(and)i(the)g(other)f(anomalous.)709 90 +y(Only)38 b(high-)p Fj(p)1223 105 y Fk(?)1320 90 y Fw(parton{parton)g +(scatterings)h(are)g(allo)m(w)m(ed.)62 b(Both)38 b(p)s(ossibilities)709 +198 y(of)43 b(whic)m(h)h(photon)f(is)g(VMD-lik)m(e)g(are)g(included,)j +(in)d(ev)m(en)m(t)i(top)s(ologies)d(and)h(in)709 307 +y(cross)d(sections.)64 b(This)40 b(option)e(cannot)i(b)s(e)f(used)i(in) +d(con\014gurations)h(with)g(only)709 415 y(one)33 b(incoming)d(photon.) +236 523 y Fq(=)52 b(10)g(:)165 b Fw(the)28 b(VMD,)h(direct)f(and)g +(anomalous)f(comp)s(onen)m(ts)i(of)f(the)h(photon)f(are)g(automat-)709 +632 y(ically)37 b(mixed.)63 b(F)-8 b(or)38 b Fj(\015)5 +b Fw(p)40 b(in)m(teractions,)g(this)f(means)h(an)f(automatic)e(mixture) +i(of)709 740 y(the)30 b(three)h(classes)g(0,)f(2)g(and)g(3)g(ab)s(o)m +(v)m(e)h([Sc)m(h93,)f(Sc)m(h93a)q(],)g(for)g Fj(\015)5 +b(\015)35 b Fw(ones)c(a)e(mixture)709 848 y(of)k(the)i(six)f(classes)h +(0,)f(2,)g(3,)g(5,)g(6)g(and)g(7)g(ab)s(o)m(v)m(e)h([Sc)m(h94a].)48 +b(V)-8 b(arious)33 b(restrictions)709 957 y(exist)g(for)f(this)g +(option,)f(as)i(discussed)h(in)e(section)h(8.3.2.)236 +1065 y Fo(Note:)203 b Fw(our)39 b(b)s(est)h(understanding)g(of)f(ho)m +(w)i(to)e(mix)f(ev)m(en)m(t)k(classes)e(is)f(pro)m(vided)i(b)m(y)f(the) +709 1173 y(option)j(10)i(ab)s(o)m(v)m(e,)k(whic)m(h)c(also)f(can)h(b)s +(e)g(obtained)g(b)m(y)g(com)m(bining)e(three)j(\(for)709 +1282 y Fj(\015)5 b Fw(p\))31 b(or)g(six)g(\(for)g Fj(\015)5 +b(\015)g Fw(\))31 b(separate)h(runs.)44 b(In)31 b(a)g(simpler)f +(alternativ)m(e)g(the)i(VMD)f(and)709 1390 y(anomalous)24 +b(classes)j(are)f(joined)f(in)m(to)g(a)h(single)f(resolv)m(ed)h(class.) +42 b(Then)27 b Fj(\015)5 b Fw(p)26 b(ph)m(ysics)709 1498 +y(only)37 b(requires)i(t)m(w)m(o)g(separate)g(runs,)h(with)e(0)g(and)g +(1,)i(and)e Fj(\015)5 b(\015)43 b Fw(ph)m(ysics)d(requires)709 +1607 y(three,)33 b(with)f(0,)h(1)f(and)h(4.)0 1715 y +Fq(MSTP\(15\))53 b(:)48 b Fw(\(D=5\))28 b(p)s(ossibilit)m(y)f(to)i(mo)s +(dify)e(the)i(nature)h(of)e(the)i(anomalous)d(photon)i(comp)s(onen)m(t) +472 1823 y(\(as)g(used)h(with)e(the)g(appropriate)g Fq(MSTP\(14\))i +Fw(options\),)f(in)f(particular)e(with)i(resp)s(ect)i(to)472 +1932 y(the)d(scale)g(c)m(hoices)g(and)g(cut-o\013s)g(of)f(hard)g(pro)s +(cesses.)44 b(This)27 b(option)e(is)h(mainly)f(in)m(tended)472 +2040 y(for)32 b(comparativ)m(e)g(studies)i(and)e(should)h(not)f +(normally)e(b)s(e)j(touc)m(hed.)236 2148 y Fq(=)52 b(0)f(:)217 +b Fw(none,)33 b(i.e.)43 b(the)33 b(same)f(treatmen)m(t)h(as)g(for)f +(the)h(VMD)f(comp)s(onen)m(t.)236 2257 y Fq(=)52 b(1)f(:)217 +b Fw(ev)-5 b(aluate)32 b(the)h(anomalous)e(parton)h(distributions)f(at) +h(a)h(scale)f Fj(Q)3137 2221 y Fl(2)3177 2257 y Fj(=)p +Fq(PARP\(17\))3634 2221 y Fl(2)3675 2257 y Fw(.)236 2365 +y Fq(=)52 b(2)f(:)217 b Fw(as)62 b Fq(=1)p Fw(,)71 b(but)63 +b(instead)f(of)69 b Fq(PARP\(17\))c Fw(use)e(either)g +Fq(PARP\(81\)/PARP\(15\))k Fw(or)709 2473 y Fq(PARP\(82\)/PARP\(15\))p +Fw(,)37 b(dep)s(ending)c(on)f Fq(MSTP\(82\))j Fw(v)-5 +b(alue.)236 2582 y Fq(=)52 b(3)f(:)217 b Fw(ev)-5 b(aluate)40 +b(the)h(anomalous)e(parton)i(distribution)e(functions)i(of)f(the)h +(photon)g(as)709 2690 y Fj(f)768 2654 y Fh(\015)t(;)p +Fl(anom)1000 2690 y Fw(\()p Fj(x;)17 b(Q)1214 2654 y +Fl(2)1254 2690 y Fj(;)g(p)1347 2654 y Fl(2)1347 2715 +y(0)1386 2690 y Fw(\))22 b Fn(\000)h Fj(f)1605 2654 y +Fh(\015)t(;)p Fl(anom)1837 2690 y Fw(\()p Fj(x;)17 b(Q)2051 +2654 y Fl(2)2091 2690 y Fj(;)g(r)2182 2654 y Fl(2)2220 +2690 y Fj(Q)2297 2654 y Fl(2)2337 2690 y Fw(\))33 b(with)f +Fj(r)e Fw(=)p Fq(PARP\(17\))p Fw(.)236 2798 y Fq(=)52 +b(4)f(:)217 b Fw(as)62 b Fq(=3)p Fw(,)71 b(but)63 b(instead)f(of)69 +b Fq(PARP\(17\))c Fw(use)e(either)g Fq(PARP\(81\)/PARP\(15\))k +Fw(or)709 2907 y Fq(PARP\(82\)/PARP\(15\))p Fw(,)37 b(dep)s(ending)c +(on)f Fq(MSTP\(82\))j Fw(v)-5 b(alue.)236 3015 y Fq(=)52 +b(5)f(:)217 b Fw(use)41 b(larger)d Fj(p)1217 3030 y Fk(?)p +Fl(min)1434 3015 y Fw(for)h(the)i(anomalous)d(comp)s(onen)m(t)i(than)g +(for)g(the)g(VMD)g(one,)709 3123 y(but)33 b(otherwise)g(no)f +(di\013erence.)0 3232 y Fq(MSTP\(21\))53 b(:)48 b Fw(\(D=1\))36 +b(nature)i(of)f(fermion{fermion)d(scatterings)j(sim)m(ulated)f(in)h +(pro)s(cess)i(10)e(b)m(y)h Fj(t)p Fw(-)472 3340 y(c)m(hannel)33 +b(exc)m(hange.)236 3448 y Fq(=)52 b(0)f(:)217 b Fw(all)30 +b(o\013.)236 3557 y Fq(=)52 b(1)f(:)217 b Fw(full)30 +b(mixture)i(of)g Fj(\015)1412 3521 y Fk(\003)1452 3557 +y Fj(=)p Fw(Z)1561 3521 y Fl(0)1632 3557 y Fw(neutral)g(curren)m(t)i +(and)e(W)2597 3521 y Fk(\006)2690 3557 y Fw(c)m(harged)h(curren)m(t.) +236 3665 y Fq(=)52 b(2)f(:)217 b Fj(\015)37 b Fw(neutral)32 +b(curren)m(t)i(only)-8 b(.)236 3774 y Fq(=)52 b(3)f(:)217 +b Fw(Z)769 3737 y Fl(0)840 3774 y Fw(neutral)32 b(curren)m(t)i(only)-8 +b(.)236 3882 y Fq(=)52 b(4)f(:)217 b Fj(\015)765 3846 +y Fk(\003)804 3882 y Fj(=)p Fw(Z)913 3846 y Fl(0)984 +3882 y Fw(neutral)32 b(curren)m(t)i(only)-8 b(.)236 3990 +y Fq(=)52 b(5)f(:)217 b Fw(W)810 3954 y Fk(\006)902 3990 +y Fw(c)m(harged)33 b(curren)m(t)h(only)-8 b(.)0 4099 +y Fq(MSTP\(22\))53 b(:)48 b Fw(\(D=0\))27 b(sp)s(ecial)f(o)m(v)m +(erride)j(of)e(normal)f Fj(Q)2051 4062 y Fl(2)2118 4099 +y Fw(de\014nition)h(used)h(for)g(maxim)m(um)d(of)i(parton-)472 +4207 y(sho)m(w)m(er)55 b(ev)m(olution,)i(in)m(tended)d(for)e(deep)i +(inelastic)d(scattering\))i(in)f(lepton{hadron)472 4315 +y(ev)m(en)m(ts,)35 b(see)f(section)f(10.4.)0 4424 y Fq(MSTP\(23\))53 +b(:)48 b Fw(\(D=1\))43 b(for)g(deep)i(inelastic)e(scattering)h(pro)s +(cesses)i(\(10)d(and)h(83\),)j(this)c(option)g(al-)472 +4532 y(lo)m(ws)38 b(the)f Fj(x)h Fw(and)f Fj(Q)1228 4496 +y Fl(2)1305 4532 y Fw(of)g(the)g(original)d(hard)j(scattering)g(to)g(b) +s(e)h(retained)f(b)m(y)h(the)f(\014nal)472 4640 y(electron.)236 +4749 y Fq(=)52 b(0)f(:)217 b Fw(no)41 b(correction)h(pro)s(cedure,)j +(i.e.)70 b Fj(x)42 b Fw(and)g Fj(Q)2377 4712 y Fl(2)2458 +4749 y Fw(of)f(the)h(scattered)h(electron)f(di\013er)709 +4857 y(from)31 b(the)i(originally)c(generated)k Fj(x)g +Fw(and)g Fj(Q)2337 4821 y Fl(2)2377 4857 y Fw(.)236 4965 +y Fq(=)52 b(1)f(:)217 b Fw(p)s(ost)38 b(facto)g(correction,)h(i.e.)60 +b(the)39 b(c)m(hange)g(of)f(electron)g(momen)m(tum,)g(b)m(y)h(initial) +709 5074 y(and)g(\014nal)f(QCD)h(radiation,)g(primordial)c +Fj(k)2375 5089 y Fk(?)2473 5074 y Fw(and)k(b)s(eam)f(remnan)m(t)h +(treatmen)m(t,)709 5182 y(is)i(corrected)i(for)e(b)m(y)i(a)f(sh)m +(u\017ing)g(of)g(momen)m(tum)e(b)s(et)m(w)m(een)k(the)f(electron)e(and) +709 5290 y(hadron)28 b(side)g(in)f(the)h(\014nal)f(state.)43 +b(Only)27 b(pro)s(cess)i(10)f(is)f(corrected,)j(while)d(pro)s(cess)709 +5399 y(83)32 b(is)g(not.)236 5507 y Fq(=)52 b(2)f(:)217 +b Fw(as)41 b Fq(=1)p Fw(,)i(except)f(that)e(b)s(oth)h(pro)s(cess)h(10)e +(and)h(83)f(are)g(treated.)69 b(This)40 b(option)g(is)709 +5615 y(dangerous,)31 b(esp)s(ecially)e(for)h(top,)g(since)h(it)e(ma)m +(y)h(w)m(ell)f(b)s(e)h(imp)s(ossible)e(to)i(`correct')1817 +5953 y(152)p eop +%%Page: 153 159 +153 158 bop 709 -18 a Fw(in)33 b(pro)s(cess)i(83:)45 +b(the)35 b(standard)f(DIS)g(kinematics)e(de\014nitions)i(are)g(based)g +(on)g(the)709 90 y(assumption)25 b(of)g(massless)i(quarks.)42 +b(Therefore)27 b(in\014nite)e(lo)s(ops)g(are)h(not)g(excluded.)236 +198 y Fo(Note:)203 b Fw(the)36 b(correction)g(pro)s(cedure)h(will)d +(fail)g(for)h(a)h(fraction)f(of)h(the)g(ev)m(en)m(ts,)k(whic)m(h)c(are) +709 307 y(th)m(us)27 b(rejected)h(\(and)f(new)g(ones)g(generated)h(in)d +(their)h(place\).)41 b(The)28 b(correction)e(op-)709 +415 y(tion)h(is)g(not)h(unam)m(biguous,)h(and)f(should)g(not)g(b)s(e)h +(tak)m(en)g(to)s(o)e(seriously)-8 b(.)42 b(F)-8 b(or)27 +b(v)m(ery)709 523 y(small)g Fj(Q)1038 487 y Fl(2)1107 +523 y Fw(v)-5 b(alues,)30 b(the)f Fj(x)h Fw(is)f(not)g(exactly)h +(preserv)m(ed)h(ev)m(en)g(after)e(this)g(pro)s(cedure.)0 +632 y Fq(MSTP\(31\))53 b(:)48 b Fw(\(D=1\))31 b(parametrization)f(of)i +(total,)g(elastic)f(and)i(di\013ractiv)m(e)f(cross)h(sections.)236 +740 y Fq(=)52 b(0)f(:)217 b Fw(ev)m(erything)30 b(is)f(to)f(b)s(e)i +(set)g(b)m(y)g(y)m(ou)g(y)m(ourself)f(in)g(the)g Fq(PYINT7)i +Fw(common)d(blo)s(c)m(k.)42 b(F)-8 b(or)709 848 y(photopro)s(duction,) +28 b(additionally)d(y)m(ou)k(need)g(to)f(set)h Fq(VINT\(281\))p +Fw(.)45 b(Normally)26 b(y)m(ou)709 957 y(w)m(ould)k(set)h(these)h(v)-5 +b(alues)30 b(once)h(and)g(for)f(all)e(b)s(efore)j(the)g +Fq(PYINIT)h Fw(call,)d(but)h(if)g(y)m(ou)709 1065 y(run)c(with)f(v)-5 +b(ariable)24 b(energies)j(\(see)g Fq(MSTP\(171\))p Fw(\))h(y)m(ou)e +(can)g(also)f(set)i(it)e(b)s(efore)h(eac)m(h)709 1173 +y(new)35 b Fq(PYEVNT)f Fw(call.)236 1282 y Fq(=)52 b(1)f(:)217 +b Fw(Donnac)m(hie{Landsho\013)66 b(for)f(total)g(cross)i(section)g +([Don92)o(],)75 b(and)66 b(Sc)m(h)m(uler{)709 1390 y(Sj\177)-49 +b(ostrand)32 b(for)h(elastic)e(and)i(di\013ractiv)m(e)f(cross)h +(sections)g([Sc)m(h94)q(,)g(Sc)m(h93a].)0 1498 y Fq(MSTP\(32\))53 +b(:)48 b Fw(\(D=2\))35 b Fj(Q)948 1462 y Fl(2)1024 1498 +y Fw(de\014nition)g(in)h(hard)g(scattering)g(for)g(2)e +Fn(!)f Fw(2)j(pro)s(cesses.)57 b(F)-8 b(or)35 b(resonance)472 +1607 y(pro)s(duction)j Fj(Q)1051 1571 y Fl(2)1129 1607 +y Fw(is)f(alw)m(a)m(ys)i(c)m(hosen)h(to)e(b)s(e)k(^)-53 +b Fj(s)37 b Fw(=)g Fj(m)2412 1571 y Fl(2)2412 1631 y +Fh(R)2470 1607 y Fw(,)j(where)f Fj(m)2909 1622 y Fh(R)3005 +1607 y Fw(is)f(the)g(mass)g(of)g(the)472 1715 y(resonance.)84 +b(F)-8 b(or)45 b(gauge)g(b)s(oson)h(scattering)f(pro)s(cesses)j +Fj(V)21 b(V)71 b Fn(!)50 b Fj(V)21 b(V)67 b Fw(the)46 +b(W)h(or)e(Z)3740 1679 y Fl(0)472 1823 y Fw(squared)i(mass)f(is)f(used) +i(as)f(scale)f(in)g(parton)g(distributions.)82 b(See)46 +b Fq(PARP\(34\))i Fw(for)d(a)472 1932 y(p)s(ossibilit)m(y)31 +b(to)h(mo)s(dify)f(the)i(c)m(hoice)g(b)s(elo)m(w)f(b)m(y)i(a)e(m)m +(ultiplicativ)m(e)d(factor.)236 2040 y Fq(=)52 b(1)f(:)217 +b Fj(Q)786 2004 y Fl(2)853 2040 y Fw(=)28 b(2)t(^)-53 +b Fj(s)1053 2022 y Fw(^)1051 2040 y Fj(t)7 b Fw(^)-55 +b Fj(u)o(=)p Fw(\()t(^)i Fj(s)1275 2004 y Fl(2)1336 2040 +y Fw(+)1436 2022 y(^)1434 2040 y Fj(t)1469 2004 y Fl(2)1531 +2040 y Fw(+)28 b(^)-55 b Fj(u)1685 2004 y Fl(2)1724 2040 +y Fw(\).)236 2148 y Fq(=)52 b(2)f(:)217 b Fj(Q)786 2112 +y Fl(2)853 2148 y Fw(=)28 b(\()p Fj(m)1080 2112 y Fl(2)1080 +2173 y Fk(?)p Fl(1)1196 2148 y Fw(+)22 b Fj(m)1379 2112 +y Fl(2)1379 2173 y Fk(?)p Fl(2)1474 2148 y Fw(\))p Fj(=)p +Fw(2.)236 2269 y Fq(=)52 b(3)f(:)217 b Fj(Q)786 2233 +y Fl(2)853 2269 y Fw(=)28 b(min)n(\()p Fn(\000)1235 2251 +y Fw(^)1234 2269 y Fj(t)q(;)17 b Fn(\000)6 b Fw(^)-55 +b Fj(u)p Fw(\).)236 2377 y Fq(=)52 b(4)f(:)217 b Fj(Q)786 +2341 y Fl(2)853 2377 y Fw(=)32 b(^)-53 b Fj(s)p Fw(.)236 +2486 y Fq(=)52 b(5)f(:)217 b Fj(Q)786 2450 y Fl(2)853 +2486 y Fw(=)28 b Fn(\000)1035 2467 y Fw(^)1034 2486 y +Fj(t)p Fw(.)0 2594 y Fq(MSTP\(33\))53 b(:)48 b Fw(\(D=0\))30 +b(inclusion)g(of)g Fj(K)39 b Fw(factors)31 b(in)f(hard)h(cross)h +(sections)g(for)f(parton{parton)f(in)m(ter-)472 2703 +y(actions)j(\(i.e.)43 b(for)32 b(incoming)e(quarks)k(and)e(gluons\).) +236 2811 y Fq(=)52 b(0)f(:)217 b Fw(none,)33 b(i.e.)43 +b Fj(K)35 b Fw(=)27 b(1.)236 2919 y Fq(=)52 b(1)f(:)217 +b Fw(a)32 b(common)f Fj(K)40 b Fw(factor)32 b(is)g(used,)i(as)f(stored) +g(in)f Fq(PARP\(31\))p Fw(.)236 3028 y Fq(=)52 b(2)f(:)217 +b Fw(separate)25 b(factors)g(are)g(used)h(for)e(ordinary)g(\()p +Fq(PARP\(31\))p Fw(\))j(and)e(colour)f(annihilation)709 +3136 y(graphs)33 b(\()p Fq(PARP\(32\))p Fw(\).)236 3244 +y Fq(=)52 b(3)f(:)217 b Fw(A)54 b Fj(K)61 b Fw(factor)54 +b(is)f(in)m(tro)s(duced)i(b)m(y)g(a)f(shift)f(in)h(the)g +Fj(\013)2798 3259 y Fl(s)2884 3244 y Fj(Q)2961 3208 y +Fl(2)3055 3244 y Fw(argumen)m(t,)59 b Fj(\013)3607 3259 +y Fl(s)3704 3244 y Fw(=)709 3353 y Fj(\013)771 3368 y +Fl(s)803 3353 y Fw(\()p Fq(PARP\(33\))p Fj(Q)1326 3316 +y Fl(2)1367 3353 y Fw(\).)0 3461 y Fq(MSTP\(34\))53 b(:)48 +b Fw(\(D=1\))37 b(use)j(of)e(in)m(terference)i(term)e(in)g(matrix)f +(elemen)m(ts)i(for)f(QCD)g(pro)s(cesses,)k(see)472 3569 +y(section)33 b(8.2.1.)236 3678 y Fq(=)52 b(0)f(:)217 +b Fw(excluded)33 b(\(i.e.)43 b(string-inspired)31 b(matrix)g(elemen)m +(ts\).)236 3786 y Fq(=)52 b(1)f(:)217 b Fw(included)32 +b(\(i.e.)43 b(con)m(v)m(en)m(tional)32 b(QCD)h(matrix)e(elemen)m(ts\).) +236 3894 y Fo(Note:)203 b Fw(for)32 b(the)i(option)e +Fq(MSTP\(34\)=1)p Fw(,)k(i.e.)45 b(in)m(terference)34 +b(terms)f(included,)g(these)i(terms)709 4003 y(are)25 +b(divided)f(b)s(et)m(w)m(een)j(the)f(di\013eren)m(t)f(p)s(ossible)f +(colour)g(con\014gurations)h(according)709 4111 y(to)47 +b(the)i(p)s(ole)e(structure)j(of)d(the)i(\(string-inspired\))d(matrix)h +(elemen)m(ts)h(for)g(the)709 4219 y(di\013eren)m(t)32 +b(colour)g(con\014gurations.)0 4328 y Fq(MSTP\(35\))53 +b(:)48 b Fw(\(D=0\))40 b(threshold)h(b)s(eha)m(viour)f(for)g(hea)m +(vy-\015a)m(v)m(our)j(pro)s(duction,)f(i.e.)68 b(ISUB)41 +b(=)g(81,)472 4436 y(82,)30 b(84,)g(85,)g(and)g(also)f(for)g(Z)h(and)g +(Z)1800 4400 y Fk(0)1852 4436 y Fw(deca)m(ys.)45 b(The)31 +b(non-standard)f(options)f(are)h(mainly)472 4544 y(in)m(tended)47 +b(for)e(top,)j(but)e(can)g(b)s(e)f(used,)50 b(with)45 +b(less)h(theoretical)e(reliabilit)m(y)-8 b(,)45 b(also)g(for)472 +4653 y(c)m(harm)38 b(and)f(b)s(ottom)f(\(for)h(Z)g(and)h(Z)1860 +4617 y Fk(0)1920 4653 y Fw(only)f(top)h(and)f(hea)m(vier)h(\015a)m(v)m +(ours)h(are)f(a\013ected\).)472 4761 y(The)c(threshold)f(factors)f(are) +h(giv)m(en)g(in)e(eqs.)j(\(117\))e(and)h(\(118\).)236 +4869 y Fq(=)52 b(0)f(:)217 b Fw(na)-11 b(\177)-38 b(\020v)m(e)32 +b(lo)m(w)m(est-order)h(matrix-elemen)m(t)e(b)s(eha)m(viour.)236 +4978 y Fq(=)52 b(1)f(:)217 b Fw(enhancemen)m(t)39 b(or)e(suppression)i +(close)f(to)f(threshold,)i(according)e(to)g(the)h(colour)709 +5086 y(structure)c(of)f(the)g(pro)s(cess.)47 b(The)34 +b Fj(\013)2050 5101 y Fl(s)2115 5086 y Fw(v)-5 b(alue)33 +b(app)s(earing)f(in)g(the)i(threshold)f(factor)709 5194 +y(\(whic)m(h)39 b(is)f(not)h(the)g(same)f(as)h(the)g +Fj(\013)2102 5209 y Fl(s)2173 5194 y Fw(of)f(the)h(lo)m(w)m(est-order)g +(2)f Fn(!)g Fw(2)g(pro)s(cess\))i(is)709 5303 y(tak)m(en)d(to)f(b)s(e)h +(\014xed)g(at)f(the)h(v)-5 b(alue)36 b(giv)m(en)g(in)g +Fq(PARP\(35\))p Fw(.)57 b(The)37 b(threshold)g(factor)709 +5411 y(used)c(in)f(an)h(ev)m(en)m(t)h(is)e(stored)h(in)f +Fq(PARI\(81\))p Fw(.)236 5519 y Fq(=)52 b(2)f(:)217 b +Fw(as)45 b Fq(=1)p Fw(,)50 b(but)45 b(the)h Fj(\013)1454 +5534 y Fl(s)1532 5519 y Fw(v)-5 b(alue)45 b(app)s(earing)f(in)h(the)h +(threshold)f(factor)g(is)g(tak)m(en)i(to)709 5649 y(b)s(e)42 +b(running,)h(with)e(argumen)m(t)h Fj(Q)2006 5613 y Fl(2)2089 +5649 y Fw(=)h Fj(m)2293 5664 y Fl(Q)2352 5554 y Fg(q)p +2435 5554 756 4 v 95 x Fw(\()18 b(^)-67 b Fj(m)23 b Fn(\000)f +Fw(2)p Fj(m)2814 5664 y Fl(Q)2873 5649 y Fw(\))2911 5620 +y Fl(2)2973 5649 y Fw(+)g(\000)3132 5615 y Fl(2)3132 +5673 y(Q)3191 5649 y Fw(.)71 b(Here)42 b Fj(m)3613 5664 +y Fl(Q)3714 5649 y Fw(is)1817 5953 y(153)p eop +%%Page: 154 160 +154 159 bop 709 -18 a Fw(the)30 b(nominal)d(hea)m(vy-quark)k(mass,)f +(\000)2122 -3 y Fl(Q)2211 -18 y Fw(is)f(the)h(width)f(of)g(the)h(hea)m +(vy-quark-mass)709 90 y(distribution,)35 b(and)55 b(^)-68 +b Fj(m)37 b Fw(is)f(the)g(in)m(v)-5 b(arian)m(t)35 b(mass)h(of)g(the)h +(hea)m(vy-quark)h(pair.)54 b(The)709 198 y(\000)770 213 +y Fl(Q)865 198 y Fw(v)-5 b(alue)36 b(has)h(to)g(b)s(e)g(stored)g(b)m(y) +g(the)g(user)h(in)e Fq(PARP\(36\))p Fw(.)58 b(The)37 +b(regularization)709 307 y(of)32 b Fj(\013)882 322 y +Fl(s)946 307 y Fw(at)h(lo)m(w)f Fj(Q)1319 270 y Fl(2)1391 +307 y Fw(is)g(giv)m(en)h(b)m(y)i Fq(MSTP\(36\))p Fw(.)0 +415 y Fq(MSTP\(36\))53 b(:)48 b Fw(\(D=2\))33 b(regularization)f(of)i +Fj(\013)1664 430 y Fl(s)1730 415 y Fw(in)g(the)h(limit)c +Fj(Q)2328 379 y Fl(2)2398 415 y Fn(!)g Fw(0)j(for)g(the)h(threshold)f +(factor)g(ob-)472 523 y(tainable)26 b(in)g(the)h Fq(MSTP\(35\)=2)i +Fw(option;)f(see)g Fq(MSTU\(115\))h Fw(for)d(a)h(list)e(of)h(the)h(p)s +(ossibilities.)0 632 y Fq(MSTP\(37\))53 b(:)48 b Fw(\(D=1\))23 +b(inclusion)g(of)h(running)g(quark)h(masses)h(in)d(Higgs)h(pro)s +(duction)g(\(q)p 3241 579 52 4 v(q)k Fn(!)f Fw(H)3520 +595 y Fl(0)3560 632 y Fw(\))d(and)472 740 y(deca)m(y)38 +b(\(H)858 704 y Fl(0)931 740 y Fn(!)33 b Fw(q)p 1115 +687 V(q)q(\))j(couplings.)53 b(Also)35 b(included)h(for)f(c)m(harged)i +(Higgs)e(pro)s(duction)g(and)472 848 y(deca)m(y)-8 b(,)31 +b(but)e(there)h(only)e(for)g(the)h(do)m(wn-t)m(yp)s(e)h(quark,)g(since) +f(the)g(up-t)m(yp)s(e)h(one)f(normally)472 957 y(is)k(a)f(top)g(quark,) +i(with)e Fj(m)1436 972 y Fl(t)1496 957 y Fn(\031)c Fj(m)1686 +972 y Fl(H)1743 957 y Fw(.)236 1065 y Fq(=)52 b(0)f(:)217 +b Fw(not)32 b(included,)g(i.e.)42 b(\014xed)34 b(quark)f(masses)g(are)f +(used)h(according)f(to)g(the)g(v)-5 b(alues)32 b(in)709 +1173 y(the)h Fq(PMAS)g Fw(arra)m(y)-8 b(.)236 1282 y +Fq(=)52 b(1)f(:)217 b Fw(included,)26 b(with)g(running)f(starting)g +(from)f(the)i(v)-5 b(alue)25 b(giv)m(en)h(in)f(the)h +Fq(PMAS)h Fw(arra)m(y)-8 b(,)27 b(at)709 1390 y(a)g Fj(Q)862 +1405 y Fl(0)930 1390 y Fw(scale)h(of)34 b Fq(PARP\(37\))c +Fw(times)d(the)i(quark)f(mass)g(itself,)g(up)g(to)g(a)f +Fj(Q)h Fw(scale)g(giv)m(en)709 1498 y(b)m(y)41 b(the)f(Higgs)f(mass.)66 +b(This)40 b(option)f(only)h(w)m(orks)h(when)h Fj(\013)2975 +1513 y Fl(s)3047 1498 y Fw(is)d(allo)m(w)m(ed)g(to)h(run)709 +1607 y(\(so)30 b(one)h(can)g(de\014ne)h(a)e(\003)g(v)-5 +b(alue\).)43 b(Therefore)31 b(it)f(is)g(only)g(applied)f(if)h +(additionally)709 1715 y Fq(MSTP\(2\))p Fn(\025)g Fw(1.)0 +1823 y Fq(MSTP\(38\))53 b(:)48 b Fw(\(D=5\))31 b(handling)f(of)h(quark) +i(lo)s(op)d(masses)i(in)f(the)i(b)s(o)m(x)f(graphs)g(gg)c +Fn(!)g Fj(\015)5 b(\015)36 b Fw(and)c(gg)d Fn(!)472 1932 +y Fw(g)q Fj(\015)5 b Fw(.)236 2040 y Fq(=)52 b(0)f(:)217 +b Fw(the)35 b(program)e(will)g(for)h(eac)m(h)i(\015a)m(v)m(our)g +(automatically)31 b(c)m(ho)s(ose)36 b(the)f(massless)g(ap-)709 +2148 y(pro)m(ximation)45 b(for)i(ligh)m(t)f(quarks)j(and)f(the)g(full)e +(massiv)m(e)i(form)m(ulae)e(for)h(hea)m(vy)709 2257 y(quarks,)i(with)44 +b(a)h(dividing)e(line)g(b)s(et)m(w)m(een)k(ligh)m(t)c(and)i(hea)m(vy)i +(quarks)f(that)e(de-)709 2365 y(p)s(ends)33 b(on)g(the)g(actual)i(^)-53 +b Fj(s)33 b Fw(scale.)236 2473 y Fn(\025)p Fq(1)52 b(:)242 +b Fw(the)36 b(program)e(will)g(use)j(the)f(massless)g(appro)m(ximation) +e(throughout,)i(assuming)709 2582 y(the)31 b(presence)i(of)k +Fq(MSTP\(38\))c Fw(e\013ectiv)m(ely)e(massless)g(quark)h(sp)s(ecies)f +(\(ho)m(w)m(ev)m(er,)j(at)709 2690 y(most)29 b(8\).)42 +b(Normally)28 b(one)i(w)m(ould)g(use)h Fq(=5)g Fw(for)f(the)g +(inclusion)e(of)i(all)e(quarks)j(up)g(to)709 2798 y(b)s(ottom,)g(and)i +Fq(=6)g Fw(to)f(include)g(top)g(as)h(w)m(ell.)236 2907 +y Fo(W)-9 b(arning:)47 b Fw(for)53 b Fq(=0)p Fw(,)60 +b(n)m(umerical)52 b(instabilities)f(ma)m(y)j(arise)f(for)g(scattering)h +(at)g(small)d(an-)709 3015 y(gles.)45 b(Users)34 b(are)f(therefore)h +(recommended)f(in)g(this)f(case)i(to)f(set)h Fq(CKIN\(27\))h +Fw(and)709 3123 y Fq(CKIN\(28\))g Fw(so)e(as)g(to)g(exclude)h(the)f +(range)g(of)g(scattering)g(angles)f(that)h(are)g(not)g(of)709 +3232 y(in)m(terest)g(an)m(yw)m(a)m(y)-8 b(.)0 3340 y +Fq(MSTP\(39\))53 b(:)48 b Fw(\(D=2\))41 b(c)m(hoice)h(of)f +Fj(Q)1373 3304 y Fl(2)1455 3340 y Fw(scale)h(for)f(parton)h +(distributions)e(and)i(initial)c(state)43 b(parton)472 +3458 y(sho)m(w)m(ers)35 b(in)d(pro)s(cesses)j(gg)e(or)f(q)p +1668 3405 V(q)d Fn(!)e Fw(Q)p 1951 3380 76 4 v(QH.)236 +3566 y Fq(=)52 b(1)f(:)217 b Fj(m)794 3530 y Fl(2)794 +3591 y(Q)853 3566 y Fw(.)236 3691 y Fq(=)52 b(2)f(:)217 +b Fw(max)o(\()p Fj(m)1013 3655 y Fl(2)1013 3716 y Fk(?)p +Fl(Q)1127 3691 y Fj(;)17 b(m)1256 3655 y Fl(2)1256 3730 +y Fk(?)p 1312 3675 55 4 v Fl(Q)1370 3691 y Fw(\))28 b(=)g +Fj(m)1625 3655 y Fl(2)1625 3716 y(Q)1706 3691 y Fw(+)22 +b(max\()p Fj(p)2073 3655 y Fl(2)2073 3716 y Fk(?)p Fl(Q)2186 +3691 y Fj(;)17 b(p)2279 3655 y Fl(2)2279 3730 y Fk(?)p +2335 3675 V Fl(Q)2393 3691 y Fw(\).)236 3830 y Fq(=)52 +b(3)f(:)217 b Fj(m)794 3794 y Fl(2)794 3855 y(H)851 3830 +y Fw(,)42 b(where)f Fj(m)1294 3845 y Fl(H)1391 3830 y +Fw(is)e(the)i(actual)e(Higgs)g(mass)h(of)f(the)h(ev)m(en)m(t,)k(not)c +(the)g(nominal)709 3939 y(one.)236 4047 y Fq(=)52 b(4)f(:)221 +b Fw(^)-53 b Fj(s)27 b Fw(=)h(\()p Fj(p)973 4062 y Fl(H)1052 +4047 y Fw(+)22 b Fj(p)1199 4062 y Fl(Q)1280 4047 y Fw(+)g +Fj(p)p 1427 4019 60 4 v 28 x Fl(Q)1486 4047 y Fw(\))1524 +4011 y Fl(2)1563 4047 y Fw(.)0 4172 y Fq(MSTP\(40\))53 +b(:)48 b Fw(\(D=0\))28 b(option)f(for)h(Coulom)m(b)g(correction)g(in)g +(pro)s(cess)i(25)f(W)2844 4136 y Fl(+)2903 4172 y Fw(W)3004 +4136 y Fk(\000)3092 4172 y Fw(pair)f(pro)s(duction,)472 +4281 y(see)47 b([Kho96)o(].)82 b(The)46 b(v)-5 b(alue)44 +b(of)h(the)h(Coulom)m(b)e(correction)h(factor)f(for)h(eac)m(h)h(ev)m +(en)m(t)h(is)472 4389 y(stored)34 b(in)d Fq(VINT\(95\))p +Fw(.)236 4497 y Fq(=)52 b(0)f(:)217 b Fw(\\no)32 b(Coulom)m(b".)42 +b(Is)33 b(the)g(often-used)h(reference)g(p)s(oin)m(t.)236 +4606 y Fq(=)52 b(1)f(:)217 b Fw(\\unstable)32 b(Coulom)m(b",)f(giv)m +(es)i(the)g(correct)g(\014rst-order)f(expression)i(v)-5 +b(alid)30 b(in)i(the)709 4714 y(non-relativistic)40 b(limit.)73 +b(Is)44 b(the)g(reasonable)f(option)f(to)i(use)g(as)g(a)f(\\b)s(est)h +(b)s(et")709 4822 y(description)32 b(of)g(LEP)h(2)f(ph)m(ysics.)236 +4931 y Fq(=)52 b(2)f(:)217 b Fw(\\second-order)35 b(Coulom)m(b")e(giv)m +(es)j(the)f(correct)g(second-order)g(expression)h(v)-5 +b(alid)709 5039 y(in)30 b(the)i(non-relativistic)d(limit.)40 +b(In)32 b(principle)e(this)h(is)g(ev)m(en)i(b)s(etter)f(than)g +Fq(=1)p Fw(,)g(but)709 5147 y(the)38 b(di\013erences)h(are)e +(negligible)e(and)j(computer)f(time)g(do)s(es)h(go)f(up)h(b)s(ecause)h +(of)709 5256 y(the)33 b(need)g(for)f(a)h(n)m(umerical)e(in)m(tegration) +g(in)g(the)i(w)m(eigh)m(t)g(factor.)236 5364 y Fq(=)52 +b(3)f(:)217 b Fw(\\damp)s(ened)28 b(Coulom)m(b",)g(where)h(the)g +(unstable)f(Coulom)m(b)g(expression)h(has)g(b)s(een)709 +5472 y(mo)s(di\014ed)41 b(b)m(y)i(a)f(\(1)28 b Fn(\000)h +Fj(\014)6 b Fw(\))1673 5436 y Fl(2)1754 5472 y Fw(factor)42 +b(in)f(fron)m(t)h(of)g(the)h(arctan)f(term.)72 b(This)42 +b(is)g(in-)709 5581 y(tended)32 b(as)g(an)g(alternativ)m(e)e(to)i +Fq(=1)g Fw(within)e(the)i(band)g(of)f(our)h(uncertain)m(t)m(y)g(in)f +(the)1817 5953 y(154)p eop +%%Page: 155 161 +155 160 bop 709 -18 a Fw(relativistic)30 b(limit.)236 +90 y Fq(=)52 b(4)f(:)217 b Fw(\\stable)29 b(Coulom)m(b",)f(i.e.)42 +b(e\013ects)31 b(are)e(calculated)g(as)g(if)g(the)g(W)q('s)i(w)m(ere)g +(stable.)42 b(Is)709 198 y(incorrect,)32 b(and)h(mainly)d(in)m(tended)k +(for)e(comparison)f(purp)s(oses.)236 307 y Fo(Note)37 +b(:)166 b Fw(Unfortunately)44 b(the)h(W)q('s)g(at)f(LEP)h(2)f(are)h +(not)f(in)f(the)i(non-relativistic)d(limit,)709 415 y(so)36 +b(the)h(separation)f(of)g(Coulom)m(b)f(e\013ects)j(from)d(other)i +(radiativ)m(e)e(corrections)i(is)709 523 y(not)j(gauge)h(in)m(v)-5 +b(arian)m(t.)66 b(The)41 b(options)f(ab)s(o)m(v)m(e)i(should)e +(therefore)i(b)s(e)e(view)m(ed)i(as)709 632 y(indicativ)m(e)31 +b(only)-8 b(,)32 b(not)h(as)f(the)h(ultimate)d(answ)m(er.)0 +740 y Fq(MSTP\(41\))53 b(:)48 b Fw(\(D=1\))38 b(master)h(switc)m(h)h +(for)e(all)f(resonance)k(deca)m(ys)g(\(Z)2672 704 y Fl(0)2711 +740 y Fw(,)f(W)2879 704 y Fk(\006)2939 740 y Fw(,)h(H)3080 +704 y Fl(0)3119 740 y Fw(,)g(Z)3247 704 y Fk(0)p Fl(0)3305 +740 y Fw(,)g(W)3474 704 y Fk(0\006)3553 740 y Fw(,)g(H)3694 +704 y Fk(0)p Fl(0)3752 740 y Fw(,)472 848 y(A)545 812 +y Fl(0)585 848 y Fw(,)33 b(H)718 812 y Fk(\006)777 848 +y Fw(,)f(L)897 863 y Fl(Q)956 848 y Fw(,)h(R)1088 812 +y Fl(0)1127 848 y Fw(,)g(d)1241 812 y Fk(\003)1280 848 +y Fw(,)g(u)1394 812 y Fk(\003)1434 848 y Fw(,)f(.)16 +b(.)g(.)g(\).)236 957 y Fq(=)52 b(0)f(:)217 b Fw(o\013.)236 +1065 y Fq(=)52 b(1)f(:)217 b Fw(on.)236 1173 y Fo(Note:)203 +b Fw(also)45 b(for)h Fq(MSTP\(41\)=1)j Fw(it)c(is)h(p)s(ossible)f(to)h +(switc)m(h)h(o\013)f(the)h(deca)m(ys)h(of)e(sp)s(eci\014c)709 +1282 y(resonances)29 b(b)m(y)f(using)g(the)f Fq(MDCY\(KC,1\))k +Fw(switc)m(hes)e(in)d Fm(Jetset)p Fw(.)41 b(Ho)m(w)m(ev)m(er,)31 +b(since)709 1390 y(the)d Fq(MDCY)i Fw(v)-5 b(alues)28 +b(are)g(o)m(v)m(erwritten)h(in)f(the)h Fq(PYINIT)g Fw(call,)f +(individual)e(resonances)709 1498 y(should)32 b(b)s(e)h(switc)m(hed)h +(o\013)e(after)g(the)h Fq(PYINIT)h Fw(call.)236 1607 +y Fo(W)-9 b(arning:)47 b Fw(lepto)s(quark)30 b(deca)m(ys)h(m)m(ust)f +(not)g(b)s(e)g(switc)m(hed)h(o\013)e(if)g(one)h(later)f(on)g(in)m +(tends)i(to)e(let)709 1715 y(lepto)s(quarks)k(deca)m(y)h(\(with)e +Fq(LUEXEC)p Fw(\);)i(see)g(section)e(8.5.3.)0 1823 y +Fq(MSTP\(42\))53 b(:)48 b Fw(\(D=1\))33 b(mass)h(treatmen)m(t)f(in)g(2) +d Fn(!)f Fw(2)34 b(pro)s(cesses,)i(where)f(the)g(\014nal-state)e +(resonances)472 1932 y(ha)m(v)m(e)24 b(\014nite)f(width)f(\(see)i +Fq(PARP\(41\))p Fw(\).)42 b(\(Do)s(es)23 b(not)f(apply)h(for)f(the)h +(pro)s(duction)f(of)g(a)h(single)472 2040 y Fj(s)p Fw(-c)m(hannel)33 +b(resonance,)i(where)f(the)f(mass)g(app)s(ears)g(explicitly)e(in)h(the) +h(cross)h(section)f(of)472 2148 y(the)g(pro)s(cess,)h(and)f(th)m(us)h +(is)e(alw)m(a)m(ys)h(selected)h(with)e(width.\))236 2257 +y Fq(=)52 b(0)f(:)217 b Fw(particles)31 b(are)i(put)g(on)f(the)h(mass)g +(shell.)236 2365 y Fq(=)52 b(1)f(:)217 b Fw(mass)32 b(generated)i +(according)e(to)g(a)g(Breit{Wigner.)0 2473 y Fq(MSTP\(43\))53 +b(:)48 b Fw(\(D=3\))42 b(treatmen)m(t)i(of)e(Z)1523 2437 +y Fl(0)1562 2473 y Fj(=\015)1667 2437 y Fk(\003)1750 +2473 y Fw(in)m(terference)i(in)f(matrix)f(elemen)m(ts.)76 +b(So)43 b(far)g(imple-)472 2582 y(men)m(ted)f(in)d(subpro)s(cesses)44 +b(1,)e(15,)h(19,)f(22,)g(30)e(and)h(35;)j(in)c(other)g(pro)s(cesses)j +(what)e(is)472 2690 y(called)32 b(a)g(Z)890 2654 y Fl(0)962 +2690 y Fw(is)g(really)f(a)h(Z)1469 2654 y Fl(0)1541 2690 +y Fw(only)-8 b(,)32 b(without)g(the)h Fj(\015)2361 2654 +y Fk(\003)2433 2690 y Fw(piece.)236 2798 y Fq(=)52 b(1)f(:)217 +b Fw(only)32 b Fj(\015)979 2762 y Fk(\003)1051 2798 y +Fw(included.)236 2907 y Fq(=)52 b(2)f(:)217 b Fw(only)32 +b(Z)983 2871 y Fl(0)1054 2907 y Fw(included.)236 3015 +y Fq(=)52 b(3)f(:)217 b Fw(complete)32 b(Z)1181 2979 +y Fl(0)1220 3015 y Fj(=\015)1325 2979 y Fk(\003)1396 +3015 y Fw(structure)i(\(with)e(in)m(terference\))i(included.)0 +3123 y Fq(MSTP\(44\))53 b(:)48 b Fw(\(D=7\))31 b(treatmen)m(t)i(of)f(Z) +1491 3087 y Fk(0)p Fl(0)1549 3123 y Fj(=)p Fw(Z)1658 +3087 y Fl(0)1697 3123 y Fj(=\015)1802 3087 y Fk(\003)1874 +3123 y Fw(in)m(terference)i(in)d(matrix)g(elemen)m(ts.)236 +3232 y Fq(=)52 b(1)f(:)217 b Fw(only)32 b Fj(\015)979 +3196 y Fk(\003)1051 3232 y Fw(included.)236 3340 y Fq(=)52 +b(2)f(:)217 b Fw(only)32 b(Z)983 3304 y Fl(0)1054 3340 +y Fw(included.)236 3448 y Fq(=)52 b(3)f(:)217 b Fw(only)32 +b(Z)983 3412 y Fk(0)p Fl(0)1073 3448 y Fw(included.)236 +3557 y Fq(=)52 b(4)f(:)217 b Fw(only)32 b(Z)983 3521 +y Fl(0)1022 3557 y Fj(=\015)1127 3521 y Fk(\003)1199 +3557 y Fw(\(with)g(in)m(terference\))h(included.)236 +3665 y Fq(=)52 b(5)f(:)217 b Fw(only)32 b(Z)983 3629 +y Fk(0)p Fl(0)1041 3665 y Fj(=\015)1146 3629 y Fk(\003)1218 +3665 y Fw(\(with)g(in)m(terference\))h(included.)236 +3774 y Fq(=)52 b(6)f(:)217 b Fw(only)32 b(Z)983 3737 +y Fk(0)p Fl(0)1041 3774 y Fj(=)p Fw(Z)1150 3737 y Fl(0)1221 +3774 y Fw(\(with)g(in)m(terference\))i(included.)236 +3882 y Fq(=)52 b(7)f(:)217 b Fw(complete)32 b(Z)1181 +3846 y Fk(0)p Fl(0)1239 3882 y Fj(=)p Fw(Z)1348 3846 +y Fl(0)1387 3882 y Fj(=\015)1492 3846 y Fk(\003)1563 +3882 y Fw(structure)i(\(with)e(in)m(terference\))i(included.)0 +3990 y Fq(MSTP\(45\))53 b(:)48 b Fw(\(D=3\))31 b(treatmen)m(t)i(of)f +(WW)e Fn(!)d Fw(WW)34 b(structure)g(\(ISUB)f(=)f(77\).)236 +4099 y Fq(=)52 b(1)f(:)217 b Fw(only)32 b(W)1024 4062 +y Fl(+)1083 4099 y Fw(W)1184 4062 y Fl(+)1272 4099 y +Fn(!)27 b Fw(W)1500 4062 y Fl(+)1560 4099 y Fw(W)1661 +4062 y Fl(+)1753 4099 y Fw(and)32 b(W)2043 4062 y Fk(\000)2103 +4099 y Fw(W)2204 4062 y Fk(\000)2291 4099 y Fn(!)c Fw(W)2520 +4062 y Fk(\000)2579 4099 y Fw(W)2680 4062 y Fk(\000)2772 +4099 y Fw(included.)236 4207 y Fq(=)52 b(2)f(:)217 b +Fw(only)32 b(W)1024 4171 y Fl(+)1083 4207 y Fw(W)1184 +4171 y Fk(\000)1272 4207 y Fn(!)27 b Fw(W)1500 4171 y +Fl(+)1560 4207 y Fw(W)1661 4171 y Fk(\000)1753 4207 y +Fw(included.)236 4315 y Fq(=)52 b(3)f(:)217 b Fw(all)30 +b(c)m(harge)j(com)m(binations)e(WW)f Fn(!)d Fw(WW)34 +b(included.)0 4424 y Fq(MSTP\(46\))53 b(:)48 b Fw(\(D=1\))34 +b(treatmen)m(t)h(of)f Fj(V)21 b(V)54 b Fn(!)31 b Fj(V)1836 +4387 y Fk(0)1860 4424 y Fj(V)1938 4387 y Fk(0)1996 4424 +y Fw(structures)37 b(\(ISUB)e(=)g(71{77\),)f(where)i +Fj(V)57 b Fw(rep-)472 4532 y(resen)m(ts)35 b(a)d(longitudinal)d(gauge)k +(b)s(oson.)236 4640 y Fq(=)52 b(0)f(:)217 b Fw(only)33 +b Fj(s)p Fw(-c)m(hannel)h(Higgs)e(exc)m(hange)k(included)d(\(where)i +(existing\).)47 b(With)33 b(this)g(op-)709 4749 y(tion,)d(subpro)s +(cesses)k(71{72)c(and)h(76{77)f(will)f(essen)m(tially)i(b)s(e)g(equiv) +-5 b(alen)m(t)31 b(to)g(sub-)709 4857 y(pro)s(cesses)g(5)e(and)g(8,)g +(resp)s(ectiv)m(ely)-8 b(,)31 b(with)e(the)h(prop)s(er)f(deca)m(y)h(c)m +(hannels)g(\(i.e.)42 b(only)709 4965 y(Z)769 4929 y Fl(0)808 +4965 y Fw(Z)868 4929 y Fl(0)936 4965 y Fw(or)29 b(W)1153 +4929 y Fl(+)1212 4965 y Fw(W)1313 4929 y Fk(\000)1373 +4965 y Fw(\))g(set)h(via)f Fq(MDME)p Fw(.)h(The)g(description)f +(obtained)g(for)g(subpro)s(cesses)709 5074 y(5)j(and)h(8)f(in)g(this)g +(case)h(is)g(more)e(sophisticated,)i(ho)m(w)m(ev)m(er;)i(see)f(section) +e(8.4.2.)236 5182 y Fq(=)52 b(1)f(:)217 b Fw(all)30 b(graphs)j(con)m +(tributing)f(to)g Fj(V)21 b(V)50 b Fn(!)27 b Fj(V)2224 +5146 y Fk(0)2248 5182 y Fj(V)2326 5146 y Fk(0)2382 5182 +y Fw(pro)s(cesses)35 b(are)d(included.)236 5290 y Fq(=)52 +b(2)f(:)217 b Fw(only)27 b(graphs)g(not)g(in)m(v)m(olving)g(Higgs)f +(exc)m(hange)j(\(either)e(in)g Fj(s)p Fw(,)h Fj(t)g Fw(or)f +Fj(u)g Fw(c)m(hannel\))g(are)709 5399 y(included;)32 +b(this)f(option)g(then)i(giv)m(es)f(the)h(na)-11 b(\177)-38 +b(\020v)m(e)32 b(b)s(eha)m(viour)g(one)g(w)m(ould)g(exp)s(ect)i(if)709 +5507 y(no)23 b(Higgs)f(exists,)k(including)21 b(unph)m(ysical)i +(unitarit)m(y)f(violations)f(at)i(high)f(energies.)236 +5615 y Fq(=)52 b(3)f(:)217 b Fw(the)41 b(strongly)g(in)m(teracting)e +(Higgs-lik)m(e)g(mo)s(del)g(of)i(Dobado,)h(Herrero)f(and)g(T)-8 +b(er-)1817 5953 y(155)p eop +%%Page: 156 162 +156 161 bop 709 -18 a Fw(ron)44 b([Dob91)o(])h(with)g(P)m(ad)m(\023)-46 +b(e)46 b(unitarization.)77 b(Note)45 b(that)g(to)f(use)i(this)f(option) +e(it)709 90 y(is)d(necessary)j(to)e(set)g(the)h(Higgs)e(mass)h(to)f(a)h +(large)f(n)m(um)m(b)s(er)h(lik)m(e)f(20)g(T)-8 b(eV)42 +b(\(i.e.)709 198 y Fq(PMAS\(25,1\)=20000)p Fw(\).)k(The)28 +b(parameter)f Fj(\027)34 b Fw(is)27 b(stored)h(in)e Fq(PARP\(44\))p +Fw(,)31 b(but)d(should)709 307 y(not)k(ha)m(v)m(e)i(to)e(b)s(e)h(c)m +(hanged.)236 415 y Fq(=)52 b(4)f(:)217 b Fw(as)32 b Fq(=3)p +Fw(,)i(but)e(with)h(K-matrix)d(unitarization.)236 523 +y Fq(=)52 b(5)f(:)217 b Fw(the)31 b(strongly)f(in)m(teracting)g +(QCD-lik)m(e)f(mo)s(del)g(of)i(Dobado,)f(Herrero)h(and)g(T)-8 +b(erron)709 632 y([Dob91)o(])25 b(with)g(P)m(ad)m(\023)-46 +b(e)26 b(unitarization.)38 b(The)26 b(parameter)f Fj(\027)31 +b Fw(is)25 b(stored)h(in)e Fq(PARP\(44\))p Fw(,)709 740 +y(but)37 b(should)f(not)h(ha)m(v)m(e)g(to)g(b)s(e)g(c)m(hanged.)56 +b(The)38 b(e\013ectiv)m(e)g(tec)m(hni-)p Fj(\032)e Fw(mass)h(in)f(this) +709 848 y(mo)s(del)42 b(is)i(stored)g(in)f Fq(PARP\(45\))p +Fw(;)52 b(b)m(y)45 b(default)e(it)g(is)h(2054)f(GeV,)h(whic)m(h)h(is)e +(the)709 957 y(exp)s(ected)32 b(v)-5 b(alue)29 b(for)h(three)h(tec)m +(hnicolors,)f(based)h(on)f(scaling)f(up)h(the)h(ordinary)e +Fj(\032)709 1065 y Fw(mass)j(appropriately)-8 b(.)236 +1173 y Fq(=)52 b(6)f(:)217 b Fw(as)41 b Fq(=5)p Fw(,)j(but)d(with)g +(K-matrix)e(unitarization.)66 b(While)40 b Fq(PARP\(45\))j +Fw(still)c(is)h(a)h(pa-)709 1282 y(rameter)c(of)g(the)i(mo)s(del,)e +(this)h(t)m(yp)s(e)g(of)g(unitarization)d(do)s(es)j(not)g(giv)m(e)g +(rise)f(to)h(a)709 1390 y(resonance)c(at)e(a)g(mass)h(of)39 +b Fq(PARP\(45\))p Fw(.)0 1498 y Fq(MSTP\(47\))53 b(:)48 +b Fw(\(D=1\))43 b(\(C\))i(angular)e(orien)m(tation)f(of)i(deca)m(y)i +(pro)s(ducts)f(of)e(resonances)k(\(Z)3479 1462 y Fl(0)3518 +1498 y Fw(,)g(W)3693 1462 y Fk(\006)3752 1498 y Fw(,)472 +1607 y(H)545 1571 y Fl(0)585 1607 y Fw(,)37 b(Z)709 1571 +y Fk(0)p Fl(0)767 1607 y Fw(,)f(W)931 1571 y Fk(0\006)1010 +1607 y Fw(,)h(etc.\),)g(either)f(when)h(pro)s(duced)f(singly)f(or)h(in) +f(pairs)g(\(also)g(from)f(an)i(H)3740 1571 y Fl(0)472 +1715 y Fw(deca)m(y\),)e(or)f(in)e(com)m(bination)g(with)h(a)g(single)g +(quark,)h(gluon)f(or)g(photon.)236 1823 y Fq(=)52 b(0)f(:)217 +b Fw(indep)s(enden)m(t)49 b(deca)m(y)h(of)e(eac)m(h)h(resonance,)k +(isotropic)47 b(in)h(c.m.)90 b(frame)47 b(of)h(the)709 +1932 y(resonance.)236 2040 y Fq(=)k(1)f(:)217 b Fw(correlated)43 +b(deca)m(y)i(angular)e(distributions)f(according)h(to)g(prop)s(er)h +(matrix)e(ele-)709 2148 y(men)m(ts,)33 b(to)f(the)h(exten)m(t)h(these)g +(are)f(kno)m(wn.)0 2257 y Fq(MSTP\(48\))53 b(:)48 b Fw(\(D=2\))32 +b(\(C\))i(p)s(ossibilit)m(y)d(to)i(switc)m(h)h(b)s(et)m(w)m(een)h(top)f +(deca)m(y)g(b)s(efore)g(or)f(after)g(fragmen-)472 2365 +y(tation.)52 b(As)37 b(a)e(rule)h(of)f(th)m(um)m(b,)i(option)e(0)h(is)f +(recommendable)g(for)g(top)h(masses)h(b)s(elo)m(w)472 +2473 y(120)42 b(GeV)g(and)h(option)e(1)h(ab)s(o)m(v)m(e)h(that,)i(but)e +(clearly)e(there)i(is)f(a)g(gradual)f(transition)472 +2582 y(b)s(et)m(w)m(een)35 b(the)e(t)m(w)m(o.)236 2690 +y Fq(=)52 b(0)f(:)217 b Fw(top)38 b(quarks)h(fragmen)m(t)f(to)g(top)g +(hadrons,)i(whic)m(h)f(subsequen)m(tly)h(deca)m(y)-8 +b(.)62 b(The)39 b(b)709 2798 y(quark)32 b(ma)m(y)f(b)s(e)h(allo)m(w)m +(ed)f(to)g(sho)m(w)m(er,)j(see)f Fq(MSTJ\(27\))p Fw(.)45 +b(The)33 b(W)g(pro)s(duced)f(in)f(the)709 2907 y(deca)m(y)j(is)e(co)s +(de)h(89.)236 3015 y Fq(=)52 b(1)f(:)217 b Fw(top)31 +b(quarks)h(deca)m(y)-8 b(,)33 b(t)27 b Fn(!)g Fw(bW)1830 +2979 y Fl(+)1890 3015 y Fw(,)32 b(and)f(thereafter)g(the)h(b)f(quark)h +(fragmen)m(ts.)43 b(P)m(ar-)709 3123 y(ton)d(sho)m(w)m(ering)i(of)f +(the)g(b)g(is)f(automatically)e(included,)43 b(but)e(can)g(b)s(e)g +(switc)m(hed)709 3232 y(o\013)36 b(with)g Fq(MSTP\(71\))p +Fw(.)56 b(The)38 b(W)f(has)g(the)g(ordinary)f(co)s(de)g(24,)h(and)f(is) +g(allo)m(w)m(ed)g(to)709 3340 y(deca)m(y)e(isotropically)-8 +b(.)236 3448 y Fq(=)52 b(2)f(:)217 b Fw(as)36 b Fq(=1)p +Fw(,)h(except)h(that)d(the)i(W)g(deca)m(y)g(is)f(anisotropic,)f(as)h +(exp)s(ected)i(from)d(W)i(p)s(o-)709 3557 y(larization)29 +b(in)j(the)h(top)f(deca)m(y)-8 b(.)236 3665 y Fo(Note:)203 +b Fw(in)36 b(options)h(1)g(and)g(2)g(the)h(cross)g(section)g(is)e +(reduced)j(to)e(tak)m(e)h(in)m(to)f(accoun)m(t)h(re-)709 +3774 y(strictions)k(on)g(allo)m(w)m(ed)g(deca)m(y)i(mo)s(des,)h(while)d +(no)h(suc)m(h)h(reduction)f(o)s(ccurs)g(for)709 3882 +y(option)31 b(0.)43 b(See)34 b(further)f(section)f(8.2.2.)0 +3990 y Fq(MSTP\(49\))53 b(:)48 b Fw(\(D=2\))36 b(\(C\))i(p)s(ossibilit) +m(y)d(to)j(switc)m(h)g(b)s(et)m(w)m(een)h(fourth)f(generation)e(deca)m +(y)j(b)s(efore)f(or)472 4099 y(after)24 b(fragmen)m(tation.)39 +b(F)-8 b(or)23 b(the)i(quarks)g(h)f(and)g(l)f(the)i(meaning)d(is)i +(exactly)g(as)g Fq(MSTP\(48\))472 4207 y Fw(is)32 b(for)f(the)i(t)f +(quark.)44 b(F)-8 b(or)31 b(the)h(lepton)g Fj(\037)g +Fw(the)g(di\013erence)h(is)e(whether)j(deca)m(y)f(is)f(handled)472 +4315 y(as)g(part)g(of)f(the)h Fm(Pythia)g Fw(resonance)h(mac)m(hinery)f +(or)f(as)h(part)g(of)f(the)h Fm(Jetset)f Fw(particle)472 +4424 y(deca)m(y)45 b(one.)77 b(The)44 b Fj(\027)1263 +4439 y Fh(\037)1354 4424 y Fw(is)f(assumed)h(stable,)i(so)e(the)g +(option)e(ab)s(o)m(v)m(e)i(w)m(ould)g(curren)m(tly)472 +4532 y(mak)m(e)33 b(no)g(di\013erence.)236 4640 y Fq(=)52 +b(0)f(:)217 b Fw(hadrons)36 b(are)g(\014rst)h(pro)s(duced,)h(whic)m(h)e +(subsequen)m(tly)j(deca)m(y)f(\(in)d Fq(LUDECY)p Fw(\).)j(The)709 +4749 y(new)h(quark)f(ma)m(y)g(b)s(e)g(allo)m(w)m(ed)f(to)h(sho)m(w)m +(er,)j(see)e Fq(MSTJ\(27\))p Fw(.)61 b(The)39 b(W)h(pro)s(duced)709 +4857 y(in)31 b(the)i(deca)m(y)h(is)f(co)s(de)f Fn(\006)p +Fw(89.)236 4965 y Fq(=)52 b(1)f(:)217 b Fw(the)25 b(hea)m(vy)i(quark)f +(\014rst)f(deca)m(ys)i(\(in)d Fq(PYRESD)p Fw(\))j(to)d(a)h(ligh)m(t)e +(one,)k(and)e(thereafter)h(the)709 5074 y(ligh)m(t)37 +b(quark)j(fragmen)m(ts.)64 b(P)m(arton)39 b(sho)m(w)m(ering)h(in)f(the) +g(deca)m(y)i(is)e(automatically)709 5182 y(included,)24 +b(but)e(can)h(b)s(e)g(switc)m(hed)g(o\013)f(with)g Fq(MSTP\(71\))p +Fw(.)42 b(The)24 b(W)g(has)e(the)h(ordinary)709 5290 +y(co)s(de)33 b Fn(\006)p Fw(24,)f(and)h(is)f(allo)m(w)m(ed)g(to)g(deca) +m(y)i(isotropically)-8 b(.)236 5399 y Fq(=)52 b(2)f(:)217 +b Fw(as)36 b Fq(=1)p Fw(,)h(except)h(that)d(the)i(W)g(deca)m(y)g(is)f +(anisotropic,)f(as)h(exp)s(ected)i(from)d(W)i(p)s(o-)709 +5507 y(larization)29 b(in)j(the)h(hea)m(vy)h(\015a)m(v)m(our)g(deca)m +(y)-8 b(.)236 5615 y Fo(Note:)203 b Fw(in)36 b(options)h(1)g(and)g(2)g +(the)h(cross)g(section)g(is)e(reduced)j(to)e(tak)m(e)h(in)m(to)f +(accoun)m(t)h(re-)1817 5953 y(156)p eop +%%Page: 157 163 +157 162 bop 709 -18 a Fw(strictions)42 b(on)g(allo)m(w)m(ed)g(deca)m(y) +i(mo)s(des,)h(while)d(no)h(suc)m(h)h(reduction)f(o)s(ccurs)g(for)709 +90 y(option)31 b(0.)43 b(See)34 b(further)f(section)f(8.2.2.)0 +198 y Fq(MSTP\(51\))53 b(:)48 b Fw(\(D=9\))31 b(c)m(hoice)i(of)f +(proton)h(parton-distribution)d(set;)j(see)h(also)e Fq(MSTP\(52\))p +Fw(.)236 307 y Fq(=)52 b(1)f(:)217 b Fw(EHLQ)33 b(set)g(1)f(\(1986)g +(up)s(dated)h(v)m(ersion\).)236 415 y Fq(=)52 b(2)f(:)217 +b Fw(EHLQ)33 b(set)g(2)f(\(1986)g(up)s(dated)h(v)m(ersion\).)236 +523 y Fq(=)52 b(3)f(:)217 b Fw(Duk)m(e{Ow)m(ens)34 b(set)g(1.)236 +632 y Fq(=)52 b(4)f(:)217 b Fw(Duk)m(e{Ow)m(ens)34 b(set)g(2.)236 +740 y Fq(=)52 b(5)f(:)217 b Fw(CTEQ2M)33 b(\(b)s(est)p +1410 662 144 4 v 34 w(MS)g(\014t\).)236 848 y Fq(=)52 +b(6)f(:)217 b Fw(CTEQ2MS)34 b(\(singular)d(at)h(small)e +Fj(x)p Fw(\).)236 957 y Fq(=)52 b(7)f(:)217 b Fw(CTEQ2MF)33 +b(\(\015at)g(at)f(small)e Fj(x)p Fw(\).)236 1065 y Fq(=)52 +b(8)f(:)217 b Fw(CTEQ2ML)33 b(\(large)f(\003\).)236 1173 +y Fq(=)52 b(9)f(:)217 b Fw(CTEQ2L)33 b(\(b)s(est)g(leading)e(order)i +(\014t\).)236 1282 y Fq(=)52 b(10)g(:)165 b Fw(CTEQ2D)33 +b(\(b)s(est)g(DIS)f(\014t\).)236 1390 y Fq(=)52 b(11)g(:)165 +b Fw(GR)-11 b(V)32 b(LO)g(\(1992)g(up)s(dated)h(v)m(ersion\).)236 +1498 y Fo(Note:)203 b Fw(since)38 b(all)e(parametrizations)f(ha)m(v)m +(e)k(some)f(region)f(of)g(applicabilit)m(y)-8 b(,)36 +b(the)i(parton)709 1607 y(distributions)46 b(are)h(assumed)i(frozen)e +(b)s(elo)m(w)h(the)g(lo)m(w)m(est)g Fj(Q)3042 1571 y +Fl(2)3129 1607 y Fw(co)m(v)m(ered)i(b)m(y)e(the)709 1715 +y(parametrizations;)43 b(the)f(CTEQ2)g(ones)g(ha)m(v)m(e)h(b)s(een)f +(allo)m(w)m(ed)e(to)h(extend)i(do)m(wn)709 1823 y(to)f +Fj(Q)915 1838 y Fl(min)1083 1823 y Fw(=)j(1)e(GeV.)g(F)-8 +b(or)42 b(the)h(former)f(four,)k(ev)m(olution)c(is)g(also)g(frozed)i +(ab)s(o)m(v)m(e)709 1932 y(the)c(maxim)m(um)e Fj(Q)1424 +1896 y Fl(2)1464 1932 y Fw(.)65 b(The)41 b(extrap)s(olation)d(of)i +(EHLQ)g(to)g(lo)m(w)g Fj(x)g Fw(is)g(co)m(v)m(ered)i(b)m(y)709 +2040 y Fq(PARP\(51\))p Fw(.)0 2148 y Fq(MSTP\(52\))53 +b(:)48 b Fw(\(D=1\))31 b(c)m(hoice)i(of)f(proton)h +(parton-distribution-function)c(library)-8 b(.)236 2257 +y Fq(=)52 b(1)f(:)217 b Fw(the)50 b(in)m(ternal)e Fm(Pythia)i +Fw(one,)k(with)49 b(parton)h(distributions)e(according)h(to)g(the)709 +2365 y Fq(MSTP\(51\))34 b Fw(ab)s(o)m(v)m(e.)236 2473 +y Fq(=)52 b(2)f(:)217 b Fw(the)36 b Fm(Pdflib)g Fw(one)g([Plo93)o(],)g +(with)g(the)g Fm(Pdflib)g Fw(\(v)m(ersion)g(4\))f Fq(NGROUP)j +Fw(and)d Fq(NSET)709 2582 y Fw(n)m(um)m(b)s(ers)e(to)f(b)s(e)h(giv)m +(en)g(as)g Fq(MSTP\(51\))53 b(=)f(1000)p Fn(\002)p Fq(NGROUP)i(+)d +(NSET)p Fw(.)236 2690 y Fo(Note:)203 b Fw(to)30 b(mak)m(e)i(use)g(of)e +(option)g(2,)h(it)f(is)h(necessary)i(to)e(link)f Fm(Pdflib)p +Fw(.)43 b(Additionally)-8 b(,)29 b(on)709 2798 y(most)39 +b(computers,)k(the)d(t)m(w)m(o)h(dumm)m(y)f(routines)g +Fq(PDFSET)i Fw(and)e Fq(STRUCTM)i Fw(at)e(the)709 2907 +y(end)33 b(of)f(the)h Fm(Pythia)g Fw(\014le)f(should)g(b)s(e)h(remo)m +(v)m(ed)h(or)e(commen)m(ted)g(out.)236 3015 y Fo(W)-9 +b(arning:)47 b Fw(F)-8 b(or)61 b(external)i(parton)f(distribution)e +(libraries,)68 b Fm(Pythia)62 b Fw(do)s(es)h(not)f(c)m(hec)m(k)709 +3123 y(whether)31 b Fq(MSTP\(51\))h Fw(corresp)s(onds)f(to)e(a)h(v)-5 +b(alid)28 b(co)s(de,)i(or)g(if)e(sp)s(ecial)h Fj(x)h +Fw(and)g Fj(Q)3596 3087 y Fl(2)3666 3123 y Fw(re-)709 +3232 y(strictions)h(exist)h(for)f(a)g(giv)m(en)h(set,)h(suc)m(h)g(that) +e(crazy)i(v)-5 b(alues)31 b(could)g(b)s(e)h(returned.)709 +3340 y(This)g(puts)i(an)e(extra)h(resp)s(onsibilit)m(y)e(on)i(y)m(ou.)0 +3448 y Fq(MSTP\(53\))53 b(:)48 b Fw(\(D=1\))31 b(c)m(hoice)i(of)f(pion) +g(parton-distribution)e(set;)k(see)f(also)f Fq(MSTP\(54\))p +Fw(.)236 3557 y Fq(=)52 b(1)f(:)217 b Fw(Ow)m(ens)34 +b(set)f(1.)236 3665 y Fq(=)52 b(2)f(:)217 b Fw(Ow)m(ens)34 +b(set)f(2.)236 3774 y Fq(=)52 b(3)f(:)217 b Fw(GR)-11 +b(V)32 b(LO)g(\(up)s(dated)h(v)m(ersion\).)0 3882 y Fq(MSTP\(54\))53 +b(:)48 b Fw(\(D=1\))31 b(c)m(hoice)i(of)f(pion)g +(parton-distribution-function)d(library)-8 b(.)236 3990 +y Fq(=)52 b(1)f(:)217 b Fw(the)50 b(in)m(ternal)e Fm(Pythia)i +Fw(one,)k(with)49 b(parton)h(distributions)e(according)h(to)g(the)709 +4099 y Fq(MSTP\(53\))34 b Fw(ab)s(o)m(v)m(e.)236 4207 +y Fq(=)52 b(2)f(:)217 b Fw(the)36 b Fm(Pdflib)g Fw(one)g([Plo93)o(],)g +(with)g(the)g Fm(Pdflib)g Fw(\(v)m(ersion)g(4\))f Fq(NGROUP)j +Fw(and)d Fq(NSET)709 4315 y Fw(n)m(um)m(b)s(ers)e(to)f(b)s(e)h(giv)m +(en)g(as)g Fq(MSTP\(53\))53 b(=)f(1000)p Fn(\002)p Fq(NGROUP)i(+)d +(NSET)p Fw(.)236 4424 y Fo(Note:)203 b Fw(to)30 b(mak)m(e)i(use)g(of)e +(option)g(2,)h(it)f(is)h(necessary)i(to)e(link)f Fm(Pdflib)p +Fw(.)43 b(Additionally)-8 b(,)29 b(on)709 4532 y(most)39 +b(computers,)k(the)d(t)m(w)m(o)h(dumm)m(y)f(routines)g +Fq(PDFSET)i Fw(and)e Fq(STRUCTM)i Fw(at)e(the)709 4640 +y(end)33 b(of)f(the)h Fm(Pythia)g Fw(\014le)f(should)g(b)s(e)h(remo)m +(v)m(ed)h(or)e(commen)m(ted)g(out.)236 4749 y Fo(W)-9 +b(arning:)47 b Fw(F)-8 b(or)61 b(external)i(parton)f(distribution)e +(libraries,)68 b Fm(Pythia)62 b Fw(do)s(es)h(not)f(c)m(hec)m(k)709 +4857 y(whether)31 b Fq(MSTP\(53\))h Fw(corresp)s(onds)f(to)e(a)h(v)-5 +b(alid)28 b(co)s(de,)i(or)g(if)e(sp)s(ecial)h Fj(x)h +Fw(and)g Fj(Q)3596 4821 y Fl(2)3666 4857 y Fw(re-)709 +4965 y(strictions)h(exist)h(for)f(a)g(giv)m(en)h(set,)h(suc)m(h)g(that) +e(crazy)i(v)-5 b(alues)31 b(could)g(b)s(e)h(returned.)709 +5074 y(This)g(puts)i(an)e(extra)h(resp)s(onsibilit)m(y)e(on)i(y)m(ou.)0 +5182 y Fq(MSTP\(55\))64 b Fw(:)109 b(\(D=5\))63 b(c)m(hoice)j(of)e(the) +h(parton-distribution)e(set)i(of)g(the)g(photon;)81 b(see)66 +b(also)472 5290 y Fq(MSTP\(56\))p Fw(.)236 5399 y Fq(=)52 +b(1)f(:)217 b Fw(Drees{Grassie.)236 5507 y Fq(=)52 b(5)f(:)217 +b Fw(SaS)32 b(1D)g(\(in)g(DIS)g(sc)m(heme,)i(with)e Fj(Q)2062 +5522 y Fl(0)2130 5507 y Fw(=)27 b(0)p Fj(:)p Fw(6)32 +b(GeV\).)236 5625 y Fq(=)52 b(6)f(:)217 b Fw(SaS)32 b(1M)h(\(in)p +1221 5547 V 32 w(MS)g(sc)m(heme,)h(with)e Fj(Q)2057 5640 +y Fl(0)2124 5625 y Fw(=)c(0)p Fj(:)p Fw(6)k(GeV\).)1817 +5953 y(157)p eop +%%Page: 158 164 +158 163 bop 236 -18 a Fq(=)52 b(7)f(:)217 b Fw(SaS)32 +b(2D)g(\(in)g(DIS)g(sc)m(heme,)i(with)e Fj(Q)2062 -3 +y Fl(0)2130 -18 y Fw(=)27 b(2)33 b(GeV\).)236 99 y Fq(=)52 +b(8)f(:)217 b Fw(SaS)32 b(2M)h(\(in)p 1221 21 144 4 v +32 w(MS)g(sc)m(heme,)h(with)e Fj(Q)2057 114 y Fl(0)2124 +99 y Fw(=)c(2)k(GeV\).)236 208 y Fq(=)52 b(9)f(:)217 +b Fw(SaS)32 b(1D)g(\(in)g(DIS)g(sc)m(heme,)i(with)e Fj(Q)2062 +223 y Fl(0)2130 208 y Fw(=)27 b(0)p Fj(:)p Fw(6)32 b(GeV\).)236 +326 y Fq(=)52 b(10)g(:)165 b Fw(SaS)32 b(1M)h(\(in)p +1221 248 V 32 w(MS)g(sc)m(heme,)h(with)e Fj(Q)2057 341 +y Fl(0)2124 326 y Fw(=)c(0)p Fj(:)p Fw(6)k(GeV\).)236 +434 y Fq(=)52 b(11)g(:)165 b Fw(SaS)32 b(2D)g(\(in)g(DIS)g(sc)m(heme,)i +(with)e Fj(Q)2062 449 y Fl(0)2130 434 y Fw(=)27 b(2)33 +b(GeV\).)236 552 y Fq(=)52 b(12)g(:)165 b Fw(SaS)32 b(2M)h(\(in)p +1221 474 V 32 w(MS)g(sc)m(heme,)h(with)e Fj(Q)2057 567 +y Fl(0)2124 552 y Fw(=)c(2)k(GeV\).)236 660 y Fo(Note)37 +b(1:)110 b Fw(sets)38 b(5{8)f(use)h(the)g(parton)f(distributions)f(of)h +(the)h(resp)s(ectiv)m(e)h(set,)g(and)e(nothing)709 769 +y(else.)45 b(These)35 b(are)f(appropriate)e(for)h(most)f(applications,) +g(e.g.)45 b(jet)34 b(pro)s(duction)e(in)709 877 y Fj(\015)5 +b Fw(p)26 b(and)g Fj(\015)5 b(\015)32 b Fw(collisions.)39 +b(Sets)27 b(9{12)e(instead)h(are)h(appropriate)e(for)h +Fj(\015)3242 841 y Fk(\003)3281 877 y Fj(\015)31 b Fw(pro)s(cesses,)709 +985 y(i.e.)63 b(DIS)39 b(scattering)g(on)g(a)g(photon,)j(as)d(measured) +h(in)f Fj(F)2919 938 y Fh(\015)2905 1007 y Fl(2)2963 +985 y Fw(.)63 b(Here)40 b(the)g(anoma-)709 1094 y(lous)g(con)m +(tribution)g(for)h(c)g(and)g(b)g(quarks)i(are)e(handled)g(b)m(y)h(the)f +(Bethe-Heitler)709 1202 y(form)m(ulae,)34 b(and)h(the)g(direct)g(term)f +(is)h(arti\014cially)c(lump)s(ed)j(with)h(the)g(anomalous)709 +1310 y(one,)h(so)g(that)f(the)g(ev)m(en)m(t)j(sim)m(ulation)32 +b(more)j(closely)g(agrees)h(with)f(what)g(will)e(b)s(e)709 +1419 y(exp)s(erimen)m(tally)e(observ)m(ed)k(in)d(these)j(pro)s(cesses.) +46 b(The)34 b(agreemen)m(t)f(with)g(the)g Fj(F)3735 1371 +y Fh(\015)3721 1440 y Fl(2)709 1527 y Fw(parametrization)20 +b(is)j(still)e(not)i(p)s(erfect,)i(e.g.)41 b(in)22 b(the)i(treatmen)m +(t)f(of)f(hea)m(vy)j(\015a)m(v)m(ours)709 1635 y(close)32 +b(to)g(threshold.)236 1744 y Fo(Note)37 b(2:)110 b Fw(Sets)44 +b(5{12)e(con)m(tain)g(b)s(oth)h(VMD)g(pieces)h(and)f(anomalous)f +(pieces,)k(separately)709 1852 y(parametrized.)93 b(Therefore)50 +b(the)g(resp)s(ectiv)m(e)h(piece)f(is)f(automatically)d(called,)709 +1960 y(whatev)m(er)h Fq(MSTP\(14\))g Fw(v)-5 b(alue)45 +b(is)g(used)h(to)f(select)h(only)f(a)g(part)g(of)f(the)i(allo)m(w)m(ed) +709 2069 y(photon)29 b(in)m(teractions.)42 b(F)-8 b(or)28 +b(other)i(sets)h(\(set)f(1)f(ab)s(o)m(v)m(e)h(or)f Fm(Pdflib)h +Fw(sets\),)h(usually)709 2177 y(there)k(is)g(no)g(corresp)s(onding)g +(sub)s(division.)50 b(Then)36 b(an)f(option)f(lik)m(e)h +Fq(MSTP\(14\)=2)709 2285 y Fw(\(VMD)e(part)g(of)g(photon)h(only\))e(is) +h(based)i(on)e(a)g(rescaling)f(of)h(the)h(pion)f(distribu-)709 +2394 y(tions,)f(while)f Fq(MSTP\(14\)=3)36 b Fw(giv)m(es)d(the)g(SaS)f +(anomalous)f(parametrization.)236 2502 y Fo(Note)37 b(3:)110 +b Fw(F)-8 b(ormally)29 b(sp)s(eaking,)j(the)h Fj(k)1766 +2517 y Fl(0)1837 2502 y Fw(\(or)f Fj(p)2043 2517 y Fl(0)2082 +2502 y Fw(\))g(cut-o\013)g(in)f Fq(PARP\(15\))k Fw(need)e(not)f(b)s(e)g +(set)h(in)709 2610 y(an)m(y)25 b(relation)d(to)j(the)g +Fj(Q)1583 2625 y Fl(0)1647 2610 y Fw(cut-o\013)f(scales)h(used)g(b)m(y) +h(the)f(v)-5 b(arious)24 b(parametrizations.)709 2719 +y(Indeed,)37 b(due)f(to)g(the)f(familiar)d(scale)j(c)m(hoice)h(am)m +(biguit)m(y)e(problem,)h(there)h(could)709 2827 y(w)m(ell)k(b)s(e)h +(some)g(o\013set)h(b)s(et)m(w)m(een)h(the)e(t)m(w)m(o.)70 +b(Ho)m(w)m(ev)m(er,)45 b(unless)d(y)m(ou)g(kno)m(w)g(what)709 +2935 y(y)m(ou)29 b(are)f(doing,)g(it)f(is)h(strongly)g(recommended)g +(that)g(y)m(ou)h(let)f(the)h(t)m(w)m(o)g(agree,)g(i.e.)709 +3044 y(set)k Fq(PARP\(15\)=0.6)j Fw(for)c(the)h(SaS)f(1)h(sets)g(and)g +Fq(=2.)44 b Fw(for)32 b(the)h(SaS)g(2)f(sets.)0 3152 +y Fq(MSTP\(56\))53 b(:)48 b Fw(\(D=1\))31 b(c)m(hoice)i(of)f(photon)h +(parton-distribution-function)c(library)-8 b(.)236 3260 +y Fq(=)52 b(1)f(:)217 b Fw(the)50 b(in)m(ternal)e Fm(Pythia)i +Fw(one,)k(with)49 b(parton)h(distributions)e(according)h(to)g(the)709 +3369 y Fq(MSTP\(55\))34 b Fw(ab)s(o)m(v)m(e.)236 3477 +y Fq(=)52 b(2)f(:)217 b Fw(the)36 b Fm(Pdflib)g Fw(one)g([Plo93)o(],)g +(with)g(the)g Fm(Pdflib)g Fw(\(v)m(ersion)g(4\))f Fq(NGROUP)j +Fw(and)d Fq(NSET)709 3585 y Fw(n)m(um)m(b)s(ers)41 b(to)g(b)s(e)g(giv)m +(en)g(as)g Fq(MSTP\(55\))54 b(=)d(1000)p Fn(\002)p Fq(NGROUP)k(+)c +(NSET)p Fw(.)42 b(When)g(the)709 3694 y(VMD)27 b(and)g(anomalous)f +(parts)i(of)e(the)i(photon)g(are)f(split,)g(lik)m(e)g(for)g +Fq(MSTP\(14\)=10)p Fw(,)709 3802 y(it)i(is)g(necessary)j(to)e(sp)s +(ecify)g(pion)f(set)i(to)f(b)s(e)g(used)h(for)e(the)i(VMD)f(comp)s +(onen)m(t,)g(in)709 3911 y Fq(MSTP\(53\))k Fw(and)f Fq(MSTP\(54\))p +Fw(,)i(while)c Fq(MSTP\(55\))k Fw(here)e(is)g(irrelev)-5 +b(an)m(t.)236 4019 y Fq(=)52 b(3)f(:)217 b Fw(when)42 +b(the)g(parton)e(distributions)g(of)h(the)g(anomalous)f(photon)h(are)g +(requested,)709 4127 y(the)51 b(homogeneous)g(solution)e(is)i(pro)m +(vided,)56 b(ev)m(olv)m(ed)c(from)d(a)i(starting)f(v)-5 +b(alue)709 4236 y Fq(PARP\(15\))41 b Fw(to)f(the)g(requested)i +Fj(Q)e Fw(scale.)64 b(The)41 b(homogeneous)f(solution)e(is)h(nor-)709 +4344 y(malized)c(so)j(that)f(the)h(net)f(momen)m(tum)f(is)h(unit)m(y)-8 +b(,)39 b(i.e.)57 b(an)m(y)38 b(factors)g(of)f Fj(\013)3529 +4359 y Fl(em)3623 4344 y Fj(=)p Fw(2)p Fj(\031)709 4452 +y Fw(and)f(c)m(harge)i(ha)m(v)m(e)g(b)s(een)f(left)f(out.)55 +b(The)38 b(\015a)m(v)m(our)g(of)e(the)h(original)c(q)k(is)f(giv)m(en)h +(in)709 4561 y Fq(MSTP\(55\))e Fw(\(1,)d(2,)h(3,)g(4)g(or)f(5)h(for)f +(d,)h(u,)h(s,)f(c)g(or)g(b\);)g(the)g(v)-5 b(alue)33 +b(0)f(giv)m(es)i(a)e(mixture)709 4669 y(according)39 +b(to)g(squared)h(c)m(harge,)i(with)d(the)h(exception)g(that)g(c)f(and)h +(b)g(are)f(only)709 4777 y(allo)m(w)m(ed)29 b(ab)s(o)m(v)m(e)i(the)g +(resp)s(ectiv)m(e)h(mass)e(threshold)g(\()p Fj(Q)e(>)g(m)2939 +4792 y Fl(q)2981 4777 y Fw(\).)42 b(The)31 b(four-\015a)m(v)m(our)709 +4886 y(\003)e(v)-5 b(alue)30 b(is)f(assumed)i(giv)m(en)f(in)g +Fq(PARP\(1\))p Fw(;)i(it)d(is)h(automatically)d(recalculated)i(for)709 +4994 y(3)38 b(or)g(5)h(\015a)m(v)m(ours)g(at)g(thresholds.)62 +b(This)39 b(option)e(is)h(not)h(in)m(tended)g(for)f(standard)709 +5102 y(ev)m(en)m(t)c(generation,)e(but)h(is)f(useful)h(for)f(some)g +(theoretical)f(studies.)236 5211 y Fo(Note:)203 b Fw(to)30 +b(mak)m(e)i(use)g(of)e(option)g(2,)h(it)f(is)h(necessary)i(to)e(link)f +Fm(Pdflib)p Fw(.)43 b(Additionally)-8 b(,)29 b(on)709 +5319 y(most)39 b(computers,)k(the)d(t)m(w)m(o)h(dumm)m(y)f(routines)g +Fq(PDFSET)i Fw(and)e Fq(STRUCTM)i Fw(at)e(the)709 5427 +y(end)33 b(of)f(the)h Fm(Pythia)g Fw(\014le)f(should)g(b)s(e)h(remo)m +(v)m(ed)h(or)e(commen)m(ted)g(out.)236 5536 y Fo(W)-9 +b(arning:)47 b Fw(F)-8 b(or)66 b(external)g(parton-distribution)e +(libraries,)73 b Fm(Pythia)66 b Fw(do)s(es)h(not)f(c)m(hec)m(k)709 +5644 y(whether)31 b Fq(MSTP\(55\))h Fw(corresp)s(onds)f(to)e(a)h(v)-5 +b(alid)28 b(co)s(de,)i(or)g(if)e(sp)s(ecial)h Fj(x)h +Fw(and)g Fj(Q)3596 5608 y Fl(2)3666 5644 y Fw(re-)1817 +5953 y(158)p eop +%%Page: 159 165 +159 164 bop 709 -18 a Fw(strictions)31 b(exist)h(for)f(a)g(giv)m(en)h +(set,)h(suc)m(h)g(that)e(crazy)i(v)-5 b(alues)31 b(could)g(b)s(e)h +(returned.)709 90 y(This)g(puts)i(an)e(extra)h(resp)s(onsibilit)m(y)e +(on)i(y)m(ou.)0 198 y Fq(MSTP\(57\))53 b(:)48 b Fw(\(D=1\))31 +b(c)m(hoice)i(of)f Fj(Q)1345 162 y Fl(2)1418 198 y Fw(dep)s(endence)j +(in)c(parton-distribution)f(functions.)236 307 y Fq(=)52 +b(0)f(:)217 b Fw(parton)30 b(distributions)f(are)i(ev)-5 +b(aluated)30 b(at)g(nominal)e(lo)m(w)m(er)j(cut-o\013)f(v)-5 +b(alue)30 b Fj(Q)3557 270 y Fl(2)3557 331 y(0)3597 307 +y Fw(,)h(i.e.)709 415 y(are)h(made)g Fj(Q)1208 379 y +Fl(2)1248 415 y Fw(-indep)s(enden)m(t.)236 523 y Fq(=)52 +b(1)f(:)217 b Fw(the)33 b(parametrized)e Fj(Q)1544 487 +y Fl(2)1617 523 y Fw(dep)s(endence)k(is)d(used.)236 632 +y Fq(=)52 b(2)f(:)217 b Fw(the)37 b(parametrized)e(parton-distribution) +f(b)s(eha)m(viour)i(is)g(k)m(ept)i(at)e(large)f Fj(Q)3546 +595 y Fl(2)3622 632 y Fw(and)709 740 y Fj(x)p Fw(,)28 +b(but)f(mo)s(di\014ed)e(at)h(small)f Fj(Q)1824 704 y +Fl(2)1890 740 y Fw(and/or)h Fj(x)p Fw(,)i(so)f(that)f(parton)h +(distributions)e(v)-5 b(anish)709 848 y(in)39 b(the)i(limit)c +Fj(Q)1324 812 y Fl(2)1404 848 y Fn(!)k Fw(0)f(and)g(ha)m(v)m(e)i(a)e +(theoretically)e(motiv)-5 b(ated)39 b(small-)p Fj(x)f +Fw(shap)s(e)709 957 y([Sc)m(h93a].)44 b(This)32 b(option)g(is)g(only)g +(v)-5 b(alid)31 b(for)h(the)h(p)g(and)f(n.)236 1065 y +Fq(=)52 b(3)f(:)217 b Fw(as)30 b Fq(=2)p Fw(,)i(except)g(that)f(also)e +(the)i Fj(\031)1919 1029 y Fk(\006)2009 1065 y Fw(is)f(mo)s(di\014ed)f +(in)h(a)g(corresp)s(onding)h(manner.)42 b(A)709 1173 +y(VMD)28 b(photon)h(is)f(not)h(mapp)s(ed)f(to)g(a)h(pion,)g(but)g(is)f +(treated)h(with)f(the)h(same)g(pho-)709 1282 y(ton)g(parton)g +(distributions)g(as)g(for)g(other)h Fq(MSTP\(57\))i Fw(v)-5 +b(alues,)30 b(but)g(with)f(prop)s(erly)709 1390 y(mo)s(di\014ed)i(b)s +(eha)m(viour)i(for)f(small)e Fj(x)j Fw(or)f Fj(Q)p Fw(2.)0 +1498 y Fq(MSTP\(58\))53 b(:)48 b Fw(\(D=min\(6,)26 b(2)p +Fn(\002)p Fq(MSTP\(1\))p Fw(\)\))j(maxim)m(um)c(n)m(um)m(b)s(er)i(of)g +(quark)h(\015a)m(v)m(ours)g(used)g(in)f(parton)472 1607 +y(distributions,)32 b(and)i(th)m(us)g(also)e(for)g(initial-state)e +(space-lik)m(e)j(sho)m(w)m(ers.)47 b(If)33 b(some)g(distri-)472 +1715 y(butions)41 b(\(notably)f(t\))h(are)g(absen)m(t)h(in)e(the)h +(parametrization)d(selected)k(in)e Fq(MSTP\(51\))p Fw(,)472 +1823 y(these)34 b(are)f(ob)m(viously)f(automatically)d(excluded.)0 +1932 y Fq(MSTP\(59\))53 b(:)48 b Fw(\(D=1\))31 b(c)m(hoice)i(of)f +(electron-inside-electron)f(parton)i(distribution.)236 +2040 y Fq(=)52 b(1)f(:)217 b Fw(the)24 b(recommended)h(standard)f(for)g +(LEP)h(1,)g(next-to-leading)e(exp)s(onen)m(tiated,)j(see)709 +2148 y([Kle89)o(],)32 b(p.)44 b(34.)236 2257 y Fq(=)52 +b(2)f(:)217 b Fw(the)33 b(recommended)g(`)p Fj(\014)6 +b Fw(')33 b(sc)m(heme)h(for)e(LEP)i(2,)e(also)g(next-to-leading)f(exp)s +(onen)m(ti-)709 2365 y(ated,)i(see)g([Bee96)q(],)f(p.)44 +b(130.)0 2473 y Fq(MSTP\(61\))53 b(:)48 b Fw(\(D=1\))31 +b(\(C\))i(master)g(switc)m(h)g(for)f(initial-state)d(QCD)j(and)h(QED)f +(radiation.)236 2582 y Fq(=)52 b(0)f(:)217 b Fw(o\013.)236 +2690 y Fq(=)52 b(1)f(:)217 b Fw(on.)0 2798 y Fq(MSTP\(62\))53 +b(-)f(MSTP\(68\))h(:)48 b Fw(\(C\))29 b(further)f(switc)m(hes)i(for)e +(initial-state)d(radiation,)i(see)i(section)g(10.4.)0 +2907 y Fq(MSTP\(71\))53 b(:)48 b Fw(\(D=1\))31 b(\(C\))i(master)g +(switc)m(h)g(for)f(\014nal-state)g(QCD)g(and)h(QED)f(radiation.)236 +3015 y Fq(=)52 b(0)f(:)217 b Fw(o\013.)236 3123 y Fq(=)52 +b(1)f(:)217 b Fw(on.)236 3232 y Fo(Note:)203 b Fw(additional)21 +b(switc)m(hes)27 b(\(e.g.)41 b(for)24 b(con)m(v)m(en)m(tional/coheren)m +(t)i(sho)m(w)m(ers\))g(are)f(a)m(v)-5 b(ailable)709 3340 +y(in)31 b Fq(MSTJ\(40\))54 b(-)d(MSTJ\(50\))35 b Fw(and)e +Fq(PARJ\(81\))53 b(-)f(PARJ\(89\))p Fw(,)34 b(see)g(section)f(10.4.)0 +3448 y Fq(MSTP\(81\))53 b(:)48 b Fw(\(D=1\))31 b(master)i(switc)m(h)g +(for)f(m)m(ultiple)e(in)m(teractions.)236 3557 y Fq(=)52 +b(0)f(:)217 b Fw(o\013.)236 3665 y Fq(=)52 b(1)f(:)217 +b Fw(on.)0 3774 y Fq(MSTP\(82\))53 b(-)f(MSTP\(83\))h(:)48 +b Fw(further)33 b(switc)m(hes)h(for)e(m)m(ultiple)e(in)m(teractions,)i +(see)i(section)e(11.4.)0 3882 y Fq(MSTP\(85\))53 b(:)48 +b Fw(p)s(ossibilit)m(y)32 b(to)h(damp)s(en)h(hard)g(scattering)f +(matrix)f(elemen)m(ts)j(in)e(the)h(limit)c Fj(p)3485 +3897 y Fk(?)3574 3882 y Fn(!)g Fw(0.)472 3990 y(It)37 +b(parellels)e(some)i(of)f(the)i(m)m(ultiple)c(in)m(teractions)i +(options)g(for)h(QCD)f(pro)s(cesses,)k(but)472 4099 y(can)33 +b(b)s(e)g(used)h(for)e(an)m(y)h(2)28 b Fn(!)f Fw(2)32 +b(pro)s(cess.)236 4207 y Fq(=)52 b(0)f(:)217 b Fw(o\013,)32 +b(i.e.)43 b(standard)33 b(matrix)e(elemen)m(ts)i(are)f(k)m(ept.)236 +4315 y Fq(=)52 b(1)f(:)217 b Fw(on,)29 b(i.e.)42 b(matrix)27 +b(elemen)m(ts)i(are)g(m)m(ultiplied)c(b)m(y)30 b(a)f(factor)f +Fj(p)2895 4279 y Fl(4)2895 4340 y Fk(?)2954 4315 y Fj(=)p +Fw(\()p Fj(p)3090 4279 y Fl(2)3090 4340 y Fk(?)3163 4315 +y Fw(+)14 b Fj(p)3302 4279 y Fl(2)3302 4340 y Fk(?)p +Fl(0)3396 4315 y Fw(\))3434 4279 y Fl(2)3474 4315 y Fw(,)29 +b(where)709 4424 y Fj(p)758 4439 y Fk(?)p Fl(0)878 4424 +y Fw(is)c(giv)m(en)h(b)m(y)i Fq(PARP\(82\))p Fw(.)43 +b(Additionally)23 b Fj(\013)2444 4439 y Fl(s)2502 4424 +y Fw(is)i(ev)-5 b(aluated)25 b(at)h(a)f(scale)h Fj(p)3485 +4387 y Fl(2)3485 4448 y Fk(?)3552 4424 y Fw(+)8 b Fj(p)3685 +4387 y Fl(2)3685 4448 y Fk(?)p Fl(0)709 4532 y Fw(rather)32 +b(than)h(just)g Fj(p)1471 4496 y Fl(2)1471 4557 y Fk(?)1530 +4532 y Fw(.)0 4640 y Fq(MSTP\(91\))53 b(-)f(MSTP\(94\))h(:)48 +b Fw(switc)m(hes)34 b(for)e(b)s(eam)g(remnan)m(t)g(treatmen)m(t,)h(see) +h(section)e(11.4.)0 4749 y Fq(MSTP\(101\))54 b(:)47 b +Fw(\(D=3\))32 b(\(C\))h(structure)g(of)f(di\013ractiv)m(e)g(system.)236 +4857 y Fq(=)52 b(1)f(:)217 b Fw(forw)m(ard)32 b(mo)m(ving)g(diquark)g +(+)h(in)m(teracting)e(quark.)236 4965 y Fq(=)52 b(2)f(:)217 +b Fw(forw)m(ard)35 b(mo)m(ving)g(diquark)h(+)f(quark)i(joined)e(via)g +(in)m(teracting)f(gluon)h(\(`hairpin')709 5074 y(con\014guration\).)236 +5182 y Fq(=)52 b(3)f(:)217 b Fw(a)41 b(mixture)g(of)g(the)h(t)m(w)m(o)g +(options)f(ab)s(o)m(v)m(e,)k(with)c(a)h(fraction)e Fq(PARP\(101\))k +Fw(of)d(the)709 5290 y(former)31 b(t)m(yp)s(e.)0 5399 +y Fq(MSTP\(102\))54 b(:)47 b Fw(\(D=1\))24 b(\(C\))h(deca)m(y)h(of)f(a) +f Fj(\032)1572 5363 y Fl(0)1637 5399 y Fw(meson)h(pro)s(duced)h(b)m(y)f +(`elastic')f(scattering)h(of)g(an)f(incom-)472 5507 y(ing)k +Fj(\015)5 b Fw(,)30 b(as)f(in)f Fj(\015)5 b Fw(p)28 b +Fn(!)f Fj(\032)1285 5471 y Fl(0)1325 5507 y Fw(p,)j(or)e(the)i(same)e +(with)h(the)g(hadron)g(di\013ractiv)m(ely)f(excited.)236 +5615 y Fq(=)52 b(0)f(:)217 b Fw(the)33 b Fj(\032)927 +5579 y Fl(0)999 5615 y Fw(is)f(allo)m(w)m(ed)g(to)g(deca)m(y)i +(isotropically)-8 b(,)30 b(lik)m(e)h(an)m(y)j(other)e +Fj(\032)3071 5579 y Fl(0)3111 5615 y Fw(.)1817 5953 y(159)p +eop +%%Page: 160 166 +160 165 bop 236 -18 a Fq(=)52 b(1)f(:)217 b Fw(the)34 +b(deca)m(y)h Fj(\032)1200 -55 y Fl(0)1270 -18 y Fn(!)30 +b Fj(\031)1459 -55 y Fl(+)1518 -18 y Fj(\031)1577 -55 +y Fk(\000)1670 -18 y Fw(is)j(done)i(with)e(an)h(angular)f(distribution) +f(prop)s(ortional)709 90 y(to)37 b(sin)953 50 y Fl(2)1009 +90 y Fj(\022)k Fw(in)c(its)h(rest)h(frame,)f(where)h(the)g +Fj(z)j Fw(axis)c(is)g(giv)m(en)g(b)m(y)h(the)f(direction)f(of)709 +198 y(motion)29 b(of)i(the)h Fj(\032)1365 162 y Fl(0)1404 +198 y Fw(.)43 b(The)33 b Fj(\032)1724 162 y Fl(0)1795 +198 y Fw(deca)m(y)f(is)f(then)h(done)g(as)f(part)g(of)g(the)h(hard)f +(pro)s(cess,)709 307 y(i.e.)43 b(also)31 b(when)j Fq(MSTP\(111\)=0)p +Fw(.)0 415 y Fq(MSTP\(111\))54 b(:)47 b Fw(\(D=1\))33 +b(\(C\))h(master)f(switc)m(h)h(for)f(fragmen)m(tation)f(and)i(deca)m(y) +-8 b(,)35 b(as)f(obtained)f(with)g(a)472 523 y Fq(LUEXEC)i +Fw(call.)236 632 y Fq(=)52 b(0)f(:)217 b Fw(o\013.)236 +740 y Fq(=)52 b(1)f(:)217 b Fw(on.)236 848 y Fq(=)52 +b(-1)g(:)165 b Fw(only)31 b(c)m(ho)s(ose)h(kinematical)d(v)-5 +b(ariables)30 b(for)g(hard)i(scattering,)f(i.e.)43 b(no)31 +b(jets)h(are)f(de-)709 957 y(\014ned.)52 b(This)36 b(is)f(useful,)h +(for)f(instance,)h(to)f(calculate)f(cross)i(sections)g(\(b)m(y)h(Mon)m +(te)709 1065 y(Carlo)g(in)m(tegration\))f(without)h(w)m(an)m(ting)h(to) +g(sim)m(ulate)e(ev)m(en)m(ts;)43 b(information)35 b(ob-)709 +1173 y(tained)d(with)g Fq(PYSTAT\(1\))j Fw(will)30 b(b)s(e)j(correct.)0 +1282 y Fq(MSTP\(112\))54 b(:)47 b Fw(\(D=1\))25 b(\(C\))i(cuts)g(on)f +(partonic)g(ev)m(en)m(ts;)31 b(only)25 b(a\013ects)i(an)f(exceedingly)h +(tin)m(y)g(fraction)472 1390 y(of)33 b(ev)m(en)m(ts.)236 +1498 y Fq(=)52 b(0)f(:)217 b Fw(no)40 b(cuts)g(\(can)h(b)s(e)f(used)h +(only)e(with)h(indep)s(enden)m(t)h(fragmen)m(tation,)f(at)g(least)f(in) +709 1607 y(principle\).)236 1715 y Fq(=)52 b(1)f(:)217 +b Fw(string)32 b(cuts)h(\(as)g(normally)d(required)j(for)f(fragmen)m +(tation\).)0 1823 y Fq(MSTP\(113\))54 b(:)47 b Fw(\(D=1\))c(\(C\))i +(recalculation)d(of)i(energies)h(of)f(partons)g(from)f(their)h(momen)m +(ta)f(and)472 1932 y(masses,)29 b(to)d(b)s(e)h(done)f(immediately)e(b)s +(efore)i(and)h(after)f(fragmen)m(tation,)g(to)g(partly)g(com-)472 +2040 y(p)s(ensate)34 b(for)e(some)g(n)m(umerical)g(problems)f(app)s +(earing)h(at)g(high)g(energies.)236 2148 y Fq(=)52 b(0)f(:)217 +b Fw(not)32 b(p)s(erformed.)236 2257 y Fq(=)52 b(1)f(:)217 +b Fw(p)s(erformed.)0 2365 y Fq(MSTP\(121\))54 b(:)47 +b Fw(\(D=0\))31 b(calculation)f(of)i(kinematics)f(selection)h(co)s +(e\016cien)m(ts)h(and)f(di\013eren)m(tial)f(cross)472 +2473 y(section)i(maxima)d(for)i(included)h(\(b)m(y)g(user)h(or)e +(default\))g(subpro)s(cesses.)236 2582 y Fq(=)52 b(0)f(:)217 +b Fw(not)32 b(kno)m(wn;)i(to)e(b)s(e)h(calculated)f(at)g +(initialization.)236 2690 y Fq(=)52 b(1)f(:)217 b Fw(not)46 +b(kno)m(wn;)55 b(to)46 b(b)s(e)g(calculated)g(at)g(initialization;)i +(ho)m(w)m(ev)m(er,)k(the)47 b(maxim)m(um)709 2798 y(v)-5 +b(alue)26 b(then)i(obtained)e(is)g(to)h(b)s(e)g(m)m(ultiplied)d(b)m(y) +29 b Fq(PARP\(121\))g Fw(\(this)e(ma)m(y)f(b)s(e)h(useful)709 +2907 y(if)22 b(a)h(violation)e(factor)i(has)h(b)s(een)g(observ)m(ed)i +(in)d(a)g(previous)h(run)g(of)f(the)h(same)g(kind\).)236 +3015 y Fq(=)52 b(2)f(:)217 b Fw(kno)m(wn;)33 b(kinematics)e(selection)h +(co)s(e\016cien)m(ts)h(stored)f(b)m(y)h(user)g(in)e Fq(COEF\(ISUB,J\)) +709 3123 y Fw(\()p Fq(J)d Fw(=)h(1{20\))e(in)h(common)f(blo)s(c)m(k)i +Fq(PYINT2)h Fw(and)e(maxim)m(um)f(of)h(the)h(corresp)s(onding)709 +3232 y(di\013eren)m(tial)40 b(cross)j(section)g(times)e(Jacobians)h(in) +g Fq(XSEC\(ISUB,1\))j Fw(in)d(common)709 3340 y(blo)s(c)m(k)i +Fq(PYINT5)p Fw(.)80 b(This)45 b(is)e(to)h(b)s(e)h(done)g(for)e(eac)m(h) +j(included)e(subpro)s(cess)i(ISUB)709 3448 y(b)s(efore)27 +b(initialization,)c(with)k(the)h(sum)g(of)f(all)e Fq(XSEC\(ISUB,1\))30 +b Fw(v)-5 b(alues,)29 b(except)g(for)709 3557 y(ISUB)k(=)f(95,)g +(stored)i(in)d Fq(XSEC\(0,1\))p Fw(.)0 3665 y Fq(MSTP\(122\))54 +b(:)47 b Fw(\(D=1\))60 b(initialization)55 b(and)61 b(di\013eren)m +(tial)e(cross)j(section)f(maximization)c(prin)m(t-)472 +3774 y(out.)236 3882 y Fq(=)52 b(0)f(:)217 b Fw(none.)236 +3990 y Fq(=)52 b(1)f(:)217 b Fw(short)32 b(message.)236 +4099 y Fq(=)52 b(2)f(:)217 b Fw(detailed)31 b(message,)i(including)e +(full)g(maximization.)0 4207 y Fq(MSTP\(123\))54 b(:)47 +b Fw(\(D=2\))32 b(reaction)g(to)g(violation)e(of)i(maxim)m(um)e +(di\013eren)m(tial)h(cross)i(section.)236 4315 y Fq(=)52 +b(0)f(:)217 b Fw(stop)33 b(generation,)f(prin)m(t)g(message.)236 +4424 y Fq(=)52 b(1)f(:)217 b Fw(con)m(tin)m(ue)25 b(generation,)h(prin) +m(t)e(message)h(for)g(eac)m(h)g(subsequen)m(tly)j(larger)23 +b(violation.)236 4532 y Fq(=)52 b(2)f(:)217 b Fw(as)32 +b Fq(=1)p Fw(,)i(but)e(also)g(increase)h(v)-5 b(alue)32 +b(of)g(maxim)m(um.)0 4640 y Fq(MSTP\(124\))54 b(:)47 +b Fw(\(D=1\))32 b(\(C\))h(frame)e(for)h(presen)m(tation)h(of)f(ev)m(en) +m(t.)236 4749 y Fq(=)52 b(1)f(:)217 b Fw(as)32 b(sp)s(eci\014ed)i(in)e +Fq(PYINIT)p Fw(.)236 4857 y Fq(=)52 b(2)f(:)217 b Fw(c.m.)43 +b(frame)32 b(of)g(incoming)e(particles.)0 4965 y Fq(MSTP\(125\))54 +b(:)47 b Fw(\(D=1\))g(\(C\))h(do)s(cumen)m(tation)f(of)h(partonic)f +(pro)s(cess,)53 b(see)c(section)f(5.3.2)f(for)g(de-)472 +5074 y(tails.)236 5182 y Fq(=)52 b(0)f(:)217 b Fw(only)32 +b(list)f(ultimate)f(string/particle)h(con\014guration.)236 +5290 y Fq(=)52 b(1)f(:)217 b Fw(additionally)29 b(list)i(short)i +(summary)f(of)g(the)h(hard)g(pro)s(cess.)236 5399 y Fq(=)52 +b(2)f(:)217 b Fw(list)29 b(complete)i(do)s(cumen)m(tation)f(of)g(in)m +(termediate)g(steps)i(of)f(parton-sho)m(w)m(er)h(ev)m(o-)709 +5507 y(lution.)0 5615 y Fq(MSTP\(126\))54 b(:)47 b Fw(\(D=20\))32 +b(n)m(um)m(b)s(er)h(of)f(lines)g(at)g(the)h(b)s(eginning)e(of)h(ev)m +(en)m(t)j(record)e(that)f(are)h(reserv)m(ed)1817 5953 +y(160)p eop +%%Page: 161 167 +161 166 bop 472 -18 a Fw(for)42 b(ev)m(en)m(t-history)h(information;)h +(see)f(section)f(5.3.2.)71 b(This)42 b(v)-5 b(alue)42 +b(should)g(nev)m(er)h(b)s(e)472 90 y(reduced,)e(but)d(ma)m(y)f(b)s(e)h +(increased)g(at)f(a)h(later)e(date)i(if)f(more)f(complicated)g(pro)s +(cesses)472 198 y(are)d(included.)0 307 y Fq(MSTP\(128\))54 +b(:)47 b Fw(\(D=0\))37 b(storing)f(of)h(cop)m(y)i(of)e(resonance)i +(deca)m(y)g(pro)s(ducts)f(in)f(the)g(do)s(cumen)m(tation)472 +415 y(section)28 b(of)g(the)g(ev)m(en)m(t)i(record,)g(and)e(mother)f(p) +s(oin)m(ter)g(\()p Fq(K\(I,3\))p Fw(\))j(relation)c(of)h(the)h(actual) +472 523 y(resonance)38 b(deca)m(y)g(pro)s(ducts)f(\(stored)g(in)e(the)i +(main)e(section)h(of)g(the)h(ev)m(en)m(t)h(record\))f(to)472 +632 y(the)c(do)s(cumen)m(tation)f(cop)m(y)-8 b(.)236 +740 y Fq(=)52 b(0)f(:)217 b Fw(pro)s(ducts)30 b(are)g(stored)g(also)f +(in)g(the)h(do)s(cumen)m(tation)e(section,)j(and)f(eac)m(h)g(pro)s +(duct)709 848 y(stored)i(in)f(the)h(main)d(section)j(p)s(oin)m(ts)f +(bac)m(k)i(to)e(the)h(corresp)s(onding)g(en)m(try)g(in)f(the)709 +957 y(do)s(cumen)m(tation)g(section.)236 1065 y Fq(=)52 +b(1)f(:)217 b Fw(pro)s(ducts)32 b(are)h(stored)f(also)f(in)h(the)g(do)s +(cumen)m(tation)f(section,)i(but)f(the)h(pro)s(ducts)709 +1173 y(stored)g(in)f(the)h(main)e(section)i(p)s(oin)m(t)f(bac)m(k)i(to) +e(the)h(deca)m(ying)g(resonance)h(cop)m(y)g(in)709 1282 +y(the)f(main)e(section.)236 1390 y Fq(=)52 b(2)f(:)217 +b Fw(pro)s(ducts)23 b(are)g(not)f(stored)h(in)f(the)h(do)s(cumen)m +(tation)e(section;)27 b(the)c(pro)s(ducts)g(stored)709 +1498 y(in)f(the)i(main)e(section)i(p)s(oin)m(t)f(bac)m(k)h(to)g(the)g +(deca)m(ying)g(resonance)h(cop)m(y)f(in)f(the)h(main)709 +1607 y(section.)0 1715 y Fq(MSTP\(129\))54 b(:)47 b Fw(\(D=10\))e(for)h +(the)h(maximization)42 b(of)k(2)51 b Fn(!)g Fw(3)46 b(pro)s(cesses)i +(\()p Fq(ISET\(ISUB\)=5)p Fw(\))i(eac)m(h)472 1823 y(phase-space)30 +b(p)s(oin)m(t)e(in)f Fj(\034)11 b Fw(,)30 b Fj(y)h Fw(and)e +Fj(\034)1788 1787 y Fk(0)1840 1823 y Fw(is)f(tested)h +Fq(MSTP\(129\))i Fw(times)c(in)h(the)g(other)h(dimen-)472 +1932 y(sions)g(\(at)f(randomly)f(selected)j(p)s(oin)m(ts\))e(to)g +(determine)g(the)h(e\013ectiv)m(e)h(maxim)m(um)c(in)i(the)472 +2040 y(\()p Fj(\034)11 b Fw(,)33 b Fj(y)t Fw(,)f Fj(\034)787 +2004 y Fk(0)811 2040 y Fw(\))g(p)s(oin)m(t.)0 2148 y +Fq(MSTP\(131\))54 b(:)47 b Fw(\(D=0\))37 b(master)g(switc)m(h)h(for)f +(pile-up)f(ev)m(en)m(ts,)41 b(i.e.)57 b(sev)m(eral)38 +b(indep)s(enden)m(t)h(hadron{)472 2257 y(hadron)47 b(in)m(teractions)e +(generated)i(in)f(the)h(same)f(bunc)m(h{bunc)m(h)i(crossing,)i(with)c +(the)472 2365 y(ev)m(en)m(ts)35 b(follo)m(wing)30 b(one)j(after)f(the)h +(other)g(in)f(the)h(ev)m(en)m(t)h(record.)236 2473 y +Fq(=)52 b(0)f(:)217 b Fw(o\013,)32 b(i.e.)43 b(only)32 +b(one)h(ev)m(en)m(t)h(is)e(generated)i(at)e(a)g(time.)236 +2582 y Fq(=)52 b(1)f(:)217 b Fw(on,)31 b(i.e.)43 b(sev)m(eral)33 +b(ev)m(en)m(ts)g(are)f(allo)m(w)m(ed)f(in)g(the)h(same)f(ev)m(en)m(t)j +(record.)44 b(Information)709 2690 y(on)32 b(the)h(pro)s(cesses)i +(generated)e(ma)m(y)g(b)s(e)f(found)h(in)f Fq(MSTI\(41\))53 +b(-)f(MSTI\(50\))p Fw(.)0 2798 y Fq(MSTP\(132\))i(-)d(MSTP\(134\))j(:) +47 b Fw(further)33 b(switc)m(hes)h(for)e(pile-up)g(ev)m(en)m(ts,)j(see) +e(section)g(11.4.)0 2907 y Fq(MSTP\(141\))54 b(:)47 b +Fw(\(D=0\))g(calling)f(of)54 b Fq(PYKCUT)c Fw(in)d(the)h(ev)m(en)m +(t-generation)h(c)m(hain,)j(for)47 b(inclusion)g(of)472 +3015 y(user-sp)s(eci\014ed)34 b(cuts.)236 3123 y Fq(=)52 +b(0)f(:)217 b Fw(not)32 b(called.)236 3232 y Fq(=)52 +b(1)f(:)217 b Fw(called.)0 3340 y Fq(MSTP\(142\))54 b(:)47 +b Fw(\(D=0\))54 b(calling)e(of)62 b Fq(PYEVWT)56 b Fw(in)f(the)g(ev)m +(en)m(t-generation)h(c)m(hain,)k(either)55 b(to)g(giv)m(e)472 +3448 y(w)m(eigh)m(ted)35 b(ev)m(en)m(ts)g(or)e(to)g(mo)s(dify)f +(standard)i(cross)g(sections.)47 b(See)34 b Fq(PYEVWT)h +Fw(description)472 3557 y(in)d(section)h(9.1)f(for)g(further)h +(details.)236 3665 y Fq(=)52 b(0)f(:)217 b Fw(not)32 +b(called.)236 3774 y Fq(=)52 b(1)f(:)217 b Fw(called;)35 +b(the)g(distribution)e(of)h(ev)m(en)m(ts)j(among)d(subpro)s(cesses)j +(and)e(in)f(kinematics)709 3882 y(v)-5 b(ariables)36 +b(is)i(mo)s(di\014ed)f(b)m(y)i(the)f(factor)g Fq(WTXS)p +Fw(,)h(set)g(b)m(y)g(the)f(user)h(in)e(the)i Fq(PYEVWT)709 +3990 y Fw(call,)i(but)f(ev)m(en)m(ts)j(come)d(with)h(a)f(comp)s +(ensating)f(w)m(eigh)m(t)i Fq(PARI\(10\)=1./WTXS)p Fw(,)709 +4099 y(suc)m(h)34 b(that)e(total)f(cross)j(sections)f(are)f(unc)m +(hanged.)236 4207 y Fq(=)52 b(2)f(:)217 b Fw(called;)35 +b(the)g(cross)h(section)f(itself)e(is)i(mo)s(di\014ed)e(b)m(y)j(the)f +(factor)g Fq(WTXS)p Fw(,)h(set)f(b)m(y)h(the)709 4315 +y(user)d(in)f(the)h Fq(PYEVWT)h Fw(call.)0 4424 y Fq(MSTP\(151\))54 +b(:)47 b Fw(\(D=0\))32 b(in)m(tro)s(duce)g(smeared)h(p)s(osition)e(of)h +(primary)f(v)m(ertex)k(of)d(ev)m(en)m(ts.)236 4532 y +Fq(=)52 b(0)f(:)217 b Fw(no,)32 b(i.e.)43 b(the)33 b(primary)e(v)m +(ertex)k(of)d(eac)m(h)h(ev)m(en)m(t)i(is)d(at)g(the)h(origin.)236 +4640 y Fq(=)52 b(1)f(:)217 b Fw(y)m(es,)49 b(with)44 +b(Gaussian)f(distributions)g(separately)i(in)f Fj(x)p +Fw(,)j Fj(y)t Fw(,)g Fj(z)i Fw(and)44 b Fj(t)p Fw(.)79 +b(The)46 b(re-)709 4749 y(sp)s(ectiv)m(e)57 b(widths)g(of)f(the)h +(Gaussians)f(ha)m(v)m(e)i(to)e(b)s(e)g(giv)m(en)h(in)f +Fq(PARP\(151\))d(-)709 4857 y(PARP\(154\))p Fw(.)77 b(Also)42 +b(pile-up)g(ev)m(en)m(ts)j(obtain)d(separate)i(primary)e(v)m(ertices.) +76 b(No)709 4965 y(pro)m(visions)30 b(are)g(made)g(for)g(more)f +(complicated)g(b)s(eam-sp)s(ot)g(shap)s(es,)j(e.g.)43 +b(with)30 b(a)709 5074 y(spread)37 b(in)f Fj(z)41 b Fw(that)c(v)-5 +b(aries)36 b(as)h(a)f(function)g(of)g Fj(t)p Fw(.)56 +b(Note)36 b(that)h(a)f(large)g(b)s(eam)f(sp)s(ot)709 +5182 y(com)m(bined)27 b(with)g(some)g(of)g(the)h Fq(MSTJ\(22\))i +Fw(options)d(ma)m(y)g(lead)g(to)g(man)m(y)g(particles)709 +5290 y(not)32 b(b)s(eing)g(allo)m(w)m(ed)g(to)g(deca)m(y)i(at)e(all.)0 +5399 y Fq(MSTP\(171\))54 b(:)47 b Fw(\(D=0\))g(p)s(ossibilit)m(y)e(of)j +(v)-5 b(ariable)46 b(energies)i(from)e(one)i(ev)m(en)m(t)i(to)d(the)h +(next.)90 b(F)-8 b(or)472 5507 y(further)33 b(details)f(see)h +(subsection)h(9.6.)236 5615 y Fq(=)52 b(0)f(:)217 b Fw(no;)32 +b(i.e.)43 b(the)33 b(energy)h(is)e(\014xed)i(at)e(the)h(initialization) +27 b(call.)1817 5953 y(161)p eop +%%Page: 162 168 +162 167 bop 236 -18 a Fq(=)52 b(1)f(:)217 b Fw(y)m(es;)34 +b(i.e.)43 b(a)32 b(new)i(energy)f(has)g(to)g(b)s(e)f(giv)m(en)h(for)f +(eac)m(h)i(new)f(ev)m(en)m(t.)0 90 y Fq(MSTP\(172\))54 +b(:)47 b Fw(\(D=2\))40 b(options)g(for)g(generation)f(of)i(ev)m(en)m +(ts)h(with)f(v)-5 b(ariable)38 b(energies,)43 b(applicable)472 +198 y(when)34 b Fq(MSTP\(171\)=1)p Fw(.)236 307 y Fq(=)52 +b(1)f(:)217 b Fw(an)40 b(ev)m(en)m(t)i(is)e(generated)i(at)e(the)h +(requested)i(energy)-8 b(,)43 b(i.e.)67 b(in)m(ternally)39 +b(a)h(lo)s(op)f(is)709 415 y(p)s(erformed)28 b(o)m(v)m(er)i(p)s +(ossible)e(ev)m(en)m(t)i(con\014gurations)e(un)m(til)g(one)h(is)f +(accepted.)43 b(If)29 b(the)709 523 y(requested)37 b(c.m.)49 +b(energy)36 b(of)e(an)g(ev)m(en)m(t)j(is)d(b)s(elo)m(w)i +Fq(PARP\(2\))g Fw(the)f(run)g(is)g(ab)s(orted.)709 632 +y(Cross-section)41 b(information)c(can)k(not)f(b)s(e)h(trusted)h(with)e +(this)g(option,)i(since)e(it)709 740 y(dep)s(ends)34 +b(on)e(ho)m(w)i(y)m(ou)f(decided)g(to)f(pic)m(k)h(the)g(requested)i +(energies.)236 848 y Fq(=)52 b(2)f(:)217 b Fw(only)41 +b(one)h(ev)m(en)m(t)i(con\014guration)e(is)f(tried.)71 +b(If)42 b(that)g(is)g(accepted,)k(the)c(ev)m(en)m(t)i(is)709 +957 y(generated)j(in)f(full.)84 b(If)47 b(not,)j(no)d(ev)m(en)m(t)h(is) +f(generated,)k(and)c(the)g(status)g(co)s(de)709 1065 +y Fq(MSTI\(61\)=1)c Fw(is)d(returned.)68 b(Y)-8 b(ou)40 +b(are)h(then)g(exp)s(ected)h(to)e(giv)m(e)h(a)f(new)h(energy)-8 +b(,)709 1173 y(lo)s(oping)32 b(un)m(til)i(an)i(acceptable)f(ev)m(en)m +(t)i(is)e(found.)52 b(No)35 b(ev)m(en)m(t)i(is)e(generated)h(if)e(the) +709 1282 y(requested)42 b(c.m.)64 b(energy)41 b(is)e(b)s(elo)m(w)i +Fq(PARP\(2\))p Fw(,)i(instead)d Fq(MSTI\(61\)=1)i Fw(is)d(set)i(to)709 +1390 y(signal)33 b(the)j(failure.)49 b(In)35 b(principle,)f(cross)i +(sections)g(should)f(come)f(out)h(correctly)709 1498 +y(with)d(this)g(option.)0 1607 y Fq(MSTP\(173\))54 b(:)47 +b Fw(\(D=0\))36 b(p)s(ossibilit)m(y)f(for)i(user)h(to)f(giv)m(e)g(in)f +(an)h(ev)m(en)m(t)i(w)m(eigh)m(t)f(to)f(comp)s(ensate)g(for)g(a)472 +1715 y(biased)c(c)m(hoice)g(of)f(b)s(eam)g(sp)s(ectrum.)236 +1823 y Fq(=)52 b(0)f(:)217 b Fw(no,)32 b(i.e.)43 b(ev)m(en)m(t)35 +b(w)m(eigh)m(t)e(is)f(unit)m(y)-8 b(.)236 1932 y Fq(=)52 +b(1)f(:)217 b Fw(y)m(es;)54 b(w)m(eigh)m(t)47 b(to)e(b)s(e)i(giv)m(en)f +(for)g(eac)m(h)h(ev)m(en)m(t)h(in)d Fq(PARP\(173\))p +Fw(,)52 b(with)46 b(maxim)m(um)709 2040 y(w)m(eigh)m(t)33 +b(giv)m(en)f(at)h(initialization)27 b(in)k Fq(PARP\(174\))p +Fw(.)0 2148 y Fq(MSTP\(181\))54 b(:)47 b Fw(\(R\))32 +b Fm(Pythia)h Fw(v)m(ersion)g(n)m(um)m(b)s(er.)0 2257 +y Fq(MSTP\(182\))54 b(:)47 b Fw(\(R\))32 b Fm(Pythia)h +Fw(sub)m(v)m(ersion)h(n)m(um)m(b)s(er.)0 2365 y Fq(MSTP\(183\))54 +b(:)47 b Fw(\(R\))32 b(last)g(y)m(ear)i(of)e(c)m(hange)h(for)f +Fm(Pythia)p Fw(.)0 2473 y Fq(MSTP\(184\))54 b(:)47 b +Fw(\(R\))32 b(last)g(mon)m(th)g(of)g(c)m(hange)i(for)e +Fm(Pythia)p Fw(.)0 2582 y Fq(MSTP\(185\))54 b(:)47 b +Fw(\(R\))32 b(last)g(da)m(y)h(of)g(c)m(hange)g(for)f +Fm(Pythia)p Fw(.)0 2690 y Fq(MSTP\(186\))54 b(:)47 b +Fw(\(R\))35 b(earliest)g(sub)m(v)m(ersion)i(of)42 b Fm(Jetset)35 +b Fw(v)m(ersion)h(7)f(with)g(whic)m(h)h(this)f Fm(Pythia)h +Fw(sub-)472 2798 y(v)m(ersion)e(can)e(b)s(e)h(run.)0 +2961 y Fq(PARP\(1\))53 b(:)48 b Fw(\(D=0.25)d(GeV\))i(nominal)e(\003) +1652 2976 y Fl(QCD)1862 2961 y Fw(used)j(in)f(running)f +Fj(\013)2667 2976 y Fl(s)2746 2961 y Fw(for)h(hard)g(scattering)f +(\(see)472 3069 y Fq(MSTP\(3\))p Fw(\).)0 3178 y Fq(PARP\(2\))53 +b(:)48 b Fw(\(D=10.)g(GeV\))35 b(lo)m(w)m(est)g(c.m.)49 +b(energy)36 b(for)e(the)h(ev)m(en)m(t)i(as)e(a)f(whole)g(that)h(the)g +(program)472 3286 y(will)c(accept)i(to)f(sim)m(ulate.)0 +3394 y Fq(PARP\(13\))53 b(:)48 b Fw(\(D=1.)81 b(GeV)1099 +3358 y Fl(2)1138 3394 y Fw(\))46 b Fj(Q)1299 3358 y Fl(2)1299 +3419 y(max)1480 3394 y Fw(scale,)j(to)c(b)s(e)g(set)h(b)m(y)h(user)f +(for)f(de\014ning)g(maxim)m(um)e(scale)472 3503 y(allo)m(w)m(ed)32 +b(for)g(photopro)s(duction)g(when)i(using)e(the)h(option)f +Fq(MSTP\(13\)=2)p Fw(.)0 3611 y Fq(PARP\(14\))53 b(:)48 +b Fw(\(D=0.01\))35 b(in)h(the)h(n)m(umerical)f(in)m(tegration)f(of)h +(quark)i(and)f(gluon)e(parton)i(distribu-)472 3719 y(tions)c(inside)g +(an)h(electron,)g(the)g(successiv)m(e)i(halvings)d(of)g(ev)-5 +b(aluation-p)s(oin)m(t)31 b(spacing)i(is)472 3828 y(in)m(terrupted)40 +b(when)g(t)m(w)m(o)g(v)-5 b(alues)39 b(agree)h(in)e(relativ)m(e)g +(size,)j Fn(j)p Fw(new)p Fn(\000)p Fw(old)p Fn(j)p Fw(/\(new+old\),)g +(to)472 3936 y(b)s(etter)32 b(than)e Fq(PARP\(14\))p +Fw(.)45 b(There)32 b(are)f(hardwired)g(lo)m(w)m(er)g(and)g(upp)s(er)g +(limits)d(of)i(2)h(and)g(8)472 4044 y(halvings,)h(resp)s(ectiv)m(ely)-8 +b(.)0 4153 y Fq(PARP\(15\))53 b(:)48 b Fw(\(D=0.5)24 +b(GeV\))h(lo)m(w)m(er)h(cut-o\013)f Fj(p)1750 4168 y +Fl(0)1814 4153 y Fw(used)i(to)e(de\014ne)h(minim)m(um)c(transv)m(erse) +28 b(momen)m(tum)472 4261 y(in)k(branc)m(hings)h Fj(\015)g +Fn(!)27 b Fw(q)p 1339 4208 52 4 v(q)34 b(in)e(the)h(anomalous)d(ev)m +(en)m(t)35 b(class)e(of)f Fj(\015)5 b Fw(p)32 b(in)m(teractions.)0 +4369 y Fq(PARP\(16\))53 b(:)48 b Fw(\(D=1.\))40 b(the)28 +b(anomalous)d(parton-distribution)f(functions)j(of)f(the)h(photon)g +(are)f(tak)m(en)472 4478 y(to)31 b(ha)m(v)m(e)h(the)g(c)m(harm)e(and)h +(b)s(ottom)f(\015a)m(v)m(our)i(thresholds)f(at)g(virtualit)m(y)f +Fq(PARP\(16\))p Fn(\002)p Fj(m)3708 4442 y Fl(2)3708 +4502 y(q)3752 4478 y Fw(.)0 4598 y Fq(PARP\(17\))53 b(:)48 +b Fw(\(D=1.\))57 b(rescaling)37 b(factor)g(used)h(for)f(the)h +Fj(Q)g Fw(argumen)m(t)f(of)g(the)h(anomalous)e(parton)472 +4707 y(distributions)c(of)g(the)h(photon,)f(see)i Fq(MSTP\(15\))p +Fw(.)0 4815 y Fq(PARP\(31\))53 b(:)48 b Fw(\(D=1.5\))27 +b(common)g Fj(K)36 b Fw(factor)28 b(m)m(ultiplying)d(the)k(di\013eren)m +(tial)d(cross)k(section)f(for)e(hard)472 4923 y(parton{parton)34 +b(pro)s(cesses)h(when)g Fq(MSTP\(33\)=1)i Fw(or)c Fq(2)p +Fw(,)i(with)e(the)i(exception)f(of)f(colour)472 5032 +y(annihilation)c(graphs)k(in)f(the)h(latter)f(case.)0 +5140 y Fq(PARP\(32\))53 b(:)48 b Fw(\(D=2.0\))38 b(sp)s(ecial)g +Fj(K)47 b Fw(factor)38 b(m)m(ultiplying)e(the)k(di\013eren)m(tial)d +(cross)k(section)e(in)f(hard)472 5248 y(colour)24 b(annihilation)c +(graphs,)27 b(including)22 b(resonance)k(pro)s(duction,)f(when)h +Fq(MSTP\(33\)=2)p Fw(.)0 5357 y Fq(PARP\(33\))53 b(:)48 +b Fw(\(D=0.075\))31 b(this)h(factor)g(is)g(used)i(to)e(m)m(ultiply)f +(the)i(ordinary)f Fj(Q)2979 5321 y Fl(2)3051 5357 y Fw(scale)g(in)g +Fj(\013)3460 5372 y Fl(s)3525 5357 y Fw(at)g(the)472 +5465 y(hard)39 b(in)m(teraction)f(for)h Fq(MSTP\(33\)=3)p +Fw(.)65 b(The)40 b(e\013ectiv)m(e)g Fj(K)46 b Fw(factor)38 +b(th)m(us)i(obtained)f(is)f(in)472 5573 y(accordance)c(with)e(the)h +(results)g(in)f([Ell86)n(].)1817 5953 y(162)p eop +%%Page: 163 169 +163 168 bop 0 -18 a Fq(PARP\(34\))53 b(:)48 b Fw(\(D=1.\))53 +b(the)36 b Fj(Q)1164 -55 y Fl(2)1240 -18 y Fw(scale)g(de\014ned)h(b)m +(y)i Fq(MSTP\(32\))f Fw(is)d(m)m(ultiplied)e(b)m(y)38 +b Fq(PARP\(34\))g Fw(when)472 90 y(it)31 b(is)f(used)j(as)e(argumen)m +(t)g(for)g(parton)g(distributions)f(and)h Fj(\013)2720 +105 y Fl(s)2784 90 y Fw(at)f(the)i(hard)f(in)m(teraction.)472 +198 y(It)37 b(do)s(es)h(not)e(a\013ect)i Fj(\013)1314 +213 y Fl(s)1383 198 y Fw(when)g Fq(MSTP\(33\)=3)p Fw(,)i(nor)d(do)s(es) +g(it)f(c)m(hange)i(the)f Fj(Q)3299 162 y Fl(2)3376 198 +y Fw(argumen)m(t)472 307 y(of)c(parton)f(sho)m(w)m(ers.)0 +415 y Fq(PARP\(35\))53 b(:)48 b Fw(\(D=0.20\))25 b(\014x)i +Fj(\013)1180 430 y Fl(s)1238 415 y Fw(v)-5 b(alue)26 +b(that)g(is)g(used)h(in)f(the)h(hea)m(vy-\015a)m(v)m(our)h(threshold)e +(factor)g(when)472 523 y Fq(MSTP\(35\)=1)p Fw(.)0 632 +y Fq(PARP\(36\))53 b(:)48 b Fw(\(D=0.)g(GeV\))34 b(the)h(width)f(\000) +1647 647 y Fl(Q)1740 632 y Fw(for)g(the)g(hea)m(vy)i(\015a)m(v)m(our)f +(studied)g(in)f(pro)s(cesses)i(ISUB)472 740 y(=)d(81)f(or)g(82;)g(to)h +(b)s(e)f(used)i(for)e(the)h(threshold)g(factor)f(when)i +Fq(MSTP\(35\)=2)p Fw(.)0 848 y Fq(PARP\(37\))53 b(:)48 +b Fw(\(D=2.\))k(for)36 b Fq(MSTP\(37\)=1)i Fw(this)e(regulates)g(the)g +(p)s(oin)m(t)f(at)h(whic)m(h)g(the)h(reference)g(on-)472 +957 y(shell)24 b(quark)h(mass)f(in)g(Higgs)g(couplings)f(is)h(assumed)h +(de\014ned;)k(sp)s(eci\014cally)23 b(the)i(running)472 +1065 y(quark)h(mass)f(is)f(assumed)i(to)e(coincide)g(with)h(the)g +(\014x)g(one)h(at)e(an)h(energy)h(scale)e Fq(PARP\(37\))472 +1173 y Fw(times)32 b(the)h(\014x)g(quark)h(mass,)e(i.e.)43 +b Fj(m)1835 1188 y Fl(running)2080 1173 y Fw(\()p Fq(PARP\(37\))p +Fn(\002)p Fj(m)2688 1188 y Fl(\014x)2771 1173 y Fw(\))28 +b(=)g Fj(m)3026 1188 y Fl(\014x)3107 1173 y Fw(.)0 1282 +y Fq(PARP\(38\))53 b(:)48 b Fw(\(D=0.70)30 b(GeV)1146 +1245 y Fl(3)1185 1282 y Fw(\))h(the)h(squared)g(w)m(a)m(v)m(e)h +(function)e(at)g(the)g(origin,)e Fn(j)p Fj(R)q Fw(\(0\))p +Fn(j)3240 1245 y Fl(2)3279 1282 y Fw(,)i(of)g(the)h(J)p +Fj(= )472 1390 y Fw(w)m(a)m(v)m(e)j(function.)43 b(Used)34 +b(for)e(pro)s(cess)h(86.)43 b(See)34 b(ref.)43 b([Glo88)n(].)0 +1498 y Fq(PARP\(39\))53 b(:)48 b Fw(\(D=0.006)35 b(GeV)1200 +1462 y Fl(3)1239 1498 y Fw(\))h(the)h(squared)g(deriv)-5 +b(ativ)m(e)36 b(of)g(the)g(w)m(a)m(v)m(e)i(function)e(at)g(the)h +(origin,)472 1607 y Fn(j)p Fj(R)575 1571 y Fk(0)598 1607 +y Fw(\(0\))p Fn(j)751 1571 y Fl(2)790 1607 y Fj(=m)924 +1571 y Fl(2)964 1607 y Fw(,)h(of)f(the)g Fj(\037)1378 +1622 y Fl(c)1451 1607 y Fw(w)m(a)m(v)m(e)h(functions.)57 +b(Used)38 b(for)f(the)g(pro)s(cesses)i(87,)f(88)f(and)g(89.)472 +1715 y(See)d(ref.)43 b([Glo88)n(].)0 1823 y Fq(PARP\(41\))53 +b(:)48 b Fw(\(D=0.020)38 b(GeV\))h(in)g(the)h(pro)s(cess)h(of)e +(generating)g(mass)h(for)f(resonances,)k(and)d(op-)472 +1932 y(tionally)27 b(to)i(force)g(that)g(mass)g(to)g(b)s(e)h(in)e(a)h +(giv)m(en)h(range,)f(only)g(resonances)i(with)e(a)g(total)472 +2040 y(width)h(in)f(excess)j(of)k Fq(PARP\(41\))c Fw(are)e(generated)g +(according)g(to)f(a)g(Breit{Wigner)g(shap)s(e)472 2148 +y(\(if)e(allo)m(w)m(ed)g(b)m(y)j Fq(MSTP\(42\))p Fw(\),)g(while)d +(narro)m(w)m(er)i(resonances)g(are)f(put)g(on)f(the)i(mass)e(shell.)0 +2257 y Fq(PARP\(42\))53 b(:)48 b Fw(\(D=2.)84 b(GeV\))46 +b(minim)m(um)d(mass)k(of)f(resonances)i(assumed)f(to)f(b)s(e)h(allo)m +(w)m(ed)e(when)472 2365 y(ev)-5 b(aluating)38 b(total)g(width)h(of)g(H) +1662 2329 y Fl(0)1741 2365 y Fw(to)g(Z)1927 2329 y Fl(0)1966 +2365 y Fw(Z)2026 2329 y Fl(0)2105 2365 y Fw(or)g(W)2332 +2329 y Fl(+)2391 2365 y Fw(W)2492 2329 y Fk(\000)2591 +2365 y Fw(for)g(cases)i(when)g(the)e(H)3508 2329 y Fl(0)3587 +2365 y Fw(is)g(so)472 2473 y(ligh)m(t)30 b(that)h(\(at)f(least\))h(one) +g(Z)p Fj(=)p Fw(W)h(is)f(forced)g(to)g(b)s(e)g(o\013)f(the)i(mass)f +(shell.)42 b(Also)30 b(generally)472 2582 y(used)43 b(as)e(safet)m(y)h +(c)m(hec)m(k)i(on)d(minim)m(um)d(mass)j(of)g(resonance.)70 +b(Note)42 b(that)e(some)h Fq(CKIN)472 2690 y Fw(v)-5 +b(alues)33 b(ma)m(y)f(pro)m(vide)h(additional)d(constrain)m(ts.)0 +2798 y Fq(PARP\(43\))53 b(:)48 b Fw(\(D=0.10\))40 b(precision)h +(parameter)h(used)g(in)f(n)m(umerical)g(in)m(tegration)f(of)h(width)g +(in)m(to)472 2907 y(c)m(hannel)33 b(with)g(at)f(least)g(one)h(daugh)m +(ter)g(o\013)f(the)h(mass)g(shell.)0 3015 y Fq(PARP\(44\))53 +b(:)48 b Fw(\(D=1000.\))104 b(the)54 b Fj(\027)59 b Fw(parameter)53 +b(of)g(the)h(strongly)f(in)m(teracting)f(Z)p Fj(=)p Fw(W)i(mo)s(del)e +(of)472 3123 y(Dobado,)32 b(Herrero)h(and)g(T)-8 b(erron)33 +b([Dob91)o(].)0 3232 y Fq(PARP\(45\))53 b(:)48 b Fw(\(D=2054.)42 +b(GeV\))31 b(the)h(e\013ectiv)m(e)h(tec)m(hni-)p Fj(\032)f +Fw(mass)g(parameter)f(of)h(the)g(strongly)f(in)m(ter-)472 +3340 y(acting)40 b(mo)s(del)f(of)h(Dobado,)i(Herrero)f(and)g(T)-8 +b(erron)41 b([Dob91)o(];)k(see)d Fq(MSTP\(46\)=5)p Fw(.)70 +b(On)472 3448 y(ph)m(ysical)36 b(grounds)g(it)f(should)g(not)g(b)s(e)h +(c)m(hosen)h(smaller)d(than)i(ab)s(out)f(1)g(T)-8 b(eV)36 +b(or)g(larger)472 3557 y(than)d(ab)s(out)f(the)h(default)f(v)-5 +b(alue.)0 3665 y Fq(PARP\(46\))53 b(:)48 b Fw(\(D=123.)54 +b(GeV\))36 b(the)h Fj(F)1479 3680 y Fh(\031)1563 3665 +y Fw(deca)m(y)h(constan)m(t)f(that)g(app)s(ears)g(in)m(v)m(ersely)g +(quadratically)472 3774 y(in)32 b(all)f(tec)m(hni-)p +Fj(\021)36 b Fw(partial)30 b(deca)m(y)k(widths)f([Eic84,)f(App92].)0 +3882 y Fq(PARP\(47\))53 b(:)48 b Fw(\(D=246.)100 b(GeV\))52 +b(v)-5 b(acuum)52 b(exp)s(ectation)g(v)-5 b(alue)51 b +Fj(v)56 b Fw(used)d(in)e(the)i(DHT)f(scenario)472 3990 +y([Dob91])43 b(to)g(de\014ne)i(the)f(width)g(of)f(the)h(tec)m(hni-)p +Fj(\032)p Fw(;)49 b(this)43 b(width)h(is)f(in)m(v)m(ersely)h(prop)s +(or-)472 4099 y(tional)31 b Fj(v)800 4062 y Fl(2)839 +4099 y Fw(.)0 4207 y Fq(PARP\(51\))53 b(:)48 b Fw(\(D=1.\))i(if)34 +b(parton)h(distributions)e(for)i(ligh)m(t)e(\015a)m(v)m(ours)k(ha)m(v)m +(e)f(to)f(b)s(e)g(extrap)s(olated)g(to)472 4315 y Fj(x)i +Fw(v)-5 b(alues)35 b(lo)m(w)m(er)h(than)g(co)m(v)m(ered)h(b)m(y)g(the)f +(parametrizations,)e(an)i Fj(x)2981 4279 y Fk(\000)p +Fh(b)3106 4315 y Fw(b)s(eha)m(viour,)h(with)472 4424 +y Fj(b)51 b Fw(=)p Fq(PARP\(51\))p Fw(,)g(is)45 b(assumed)i(in)e(that)g +(region.)82 b(This)46 b(option)f(only)g(applies)g(for)g(the)472 +4532 y(EHLQ)33 b(proton)g(parton)f(distributions)f(that)h(are)h(in)m +(ternal)e(to)i Fm(Pythia)p Fw(.)0 4640 y Fq(PARP\(61\))53 +b(-)f(PARP\(65\))h(:)48 b Fw(\(C\))33 b(parameters)f(for)g +(initial-state)d(radiation,)h(see)k(section)f(10.4.)0 +4749 y Fq(PARP\(71\))53 b(-)f(PARP\(72\))h(:)48 b Fw(\(C\))33 +b(parameter)f(for)g(\014nal-state)g(radiation,)e(see)k(section)e(10.4.) +0 4857 y Fq(PARP\(81\))53 b(-)f(PARP\(88\))h(:)48 b Fw(parameters)32 +b(for)g(m)m(ultiple)e(in)m(teractions,)j(see)g(section)g(11.4.)0 +4965 y Fq(PARP\(91\))53 b(-)f(PARP\(100\))i(:)47 b Fw(parameters)33 +b(for)f(b)s(eam)g(remnan)m(t)g(treatmen)m(t,)h(see)g(section)g(11.4.)0 +5074 y Fq(PARP\(101\))54 b(:)47 b Fw(\(D=0.50\))26 b(fraction)g(of)g +(di\013ractiv)m(e)h(systems)h(in)e(whic)m(h)i(a)f(quark)h(is)e(assumed) +i(kic)m(k)m(ed)472 5182 y(out)33 b(b)m(y)g(the)g(p)s(omeron)f(rather)h +(than)f(a)h(gluon;)e(applicable)g(for)h(option)f Fq(MSTP\(101\)=3)p +Fw(.)0 5290 y Fq(PARP\(102\))54 b(:)47 b Fw(\(D=0.28)26 +b(GeV\))g(the)h(mass)g(sp)s(ectrum)g(of)g(di\013ractiv)m(e)f(states)h +(\(in)f(single)g(and)h(double)472 5399 y(di\013ractiv)m(e)41 +b(scattering\))g(is)f(assumed)i(to)f(start)g Fq(PARP\(102\))j +Fw(ab)s(o)m(v)m(e)e(the)f(mass)g(of)g(the)472 5507 y(particle)47 +b(that)h(is)f(di\013ractiv)m(ely)g(excited.)91 b(In)48 +b(this)f(connection,)53 b(an)47 b(incoming)f Fj(\015)53 +b Fw(is)472 5615 y(tak)m(en)34 b(to)e(ha)m(v)m(e)i(the)f(selected)h +(VMD)e(meson)h(mass,)g(i.e.)43 b Fj(m)2702 5630 y Fh(\032)2742 +5615 y Fw(,)33 b Fj(m)2887 5630 y Fh(!)2938 5615 y Fw(,)f +Fj(m)3082 5630 y Fh(\036)3161 5615 y Fw(or)g Fj(m)3365 +5631 y Fl(J)p Fh(= )3490 5615 y Fw(.)1817 5953 y(163)p +eop +%%Page: 164 170 +164 169 bop 0 -18 a Fq(PARP\(103\))54 b(:)47 b Fw(\(D=1.0)26 +b(GeV\))h(if)f(the)i(mass)f(of)g(a)g(di\013ractiv)m(e)f(state)i(is)e +(less)i(than)f Fq(PARP\(103\))j Fw(ab)s(o)m(v)m(e)472 +90 y(the)47 b(mass)f(of)g(the)g(particle)f(that)h(is)g(di\013ractiv)m +(ely)f(excited,)50 b(the)d(state)g(is)e(forced)i(to)472 +198 y(deca)m(y)37 b(isotropically)c(in)m(to)i(a)g(t)m(w)m(o-b)s(o)s(dy) +g(c)m(hannel.)53 b(In)36 b(this)f(connection,)h(an)g(incoming)472 +307 y Fj(\015)42 b Fw(is)37 b(tak)m(en)g(to)g(ha)m(v)m(e)h(the)f +(selected)h(VMD)f(meson)g(mass,)h(i.e.)56 b Fj(m)2945 +322 y Fh(\032)2986 307 y Fw(,)37 b Fj(m)3135 322 y Fh(!)3186 +307 y Fw(,)h Fj(m)3336 322 y Fh(\036)3419 307 y Fw(or)f +Fj(m)3628 322 y Fl(J)p Fh(= )3752 307 y Fw(.)472 415 +y(If)j(the)h(mass)f(is)g(higher)f(than)h(this)g(threshold,)i(the)e +(standard)h(string)e(fragmen)m(tation)472 523 y(mac)m(hinery)27 +b(is)f(used.)42 b(The)27 b(forced)g(t)m(w)m(o-b)s(o)s(dy)g(deca)m(y)h +(is)d(alw)m(a)m(ys)i(carried)f(out,)i(also)d(when)472 +632 y Fq(MSTP\(111\)=0)p Fw(.)0 740 y Fq(PARP\(104\))54 +b(:)47 b Fw(\(D=0.8)41 b(GeV\))g(minim)m(um)e(energy)j(ab)s(o)m(v)m(e)h +(threshold)f(for)f(hadron{hadron)h(cross)472 848 y(sections)34 +b(to)e(b)s(e)h(de\014ned.)0 957 y Fq(PARP\(111\))54 b(:)47 +b Fw(\(D=2.)63 b(GeV\))39 b(used)h(to)f(de\014ne)i(the)e(minim)m(um)d +(in)m(v)-5 b(arian)m(t)38 b(mass)h(of)g(the)h(remnan)m(t)472 +1065 y(hadronic)j(system)h(\(i.e.)75 b(when)44 b(in)m(teracting)e +(partons)i(ha)m(v)m(e)g(b)s(een)g(tak)m(en)g(a)m(w)m(a)m(y\),)j(to-)472 +1173 y(gether)34 b(with)e(original)d(hadron)k(masses)g(and)g(extra)g +(parton)f(masses.)0 1282 y Fq(PARP\(121\))54 b(:)47 b +Fw(\(D=1.\))41 b(the)28 b(maxima)d(obtained)i(at)g(initial)d +(maximization)g(are)j(m)m(ultiplied)d(b)m(y)29 b(this)472 +1390 y(factor)k(if)40 b Fq(MSTP\(121\)=1)p Fw(;)d(t)m(ypically)c +Fq(PARP\(121\))j Fw(w)m(ould)d(b)s(e)h(giv)m(en)g(as)f(the)h(pro)s +(duct)g(of)472 1498 y(the)g(violation)c(factors)j(observ)m(ed)i(\(i.e.) +44 b(the)33 b(ratio)f(of)g(\014nal)h(maxim)m(um)d(v)-5 +b(alue)33 b(to)f(initial)472 1607 y(maxim)m(um)f(v)-5 +b(alue\))32 b(for)g(the)h(giv)m(en)f(pro)s(cess\(es\).)0 +1715 y Fq(PARP\(122\))54 b(:)47 b Fw(\(D=0.4\))27 b(fraction)h(of)g +(total)f(probabilit)m(y)f(that)i(is)g(shared)i(demo)s(cratically)25 +b(b)s(et)m(w)m(een)472 1823 y(the)36 b Fq(COEF)h Fw(co)s(e\016cien)m +(ts)g(op)s(en)f(for)f(the)h(giv)m(en)f(v)-5 b(ariable,)35 +b(with)g(the)h(remaining)e(fraction)472 1932 y(distributed)f(according) +f(to)g(the)h(optimization)c(results)k(of)39 b Fq(PYMAXI)p +Fw(.)0 2040 y Fq(PARP\(131\))54 b(:)47 b Fw(parameter)32 +b(for)g(pile-up)f(ev)m(en)m(ts,)k(see)f(section)f(11.4.)0 +2148 y Fq(PARP\(151\))54 b(-)d(PARP\(154\))j(:)47 b Fw(\(D=4*0.\))85 +b(\(C\))47 b(regulate)f(the)h(assumed)g(b)s(eam-sp)s(ot)f(size.)86 +b(F)-8 b(or)472 2257 y Fq(MSTP\(151\)=1)33 b Fw(the)d +Fj(x)p Fw(,)g Fj(y)t Fw(,)g Fj(z)k Fw(and)29 b Fj(t)h +Fw(co)s(ordinates)f(of)g(the)h(primary)e(v)m(ertex)j(of)e(eac)m(h)i(ev) +m(en)m(t)472 2365 y(are)44 b(selected)g(according)e(to)h(four)g(indep)s +(enden)m(t)i(Gaussians.)75 b(The)44 b(widths)f(of)g(these)472 +2473 y(Gaussians)33 b(are)g(giv)m(en)g(b)m(y)h(the)g(four)e +(parameters,)i(where)g(the)f(\014rst)h(three)f(are)g(in)g(units)472 +2582 y(of)g(mm)e(and)h(the)h(fourth)g(in)e(mm/)p Fj(c)p +Fw(.)0 2690 y Fq(PARP\(161\))54 b(-)d(PARP\(164\))j(:)47 +b Fw(\(D=2.20,)32 b(23.6,)g(18.4,)f(11.5\))h(couplings)g +Fj(f)2845 2654 y Fl(2)2834 2715 y Fh(V)2895 2690 y Fj(=)p +Fw(4)p Fj(\031)k Fw(of)c(the)g(photon)h(to)472 2798 y(the)g +Fj(\032)690 2762 y Fl(0)730 2798 y Fw(,)g Fj(!)t Fw(,)f +Fj(\036)g Fw(and)h(J)p Fj(= )j Fw(v)m(ector)e(mesons.)0 +2907 y Fq(PARP\(171\))54 b(:)47 b Fw(to)d(b)s(e)g(set,)j(ev)m(en)m(t-b) +m(y-ev)m(en)m(t,)k(when)44 b(v)-5 b(ariable)43 b(energies)h(are)g(allo) +m(w)m(ed,)i(i.e.)76 b(when)472 3015 y Fq(MSTP\(171\)=1)p +Fw(.)71 b(If)47 b Fq(PYINIT)42 b Fw(is)e(called)f(with)h +Fq(FRAME='CMS')k Fw(\()p Fq(='FIXT')p Fw(\),)e Fq(PARP\(171\))472 +3123 y Fw(m)m(ultiplies)20 b(the)k(c.m.)40 b(energy)24 +b(\(b)s(eam)e(energy\))h(used)h(at)f(initialization.)35 +b(F)-8 b(or)22 b(the)h(options)472 3232 y Fq('USER')p +Fw(,)38 b Fq('FOUR')f Fw(and)e Fq('FIVE')p Fw(,)j Fq(PARP\(171\))f +Fw(is)e(dumm)m(y)-8 b(,)36 b(since)g(there)h(the)f(momen)m(ta)472 +3340 y(are)d(set)g(in)f(the)h Fq(P)g Fw(arra)m(y)-8 b(.)0 +3448 y Fq(PARP\(173\))54 b(:)47 b Fw(ev)m(en)m(t)35 b(w)m(eigh)m(t)e +(to)f(b)s(e)h(giv)m(en)f(b)m(y)i(user)f(when)h Fq(MSTP\(173\)=1)p +Fw(.)0 3557 y Fq(PARP\(174\))54 b(:)47 b Fw(\(D=1.\))84 +b(maxim)m(um)45 b(ev)m(en)m(t)j(w)m(eigh)m(t)f(that)f(will)e(b)s(e)j +(encoun)m(tered)h(in)e Fq(PARP\(173\))472 3665 y Fw(during)g(the)h +(course)h(of)e(a)h(run)f(with)h Fq(MSTP\(173\)=1)p Fw(;)56 +b(to)47 b(b)s(e)f(used)i(to)e(optimize)f(the)472 3774 +y(e\016ciency)38 b(of)e(the)h(ev)m(en)m(t)i(generation.)54 +b(It)37 b(is)f(alw)m(a)m(ys)h(allo)m(w)m(ed)f(to)g(use)i(a)e(larger)f +(b)s(ound)472 3882 y(than)e(the)g(true)g(one,)g(but)g(with)f(a)g +(corresp)s(onding)h(loss)f(in)g(e\016ciency)-8 b(.)0 +4156 y Fp(9.4)135 b(General)46 b(Ev)l(en)l(t)g(Information)0 +4328 y Fw(When)39 b(an)f(ev)m(en)m(t)j(is)c(generated)j(with)e +Fq(PYEVNT)p Fw(,)i(some)e(information)d(on)j(it)f(is)h(stored)h(in)f +(the)g Fq(MSTI)0 4437 y Fw(and)k Fq(PARI)h Fw(arra)m(ys)g(of)e(the)i +Fq(PYPARS)g Fw(common)e(blo)s(c)m(k)h(\(often)g(copied)g(directly)f +(from)g(the)i(in)m(ternal)0 4545 y Fq(MINT)30 b Fw(and)g +Fq(VINT)g Fw(v)-5 b(ariables\).)41 b(F)-8 b(urther)29 +b(information)d(is)j(stored)h(in)e(the)i(complete)e(ev)m(en)m(t)j +(record;)g(see)0 4653 y(section)i(5.2.)146 4762 y(P)m(art)i(of)f(the)h +(information)d(is)i(only)g(relev)-5 b(an)m(t)34 b(for)g(some)h(subpro)s +(cesses;)j(b)m(y)e(default)d(ev)m(erything)0 4870 y(irrelev)-5 +b(an)m(t)30 b(is)g(set)i(to)e(0.)43 b(Kindly)30 b(note)h(that,)g(lik)m +(e)f(the)h Fq(CKIN)h Fw(constrain)m(ts)f(describ)s(ed)h(in)e(section)h +(9.2,)0 4979 y(kinematical)23 b(v)-5 b(ariables)25 b(normally)f(\(i.e.) +40 b(where)28 b(it)d(is)g(not)h(explicitly)e(stated)j(otherwise\))f +(refer)g(to)g(the)0 5087 y(na)-11 b(\177)-38 b(\020v)m(e)33 +b(hard)f(scattering,)h(b)s(efore)f(initial-)d(and)j(\014nal-state)g +(radiation)f(e\013ects)i(ha)m(v)m(e)h(b)s(een)g(included.)p +0 5231 2876 9 v 0 5456 9 225 v 79 5371 a Fq(COMMON/PYPARS/MSTP\(200\),) +q(PARP)q(\(200)q(\),MS)q(TI\()q(200\))q(,PAR)q(I\(20)q(0\))p +2867 5456 V 0 5464 2876 9 v 0 5596 a Fo(Purp)s(ose:)48 +b Fw(to)24 b(pro)m(vide)h(information)d(on)i(latest)h(ev)m(en)m(t)h +(generated)g(or,)g(in)e(a)g(few)i(cases,)h(on)e(statistics)1817 +5953 y(164)p eop +%%Page: 165 171 +165 170 bop 472 -18 a Fw(accum)m(ulated)33 b(during)f(the)h(run.)0 +90 y Fq(MSTI\(1\))53 b(:)48 b Fw(sp)s(eci\014es)39 b(the)g(general)f(t) +m(yp)s(e)i(of)e(subpro)s(cess)j(that)d(has)h(o)s(ccurred,)i(according)d +(to)g(the)472 198 y(ISUB)c(co)s(de)e(giv)m(en)h(in)f(section)h(8.1.)0 +307 y Fq(MSTI\(2\))53 b(:)48 b Fw(whenev)m(er)41 b Fq(MSTI\(1\))f +Fw(\(together)f(with)f Fq(MSTI\(15\))j Fw(and)d Fq(MSTI\(16\))p +Fw(\))j(are)e(not)f(enough)472 415 y(to)g(sp)s(ecify)h(the)f(t)m(yp)s +(e)h(of)f(pro)s(cess)i(uniquely)-8 b(,)39 b Fq(MSTI\(2\))h +Fw(pro)m(vides)f(an)f(ordering)f(of)h(the)472 523 y(di\013eren)m(t)30 +b(p)s(ossibilities.)40 b(This)30 b(is)f(particularly)f(relev)-5 +b(an)m(t)30 b(for)f(the)h(di\013eren)m(t)g(colour-\015o)m(w)472 +632 y(top)s(ologies)24 b(p)s(ossible)h(in)g(QCD)h(2)h +Fn(!)h Fw(2)d(pro)s(cesses.)44 b(With)25 b Fj(i)j Fw(=)p +Fq(MSTI\(15\))p Fw(,)h Fj(j)34 b Fw(=)p Fq(MSTI\(16\))472 +740 y Fw(and)45 b Fj(k)50 b Fw(=)p Fq(MSTI\(2\))p Fw(,)f(the)c(QCD)e(p) +s(ossibilities)f(are,)47 b(in)c(the)i(classi\014cation)e(sc)m(heme)i +(of)472 848 y([Ben84)q(])32 b(\(cf.)44 b(section)33 b(8.2.1\):)236 +957 y(ISUB)g(=)g(11,)47 b Fj(i)28 b Fw(=)f Fj(j)6 b Fw(,)33 +b(q)1102 972 y Fh(i)1130 957 y Fw(q)1181 972 y Fh(i)1238 +957 y Fn(!)27 b Fw(q)1416 972 y Fh(i)1445 957 y Fw(q)1496 +972 y Fh(i)1524 957 y Fw(;)709 1065 y Fj(k)j Fw(=)e(1)k(:)44 +b(colour)31 b(con\014guration)h Fj(A)p Fw(.)709 1173 +y Fj(k)e Fw(=)e(2)k(:)44 b(colour)31 b(con\014guration)h +Fj(B)5 b Fw(.)236 1282 y(ISUB)33 b(=)g(11,)47 b Fj(i)28 +b Fn(6)p Fw(=)f Fj(j)6 b Fw(,)33 b(q)1102 1297 y Fh(i)1130 +1282 y Fw(q)1181 1297 y Fh(j)1246 1282 y Fn(!)27 b Fw(q)1424 +1297 y Fh(i)1453 1282 y Fw(q)1504 1297 y Fh(j)1541 1282 +y Fw(;)709 1390 y Fj(k)j Fw(=)e(1)k(:)44 b(only)32 b(p)s(ossibilit)m(y) +-8 b(.)236 1498 y(ISUB)33 b(=)g(12,)47 b(q)832 1513 y +Fh(i)p 860 1445 52 4 v 860 1498 a Fw(q)912 1522 y Fh(i)968 +1498 y Fn(!)27 b Fw(q)1146 1513 y Fh(l)p 1172 1445 V +1172 1498 a Fw(q)1224 1522 y Fh(l)1250 1498 y Fw(;)709 +1607 y Fj(k)j Fw(=)e(1)k(:)44 b(only)32 b(p)s(ossibilit)m(y)-8 +b(.)236 1715 y(ISUB)33 b(=)g(13,)47 b(q)832 1730 y Fh(i)p +860 1662 V 860 1715 a Fw(q)912 1739 y Fh(i)968 1715 y +Fn(!)27 b Fw(gg)q(;)709 1823 y Fj(k)j Fw(=)e(1)k(:)44 +b(colour)31 b(con\014guration)h Fj(A)p Fw(.)709 1932 +y Fj(k)e Fw(=)e(2)k(:)44 b(colour)31 b(con\014guration)h +Fj(B)5 b Fw(.)236 2040 y(ISUB)33 b(=)g(28,)47 b(q)832 +2055 y Fh(i)860 2040 y Fw(g)29 b Fn(!)e Fw(q)1116 2055 +y Fh(i)1145 2040 y Fw(g)q(;)709 2148 y Fj(k)j Fw(=)e(1)k(:)44 +b(colour)31 b(con\014guration)h Fj(A)p Fw(.)709 2257 +y Fj(k)e Fw(=)e(2)k(:)44 b(colour)31 b(con\014guration)h +Fj(B)5 b Fw(.)236 2365 y(ISUB)33 b(=)g(53,)47 b(gg)28 +b Fn(!)f Fw(q)1085 2380 y Fh(l)p 1112 2312 V 1112 2365 +a Fw(q)1163 2389 y Fh(l)1189 2365 y Fw(;)709 2473 y Fj(k)j +Fw(=)e(1)k(:)44 b(colour)31 b(con\014guration)h Fj(A)p +Fw(.)709 2582 y Fj(k)e Fw(=)e(2)k(:)44 b(colour)31 b(con\014guration)h +Fj(B)5 b Fw(.)236 2690 y(ISUB)33 b(=)g(68,)47 b(gg)28 +b Fn(!)f Fw(gg)q(;)709 2798 y Fj(k)j Fw(=)e(1)k(:)44 +b(colour)31 b(con\014guration)h Fj(A)p Fw(.)709 2907 +y Fj(k)e Fw(=)e(2)k(:)44 b(colour)31 b(con\014guration)h +Fj(B)5 b Fw(.)709 3015 y Fj(k)30 b Fw(=)e(3)k(:)44 b(colour)31 +b(con\014guration)h Fj(C)7 b Fw(.)236 3123 y(ISUB)33 +b(=)g(83,)47 b(fq)32 b Fn(!)f Fw(f)1062 3087 y Fk(0)1085 +3123 y Fw(Q)k(\(b)m(y)g Fj(t)p Fw(-c)m(hannel)g(W)i(exc)m(hange;)h(do)s +(es)d(not)g(distinguish)e(colour)h(\015o)m(ws)709 3232 +y(but)f(result)f(of)g(user)i(selection\);)709 3340 y +Fj(k)c Fw(=)e(1)k(:)44 b(hea)m(vy)34 b(\015a)m(v)m(our)f(Q)g(is)f(pro)s +(duced)h(on)g(side)f(1.)709 3448 y Fj(k)e Fw(=)e(2)k(:)44 +b(hea)m(vy)34 b(\015a)m(v)m(our)f(Q)g(is)f(pro)s(duced)h(on)g(side)f +(2.)0 3557 y Fq(MSTI\(3\))53 b(:)48 b Fw(the)43 b(n)m(um)m(b)s(er)g(of) +f(partons)h(pro)s(duced)h(in)e(the)h(hard)g(in)m(teractions,)h(i.e.)74 +b(the)43 b(n)m(um)m(b)s(er)472 3665 y Fj(n)g Fw(of)e(the)i(2)g +Fn(!)h Fj(n)e Fw(matrix)e(elemen)m(ts)j(used;)48 b(it)41 +b(is)g(sometimes)g(3)h(or)g(4)g(when)h(a)f(basic)472 +3774 y(2)e Fn(!)g Fw(1)f(or)g(2)h Fn(!)g Fw(2)f(pro)s(cess)i(has)f(b)s +(een)h(folded)e(with)g(t)m(w)m(o)h(1)g Fn(!)g Fw(2)f(initial)d(branc)m +(hings)472 3882 y(\(lik)m(e)c(qq)791 3846 y Fk(0)843 +3882 y Fn(!)27 b Fw(q)1021 3846 y Fk(00)1064 3882 y Fw(q)1115 +3846 y Fk(000)1177 3882 y Fw(H)1250 3846 y Fl(0)1290 +3882 y Fw(\).)0 3990 y Fq(MSTI\(4\))53 b(:)48 b Fw(n)m(um)m(b)s(er)28 +b(of)f(do)s(cumen)m(tation)g(lines)g(at)g(the)h(b)s(eginning)f(of)g +(the)h(common)e(blo)s(c)m(k)i Fq(LUJETS)472 4099 y Fw(that)33 +b(are)f(giv)m(en)h(with)f Fq(K\(I,1\)=21)p Fw(;)j(0)e(for)f +Fq(MSTP\(125\)=0)p Fw(.)0 4207 y Fq(MSTI\(5\))53 b(:)48 +b Fw(n)m(um)m(b)s(er)30 b(of)f(ev)m(en)m(ts)j(generated)e(to)g(date)f +(in)g(curren)m(t)i(run.)43 b(In)30 b(runs)g(with)g(the)g(v)-5 +b(ariable-)472 4315 y(energy)31 b(option,)f Fq(MSTP\(171\)=1)j +Fw(and)d Fq(MSTP\(172\)=2)p Fw(,)j(only)d(those)g(ev)m(en)m(ts)i(that)e +(surviv)m(e)472 4424 y(\(i.e.)83 b(that)45 b(do)h(not)g(ha)m(v)m(e)h +Fq(MSTI\(61\)=1)p Fw(\))h(are)e(coun)m(ted)h(in)e(this)g(n)m(um)m(b)s +(er.)84 b(That)46 b(is,)472 4532 y Fq(MSTI\(5\))35 b +Fw(ma)m(y)d(b)s(e)h(less)g(than)f(the)h(total)f(n)m(um)m(b)s(er)h(of)39 +b Fq(PYEVNT)34 b Fw(calls.)0 4640 y Fq(MSTI\(6\))53 b(:)48 +b Fw(curren)m(t)33 b(frame)f(of)g(ev)m(en)m(t,)j(cf.)43 +b Fq(MSTP\(124\))p Fw(.)0 4749 y Fq(MSTI\(7\),)53 b(MSTI\(8\))h(:)47 +b Fw(line)29 b(n)m(um)m(b)s(er)i(for)f(do)s(cumen)m(tation)f(of)h +(outgoing)f(partons/particles)h(from)472 4857 y(hard)j(scattering)f +(for)g(2)c Fn(!)f Fw(2)32 b(or)h(2)27 b Fn(!)g Fw(1)h +Fn(!)f Fw(2)33 b(pro)s(cesses)h(\(else)f(=)f(0\).)0 4965 +y Fq(MSTI\(9\))53 b(:)48 b Fw(ev)m(en)m(t)h(class)f(used)h(in)e(curren) +m(t)i(ev)m(en)m(t)h(for)d Fj(\015)5 b Fw(p)48 b(or)g +Fj(\015)5 b(\015)53 b Fw(ev)m(en)m(ts)d(generated)f(with)e(the)472 +5074 y Fq(MSTP\(14\)=10)36 b Fw(option.)236 5182 y Fq(=)52 +b(0)f(:)217 b Fw(for)32 b(other)g(pro)s(cesses)j(than)e(the)g(ones)g +(listed)f(ab)s(o)m(v)m(e.)236 5290 y Fq(=)52 b(1)f(:)217 +b Fw(VMD)32 b(\(for)g Fj(\015)5 b Fw(p\))33 b(or)f(VMD*VMD)g(\(for)g +Fj(\015)5 b(\015)g Fw(\).)236 5399 y Fq(=)52 b(2)f(:)217 +b Fw(direct)32 b(\(for)g Fj(\015)5 b Fw(p\))33 b(or)f(VMD*direct)g +(\(for)g Fj(\015)5 b(\015)g Fw(\).)236 5507 y Fq(=)52 +b(3)f(:)217 b Fw(anomalous)31 b(\(for)h Fj(\015)5 b Fw(p\))32 +b(or)g(VMD*anomalous)f(\(for)h Fj(\015)5 b(\015)g Fw(\).)236 +5615 y Fq(=)52 b(4)f(:)217 b Fw(direct*direct)32 b(\(for)g +Fj(\015)5 b(\015)g Fw(\).)1817 5953 y(165)p eop +%%Page: 166 172 +166 171 bop 236 -18 a Fq(=)52 b(5)f(:)217 b Fw(direct*anomalous)30 +b(\(for)i Fj(\015)5 b(\015)g Fw(\).)236 90 y Fq(=)52 +b(6)f(:)217 b Fw(anomalous*anomalous)29 b(\(for)j Fj(\015)5 +b(\015)g Fw(\).)0 198 y Fq(MSTI\(10\))53 b(:)48 b Fw(is)32 +b(1)g(if)g(cross)h(section)g(maxim)m(um)d(w)m(as)k(violated)d(in)h +(curren)m(t)h(ev)m(en)m(t,)i(and)e(0)f(if)f(not.)0 307 +y Fq(MSTI\(11\))53 b(:)48 b Fw(KF)32 b(\015a)m(v)m(our)h(co)s(de)g(for) +f(b)s(eam)g(\(side)h(1\))f(particle.)0 415 y Fq(MSTI\(12\))53 +b(:)48 b Fw(KF)32 b(\015a)m(v)m(our)h(co)s(de)g(for)f(target)h(\(side)f +(2\))g(particle.)0 523 y Fq(MSTI\(13\),)54 b(MSTI\(14\))f(:)48 +b Fw(KF)28 b(\015a)m(v)m(our)i(co)s(des)g(for)e(side)h(1)g(and)g(side)g +(2)g(initial-state)c(sho)m(w)m(er)31 b(initia-)472 632 +y(tors.)0 740 y Fq(MSTI\(15\),)54 b(MSTI\(16\))f(:)48 +b Fw(KF)34 b(\015a)m(v)m(our)i(co)s(des)g(for)f(side)g(1)g(and)h(side)f +(2)g(incoming)e(partons)i(to)g(the)472 848 y(hard)e(in)m(teraction.)0 +957 y Fq(MSTI\(17\),)54 b(MSTI\(18\))f(:)48 b Fw(\015ag)38 +b(to)h(signal)f(if)g(particle)g(on)h(side)g(1)g(or)g(side)h(2)f(has)g +(b)s(een)h(scattered)472 1065 y(di\013ractiv)m(ely;)32 +b(0)g(if)g(no,)g(1)h(if)e(y)m(es.)0 1173 y Fq(MSTI\(21\))53 +b(-)f(MSTI\(24\))h(:)48 b Fw(KF)37 b(\015a)m(v)m(our)i(co)s(des)f(for)f +(outgoing)g(partons)h(from)e(the)i(hard)g(in)m(terac-)472 +1282 y(tion.)i(The)24 b(n)m(um)m(b)s(er)g(of)f(p)s(ositions)g(actually) +f(used)j(is)e(pro)s(cess-dep)s(enden)m(t,)28 b(see)d +Fq(MSTI\(3\))p Fw(;)472 1390 y(trailing)30 b(p)s(ositions)h(not)i(used) +g(are)g(set)g(=)g(0.)0 1498 y Fq(MSTI\(25\),)54 b(MSTI\(26\))f(:)48 +b Fw(KF)e(\015a)m(v)m(our)h(co)s(des)h(of)e(the)i(pro)s(ducts)f(in)f +(the)h(deca)m(y)i(of)d(a)g(single)g Fj(s)p Fw(-)472 1607 +y(c)m(hannel)40 b(resonance)g(formed)e(in)g(the)h(hard)g(in)m +(teraction.)61 b(Are)39 b(th)m(us)h(only)e(used)i(when)472 +1715 y Fq(MSTI\(3\)=1)35 b Fw(and)e(the)g(resonance)h(is)e(allo)m(w)m +(ed)g(to)g(deca)m(y)-8 b(.)0 1823 y Fq(MSTI\(31\))53 +b(:)48 b Fw(n)m(um)m(b)s(er)34 b(of)f(hard)h(or)f(semi-hard)g +(scatterings)h(that)f(o)s(ccurred)i(in)e(the)h(curren)m(t)h(ev)m(en)m +(t)472 1932 y(in)d(the)h(m)m(ultiple-in)m(teraction)c(scenario;)j(is)g +(=)h(0)f(for)g(a)g(lo)m(w-)p Fj(p)2772 1947 y Fk(?)2863 +1932 y Fw(ev)m(en)m(t.)0 2040 y Fq(MSTI\(41\))53 b(:)48 +b Fw(the)35 b(n)m(um)m(b)s(er)g(of)g(pile-up)e(ev)m(en)m(ts)k +(generated)f(in)e(the)i(latest)e Fq(PYEVNT)i Fw(call)d(\(including)472 +2148 y(the)g(\014rst,)h(`hard')e(ev)m(en)m(t\).)0 2257 +y Fq(MSTI\(42\))53 b(-)f(MSTI\(50\))h(:)48 b Fw(ISUB)30 +b(co)s(des)g(for)f(the)h(ev)m(en)m(ts)i(2{10)d(generated)h(in)f(the)h +(pile-up-ev)m(en)m(ts)472 2365 y(scenario.)81 b(The)46 +b(\014rst)g(ev)m(en)m(t)h(ISUB)e(co)s(de)h(is)e(stored)i(in)e +Fq(MSTI\(1\))p Fw(.)83 b(If)52 b Fq(MSTI\(41\))47 b Fw(is)472 +2473 y(less)38 b(than)f(10,)h(only)f(as)h(man)m(y)f(p)s(ositions)f(are) +h(\014lled)f(as)i(there)g(are)f(pile-up)f(ev)m(en)m(ts.)60 +b(If)472 2582 y(MSTI\(41\))34 b(is)e(ab)s(o)m(v)m(e)h(10,)f(some)h +(ISUB)g(co)s(des)g(will)d(not)j(app)s(ear)f(an)m(ywhere.)0 +2690 y Fq(MSTI\(51\))53 b(:)48 b Fw(normally)33 b(0)i(but)h(set)h(to)e +(1)g(if)g(a)g Fq(PYUPEV)i Fw(call)d(did)h(not)h(return)g(an)f(ev)m(en)m +(t,)k(suc)m(h)e(that)472 2798 y Fq(PYEVNT)30 b Fw(could)d(not)h +(generate)g(an)g(ev)m(en)m(t.)44 b(F)-8 b(or)27 b(further)h(details,)g +(see)h(end)f(of)g(section)g(9.5.)0 2907 y Fq(MSTI\(52\))53 +b(:)48 b Fw(coun)m(ter)30 b(for)f(the)g(n)m(um)m(b)s(er)h(of)f(times)f +(the)h(curren)m(t)i(ev)m(en)m(t)g(con\014guration)d(failed)g(in)g(the) +472 3015 y(generation)39 b(mac)m(hinery)-8 b(.)62 b(F)-8 +b(or)38 b(accepted)j(ev)m(en)m(ts)g(this)e(is)f(alw)m(a)m(ys)i(0,)g +(but)f(the)g(coun)m(ter)472 3123 y(can)k(b)s(e)f(used)h(inside)f +Fq(PYUPEV)h Fw(to)f(c)m(hec)m(k)j(on)d(anomalous)e(o)s(ccurrences.)74 +b(F)-8 b(or)41 b(further)472 3232 y(details,)32 b(see)i(end)f(of)f +(section)h(9.5.)0 3340 y Fq(MSTI\(61\))53 b(:)48 b Fw(status)31 +b(\015ag)e(set)i(when)g(ev)m(en)m(ts)h(are)e(generated.)43 +b(It)30 b(is)g(only)f(of)g(in)m(terest)i(for)e(runs)i(with)472 +3448 y(v)-5 b(ariable)31 b(energies,)i Fq(MSTP\(171\)=1)p +Fw(,)j(with)c(the)h(option)f Fq(MSTP\(172\)=2)p Fw(.)236 +3557 y Fq(=)52 b(0)f(:)217 b Fw(an)32 b(ev)m(en)m(t)j(has)e(b)s(een)g +(generated.)236 3665 y Fq(=)52 b(1)f(:)217 b Fw(no)36 +b(ev)m(en)m(t)j(w)m(as)e(generated,)i(either)e(b)s(ecause)h(the)f(c.m.) +55 b(energy)38 b(w)m(as)g(to)s(o)e(lo)m(w)g(or)709 3774 +y(b)s(ecause)c(the)f(Mon)m(te)h(Carlo)e(phase)i(space)g(p)s(oin)m(t)e +(selection)g(mac)m(hinery)h(rejected)709 3882 y(the)i(trial)d(p)s(oin)m +(t.)43 b(A)32 b(new)i(energy)f(is)g(to)f(b)s(e)h(pic)m(k)m(ed)g(b)m(y)h +(the)f(user.)0 4044 y Fq(PARI\(1\))53 b(:)48 b Fw(total)e(in)m +(tegrated)h(cross)i(section)e(for)g(the)i(pro)s(cesses)g(under)g(study) +-8 b(,)52 b(in)47 b(m)m(b.)88 b(This)472 4153 y(n)m(um)m(b)s(er)26 +b(is)e(obtained)h(as)g(a)g(b)m(y-pro)s(duct)g(of)g(the)g(selection)g +(of)g(hard-pro)s(cess)g(kinematics,)472 4261 y(and)f(is)f(th)m(us)i +(kno)m(wn)f(with)g(b)s(etter)f(accuracy)i(when)g(more)e(ev)m(en)m(ts)i +(ha)m(v)m(e)g(b)s(een)g(generated.)472 4369 y(The)34 +b(v)-5 b(alue)32 b(stored)h(here)h(is)e(based)h(on)g(all)d(ev)m(en)m +(ts)35 b(un)m(til)c(the)i(latest)f(one)h(generated.)0 +4478 y Fq(PARI\(2\))53 b(:)48 b Fw(is)34 b(the)i(ratio)d +Fq(PARI\(1\)/MSTI\(5\))p Fw(,)40 b(i.e.)51 b(the)35 b(ratio)f(of)h +(total)e(in)m(tegrated)i(cross)h(section)472 4586 y(and)46 +b(n)m(um)m(b)s(er)h(of)e(ev)m(en)m(ts)j(generated.)84 +b(Histograms)45 b(\014lled)g(with)g(unit)g(ev)m(en)m(t)j(w)m(eigh)m(t) +472 4694 y(ha)m(v)m(e)f(to)f(b)s(e)f(m)m(ultiplied)e(b)m(y)j(this)f +(factor,)k(at)c(the)h(end)g(of)f(the)h(run,)j(to)d(con)m(v)m(ert)h(re-) +472 4803 y(sults)36 b(to)g(m)m(b.)52 b(F)-8 b(or)35 b +Fq(MSTP\(142\)=1)p Fw(,)40 b Fq(MSTI\(5\))d Fw(is)f(replaced)g(b)m(y)g +(the)h(sum)e(of)42 b Fq(PARI\(10\))472 4911 y Fw(v)-5 +b(alues.)64 b(Histograms)37 b(are)i(then)h(\014lled)e(with)h(w)m(eigh)m +(t)h Fq(PARI\(10\))h Fw(for)d(eac)m(h)i(ev)m(en)m(t)h(and)472 +5019 y(m)m(ultiplied)d(b)m(y)k Fq(PARI\(2\))g Fw(at)e(the)h(end.)68 +b(In)40 b(runs)h(with)f(the)h(v)-5 b(ariable-energy)39 +b(option,)472 5128 y Fq(MSTP\(171\)=1)i Fw(and)d Fq(MSTP\(172\)=2)p +Fw(,)43 b(only)37 b(those)i(ev)m(en)m(ts)h(that)e(surviv)m(e)h(\(i.e.) +60 b(that)38 b(do)472 5236 y(not)33 b(ha)m(v)m(e)h Fq(MSTI\(61\)=1)p +Fw(\))h(are)d(coun)m(ted.)45 b(calls.)0 5344 y Fq(PARI\(9\))53 +b(:)48 b Fw(is)36 b(w)m(eigh)m(t)h Fq(WTXS)h Fw(returned)g(from)e +Fq(PYEVWT)i Fw(call)e(when)i Fq(MSTP\(142\))p Fn(\025)g +Fw(1,)f(otherwise)h(is)472 5453 y(1.)0 5561 y Fq(PARI\(10\))53 +b(:)48 b Fw(is)37 b(comp)s(ensating)g(w)m(eigh)m(t)h +Fq(1./WTXS)h Fw(that)e(should)h(b)s(e)g(asso)s(ciated)f(to)g(ev)m(en)m +(ts)j(when)1817 5953 y(166)p eop +%%Page: 167 173 +167 172 bop 472 -18 a Fq(MSTP\(142\)=1)p Fw(,)36 b(else)d(is)f(1.)0 +90 y Fq(PARI\(11\))53 b(:)48 b Fj(E)632 105 y Fl(cm)726 +90 y Fw(,)33 b(i.e.)43 b(total)31 b(c.m.)43 b(energy)-8 +b(.)0 198 y Fq(PARI\(12\))53 b(:)48 b Fj(s)p Fw(,)32 +b(i.e.)43 b(squared)34 b(total)d(c.m.)44 b(energy)-8 +b(.)0 318 y Fq(PARI\(13\))53 b(:)66 b Fw(^)-67 b Fj(m)28 +b Fw(=)776 234 y Fn(p)p 859 234 46 4 v 863 318 a Fw(^)-53 +b Fj(s)p Fw(,)33 b(i.e.)43 b(mass)33 b(of)f(the)h(hard-scattering)f +(subsystem.)0 427 y Fq(PARI\(14\))53 b(:)f Fw(^)-53 b +Fj(s)32 b Fw(of)g(the)h(hard)g(subpro)s(cess)i(\(2)27 +b Fn(!)g Fw(2)33 b(or)f(2)27 b Fn(!)h Fw(1\).)0 547 y +Fq(PARI\(15\))53 b(:)561 529 y Fw(^)560 547 y Fj(t)33 +b Fw(of)f(the)h(hard)f(subpro)s(cess)j(\(2)27 b Fn(!)h +Fw(2)k(or)g(2)c Fn(!)f Fw(1)g Fn(!)h Fw(2\).)0 656 y +Fq(PARI\(16\))53 b(:)h Fw(^)-55 b Fj(u)32 b Fw(of)g(the)h(hard)g +(subpro)s(cess)h(\(2)28 b Fn(!)f Fw(2)32 b(or)h(2)27 +b Fn(!)g Fw(1)h Fn(!)f Fw(2\).)0 764 y Fq(PARI\(17\))53 +b(:)j Fw(^)-57 b Fj(p)609 779 y Fk(?)695 764 y Fw(of)27 +b(the)h(hard)g(subpro)s(cess)h(\(2)f Fn(!)f Fw(2)g(or)h(2)f +Fn(!)g Fw(1)h Fn(!)f Fw(2\),)h(ev)-5 b(aluated)28 b(in)e(the)i(rest)g +(frame)472 872 y(of)33 b(the)g(hard)f(in)m(teraction.)0 +981 y Fq(PARI\(18\))53 b(:)j Fw(^)-57 b Fj(p)609 945 +y Fl(2)609 1005 y Fk(?)700 981 y Fw(of)33 b(the)g(hard)f(subpro)s +(cess;)j(see)f Fq(PARI\(17\))p Fw(.)0 1089 y Fq(PARI\(19\))53 +b(:)66 b Fw(^)-67 b Fj(m)645 1053 y Fk(0)669 1089 y Fw(,)44 +b(the)f(mass)f(of)g(the)g(complete)g(three-)g(or)g(four-b)s(o)s(dy)g +(\014nal)f(state)i(in)e(2)j Fn(!)g Fw(3)e(or)472 1198 +y(2)28 b Fn(!)f Fw(4)32 b(pro)s(cesses)i(\(while)49 b(^)-67 +b Fj(m)p Fw(,)32 b(giv)m(en)h(in)e Fq(PARI\(13\))p Fw(,)j(here)f +(corresp)s(onds)g(to)f(the)g(one-)g(or)472 1306 y(t)m(w)m(o-b)s(o)s(dy) +h(cen)m(tral)g(system\).)44 b(Kinematically)j(^)-67 b +Fj(m)28 b Fn(\024)47 b Fw(^)-68 b Fj(m)2554 1270 y Fk(0)2606 +1306 y Fn(\024)28 b Fj(E)2783 1321 y Fl(cm)2877 1306 +y Fw(.)0 1414 y Fq(PARI\(20\))53 b(:)f Fw(^)-53 b Fj(s)606 +1378 y Fk(0)657 1414 y Fw(=)46 b(^)-68 b Fj(m)845 1378 +y Fk(0)p Fl(2)904 1414 y Fw(;)33 b(see)h Fq(PARI\(19\))p +Fw(.)0 1523 y Fq(PARI\(21\))53 b(:)48 b Fj(Q)60 b Fw(of)f(the)h +(hard-scattering)f(subpro)s(cess.)127 b(The)61 b(exact)g(de\014nition)d +(is)i(pro)s(cess-)472 1631 y(dep)s(enden)m(t,)35 b(see)f +Fq(MSTP\(32\))p Fw(.)0 1739 y Fq(PARI\(22\))53 b(:)48 +b Fj(Q)637 1703 y Fl(2)709 1739 y Fw(of)32 b(the)h(hard-scattering)f +(subpro)s(cess;)j(see)f Fq(PARI\(21\))p Fw(.)0 1848 y +Fq(PARI\(23\))53 b(:)48 b Fj(Q)24 b Fw(of)f(the)h(outer)g +(hard-scattering)f(subpro)s(cess.)43 b(Agrees)24 b(with)g +Fq(PARI\(21\))h Fw(for)f(a)f(2)k Fn(!)h Fw(1)472 1956 +y(or)35 b(2)d Fn(!)f Fw(2)k(pro)s(cess.)52 b(F)-8 b(or)34 +b(a)h(2)c Fn(!)h Fw(3)i(or)h(2)d Fn(!)f Fw(4)k(W)q Fj(=)p +Fw(Z)g(fusion)f(pro)s(cess,)j(it)d(is)g(set)i(b)m(y)g(the)472 +2064 y(W)q Fj(=)p Fw(Z)d(mass)f(scale,)h(and)g(for)f(subpro)s(cesses)j +(121)d(and)h(122)f(b)m(y)h(the)g(hea)m(vy-quark)i(mass.)0 +2173 y Fq(PARI\(24\))53 b(:)48 b Fj(Q)637 2136 y Fl(2)709 +2173 y Fw(of)32 b(the)h(outer)g(hard-scattering)f(subpro)s(cess;)j(see) +e Fq(PARI\(23\))p Fw(.)0 2281 y Fq(PARI\(25\))53 b(:)48 +b Fj(Q)24 b Fw(scale)g(used)h(as)f(maxim)m(um)e(virtualit)m(y)g(in)i +(parton)f(sho)m(w)m(ers.)43 b(Is)25 b(equal)f(to)f Fq(PARI\(23\))p +Fw(,)472 2389 y(except)35 b(for)d(deep-inelastic-scattering)f(pro)s +(cesses)j(when)g Fq(MSTP\(22\))p Fn(\025)c Fw(1.)0 2498 +y Fq(PARI\(26\))53 b(:)48 b Fj(Q)637 2461 y Fl(2)709 +2498 y Fw(scale)33 b(in)f(parton)g(sho)m(w)m(ers;)j(see)e +Fq(PARI\(25\))p Fw(.)0 2606 y Fq(PARI\(31\),)54 b(PARI\(32\))f(:)48 +b Fw(the)28 b(momen)m(tum)f(fractions)g Fj(x)i Fw(of)e(the)i +(initial-state)24 b(parton-sho)m(w)m(er)30 b(ini-)472 +2714 y(tiators)i(on)g(side)h(1)f(and)h(2,)f(resp)s(ectiv)m(ely)-8 +b(.)0 2823 y Fq(PARI\(33\),)54 b(PARI\(34\))f(:)48 b +Fw(the)e(momen)m(tum)f(fractions)g Fj(x)i Fw(tak)m(en)g(b)m(y)g(the)g +(partons)f(at)g(the)g(hard)472 2931 y(in)m(teraction,)32 +b(as)h(used)h(e.g.)43 b(in)32 b(the)h(parton-distribution)d(functions.) +0 3039 y Fq(PARI\(35\))53 b(:)48 b Fw(F)-8 b(eynman-)p +Fj(x)p Fw(,)32 b Fj(x)1151 3054 y Fl(F)1230 3039 y Fw(=)27 +b Fj(x)1388 3054 y Fl(1)1450 3039 y Fn(\000)c Fj(x)1605 +3054 y Fl(2)1672 3039 y Fw(=)p Fq(PARI\(33\))p Fn(\000)p +Fq(PARI\(34\))p Fw(.)0 3148 y Fq(PARI\(36\))53 b(:)48 +b Fj(\034)39 b Fw(=)32 b(^)-53 b Fj(s=s)27 b Fw(=)h Fj(x)1072 +3163 y Fl(1)1128 3148 y Fj(x)1183 3163 y Fl(2)1251 3148 +y Fw(=)p Fq(PARI\(33\))p Fn(\002)p Fq(PARI\(34\))p Fw(.)0 +3256 y Fq(PARI\(37\))53 b(:)48 b Fj(y)42 b Fw(=)d(\(1)p +Fj(=)p Fw(2\))17 b(ln)n(\()p Fj(x)1178 3271 y Fl(1)1218 +3256 y Fj(=x)1322 3271 y Fl(2)1361 3256 y Fw(\),)41 b(i.e.)63 +b(rapidit)m(y)38 b(of)g(the)i(hard-in)m(teraction)e(subsystem)j(in)d +(the)472 3364 y(c.m.)44 b(frame)31 b(of)h(the)h(ev)m(en)m(t)i(as)e(a)f +(whole.)0 3473 y Fq(PARI\(38\))53 b(:)48 b Fj(\034)613 +3437 y Fk(0)664 3473 y Fw(=)32 b(^)-53 b Fj(s)814 3437 +y Fk(0)837 3473 y Fj(=s)28 b Fw(=)p Fq(PARI\(20\)/PARI\(12\))p +Fw(.)0 3581 y Fq(PARI\(39\),)54 b(PARI\(40\))f(:)48 b +Fw(the)33 b(primordial)28 b Fj(k)1768 3596 y Fk(?)1860 +3581 y Fw(v)-5 b(alues)32 b(selected)i(in)e(the)h(t)m(w)m(o)g(b)s(eam)f +(remnan)m(ts.)0 3704 y Fq(PARI\(41\))53 b(:)48 b Fw(cos)715 +3678 y(^)707 3704 y Fj(\022)s Fw(,)32 b(where)1102 3678 +y(^)1094 3704 y Fj(\022)j Fw(is)c(the)g(scattering)g(angle)g(of)f(a)h +(2)d Fn(!)f Fw(2)k(\(or)g(2)d Fn(!)f Fw(1)g Fn(!)h Fw(2\))i(in)m +(teraction,)472 3813 y(de\014ned)k(in)e(the)h(rest)g(frame)f(of)g(the)h +(hard-scattering)f(subsystem.)0 3921 y Fq(PARI\(42\))53 +b(:)48 b Fj(x)615 3936 y Fk(?)674 3921 y Fw(,)26 b(i.e.)40 +b(scaled)23 b(transv)m(erse)j(momen)m(tum)c(of)h(the)g(hard-scattering) +g(subpro)s(cess,)28 b Fj(x)3617 3936 y Fk(?)3704 3921 +y Fw(=)472 4029 y(2)8 b(^)-57 b Fj(p)570 4044 y Fk(?)629 +4029 y Fj(=E)750 4044 y Fl(cm)845 4029 y Fw(.)0 4138 +y Fq(PARI\(43\),)54 b(PARI\(44\))f(:)48 b Fj(x)1128 4153 +y Fh(L)p Fl(3)1256 4138 y Fw(and)40 b Fj(x)1508 4153 +y Fh(L)p Fl(4)1596 4138 y Fw(,)i(i.e.)67 b(longitudinal)37 +b(momen)m(tum)h(fractions)i(of)g(the)h(t)m(w)m(o)472 +4246 y(scattered)d(partons,)g(in)d(the)i(range)f Fn(\000)p +Fw(1)e Fj(<)g(x)2162 4261 y Fl(L)2245 4246 y Fj(<)g Fw(1,)j(in)f(the)g +(c.m.)55 b(frame)35 b(of)h(the)h(ev)m(en)m(t)472 4354 +y(as)c(a)g(whole.)0 4463 y Fq(PARI\(45\),)54 b(PARI\(46\))f(:)48 +b Fj(x)1128 4478 y Fl(3)1201 4463 y Fw(and)34 b Fj(x)1447 +4478 y Fl(4)1487 4463 y Fw(,)g(i.e.)46 b(scaled)34 b(energy)h +(fractions)e(of)g(the)h(t)m(w)m(o)g(scattered)h(par-)472 +4571 y(tons,)e(in)f(the)h(c.m.)43 b(frame)32 b(of)g(the)h(ev)m(en)m(t)i +(as)d(a)h(whole.)0 4679 y Fq(PARI\(47\),)54 b(PARI\(48\))f(:)48 +b Fj(y)1125 4643 y Fk(\003)1121 4704 y Fl(3)1191 4679 +y Fw(and)29 b Fj(y)1429 4643 y Fk(\003)1425 4704 y Fl(4)1467 +4679 y Fw(,)h(i.e.)41 b(rapidities)27 b(of)g(the)i(t)m(w)m(o)g +(scattered)h(partons)e(in)g(the)h(c.m.)472 4788 y(frame)j(of)g(the)h +(ev)m(en)m(t)i(as)d(a)h(whole.)0 4896 y Fq(PARI\(49\),)54 +b(PARI\(50\))f(:)48 b Fj(\021)1125 4860 y Fk(\003)1121 +4921 y Fl(3)1199 4896 y Fw(and)36 b Fj(\021)1444 4860 +y Fk(\003)1440 4921 y Fl(4)1483 4896 y Fw(,)h(i.e.)52 +b(pseudorapidities)35 b(of)g(the)h(t)m(w)m(o)g(scattered)h(partons)f +(in)472 5004 y(the)d(c.m.)44 b(frame)31 b(of)h(the)h(ev)m(en)m(t)i(as)e +(a)f(whole.)0 5113 y Fq(PARI\(51\),)54 b(PARI\(52\))f(:)48 +b Fw(cos)17 b Fj(\022)1268 5077 y Fk(\003)1265 5137 y +Fl(3)1355 5113 y Fw(and)49 b(cos)17 b Fj(\022)1756 5077 +y Fk(\003)1753 5137 y Fl(4)1796 5113 y Fw(,)52 b(i.e.)89 +b(cosines)49 b(of)f(the)g(p)s(olar)f(angles)h(of)f(the)i(t)m(w)m(o)472 +5221 y(scattered)34 b(partons)f(in)f(the)h(c.m.)43 b(frame)32 +b(of)g(the)h(ev)m(en)m(t)h(as)f(a)f(whole.)0 5329 y Fq(PARI\(53\),)54 +b(PARI\(54\))f(:)48 b Fj(\022)1121 5293 y Fk(\003)1118 +5354 y Fl(3)1190 5329 y Fw(and)30 b Fj(\022)1425 5293 +y Fk(\003)1422 5354 y Fl(4)1464 5329 y Fw(,)h(i.e.)42 +b(p)s(olar)28 b(angles)h(of)h(the)g(t)m(w)m(o)g(scattered)h(partons,)g +(de\014ned)472 5438 y(in)h(the)h(range)g(0)27 b Fj(<)h(\022)1248 +5402 y Fk(\003)1315 5438 y Fj(<)g(\031)t Fw(,)k(in)g(the)h(c.m.)43 +b(frame)32 b(of)g(the)h(ev)m(en)m(t)h(as)f(a)f(whole.)0 +5546 y Fq(PARI\(55\),)54 b(PARI\(56\))f(:)48 b Fw(azim)m(uthal)25 +b(angles)i Fj(\036)1866 5510 y Fk(\003)1866 5571 y Fl(3)1932 +5546 y Fw(and)g Fj(\036)2174 5510 y Fk(\003)2174 5571 +y Fl(4)2241 5546 y Fw(of)f(the)i(t)m(w)m(o)g(scattered)g(partons,)h +(de\014ned)472 5654 y(in)j(the)h(range)g Fn(\000)p Fj(\031)f(<)27 +b(\036)1345 5618 y Fk(\003)1412 5654 y Fj(<)h(\031)t +Fw(,)k(in)g(the)h(c.m.)43 b(frame)32 b(of)g(the)h(ev)m(en)m(t)i(as)d(a) +h(whole.)1817 5953 y(167)p eop +%%Page: 168 174 +168 173 bop 0 -18 a Fq(PARI\(61\))53 b(:)48 b Fw(m)m(ultiple)42 +b(in)m(teraction)i(enhancemen)m(t)i(factor)e(for)g(curren)m(t)i(ev)m +(en)m(t.)82 b(A)44 b(large)g(v)-5 b(alue)472 90 y(corresp)s(onds)34 +b(to)f(a)f(cen)m(tral)g(collision)e(and)i(a)h(small)d(v)-5 +b(alue)32 b(to)g(a)h(p)s(eripheral)e(one.)0 198 y Fq(PARI\(65\))53 +b(:)48 b Fw(sum)31 b(of)f(the)h(transv)m(erse)i(momen)m(ta)d(of)h +(partons)g(generated)g(at)g(the)g(hardest)h(in)m(terac-)472 +307 y(tion)d(of)g(the)g(ev)m(en)m(t,)j(excluding)d(initial-)c(and)30 +b(\014nal-state)e(radiation,)g(i.e.)42 b(2)p Fn(\002)p +Fq(PARI\(17\))p Fw(.)0 415 y Fq(PARI\(66\))53 b(:)48 +b Fw(sum)27 b(of)g(the)h(transv)m(erse)i(momen)m(ta)c(of)h(all)e +(partons)j(generated)g(at)f(the)h(hardest)g(in)m(ter-)472 +523 y(action,)39 b(including)d(initial-)e(and)k(\014nal-state)f +(radiation,)g(resonance)i(deca)m(y)h(pro)s(ducts,)472 +632 y(and)33 b(primordial)c Fj(k)1190 647 y Fk(?)1249 +632 y Fw(.)0 740 y Fq(PARI\(67\))53 b(:)48 b Fw(sum)22 +b(of)g(transv)m(erse)i(momen)m(ta)d(of)g(partons)i(generated)g(at)f +(hard)g(in)m(teractions,)h(exclud-)472 848 y(ing)32 b(the)h(hardest)g +(one)g(\(see)g Fq(PARI\(65\))p Fw(\),)i(and)d(also)g(excluding)g +(initial-)c(and)k(\014nal-state)472 957 y(radiation.)42 +b(Is)33 b(non-v)-5 b(anishing)31 b(only)h(in)g(the)h(m)m(ultiple-in)m +(teraction)28 b(scenario.)0 1065 y Fq(PARI\(68\))53 b(:)48 +b Fw(sum)42 b(of)h(transv)m(erse)h(momen)m(ta)e(of)g(all)f(partons)i +(generated)g(at)f(hard)h(in)m(teractions,)472 1173 y(excluding)27 +b(the)g(hardest)h(one)f(\(see)h Fq(PARI\(66\))p Fw(\),)i(but)e +(including)d(initial-)d(and)27 b(\014nal-state)472 1282 +y(radiation.)42 b(Is)33 b(non-v)-5 b(anishing)31 b(only)h(in)g(the)h(m) +m(ultiple-in)m(teraction)28 b(scenario.)0 1390 y Fq(PARI\(69\))53 +b(:)48 b Fw(sum)e(of)f(transv)m(erse)j(momen)m(ta)d(of)g(all)f(partons) +i(generated)h(in)e(hard)h(in)m(teractions)472 1498 y(\()p +Fq(PARI\(66\))54 b(+)d(PARI\(68\))p Fw(\))35 b(and,)e(additionally)-8 +b(,)29 b(of)j(all)e(b)s(eam)i(remnan)m(t)h(partons.)0 +1607 y Fq(PARI\(71\),)54 b(PARI\(72\))f(:)48 b Fw(sum)31 +b(of)f(the)i(momen)m(tum)d(fractions)i Fj(x)g Fw(tak)m(en)h(b)m(y)g +(initial-state)27 b(parton-)472 1715 y(sho)m(w)m(er)49 +b(initiators)44 b(on)j(side)f(1)h(and)g(and)f(side)h(2,)j(excluding)d +(those)g(of)f(the)i(hardest)472 1823 y(in)m(teraction.)43 +b(Is)33 b(non-v)-5 b(anishing)31 b(only)h(in)g(the)h(m)m(ultiple-in)m +(teraction)28 b(scenario.)0 1932 y Fq(PARI\(73\),)54 +b(PARI\(74\))f(:)48 b Fw(sum)36 b(of)g(the)i(momen)m(tum)d(fractions)h +Fj(x)h Fw(tak)m(en)h(b)m(y)f(the)h(partons)f(at)f(the)472 +2040 y(hard)24 b(in)m(teraction)e(on)h(side)g(1)g(and)g(side)h(2,)g +(excluding)f(those)h(of)f(the)g(hardest)h(in)m(teraction.)472 +2148 y(Is)34 b(non-v)-5 b(anishing)31 b(only)h(in)g(the)h(m)m +(ultiple-in)m(teraction)28 b(scenario.)0 2257 y Fq(PARI\(75\),)54 +b(PARI\(76\))f(:)48 b Fw(the)30 b Fj(x)h Fw(v)-5 b(alue)30 +b(of)f(a)h(photon)h(that)f(branc)m(hes)i(in)m(to)d(quarks)j(or)e +(gluons,)g(i.e.)472 2365 y Fj(x)j Fw(at)g(in)m(terface)f(b)s(et)m(w)m +(een)j(initial-state)29 b(QED)j(and)h(QCD)f(cascades.)0 +2473 y Fq(PARI\(77\),)54 b(PARI\(78\))f(:)48 b Fw(the)34 +b Fj(\037)f Fw(v)-5 b(alues)34 b(selected)h(for)e(b)s(eam)g(remnan)m +(ts)h(that)g(are)f(split)g(in)m(to)g(t)m(w)m(o)472 2582 +y(ob)5 b(jects,)34 b(describing)d(ho)m(w)i(the)f(energy)h(is)f(shared)h +(\(see)g Fq(MSTP\(92\))h Fw(and)e Fq(MSTP\(94\))p Fw(\);)i(is)472 +2690 y(v)-5 b(anishing)32 b(if)f(no)i(splitting)d(is)i(needed.)0 +2798 y Fq(PARI\(81\))53 b(:)48 b Fw(size)30 b(of)f(the)i(threshold)f +(factor)f(\(enhancemen)m(t)i(or)f(suppression\))h(in)e(the)h(latest)g +(ev)m(en)m(t)472 2907 y(with)j(hea)m(vy-\015a)m(v)m(our)h(pro)s +(duction;)e(see)i Fq(MSTP\(35\))p Fw(.)0 3015 y Fq(PARI\(91\))53 +b(:)48 b Fw(a)m(v)m(erage)40 b(m)m(ultiplicit)m(y)p 1446 +2962 59 4 v 36 w Fj(n)f Fw(of)g(pile-up)f(ev)m(en)m(ts,)43 +b(see)d Fq(MSTP\(133\))p Fw(.)66 b(Only)39 b(relev)-5 +b(an)m(t)39 b(for)472 3123 y Fq(MSTP\(133\)=)d Fw(1)c(or)g(2.)0 +3232 y Fq(PARI\(92\))53 b(:)48 b Fw(a)m(v)m(erage)c(m)m(ultiplicit)m(y) +39 b Fn(h)p Fj(n)p Fn(i)k Fw(of)g(pile-up)e(ev)m(en)m(ts)46 +b(as)d(actually)f(sim)m(ulated,)i(i.e.)75 b(with)472 +3340 y(m)m(ultiplicit)m(y)22 b(=)i(0)h(ev)m(en)m(ts)i(remo)m(v)m(ed)e +(and)g(the)h(high-end)e(tail)e(truncated.)42 b(Only)25 +b(relev)-5 b(an)m(t)472 3448 y(for)32 b Fq(MSTP\(133\)=)k +Fw(1)c(or)g(2.)0 3557 y Fq(PARI\(93\))53 b(:)48 b Fw(for)22 +b Fq(MSTP\(133\)=1)j Fw(it)c(is)h(the)g(probabilit)m(y)f(that)h(a)g(b)s +(eam)f(crossing)h(will)e(pro)s(duce)j(a)f(pile-)472 3665 +y(up)33 b(ev)m(en)m(t)h(at)d(all,)f(i.e.)43 b(that)32 +b(there)g(will)e(b)s(e)i(at)g(least)f(one)i(hadron{hadron)e(in)m +(teraction;)472 3774 y(for)36 b Fq(MSTP\(133\)=2)j Fw(the)e(probabilit) +m(y)d(that)i(a)g(b)s(eam)g(crossing)g(will)e(pro)s(duce)j(a)f(pile-up) +472 3882 y(ev)m(en)m(t)f(with)d(one)h(hadron{hadron)f(in)m(teraction)g +(of)g(the)h(desired)g(rare)g(t)m(yp)s(e.)0 4156 y Fp(9.5)135 +b(Ho)l(w)46 b(to)f(include)g(external)h(pro)t(cesses)g(in)f(PYTHIA)0 +4328 y Fw(Despite)f(a)f(large)g(rep)s(ertory)h(of)g(pro)s(cesses)i(in)d +Fm(Pythia)p Fw(,)k(the)d(n)m(um)m(b)s(er)g(of)g(missing)e(ones)i +(clearly)0 4437 y(is)g(ev)m(en)i(larger,)f(and)g(with)f(time)e(this)i +(discrepancy)i(is)d(lik)m(ely)g(to)h(increase.)79 b(There)46 +b(are)e(sev)m(eral)0 4545 y(reasons)30 b(wh)m(y)h(it)e(is)g(not)g +(practicable)g(to)g(imagine)e(a)j Fm(Pythia)f Fw(whic)m(h)h(has)g(`ev)m +(erything'.)44 b(One)30 b(is)f(the)0 4653 y(amoun)m(t)j(of)h(time)e(it) +h(tak)m(es)i(to)e(implemen)m(t)f(a)i(pro)s(cess)h(for)e(the)h(single)f +Fm(Pythia)h Fw(author,)g(compared)0 4762 y(with)k(the)g(rate)g(of)g +(new)h(cross)g(section)f(results)h(pro)s(duced)g(b)m(y)g(the)f(rather)h +(larger)e(matrix-elemen)m(t)0 4870 y(calculations)46 +b(comm)m(unit)m(y)-8 b(.)88 b(Another)48 b(is)f(the)h(length)f(of)h +(curren)m(tly)g(pro)s(duced)h(matrix-elemen)m(t)0 4979 +y(expressions,)27 b(whic)m(h)e(w)m(ould)e(mak)m(e)h(the)g(program)e(v)m +(ery)k(bulky)-8 b(.)40 b(A)24 b(third)f(argumen)m(t)g(is)h(that,)h +(whereas)0 5087 y(the)36 b(phase)h(space)h(of)d(2)f Fn(!)f +Fw(1)j(and)g(2)d Fn(!)g Fw(2)j(pro)s(cesses)i(can)e(b)s(e)h(set)f(up)h +(once)f(and)h(for)e(all)f(according)0 5195 y(to)f(a)g(reasonably)h +(\015exible)f(mac)m(hinery)-8 b(,)34 b(pro)s(cesses)h(with)e(more)g +(\014nal-state)g(particles)f(are)i(less)f(easy)0 5304 +y(to)k(generate.)60 b(T)-8 b(o)37 b(ac)m(hiev)m(e)i(a)f(reasonable)f +(e\016ciency)-8 b(,)40 b(it)d(is)g(necessary)j(to)e(tailor)d(the)j +(phase-space)0 5412 y(selection)29 b(pro)s(cedure)g(to)g(the)g +(dynamics)g(of)g(the)g(giv)m(en)g(pro)s(cess,)i(and)e(to)g(the)g +(desired)g(exp)s(erimen)m(tal)0 5520 y(cuts.)146 5629 +y(If)36 b(the)g(desired)h(subpro)s(cess)h(is)d(missing,)g(it)g(can)i(b) +s(e)f(included)f(in)m(to)g Fm(Pythia)h Fw(as)g(an)g(`external')1817 +5953 y(168)p eop +%%Page: 169 175 +169 174 bop 0 -18 a Fw(subpro)s(cess.)44 b(In)29 b(this)g(section)g(w)m +(e)g(will)e(describ)s(e)i(ho)m(w)g(it)f(is)g(p)s(ossible)g(to)h(sp)s +(ecify)g(the)g(partonic)f(state)0 90 y(of)42 b(some)g(hard-scattering)g +(pro)s(cess)i(in)d(an)i(in)m(terface)f(common)f(blo)s(c)m(k.)73 +b Fm(Pythia)43 b Fw(will)d(read)j(this)0 198 y(common)35 +b(blo)s(c)m(k,)j(and)f(add)g(initial-)c(and)k(\014nal-state)f(sho)m(w)m +(ers,)k(b)s(eam)c(remnan)m(ts)h(and)g(underlying)0 307 +y(ev)m(en)m(ts,)g(fragmen)m(tation)31 b(and)j(deca)m(ys,)i(to)e(build)e +(up)i(an)g(ev)m(en)m(t)i(in)d(as)h(m)m(uc)m(h)g(detail)e(as)i(an)g +(ordinary)0 415 y Fm(Pythia)41 b Fw(one.)68 b(Y)-8 b(ou)41 +b(ma)m(y)g(also)f(use)h Fm(Pythia)g Fw(to)g(mix)f(ev)m(en)m(ts)j(of)d +(di\013eren)m(t)h(kinds,)i(and)e(to)g(k)m(eep)0 523 y(trac)m(k)28 +b(of)f(cross)i(section)e(statistics.)41 b(Y)-8 b(ou)28 +b(ha)m(v)m(e)h(to)e(pro)m(vide)g(the)h(matrix)e(elemen)m(ts,)j(the)f +(phase-space)0 632 y(generator,)33 b(and)f(the)h(storage)g(of)f(ev)m +(en)m(t)i(information)c(in)i(the)h(common)e(blo)s(c)m(k.)146 +740 y(First)j(a)g(minor)f(commen)m(t,)i(ho)m(w)m(ev)m(er.)52 +b(Some)35 b(pro)s(cesses)h(ma)m(y)f(b)s(e)g(seen)h(just)f(as)g(trivial) +d(mo)s(di\014-)0 848 y(cations)k(of)g(already)g(existing)f(ones.)56 +b(F)-8 b(or)35 b(instance,)j(y)m(ou)f(migh)m(t)e(w)m(an)m(t)i(to)f(add) +g(some)g(extra)h(term,)0 957 y(corresp)s(onding)27 b(to)h(con)m(tact)g +(in)m(teractions,)g(to)f(the)h(matrix)e(elemen)m(ts)h(of)g(a)h +Fm(Pythia)f Fw(2)h Fn(!)f Fw(2)g(pro)s(cess.)0 1065 y(In)35 +b(that)f(case)i(it)d(is)h(not)h(necessary)i(to)d(go)g(through)g(the)h +(mac)m(hinery)g(b)s(elo)m(w,)g(but)f(instead)h(y)m(ou)g(can)0 +1173 y(use)42 b(the)f Fq(PYEVWT)h Fw(routine)e(to)h(in)m(tro)s(duce)f +(an)h(additional)d(w)m(eigh)m(t)j(for)f(the)h(ev)m(en)m(t,)k(de\014ned) +d(as)f(the)0 1282 y(ratio)35 b(of)g(the)i(mo)s(di\014ed)e(to)g(the)i +(unmo)s(di\014ed)e(di\013eren)m(tial)f(cross)j(sections.)55 +b(If)36 b(y)m(ou)h(use)g(the)g(option)0 1390 y Fq(MSTP\(142\)=2)p +Fw(,)h(this)d(w)m(eigh)m(t)g(is)f(considered)i(as)f(part)g(of)f(the)h +(`true')h(cross)g(section)f(of)f(the)h(pro)s(cess,)0 +1498 y(and)e(the)g(generation)f(is)g(c)m(hanged)h(accordingly)-8 +b(.)146 1607 y(The)34 b(more)e(generic)g(facilit)m(y)f(for)h(including) +f(an)h(external)h(pro)s(cess)h(is)e(a)g(bit)g(more)g(complicated,)0 +1715 y(and)k(in)m(v)m(olv)m(es)g(t)m(w)m(o)h(routines)f(and)g(one)g +(common)e(blo)s(c)m(k.)53 b(All)34 b(names)i(con)m(tain)f +Fq(UP)p Fw(,)i(whic)m(h)f(is)f(short)0 1823 y(for)d(User)h(Pro)s(cess.) +146 1932 y(If)43 b(y)m(ou)h(w)m(an)m(t)f(to)g(include)f(a)g(new)i(pro)s +(cess,)j(\014rst)c(y)m(ou)g(ha)m(v)m(e)h(to)f(pic)m(k)g(an)g(un)m(used) +h(subpro)s(cess)0 2040 y(n)m(um)m(b)s(er)28 b(ISUB)h(\(see)g(tables)f +(in)f(section)i(8.1\).)41 b(F)-8 b(or)27 b(instance,)j(the)e(n)m(um)m +(b)s(ers)h(191{200)e(are)h(curren)m(tly)0 2148 y(un)m(used,)k(so)d +(this)g(migh)m(t)f(b)s(e)i(a)f(logical)d(place)j(to)g(put)h(a)f(new)h +(pro)s(cess.)44 b(This)29 b(n)m(um)m(b)s(er)h(and)f(the)h(`title')0 +2257 y(of)35 b(the)g(pro)s(cess)i(\(plus)e Fq(SIGMAX)p +Fw(,)i(to)e(b)s(e)g(describ)s(ed)h(b)s(elo)m(w\))f(ha)m(v)m(e)i(to)e(b) +s(e)g(giv)m(en)h(in)e(to)h Fm(Pythia)g Fw(in)g(a)0 2365 +y(subroutine)e(call)p 0 2490 1697 9 v 0 2715 9 225 v +79 2630 a Fq(CALL)52 b(PYUPIN\(ISUB,TITLE,SIGMA)q(X\))p +1688 2715 V 0 2723 1697 9 v 0 2909 a Fw(b)s(efore)29 +b(the)g(call)e(to)h Fq(PYINIT)p Fw(.)i(The)g Fq(TITLE)g +Fw(can)f(b)s(e)g(an)m(y)g(c)m(haracter)h(string)e(up)h(to)f(28)g(c)m +(haracters,)j(e.g.)308 3081 y Fq(CALL)52 b(PYUPIN\(191,'g)j(+)c(g)h(->) +g(t)f(+)h(tbar)g(+)f(gamma',SIGMAX\))0 3253 y Fw(The)35 +b(call)e(to)h Fq(PYUPIN)i Fw(tells)d(the)i(program)e(that)h(a)g(pro)s +(cess)i(ISUB)f(exists,)g(but)g(not)f(that)h(y)m(ou)g(w)m(an)m(t)0 +3362 y(to)i(generate)g(it.)56 b(This)37 b(is)f(done,)j(as)e(with)f +(normal)f(pro)s(cesses,)41 b(b)m(y)c(setting)h Fq(MSUB\(ISUB\)=1)i +Fw(b)s(efore)0 3470 y(the)33 b Fq(PYINIT)h Fw(call.)146 +3578 y(Once)e(the)f(ev)m(en)m(t)h(generation)e(c)m(hain)g(has)h(b)s +(een)h(started)f(and)g Fq(PYEVNT)h Fw(is)e(called)f(to)h(generate)i(an) +0 3687 y(ev)m(en)m(t,)h(this)d(routine)g(ma)m(y)g(in)g(its)f(turn)i +(call)e(the)i(routine)f Fq(PYUPEV)p Fw(,)i(whic)m(h)f(is)f(the)g +(routine)g(y)m(ou)h(m)m(ust)0 3795 y(supply)-8 b(,)31 +b(in)f(whic)m(h)h(the)f(next)h(ev)m(en)m(t)i(is)c(selected.)44 +b(\(A)30 b(dumm)m(y)g(cop)m(y)i(of)k Fq(PYUPEV)c Fw(has)f(b)s(een)g +(included)0 3903 y(at)c(the)g(end)h(of)33 b Fm(Pythia)p +Fw(;)c(dep)s(ending)e(on)g(the)g(mac)m(hine)g(y)m(ou)g(ma)m(y)g(ha)m(v) +m(e)h(to)f(commen)m(t)f(out)h(this)f(cop)m(y)0 4012 y(when)34 +b(y)m(ou)f(link)e(y)m(our)j(o)m(wn.\))44 b(The)33 b(call)e(argumen)m +(ts)i(are)p 0 4161 1338 9 v 0 4386 9 225 v 79 4301 a +Fq(CALL)52 b(PYUPEV\(ISUB,SIGEV\))p 1329 4386 V 0 4394 +1338 9 v 0 4586 a Fw(where)33 b Fq(ISUB)g Fw(is)e(giv)m(en)h(b)m(y)h +Fq(PYEVNT)p Fw(,)h(while)d Fq(SIGEV)h Fw(is)g(to)f(b)s(e)h(calculated)f +(\(see)h(b)s(elo)m(w\))g(and)f(returned)0 4694 y(to)36 +b Fq(PYEVNT)p Fw(.)i(If)e(there)h(is)f(only)f(one)i(user-de\014ned)h +(pro)s(cess,)g(then)f(the)g Fq(ISUB)g Fw(input)f(is)g(sup)s +(er\015uous;)0 4803 y(otherwise)d(it)f(is)g(necessary)j(to)d(branc)m(h) +h(to)g(the)g(relev)-5 b(an)m(t)32 b(pro)s(cess.)146 4911 +y(The)43 b Fq(SIGEV)h Fw(v)-5 b(ariable)40 b(is)i(supp)s(osed)i(to)d +(giv)m(e)i(the)f(di\013eren)m(tial)e(cross)k(section)e(ot)g(the)g +(curren)m(t)0 5019 y(ev)m(en)m(t,)53 b(times)46 b(the)h(phase-space)i +(v)m(olume)e(within)f(whic)m(h)h(ev)m(en)m(ts)j(are)d(generated,)k +(expressed)f(in)0 5128 y(millibarns.)36 b(This)23 b(means)f(that,)i(in) +e(the)h(limit)18 b(that)k(man)m(y)h(ev)m(en)m(ts)h(are)f(generated,)i +(the)e(a)m(v)m(erage)g(v)-5 b(alue)0 5236 y(of)34 b Fq(SIGEV)c +Fw(giv)m(es)e(the)h(total)d(cross)j(section)f(of)g(the)g(sim)m(ulated)f +(pro)s(cess.)43 b(The)29 b Fq(SIGMAX)g Fw(v)-5 b(alue,)29 +b(handed)0 5344 y(to)d Fm(Pythia)g Fw(in)g(the)h Fq(PYUPIN)g +Fw(call,)f(is)g(assumed)h(to)f(b)s(e)h(the)f(maxim)m(um)e(v)-5 +b(alue)26 b(that)g Fq(SIGEV)i Fw(will)c(reac)m(h.)0 5453 +y(Ev)m(en)m(ts)39 b(will)c(b)s(e)i(accepted)i(with)d(a)h(probabilit)m +(y)f Fq(SIGEV/SIGMAX)p Fw(,)41 b(i.e.)56 b(the)37 b +(acceptance/rejection)0 5561 y(of)c(ev)m(en)m(ts)j(according)d(to)g +(di\013eren)m(tial)e(cross)k(section)e(is)g(done)h(b)m(y)i +Fq(PYEVNT)p Fw(,)f(not)e(b)m(y)h(the)g(user.)47 b(This)0 +5669 y(means)36 b(that)h(the)f(ev)m(en)m(ts)j(that)d(come)g(out)h(in)e +(the)i(end)g(all)d(ha)m(v)m(e)k(unit)e(w)m(eigh)m(t,)i(i.e.)54 +b(the)37 b(user)g(do)s(es)1817 5953 y(169)p eop +%%Page: 170 176 +170 175 bop 0 -18 a Fw(not)30 b(ha)m(v)m(e)i(to)d(w)m(orry)i(ab)s(out)f +(ev)m(en)m(ts)i(with)e(di\013eren)m(t)h(w)m(eigh)m(ts.)43 +b(It)30 b(also)g(allo)m(ws)f(sev)m(eral)i(subpro)s(cesses)0 +90 y(to)h(b)s(e)h(generated)g(together,)g(in)f(the)h(prop)s(er)g +(mixture.)146 198 y(Of)48 b(course,)53 b(the)48 b(tric)m(ky)h(part)e +(is)h(that)g(the)g(di\013eren)m(tial)e(cross)j(section)f(usually)f(is)h +(strongly)0 307 y(p)s(eak)m(ed)30 b(in)e(a)g(few)h(regions)g(of)f(the)h +(phase)g(space,)i(suc)m(h)f(that)e(the)h(a)m(v)m(erage)h(probabilit)m +(y)d(to)h(accept)i(an)0 415 y(ev)m(en)m(t,)35 b Fn(h)p +Fq(SIGEV)p Fn(i)p Fj(=)p Fq(SIGMAX)g Fw(is)d(small.)42 +b(It)33 b(ma)m(y)g(then)g(b)s(e)g(necessary)i(to)e(\014nd)g(a)g +(suitable)f(set)h(of)g(trans-)0 523 y(formed)41 b(phase-space)i(co)s +(ordinates,)g(for)e(whic)m(h)h(the)f(corresp)s(ondingly)g(transformed)g +(di\013eren)m(tial)0 632 y(cross)34 b(section)e(is)g(b)s(etter)h(b)s +(eha)m(v)m(ed.)146 740 y(T)-8 b(o)33 b(a)m(v)m(oid)g(unclarities,)f +(here)h(is)g(a)f(more)h(formal)d(v)m(ersion)k(of)e(the)h(t)m(w)m(o)h +(ab)s(o)m(v)m(e)g(paragraphs.)44 b(Call)0 848 y(d)p Fj(X)32 +b Fw(the)25 b(di\013eren)m(tial)e(phase)j(space,)h(e.g.)41 +b(for)24 b(a)g(2)k Fn(!)f Fw(2)d(pro)s(cess)i(d)p Fj(X)35 +b Fw(=)28 b(d)p Fj(x)2745 863 y Fl(1)2802 848 y Fw(d)p +Fj(x)2911 863 y Fl(2)2967 848 y Fw(d)3022 830 y(^)3021 +848 y Fj(t)q Fw(,)e(where)g Fj(x)3439 863 y Fl(1)3503 +848 y Fw(and)f Fj(x)3740 863 y Fl(2)0 957 y Fw(are)33 +b(the)h(momen)m(tum)d(fractions)h(carried)h(b)m(y)h(the)f(t)m(w)m(o)h +(incoming)d(partons)i(and)3021 938 y(^)3019 957 y Fj(t)h +Fw(the)f(Mandelstam)0 1065 y(v)-5 b(ariable)25 b(of)i(the)g +(scattering.)41 b(Call)26 b(d)p Fj(\033)t(=)p Fw(d)p +Fj(X)35 b Fw(the)27 b(di\013eren)m(tial)e(cross)j(section)f(of)f(the)i +(pro)s(cess,)h(e.g.)42 b(for)0 1186 y(2)27 b Fn(!)h Fw(2:)40 +b(d)p Fj(\033)t(=)p Fw(d)p Fj(X)c Fw(=)756 1119 y Fg(P)844 +1206 y Fh(ij)921 1186 y Fj(f)969 1201 y Fh(i)997 1186 +y Fw(\()p Fj(x)1090 1201 y Fl(1)1130 1186 y Fj(;)17 b(Q)1251 +1150 y Fl(2)1290 1186 y Fw(\))g Fj(f)1393 1201 y Fh(j)1430 +1186 y Fw(\()p Fj(x)1523 1201 y Fl(2)1562 1186 y Fj(;)g(Q)1683 +1150 y Fl(2)1723 1186 y Fw(\))g(d)5 b(^)-54 b Fj(\033)1887 +1201 y Fh(ij)1948 1186 y Fj(=)p Fw(d)2052 1167 y(^)2051 +1186 y Fj(t)p Fw(,)28 b(i.e.)41 b(the)27 b(pro)s(duct)f(of)h(parton)f +(distributions)0 1294 y(and)31 b(hard-scattering)g(matrix)f(elemen)m +(ts,)i(summed)f(o)m(v)m(er)i(all)c(allo)m(w)m(ed)i(incoming)e(\015a)m +(v)m(ours)j Fj(i)g Fw(and)f Fj(j)6 b Fw(.)0 1402 y(The)37 +b(ph)m(ysical)e(cross)i(section)e(that)h(one)g(then)g(w)m(an)m(ts)h(to) +e(generate)h(is)f Fj(\033)i Fw(=)2871 1331 y Fg(R)2926 +1402 y Fw(\(d)p Fj(\033)t(=)p Fw(d)p Fj(X)8 b Fw(\))17 +b(d)p Fj(X)8 b Fw(,)36 b(where)0 1511 y(the)46 b(in)m(tegral)f(is)g(o)m +(v)m(er)i(the)g(allo)m(w)m(ed)e(phase-space)i(v)m(olume.)84 +b(The)46 b(ev)m(en)m(t)i(generation)e(pro)s(cedure)0 +1619 y(consists)30 b(of)f(selecting)g(an)g Fj(X)37 b +Fw(uniformly)27 b(in)h(d)p Fj(X)38 b Fw(and)29 b(then)h(ev)-5 +b(aluating)27 b(the)j(w)m(eigh)m(t)g(d)p Fj(\033)t(=)p +Fw(d)p Fj(X)37 b Fw(at)29 b(this)0 1727 y(p)s(oin)m(t.)42 +b Fq(SIGEV)34 b Fw(is)d(no)m(w)i(simply)e Fq(SIGEV)p +Fw(=)e(d)p Fj(\033)t(=)p Fw(d)p Fj(X)1891 1656 y Fg(R)1963 +1727 y Fw(d)p Fj(X)8 b Fw(,)32 b(i.e.)43 b(the)32 b(di\013eren)m(tial)f +(cross)h(section)g(times)0 1836 y(the)k(considered)h(v)m(olume)e(of)h +(phase)g(space.)55 b(Clearly)-8 b(,)35 b(when)i(a)m(v)m(eraged)g(o)m(v) +m(er)g(man)m(y)f(ev)m(en)m(ts,)j Fq(SIGEV)0 1944 y Fw(will)33 +b(correctly)j(estimate)f(the)g(desired)i(cross)f(section.)52 +b(If)43 b Fq(SIGEV)37 b Fw(\015uctuates)f(to)s(o)f(m)m(uc)m(h,)i(one)f +(ma)m(y)0 2052 y(try)41 b(to)e(transform)h(to)g(new)h(v)-5 +b(ariables)39 b Fj(X)1586 2016 y Fk(0)1609 2052 y Fw(,)j(where)g(ev)m +(en)m(ts)g(are)f(no)m(w)g(pic)m(k)m(ed)g(accordingly)e(to)h(d)p +Fj(X)3756 2016 y Fk(0)0 2161 y Fw(and)33 b Fq(SIGEV)p +Fw(=)c(d)p Fj(\033)t(=)p Fw(d)p Fj(X)855 2125 y Fk(0)911 +2090 y Fg(R)983 2161 y Fw(d)p Fj(X)1126 2125 y Fk(0)1149 +2161 y Fw(.)146 2269 y(A)d(w)m(arning.)41 b(It)26 b(is)g(imp)s(ortan)m +(t)e(that)i Fj(X)33 b Fw(is)26 b(indeed)g(uniformly)e(pic)m(k)m(ed)j +(within)e(the)h(allo)m(w)m(ed)g(phase)0 2377 y(space,)34 +b(alternativ)m(ely)e(that)h(an)m(y)g(Jacobians)g(are)g(prop)s(erly)g +(tak)m(en)h(in)m(to)e(accoun)m(t.)46 b(F)-8 b(or)32 b(instance,)h(in)0 +2486 y(the)47 b(case)g(ab)s(o)m(v)m(e,)j(one)c(approac)m(h)h(w)m(ould)f +(b)s(e)g(to)g(pic)m(k)g Fj(x)2199 2501 y Fl(1)2239 2486 +y Fw(,)k Fj(x)2371 2501 y Fl(2)2457 2486 y Fw(and)2661 +2467 y(^)2660 2486 y Fj(t)c Fw(uniformly)e(in)h(the)i(ranges)0 +2594 y(0)34 b Fj(<)g(x)248 2609 y Fl(1)322 2594 y Fj(<)g +Fw(1,)j(0)d Fj(<)g(x)793 2609 y Fl(2)867 2594 y Fj(<)g +Fw(1,)k(and)e Fn(\000)p Fj(s)f(<)1553 2576 y Fw(^)1552 +2594 y Fj(t)f(<)g Fw(0,)j(with)f(full)f(phase)i(space)h(v)m(olume)3124 +2523 y Fg(R)3196 2594 y Fw(d)p Fj(X)43 b Fw(=)34 b Fj(s)p +Fw(.)55 b(The)0 2711 y(cross)32 b(section)f(w)m(ould)g(only)f(b)s(e)h +(non-v)-5 b(anishing)30 b(inside)g(the)h(ph)m(ysical)g(region)f(giv)m +(en)h(b)m(y)h Fn(\000)p Fj(sx)3478 2726 y Fl(1)3518 2711 +y Fj(x)3573 2726 y Fl(2)3641 2711 y Fj(<)3746 2693 y +Fw(^)3744 2711 y Fj(t)0 2820 y Fw(\(in)c(the)h(massless)g(case\),)h +(i.e.)41 b(Mon)m(te)30 b(Carlo)d(e\016ciency)j(is)e(lik)m(ely)g(to)g(b) +s(e)h(lo)m(w.)41 b(Ho)m(w)m(ev)m(er,)32 b(if)27 b(one)i(w)m(ere)0 +2940 y(to)34 b(c)m(ho)s(ose)433 2922 y(^)431 2940 y Fj(t)h +Fw(v)-5 b(alues)33 b(only)h(in)f(the)i(range)e Fn(\000)t +Fw(^)-53 b Fj(s)31 b(<)1820 2922 y Fw(^)1819 2940 y Fj(t)f(<)g +Fw(0,)k(small)i(^)-53 b Fj(s)34 b Fw(v)-5 b(alues)34 +b(w)m(ould)f(b)s(e)i(fa)m(v)m(oured,)g(since)0 3049 y(the)30 +b(densit)m(y)g(of)f(selected)968 3030 y(^)967 3049 y +Fj(t)h Fw(v)-5 b(alues)29 b(w)m(ould)h(b)s(e)f(larger)g(there.)43 +b(Without)29 b(the)h(use)g(of)f(a)g(comp)s(ensating)0 +3157 y(Jacobian)38 b(^)-53 b Fj(s=s)p Fw(,)34 b(an)h(incorrect)f(answ)m +(er)i(w)m(ould)e(b)s(e)h(obtained.)48 b(Alternativ)m(ely)-8 +b(,)34 b(one)h(could)f(start)h(out)0 3286 y(with)e(a)g(phase)h(space)h +(lik)m(e)e(d)p Fj(X)k Fw(=)29 b(d)p Fj(x)1405 3301 y +Fl(1)1461 3286 y Fw(d)p Fj(x)1570 3301 y Fl(2)1627 3286 +y Fw(d\(cos)1874 3259 y(^)1866 3286 y Fj(\022)s Fw(\),)34 +b(where)h(the)f(limits)c(decouple.)46 b(Of)33 b(course,)i(the)0 +3414 y(cos)155 3388 y(^)147 3414 y Fj(\022)42 b Fw(v)-5 +b(ariable)37 b(can)i(b)s(e)g(translated)f(bac)m(k)i(in)m(to)e(a)1924 +3396 y(^)1923 3414 y Fj(t)p Fw(,)i(whic)m(h)g(will)c(then)j(alw)m(a)m +(ys)h(b)s(e)f(in)f(the)h(desired)0 3523 y(range)33 b +Fn(\000)t Fw(^)-53 b Fj(s)28 b(<)522 3504 y Fw(^)520 +3523 y Fj(t)g(<)g Fw(0.)43 b(The)33 b(transformation)e(itself)g(here)i +(giv)m(es)g(the)g(necessary)i(Jacobian.)146 3631 y(If)g(y)m(ou)h(do)f +(not)g(kno)m(w)h(ho)m(w)g(big)g Fq(SIGMAX)g Fw(is,)g(y)m(ou)g(can)f +(put)g(it)g(to)f(some)h(v)m(ery)i(small)c(v)-5 b(alue)34 +b(\(but)0 3739 y(larger)41 b(than)h(zero,)j(ho)m(w)m(ev)m(er\))g(and)d +(do)g(an)g(exploratory)g(run.)73 b(When)43 b(the)g(program)d(encoun)m +(ters)0 3848 y(ev)m(en)m(ts)h(with)d Fq(SIGEV)p Fj(>)p +Fq(SIGMAX)p Fw(,)k(a)c(w)m(arning)h(message)g(is)f(prin)m(ted,)i(whic)m +(h)g(giv)m(es)f(the)g(new)i Fq(SIGMAX)0 3956 y Fw(that)30 +b(the)g(program)e(will)g(use)i(from)f(then)h(on.)43 b(Hop)s(efully)28 +b(suc)m(h)j(maxim)m(um)d(violations)f(only)j(app)s(ear)0 +4065 y(at)k(the)g(b)s(eginning)f(of)h(the)g(run,)h(and)f(later)f +Fq(SIGMAX)j Fw(stabilizes)d(to)h(a)f(lev)m(el)h(that)g(can)g(then)h(b)s +(e)f(used)0 4173 y(as)f(input)f(for)g(a)g(second,)i(correct)f(run.)146 +4281 y(If)i(y)m(ou)g(w)m(an)m(t)h(to)f(do)f(the)h(ev)m(en)m(t)i +(rejection)e(y)m(ourself,)g(simply)f(put)h Fq(SIGEV)h +Fw(equal)e(to)h Fq(SIGMAX)p Fw(.)h(In)0 4390 y(that)c(case)i(ev)m(en)m +(ts)h(will)30 b(not)j(b)s(e)g(rejected)h(b)m(y)h Fm(Pythia)d +Fw(\(except)j(if)c(there)j(is)e(something)f(else)i(wrong)0 +4498 y(with)e(them\).)43 b(If)38 b Fq(SIGMAX)33 b Fw(is)e(the)g +(correct)h(total)e(cross)i(section)g(of)f(the)h(pro)s(cess,)g(ev)m(en)m +(t)i(mixing)29 b(with)0 4606 y(other)i(pro)s(cesses)j(will)29 +b(still)g(w)m(ork)j(\014ne.)43 b(Y)-8 b(ou)32 b(could)e(also)h(decide)g +(not)h(to)e(reject)i(an)m(y)g(ev)m(en)m(ts,)i(but)e(to)0 +4715 y(use)25 b(w)m(eigh)m(ted)g(ones.)41 b(In)25 b(that)f(case)h(y)m +(ou)g(can)f(only)f(ha)m(v)m(e)j(one)e(ISUB)h(switc)m(hed)g(on)f(in)g(a) +f(run,)k(since)d(the)0 4823 y(program)30 b(will)e(not)j(kno)m(w)h(ho)m +(w)g(to)f(mix)e(di\013eren)m(t)j(kinds)f(of)g(ev)m(en)m(ts,)i(and)e(y)m +(ou)h(cannot)f(use)h Fm(Pythia)0 4931 y Fw(to)40 b(do)g(cross)i +(section)e(statistics)g(for)g(y)m(ou.)68 b(Therefore)42 +b(y)m(ou)f(could,)h(for)e(instance,)j(put)d Fq(SIGMAX)53 +b(=)0 5040 y(SIGEV)g(=)e(1)p Fw(,)30 b(and)f(use)h(a)f(common)f(blo)s +(c)m(k)g(to)h(transfer)g(ev)m(en)m(t)i(w)m(eigh)m(t)f(and)f(other)g +(information)d(from)0 5148 y(y)m(our)33 b Fq(PYUPEV)h +Fw(routine)e(to)h(y)m(our)g(main)e(program.)146 5256 +y(In)36 b(addition)d(to)i(the)h Fq(SIGEV)h Fw(v)-5 b(alue)35 +b(returned)h(for)f(eac)m(h)h(ev)m(en)m(t,)i(it)c(is)h(also)f(necessary) +k(to)d(return)0 5365 y(the)e(ev)m(en)m(t)h(itself.)43 +b(This)32 b(is)g(done)i(via)d(the)i(common)f(blo)s(c)m(k)1817 +5953 y(170)p eop +%%Page: 171 177 +171 176 bop 0 -110 3440 9 v 0 115 9 225 v 79 30 a Fq +(COMMON/PYUPPR/NUP,KUP\(20)q(,7\),)q(PUP\()q(20,5)q(\),N)q(FUP,)q(IFUP) +q(\(10,)q(2\),)q(Q2UP)q(\(0:1)q(0\))p 3431 115 V 0 123 +3440 9 v 146 309 a Fw(The)28 b(\014rst)g(part)f(closely)f(parallels)f +(the)j(standard)f(ev)m(en)m(t)i(record)f(in)e(the)h Fq(LUJETS)i +Fw(common)d(blo)s(c)m(k,)0 417 y(see)39 b(section)e(5.2,)i(although)d +(with)h(a)h(few)g(simpli\014cations.)55 b(The)39 b(n)m(um)m(b)s(er)f +Fq(NUP)g Fw(giv)m(es)g(the)g(n)m(um)m(b)s(er)0 526 y(of)e(particles)g +(in)m(v)m(olv)m(ed)i(in)e(the)h(pro)s(cess,)i(where)f(a)f(particle)e +(ma)m(y)i(b)s(e)g(a)f(quark,)j(a)e(lepton,)g(a)g(gauge)0 +634 y(b)s(oson,)32 b(or)f(an)m(ything)h(else.)43 b(The)33 +b(\014rst)f(t)m(w)m(o)h(are)e(simply)g(the)h(t)m(w)m(o)g(incoming)e +(particles)h(that)g(initiate)0 742 y(the)k(hard)f(scattering,)h(while)e +(the)i(remaining)e Fq(NUP-2)j Fw(are)e(the)h(outgoing)d(particles)i +(from)f(the)h(hard)0 851 y(pro)s(cess.)45 b(F)-8 b(or)31 +b(eac)m(h)j(particle)d Fq(I)p Fw(,)i(with)f(1)c Fn(\024)p +Fq(I)p Fn(\024)p Fq(NUP)p Fw(,)34 b(the)f(follo)m(wing)d(information)g +(is)i(stored:)0 959 y Fq(KUP\(I,1\))53 b(:)48 b Fw(is)28 +b(=)g(1)g(normally)-8 b(.)40 b(Ho)m(w)m(ev)m(er,)32 b(if)27 +b(y)m(ou)i(put)g(it)e(=)i(2)f(that)g(signi\014es)g(in)m(termediate)g +(states)472 1067 y(that)f(are)g(not)g(to)f(b)s(e)i(treated)f(b)m(y)i +Fm(Pythia)p Fw(,)f(but)g(are)f(included)f(only)h(to)f(mak)m(e)h(the)h +(ev)m(en)m(t)472 1176 y(record)34 b(easier)e(to)g(read.)0 +1284 y Fq(KUP\(I,2\))53 b(:)48 b Fw(is)30 b(the)g(\015a)m(v)m(our)h(co) +s(de)g(of)f(a)g(particle,)f(i.e.)42 b(the)31 b(t)m(w)m(o)g(incoming)d +(partons)i(for)g Fq(I)g Fw(=)g(1)g(and)472 1393 y(2,)g(and)g(the)g +(outgoing)d(particles)i(for)g Fq(I)p Fn(\025)f Fw(3.)42 +b(The)31 b(\015a)m(v)m(our)f(co)s(des)g(are)f(the)h(standard)g(KF)472 +1501 y(ones,)k(as)f(used)g(elsewhere)h(in)e(the)h(program.)0 +1609 y Fq(KUP\(I,3\))53 b(:)48 b Fw(ma)m(y)41 b(b)s(e)g(used)h(to)e +(indicate)g(the)h(p)s(osition)e(of)i(a)f(mother.)68 b(Suc)m(h)42 +b(information)c(ma)m(y)472 1718 y(again)26 b(mak)m(e)i(the)f(record)h +(more)e(readable,)i(but)g(is)f(not)g(really)f(needed,)k(and)d(so)g(one) +h(ma)m(y)472 1826 y(w)m(ell)k(put)h(all)e Fq(KUP\(I,3\)=0)p +Fw(.)0 1934 y Fq(KUP\(I,4\))53 b(:)48 b Fw(for)33 b(a)g(\014nal-state)g +(parton)g(whic)m(h)h(carries)g(colour,)f Fq(KUP\(I,4\))i +Fw(giv)m(es)f(the)g(p)s(osition)e(of)472 2043 y(the)h(parton)g(from)e +(whic)m(h)i(the)g(colour)f(comes;)h(otherwise)g(it)e(m)m(ust)i(b)s(e)g +(0.)0 2151 y Fq(KUP\(I,5\))53 b(:)48 b Fw(for)34 b(a)h(\014nal-state)f +(parton)h(that)g(carries)f(an)m(ticolour,)g Fq(KUP\(I,5\))k +Fw(giv)m(es)d(the)g(p)s(osition)472 2259 y(of)e(the)g(parton)f(from)f +(whic)m(h)i(the)g(an)m(ticolour)e(comes;)i(else)g(it)e(m)m(ust)i(b)s(e) +g(0.)0 2368 y Fq(KUP\(I,6\))53 b(:)48 b Fw(for)28 b(an)h(initial-state) +c(parton)k(that)f(carries)h(colour,)g Fq(KUP\(I,6\))h +Fw(giv)m(es)g(the)f(p)s(osition)e(of)472 2476 y(the)33 +b(parton)g(to)f(whic)m(h)h(the)g(colour)f(go)s(es;)g(else)h(it)f(m)m +(ust)h(b)s(e)f(0.)0 2584 y Fq(KUP\(I,7\))53 b(:)48 b +Fw(for)36 b(an)g(initial-state)d(parton)j(whic)m(h)g(carries)h(an)m +(ticolour,)e Fq(KUP\(I,7\))k Fw(giv)m(es)e(the)f(p)s(o-)472 +2693 y(sition)c(of)g(the)h(parton)f(to)g(whic)m(h)h(the)g(an)m +(ticolour)e(go)s(es;)i(else)g(it)e(m)m(ust)i(b)s(e)g(0.)0 +2801 y Fq(PUP\(I,1\))53 b(:)48 b Fj(p)609 2816 y Fh(x)653 +2801 y Fw(,)32 b(i.e.)43 b Fj(x)33 b Fw(momen)m(tum.)0 +2909 y Fq(PUP\(I,2\))53 b(:)48 b Fj(p)609 2924 y Fh(y)650 +2909 y Fw(,)33 b(i.e.)43 b Fj(y)36 b Fw(momen)m(tum.)0 +3018 y Fq(PUP\(I,3\))53 b(:)48 b Fj(p)609 3033 y Fh(z)649 +3018 y Fw(,)32 b(i.e.)43 b Fj(z)38 b Fw(momen)m(tum.)0 +3126 y Fq(PUP\(I,4\))53 b(:)48 b Fj(E)6 b Fw(,)33 b(i.e.)43 +b(energy)-8 b(.)0 3234 y Fq(PUP\(I,5\))53 b(:)48 b Fj(m)p +Fw(,)33 b(i.e.)43 b(mass.)0 3343 y(After)33 b(this)f(brief)g(summary)-8 +b(,)32 b(w)m(e)h(pro)s(ceed)h(with)e(more)g(details)f(and)i(examples.) +146 3451 y(T)-8 b(o)30 b(illustrate)d(the)i(issue)h(of)e(do)s(cumen)m +(tation)h(in)f Fq(KUP\(I,1\))j Fw(and)e Fq(KUP\(I,3\))p +Fw(,)k(consider)c(the)h(case)0 3559 y(of)g(W)210 3523 +y Fl(+)301 3559 y Fw(pro)s(duction)g(and)h(deca)m(y)i(to)d(u)p +1424 3480 55 4 v(d)q(,)h(ma)m(yb)s(e)g(as)g(part)g(of)f(a)h(more)f +(complex)h(pro)s(cess.)44 b(The)32 b(\014nal-)0 3668 +y(state)e(particles)f(clearly)g(are)h(u)g(and)p 1365 +3589 V 31 w(d,)g(so)g(the)h(W)1860 3632 y Fl(+)1949 3668 +y Fw(need)g(not)f(b)s(e)g(giv)m(en)g(at)g(all,)e(but)j(it)d(w)m(ould)i +(mak)m(e)0 3776 y(the)g(ev)m(en)m(t)i(listing)c(easier)i(to)g(read.)43 +b(Therefore)31 b(one)f(should)g(add)g(the)h(W)2727 3740 +y Fl(+)2786 3776 y Fw(,)g(but)f(with)g Fq(KUP\(I,1\)=2)p +Fw(.)0 3884 y(\(If)39 b(the)h(W)418 3848 y Fl(+)516 3884 +y Fw(w)m(ould)f(ha)m(v)m(e)i(b)s(een)f(added)f(with)g +Fq(KUP\(I,1\)=1)p Fw(,)k(it)c(w)m(ould)g(later)f(ha)m(v)m(e)i(b)s(een)g +(treated)0 3993 y(b)m(y)h Fm(Pythia)p Fw(/)p Fm(Jetset)p +Fw(,)f(whic)m(h)f(means)g(it)f(w)m(ould)h(ha)m(v)m(e)i(b)s(een)f(allo)m +(w)m(ed)e(to)g(deca)m(y)j(once)e(more.\))63 b(If)0 4112 +y(the)40 b(W)276 4076 y Fl(+)376 4112 y Fw(is)f(in)g(line)g(3,)i(the)g +(u)f(in)f(4)g(and)h(the)p 1762 4033 V 40 w(d)g(in)g(5,)h(one)f(could)g +(further)g(put)g Fq(KUP\(4,3\)=3)i Fw(and)0 4220 y Fq(KUP\(5,3\)=3)f +Fw(to)d(indicate)f(that)h(the)g(u)g(and)p 1728 4141 V +39 w(d)g(in)f(lines)h(4)f(and)i(5)e(come)h(from)f(the)i(W)3302 +4184 y Fl(+)3399 4220 y Fw(stored)g(in)0 4328 y(line)31 +b(3.)146 4437 y(The)26 b(switc)m(h)f Fq(MSTP\(128\))i +Fw(w)m(orks)e(in)f(the)h(same)f(w)m(a)m(y)i(for)e(user-de\014ned)i(pro) +s(cesses)h(as)d(for)g(ordinary)0 4545 y(ones,)29 b(i.e.)41 +b(deca)m(y)27 b(pro)s(ducts)h(of)e(resonances)i(can)f(optionally)d(b)s +(e)i(omitted)f(from)h(the)g(do)s(cumen)m(tation)0 4653 +y(section)48 b(of)f(the)i(ev)m(en)m(t)g(record,)j(and)c(history)g(p)s +(oin)m(ters)g(can)g(b)s(e)g(set)g(sligh)m(tly)f(di\013eren)m(tly)-8 +b(.)89 b(The)0 4762 y(information)24 b(the)k(program)e(has)i(at)f(its)g +(disp)s(osal)f(for)h(this)g(purp)s(ose)h(is)f(in)g Fq(KUP\(I,3\))p +Fw(;)k(an)c(en)m(try)i(with)0 4870 y(this)j(v)-5 b(alue)32 +b(non-zero)h(is)f(considered)h(as)g(a)f(resonance)i(deca)m(y)g(pro)s +(duct.)146 4978 y(The)k(colour-\015o)m(w)f(information)c(for)k +(coloured)g(particles)f(\(quarks,)j(gluons,)f(lepto)s(quarks,)h(.)16 +b(.)g(.)g(\))0 5087 y(is)26 b(needed)h(to)f(set)h(up)f(parton)g(sho)m +(w)m(ers)i(and)e(fragmen)m(tation)f(prop)s(erly)-8 b(.)40 +b(Sometimes)25 b(man)m(y)h(di\013eren)m(t)0 5195 y(colour)37 +b(\015o)m(ws)i(are)f(p)s(ossible)f(for)g(one)h(and)g(the)h(same)e(pro)s +(cess,)k(as)d(discussed)i(in)d(section)h(8.2.1.)58 b(It)0 +5304 y(is)35 b(up)i(to)e(y)m(ou)i(whether)g(or)f(not)g(y)m(ou)g(will)e +(include)h(all)f(p)s(ossible)i(colour)f(\015o)m(ws)i(in)e(the)h +(appropriate)0 5412 y(mixture,)i(but)f(at)g(least)g(y)m(ou)h(m)m(ust)f +(pic)m(k)h(some)f(represen)m(tativ)m(e)i(colour)d(con\014guration.)57 +b(Consider)0 5520 y(e.g.)k(the)39 b(case)g(of)f(g\(1\))25 +b(+)h(g\(2\))37 b Fn(!)g Fw(q\(3\))26 b(+)p 1663 5467 +52 4 v 26 w(q)q(\(4\),)39 b(where)h(the)f(n)m(um)m(b)s(ers)g(giv)m(e)f +(the)h(p)s(osition)d(in)i(the)0 5629 y(arra)m(y)-8 b(.)41 +b(It)26 b(is)f(clear)f(the)i(q)g(m)m(ust)g(get)f(its)g(colour)g(from)f +(either)h(of)g(the)h(t)m(w)m(o)g(gluons,)g(whic)m(h)g(means)g(there) +1817 5953 y(171)p eop +%%Page: 172 178 +172 177 bop 0 -18 a Fw(are)28 b(\(at)g(least\))g(t)m(w)m(o)h(p)s +(ossibilities.)39 b(Pic)m(king)28 b(the)h(q)g(colour)e(to)h(come)g +(from)f(gluon)h(1,)h(one)f(w)m(ould)g(th)m(us)0 90 y(write)c +Fq(KUP\(3,4\)=1)p Fw(,)29 b(to)24 b(b)s(e)h(read)g(`the)g(colour)e(of)h +(parton)h(3)f(comes)g(from)g(parton)g(1'.)41 b(By)25 +b(implication)0 198 y(therefore)36 b(also)f Fq(KUP\(1,6\)=3)p +Fw(,)k(i.e.)52 b(`the)37 b(colour)d(of)h(parton)h(1)f(go)s(es)h(to)f +(parton)h(3',)g(i.e.)52 b(the)36 b(colour)0 307 y(\015o)m(w)j(is)f(b)s +(o)s(okk)m(ept)h(doubly)-8 b(.)61 b(The)40 b(an)m(ticolour)c(no)m(w)k +(m)m(ust)e(\015o)m(w)h(from)e(parton)i(2)f(to)g(parton)g(4,)i(i.e.)0 +415 y Fq(KUP\(2,7\)=4)f Fw(and)e Fq(KUP\(4,5\)=2)p Fw(.)58 +b(This)37 b(completely)e(sp)s(eci\014es)j(the)f(colours)f(of)g(the)h(q) +g(and)p 3517 362 52 4 v 37 w(q)q(,)g(but)0 523 y(not)j(of)f(the)h(t)m +(w)m(o)h(gluons.)65 b(In)40 b(fact,)h(one)f(colour)f(in)g(the)i +(initial)36 b(state)k(`annihilates')e(b)s(et)m(w)m(een)k(the)0 +632 y(g\(1\))32 b(and)i(g\(2\),)e(i.e.)45 b(the)33 b(an)m(ticolour)f +(of)h(gluon)f(1)g(and)i(the)f(colour)f(of)h(gluon)f(2)h(matc)m(h,)g +(whic)m(h)h(ma)m(y)0 740 y(b)s(e)42 b(expressed)i(b)m(y)g +Fq(KUP\(1,7\)=2)g Fw(and)e Fq(KUP\(2,6\)=1)p Fw(.)73 +b(In)42 b(other)g(w)m(ords)h(colour/an)m(ticolour)38 +b(of)k(an)0 848 y(initial-state)23 b(parton)k(ma)m(y)g(either)g(go)g +(to)g(a)g(\014nal-state)f(parton)h(or)g(to)g(another)g(initial-state)d +(parton.)0 957 y(Corresp)s(ondingly)-8 b(,)39 b(the)f(colour/an)m +(ticolour)e(of)h(a)h(\014nal-state)f(parton)h(ma)m(y)f(come)h(either)g +(from)f(an)0 1065 y(initial-state)21 b(parton)j(or)h(from)e(another)i +(\014nal-state)f(parton.)40 b(An)25 b(example)g(of)f(the)h(latter)f(p)s +(ossibilit)m(y)0 1173 y(is)33 b(W)h(deca)m(ys,)i(or)c(generically)g +(the)i(deca)m(y)g(of)f(an)m(y)h(colour-singlet)c(particle.)44 +b(\(Th)m(us)35 b(a)e(third)f(colour)0 1282 y(\015o)m(w)k(ab)s(o)m(v)m +(e)h(is)e(represen)m(ted)j(b)m(y)f(gg)d Fn(!)f Fw(H)1585 +1245 y Fl(0)1657 1282 y Fn(!)g Fw(q)p 1841 1229 V(q)q(,)j(where)h(no)f +(colour)f(passes)i(through)f(the)g(Higgs,)0 1390 y(and)31 +b(therefore)h(colour)e(\015o)m(ws)i(b)s(et)m(w)m(een)h(the)f(t)m(w)m(o) +f(gluons)g(and,)g(separately)-8 b(,)32 b(b)s(et)m(w)m(een)h(the)e(q)h +(and)p 3663 1337 V 31 w(q.\))146 1498 y(Storing)38 b(of)g(momen)m(ta)g +(should)h(b)s(e)f(straigh)m(tforw)m(ard,)i(but)f(a)g(few)g(commen)m(ts) +g(m)m(ust)g(b)s(e)g(made.)0 1607 y(Ev)m(en)d(if)c(y)m(ou)j(ask,)g(in)e +(the)h Fq(PYINIT)i Fw(call,)d(to)g(ha)m(v)m(e)i(ev)m(en)m(ts)i +(generated)d(in)g(a)f(\014xed)i(target)f(or)f(a)h(user-)0 +1715 y(sp)s(eci\014ed)39 b(frame,)g(at)g(in)m(termediate)e(stages)i +Fm(Pythia)g Fw(will)d(still)g(w)m(ork)j(in)f(the)h(c.m.)61 +b(frame)37 b(of)h(the)0 1823 y(t)m(w)m(o)k(incoming)e(b)s(eam)h +(particles,)i(with)e(the)i(\014rst)f(b)s(eam)f(mo)m(ving)f(in)h(the)h +(+)p Fj(z)47 b Fw(direction)40 b(and)i(the)0 1932 y(second)c(in)d(the)i +Fn(\000)p Fj(z)42 b Fw(one.)56 b(This)36 b(c.m.)55 b(frame)36 +b(m)m(ust)g(also)g(b)s(e)h(used)g(when)h(giving)d(the)i(momen)m(ta)e +(of)0 2040 y(the)30 b(pro)s(cess.)43 b(In)30 b(addition,)e(the)i(t)m(w) +m(o)g(incoming)d(partons)i(in)g(lines)f(1)h(and)h(2)f(are)g(assumed)h +(massless.)0 2148 y(Therefore)h(the)g(initial-state)c(partons)j(are)g +(c)m(haracterized)h(only)f(b)m(y)h(the)g(t)m(w)m(o)g(energies)g +Fq(P\(1,4\))g Fw(and)0 2257 y Fq(P\(2,4\))p Fw(,)37 b(with)d +Fq(P\(1,3\))53 b(=)f(P\(1,4\))p Fw(,)37 b Fq(P\(2,3\))53 +b(=)e(-P\(2,4\))p Fw(,)37 b(and)e(ev)m(erything)h(else)f(is)f(zero.)51 +b(In)35 b(the)0 2365 y(\014nal)40 b(state,)k(energies,)g(momen)m(ta)c +(and)i(masses)g(are)f(free,)j(but)e(m)m(ust)f(add)g(up)h(to)f(giv)m(e)g +(the)h(same)0 2473 y(four-momen)m(tum)f(as)i(that)g(of)g(the)g(initial) +d(state.)75 b(All)41 b(momen)m(ta)h(are)i(giv)m(en)f(in)f(GeV,)h(with)g +(the)0 2582 y(sp)s(eed)34 b(of)e(ligh)m(t)f Fj(c)c Fw(=)h(1.)146 +2690 y(The)47 b(second)g(part)f(of)f(the)i Fq(PYUPPR)g +Fw(common)e(blo)s(c)m(k)g(is)h(used)h(to)e(regulate)g(the)i(initial-)41 +b(and)0 2798 y(\014nal-state)32 b(sho)m(w)m(ering,)h(as)g(follo)m(ws:)0 +2907 y Fq(Q2UP\(0\))53 b(:)48 b Fj(Q)586 2871 y Fl(2)658 +2907 y Fw(scale)32 b(of)h(initial-state)28 b(sho)m(w)m(ers.)0 +3015 y Fq(NFUP)52 b(:)165 b Fw(n)m(um)m(b)s(er)33 b(of)g(parton)f +(pairs)g(that)g(undergo)h(\014nal-state)f(sho)m(w)m(ers.)0 +3123 y Fq(IFUP\(IF,1\),)54 b(IFUP\(IF,2\))g(:)48 b Fw(p)s(ositions)29 +b(of)h(the)h(t)m(w)m(o)g(partons)g(of)f(a)g(\014nal-state)g(sho)m(w)m +(ering)h(pair,)472 3232 y(where)j(the)f(index)g Fq(IF)g +Fw(runs)g(b)s(et)m(w)m(een)i(1)d(and)h Fq(NFUP)p Fw(.)0 +3340 y Fq(Q2UP\(IF\))53 b(:)48 b Fw(the)33 b Fj(Q)805 +3304 y Fl(2)877 3340 y Fw(scale)g(of)f(the)h(\014nal-state)f(sho)m(w)m +(er)i(b)s(et)m(w)m(een)h(parton)d(pair)f Fq(IF)i Fw(ab)s(o)m(v)m(e.)146 +3448 y(If)38 b(y)m(ou)g(do)g(not)f(w)m(an)m(t)h(an)m(y)h(sho)m(w)m +(ering)f(at)f(all,)g(y)m(ou)h(can)g(put)g Fq(MSTP\(61\)=0)i +Fw(and)e Fq(MSTP\(71\)=0)p Fw(,)0 3557 y(and)g(then)g(y)m(ou)h(do)e +(not)h(ha)m(v)m(e)h(to)e(giv)m(e)h(the)g(ab)s(o)m(v)m(e)h(quan)m +(tities.)58 b(In)38 b(general)f(the)i(scale)e(c)m(hoices)i +Fj(Q)3740 3521 y Fl(2)0 3665 y Fw(are)j(not)g(unique,)k(whic)m(h)c +(means)h(that)f(some)g(guessw)m(ork)i(is)e(in)m(v)m(olv)m(ed.)73 +b(Since)42 b(the)h(sho)m(w)m(ers)h(add)0 3774 y(extra)37 +b(partonic)e(activit)m(y)h(at)g(mass)h(scales)g(b)s(elo)m(w)f(the)h +(men)m(tioned)f Fj(Q)2653 3737 y Fl(2)2729 3774 y Fw(c)m(hoices,)i(the) +f Fq(Q2UP)h Fw(should)0 3882 y(b)s(e)c(of)g(the)g(order)h(of)e(the)i +(phase-space)g(cut-o\013s,)g(so)f(as)h(to)e(pro)m(vide)i(a)e +(reasonably)h(smo)s(oth)g(joining)0 3990 y(b)s(et)m(w)m(een)i(partonic) +d(activit)m(y)g(from)g(matrix)f(elemen)m(ts)i(and)g(that)g(from)f(sho)m +(w)m(ers.)49 b(There)35 b(are)f(a)g(few)0 4099 y(cases)39 +b(where)f(c)m(hoices)g(are)f(rather)g(easy)-8 b(.)58 +b(In)38 b(the)f(deca)m(y)i(of)d(an)m(y)i Fj(s)p Fw(-c)m(hannel)f +(colour)f(neutral)h(state,)0 4207 y(suc)m(h)h(as)e(a)g(W)533 +4171 y Fk(\006)593 4207 y Fw(,)h(the)g Fj(Q)906 4171 +y Fl(2)982 4207 y Fw(scale)f(of)g(\014nal-state)f(sho)m(w)m(ers)k(is)d +(just)g(set)h(b)m(y)h(the)e(squared)i(mass)e(of)g(the)0 +4315 y(resonance.)45 b(F)-8 b(or)31 b(initial-state)d(radiation,)i +Fq(Q2UP\(0\))k Fw(should)e(b)s(e)g(ab)s(out)g(the)g(same)g(as)g(the)h +Fj(Q)3507 4279 y Fl(2)3578 4315 y Fw(scale)0 4424 y(used)h(for)e(the)h +(ev)-5 b(aluation)31 b(of)h(parton)h(distributions)e(for)h(the)h(hard)g +(pro)s(cess,)h(up)f(to)f(some)h(factor)f(of)0 4532 y(order)k(unit)m(y) +-8 b(.)55 b(\(One)36 b(frequen)m(t)i(c)m(hoice)e(for)g(this)g(factor)g +(w)m(ould)g(b)s(e)g(4,)h(if)e(y)m(our)i(parton-distribution)0 +4640 y(scale)c(is)g(something)g(lik)m(e)f(the)i(squared)h(transv)m +(erse)g(momen)m(tum,)e(simply)f(b)s(ecause)i Fj(m)3273 +4604 y Fl(2)3347 4640 y Fw(is)e(of)h(order)0 4749 y(4)p +Fj(p)98 4712 y Fl(2)98 4773 y Fk(?)157 4749 y Fw(.\))146 +4857 y(The)44 b(`parton'-sho)m(w)m(er)f(ev)m(olution)e(actually)g(also) +h(can)g(include)g(photon)g(emission)f(o\013)h(quarks)0 +4965 y(and)34 b(leptons,)f(if)g(the)h(sho)m(w)m(er)h(switc)m(hes)g(are) +e(prop)s(erly)h(set.)47 b(It)33 b(is)g(not)h(p)s(ossible)e(to)h +(de\014ne)i(only)e(one)0 5074 y(particle)i(in)g(the)i(ab)s(o)m(v)m(e)g +(arra)m(ys,)g(since)g(it)e(w)m(ould)h(then)h(not)f(b)s(e)g(p)s(ossible) +f(to)h(conserv)m(e)i(energy)f(and)0 5182 y(momen)m(tum)d(in)g(the)h +(sho)m(w)m(er.)52 b(Y)-8 b(ou)35 b(can)g(v)m(ery)i(w)m(ell)d(ha)m(v)m +(e)i(a)f(pair)f(where)i(only)f(one)g(of)f(the)i(t)m(w)m(o)f(can)0 +5290 y(branc)m(h,)43 b(ho)m(w)m(ev)m(er.)67 b(F)-8 b(or)40 +b(instance,)i(in)d(a)g(g)q Fj(\015)45 b Fw(\014nal)39 +b(state,)k(only)c(the)h(gluon)f(can)h(sho)m(w)m(er,)k(but)c(the)0 +5399 y(photon)g(can)g(lose)g(energy)h(to)f(the)g(gluon)f(in)g(suc)m(h)j +(a)d(w)m(a)m(y)i(that)f(the)h(gluon)e(branc)m(hings)h(b)s(ecomes)0 +5507 y(p)s(ossible.)146 5615 y(Curren)m(tly)-8 b(,)25 +b(it)d(is)g(not)g(p)s(ossible)f(to)h(do)g(sho)m(w)m(ering)h(where)h +(three)f(or)f(more)g(\014nal-state)f(particles)g(are)1817 +5953 y(172)p eop +%%Page: 173 179 +173 178 bop 0 -18 a Fw(in)m(v)m(olv)m(ed)27 b(at)f(the)h(same)f(time.) +40 b(This)27 b(ma)m(y)f(b)s(e)h(added)g(at)f(a)g(later)g(stage.)41 +b(It)27 b(is)f(therefore)h(necessary)i(to)0 90 y(sub)s(divide)34 +b(suitably)f(in)m(to)h(pairs,)f(and)i(ma)m(yb)s(e)f(lea)m(v)m(e)g(some) +g(\(esp)s(ecially)f(colour-neutral\))f(particles)0 198 +y(unsho)m(w)m(ered.)146 307 y(Y)-8 b(ou)43 b(are)g(free)g(to)g(mak)m(e) +g(use)h(of)e(whatev)m(er)j(to)s(ols)c(y)m(ou)j(w)m(an)m(t)f(in)g(y)m +(our)g Fq(PYUPEV)h Fw(routine,)h(and)0 415 y(normally)30 +b(there)i(w)m(ould)g(b)s(e)g(no)g(con)m(tact)h(with)e(the)i(rest)f(of) +39 b Fm(Pythia)p Fw(,)32 b(except)i(as)e(describ)s(ed)h(ab)s(o)m(v)m +(e.)0 523 y(Ho)m(w)m(ev)m(er,)c(y)m(ou)c(ma)m(y)f(w)m(an)m(t)h(to)f +(use)i(some)e(of)g(the)h(to)s(ols)e(already)h(a)m(v)-5 +b(ailable.)39 b(One)25 b(attractiv)m(e)f(p)s(ossibil-)0 +632 y(it)m(y)g(is)f(to)h(use)h Fq(PYSTFU)g Fw(for)f +(parton-distribution-function)c(ev)-5 b(aluation.)39 +b(Other)24 b(p)s(ossible)f(to)s(ols)g(could)0 740 y(b)s(e)38 +b Fq(RLU)g Fw(for)f(random-n)m(um)m(b)s(er)g(generation,)h +Fq(ULALPS)h Fw(for)e Fj(\013)2272 755 y Fl(s)2342 740 +y Fw(ev)-5 b(aluation,)37 b Fq(ULALEM)i Fw(for)e(ev)-5 +b(aluation)0 848 y(of)32 b(a)g(running)g Fj(\013)617 +863 y Fl(em)712 848 y Fw(,)g(and)h(ma)m(yb)s(e)g(a)f(few)h(more.)146 +957 y(W)-8 b(e)35 b(end)h(with)e(a)g(few)i(commen)m(ts)e(on)h +(anomalous)e(situations.)49 b(In)35 b(some)f(cases)i(one)f(ma)m(y)g(w)m +(an)m(t)0 1065 y(to)k(decide,)j(inside)c Fq(PYUPEV)p +Fw(,)j(when)g(to)e(stop)h(the)f(ev)m(en)m(t-generation)h(lo)s(op.)63 +b(This)39 b(is)g(the)h(case,)i(for)0 1173 y(instance,)32 +b(if)e(ev)m(en)m(t)k(con\014gurations)d(are)g(read)h(in)f(from)f(a)h +(\014le,)g(and)h(the)g(end)g(of)f(the)h(\014le)f(is)g(reac)m(hed.)0 +1282 y(One)e(migh)m(t)e(b)s(e)i(tempted)f(just)h(to)f(put)h +Fq(SIGEV=0)i Fw(when)e(this)f(happ)s(ens.)44 b(Then)29 +b Fq(PYEVNT)h Fw(will)c(discard)0 1390 y(the)31 b(ev)m(en)m(t,)i(as)d +(part)g(of)g(the)h(matrix-elemen)m(t-w)m(eigh)m(ting)d(pro)s(cedure.)43 +b(Ho)m(w)m(ev)m(er,)33 b(next)f Fq(PYEVNT)g Fw(will)0 +1498 y(generate)h(another)f(ev)m(en)m(t,)i(whic)m(h)f(normally)c(means) +j(a)g(new)h(request)h(to)e Fq(PYUPEV)p Fw(,)h(so)g(one)f(do)s(es)h(not) +0 1607 y(really)e(get)i(out)f(of)h(the)g(lo)s(op.)42 +b(Instead)34 b(y)m(ou)f(should)f(put)h Fq(NUP=0)p Fw(.)45 +b(If)33 b(the)g(program)e(encoun)m(ters)k(this)0 1715 +y(v)-5 b(alue)34 b(at)g(a)h(return)g(from)e Fq(PYUPEV)p +Fw(,)j(then)g(it)d(will)g(also)g(exit)i(from)e Fq(PYEVNT)p +Fw(,)j(without)e(incremen)m(ting)0 1823 y(the)f(coun)m(ters)h(for)e +(the)h(n)m(um)m(b)s(er)g(of)f(ev)m(en)m(ts)j(generated.)45 +b(It)32 b(is)g(then)i(up)f(to)f(y)m(ou)h(to)f(ha)m(v)m(e)i(a)f(c)m(hec) +m(k)i(on)0 1932 y(this)f(condition)f(in)g(y)m(our)i(main)d(ev)m(en)m +(t-generation)j(lo)s(op.)47 b(This)35 b(y)m(ou)g(do)f(either)g(b)m(y)h +(lo)s(oking)d(at)i Fq(NUP)0 2040 y Fw(or)e(at)g Fq(MSTI\(51\))p +Fw(;)j(the)e(latter)f(is)g(set)h(to)f(1)h(if)e(no)i(ev)m(en)m(t)h(w)m +(as)f(generated.)146 2148 y(It)27 b(ma)m(y)f(also)f(happ)s(en)i(that)f +(a)g(user-de\014ned)i(con\014guration)d(fails)g(elsewhere)i(in)f(the)g +Fq(PYEVNT)i Fw(call.)0 2257 y(F)-8 b(or)39 b(instance,)j(the)f(b)s +(eam-remnan)m(t)e(treatmen)m(t)h(o)s(ccasionally)d(encoun)m(ters)42 +b(situations)d(it)g(cannot)0 2365 y(handle,)29 b(wherefore)f(the)g +(hard)g(in)m(teraction)f(is)g(rejected)i(and)f(a)f(new)i(one)f +(generated.)43 b(This)27 b(happ)s(ens)0 2473 y(also)35 +b(with)h(ordinary)g(\(not)g(user-de\014ned\))i(ev)m(en)m(ts,)h(and)e +(usually)e(comes)h(ab)s(out)g(as)h(a)e(consequence)0 +2582 y(of)47 b(the)h(initial-state)c(radiation)h(description)i(lea)m +(ving)g(to)s(o)g(little)e(energy)j(for)f(the)h(remnan)m(t.)89 +b(If)0 2690 y(the)39 b(same)f(hard)g(scattering)g(w)m(ere)h(to)f(b)s(e) +g(used)i(as)e(input)g(for)f(a)h(new)h(initial-state)c(radiation)g(and)0 +2798 y(b)s(eam-remnan)m(t)29 b(attempt,)h(it)f(could)h(then)g(w)m(ork)h +(\014ne.)44 b(There)31 b(is)f(a)f(p)s(ossibilit)m(y)f(to)i(giv)m(e)g +(ev)m(en)m(ts)j(that)0 2907 y(c)m(hance,)h(as)e(follo)m(ws.)42 +b Fq(MSTI\(52\))34 b Fw(coun)m(ts)g(the)e(n)m(um)m(b)s(er)h(of)f(times) +f(a)h(hard-scattering)f(con\014guration)0 3015 y(has)39 +b(failed)e(to)h(date.)61 b(If)38 b(y)m(ou)h(come)g(in)e(to)h +Fq(PYUPEV)i Fw(with)e Fq(MSTI\(52\))j Fw(non-v)-5 b(anishing,)38 +b(this)g(means)0 3123 y(that)31 b(the)i(latest)e(con\014guration)g +(failed.)41 b(So)32 b(long)e(as)i(the)g(con)m(ten)m(ts)i(of)d(the)h +Fq(PYUPPR)h Fw(common)e(blo)s(c)m(k)0 3232 y(are)i(not)f(c)m(hanged,)i +(suc)m(h)g(an)e(ev)m(en)m(t)j(ma)m(y)d(b)s(e)h(giv)m(en)g(another)f +(try)-8 b(.)44 b(F)-8 b(or)32 b(instance,)h(a)f(line)308 +3415 y Fq(IF\(MSTI\(52\).GE.1.AND.MSTI\()q(52\).)q(LE.4)q(\))57 +b(RETURN)0 3599 y Fw(at)42 b(the)h(b)s(eginning)f(of)49 +b Fq(PYUPEV)44 b Fw(will)c(giv)m(e)j(eac)m(h)h(ev)m(en)m(t)g(up)f(to)f +(\014v)m(e)i(tries;)k(thereafter)43 b(a)g(new)g(one)0 +3707 y(w)m(ould)33 b(b)s(e)h(generated)g(as)g(usual.)45 +b(Note)34 b(that)f(the)h(coun)m(ter)g(for)f(the)h(n)m(um)m(b)s(er)f(of) +g(ev)m(en)m(ts)j(is)d(up)s(dated)0 3816 y(at)k(eac)m(h)g(new)h(try)-8 +b(.)57 b(The)37 b(fraction)f(of)g(failed)g(con\014gurations)g(is)g(giv) +m(en)h(in)f(the)i(b)s(ottom)d(line)h(of)g(the)0 3924 +y Fq(PYSTAT\(1\))f Fw(table.)146 4032 y(The)d(ab)s(o)m(v)m(e)f(commen)m +(t)e(only)h(refers)h(to)f(v)m(ery)i(rare)e(o)s(ccurrences)i(\(less)f +(than)f(one)g(in)g(a)g(h)m(undred\),)0 4141 y(whic)m(h)d(are)f(not)g +(errors)g(in)g(a)f(strict)h(sense;)k(for)c(instance,)i(they)f(do)f(not) +g(pro)s(duce)h(an)m(y)g(error)f(messages)0 4249 y(on)j(output.)42 +b(If)29 b(y)m(ou)g(get)g(w)m(arnings)g(and)g(error)g(messages)h(that)e +(the)i(program)d(do)s(es)i(not)g(understand)0 4357 y(the)34 +b(\015a)m(v)m(our)h(co)s(des)g(or)f(cannot)g(reconstruct)h(the)g +(colour)e(\015o)m(ws,)i(it)e(is)h(due)g(to)g(faults)f(of)h(y)m(ours,)h +(and)0 4466 y(giving)c(suc)m(h)j(ev)m(en)m(ts)h(more)d(tries)g(is)g +(not)h(going)e(to)h(help.)0 4738 y Fp(9.6)135 b(Ho)l(w)46 +b(to)f(run)g(PYTHIA)e(with)j(v)-7 b(arying)45 b(energies)0 +4911 y Fw(It)31 b(is)f(p)s(ossible)g(to)h(use)h Fm(Pythia)f +Fw(in)f(a)g(mo)s(de)g(where)i(the)f(energy)h(can)f(b)s(e)g(v)-5 +b(aried)31 b(from)e(one)i(ev)m(en)m(t)i(to)0 5019 y(the)27 +b(next,)j(without)c(the)i(need)g(to)e(reinitialize)e(with)j(a)f(new)k +Fq(PYINIT)e Fw(call.)40 b(This)27 b(allo)m(ws)f(a)h(signi\014can)m(t)0 +5128 y(sp)s(eed-up)35 b(of)f(execution,)h(although)e(it)f(is)i(not)g +(as)g(fast)g(as)g(running)f(at)h(a)g(\014xed)h(energy)-8 +b(.)48 b(It)34 b(can)h(not)0 5236 y(b)s(e)i(used)i(for)d(ev)m(erything) +j(|)d(w)m(e)j(will)34 b(come)j(to)g(the)h(\014ne)g(prin)m(t)f(at)f(the) +i(end)g(|)f(but)g(it)f(should)h(b)s(e)0 5344 y(applicable)31 +b(for)h(most)g(tasks.)146 5453 y(The)46 b(master)f(switc)m(h)g(to)g +(access)h(this)f(p)s(ossibilit)m(y)d(is)j(in)f Fq(MSTP\(171\))p +Fw(.)82 b(By)46 b(default)e(it)f(is)i(o\013,)0 5561 y(so)36 +b(y)m(ou)g(m)m(ust)f(set)h Fq(MSTP\(171\)=1)j Fw(b)s(efore)c +(initialization.)47 b(There)36 b(are)g(t)m(w)m(o)g(submo)s(des)g(of)f +(running,)0 5669 y(with)c Fq(MSTP\(172\))k Fw(b)s(eing)c(1)g(or)h(2.)43 +b(In)32 b(the)g(former)f(mo)s(de,)g Fm(Pythia)h Fw(will)e(generate)i +(an)g(ev)m(en)m(t)i(at)d(the)1817 5953 y(173)p eop +%%Page: 174 180 +174 179 bop 0 -18 a Fw(requested)33 b(energy)-8 b(.)43 +b(This)31 b(means)f(that)h(y)m(ou)g(ha)m(v)m(e)g(to)g(kno)m(w)g(whic)m +(h)g(energy)h(y)m(ou)f(w)m(an)m(t)g(b)s(eforehand.)0 +90 y(In)h(the)h(latter)e(mo)s(de,)g Fm(Pythia)h Fw(will)e(often)i +(return)h(without)e(ha)m(ving)h(generated)h(an)f(ev)m(en)m(t)h(|)f +(with)0 198 y(\015ag)i Fq(MSTI\(61\)=1)h Fw(to)e(signal)e(that)i(|)f +(and)h(y)m(ou)g(are)g(then)h(requested)h(to)d(giv)m(e)h(a)g(new)g +(energy)-8 b(.)46 b(The)0 307 y(energy)37 b(sp)s(ectrum)f(of)f +(accepted)i(ev)m(en)m(ts)h(will)33 b(then,)k(in)e(the)h(end,)h(b)s(e)f +(y)m(our)g(naiv)m(e)g(input)f(sp)s(ectrum)0 415 y(w)m(eigh)m(ted)e +(with)g(the)g(cross-section)g(of)f(the)h(pro)s(cesses)i(y)m(ou)e(study) +-8 b(.)45 b(W)-8 b(e)32 b(will)f(come)h(bac)m(k)i(to)e(this.)146 +523 y(The)43 b(energy)h(can)e(b)s(e)g(v)-5 b(aried,)44 +b(whic)m(hev)m(er)g(frame)d(is)h(giv)m(en)g(in)g(the)g +Fq(PYINIT)i Fw(call.)70 b(When)43 b(the)0 632 y(frame)34 +b(is)h Fq('CMS')p Fw(,)i Fq(PARP\(171\))h Fw(should)d(b)s(e)g(\014lled) +g(with)g(the)g(fractional)e(energy)k(of)e(eac)m(h)h(ev)m(en)m(t,)i +(i.e.)0 740 y Fj(E)72 755 y Fl(cm)202 740 y Fw(=)p Fq(PARP\(171\))p +Fn(\002)p Fq(WIN)p Fw(,)j(where)d Fq(WIN)g Fw(is)f(the)g(nominal)e +(c.m.)57 b(energy)38 b(of)f(the)g Fq(PYINIT)i Fw(call.)56 +b(Here)0 848 y Fq(PARP\(171\))29 b Fw(should)e(normally)d(b)s(e)j +(smaller)e(than)i(unit)m(y)-8 b(,)28 b(i.e.)41 b(initialization)21 +b(should)26 b(b)s(e)h(done)h(at)e(the)0 957 y(maxim)m(um)34 +b(energy)j(to)f(b)s(e)h(encoun)m(tered.)56 b(F)-8 b(or)36 +b(the)g Fq('FIXT')i Fw(frame,)e Fq(PARP\(171\))j Fw(should)d(b)s(e)h +(\014lled)0 1065 y(b)m(y)c(the)f(fractional)e(b)s(eam)h(energy)i(of)e +(that)h(one,)g(i.e.)43 b Fj(E)2077 1080 y Fl(b)r(eam)2276 +1065 y Fw(=)p Fq(PARP\(171\))p Fn(\002)p Fq(WIN)p Fw(.)35 +b(F)-8 b(or)31 b(the)i Fq('USER')p Fw(,)0 1173 y Fq('FOUR')28 +b Fw(and)e Fq('FIVE')i Fw(options,)g(the)e(t)m(w)m(o)i(four-momen)m(ta) +c(are)i(giv)m(en)h(in)f(for)g(eac)m(h)h(ev)m(en)m(t)h(in)e(the)h(same)0 +1282 y(format)34 b(as)i(used)h(for)e(the)h Fq(PYINIT)h +Fw(call.)51 b(Note)36 b(that)g(there)g(is)f(a)h(minim)m(um)c(c.m.)52 +b(energy)37 b(allo)m(w)m(ed,)0 1390 y Fq(PARP\(2\))p +Fw(.)61 b(If)38 b(y)m(ou)g(giv)m(e)g(in)f(v)-5 b(alues)38 +b(b)s(elo)m(w)f(this,)i(the)f(program)f(will)e(stop)j(for)f +Fq(MSTP\(172\)=1)p Fw(,)42 b(and)0 1498 y(will)30 b(return)j(with)g +Fq(MSTI\(61\)=1)i Fw(for)d Fq(MSTP\(172\)=1)p Fw(.)146 +1607 y(T)-8 b(o)35 b(illustrate)e(the)i(use)g(of)g(the)g +Fq(MSTP\(172\)=2)i Fw(facilit)m(y)-8 b(,)34 b(consider)h(the)g(case)g +(of)g(b)s(eamstrahlung)0 1715 y(in)e(e)158 1679 y Fl(+)217 +1715 y Fw(e)260 1679 y Fk(\000)354 1715 y Fw(linear)f(colliders.)45 +b(This)34 b(is)f(just)i(for)e(con)m(v)m(enience;)k(what)d(is)f(said)g +(here)i(can)f(b)s(e)g(translated)0 1823 y(easily)h(in)m(to)h(other)g +(situations.)53 b(Assume)36 b(that)g(the)h(b)s(eam)e(sp)s(ectrum)i(is)e +(giv)m(en)h(b)m(y)h Fj(D)s Fw(\()p Fj(z)t Fw(\),)g(where)h +Fj(z)0 1932 y Fw(is)d(the)h(fraction)f(retained)g(b)m(y)i(the)f +(original)c(e)k(after)g(b)s(eamstrahlung.)52 b(Therefore)36 +b(0)d Fn(\024)h Fj(z)j Fn(\024)d Fw(1)h(and)0 2040 y(the)e(in)m(tegral) +e(of)h Fj(D)s Fw(\()p Fj(z)t Fw(\))h(is)f(unit)m(y)-8 +b(.)43 b(This)33 b(is)f(not)g(p)s(erfectly)h(general;)f(one)h(could)f +(imagine)e(branc)m(hings)0 2148 y(e)43 2112 y Fk(\000)130 +2148 y Fn(!)d Fw(e)300 2112 y Fk(\000)360 2148 y Fj(\015)32 +b Fn(!)c Fw(e)614 2112 y Fk(\000)673 2148 y Fw(e)716 +2112 y Fl(+)776 2148 y Fw(e)819 2112 y Fk(\000)878 2148 +y Fw(,)k(whic)m(h)f(giv)m(es)h(a)f(m)m(ultiplication)c(in)j(the)i(n)m +(um)m(b)s(er)g(of)e(b)s(eam)h(particles.)42 b(This)0 +2257 y(could)35 b(either)g(b)s(e)h(expressed)i(in)d(terms)g(of)g(a)g +Fj(D)s Fw(\()p Fj(z)t Fw(\))h(with)f(in)m(tegral)f(larger)g(than)h +(unit)m(y)h(or)f(in)g(terms)0 2365 y(of)30 b(an)f(increased)i +(luminosit)m(y)-8 b(.)41 b(W)-8 b(e)30 b(will)e(assume)i(the)h(latter,) +e(and)h(use)h Fj(D)s Fw(\()p Fj(z)t Fw(\))g(prop)s(erly)e(normalized.)0 +2473 y(Giv)m(en)39 b(a)g(nominal)d Fj(s)j Fw(=)g(4)p +Fj(E)1084 2437 y Fl(2)1078 2498 y(b)r(eam)1249 2473 y +Fw(,)h(the)g(actual)e Fj(s)1836 2437 y Fk(0)1898 2473 +y Fw(after)h(b)s(eamstrahlung)f(is)h(giv)m(en)g(b)m(y)h +Fj(s)3360 2437 y Fk(0)3422 2473 y Fw(=)f Fj(z)3582 2488 +y Fl(1)3622 2473 y Fj(z)3667 2488 y Fl(2)3706 2473 y +Fj(s)p Fw(.)0 2582 y(F)-8 b(or)32 b(a)g(pro)s(cess)i(with)e(a)g(cross)i +(section)f Fj(\033)t Fw(\()p Fj(s)p Fw(\))f(the)h(total)e(cross)j +(section)e(is)g(then)997 2848 y Fj(\033)1052 2863 y Fl(tot)1174 +2848 y Fw(=)1278 2731 y Fg(Z)1361 2757 y Fl(1)1324 2920 +y(0)1417 2731 y Fg(Z)1500 2757 y Fl(1)1463 2920 y(0)1556 +2848 y Fj(D)s Fw(\()p Fj(z)1723 2863 y Fl(1)1763 2848 +y Fw(\))17 b Fj(D)s Fw(\()p Fj(z)1985 2863 y Fl(2)2023 +2848 y Fw(\))p Fj(\033)t Fw(\()p Fj(z)2203 2863 y Fl(1)2243 +2848 y Fj(z)2288 2863 y Fl(2)2328 2848 y Fj(s)p Fw(\))g(d)p +Fj(z)2528 2863 y Fl(1)2584 2848 y Fw(d)p Fj(z)2683 2863 +y Fl(2)2755 2848 y Fj(:)775 b Fw(\(121\))0 3097 y(The)35 +b(cross)g(section)f Fj(\033)k Fw(ma)m(y)33 b(in)g(itself)g(b)s(e)h(an)g +(in)m(tegral)e(o)m(v)m(er)j(a)f(n)m(um)m(b)s(er)g(of)g(additional)d +(phase)j(space)0 3205 y(v)-5 b(ariables.)47 b(If)34 b(the)h(maxim)m(um) +c(of)j(the)h(di\013eren)m(tial)d(cross)j(section)f(is)g(kno)m(wn,)i(a)e +(correct)h(pro)s(cedure)0 3314 y(to)d(generate)h(ev)m(en)m(ts)i(is)119 +3427 y(1.)49 b(pic)m(k)33 b Fj(z)495 3442 y Fl(1)567 +3427 y Fw(and)g Fj(z)802 3442 y Fl(2)874 3427 y Fw(according)f(to)g +Fj(D)s Fw(\()p Fj(z)1599 3442 y Fl(1)1639 3427 y Fw(\))17 +b(d)p Fj(z)1793 3442 y Fl(1)1865 3427 y Fw(and)32 b Fj(D)s +Fw(\()p Fj(z)2221 3442 y Fl(2)2261 3427 y Fw(\))17 b(d)p +Fj(z)2415 3442 y Fl(2)2454 3427 y Fw(,)33 b(resp)s(ectiv)m(ely;)119 +3544 y(2.)49 b(pic)m(k)33 b(a)f(set)h(of)f(phase)i(space)g(v)-5 +b(ariables)31 b(of)h(the)h(pro)s(cess,)h(for)e(the)h(giv)m(en)g +Fj(s)2995 3508 y Fk(0)3050 3544 y Fw(of)g(the)g(ev)m(en)m(t;)119 +3662 y(3.)49 b(ev)-5 b(aluate)32 b Fj(\033)t Fw(\()p +Fj(s)769 3626 y Fk(0)792 3662 y Fw(\))h(and)f(compare)g(with)h +Fj(\033)1720 3677 y Fl(max)1856 3662 y Fw(;)119 3780 +y(4.)49 b(if)31 b(ev)m(en)m(t)k(is)d(rejected,)i(then)f(return)g(to)f +(step)i(1)e(to)g(generate)h(new)h(v)-5 b(ariables;)119 +3898 y(5.)49 b(else)33 b(con)m(tin)m(ue)g(the)g(generation)f(to)g(giv)m +(e)h(a)f(complete)g(ev)m(en)m(t.)0 4011 y(Y)-8 b(ou)39 +b(as)g(a)g(user)h(are)e(assumed)i(to)f(tak)m(e)g(care)h(of)e(step)i(1,) +g(and)g(presen)m(t)g(the)g(resulting)d(kinematics)0 4119 +y(with)h(incoming)e(e)694 4083 y Fl(+)792 4119 y Fw(and)i(e)1030 +4083 y Fk(\000)1128 4119 y Fw(of)g(v)-5 b(arying)38 b(energy)-8 +b(.)62 b(Thereafter)39 b Fm(Pythia)g Fw(will)d(do)i(steps)i(2{5,)f(and) +0 4228 y(either)32 b(return)h(an)g(ev)m(en)m(t)h(or)f(put)f +Fq(MSTI\(61\)=1)k Fw(to)c(signal)f(failure)g(in)g(step)j(4.)146 +4336 y(The)g(maximization)29 b(pro)s(cedure)34 b(do)s(es)g(searc)m(h)g +(in)e(phase)i(space)h(to)d(\014nd)i Fj(\033)2945 4351 +y Fl(max)3081 4336 y Fw(,)f(but)g(it)f(do)s(es)i(not)0 +4444 y(v)-5 b(ary)43 b(the)h Fj(s)452 4408 y Fk(0)519 +4444 y Fw(energy)g(in)e(this)h(pro)s(cess.)77 b(Therefore)44 +b(the)g(maxim)m(um)d(searc)m(h)j(in)f(the)g Fq(PYINIT)i +Fw(call)0 4553 y(should)f(b)s(e)h(p)s(erformed)e(where)j(the)e(cross)i +(section)e(is)g(largest.)78 b(F)-8 b(or)43 b(pro)s(cesses)j(with)e +(increasing)0 4661 y(cross)c(section)f(as)h(a)e(function)h(of)g(energy) +h(this)e(means)h(at)g(the)h(largest)e(energy)i(that)f(will)e(ev)m(er)j +(b)s(e)0 4769 y(encoun)m(tered,)46 b(i.e.)71 b Fj(s)825 +4733 y Fk(0)892 4769 y Fw(=)43 b Fj(s)f Fw(in)f(the)h(case)h(ab)s(o)m +(v)m(e.)72 b(This)42 b(is)f(the)i(`standard')f(case,)j(but)d(often)g +(one)0 4878 y(encoun)m(ters)c(other)e(b)s(eha)m(viours,)i(where)f(more) +f(complicated)e(pro)s(cedures)k(are)e(needed.)56 b(One)36 +b(suc)m(h)0 4986 y(case)i(w)m(ould)e(b)s(e)h(the)g(pro)s(cess)h(e)1195 +4950 y Fl(+)1255 4986 y Fw(e)1298 4950 y Fk(\000)1392 +4986 y Fn(!)c Fw(Z)1586 4950 y Fk(\003)p Fl(0)1695 4986 +y Fn(!)h Fw(Z)1890 4950 y Fl(0)1929 4986 y Fw(H)2002 +4950 y Fl(0)2041 4986 y Fw(,)j(whic)m(h)f(is)g(kno)m(wn)h(to)e(ha)m(v)m +(e)i(a)f(cross)g(section)0 5094 y(that)e(increases)g(near)g(the)h +(threshold)e(but)h(is)g(decreasing)g(asymptotically)-8 +b(.)48 b(If)34 b(one)i(already)e(kno)m(ws)0 5203 y(that)39 +b(the)g(maxim)m(um,)f(for)h(a)f(giv)m(en)i(Higgs)e(mass,)i(app)s(ears)g +(at)e(300)g(GeV,)h(sa)m(y)-8 b(,)42 b(then)e(the)f Fq(PYINIT)0 +5311 y Fw(call)31 b(should)i(b)s(e)h(made)e(with)h(that)g(energy)-8 +b(,)34 b(ev)m(en)h(if)d(subsequen)m(tly)k(one)d(will)e(b)s(e)j +(generating)e(ev)m(en)m(ts)0 5419 y(for)g(a)g(500)g(GeV)h(collider.)146 +5528 y(In)46 b(general,)h(it)d(ma)m(y)h(b)s(e)g(necessary)i(to)e(mo)s +(dify)e(the)j(selection)e(of)h Fj(z)2812 5543 y Fl(1)2896 +5528 y Fw(and)g Fj(z)3143 5543 y Fl(2)3228 5528 y Fw(and)g(assign)g(a)0 +5636 y(comp)s(ensating)25 b(ev)m(en)m(t)j(w)m(eigh)m(t.)41 +b(F)-8 b(or)26 b(instance,)h(consider)f(a)g(pro)s(cess)h(with)f(a)f +(cross)i(section)f(b)s(eha)m(ving)1817 5953 y(174)p eop +%%Page: 175 181 +175 180 bop 0 -18 a Fw(roughly)32 b(lik)m(e)g(1)p Fj(=s)p +Fw(.)43 b(Then)33 b(the)g Fj(\033)1225 -3 y Fl(tot)1353 +-18 y Fw(expression)h(ab)s(o)m(v)m(e)f(ma)m(y)f(b)s(e)h(rewritten)g(as) +884 250 y Fj(\033)939 265 y Fl(tot)1062 250 y Fw(=)1165 +133 y Fg(Z)1248 159 y Fl(1)1211 321 y(0)1304 133 y Fg(Z)1387 +159 y Fl(1)1350 321 y(0)1453 183 y Fj(D)s Fw(\()p Fj(z)1620 +198 y Fl(1)1660 183 y Fw(\))p 1453 227 245 4 v 1533 318 +a Fj(z)1578 333 y Fl(1)1734 183 y Fj(D)s Fw(\()p Fj(z)1901 +198 y Fl(2)1940 183 y Fw(\))p 1734 227 V 1814 318 a Fj(z)1859 +333 y Fl(2)2005 250 y Fj(z)2050 265 y Fl(1)2090 250 y +Fj(z)2135 265 y Fl(2)2174 250 y Fj(\033)t Fw(\()p Fj(z)2316 +265 y Fl(1)2356 250 y Fj(z)2401 265 y Fl(2)2441 250 y +Fj(s)p Fw(\))17 b(d)p Fj(z)2641 265 y Fl(1)2697 250 y +Fw(d)p Fj(z)2796 265 y Fl(2)2868 250 y Fj(:)662 b Fw(\(122\))0 +509 y(The)37 b(expression)h Fj(z)723 524 y Fl(1)763 509 +y Fj(z)808 524 y Fl(2)847 509 y Fj(\033)t Fw(\()p Fj(s)990 +473 y Fk(0)1013 509 y Fw(\))f(is)e(no)m(w)i(essen)m(tially)f(\015at)g +(in)g Fj(s)2208 473 y Fk(0)2231 509 y Fw(,)h(i.e.)54 +b(not)37 b(only)e(can)i Fj(\033)3107 524 y Fl(max)3279 +509 y Fw(b)s(e)f(found)h(at)0 618 y(a)d(con)m(v)m(enien)m(t)j(energy)f +(suc)m(h)g(as)f(the)g(maxim)m(um)d(one,)k(but)f(additionally)c(the)k +Fm(Pythia)g Fw(generation)0 726 y(e\016ciency)e(\(the)f(lik)m(eliho)s +(o)s(d)c(of)j(surviving)g(step)h(4\))f(is)g(greatly)g(enhanced.)45 +b(The)32 b(price)g(to)f(b)s(e)g(paid)g(is)0 834 y(that)j +Fj(z)39 b Fw(has)34 b(to)g(b)s(e)g(selected)h(according)e(to)h +Fj(D)s Fw(\()p Fj(z)t Fw(\))p Fj(=z)39 b Fw(rather)34 +b(than)g(according)g(to)f Fj(D)s Fw(\()p Fj(z)t Fw(\).)49 +b(Note)34 b(that)0 943 y Fj(D)s Fw(\()p Fj(z)t Fw(\))p +Fj(=z)j Fw(is)32 b(not)h(normalized)d(to)j(unit)m(y)-8 +b(.)43 b(One)33 b(therefore)g(needs)h(to)f(de\014ne)1491 +1211 y Fn(I)1545 1226 y Fh(D)1637 1211 y Fw(=)1740 1094 +y Fg(Z)1823 1120 y Fl(1)1786 1283 y(0)1889 1144 y Fj(D)s +Fw(\()p Fj(z)t Fw(\))p 1889 1188 210 4 v 1969 1279 a +Fj(z)2125 1211 y Fw(d)p Fj(z)38 b(;)1268 b Fw(\(123\))0 +1453 y(and)33 b(a)f(prop)s(erly)g(normalized)1486 1623 +y Fj(D)1570 1582 y Fk(0)1593 1623 y Fw(\()p Fj(z)t Fw(\))c(=)1895 +1556 y(1)p 1860 1600 119 4 v 1860 1691 a Fn(I)1914 1706 +y Fh(D)2015 1556 y Fj(D)s Fw(\()p Fj(z)t Fw(\))p 2015 +1600 210 4 v 2094 1691 a Fj(z)2266 1623 y(:)1264 b Fw(\(124\))0 +1835 y(Then)813 1977 y Fj(\033)868 1992 y Fl(tot)991 +1977 y Fw(=)1094 1860 y Fg(Z)1177 1886 y Fl(1)1140 2048 +y(0)1233 1860 y Fg(Z)1316 1886 y Fl(1)1279 2048 y(0)1372 +1977 y Fj(D)1456 1936 y Fk(0)1479 1977 y Fw(\()p Fj(z)1562 +1992 y Fl(1)1602 1977 y Fw(\))17 b Fj(D)1741 1936 y Fk(0)1764 +1977 y Fw(\()p Fj(z)1847 1992 y Fl(2)1886 1977 y Fw(\))g +Fn(I)2002 1936 y Fl(2)1995 2001 y Fh(D)2076 1977 y Fj(z)2121 +1992 y Fl(1)2160 1977 y Fj(z)2205 1992 y Fl(2)2245 1977 +y Fj(\033)t Fw(\()p Fj(z)2387 1992 y Fl(1)2427 1977 y +Fj(z)2472 1992 y Fl(2)2512 1977 y Fj(s)p Fw(\))g(d)p +Fj(z)2712 1992 y Fl(1)2768 1977 y Fw(d)p Fj(z)2867 1992 +y Fl(2)2939 1977 y Fj(:)591 b Fw(\(125\))0 2187 y(Therefore)46 +b(the)f(prop)s(er)g(ev)m(en)m(t)i(w)m(eigh)m(t)f(is)e +Fn(I)1721 2151 y Fl(2)1714 2211 y Fh(D)1795 2187 y Fj(z)1840 +2202 y Fl(1)1880 2187 y Fj(z)1925 2202 y Fl(2)1964 2187 +y Fw(.)81 b(This)45 b(w)m(eigh)m(t)g(should)g(b)s(e)g(stored,)k(for)c +(eac)m(h)0 2295 y(ev)m(en)m(t,)f(in)39 b Fq(PARP\(173\))p +Fw(.)69 b(The)41 b(maxim)m(um)d(w)m(eigh)m(t)j(that)f(will)e(b)s(e)i +(encoun)m(tered)i(should)e(b)s(e)h(stored)0 2403 y(in)g +Fq(PARP\(174\))i Fw(b)s(efore)f(the)f Fq(PYINIT)i Fw(call,)f(and)g(not) +f(c)m(hanged)h(afterw)m(ards.)71 b(It)41 b(is)g(not)g(necessary)0 +2512 y(to)j(kno)m(w)h(the)g(precise)g(maxim)m(um;)j(an)m(y)d(v)-5 +b(alue)43 b(larger)h(than)g(the)h(true)f(maxim)m(um)e(will)g(do,)47 +b(but)0 2620 y(the)37 b(ine\016ciency)g(will)d(b)s(e)j(larger)e(the)i +(cruder)g(the)g(appro)m(ximation.)52 b(Additionally)34 +b(y)m(ou)j(m)m(ust)f(put)0 2728 y Fq(MSTP\(173\)=1)j +Fw(for)c(the)h(program)e(to)i(mak)m(e)g(use)h(of)e(w)m(eigh)m(ts)h(at)g +(all.)51 b(Often)36 b Fj(D)s Fw(\()p Fj(z)t Fw(\))g(are)g(not)f(kno)m +(wn)0 2837 y(analytically;)26 b(therefore)g Fn(I)1005 +2852 y Fh(D)1096 2837 y Fw(is)g(also)f(not)h(kno)m(wn)i(b)s(eforehand,) +g(but)f(ma)m(y)f(ha)m(v)m(e)h(to)f(b)s(e)h(ev)-5 b(aluated)26 +b(\(b)m(y)0 2945 y(y)m(ou\))i(during)f(the)h(course)g(of)f(the)h(run.) +42 b(Then)29 b(y)m(ou)f(should)f(just)h(use)h(the)f(w)m(eigh)m(t)f +Fj(z)3057 2960 y Fl(1)3097 2945 y Fj(z)3142 2960 y Fl(2)3209 +2945 y Fw(in)g Fq(PARP\(173\))0 3053 y Fw(and)33 b(do)g(the)g(o)m(v)m +(erall)f(normalization)e(y)m(ourself)j(in)f(the)i(end.)45 +b(Since)33 b Fq(PARP\(174\)=1.)48 b Fw(b)m(y)34 b(default,)e(in)0 +3162 y(this)i(case)h(y)m(ou)f(need)h(not)f(set)h(this)f(v)-5 +b(ariable)32 b(sp)s(ecially)-8 b(.)46 b(Only)34 b(the)g(cross)h +(sections)g(are)f(a\013ected)h(b)m(y)0 3270 y(the)g(pro)s(cedure)h +(selected)g(for)f(o)m(v)m(erall)f(normalization,)d(the)36 +b(ev)m(en)m(ts)h(themselv)m(es)f(still)d(are)i(prop)s(erly)0 +3379 y(distributed)d(in)g Fj(s)659 3342 y Fk(0)715 3379 +y Fw(and)g(in)m(ternal)g(phase)h(space.)146 3487 y(Ab)s(o)m(v)m(e)48 +b(it)d(has)h(b)s(een)h(assumed)g(tacitly)e(that)h Fj(D)s +Fw(\()p Fj(z)t Fw(\))51 b Fn(!)f Fw(0)c(for)g Fj(z)55 +b Fn(!)c Fw(0.)83 b(If)47 b(not,)i Fj(D)s Fw(\()p Fj(z)t +Fw(\))p Fj(=z)i Fw(is)0 3595 y(div)m(ergen)m(t,)37 b(and)f(it)e(is)h +(not)h(p)s(ossible)f(to)g(de\014ne)i(a)e(prop)s(erly)g(normalized)f +Fj(D)2867 3559 y Fk(0)2889 3595 y Fw(\()p Fj(z)t Fw(\))g(=)e +Fj(D)s Fw(\()p Fj(z)t Fw(\))p Fj(=z)t Fw(.)54 b(If)35 +b(the)0 3704 y(cross)43 b(section)e(is)g(truly)h(div)m(erging)e(lik)m +(e)h(1)p Fj(=s)p Fw(,)j(then)e(a)f Fj(D)s Fw(\()p Fj(z)t +Fw(\))h(whic)m(h)g(is)f(non)m(v)-5 b(anishing)41 b(for)g +Fj(z)48 b Fn(!)43 b Fw(0)0 3812 y(do)s(es)36 b(imply)d(an)i(in\014nite) +f(total)f(cross)k(section,)e(whic)m(hev)m(er)j(w)m(a)m(y)e(things)f +(are)g(considered.)52 b(In)35 b(cases)0 3920 y(lik)m(e)i(that,)h(it)e +(is)h(necessary)j(to)d(imp)s(ose)f(a)h(lo)m(w)m(er)h(cut)f(on)h +Fj(z)t Fw(,)h(based)f(on)g(some)f(ph)m(ysics)i(or)e(detector)0 +4029 y(consideration.)68 b(Some)40 b(suc)m(h)j(cut)e(is)f(an)m(yw)m(a)m +(y)j(needed)g(to)d(k)m(eep)j(a)m(w)m(a)m(y)f(from)e(the)h(minim)m(um)d +(c.m.)0 4137 y(energy)c(required)f(for)f Fm(Pythia)g +Fw(ev)m(en)m(ts,)j(see)f(ab)s(o)m(v)m(e.)146 4245 y(The)46 +b(most)e(di\016cult)g(cases)i(are)f(those)g(with)g(a)f(v)m(ery)j(narro) +m(w)e(and)g(high)e(p)s(eak,)49 b(suc)m(h)d(as)f(the)0 +4354 y(Z)60 4317 y Fl(0)99 4354 y Fw(.)80 b(One)45 b(could)f +(initialize)d(at)j(the)h(energy)h(of)e(maxim)m(um)e(cross)k(section)f +(and)f(use)i Fj(D)s Fw(\()p Fj(z)t Fw(\))f(as)g(is,)0 +4462 y(but)c(e\016ciency)g(migh)m(t)e(turn)i(out)f(to)g(b)s(e)h(v)m +(ery)h(lo)m(w.)66 b(One)41 b(migh)m(t)e(then)i(b)s(e)f(tempted)h(to)f +(do)g(more)0 4570 y(complicated)35 b(transforms)h(of)g(the)h(kind)g +(illustrated)d(ab)s(o)m(v)m(e.)57 b(As)37 b(a)f(rule)h(it)e(is)h(then)h +(con)m(v)m(enien)m(t)i(to)0 4679 y(w)m(ork)33 b(in)f(the)h(v)-5 +b(ariables)32 b Fj(\034)967 4694 y Fh(z)1034 4679 y Fw(=)c +Fj(z)1183 4694 y Fl(1)1223 4679 y Fj(z)1268 4694 y Fl(2)1340 +4679 y Fw(and)33 b Fj(y)1578 4694 y Fh(z)1645 4679 y +Fw(=)27 b(\(1)p Fj(=)p Fw(2\))17 b(ln)n(\()p Fj(z)2151 +4694 y Fl(1)2191 4679 y Fj(=z)2285 4694 y Fl(2)2324 4679 +y Fw(\),)33 b(cf.)44 b(subsection)33 b(7.2.)146 4787 +y(Clearly)-8 b(,)40 b(the)f(b)s(etter)g(the)g(b)s(eha)m(viour)g(of)f +(the)h(cross)h(section)e(can)h(b)s(e)g(mo)s(delled)e(in)h(the)h(c)m +(hoice)0 4895 y(of)j Fj(z)166 4910 y Fl(1)247 4895 y +Fw(and)h Fj(z)492 4910 y Fl(2)531 4895 y Fw(,)i(the)d(b)s(etter)h(the)f +(o)m(v)m(erall)f(ev)m(en)m(t)j(generation)e(e\016cien)m(y)-8 +b(.)73 b(Ev)m(en)44 b(under)f(the)f(b)s(est)h(of)0 5004 +y(circumstances,)30 b(the)f(e\016ciency)g(will)d(still)g(b)s(e)j(lo)m +(w)m(er)f(than)h(for)e(runs)i(with)f(\014x)h(energy)-8 +b(.)43 b(There)30 b(is)d(also)0 5112 y(a)21 b(non-negligible)e(time)h +(o)m(v)m(erhead)k(for)d(using)g(v)-5 b(ariable)20 b(energies)j(in)e +(the)h(\014rst)g(place,)i(from)c(kinematics)0 5220 y(reconstruction)29 +b(and)g(\(in)e(part\))i(from)e(the)i(phase)g(space)h(selection.)42 +b(One)29 b(should)f(therefore)h(not)f(use)0 5344 y(v)-5 +b(ariable)28 b(energies)j(when)g(not)f(needed,)j(and)d(not)g(use)h(a)f +(large)f(range)h(of)g(energies)3081 5262 y Fn(p)p 3164 +5262 70 4 v 82 x Fj(s)3210 5315 y Fk(0)3264 5344 y Fw(if)f(in)g(the)i +(end)0 5453 y(only)h(a)g(smaller)f(range)h(is)h(of)f(exp)s(erimen)m +(tal)f(in)m(terest.)146 5561 y(This)i(facilit)m(y)d(ma)m(y)i(b)s(e)g +(com)m(bined)g(with)g(most)g(other)g(asp)s(ects)h(of)f(the)h(program.) +42 b(F)-8 b(or)31 b(instance,)0 5669 y(it)36 b(is)h(p)s(ossible)f(to)h +(sim)m(ulate)e(b)s(eamstrahlung)h(as)i(ab)s(o)m(v)m(e)g(and)f(still)d +(include)j(bremsstrahlung)g(with)1817 5953 y(175)p eop +%%Page: 176 182 +176 181 bop 0 -18 a Fq(MSTP\(11\)=1)p Fw(.)69 b(F)-8 +b(urther,)42 b(one)e(ma)m(y)g(m)m(ultiply)d(the)k(o)m(v)m(erall)e(ev)m +(en)m(t)j(w)m(eigh)m(t)e(of)47 b Fq(PARP\(173\))42 b +Fw(with)e(a)0 90 y(kinematics-dep)s(enden)m(t)28 b(w)m(eigh)m(t)h(giv)m +(en)f(b)m(y)i Fq(PYEVWT)p Fw(,)g(although)c(it)h(is)h(not)g +(recommended)g(\(since)g(the)0 198 y(c)m(hances)35 b(of)d(making)f(a)h +(mistak)m(e)g(are)h(also)e(m)m(ultiplied\).)41 b(Ho)m(w)m(ev)m(er,)35 +b(a)d(few)h(things)f(do)h Fi(not)42 b Fw(w)m(ork.)145 +311 y Fn(\017)49 b Fw(It)33 b(is)f(not)g(p)s(ossible)g(to)g(use)i +(pile-up)d(ev)m(en)m(ts,)k(i.e.)43 b(y)m(ou)33 b(m)m(ust)g(ha)m(v)m(e)h +Fq(MSTP\(131\)=0)p Fw(.)145 429 y Fn(\017)49 b Fw(The)34 +b(p)s(ossibilit)m(y)d(of)h(giving)g(in)g(y)m(our)h(o)m(wn)h +(cross-section)g(optimization)29 b(co)s(e\016cien)m(ts,)35 +b(option)244 537 y Fq(MSTP\(121\)=2)p Fw(,)42 b(w)m(ould)c(require)h +(more)e(input)h(than)g(with)f(\014xed)j(energies,)g(and)e(this)g +(option)244 646 y(should)32 b(therefore)h(not)g(b)s(e)g(used.)44 +b(Y)-8 b(ou)33 b(can)g(still)d(use)j Fq(MSTP\(121\)=1)p +Fw(,)j(ho)m(w)m(ev)m(er.)145 764 y Fn(\017)49 b Fw(The)31 +b(m)m(ultiple)d(in)m(teractions)i(scenario)h(with)f Fq(MSTP\(82\))p +Fn(\025)g Fw(2)g(only)g(w)m(orks)i(appro)m(ximately)d(for)244 +872 y(energies)38 b(di\013eren)m(t)h(from)d(the)j(initialization)32 +b(one.)60 b(If)38 b(the)h(c.m.)59 b(energy)39 b(spread)g(is)e(smaller) +244 980 y(than)h(a)f(factor)g(2,)i(sa)m(y)-8 b(,)40 b(the)e(appro)m +(ximation)d(should)j(b)s(e)g(reasonable,)h(but)f(if)e(the)i(spread)h +(is)244 1089 y(larger)21 b(one)h(ma)m(y)g(ha)m(v)m(e)h(to)f(sub)s +(divide)g(in)m(to)f(subruns)j(of)d(di\013eren)m(t)i(energy)g(bins.)40 +b(The)22 b(initializa-)244 1197 y(tion)33 b(should)g(b)s(e)h(made)f(at) +h(the)g(largest)f(energy)h(to)g(b)s(e)g(encoun)m(tered)i(|)d(whenev)m +(er)j(m)m(ultiple)244 1305 y(in)m(teractions)k(are)h(p)s(ossible)f +(\(i.e.)69 b(for)40 b(incoming)f(hadrons)i(and)g(resolv)m(ed)h +(photons\))f(this)g(is)244 1414 y(where)i(the)f(cross)h(sections)f(are) +g(largest)f(an)m(yw)m(a)m(y)-8 b(,)46 b(and)c(so)g(this)f(is)h(no)f +(further)h(constrain)m(t.)244 1522 y(There)32 b(is)f(no)g(simple)f(p)s +(ossibilit)m(y)f(to)i(c)m(hange)h Fq(PARP\(82\))i Fw(during)c(the)i +(course)g(of)f(the)h(run,)g(i.e.)244 1630 y(an)25 b(energy-indep)s +(enden)m(t)j Fj(p)1279 1645 y Fk(?)p Fl(0)1399 1630 y +Fw(m)m(ust)d(b)s(e)h(assumed.)42 b(The)27 b(default)d(option)h +Fq(MSTP\(82\)=1)j Fw(w)m(orks)244 1739 y(\014ne,)j(i.e.)42 +b(do)s(es)31 b(not)f(su\013er)h(from)e(the)h(constrain)m(ts)h(ab)s(o)m +(v)m(e.)44 b(If)30 b(so)g(desired,)h Fj(p)3089 1754 y +Fk(?)p Fl(min)3294 1739 y Fw(=)p Fq(PARP\(81\))244 1847 +y Fw(can)42 b(b)s(e)f(set)h(di\013eren)m(tly)g(for)e(eac)m(h)j(ev)m(en) +m(t,)i(as)d(a)f(function)g(of)g(c.m.)70 b(energy)-8 b(.)71 +b(Initialization)244 1955 y(should)32 b(then)i(b)s(e)e(done)h(with)g +Fq(PARP\(81\))h Fw(as)f(lo)m(w)f(as)h(it)e(is)h(ev)m(er)i(supp)s(osed)h +(to)d(b)s(ecome.)0 2227 y Fp(9.7)135 b(Other)46 b(Routines)f(and)g +(Common)g(Blo)t(c)l(ks)0 2399 y Fw(The)k(subroutines)g(and)g(common)d +(blo)s(c)m(ks)j(that)f(y)m(ou)h(will)d(come)i(in)f(direct)h(con)m(tact) +h(with)f(ha)m(v)m(e)0 2508 y(already)31 b(b)s(een)i(describ)s(ed.)44 +b(A)31 b(n)m(um)m(b)s(er)h(of)g(other)f(routines)h(and)g(common)e(blo)s +(c)m(ks)i(exist,)g(and)g(those)0 2616 y(not)j(describ)s(ed)g(elsewhere) +h(are)f(here)h(brie\015y)f(listed)f(for)g(the)h(sak)m(e)h(of)e +(completeness.)51 b(The)36 b Fq(PYG***)0 2724 y Fw(routines)i(are)h +(sligh)m(tly)d(mo)s(di\014ed)i(v)m(ersions)h(of)f(the)h +Fq(SAS***)h Fw(ones)f(of)f(the)h Fm(SaSgam)f Fw(library)-8 +b(.)60 b(The)0 2833 y(common)37 b(blo)s(c)m(k)i Fq(SASCOM)h +Fw(is)e(renamed)h Fq(PYINT8)p Fw(.)64 b(If)38 b(y)m(ou)i(w)m(an)m(t)f +(to)g(use)g(the)g(parton)g(distributions)0 2941 y(for)32 +b(standalone)g(purp)s(oses,)h(y)m(ou)g(are)g(encouraged)g(to)f(use)h +(the)g(original)c Fm(SaSgam)j Fw(routines)g(rather)0 +3049 y(than)h(going)e(the)i(w)m(a)m(y)h(via)d(the)i Fm(Pythia)g +Fw(adaptations.)0 3177 y Fq(SUBROUTINE)54 b(PYINRE)f(:)47 +b Fw(to)33 b(initialize)28 b(the)33 b(widths)g(and)g(e\013ectiv)m(e)g +(widths)g(of)f(resonances.)0 3286 y Fq(SUBROUTINE)54 +b(PYINBM\(CHFRAM,CHBEAM,CHTA)q(RG,W)q(IN\))k(:)47 b Fw(to)38 +b(read)g(in)f(and)h(iden)m(tify)g(the)g(b)s(eam)472 3394 +y(\()p Fq(CHBEAM)p Fw(\))29 b(and)e(target)g(\()p Fq(CTTARG)p +Fw(\))i(particles)e(and)g(the)h(frame)e(\()p Fq(CHFRAM)p +Fw(\))j(as)e(giv)m(en)h(in)e(the)472 3502 y Fq(PYINIT)35 +b Fw(call;)30 b(also)i(to)g(sa)m(v)m(e)j(the)e(original)c(energy)k(\()p +Fq(WIN)p Fw(\).)0 3611 y Fq(SUBROUTINE)54 b(PYINKI\(MODKI\))h(:)47 +b Fw(to)g(set)g(up)g(the)g(ev)m(en)m(t)i(kinematics,)g(either)e(at)f +(initialization)472 3719 y(\()p Fq(MODKI=0)p Fw(\))32 +b(or)e(for)g(eac)m(h)h(separate)g(ev)m(en)m(t,)h(the)f(latter)e(when)i +(the)g(program)e(is)g(run)i(with)472 3827 y(v)-5 b(arying)32 +b(kinematics)g(\()p Fq(MODKI=1)p Fw(\).)0 3936 y Fq(SUBROUTINE)54 +b(PYINPR)f(:)47 b Fw(to)41 b(set)i(up)e(the)h(partonic)f(subpro)s +(cesses)j(selected)f(with)e Fq(MSEL)p Fw(.)i(F)-8 b(or)40 +b Fj(\015)5 b Fw(p)472 4044 y(and)32 b Fj(\015)5 b(\015)g +Fw(,)32 b(also)f(the)h Fq(MSTP\(14\))i Fw(v)-5 b(alue)31 +b(a\013ects)i(the)f(c)m(hoice)g(of)g(pro)s(cesses.)45 +b(In)32 b(particular,)472 4152 y(the)i(option)e Fq(MSTP\(14\)=10)37 +b Fw(sets)d(up)g(the)f(three)h(or)f(six)h(di\013eren)m(t)f(pro)s +(cesses)i(that)e(need)472 4261 y(to)g(b)s(e)f(mixed,)g(with)h(separate) +g(cuts)g(for)g(eac)m(h.)0 4369 y Fq(SUBROUTINE)54 b(PYXTOT)f(:)47 +b Fw(to)22 b(giv)m(e)h(the)g(parametrized)e(total,)i(double)g +(di\013ractiv)m(e,)h(single)d(di\013ractiv)m(e)472 4478 +y(and)33 b(elastic)f(cross)h(sections)g(for)f(di\013eren)m(t)h +(energies)g(and)g(colliding)c(hadrons.)0 4586 y Fq(SUBROUTINE)54 +b(PYMAXI)f(:)47 b Fw(to)37 b(\014nd)h(optimal)c(co)s(e\016cien)m(ts)k +Fq(COEF)g Fw(for)e(the)i(selection)f(of)f(kinematical)472 +4694 y(v)-5 b(ariables,)26 b(and)f(to)f(\014nd)i(the)f(related)f +(maxima)f(for)h(the)h(di\013eren)m(tial)f(cross)h(section)g(times)472 +4803 y(Jacobian)32 b(factors,)h(for)f(eac)m(h)h(of)g(the)g(subpro)s +(cesses)i(included.)0 4911 y Fq(SUBROUTINE)54 b(PYPILE\(MPILE\))h(:)47 +b Fw(to)c(determine)g(the)h(n)m(um)m(b)s(er)g(of)f(pile-up)f(ev)m(en)m +(ts,)49 b(i.e.)75 b(ev)m(en)m(ts)472 5019 y(app)s(earing)32 +b(in)g(the)h(same)f(b)s(eam{b)s(eam)f(crossing.)0 5128 +y Fq(SUBROUTINE)54 b(PYSAVE\(ISAVE,IGA\))i(:)47 b Fw(sa)m(v)m(es)33 +b(and)d(restores)i(parameters)e(and)g(cross)i(section)e(v)-5 +b(al-)472 5236 y(ues)41 b(b)s(et)m(w)m(een)g(the)e(three)h +Fj(\015)5 b Fw(p)40 b(and)f(the)h(six)f Fj(\015)5 b(\015)44 +b Fw(comp)s(onen)m(ts)c(of)45 b Fq(MSTP\(14\)=10)p Fw(.)67 +b(The)472 5344 y(options)32 b(for)f Fq(ISAVE)j Fw(are)e(\(1\))f(a)h +(complete)f(sa)m(v)m(e)j(of)d(all)f(parameters)i(sp)s(eci\014c)h(to)f +(a)f(giv)m(en)472 5453 y(comp)s(onen)m(t,)g(\(2\))f(a)g(partial)f(sa)m +(v)m(e)j(of)e(cross-section)h(information,)c(\(3\))j(a)g(restoration)g +(of)472 5561 y(all)i(parameters)h(sp)s(eci\014c)i(to)e(a)g(giv)m(en)h +(comp)s(onen)m(t,)f(\(4\))g(as)h(3)f(but)h(preceded)h(b)m(y)g(a)e(ran-) +472 5669 y(dom)27 b(selection)g(of)g(comp)s(onen)m(t,)h(and)g(\(5\))f +(a)g(summation)e(of)i(comp)s(onen)m(t)h(cross)g(sections)1817 +5953 y(176)p eop +%%Page: 177 183 +177 182 bop 472 -18 a Fw(\(for)32 b Fq(PYSTAT)p Fw(\).)i(The)f(subpro)s +(cess)h(co)s(de)e(in)g Fq(IGA)g Fw(is)g(the)h(one)f(describ)s(ed)h(for) +e Fq(MSTI\(9\))p Fw(;)j(it)472 90 y(is)f(input)f(for)g(options)g(1,)g +(2)g(and)h(3)f(ab)s(o)m(v)m(e,)i(output)f(for)f(4)g(and)h(dumm)m(y)f +(for)g(5.)0 198 y Fq(SUBROUTINE)54 b(PYRAND)f(:)47 b +Fw(to)30 b(generate)g(the)g(quan)m(tities)g(c)m(haracterizing)f(a)g +(hard)h(scattering)f(on)h(the)472 307 y(parton)j(lev)m(el,)f(according) +g(to)g(the)h(relev)-5 b(an)m(t)33 b(matrix)e(elemen)m(ts.)0 +415 y Fq(SUBROUTINE)54 b(PYSCAT)f(:)47 b Fw(to)30 b(\014nd)h(outgoing)e +(\015a)m(v)m(ours)j(and)f(to)f(set)h(up)g(the)f(kinematics)g(and)g +(colour)472 523 y(\015o)m(w)k(of)e(the)h(hard)f(scattering.)0 +632 y Fq(SUBROUTINE)54 b(PYRESD)f(:)47 b Fw(to)25 b(allo)m(w)f +(resonances)j(to)e(deca)m(y)-8 b(,)28 b(including)c(c)m(hains)i(of)e +(successiv)m(e)29 b(deca)m(ys)472 740 y(and)k(parton)f(sho)m(w)m(ers.)0 +848 y Fq(SUBROUTINE)54 b(PYMULT\(MMUL\))g(:)48 b Fw(to)29 +b(generate)h(semi-hard)e(in)m(teractions)h(according)g(to)g(the)h(m)m +(ulti-)472 957 y(ple)j(in)m(teraction)e(formalism.)0 +1065 y Fq(SUBROUTINE)54 b(PYREMN\(IPU1,IPU2\))i(:)47 +b Fw(to)42 b(add)g(on)g(target)g(remnan)m(ts)g(and)h(include)e +(primordial)472 1173 y Fj(k)523 1188 y Fk(?)582 1173 +y Fw(.)0 1282 y Fq(SUBROUTINE)54 b(PYDIFF)f(:)47 b Fw(to)33 +b(handle)f(di\013ractiv)m(e)g(and)g(elastic)g(scattering)g(ev)m(en)m +(ts.)0 1390 y Fq(SUBROUTINE)54 b(PYDOCU)f(:)47 b Fw(to)39 +b(compute)h(cross)g(sections)g(of)f(pro)s(cesses,)k(based)e(on)e +(curren)m(t)i(Mon)m(te)472 1498 y(Carlo)32 b(statistics,)g(and)h(to)f +(store)h(ev)m(en)m(t)i(information)29 b(in)j(the)h Fq(MSTI)g +Fw(and)g Fq(PARI)h Fw(arra)m(ys.)0 1607 y Fq(SUBROUTINE)54 +b(PYWIDT\(KFLR,SH,WDTP,WDTE\))k(:)47 b Fw(to)30 b(calculate)f(widths)h +(and)g(e\013ectiv)m(e)h(widths)f(of)472 1715 y(resonances.)0 +1823 y Fq(SUBROUTINE)54 b(PYOFSH\(MOFSH,KFMO,KFD1,KF)q(D2,P)q(MMO,)q +(RET)q(1,RE)q(T2\))k(:)47 b Fw(to)59 b(calculate)g(partial)472 +1932 y(widths)48 b(in)m(to)e(c)m(hannels)h(o\013)g(the)g(mass)g(shell,) +j(and)d(to)f(select)i(correlated)e(masses)i(of)472 2040 +y(resonance)34 b(pairs.)0 2148 y Fq(SUBROUTINE)54 b(PYKLIM\(ILIM\))g(:) +48 b Fw(to)32 b(calculate)g(allo)m(w)m(ed)f(kinematical)f(limits.)0 +2257 y Fq(SUBROUTINE)54 b(PYKMAP\(IVAR,MVAR,VVAR\))j(:)48 +b Fw(to)24 b(calculate)f(the)i(v)-5 b(alue)24 b(of)g(a)g(kinematical)e +(v)-5 b(ariable)472 2365 y(when)34 b(this)e(is)g(selected)i(according)e +(to)g(one)h(of)f(the)h(simple)e(pieces.)0 2473 y Fq(SUBROUTINE)54 +b(PYSIGH\(NCHN,SIGS\))i(:)47 b Fw(to)39 b(giv)m(e)h(the)g(di\013eren)m +(tial)e(cross)i(section)g(\(m)m(ultiplied)d(b)m(y)472 +2582 y(the)c(relev)-5 b(an)m(t)33 b(Jacobians\))f(for)g(a)h(giv)m(en)f +(subpro)s(cess)j(and)e(kinematical)d(setup.)0 2690 y +Fq(SUBROUTINE)54 b(PYSTFL\(KF,X,Q2,XPQ\))i(:)48 b Fw(to)e(giv)m(e)h +(parton)f(distributions)f(for)h(p)h(and)f(n)h(in)f(the)472 +2798 y(option)32 b(with)g(mo)s(di\014ed)f(b)s(eha)m(viour)i(at)f(small) +e Fj(Q)2300 2762 y Fl(2)2373 2798 y Fw(and)i Fj(x)p Fw(,)h(see)h +Fq(MSTP\(57\))p Fw(.)0 2907 y Fq(SUBROUTINE)54 b(PYSTFU\(KF,X,Q2,XPQ\)) +i(:)48 b Fw(to)41 b(giv)m(e)h(parton-distribution)d(functions)j(\(m)m +(ultiplied)472 3015 y(b)m(y)26 b Fj(x)p Fw(,)h(i.e.)41 +b Fj(xf)978 3030 y Fh(i)1006 3015 y Fw(\()p Fj(x;)17 +b(Q)1220 2979 y Fl(2)1260 3015 y Fw(\)\))25 b(for)f(an)h(arbitrary)f +(particle)f(\(of)h(those)i(recognized)f(b)m(y)i Fm(Pythia)p +Fw(\).)472 3123 y(Generic)33 b(driv)m(er)g(routine)f(for)g(the)h(follo) +m(wing,)d(sp)s(ecialized)h(ones.)236 3232 y Fq(KF)52 +b(:)268 b Fw(\015a)m(v)m(our)33 b(of)f(prob)s(ed)h(particle,)e +(according)h(to)h(KF)f(co)s(de.)236 3340 y Fq(X)52 b(:)319 +b Fj(x)33 b Fw(v)-5 b(alue)32 b(at)g(whic)m(h)h(to)f(ev)-5 +b(aluate)32 b(parton)h(distributions.)236 3448 y Fq(Q2)52 +b(:)268 b Fj(Q)786 3412 y Fl(2)858 3448 y Fw(scale)32 +b(at)h(whic)m(h)g(to)f(ev)-5 b(aluate)32 b(parton)g(distributions.)236 +3557 y Fq(XPQ)52 b(:)217 b Fw(arra)m(y)37 b(of)f(dimensions)g +Fq(XPQ\(-25:25\))p Fw(,)k(whic)m(h)d(con)m(tains)g(the)g(ev)-5 +b(aluated)37 b(parton)709 3665 y(distributions)k Fj(xf)1392 +3680 y Fh(i)1421 3665 y Fw(\()p Fj(x;)17 b(Q)1635 3629 +y Fl(2)1674 3665 y Fw(\).)75 b(Comp)s(onen)m(ts)43 b +Fj(i)g Fw(ordered)g(according)g(to)f(standard)709 3774 +y(KF)33 b(co)s(de;)h(additionally)c(the)k(gluon)f(is)g(found)g(in)g(p)s +(osition)f(0)h(as)h(w)m(ell)e(as)i(21)f(\(for)709 3882 +y(historical)d(reasons\).)0 3990 y Fq(SUBROUTINE)54 b +(PYSTEL\(X,Q2,XPEL\))i(:)47 b Fw(to)32 b(giv)m(e)h(electron)f(parton)h +(distributions.)0 4099 y Fq(SUBROUTINE)54 b(PYSTGA\(X,Q2,XPGA\))i(:)47 +b Fw(to)24 b(giv)m(e)f(the)i(photon)e(parton)h(distributions)e(for)h +(sets)i(other)472 4207 y(than)33 b(the)g(SaS)g(ones.)0 +4315 y Fq(SUBROUTINE)54 b(PYGGAM\(ISET,X,Q2,P2,F2GM,)q(XPDF)q(GM\))k(:) +47 b Fw(to)36 b(construct)h(the)g(SaS)f Fj(F)3337 4330 +y Fl(2)3413 4315 y Fw(and)g(par-)472 4424 y(ton)25 b(distributions)e +(of)i(the)g(photon)g(b)m(y)g(summing)e(homogeneous)i(\(VMD\))g(and)g +(inhomo-)472 4532 y(geneous)30 b(\(anomalous\))e(terms.)42 +b(F)-8 b(or)28 b Fj(F)1930 4547 y Fl(2)1969 4532 y Fw(,)i(c)f(and)g(b)g +(are)g(included)g(b)m(y)h(the)f(Bethe-Heitler)472 4650 +y(form)m(ula;)38 b(in)f(the)g(`)p 1182 4572 144 4 v(MS)q(')g(sc)m(heme) +h(additionally)c(a)j Fj(C)2435 4614 y Fh(\015)2517 4650 +y Fw(term)f(is)h(added.)58 b(Calls)36 b Fq(PYGVMD)p Fw(,)472 +4758 y Fq(PYGANO)p Fw(,)f Fq(PYGBEH)p Fw(,)f(and)f Fq(PYGDIR)p +Fw(.)0 4866 y Fq(SUBROUTINE)54 b(PYGVMD\(ISET,KF,X,Q2,P2,AL)q(AM,X)q +(PGA\))k(:)47 b Fw(to)26 b(ev)-5 b(aluate)26 b(the)h(VMD)f(parton)g +(dis-)472 4975 y(tributions)31 b(of)h(a)f(photon,)h(ev)m(olv)m(ed)h +(homogeneously)f(from)f(an)g(initial)e(scale)i Fj(P)3446 +4939 y Fl(2)3517 4975 y Fw(to)h Fj(Q)3713 4939 y Fl(2)3752 +4975 y Fw(.)0 5083 y Fq(SUBROUTINE)54 b(PYGANO\(KF,X,Q2,P2,ALAM,XP)q +(GA\))k(:)47 b Fw(to)32 b(ev)-5 b(aluate)32 b(the)g(parton)g +(distributions)f(of)472 5192 y(the)45 b(anomalous)d(photon,)47 +b(inhomogeneously)c(ev)m(olv)m(ed)i(from)e(a)h(scale)g +Fj(P)3301 5155 y Fl(2)3383 5192 y Fw(\(where)h(it)472 +5300 y(v)-5 b(anishes\))34 b(to)e Fj(Q)1090 5264 y Fl(2)1129 +5300 y Fw(.)0 5408 y Fq(SUBROUTINE)54 b(PYGBEH\(KF,X,Q2,P2,PM2,XPB)q +(H\))j(:)48 b Fw(to)35 b(ev)-5 b(aluate)34 b(the)i(Bethe-Heitler)e +(cross)i(sec-)472 5517 y(tion)c(for)g(hea)m(vy)i(\015a)m(v)m(our)g(pro) +s(duction.)0 5625 y Fq(SUBROUTINE)54 b(PYGDIR\(X,Q2,P2,AK0,XPGA\))k(:) +47 b Fw(to)33 b(ev)-5 b(aluate)32 b(the)i(direct)f(con)m(tribution,)f +(i.e.)44 b(the)1817 5953 y(177)p eop +%%Page: 178 184 +178 183 bop 472 -18 a Fj(C)549 -55 y Fh(\015)626 -18 +y Fw(term,)32 b(as)h(needed)h(in)p 1445 -97 144 4 v 32 +w(MS)f(parametrizations.)0 90 y Fq(SUBROUTINE)54 b(PYSTPI\(X,Q2,XPPI\)) +i(:)47 b Fw(to)32 b(giv)m(e)h(pion)f(parton)g(distributions.)0 +198 y Fq(SUBROUTINE)54 b(PYSTPR\(X,Q2,XPPR\))i(:)47 b +Fw(to)32 b(giv)m(e)h(proton)f(parton)h(distributions.)0 +307 y Fq(FUNCTION)53 b(PYCTQ2\(ISET,IPRT,X,Q\))k(:)48 +b Fw(to)32 b(giv)m(e)h(the)g(CTEQ2)g(proton)f(parton)h(distributions.)0 +415 y Fq(FUNCTION)53 b(PYHFTH\(SH,SQM,FRATT\))k(:)47 +b Fw(to)30 b(giv)m(e)g(hea)m(vy-\015a)m(v)m(our)h(threshold)f(factor)f +(in)g(matrix)g(el-)472 523 y(emen)m(ts.)0 632 y Fq(SUBROUTINE)54 +b(PYSPLI\(KF,KFLIN,KFLCH,KFL)q(SP\))k(:)47 b Fw(to)h(giv)m(e)h(hadron)f +(remnan)m(t)h(or)f(remnan)m(ts)472 740 y(left)32 b(b)s(ehind)h(when)g +(the)g(reacting)f(parton)h(is)f(kic)m(k)m(ed)i(out.)0 +848 y Fq(FUNCTION)53 b(PYGAMM\(X\))h(:)48 b Fw(to)41 +b(giv)m(e)h(the)g(v)-5 b(alue)41 b(of)h(the)g(ordinary)f(\000\()p +Fj(x)p Fw(\))h(function)g(\(used)h(in)e(some)472 957 +y(parton-distribution)30 b(parametrizations\).)0 1065 +y Fq(SUBROUTINE)54 b(PYWAUX\(IAUX,EPS,WRE,WIM\))k(:)47 +b Fw(to)36 b(ev)-5 b(aluate)36 b(the)h(t)m(w)m(o)g(auxiliary)e +(functions)h Fj(W)3740 1080 y Fl(1)472 1173 y Fw(and)d +Fj(W)754 1188 y Fl(2)826 1173 y Fw(app)s(earing)f(in)g(the)h(cross)g +(section)g(expressions)h(in)e Fq(PYSIGH)p Fw(.)0 1282 +y Fq(SUBROUTINE)54 b(PYI3AU\(EPS,RAT,Y3RE,Y3IM\))k(:)47 +b Fw(to)e(ev)-5 b(aluate)45 b(the)h(auxiliary)d(function)h +Fj(I)3559 1297 y Fl(3)3644 1282 y Fw(ap-)472 1390 y(p)s(earing)32 +b(in)g(the)h(cross)g(section)g(expressions)h(in)e Fq(PYSIGH)p +Fw(.)0 1498 y Fq(FUNCTION)53 b(PYSPEN\(XREIN,XIMIN,IREI)q(M\))k(:)48 +b Fw(to)41 b(calculate)g(the)i(real)e(and)h(imaginary)d(part)j(of)472 +1607 y(the)33 b(Sp)s(ence)h(function.)0 1715 y Fq(SUBROUTINE)54 +b(PYQQBH\(WTQQBH\))h(:)47 b Fw(to)27 b(calculate)f(matrix)g(elemen)m +(ts)i(for)e(the)i(t)m(w)m(o)g(pro)s(cesses)h(gg)g Fn(!)472 +1823 y Fw(Q)p 548 1745 76 4 v(QH)697 1787 y Fl(0)769 +1823 y Fw(and)k(q)p 1010 1770 52 4 v(q)c Fn(!)e Fw(Q)p +1293 1745 76 4 v(QH)1442 1787 y Fl(0)1481 1823 y Fw(.)0 +1932 y Fq(BLOCK)53 b(DATA)f(PYDATA)h(:)47 b Fw(to)29 +b(giv)m(e)g(sensible)h(default)e(v)-5 b(alues)29 b(to)g(all)e(status)j +(co)s(des)g(and)f(parameters.)p 0 2101 1851 9 v 0 2326 +9 225 v 79 2241 a Fq(COMMON/PYINT1/MINT\(400\),)q(VINT)q(\(400)q(\))p +1842 2326 V 0 2334 1851 9 v 0 2466 a Fo(Purp)s(ose:)48 +b Fw(to)25 b(collect)g(a)g(host)h(of)g(in)m(teger-)f(and)g(real-v)-5 +b(alued)25 b(v)-5 b(ariables)24 b(used)j(in)m(ternally)d(in)h(the)h +(pro-)472 2574 y(gram)33 b(during)g(the)g(initialization)28 +b(and/or)34 b(ev)m(en)m(t)h(generation)e(stage.)46 b(These)36 +b(v)-5 b(ariables)472 2682 y(m)m(ust)33 b(not)g(b)s(e)f(c)m(hanged)i(b) +m(y)f(y)m(ou.)0 2791 y Fq(MINT\(1\))53 b(:)48 b Fw(sp)s(eci\014es)39 +b(the)g(general)f(t)m(yp)s(e)i(of)e(subpro)s(cess)j(that)d(has)h(o)s +(ccurred,)i(according)d(to)g(the)472 2899 y(ISUB)c(co)s(de)e(giv)m(en)h +(in)f(section)h(8.1.)0 3007 y Fq(MINT\(2\))53 b(:)48 +b Fw(whenev)m(er)33 b Fq(MINT\(1\))f Fw(\(together)e(with)g +Fq(MINT\(15\))j Fw(and)d Fq(MINT\(16\))p Fw(\))j(are)d(not)g +(su\016cien)m(t)472 3116 y(to)38 b(sp)s(ecify)h(the)f(t)m(yp)s(e)h(of)f +(pro)s(cess)i(uniquely)-8 b(,)39 b Fq(MINT\(2\))h Fw(pro)m(vides)f(an)f +(ordering)f(of)h(the)472 3224 y(di\013eren)m(t)33 b(p)s(ossibilities,)d +(see)k Fq(MSTI\(2\))p Fw(.)0 3332 y Fq(MINT\(3\))53 b(:)48 +b Fw(n)m(um)m(b)s(er)27 b(of)g(partons)g(pro)s(duced)h(in)e(the)i(hard) +f(in)m(teractions,)g(i.e.)41 b(the)28 b(n)m(um)m(b)s(er)f +Fj(n)g Fw(of)g(the)472 3441 y(2)h Fn(!)f Fj(n)j Fw(matrix)e(elemen)m +(ts)h(used;)j(is)d(sometimes)g(3)g(or)g(4)g(when)i(a)e(basic)g(2)e +Fn(!)h Fw(1)h(or)g(2)e Fn(!)h Fw(2)472 3549 y(pro)s(cess)f(has)e(b)s +(een)h(folded)f(with)g(t)m(w)m(o)h(1)h Fn(!)g Fw(2)e(initial)d(branc)m +(hings)j(\(lik)m(e)g(qq)3216 3513 y Fk(0)3268 3549 y +Fn(!)i Fw(q)3446 3513 y Fk(00)3489 3549 y Fw(q)3540 3513 +y Fk(000)3602 3549 y Fw(H)3675 3513 y Fl(0)3714 3549 +y Fw(\).)0 3657 y Fq(MINT\(4\))53 b(:)48 b Fw(n)m(um)m(b)s(er)28 +b(of)f(do)s(cumen)m(tation)g(lines)g(at)g(the)h(b)s(eginning)f(of)g +(the)h(common)e(blo)s(c)m(k)i Fq(LUJETS)472 3766 y Fw(that)33 +b(are)f(giv)m(en)h(with)f Fq(K\(I,1\)=21)p Fw(;)j(0)e(for)f +Fq(MSTP\(125\)=0)p Fw(.)0 3874 y Fq(MINT\(5\))53 b(:)48 +b Fw(n)m(um)m(b)s(er)30 b(of)f(ev)m(en)m(ts)j(generated)e(to)g(date)f +(in)g(curren)m(t)i(run.)43 b(In)30 b(runs)g(with)g(the)g(v)-5 +b(ariable-)472 3982 y(energy)31 b(option,)f Fq(MSTP\(171\)=1)j +Fw(and)d Fq(MSTP\(172\)=2)p Fw(,)j(only)d(those)g(ev)m(en)m(ts)i(that)e +(surviv)m(e)472 4091 y(\(i.e.)83 b(that)45 b(do)h(not)g(ha)m(v)m(e)h +Fq(MSTI\(61\)=1)p Fw(\))h(are)e(coun)m(ted)h(in)e(this)g(n)m(um)m(b)s +(er.)84 b(That)46 b(is,)472 4199 y Fq(MINT\(5\))35 b +Fw(ma)m(y)d(b)s(e)h(less)g(than)f(the)h(total)f(n)m(um)m(b)s(er)h(of)39 +b Fq(PYEVNT)34 b Fw(calls.)0 4307 y Fq(MINT\(6\))53 b(:)48 +b Fw(curren)m(t)33 b(frame)f(of)g(ev)m(en)m(t)j(\(see)e +Fq(MSTP\(124\))i Fw(for)d(p)s(ossible)g(v)-5 b(alues\).)0 +4416 y Fq(MINT\(7\),)53 b(MINT\(8\))h(:)47 b Fw(line)29 +b(n)m(um)m(b)s(er)i(for)f(do)s(cumen)m(tation)f(of)h(outgoing)f +(partons/particles)h(from)472 4524 y(hard)j(scattering)f(for)g(2)c +Fn(!)f Fw(2)32 b(or)h(2)27 b Fn(!)g Fw(1)h Fn(!)f Fw(2)33 +b(pro)s(cesses)h(\(else)f(=)f(0\).)0 4632 y Fq(MINT\(10\))53 +b(:)48 b Fw(is)32 b(1)g(if)g(cross)h(section)g(maxim)m(um)d(w)m(as)k +(violated)d(in)h(curren)m(t)h(ev)m(en)m(t,)i(and)e(0)f(if)f(not.)0 +4741 y Fq(MINT\(11\))53 b(:)48 b Fw(KF)32 b(\015a)m(v)m(our)h(co)s(de)g +(for)f(b)s(eam)g(\(side)h(1\))f(particle.)0 4849 y Fq(MINT\(12\))53 +b(:)48 b Fw(KF)32 b(\015a)m(v)m(our)h(co)s(de)g(for)f(target)h(\(side)f +(2\))g(particle.)0 4958 y Fq(MINT\(13\),)54 b(MINT\(14\))f(:)48 +b Fw(KF)28 b(\015a)m(v)m(our)i(co)s(des)g(for)e(side)h(1)g(and)g(side)g +(2)g(initial-state)c(sho)m(w)m(er)31 b(initia-)472 5066 +y(tors.)0 5174 y Fq(MINT\(15\),)54 b(MINT\(16\))f(:)48 +b Fw(KF)34 b(\015a)m(v)m(our)i(co)s(des)g(for)f(side)g(1)g(and)h(side)f +(2)g(incoming)e(partons)i(to)g(the)472 5283 y(hard)e(in)m(teraction.)0 +5391 y Fq(MINT\(17\),)54 b(MINT\(18\))f(:)48 b Fw(\015ag)38 +b(to)h(signal)f(if)g(particle)g(on)h(side)g(1)g(or)g(side)h(2)f(has)g +(b)s(een)h(scattered)472 5499 y(di\013ractiv)m(ely;)32 +b(0)g(if)g(no,)g(1)h(if)e(y)m(es.)0 5608 y Fq(MINT\(19\),)54 +b(MINT\(20\))f(:)48 b Fw(\015ag)41 b(to)h(signal)f(initial-state)d +(structure)43 b(with)f(parton)g(inside)f(photon)1817 +5953 y(178)p eop +%%Page: 179 185 +179 184 bop 472 -18 a Fw(inside)32 b(electron)h(on)f(side)h(1)f(or)h +(side)f(2;)h(0)f(if)f(no,)i(1)f(if)g(y)m(es.)0 90 y Fq(MINT\(21\))53 +b(-)f(MINT\(24\))h(:)48 b Fw(KF)37 b(\015a)m(v)m(our)i(co)s(des)f(for)f +(outgoing)g(partons)h(from)e(the)i(hard)g(in)m(terac-)472 +198 y(tion.)i(The)24 b(n)m(um)m(b)s(er)g(of)f(p)s(ositions)g(actually)f +(used)j(is)e(pro)s(cess-dep)s(enden)m(t,)28 b(see)d Fq(MINT\(3\))p +Fw(;)472 307 y(trailing)30 b(p)s(ositions)h(not)i(used)g(are)g(set)g(=) +g(0.)0 415 y Fq(MINT\(25\),)54 b(MINT\(26\))f(:)48 b +Fw(KF)e(\015a)m(v)m(our)h(co)s(des)h(of)e(the)i(pro)s(ducts)f(in)f(the) +h(deca)m(y)i(of)d(a)g(single)g Fj(s)p Fw(-)472 523 y(c)m(hannel)40 +b(resonance)g(formed)e(in)g(the)h(hard)g(in)m(teraction.)61 +b(Are)39 b(th)m(us)h(only)e(used)i(when)472 632 y Fq(MINT\(3\)=1)35 +b Fw(and)e(the)g(resonance)h(is)e(allo)m(w)m(ed)g(to)g(deca)m(y)-8 +b(.)0 740 y Fq(MINT\(31\))53 b(:)48 b Fw(n)m(um)m(b)s(er)34 +b(of)f(hard)h(or)f(semi-hard)g(scatterings)h(that)f(o)s(ccurred)i(in)e +(the)h(curren)m(t)h(ev)m(en)m(t)472 848 y(in)d(the)h(m)m(ultiple-in)m +(teraction)c(scenario;)j(is)g(=)h(0)f(for)g(a)g(lo)m(w-)p +Fj(p)2772 863 y Fk(?)2863 848 y Fw(ev)m(en)m(t.)0 957 +y Fq(MINT\(35\))53 b(:)48 b Fw(in)25 b(a)h(true)g(2)h +Fn(!)g Fw(3)f(pro)s(cess,)j(where)e(one)f(particle)e(is)i(a)f +(resonance)i(with)f(deca)m(y)h(c)m(hannel)472 1065 y(selected)48 +b(already)e(b)s(efore)h(the)g Fq(PYRESD)h Fw(call,)g(the)f(deca)m(y)h +(c)m(hannel)f(n)m(um)m(b)s(er)f(\(in)g(the)472 1173 y +Fq(/LUDAT3/)35 b Fw(n)m(um)m(b)s(ering\))d(is)g(stored)h(here.)0 +1282 y Fq(MINT\(41\),)54 b(MINT\(42\))f(:)48 b Fw(t)m(yp)s(e)33 +b(of)e(incoming)f(b)s(eam)h(or)h(target)g(particle;)f(1)h(for)f(lepton) +h(and)g(2)g(for)472 1390 y(hadron.)43 b(A)30 b(photon)g(coun)m(ts)h(as) +f(a)g(lepton)g(if)f(it)f(is)i(not)g(resolv)m(ed)h(\()p +Fq(MSTP\(14\)=0)p Fw(\))h(and)e(as)472 1498 y(a)j(hadron)f(if)g(it)f +(is)h(resolv)m(ed)i(\()p Fq(MSTP\(14\))p Fn(\025)c Fw(1\).)0 +1607 y Fq(MINT\(43\))53 b(:)48 b Fw(com)m(bination)35 +b(of)h(incoming)f(b)s(eam)h(and)h(target)f(particles.)56 +b(A)37 b(photon)g(coun)m(ts)h(as)f(a)472 1715 y(hadron.)236 +1823 y Fq(=)52 b(1)f(:)217 b Fw(lepton)32 b(on)g(lepton.)236 +1932 y Fq(=)52 b(2)f(:)217 b Fw(lepton)32 b(on)g(hadron.)236 +2040 y Fq(=)52 b(3)f(:)217 b Fw(hadron)32 b(on)h(lepton.)236 +2148 y Fq(=)52 b(4)f(:)217 b Fw(hadron)32 b(on)h(hadron.)0 +2257 y Fq(MINT\(44\))53 b(:)48 b Fw(as)33 b Fq(MINT\(43\))p +Fw(,)h(but)f(a)g(photon)f(coun)m(ts)i(as)f(a)f(lepton.)0 +2365 y Fq(MINT\(45\),)54 b(MINT\(46\))f(:)48 b Fw(structure)33 +b(of)g(incoming)d(b)s(eam)i(and)g(target)h(particles.)236 +2473 y Fq(=)52 b(1)f(:)217 b Fw(no)36 b(in)m(ternal)g(structure,)j +(i.e.)56 b(an)37 b(electron)g(or)g(photon)f(carrying)h(the)g(full)e(b)s +(eam)709 2582 y(energy)-8 b(.)236 2690 y Fq(=)52 b(2)f(:)217 +b Fw(de\014ned)41 b(with)f(parton)f(distributions)g(that)g(are)h(not)g +(p)s(eak)m(ed)h(at)f Fj(x)g Fw(=)g(1,)i(i.e.)65 b(a)709 +2798 y(hadron)32 b(or)g(a)h(resolv)m(ed)g(photon.)236 +2907 y Fq(=)52 b(3)f(:)217 b Fw(de\014ned)26 b(with)e(parton)h +(distributions)e(that)i(are)f(p)s(eak)m(ed)i(at)f Fj(x)j +Fw(=)g(1,)e(i.e.)40 b(a)25 b(resolv)m(ed)709 3015 y(electron.)0 +3123 y Fq(MINT\(47\))53 b(:)48 b Fw(com)m(bination)23 +b(of)j(incoming)d(b)s(eam-)h(and)i(target-particle)d +(parton-distribution)g(func-)472 3232 y(tion)32 b(t)m(yp)s(es.)236 +3340 y Fq(=)52 b(1)f(:)217 b Fw(no)32 b(parton)g(distribution)f(either) +i(for)f(b)s(eam)f(or)i(target.)236 3448 y Fq(=)52 b(2)f(:)217 +b Fw(parton)32 b(distributions)f(for)h(target)g(but)h(not)g(for)f(b)s +(eam.)236 3557 y Fq(=)52 b(3)f(:)217 b Fw(parton)32 b(distributions)f +(for)h(b)s(eam)g(but)h(not)f(for)g(target.)236 3665 y +Fq(=)52 b(4)f(:)217 b Fw(parton)36 b(distributions)f(for)h(b)s(oth)g(b) +s(eam)f(and)i(target,)g(but)g(not)f(b)s(oth)g(p)s(eak)m(ed)i(at)709 +3774 y Fj(x)28 b Fw(=)f(1.)236 3882 y Fq(=)52 b(5)f(:)217 +b Fw(parton)30 b(distributions)g(for)g(b)s(oth)h(b)s(eam)f(and)h +(target,)g(with)f(b)s(oth)h(p)s(eak)m(ed)h(at)f Fj(x)d +Fw(=)709 3990 y(1.)0 4099 y Fq(MINT\(48\))53 b(:)48 b +Fw(total)31 b(n)m(um)m(b)s(er)i(of)f(subpro)s(cesses)k(switc)m(hed)d +(on.)0 4207 y Fq(MINT\(49\))53 b(:)48 b Fw(n)m(um)m(b)s(er)37 +b(of)f(subpro)s(cesses)k(that)d(are)f(switc)m(hed)i(on,)g(apart)e(from) +g(elastic)g(scattering)472 4315 y(and)d(single,)f(double)g(and)h(cen)m +(tral)f(di\013ractiv)m(e.)0 4424 y Fq(MINT\(50\))53 b(:)48 +b Fw(com)m(bination)j(of)j(incoming)d(particles)i(from)f(a)h(m)m +(ultiple)e(in)m(teractions)i(p)s(oin)m(t)g(of)472 4532 +y(view.)236 4640 y Fq(=)f(0)f(:)217 b Fw(the)40 b(total)e(cross)i +(section)g(is)f(not)h(kno)m(wn;)k(therefore)c(no)g(m)m(ultiple)d(in)m +(teractions)709 4749 y(are)32 b(p)s(ossible.)236 4857 +y Fq(=)52 b(1)f(:)217 b Fw(the)34 b(total)e(cross)i(section)g(is)f(kno) +m(wn;)j(therefore)e(m)m(ultiple)d(in)m(teractions)i(are)h(p)s(os-)709 +4965 y(sible)d(if)h(switc)m(hed)i(on.)0 5074 y Fq(MINT\(51\))53 +b(:)48 b Fw(in)m(ternal)31 b(\015ag)i(that)f(ev)m(en)m(t)i(failed)d +(cuts.)236 5182 y Fq(=)52 b(0)f(:)217 b Fw(no)32 b(problem.)236 +5290 y Fq(=)52 b(1)f(:)217 b Fw(ev)m(en)m(t)34 b(failed;)d(new)j(one)e +(to)h(b)s(e)f(generated.)236 5399 y Fq(=)52 b(2)f(:)217 +b Fw(ev)m(en)m(t)32 b(failed;)e(no)h(new)g(ev)m(en)m(t)i(is)d(to)g(b)s +(e)h(generated)h(but)f(instead)g(con)m(trol)f(is)g(to)g(b)s(e)709 +5507 y(giv)m(en)i(bac)m(k)i(to)e(used.)45 b(Is)33 b(in)m(tended)g(for)f +(user-de\014ned)j(pro)s(cesses,)g(when)e Fq(NUP=0)p Fw(.)0 +5615 y Fq(MINT\(52\))53 b(:)48 b Fw(in)m(ternal)34 b(coun)m(ter)i(for)f +(n)m(um)m(b)s(er)g(of)g(lines)f(used)i(\(in)f Fq(/LUJETS/)p +Fw(\))i(b)s(efore)e(m)m(ultiple)e(in-)1817 5953 y(179)p +eop +%%Page: 180 186 +180 185 bop 472 -18 a Fw(teractions)33 b(are)f(considered.)0 +90 y Fq(MINT\(53\))53 b(:)48 b Fw(in)m(ternal)37 b(coun)m(ter)j(for)e +(n)m(um)m(b)s(er)h(of)f(lines)g(used)i(\(in)d Fq(/LUJETS/)p +Fw(\))k(b)s(efore)e(b)s(eam)e(rem-)472 198 y(nan)m(ts)d(are)e +(considered.)0 307 y Fq(MINT\(55\))53 b(:)48 b Fw(the)f(hea)m(viest)g +(new)g(\015a)m(v)m(our)g(switc)m(hed)g(on)f(for)g(QCD)g(pro)s(cesses,) +52 b(sp)s(eci\014cally)45 b(the)472 415 y(\015a)m(v)m(our)34 +b(to)e(b)s(e)h(generated)g(for)f(ISUB)h(=)g(81,)f(82,)g(83)g(or)g(84.)0 +523 y Fq(MINT\(56\))53 b(:)48 b Fw(the)24 b(hea)m(viest)g(new)g(\015a)m +(v)m(our)g(switc)m(hed)g(on)f(for)g(QED)g(pro)s(cesses,)k(sp)s +(eci\014cally)22 b(for)h(ISUB)472 632 y(=)33 b(85.)44 +b(Note)33 b(that,)g(unlik)m(e)g Fq(MINT\(55\))p Fw(,)i(the)e(hea)m +(viest)h(\015a)m(v)m(our)g(ma)m(y)e(here)i(b)s(e)f(a)g(lepton,)472 +740 y(and)g(that)f(hea)m(vy)j(means)d(the)h(one)g(with)f(largest)g(KF)g +(co)s(de.)0 848 y Fq(MINT\(57\))53 b(:)48 b Fw(n)m(um)m(b)s(er)28 +b(of)g(times)e(the)j(b)s(eam)e(remnan)m(t)h(treatmen)m(t)f(has)i +(failed,)e(and)h(the)g(same)g(basic)472 957 y(kinematical)e(setup)k(is) +e(used)i(to)f(pro)s(duce)g(a)f(new)i(parton)e(sho)m(w)m(er)j(ev)m +(olution)c(and)i(b)s(eam)472 1065 y(remnan)m(t)37 b(set.)57 +b(Mainly)35 b(used)j(in)e(leptopro)s(duction,)g(for)h(the)g(option)e +(when)j Fj(x)f Fw(and)g Fj(Q)3740 1029 y Fl(2)472 1173 +y Fw(are)c(to)f(b)s(e)h(preserv)m(ed.)0 1282 y Fq(MINT\(61\))53 +b(:)48 b Fw(in)m(ternal)30 b(switc)m(h)i(for)f(the)g(mo)s(de)g(of)g(op) +s(eration)f(of)g(resonance)j(width)e(calculations)e(in)472 +1390 y Fq(PYWIDT)35 b Fw(for)d Fj(\015)1018 1354 y Fk(\003)1057 +1390 y Fj(=)p Fw(Z)1166 1354 y Fl(0)1237 1390 y Fw(or)h +Fj(\015)1413 1354 y Fk(\003)1452 1390 y Fj(=)p Fw(Z)1561 +1354 y Fl(0)1600 1390 y Fj(=)p Fw(Z)1709 1354 y Fk(0)p +Fl(0)1767 1390 y Fw(.)236 1498 y Fq(=)52 b(0)f(:)217 +b Fw(without)32 b(reference)i(to)e(initial-state)d(\015a)m(v)m(ours.) +236 1607 y Fq(=)52 b(1)f(:)217 b Fw(with)32 b(reference)i(to)e(giv)m +(en)h(initial-state)c(\015a)m(v)m(ours.)236 1715 y Fq(=)52 +b(2)f(:)217 b Fw(for)32 b(giv)m(en)g(\014nal-state)g(\015a)m(v)m(ours.) +0 1823 y Fq(MINT\(62\))53 b(:)48 b Fw(in)m(ternal)31 +b(switc)m(h)j(for)e(use)h(at)f(initialization)27 b(of)33 +b(H)2412 1787 y Fl(0)2484 1823 y Fw(width.)236 1932 y +Fq(=)52 b(0)f(:)217 b Fw(use)33 b(widths)g(in)m(to)f(ZZ)1510 +1896 y Fk(\003)1581 1932 y Fw(or)g(WW)1901 1896 y Fk(\003)1974 +1932 y Fw(calculated)g(b)s(efore.)236 2040 y Fq(=)52 +b(1)f(:)217 b Fw(ev)-5 b(aluate)32 b(widths)h(in)m(to)e(ZZ)1723 +2004 y Fk(\003)1795 2040 y Fw(or)h(WW)2115 2004 y Fk(\003)2188 +2040 y Fw(for)g(curren)m(t)h(Higgs)f(mass.)0 2148 y Fq(MINT\(65\))53 +b(:)48 b Fw(in)m(ternal)31 b(switc)m(h)j(to)e(indicate)f +(initialization)c(without)33 b(sp)s(eci\014ed)g(reaction.)236 +2257 y Fq(=)52 b(0)f(:)217 b Fw(normal)30 b(initialization.)236 +2365 y Fq(=)52 b(1)f(:)217 b Fw(initialization)27 b(with)32 +b(argumen)m(t)g Fq('none')i Fw(in)e Fq(PYINIT)i Fw(call.)0 +2473 y Fq(MINT\(71\))53 b(:)48 b Fw(switc)m(h)33 b(to)f(tell)f(whether) +j(curren)m(t)g(pro)s(cess)g(is)e(singular)f(for)h Fj(p)2866 +2488 y Fk(?)2953 2473 y Fn(!)27 b Fw(0)32 b(or)h(not.)236 +2582 y Fq(=)52 b(0)f(:)217 b Fw(non-singular)31 b(pro)s(cess,)j(i.e.)44 +b(pro)s(ceeding)33 b(via)f(an)h Fj(s)p Fw(-c)m(hannel)g(resonance)h(or) +f(with)709 2690 y(b)s(oth)f(pro)s(ducts)h(ha)m(ving)g(a)f(mass)g(ab)s +(o)m(v)m(e)i Fq(CKIN\(6\))p Fw(.)236 2798 y Fq(=)52 b(1)f(:)217 +b Fw(singular)31 b(pro)s(cess.)0 2907 y Fq(MINT\(72\))53 +b(:)48 b Fw(n)m(um)m(b)s(er)33 b(of)f Fj(s)p Fw(-c)m(hannel)g +(resonances)j(that)d(ma)m(y)h(con)m(tribute)f(to)h(the)g(cross)g +(section.)0 3015 y Fq(MINT\(73\))53 b(:)48 b Fw(KF)32 +b(co)s(de)h(of)f(\014rst)h Fj(s)p Fw(-c)m(hannel)f(resonance;)i(0)f(if) +e(there)i(is)g(none.)0 3123 y Fq(MINT\(74\))53 b(:)48 +b Fw(KF)32 b(co)s(de)h(of)f(second)i Fj(s)p Fw(-c)m(hannel)e +(resonance;)i(0)f(if)e(there)i(is)f(none.)0 3232 y Fq(MINT\(81\))53 +b(:)48 b Fw(n)m(um)m(b)s(er)33 b(of)f(selected)i(pile-up)d(ev)m(en)m +(ts.)0 3340 y Fq(MINT\(82\))53 b(:)48 b Fw(sequence)35 +b(n)m(um)m(b)s(er)e(of)f(curren)m(tly)i(considered)f(pile-up)e(ev)m(en) +m(t.)0 3448 y Fq(MINT\(83\))53 b(:)48 b Fw(n)m(um)m(b)s(er)39 +b(of)f(lines)f(in)h(the)h(ev)m(en)m(t)h(record)f(already)f(\014lled)f +(b)m(y)i(previously)g(considered)472 3557 y(pile-up)32 +b(ev)m(en)m(ts.)0 3665 y Fq(MINT\(84\))53 b(:)48 b(MINT\(83\))53 +b(+)f(MSTP\(126\))p Fw(,)e(i.e.)80 b(n)m(um)m(b)s(er)45 +b(of)g(lines)f(already)g(\014lled)g(b)m(y)h(previously)472 +3774 y(considered)27 b(ev)m(en)m(ts)h(plus)d(n)m(um)m(b)s(er)h(of)f +(lines)g(to)g(b)s(e)g(k)m(ept)i(free)f(for)f(ev)m(en)m(t)i(do)s(cumen)m +(tation.)0 3882 y Fq(MINT\(91\))53 b(:)48 b Fw(is)c(1)g(for)f(a)h +(lepton{hadron)g(ev)m(en)m(t)i(and)e(0)g(else.)79 b(Used)45 +b(to)f(determine)g(whether)i(a)472 3990 y Fq(PYFRAM\(3\))35 +b Fw(call)c(is)h(p)s(ossible.)0 4099 y Fq(MINT\(92\))53 +b(:)48 b Fw(is)43 b(used)h(to)f(denote)i(region)d(in)h(\()p +Fj(x;)17 b(Q)2000 4062 y Fl(2)2039 4099 y Fw(\))44 b(plane)f(when)h +Fq(MSTP\(57\)=2)p Fw(,)49 b(according)43 b(to)472 4207 +y(n)m(um)m(b)s(ering)33 b(in)e([Sc)m(h93a)q(].)44 b(Simply)30 +b(put,)j(0)g(means)f(that)h(the)g(mo)s(di\014ed)e(proton)i(parton)472 +4315 y(distributions)e(w)m(ere)j(not)e(used,)h(1)f(large)f +Fj(x)h Fw(and)h Fj(Q)2362 4279 y Fl(2)2401 4315 y Fw(,)f(2)g(small)e +Fj(Q)2873 4279 y Fl(2)2945 4315 y Fw(but)i(large)f Fj(x)p +Fw(,)i(3)f(small)472 4424 y Fj(x)h Fw(but)g(large)f Fj(Q)1055 +4387 y Fl(2)1127 4424 y Fw(and)h(4)f(small)e Fj(x)j Fw(and)g +Fj(Q)2008 4387 y Fl(2)2047 4424 y Fw(.)0 4532 y Fq(MINT\(93\))53 +b(:)48 b Fw(is)37 b(used)i(to)f(k)m(eep)h(trac)m(k)g(of)e(parton)h +(distribution)e(set)j(used)g(in)e(the)h(latest)g Fq(STRUCTM)472 +4640 y Fw(call)50 b(to)g Fm(Pdflib)p Fw(.)100 b(The)52 +b(co)s(de)f(for)g(this)f(set)i(is)f(stored)g(in)g(the)g(form)f +Fq(MINT\(93\))j(=)472 4749 y(1000000)p Fn(\002)p Fq(NPTYPE)j(+)51 +b(1000)p Fn(\002)p Fq(NGROUP)k(+)c(NSET)p Fw(.)28 b(The)f(stored)g +(previous)g(v)-5 b(alue)26 b(is)g(com-)472 4857 y(pared)k(with)f(the)h +(curren)m(t)g(new)g(v)-5 b(alue)29 b(to)g(decide)g(whether)i(a)e +Fq(PDFSET)i Fw(call)c(is)i(needed)i(to)472 4965 y(switc)m(h)j(to)e +(another)h(set.)0 5074 y Fq(MINT\(101\),)54 b(MINT\(102\))g(:)47 +b Fw(is)32 b(normally)e(1,)i(but)g(is)g(4)g(when)h(a)f(resolv)m(ed)h +(photon)f(\(app)s(earing)g(on)472 5182 y(side)40 b(1)e(or)h(2\))g(can)g +(b)s(e)g(represen)m(ted)j(b)m(y)e(either)f(of)f(the)i(four)f(v)m(ector) +h(mesons)f Fj(\032)3482 5146 y Fl(0)3522 5182 y Fw(,)i +Fj(!)t Fw(,)f Fj(\036)472 5290 y Fw(and)33 b(J)p Fj(= )t +Fw(.)0 5399 y Fq(MINT\(103\),)54 b(MINT\(104\))g(:)47 +b Fw(KF)32 b(\015a)m(v)m(our)i(co)s(de)f(for)f(the)h(t)m(w)m(o)g +(incoming)d(particles,)i(i.e.)44 b(the)33 b(same)472 +5507 y(as)j Fq(MINT\(11\))g Fw(and)f Fq(MINT\(12\))p +Fw(.)53 b(The)36 b(exception)f(is)g(when)h(a)e(resolv)m(ed)i(photon)f +(is)g(rep-)472 5615 y(resen)m(ted)j(b)m(y)e(a)f(v)m(ector)i(meson)e +(\(a)h Fj(\032)1850 5579 y Fl(0)1889 5615 y Fw(,)h Fj(!)t +Fw(,)e Fj(\036)g Fw(or)g(J)p Fj(= )t Fw(\).)52 b(Then)37 +b(the)f(co)s(de)g(of)f(the)g(v)m(ector)1817 5953 y(180)p +eop +%%Page: 181 187 +181 186 bop 472 -18 a Fw(meson)33 b(is)f(giv)m(en.)0 +90 y Fq(MINT\(105\))54 b(:)47 b Fw(is)39 b(either)g Fq(MINT\(103\))j +Fw(or)d Fq(MINT\(104\))p Fw(,)44 b(dep)s(ending)39 b(on)h(whic)m(h)f +(side)h(of)f(the)h(ev)m(en)m(t)472 198 y(curren)m(tly)34 +b(is)e(b)s(eing)g(studied.)0 307 y Fq(MINT\(107\),)54 +b(MINT\(108\))g(:)47 b Fw(if)42 b(either)g(or)h(b)s(oth)g(of)f(the)h(t) +m(w)m(o)h(incoming)c(particles)i(is)h(a)f(photon,)472 +415 y(then)32 b(the)g(resp)s(ectiv)m(e)g(v)-5 b(alue)31 +b(giv)m(es)g(the)h(nature)f(assumed)h(for)e(that)h(photon.)43 +b(The)32 b(co)s(de)472 523 y(follo)m(ws)g(the)h(one)g(used)g(for)f +Fq(MSTP\(14\))p Fw(:)236 632 y Fq(=)52 b(0)f(:)217 b +Fw(direct)32 b(photon.)236 740 y Fq(=)52 b(1)f(:)217 +b Fw(resolv)m(ed)33 b(photon.)236 848 y Fq(=)52 b(2)f(:)217 +b Fw(VMD-lik)m(e)31 b(photon.)236 957 y Fq(=)52 b(3)f(:)217 +b Fw(anomalous)31 b(photon.)0 1065 y Fq(MINT\(109\))54 +b(:)47 b Fw(is)39 b(either)g Fq(MINT\(107\))j Fw(or)d +Fq(MINT\(108\))p Fw(,)44 b(dep)s(ending)39 b(on)h(whic)m(h)f(side)h(of) +f(the)h(ev)m(en)m(t)472 1173 y(curren)m(tly)34 b(is)e(b)s(eing)g +(studied.)0 1282 y Fq(MINT\(111\))54 b(:)47 b Fw(the)42 +b(frame)e(giv)m(en)i(in)f Fq(PYINIT)i Fw(call,)f(0{5)e(for)h +Fq('NONE')p Fw(,)i Fq('CMS')p Fw(,)g Fq('FIXT')p Fw(,)g +Fq('USER')p Fw(,)472 1390 y Fq('FOUR')35 b Fw(and)d Fq('FIVE')p +Fw(,)i(resp)s(ectiv)m(ely)-8 b(.)0 1498 y Fq(MINT\(121\))54 +b(:)47 b Fw(n)m(um)m(b)s(er)33 b(of)f(separate)i(ev)m(en)m(t)g(classes) +g(to)e(initialize)c(and)33 b(mix.)236 1607 y Fq(=)52 +b(1)f(:)217 b Fw(the)33 b(normal)d(v)-5 b(alue.)236 1715 +y Fq(=)52 b(3)f(:)217 b Fw(for)32 b(a)g Fj(\015)5 b Fw(p)33 +b(in)m(teraction)e(when)j Fq(MSTP\(14\)=10)p Fw(.)236 +1823 y Fq(=)52 b(6)f(:)217 b Fw(for)32 b(a)g Fj(\015)5 +b(\015)38 b Fw(in)m(teraction)31 b(when)j Fq(MSTP\(14\)=10)p +Fw(.)0 1932 y Fq(MINT\(122\))54 b(:)47 b Fw(ev)m(en)m(t)42 +b(class)e(used)h(in)e(curren)m(t)i(ev)m(en)m(t)h(for)e +Fj(\015)5 b Fw(p)40 b(or)f Fj(\015)5 b(\015)45 b Fw(ev)m(en)m(ts)e +(generated)d(with)g(the)472 2040 y Fq(MSTP\(14\)=10)c +Fw(option;)31 b(co)s(de)i(as)g(describ)s(ed)h(for)e Fq(MSTI\(9\))p +Fw(.)0 2148 y Fq(MINT\(123\))54 b(:)47 b Fw(ev)m(en)m(t)26 +b(class)f(used)g(in)e(the)i(curren)m(t)g(ev)m(en)m(t,)j(with)c(the)h +(same)f(list)f(of)g(p)s(ossibilities)f(as)i(for)472 2257 +y Fq(MSTP\(14\))p Fw(,)30 b(except)e(that)f(options)f(1,)h(4)f(or)g(10) +g(do)h(not)f(app)s(ear.)41 b(Apart)27 b(from)e(a)h(di\013eren)m(t)472 +2365 y(co)s(ding,)32 b(this)g(is)g(exactly)h(the)g(same)g(information)c +(as)k(is)f(a)m(v)-5 b(ailable)30 b(in)i Fq(MINT\(122\))p +Fw(.)0 2528 y Fq(VINT\(1\))53 b(:)48 b Fj(E)581 2543 +y Fl(cm)675 2528 y Fw(,)33 b(c.m.)43 b(energy)-8 b(.)0 +2636 y Fq(VINT\(2\))53 b(:)48 b Fj(s)32 b Fw(\(=)c Fj(E)807 +2600 y Fl(2)801 2661 y(cm)895 2636 y Fw(\))33 b(squared)h(mass)e(of)g +(complete)g(system.)0 2744 y Fq(VINT\(3\))53 b(:)48 b +Fw(mass)32 b(of)g(b)s(eam)g(particle.)0 2853 y Fq(VINT\(4\))53 +b(:)48 b Fw(mass)32 b(of)g(target)h(particle.)0 2961 +y Fq(VINT\(5\))53 b(:)48 b Fw(momen)m(tum)31 b(of)h(b)s(eam)g(\(and)g +(target\))g(particle)g(in)g(c.m.)43 b(frame.)0 3069 y +Fq(VINT\(6\))53 b(-)f(VINT\(10\))h(:)48 b Fj(\022)s Fw(,)g +Fj(')d Fw(and)h Fb(\014)i Fw(for)d(rotation)e(and)j(b)s(o)s(ost)e(from) +h(c.m.)81 b(frame)44 b(to)h(user-)472 3178 y(sp)s(eci\014ed)34 +b(frame.)0 3286 y Fq(VINT\(11\))53 b(:)48 b Fj(\034)602 +3301 y Fl(min)724 3286 y Fw(.)0 3394 y Fq(VINT\(12\))53 +b(:)48 b Fj(y)608 3409 y Fl(min)729 3394 y Fw(.)0 3517 +y Fq(VINT\(13\))53 b(:)48 b Fw(cos)715 3491 y(^)707 3517 +y Fj(\022)752 3532 y Fl(min)907 3517 y Fw(for)32 b(cos)1211 +3491 y(^)1203 3517 y Fj(\022)f Fn(\024)d Fw(0.)0 3636 +y Fq(VINT\(14\))53 b(:)48 b Fw(cos)715 3610 y(^)707 3636 +y Fj(\022)752 3651 y Fl(min)907 3636 y Fw(for)32 b(cos)1211 +3610 y(^)1203 3636 y Fj(\022)f Fn(\025)d Fw(0.)0 3745 +y Fq(VINT\(15\))53 b(:)48 b Fj(x)615 3708 y Fl(2)615 +3769 y Fk(?)p Fl(min)792 3745 y Fw(.)0 3853 y Fq(VINT\(16\))53 +b(:)48 b Fj(\034)613 3817 y Fk(0)602 3878 y Fl(min)724 +3853 y Fw(.)0 3961 y Fq(VINT\(21\))53 b(:)48 b Fj(\034)11 +b Fw(.)0 4070 y Fq(VINT\(22\))53 b(:)48 b Fj(y)t Fw(.)0 +4193 y Fq(VINT\(23\))53 b(:)48 b Fw(cos)715 4166 y(^)707 +4193 y Fj(\022)s Fw(.)0 4301 y Fq(VINT\(24\))53 b(:)48 +b Fj(')32 b Fw(\(azim)m(uthal)f(angle\).)0 4409 y Fq(VINT\(25\))53 +b(:)48 b Fj(x)615 4373 y Fl(2)615 4434 y Fk(?)674 4409 +y Fw(.)0 4518 y Fq(VINT\(26\))53 b(:)48 b Fj(\034)613 +4482 y Fk(0)637 4518 y Fw(.)0 4626 y Fq(VINT\(31\))53 +b(:)48 b Fj(\034)602 4641 y Fl(max)738 4626 y Fw(.)0 +4734 y Fq(VINT\(32\))53 b(:)48 b Fj(y)608 4749 y Fl(max)743 +4734 y Fw(.)0 4858 y Fq(VINT\(33\))53 b(:)48 b Fw(cos)715 +4831 y(^)707 4858 y Fj(\022)752 4873 y Fl(max)921 4858 +y Fw(for)32 b(cos)1225 4831 y(^)1217 4858 y Fj(\022)f +Fn(\024)d Fw(0.)0 4976 y Fq(VINT\(34\))53 b(:)48 b Fw(cos)715 +4950 y(^)707 4976 y Fj(\022)752 4991 y Fl(max)921 4976 +y Fw(for)32 b(cos)1225 4950 y(^)1217 4976 y Fj(\022)f +Fn(\025)d Fw(0.)0 5085 y Fq(VINT\(35\))53 b(:)48 b Fj(x)615 +5048 y Fl(2)615 5109 y Fk(?)p Fl(max)806 5085 y Fw(.)0 +5193 y Fq(VINT\(36\))53 b(:)48 b Fj(\034)613 5157 y Fk(0)602 +5218 y Fl(max)738 5193 y Fw(.)0 5301 y Fq(VINT\(41\),)54 +b(VINT\(42\))f(:)48 b Fw(the)e(momen)m(tum)f(fractions)g +Fj(x)i Fw(tak)m(en)g(b)m(y)g(the)g(partons)f(at)g(the)g(hard)472 +5410 y(in)m(teraction,)32 b(as)h(used)h(e.g.)43 b(in)32 +b(the)h(parton-distribution)d(functions.)0 5530 y Fq(VINT\(43\))53 +b(:)66 b Fw(^)-67 b Fj(m)28 b Fw(=)776 5445 y Fn(p)p +859 5445 46 4 v 863 5530 a Fw(^)-53 b Fj(s)p Fw(,)33 +b(mass)g(of)f(hard-scattering)g(subsystem.)0 5638 y Fq(VINT\(44\))53 +b(:)f Fw(^)-53 b Fj(s)32 b Fw(of)g(the)h(hard)g(subpro)s(cess)i(\(2)27 +b Fn(!)g Fw(2)33 b(or)f(2)27 b Fn(!)h Fw(1\).)1817 5953 +y(181)p eop +%%Page: 182 188 +182 187 bop 0 -18 a Fq(VINT\(45\))53 b(:)561 -37 y Fw(^)560 +-18 y Fj(t)33 b Fw(of)f(the)h(hard)f(subpro)s(cess)j(\(2)27 +b Fn(!)h Fw(2)k(or)g(2)c Fn(!)f Fw(1)g Fn(!)h Fw(2\).)0 +90 y Fq(VINT\(46\))53 b(:)h Fw(^)-55 b Fj(u)32 b Fw(of)g(the)h(hard)g +(subpro)s(cess)h(\(2)28 b Fn(!)f Fw(2)32 b(or)h(2)27 +b Fn(!)g Fw(1)h Fn(!)f Fw(2\).)0 198 y Fq(VINT\(47\))53 +b(:)j Fw(^)-57 b Fj(p)609 213 y Fk(?)698 198 y Fw(of)30 +b(the)h(hard)g(subpro)s(cess)h(\(2)27 b Fn(!)h Fw(2)i(or)g(2)d +Fn(!)h Fw(1)f Fn(!)g Fw(2\),)k(i.e.)42 b(transv)m(erse)33 +b(momen)m(tum)472 307 y(ev)-5 b(aluated)33 b(in)f(the)h(rest)g(frame)e +(of)i(the)g(scattering.)0 415 y Fq(VINT\(48\))53 b(:)j +Fw(^)-57 b Fj(p)609 379 y Fl(2)609 440 y Fk(?)700 415 +y Fw(of)33 b(the)g(hard)f(subpro)s(cess;)j(see)f Fq(VINT\(47\))p +Fw(.)0 523 y Fq(VINT\(49\))53 b(:)66 b Fw(^)-67 b Fj(m)645 +487 y Fk(0)669 523 y Fw(,)44 b(the)f(mass)f(of)g(the)g(complete)g +(three-)g(or)g(four-b)s(o)s(dy)g(\014nal)f(state)i(in)e(2)j +Fn(!)g Fw(3)e(or)472 632 y(2)28 b Fn(!)f Fw(4)32 b(pro)s(cesses.)0 +740 y Fq(VINT\(50\))53 b(:)f Fw(^)-53 b Fj(s)606 704 +y Fk(0)657 740 y Fw(=)46 b(^)-68 b Fj(m)845 704 y Fk(0)p +Fl(2)904 740 y Fw(;)33 b(see)h Fq(VINT\(49\))p Fw(.)0 +848 y Fq(VINT\(51\))53 b(:)48 b Fj(Q)43 b Fw(of)f(the)h(hard)g(subpro)s +(cess.)77 b(The)43 b(exact)h(de\014nition)e(is)g(pro)s(cess-dep)s +(enden)m(t,)48 b(see)472 957 y Fq(MSTP\(32\))p Fw(.)0 +1065 y Fq(VINT\(52\))53 b(:)48 b Fj(Q)637 1029 y Fl(2)709 +1065 y Fw(of)32 b(the)h(hard)g(subpro)s(cess;)i(see)e +Fq(VINT\(51\))p Fw(.)0 1173 y Fq(VINT\(53\))53 b(:)48 +b Fj(Q)24 b Fw(of)f(the)h(outer)g(hard-scattering)f(subpro)s(cess.)43 +b(Agrees)24 b(with)g Fq(VINT\(51\))h Fw(for)f(a)f(2)k +Fn(!)h Fw(1)472 1282 y(or)35 b(2)d Fn(!)f Fw(2)k(pro)s(cess.)52 +b(F)-8 b(or)34 b(a)h(2)c Fn(!)h Fw(3)i(or)h(2)d Fn(!)f +Fw(4)k(W)q Fj(=)p Fw(Z)g(fusion)f(pro)s(cess,)j(it)d(is)g(set)i(b)m(y)g +(the)472 1390 y(W)q Fj(=)p Fw(Z)d(mass)f(scale,)h(and)g(for)f(subpro)s +(cesses)j(121)d(and)h(122)f(b)m(y)h(the)g(hea)m(vy-quark)i(mass.)0 +1498 y Fq(VINT\(54\))53 b(:)48 b Fj(Q)637 1462 y Fl(2)709 +1498 y Fw(of)32 b(the)h(outer)g(hard-scattering)f(subpro)s(cess;)j(see) +e Fq(VINT\(53\))p Fw(.)0 1607 y Fq(VINT\(55\))53 b(:)48 +b Fj(Q)24 b Fw(scale)g(used)h(as)f(maxim)m(um)e(virtualit)m(y)g(in)i +(parton)f(sho)m(w)m(ers.)43 b(Is)25 b(equal)f(to)f Fq(VINT\(53\))p +Fw(,)472 1715 y(except)35 b(for)d(deep-inelastic-scattering)f(pro)s +(cesses)j(when)g Fq(MSTP\(22\))p Fj(>)c Fw(0.)0 1823 +y Fq(VINT\(56\))53 b(:)48 b Fj(Q)637 1787 y Fl(2)709 +1823 y Fw(scale)33 b(in)f(parton)g(sho)m(w)m(ers;)j(see)e +Fq(VINT\(55\))p Fw(.)0 1932 y Fq(VINT\(57\))53 b(:)48 +b Fj(\013)622 1947 y Fl(em)749 1932 y Fw(v)-5 b(alue)32 +b(of)g(hard)h(pro)s(cess.)0 2040 y Fq(VINT\(58\))53 b(:)48 +b Fj(\013)622 2055 y Fl(s)686 2040 y Fw(v)-5 b(alue)32 +b(of)h(hard)f(pro)s(cess.)0 2163 y Fq(VINT\(59\))53 b(:)48 +b Fw(sin)704 2137 y(^)696 2163 y Fj(\022)43 b Fw(\(cf.)66 +b Fq(VINT\(23\))p Fw(\);)46 b(used)41 b(for)e(impro)m(v)m(ed)h(n)m +(umerical)f(precision)g(in)g(elastic)g(and)472 2272 y(di\013ractiv)m(e) +32 b(scattering.)0 2380 y Fq(VINT\(61\),)54 b(VINT\(62\))f(:)48 +b Fw(nominal)40 b Fj(m)1542 2344 y Fl(2)1625 2380 y Fw(v)-5 +b(alues,)46 b(i.e.)75 b(without)43 b(initial-state)c(radiation)i +(e\013ects,)472 2488 y(for)32 b(the)h(t)m(w)m(o)h(partons)f(en)m +(tering)f(the)h(hard)g(in)m(teraction.)0 2597 y Fq(VINT\(63\),)54 +b(VINT\(64\))f(:)48 b Fw(nominal)31 b Fj(m)1533 2560 +y Fl(2)1607 2597 y Fw(v)-5 b(alues,)34 b(i.e.)47 b(without)33 +b(\014nal-state)h(radiation)d(e\013ects,)36 b(for)472 +2705 y(the)d(t)m(w)m(o)h(\(or)e(one\))h(partons/particles)e(lea)m(ving) +h(the)h(hard)g(in)m(teraction.)0 2813 y Fq(VINT\(65\))53 +b(:)j Fw(^)-57 b Fj(p)609 2828 y Fl(init)719 2813 y Fw(,)34 +b(i.e.)45 b(common)32 b(nominal)f(absolute)j(momen)m(tum)e(of)h(the)h +(t)m(w)m(o)g(partons)f(en)m(tering)472 2922 y(the)g(hard)g(in)m +(teraction,)f(in)f(their)h(rest)i(frame.)0 3030 y Fq(VINT\(66\))53 +b(:)j Fw(^)-57 b Fj(p)609 3045 y Fl(\014n)691 3030 y +Fw(,)42 b(i.e.)63 b(common)39 b(nominal)d(absolute)k(momen)m(tum)e(of)h +(the)h(t)m(w)m(o)g(partons)f(lea)m(ving)472 3138 y(the)33 +b(hard)g(in)m(teraction,)f(in)f(their)h(rest)i(frame.)0 +3247 y Fq(VINT\(67\),)54 b(VINT\(68\))f(:)48 b Fw(mass)g(of)h(b)s(eam)f +(and)h(target)f(particle,)k(as)d Fq(VINT\(3\))i Fw(and)e +Fq(VINT\(4\))p Fw(,)472 3355 y(except)41 b(that)d(an)h(incoming)d +Fj(\015)44 b Fw(is)38 b(assigned)h(the)h Fj(\032)2383 +3319 y Fl(0)2422 3355 y Fw(,)h Fj(!)h Fw(or)c Fj(\036)g +Fw(mass.)62 b(Used)40 b(for)e(elastic)472 3463 y(scattering)33 +b Fj(\015)5 b Fw(p)28 b Fn(!)f Fj(\032)1238 3427 y Fl(0)1278 +3463 y Fw(p)32 b(and)h(other)g(similar)c(pro)s(cesses.)0 +3572 y Fq(VINT\(71\))53 b(:)48 b Fj(p)609 3587 y Fk(?)p +Fl(min)813 3572 y Fw(of)27 b(pro)s(cess,)i(i.e.)42 b +Fq(CKIN\(3\))29 b Fw(or)e Fq(CKIN\(5\))p Fw(,)j(dep)s(ending)e(on)f +(whic)m(h)h(is)f(larger,)g(and)472 3680 y(whether)34 +b(the)f(pro)s(cess)h(is)e(singular)f(in)h Fj(p)1984 3695 +y Fk(?)2071 3680 y Fn(!)27 b Fw(0)32 b(or)h(not.)0 3788 +y Fq(VINT\(73\))53 b(:)48 b Fj(\034)39 b Fw(=)28 b Fj(m)830 +3752 y Fl(2)869 3788 y Fj(=s)33 b Fw(v)-5 b(alue)32 b(of)g(\014rst)h +(resonance,)h(if)d(an)m(y;)j(see)f Fq(MINT\(73\))p Fw(.)0 +3897 y Fq(VINT\(74\))53 b(:)48 b Fj(m)p Fw(\000)p Fj(=s)32 +b Fw(v)-5 b(alue)32 b(of)h(\014rst)g(resonance,)h(if)d(an)m(y;)i(see)h +Fq(MINT\(73\))p Fw(.)0 4005 y Fq(VINT\(75\))53 b(:)48 +b Fj(\034)39 b Fw(=)28 b Fj(m)830 3969 y Fl(2)869 4005 +y Fj(=s)33 b Fw(v)-5 b(alue)32 b(of)g(second)i(resonance,)g(if)d(an)m +(y;)i(see)h Fq(MINT\(74\))p Fw(.)0 4113 y Fq(VINT\(76\))53 +b(:)48 b Fj(m)p Fw(\000)p Fj(=s)32 b Fw(v)-5 b(alue)32 +b(of)h(second)g(resonance,)h(if)e(an)m(y;)h(see)h Fq(MINT\(74\))p +Fw(.)0 4222 y Fq(VINT\(80\))53 b(:)48 b Fw(correction)40 +b(factor)f(\(ev)-5 b(aluated)40 b(in)f Fq(PYOFSH)p Fw(\))j(for)d(the)i +(cross)g(section)f(of)g(resonances)472 4330 y(pro)s(duced)30 +b(in)e(2)g Fn(!)f Fw(2)h(pro)s(cesses,)k(if)c(only)g(some)h(mass)f +(range)h(of)g(the)g(full)e(Breit{Wigner)472 4438 y(shap)s(e)34 +b(is)e(allo)m(w)m(ed)g(b)m(y)h(user-set)h(mass)e(cuts)i(\()p +Fq(CKIN\(2\))p Fw(,)g Fq(CKIN\(45\))54 b(-)d(CKIN\(48\))p +Fw(\).)0 4547 y Fq(VINT\(81\))i(-)f(VINT\(84\))h(:)48 +b Fw(the)39 b(cos)17 b Fj(\022)42 b Fw(and)d Fj(')g Fw(v)-5 +b(ariables)37 b(of)h(a)h(true)g(2)f Fn(!)g Fw(3)h(pro)s(cess,)i(where)f +(one)472 4655 y(pro)s(duct)33 b(is)e(a)h(resonance,)h(e\013ectiv)m(ely) +g(giving)d(2)d Fn(!)h Fw(4.)43 b(The)33 b(\014rst)f(t)m(w)m(o)g(are)g +(cos)18 b Fj(\022)35 b Fw(and)d Fj(')472 4763 y Fw(for)d(the)h +(resonance)h(deca)m(y)-8 b(,)32 b(the)e(other)g(t)m(w)m(o)g(ditto)e +(for)h(the)h(e\013ectiv)m(e)h(system)g(formed)e(b)m(y)472 +4872 y(the)k(other)g(t)m(w)m(o)g(particles.)0 4980 y +Fq(VINT\(85\),)54 b(VINT\(86\))f(:)48 b Fw(transv)m(erse)43 +b(momen)m(ta)c(in)h(a)h(true)g(2)h Fn(!)f Fw(3)g(pro)s(cess;)46 +b(one)41 b(is)g(stored)g(in)472 5088 y Fq(VINT\(47\))d +Fw(\(that)d(of)f(the)i(Z)1514 5052 y Fl(0)1588 5088 y +Fw(in)f(gg)e Fn(!)e Fw(Z)2027 5052 y Fl(0)2066 5088 y +Fw(Q)p 2142 5010 76 4 v(Q\),)36 b(while)e(the)i(smaller)d(of)i(the)g +(other)h(t)m(w)m(o)472 5197 y(is)d(stored)g(in)f Fq(VINT\(85\))i +Fw(and)f(the)g(larger)e(in)h Fq(VINT\(86\))p Fw(.)0 5305 +y Fq(VINT\(91\),)54 b(VINT\(92\))f(:)48 b Fw(giv)m(es)c(a)g +(dimensionless)f(suppression)i(factor,)h(to)e(tak)m(e)g(in)m(to)g +(accoun)m(t)472 5413 y(reduction)30 b(in)e(cross)j(section)e(due)h(to)f +(the)h(allo)m(w)m(ed)f(c)m(hannels)h(for)f(a)g(W)3093 +5377 y Fl(+)3152 5413 y Fw(W)3253 5377 y Fl(+)3342 5413 +y Fw(or)g(W)3559 5377 y Fk(\000)3619 5413 y Fw(W)3720 +5377 y Fk(\000)472 5522 y Fw(pair,)h(resp)s(ectiv)m(ely)-8 +b(,)32 b(in)e(the)g(same)h(sense)h(as)e Fq(WIDS\(24,1\))j +Fw(giv)m(es)e(it)e(for)h(a)g(W)3334 5486 y Fl(+)3394 +5522 y Fw(W)3495 5486 y Fk(\000)3584 5522 y Fw(pair.)0 +5630 y Fq(VINT\(95\))53 b(:)48 b Fw(the)43 b(v)-5 b(alue)42 +b(of)g(the)h(Coulom)m(b)e(factor)h(in)g(the)h(curren)m(t)g(ev)m(en)m +(t,)k(see)d Fq(MSTP\(40\))p Fw(.)75 b(F)-8 b(or)1817 +5953 y(182)p eop +%%Page: 183 189 +183 188 bop 472 -18 a Fq(MSTP\(40\)=0)36 b Fw(it)31 b(is)h(=)c(1,)k +(else)h(it)f(is)g Fj(>)27 b Fw(1.)0 90 y Fq(VINT\(98\))53 +b(:)48 b Fw(is)32 b(sum)g(of)40 b Fq(VINT\(100\))34 b +Fw(v)-5 b(alues)33 b(for)f(curren)m(t)i(run.)0 198 y +Fq(VINT\(99\))53 b(:)48 b Fw(is)32 b(w)m(eigh)m(t)h Fq(WTXS)h +Fw(returned)f(from)f Fq(PYEVWT)i Fw(call)d(when)j Fq(MSTP\(142\))p +Fn(\025)c Fw(1,)j(otherwise)g(is)472 307 y(1.)0 415 y +Fq(VINT\(100\))54 b(:)47 b Fw(is)22 b(comp)s(ensating)f(w)m(eigh)m(t)i +Fq(1./WTXS)h Fw(that)e(should)g(b)s(e)g(asso)s(ciated)g(with)g(ev)m(en) +m(ts)i(when)472 523 y Fq(MSTP\(142\)=1)p Fw(,)36 b(otherwise)d(is)f(1.) +0 632 y Fq(VINT\(108\))54 b(:)47 b Fw(ratio)30 b(of)h(maxim)m(um)e +(di\013eren)m(tial)h(cross)i(section)g(observ)m(ed)i(to)d(maxim)m(um)e +(di\013eren-)472 740 y(tial)i(cross)i(section)g(assumed)g(for)f(the)h +(generation;)f(cf.)44 b Fq(MSTP\(123\))p Fw(.)0 848 y +Fq(VINT\(109\))54 b(:)47 b Fw(ratio)25 b(of)h(minimal)d(\(negativ)m +(e!\))41 b(cross)28 b(section)e(observ)m(ed)j(to)d(maxim)m(um)e +(di\013eren)m(tial)472 957 y(cross)36 b(section)f(assumed)g(for)g(the)g +(generation;)g(could)f(only)g(b)s(ecome)h(negativ)m(e)g(if)f(cross)472 +1065 y(sections)g(are)e(incorrectly)g(included.)0 1173 +y Fq(VINT\(111\))54 b(-)d(VINT\(116\))j(:)47 b Fw(for)h +Fq(MINT\(61\)=1)j Fw(giv)m(es)e(kinematical)c(factors)k(for)f(the)g +(di\013eren)m(t)472 1282 y(pieces)43 b(con)m(tributing)e(to)h +Fj(\015)1514 1245 y Fk(\003)1554 1282 y Fj(=)p Fw(Z)1663 +1245 y Fl(0)1744 1282 y Fw(or)f Fj(\015)1928 1245 y Fk(\003)1968 +1282 y Fj(=)p Fw(Z)2077 1245 y Fl(0)2116 1282 y Fj(=)p +Fw(Z)2225 1245 y Fk(0)p Fl(0)2325 1282 y Fw(pro)s(duction,)j(for)d +Fq(MINT\(61\)=2)k Fw(giv)m(es)472 1390 y(sum)30 b(of)f(\014nal-state)f +(w)m(eigh)m(ts)j(for)e(the)h(same;)g(co)s(e\016cien)m(ts)h(are)e(giv)m +(en)h(in)e(the)i(order)g(pure)472 1498 y Fj(\015)528 +1462 y Fk(\003)568 1498 y Fw(,)47 b Fj(\015)698 1462 +y Fk(\003)737 1498 y Fw({Z)846 1462 y Fl(0)929 1498 y +Fw(in)m(terference,)h Fj(\015)1552 1462 y Fk(\003)1591 +1498 y Fw({Z)1700 1462 y Fk(0)p Fl(0)1802 1498 y Fw(in)m(terference,)g +(pure)d(Z)2663 1462 y Fl(0)2702 1498 y Fw(,)h(Z)2835 +1462 y Fl(0)2875 1498 y Fw({Z)2984 1462 y Fk(0)p Fl(0)3085 +1498 y Fw(in)m(terference)f(and)472 1607 y(pure)34 b(Z)755 +1571 y Fk(0)p Fl(0)813 1607 y Fw(.)0 1715 y Fq(VINT\(117\))54 +b(:)47 b Fw(width)33 b(of)f(Z)1059 1679 y Fl(0)1098 1715 +y Fw(;)g(needed)i(in)e Fj(\015)1652 1679 y Fk(\003)1692 +1715 y Fj(=)p Fw(Z)1801 1679 y Fl(0)1840 1715 y Fj(=)p +Fw(Z)1949 1679 y Fk(0)p Fl(0)2039 1715 y Fw(pro)s(duction.)0 +1823 y Fq(VINT\(131\))54 b(:)47 b Fw(total)39 b(cross)h(section)g(\(in) +f(m)m(b\))h(for)f(subpro)s(cesses)k(allo)m(w)m(ed)c(in)g(the)i(pile-up) +d(ev)m(en)m(ts)472 1932 y(scenario)33 b(according)f(to)g(the)h +Fq(MSTP\(132\))i Fw(v)-5 b(alue.)0 2040 y Fq(VINT\(132\))54 +b(:)p 611 1987 59 4 v 47 w Fj(n)28 b Fw(=)p Fq(VINT\(131\))p +Fn(\002)p Fq(PARP\(131\))p Fw(,)38 b(cf.)43 b Fq(PARI\(91\))p +Fw(.)0 2148 y Fq(VINT\(133\))54 b(:)47 b Fn(h)p Fj(n)p +Fn(i)37 b Fw(=)898 2082 y Fg(P)985 2169 y Fh(i)1030 2148 +y Fj(i)17 b Fn(P)1149 2163 y Fh(i)1178 2148 y Fj(=)1244 +2082 y Fg(P)1331 2169 y Fh(i)1375 2148 y Fn(P)1444 2163 +y Fh(i)1511 2148 y Fw(as)39 b(actually)e(sim)m(ulated,)h(i.e.)61 +b(1)37 b Fn(\024)h Fj(i)g Fn(\024)g Fw(200)g(\(or)f(smaller\),)472 +2257 y(see)d Fq(PARI\(92\))p Fw(.)0 2365 y Fq(VINT\(134\))54 +b(:)47 b Fw(n)m(um)m(b)s(er)h(related)e(to)h(probabilit)m(y)e(to)h(ha)m +(v)m(e)i(ev)m(en)m(t)h(in)d(b)s(eam{b)s(eam)g(crossing;)54 +b(is)472 2473 y(exp)q(\()p Fn(\000)p 736 2421 V Fj(n)q +Fw(\))850 2407 y Fg(P)937 2494 y Fh(i)p 982 2421 V 982 +2473 a Fj(n)1040 2437 y Fh(i)1068 2473 y Fj(=i)p Fw(!)24 +b(for)f Fq(MSTP\(133\)=1)k Fw(and)d(exp)q(\()p Fn(\000)p +2374 2421 V Fj(n)p Fw(\))2487 2407 y Fg(P)2574 2494 y +Fh(i)p 2619 2421 V 2619 2473 a Fj(n)2678 2437 y Fh(i)2706 +2473 y Fj(=)p Fw(\()p Fj(i)t Fn(\000)t Fw(1\)!)f(for)h +Fq(MSTP\(133\)=2)p Fw(,)472 2582 y(cf.)44 b Fq(PARI\(93\))p +Fw(.)0 2690 y Fq(VINT\(138\))54 b(:)47 b Fw(size)26 b(of)e(the)i +(threshold)f(factor)g(\(enhancemen)m(t)i(or)d(suppression\))j(in)d(the) +i(latest)f(ev)m(en)m(t)472 2798 y(with)33 b(hea)m(vy-\015a)m(v)m(our)h +(pro)s(duction;)e(see)i Fq(MSTP\(35\))p Fw(.)0 2907 y +Fq(VINT\(141\),)54 b(VINT\(142\))g(:)47 b Fj(x)33 b Fw(v)-5 +b(alues)32 b(for)g(the)h(parton-sho)m(w)m(er)h(initiators)c(of)i(the)h +(hardest)g(in)m(ter-)472 3015 y(action;)f(used)i(to)e(\014nd)h(what)g +(is)f(left)g(for)g(m)m(ultiple)e(in)m(teractions.)0 3123 +y Fq(VINT\(143\),)54 b(VINT\(144\))g(:)47 b Fw(1)t Fn(\000)1309 +3057 y Fg(P)1396 3144 y Fh(i)1441 3123 y Fj(x)1496 3138 +y Fh(i)1548 3123 y Fw(for)23 b(all)e(scatterings;)27 +b(used)e(for)e(rescaling)f(eac)m(h)j(new)f Fj(x)p Fw(-v)-5 +b(alue)472 3232 y(in)32 b(the)h(m)m(ultiple-in)m(teraction)c +(parton-distribution-function)g(ev)-5 b(aluation.)0 3340 +y Fq(VINT\(145\))54 b(:)47 b Fw(estimate)26 b(of)g(total)e +(parton{parton)i(cross)h(section)g(for)f(m)m(ultiple)d(in)m +(teractions;)28 b(used)472 3448 y(for)k Fq(MSTP\(82\))p +Fn(\025)f Fw(2.)0 3557 y Fq(VINT\(146\))54 b(:)47 b Fw(common)38 +b(correction)h(factor)g Fj(f)1804 3572 y Fh(c)1878 3557 +y Fw(in)g(the)h(m)m(ultiple-in)m(teraction)35 b(probabilit)m(y;)41 +b(used)472 3665 y(for)32 b Fq(MSTP\(82\))p Fn(\025)f +Fw(2)h(\(part)g(of)g Fj(e)p Fw(\()p Fj(b)p Fw(\),)i(see)f(eq.)h +(\(171\)\).)0 3774 y Fq(VINT\(147\))54 b(:)47 b Fw(a)m(v)m(erage)32 +b(hadronic)f(matter)f(o)m(v)m(erlap;)h(used)i(for)d Fq(MSTP\(82\))p +Fn(\025)g Fw(2)h(\(needed)i(in)d(ev)-5 b(alua-)472 3882 +y(tion)32 b(of)g Fj(e)p Fw(\()p Fj(b)p Fw(\),)h(see)h(eq.)f(\(171\)\).) +0 3990 y Fq(VINT\(148\))54 b(:)47 b Fw(enhancemen)m(t)24 +b(factor)d(for)h(curren)m(t)h(ev)m(en)m(t)h(in)e(the)g(m)m(ultiple-in)m +(teraction)c(probabilit)m(y)-8 b(,)472 4099 y(de\014ned)27 +b(as)e(the)h(actual)e(o)m(v)m(erlap)h(divided)g(b)m(y)h(the)g(a)m(v)m +(erage)g(one;)i(used)e(for)e Fq(MSTP\(82\))p Fn(\025)31 +b Fw(2)472 4207 y(\(is)h Fj(e)p Fw(\()p Fj(b)p Fw(\))i(of)e(eq.)h +(\(171\)\).)0 4315 y Fq(VINT\(149\))54 b(:)47 b Fj(x)666 +4279 y Fl(2)666 4340 y Fk(?)773 4315 y Fw(cut-o\013)h(or)f(turn-o\013)g +(for)h(m)m(ultiple)d(in)m(teractions.)89 b(F)-8 b(or)46 +b Fq(MSTP\(82\))p Fn(\024)57 b Fw(1)47 b(it)g(is)472 +4424 y(4)p Fj(p)570 4387 y Fl(2)570 4448 y Fk(?)p Fl(min)747 +4424 y Fj(=s)p Fw(,)32 b(for)g Fq(MSTP\(82\))p Fn(\025)e +Fw(2)j(it)e(is)h(4)p Fj(p)1940 4387 y Fl(2)1940 4448 +y Fk(?)p Fl(0)2034 4424 y Fj(=s)p Fw(.)0 4532 y Fq(VINT\(150\))54 +b(:)47 b Fw(probabilit)m(y)31 b(to)i(k)m(eep)i(the)e(giv)m(en)g(ev)m +(en)m(t)i(in)e(the)g(m)m(ultiple-in)m(teraction)c(scenario,)k(as)472 +4640 y(giv)m(en)g(b)m(y)h(the)f(`Sudak)m(o)m(v')h(form)d(factor.)0 +4749 y Fq(VINT\(151\),)54 b(VINT\(152\))g(:)47 b Fw(sum)33 +b(of)f Fj(x)h Fw(v)-5 b(alues)32 b(for)g(all)f(the)i(m)m(ultiple-in)m +(teraction)28 b(partons.)0 4857 y Fq(VINT\(153\))54 b(:)47 +b Fw(curren)m(t)34 b(di\013eren)m(tial)c(cross)j(section)g(v)-5 +b(alue)31 b(obtained)h(from)f Fq(PYSIGH)p Fw(;)j(used)g(in)d(m)m(ul-) +472 4965 y(tiple)h(in)m(teractions)g(only)-8 b(.)0 5074 +y Fq(VINT\(155\),)54 b(VINT\(156\))g(:)47 b Fw(the)36 +b Fj(x)f Fw(v)-5 b(alue)35 b(of)f(a)h(photon)g(that)g(branc)m(hes)i(in) +m(to)d(quarks)i(or)f(gluons,)472 5182 y(i.e.)43 b Fj(x)33 +b Fw(at)g(in)m(terface)f(b)s(et)m(w)m(een)j(initial-state)29 +b(QED)j(and)h(QCD)f(cascades.)0 5290 y Fq(VINT\(157\),)54 +b(VINT\(158\))g(:)47 b Fw(the)33 b(primordial)c Fj(k)1871 +5305 y Fk(?)1962 5290 y Fw(v)-5 b(alues)33 b(selected)g(in)f(the)h(t)m +(w)m(o)g(b)s(eam)f(remnan)m(ts.)0 5399 y Fq(VINT\(159\),)54 +b(VINT\(160\))g(:)47 b Fw(the)25 b Fj(\037)f Fw(v)-5 +b(alues)25 b(selected)g(for)f(b)s(eam)g(remnan)m(ts)g(that)h(are)f +(split)f(in)m(to)h(t)m(w)m(o)472 5507 y(ob)5 b(jects,)34 +b(describing)d(ho)m(w)i(the)f(energy)h(is)f(shared)h(\(see)g +Fq(MSTP\(92\))h Fw(and)e Fq(MSTP\(94\))p Fw(\);)i(is)472 +5615 y(0)f(if)e(no)i(splitting)d(is)i(needed.)1817 5953 +y(183)p eop +%%Page: 184 190 +184 189 bop 0 -18 a Fq(VINT\(161\))54 b(-)d(VINT\(200\))j(:)47 +b Fw(sum)52 b(of)e(Cabibb)s(o{Koba)m(y)m(ashi{Mask)-5 +b(a)m(w)m(a)52 b(squared)g(matrix)e(ele-)472 90 y(men)m(ts)28 +b(that)f(a)g(giv)m(en)h(\015a)m(v)m(our)g(is)f(allo)m(w)m(ed)f(to)h +(couple)g(to.)42 b(Results)27 b(are)h(stored)f(in)g(format)472 +198 y Fq(VINT\(180+KF\))35 b Fw(for)30 b(quark)i(and)f(lepton)f(\015a)m +(v)m(ours)j(and)e(an)m(ti\015a)m(v)m(ours)g(\(whic)m(h)h(need)g(not)472 +307 y(b)s(e)g(the)f(same;)h(see)g Fq(MDME\(IDC,2\))p +Fw(\).)46 b(F)-8 b(or)30 b(leptons,)i(these)g(factors)f(are)h(normally) +c(unit)m(y)-8 b(.)0 415 y Fq(VINT\(201\))54 b(-)d(VINT\(220\))j(:)47 +b Fw(additional)29 b(v)-5 b(ariables)31 b(needed)j(in)d(phase-space)i +(selection)f(for)f(2)d Fn(!)472 523 y Fw(3)40 b(pro)s(cesses)h(with)e +Fq(ISET\(ISUB\)=5)p Fw(.)67 b(Belo)m(w)40 b(indices)f(1,)i(2)e(and)g(3) +g(refer)h(to)f(scattered)472 632 y(partons)34 b(1,)f(2)f(and)h(3,)g +(except)i(that)e(the)g Fj(q)k Fw(four-momen)m(tum)31 +b(v)-5 b(ariables)31 b(are)i Fj(q)3408 647 y Fl(1)3471 +632 y Fw(+)22 b Fj(q)3612 647 y Fl(2)3680 632 y Fn(!)472 +740 y Fj(q)519 704 y Fk(0)515 765 y Fl(1)555 740 y Fj(q)602 +704 y Fk(0)598 765 y Fl(2)638 740 y Fj(q)685 704 y Fk(0)681 +765 y Fl(3)721 740 y Fw(.)42 b(All)28 b(kinematical)f(v)-5 +b(ariables)28 b(refer)i(to)f(the)h(in)m(ternal)f(kinematics)f(of)h(the) +h(3-b)s(o)s(dy)472 848 y(\014nal)36 b(state)h(|)f(the)g(kinematics)g +(of)f(the)i(system)g(as)g(a)f(whole)g(is)g(describ)s(ed)h(b)m(y)g +Fj(\034)3562 812 y Fk(0)3622 848 y Fw(and)472 957 y Fj(y)t +Fw(,)32 b(and)h(the)g(mass)f(distribution)f(of)h(particle)f(3)i(\(a)f +(resonance\))i(b)m(y)f Fj(\034)11 b Fw(.)236 1065 y Fq(VINT\(201\))54 +b(:)47 b Fj(m)932 1080 y Fl(1)972 1065 y Fw(.)236 1173 +y Fq(VINT\(202\))54 b(:)47 b Fj(p)896 1137 y Fl(2)896 +1198 y Fk(?)p Fl(1)991 1173 y Fw(.)236 1282 y Fq(VINT\(203\))54 +b(:)47 b Fj(')911 1297 y Fl(1)951 1282 y Fw(.)236 1390 +y Fq(VINT\(204\))54 b(:)47 b Fj(M)941 1405 y Fl(1)1014 +1390 y Fw(\(mass)32 b(of)g(propagator)g(particle\).)236 +1498 y Fq(VINT\(205\))54 b(:)47 b Fw(w)m(eigh)m(t)33 +b(for)f(the)h Fj(p)1522 1462 y Fl(2)1522 1523 y Fk(?)p +Fl(1)1649 1498 y Fw(c)m(hoice.)236 1607 y Fq(VINT\(206\))54 +b(:)47 b Fj(m)932 1622 y Fl(2)972 1607 y Fw(.)236 1715 +y Fq(VINT\(207\))54 b(:)47 b Fj(p)896 1679 y Fl(2)896 +1740 y Fk(?)p Fl(2)991 1715 y Fw(.)236 1823 y Fq(VINT\(208\))54 +b(:)47 b Fj(')911 1838 y Fl(2)951 1823 y Fw(.)236 1932 +y Fq(VINT\(209\))54 b(:)47 b Fj(M)941 1947 y Fl(2)1014 +1932 y Fw(\(mass)32 b(of)g(propagator)g(particle\).)236 +2040 y Fq(VINT\(210\))54 b(:)47 b Fw(w)m(eigh)m(t)33 +b(for)f(the)h Fj(p)1522 2004 y Fl(2)1522 2065 y Fk(?)p +Fl(2)1649 2040 y Fw(c)m(hoice.)236 2148 y Fq(VINT\(211\))54 +b(:)47 b Fj(y)895 2163 y Fl(3)934 2148 y Fw(.)236 2257 +y Fq(VINT\(212\))54 b(:)47 b Fj(y)895 2272 y Fl(3max)1066 +2257 y Fw(.)236 2365 y Fq(VINT\(213\))54 b(:)47 b Fj(\017)28 +b Fw(=)g Fn(\006)p Fw(1;)33 b(c)m(hoice)g(b)s(et)m(w)m(een)h(t)m(w)m(o) +g(mirror)c(solutions)i(1)27 b Fn($)h Fw(2.)236 2473 y +Fq(VINT\(214\))54 b(:)47 b Fw(w)m(eigh)m(t)33 b(asso)s(ciated)g(to)f +Fj(\017)p Fw(-c)m(hoice.)236 2582 y Fq(VINT\(215\))54 +b(:)47 b Fj(t)882 2597 y Fl(1)950 2582 y Fw(=)27 b(\()p +Fj(q)1134 2597 y Fl(1)1196 2582 y Fn(\000)c Fj(q)1343 +2546 y Fk(0)1339 2606 y Fl(1)1378 2582 y Fw(\))1416 2546 +y Fl(2)1456 2582 y Fw(.)236 2690 y Fq(VINT\(216\))54 +b(:)47 b Fj(t)882 2705 y Fl(2)950 2690 y Fw(=)27 b(\()p +Fj(q)1134 2705 y Fl(2)1196 2690 y Fn(\000)c Fj(q)1343 +2654 y Fk(0)1339 2715 y Fl(2)1378 2690 y Fw(\))1416 2654 +y Fl(2)1456 2690 y Fw(.)236 2798 y Fq(VINT\(217\))54 +b(:)47 b Fj(q)890 2813 y Fl(1)930 2798 y Fj(q)977 2762 +y Fk(0)973 2823 y Fl(2)1045 2798 y Fw(four-pro)s(duct.)236 +2907 y Fq(VINT\(218\))54 b(:)47 b Fj(q)890 2922 y Fl(2)930 +2907 y Fj(q)977 2871 y Fk(0)973 2931 y Fl(1)1045 2907 +y Fw(four-pro)s(duct.)236 3015 y Fq(VINT\(219\))54 b(:)47 +b Fj(q)894 2979 y Fk(0)890 3040 y Fl(1)930 3015 y Fj(q)977 +2979 y Fk(0)973 3040 y Fl(2)1045 3015 y Fw(four-pro)s(duct.)236 +3156 y Fq(VINT\(220\))54 b(:)847 3055 y Fg(q)p 930 3055 +1463 4 v 101 x Fw(\()p Fj(m)1053 3122 y Fl(2)1053 3181 +y Fk(?)p Fl(12)1205 3156 y Fn(\000)23 b Fj(m)1390 3122 +y Fl(2)1390 3181 y Fk(?)p Fl(1)1507 3156 y Fn(\000)f +Fj(m)1691 3122 y Fl(2)1691 3181 y Fk(?)p Fl(2)1786 3156 +y Fw(\))1824 3127 y Fl(2)1886 3156 y Fn(\000)g Fw(4)p +Fj(m)2119 3122 y Fl(2)2119 3181 y Fk(?)p Fl(1)2214 3156 +y Fj(m)2299 3122 y Fl(2)2299 3181 y Fk(?)p Fl(2)2393 +3156 y Fw(,)57 b(where)c Fj(m)2863 3171 y Fk(?)p Fl(12)3045 +3156 y Fw(is)f(the)g(transv)m(erse)709 3282 y(mass)32 +b(of)g(the)h Fj(q)1274 3246 y Fk(0)1270 3307 y Fl(1)1310 +3282 y Fj(q)1357 3246 y Fk(0)1353 3307 y Fl(2)1425 3282 +y Fw(system.)0 3391 y Fq(VINT\(221\))54 b(-)d(VINT\(225\))j(:)47 +b Fj(\022)s Fw(,)58 b Fj(')53 b Fw(and)f Fb(\014)k Fw(for)c(rotation)f +(and)i(b)s(o)s(ost)f(from)g(c.m.)103 b(frame)52 b(to)472 +3499 y(hadronic)32 b(c.m.)44 b(frame)31 b(of)h(a)h(lepton{hadron)f(ev)m +(en)m(t.)0 3607 y Fq(VINT\(231\))54 b(:)47 b Fj(Q)688 +3571 y Fl(2)688 3632 y(min)843 3607 y Fw(scale)32 b(for)g(curren)m(t)i +(parton-distribution)c(function)i(set.)0 3716 y Fq(VINT\(232\))54 +b(:)47 b Fw(v)-5 b(alence)41 b(quark)h(distribution)c(of)j(a)f(VMD)h +(photon;)k(set)c(in)f Fq(PYSTFU)i Fw(and)f(used)h(in)472 +3824 y Fq(PYSTFL)p Fw(.)0 3932 y Fq(VINT\(281\))54 b(:)47 +b Fw(for)40 b(resolv)m(ed)h(photon)f(ev)m(en)m(ts,)k(it)39 +b(giv)m(es)i(the)f(ratio)f(b)s(et)m(w)m(een)j(the)e(total)f +Fj(\015)5 b(X)48 b Fw(cross)472 4041 y(section)26 b(and)f(the)h(total)e +Fj(\031)1419 4004 y Fl(0)1458 4041 y Fj(X)33 b Fw(cross)27 +b(section,)g(where)f Fj(X)33 b Fw(represen)m(ts)28 b(the)e(target)f +(particle.)0 4149 y Fq(VINT\(283\),)54 b(VINT\(284\))g(:)47 +b Fw(virtualit)m(y)37 b(scale)j(at)e(whic)m(h)i(an)f(anomalous)e +(photon)j(on)f(the)g(b)s(eam)472 4257 y(or)33 b(target)f(side)h(of)f +(the)h(ev)m(en)m(t)i(is)d(b)s(eing)g(resolv)m(ed.)44 +b(More)34 b(precisely)-8 b(,)32 b(it)g(giv)m(es)h(the)g +Fj(p)3609 4221 y Fl(2)3609 4282 y Fk(?)3701 4257 y Fw(of)472 +4366 y(the)g Fj(\015)g Fn(!)27 b Fw(q)p 902 4313 52 4 +v(q)34 b(v)m(ertex.)0 4474 y Fq(VINT\(285\))54 b(:)47 +b Fw(the)53 b Fq(CKIN\(3\))g Fw(v)-5 b(alue)52 b(pro)m(vided)g(b)m(y)h +(the)g(user)g(at)e(initialization;)57 b(subsequen)m(tly)472 +4582 y Fq(CKIN\(3\))35 b Fw(ma)m(y)d(b)s(e)h(o)m(v)m(erwritten)h(\(for) +d Fq(MSTP\(14\)=10)p Fw(\))36 b(but)d Fq(VINT\(285\))i +Fw(sta)m(ys.)0 4691 y Fq(VINT\(289\))54 b(:)47 b Fw(squared)34 +b(c.m.)43 b(energy)34 b(found)f(in)e Fq(PYINIT)k Fw(call.)0 +4799 y Fq(VINT\(290\))54 b(:)47 b Fw(the)33 b Fq(WIN)g +Fw(argumen)m(t)g(of)f(a)g Fq(PYINIT)i Fw(call.)0 4907 +y Fq(VINT\(291\))54 b(-)d(VINT\(300\))j(:)47 b Fw(the)35 +b(t)m(w)m(o)f(\014v)m(e-v)m(ectors)j(of)c(the)h(t)m(w)m(o)h(incoming)d +(particles,)h(as)h(recon-)472 5016 y(structed)g(in)e +Fq(PYINKI)p Fw(.)i(These)h(ma)m(y)d(v)-5 b(ary)33 b(from)e(one)i(ev)m +(en)m(t)h(to)f(the)g(next.)p 0 5160 3286 9 v 0 5385 9 +225 v 79 5300 a Fq(COMMON/PYINT2/ISET\(200\),)q(KFPR)q(\(200)q(,2\),)q +(COE)q(F\(20)q(0,20)q(\),IC)q(OL\()q(40,4)q(,2\))p 3277 +5385 V 0 5393 3286 9 v 0 5525 a Fo(Purp)s(ose:)48 b Fw(to)33 +b(store)h(information)d(necessary)36 b(for)d(e\016cien)m(t)h +(generation)f(of)g(the)h(di\013eren)m(t)g(subpro-)472 +5633 y(cesses,)i(sp)s(eci\014cally)c(t)m(yp)s(e)h(of)g(generation)f(sc) +m(heme)i(and)f(co)s(e\016cien)m(ts)h(of)e(the)h(Jacobian.)1817 +5953 y(184)p eop +%%Page: 185 191 +185 190 bop 472 -18 a Fw(Also)34 b(to)f(store)i(allo)m(w)m(ed)e +(colour-\015o)m(w)g(con\014gurations.)48 b(These)36 b(v)-5 +b(ariables)32 b(m)m(ust)i(not)g(b)s(e)472 90 y(c)m(hanged)g(b)m(y)g(y)m +(ou.)0 198 y Fq(ISET\(ISUB\))54 b(:)47 b Fw(giv)m(es)26 +b(the)g(t)m(yp)s(e)g(of)f(kinematical-v)-5 b(ariable)21 +b(selection)k(sc)m(heme)h(used)h(for)d(subpro)s(cess)472 +307 y(ISUB.)236 415 y Fq(=)52 b(0)f(:)217 b Fw(elastic,)31 +b(di\013ractiv)m(e)h(and)h(lo)m(w-)p Fj(p)1908 430 y +Fk(?)1999 415 y Fw(pro)s(cesses.)236 523 y Fq(=)52 b(1)f(:)217 +b Fw(2)27 b Fn(!)g Fw(1)33 b(pro)s(cesses)h(\(irresp)s(ectiv)m(e)f(of)f +(subsequen)m(t)k(deca)m(ys\).)236 632 y Fq(=)52 b(2)f(:)217 +b Fw(2)27 b Fn(!)g Fw(2)33 b(pro)s(cesses)h(\(i.e.)43 +b(the)33 b(bulk)g(of)f(pro)s(cesses\).)236 740 y Fq(=)52 +b(3)f(:)217 b Fw(2)27 b Fn(!)g Fw(3)33 b(pro)s(cesses)h(\(lik)m(e)e(qq) +1734 704 y Fk(0)1786 740 y Fn(!)27 b Fw(q)1964 704 y +Fk(00)2007 740 y Fw(q)2058 704 y Fk(000)2120 740 y Fw(H)2193 +704 y Fl(0)2233 740 y Fw(\).)236 848 y Fq(=)52 b(4)f(:)217 +b Fw(2)27 b Fn(!)g Fw(4)33 b(pro)s(cesses)h(\(lik)m(e)e(qq)1734 +812 y Fk(0)1786 848 y Fn(!)27 b Fw(q)1964 812 y Fk(00)2007 +848 y Fw(q)2058 812 y Fk(000)2120 848 y Fw(W)2221 812 +y Fl(+)2281 848 y Fw(W)2382 812 y Fk(\000)2442 848 y +Fw(\).)236 957 y Fq(=)52 b(5)f(:)217 b Fw(`true')33 b(2)27 +b Fn(!)h Fw(3)k(pro)s(cesses,)j(one)d(metho)s(d.)236 +1065 y Fq(=)52 b(6)f(:)217 b Fw(`true')33 b(2)27 b Fn(!)h +Fw(3)k(pro)s(cesses,)j(another)d(metho)s(d;)g(curren)m(tly)i(only)e(gg) +c Fn(!)g Fw(Z)3388 1029 y Fl(0)3427 1065 y Fw(Q)p 3503 +987 76 4 v(Q)o(.)236 1173 y Fq(=)52 b(9)f(:)217 b Fw(2)27 +b Fn(!)g Fw(2)33 b(in)f(m)m(ultiple)e(in)m(teractions)i(\()p +Fj(p)2106 1188 y Fk(?)2197 1173 y Fw(as)h(kinematics)e(v)-5 +b(ariable\).)236 1282 y Fq(=)52 b(11)g(:)165 b Fw(a)32 +b(user-de\014ned)i(pro)s(cess.)236 1390 y Fq(=)52 b(-1)g(:)165 +b Fw(legitimate)29 b(pro)s(cess)34 b(whic)m(h)f(has)g(not)f(y)m(et)i(b) +s(een)f(implemen)m(ted.)236 1498 y Fq(=)52 b(-2)g(:)165 +b Fw(ISUB)33 b(is)f(an)g(unde\014ned)j(pro)s(cess)f(co)s(de.)0 +1607 y Fq(KFPR\(ISUB,J\))54 b(:)48 b Fw(giv)m(e)22 b(the)g(KF)f(\015a)m +(v)m(our)i(co)s(des)g(for)e(the)h(pro)s(ducts)h(pro)s(duced)g(in)e +(subpro)s(cess)j(ISUB.)472 1715 y(If)36 b(there)h(is)f(only)f(one)h +(pro)s(duct,)h(the)g Fq(J=2)g Fw(p)s(osition)d(is)h(left)g(blank.)54 +b(Also,)36 b(quarks)h(and)472 1823 y(leptons)c(assumed)g(massless)f(in) +g(the)h(matrix)d(elemen)m(ts)j(are)f(denoted)i(b)m(y)f(0.)43 +b(The)33 b(main)472 1932 y(application)d(is)j(th)m(us)g(to)f(iden)m +(tify)g(resonances)j(pro)s(duced)e(\(Z)2770 1896 y Fl(0)2809 +1932 y Fw(,)g(W)2970 1896 y Fk(\006)3029 1932 y Fw(,)g(H)3162 +1896 y Fl(0)3202 1932 y Fw(,)f(etc.\).)0 2040 y Fq(COEF\(ISUB,J\))54 +b(:)48 b Fw(factors)30 b(used)h(in)e(the)h(Jacobians)g(in)f(order)h(to) +f(sp)s(eed)j(up)e(the)g(selection)f(of)h(kine-)472 2148 +y(matical)39 b(v)-5 b(ariables.)68 b(More)41 b(precisely)-8 +b(,)44 b(the)d(shap)s(e)h(of)f(the)g(cross)h(section)f(is)g(giv)m(en)g +(as)472 2257 y(the)31 b(sum)e(of)h(terms)g(with)f(di\013eren)m(t)h(b)s +(eha)m(viour,)g(where)i(the)e(in)m(tegral)e(o)m(v)m(er)j(the)f(allo)m +(w)m(ed)472 2365 y(phase)39 b(space)g(is)e(unit)m(y)h(for)f(eac)m(h)i +(term.)58 b Fq(COEF)39 b Fw(giv)m(es)f(the)g(relativ)m(e)f(strength)i +(of)e(these)472 2473 y(terms,)27 b(normalized)c(so)i(that)g(the)g(sum)g +(of)g(co)s(e\016cien)m(ts)h(for)f(eac)m(h)g(v)-5 b(ariable)24 +b(used)i(is)e(unit)m(y)-8 b(.)472 2582 y(Note)33 b(that)g(whic)m(h)g +(co)s(e\016cien)m(ts)g(are)g(indeed)g(used)h(is)e(pro)s(cess-dep)s +(enden)m(t.)236 2690 y Fq(ISUB)53 b(:)165 b Fw(standard)33 +b(subpro)s(cess)h(co)s(de.)236 2798 y Fq(J)52 b(=)f(1)h(:)114 +b Fj(\034)44 b Fw(selected)33 b(according)f(1)p Fj(=\034)11 +b Fw(.)236 2907 y Fq(J)52 b(=)f(2)h(:)114 b Fj(\034)44 +b Fw(selected)33 b(according)f(to)h(1)p Fj(=\034)1868 +2871 y Fl(2)1907 2907 y Fw(.)236 3015 y Fq(J)52 b(=)f(3)h(:)114 +b Fj(\034)52 b Fw(selected)42 b(according)f(to)g(1)p +Fj(=)p Fw(\()p Fj(\034)11 b Fw(\()p Fj(\034)39 b Fw(+)28 +b Fj(\034)2205 3030 y Fh(R)2263 3015 y Fw(\)\),)43 b(where)g +Fj(\034)2742 3030 y Fh(R)2842 3015 y Fw(=)f Fj(m)3045 +2979 y Fl(2)3045 3040 y Fh(R)3103 3015 y Fj(=s)f Fw(is)g +Fj(\034)52 b Fw(v)-5 b(alue)41 b(of)709 3123 y(resonance;)34 +b(only)e(used)i(for)e(resonance)h(pro)s(duction.)236 +3232 y Fq(J)52 b(=)f(4)h(:)114 b Fj(\034)45 b Fw(selected)34 +b(according)g(to)f(Breit{Wigner)f(of)h(form)g(1)p Fj(=)p +Fw(\(\()p Fj(\034)h Fn(\000)23 b Fj(\034)3066 3247 y +Fh(R)3124 3232 y Fw(\))3162 3196 y Fl(2)3224 3232 y Fw(+)g +Fj(\015)3379 3196 y Fl(2)3374 3256 y Fh(R)3431 3232 y +Fw(\),)34 b(where)709 3340 y Fj(\034)751 3355 y Fh(R)839 +3340 y Fw(=)d Fj(m)1031 3304 y Fl(2)1031 3365 y Fh(R)1089 +3340 y Fj(=s)j Fw(is)f Fj(\034)46 b Fw(v)-5 b(alue)34 +b(of)g(resonance)h(and)g Fj(\015)2461 3355 y Fh(R)2548 +3340 y Fw(=)c Fj(m)2740 3355 y Fh(R)2798 3340 y Fw(\000)2859 +3355 y Fh(R)2917 3340 y Fj(=s)j Fw(is)f(its)h(scaled)h(mass)709 +3448 y(times)c(width;)i(only)f(used)i(for)e(resonance)i(pro)s(duction.) +236 3557 y Fq(J)52 b(=)f(5)h(:)114 b Fj(\034)56 b Fw(selected)46 +b(according)e(to)h(1)p Fj(=)p Fw(\()p Fj(\034)11 b Fw(\()p +Fj(\034)42 b Fw(+)30 b Fj(\034)2225 3572 y Fh(R)2278 +3553 y Fd(0)2306 3557 y Fw(\)\),)48 b(where)e Fj(\034)2793 +3572 y Fh(R)2846 3553 y Fd(0)2922 3557 y Fw(=)i Fj(m)3131 +3521 y Fl(2)3131 3581 y Fh(R)3184 3563 y Fd(0)3212 3557 +y Fj(=s)c Fw(is)h Fj(\034)56 b Fw(v)-5 b(alue)709 3665 +y(of)33 b(second)i(resonance;)g(only)e(used)i(for)e(sim)m(ultaneous)g +(pro)s(duction)g(of)g(t)m(w)m(o)h(reso-)709 3774 y(nances.)236 +3882 y Fq(J)52 b(=)f(6)h(:)114 b Fj(\034)40 b Fw(selected)29 +b(according)f(to)g(second)i(Breit{Wigner)d(of)h(form)f(1)p +Fj(=)p Fw(\(\()p Fj(\034)e Fn(\000)14 b Fj(\034)3322 +3897 y Fh(R)3375 3878 y Fd(0)3403 3882 y Fw(\))3441 3846 +y Fl(2)3494 3882 y Fw(+)g Fj(\015)3640 3846 y Fl(2)3635 +3906 y Fh(R)3688 3888 y Fd(0)3714 3882 y Fw(\),)709 3990 +y(where)32 b Fj(\034)1031 4005 y Fh(R)1084 3986 y Fd(0)1139 +3990 y Fw(=)c Fj(m)1328 3954 y Fl(2)1328 4015 y Fh(R)1381 +3996 y Fd(0)1408 3990 y Fj(=s)j Fw(is)f Fj(\034)43 b +Fw(v)-5 b(alue)30 b(of)h(second)h(resonance)h(and)e Fj(\015)3071 +4005 y Fh(R)3124 3986 y Fd(0)3178 3990 y Fw(=)d Fj(m)3367 +4005 y Fh(R)3420 3986 y Fd(0)3447 3990 y Fw(\000)3508 +4005 y Fh(R)3561 3986 y Fd(0)3588 3990 y Fj(=s)j Fw(is)709 +4099 y(its)h(scaled)h(mass)f(times)g(width;)h(is)f(used)i(only)e(for)g +(sim)m(ultaneous)g(pro)s(duction)g(of)709 4207 y(t)m(w)m(o)h +(resonances,)h(lik)m(e)e Fj(\015)1638 4171 y Fk(\003)1678 +4207 y Fj(=)p Fw(Z)1787 4171 y Fl(0)1826 4207 y Fj(=)p +Fw(Z)1935 4171 y Fk(0)p Fl(0)1993 4207 y Fw(.)236 4315 +y Fq(J)52 b(=)f(7)h(:)114 b Fj(\034)44 b Fw(selected)34 +b(according)f(to)g(1)p Fj(=)p Fw(\(1)21 b Fn(\000)i Fj(\034)11 +b Fw(\);)34 b(only)f(used)h(when)g(b)s(oth)f(parton)g(distribu-)709 +4424 y(tions)f(are)g(p)s(eak)m(ed)i(at)e Fj(x)c Fw(=)g(1.)236 +4532 y Fq(J)52 b(=)f(8)h(:)114 b Fj(y)35 b Fw(selected)f(according)e +(to)g Fj(y)25 b Fn(\000)e Fj(y)1935 4547 y Fl(min)2056 +4532 y Fw(.)236 4640 y Fq(J)52 b(=)f(9)h(:)114 b Fj(y)35 +b Fw(selected)f(according)e(to)g Fj(y)1762 4655 y Fl(max)1919 +4640 y Fn(\000)23 b Fj(y)t Fw(.)236 4749 y Fq(J)52 b(=)f(10)h(:)63 +b Fj(y)35 b Fw(selected)f(according)e(to)g(1)p Fj(=)17 +b Fw(cosh\()p Fj(y)t Fw(\).)236 4857 y Fq(J)52 b(=)f(11)h(:)63 +b Fj(y)26 b Fw(selected)f(according)d(to)h(1)p Fj(=)p +Fw(\(1)s Fn(\000)s Fw(exp)r(\()p Fj(y)7 b Fn(\000)s Fj(y)2316 +4872 y Fl(max)2451 4857 y Fw(\)\);)26 b(only)d(used)i(when)f(b)s(eam)f +(parton)709 4965 y(distribution)30 b(is)i(p)s(eak)m(ed)i(close)f(to)f +Fj(x)c Fw(=)g(1.)236 5074 y Fq(J)52 b(=)f(12)h(:)63 b +Fj(y)49 b Fw(selected)d(according)g(to)f(1)p Fj(=)p Fw(\(1)30 +b Fn(\000)i Fw(exp)q(\()p Fj(y)2326 5089 y Fl(min)2479 +5074 y Fn(\000)f Fj(y)t Fw(\)\);)52 b(only)45 b(used)i(when)g(target) +709 5182 y(parton)32 b(distribution)f(is)h(p)s(eak)m(ed)i(close)e(to)g +Fj(x)d Fw(=)e(1.)236 5305 y Fq(J)52 b(=)f(13)h(:)63 b +Fj(z)32 b Fw(=)c(cos)1045 5279 y(^)1037 5305 y Fj(\022)36 +b Fw(selected)d(ev)m(enly)h(b)s(et)m(w)m(een)h(limits.)236 +5428 y Fq(J)52 b(=)f(14)h(:)63 b Fj(z)36 b Fw(=)31 b(cos)1052 +5402 y(^)1044 5428 y Fj(\022)37 b Fw(selected)f(according)e(to)g(1)p +Fj(=)p Fw(\()p Fj(a)24 b Fn(\000)g Fj(z)t Fw(\),)35 b(where)h +Fj(a)c Fw(=)e(1)24 b(+)f(2)p Fj(m)3294 5392 y Fl(2)3294 +5453 y(3)3334 5428 y Fj(m)3419 5392 y Fl(2)3419 5453 +y(4)3458 5428 y Fj(=)t Fw(^)-53 b Fj(s)3553 5392 y Fl(2)3593 +5428 y Fw(,)35 b Fj(m)3740 5443 y Fl(3)709 5537 y Fw(and)d +Fj(m)983 5552 y Fl(4)1056 5537 y Fw(b)s(eing)f(the)i(masses)h(of)e(the) +h(t)m(w)m(o)g(\014nal-state)f(particles.)236 5660 y Fq(J)52 +b(=)f(15)h(:)63 b Fj(z)32 b Fw(=)c(cos)1045 5633 y(^)1037 +5660 y Fj(\022)36 b Fw(selected)d(according)f(to)g(1)p +Fj(=)p Fw(\()p Fj(a)22 b Fw(+)g Fj(z)t Fw(\),)34 b(with)e +Fj(a)g Fw(as)h(ab)s(o)m(v)m(e.)1817 5953 y(185)p eop +%%Page: 186 192 +186 191 bop 236 -18 a Fq(J)52 b(=)f(16)h(:)63 b Fj(z)32 +b Fw(=)c(cos)1045 -45 y(^)1037 -18 y Fj(\022)36 b Fw(selected)d +(according)f(to)g(1)p Fj(=)p Fw(\()p Fj(a)22 b Fn(\000)h +Fj(z)t Fw(\))2435 -55 y Fl(2)2475 -18 y Fw(,)33 b(with)f +Fj(a)h Fw(as)f(ab)s(o)m(v)m(e.)236 110 y Fq(J)52 b(=)f(17)h(:)63 +b Fj(z)32 b Fw(=)c(cos)1045 84 y(^)1037 110 y Fj(\022)36 +b Fw(selected)d(according)f(to)g(1)p Fj(=)p Fw(\()p Fj(a)22 +b Fw(+)g Fj(z)t Fw(\))2433 74 y Fl(2)2473 110 y Fw(,)33 +b(with)f Fj(a)h Fw(as)g(ab)s(o)m(v)m(e.)236 219 y Fq(J)52 +b(=)f(18)h(:)63 b Fj(\034)762 182 y Fk(0)818 219 y Fw(selected)34 +b(according)e(to)g(1)p Fj(=\034)1891 182 y Fk(0)1914 +219 y Fw(.)236 327 y Fq(J)52 b(=)f(19)h(:)63 b Fj(\034)762 +291 y Fk(0)818 327 y Fw(selected)34 b(according)e(to)g(\(1)22 +b Fn(\000)g Fj(\034)11 b(=\034)2103 291 y Fk(0)2127 327 +y Fw(\))2165 291 y Fl(3)2205 327 y Fj(=\034)2307 291 +y Fk(0)p Fl(2)2366 327 y Fw(.)236 435 y Fq(J)52 b(=)f(20)h(:)63 +b Fj(\034)762 399 y Fk(0)815 435 y Fw(selected)31 b(according)e(to)g(1) +p Fj(=)p Fw(\(1)16 b Fn(\000)g Fj(\034)2075 399 y Fk(0)2099 +435 y Fw(\);)30 b(only)g(used)g(when)h(b)s(oth)e(parton)h(distribu-)709 +544 y(tions)i(are)g(p)s(eak)m(ed)i(close)f(to)f Fj(x)c +Fw(=)g(1.)0 652 y Fq(ICOL)52 b(:)165 b Fw(con)m(tains)43 +b(information)c(on)j(di\013eren)m(t)h(colour-\015o)m(w)f(top)s(ologies) +e(in)h(hard)i(2)h Fn(!)g Fw(2)e(pro-)472 760 y(cesses.)p +0 885 2825 9 v 0 1110 9 225 v 79 1025 a Fq(COMMON/PYINT3/XSFX\(2,-40)q +(:40\))q(,ISI)q(G\(10)q(00,)q(3\),S)q(IGH\()q(1000)q(\))p +2816 1110 V 0 1118 2825 9 v 0 1250 a Fo(Purp)s(ose:)48 +b Fw(to)d(store)h(information)c(on)j(parton)g(distributions,)j(subpro)s +(cess)f(cross)f(sections)g(and)472 1358 y(di\013eren)m(t)35 +b(\014nal-state)e(relativ)m(e)h(w)m(eigh)m(ts.)49 b(These)36 +b(v)-5 b(ariables)33 b(m)m(ust)i(not)f(b)s(e)g(c)m(hanged)i(b)m(y)472 +1467 y(y)m(ou.)0 1575 y Fq(XSFX)52 b(:)165 b Fw(curren)m(t)30 +b(v)-5 b(alues)28 b(of)g(parton-distribution)d(functions)k +Fj(xf)11 b Fw(\()p Fj(x)p Fw(\))28 b(on)h(b)s(eam)e(and)h(target)g +(side.)0 1683 y Fq(ISIG\(ICHN,1\))54 b(:)48 b Fw(incoming)33 +b(parton/particle)h(on)i(the)g(b)s(eam)f(side)g(to)h(the)g(hard)f(in)m +(teraction)g(for)472 1792 y(allo)m(w)m(ed)45 b(c)m(hannel)h(n)m(um)m(b) +s(er)g Fq(ICHN)p Fw(.)g(The)h(n)m(um)m(b)s(er)f(of)f(c)m(hannels)h +(\014lled)e(with)i(relev)-5 b(an)m(t)472 1900 y(information)29 +b(is)i(giv)m(en)h(b)m(y)i Fq(NCHN)p Fw(,)e(one)g(of)f(the)h(argumen)m +(ts)g(returned)h(in)e(a)g Fq(PYSIGH)i Fw(call.)472 2008 +y(Th)m(us)i(only)d(1)27 b Fn(\024)p Fq(ICHN)p Fn(\024)p +Fq(NCHN)36 b Fw(is)c(\014lled)f(with)h(relev)-5 b(an)m(t)33 +b(information.)0 2117 y Fq(ISIG\(ICHN,2\))54 b(:)48 b +Fw(incoming)31 b(parton/particle)g(on)i(the)h(target)f(side)g(to)g(the) +h(hard)f(in)m(teraction)f(for)472 2225 y(allo)m(w)m(ed)g(c)m(hannel)h +(n)m(um)m(b)s(er)g Fq(ICHN)p Fw(.)h(See)f(also)f(commen)m(t)g(ab)s(o)m +(v)m(e.)0 2333 y Fq(ISIG\(ICHN,3\))54 b(:)48 b Fw(colour-\015o)m(w)25 +b(t)m(yp)s(e)i(for)e(allo)m(w)m(ed)g(c)m(hannel)i(n)m(um)m(b)s(er)f +Fq(ICHN)p Fw(;)h(see)g Fq(MSTI\(2\))h Fw(list.)40 b(See)472 +2442 y(also)30 b(ab)s(o)m(v)m(e)i(commen)m(t.)43 b(F)-8 +b(or)30 b(`subpro)s(cess')j(96)d(uniquely)-8 b(,)32 b +Fq(ISIG\(ICHN,3\))i Fw(is)c(also)g(used)472 2550 y(to)g(translate)e +(information)f(on)i(what)h(is)f(the)g(correct)h(subpro)s(cess)i(n)m(um) +m(b)s(er)e(\(11,)f(12,)h(13,)472 2658 y(28,)j(53)f(or)g(68\);)g(this)g +(is)g(used)i(for)e(reassigning)g(subpro)s(cess)i(96)e(to)h(either)f(of) +g(these.)0 2767 y Fq(SIGH\(ICHN\))54 b(:)47 b Fw(ev)-5 +b(aluated)36 b(di\013eren)m(tial)f(cross)i(section)f(for)g(allo)m(w)m +(ed)f(c)m(hannel)i(n)m(um)m(b)s(er)g Fq(ICHN)p Fw(,)g(i.e.)472 +2875 y(matrix-elemen)m(t)27 b(v)-5 b(alue)27 b(times)h(parton)g +(distributions,)g(for)f(curren)m(t)j(kinematical)25 b(setup)472 +2983 y(\(in)33 b(addition,)e(Jacobian)i(factors)g(are)g(included)g(in)f +(the)i(\014gures,)g(as)g(used)g(to)f(sp)s(eed)h(up)472 +3092 y(generation\).)43 b(See)34 b(also)d(commen)m(t)h(for)g +Fq(ISIG\(ICHN,1\))p Fw(.)p 0 3242 3286 9 v 0 3466 9 225 +v 79 3382 a Fq(COMMON/PYINT4/WIDP\(21:40)q(,0:4)q(0\),W)q(IDE\()q(21:)q +(40,0)q(:40\))q(,WID)q(S\(2)q(1:40)q(,3\))p 3277 3466 +V 0 3474 3286 9 v 0 3606 a Fo(Purp)s(ose:)48 b Fw(to)32 +b(store)h(partial)e(and)i(e\013ectiv)m(e)g(deca)m(y)i(widths)e(for)f +(the)h(di\013eren)m(t)g(resonances.)46 b(These)472 3715 +y(v)-5 b(ariables)32 b(m)m(ust)g(not)h(b)s(e)g(c)m(hanged)g(b)m(y)h(y)m +(ou.)0 3823 y Fq(WIDP\(KF,J\))54 b(:)47 b Fw(giv)m(es)33 +b(partial)d(deca)m(y)k(widths)f(of)e(resonances)k(in)m(to)c(di\013eren) +m(t)i(c)m(hannels)g(\(in)e(GeV\),)472 3931 y(giv)m(en)i(that)g(all)d +(ph)m(ysically)i(allo)m(w)m(ed)g(\014nal)g(states)h(are)g(included.)236 +4040 y Fq(KF)52 b(:)268 b Fw(standard)36 b(KF)f(co)s(de)g(for)g +(resonance)i(considered.)53 b(When)37 b(top)e(is)g(treated)h(lik)m(e)f +(a)709 4148 y(resonance)41 b(\(see)f Fq(MSTP\(48\))p +Fw(\))i(it)d(is)g(stored)h(in)f(p)s(osition)f(26.)64 +b(When)41 b(the)f(fourth)709 4256 y(generation)49 b(fermions)h(l,)k(h,) +h Fj(\037)1921 4220 y Fk(\000)2030 4256 y Fw(and)c Fj(\027)2286 +4271 y Fh(\037)2384 4256 y Fw(are)g(treated)f(lik)m(e)g(resonances)i +(\(see)709 4365 y Fq(MSTP\(49\))p Fw(\))34 b(they)g(are)e(stored)i(in)d +(p)s(ositions)h(27,)g(28,)g(29)g(and)h(30,)f(resp)s(ectiv)m(ely)-8 +b(.)236 4473 y Fq(J)52 b(:)319 b Fw(en)m(umerates)44 +b(the)f(di\013eren)m(t)g(deca)m(y)i(c)m(hannels)f(p)s(ossible)e(for)g +(resonance)j(KF,)d(as)709 4581 y(stored)f(in)f(the)h +Fm(Jetset)e Fq(LUDAT3)j Fw(common)d(blo)s(c)m(k,)k(with)d(the)h +(\014rst)g(c)m(hannel)g(in)709 4690 y Fq(J=1)p Fw(,)33 +b(etc.)0 4798 y Fq(WIDE\(KF,J\))54 b(:)47 b Fw(giv)m(es)27 +b(e\013ectiv)m(e)g(deca)m(y)h(widths)e(of)g(resonances)i(in)m(to)d +(di\013eren)m(t)h(c)m(hannels)h(\(in)e(GeV\),)472 4906 +y(giv)m(en)k(the)g(deca)m(y)h(mo)s(des)f(actually)e(left)g(op)s(en)i +(in)f(the)h(curren)m(t)h(run.)42 b(The)30 b(on/o\013)e(status)472 +5015 y(of)33 b(deca)m(y)h(mo)s(des)e(is)g(set)h(b)m(y)h(the)f +Fq(MDME)g Fw(switc)m(hes)h(in)e Fm(Jetset)p Fw(;)g(see)i(section)e +(14.6.)236 5123 y Fq(KF)52 b(:)268 b Fw(standard)28 b(KF)f(co)s(de)h +(for)f(resonance)h(considered.)43 b(F)-8 b(or)27 b(commen)m(t)g(ab)s +(out)g(top)g(and)709 5231 y(fourth)32 b(generation)g(see)i +Fq(WIDP)f Fw(ab)s(o)m(v)m(e.)236 5340 y Fq(J)52 b(:)319 +b Fw(en)m(umerates)44 b(the)f(di\013eren)m(t)g(deca)m(y)i(c)m(hannels)f +(p)s(ossible)e(for)g(resonance)j(KF,)d(as)709 5448 y(stored)f(in)f(the) +h Fm(Jetset)e Fq(LUDAT3)j Fw(common)d(blo)s(c)m(k,)k(with)d(the)h +(\014rst)g(c)m(hannel)g(in)709 5556 y Fq(J=1)p Fw(,)33 +b(etc.)0 5665 y Fq(WIDS\(KF,J\))54 b(:)47 b Fw(giv)m(es)i(a)f +(dimensionless)f(suppression)i(factor,)j(whic)m(h)c(is)g(de\014ned)h +(as)g(the)f(ratio)1817 5953 y(186)p eop +%%Page: 187 193 +187 192 bop 472 -18 a Fw(of)40 b(the)g(total)e(width)i(of)g(c)m +(hannels)g(switc)m(hed)h(on)f(to)g(the)g(total)e(width)i(of)f(all)f(p)s +(ossible)472 90 y(c)m(hannels)28 b(\(replace)f(width)g(b)m(y)h(squared) +g(width)f(for)g(a)f(pair)g(of)h(resonances\).)43 b(The)28 +b(on/o\013)472 198 y(status)h(of)f(c)m(hannels)g(is)g(set)h(b)m(y)f +(the)h Fq(MDME)g Fw(switc)m(hes)g(in)f Fm(Jetset)p Fw(;)g(see)h +(section)f(14.6.)42 b(The)472 307 y(information)30 b(in)i +Fq(WIDS)h Fw(is)f(used)i(e.g.)44 b(in)32 b(cross-section)h +(calculations.)236 415 y Fq(KF)52 b(:)268 b Fw(standard)28 +b(KF)f(co)s(de)h(for)f(resonance)h(considered.)43 b(F)-8 +b(or)27 b(commen)m(t)g(ab)s(out)g(top)g(and)709 523 y(fourth)32 +b(generation)g(see)i Fq(WIDP)f Fw(ab)s(o)m(v)m(e.)236 +632 y Fq(J)52 b(=)f(1)h(:)114 b Fw(suppression)52 b(when)h(a)e(pair)g +(of)g(resonances)i(of)e(t)m(yp)s(e)i(KF)d(are)i(pro)s(duced)g(to-)709 +740 y(gether.)e(When)35 b(an)g(an)m(tiparticle)d(exists,)k(the)f +(particle{an)m(tiparticle)d(pair)h(\(suc)m(h)709 848 +y(as)46 b(W)943 812 y Fl(+)1002 848 y Fw(W)1103 812 y +Fk(\000)1163 848 y Fw(\))g(is)f(the)h(relev)-5 b(an)m(t)46 +b(com)m(bination,)h(else)f(the)g(particle{particle)d(one)709 +957 y(\(suc)m(h)34 b(as)e(Z)1146 920 y Fl(0)1185 957 +y Fw(Z)1245 920 y Fl(0)1284 957 y Fw(\).)236 1065 y Fq(J)52 +b(=)f(2)h(:)114 b Fw(suppression)49 b(for)f(a)h(particle)e(of)h(t)m(yp) +s(e)h(KF)f(when)i(pro)s(duced)f(on)g(its)f(o)m(wn,)53 +b(or)709 1173 y(together)32 b(with)h(a)f(particle)f(of)h(another)h(t)m +(yp)s(e.)236 1282 y Fq(J)52 b(=)f(3)h(:)114 b Fw(suppression)31 +b(for)f(an)h(an)m(tiparticle)d(of)i(t)m(yp)s(e)i(KF)e(when)h(pro)s +(duced)h(on)e(its)g(o)m(wn,)i(or)709 1390 y(together)g(with)h(a)f +(particle)f(of)h(another)h(t)m(yp)s(e.)p 0 1534 2261 +9 v 0 1759 9 225 v 79 1674 a Fq(COMMON/PYINT5/NGEN\(0:200)q(,3\),)q +(XSEC)q(\(0:2)q(00,)q(3\))p 2252 1759 V 0 1767 2261 9 +v 0 1899 a Fo(Purp)s(ose:)48 b Fw(to)g(store)h(information)d(necessary) +51 b(for)d(cross-section)h(calculation)e(and)h(di\013eren)m(tial)472 +2007 y(cross-section)e(maxim)m(um)c(violation.)76 b(These)46 +b(v)-5 b(ariables)43 b(m)m(ust)i(not)f(b)s(e)h(c)m(hanged)h(b)m(y)472 +2116 y(y)m(ou.)0 2224 y Fq(NGEN\(ISUB,1\))54 b(:)48 b +Fw(giv)m(es)35 b(the)f(n)m(um)m(b)s(er)h(of)f(times)f(that)h(the)h +(di\013eren)m(tial)d(cross)j(section)g(\(times)e(Ja-)472 +2332 y(cobian)i(factors\))g(has)g(b)s(een)h(ev)-5 b(aluated)34 +b(for)h(subpro)s(cess)i(ISUB,)e(with)g Fq(NGEN\(0,1\))i +Fw(the)472 2441 y(sum)c(of)f(these.)0 2549 y Fq(NGEN\(ISUB,2\))54 +b(:)48 b Fw(giv)m(es)27 b(the)h(n)m(um)m(b)s(er)f(of)f(times)g(that)h +(a)f(kinematical)f(setup)j(for)e(subpro)s(cess)j(ISUB)472 +2657 y(is)k(accepted)h(in)d(the)i(generation)f(pro)s(cedure,)i(with)e +Fq(NGEN\(0,2\))j Fw(the)e(sum)g(of)f(these.)0 2766 y +Fq(NGEN\(ISUB,3\))54 b(:)48 b Fw(giv)m(es)64 b(the)g(n)m(um)m(b)s(er)g +(of)f(times)g(an)g(ev)m(en)m(t)j(of)d(subpro)s(cess)i(t)m(yp)s(e)g +(ISUB)f(is)472 2874 y(generated,)j(with)59 b Fq(NGEN\(0,3\))j +Fw(the)e(sum)f(of)g(these.)125 b(Usually)60 b Fq(NGEN\(ISUB,3\))54 +b(=)472 2982 y(NGEN\(ISUB,2\))p Fw(,)e(i.e.)79 b(an)45 +b(accepted)h(kinematical)d(con\014guration)h(can)h(normally)d(b)s(e)472 +3091 y(used)34 b(to)e(pro)s(duce)i(an)e(ev)m(en)m(t.)0 +3199 y Fq(XSEC\(ISUB,1\))54 b(:)48 b Fw(estimated)36 +b(maxim)m(um)e(di\013eren)m(tial)h(cross)j(section)e(\(times)g(the)h +(Jacobian)f(fac-)472 3307 y(tors)c(used)g(to)f(sp)s(eed)i(up)f(the)g +(generation)e(pro)s(cess\))j(for)e(the)g(di\013eren)m(t)h(subpro)s +(cesses)i(in)472 3416 y(use,)g(with)e Fq(XSEC\(0,1\))j +Fw(the)e(sum)g(of)f(these)i(\(except)g(lo)m(w-)p Fj(p)2690 +3431 y Fk(?)2748 3416 y Fw(,)e(i.e.)43 b(ISUB)34 b(=)e(95\).)0 +3524 y Fq(XSEC\(ISUB,2\))54 b(:)48 b Fw(giv)m(es)35 b(the)g(sum)f(of)h +(di\013eren)m(tial)d(cross)k(sections)f(\(times)f(Jacobian)f(factors\)) +i(for)472 3632 y(the)e Fq(NGEN\(ISUB,1\))j Fw(phase-space)e(p)s(oin)m +(ts)f(ev)-5 b(aluated)32 b(so)h(far.)0 3741 y Fq(XSEC\(ISUB,3\))54 +b(:)48 b Fw(giv)m(es)29 b(the)h(estimated)e(in)m(tegrated)h(cross)h +(section)f(for)g(subpro)s(cess)i(ISUB,)f(based)472 3849 +y(on)g(the)f(statistics)g(accum)m(ulated)g(so)h(far,)f(with)g +Fq(XSEC\(0,3\))i Fw(the)f(estimated)f(total)f(cross)472 +3958 y(section)23 b(for)g(all)d(subpro)s(cesses)26 b(included)c(\(all)f +(in)h(m)m(b\).)40 b(This)23 b(is)f(exactly)h(the)h(information)472 +4066 y(obtainable)31 b(b)m(y)j(a)e Fq(PYSTAT\(1\))j Fw(call.)p +0 4210 1440 9 v 0 4569 9 359 v 79 4357 a Fq(COMMON/PYINT6/PROC\(0:200)q +(\))79 4465 y(CHARACTER)54 b(PROC*28)p 1432 4569 V 0 +4577 1440 9 v 0 4709 a Fo(Purp)s(ose:)48 b Fw(to)41 b(store)g(c)m +(haracter)i(strings)e(for)f(the)i(di\013eren)m(t)g(p)s(ossible)e +(subpro)s(cesses;)49 b(used)42 b(when)472 4817 y(prin)m(ting)32 +b(tables.)0 4925 y Fq(PROC\(ISUB\))54 b(:)47 b Fw(name)c(for)f(the)h +(di\013eren)m(t)g(subpro)s(cesses,)49 b(according)42 +b(to)h(ISUB)g(co)s(de.)75 b Fq(PROC\(0\))472 5034 y Fw(denotes)34 +b(all)d(pro)s(cesses.)p 0 5178 1748 9 v 0 5403 9 225 +v 79 5318 a Fq(COMMON/PYINT7/SIGT\(0:6,0)q(:6,0)q(:5\))p +1739 5403 V 0 5411 1748 9 v 0 5543 a Fo(Purp)s(ose:)48 +b Fw(to)f(store)g(information)d(on)k(total,)h(elastic)d(and)i +(di\013ractiv)m(e)e(cross)j(sections.)88 b(These)472 +5651 y(v)-5 b(ariables)24 b(should)g(only)h(b)s(e)g(set)g(b)m(y)h(y)m +(ou)f(for)f(the)h(option)f Fq(MSTP\(31\)=0)p Fw(;)30 +b(else)25 b(they)h(should)1817 5953 y(187)p eop +%%Page: 188 194 +188 193 bop 472 -18 a Fw(not)33 b(b)s(e)g(touc)m(hed.)44 +b(All)31 b(n)m(um)m(b)s(ers)j(are)e(giv)m(en)h(in)f(m)m(b.)0 +90 y Fq(SIGT\(I1,I2,J\))55 b(:)47 b Fw(the)23 b(cross)h(section,)g(b)s +(oth)e(total)f(and)i(sub)s(divided)g(b)m(y)g(class)g(\(elastic,)g +(di\013ractiv)m(e)472 198 y(etc.\).)56 b(F)-8 b(or)35 +b(a)h(photon)h(to)f(b)s(e)g(considered)h(as)g(a)f(VMD)g(meson)h(the)f +(cross)i(sections)e(are)472 307 y(additionally)30 b(split)h(in)m(to)h +(the)h(con)m(tributions)f(from)f(the)i(v)-5 b(arious)32 +b(meson)h(states.)236 415 y Fq(I1,)52 b(I2)g(:)63 b Fw(allo)m(w)m(ed)21 +b(states)j(for)e(the)h(incoming)d(particle)h(on)i(side)f(1)g(and)h(2,)h +(resp)s(ectiv)m(ely)-8 b(.)472 523 y Fq(=)52 b(0)g(:)216 +b Fw(sum)33 b(of)g(all)f(allo)m(w)m(ed)g(states.)47 b(Except)36 +b(for)c(a)i(photon)f(to)g(b)s(e)h(considered)g(as)945 +632 y(a)e(VMD)h(meson)f(this)h(is)f(the)h(only)f(non)m(v)-5 +b(anishing)32 b(en)m(try)-8 b(.)472 740 y Fq(=)52 b(1)g(:)216 +b Fw(the)33 b(con)m(tribution)e(from)h(the)h Fj(\032)2117 +704 y Fl(0)2189 740 y Fw(VMD)g(state.)472 848 y Fq(=)52 +b(2)g(:)216 b Fw(the)33 b(con)m(tribution)e(from)h(the)h +Fj(!)j Fw(VMD)c(state.)472 957 y Fq(=)52 b(3)g(:)216 +b Fw(the)33 b(con)m(tribution)e(from)h(the)h Fj(\036)f +Fw(VMD)g(state.)472 1065 y Fq(=)52 b(4)g(:)216 b Fw(the)33 +b(con)m(tribution)e(from)h(the)h(J)p Fj(= )j Fw(VMD)d(state.)472 +1173 y Fq(=)52 b(5,)g(6)f(:)63 b Fw(reserv)m(ed)35 b(for)d(future)h +(use.)236 1282 y Fq(J)52 b(:)319 b Fw(the)33 b(total)e(and)h(partial)f +(cross)i(sections.)472 1390 y Fq(=)52 b(0)g(:)216 b Fw(the)33 +b(total)e(cross)i(section.)472 1498 y Fq(=)52 b(1)g(:)216 +b Fw(the)33 b(elastic)e(cross)j(section.)472 1607 y Fq(=)52 +b(2)g(:)216 b Fw(the)33 b(single)e(di\013ractiv)m(e)h(cross)i(section)f +Fj(AB)g Fn(!)27 b Fj(X)8 b(B)d Fw(.)472 1715 y Fq(=)52 +b(3)g(:)216 b Fw(the)33 b(single)e(di\013ractiv)m(e)h(cross)i(section)f +Fj(AB)g Fn(!)27 b Fj(AX)8 b Fw(.)472 1823 y Fq(=)52 b(4)g(:)216 +b Fw(the)33 b(double)f(di\013ractiv)m(e)g(cross)i(section.)472 +1932 y Fq(=)52 b(5)g(:)216 b Fw(the)33 b(inelastic,)e(non-di\013ractiv) +m(e)h(cross)h(section.)236 2040 y Fo(W)-9 b(arning:)47 +b Fw(If)35 b(y)m(ou)g(set)h(these)g(v)-5 b(alues)35 b(y)m(ourself,)h +(it)d(is)i(imp)s(ortan)m(t)e(that)h(they)i(are)f(in)m(ternally)709 +2148 y(consisten)m(t,)e(since)f(this)g(is)g(not)g(explicitly)e(c)m(hec) +m(k)m(ed)35 b(b)m(y)e(the)f(program.)42 b(Th)m(us)34 +b(the)709 2257 y(con)m(tributions)24 b Fq(J=)p Fw(1{5)g(should)h(add)f +(up)h(to)g(the)g Fq(J=)p Fw(0)g(one)g(and,)h(for)e(VMD)h(photons,)709 +2365 y(the)33 b(con)m(tributions)f Fq(I=)p Fw(1{4)g(should)g(add)h(up)g +(to)f(the)h Fq(I=)p Fw(0)g(one.)p 0 2509 3389 9 v 0 2868 +9 359 v 130 2656 a Fq(COMMON/PYINT8/XPVMD\(-6:)q(6\),X)q(PANL)q(\(-6:)q +(6\),)q(XPAN)q(H\(-6)q(:6\),)q(XPB)q(EH\(-)q(6:6\))q(,)79 +2764 y(&XPDIR\(-6:6\))p 3380 2868 V 0 2876 3389 9 v 0 +3008 a Fo(Purp)s(ose:)48 b Fw(to)34 b(store)g(the)h(v)-5 +b(arious)33 b(comp)s(onen)m(ts)i(of)f(the)h(photon)f(parton)g +(distributions)f(when)i(the)472 3116 y Fq(PYGGAM)g Fw(routine)d(is)g +(called.)0 3224 y Fq(XPVMD\(KFL\))54 b(:)47 b Fw(giv)m(es)33 +b(distributions)f(of)g(the)h(VMD)f(part)h(\()p Fj(\032)2320 +3188 y Fl(0)2359 3224 y Fw(,)g Fj(!)j Fw(and)c Fj(\036)p +Fw(\).)0 3333 y Fq(XPANL\(KFL\))54 b(:)47 b Fw(giv)m(es)33 +b(distributions)f(of)g(the)h(anomalous)e(part)h(of)g(ligh)m(t)f(quarks) +j(\(d,)f(u)f(and)h(s\).)0 3441 y Fq(XPANH\(KFL\))54 b(:)47 +b Fw(giv)m(es)33 b(distributions)f(of)g(the)h(anomalous)e(part)h(of)g +(hea)m(vy)i(quarks)g(\(c)f(and)f(b\).)0 3549 y Fq(XPBEH\(KFL\))54 +b(:)47 b Fw(giv)m(es)29 b(Bethe-Heitler)e(distributions)g(of)h(hea)m +(vy)h(quarks)h(\(c)e(and)g(b\).)42 b(This)29 b(pro)m(vides)472 +3658 y(an)k(alternativ)m(e)f(to)g Fq(XPANH)p Fw(,)i(i.e.)43 +b(b)s(oth)32 b(should)h(not)f(b)s(e)h(used)h(at)e(the)h(same)f(time.)0 +3766 y Fq(XPDIR\(KFL\))54 b(:)47 b Fw(giv)m(es)29 b(direct)f +(correction)g(to)g(the)h(pro)s(duction)e(of)h(ligh)m(t)e(quarks)k(\(d,) +f(u)g(and)f(s\).)42 b(This)472 3884 y(term)36 b(is)g(non)m(v)-5 +b(anishing)35 b(only)g(in)h(the)p 1906 3806 144 4 v 36 +w(MS)h(sc)m(heme,)h(and)e(is)g(applicable)e(for)h Fj(F)3439 +3837 y Fh(\015)3425 3906 y Fl(2)3519 3884 y Fw(rather)472 +3992 y(than)e(for)f(the)h(parton)f(distributions)g(themselv)m(es.)p +0 4137 1492 9 v 0 4495 9 359 v 79 4283 a Fq(COMMON/PYINT8/DXSEC\(0:20)q +(0\))79 4392 y(DOUBLE)53 b(PRECISION)h(DXSEC)p 1483 4495 +V 0 4503 1492 9 v 0 4635 a Fo(Purp)s(ose:)48 b Fw(T)-8 +b(o)37 b(store)g(double-precision)e(information)f(necessary)39 +b(for)d(cross)i(section)f(calculation.)472 4743 y(In)e +Fm(Pythia)g Fw(the)g(cross)g(section)g(of)f(a)g(pro)s(cess)i(is)e +(calculated)f(from)h(the)h(sum)f(of)g(cross-)472 4852 +y(section)46 b(w)m(eigh)m(ts)g(for)e(all)f(phase-space)k(p)s(oin)m(ts)e +(selected)h(during)f(the)g(course)h(of)f(the)472 4960 +y(run.)e(This)28 b(sum)g(is)g(stored)h(in)f(single)f(precision,)h(whic) +m(h)h(is)f(normally)e(reasonable,)j(since)472 5068 y +Fm(Pythia)g Fw(is)f(not)g(really)f(in)m(tended)j(to)e(giv)m(e)g +(high-precision)f(cross)i(section)g(information.)472 +5177 y(In)36 b(v)m(ery)g(long)d(runs,)k(ho)m(w)m(ev)m(er,)g(this)e(giv) +m(es)g(problems)f(when)i(a)f(single)e(small)g(w)m(eigh)m(t)i(is)472 +5285 y(to)i(b)s(e)h(added)g(to)f(a)g(large)f(sum)h(of)g(preciding)f(w)m +(eigh)m(ts.)58 b(Bey)m(ond)39 b(a)e(certain)g(p)s(oin)m(t)f(\(of)472 +5393 y(the)k(order)g(of)f(100,000)f(ev)m(en)m(ts)j(of)e(one)h(and)f +(the)h(same)g(pro)s(cess\))g(one)g(ma)m(y)f(therefore)472 +5502 y(start)32 b(to)g(obtain)f(to)s(o)g(lo)m(w)g(cross)i(sections,)g +(a)e(problem)g(that)h(then)g(gradually)e(w)m(orsens.)0 +5610 y Fq(DXSEC\(ISUB\))54 b(:)48 b Fw(double-precision)56 +b(v)m(ersion)i(of)g(the)g(information)c(found)k(in)f +Fq(XSEC\(ISUB,2\))p Fw(,)1817 5953 y(188)p eop +%%Page: 189 195 +189 194 bop 472 -18 a Fw(i.e.)93 b(the)50 b(sum)f(of)g(di\013eren)m +(tial)e(cross)j(sections)g(\(times)e(Jacobian)g(factors\))h(for)g(the) +472 90 y Fq(NGEN\(ISUB,1\))36 b Fw(phase-space)e(p)s(oin)m(ts)f(ev)-5 +b(aluated)32 b(so)h(far.)146 252 y(Finally)-8 b(,)35 +b(in)h(addition)f(a)i(n)m(um)m(b)s(er)g(of)f(routines)h(and)f(common)g +(blo)s(c)m(ks)h(with)f(names)h(b)s(eginning)0 361 y(with)k +Fq(RK)i Fw(come)e(with)h(the)g(program.)70 b(These)43 +b(con)m(tain)f(the)g(matrix-elemen)m(t)e(ev)-5 b(aluation)40 +b(for)h(the)0 469 y(pro)s(cess)34 b(gg)28 b Fn(!)g Fw(Zq)p +705 416 52 4 v(q,)33 b(based)g(on)g(a)f(program)f(of)h(Ronald)g +(Kleiss,)g(with)g(only)g(minor)f(mo)s(di\014cations.)0 +743 y Fp(9.8)135 b(Examples)0 916 y Fw(The)32 b(program)e(is)g(built)g +(as)h(a)g(sla)m(v)m(e)g(system,)i(i.e.)42 b(y)m(ou)32 +b(supply)f(the)h(main)d(program,)h(whic)m(h)i(calls)e(on)0 +1024 y(the)j Fm(Pythia)g Fw(and)f Fm(Jetset)g Fw(routines)g(to)h(p)s +(erform)e(sp)s(eci\014c)i(tasks)h(and)f(then)g(resumes)h(con)m(trol.) +146 1132 y(A)42 b(t)m(ypical)e(program)g(for)g(the)i(analysis)f(of)f +(collider)f(ev)m(en)m(ts)44 b(at)d(630)f(GeV)h(c.m.)70 +b(energy)42 b(with)0 1241 y(a)i(minim)m(um)d Fj(p)590 +1256 y Fk(?)694 1241 y Fw(of)j(10)g(GeV/c)g(at)g(the)h(hard)g +(scattering)f(\(b)s(ecause)i(of)e(initial-state)d(radiation,)0 +1349 y(fragmen)m(tation)27 b(e\013ects,)k(etc.,)g(the)e(actual)f +Fj(p)1656 1364 y Fk(?)1744 1349 y Fw(cut-o\013)h(will)d(b)s(e)k +(smeared)f(around)g(this)g(v)-5 b(alue\))28 b(migh)m(t)0 +1457 y(lo)s(ok)j(lik)m(e)308 1649 y Fq(COMMON/LUJETS/N,K\(4000,5\),)q +(P\(40)q(00,5)q(\),V\()q(400)q(0,5\))308 1757 y +(COMMON/PYSUBS/MSEL,MSUB\(20)q(0\),K)q(FIN\()q(2,-4)q(0:4)q(0\),C)q +(KIN\()q(200\))308 1865 y(COMMON/PYPARS/MSTP\(200\),PA)q(RP\(2)q(00\),) +q(MSTI)q(\(20)q(0\),P)q(ARI\()q(200\))308 1974 y(...)974 +b(!)52 b(set)g(all)g(common)h(block)g(variables)g(that)308 +2082 y(...)974 b(!)52 b(did)g(not)g(have)g(desired)i(default)f(values) +308 2190 y(CKIN\(3\)=10.)566 b(!)52 b(lower)h(p_T)f(cut-off)308 +2299 y(CALL)g(PYINIT\('CMS','p','pbar',6)q(30.\))468 +b(!)52 b(initialize)308 2407 y(...)974 b(!)52 b(initialize)i(analysis)f +(statistics)308 2515 y(DO)e(100)h(IEVENT=1,1000)824 b(!)52 +b(loop)g(over)g(events)308 2624 y(CALL)g(PYEVNT)1283 +b(!)52 b(generate)h(event)308 2732 y(IF\(IEVENT.EQ.1\))i(CALL)d +(LULIST\(1\))310 b(!)52 b(list)g(first)h(event)308 2840 +y(...)974 b(!)52 b(insert)h(desired)g(analysis)g(chain)g(for)308 +2949 y(...)974 b(!)52 b(each)g(event)103 3057 y(100)g(CONTINUE)308 +3166 y(CALL)g(PYSTAT\(1\))412 b(!)52 b(print)h(cross)f(sections)308 +3274 y(...)974 b(!)52 b(user)g(output)308 3382 y(END)1817 +5953 y Fw(189)p eop +%%Page: 190 196 +190 195 bop 0 -18 a Ft(10)161 b(Initial-)56 b(and)d(Final-State)j +(Radiation)0 189 y Fw(Starting)38 b(from)g(the)h(hard)h(in)m +(teraction,)g(initial-)34 b(and)40 b(\014nal-state)e(radiation)f +(corrections)i(ma)m(y)g(b)s(e)0 297 y(added.)j(This)25 +b(is)g(normally)e(done)i(b)m(y)h(making)e(use)i(of)f(the)h(parton-sho)m +(w)m(er)g(language)e(|)h(only)f(for)h(the)0 405 y(e)43 +369 y Fl(+)102 405 y Fw(e)145 369 y Fk(\000)232 405 y +Fn(!)j Fw(q)p 411 352 52 4 v(q)j(pro)s(cess)i(do)s(es)e +Fm(Jetset)f Fw(o\013er)g(a)h(matrix-elemen)m(t)e(option)g(\(describ)s +(ed)j(in)e(section)h(6.1\).)0 514 y(The)k(algorithms)d(used)j(to)f +(generate)h(initial-)30 b(and)35 b(\014nal-state)e(sho)m(w)m(ers)k(are) +d(rather)g(di\013eren)m(t,)h(and)0 622 y(are)d(therefore)h(describ)s +(ed)f(separately)h(b)s(elo)m(w,)f(starting)f(with)g(the)i(conceptually) +e(easier)h(\014nal-state)0 730 y(one.)44 b(Before)33 +b(that,)f(some)g(common)g(elemen)m(ts)h(are)f(in)m(tro)s(duced.)146 +839 y(The)40 b(main)e(reference)j(for)d(\014nal-state)h(sho)m(w)m(ers)i +(is)e(ref.)63 b([Ben87a])39 b(and)h(for)e(initial-state)e(ones)0 +947 y(ref.)44 b([Sj\177)-49 b(o85)o(].)0 1221 y Fp(10.1)136 +b(Sho)l(w)l(er)45 b(Ev)l(olution)0 1394 y Fw(In)39 b(the)g(leading)e +(log)g(picture,)k(a)d(sho)m(w)m(er)i(ma)m(y)f(b)s(e)g(view)m(ed)g(as)g +(a)g(sequence)i(of)d(1)g Fn(!)g Fw(2)g(branc)m(hings)0 +1502 y Fj(a)28 b Fn(!)f Fj(bc)p Fw(.)43 b(Here)31 b Fj(a)f +Fw(is)f(called)g(the)h(mother)f(and)h Fj(b)g Fw(and)g +Fj(c)g Fw(the)g(t)m(w)m(o)h(daugh)m(ters.)44 b(Eac)m(h)30 +b(daugh)m(ter)h(is)e(free)0 1610 y(to)d(branc)m(h)i(in)e(its)g(turn,)i +(so)f(that)g(a)f(tree-lik)m(e)g(stucture)i(can)f(ev)m(olv)m(e.)43 +b(W)-8 b(e)27 b(will)d(use)k(the)f(w)m(ork)h(`parton')0 +1719 y(for)36 b(all)e(the)j(ob)5 b(jects)38 b Fj(a)p +Fw(,)f Fj(b)g Fw(and)f Fj(c)h Fw(in)m(v)m(olv)m(ed)g(in)e(the)i(branc)m +(hing)f(pro)s(cess,)j(i.e.)54 b(not)36 b(only)g(for)g(quarks)0 +1827 y(and)k(gluons)f(but)h(also)f(for)g(leptons)h(and)g(photons.)65 +b(The)41 b(branc)m(hings)f(included)g(in)f(the)h(program)0 +1935 y(are)35 b(q)d Fn(!)f Fw(qg)q(,)37 b(g)32 b Fn(!)g +Fw(gg)q(,)j(g)e Fn(!)e Fw(q)p 1182 1882 V(q)q(,)36 b(q)c +Fn(!)f Fw(q)p Fj(\015)41 b Fw(and)35 b Fj(`)c Fn(!)h +Fj(`\015)5 b Fw(.)50 b(Photon)35 b(branc)m(hings,)h(i.e.)50 +b Fj(\015)37 b Fn(!)32 b Fw(q)p 3536 1882 V(q)j(and)0 +2044 y Fj(\015)e Fn(!)27 b Fj(`)p 252 1964 41 4 v(`)p +Fw(,)k(ha)m(v)m(e)g(not)g(b)s(een)g(included)f(so)g(far,)g(since)h +(they)g(are)g(reasonably)f(rare)g(and)h(since)g(no)f(urgen)m(t)0 +2152 y(need)k(for)e(them)g(has)h(b)s(een)g(p)s(erceiv)m(ed.)0 +2400 y Fo(10.1.1)113 b(The)37 b(ev)m(olution)f(equations)0 +2572 y Fw(In)45 b(the)h(sho)m(w)m(er)h(form)m(ulation,)e(the)h +(kinematics)e(of)h(eac)m(h)h(branc)m(hing)f(is)f(giv)m(en)i(in)e(terms) +h(of)g(t)m(w)m(o)0 2681 y(v)-5 b(ariables,)42 b Fj(Q)519 +2645 y Fl(2)600 2681 y Fw(and)f Fj(z)t Fw(.)69 b(Sligh)m(tly)40 +b(di\013eren)m(t)h(in)m(terpretations)f(ma)m(y)h(b)s(e)g(giv)m(en)h(to) +e(these)j(v)-5 b(ariables,)0 2789 y(and)39 b(indeed)g(this)f(is)h(one)g +(main)e(area)h(where)i(the)g(v)-5 b(arious)38 b(programs)g(on)g(the)h +(mark)m(et)g(di\013er.)62 b Fj(Q)3740 2753 y Fl(2)0 2897 +y Fw(has)28 b(dimensions)f(of)g(squared)i(mass,)g(and)f(is)f(related)h +(to)f(the)h(mass)g(or)f(transv)m(erse)j(momen)m(tum)c(scale)0 +3006 y(of)38 b(the)i(branc)m(hing.)62 b Fj(z)43 b Fw(giv)m(es)d(the)f +(sharing)f(of)g(the)i Fj(a)e Fw(energy)i(and)f(momen)m(tum)f(b)s(et)m +(w)m(een)j(the)e(t)m(w)m(o)0 3114 y(daugh)m(ters,)32 +b(with)e(parton)g Fj(b)h Fw(taking)e(a)h(fraction)f Fj(z)35 +b Fw(and)c(parton)f Fj(c)g Fw(a)g(fraction)f(1)17 b Fn(\000)i +Fj(z)t Fw(.)43 b(T)-8 b(o)30 b(sp)s(ecify)h(the)0 3222 +y(kinematics,)37 b(an)g(azim)m(uthal)e(angle)i Fj(')g +Fw(of)f(the)i Fj(b)f Fw(around)h(the)f Fj(a)g Fw(direction)f(is)h +(needed)i(in)d(addition;)0 3331 y(normally)i Fj(')i Fw(is)f(c)m(hosen)j +(to)d(b)s(e)i(isotropically)c(distributed,)k(although)e(options)h(for)f +(non-isotropic)0 3439 y(distributions)31 b(exist.)146 +3547 y(The)g(probabilit)m(y)c(for)i(a)g(parton)g(to)g(branc)m(h)h(is)f +(giv)m(en)g(b)m(y)i(the)e(ev)m(olution)g(equations)g(\(also)g(called)0 +3656 y(DGLAP)j(or)g(Altarelli{P)m(arisi)c([Gri72)n(,)33 +b(Alt77)o(]\).)43 b(It)33 b(is)f(con)m(v)m(enien)m(t)i(to)e(in)m(tro)s +(duce)943 3935 y Fj(t)c Fw(=)g(ln)o(\()p Fj(Q)1306 3894 +y Fl(2)1346 3935 y Fj(=)p Fw(\003)1463 3894 y Fl(2)1501 +3935 y Fw(\))126 b Fn(\))e Fw(d)p Fj(t)29 b Fw(=)e(d)17 +b(ln)o(\()p Fj(Q)2377 3894 y Fl(2)2417 3935 y Fw(\))27 +b(=)2596 3868 y(d)p Fj(Q)2727 3831 y Fl(2)p 2596 3912 +171 4 v 2623 4003 a Fj(Q)2700 3975 y Fl(2)2809 3935 y +Fj(;)721 b Fw(\(126\))0 4200 y(where)39 b(\003)f(is)g(the)g(QCD)g(\003) +g(scale)g(in)f Fj(\013)1455 4215 y Fl(s)1488 4200 y Fw(.)60 +b(Of)37 b(course,)k(this)d(c)m(hoice)g(is)g(more)f(directed)i(to)m(w)m +(ards)g(the)0 4308 y(QCD)34 b(parts)g(of)g(the)h(sho)m(w)m(er,)h(but)f +(it)e(can)i(b)s(e)f(used)h(just)g(as)f(w)m(ell)g(for)f(the)i(QED)f +(ones.)49 b(In)35 b(terms)f(of)0 4416 y(the)f(t)m(w)m(o)g(v)-5 +b(ariables)32 b Fj(t)g Fw(and)h Fj(z)t Fw(,)g(the)g(di\013eren)m(tial)e +(probabilit)m(y)g(d)p Fn(P)41 b Fw(for)32 b(parton)g +Fj(a)h Fw(to)f(branc)m(h)i(is)e(no)m(w)1249 4654 y(d)p +Fn(P)1372 4669 y Fh(a)1442 4654 y Fw(=)1545 4571 y Fg(X)1565 +4756 y Fh(b;c)1692 4587 y Fj(\013)1754 4602 y Fh(abc)p +1692 4631 165 4 v 1720 4722 a Fw(2)p Fj(\031)1883 4654 +y(P)1946 4669 y Fh(a)p Fk(!)p Fh(bc)2119 4654 y Fw(\()p +Fj(z)t Fw(\))17 b(d)p Fj(t)g Fw(d)p Fj(z)37 b(:)1027 +b Fw(\(127\))0 4954 y(Here)41 b(the)g(sum)f(is)g(supp)s(osed)i(to)d +(run)i(o)m(v)m(er)g(all)e(allo)m(w)m(ed)g(branc)m(hings,)k(for)d(a)g +(quark)h(q)g Fn(!)g Fw(qg)g(and)0 5062 y(q)29 b Fn(!)f +Fw(q)p Fj(\015)5 b Fw(,)34 b(and)f(so)g(on.)45 b(The)34 +b Fj(\013)1124 5077 y Fh(abc)1259 5062 y Fw(factor)e(is)h +Fj(\013)1699 5077 y Fl(em)1826 5062 y Fw(for)g(QED)f(branc)m(hings)i +(and)f Fj(\013)2969 5077 y Fl(s)3034 5062 y Fw(for)f(QCD)h(ones)h(\(to) +0 5171 y(b)s(e)f(ev)-5 b(aluated)32 b(at)g(some)h(suitable)e(scale,)i +(see)h(b)s(elo)m(w\).)146 5279 y(The)g(splitting)c(k)m(ernels)k +Fj(P)1121 5294 y Fh(a)p Fk(!)p Fh(bc)1294 5279 y Fw(\()p +Fj(z)t Fw(\))f(are)1143 5558 y Fj(P)1206 5573 y Fl(q)p +Fk(!)p Fl(qg)1391 5558 y Fw(\()p Fj(z)t Fw(\))84 b(=)f +Fj(C)1829 5573 y Fh(F)1914 5491 y Fw(1)22 b(+)g Fj(z)2132 +5455 y Fl(2)p 1914 5535 259 4 v 1933 5626 a Fw(1)g Fn(\000)g +Fj(z)2214 5558 y(;)1817 5953 y Fw(190)p eop +%%Page: 191 197 +191 196 bop 1146 28 a Fj(P)1209 43 y Fl(g)q Fk(!)p Fl(gg)1391 +28 y Fw(\()p Fj(z)t Fw(\))84 b(=)f Fj(N)1837 43 y Fh(C)1923 +-39 y Fw(\(1)21 b Fn(\000)i Fj(z)t Fw(\(1)g Fn(\000)f +Fj(z)t Fw(\)\))2514 -75 y Fl(2)p 1923 5 632 4 v 2066 +97 a Fj(z)t Fw(\(1)g Fn(\000)h Fj(z)t Fw(\))2597 28 y +Fj(;)1143 239 y(P)1206 254 y Fl(g)q Fk(!)p Fl(q)p 1350 +215 38 4 v(q)1391 239 y Fw(\()p Fj(z)t Fw(\))84 b(=)f +Fj(T)1816 254 y Fh(R)1890 239 y Fw(\()p Fj(z)1977 198 +y Fl(2)2040 239 y Fw(+)22 b(\(1)f Fn(\000)i Fj(z)t Fw(\))2433 +198 y Fl(2)2473 239 y Fw(\))33 b Fj(;)1139 446 y(P)1202 +461 y Fl(q)p Fk(!)p Fl(q)p Fh(\015)1391 446 y Fw(\()p +Fj(z)t Fw(\))84 b(=)f Fj(e)1804 405 y Fl(2)1804 471 y(q)1872 +379 y Fw(1)22 b(+)g Fj(z)2090 343 y Fl(2)p 1872 423 259 +4 v 1891 514 a Fw(1)g Fn(\000)g Fj(z)2173 446 y(;)1156 +702 y(P)1219 717 y Fh(`)p Fk(!)p Fh(`\015)1391 702 y +Fw(\()p Fj(z)t Fw(\))84 b(=)f Fj(e)1804 661 y Fl(2)1804 +727 y Fh(`)1870 635 y Fw(1)22 b(+)g Fj(z)2088 599 y Fl(2)p +1870 679 V 1889 771 a Fw(1)g Fn(\000)g Fj(z)2171 702 +y(;)1359 b Fw(\(128\))0 962 y(with)43 b Fj(C)303 977 +y Fh(F)407 962 y Fw(=)i(4)p Fj(=)p Fw(3,)g Fj(N)825 977 +y Fh(C)930 962 y Fw(=)h(3,)f Fj(T)1230 977 y Fh(R)1334 +962 y Fw(=)g Fj(n)1513 977 y Fh(f)1559 962 y Fj(=)p Fw(2)e(\(i.e.)74 +b Fj(T)1994 977 y Fh(R)2095 962 y Fw(receiv)m(es)45 b(a)e(con)m +(tribution)f(of)h(1)p Fj(=)p Fw(2)f(for)h(eac)m(h)0 1070 +y(allo)m(w)m(ed)29 b(q)p 395 1017 52 4 v(q)i(\015a)m(v)m(our\),)h(and)e +Fj(e)1095 1034 y Fl(2)1095 1095 y(q)1166 1070 y Fw(and)g +Fj(e)1398 1034 y Fl(2)1398 1095 y Fh(`)1468 1070 y Fw(the)g(squared)i +(electric)d(c)m(harge)i(\(4)p Fj(=)p Fw(9)e(for)h(u-t)m(yp)s(e)g +(quarks,)i(1)p Fj(=)p Fw(9)0 1190 y(for)g(d-t)m(yp)s(e)h(ones,)h(and)e +(1)h(for)f(leptons\).)146 1299 y(P)m(ersons)43 b(familiar)37 +b(with)k(analytical)d(calculations)h(ma)m(y)i(w)m(onder)i(wh)m(y)f(the) +f(`+)g(prescriptions')0 1407 y(and)34 b Fj(\016)t Fw(\(1)22 +b Fn(\000)i Fj(z)t Fw(\))34 b(terms)g(of)f(the)h(splitting)e(k)m +(ernels)i(in)f(eq.)i(\(128\))e(are)g(missing.)46 b(These)35 +b(complications)0 1515 y(ful\014l)24 b(the)j(task)f(of)g(ensuring)g +(\015a)m(v)m(our)h(and)f(energy)h(conserv)-5 b(ation)26 +b(in)f(the)h(analytical)e(equations.)42 b(The)0 1624 +y(corresp)s(onding)27 b(problem)e(is)i(solv)m(ed)g(trivially)d(in)i +(Mon)m(te)h(Carlo)f(programs,)h(where)h(the)g(sho)m(w)m(er)g(ev)m(o-)0 +1732 y(lution)21 b(is)i(traced)h(in)e(detail,)i(and)f(\015a)m(v)m(our)h +(and)f(four-momen)m(tum)e(are)i(conserv)m(ed)j(at)c(eac)m(h)i(branc)m +(hing.)0 1841 y(The)29 b(legacy)f(left)f(is)g(the)i(need)g(to)e(in)m +(tro)s(duce)h(a)g(cut-o\013)f(on)h(the)h(allo)m(w)m(ed)e(range)h(of)f +Fj(z)33 b Fw(in)27 b(splittings,)g(so)0 1949 y(as)i(to)g(a)m(v)m(oid)f +(the)i(singular)d(regions)h(corresp)s(onding)h(to)g(excessiv)m(e)i(pro) +s(duction)d(of)h(v)m(ery)h(soft)f(gluons.)146 2057 y(Also)j(note)g +(that)h Fj(P)857 2072 y Fl(g)q Fk(!)p Fl(gg)1039 2057 +y Fw(\()p Fj(z)t Fw(\))g(is)f(giv)m(en)g(here)h(with)f(a)g(factor)g +Fj(N)2420 2072 y Fh(C)2511 2057 y Fw(in)g(fron)m(t,)g(while)f(it)h(is)f +(sometimes)0 2166 y(sho)m(wn)i(with)e(2)p Fj(N)643 2181 +y Fh(C)702 2166 y Fw(.)43 b(The)33 b(confusion)e(arises)h(b)s(ecause)h +(the)f(\014nal)f(state)h(con)m(tains)g(t)m(w)m(o)g(iden)m(tical)e(par-) +0 2274 y(tons.)43 b(With)31 b(the)h(normalization)c(ab)s(o)m(v)m(e,)k +Fj(P)1649 2289 y Fh(a)p Fk(!)p Fh(bc)1822 2274 y Fw(\()p +Fj(z)t Fw(\))g(is)f(in)m(terpreted)i(as)e(the)h(branc)m(hing)f +(probabilit)m(y)0 2382 y(for)k(the)g(original)d(parton)i +Fj(a)p Fw(.)52 b(On)35 b(the)g(other)g(hand,)h(one)g(could)e(also)g +(write)h(do)m(wn)h(the)f(probabilit)m(y)0 2491 y(that)25 +b(a)g(parton)g Fj(b)g Fw(is)g(pro)s(duced)h(with)f(a)g(fractional)e +(energy)j Fj(z)t Fw(.)42 b(Almost)24 b(all)f(the)i(ab)s(o)m(v)m(e)h(k)m +(ernels)h(can)e(b)s(e)0 2599 y(used)h(unc)m(hanged)g(also)e(for)h(this) +f(purp)s(ose,)j(with)e(the)g(ob)m(vious)g(symmetry)g +Fj(P)2822 2614 y Fh(a)p Fk(!)p Fh(bc)2995 2599 y Fw(\()p +Fj(z)t Fw(\))j(=)g Fj(P)3315 2614 y Fh(a)p Fk(!)p Fh(cb)3488 +2599 y Fw(\(1)6 b Fn(\000)g Fj(z)t Fw(\).)0 2707 y(F)-8 +b(or)35 b(g)g Fn(!)f Fw(gg)q(,)j(ho)m(w)m(ev)m(er,)j(the)c(total)f +(probabilit)m(y)f(to)i(\014nd)h(a)f(gluon)f(with)h(energy)h(fraction)e +Fj(z)41 b Fw(is)36 b(the)0 2816 y(sum)29 b(of)f(the)h(probabilit)m(y)e +(to)i(\014nd)g(either)f(the)i(\014rst)f(or)f(the)i(second)g(daugh)m +(ter)f(there,)i(and)d(that)h(giv)m(es)0 2924 y(the)k(factor)f(of)g(2)g +(enhancemen)m(t.)0 3172 y Fo(10.1.2)113 b(The)37 b(Sudak)m(o)m(v)i +(form)e(factor)0 3344 y Fw(The)e Fj(t)f Fw(v)-5 b(ariable)33 +b(\014lls)g(the)h(function)g(of)f(a)h(kind)g(of)g(time)f(for)g(the)i +(sho)m(w)m(er)h(ev)m(olution.)47 b(In)34 b(\014nal-state)0 +3453 y(sho)m(w)m(ers,)46 b Fj(t)c Fw(is)f(constrained)h(to)g(b)s(e)g +(gradually)e(decreasing)i(a)m(w)m(a)m(y)h(from)d(the)j(hard)e +(scattering,)j(in)0 3561 y(initial-state)34 b(ones)k(to)g(b)s(e)g +(gradually)e(increasing)g(to)m(w)m(ards)j(the)f(hard)g(scattering.)59 +b(This)37 b(do)s(es)i(not)0 3669 y(mean)30 b(that)g(an)g(individual)e +(parton)i(runs)h(through)f(a)h(range)f(of)g Fj(t)g Fw(v)-5 +b(alues:)43 b(in)29 b(the)i(end,)g(eac)m(h)h(parton)0 +3778 y(is)39 b(asso)s(ciated)g(with)h(a)f(\014xed)i Fj(t)e +Fw(v)-5 b(alue,)41 b(and)f(the)g(ev)m(olution)e(pro)s(cedure)j(is)e +(just)h(a)f(w)m(a)m(y)i(of)e(pic)m(king)0 3886 y(that)d(v)-5 +b(alue.)55 b(It)36 b(is)g(only)g(the)h(ensem)m(ble)g(of)f(partons)g(in) +g(man)m(y)g(ev)m(en)m(ts)j(that)d(ev)m(olv)m(es)i(con)m(tin)m(uously)0 +3994 y(with)32 b Fj(t)p Fw(,)h(cf.)44 b(the)33 b(concept)g(of)f(parton) +h(distributions.)146 4103 y(F)-8 b(or)30 b(a)g(giv)m(en)g +Fj(t)h Fw(v)-5 b(alue)29 b(w)m(e)j(de\014ne)f(the)g(in)m(tegral)e(of)g +(the)i(branc)m(hing)f(probabilit)m(y)f(o)m(v)m(er)i(all)d(allo)m(w)m +(ed)0 4211 y Fj(z)37 b Fw(v)-5 b(alues,)1150 4379 y Fn(I)1204 +4394 y Fh(a)p Fk(!)p Fh(bc)1377 4379 y Fw(\()p Fj(t)p +Fw(\))28 b(=)1619 4262 y Fg(Z)1702 4289 y Fh(z)1735 4298 +y Ff(+)1786 4289 y Fl(\()p Fh(t)p Fl(\))1665 4451 y Fh(z)1698 +4460 y Fd(\000)1750 4451 y Fl(\()p Fh(t)p Fl(\))1887 +4379 y Fw(d)p Fj(z)2018 4312 y(\013)2080 4327 y Fh(abc)p +2018 4356 165 4 v 2046 4448 a Fw(2)p Fj(\031)2209 4379 +y(P)2272 4394 y Fh(a)p Fk(!)p Fh(bc)2444 4379 y Fw(\()p +Fj(z)t Fw(\))34 b Fj(:)927 b Fw(\(129\))0 4599 y(The)28 +b(na)-11 b(\177)-38 b(\020v)m(e)27 b(probabilit)m(y)d(that)j(a)g(branc) +m(hing)f(o)s(ccurs)i(during)e(a)g(small)f(range)i(of)f +Fj(t)h Fw(v)-5 b(alues,)28 b Fj(\016)t(t)p Fw(,)g(is)e(giv)m(en)0 +4707 y(b)m(y)135 4641 y Fg(P)223 4728 y Fh(b;c)324 4707 +y Fn(I)378 4722 y Fh(a)p Fk(!)p Fh(bc)551 4707 y Fw(\()p +Fj(t)p Fw(\))17 b Fj(\016)t(t)p Fw(,)33 b(and)g(th)m(us)g(the)g +(probabilit)m(y)e(for)h(no)g(emission)g(b)m(y)h(1)22 +b Fn(\000)2874 4641 y Fg(P)2961 4728 y Fh(b;c)3062 4707 +y Fn(I)3116 4722 y Fh(a)p Fk(!)p Fh(bc)3290 4707 y Fw(\()p +Fj(t)p Fw(\))17 b Fj(\016)t(t)p Fw(.)146 4816 y(If)36 +b(the)g(ev)m(olution)f(of)g(parton)h Fj(a)f Fw(starts)i(at)e(a)g +(`time')g Fj(t)2159 4831 y Fl(0)2199 4816 y Fw(,)h(the)g(probabilit)m +(y)e(that)h(the)i(parton)e(has)0 4924 y(not)e(y)m(et)h(branc)m(hed)g +(at)f(a)f(`later)g(time')g Fj(t)c(>)h(t)1666 4939 y Fl(0)1738 +4924 y Fw(is)j(giv)m(en)i(b)m(y)f(the)h(pro)s(duct)f(of)f(the)i +(probabilities)c(that)0 5032 y(it)e(did)h(not)g(branc)m(h)h(in)e(an)m +(y)i(of)f(the)g(small)e(in)m(terv)-5 b(als)28 b Fj(\016)t(t)i +Fw(b)s(et)m(w)m(een)h Fj(t)2470 5047 y Fl(0)2539 5032 +y Fw(and)e Fj(t)p Fw(.)42 b(In)30 b(other)f(w)m(ords,)i(letting)0 +5141 y Fj(\016)t(t)d Fn(!)f Fw(0,)33 b(the)g(no-branc)m(hing)f +(probabilit)m(y)e(exp)s(onen)m(tiates:)663 5442 y Fn(P)732 +5457 y Fl(no)p Fk(\000)p Fl(branc)n(hing)1171 5442 y +Fw(\()p Fj(t)1244 5457 y Fl(0)1284 5442 y Fj(;)17 b(t)p +Fw(\))27 b(=)h(exp)1698 5268 y Fg(8)1698 5343 y(<)1698 +5492 y(:)1771 5442 y Fn(\000)1865 5325 y Fg(Z)1948 5352 +y Fh(t)1912 5514 y(t)1937 5523 y Ff(0)1995 5442 y Fw(d)p +Fj(t)2084 5401 y Fk(0)2141 5359 y Fg(X)2160 5544 y Fh(b;c)2277 +5442 y Fn(I)2331 5457 y Fh(a)p Fk(!)p Fh(bc)2504 5442 +y Fw(\()p Fj(t)2577 5401 y Fk(0)2601 5442 y Fw(\))2639 +5268 y Fg(9)2639 5343 y(=)2639 5492 y(;)2740 5442 y Fw(=)g +Fj(S)2904 5457 y Fh(a)2945 5442 y Fw(\()p Fj(t)p Fw(\))33 +b Fj(:)441 b Fw(\(130\))1817 5953 y(191)p eop +%%Page: 192 198 +192 197 bop 0 -18 a Fw(Th)m(us)34 b(the)f(actual)f(probabilit)m(y)e +(that)j(a)f(branc)m(hing)h(of)f Fj(a)g Fw(o)s(ccurs)i(at)e +Fj(t)h Fw(is)f(giv)m(en)g(b)m(y)174 216 y(d)p Fn(P)297 +231 y Fh(a)p 174 260 166 4 v 212 352 a Fw(d)p Fj(t)376 +283 y Fw(=)c Fn(\000)567 216 y Fw(d)p Fn(P)690 231 y +Fl(no)p Fk(\000)p Fl(branc)n(hing)1129 216 y Fw(\()p +Fj(t)1202 231 y Fl(0)1242 216 y Fj(;)17 b(t)p Fw(\))p +567 260 792 4 v 918 352 a(d)p Fj(t)1396 283 y Fw(=)1500 +112 y Fg(0)1500 262 y(@)1573 200 y(X)1592 385 y Fh(b;c)1709 +283 y Fn(I)1763 298 y Fh(a)p Fk(!)p Fh(bc)1936 283 y +Fw(\()p Fj(t)p Fw(\))2047 112 y Fg(1)2047 262 y(A)2137 +283 y Fw(exp)2302 109 y Fg(8)2302 184 y(<)2302 333 y(:)2376 +283 y Fn(\000)2470 166 y Fg(Z)2553 192 y Fh(t)2516 355 +y(t)2541 364 y Ff(0)2600 283 y Fw(d)p Fj(t)2689 242 y +Fk(0)2745 200 y Fg(X)2765 385 y Fh(b;c)2882 283 y Fn(I)2936 +298 y Fh(a)p Fk(!)p Fh(bc)3109 283 y Fw(\()p Fj(t)3182 +242 y Fk(0)3206 283 y Fw(\))3244 109 y Fg(9)3244 184 +y(=)3244 333 y(;)3366 283 y Fj(:)164 b Fw(\(131\))146 +585 y(The)45 b(\014rst)f(factor)g(is)f(the)h(na)-11 b(\177)-38 +b(\020v)m(e)44 b(branc)m(hing)g(probabilit)m(y)-8 b(,)44 +b(the)g(second)i(the)e(suppression)h(due)0 693 y(to)f(the)i(conserv)-5 +b(ation)44 b(of)g(total)g(probabilit)m(y:)66 b(if)43 +b(a)i(parton)f(has)h(already)g(branc)m(hed)h(at)e(a)h(`time')0 +801 y Fj(t)35 765 y Fk(0)106 801 y Fj(<)i(t)p Fw(,)g(it)c(can)h(no)g +(longer)f(branc)m(h)i(at)f Fj(t)p Fw(.)78 b(This)44 b(is)g(nothing)f +(but)h(the)h(exp)s(onen)m(tial)e(factor)h(that)0 910 +y(is)k(familiar)c(from)k(radioactiv)m(e)f(deca)m(y)-8 +b(.)92 b(In)49 b(parton-sho)m(w)m(er)h(language)d(the)i(exp)s(onen)m +(tial)f(factor)0 1018 y Fj(S)60 1033 y Fh(a)102 1018 +y Fw(\()p Fj(t)p Fw(\))27 b(=)h Fn(P)413 1033 y Fl(no)p +Fk(\000)p Fl(branc)n(hing)852 1018 y Fw(\()p Fj(t)925 +1033 y Fl(0)964 1018 y Fj(;)17 b(t)p Fw(\))33 b(is)f(referred)h(to)f +(as)h(the)g(Sudak)m(o)m(v)h(form)e(factor)g([Sud56].)146 +1127 y(The)45 b(ordering)e(in)g(terms)g(of)g(increasing)g +Fj(t)h Fw(ab)s(o)m(v)m(e)g(is)f(the)i(appropriate)d(one)i(for)f +(initial-state)0 1235 y(sho)m(w)m(ers.)87 b(In)46 b(\014nal-state)f +(sho)m(w)m(ers)k(the)d(ev)m(olution)g(is)g(from)e(an)j(initial)42 +b Fj(t)2868 1250 y Fl(max)3050 1235 y Fw(\(set)47 b(b)m(y)g(the)f(hard) +0 1343 y(scattering\))32 b(and)g(to)m(w)m(ards)h(smaller)d +Fj(t)p Fw(.)43 b(In)32 b(that)g(case)h(the)f(in)m(tegral)f(from)f +Fj(t)2805 1358 y Fl(0)2877 1343 y Fw(to)i Fj(t)g Fw(in)f(eqs.)i +(\(130\))e(and)0 1452 y(\(131\))i(is)g(replaced)h(b)m(y)h(an)e(in)m +(tegral)g(from)f Fj(t)i Fw(to)f Fj(t)1826 1467 y Fl(max)1962 +1452 y Fw(.)47 b(Since,)34 b(b)m(y)h(con)m(v)m(en)m(tion,)g(the)g +(Sudak)m(o)m(v)g(factor)0 1560 y(is)g(still)e(de\014ned)k(from)d(the)i +(lo)m(w)m(er)g(cut-o\013)f Fj(t)1639 1575 y Fl(0)1679 +1560 y Fw(,)h(i.e.)51 b(giv)m(es)36 b(the)g(probabilit)m(y)e(that)h(a)g +(parton)g(starting)0 1668 y(at)f(scale)g Fj(t)g Fw(will)e(not)h(ha)m(v) +m(e)j(branc)m(hed)f(b)m(y)g(the)g(lo)m(w)m(er)f(cut-o\013)f(scale)h +Fj(t)2573 1683 y Fl(0)2613 1668 y Fw(,)h(the)f(no-branc)m(hing)f +(factor)h(is)0 1777 y(actually)d Fn(P)440 1792 y Fl(no)p +Fk(\000)p Fl(branc)n(hing)879 1777 y Fw(\()p Fj(t)952 +1792 y Fl(max)1088 1777 y Fj(;)17 b(t)p Fw(\))27 b(=)h +Fj(S)1396 1792 y Fh(a)1437 1777 y Fw(\()p Fj(t)1510 1792 +y Fl(max)1646 1777 y Fw(\))p Fj(=S)1793 1792 y Fh(a)1834 +1777 y Fw(\()p Fj(t)p Fw(\).)146 1885 y(W)-8 b(e)34 b(note)g(that)f +(the)h(ab)s(o)m(v)m(e)g(structure)h(is)e(exactly)h(of)f(the)h(kind)f +(discussed)i(in)e(section)h(4.2.)46 b(The)0 1993 y(v)m(eto)i(algorithm) +c(is)j(therefore)h(extensiv)m(ely)h(used)f(in)e(the)i(Mon)m(te)g(Carlo) +f(sim)m(ulation)d(of)j(parton)0 2102 y(sho)m(w)m(ers.)0 +2349 y Fo(10.1.3)113 b(Matc)m(hing)37 b(to)g(the)g(hard)h(scattering)0 +2522 y Fw(The)50 b(ev)m(olution)e(in)f Fj(Q)862 2486 +y Fl(2)951 2522 y Fw(is)h(b)s(egun)h(from)f(some)g(maxim)m(um)f(scale)h +Fj(Q)2676 2486 y Fl(2)2676 2547 y(max)2861 2522 y Fw(for)g +(\014nal-state)g(parton)0 2630 y(sho)m(w)m(ers,)i(and)44 +b(is)g(terminated)g(at)g(\(a)g(p)s(ossibly)g(di\013eren)m(t\))h +Fj(Q)2384 2594 y Fl(2)2384 2655 y(max)2564 2630 y Fw(for)f +(initial-state)d(sho)m(w)m(ers.)81 b(In)0 2739 y(general)30 +b Fj(Q)411 2703 y Fl(2)411 2763 y(max)578 2739 y Fw(is)g(not)g(kno)m +(wn.)45 b(Indeed,)32 b(since)g(the)f(parton-sho)m(w)m(er)h(language)d +(do)s(es)i(not)g(guaran)m(tee)0 2847 y(agreemen)m(t)40 +b(with)f(higher-order)f(matrix-elemen)m(t)g(results,)j(neither)f(in)f +(absolute)g(shap)s(e)h(nor)f(nor-)0 2955 y(malization,)26 +b(there)j(is)f(no)g(unique)h(prescription)f(for)g(a)g(`b)s(est')h(c)m +(hoice.)42 b(Generically)27 b Fj(Q)3210 2970 y Fl(max)3374 +2955 y Fw(should)h(b)s(e)0 3064 y(of)37 b(the)h(order)f(of)g(the)h +(hard-scattering)e(scale,)j(i.e.)57 b(the)38 b(largest)e(virtualit)m(y) +g(should)h(b)s(e)h(asso)s(ciated)0 3172 y(with)e(the)g(hard)g +(scattering,)h(and)f(initial-)c(and)k(\014nal-state)g(parton)f(sho)m(w) +m(ers)k(should)d(only)f(in)m(v)m(olv)m(e)0 3280 y(virtualities)24 +b(smaller)h(than)i(that.)42 b(This)27 b(ma)m(y)g(b)s(e)g(view)m(ed)h +(just)g(as)f(a)g(matter)f(of)g(sound)i(b)s(o)s(okk)m(eeping:)0 +3389 y(in)39 b(a)h(2)g Fn(!)g Fj(n)g Fw(graph,)i(a)e(2)g +Fn(!)g Fw(2)f(hard-scattering)h(subgraph)g(could)g(b)s(e)g(c)m(hosen)i +(sev)m(eral)e(di\013eren)m(t)0 3497 y(w)m(a)m(ys,)47 +b(but)d(if)d(all)g(the)j(p)s(ossibilities)c(w)m(ere)k(to)e(b)s(e)i +(generated)f(then)h(the)f(cross)h(section)f(w)m(ould)g(b)s(e)0 +3605 y(double-coun)m(ted.)k(Therefore)35 b(one)e(should)h(de\014ne)g +(the)g(2)29 b Fn(!)g Fw(2)34 b(`hard')f(piece)h(of)f(a)g(2)c +Fn(!)g Fj(n)34 b Fw(graph)f(as)0 3714 y(the)g(one)g(that)f(in)m(v)m +(olv)m(es)i(the)f(largest)e(virtualit)m(y)-8 b(.)146 +3822 y(Of)35 b(course,)h(the)g(issue)f(of)g(double-coun)m(ting)f(dep)s +(ends)i(a)f(bit)f(on)h(what)g(pro)s(cesses)i(are)e(actually)0 +3931 y(generated)29 b(in)f(the)g(program.)41 b(If)28 +b(one)h(considers)g(a)e(q)p 1949 3878 52 4 v(q)q(g)j(\014nal)d(state)i +(in)e(hadron)i(colliders,)e(this)h(could)0 4039 y(come)35 +b(either)g(as)g(\014nal-state)f(radiation)f(o\013)i(a)g(q)p +1807 3986 V(q)h(pair,)e(or)h(b)m(y)h(a)f(gluon)f(splitting)f(in)h(a)h +(q)p 3375 3986 V(q)h(pair,)f(or)0 4147 y(man)m(y)d(other)g(w)m(a)m(ys,) +i(so)e(that)f(the)i(danger)f(of)f(double-coun)m(ting)g(is)g(v)m(ery)j +(real.)42 b(On)32 b(the)g(other)g(hand,)0 4256 y(consider)24 +b(the)h(pro)s(duction)e(of)g(a)h(lo)m(w-)p Fj(p)1419 +4271 y Fk(?)1477 4256 y Fw(,)i(lo)m(w-mass)d(Drell{Y)-8 +b(an)21 b(pair)i(of)g(leptons,)j(together)e(with)g(t)m(w)m(o)0 +4364 y(quark)34 b(jets.)46 b(Suc)m(h)34 b(a)f(pro)s(cess)h(in)f +(principle)e(could)i(pro)s(ceed)h(b)m(y)g(ha)m(ving)f(a)g +Fj(\015)2884 4328 y Fk(\003)2957 4364 y Fw(emitted)f(o\013)h(a)g(quark) +0 4472 y(leg,)d(with)g(a)g(quark{quark)i(scattering)e(as)h(hard)f(in)m +(teraction.)42 b(Ho)m(w)m(ev)m(er,)33 b(since)e(this)f(pro)s(cess)i(is) +e(not)0 4581 y(included)37 b(in)g(the)h(program,)f(there)i(is)e(no)g +(actual)g(danger)g(of)g(\(this)h(particular\))d(double-coun)m(ting,)0 +4689 y(and)d(so)h(the)g(scale)f(of)g(ev)m(olution)f(could)h(b)s(e)h +(pic)m(k)m(ed)g(larger)e(than)i(the)g(mass)f(of)g(the)g(Drell{Y)-8 +b(an)30 b(pair,)0 4797 y(at)i(least)g(b)m(y)i(some)e(amoun)m(t.)146 +4906 y(F)-8 b(or)36 b(most)g(2)f Fn(!)f Fw(2)i(scattering)g(pro)s +(cesses)j(in)d Fm(Pythia)p Fw(,)i(the)f Fj(Q)2529 4869 +y Fl(2)2605 4906 y Fw(scale)g(of)f(the)h(hard)g(scattering)0 +5014 y(is)c(c)m(hosen)i(to)f(b)s(e)f Fj(Q)743 4978 y +Fl(2)743 5039 y(hard)918 5014 y Fw(=)d Fj(p)1073 4978 +y Fl(2)1073 5039 y Fk(?)1165 5014 y Fw(\(when)35 b(the)f(\014nal-state) +f(particles)g(are)g(massless,)i(otherwise)f(masses)0 +5122 y(are)f(added\).)45 b(In)34 b(\014nal-state)e(sho)m(w)m(ers,)j +(where)g Fj(Q)e Fw(is)g(asso)s(ciated)f(with)h(the)h(mass)f(of)f(the)i +(branc)m(hing)0 5231 y(parton,)k(transv)m(erse)h(momen)m(ta)d +(generated)i(in)e(the)h(sho)m(w)m(er)i(are)e(constrained)g(b)m(y)h +Fj(p)3188 5246 y Fk(?)3283 5231 y Fj(<)d(Q=)p Fw(2.)56 +b(An)0 5339 y(ordering)43 b(that)h(sho)m(w)m(er)i Fj(p)1000 +5354 y Fk(?)1103 5339 y Fw(b)s(e)f(smaller)d(than)i(the)h +(hard-scattering)e Fj(p)2753 5354 y Fk(?)2856 5339 y +Fw(therefore)i(corresp)s(onds)0 5447 y(roughly)33 b(to)h +Fj(Q)554 5411 y Fl(2)554 5472 y(max)719 5447 y Fw(=)c(4)p +Fj(Q)951 5411 y Fl(2)951 5472 y(hard)1096 5447 y Fw(,)k(whic)m(h)h(is)e +(the)h(default)f(assumption.)47 b(In)34 b(principle,)f(the)h(constrain) +m(ts)0 5556 y(are)d(sligh)m(tly)f(di\013eren)m(t)i(for)f(initial-state) +c(sho)m(w)m(ers,)34 b(but)e(not)f(enough)h(to)f(w)m(arran)m(t)h(a)f +(separate)h Fj(Q)3644 5571 y Fl(max)0 5664 y Fw(c)m(hoice.)1817 +5953 y(192)p eop +%%Page: 193 199 +193 198 bop 146 -18 a Fw(The)39 b(situation)d(is)h(rather)h(b)s(etter)g +(for)g(the)g(\014nal-state)f(sho)m(w)m(ers)j(in)d(the)h(deca)m(y)h(of)e +(an)m(y)i(colour-)0 90 y(singlet)d(particles,)h(suc)m(h)i(as)e(the)g(Z) +1318 54 y Fl(0)1394 90 y Fw(or)g(the)g(H)1763 54 y Fl(0)1803 +90 y Fw(,)h(either)f(as)g(part)g(of)f(a)h(hard)g(2)e +Fn(!)g Fw(1)g Fn(!)f Fw(2)j(pro)s(cess,)0 198 y(or)43 +b(an)m(ywhere)j(else)d(in)g(the)h(\014nal)f(state.)77 +b(Then)44 b(w)m(e)h(kno)m(w)f(that)g Fj(Q)2597 213 y +Fl(max)2776 198 y Fw(has)g(to)f(b)s(e)h(put)f(equal)h(to)0 +307 y(the)38 b(particle)f(mass.)60 b(It)38 b(is)g(also)f(p)s(ossible)g +(to)h(matc)m(h)g(the)g(parton-sho)m(w)m(er)h(ev)m(olution)e(to)h(the)g +(\014rst-)0 415 y(order)32 b(matrix-elemen)m(t)e(results.)43 +b(In)32 b(the)h(program)d(this)i(is)f(done)h(under)h(the)f(assumption)f +(that)h(the)0 523 y(resonance)42 b(has)f(spin)g(one,)i(and)e(this)f +(approac)m(h)h(is)g(kno)m(wn)h(to)e(w)m(ork)i(v)m(ery)g(w)m(ell)e(for)g +Fj(\015)3329 487 y Fk(\003)3369 523 y Fj(=)p Fw(Z)3478 +487 y Fl(0)3517 523 y Fw(.)68 b(The)0 632 y(mac)m(hinery)30 +b(is)g(not)g(fully)f(correct)i(for)f(the)g(spin-zero)g(H)2074 +595 y Fl(0)2114 632 y Fw(,)h(but)f(should)h(also)e(there)i(pro)m(vide)f +(a)g(rather)0 740 y(go)s(o)s(d)h(description.)146 848 +y(QCD)k(pro)s(cesses)i(suc)m(h)f(as)f(qg)e Fn(!)e Fw(qg)36 +b(p)s(ose)g(a)e(sp)s(ecial)g(problem)f(when)j(the)f(scattering)g(angle) +f(is)0 957 y(small.)65 b(Coherence)43 b(e\013ects)f(\(see)g(b)s(elo)m +(w\))e(ma)m(y)g(then)i(restrict)e(the)h(emission)f(further)h(than)f +(what)0 1065 y(is)c(just)g(giv)m(en)g(b)m(y)h(the)f Fj(Q)943 +1080 y Fl(max)1115 1065 y Fw(scale)g(in)m(tro)s(duced)g(ab)s(o)m(v)m +(e.)55 b(This)36 b(is)f(most)h(easily)f(view)m(ed)i(in)e(the)i(rest)0 +1173 y(frame)k(of)h(the)h(2)h Fn(!)f Fw(2)f(hard)h(scattering)f(subpro) +s(cess.)74 b(Some)42 b(colours)g(\015o)m(w)h(from)e(the)h(initial)d(to) +0 1282 y(the)44 b(\014nal)g(state.)78 b(The)45 b(radiation)d(asso)s +(ciated)i(with)g(suc)m(h)h(a)f(colour)f(\015o)m(w)i(should)f(b)s(e)g +(restricted)0 1390 y(to)38 b(a)f(cone)i(with)e(op)s(ening)h(angle)f +(giv)m(en)h(b)m(y)h(the)f(di\013erence)h(b)s(et)m(w)m(een)h(the)e +(original)d(and)j(the)g(\014nal)0 1498 y(colour)45 b(directions;)52 +b(there)46 b(is)g(one)g(suc)m(h)h(cone)f(around)g(the)h(incoming)c +(parton)j(for)f(initial)d(state)0 1607 y(radiation)32 +b(and)i(one)g(around)g(the)g(outgoing)e(parton)i(for)g(\014nal)f(state) +h(radiation.)45 b(Colours)34 b(that)f(are)0 1715 y(annihilated)i(or)j +(created)g(in)f(the)h(pro)s(cess)g(e\013ectiv)m(ely)g(corresp)s(ond)h +(to)e(an)g(op)s(ening)g(angle)g(of)g(180)3741 1679 y +Fk(\016)0 1823 y Fw(and)44 b(therefore)h(the)g(emission)d(is)i(not)g +(constrained)g(for)g(these.)79 b(F)-8 b(or)44 b(a)g(gluon,)i(whic)m(h)e +(ha)m(v)m(e)i(t)m(w)m(o)0 1932 y(colours)36 b(and)h(therefore)h(t)m(w)m +(o)f(di\013eren)m(t)g(cones,)i(a)e(random)f(c)m(hoice)h(is)f(made)g(b)s +(et)m(w)m(een)j(the)f(t)m(w)m(o)f(for)0 2040 y(the)j(\014rst)g(branc)m +(hing.)65 b(F)-8 b(urther,)41 b(coherence)g(e\013ects)g(also)e(imply)f +(azim)m(uthal)f(anisotropies)i(of)g(the)0 2148 y(emission)31 +b(inside)h(the)h(allo)m(w)m(ed)f(cones.)0 2422 y Fp(10.2)136 +b(Final-State)46 b(Sho)l(w)l(ers)0 2595 y Fw(Final-state)c(sho)m(w)m +(ers)47 b(are)d(time-lik)m(e,)h(i.e.)78 b(all)43 b(virtualities)e +Fj(m)2430 2559 y Fl(2)2518 2595 y Fw(=)47 b Fj(E)2719 +2559 y Fl(2)2789 2595 y Fn(\000)31 b Fo(p)2959 2559 y +Fl(2)3046 2595 y Fn(\025)48 b Fw(0.)79 b(The)45 b(maxi-)0 +2703 y(m)m(um)38 b(allo)m(w)m(ed)f(virtualit)m(y)g(scale)i +Fj(Q)1359 2667 y Fl(2)1359 2728 y(max)1533 2703 y Fw(is)f(set)h(b)m(y)h +(the)f(hard-scattering)f(pro)s(cess,)j(and)e(thereafter)0 +2812 y(the)i(virtualit)m(y)d(is)i(decreased)i(in)e(eac)m(h)h(subsequen) +m(t)i(branc)m(hing,)g(do)m(wn)e(to)f(the)h(cut-o\013)e(scale)i +Fj(Q)3713 2775 y Fl(2)3713 2836 y(0)3752 2812 y Fw(.)0 +2920 y(This)36 b(cut-o\013)g(scale)g(is)g(used)h(to)f(regulate)f(b)s +(oth)h(soft)g(and)g(collinear)e(div)m(ergences)k(in)d(the)i(emission)0 +3028 y(probabilities.)146 3137 y(The)d(main)d(p)s(oin)m(ts)h(of)g(the)h +Fm(Jetset)f Fw(sho)m(w)m(ering)h(algorithm)c(are)k(as)g(follo)m(ws.)145 +3250 y Fn(\017)49 b Fw(It)d(is)g(a)h(leading-log)c(algorithm,)j(of)g +(the)h(impro)m(v)m(ed,)j(coheren)m(t)e(kind,)i(i.e.)85 +b(with)46 b(angular)244 3358 y(ordering.)145 3476 y Fn(\017)j +Fw(It)37 b(can)g(b)s(e)h(used)g(for)e(an)h(arbitrary)f(initial)e(pair)i +(of)g(partons)i(or,)g(in)e(fact,)i(for)e(an)m(y)i(one,)h(t)m(w)m(o)244 +3584 y(or)31 b(three)i(giv)m(en)f(en)m(tities)f(\(including)f(hadrons)i +(and)g(gauge)g(b)s(osons\))g(although)f(only)g(quarks,)244 +3693 y(gluons)h(and)h(leptons)f(can)h(initiate)d(a)i(sho)m(w)m(er.)145 +3810 y Fn(\017)49 b Fw(The)e(pair)d(of)h(sho)m(w)m(ering)i(partons)f +(ma)m(y)f(b)s(e)h(giv)m(en)g(in)f(an)m(y)i(frame,)h(but)e(the)g(ev)m +(olution)f(is)244 3919 y(carried)32 b(out)g(in)g(the)h(c.m.)43 +b(frame)32 b(of)g(the)h(sho)m(w)m(ering)h(partons.)145 +4036 y Fn(\017)49 b Fw(Energy)29 b(and)f(momen)m(tum)f(are)h(conserv)m +(ed)j(exactly)d(at)g(eac)m(h)h(step)g(of)f(the)g(sho)m(w)m(ering)h(pro) +s(cess.)145 4154 y Fn(\017)49 b Fw(If)e(the)g(initial)c(pair)j(is)g(q)p +1212 4101 52 4 v(q)i(or)e Fj(`)1485 4118 y Fl(+)1544 +4154 y Fj(`)1585 4118 y Fk(\000)1691 4154 y Fw(\(coming)f(from)h(a)g +(resonance)i(deca)m(y\))h(an)d(additional)244 4263 y(rejection)29 +b(tec)m(hnique)h(is)e(used)i(in)e(the)i(\014rst)f(branc)m(hing)g(of)f +(eac)m(h)i(of)f(the)g(t)m(w)m(o)h(original)25 b(partons,)244 +4371 y(so)33 b(as)f(to)h(repro)s(duce)g(the)g(lo)m(w)m(est-order)g +(di\013eren)m(tial)e(3-jet)h(cross)h(section.)145 4489 +y Fn(\017)49 b Fw(In)33 b(subsequen)m(t)i(branc)m(hings,)f(angular)d +(ordering)h(\(coherence)i(e\013ects\))g(is)e(imp)s(osed.)145 +4607 y Fn(\017)49 b Fw(Gluon)30 b(helicit)m(y)g(e\013ects,)j(i.e.)43 +b(correlations)29 b(b)s(et)m(w)m(een)34 b(the)e(pro)s(duction)e(plane)h +(and)g(the)h(deca)m(y)244 4715 y(plane)g(of)g(a)g(gluon,)g(can)h(b)s(e) +g(included.)145 4833 y Fn(\017)49 b Fw(The)32 b(\014rst-order)f +Fj(\013)959 4848 y Fl(s)1022 4833 y Fw(expression)i(is)d(used,)j(with)d +(the)i Fj(Q)2300 4797 y Fl(2)2371 4833 y Fw(scale)f(giv)m(en)g(b)m(y)h +(\(an)f(appro)m(ximation)244 4941 y(to\))42 b(the)g(squared)i(transv)m +(erse)g(momen)m(tum)d(of)g(a)h(branc)m(hing.)72 b(The)43 +b(default)f(\003)3298 4956 y Fl(QCD)3461 4941 y Fw(,)j(whic)m(h)244 +5049 y(should)32 b(not)h(b)s(e)g(regarded)g(as)f(a)h(prop)s(er)f(\003)p +1841 5022 108 4 v 28 x Fl(MS)1949 5049 y Fw(,)h(is)f(0.4)g(GeV.)145 +5167 y Fn(\017)49 b Fw(The)33 b(parton)g(sho)m(w)m(er)h(is)e(b)m(y)i +(default)d(cut)i(o\013)g(at)f(a)g(mass)h(scale)f(of)g(1)h(GeV.)0 +5280 y(Let)g(us)g(no)m(w)g(pro)s(ceed)h(with)e(a)g(more)g(detailed)f +(description.)1817 5953 y(193)p eop +%%Page: 194 200 +194 199 bop 0 -18 a Fo(10.2.1)113 b(The)37 b(c)m(hoice)g(of)g(ev)m +(olution)f(v)-6 b(ariable)0 154 y Fw(In)29 b(the)g Fm(Jetset)e +Fw(sho)m(w)m(er)j(algorithm,)c(the)j(ev)m(olution)f(v)-5 +b(ariable)27 b Fj(Q)2447 118 y Fl(2)2515 154 y Fw(is)h(asso)s(ciated)g +(with)g(the)h(squared)0 263 y(mass)44 b(of)g(the)h(branc)m(hing)f +(parton,)j Fj(Q)1451 226 y Fl(2)1538 263 y Fw(=)h Fj(m)1747 +226 y Fl(2)1747 287 y Fh(a)1833 263 y Fw(for)43 b(a)h(branc)m(hing)h +Fj(a)i Fn(!)h Fj(bc)p Fw(.)79 b(As)44 b(a)g(consequence,)0 +371 y Fj(t)38 b Fw(=)g(ln)o(\()p Fj(Q)383 335 y Fl(2)423 +371 y Fj(=)p Fw(\003)540 335 y Fl(2)579 371 y Fw(\))g(=)f(ln\()p +Fj(m)973 335 y Fl(2)973 396 y Fh(a)1015 371 y Fj(=)p +Fw(\003)1132 335 y Fl(2)1170 371 y Fw(\).)62 b(This)39 +b Fj(Q)1603 335 y Fl(2)1681 371 y Fw(c)m(hoice)g(is)f(not)g(unique,)j +(and)e(indeed)g(other)f(programs)0 479 y(ha)m(v)m(e)f(other)e +(de\014nitions:)49 b Fm(Her)-9 b(wig)35 b Fw(uses)i Fj(Q)1688 +443 y Fl(2)1760 479 y Fn(\031)c Fj(m)1955 443 y Fl(2)1994 +479 y Fj(=)p Fw(\(2)p Fj(z)t Fw(\(1)24 b Fn(\000)h Fj(z)t +Fw(\)\))36 b([Mar88)o(])g(and)f Fm(Ariadne)h Fj(Q)3632 +443 y Fl(2)3704 479 y Fw(=)0 588 y Fj(p)49 551 y Fl(2)49 +612 y Fk(?)136 588 y Fn(\031)28 b Fj(z)t Fw(\(1)22 b +Fn(\000)h Fj(z)t Fw(\))p Fj(m)671 551 y Fl(2)744 588 +y Fw([P)m(et88)q(].)146 696 y(With)38 b Fj(Q)g Fw(a)g(mass)g(scale,)i +(the)e(lo)m(w)m(er)g(cut-o\013)g Fj(Q)1941 711 y Fl(0)2019 +696 y Fw(is)f(one)i(in)e(mass.)60 b(T)-8 b(o)38 b(b)s(e)h(more)e +(precise,)j(in)e(a)0 804 y(QCD)32 b(sho)m(w)m(er,)j(the)e +Fj(Q)846 819 y Fl(0)918 804 y Fw(parameter)f(is)g(used)i(to)e(deriv)m +(e)h(e\013ectiv)m(e)h(masses)1370 1054 y Fj(m)1455 1069 +y Fl(e\013)6 b Fh(;)p Fl(g)1676 1054 y Fw(=)1845 987 +y(1)p 1845 1031 49 4 v 1845 1123 a(2)1904 1054 y Fj(Q)1981 +1069 y Fl(0)2053 1054 y Fj(;)1369 1324 y(m)1454 1339 +y Fl(e\013)g Fh(;)p Fl(q)1676 1324 y Fw(=)1835 1163 y +Fg(s)p 1918 1163 433 4 v 161 x Fj(m)2003 1295 y Fl(2)2003 +1349 y(q)2067 1324 y Fw(+)2175 1257 y(1)p 2175 1301 49 +4 v 2175 1392 a(4)2234 1324 y Fj(Q)2311 1290 y Fl(2)2311 +1346 y(0)2383 1324 y Fj(;)1147 b Fw(\(132\))0 1577 y(where)29 +b(the)f Fj(m)525 1592 y Fl(q)595 1577 y Fw(ha)m(v)m(e)h(b)s(een)f(c)m +(hosen)i(as)d(t)m(ypical)g(curren)m(t-algebra)h(quark)g(masses.)43 +b(A)28 b(parton)f(cannot)0 1685 y(branc)m(h)35 b(unless)f(its)g(mass)g +(is)f(at)h(least)f(the)h(sum)g(of)g(the)g(ligh)m(test)f(pair)g(of)g +(allo)m(w)m(ed)g(deca)m(y)j(pro)s(ducts,)0 1793 y(i.e.)43 +b(the)33 b(minim)m(um)c(mass)k(scale)f(at)h(whic)m(h)g(a)f(branc)m +(hing)h(is)f(p)s(ossible)g(is)1200 1992 y Fj(m)1285 2007 +y Fl(min)n Fh(;)p Fl(g)1546 1992 y Fw(=)82 b(2)17 b Fj(m)1855 +2007 y Fl(e\013)6 b Fh(;)p Fl(g)2021 1992 y Fw(=)27 b +Fj(Q)2201 2007 y Fl(0)2273 1992 y Fj(;)1199 2126 y(m)1284 +2141 y Fl(min)o Fh(;)p Fl(q)1546 2126 y Fw(=)82 b Fj(m)1789 +2141 y Fl(e\013)7 b Fh(;)p Fl(q)1951 2126 y Fw(+)22 b +Fj(m)2134 2141 y Fl(e\013)6 b Fh(;)p Fl(g)2299 2126 y +Fn(\025)29 b Fj(Q)2482 2141 y Fl(0)2554 2126 y Fj(:)976 +b Fw(\(133\))0 2325 y(The)35 b(ab)s(o)m(v)m(e)g(masses)g(are)f(used)h +(to)f(constrain)f(the)i(allo)m(w)m(ed)e(range)h(of)g +Fj(Q)2711 2289 y Fl(2)2784 2325 y Fw(and)h Fj(z)j Fw(v)-5 +b(alues.)48 b(Ho)m(w)m(ev)m(er,)0 2433 y(once)34 b(it)e(has)h(b)s(een)h +(decided)g(that)f(a)g(parton)g(cannot)g(branc)m(h)h(an)m(y)g(further,)g +(that)f(parton)f(is)h(put)h(on)0 2542 y(the)f(mass)g(shell,)e(i.e.)43 +b(`\014nal-state')32 b(gluons)g(are)h(massless.)146 2650 +y(When)d(also)e(photon)g(emission)g(is)g(included,)h(a)g(separate)g +Fj(Q)2377 2665 y Fl(0)2446 2650 y Fw(scale)f(is)h(in)m(tro)s(duced)f +(for)h(the)g(QED)0 2758 y(part)j(of)f(the)h(sho)m(w)m(er,)i(exactly)f +(repro)s(ducing)e(the)h(QCD)g(one)g(ab)s(o)m(v)m(e)h([Sj\177)-49 +b(o92c].)43 b(By)32 b(default)f(the)i(t)m(w)m(o)0 2867 +y Fj(Q)77 2882 y Fl(0)147 2867 y Fw(scales)f(are)f(c)m(hosen)h(equal,)f +(and)g(ha)m(v)m(e)h(the)f(v)-5 b(alue)31 b(1)f(GeV.)h(If)g(an)m +(ything,)g(one)g(w)m(ould)g(b)s(e)g(inclined)0 2975 y(to)i(allo)m(w)f +(a)h(cut-o\013)g(lo)m(w)m(er)g(for)g(photon)h(emission)e(than)h(for)g +(gluon)f(one.)46 b(In)34 b(that)f(case)h(the)g(allo)m(w)m(ed)0 +3083 y Fj(z)40 b Fw(range)35 b(of)g(photon)g(emission)f(w)m(ould)h(b)s +(e)g(larger)f(than)i(that)f(of)f(gluon)g(emission,)h(and)g(at)g(the)h +(end)0 3192 y(of)c(the)h(sho)m(w)m(er)h(ev)m(olution)e(only)g(photon)h +(emission)e(w)m(ould)i(b)s(e)f(allo)m(w)m(ed.)146 3300 +y(Photon)40 b(and)f(gluon)f(emission)g(di\013er)g(fundamen)m(tally)g +(in)g(that)h(photons)g(app)s(ear)g(as)h(ph)m(ysical)0 +3408 y(particles)h(in)f(the)i(\014nal)f(state,)j(while)d(gluons)g(are)g +(con\014ned.)72 b(F)-8 b(or)40 b(photon)i(emission)e(o\013)h(quarks,)0 +3517 y(ho)m(w)m(ev)m(er,)50 b(the)c(con\014nemen)m(t)g(forces)f(acting) +f(on)h(the)g(quark)h(ma)m(y)f(pro)m(vide)g(an)g(e\013ectiv)m(e)g +(photon)0 3625 y(emission)40 b(cut-o\013)h(at)f(larger)g(scales)i(than) +f(the)h(bare)f(quark)h(mass.)69 b(Soft)41 b(and)g(collinear)e(photons)0 +3733 y(could)31 b(also)g(b)s(e)h(emitted)e(b)m(y)j(the)f(\014nal-state) +f(c)m(harged)h(hadrons;)h(the)f(matc)m(hing)e(b)s(et)m(w)m(een)k +(emission)0 3842 y(o\013)c(quarks)i(and)f(o\013)g(hadrons)g(is)f(a)h +(delicate)f(issue,)h(and)g(w)m(e)h(therefore)f(do)g(not)g(attempt)f(to) +g(address)0 3950 y(the)j(soft-photon)f(region.)146 4058 +y(F)-8 b(or)35 b(photon)g(emission)g(o\013)g(leptons,)h(there)g(is)f +(no)g(need)i(to)e(in)m(tro)s(duce)h(an)m(y)g(collinear)d(emission)0 +4167 y(cut-o\013)g(b)s(ey)m(ond)i(what)g(is)e(giv)m(en)h(b)m(y)h(the)f +(lepton)f(mass,)h(but)g(w)m(e)h(k)m(eep)h(the)e(same)g(cut-o\013)f +(approac)m(h)0 4275 y(as)k(for)e(quarks:)53 b(\014rstly)-8 +b(,)37 b(the)g(program)e(is)h(not)g(aimed)f(at)h(high-precision)e +(studies)j(of)f(lepton)g(pairs)0 4383 y(\(where)c(in)m(terference)h +(terms)e(b)s(et)m(w)m(een)i(initial-)27 b(and)32 b(\014nal-state)e +(radiation)f(also)i(w)m(ould)g(ha)m(v)m(e)h(to)f(b)s(e)0 +4492 y(included\);)36 b(secondly)-8 b(,)37 b(most)e(exp)s(erimen)m(tal) +g(pro)s(cedures)h(w)m(ould)g(include)f(the)g(energy)i(of)e(collinear)0 +4600 y(photons)e(in)m(to)f(the)h(e\013ectiv)m(e)h(energy)f(of)f(a)h +(\014nal-state)e(lepton.)0 4847 y Fo(10.2.2)113 b(The)37 +b(c)m(hoice)g(of)g(energy)h(splitting)d(v)-6 b(ariable)0 +5019 y Fw(The)49 b(\014nal-state)e(radiation)f(mac)m(hinery)i(is)f(alw) +m(a)m(ys)i(applied)e(in)g(the)h(c.m.)89 b(frame)48 b(of)f(the)h(hard)0 +5128 y(scattering,)39 b(from)d(whic)m(h)i(normally)d(emerges)j(a)f +(pair)g(of)g(ev)m(olving)f(partons.)59 b(Occasionally)36 +b(there)0 5236 y(ma)m(y)g(b)s(e)h(one)g(ev)m(olving)f(parton)g +(recoiling)f(against)g(a)i(non-ev)m(olving)e(one,)j(as)f(in)f(q)p +3139 5183 52 4 v(q)f Fn(!)f Fw(g)q Fj(\015)5 b Fw(,)38 +b(where)0 5344 y(only)d(the)h(gluon)e(ev)m(olv)m(es)j(in)e(the)h +(\014nal)e(state,)j(but)f(where)g(the)g(energy)h(of)e(the)h(photon)f +(is)g(mo)s(difed)0 5453 y(b)m(y)d(the)f(branc)m(hing)h(activit)m(y)e +(of)h(the)g(gluon.)42 b(\(With)30 b(only)h(one)g(ev)m(olving)g(parton)g +(and)g(nothing)f(else,)0 5561 y(it)i(w)m(ould)i(not)f(b)s(e)h(p)s +(ossible)f(to)g(conserv)m(e)i(energy)g(and)e(momen)m(tum)f(when)j(the)f +(parton)f(is)g(assigned)0 5669 y(a)43 b(mass.\))74 b(Th)m(us,)47 +b(b)s(efore)c(the)g(ev)m(olution)f(is)g(p)s(erformed,)k(the)d(parton)f +(pair)g(is)h(b)s(o)s(osted)f(to)h(their)1817 5953 y(194)p +eop +%%Page: 195 201 +195 200 bop 0 -18 a Fw(common)39 b(c.m.)67 b(frame,)42 +b(and)e(rotated)h(to)f(sit)g(along)f(the)i Fj(z)k Fw(axis.)67 +b(After)41 b(the)g(ev)m(olution,)g(the)g(full)0 90 y(parton)32 +b(sho)m(w)m(er)j(is)d(rotated)g(and)h(b)s(o)s(osted)f(bac)m(k)i(to)e +(the)h(original)d(frame)h(of)h(the)h(parton)g(pair.)146 +198 y(The)42 b(in)m(terpretation)f(of)f(the)i(energy)g(and)f(momen)m +(tum)f(splitting)f(v)-5 b(ariable)39 b Fj(z)46 b Fw(is)41 +b(not)g(unique,)0 307 y(and)27 b(in)f(fact)g(the)h(program)f(allo)m(ws) +f(the)i(p)s(ossibilit)m(y)e(to)h(switc)m(h)i(b)s(et)m(w)m(een)h(four)d +(di\013eren)m(t)h(alternativ)m(es)0 415 y([Ben87a],)35 +b(`lo)s(cal')d(and)j(`global')d Fj(z)39 b Fw(de\014nition)33 +b(com)m(bined)h(with)g(`constrained')h(or)f(`unconstrained')0 +523 y(ev)m(olution.)73 b(In)43 b(all)d(four)j(of)f(them,)j(the)e +Fj(z)k Fw(v)-5 b(ariable)41 b(is)h(in)m(terpreted)i(as)f(an)f(energy)i +(fraction,)g(i.e.)0 632 y Fj(E)72 647 y Fh(b)140 632 +y Fw(=)34 b Fj(z)t(E)371 647 y Fh(a)449 632 y Fw(and)i +Fj(E)714 647 y Fh(c)783 632 y Fw(=)e(\(1)24 b Fn(\000)h +Fj(z)t Fw(\))p Fj(E)1265 647 y Fh(a)1307 632 y Fw(.)54 +b(In)37 b(the)f(`lo)s(cal')e(c)m(hoice)j(of)e Fj(z)41 +b Fw(de\014nition,)36 b(energy)h(fractions)e(are)0 740 +y(de\014ned)g(in)d(the)h(rest)h(frame)e(of)h(the)g(grandmother,)g(i.e.) +45 b(the)33 b(mother)g(of)f(parton)h Fj(a)p Fw(.)45 b(The)34 +b(preferred)0 848 y(c)m(hoice)41 b(is)g(the)h(`global')d(one,)k(in)d +(whic)m(h)i(energies)g(are)f(alw)m(a)m(ys)g(ev)-5 b(aluated)41 +b(in)f(the)i(c.m.)69 b(frame)40 b(of)0 957 y(the)k(hard)g(scattering.) +76 b(The)45 b(t)m(w)m(o)f(de\014nitions)f(agree)h(for)f(the)h(branc)m +(hings)g(of)f(the)h(partons)g(that)0 1065 y(emerge)33 +b(directly)g(from)e(the)j(hard)f(scattering,)g(since)h(the)f(hard)g +(scattering)g(itself)f(is)h(considered)h(to)0 1173 y(b)s(e)41 +b(the)h(`mother')f(of)g(the)h(\014rst)f(generation)g(of)g(partons.)69 +b(F)-8 b(or)41 b(instance,)j(in)c(Z)3029 1137 y Fl(0)3111 +1173 y Fn(!)i Fw(q)p 3304 1120 52 4 v(q)g(the)g(Z)3634 +1137 y Fl(0)3714 1173 y Fw(is)0 1282 y(considered)37 +b(the)f(mother)f(of)g(the)h(q)g(and)p 1556 1229 V 36 +w(q,)h(ev)m(en)g(though)f(the)g(branc)m(hing)f(is)g(not)h(handled)f(b)m +(y)i(the)0 1390 y(parton-sho)m(w)m(ering)i(mac)m(hinery)-8 +b(.)64 b(The)40 b(`lo)s(cal')d(and)i(`global')e(de\014nitions)i(div)m +(erge)h(for)e(subsequen)m(t)0 1498 y(branc)m(hings,)33 +b(where)h(the)f(`global')d(tends)k(to)e(allo)m(w)f(more)h(sho)m(w)m(er) +i(ev)m(olution.)146 1607 y(In)f(a)f(branc)m(hing)g Fj(a)c +Fn(!)f Fj(bc)33 b Fw(the)f(kinematically)e(allo)m(w)m(ed)h(range)h(of)g +Fj(z)h Fw(=)27 b Fj(z)2840 1622 y Fh(a)2914 1607 y Fw(v)-5 +b(alues,)33 b Fj(z)3277 1622 y Fk(\000)3364 1607 y Fj(<)27 +b(z)33 b(<)27 b(z)3693 1622 y Fl(+)3752 1607 y Fw(,)0 +1715 y(is)32 b(giv)m(en)h(b)m(y)549 2032 y Fj(z)594 2047 +y Fk(\006)681 2032 y Fw(=)795 1964 y(1)p 795 2008 49 +4 v 795 2100 a(2)870 1857 y Fg(8)870 1932 y(<)870 2081 +y(:)944 2032 y Fw(1)22 b(+)1123 1964 y Fj(m)1208 1928 +y Fl(2)1208 1989 y Fh(b)1270 1964 y Fn(\000)g Fj(m)1454 +1928 y Fl(2)1454 1989 y Fh(c)p 1123 2008 372 4 v 1245 +2100 a Fj(m)1330 2071 y Fl(2)1330 2125 y Fh(a)1526 2032 +y Fn(\006)1636 1964 y(j)p Fo(p)1726 1979 y Fh(a)1768 +1964 y Fn(j)p 1636 2008 160 4 v 1659 2100 a Fj(E)1731 +2115 y Fh(a)1832 1849 y Fg(q)p 1915 1849 1156 4 v 101 +x Fw(\()p Fj(m)2038 1921 y Fl(2)2038 1975 y Fh(a)2102 +1950 y Fn(\000)g Fj(m)2286 1916 y Fl(2)2286 1975 y Fh(b)2348 +1950 y Fn(\000)h Fj(m)2533 1921 y Fl(2)2533 1975 y Fh(c)2573 +1950 y Fw(\))2611 1921 y Fl(2)2672 1950 y Fn(\000)g Fw(4)p +Fj(m)2906 1916 y Fl(2)2906 1975 y Fh(b)2945 1950 y Fj(m)3030 +1921 y Fl(2)3030 1975 y Fh(c)p 1832 2008 1239 4 v 2387 +2100 a Fj(m)2472 2071 y Fl(2)2472 2125 y Fh(a)3080 1857 +y Fg(9)3080 1932 y(=)3080 2081 y(;)3203 2032 y Fj(:)327 +b Fw(\(134\))0 2333 y(With)40 b(`constrained')h(ev)m(olution,)g(these)h +(b)s(ounds)f(are)f(resp)s(ected)i(in)e(the)h(ev)m(olution.)66 +b(The)41 b(cut-o\013)0 2442 y(masses)f Fj(m)413 2457 +y Fl(e\013)6 b Fh(;b)583 2442 y Fw(and)39 b Fj(m)864 +2457 y Fl(e\013)6 b Fh(;c)1035 2442 y Fw(are)39 b(used)h(to)e(de\014ne) +i(the)f(maxim)m(um)e(allo)m(w)m(ed)h Fj(z)43 b Fw(range,)d(within)e +(whic)m(h)0 2550 y Fj(z)45 2565 y Fh(a)126 2550 y Fw(is)h(c)m(hosen,)k +(together)d(with)f(the)h Fj(m)1460 2565 y Fh(a)1541 2550 +y Fw(v)-5 b(alue.)64 b(In)40 b(the)g(subsequen)m(t)j(ev)m(olution)38 +b(of)h Fj(b)h Fw(and)g Fj(c)p Fw(,)h(only)0 2658 y(pairs)32 +b(of)f Fj(m)434 2673 y Fh(b)501 2658 y Fw(and)h Fj(m)775 +2673 y Fh(c)842 2658 y Fw(are)g(allo)m(w)m(ed)g(for)f(whic)m(h)i(the)f +(already)g(selected)h Fj(z)2697 2673 y Fh(a)2771 2658 +y Fw(ful\014ls)e(the)i(constrain)m(ts)f(in)0 2767 y(eq.)h(\(134\).)146 +2875 y(F)-8 b(or)31 b(`unconstrained')h(ev)m(olution,)f(whic)m(h)h(is)f +(the)g(preferred)i(alternativ)m(e,)e(one)g(ma)m(y)g(start)h(o\013)f(b)m +(y)0 2983 y(assuming)h(the)h(daugh)m(ters)g(to)g(b)s(e)f(massless,)h +(so)g(that)g(the)g(allo)m(w)m(ed)e Fj(z)38 b Fw(range)32 +b(is)1131 3260 y Fj(z)1176 3275 y Fk(\006)1263 3260 y +Fw(=)1377 3193 y(1)p 1377 3237 49 4 v 1377 3328 a(2)1452 +3114 y Fg(\()1519 3260 y Fw(1)22 b Fn(\006)1699 3193 +y(j)p Fo(p)1789 3208 y Fh(a)1831 3193 y Fn(j)p 1699 3237 +160 4 v 1722 3328 a Fj(E)1794 3343 y Fh(a)1868 3260 y +Fj(\022)s Fw(\()p Fj(m)2039 3275 y Fh(a)2104 3260 y Fn(\000)g +Fj(m)2288 3275 y Fl(min)o Fh(;a)2467 3260 y Fw(\))2505 +3114 y Fg(\))2621 3260 y Fj(;)909 b Fw(\(135\))0 3542 +y(where)38 b Fj(\022)s Fw(\()p Fj(x)p Fw(\))f(is)f(the)h(step)g +(function,)h Fj(\022)s Fw(\()p Fj(x)p Fw(\))d(=)f(1)i(for)g +Fj(x)f(>)f Fw(0)j(and)f Fj(\022)s Fw(\()p Fj(x)p Fw(\))f(=)g(0)h(for)g +Fj(x)f(<)f Fw(0.)56 b(The)37 b(deca)m(y)0 3676 y(kinematics)f(in)m(to)f +(t)m(w)m(o)i(massless)g(four-v)m(ectors)h Fj(p)1858 3625 +y Fl(\(0\))1858 3701 y Fh(b)1988 3676 y Fw(and)f Fj(p)2231 +3640 y Fl(\(0\))2231 3701 y Fh(c)2362 3676 y Fw(is)f(no)m(w)h(straigh)m +(tforw)m(ard.)55 b(Once)37 b Fj(m)3745 3691 y Fh(b)0 +3785 y Fw(and)g Fj(m)279 3800 y Fh(c)351 3785 y Fw(ha)m(v)m(e)h(b)s +(een)f(found)g(from)f(the)h(subsequen)m(t)j(ev)m(olution,)d(sub)5 +b(ject)38 b(only)e(to)h(the)g(constrain)m(ts)0 3893 y +Fj(m)85 3908 y Fh(b)148 3893 y Fj(<)28 b(z)297 3908 y +Fh(a)339 3893 y Fj(E)411 3908 y Fh(a)452 3893 y Fw(,)33 +b Fj(m)597 3908 y Fh(c)660 3893 y Fj(<)28 b Fw(\(1)22 +b Fn(\000)h Fj(z)1018 3908 y Fh(a)1060 3893 y Fw(\))p +Fj(E)1170 3908 y Fh(a)1244 3893 y Fw(and)33 b Fj(m)1519 +3908 y Fh(b)1576 3893 y Fw(+)22 b Fj(m)1759 3908 y Fh(c)1822 +3893 y Fj(<)28 b(m)2011 3908 y Fh(a)2053 3893 y Fw(,)33 +b(the)g(actual)f(massiv)m(e)h(four-v)m(ectors)h(ma)m(y)e(b)s(e)0 +4001 y(de\014ned)i(as)1274 4110 y Fj(p)1323 4125 y Fh(b;c)1436 +4110 y Fw(=)27 b Fj(p)1588 4059 y Fl(\(0\))1588 4135 +y Fh(b;c)1705 4110 y Fn(\006)22 b Fw(\()p Fj(r)1886 4125 +y Fh(c)1921 4110 y Fj(p)1970 4068 y Fl(\(0\))1970 4134 +y Fh(c)2086 4110 y Fn(\000)h Fj(r)2230 4125 y Fh(b)2264 +4110 y Fj(p)2313 4059 y Fl(\(0\))2313 4135 y Fh(b)2407 +4110 y Fw(\))33 b Fj(;)1052 b Fw(\(136\))0 4272 y(where)692 +4470 y Fj(r)736 4485 y Fh(b;c)848 4470 y Fw(=)962 4388 +y Fj(m)1047 4352 y Fl(2)1047 4413 y Fh(a)1111 4388 y +Fn(\006)22 b Fw(\()p Fj(m)1333 4352 y Fl(2)1333 4413 +y Fh(c)1395 4388 y Fn(\000)h Fj(m)1580 4352 y Fl(2)1580 +4413 y Fh(b)1620 4388 y Fw(\))f Fn(\000)1779 4287 y Fg(q)p +1862 4287 1156 4 v 101 x Fw(\()p Fj(m)1985 4359 y Fl(2)1985 +4413 y Fh(a)2049 4388 y Fn(\000)h Fj(m)2234 4354 y Fl(2)2234 +4413 y Fh(b)2296 4388 y Fn(\000)g Fj(m)2481 4359 y Fl(2)2481 +4413 y Fh(c)2520 4388 y Fw(\))2558 4359 y Fl(2)2620 4388 +y Fn(\000)g Fw(4)p Fj(m)2854 4354 y Fl(2)2854 4413 y +Fh(b)2893 4388 y Fj(m)2978 4359 y Fl(2)2978 4413 y Fh(c)p +962 4446 2057 4 v 1902 4538 a Fw(2)p Fj(m)2036 4509 y +Fl(2)2036 4563 y Fh(a)3060 4470 y Fj(:)470 b Fw(\(137\))0 +4694 y(In)34 b(other)h(w)m(ords,)g(the)g(meaning)d(of)i +Fj(z)1407 4709 y Fh(a)1483 4694 y Fw(is)f(somewhat)i(rein)m(terpreted)g +Fi(p)-5 b(ost)36 b(facto)p Fw(.)47 b(Needless)36 b(to)e(sa)m(y)-8 +b(,)0 4802 y(the)40 b(`unconstrained')h(option)e(allo)m(ws)g(more)g +(branc)m(hings)i(to)e(tak)m(e)i(place)f(than)g(the)g(`constrained')0 +4911 y(one.)j(In)32 b(the)g(follo)m(wing)d(discussion)j(w)m(e)g(will)d +(only)i(refer)h(to)f(the)h(`global,)e(unconstrained')i +Fj(z)k Fw(c)m(hoice.)0 5158 y Fo(10.2.3)113 b(First)36 +b(branc)m(hings)i(and)g(matrix-elemen)m(t)d(matc)m(hing)0 +5331 y Fw(The)43 b(\014nal-state)f(ev)m(olution)g(is)g(normally)e +(started)j(from)e(some)i(initial)c(parton)j(pair)f(1)29 +b(+)g(2,)45 b(at)d(a)0 5439 y Fj(Q)77 5403 y Fl(2)77 +5464 y(max)246 5439 y Fw(scale)32 b(determined)h(b)m(y)h(delib)s +(erations)d(already)h(discussed.)46 b(When)34 b(the)f(ev)m(olution)f +(of)h(parton)0 5548 y(1)h(is)f(considered,)j(it)d(is)g(assumed)i(that)f +(parton)g(2)g(is)f(massless,)i(so)f(that)g(the)h(parton)e(1)h(energy)h +(and)0 5656 y(momen)m(tum)i(are)h(simple)f(functions)h(of)g(its)g(mass) +g(\(and)h(of)f(the)g(c.m.)61 b(energy)39 b(of)f(the)h(pair,)g(whic)m(h) +1817 5953 y(195)p eop +%%Page: 196 202 +196 201 bop 0 -18 a Fw(is)42 b(\014xed\),)k(and)c(hence)i(also)d(the)i +(allo)m(w)m(ed)e Fj(z)1685 -3 y Fl(1)1767 -18 y Fw(range)h(for)g +(splittings)e(is)i(a)g(function)g(of)g(this)f(mass,)0 +90 y(eq.)g(\(135\).)63 b(Corresp)s(ondingly)-8 b(,)41 +b(parton)f(2)f(is)g(ev)m(olv)m(ed)i(under)g(the)f(assumption)f(that)g +(parton)h(1)f(is)0 198 y(massless.)62 b(After)39 b(b)s(oth)g(partons)g +(ha)m(v)m(e)h(b)s(een)g(assigned)f(masses,)i(their)d(correct)h +(energies)h(ma)m(y)e(b)s(e)0 307 y(found,)i(whic)m(h)e(are)g(smaller)e +(than)i(originally)d(assumed.)60 b(Therefore)39 b(the)g(allo)m(w)m(ed)e +Fj(z)43 b Fw(ranges)38 b(ha)m(v)m(e)0 415 y(shrunk,)46 +b(and)c(it)e(ma)m(y)i(happ)s(en)h(that)e(a)h(branc)m(hing)g(has)g(b)s +(een)g(assigned)h(a)e Fj(z)47 b Fw(v)-5 b(alue)41 b(outside)h(this)0 +523 y(range.)62 b(If)39 b(so,)h(the)f(parton)g(is)f(ev)m(olv)m(ed)i(do) +m(wn)m(w)m(ards)h(in)d(mass)h(from)e(the)j(rejected)g(mass)e(v)-5 +b(alue;)42 b(if)0 632 y(b)s(oth)36 b Fj(z)42 b Fw(v)-5 +b(alues)36 b(are)h(rejected,)i(the)e(parton)g(with)f(largest)g(mass)h +(is)f(ev)m(olv)m(ed)i(further.)56 b(It)37 b(ma)m(y)f(also)0 +740 y(happ)s(en)d(that)f(the)h(sum)f(of)g Fj(m)1125 755 +y Fl(1)1198 740 y Fw(and)g Fj(m)1472 755 y Fl(2)1544 +740 y Fw(is)g(larger)f(than)i(the)g(c.m.)43 b(energy)-8 +b(,)33 b(in)f(whic)m(h)h(case)g(the)g(one)0 848 y(with)28 +b(the)g(larger)f(mass)h(is)g(ev)m(olv)m(ed)h(do)m(wn)m(w)m(ards.)44 +b(The)29 b(c)m(hec)m(king)h(and)e(ev)m(olution)f(steps)j(are)e +(iterated)0 957 y(un)m(til)j(an)i(acceptable)g(set)g(of)f +Fj(m)1191 972 y Fl(1)1231 957 y Fw(,)g Fj(m)1375 972 +y Fl(2)1415 957 y Fw(,)h Fj(z)1520 972 y Fl(1)1592 957 +y Fw(and)g Fj(z)1827 972 y Fl(2)1899 957 y Fw(has)g(b)s(een)g(found.) +146 1065 y(The)k(pro)s(cedure)f(is)f(an)g(extension)h(of)f(the)g(v)m +(eto)h(algorithm,)d(where)k(an)e(initial)c(o)m(v)m(erestimation)0 +1173 y(of)g(the)g(allo)m(w)m(ed)f Fj(z)36 b Fw(range)31 +b(is)g(comp)s(ensated)g(b)m(y)h(rejection)f(of)g(some)f(branc)m(hings.) +44 b(One)31 b(should)g(note,)0 1282 y(ho)m(w)m(ev)m(er,)f(that)c(the)h +(v)m(eto)g(algorithm)c(is)j(not)g(strictly)g(applicable)f(for)g(the)i +(coupled)g(ev)m(olution)e(in)h(t)m(w)m(o)0 1390 y(v)-5 +b(ariables)27 b(\()p Fj(m)523 1405 y Fl(1)591 1390 y +Fw(and)i Fj(m)862 1405 y Fl(2)901 1390 y Fw(\),)g(and)g(that)f +(therefore)h(some)f(arbitrariness)g(is)g(in)m(v)m(olv)m(ed.)42 +b(This)29 b(is)f(manifest)0 1498 y(in)h(the)h(c)m(hoice)h(of)e(whic)m +(h)h(parton)g(will)e(b)s(e)i(ev)m(olv)m(ed)h(further)f(if)f(b)s(oth)g +Fj(z)35 b Fw(v)-5 b(alues)30 b(are)g(unacceptable,)h(or)0 +1607 y(if)g(the)i(mass)g(sum)f(is)h(to)s(o)e(large.)146 +1715 y(F)-8 b(or)28 b(quark)i(and)f(lepton)f(pairs)g(whic)m(h)i(come)e +(from)g(the)h(deca)m(y)h(of)f(a)f(colour-singlet)f(particle,)h(the)0 +1823 y(\014rst)38 b(branc)m(hings)f(are)h(matc)m(hed)f(to)g(the)h +(explicit)e(\014rst-order)h(matrix)f(elemen)m(ts)i(for)e(gauge)h(b)s +(oson)0 1932 y(deca)m(ys.)44 b(This)27 b(is)g(also)f(done,)j(e.g.)42 +b(in)27 b(H)1472 1896 y Fl(0)1539 1932 y Fw(deca)m(ys,)j(whic)m(h)e +(has)g(spin)f(0)g(rather)g(than)h(1,)g(and)f(for)g(whic)m(h)0 +2040 y(in)32 b(principle)f(therefore)i(the)g(matrix)e(elemen)m(ts)i +(are)g(sligh)m(tly)d(di\013eren)m(t.)146 2148 y(The)40 +b(matc)m(hing)e(is)g(based)i(on)e(a)h(mapping)e(of)h(the)i(parton-sho)m +(w)m(er)f(v)-5 b(ariables)38 b(on)h(to)f(the)h(3-jet)0 +2257 y(phase)33 b(space.)45 b(T)-8 b(o)32 b(pro)s(duce)h(a)g(3-jet)e +(ev)m(en)m(t,)k Fj(\015)1731 2221 y Fk(\003)1770 2257 +y Fj(=)p Fw(Z)1879 2221 y Fl(0)1946 2257 y Fn(!)27 b +Fw(q\()p Fj(p)2211 2272 y Fl(1)2251 2257 y Fw(\))p 2289 +2204 52 4 v(q\()p Fj(p)2427 2272 y Fl(2)2466 2257 y Fw(\)g\()p +Fj(p)2640 2272 y Fl(3)2679 2257 y Fw(\),)33 b(in)f(the)g(sho)m(w)m(er)i +(language,)0 2365 y(one)j(will)e(pass)j(through)e(an)h(in)m(termediate) +f(state,)i(where)h(either)d(the)i(q)f(or)g(the)p 3067 +2312 V 37 w(q)g(is)g(o\013)f(the)i(mass)0 2473 y(shell.)43 +b(If)32 b(the)h(former)f(is)g(the)h(case)g(then)1056 +2679 y Fj(m)1141 2638 y Fl(2)1264 2679 y Fw(=)83 b(\()p +Fj(p)1510 2694 y Fl(1)1571 2679 y Fw(+)22 b Fj(p)1718 +2694 y Fl(3)1758 2679 y Fw(\))1796 2638 y Fl(2)1863 2679 +y Fw(=)27 b Fj(E)2044 2638 y Fl(2)2038 2704 y(cm)2133 +2679 y Fw(\(1)22 b Fn(\000)g Fj(x)2396 2694 y Fl(2)2436 +2679 y Fw(\))33 b Fj(;)1131 2873 y(z)88 b Fw(=)1549 2805 +y Fj(E)1621 2820 y Fl(1)p 1433 2849 344 4 v 1433 2941 +a Fj(E)1505 2956 y Fl(1)1567 2941 y Fw(+)22 b Fj(E)1737 +2956 y Fl(3)1814 2873 y Fw(=)2035 2805 y Fj(x)2090 2820 +y Fl(1)p 1927 2849 310 4 v 1927 2941 a Fj(x)1982 2956 +y Fl(1)2044 2941 y Fw(+)g Fj(x)2197 2956 y Fl(3)2275 +2873 y Fw(=)2474 2805 y Fj(x)2529 2820 y Fl(1)p 2388 +2849 266 4 v 2388 2941 a Fw(2)g Fn(\000)h Fj(x)2614 2956 +y Fl(2)2696 2873 y Fj(;)834 b Fw(\(138\))0 3136 y(where)39 +b Fj(x)342 3151 y Fh(i)408 3136 y Fw(=)e(2)p Fj(E)642 +3151 y Fh(i)670 3136 y Fj(=E)791 3151 y Fl(cm)885 3136 +y Fw(.)60 b(The)p 1178 3083 52 4 v 39 w(q)38 b(emission)f(case)i(is)e +(obtained)h(with)g(1)e Fn($)h Fw(2.)59 b(The)39 b(parton-sho)m(w)m(er)0 +3245 y(splitting)32 b(expression)j(in)e(terms)h(of)f +Fj(m)1443 3208 y Fl(2)1517 3245 y Fw(and)h Fj(z)t Fw(,)h(eq.)f +(\(127\),)g(can)g(therefore)g(b)s(e)g(translated)g(in)m(to)f(the)0 +3353 y(follo)m(wing)d(di\013eren)m(tial)h(3-jet)h(rate:)354 +3547 y(1)p 348 3591 60 4 v 348 3683 a Fj(\033)501 3547 +y Fw(d)p Fj(\033)610 3562 y Fl(PS)p 444 3591 315 4 v +444 3683 a Fw(d)p Fj(x)553 3698 y Fl(1)610 3683 y Fw(d)p +Fj(x)719 3698 y Fl(2)853 3614 y Fw(=)1029 3547 y Fj(\013)1091 +3562 y Fl(s)p 1022 3591 108 4 v 1022 3683 a Fw(2)p Fj(\031)1156 +3614 y(C)1226 3629 y Fh(F)1628 3547 y Fw(1)p 1311 3591 +683 4 v 1311 3683 a(\(1)22 b Fn(\000)h Fj(x)1575 3698 +y Fl(1)1615 3683 y Fw(\)\(1)f Fn(\000)g Fj(x)1916 3698 +y Fl(2)1956 3683 y Fw(\))2026 3614 y Fn(\002)852 3890 +y(\002)1012 3744 y Fg(\()1089 3823 y Fw(1)g Fn(\000)h +Fj(x)1315 3838 y Fl(1)p 1089 3867 266 4 v 1174 3959 a +Fj(x)1229 3974 y Fl(3)1381 3744 y Fg( )1447 3890 y Fw(1)f(+)1616 +3769 y Fg(\022)1772 3823 y Fj(x)1827 3838 y Fl(1)p 1687 +3867 V 1687 3959 a Fw(2)g Fn(\000)g Fj(x)1912 3974 y +Fl(2)1962 3769 y Fg(\023)2023 3792 y Fl(2)2063 3744 y +Fg(!)2151 3890 y Fw(+)2259 3823 y(1)f Fn(\000)i Fj(x)2484 +3838 y Fl(2)p 2259 3867 V 2344 3959 a Fj(x)2399 3974 +y Fl(3)2551 3744 y Fg( )2616 3890 y Fw(1)f(+)2785 3769 +y Fg(\022)2942 3823 y Fj(x)2997 3838 y Fl(2)p 2856 3867 +V 2856 3959 a Fw(2)g Fn(\000)h Fj(x)3082 3974 y Fl(1)3132 +3769 y Fg(\023)3193 3792 y Fl(2)3232 3744 y Fg(!\))3414 +3890 y Fj(;)116 b Fw(\(139\))0 4165 y(where)37 b(the)f(\014rst)f(term)g +(inside)g(the)h(curly)f(brac)m(k)m(et)i(comes)f(from)e(emission)g +(o\013)h(the)h(quark)h(and)e(the)0 4273 y(second)41 b(term)f(from)e +(emission)h(o\013)h(the)g(an)m(tiquark.)66 b(The)41 b(corresp)s(onding) +f(expression)h(in)e(matrix-)0 4381 y(elemen)m(t)32 b(language)g(is)872 +4575 y(1)p 866 4620 60 4 v 866 4711 a Fj(\033)1006 4575 +y Fw(d)p Fj(\033)1115 4590 y Fl(ME)p 962 4620 315 4 v +962 4711 a Fw(d)p Fj(x)1071 4726 y Fl(1)1128 4711 y Fw(d)p +Fj(x)1237 4726 y Fl(2)1314 4643 y Fw(=)1435 4575 y Fj(\013)1497 +4590 y Fl(s)p 1428 4620 108 4 v 1428 4711 a Fw(2)p Fj(\031)1562 +4643 y(C)1632 4658 y Fh(F)2034 4575 y Fw(1)p 1717 4620 +683 4 v 1717 4711 a(\(1)22 b Fn(\000)h Fj(x)1981 4726 +y Fl(1)2020 4711 y Fw(\)\(1)f Fn(\000)h Fj(x)2322 4726 +y Fl(2)2362 4711 y Fw(\))2426 4547 y Fg(n)2482 4643 y +Fj(x)2537 4602 y Fl(2)2537 4668 y(1)2599 4643 y Fw(+)f +Fj(x)2752 4602 y Fl(2)2752 4668 y(2)2791 4547 y Fg(o)2896 +4643 y Fj(:)634 b Fw(\(140\))0 4911 y(With)36 b(the)h(kinematics)f(c)m +(hoice)h(of)43 b Fm(Jetset)p Fw(,)37 b(the)g(matrix-elemen)m(t)d +(expression)k(is)e(alw)m(a)m(ys)h(smaller)0 5019 y(than)h(the)h +(parton-sho)m(w)m(er)g(one.)61 b(It)39 b(is)f(therefore)g(p)s(ossible)g +(to)g(run)h(the)f(sho)m(w)m(er)i(as)f(usual,)g(but)g(to)0 +5128 y(imp)s(ose)f(an)i(extra)g(w)m(eigh)m(t)g(factor)f(d)p +Fj(\033)1448 5143 y Fl(ME)1565 5128 y Fj(=)p Fw(d)p Fj(\033)1723 +5143 y Fl(PS)1815 5128 y Fw(,)j(whic)m(h)e(is)f(just)h(the)g(ratio)e +(of)h(the)h(expressions)h(in)0 5236 y(curly)g(brac)m(k)m(ets.)70 +b(If)41 b(a)f(branc)m(hing)h(is)f(rejected,)k(the)e(ev)m(olution)e(is)g +(con)m(tin)m(ued)h(from)f(the)h(rejected)0 5344 y Fj(Q)77 +5308 y Fl(2)154 5344 y Fw(v)-5 b(alue)37 b(on)m(w)m(ards)i(\(the)f(v)m +(eto)g(algorithm\).)55 b(The)38 b(w)m(eigh)m(ting)f(pro)s(cedure)i(is)e +(applied)f(to)h(the)h(\014rst)0 5453 y(branc)m(hing)30 +b(of)f(b)s(oth)h(the)g(q)g(and)g(the)p 1385 5400 52 4 +v 31 w(q,)h(in)e(eac)m(h)h(case)h(with)f(the)g(\(nominal\))d +(assumption)i(that)h(none)0 5561 y(of)36 b(the)i(other)f(partons)g +(branc)m(h)h(\(neither)e(the)i(sister)f(nor)g(the)g(daugh)m(ters\),)i +(so)e(that)g(the)g(relations)0 5669 y(of)32 b(eq.)i(\(138\))d(are)i +(applicable.)1817 5953 y(196)p eop +%%Page: 197 203 +197 202 bop 146 -18 a Fw(If)32 b(a)f(photon)g(is)g(emitted)f(instead)h +(of)g(a)g(gluon,)g(the)g(emission)f(rate)i(in)e(parton)h(sho)m(w)m(ers) +j(is)c(giv)m(en)0 90 y(b)m(y)250 260 y(1)p 245 304 60 +4 v 245 396 a Fj(\033)398 260 y Fw(d)p Fj(\033)507 275 +y Fl(PS)p 341 304 315 4 v 341 396 a Fw(d)p Fj(x)450 411 +y Fl(1)506 396 y Fw(d)p Fj(x)615 411 y Fl(2)749 327 y +Fw(=)919 260 y Fj(\013)981 275 y Fl(em)p 919 304 157 +4 v 943 396 a Fw(2)p Fj(\031)1429 260 y Fw(1)p 1112 304 +683 4 v 1112 396 a(\(1)22 b Fn(\000)g Fj(x)1375 411 y +Fl(1)1415 396 y Fw(\)\(1)g Fn(\000)h Fj(x)1717 411 y +Fl(2)1757 396 y Fw(\))1827 327 y Fn(\002)749 603 y(\002)909 +457 y Fg(\()976 603 y Fj(e)1021 562 y Fl(2)1021 628 y(q)1089 +536 y Fw(1)f Fn(\000)h Fj(x)1315 551 y Fl(1)p 1089 580 +266 4 v 1174 671 a Fj(x)1229 686 y Fl(3)1381 457 y Fg( )1447 +603 y Fw(1)f(+)1616 482 y Fg(\022)1772 536 y Fj(x)1827 +551 y Fl(1)p 1687 580 V 1687 671 a Fw(2)g Fn(\000)g Fj(x)1912 +686 y Fl(2)1962 482 y Fg(\023)2023 505 y Fl(2)2063 457 +y Fg(!)2151 603 y Fw(+)g Fj(e)2294 562 y Fl(2)p 2294 +589 42 4 v 2294 628 a(q)2362 536 y Fw(1)g Fn(\000)g Fj(x)2587 +551 y Fl(2)p 2362 580 266 4 v 2447 671 a Fj(x)2502 686 +y Fl(3)2654 457 y Fg( )2719 603 y Fw(1)g(+)2888 482 y +Fg(\022)3045 536 y Fj(x)3100 551 y Fl(2)p 2959 580 V +2959 671 a Fw(2)g Fn(\000)h Fj(x)3185 686 y Fl(1)3235 +482 y Fg(\023)3296 505 y Fl(2)3335 457 y Fg(!\))3517 +603 y Fj(;)13 b Fw(\(141\))0 859 y(and)33 b(in)e(matrix)h(elemen)m(ts)g +(b)m(y)i([Gro81)o(])209 1047 y(1)p 204 1091 60 4 v 204 +1183 a Fj(\033)344 1047 y Fw(d)p Fj(\033)453 1062 y Fl(ME)p +299 1091 315 4 v 299 1183 a Fw(d)p Fj(x)408 1198 y Fl(1)465 +1183 y Fw(d)p Fj(x)574 1198 y Fl(2)652 1115 y Fw(=)765 +1047 y Fj(\013)827 1062 y Fl(em)p 765 1091 157 4 v 790 +1183 a Fw(2)p Fj(\031)1275 1047 y Fw(1)p 958 1091 683 +4 v 958 1183 a(\(1)22 b Fn(\000)h Fj(x)1222 1198 y Fl(1)1262 +1183 y Fw(\)\(1)e Fn(\000)i Fj(x)1563 1198 y Fl(2)1603 +1183 y Fw(\))1667 968 y Fg(\()1734 993 y(\022)1795 1115 +y Fj(e)1840 1130 y Fl(q)1908 1047 y Fw(1)f Fn(\000)h +Fj(x)2134 1062 y Fl(1)p 1908 1091 266 4 v 1994 1183 a +Fj(x)2049 1198 y Fl(3)2206 1115 y Fn(\000)g Fj(e)p 2351 +1091 42 4 v 15 x Fl(q)2419 1047 y Fw(1)f Fn(\000)g Fj(x)2644 +1062 y Fl(2)p 2419 1091 266 4 v 2504 1183 a Fj(x)2559 +1198 y Fl(3)2694 993 y Fg(\023)2755 1009 y Fl(2)2811 +1018 y Fg(\020)2861 1115 y Fj(x)2916 1073 y Fl(2)2916 +1139 y(1)2978 1115 y Fw(+)g Fj(x)3131 1073 y Fl(2)3131 +1139 y(2)3171 1018 y Fg(\021)3220 968 y(\))3336 1115 +y Fj(:)194 b Fw(\(142\))0 1370 y(As)24 b(in)e(the)i(gluon)e(emission)g +(case,)k(a)d(w)m(eigh)m(ting)g(factor)f(d)p Fj(\033)2142 +1385 y Fl(ME)2260 1370 y Fj(=)p Fw(d)p Fj(\033)2418 1385 +y Fl(PS)2533 1370 y Fw(can)h(therefore)h(b)s(e)f(applied)f(when)0 +1489 y(either)40 b(the)g(original)d(q)k(\()p Fj(`)p Fw(\))e(or)h(the)h +(original)p 1729 1437 52 4 v 36 w(q)g(\()p 1859 1410 +41 4 v Fj(`)p Fw(\))f(emits)f(a)h(photon.)66 b(F)-8 b(or)39 +b(a)h(neutral)f(resonance,)0 1598 y(suc)m(h)c(as)g(Z)403 +1562 y Fl(0)442 1598 y Fw(,)f(where)h Fj(e)p 831 1574 +42 4 v 15 x Fl(q)903 1598 y Fw(=)30 b Fn(\000)p Fj(e)1131 +1613 y Fl(q)1173 1598 y Fw(,)35 b(the)f(ab)s(o)m(v)m(e)h(expressions)h +(simplify)31 b(and)j(one)g(reco)m(v)m(ers)j(exactly)d(the)0 +1706 y(same)e(ratio)f(d)p Fj(\033)586 1721 y Fl(ME)704 +1706 y Fj(=)p Fw(d)p Fj(\033)862 1721 y Fl(PS)986 1706 +y Fw(as)i(for)f(gluon)f(emission.)146 1814 y(Compared)c(with)f(the)h +(standard)g(matrix-elemen)m(t)d(treatmen)m(t,)k(a)e(few)h +(di\013erences)g(remain.)41 b(The)0 1923 y(sho)m(w)m(er)24 +b(one)e(automatically)c(con)m(tains)k(the)g(Sudak)m(o)m(v)i(form)c +(factor)i(and)f(an)h Fj(\013)2844 1938 y Fl(s)2898 1923 +y Fw(running)f(as)h(a)g(function)0 2031 y(of)40 b(the)g +Fj(p)343 1995 y Fl(2)343 2056 y Fk(?)442 2031 y Fw(scale)g(of)g(the)g +(branc)m(hing.)66 b(The)41 b(sho)m(w)m(er)h(also)d(allo)m(ws)g(all)f +(partons)i(to)g(ev)m(olv)m(e)h(further,)0 2139 y(whic)m(h)36 +b(means)g(that)g(the)g(na)-11 b(\177)-38 b(\020v)m(e)36 +b(kinematics)f(assumed)i(for)e(a)h(comparison)e(with)i(matrix)e(elemen) +m(ts)0 2248 y(is)i(mo)s(di\014ed)f(b)m(y)i(subsequen)m(t)i(branc)m +(hings,)f(e.g.)54 b(that)36 b(the)h(energy)g(of)f(parton)g(1)g(is)g +(reduced)h(when)0 2356 y(parton)c(2)g(is)f(assigned)i(a)f(mass.)45 +b(All)32 b(these)i(e\013ects)g(are)g(formally)c(of)j(higher)f(order,)i +(and)f(so)h(do)f(not)0 2464 y(a\013ect)k(a)g(\014rst-order)g +(comparison.)56 b(This)37 b(do)s(es)h(not)e(mean)h(that)g(the)g +(corrections)g(need)h(b)s(e)g(small,)0 2573 y(but)e(exp)s(erimen)m(tal) +f(results)h(are)g(encouraging:)50 b(the)36 b(approac)m(h)h(outlined)d +(do)s(es)j(ev)m(ery)g(bit)e(as)i(go)s(o)s(d)0 2681 y(as)c(explicit)e +(second-order)i(matrix)f(elemen)m(ts)g(for)g(the)h(description)g(of)f +(4-jet)g(pro)s(duction.)0 2925 y Fo(10.2.4)113 b(Subsequen)m(t)38 +b(branc)m(hes)h(and)f(angular)g(ordering)0 3098 y Fw(The)i(sho)m(w)m +(er)g(ev)m(olution)e(is)g(\(almost\))f(alw)m(a)m(ys)i(done)h(on)e(a)h +(pair)e(of)i(partons,)h(so)f(that)g(energy)g(and)0 3206 +y(momen)m(tum)32 b(can)j(b)s(e)f(conserv)m(ed.)50 b(In)34 +b(the)g(\014rst)h(step)f(of)g(the)g(ev)m(olution,)g(the)g(t)m(w)m(o)h +(original)30 b(partons)0 3314 y(th)m(us)k(undergo)g(branc)m(hings)g(1) +29 b Fn(!)g Fw(3)22 b(+)h(4)33 b(and)g(2)c Fn(!)g Fw(5)22 +b(+)h(6.)46 b(As)33 b(describ)s(ed)i(ab)s(o)m(v)m(e,)f(the)g(allo)m(w)m +(ed)f Fj(m)3713 3329 y Fl(1)3752 3314 y Fw(,)0 3423 y +Fj(m)85 3438 y Fl(2)125 3423 y Fw(,)e Fj(z)228 3438 y +Fl(1)299 3423 y Fw(and)g Fj(z)532 3438 y Fl(2)603 3423 +y Fw(ranges)g(are)g(coupled)h(b)m(y)g(kinematical)c(constrain)m(ts.)43 +b(In)32 b(the)f(second)i(step,)f(the)g(pair)0 3531 y(3)24 +b(+)g(4)36 b(is)f(ev)m(olv)m(ed)i(and,)g(separately)-8 +b(,)37 b(the)f(pair)f(5)24 b(+)g(6.)53 b(Considering)35 +b(only)g(the)i(former)d(\(the)i(latter)0 3665 y(is)c(trivially)d +(obtained)i(b)m(y)i(symmetry\),)g(the)f(partons)h(th)m(us)g(ha)m(v)m(e) +g(nominal)d(initial)e(energies)33 b Fj(E)3582 3614 y +Fl(\(0\))3576 3687 y(3)3704 3665 y Fw(=)0 3799 y Fj(z)45 +3814 y Fl(1)85 3799 y Fj(E)157 3814 y Fl(1)220 3799 y +Fw(and)24 b Fj(E)479 3748 y Fl(\(0\))473 3821 y(4)601 +3799 y Fw(=)k(\(1)t Fn(\000)t Fj(z)922 3814 y Fl(1)962 +3799 y Fw(\))p Fj(E)1072 3814 y Fl(1)1112 3799 y Fw(,)e(and)d(maxim)m +(um)f(allo)m(w)m(ed)h(virtualities)e Fj(m)2697 3814 y +Fl(max)p Fh(;)p Fl(3)2916 3799 y Fw(=)27 b(min)o(\()p +Fj(m)3305 3814 y Fl(1)3345 3799 y Fj(;)17 b(E)3467 3748 +y Fl(\(0\))3461 3821 y(3)3561 3799 y Fw(\))23 b(and)0 +3936 y Fj(m)85 3951 y Fl(max)p Fh(;)p Fl(4)312 3936 y +Fw(=)36 b(min)o(\()p Fj(m)710 3951 y Fl(1)749 3936 y +Fj(;)17 b(E)871 3885 y Fl(\(0\))865 3958 y(4)965 3936 +y Fw(\).)59 b(Initially)34 b(partons)k(3)f(and)h(4)f(are)h(ev)m(olv)m +(ed)h(separately)-8 b(,)39 b(giving)d(masses)0 4044 y +Fj(m)85 4059 y Fl(3)163 4044 y Fw(and)j Fj(m)444 4059 +y Fl(4)522 4044 y Fw(and)g(splitting)d(v)-5 b(ariables)37 +b Fj(z)1564 4059 y Fl(3)1643 4044 y Fw(and)h Fj(z)1883 +4059 y Fl(4)1923 4044 y Fw(.)62 b(If)38 b Fj(m)2200 4059 +y Fl(3)2266 4044 y Fw(+)26 b Fj(m)2453 4059 y Fl(4)2531 +4044 y Fj(>)38 b(m)2730 4059 y Fl(1)2769 4044 y Fw(,)i(the)f(parton)g +(of)f(3)g(and)h(4)0 4152 y(that)32 b(has)h(the)g(largest)f(ratio)f(of)i +Fj(m)1298 4167 y Fh(i)1326 4152 y Fj(=m)1460 4167 y Fl(max)p +Fh(;i)1672 4152 y Fw(is)f(ev)m(olv)m(ed)i(further.)44 +b(Thereafter)34 b(eq.)f(\(136\))f(is)g(used)i(to)0 4261 +y(construct)j(corrected)f(energies)g Fj(E)1301 4276 y +Fl(3)1376 4261 y Fw(and)g Fj(E)1641 4276 y Fl(4)1680 +4261 y Fw(,)g(and)g(the)g Fj(z)k Fw(v)-5 b(alues)35 b(are)h(c)m(hec)m +(k)m(ed)i(for)d(consistency)-8 b(.)54 b(If)0 4369 y(a)39 +b(branc)m(hing)f(has)i(to)e(b)s(e)h(rejected)h(b)s(ecause)g(the)g(c)m +(hange)f(of)g(parton)f(energy)i(puts)g Fj(z)j Fw(outside)c(the)0 +4478 y(allo)m(w)m(ed)32 b(range,)g(the)h(parton)g(is)f(ev)m(olv)m(ed)i +(further.)146 4586 y(This)g(pro)s(cedure)h(can)f(then)h(b)s(e)f +(iterated)f(for)g(the)h(ev)m(olution)f(of)h(the)g(t)m(w)m(o)g(daugh)m +(ters)h(of)f(parton)0 4694 y(3)29 b(and)g(for)g(the)g(t)m(w)m(o)h(of)f +(parton)g(4,)g(etc.,)i(un)m(til)d(eac)m(h)i(parton)f(reac)m(hes)i(the)e +(cut-o\013)g(mass)g Fj(m)3366 4709 y Fl(min)3488 4694 +y Fw(.)42 b(Then)0 4803 y(the)33 b(parton)f(is)g(put)h(on)g(the)g(mass) +f(shell.)146 4911 y(The)51 b(mo)s(del,)h(as)e(describ)s(ed)g(so)g(far,) +j(pro)s(duces)e(so-called)d(con)m(v)m(en)m(tional)i(sho)m(w)m(ers,)56 +b(wherein)0 5019 y(masses)42 b(are)g(strictly)f(decreasing)h(in)f(the)h +(sho)m(w)m(er)h(ev)m(olution.)70 b(Emission)40 b(angles)h(are)h +(decreasing)0 5128 y(only)30 b(in)f(an)h(a)m(v)m(erage)h(sense,)i(ho)m +(w)m(ev)m(er,)g(whic)m(h)d(means)h(that)f(also)f(fairly)f(`late')i +(branc)m(hings)g(can)h(giv)m(e)0 5236 y(partons)37 b(at)g(large)f +(angles.)57 b(Theoretical)36 b(studies)i(b)s(ey)m(ond)h(the)e +(leading-log)d(lev)m(el)j(sho)m(w)h(that)f(this)0 5344 +y(is)c(not)h(correct)h([Mue81],)g(but)f(that)g(destructiv)m(e)h(in)m +(terference)g(e\013ects)h(are)e(large)e(in)i(the)g(region)f(of)0 +5453 y(non-ordered)k(emission)e(angles.)55 b(T)-8 b(o)37 +b(a)f(v)m(ery)i(go)s(o)s(d)e(\014rst)h(appro)m(ximation,)e(these)j +(so-called)d(coher-)0 5561 y(ence)41 b(e\013ects)g(can)f(b)s(e)g(tak)m +(en)h(in)m(to)e(accoun)m(t)h(in)f(parton)h(sho)m(w)m(er)h(programs)e(b) +m(y)i(requiring)d(a)i(strict)0 5669 y(ordering)32 b(in)g(terms)g(of)g +(decreasing)h(emission)f(angles.)1817 5953 y(197)p eop +%%Page: 198 204 +198 203 bop 146 -18 a Fw(The)44 b(coherence)h(phenomenon)e(is)f(kno)m +(wn)i(already)e(from)g(QED.)g(One)h(manifestation)e(is)h(the)0 +90 y(Ch)m(udak)m(o)m(v)34 b(e\013ect)e([Ch)m(u55)q(],)f(disco)m(v)m +(ered)i(in)e(the)g(study)i(of)e(high-energy)g(cosmic)f +Fj(\015)37 b Fw(ra)m(ys)32 b(impinging)0 198 y(on)48 +b(a)g(n)m(uclear)g(target.)89 b(If)48 b(a)g Fj(\015)k +Fw(is)c(con)m(v)m(erted)i(in)m(to)d(a)h(highly)f(collinear)e(e)2926 +162 y Fl(+)2986 198 y Fw(e)3029 162 y Fk(\000)3136 198 +y Fw(pair)i(inside)g(the)0 307 y(em)m(ulsion,)39 b(the)g(e)656 +270 y Fl(+)754 307 y Fw(and)g(e)993 270 y Fk(\000)1090 +307 y Fw(in)f(their)g(tra)m(v)m(el)h(through)g(the)g(em)m(ulsion)e +(ionize)g(atoms)h(and)h(thereb)m(y)0 415 y(pro)s(duce)d(blac)m(k)m +(ening.)53 b(Ho)m(w)m(ev)m(er,)39 b(near)d(the)g(con)m(v)m(ersion)h(p)s +(oin)m(t)e(the)h(blac)m(k)m(ening)f(is)h(small:)47 b(the)36 +b(e)3720 379 y Fl(+)0 523 y Fw(and)27 b(e)227 487 y Fk(\000)314 +523 y Fw(then)h(are)g(still)d(close)i(together,)i(so)e(that)g(an)h +(atom)e(tra)m(v)m(ersed)j(b)m(y)g(the)e(pair)g(do)s(es)h(not)f(resolv)m +(e)0 632 y(the)h(individual)c(c)m(harges)k(of)f(the)h(e)1266 +595 y Fl(+)1352 632 y Fw(and)f(the)h(e)1742 595 y Fk(\000)1801 +632 y Fw(,)g(but)g(only)f(feels)g(a)g(net)g(c)m(harge)h(close)f(to)g +(zero.)42 b(Only)0 740 y(later,)d(when)g(the)g(e)739 +704 y Fl(+)837 740 y Fw(and)f(e)1075 704 y Fk(\000)1173 +740 y Fw(are)g(separated)h(b)m(y)g(more)f(than)g(a)g(t)m(ypical)g +(atomic)e(radius,)k(are)e(the)0 848 y(t)m(w)m(o)33 b(able)f(to)g +(ionize)g(indep)s(enden)m(tly)h(of)f(eac)m(h)i(other.)146 +957 y(The)g(situation)e(is)g(similar)e(in)i(QCD,)h(but)g(is)f(further)i +(extended,)h(since)e(no)m(w)h(also)e(gluons)g(carry)0 +1065 y(colour.)45 b(F)-8 b(or)32 b(example,)h(in)g(a)g(branc)m(hing)g +(q)1619 1080 y Fl(0)1688 1065 y Fn(!)c Fw(qg)35 b(the)e(q)h(and)f(g)i +(share)f(a)f(colour{an)m(ticolour)d(pair,)0 1173 y(and)42 +b(therefore)h(the)f(q)g(and)g(g)h(cannot)f(emit)f(subsequen)m(t)k +(gluons)c(incoheren)m(tly)-8 b(.)72 b(Again)41 b(the)h(net)0 +1282 y(e\013ect)32 b(is)g(to)f(reduce)i(the)f(amoun)m(t)f(of)g(soft)h +(gluon)e(emission:)42 b(since)32 b(a)f(soft)h(gluon)f(\(emitted)f(at)i +(large)0 1390 y(angles\))d(corresp)s(onds)j(to)d(a)h(large)e(\(transv)m +(erse\))k(w)m(a)m(v)m(elength,)g(the)f(soft)e(gluon)g(is)h(unable)f(to) +h(resolv)m(e)0 1498 y(the)46 b(separate)g(colour)e(c)m(harges)i(of)f +(the)g(q)h(and)f(the)h(g)q(,)j(and)c(only)g(feels)g(the)g(net)h(c)m +(harge)g(carried)0 1607 y(b)m(y)d(the)f(q)373 1622 y +Fl(0)413 1607 y Fw(.)70 b(Suc)m(h)43 b(a)f(soft)f(gluon)g(g)1367 +1571 y Fk(0)1432 1607 y Fw(\(in)g(the)h(region)f Fj(\022)2117 +1622 y Fl(q)2154 1631 y Ff(0)2189 1622 y Fl(g)2225 1603 +y Fd(0)2295 1607 y Fj(>)i(\022)2459 1622 y Fl(qg)2537 +1607 y Fw(\))f(could)f(therefore)h(b)s(e)g(though)m(t)0 +1715 y(of)k(as)h(b)s(eing)g(emitted)e(b)m(y)j(the)f(q)1291 +1730 y Fl(0)1378 1715 y Fw(rather)g(than)g(b)m(y)h(the)f(q{g)h(system.) +87 b(If)47 b(one)g(considers)h(only)0 1823 y(emission)29 +b(that)i(should)f(b)s(e)h(asso)s(ciated)f(with)g(the)h(q)g(or)f(the)h +(g)q(,)g(to)f(a)h(go)s(o)s(d)e(appro)m(ximation,)g(there)i(is)0 +1932 y(a)e(complete)g(destructiv)m(e)i(in)m(terference)g(in)e(the)h +(regions)f(of)g(non-decreasing)h(op)s(ening)e(angles,)i(while)0 +2040 y(partons)24 b(radiate)f(indep)s(enden)m(tly)h(of)f(eac)m(h)i +(other)f(inside)f(the)h(regions)f(of)h(decreasing)g(op)s(ening)f +(angles)0 2148 y(\()p Fj(\022)83 2163 y Fh(q)r(g)153 +2144 y Fd(0)215 2148 y Fj(<)36 b(\022)372 2163 y Fh(q)r(g)483 +2148 y Fw(and)i Fj(\022)723 2163 y Fh(g)r(g)795 2144 +y Fd(0)857 2148 y Fj(<)e(\022)1014 2163 y Fh(q)r(g)1088 +2148 y Fw(\),)i(once)g(azim)m(uthal)d(angles)i(are)g(a)m(v)m(eraged)i +(o)m(v)m(er.)58 b(The)38 b(details)e(of)h(the)0 2257 +y(colour)31 b(in)m(terference)i(pattern)g(are)f(re\015ected)h(in)f +(non-uniform)d(azim)m(uthal)h(emission)h(probabilities.)146 +2365 y(The)25 b(\014rst)f(branc)m(hings)h(of)e(the)h(sho)m(w)m(er)i +(are)e(not)f(a\013ected)i(b)m(y)g(the)f(angular-ordering)d(requiremen)m +(t)0 2473 y(|)k(since)g(the)h(ev)m(olution)e(is)h(p)s(erformed)f(in)h +(the)g(c.m.)41 b(frame)24 b(of)h(the)g(original)d(parton)j(pair,)h +(where)g(the)0 2582 y(original)k(op)s(ening)j(angle)g(is)g(180)1222 +2546 y Fk(\016)1261 2582 y Fw(,)h(an)m(y)g(angle)f(w)m(ould)g(an)m(yw)m +(a)m(y)j(b)s(e)d(smaller)f(than)i(this)f(|)g(but)h(here)0 +2690 y(instead)g(the)f(matrix-elemen)m(t)f(matc)m(hing)g(pro)s(cedure)j +(is)e(used,)i(where)g(applicable.)44 b(Subsequen)m(tly)-8 +b(,)0 2798 y(eac)m(h)33 b(op)s(ening)f(angle)g(is)g(compared)g(with)h +(that)f(of)g(the)h(preceding)g(branc)m(hing)g(in)e(the)i(sho)m(w)m(er.) +146 2907 y(F)-8 b(or)32 b(a)g(branc)m(hing)h Fj(a)28 +b Fn(!)f Fj(bc)33 b Fw(the)g(kinematical)d(appro)m(ximation)190 +3184 y Fj(\022)235 3199 y Fh(a)305 3184 y Fn(\031)420 +3116 y Fj(p)469 3131 y Fk(?)p Fh(b)p 420 3160 139 4 v +436 3252 a Fj(E)508 3267 y Fh(b)590 3184 y Fw(+)698 3116 +y Fj(p)747 3131 y Fk(?)p Fh(c)p 698 3160 V 714 3252 a +Fj(E)786 3267 y Fh(c)874 3184 y Fn(\031)980 3079 y Fg(q)p +1063 3079 421 4 v 105 x Fj(z)1108 3199 y Fh(a)1150 3184 +y Fw(\(1)21 b Fn(\000)i Fj(z)1403 3199 y Fh(a)1445 3184 +y Fw(\))p Fj(m)1568 3199 y Fh(a)1626 3037 y Fg( )1778 +3116 y Fw(1)p 1702 3160 201 4 v 1702 3252 a Fj(z)1747 +3267 y Fh(a)1789 3252 y Fj(E)1861 3267 y Fh(a)1935 3184 +y Fw(+)2242 3116 y(1)p 2043 3160 448 4 v 2043 3252 a(\(1)f +Fn(\000)g Fj(z)2296 3267 y Fh(a)2338 3252 y Fw(\))p Fj(E)2448 +3267 y Fh(a)2500 3037 y Fg(!)2594 3184 y Fw(=)2934 3116 +y(1)p 2707 3160 504 4 v 2707 3177 a Fg(q)p 2790 3177 +421 4 v 100 x Fj(z)2835 3292 y Fh(a)2877 3277 y Fw(\(1)g +Fn(\000)h Fj(z)3131 3292 y Fh(a)3172 3277 y Fw(\))3230 +3116 y Fj(m)3315 3131 y Fh(a)p 3230 3160 127 4 v 3237 +3252 a Fj(E)3309 3267 y Fh(a)3557 3184 y Fw(\(143\))0 +3506 y(is)39 b(used)i(to)e(deriv)m(e)h(the)g(op)s(ening)f(angle)g +(\(this)g(is)g(an)m(yw)m(a)m(y)j(to)d(the)h(same)f(lev)m(el)h(of)f +(appro)m(ximation)0 3614 y(as)e(the)g(one)g(in)f(whic)m(h)h(angular)e +(ordering)h(is)g(deriv)m(ed\).)57 b(With)36 b Fj(\022)2458 +3629 y Fh(b)2529 3614 y Fw(of)h(the)g Fj(b)g Fw(branc)m(hing)f +(calculated)0 3722 y(similarly)-8 b(,)29 b(the)k(requiremen)m(t)g +Fj(\022)1173 3737 y Fh(b)1235 3722 y Fj(<)28 b(\022)1384 +3737 y Fh(a)1458 3722 y Fw(can)33 b(b)s(e)g(reduced)h(to)1453 +3924 y Fj(z)1498 3939 y Fh(b)1532 3924 y Fw(\(1)22 b +Fn(\000)h Fj(z)1786 3939 y Fh(b)1821 3924 y Fw(\))p 1453 +3969 406 4 v 1593 4060 a Fj(m)1678 4026 y Fl(2)1678 4085 +y Fh(b)1896 3992 y Fj(>)2010 3924 y Fw(1)f Fn(\000)g +Fj(z)2225 3939 y Fh(a)p 2010 3969 258 4 v 2031 4060 a +Fj(z)2076 4075 y Fh(a)2118 4060 y Fj(m)2203 4031 y Fl(2)2203 +4085 y Fh(a)2310 3992 y Fj(:)1220 b Fw(\(144\))146 4262 +y(Since)45 b(photons)g(do)g(not)g(ob)s(ey)g(angular)e(ordering,)k(the)e +(c)m(hec)m(k)i(on)e(angular)e(ordering)h(is)h(not)0 4371 +y(p)s(erformed)35 b(when)i(a)e(photon)h(is)f(emitted.)52 +b(When)37 b(a)e(gluon)g(is)g(emitted)g(in)g(the)h(branc)m(hing)f(after) +h(a)0 4479 y(photon,)k(its)f(emission)e(angle)h(is)g(restricted)h(b)m +(y)h(that)e(of)h(the)g(preceding)g(QCD)f(branc)m(hing)h(in)f(the)0 +4587 y(sho)m(w)m(er,)c(i.e.)43 b(the)33 b(photon)g(emission)e(angle)h +(do)s(es)h(not)f(en)m(ter.)0 4835 y Fo(10.2.5)113 b(Other)37 +b(\014nal-state)h(sho)m(w)m(er)f(asp)s(ects)0 5008 y +Fw(The)i(electromagnetic)e(coupling)g(constan)m(t)j(for)e(the)h +(emission)e(of)h(photons)h(on)f(the)h(mass)f(shell)g(is)0 +5116 y Fj(\013)62 5131 y Fl(em)194 5116 y Fw(=)f Fj(\013)369 +5131 y Fl(em)463 5116 y Fw(\()p Fj(Q)578 5080 y Fl(2)655 +5116 y Fw(=)g(0\))g Fn(\031)h Fw(1)p Fj(=)p Fw(137.)59 +b(F)-8 b(or)38 b(the)g(strong)h(coupling)e(constan)m(t)i(sev)m(eral)g +(alternativ)m(es)e(are)0 5224 y(a)m(v)-5 b(ailable,)33 +b(the)j(default)e(b)s(eing)h(the)g(\014rst-order)g(expression)i +Fj(\013)2361 5239 y Fl(s)2393 5224 y Fw(\()p Fj(p)2480 +5188 y Fl(2)2480 5249 y Fk(?)2539 5224 y Fw(\),)e(where)i +Fj(p)2973 5188 y Fl(2)2973 5249 y Fk(?)3067 5224 y Fw(is)d(de\014ned)j +(b)m(y)f(the)0 5333 y(appro)m(ximate)41 b(expression)i +Fj(p)1101 5297 y Fl(2)1101 5357 y Fk(?)1204 5333 y Fn(\031)h +Fj(z)t Fw(\(1)29 b Fn(\000)g Fj(z)t Fw(\))p Fj(m)1768 +5297 y Fl(2)1809 5333 y Fw(.)72 b(Studies)42 b(of)f +(next-to-leading-order)f(corrections)0 5441 y(fa)m(v)m(our)33 +b(this)f(c)m(hoice)h([Ama80)o(].)44 b(The)33 b(other)g(alternativ)m(es) +f(are)h(a)f(\014xed)i Fj(\013)2727 5456 y Fl(s)2791 5441 +y Fw(and)f(an)f Fj(\013)3178 5456 y Fl(s)3210 5441 y +Fw(\()p Fj(m)3333 5405 y Fl(2)3373 5441 y Fw(\).)146 +5549 y(With)42 b(the)g(default)f(c)m(hoice)h(of)g Fj(p)1391 +5513 y Fl(2)1391 5574 y Fk(?)1491 5549 y Fw(as)g(scale)g(in)f +Fj(\013)2048 5564 y Fl(s)2080 5549 y Fw(,)k(a)c(further)h(cut-o\013)g +(is)f(in)m(tro)s(duced)h(on)g(the)0 5658 y(allo)m(w)m(ed)37 +b(phase)h(space)h(of)e(gluon)f(emission,)i(not)f(presen)m(t)j(in)c(the) +i(options)f(with)g(\014xed)i Fj(\013)3396 5673 y Fl(s)3466 +5658 y Fw(or)e(with)1817 5953 y(198)p eop +%%Page: 199 205 +199 204 bop 0 -18 a Fj(\013)62 -3 y Fl(s)94 -18 y Fw(\()p +Fj(m)217 -55 y Fl(2)257 -18 y Fw(\),)40 b(nor)e(in)g(the)h(QED)f(sho)m +(w)m(er.)63 b(A)39 b(minim)m(um)c(requiremen)m(t,)40 +b(to)e(ensure)i(a)f(w)m(ell-de\014ned)f Fj(\013)3720 +-3 y Fl(s)3752 -18 y Fw(,)0 90 y(is)47 b(that)h Fj(p)389 +105 y Fk(?)448 90 y Fj(=)p Fw(\003)53 b Fj(>)g Fw(1)p +Fj(:)p Fw(1,)f(but)c(additionally)d Fm(Jetset)i Fw(requires)i(that)e +Fj(p)2736 105 y Fk(?)2849 90 y Fj(>)53 b(Q)3055 105 y +Fl(0)3095 90 y Fj(=)p Fw(2.)89 b(This)47 b(latter)0 198 +y(requiremen)m(t)38 b(is)f(not)g(a)g(necessit)m(y)-8 +b(,)40 b(but)e(it)e(mak)m(es)i(sense)h(when)g Fj(p)2494 +213 y Fk(?)2590 198 y Fw(is)e(tak)m(en)h(to)f(b)s(e)h(the)f(preferred)0 +307 y(scale)47 b(of)g(the)h(branc)m(hing)g(pro)s(cess,)k(rather)c(than) +f(e.g.)88 b Fj(m)p Fw(.)h(It)47 b(reduces)j(the)e(allo)m(w)m(ed)e +Fj(z)52 b Fw(range,)0 415 y(compared)41 b(with)g(the)g(purely)g +(kinematical)e(constrain)m(ts.)69 b(Since)42 b(the)f +Fj(p)2750 430 y Fk(?)2850 415 y Fw(cut)h(is)e(not)h(presen)m(t)i(for)0 +523 y(photon)38 b(emission,)g(the)g(relativ)m(e)f(ratio)g(of)g(photon)h +(to)f(gluon)g(emission)g(o\013)g(a)h(quark)h(is)e(enhanced)0 +632 y(at)g(small)e(virtualities)g(compared)j(with)f(na)-11 +b(\177)-38 b(\020v)m(e)37 b(exp)s(ectations;)k(in)c(actual)g(fact)g +(this)g(enhancemen)m(t)0 740 y(is)g(largely)g(comp)s(ensated)h(b)m(y)h +(the)g(running)e(of)h Fj(\013)1876 755 y Fl(s)1908 740 +y Fw(,)h(whic)m(h)g(acts)f(in)f(the)i(opp)s(osite)e(direction.)59 +b(The)0 848 y(main)37 b(consequence,)44 b(ho)m(w)m(ev)m(er,)e(is)d +(that)f(the)h(gluon)f(energy)i(sp)s(ectrum)f(is)g(p)s(eak)m(ed)h(at)e +(around)h Fj(Q)3740 863 y Fl(0)0 957 y Fw(and)d(rapidly)e(v)-5 +b(anishes)36 b(for)f(energies)h(b)s(elo)m(w)g(that,)g(whilst)e(the)i +(photon)g(sp)s(ectum)g(extends)i(all)33 b(the)0 1065 +y(w)m(a)m(y)h(to)e(zero)h(energy)-8 b(.)146 1173 y(Previously)42 +b(it)e(w)m(as)i(said)f(that)g(azim)m(uthal)e(angles)i(in)f(branc)m +(hings)i(are)f(c)m(hosen)h(isotropically)-8 b(.)0 1282 +y(In)40 b(fact,)g(as)g(an)f(option,)h(it)e(is)h(p)s(ossible)f(to)h +(include)g(some)g(e\013ects)h(of)f(gluon)f(p)s(olarization,)g(whic)m(h) +0 1390 y(correlate)c(the)h(pro)s(duction)f(and)g(the)h(deca)m(y)h +(planes)e(of)g(a)g(gluon,)g(suc)m(h)i(that)f(a)f(g)e +Fn(!)e Fw(gg)36 b(branc)m(hing)0 1498 y(tends)31 b(to)e(tak)m(e)h +(place)f(in)g(the)h(pro)s(duction)e(plane)h(of)g(the)h(gluon,)f(while)g +(a)g(deca)m(y)i(out)e(of)g(the)h(plane)f(is)0 1607 y(fa)m(v)m(oured)35 +b(for)e(g)e Fn(!)e Fw(q)p 807 1554 52 4 v(q)q(.)47 b(The)35 +b(form)m(ulae)d(are)i(giv)m(en)g(e.g.)47 b(in)33 b(ref.)47 +b([W)-8 b(eb86)q(],)34 b(as)g(simple)e(functions)i(of)0 +1715 y(the)28 b Fj(z)j Fw(v)-5 b(alue)27 b(at)g(the)g(v)m(ertex)i +(where)f(the)g(gluon)e(is)h(pro)s(duced)h(and)f(of)f(the)i +Fj(z)k Fw(v)-5 b(alue)26 b(when)j(it)d(branc)m(hes.)0 +1823 y(Also)34 b(coherence)j(phenomena)d(lead)g(to)h(non-isotropic)e +(azim)m(uthal)f(distributions)h([W)-8 b(eb86)q(],)35 +b(whic)m(h)0 1932 y(are)j(included)f(as)h(a)g(further)g(option.)59 +b(In)38 b(either)f(case)i(the)f Fj(')g Fw(azim)m(uthal)e(v)-5 +b(ariable)36 b(is)i(\014rst)g(c)m(hosen)0 2040 y(isotropically)-8 +b(,)27 b(then)j(the)g(w)m(eigh)m(t)g(factor)f(due)i(to)e(p)s +(olarization)d(times)j(coherence)i(is)e(ev)-5 b(aluated,)30 +b(and)0 2148 y(the)i Fj(')g Fw(v)-5 b(alue)31 b(is)h(accepted)h(or)f +(rejected.)44 b(In)33 b(case)f(of)g(rejection,)g(a)f(new)i +Fj(')f Fw(is)f(generated,)i(and)f(so)g(on.)146 2257 y(While)38 +b(the)h(rule)f(is)f(to)i(ha)m(v)m(e)g(an)g(initial)34 +b(pair)k(of)g(partons,)i(there)f(are)g(a)f(few)h(examples)f(where)0 +2365 y(one)e(or)f(three)h(partons)f(ha)m(v)m(e)i(to)e(b)s(e)h(allo)m(w) +m(ed)e(to)h(sho)m(w)m(er.)54 b(If)35 b(only)g(one)h(parton)f(is)g(giv)m +(en,)h(it)f(is)g(not)0 2473 y(p)s(ossible)c(to)g(conserv)m(e)j(b)s(oth) +e(energy)g(and)g(momen)m(tum.)42 b(The)32 b(c)m(hoice)g(has)g(b)s(een)h +(made)e(to)g(conserv)m(e)0 2582 y(energy)41 b(and)f(jet)g(direction,)h +(but)f(the)h(momen)m(tum)d(v)m(ector)k(is)d(scaled)h(do)m(wn)h(when)g +(the)g(radiating)0 2690 y(parton)36 b(acquires)h(a)f(mass.)55 +b(The)37 b(`rest)h(frame)d(of)h(the)h(system',)h(used)g(e.g.)55 +b(in)36 b(the)g Fj(z)42 b Fw(de\014nition,)36 b(is)0 +2798 y(tak)m(en)e(to)e(b)s(e)h(whatev)m(er)h(frame)e(the)h(jet)f(is)g +(giv)m(en)h(in.)146 2907 y(In)c(\007)f Fn(!)f Fw(ggg)i(deca)m(ys)h(and) +e(other)h(primary)e(three-parton)h(con\014gurations,)h(one)g(is)f(left) +f(with)h(the)0 3015 y(issue)e(ho)m(w)f(the)h(energy)g(sharing)e(v)-5 +b(ariables)24 b Fj(x)1673 3030 y Fl(1)1737 3015 y Fw(and)i +Fj(x)1975 3030 y Fl(2)2039 3015 y Fw(from)e(the)i(massless)f(matrix)e +(elemen)m(ts)j(should)0 3123 y(b)s(e)39 b(rein)m(terpreted)h(for)e(a)g +(massiv)m(e)h(three-parton)g(con\014guration.)61 b(W)-8 +b(e)39 b(ha)m(v)m(e)h(made)e(the)h(arbitrary)0 3232 y(c)m(hoice)32 +b(of)f(preserving)h(the)f(energy)i(of)e(eac)m(h)h(parton,)f(whic)m(h)h +(means)g(that)f(relativ)m(e)f(angles)h(b)s(et)m(w)m(een)0 +3340 y(the)c(original)d(partons)j(is)g(c)m(hanged.)42 +b(Mass)28 b(triplets)e(outside)h(the)g(allo)m(w)m(ed)f(phase)i(space)g +(are)f(rejected)0 3448 y(and)33 b(the)g(ev)m(olution)e(con)m(tin)m +(ued.)146 3557 y(Finally)-8 b(,)33 b(it)g(should)i(b)s(e)g(noted)g +(that)f(t)m(w)m(o)h(to)m(y)h(sho)m(w)m(er)g(mo)s(dels)d(are)i(included) +f(as)h(options.)49 b(One)0 3665 y(is)32 b(a)h(scalar)f(gluon)g(mo)s +(del,)f(in)h(whic)m(h)h(the)g(q)c Fn(!)e Fw(qg)35 b(branc)m(hing)d(k)m +(ernel)i(is)e(replaced)h(b)m(y)h Fj(P)3365 3680 y Fl(q)p +Fk(!)p Fl(qg)3550 3665 y Fw(\()p Fj(z)t Fw(\))29 b(=)10 +3744 y Fl(2)p 10 3760 36 4 v 10 3818 a(3)55 3783 y Fw(\(1)r +Fn(\000)r Fj(z)t Fw(\).)41 b(The)24 b(couplings)d(of)h(the)i(gluon,)f +(g)29 b Fn(!)e Fw(gg)d(and)f(g)28 b Fn(!)g Fw(q)p 2294 +3731 52 4 v(q)q(,)c(ha)m(v)m(e)g(b)s(een)g(left)e(as)g(free)h +(parameters,)0 3892 y(since)34 b(they)g(dep)s(end)g(on)f(the)h(colour)e +(structure)i(assumed)g(in)f(the)g(mo)s(del.)44 b(The)34 +b(sp)s(ectra)g(are)f(\015at)g(in)0 4000 y Fj(z)42 b Fw(for)37 +b(a)h(spin)f(0)g(gluon.)58 b(Higher-order)37 b(couplings)f(of)h(the)h +(t)m(yp)s(e)h(g)e Fn(!)f Fw(ggg)i(could)f(w)m(ell)g(con)m(tribute)0 +4108 y(signi\014can)m(tly)-8 b(,)26 b(but)h(are)f(not)h(included.)41 +b(The)27 b(second)h(to)m(y)e(mo)s(del)f(is)h(an)g(Ab)s(elian)f(v)m +(ector)i(one.)42 b(In)27 b(this)0 4217 y(option)32 b(g)f +Fn(!)e Fw(gg)34 b(branc)m(hings)g(are)f(absen)m(t,)i(and)f(g)c +Fn(!)f Fw(q)p 2085 4164 V(q)34 b(ones)h(enhanced.)47 +b(More)34 b(precisely)-8 b(,)34 b(in)f(the)0 4325 y(splitting)i(k)m +(ernels,)k(eq.)57 b(\(128\),)37 b(the)g(Casimir)e(factors)i(are)g(c)m +(hanged)h(as)f(follo)m(ws:)51 b Fj(C)3184 4340 y Fh(F)3277 +4325 y Fw(=)35 b(4)p Fj(=)p Fw(3)f Fn(!)h Fw(1,)0 4433 +y Fj(N)78 4448 y Fh(C)181 4433 y Fw(=)43 b(3)g Fn(!)g +Fw(0,)g Fj(T)711 4448 y Fh(R)813 4433 y Fw(=)g Fj(n)990 +4448 y Fh(f)1035 4433 y Fj(=)p Fw(2)g Fn(!)g Fw(3)p Fj(n)1426 +4448 y Fh(f)1471 4433 y Fw(.)71 b(When)43 b(using)e(either)h(of)f +(these)i(options,)h(one)e(should)f(b)s(e)0 4542 y(a)m(w)m(are)36 +b(that)e(also)g(a)g(n)m(um)m(b)s(er)h(of)g(other)f(comp)s(onen)m(ts)i +(in)e(principle)f(should)h(b)s(e)h(c)m(hanged,)i(from)c(the)0 +4650 y(running)c(of)f Fj(\013)529 4665 y Fl(s)590 4650 +y Fw(to)h(the)h(whole)f(concept)h(of)e(fragmen)m(tation.)41 +b(One)29 b(should)g(therefore)h(not)f(tak)m(e)h(them)0 +4758 y(to)s(o)i(seriously)-8 b(.)0 5032 y Fp(10.3)136 +b(Initial-State)47 b(Sho)l(w)l(ers)0 5205 y Fw(The)26 +b(initial-state)c(sho)m(w)m(e)k(algorithm)c(in)j Fm(Pythia)g +Fw(is)g(not)g(quite)g(as)g(sophisticated)g(as)h(the)f(\014nal-state)0 +5313 y(one.)71 b(This)42 b(is)g(partly)f(b)s(ecause)i(initial-state)38 +b(radiation)i(is)h(less)h(w)m(ell)f(understo)s(o)s(d)h(theoretically)-8 +b(,)0 5422 y(partly)46 b(b)s(ecause)i(the)f(programming)c(task)k(is)f +(more)g(complicated)f(and)h(am)m(biguous.)85 b(Still,)47 +b(the)0 5530 y(program)39 b(at)i(disp)s(osal)e(is)i(kno)m(wn)h(to)e(do) +h(a)g(reasonably)g(go)s(o)s(d)e(job)i(of)f(describing)h(existing)f +(data,)0 5638 y(suc)m(h)34 b(as)f(Z)400 5602 y Fl(0)471 +5638 y Fw(pro)s(duction)f(prop)s(erties)h(at)f(hadron)h(colliders)d +([Sj\177)-49 b(o85].)1817 5953 y(199)p eop +%%Page: 200 206 +200 205 bop 0 -18 a Fo(10.3.1)113 b(The)37 b(sho)m(w)m(er)h(structure)0 +154 y Fw(A)43 b(fast)f(hadron)h(ma)m(y)f(b)s(e)h(view)m(ed)h(as)e(a)h +(cloud)f(of)g(quasireal)g(partons.)74 b(Similarly)38 +b(a)k(fast)h(lepton)0 263 y(ma)m(y)30 b(b)s(e)h(view)m(ed)h(as)e +(surrounded)i(b)m(y)g(a)e(cloud)g(of)g(photons)h(and)g(partons;)g(in)f +(the)h(program)e(the)i(t)m(w)m(o)0 371 y(situations)36 +b(are)h(on)g(an)g(equal)f(fo)s(oting,)h(but)g(here)h(w)m(e)g(c)m(ho)s +(ose)g(the)f(hadron)g(as)g(example.)56 b(A)m(t)38 b(eac)m(h)0 +479 y(instan)m(t,)g(an)f(individual)d(parton)j(can)g(initiate)d(a)j +(virtual)e(cascade,)k(branc)m(hing)e(in)m(to)f(a)h(n)m(um)m(b)s(er)g +(of)0 588 y(partons.)73 b(This)42 b(cascade)i(can)e(b)s(e)h(describ)s +(ed)g(in)e(terms)h(of)g(a)g(tree-lik)m(e)g(structure,)k(comp)s(osed)c +(of)0 696 y(man)m(y)c(subsequen)m(t)k(branc)m(hings)c +Fj(a)g Fn(!)f Fj(bc)p Fw(.)60 b(Eac)m(h)40 b(branc)m(hing)e(in)m(v)m +(olv)m(es)h(some)f(relativ)m(e)f(transv)m(erse)0 804 +y(momen)m(tum)25 b(b)s(et)m(w)m(een)j(the)f(t)m(w)m(o)g(daugh)m(ters.) +43 b(In)26 b(a)g(language)g(where)h(four-momen)m(tum)d(is)i(conserv)m +(ed)0 913 y(at)j(eac)m(h)g(v)m(ertex,)j(this)c(implies)f(that)i(at)f +(least)h(one)g(of)f(the)h Fj(b)h Fw(and)f Fj(c)g Fw(partons)g(m)m(ust)g +(ha)m(v)m(e)h(a)f(space-lik)m(e)0 1021 y(virtualit)m(y)-8 +b(,)34 b Fj(m)538 985 y Fl(2)609 1021 y Fj(<)e Fw(0.)50 +b(Since)35 b(the)g(partons)h(are)f(not)f(on)h(the)g(mass)g(shell,)g +(the)h(cascade)g(only)e(liv)m(es)h(a)0 1129 y(\014nite)28 +b(time)e(b)s(efore)i(reassem)m(bling,)g(with)g(those)g(parts)g(of)g +(the)g(cascade)h(that)f(are)f(most)h(o\013)f(the)i(mass)0 +1238 y(shell)j(living)e(the)j(shortest)h(time.)146 1346 +y(A)i(hard)g(scattering,)h(e.g.)54 b(in)35 b(deep)i(inelastic)d +(leptopro)s(duction,)i(will)e(prob)s(e)i(the)g(hadron)g(at)g(a)0 +1454 y(giv)m(en)g(instan)m(t.)53 b(The)37 b(prob)s(e,)g(i.e.)52 +b(the)37 b(virtual)d(photon)i(in)f(the)h(leptopro)s(duction)f(case,)i +(is)f(able)f(to)0 1563 y(resolv)m(e)d(\015uctuations)f(in)g(the)h +(hadron)f(up)h(to)f(the)h Fj(Q)1960 1527 y Fl(2)2031 +1563 y Fw(scale)f(of)g(the)h(hard)f(scattering.)43 b(Th)m(us)33 +b(prob)s(es)0 1671 y(at)h(di\013eren)m(t)h Fj(Q)585 1635 +y Fl(2)660 1671 y Fw(v)-5 b(alues)34 b(will)f(seem)i(to)f(see)i +(di\013eren)m(t)f(parton)g(comp)s(ositions)d(in)i(the)i(hadron.)50 +b(The)0 1779 y(c)m(hange)33 b(in)f(parton)h(comp)s(osition)d(with)i +Fj(t)c Fw(=)f(ln\()p Fj(Q)1881 1743 y Fl(2)1920 1779 +y Fj(=)p Fw(\003)2037 1743 y Fl(2)2076 1779 y Fw(\))33 +b(is)f(giv)m(en)h(b)m(y)g(the)g(ev)m(olution)f(equations)903 +1967 y(d)p Fj(f)1005 1982 y Fh(b)1039 1967 y Fw(\()p +Fj(x;)17 b(t)p Fw(\))p 903 2012 347 4 v 1031 2103 a(d)p +Fj(t)1287 2035 y Fw(=)1391 1952 y Fg(X)1407 2126 y Fh(a;c)1527 +1918 y Fg(Z)1637 1967 y Fw(d)p Fj(x)1746 1931 y Fk(0)p +1637 2012 133 4 v 1664 2103 a Fj(x)1719 2074 y Fk(0)1796 +2035 y Fj(f)1844 2050 y Fh(a)1886 2035 y Fw(\()p Fj(x)1979 +1994 y Fk(0)2003 2035 y Fj(;)g(t)p Fw(\))2146 1967 y +Fj(\013)2208 1982 y Fh(abc)p 2146 2012 165 4 v 2175 2103 +a Fw(2)p Fj(\031)2337 2035 y(P)2400 2050 y Fh(a)p Fk(!)p +Fh(bc)2590 1914 y Fg(\022)2672 1967 y Fj(x)p 2661 2012 +79 4 v 2661 2103 a(x)2716 2074 y Fk(0)2749 1914 y Fg(\023)2860 +2035 y Fj(:)670 b Fw(\(145\))0 2311 y(Here)24 b(the)f +Fj(f)427 2326 y Fh(i)456 2311 y Fw(\()p Fj(x;)17 b(t)p +Fw(\))23 b(are)g(the)h(parton-distribution)c(functions,)25 +b(expressing)g(the)e(probabilit)m(y)e(of)i(\014nding)0 +2419 y(a)h(parton)f Fj(i)h Fw(carrying)f(a)h(fraction)e +Fj(x)j Fw(of)e(the)h(total)e(momen)m(tum)h(if)f(the)j(hadron)e(is)h +(prob)s(ed)g(at)f(virtualit)m(y)0 2527 y Fj(Q)77 2491 +y Fl(2)117 2527 y Fw(.)52 b(The)37 b Fj(P)463 2542 y +Fh(a)p Fk(!)p Fh(bc)636 2527 y Fw(\()p Fj(z)t Fw(\))f(are)g(giv)m(en)g +(in)e(eq.)j(\(128\).)52 b(As)36 b(b)s(efore,)h Fj(\013)2330 +2542 y Fh(abc)2468 2527 y Fw(is)e Fj(\013)2631 2542 y +Fl(s)2698 2527 y Fw(for)h(QCD)f(sho)m(w)m(er)i(and)f +Fj(\013)3685 2542 y Fl(em)0 2636 y Fw(for)c(QED)g(ones.)146 +2744 y(Eq.)41 b(\(145\))d(is)i(closely)f(related)g(to)g(eq.)h(\(127\):) +57 b(d)p Fn(P)2066 2759 y Fh(a)2148 2744 y Fw(describ)s(es)40 +b(the)g(probabilit)m(y)e(that)h(a)g(giv)m(en)0 2852 y(parton)25 +b Fj(a)g Fw(will)e(branc)m(h)k(\(in)m(to)d(partons)i +Fj(b)f Fw(and)h Fj(c)p Fw(\),)g(d)p Fj(f)1934 2867 y +Fh(b)1994 2852 y Fw(the)g(in\015ux)f(of)g(partons)h Fj(b)f +Fw(from)f(the)i(branc)m(hings)0 2961 y(of)31 b(partons)h +Fj(a)p Fw(.)43 b(\(The)32 b(expression)h(d)p Fj(f)1391 +2976 y Fh(b)1457 2961 y Fw(in)e(principle)e(also)i(should)g(con)m(tain) +g(a)g(loss)g(term)g(for)g(partons)0 3069 y Fj(b)47 b +Fw(that)f(branc)m(h;)55 b(this)46 b(term)g(is)g(imp)s(ortan)m(t)f(for)h +(parton-distribution)e(ev)m(olution,)49 b(but)e(do)s(es)g(not)0 +3177 y(app)s(ear)35 b(explicitly)e(in)h(what)i(w)m(e)g(shall)d(b)s(e)j +(using)e(eq.)52 b(\(145\))34 b(for.\))50 b(The)36 b(absolute)f(form)f +(of)g(hadron)0 3286 y(parton)44 b(distributions)f(cannot)i(b)s(e)g +(predicted)g(in)f(p)s(erturbativ)m(e)g(QCD,)h(but)g(rather)f(ha)m(v)m +(e)i(to)e(b)s(e)0 3394 y(parametrized)c(at)h(some)g Fj(Q)1057 +3409 y Fl(0)1137 3394 y Fw(scale,)j(with)c(the)i Fj(Q)1893 +3358 y Fl(2)1973 3394 y Fw(dep)s(endence)i(thereafter)d(giv)m(en)g(b)m +(y)h(eq.)g(\(145\).)0 3502 y(Av)-5 b(ailable)36 b(parametrizations)h +(are)i(discussed)h(in)e(section)h(7.1.)62 b(The)40 b(lepton)e(and)h +(photon)g(parton)0 3611 y(distributions)30 b(inside)g(a)h(lepton)f(can) +h(b)s(e)h(fully)d(predicted,)j(but)f(here)h(for)f(simplicit)m(y)d(are)j +(treated)h(on)0 3719 y(equal)g(fo)s(oting)f(with)h(hadron)h(parton)f +(distributions.)146 3827 y(If)42 b(a)f(hard)h(in)m(teraction)f +(scatters)h(a)g(parton)f(out)h(of)f(the)h(incoming)d(hadron,)44 +b(the)e(`coherence')0 3936 y([Gri83)n(])c(of)e(the)i(cascade)h(is)e +(brok)m(en:)54 b(the)38 b(partons)f(can)h(no)f(longer)f(reassem)m(ble)i +(completely)e(bac)m(k)0 4044 y(to)h(the)h(cascade-initiating)c(parton.) +57 b(In)38 b(this)f(semiclassical)e(picture,)j(the)g(partons)f(on)g +(the)h(`main)0 4152 y(c)m(hain')31 b(of)g(consecutiv)m(e)i(branc)m +(hings)e(that)g(lead)g(directly)f(from)g(the)i(initiating)27 +b(parton)k(to)g(the)g(scat-)0 4261 y(tered)f(parton)f(can)h(no)g +(longer)e(reassem)m(ble,)j(whereas)g(\015uctuations)e(on)h(the)g(`side) +f(branc)m(hes')j(to)d(this)0 4369 y(c)m(hain)k(ma)m(y)g(still)f(disapp) +s(ear.)45 b(A)34 b(con)m(v)m(enien)m(t)h(description)e(is)g(obtained)g +(b)m(y)h(assigning)e(a)i(space-lik)m(e)0 4478 y(virtualit)m(y)h(to)h +(the)g(partons)h(on)f(the)h(main)e(c)m(hain,)i(in)e(suc)m(h)j(a)e(w)m +(a)m(y)i(that)e(the)h(partons)f(on)h(the)f(side)0 4586 +y(branc)m(hes)29 b(ma)m(y)f(still)d(b)s(e)i(on)h(the)g(mass)f(shell.)41 +b(Since)28 b(the)g(momen)m(tum)e(transfer)i(of)f(the)h(hard)f(pro)s +(cess)0 4694 y(can)36 b(put)h(the)g(scattered)g(parton)f(on)g(the)h +(mass)f(shell)f(\(or)h(ev)m(en)i(giv)m(e)e(it)f(a)h(time-lik)m(e)e +(virtualit)m(y)-8 b(,)35 b(so)0 4803 y(that)h(it)g(can)g(initiate)e(a)j +(\014nal-state)e(sho)m(w)m(er\),)k(one)e(is)f(then)h(guaran)m(teed)h +(that)e(no)g(partons)h(ha)m(v)m(e)h(a)0 4911 y(space-lik)m(e)g +(virtualit)m(y)f(in)h(the)h(\014nal)e(state.)62 b(\(In)39 +b(real)e(life,)i(con\014nemen)m(t)g(e\013ects)h(ob)m(viously)e(imply)0 +5019 y(that)31 b(partons)h(need)h(not)e(b)s(e)h(quite)f(on)g(the)h +(mass)g(shell.\))42 b(If)31 b(no)h(hard)f(scattering)h(had)f(tak)m(en)i +(place,)0 5128 y(the)39 b(virtualit)m(y)e(of)i(the)g(space-lik)m(e)g +(parton)f(line)g(w)m(ould)g(still)f(force)i(the)g(complete)f(cascade)i +(to)f(re-)0 5236 y(assem)m(ble.)45 b(Since)34 b(the)f(virtualit)m(y)f +(of)g(the)i(cascade)g(prob)s(ed)g(is)e(carried)h(b)m(y)h(one)g(single)e +(parton,)h(it)f(is)0 5344 y(p)s(ossible)27 b(to)h(equate)g(the)h +(space-lik)m(e)e(virtualit)m(y)f(of)i(this)f(parton)h(with)f(the)h +Fj(Q)2866 5308 y Fl(2)2934 5344 y Fw(scale)g(of)f(the)h(cascade,)0 +5453 y(to)g(b)s(e)h(used)h(e.g.)42 b(in)28 b(the)h(ev)m(olution)e +(equations.)43 b(F)-8 b(urther,)29 b(coherence)h(e\013ects)g([Gri83)n +(,)f(Bas83])f(guar-)0 5561 y(an)m(tee)38 b(that)g(the)g +Fj(Q)729 5525 y Fl(2)806 5561 y Fw(v)-5 b(aules)37 b(of)h(the)g +(partons)f(along)g(the)h(main)d(c)m(hain)j(are)f(strictly)g(ordered,)j +(with)0 5669 y(the)33 b(largest)f Fj(Q)560 5633 y Fl(2)632 +5669 y Fw(v)-5 b(alues)33 b(close)f(to)g(the)h(hard)g(scattering.)1817 +5953 y(200)p eop +%%Page: 201 207 +201 206 bop 146 -18 a Fw(In)40 b(recen)m(t)h(y)m(ears,)i(further)d +(coherence)i(e\013ects)f(ha)m(v)m(e)g(b)s(een)f(studied)g([Cia87)o(],)i +(with)d(particular)0 90 y(implications)h(for)k(the)g(structure)h(of)f +(parton)g(sho)m(w)m(ers)i(at)d(small)f Fj(x)p Fw(.)78 +b(None)45 b(of)e(these)i(additional)0 198 y(complications)f(are)j +(implemen)m(ted)e(in)h(the)h(curren)m(t)h(algorithm,)f(with)f(the)h +(exception)g(of)g(a)f(few)0 307 y(rather)33 b(primitiv)m(e)d(options)i +(that)g(do)h(not)f(address)i(the)f(full)e(complexit)m(y)h(of)g(the)h +(problem.)146 415 y(Instead)38 b(of)e(ha)m(ving)g(a)g(tree-lik)m(e)f +(structure,)k(where)e(all)e(legs)h(are)g(treated)h(demo)s(cratically)-8 +b(,)34 b(the)0 523 y(cascade)h(is)e(reduced)i(to)f(a)f(single)g +(sequence)j(of)d(branc)m(hings)h Fj(a)c Fn(!)f Fj(bc)p +Fw(,)35 b(where)f(the)h Fj(a)e Fw(and)h Fj(b)g Fw(partons)0 +632 y(are)k(on)h(the)g(main)e(c)m(hain)h(of)g(space-lik)m(e)g +(virtualit)m(y)-8 b(,)39 b Fj(m)2102 595 y Fl(2)2102 +656 y Fh(a;b)2231 632 y Fj(<)f Fw(0,)h(while)f(the)h +Fj(c)f Fw(partons)h(are)g(on)f(the)0 752 y(mass)g(shell)f(and)h(do)f +(not)h(branc)m(h.)60 b(\(Later)37 b(w)m(e)i(will)d(include)h(the)h(p)s +(ossibilit)m(y)e(that)h(the)i Fj(c)e Fw(partons)0 860 +y(ma)m(y)d(ha)m(v)m(e)h(p)s(ositiv)m(e)e(virtualities,)f +Fj(m)1406 824 y Fl(2)1406 885 y Fh(c)1476 860 y Fj(>)d +Fw(0,)34 b(whic)m(h)h(leads)f(to)f(the)h(app)s(earance)h(of)e(time-lik) +m(e)f(`\014nal-)0 969 y(state')24 b(parton)g(sho)m(w)m(ers)i(on)e(the)g +(side)g(branc)m(hes.\))42 b(This)24 b(truncation)f(of)g(the)i(cascade)g +(is)e(only)g(p)s(ossible)0 1077 y(when)28 b(it)e(is)g(kno)m(wn)j(whic)m +(h)e(parton)g(actually)e(partak)m(es)k(in)d(the)h(hard)g(scattering:)40 +b(of)27 b(all)e(the)i(p)s(ossible)0 1186 y(cascades)34 +b(that)f(exist)g(virtually)d(in)i(the)h(incoming)d(hadron,)j(the)g +(hard)g(scattering)f(will)e(select)j(one.)146 1294 y(T)-8 +b(o)32 b(obtain)g(the)g(correct)h Fj(Q)1162 1258 y Fl(2)1234 +1294 y Fw(ev)m(olution)e(of)g(parton)h(distributions,)f(e.g.,)i(it)e +(is)h(essen)m(tial)g(that)g(all)0 1402 y(branc)m(hes)38 +b(of)e(the)g(cascade)i(b)s(e)e(treated)h(demo)s(cratically)-8 +b(.)52 b(In)36 b(Mon)m(te)h(Carlo)f(sim)m(ulation)d(of)j(space-)0 +1511 y(lik)m(e)28 b(sho)m(w)m(ers)j(this)e(is)g(a)f(ma)5 +b(jor)28 b(problem.)41 b(If)29 b(indeed)g(the)h(ev)m(olution)e(of)g +(the)i(complete)e(cascade)i(is)f(to)0 1619 y(b)s(e)g(follo)m(w)m(ed)f +(from)f(some)i(small)d Fj(Q)1297 1583 y Fl(2)1297 1644 +y(0)1365 1619 y Fw(up)j(to)f(the)i Fj(Q)1859 1583 y Fl(2)1927 +1619 y Fw(scale)e(of)h(the)g(hard)f(scattering,)i(it)d(is)i(no)f(p)s +(ossible)0 1727 y(at)j(the)g(same)g(time)f(to)h(handle)g(kinematics)f +(exactly)-8 b(,)32 b(since)g(the)f(virtualit)m(y)f(of)g(the)i(v)-5 +b(arious)30 b(partons)0 1836 y(cannot)35 b(b)s(e)g(found)g(un)m(til)e +(after)i(the)g(hard)g(scattering)f(has)i(b)s(een)f(selected.)51 +b(This)35 b(kind)g(of)f(`forw)m(ard)0 1944 y(ev)m(olution')24 +b(sc)m(heme)i(therefore)g(requires)g(a)f(n)m(um)m(b)s(er)g(of)f(extra)i +(tric)m(ks)f(to)g(b)s(e)g(made)g(to)f(w)m(ork.)42 b(F)-8 +b(urther,)0 2052 y(in)31 b(this)g(approac)m(h)h(it)f(is)g(not)h(kno)m +(wn)h(e.g.)43 b(what)32 b(the)k(^)-53 b Fj(s)32 b Fw(of)f(the)h(hard)g +(scattering)f(subsystem)j(will)29 b(b)s(e)0 2161 y(un)m(til)g(the)i(ev) +m(olution)e(has)i(b)s(een)g(carried)f(out,)g(whic)m(h)h(means)g(that)f +(the)g(initial-state)d(ev)m(olution)i(and)0 2269 y(the)k(hard)g +(scattering)f(ha)m(v)m(e)i(to)e(b)s(e)h(selected)h(join)m(tly)-8 +b(,)31 b(a)h(not)g(so)h(trivial)d(task.)146 2377 y(Instead)24 +b(w)m(e)g(use)g(the)g(`bac)m(kw)m(ards)h(ev)m(olution')d(approac)m(h)h +([Sj\177)-49 b(o85],)25 b(in)d(whic)m(h)h(the)h(hard)f(scattering)0 +2486 y(is)41 b(\014rst)g(selected,)j(and)d(the)h(parton)f(sho)m(w)m(er) +h(that)f(preceded)i(it)d(is)h(subsequen)m(tly)i(reconstructed.)0 +2594 y(This)37 b(reconstruction)g(is)g(started)g(at)g(the)g(hard)g(in)m +(teraction,)g(at)f(the)h Fj(Q)2732 2558 y Fl(2)2732 2619 +y(max)2905 2594 y Fw(scale,)h(and)f(thereafter)0 2702 +y(step)k(b)m(y)h(step)f(one)g(mo)m(v)m(es)h(`bac)m(kw)m(ards')g(in)e +(`time',)i(to)m(w)m(ards)f(smaller)e Fj(Q)2823 2666 y +Fl(2)2862 2702 y Fw(,)k(all)c(the)h(w)m(a)m(y)i(bac)m(k)g(to)0 +2811 y(the)36 b(parton-sho)m(w)m(er)g(initiator)c(at)j(the)g(cut-o\013) +g(scale)g Fj(Q)2104 2775 y Fl(2)2104 2835 y(0)2144 2811 +y Fw(.)51 b(This)36 b(pro)s(cedure)g(is)f(p)s(ossible)f(if)g(ev)m(olv)m +(ed)0 2919 y(parton)43 b(distributions)f(are)h(used)i(to)e(select)h +(the)g(hard)f(scattering,)j(since)e(the)g Fj(f)3105 2934 +y Fh(i)3133 2919 y Fw(\()p Fj(x;)17 b(Q)3347 2883 y Fl(2)3387 +2919 y Fw(\))43 b(con)m(tain)0 3027 y(the)c(inclusiv)m(e)f(summation)f +(of)h(all)e(initial-state)f(parton-sho)m(w)m(er)40 b(histories)e(that)g +(can)h(lead)f(to)g(the)0 3136 y(app)s(earance)f(of)e(an)h(in)m +(teracting)g(parton)f Fj(i)i Fw(at)f(the)g(hard)g(scale.)55 +b(What)36 b(remains)f(is)h(th)m(us)h(to)f(select)0 3244 +y(an)c(exclusiv)m(e)i(history)f(from)e(the)i(set)g(of)f(inclusiv)m(e)g +(ones.)0 3492 y Fo(10.3.2)113 b(Longitudinal)36 b(ev)m(olution)0 +3664 y Fw(The)43 b(ev)m(olution)f(equations,)j(eq.)e(\(145\),)i +(express)f(that,)h(during)d(a)g(small)e(increase)j(d)p +Fj(t)g Fw(there)g(is)f(a)0 3773 y(probabilit)m(y)f(for)h(parton)g +Fj(a)h Fw(with)f(momen)m(tum)f(fraction)h Fj(x)2266 3737 +y Fk(0)2332 3773 y Fw(to)h(b)s(ecome)f(resolv)m(ed)i(in)m(to)e(parton)g +Fj(b)0 3881 y Fw(at)c Fj(x)f Fw(=)g Fj(z)t(x)434 3845 +y Fk(0)496 3881 y Fw(and)h(another)g(parton)g Fj(c)g +Fw(at)f Fj(x)1633 3845 y Fk(0)1683 3881 y Fn(\000)26 +b Fj(x)38 b Fw(=)e(\(1)26 b Fn(\000)g Fj(z)t Fw(\))p +Fj(x)2349 3845 y Fk(0)2374 3881 y Fw(.)59 b(Corresp)s(ondingly)-8 +b(,)39 b(in)e(bac)m(kw)m(ards)0 3989 y(ev)m(olution,)28 +b(during)f(a)h(decrease)h(d)p Fj(t)f Fw(a)g(parton)g +Fj(b)g Fw(ma)m(y)f(b)s(e)h(`unresolv)m(ed')i(in)m(to)d(parton)g +Fj(a)p Fw(.)42 b(The)29 b(relativ)m(e)0 4098 y(probabilit)m(y)23 +b(d)p Fn(P)614 4113 y Fh(b)674 4098 y Fw(for)i(this)g(to)g(happ)s(en)h +(is)f(giv)m(en)g(b)m(y)i(the)e(ratio)f(d)p Fj(f)2403 +4113 y Fh(b)2438 4098 y Fj(=f)2535 4113 y Fh(b)2569 4098 +y Fw(.)41 b(Using)25 b(eq.)h(\(145\))e(one)i(obtains)649 +4373 y(d)p Fn(P)772 4388 y Fh(b)835 4373 y Fw(=)948 4305 +y(d)p Fj(f)1050 4320 y Fh(b)1085 4305 y Fw(\()p Fj(x;)17 +b(t)p Fw(\))p 948 4350 347 4 v 975 4441 a Fj(f)1023 4456 +y Fh(b)1058 4441 y Fw(\()p Fj(x;)g(t)p Fw(\))1333 4373 +y(=)27 b Fn(j)p Fw(d)p Fj(t)p Fn(j)1614 4290 y Fg(X)1630 +4464 y Fh(a;c)1751 4256 y Fg(Z)1860 4305 y Fw(d)p Fj(x)1969 +4269 y Fk(0)p 1860 4350 133 4 v 1888 4441 a Fj(x)1943 +4412 y Fk(0)2030 4305 y Fj(f)2078 4320 y Fh(a)2120 4305 +y Fw(\()p Fj(x)2213 4269 y Fk(0)2236 4305 y Fj(;)17 b(t)p +Fw(\))p 2030 4350 324 4 v 2045 4441 a Fj(f)2093 4456 +y Fh(b)2128 4441 y Fw(\()p Fj(x;)g(t)p Fw(\))2390 4305 +y Fj(\013)2452 4320 y Fh(abc)p 2390 4350 165 4 v 2418 +4441 a Fw(2)p Fj(\031)2581 4373 y(P)2644 4388 y Fh(a)p +Fk(!)p Fh(bc)2833 4252 y Fg(\022)2916 4305 y Fj(x)p 2904 +4350 79 4 v 2904 4441 a(x)2959 4412 y Fk(0)2993 4252 +y Fg(\023)3103 4373 y Fj(:)427 b Fw(\(146\))0 4662 y(Summing)30 +b(up)i(the)g(cum)m(ulativ)m(e)g(e\013ect)g(of)g(man)m(y)f(small)f(c)m +(hanges)j(d)p Fj(t)p Fw(,)g(the)f(probabilit)m(y)e(for)h(no)h(radi-)0 +4771 y(ation)f(exp)s(onen)m(tiates.)45 b(Therefore)34 +b(one)e(ma)m(y)h(de\014ne)h(a)e(form)f(factor)310 5048 +y Fj(S)370 5063 y Fh(b)404 5048 y Fw(\()p Fj(x;)17 b(t)576 +5063 y Fl(max)712 5048 y Fj(;)g(t)p Fw(\))83 b(=)g(exp)1236 +4901 y Fg(\()1303 5048 y Fn(\000)1397 4930 y Fg(Z)1480 +4957 y Fh(t)1505 4965 y Ff(max)1443 5119 y Fh(t)1643 +5048 y Fw(d)p Fj(t)1732 5006 y Fk(0)1789 4965 y Fg(X)1805 +5139 y Fh(a;c)1925 4930 y Fg(Z)2035 4980 y Fw(d)p Fj(x)2144 +4944 y Fk(0)p 2035 5024 133 4 v 2062 5116 a Fj(x)2117 +5087 y Fk(0)2204 4980 y Fj(f)2252 4995 y Fh(a)2294 4980 +y Fw(\()p Fj(x)2387 4944 y Fk(0)2411 4980 y Fj(;)17 b(t)2490 +4944 y Fk(0)2513 4980 y Fw(\))p 2204 5024 347 4 v 2219 +5116 a Fj(f)2267 5131 y Fh(b)2302 5116 y Fw(\()p Fj(x;)g(t)2474 +5087 y Fk(0)2498 5116 y Fw(\))2588 4980 y Fj(\013)2650 +4995 y Fh(abc)2752 4980 y Fw(\()p Fj(t)2825 4944 y Fk(0)2848 +4980 y Fw(\))p 2588 5024 299 4 v 2683 5116 a(2)p Fj(\031)2913 +5048 y(P)2976 5063 y Fh(a)p Fk(!)p Fh(bc)3165 4926 y +Fg(\022)3248 4980 y Fj(x)p 3236 5024 79 4 v 3236 5116 +a(x)3291 5087 y Fk(0)3325 4926 y Fg(\023)3386 4901 y(\))912 +5343 y Fw(=)83 b(exp)1236 5197 y Fg(\()1303 5343 y Fn(\000)1397 +5226 y Fg(Z)1480 5252 y Fh(t)1505 5260 y Ff(max)1443 +5414 y Fh(t)1643 5343 y Fw(d)p Fj(t)1732 5302 y Fk(0)1789 +5260 y Fg(X)1805 5434 y Fh(a;c)1925 5226 y Fg(Z)2025 +5343 y Fw(d)p Fj(z)2156 5275 y(\013)2218 5290 y Fh(abc)2320 +5275 y Fw(\()p Fj(t)2393 5239 y Fk(0)2416 5275 y Fw(\))p +2156 5319 299 4 v 2251 5411 a(2)p Fj(\031)2481 5343 y(P)2544 +5358 y Fh(a)p Fk(!)p Fh(bc)2717 5343 y Fw(\()p Fj(z)t +Fw(\))2869 5275 y Fj(x)2924 5239 y Fk(0)2948 5275 y Fj(f)2996 +5290 y Fh(a)3037 5275 y Fw(\()p Fj(x)3130 5239 y Fk(0)3154 +5275 y Fj(;)17 b(t)3233 5239 y Fk(0)3256 5275 y Fw(\))p +2869 5319 426 4 v 2896 5411 a Fj(xf)2999 5426 y Fh(b)3034 +5411 y Fw(\()p Fj(x;)g(t)3206 5382 y Fk(0)3229 5411 y +Fw(\))3304 5197 y Fg(\))3420 5343 y Fj(;)110 b Fw(\(147\))0 +5632 y(giving)31 b(the)i(probabilit)m(y)e(that)h(a)g(parton)h +Fj(b)f Fw(remains)g(at)g Fj(x)h Fw(from)f Fj(t)2474 5647 +y Fl(max)2642 5632 y Fw(to)g(a)g Fj(t)c(<)g(t)3044 5647 +y Fl(max)3180 5632 y Fw(.)1817 5953 y(201)p eop +%%Page: 202 208 +202 207 bop 146 -18 a Fw(It)36 b(ma)m(y)f(b)s(e)h(useful)f(to)g +(compare)g(this)h(with)f(the)h(corresp)s(onding)f(expression)i(for)e +(forw)m(ard)g(ev)m(o-)0 90 y(lution,)44 b(i.e.)74 b(with)42 +b Fj(S)813 105 y Fh(a)855 90 y Fw(\()p Fj(t)p Fw(\))h(in)f(eq.)i +(\(130\).)74 b(The)44 b(most)e(ob)m(vious)h(di\013erence)h(is)e(the)h +(app)s(earance)h(of)0 198 y(parton)39 b(distributions)e(in)i +Fj(S)1078 213 y Fh(b)1112 198 y Fw(.)63 b(P)m(arton)39 +b(distributions)e(are)i(absen)m(t)i(in)d Fj(S)2771 213 +y Fh(a)2813 198 y Fw(:)56 b(the)39 b(probabilit)m(y)e(for)i(a)0 +307 y(giv)m(en)c(parton)g Fj(a)g Fw(to)f(branc)m(h,)i(once)g(it)e +(exists,)i(is)e(indep)s(enden)m(t)j(of)d(the)h(densit)m(y)h(of)e +(partons)h Fj(a)g Fw(or)g Fj(b)p Fw(.)0 415 y(The)i(parton)f +(distributions)f(in)g Fj(S)1273 430 y Fh(b)1307 415 y +Fw(,)j(on)e(the)g(other)h(hand,)g(express)h(the)f(fact)f(that)g(the)g +(probabilit)m(y)0 523 y(for)30 b(a)h(parton)g Fj(b)g +Fw(to)g(come)g(from)e(the)j(branc)m(hing)f(of)f(a)h(parton)g +Fj(a)g Fw(is)f(prop)s(ortional)f(to)h(the)i(n)m(um)m(b)s(er)f(of)0 +632 y(partons)f Fj(a)h Fw(there)g(are)f(in)f(the)i(hadron,)g(and)f(in)m +(v)m(ersely)h(prop)s(ortional)d(to)i(the)g(n)m(um)m(b)s(er)h(of)f +(partons)g Fj(b)p Fw(.)0 740 y(Th)m(us)39 b(the)e(n)m(umerator)g +Fj(f)951 755 y Fh(a)1030 740 y Fw(in)g(the)g(exp)s(onen)m(tial)g(of)g +Fj(S)2025 755 y Fh(b)2096 740 y Fw(ensures)i(that)e(the)h(parton)f +(comp)s(osition)e(of)0 848 y(the)30 b(hadron)f(is)f(prop)s(erly)h +(re\015ected.)44 b(As)30 b(an)f(example,)g(when)i(a)d(gluon)h(is)f(c)m +(hosen)j(at)e(the)g(hard)g(scat-)0 957 y(tering)h(and)h(ev)m(olv)m(ed)h +(bac)m(kw)m(ards,)i(this)c(gluon)g(is)h(more)f(lik)m(ely)g(to)g(ha)m(v) +m(e)i(b)s(een)g(emitted)e(b)m(y)i(a)e(u)h(than)0 1065 +y(b)m(y)37 b(a)f(d)g(if)e(the)j(incoming)c(hadron)j(is)g(a)g(proton.)53 +b(Similarly)-8 b(,)33 b(if)h(a)i(hea)m(vy)i(\015a)m(v)m(our)e(is)g(c)m +(hosen)h(at)f(the)0 1173 y(hard)e(scattering,)h(the)g(denominator)e +Fj(f)1498 1188 y Fh(b)1566 1173 y Fw(will)f(v)-5 b(anish)35 +b(at)f(the)g Fj(Q)2423 1137 y Fl(2)2497 1173 y Fw(threshold)h(of)f(the) +g(hea)m(vy-\015a)m(v)m(our)0 1282 y(pro)s(duction,)40 +b(whic)m(h)g(means)g(that)f(the)h(in)m(tegrand)f(div)m(erges)h(and)f +Fj(S)2596 1297 y Fh(b)2670 1282 y Fw(itself)f(v)-5 b(anishes,)42 +b(so)d(that)h(no)0 1390 y(hea)m(vy)34 b(\015a)m(v)m(our)g(remain)d(b)s +(elo)m(w)h(threshold.)146 1498 y(Another)44 b(di\013erence)f(b)s(et)m +(w)m(een)i Fj(S)1432 1513 y Fh(b)1509 1498 y Fw(and)e +Fj(S)1769 1513 y Fh(a)1811 1498 y Fw(,)i(already)e(touc)m(hed)h(up)s +(on,)h(is)e(that)f(the)h Fj(P)3471 1513 y Fl(g)q Fk(!)p +Fl(gg)3654 1498 y Fw(\()p Fj(z)t Fw(\))0 1607 y(splitting)37 +b(k)m(ernel)j(app)s(ears)f(with)g(a)f(normalization)e(2)p +Fj(N)2121 1622 y Fh(C)2219 1607 y Fw(in)i Fj(S)2399 1622 +y Fh(b)2472 1607 y Fw(but)i(only)e(with)h Fj(N)3185 1622 +y Fh(C)3283 1607 y Fw(in)g Fj(S)3464 1622 y Fh(a)3505 +1607 y Fw(,)i(since)0 1715 y(t)m(w)m(o)33 b(gluons)f(are)h(pro)s(duced) +g(but)g(only)f(one)h(deca)m(ys)i(in)c(a)i(branc)m(hing.)146 +1823 y(A)40 b(kno)m(wledge)h(of)f Fj(S)917 1838 y Fh(b)991 +1823 y Fw(is)g(enough)g(to)g(reconstruct)h(the)g(parton)e(sho)m(w)m(er) +j(bac)m(kw)m(ards.)68 b(A)m(t)41 b(eac)m(h)0 1932 y(branc)m(hing)31 +b Fj(a)d Fn(!)g Fj(bc)p Fw(,)k(three)g(quan)m(tities)f(ha)m(v)m(e)i(to) +e(b)s(e)h(found:)43 b(the)32 b Fj(t)g Fw(v)-5 b(alue)31 +b(of)g(the)h(branc)m(hing)f(\(whic)m(h)0 2040 y(de\014nes)42 +b(the)e(space-lik)m(e)h(virtualit)m(y)d Fj(Q)1466 2004 +y Fl(2)1466 2065 y Fh(b)1546 2040 y Fw(of)i(parton)f +Fj(b)p Fw(\),)k(the)e(parton)e(\015a)m(v)m(our)j Fj(a)e +Fw(and)g(the)h(splitting)0 2148 y(v)-5 b(ariable)31 b +Fj(z)t Fw(.)44 b(This)33 b(information)c(ma)m(y)k(b)s(e)f(extracted)i +(as)f(follo)m(ws:)119 2261 y(1.)49 b(If)31 b(parton)g +Fj(b)h Fw(parto)s(ok)f(in)f(the)i(hard)f(scattering)g(or)g(branc)m(hed) +i(in)m(to)e(other)g(partons)h(at)e(a)h(scale)244 2370 +y Fj(t)279 2385 y Fl(max)415 2370 y Fw(,)f(the)f(probabilit)m(y)f(that) +h Fj(b)h Fw(w)m(as)g(pro)s(duced)g(in)e(a)i(branc)m(hing)f +Fj(a)f Fn(!)f Fj(bc)j Fw(at)f(a)g(lo)m(w)m(er)g(scale)g +Fj(t)h Fw(is)347 2577 y(d)p Fn(P)470 2592 y Fh(b)p 347 +2621 158 4 v 381 2713 a Fw(d)p Fj(t)543 2644 y Fw(=)d +Fn(\000)733 2577 y Fw(d)p Fj(S)847 2592 y Fh(b)882 2577 +y Fw(\()p Fj(x;)17 b(t)1054 2592 y Fl(max)1190 2577 y +Fj(;)g(t)p Fw(\))p 733 2621 574 4 v 975 2713 a(d)p Fj(t)1344 +2644 y Fw(=)1448 2498 y Fg( )1514 2561 y(X)1530 2736 +y Fh(a;c)1650 2527 y Fg(Z)1750 2644 y Fj(dz)1877 2577 +y(\013)1939 2592 y Fh(abc)2041 2577 y Fw(\()p Fj(t)2114 +2541 y Fk(0)2138 2577 y Fw(\))p 1877 2621 299 4 v 1972 +2713 a(2)p Fj(\031)2202 2644 y(P)2265 2659 y Fh(a)p Fk(!)p +Fh(bc)2438 2644 y Fw(\()p Fj(z)t Fw(\))2590 2577 y Fj(x)2645 +2541 y Fk(0)2669 2577 y Fj(f)2717 2592 y Fh(a)2759 2577 +y Fw(\()p Fj(x)2852 2541 y Fk(0)2875 2577 y Fj(;)g(t)2954 +2541 y Fk(0)2977 2577 y Fw(\))p 2590 2621 426 4 v 2617 +2713 a Fj(xf)2720 2728 y Fh(b)2755 2713 y Fw(\()p Fj(x;)g(t)2927 +2684 y Fk(0)2951 2713 y Fw(\))3025 2498 y Fg(!)3108 2644 +y Fj(S)3168 2659 y Fh(b)3202 2644 y Fw(\()p Fj(x;)g(t)3374 +2659 y Fl(max)3510 2644 y Fj(;)g(t)p Fw(\))32 b Fj(:)3557 +2840 y Fw(\(148\))244 2948 y(If)25 b(no)g(branc)m(hing)g(is)f(found)i +(ab)s(o)m(v)m(e)g(the)f(cut-o\013)g(scale)g Fj(t)2253 +2963 y Fl(0)2317 2948 y Fw(the)h(iteration)d(is)i(stopp)s(ed)h(and)f +(parton)244 3057 y Fj(b)33 b Fw(is)f(assumed)h(to)f(b)s(e)h(massless.) +119 3174 y(2.)49 b(Giv)m(en)25 b(the)g Fj(t)g Fw(of)f(a)h(branc)m +(hing,)h(the)f(relativ)m(e)f(probabilities)e(for)j(the)g(di\013eren)m +(t)g(allo)m(w)m(ed)f(branc)m(h-)244 3283 y(ings)32 b +Fj(a)c Fn(!)f Fj(bc)33 b Fw(are)g(giv)m(en)f(b)m(y)i(the)f +Fj(z)k Fw(in)m(tegrals)32 b(ab)s(o)m(v)m(e,)h(i.e.)43 +b(b)m(y)1316 3433 y Fg(Z)1415 3550 y Fw(d)p Fj(z)1546 +3482 y(\013)1608 3497 y Fh(abc)1710 3482 y Fw(\()p Fj(t)p +Fw(\))p 1546 3527 276 4 v 1630 3618 a(2)p Fj(\031)1848 +3550 y(P)1911 3565 y Fh(a)p Fk(!)p Fh(bc)2084 3550 y +Fw(\()p Fj(z)t Fw(\))2236 3482 y Fj(x)2291 3446 y Fk(0)2315 +3482 y Fj(f)2363 3497 y Fh(a)2405 3482 y Fw(\()p Fj(x)2498 +3446 y Fk(0)2521 3482 y Fj(;)17 b(t)p Fw(\))p 2236 3527 +402 4 v 2263 3618 a Fj(xf)2366 3633 y Fh(b)2401 3618 +y Fw(\()p Fj(x;)g(t)p Fw(\))2681 3550 y Fj(:)849 b Fw(\(149\))119 +3823 y(3.)49 b(Finally)-8 b(,)38 b(with)i Fj(t)f Fw(and)h +Fj(a)g Fw(kno)m(wn,)i(the)e(probabilit)m(y)e(distribution)f(in)i(the)h +(splitting)d(v)-5 b(ariable)244 3931 y Fj(z)32 b Fw(=)c +Fj(x=x)584 3895 y Fk(0)635 3931 y Fw(=)g Fj(x)794 3946 +y Fh(b)829 3931 y Fj(=x)933 3946 y Fh(a)1007 3931 y Fw(is)k(giv)m(en)h +(b)m(y)g(the)g(in)m(tegrand)g(in)f(eq.)h(\(149\).)0 4044 +y(In)i(addition,)e(the)i(azim)m(uthal)e(angle)h Fj(')g +Fw(of)g(the)h(branc)m(hing)g(is)f(selected)i(isotropically)-8 +b(,)32 b(i.e.)49 b(no)35 b(spin)0 4152 y(or)d(coherence)j(e\013ects)f +(are)e(included)g(in)g(this)g(distribution.)146 4261 +y(The)h(selection)e(of)h Fj(t)p Fw(,)g Fj(a)g Fw(and)g +Fj(z)k Fw(is)31 b(then)i(a)e(standard)i(task)f(of)f(the)h(kind)g(than)g +(can)g(b)s(e)g(p)s(erformed)0 4369 y(with)g(the)h(help)f(of)g(the)h(v)m +(eto)g(algorithm.)41 b(Sp)s(eci\014cally)-8 b(,)31 b(upp)s(er)i(and)f +(lo)m(w)m(er)h(b)s(ounds)g(for)f(parton)g(dis-)0 4478 +y(tributions)24 b(are)i(used)h(to)e(\014nd)h(simple)f(functions)g(that) +h(are)f(ev)m(erywhere)k(larger)c(than)g(the)h(in)m(tegrands)0 +4586 y(in)g(eq.)h(\(149\).)41 b(Based)27 b(on)g(these)h(simple)d +(expressions,)k(the)e(in)m(tegration)e(o)m(v)m(er)j Fj(z)j +Fw(ma)m(y)c(b)s(e)f(carried)h(out,)0 4694 y(and)j Fj(t)p +Fw(,)h Fj(a)f Fw(and)h Fj(z)j Fw(v)-5 b(alues)30 b(selected.)44 +b(This)30 b(set)h(is)f(then)h(accepted)g(with)f(a)g(w)m(eigh)m(t)g(giv) +m(en)h(b)m(y)g(a)e(ratio)g(of)0 4803 y(the)37 b(correct)g(in)m(tegrand) +f(in)g(eq.)i(\(149\))d(to)h(the)h(simple)e(appro)m(ximation)g(used,)j +(b)s(oth)f(ev)-5 b(aluated)36 b(for)0 4911 y(the)h(giv)m(en)g(set.)56 +b(Since)37 b(parton)f(distributions,)g(as)h(a)f(rule,)h(are)g(not)f(in) +g(a)g(simple)g(analytical)e(form,)0 5019 y(it)g(ma)m(y)g(b)s(e)i(tric)m +(ky)f(to)f(\014nd)i(reasonably)f(go)s(o)s(d)e(b)s(ounds)j(to)e(parton)h +(distributions.)49 b(It)35 b(is)f(necessary)0 5128 y(to)44 +b(mak)m(e)h(di\013eren)m(t)f(assumptions)h(for)e(v)-5 +b(alence)45 b(and)g(sea)g(quarks,)j(and)d(b)s(e)g(esp)s(ecially)e +(atten)m(tiv)m(e)0 5236 y(close)32 b(to)f(a)h(\015a)m(v)m(our)h +(threshold)e(\([Sj\177)-49 b(o85]\).)43 b(An)32 b(electron)g +(distribution)e(inside)h(an)h(electron)f(b)s(eha)m(v)m(es)0 +5344 y(di\013eren)m(tly)40 b(from)f(parton)h(distributions)f(encoun)m +(tered)j(in)e(hadrons,)i(and)f(has)f(to)g(b)s(e)h(considered)0 +5453 y(separately)-8 b(.)146 5561 y(A)43 b(commen)m(t)e(on)h(soft)g +(gluon)f(emission.)71 b(Nominally)39 b(the)k(range)f(of)f(the)i +Fj(z)k Fw(in)m(tegral)40 b(in)i Fj(S)3638 5576 y Fh(b)3714 +5561 y Fw(is)0 5669 y Fj(x)28 b Fn(\024)g Fj(z)33 b Fn(\024)28 +b Fw(1.)43 b(The)34 b(lo)m(w)m(er)f(limit)c(corresp)s(onds)34 +b(to)e Fj(x)1888 5633 y Fk(0)1939 5669 y Fw(=)c Fj(x=z)33 +b Fw(=)27 b(1,)33 b(and)f(parton)h(distributions)e(v)-5 +b(anish)1817 5953 y(202)p eop +%%Page: 203 209 +203 208 bop 0 -18 a Fw(in)30 b(this)g(limit,)d(wherefore)32 +b(no)e(problems)g(are)g(encoun)m(tered)j(here.)43 b(A)m(t)31 +b(the)g(upp)s(er)g(cut-o\013)f Fj(z)i Fw(=)c(1)i(the)0 +90 y(splitting)23 b(k)m(ernels)j Fj(P)759 105 y Fl(q)p +Fk(!)p Fl(qg)944 90 y Fw(\()p Fj(z)t Fw(\))g(and)f Fj(P)1340 +105 y Fl(g)q Fk(!)p Fl(gg)1547 90 y Fw(div)m(erge.)42 +b(This)25 b(is)g(the)g(soft)g(gluon)f(singularit)m(y:)38 +b(the)25 b(energy)0 198 y(carried)34 b(b)m(y)h(the)g(emitted)f(gluon)f +(is)h(v)-5 b(anishing,)34 b Fj(x)1877 213 y Fl(g)1948 +198 y Fw(=)d Fj(x)2110 162 y Fk(0)2157 198 y Fn(\000)24 +b Fj(x)31 b Fw(=)g(\(1)23 b Fn(\000)h Fj(z)t Fw(\))p +Fj(x)2804 162 y Fk(0)2859 198 y Fw(=)31 b(\(1)23 b Fn(\000)h +Fj(z)t Fw(\))p Fj(x=z)36 b Fn(!)31 b Fw(0)j(for)0 307 +y Fj(z)e Fn(!)c Fw(1.)43 b(In)32 b(order)h(to)f(calculate)f(the)i(in)m +(tegral)d(o)m(v)m(er)k Fj(z)j Fw(in)31 b Fj(S)2211 322 +y Fh(b)2246 307 y Fw(,)h(an)g(upp)s(er)h(cut-o\013)f +Fj(z)3070 322 y Fl(max)3233 307 y Fw(=)c Fj(x=)p Fw(\()p +Fj(x)22 b Fw(+)f Fj(x)3708 322 y Fh(\017)3742 307 y Fw(\))0 +415 y(is)36 b(in)m(tro)s(duced,)i(i.e.)55 b(only)36 b(branc)m(hings)h +(with)f Fj(z)k Fn(\024)35 b Fj(z)1983 430 y Fl(max)2155 +415 y Fw(are)i(included)f(in)g Fj(S)2894 430 y Fh(b)2928 +415 y Fw(.)55 b(Here)38 b Fj(x)3300 430 y Fh(\017)3369 +415 y Fw(is)e(a)h(small)0 523 y(n)m(um)m(b)s(er,)48 b(t)m(ypically)c(c) +m(hosen)i(so)f(that)g(the)g(gluon)f(energy)h Fj(x)2324 +538 y Fl(g)2365 452 y Fn(p)p 2448 452 46 4 v 71 x Fj(s=)p +Fw(2)j Fn(\025)h Fj(x)2821 538 y Fh(\017)2854 452 y Fn(p)p +2937 452 V 71 x Fj(s=)p Fw(2)f(=)g(2)d(GeV.)g(The)0 632 +y(a)m(v)m(erage)c(amoun)m(t)d(of)i(energy)g(carried)f(a)m(w)m(a)m(y)i +(b)m(y)g(gluons)e(in)f(the)i(range)g Fj(x)2815 647 y +Fh(g)2895 632 y Fj(<)f(x)3065 647 y Fh(\017)3098 632 +y Fw(,)j(o)m(v)m(er)e(the)g(giv)m(en)0 740 y(range)29 +b(of)f Fj(t)h Fw(v)-5 b(alues)29 b(from)f Fj(t)982 755 +y Fh(a)1052 740 y Fw(to)h Fj(t)1203 755 y Fh(b)1237 740 +y Fw(,)h(ma)m(y)f(b)s(e)g(estimated)f([Sj\177)-49 b(o85)o(].)43 +b(The)29 b(\014nally)f(selected)i Fj(z)j Fw(v)-5 b(alue)29 +b(ma)m(y)0 848 y(th)m(us)35 b(b)s(e)f(pic)m(k)m(ed)g(as)g +Fj(z)h Fw(=)29 b Fj(z)1002 863 y Fl(hard)1148 848 y Fn(h)p +Fj(z)1232 863 y Fl(soft)1348 848 y Fw(\()p Fj(t)1421 +863 y Fh(a)1463 848 y Fj(;)17 b(t)1542 863 y Fh(b)1576 +848 y Fw(\))p Fn(i)p Fw(,)34 b(where)h Fj(z)2042 863 +y Fl(hard)2221 848 y Fw(is)e(the)h(originally)c(selected)35 +b Fj(z)j Fw(v)-5 b(alue)33 b(and)0 957 y Fj(z)45 972 +y Fl(soft)194 957 y Fw(is)f(the)h(correction)f(factor)h(for)f(soft)g +(gluon)g(emission.)146 1065 y(In)k(QED)f(sho)m(w)m(ers,)j(the)e +(smallness)f(of)f Fj(\013)1691 1080 y Fl(em)1821 1065 +y Fw(means)h(that)h(one)f(can)h(use)g(rather)g(smaller)d(cut-o\013)0 +1173 y(v)-5 b(alues)38 b(without)g(obtaining)e(large)h(amoun)m(ts)h(of) +f(emission.)59 b(A)38 b(\014xed)i(small)35 b(cut-o\013)j +Fj(x)3289 1188 y Fh(\015)3371 1173 y Fj(>)f Fw(10)3582 +1137 y Fk(\000)p Fl(6)3714 1173 y Fw(is)0 1282 y(therefore)d(used)g(to) +f(a)m(v)m(oid)g(the)h(region)e(of)h(v)m(ery)h(soft)g(photons.)46 +b(As)33 b(has)h(b)s(een)g(discussed)h(in)d(section)0 +1390 y(7.1.3,)c(the)f(electron)g(distribution)e(inside)h(the)i +(electron)f(is)f(cut)i(o\013)e(at)h Fj(x)2660 1405 y +Fl(e)2723 1390 y Fj(<)h Fw(1)11 b Fn(\000)g Fw(10)3073 +1354 y Fk(\000)p Fl(6)3166 1390 y Fw(,)29 b(for)d(n)m(umerical)0 +1498 y(reasons,)34 b(so)e(the)h(t)m(w)m(o)h(cuts)f(are)g(closely)f +(matc)m(hed.)146 1607 y(The)i(cut-o\013)e(scale)h Fj(Q)964 +1622 y Fl(0)1036 1607 y Fw(ma)m(y)g(b)s(e)g(c)m(hosen)h(separately)f +(for)f(QCD)h(and)g(QED)f(sho)m(w)m(ers,)j(just)e(as)g(in)0 +1715 y(\014nal-state)38 b(radiation.)59 b(The)39 b(defaults)f(are)h(1)f +(GeV)g(and)h(0.001)e(GeV,)i(resp)s(ectiv)m(ely)-8 b(.)62 +b(The)39 b(former)0 1823 y(is)34 b(the)i(t)m(ypical)e(hadronic)g(mass)h +(scale,)g(b)s(elo)m(w)g(whic)m(h)g(radiation)e(is)h(not)h(exp)s(ected)i +(resolv)-5 b(able;)35 b(the)0 1932 y(latter)d(is)g(of)g(the)h(order)f +(of)h(the)g(electron)f(mass.)146 2040 y(Normally)f(QED)h(and)h(QCD)g +(sho)m(w)m(ers)i(do)e(not)g(app)s(ear)g(mixed.)43 b(The)34 +b(most)f(notable)f(exception)0 2148 y(is)c(resolv)m(ed)i(photopro)s +(duction)e(\(in)g(ep\))h(and)g(resolv)m(ed)h(2)p Fj(\015)j +Fw(ev)m(en)m(ts)f(\(in)c(e)2687 2112 y Fl(+)2746 2148 +y Fw(e)2789 2112 y Fk(\000)2848 2148 y Fw(\),)i(i.e.)42 +b(sho)m(w)m(er)30 b(histories)0 2257 y(of)41 b(the)h(t)m(yp)s(e)g(e)h +Fn(!)f Fj(\015)47 b Fn(!)42 b Fw(q.)70 b(Here)42 b(the)g +Fj(Q)1634 2221 y Fl(2)1715 2257 y Fw(scales)g(need)g(not)f(b)s(e)h +(ordered)g(at)f(the)g(in)m(terface,)j(i.e.)0 2365 y(the)35 +b(last)e(e)d Fn(!)g Fw(e)p Fj(\015)40 b Fw(branc)m(hing)34 +b(ma)m(y)g(w)m(ell)f(ha)m(v)m(e)i(a)f(larger)f Fj(Q)2223 +2329 y Fl(2)2297 2365 y Fw(than)h(the)g(\014rst)h(q)c +Fn(!)e Fw(qg)36 b(one,)f(and)f(the)0 2473 y(branc)m(hing)g +Fj(\015)h Fn(!)30 b Fw(q)k(do)s(es)h(not)f(ev)m(en)h(ha)m(v)m(e)h(a)e +(strict)f(parton-sho)m(w)m(er)i(in)m(terpretation)e(for)h(the)g(v)m +(ector)0 2582 y(dominance)f(mo)s(del)g(part)h(of)f(the)i(photon)f +(parton)g(distribution.)46 b(These)36 b(issues)f(are)f(curren)m(tly)h +(not)0 2690 y(addressed)g(in)d(full.)43 b(Rather,)33 +b(based)h(on)f(the)h Fj(x)f Fw(selected)h(for)f(the)g(parton)g(\(quark) +h(or)e(gluon\))g(at)h(the)0 2798 y(hard)g(scattering,)h(the)g +Fj(x)931 2813 y Fh(\015)1009 2798 y Fw(is)e(selected)j(once)f(and)f +(for)g(all)e(in)i(the)h(range)f Fj(x)c(<)g(x)2965 2813 +y Fh(\015)3039 2798 y Fj(<)g Fw(1,)k(according)g(to)0 +2907 y(the)j(distribution)e(implied)g(b)m(y)i(eq.)h(\(54\).)53 +b(The)37 b(QCD)f(parton)f(sho)m(w)m(er)j(is)d(then)i(traced)f(bac)m(kw) +m(ards)0 3015 y(from)45 b(the)h(hard)g(scattering)f(to)h(the)g(QCD)g +(sho)m(w)m(er)h(initiator)c(at)i Fj(t)2603 3030 y Fl(0)2643 +3015 y Fw(.)83 b(No)46 b(attempt)f(is)g(made)h(to)0 3123 +y(p)s(erform)32 b(the)h(full)d(QED)j(sho)m(w)m(er,)h(but)f(rather)g +(the)g(b)s(eam)f(remnan)m(t)g(treatmen)m(t)h(\(see)g(section)g(11.1\))0 +3232 y(is)c(used)h(to)f(\014nd)g(the)p 786 3179 52 4 +v 30 w(q)h(\(or)e(g)q(\))i(remnan)m(t)f(that)g(matc)m(hes)g(the)h(q)f +(\(or)g(g)q(\))g(QCD)g(sho)m(w)m(er)i(initiator,)c(with)0 +3340 y(the)33 b(electron)g(itself)e(considered)i(as)g(a)f(second)i(b)s +(eam)e(remnan)m(t.)0 3588 y Fo(10.3.3)113 b(T)-9 b(ransv)m(erse)38 +b(ev)m(olution)0 3761 y Fw(W)-8 b(e)48 b(ha)m(v)m(e)h(ab)s(o)m(v)m(e)f +(seen)h(that)e(t)m(w)m(o)h(parton)f(lines)g(ma)m(y)g(b)s(e)h +(de\014ned,)k(stretc)m(hing)c(bac)m(k)h(from)d(the)0 +3869 y(hard)40 b(scattering)g(to)g(the)h(initial)c(incoming)h(hadron)i +(w)m(a)m(v)m(efunctions)i(at)e(small)e Fj(Q)3150 3833 +y Fl(2)3190 3869 y Fw(.)67 b(Sp)s(eci\014cally)-8 b(,)0 +3977 y(all)41 b(parton)h(\015a)m(v)m(ours)i Fj(i)p Fw(,)i(virtualities) +40 b Fj(Q)1525 3941 y Fl(2)1608 3977 y Fw(and)j(energy)h(fractions)e +Fj(x)h Fw(ma)m(y)g(b)s(e)g(found.)74 b(The)44 b(exact)0 +4086 y(kinematical)d(in)m(terpretation)i(of)g(the)h Fj(x)g +Fw(v)-5 b(ariable)42 b(is)h(not)h(unique,)j(ho)m(w)m(ev)m(er.)79 +b(F)-8 b(or)43 b(partons)h(with)0 4194 y(small)25 b(virtualities)g(and) +j(transv)m(erse)i(momen)m(ta,)d(essen)m(tially)g(all)f(de\014nitions)h +(agree,)h(but)g(di\013erences)0 4302 y(ma)m(y)k(app)s(ear)h(for)f +(branc)m(hings)h(close)f(to)h(the)g(hard)f(scattering.)146 +4411 y(In)44 b(\014rst-order)f(QED)f([Ber85])h(and)h(in)e(some)h +(simple)e(QCD)i(to)m(y)g(mo)s(dels)f([Got86)o(],)j(one)f(ma)m(y)0 +4519 y(sho)m(w)h(that)e(the)i(`correct')f(c)m(hoice)g(is)g(the)g(`)t(^) +-53 b Fj(s)43 b Fw(approac)m(h'.)78 b(Here)44 b(one)g(requires)h(that)j +(^)-53 b Fj(s)46 b Fw(=)h Fj(x)3572 4534 y Fl(1)3612 +4519 y Fj(x)3667 4534 y Fl(2)3706 4519 y Fj(s)p Fw(,)0 +4627 y(b)s(oth)39 b(at)g(the)h(hard)g(scattering)f(scale)h(and)g(at)f +(an)m(y)h(lo)m(w)m(er)g(scale,)h(i.e.)68 b(^)-53 b Fj(s)p +Fw(\()p Fj(Q)2866 4591 y Fl(2)2906 4627 y Fw(\))39 b(=)g +Fj(x)3153 4642 y Fl(1)3193 4627 y Fw(\()p Fj(Q)3308 4591 +y Fl(2)3348 4627 y Fw(\))17 b Fj(x)3458 4642 y Fl(2)3497 +4627 y Fw(\()p Fj(Q)3612 4591 y Fl(2)3652 4627 y Fw(\))g +Fj(s)p Fw(,)0 4736 y(where)40 b Fj(x)343 4751 y Fl(1)422 +4736 y Fw(and)f Fj(x)673 4751 y Fl(2)752 4736 y Fw(are)g(the)g +Fj(x)h Fw(v)-5 b(alues)38 b(of)h(the)g(t)m(w)m(o)h(resolv)m(ed)g +(partons)f(\(one)g(from)f(eac)m(h)i(incoming)0 4844 y(b)s(eam)e +(particle\))f(at)h(the)h(giv)m(en)g Fj(Q)1302 4808 y +Fl(2)1380 4844 y Fw(scale.)62 b(In)39 b(practice)f(this)g(means)h +(that,)h(at)e(a)g(branc)m(hing)h(with)0 4952 y(the)34 +b(splitting)e(v)-5 b(ariable)32 b Fj(z)t Fw(,)j(the)f(total)j(^)-53 +b Fj(s)33 b Fw(has)i(to)e(b)s(e)h(increased)h(b)m(y)g(a)e(factor)h(1)p +Fj(=z)k Fw(in)33 b(the)h(bac)m(kw)m(ards)0 5061 y(ev)m(olution.)42 +b(It)32 b(also)e(means)h(that)h(branc)m(hings)f(on)h(the)f(t)m(w)m(o)i +(incoming)c(legs)i(ha)m(v)m(e)h(to)f(b)s(e)h(in)m(terlea)m(v)m(ed)0 +5169 y(in)g(a)g(single)g(monotonic)f(sequence)k(of)d +Fj(Q)1536 5133 y Fl(2)1608 5169 y Fw(v)-5 b(alues)33 +b(of)f(branc)m(hings.)146 5277 y(F)-8 b(or)42 b(a)g(reconstruction)h +(of)f(the)h(complete)e(kinematics)h(in)f(this)h(approac)m(h,)k(one)c +(should)g(start)0 5386 y(with)c(the)i(hard)f(scattering,)h(for)e(whic)m +(h)44 b(^)-53 b Fj(s)38 b Fw(has)i(b)s(een)f(c)m(hosen)i(according)d +(to)h(the)g(hard)g(scattering)0 5494 y(matrix)d(elemen)m(t.)58 +b(By)38 b(bac)m(kw)m(ards)i(ev)m(olution,)e(the)g(virtualities)d +Fj(Q)2575 5458 y Fl(2)2575 5519 y(1)2650 5494 y Fw(=)h +Fn(\000)p Fj(m)2924 5458 y Fl(2)2924 5519 y(1)3002 5494 +y Fw(and)i Fj(Q)3274 5458 y Fl(2)3274 5519 y(2)3349 5494 +y Fw(=)e Fn(\000)p Fj(m)3623 5458 y Fl(2)3623 5519 y(2)3701 +5494 y Fw(of)0 5602 y(the)31 b(t)m(w)m(o)h(in)m(teracting)e(partons)h +(are)g(reconstructed.)45 b(Initially)27 b(the)32 b(t)m(w)m(o)f(partons) +h(are)e(considered)i(in)1817 5953 y(203)p eop +%%Page: 204 210 +204 209 bop 0 -18 a Fw(their)32 b(common)g(c.m.)45 b(frame,)32 +b(coming)f(in)i(along)e(the)j Fn(\006)p Fj(z)k Fw(directions.)44 +b(Then)34 b(the)g(four-momen)m(tum)0 90 y(v)m(ectors)g(ha)m(v)m(e)g +(the)f(non-v)-5 b(anishing)31 b(comp)s(onen)m(ts)1230 +318 y Fj(E)1302 333 y Fl(1)p Fh(;)p Fl(2)1479 318 y Fw(=)1652 +251 y(^)-53 b Fj(s)22 b Fn(\006)h Fw(\()p Fj(Q)1931 215 +y Fl(2)1931 276 y(2)1993 251 y Fn(\000)f Fj(Q)2169 215 +y Fl(2)2169 276 y(1)2209 251 y Fw(\))p 1648 295 599 4 +v 1859 398 a(2)1908 313 y Fn(p)p 1991 313 46 4 v 1995 +398 a Fw(^)-53 b Fj(s)2290 318 y(;)940 617 y(p)989 632 +y Fh(z)s Fl(1)1091 617 y Fw(=)28 b Fn(\000)p Fj(p)1321 +632 y Fh(z)s Fl(2)1479 617 y Fw(=)1638 449 y Fg(s)p 1721 +449 1059 4 v 1731 549 a Fw(\()t(^)-53 b Fj(s)22 b Fw(+)g +Fj(Q)2012 515 y Fl(2)2012 571 y(1)2074 549 y Fw(+)g Fj(Q)2249 +515 y Fl(2)2249 571 y(2)2289 549 y Fw(\))2327 520 y Fl(2)2388 +549 y Fn(\000)h Fw(4)p Fj(Q)2614 515 y Fl(2)2614 571 +y(1)2654 549 y Fj(Q)2731 515 y Fl(2)2731 571 y(2)p 1731 +593 1039 4 v 2203 685 a Fw(4)t(^)-53 b Fj(s)2813 617 +y(;)717 b Fw(\(150\))0 836 y(with)32 b(\()p Fj(p)309 +851 y Fl(1)371 836 y Fw(+)22 b Fj(p)518 851 y Fl(2)557 +836 y Fw(\))595 800 y Fl(2)662 836 y Fw(=)32 b(^)-53 +b Fj(s)p Fw(.)146 945 y(If,)35 b(sa)m(y)-8 b(,)35 b Fj(Q)539 +908 y Fl(2)539 969 y(1)609 945 y Fj(>)30 b(Q)792 908 +y Fl(2)792 969 y(2)832 945 y Fw(,)k(then)h(the)g(branc)m(hing)f(3)c +Fn(!)f Fw(1)23 b(+)g(4,)35 b(whic)m(h)f(pro)s(duced)h(parton)f(1,)g(is) +g(the)g(one)0 1053 y(that)28 b(to)s(ok)g(place)g(closest)h(to)f(the)h +(hard)f(scattering,)h(and)f(the)h(one)g(to)f(b)s(e)g(reconstructed)i +(\014rst.)43 b(With)0 1161 y(the)e(four-momen)m(tum)e +Fj(p)949 1176 y Fl(3)1030 1161 y Fw(kno)m(wn,)44 b Fj(p)1425 +1176 y Fl(4)1506 1161 y Fw(=)e Fj(p)1673 1176 y Fl(3)1741 +1161 y Fn(\000)28 b Fj(p)1895 1176 y Fl(1)1975 1161 y +Fw(is)41 b(automatically)c(kno)m(wn,)45 b(so)c(there)h(are)f(four)0 +1270 y(degrees)33 b(of)f(freedom.)43 b(One)32 b(corresp)s(onds)i(to)e +(a)f(trivial)f(azim)m(uthal)g(angle)h(around)h(the)h +Fj(z)j Fw(axis.)44 b(The)0 1378 y Fj(z)33 b Fw(splitting)26 +b(v)-5 b(ariable)27 b(for)g(the)i(3)f Fn(!)f Fw(1)13 +b(+)g(4)28 b(v)m(ertex)i(is)e(found)h(as)f(the)h(same)f(time)f(as)h +Fj(Q)3145 1342 y Fl(2)3145 1403 y(1)3185 1378 y Fw(,)h(and)g(pro)m +(vides)0 1486 y(the)41 b(constrain)m(t)g(\()p Fj(p)730 +1501 y Fl(3)798 1486 y Fw(+)27 b Fj(p)950 1501 y Fl(2)990 +1486 y Fw(\))1028 1450 y Fl(2)1109 1486 y Fw(=)46 b(^)-53 +b Fj(s=z)t Fw(.)69 b(The)42 b(virtualit)m(y)d Fj(Q)2192 +1450 y Fl(2)2192 1511 y(3)2273 1486 y Fw(is)i(giv)m(en)g(b)m(y)h(bac)m +(kw)m(ards)h(ev)m(olution)d(of)0 1595 y(parton)32 b(3.)146 +1703 y(One)39 b(degree)g(of)f(freedom)g(remains)g(to)g(b)s(e)g(sp)s +(eci\014ed,)j(and)e(this)f(is)g(related)g(to)g(the)h(p)s(ossibilit)m(y) +0 1811 y(that)g(parton)h(4)f(initiates)e(a)j(time-lik)m(e)d(parton)i +(sho)m(w)m(er,)k(i.e.)64 b(ma)m(y)39 b(ha)m(v)m(e)i(a)f(non-zero)f +(mass.)65 b(The)0 1920 y(maxim)m(um)33 b(allo)m(w)m(ed)h(squared)i +(mass)f Fj(m)1497 1884 y Fl(2)1497 1944 y(max)o Fh(;)p +Fl(4)1722 1920 y Fw(is)f(found)h(for)g(a)f(collinear)f(branc)m(hing)i +(3)c Fn(!)g Fw(1)24 b(+)f(4.)50 b(In)0 2028 y(terms)33 +b(of)f(the)h(com)m(binations)1402 2191 y Fj(s)1448 2206 +y Fl(1)1570 2191 y Fw(=)87 b(^)-53 b Fj(s)22 b Fw(+)g +Fj(Q)1972 2150 y Fl(2)1972 2216 y(2)2034 2191 y Fw(+)g +Fj(Q)2209 2150 y Fl(2)2209 2216 y(1)2281 2191 y Fj(;)1402 +2385 y(s)1448 2400 y Fl(3)1570 2385 y Fw(=)1745 2318 +y(^)-53 b Fj(s)p 1739 2362 50 4 v 1739 2454 a(z)1821 +2385 y Fw(+)22 b Fj(Q)1996 2344 y Fl(2)1996 2410 y(2)2058 +2385 y Fw(+)g Fj(Q)2233 2344 y Fl(2)2233 2410 y(3)2305 +2385 y Fj(;)1404 2601 y(r)1448 2616 y Fl(1)1570 2601 +y Fw(=)1729 2494 y Fg(q)p 1812 2494 490 4 v 107 x Fj(s)1858 +2567 y Fl(2)1858 2623 y(1)1920 2601 y Fn(\000)g Fw(4)p +Fj(Q)2145 2567 y Fl(2)2145 2623 y(2)2185 2601 y Fj(Q)2262 +2567 y Fl(2)2262 2623 y(1)2334 2601 y Fj(;)1404 2787 +y(r)1448 2802 y Fl(3)1570 2787 y Fw(=)1729 2680 y Fg(q)p +1812 2680 V 107 x Fj(s)1858 2753 y Fl(2)1858 2809 y(3)1920 +2787 y Fn(\000)g Fw(4)p Fj(Q)2145 2753 y Fl(2)2145 2809 +y(2)2185 2787 y Fj(Q)2262 2753 y Fl(2)2262 2809 y(3)2334 +2787 y Fj(;)1196 b Fw(\(151\))0 2950 y(one)33 b(obtains)1178 +3084 y Fj(m)1263 3043 y Fl(2)1263 3109 y(max)p Fh(;)p +Fl(4)1482 3084 y Fw(=)1595 3017 y Fj(s)1641 3032 y Fl(1)1681 +3017 y Fj(s)1727 3032 y Fl(3)1788 3017 y Fn(\000)23 b +Fj(r)1932 3032 y Fl(1)1971 3017 y Fj(r)2015 3032 y Fl(3)p +1595 3061 460 4 v 1742 3152 a Fw(2)p Fj(Q)1868 3118 y +Fl(2)1868 3174 y(2)2087 3084 y Fn(\000)f Fj(Q)2263 3043 +y Fl(2)2263 3109 y(1)2325 3084 y Fn(\000)h Fj(Q)2502 +3043 y Fl(2)2502 3109 y(3)2574 3084 y Fj(;)956 b Fw(\(152\))0 +3296 y(whic)m(h,)33 b(for)f(the)h(sp)s(ecial)f(case)h(of)f +Fj(Q)1335 3260 y Fl(2)1335 3321 y(2)1403 3296 y Fw(=)27 +b(0,)33 b(reduces)h(to)906 3533 y Fj(m)991 3492 y Fl(2)991 +3558 y(max)o Fh(;)p Fl(4)1209 3533 y Fw(=)1313 3387 y +Fg(\()1389 3466 y Fj(Q)1466 3430 y Fl(2)1466 3490 y(1)p +1389 3510 117 4 v 1423 3601 a Fj(z)1538 3533 y Fn(\000)23 +b Fj(Q)1715 3492 y Fl(2)1715 3558 y(3)1755 3387 y Fg(\))16 +b(\()2037 3466 y Fw(^)-53 b Fj(s)p 1915 3510 283 4 v +1919 3601 a Fw(^)g Fj(s)22 b Fw(+)g Fj(Q)2158 3567 y +Fl(2)2158 3623 y(1)2230 3533 y Fn(\000)2511 3466 y Fw(^)-53 +b Fj(s)p 2339 3510 382 4 v 2343 3601 a Fw(^)g Fj(s=z)27 +b Fw(+)22 b Fj(Q)2681 3567 y Fl(2)2681 3623 y(3)2731 +3387 y Fg(\))2847 3533 y Fj(:)683 b Fw(\(153\))0 3765 +y(These)32 b(constrain)m(ts)e(on)g Fj(m)992 3780 y Fl(4)1062 +3765 y Fw(are)g(only)g(the)g(kinematical)d(ones,)32 b(in)d(addition)f +(coherence)k(phenomena)0 3873 y(could)40 b(constrain)f(the)i +Fj(m)959 3888 y Fl(max)o Fh(;)p Fl(4)1189 3873 y Fw(v)-5 +b(alues)40 b(further.)66 b(Some)40 b(options)f(of)g(this)h(kind)g(are)g +(a)m(v)-5 b(ailable;)41 b(the)0 3982 y(default)22 b(one)h(is)f(to)h +(require)g(additionally)c(that)k Fj(m)1819 3945 y Fl(2)1819 +4006 y(4)1886 3982 y Fn(\024)28 b Fj(Q)2068 3945 y Fl(2)2068 +4006 y(1)2108 3982 y Fw(,)d(i.e.)39 b(lesser)24 b(than)e(the)i +(space-lik)m(e)e(virtualit)m(y)0 4090 y(of)32 b(the)h(sister)g(parton.) +146 4198 y(With)c(the)h(maxim)m(um)d(virtualit)m(y)h(giv)m(en,)i(the)g +(\014nal-state)e(sho)m(w)m(ering)i(mac)m(hinery)g(ma)m(y)f(b)s(e)g +(used)0 4307 y(to)37 b(giv)m(e)h(the)g(dev)m(elopmen)m(t)h(of)e(the)h +(subsequen)m(t)j(cascade,)f(including)c(the)i(actual)f(mass)h +Fj(m)3484 4270 y Fl(2)3484 4331 y(4)3524 4307 y Fw(,)h(with)0 +4415 y(0)h Fn(\024)h Fj(m)292 4379 y Fl(2)292 4440 y(4)372 +4415 y Fn(\024)g Fj(m)575 4379 y Fl(2)575 4440 y(max)o +Fh(;)p Fl(4)766 4415 y Fw(.)65 b(The)41 b(ev)m(olution)e(is)h(p)s +(erformed)f(in)h(the)g(c.m.)66 b(frame)39 b(of)g(the)i(t)m(w)m(o)f +(`resolv)m(ed')0 4523 y(partons,)29 b(i.e.)42 b(that)27 +b(of)h(partons)g(1)g(and)g(2)f(for)h(the)g(branc)m(hing)g(3)f +Fn(!)g Fw(1)13 b(+)g(4,)28 b(and)g(parton)g(4)f(is)h(assumed)0 +4643 y(to)i(ha)m(v)m(e)i(a)e(nominal)e(energy)k Fj(E)1173 +4658 y Fl(nom)o Fh(;)p Fl(4)1393 4643 y Fw(=)27 b(\(1)p +Fj(=z)22 b Fn(\000)d Fw(1\))1882 4559 y Fn(p)p 1965 4559 +46 4 v 1969 4643 a Fw(^)-53 b Fj(s)o(=)p Fw(2.)43 b(\(Sligh)m(t)29 +b(mo)s(di\014cations)f(app)s(ear)i(if)g(parton)0 4752 +y(4)i(has)h(a)g(non-v)-5 b(anishing)31 b(mass)h Fj(m)1282 +4767 y Fl(q)1356 4752 y Fw(or)h Fj(m)1561 4767 y Fh(`)1594 +4752 y Fw(.\))146 4860 y(Using)g(the)g(relation)d Fj(m)1031 +4824 y Fl(2)1031 4885 y(4)1099 4860 y Fw(=)d(\()p Fj(p)1289 +4875 y Fl(3)1351 4860 y Fn(\000)22 b Fj(p)1499 4875 y +Fl(1)1539 4860 y Fw(\))1577 4824 y Fl(2)1616 4860 y Fw(,)33 +b(the)g(momen)m(tum)e(of)h(parton)g(3)h(ma)m(y)f(no)m(w)h(b)s(e)g +(found)g(as)594 5097 y Fj(E)666 5112 y Fl(3)788 5097 +y Fw(=)1022 5030 y(1)p 957 5074 178 4 v 957 5176 a(2)1006 +5092 y Fn(p)p 1089 5092 46 4 v 1093 5176 a Fw(^)-53 b +Fj(s)1162 4951 y Fg(\()1244 5030 y Fw(^)g Fj(s)p 1238 +5074 50 4 v 1238 5166 a(z)1320 5097 y Fw(+)22 b Fj(Q)1495 +5056 y Fl(2)1495 5122 y(2)1557 5097 y Fn(\000)h Fj(Q)1734 +5056 y Fl(2)1734 5122 y(1)1796 5097 y Fn(\000)f Fj(m)1980 +5056 y Fl(2)1980 5122 y(4)2020 4951 y Fg(\))2136 5097 +y Fj(;)581 5362 y(p)630 5377 y Fh(z)s Fl(3)788 5362 y +Fw(=)1019 5294 y(1)p 957 5338 173 4 v 957 5430 a(2)p +Fj(p)1055 5445 y Fh(z)s Fl(1)1157 5362 y Fn(f)p Fj(s)1253 +5377 y Fl(3)1314 5362 y Fn(\000)h Fw(2)p Fj(E)1535 5377 +y Fl(2)1574 5362 y Fj(E)1646 5377 y Fl(3)1686 5362 y +Fn(g)49 b Fj(;)543 5629 y(p)592 5588 y Fl(2)592 5654 +y Fk(?)p Fh(;)p Fl(3)788 5629 y Fw(=)947 5533 y Fg(n)1003 +5629 y Fj(m)1088 5588 y Fl(2)1088 5654 y(max)o Fh(;)p +Fl(4)1301 5629 y Fn(\000)22 b Fj(m)1485 5588 y Fl(2)1485 +5654 y(4)1525 5533 y Fg(o)1623 5562 y Fw(\()p Fj(s)1707 +5577 y Fl(1)1747 5562 y Fj(s)1793 5577 y Fl(3)1854 5562 +y Fw(+)g Fj(r)1996 5577 y Fl(1)2036 5562 y Fj(r)2080 +5577 y Fl(3)2119 5562 y Fw(\))p Fj(=)p Fw(2)g Fn(\000)g +Fj(Q)2453 5525 y Fl(2)2453 5586 y(2)2493 5562 y Fw(\()p +Fj(Q)2608 5525 y Fl(2)2608 5586 y(1)2670 5562 y Fw(+)g +Fj(Q)2845 5525 y Fl(2)2845 5586 y(3)2907 5562 y Fw(+)g +Fj(m)3090 5525 y Fl(2)3090 5586 y(4)3129 5562 y Fw(\))p +1623 5606 1544 4 v 2352 5697 a Fj(r)2399 5663 y Fl(2)2396 +5719 y(1)3210 5629 y Fj(:)320 b Fw(\(154\))1817 5953 +y(204)p eop +%%Page: 205 211 +205 210 bop 146 -18 a Fw(The)38 b(requiremen)m(t)g(that)f +Fj(m)1199 -55 y Fl(2)1199 6 y(4)1274 -18 y Fn(\025)f +Fw(0)h(\(or)g Fn(\025)f Fj(m)1833 -55 y Fl(2)1833 6 y +Fh(f)1915 -18 y Fw(for)h(hea)m(vy)i(\015a)m(v)m(ours\))f(imp)s(oses)f +(a)f(constrain)m(t)i(on)0 106 y(allo)m(w)m(ed)25 b Fj(z)31 +b Fw(v)-5 b(alues.)42 b(This)26 b(constrain)m(t)g(cannot)h(b)s(e)f +(included)g(in)f(the)i(c)m(hoice)f(of)g Fj(Q)2969 70 +y Fl(2)2969 131 y(1)3009 106 y Fw(,)h(where)h(it)d(logically)0 +215 y(b)s(elongs,)30 b(since)g(it)f(also)g(dep)s(ends)i(on)f +Fj(Q)1483 179 y Fl(2)1483 239 y(2)1552 215 y Fw(and)g +Fj(Q)1816 179 y Fl(2)1816 239 y(3)1856 215 y Fw(,)g(whic)m(h)g(are)g +(unkno)m(wn)i(at)d(this)g(p)s(oin)m(t.)42 b(It)30 b(is)f(fairly)0 +323 y(rare)d(\(in)f(the)i(order)f(of)g(10\045)g(of)g(all)e(ev)m(en)m +(ts\))k(that)e(an)g(unallo)m(w)m(ed)g Fj(z)31 b Fw(v)-5 +b(alue)26 b(is)f(generated,)k(and)d(when)h(it)0 431 y(happ)s(ens)32 +b(it)f(is)g(almost)e(alw)m(a)m(ys)j(for)f(one)h(of)f(the)h(t)m(w)m(o)g +(branc)m(hings)f(closest)h(to)f(the)h(hard)f(in)m(teraction:)0 +540 y(for)h Fj(Q)226 504 y Fl(2)226 564 y(2)294 540 y +Fw(=)c(0)33 b(eq.)h(\(153\))e(ma)m(y)h(b)s(e)g(solv)m(ed)g(to)g(yield)f +Fj(z)h Fn(\024)g Fw(^)-53 b Fj(s=)p Fw(\()t(^)g Fj(s)22 +b Fw(+)g Fj(Q)2444 504 y Fl(2)2444 564 y(1)2506 540 y +Fn(\000)h Fj(Q)2683 504 y Fl(2)2683 564 y(3)2723 540 +y Fw(\),)33 b(whic)m(h)g(is)f(a)h(more)f(sev)m(ere)0 +648 y(cut)k(for)k(^)-53 b Fj(s)36 b Fw(small)d(and)k +Fj(Q)935 612 y Fl(2)935 673 y(1)1010 648 y Fw(large.)53 +b(Therefore)37 b(an)f(essen)m(tially)g(bias-free)f(w)m(a)m(y)i(of)f +(coping)f(is)h(to)f(redo)0 756 y(completely)c(an)m(y)j(initial-state)29 +b(cascade)k(for)f(whic)m(h)h(this)g(problem)e(app)s(ears.)146 +865 y(This)j(completes)f(the)h(reconstruction)g(of)e(the)i(3)29 +b Fn(!)g Fw(1)22 b(+)h(4)33 b(v)m(ertex.)47 b(The)35 +b(subsystem)g(made)e(out)0 973 y(of)h(partons)g(3)g(and)g(2)g(ma)m(y)f +(no)m(w)i(b)s(e)f(b)s(o)s(osted)g(to)g(its)g(rest)g(frame)g(and)g +(rotated)g(to)f(bring)g(partons)i(3)0 1081 y(and)29 b(2)f(along)f(the)i +Fn(\006)p Fj(z)34 b Fw(directions.)42 b(The)29 b(partons)g(1)f(and)h(4) +f(no)m(w)i(ha)m(v)m(e)g(opp)s(osite)e(and)g(comp)s(ensating)0 +1190 y(transv)m(erse)36 b(momen)m(ta)d(with)g(resp)s(ect)i(to)e(the)i +(ev)m(en)m(t)g(axis.)47 b(When)35 b(the)f(next)h(v)m(ertex)g(is)e +(considered,)0 1298 y(either)23 b(the)g(one)g(that)f(pro)s(duces)i +(parton)f(3)f(or)h(the)g(one)g(that)f(pro)s(duces)i(parton)f(2,)h(the)g +(3{2)e(subsystem)0 1406 y(will)f(\014ll)g(the)j(function)e(the)i(1{2)e +(system)i(did)f(ab)s(o)m(v)m(e,)j(e.g.)40 b(the)24 b(r^)-49 +b(ole)22 b(of)k(^)-53 b Fj(s)28 b Fw(=)k(^)-53 b Fj(s)2784 +1421 y Fl(12)2881 1406 y Fw(in)23 b(the)g(form)m(ulae)f(ab)s(o)m(v)m(e) +0 1515 y(is)28 b(no)m(w)i(pla)m(y)m(ed)f(b)m(y)k(^)-53 +b Fj(s)773 1530 y Fl(32)876 1515 y Fw(=)31 b(^)-53 b +Fj(s)1025 1530 y Fl(12)1100 1515 y Fj(=z)t Fw(.)43 b(The)29 +b(in)m(ternal)f(structure)i(of)e(the)h(3{2)f(system,)j(i.e.)41 +b(the)30 b(branc)m(hing)0 1623 y(3)35 b Fn(!)g Fw(1)25 +b(+)g(4,)38 b(app)s(ears)g(no)m(where)g(in)f(the)g(con)m(tin)m(ued)h +(description,)g(but)f(has)h(b)s(ecome)f(`unresolv)m(ed'.)0 +1731 y(It)42 b(is)f(only)g(re\015ected)j(in)d(the)h(successiv)m(e)i +(rotations)d(and)h(b)s(o)s(osts)g(p)s(erformed)f(to)g(bring)g(bac)m(k)i +(the)0 1840 y(new)37 b(endp)s(oin)m(ts)e(to)h(their)f(common)f(rest)i +(frame.)52 b(Thereb)m(y)38 b(the)e(hard)f(scattering)h(subsystem)h(1{2) +0 1948 y(builds)32 b(up)g(a)g(net)h(transv)m(erse)i(momen)m(tum)30 +b(and)j(also)e(an)i(o)m(v)m(erall)e(rotation)g(of)h(the)g(hard)h +(scattering)0 2056 y(subsystem.)146 2165 y(After)41 b(a)f(n)m(um)m(b)s +(er)h(of)f(steps,)k(the)c(t)m(w)m(o)h(outermost)g(partons)f(ha)m(v)m(e) +i(virtualities)c Fj(Q)3268 2129 y Fl(2)3348 2165 y Fj(<)j(Q)3542 +2129 y Fl(2)3542 2189 y(0)3622 2165 y Fw(and)0 2273 y(then)27 +b(the)f(sho)m(w)m(er)i(is)e(terminated)f(and)i(the)f(endp)s(oin)m(ts)h +(assigned)f Fj(Q)2515 2237 y Fl(2)2583 2273 y Fw(=)h(0.)41 +b(Up)27 b(to)e(small)f(corrections)0 2382 y(from)37 b(primordial)e +Fj(k)770 2397 y Fk(?)829 2382 y Fw(,)40 b(discussed)g(in)d(section)i +(11.1,)g(a)f(\014nal)g(b)s(o)s(ost)g(will)e(bring)h(the)i(partons)g +(from)0 2490 y(their)34 b(c.m.)50 b(frame)33 b(to)i(the)g(o)m(v)m +(erall)e(c.m.)50 b(frame,)34 b(where)i(the)f Fj(x)g Fw(v)-5 +b(alues)35 b(of)f(the)h(outermost)f(partons)0 2598 y(agree)f(also)e +(with)i(the)g(ligh)m(t-cone)e(de\014nition.)0 2846 y +Fo(10.3.4)113 b(Other)37 b(initial-state)d(sho)m(w)m(er)k(asp)s(ects)0 +3019 y Fw(In)26 b(the)f(form)m(ulae)f(ab)s(o)m(v)m(e,)k +Fj(Q)1044 2982 y Fl(2)1108 3019 y Fw(has)e(b)s(een)g(used)g(as)g +(argumen)m(t)f(for)f Fj(\013)2458 3034 y Fl(s)2491 3019 +y Fw(,)i(and)g(not)f(only)f(as)i(the)g(space-lik)m(e)0 +3127 y(virtualit)m(y)h(of)i(partons.)43 b(This)29 b(is)g(one)g(p)s +(ossibilit)m(y)-8 b(,)28 b(but)h(in)g(fact)g(lo)s(op)f(calculations)f +(tend)j(to)f(indicate)0 3235 y(that)41 b(the)i(prop)s(er)e(argumen)m(t) +h(for)f Fj(\013)1384 3250 y Fl(s)1458 3235 y Fw(is)g(not)g +Fj(Q)1824 3199 y Fl(2)1906 3235 y Fw(but)h Fj(p)2143 +3199 y Fl(2)2143 3260 y Fk(?)2245 3235 y Fw(=)h(\(1)28 +b Fn(\000)h Fj(z)t Fw(\))p Fj(Q)2749 3199 y Fl(2)2831 +3235 y Fw([Bas83].)71 b(The)42 b(v)-5 b(ariable)0 3344 +y Fj(p)49 3359 y Fk(?)145 3344 y Fw(do)s(es)37 b(ha)m(v)m(e)h(the)f(in) +m(terpretation)e(of)i(transv)m(erse)h(momen)m(tum,)f(although)e(it)h +(is)g(only)g(exactly)h(so)0 3452 y(for)i(a)h(branc)m(hing)g +Fj(a)g Fn(!)g Fj(bc)h Fw(with)e Fj(a)h Fw(and)g Fj(c)g +Fw(massless)g(and)g Fj(Q)2327 3416 y Fl(2)2407 3452 y +Fw(=)g Fn(\000)p Fj(m)2685 3416 y Fl(2)2685 3477 y Fh(b)2726 +3452 y Fw(,)i(and)e(with)f Fj(z)45 b Fw(in)m(terpreted)0 +3560 y(as)38 b(ligh)m(t-cone)f(fraction)f(of)i(energy)h(and)f(momen)m +(tum.)58 b(The)38 b(use)h(of)f Fj(\013)2696 3575 y Fl(s)2728 +3560 y Fw(\(\(1)25 b Fn(\000)h Fj(z)t Fw(\))p Fj(Q)3145 +3524 y Fl(2)3186 3560 y Fw(\))38 b(is)f(default)g(in)0 +3669 y(the)f(program.)52 b(Indeed,)38 b(if)d(one)h(w)m(an)m(ted)h(to,)f +(the)g(complete)f(sho)m(w)m(er)j(migh)m(t)c(b)s(e)i(in)m(terpreted)h +(as)f(an)0 3777 y(ev)m(olution)c(in)g Fj(p)586 3741 y +Fl(2)586 3802 y Fk(?)677 3777 y Fw(rather)h(than)f(in)g +Fj(Q)1388 3741 y Fl(2)1428 3777 y Fw(.)146 3885 y(As)37 +b(w)m(e)h(see,)h(the)e(initial-state)32 b(sho)m(w)m(ering)38 +b(algorithm)33 b(leads)j(to)g(a)h(net)f(b)s(o)s(ost)g(and)h(rotation)e +(of)0 3994 y(the)29 b(hard)f(scattering)g(subsystems.)44 +b(The)29 b(o)m(v)m(erall)f(\014nal)f(state)i(is)e(made)h(ev)m(en)i +(more)d(complex)h(b)m(y)h(the)0 4102 y(additional)i(\014nal-state)j +(radiation.)46 b(In)35 b(principle,)e(the)i(complexit)m(y)f(is)f(v)m +(ery)j(ph)m(ysical,)f(but)f(it)g(ma)m(y)0 4210 y(still)d(ha)m(v)m(e)k +(undesirable)f(side)f(e\013ects.)48 b(One)34 b(suc)m(h,)i(discussed)f +(further)f(in)f(section)g(9.2,)h(is)f(that)g(it)g(is)0 +4319 y(v)m(ery)27 b(di\016cult)f(to)f(generate)i(ev)m(en)m(ts)h(that)e +(ful\014ll)d(sp)s(eci\014c)k(kinematics)e(conditions,)h(since)g +(kinematics)0 4427 y(is)32 b(smeared)h(and)g(ev)m(en,)h(at)e(times,)g +(am)m(biguous.)146 4535 y(A)42 b(sp)s(ecial)e(case)i(is)e(encoun)m +(tered)k(in)c(deep)i(inelastic)e(scattering)h(in)f(ep)i(collisions.)66 +b(Here)42 b(the)0 4644 y(DIS)34 b Fj(x)g Fw(and)g Fj(Q)555 +4608 y Fl(2)629 4644 y Fw(v)-5 b(alues)34 b(are)g(de\014ned)i(in)d +(terms)h(of)g(the)g(scattered)h(electron)f(direction)f(and)h(energy)-8 +b(,)0 4752 y(and)35 b(therefore)g(are)f(unam)m(biguous)g(\(except)i +(for)e(issues)i(of)e(\014nal-state)g(photon)g(radiation)e(close)j(to)0 +4860 y(the)e(electron)f(direction\).)42 b(Neither)32 +b(initial-)c(nor)k(\014nal-state)g(sho)m(w)m(ers)i(preserv)m(e)h(the)e +(kinematics)e(of)0 4969 y(the)36 b(scattered)h(electron,)f(ho)m(w)m(ev) +m(er,)j(and)d(hence)h(the)f(DIS)g Fj(x)g Fw(and)f Fj(Q)2594 +4933 y Fl(2)2670 4969 y Fw(are)g(c)m(hanged.)54 b(In)36 +b(principle,)0 5077 y(this)30 b(is)h(p)s(erfectly)g(legitimate,)d(with) +i(the)h(ca)m(v)m(eat)h(that)f(one)g(then)h(also)d(should)i(use)h +(di\013eren)m(t)f(sets)h(of)0 5186 y(parton)e(distributions)g(than)g +(ones)i(deriv)m(ed)f(from)f(DIS,)g(since)i(these)f(are)g(based)h(on)e +(the)h(kinematics)0 5294 y(of)43 b(the)i(scattered)g(lepton)e(and)h +(nothing)f(else.)77 b(Alternativ)m(ely)-8 b(,)46 b(one)e(migh)m(t)f +(consider)h(sho)m(w)m(ering)0 5402 y(sc)m(hemes)34 b(that)e(lea)m(v)m +(e)h Fj(x)g Fw(and)f Fj(Q)1178 5366 y Fl(2)1250 5402 +y Fw(unc)m(hanged.)45 b(In)33 b([Ben88])f(detailed)g(mo)s +(di\014cations)e(are)i(presen)m(ted)0 5511 y(that)g(mak)m(e)g(a)f +(preserv)-5 b(ation)32 b(p)s(ossible)g(when)h(radiation)c(o\013)j(the)g +(incoming)e(and)i(outgoing)f(electron)0 5619 y(is)h(neglected,)h(but)g +(these)h(are)f(not)f(included)g(in)g(the)h(curren)m(t)h(v)m(ersion)f +(of)39 b Fm(Pythia)p Fw(.)1817 5953 y(205)p eop +%%Page: 206 212 +206 211 bop 146 -18 a Fw(What)31 b(is)f(a)m(v)-5 b(ailable,)29 +b(as)h(an)h(option,)f(is)g(a)g(simple)f(mac)m(hinery)i(whic)m(h)g +(preserv)m(es)i Fj(x)e Fw(and)g Fj(Q)3512 -55 y Fl(2)3582 +-18 y Fw(from)0 90 y(the)d(e\013ects)h(of)f(QCD)f(radiation,)g(and)h +(also)f(from)g(those)h(of)f(primordial)e Fj(k)2732 105 +y Fk(?)2818 90 y Fw(and)j(the)g(b)s(eam)g(remnan)m(t)0 +198 y(treatmen)m(t,)47 b(as)d(follo)m(ws.)76 b(After)44 +b(the)g(sho)m(w)m(ers)i(ha)m(v)m(e)f(b)s(een)g(generated,)i(the)d +(four-momen)m(tum)e(of)0 307 y(the)j(scattered)g(lepton)f(is)g(c)m +(hanged)h(to)f(the)h(exp)s(ected)h(one,)h(based)e(on)g(the)f(nominal)e +Fj(x)i Fw(and)h Fj(Q)3740 270 y Fl(2)0 415 y Fw(v)-5 +b(alues.)43 b(The)34 b(azim)m(uthal)c(angle)h(of)h(the)h(lepton)f(is)g +(main)m(tained)e(when)k(the)e(transv)m(erse)j(momen)m(tum)0 +523 y(is)24 b(adjusted.)42 b(Photon)24 b(radiation)f(o\013)h(the)h +(lepton)f(leg)g(is)g(not)g(fully)f(accoun)m(ted)j(for,)g(i.e.)40 +b(it)24 b(is)g(assumed)0 632 y(that)38 b(the)h(energy)g(of)f +(\014nal-state)g(photons)h(is)e(added)i(to)f(that)h(of)f(the)g +(scattered)i(electron)e(for)g(the)0 740 y(de\014nition)32 +b(of)g Fj(x)h Fw(and)f Fj(Q)899 704 y Fl(2)971 740 y +Fw(\(this)h(is)f(the)h(normal)d(pro)s(cedure)k(for)e +(parton-distribution)e(de\014nitions\).)146 848 y(The)43 +b(c)m(hange)g(of)e(three-momen)m(tum)g(on)g(the)h(lepton)g(side)f(of)h +(the)g(ev)m(en)m(t)h(is)f(balanced)f(b)m(y)i(the)0 957 +y(\014nal)31 b(state)h(partons)g(on)f(the)h(hadron)g(side,)g(excluding) +f(the)h(b)s(eam)f(remnan)m(t)h(but)g(including)d(all)h(the)0 +1065 y(partons)43 b(b)s(oth)f(from)f(initial-)d(and)k(\014nal-state)g +(sho)m(w)m(ering.)73 b(The)44 b(fraction)d(of)h(three-momen)m(tum)0 +1173 y(shift)i(tak)m(en)h(b)m(y)g(eac)m(h)g(parton)e(is)h(prop)s +(ortional)d(to)j(its)g(original)c(ligh)m(t-cone)j(momen)m(tum)g(in)g +(the)0 1282 y(direction)34 b(of)h(the)g(incoming)e(lepton,)j(i.e.)50 +b(to)35 b Fj(E)30 b Fn(\007)24 b Fj(p)1991 1297 y Fh(z)2066 +1282 y Fw(for)35 b(a)g(hadron)g(mo)m(ving)f(in)g(the)i +Fn(\006)f Fw(direction.)0 1390 y(This)i(pro)s(cedure)i(guaran)m(tees)f +(momen)m(tum)e(but)h(not)g(energy)h(conserv)-5 b(ation.)58 +b(F)-8 b(or)36 b(the)i(latter,)f(one)0 1498 y(additional)30 +b(degree)j(of)f(freedom)g(is)g(needed,)i(whic)m(h)f(is)f(tak)m(en)h(to) +g(b)s(e)f(the)h(longitudinal)c(momen)m(tum)0 1607 y(of)k(the)g(initial) +c(state)34 b(sho)m(w)m(er)g(initiator.)42 b(As)33 b(this)g(momen)m(tum) +e(is)i(mo)s(di\014ed,)f(the)h(c)m(hange)h(is)f(shared)0 +1715 y(b)m(y)i(the)g(\014nal)f(state)h(partons)f(on)h(the)g(hadron)f +(side,)h(according)f(to)g(the)h(same)f(ligh)m(t-cone)f(fractions)0 +1823 y(as)k(b)s(efore)g(\(based)g(on)g(the)g(original)d(momen)m(ta\).) +54 b(Energy)38 b(conserv)-5 b(ation)37 b(requires)g(that)g(the)g(total) +0 1932 y(c)m(hange)45 b(in)e(\014nal)g(state)h(parton)f(energies)i +(plus)e(the)h(c)m(hange)h(in)e(lepton)g(side)h(energy)h(equals)f(the)0 +2040 y(c)m(hange)39 b(in)f(initiator)d(energy)-8 b(.)62 +b(This)39 b(condition)e(can)i(b)s(e)f(turned)i(in)m(to)d(an)i(iterativ) +m(e)e(pro)s(cedure)j(to)0 2148 y(\014nd)33 b(the)g(initiator)c(momen)m +(tum)j(shift.)146 2257 y(Sometimes)e(the)i(pro)s(cedure)g(ma)m(y)f +(break)g(do)m(wn.)44 b(F)-8 b(or)31 b(instance,)h(an)f(initiator)c +(with)k Fj(x)d(>)g Fw(1)j(ma)m(y)0 2365 y(b)s(e)j(reconstructed.)49 +b(If)33 b(this)h(should)f(happ)s(en,)i(the)f Fj(x)g Fw(and)g +Fj(Q)2282 2329 y Fl(2)2356 2365 y Fw(v)-5 b(alues)33 +b(of)g(the)i(ev)m(en)m(t)g(are)f(preserv)m(ed,)0 2473 +y(but)i(new)h(initial)c(and)j(\014nal)f(state)h(sho)m(w)m(ers)j(are)d +(generated.)54 b(After)37 b(\014v)m(e)g(suc)m(h)g(failures,)f(the)h(ev) +m(en)m(t)0 2582 y(is)32 b(completely)g(discared)g(in)g(fa)m(v)m(our)h +(of)f(a)h(new)g(kinematical)d(setup.)146 2690 y(Kindly)38 +b(note)h(that)g(the)h(four-momen)m(tum)d(of)h(in)m(termediate)g +(partons)h(in)f(the)i(sho)m(w)m(er)h(history)0 2798 y(are)31 +b(not)f(b)s(eing)g(adjusted.)44 b(In)31 b(a)g(listing)d(of)i(the)i +(complete)e(ev)m(en)m(t)i(history)-8 b(,)31 b(energy)h(and)f(momen)m +(tum)0 2907 y(need)40 b(then)f(not)f(b)s(e)h(conserv)m(ed)i(in)d(sho)m +(w)m(er)i(branc)m(hings.)62 b(This)38 b(mismatc)m(h)g(could)g(b)s(e)g +(\014xed)i(up,)h(if)0 3015 y(need)34 b(b)s(e.)146 3123 +y(The)h(sc)m(heme)h(presen)m(ted)g(ab)s(o)m(v)m(e)f(should)e(not)h(b)s +(e)h(tak)m(en)g(to)s(o)e(literally)-8 b(,)31 b(but)j(is)g(rather)g(in)m +(tended)0 3232 y(as)f(a)g(con)m(trast)h(to)e(the)i(more)e +(sophisticated)h(sc)m(hemes)i(already)d(on)h(the)h(mark)m(et,)f(if)f +(one)h(w)m(ould)g(lik)m(e)0 3340 y(to)d(understand)i(whether)g(the)g +(kind)e(of)g(conserv)-5 b(ation)31 b(sc)m(heme)h(c)m(hosen)g(do)s(es)f +(a\013ect)g(the)g(observ)-5 b(able)0 3448 y(ph)m(ysics.)0 +3722 y Fp(10.4)136 b(Routines)46 b(and)e(Common)i(Blo)t(c)l(k)e(V)-11 +b(ariables)0 3895 y Fw(In)32 b(this)g(section)h(w)m(e)g(collect)e +(information)e(on)j(ho)m(w)h(to)e(use)j(the)e(initial-)c(and)k +(\014nal-state)g(sho)m(w)m(ering)0 4003 y(routines.)43 +b(Of)30 b(these)i Fq(LUSHOW)g Fw(for)e(\014nal-state)g(radiation)e(is)j +(the)g(more)f(generally)f(in)m(teresting,)i(since)0 4112 +y(it)k(can)h(b)s(e)g(called)f(to)h(let)f(a)h(user-de\014ned)h(parton)f +(con\014guration)f(sho)m(w)m(er.)56 b Fq(PYSSPA)p Fw(,)37 +b(on)f(the)g(other)0 4220 y(hand,)j(is)f(so)g(in)m(tert)m(wined)g(with) +f(the)h(general)g(structure)h(of)e(a)h Fm(Pythia)f Fw(ev)m(en)m(t)j +(that)e(it)e(is)i(of)f(little)0 4328 y(use)d(as)e(a)h(stand-alone)e +(pro)s(duct.)p 0 4473 1440 9 v 0 4698 9 225 v 79 4613 +a Fq(CALL)52 b(LUSHOW\(IP1,IP2,QMAX\))p 1432 4698 V 0 +4706 1440 9 v 0 4837 a Fo(Purp)s(ose:)c Fw(to)40 b(generate)h(time-lik) +m(e)d(parton)i(sho)m(w)m(ers,)k(con)m(v)m(en)m(tional)d(or)f(coheren)m +(t.)68 b(The)41 b(p)s(erfor-)472 4946 y(mance)29 b(of)f(the)g(program)f +(is)h(regulated)g(b)m(y)h(the)g(switc)m(hes)h Fq(MSTJ\(40\))53 +b(-)f(MSTJ\(50\))30 b Fw(and)472 5054 y(parameters)37 +b Fq(PARJ\(81\))53 b(-)f(PARJ\(89\))p Fw(.)58 b(In)36 +b(order)h(to)f(k)m(eep)j(trac)m(k)e(of)f(the)h(colour)f(\015o)m(w)472 +5163 y(information,)e(the)h(p)s(ositions)g Fq(K\(I,4\))i +Fw(and)e Fq(K\(I,5\))i Fw(ha)m(v)m(e)g(to)e(b)s(e)h(organized)f(prop)s +(erly)472 5271 y(for)46 b(sho)m(w)m(ering)h(partons.)85 +b(Inside)47 b(the)g Fm(Jetset/Pythia)e Fw(programs,)k(this)d(is)g(done) +472 5379 y(automatically)-8 b(,)30 b(but)i(for)g(external)h(use)h(prop) +s(er)e(care)h(m)m(ust)g(b)s(e)g(tak)m(en.)0 5488 y Fq(IP1)52 +b(>)g(0,)f(IP2)h(=)g(0)g(:)47 b Fw(generate)c(a)f(time-lik)m(e)d +(parton)j(sho)m(w)m(er)i(for)e(the)g(parton)g(in)g(line)e +Fq(IP1)j Fw(in)472 5596 y(common)k(blo)s(c)m(k)g Fq(LUJETS)p +Fw(,)j(with)d(maxim)m(um)e(allo)m(w)m(ed)i(mass)h Fq(QMAX)p +Fw(.)h(With)e(only)g(one)1817 5953 y(206)p eop +%%Page: 207 213 +207 212 bop 472 -18 a Fw(parton)31 b(at)e(hand,)j(one)e(cannot)h(sim)m +(ultaneously)e(conserv)m(e)j(b)s(oth)e(energy)i(and)e(momen-)472 +90 y(tum:)51 b(w)m(e)37 b(here)g(c)m(ho)s(ose)h(to)e(conserv)m(e)i +(energy)g(and)e(jet)g(direction,)h(while)e(longitudinal)472 +198 y(momen)m(tum)d(\(along)f(the)i(jet)f(axis\))h(is)f(not)g(conserv)m +(ed.)0 307 y Fq(IP1)52 b(>)g(0,)f(IP2)h(>)g(0)g(:)47 +b Fw(generate)33 b(time-lik)m(e)d(parton)j(sho)m(w)m(ers)i(for)d(the)h +(t)m(w)m(o)g(partons)g(in)f(lines)g Fq(IP1)472 415 y +Fw(and)k Fq(IP2)g Fw(in)f(the)h(common)e(blo)s(c)m(k)h +Fq(LUJETS)p Fw(,)i(with)e(maxim)m(um)e(allo)m(w)m(ed)i(mass)h(for)f +(eac)m(h)472 523 y(parton)f Fq(QMAX)p Fw(.)i(F)-8 b(or)33 +b(sho)m(w)m(er)j(ev)m(olution,)e(the)h(t)m(w)m(o)g(partons)f(are)h(b)s +(o)s(osted)f(to)g(their)g(c.m.)472 632 y(frame.)51 b(Energy)36 +b(and)f(momen)m(tum)f(is)g(conserv)m(ed)k(for)c(the)i(pair)e(of)h +(partons,)h(although)472 740 y(not)29 b(for)g(eac)m(h)h(individually)-8 +b(.)39 b(One)30 b(of)f(the)g(t)m(w)m(o)h(partons)f(ma)m(y)g(b)s(e)h +(replaced)f(b)m(y)h(a)f(nonra-)472 848 y(diating)i(particle,)g(suc)m(h) +j(as)f(a)g(photon)f(or)g(a)h(diquark;)f(the)h(energy)h(and)f(momen)m +(tum)e(of)472 957 y(this)25 b(particle)f(will)e(then)k(b)s(e)f(mo)s +(di\014ed)e(to)i(conserv)m(e)i(the)e(total)f(energy)i(and)f(momen)m +(tum.)0 1065 y Fq(IP1)52 b(>)g(0,)f(IP2)h(<)g(0)g(:)47 +b Fw(generate)29 b(time-lik)m(e)c(parton)j(sho)m(w)m(ers)i(for)e(the)g +Fq(-IP2)h Fw(\(at)f(most)g(3\))f(partons)472 1173 y(in)37 +b(lines)g Fq(IP1)p Fw(,)j Fq(IP1+1)p Fw(,)g(.)16 b(.)g(.)g +Fq(IPI-IP2-1)41 b Fw(in)36 b(the)i(common)f(blo)s(c)m(k)g +Fq(LUJETS)p Fw(,)i(with)e(maxi-)472 1282 y(m)m(um)c(allo)m(w)m(ed)f +(mass)i(for)e(eac)m(h)i(parton)g Fq(QMAX)p Fw(.)g(The)g(actions)f(for)g +Fq(IP2=-1)i Fw(and)e Fq(IP2=-2)472 1390 y Fw(corresp)s(ond)j(to)e(what) +g(is)g(describ)s(ed)i(ab)s(o)m(v)m(e,)f(but)g(additionally)e +Fq(IP2=-3)i Fw(ma)m(y)g(b)s(e)f(used)472 1498 y(to)c(generate)g(the)h +(ev)m(olution)d(starting)h(from)g(three)h(giv)m(en)g(partons)g(\(e.g.) +43 b(in)29 b(\007)f Fn(!)f Fw(ggg)q(\).)472 1607 y(Then)38 +b(the)f(three)h(partons)f(are)f(b)s(o)s(osted)h(to)g(their)f(c.m.)55 +b(frame,)37 b(energy)h(is)e(conserv)m(ed)472 1715 y(for)c(eac)m(h)i +(parton)e(individually)e(and)i(momen)m(tum)g(for)g(the)h(system)g(as)g +(a)f(whole.)0 1823 y Fq(QMAX)52 b(:)165 b Fw(the)26 b(maxim)m(um)d +(allo)m(w)m(ed)h(mass)h(of)g(a)g(radiating)e(parton,)j(i.e.)41 +b(the)26 b(starting)e(v)-5 b(alue)24 b(for)h(the)472 +1932 y(subsequen)m(t)k(ev)m(olution.)41 b(\(In)26 b(addition,)f(the)i +(mass)f(of)f(a)h(single)e(parton)i(ma)m(y)g(not)f(exceed)472 +2040 y(its)j(energy)-8 b(,)29 b(the)f(mass)g(of)f(a)g(parton)h(in)f(a)g +(system)i(ma)m(y)e(not)h(exceed)h(the)f(in)m(v)-5 b(arian)m(t)27 +b(mass)472 2148 y(of)33 b(the)g(system.\))0 2336 y Fq(SUBROUTINE)54 +b(PYSSPA\(IPU1,IPU2\))i(:)47 b Fw(to)25 b(generate)i(the)f(space-lik)m +(e)f(sho)m(w)m(ers)j(of)d(the)h(initial-state)472 2444 +y(radiation.)p 0 2594 2876 9 v 0 2819 9 225 v 79 2734 +a Fq(COMMON/LUDAT1/MSTU\(200\),)q(PARU)q(\(200)q(\),MS)q(TJ\()q(200\))q +(,PAR)q(J\(20)q(0\))p 2867 2819 V 0 2827 2876 9 v 0 2959 +a Fo(Purp)s(ose:)48 b Fw(to)31 b(giv)m(e)h(access)i(to)d(a)h(n)m(um)m +(b)s(er)g(of)f(status)i(co)s(des)g(and)f(parameters)f(whic)m(h)i +(regulate)e(the)472 3067 y(p)s(erformance)k(of)42 b Fm(Jetset)p +Fw(.)50 b(Most)36 b(parameters)f(are)g(describ)s(ed)h(in)e(section)i +(14.4;)g(here)472 3175 y(only)d(those)g(related)f(to)g +Fq(LUSHOW)i Fw(are)f(describ)s(ed.)0 3338 y Fq(MSTJ\(40\))53 +b(:)48 b Fw(\(D=0\))27 b(p)s(ossibilit)m(y)f(to)i(suppress)i(the)f +(branc)m(hing)f(probabilit)m(y)e(for)i(a)g(branc)m(hing)g(q)g +Fn(!)472 3446 y Fw(qg)35 b(\(or)d(q)d Fn(!)f Fw(q)p Fj(\015)5 +b Fw(\))33 b(of)f(a)h(quark)h(pro)s(duced)f(in)g(the)g(deca)m(y)h(of)e +(an)h(unstable)g(particle)f(with)472 3555 y(width)37 +b(\000,)h(where)g(this)f(width)f(has)i(to)e(b)s(e)h(sp)s(eci\014ed)h(b) +m(y)g(the)f(user)h(in)e Fq(PARJ\(89\))p Fw(.)59 b(The)472 +3663 y(algorithm)24 b(used)k(is)f(not)g(exact,)i(but)e(still)e(giv)m +(es)i(some)g(impression)f(of)h(p)s(oten)m(tial)e(e\013ects.)472 +3771 y(This)40 b(switc)m(h)g(ough)m(t)f(to)g(ha)m(v)m(e)i(app)s(eared)f +(at)f(the)g(end)h(of)f(the)h(curren)m(t)g(list)e(of)h(sho)m(w)m(er)472 +3880 y(switc)m(hes)29 b(\(after)e Fq(MSTJ\(50\))p Fw(\),)k(but)c(b)s +(ecause)i(of)e(lac)m(k)g(of)g(space)i(it)d(app)s(ears)i(immediately)472 +3988 y(b)s(efore.)236 4096 y Fq(=)52 b(0)f(:)217 b Fw(no)32 +b(suppression,)i(i.e.)43 b(the)33 b(standard)g(parton-sho)m(w)m(er)h +(mac)m(hinery)-8 b(.)236 4205 y Fq(=)52 b(1)f(:)217 b +Fw(suppress)50 b(radiation)45 b(b)m(y)k(a)e(factor)g +Fj(\037)p Fw(\()p Fj(!)t Fw(\))53 b(=)g(\000)2534 4168 +y Fl(2)2574 4205 y Fj(=)p Fw(\(\000)2722 4168 y Fl(2)2793 +4205 y Fw(+)33 b Fj(!)2967 4168 y Fl(2)3005 4205 y Fw(\),)52 +b(where)d Fj(!)i Fw(is)c(the)709 4313 y(energy)30 b(of)g(the)g(gluon)e +(\(or)i(photon\))f(in)g(the)h(rest)h(frame)d(of)i(the)g(radiating)d +(dip)s(ole.)709 4421 y(Essen)m(tially)32 b(this)g(means)h(that)f(hard)h +(radiation)d(with)i Fj(!)f(>)d Fw(\000)k(is)g(remo)m(v)m(ed.)236 +4530 y Fq(=)52 b(2)f(:)217 b Fw(suppress)37 b(radiation)c(b)m(y)j(a)f +(factor)f(1)24 b Fn(\000)g Fj(\037)p Fw(\()p Fj(!)t Fw(\))31 +b(=)h Fj(!)2606 4494 y Fl(2)2645 4530 y Fj(=)p Fw(\(\000)2793 +4494 y Fl(2)2856 4530 y Fw(+)23 b Fj(!)3020 4494 y Fl(2)3059 +4530 y Fw(\),)36 b(where)g Fj(!)i Fw(is)d(the)709 4638 +y(energy)30 b(of)g(the)g(gluon)e(\(or)i(photon\))f(in)g(the)h(rest)h +(frame)d(of)i(the)g(radiating)d(dip)s(ole.)709 4746 y(Essen)m(tially)32 +b(this)g(means)h(that)f(soft)h(radiation)d(with)i Fj(!)f(<)d +Fw(\000)k(is)g(remo)m(v)m(ed.)0 4855 y Fq(MSTJ\(41\))53 +b(:)48 b Fw(\(D=2\))31 b(t)m(yp)s(e)j(of)e(branc)m(hings)h(allo)m(w)m +(ed)f(in)g(sho)m(w)m(er.)236 4963 y Fq(=)52 b(0)f(:)217 +b Fw(no)32 b(branc)m(hings)h(at)f(all,)f(i.e.)43 b(sho)m(w)m(er)34 +b(is)e(switc)m(hed)i(o\013.)236 5071 y Fq(=)52 b(1)f(:)217 +b Fw(QCD)32 b(t)m(yp)s(e)h(branc)m(hings)g(of)g(quarks)g(and)g(gluons.) +236 5180 y Fq(=)52 b(2)f(:)217 b Fw(also)26 b(emission)f(of)i(photons)g +(o\013)f(quarks)i(and)f(leptons;)i(the)f(photons)f(are)g(assumed)709 +5288 y(on)32 b(the)h(mass)g(shell.)236 5396 y Fq(=)52 +b(10)g(:)165 b Fw(as)36 b Fq(=2)p Fw(,)h(but)f(enhance)i(photon)d +(emission)g(b)m(y)i(a)e(factor)h Fq(PARJ\(84\))p Fw(.)55 +b(This)37 b(option)709 5505 y(is)h(unph)m(ysical,)k(but)d(for)g(mo)s +(derate)f(v)-5 b(alues,)41 b Fq(PARJ\(84\))p Fn(\024)g +Fw(10,)g(it)d(ma)m(y)h(b)s(e)g(used)709 5613 y(to)29 +b(enhance)j(the)f(prompt)e(photon)h(signal)f(in)g(q)p +2472 5560 52 4 v(q)i(ev)m(en)m(ts.)45 b(The)32 b(normalization)26 +b(of)1817 5953 y(207)p eop +%%Page: 208 214 +208 213 bop 709 -18 a Fw(the)32 b(prompt)f(photon)i(rate)f(should)f +(then)i(b)s(e)f(scaled)h(do)m(wn)g(b)m(y)f(the)h(same)f(factor.)709 +90 y(The)e(dangers)h(of)e(an)h(improp)s(er)e(use)j(are)f(signi\014can)m +(t,)g(so)g(do)g(not)f(use)i(this)f(option)709 198 y(if)h(y)m(ou)i(do)g +(not)f(kno)m(w)i(what)f(y)m(ou)g(are)g(doing.)0 307 y +Fq(MSTJ\(42\))53 b(:)48 b Fw(\(D=2\))31 b(branc)m(hing)i(mo)s(de)f(for) +g(time-lik)m(e)e(sho)m(w)m(ers.)236 415 y Fq(=)52 b(1)f(:)217 +b Fw(con)m(v)m(en)m(tional)32 b(branc)m(hing,)h(i.e.)43 +b(without)32 b(angular)f(ordering.)236 523 y Fq(=)52 +b(2)f(:)217 b Fw(coheren)m(t)34 b(branc)m(hing,)e(i.e.)43 +b(with)32 b(angular)g(ordering.)0 632 y Fq(MSTJ\(43\))53 +b(:)48 b Fw(\(D=4\))31 b(c)m(hoice)i(of)f Fj(z)38 b Fw(de\014nition)31 +b(in)h(branc)m(hing.)236 740 y Fq(=)52 b(1)f(:)217 b +Fw(energy)33 b(fraction)f(in)f(grandmother's)i(rest)g(frame)f(\(`lo)s +(cal,)e(constrained'\).)236 848 y Fq(=)52 b(2)f(:)217 +b Fw(energy)24 b(fraction)d(in)h(grandmother's)h(rest)h(frame)e +(assuming)g(massless)h(daugh)m(ters,)709 957 y(with)39 +b(energy)h(and)g(momen)m(tum)e(resh)m(u\017ed)j(for)e(massiv)m(e)h +(ones)g(\(`lo)s(cal,)f(uncon-)709 1065 y(strained'\).)236 +1173 y Fq(=)52 b(3)f(:)217 b Fw(energy)45 b(fraction)f(in)g(c.m.)80 +b(frame)43 b(of)i(the)g(sho)m(w)m(ering)g(partons)g(\(`global,)h(con-) +709 1282 y(strained'\).)236 1390 y Fq(=)52 b(4)f(:)217 +b Fw(energy)37 b(fraction)e(in)g(c.m.)54 b(frame)36 b(of)g(the)g(sho)m +(w)m(ering)h(partons)g(assuming)e(mass-)709 1498 y(less)j(daugh)m +(ters,)j(with)c(energy)j(and)e(momen)m(tum)f(resh)m(u\017ed)j(for)d +(massiv)m(e)i(ones)709 1607 y(\(`global,)30 b(unconstrained'\).)0 +1715 y Fq(MSTJ\(44\))53 b(:)48 b Fw(\(D=2\))31 b(c)m(hoice)i(of)f +Fj(\013)1330 1730 y Fl(s)1395 1715 y Fw(scale)h(for)f(sho)m(w)m(er.)236 +1823 y Fq(=)52 b(0)f(:)217 b Fw(\014xed)33 b(at)g Fq(PARU\(111\))i +Fw(v)-5 b(alue.)236 1932 y Fq(=)52 b(1)f(:)217 b Fw(running)42 +b(with)g Fj(Q)1391 1896 y Fl(2)1476 1932 y Fw(=)i Fj(m)1681 +1896 y Fl(2)1721 1932 y Fj(=)p Fw(4,)h Fj(m)e Fw(mass)f(of)h(deca)m +(ying)g(parton,)i(\003)d(as)h(stored)g(in)709 2040 y +Fq(PARJ\(81\))34 b Fw(\(natural)e(c)m(hoice)h(for)f(con)m(v)m(en)m +(tional)g(sho)m(w)m(ers\).)236 2148 y Fq(=)52 b(2)f(:)217 +b Fw(running)30 b(with)g Fj(Q)1367 2112 y Fl(2)1434 2148 +y Fw(=)e Fj(z)t Fw(\(1)18 b Fn(\000)g Fj(z)t Fw(\))p +Fj(m)1959 2112 y Fl(2)2000 2148 y Fw(,)31 b(i.e.)42 b(roughly)30 +b Fj(p)2627 2112 y Fl(2)2627 2173 y Fk(?)2716 2148 y +Fw(of)g(branc)m(hing,)h(\003)f(as)h(stored)709 2257 y(in)g +Fq(PARJ\(81\))k Fw(\(natural)c(c)m(hoice)i(for)f(coheren)m(t)i(sho)m(w) +m(ers\).)0 2365 y Fq(MSTJ\(45\))53 b(:)48 b Fw(\(D=5\))37 +b(maxim)m(um)f(\015a)m(v)m(our)j(that)f(can)h(b)s(e)g(pro)s(duced)g(in) +e(sho)m(w)m(er)j(b)m(y)g(g)e Fn(!)f Fw(q)p 3496 2312 +52 4 v(q)q(;)k(also)472 2473 y(used)35 b(to)e(determine)g(the)g(maxim)m +(um)e(n)m(um)m(b)s(er)j(of)f(activ)m(e)g(\015a)m(v)m(ours)i(in)d(the)i +Fj(\013)3353 2488 y Fl(s)3418 2473 y Fw(factor)f(in)472 +2582 y(parton)g(sho)m(w)m(ers)i(\(here)e(with)f(a)g(minim)m(um)e(of)i +(3\).)0 2690 y Fq(MSTJ\(46\))53 b(:)48 b Fw(\(D=3\))22 +b(nonhomogeneous)h(azim)m(uthal)e(distributions)g(in)h(a)h(sho)m(w)m +(er)i(branc)m(hing.)236 2798 y Fq(=)52 b(0)f(:)217 b +Fw(azim)m(uthal)30 b(angle)i(is)g(c)m(hosen)i(uniformly)-8 +b(.)236 2907 y Fq(=)52 b(1)f(:)217 b Fw(nonhomogeneous)38 +b(azim)m(uthal)e(angle)i(in)f(gluon)g(deca)m(ys)j(due)f(to)f(a)g +(kinematics-)709 3015 y(dep)s(enden)m(t)31 b(e\013ectiv)m(e)f(gluon)e +(p)s(olarization.)40 b(Not)29 b(meaningful)e(for)h(scalar)h(mo)s(del,) +709 3123 y(i.e.)43 b(then)33 b(same)f(as)h Fq(=0)p Fw(.)236 +3232 y Fq(=)52 b(2)f(:)217 b Fw(nonhomogeneous)26 b(azim)m(uthal)e +(angle)h(in)g(gluon)g(deca)m(y)i(due)g(to)f(in)m(terference)h(with)709 +3340 y(nearest)43 b(neigh)m(b)s(our)f(\(in)g(colour\).)72 +b(Not)42 b(meaningful)f(for)g(Ab)s(elian)g(mo)s(del,)j(i.e.)709 +3448 y(then)33 b(same)f(as)h Fq(=0)p Fw(.)236 3557 y +Fq(=)52 b(3)f(:)217 b Fw(nonhomogeneous)23 b(azim)m(uthal)f(angle)h(in) +g(gluon)f(deca)m(y)j(due)f(to)f(b)s(oth)h(p)s(olarization)709 +3665 y(\()p Fq(=1)p Fw(\))34 b(and)f(in)m(terference)i(\()p +Fq(=2)p Fw(\).)47 b(Not)34 b(meaningful)d(for)i(Ab)s(elian)f(mo)s(del,) +h(i.e.)46 b(then)709 3774 y(same)32 b(as)h Fq(=1)p Fw(.)44 +b(Not)32 b(meaningful)e(for)j(scalar)e(mo)s(del,)g(i.e.)43 +b(then)34 b(same)e(as)h Fq(=2)p Fw(.)0 3882 y Fq(MSTJ\(47\))53 +b(:)48 b Fw(\(D=3\))g(corrections)h(to)f(the)h(lo)m(w)m(est-order)g(q)p +2328 3829 V(q)q(g)q(,)k(q)p 2561 3829 V(q)q Fj(\015)5 +b Fw(,)53 b Fj(`)2790 3846 y Fl(+)2849 3882 y Fj(`)2890 +3846 y Fk(\000)2949 3882 y Fj(\015)h Fw(or)49 b Fj(`\027)3279 +3897 y Fh(`)3312 3882 y Fj(\015)k Fw(3-parton)472 3990 +y(matrix)27 b(elemen)m(t)h(at)f(the)i(\014rst)f(branc)m(hing)g(of)f +(either)h(initial)c(parton)k(in)f(a)h(sho)m(w)m(er.)236 +4099 y Fq(=)52 b(0)f(:)217 b Fw(no)32 b(corrections.)236 +4207 y Fq(=)52 b(1)f(:)217 b Fw(included)32 b(whenev)m(er)j(scattered)f +(partons)f(are)f(q)p 2511 4154 V(q)q(,)h Fj(`)2664 4171 +y Fl(+)2723 4207 y Fj(`)2764 4171 y Fk(\000)2855 4207 +y Fw(or)f Fj(`\027)3063 4222 y Fh(`)3097 4207 y Fw(.)236 +4315 y Fq(=)52 b(2)f(:)217 b Fw(alw)m(a)m(ys)33 b(included)f(when)i +(sho)m(w)m(er)g(starts)f(from)e(t)m(w)m(o)j(partons.)236 +4424 y Fq(=)52 b(3)f(:)217 b Fw(as)42 b Fq(=1)h Fw(except)h(that)e(for) +g(massiv)m(e)h(quarks)h(also)d(the)i(massiv)m(e)g(matrix)e(elemen)m(t) +709 4532 y(expression)32 b(is)f(used,)i(eq.)g(\(30\),)e(while)f +Fq(=1)i Fw(is)f(alw)m(a)m(ys)h(based)h(on)e(massless)h(matrix)709 +4640 y(elemen)m(ts.)236 4749 y Fq(=)52 b(4)f(:)217 b +Fw(as)42 b Fq(=2)h Fw(except)h(that)e(for)g(massiv)m(e)h(quarks)h(also) +d(the)i(massiv)m(e)g(matrix)e(elemen)m(t)709 4857 y(expression)29 +b(is)e(used,)j(while)d Fq(=2)h Fw(is)g(alw)m(a)m(ys)g(based)h(on)f +(massless)g(matrix)e(elemen)m(ts.)0 4965 y Fq(MSTJ\(48\))53 +b(:)48 b Fw(\(D=0\))e(p)s(ossibilit)m(y)e(to)j(imp)s(ose)f(maxim)m(um)e +(angle)i(for)g(the)i(\014rst)f(branc)m(hing)g(in)f(a)472 +5074 y(sho)m(w)m(er.)236 5182 y Fq(=)52 b(0)f(:)217 b +Fw(no)32 b(explicit)f(maxim)m(um)g(angle.)236 5290 y +Fq(=)52 b(1)f(:)217 b Fw(maxim)m(um)53 b(angle)h(giv)m(en)i(b)m(y)i +Fq(PARJ\(85\))f Fw(for)e(single)f(sho)m(w)m(ering)j(parton,)k(b)m(y)709 +5399 y Fq(PARJ\(85\))34 b Fw(and)f Fq(PARJ\(86\))i Fw(for)d(pair)f(of)h +(sho)m(w)m(ering)i(partons.)0 5507 y Fq(MSTJ\(49\))53 +b(:)48 b Fw(\(D=0\))38 b(p)s(ossibilit)m(y)e(to)j(c)m(hange)h(the)f +(branc)m(hing)g(probabilities)d(according)i(to)h(some)472 +5615 y(alternativ)m(e)31 b(to)m(y)h(mo)s(dels)e(\(note)i(that)f(the)h +Fj(Q)2161 5579 y Fl(2)2232 5615 y Fw(ev)m(olution)e(of)h +Fj(\013)2825 5630 y Fl(s)2889 5615 y Fw(ma)m(y)g(w)m(ell)g(b)s(e)g +(di\013eren)m(t)1817 5953 y(208)p eop +%%Page: 209 215 +209 214 bop 472 -18 a Fw(in)30 b(these)h(mo)s(dels,)e(but)h(that)g +(only)f(the)h Fq(MSTJ\(44\))i Fw(options)d(are)h(at)g(the)g(disp)s +(osal)f(of)g(the)472 90 y(user\).)236 198 y Fq(=)52 b(0)f(:)217 +b Fw(standard)33 b(QCD)f(branc)m(hings.)236 307 y Fq(=)52 +b(1)f(:)217 b Fw(branc)m(hings)37 b(according)g(to)g(a)g(scalar)g +(gluon)f(theory)-8 b(,)39 b(i.e.)58 b(the)37 b(splitting)e(k)m(ernels) +709 415 y(in)h(the)i(ev)m(olution)f(equations)h(are,)h(with)e(a)g +(common)f(factor)h Fj(\013)3120 430 y Fl(s)3152 415 y +Fj(=)p Fw(\(2)p Fj(\031)t Fw(\))g(omitted,)709 523 y +Fj(P)772 538 y Fl(q)p Fk(!)p Fl(qg)992 523 y Fw(=)d(\(2)p +Fj(=)p Fw(3\)\(1)24 b Fn(\000)i Fj(z)t Fw(\),)38 b Fj(P)1754 +538 y Fl(g)q Fk(!)p Fl(gg)1971 523 y Fw(=)f Fq(PARJ\(87\))p +Fw(,)j Fj(P)2622 538 y Fl(g)q Fk(!)p Fl(q)p 2766 500 +38 4 v(q)2842 523 y Fw(=)d Fq(PARJ\(88\))h Fw(\(for)f(eac)m(h)709 +632 y(separate)f(\015a)m(v)m(our\).)54 b(The)37 b(couplings)e(of)g(the) +h(gluon)f(ha)m(v)m(e)i(b)s(een)g(left)e(as)h(free)g(pa-)709 +740 y(rameters,)29 b(since)f(they)i(dep)s(end)f(on)f(the)h(colour)e +(structure)i(assumed.)43 b(Note)29 b(that,)709 848 y(since)g(a)g(spin)h +(0)f(ob)5 b(ject)30 b(deca)m(ys)h(isotropically)-8 b(,)27 +b(the)j(gluon)e(splitting)f(k)m(ernels)k(con-)709 957 +y(tain)g(no)i Fj(z)k Fw(dep)s(endence.)236 1065 y Fq(=)52 +b(2)f(:)217 b Fw(branc)m(hings)36 b(according)g(to)g(an)g(Ab)s(elian)e +(v)m(ector)j(gluon)f(theory)-8 b(,)37 b(i.e.)54 b(the)36 +b(colour)709 1173 y(factors)e(are)g(c)m(hanged)h(\(compared)f(with)g +(QCD\))g(according)f(to)h Fj(C)3202 1188 y Fh(F)3291 +1173 y Fw(=)c(4)p Fj(=)p Fw(3)g Fn(!)g Fw(1,)709 1282 +y Fj(N)787 1297 y Fh(C)898 1282 y Fw(=)53 b(3)f Fn(!)g +Fw(0,)f Fj(T)1464 1297 y Fh(R)1575 1282 y Fw(=)h(1)p +Fj(=)p Fw(2)g Fn(!)g Fw(3.)87 b(Note)48 b(that)f(an)g(Ab)s(elian)e(mo)s +(del)h(is)h(not)709 1390 y(exp)s(ected)c(to)e(con)m(tain)g(an)m(y)h +(coherence)i(e\013ects)e(b)s(et)m(w)m(een)i(gluons,)f(so)f(that)f(one) +709 1498 y(should)47 b(normally)e(use)j Fq(MSTJ\(42\)=1)i +Fw(and)e Fq(MSTJ\(46\)=)h Fw(0)e(or)g(1.)88 b(Also,)51 +b Fj(\013)3635 1513 y Fl(s)3714 1498 y Fw(is)709 1607 +y(exp)s(ected)36 b(to)e(increase)h(with)f(increasing)g +Fj(Q)2368 1571 y Fl(2)2442 1607 y Fw(scale,)h(rather)f(than)h +(decrease.)51 b(No)709 1715 y(suc)m(h)29 b Fj(\013)986 +1730 y Fl(s)1045 1715 y Fw(option)e(is)g(a)m(v)-5 b(ailable;)27 +b(the)h(one)g(that)f(comes)h(closest)g(is)g Fq(MSTJ\(44\)=0)p +Fw(,)j(i.e.)709 1823 y(a)h(\014x)h(v)-5 b(alue.)0 1932 +y Fq(MSTJ\(50\))53 b(:)48 b Fw(\(D=3\))27 b(p)s(ossibilit)m(y)g(to)h +(in)m(tro)s(duce)g(colour)g(coherence)i(e\013ects)g(in)e(the)h(\014rst) +g(branc)m(hing)472 2040 y(of)j(a)f(\014nal)h(state)g(sho)m(w)m(er;)i +(mainly)c(of)h(relev)-5 b(ance)32 b(for)g(QCD)f(parton{parton)h +(scattering)472 2148 y(pro)s(cesses.)236 2257 y Fq(=)52 +b(0)f(:)217 b Fw(none.)236 2365 y Fq(=)52 b(1)f(:)217 +b Fw(imp)s(ose)31 b(an)i(azim)m(uthal)d(anisotrop)m(y)-8 +b(.)236 2473 y Fq(=)52 b(2)f(:)217 b Fw(restrict)36 b(the)g(p)s(olar)e +(ange)i(of)g(a)f(branc)m(hing)h(to)f(b)s(e)i(smaller)c(than)j(the)h +(scattering)709 2582 y(angle)31 b(of)h(the)h(relev)-5 +b(an)m(t)33 b(colour)f(\015o)m(w.)236 2690 y Fq(=)52 +b(3)f(:)217 b Fw(b)s(oth)32 b(azim)m(uthal)f(anisotrop)m(y)h(and)h +(restricted)g(p)s(olar)e(angles.)236 2798 y Fo(Note:)203 +b Fw(for)53 b(subsequen)m(t)k(branc)m(hings)e(the)f(\(p)s(olar\))f +(angular)g(ordering)g(is)g(automatic)709 2907 y(\()p +Fq(MSTP\(42\)=2)p Fw(\))35 b(and)d Fq(MSTJ\(46\)=3)p +Fw(\).)0 3069 y Fq(PARJ\(81\))53 b(:)48 b Fw(\(D=0.29)41 +b(GeV\))i(\003)g(v)-5 b(alue)42 b(in)g(running)h Fj(\013)2171 +3084 y Fl(s)2245 3069 y Fw(for)g(parton)f(sho)m(w)m(ers)j(\(see)f +Fq(MSTJ\(44\))p Fw(\).)472 3178 y(This)29 b(is)f(used)h(in)e(all)f +(user)j(calls)e(to)h Fq(LUSHOW)p Fw(,)i(in)e(the)g(e)2452 +3141 y Fl(+)2512 3178 y Fw(e)2555 3141 y Fk(\000)2642 +3178 y Fw(routines)g(of)35 b Fm(Jetset)p Fw(,)28 b(and)g(in)472 +3286 y(a)35 b Fm(Pythia)f Fw(\(or)h Fm(Jetset)p Fw(\))e(resonance)j +(deca)m(y)-8 b(.)50 b(It)35 b(is)f(not)h(in)m(tended)g(for)f(other)h +(timelik)m(e)472 3394 y(sho)m(w)m(ers)g(in)d Fm(Pythia)p +Fw(,)h(ho)m(w)m(ev)m(er,)i(for)d(whic)m(h)h Fq(PARP\(72\))i +Fw(is)d(used.)0 3503 y Fq(PARJ\(82\))53 b(:)48 b Fw(\(D=1.0)39 +b(GeV\))i(in)m(v)-5 b(arian)m(t)39 b(mass)i(cut-o\013)f +Fj(m)2249 3518 y Fl(min)2411 3503 y Fw(of)g(parton)h(sho)m(w)m(ers,)k +(b)s(elo)m(w)40 b(whic)m(h)472 3611 y(partons)d(are)e(not)h(assumed)h +(to)e(radiate.)53 b(F)-8 b(or)35 b Fj(Q)2322 3575 y Fl(2)2395 +3611 y Fw(=)e Fj(p)2553 3575 y Fl(2)2553 3636 y Fk(?)2648 +3611 y Fw(\()p Fq(MSTJ\(44\)=2)p Fw(\))38 b Fq(PARJ\(82\))p +Fw(/2)472 3719 y(additionally)26 b(giv)m(es)j(the)h(minim)m(um)25 +b Fj(p)1889 3734 y Fk(?)1977 3719 y Fw(of)j(a)h(branc)m(hing.)42 +b(T)-8 b(o)29 b(a)m(v)m(oid)g(in\014nite)f Fj(\013)3434 +3734 y Fl(s)3494 3719 y Fw(v)-5 b(alues,)472 3828 y(one)24 +b(m)m(ust)f(ha)m(v)m(e)i Fq(PARJ\(82\))p Fj(>)k Fw(2)p +Fn(\002)p Fq(PARJ\(81\))d Fw(for)c Fq(MSTJ\(44\))p Fn(\025)31 +b Fw(1)23 b(\(this)f(is)h(automatically)472 3936 y(c)m(hec)m(k)m(ed)36 +b(in)c(the)h(program,)e(with)h(2)p Fj(:)p Fw(2)p Fn(\002)p +Fq(PARJ\(81\))j Fw(as)e(the)g(lo)m(w)m(est)g(v)-5 b(alue)32 +b(attainable\).)0 4044 y Fq(PARJ\(83\))53 b(:)48 b Fw(\(D=1.0)25 +b(GeV\))h(in)m(v)-5 b(arian)m(t)24 b(mass)i(cut-o\013)g +Fj(m)2176 4059 y Fl(min)2323 4044 y Fw(used)i(for)d(photon)h(emission)f +(in)g(parton)472 4153 y(sho)m(w)m(ers,)49 b(b)s(elo)m(w)43 +b(whic)m(h)h(quarks)g(and)f(leptons)h(are)f(not)g(assumed)h(to)f +(radiate.)75 b(The)472 4261 y(function)33 b(of)40 b Fq(PARJ\(83\))35 +b Fw(closely)e(parallels)e(that)i(of)40 b Fq(PARJ\(82\))35 +b Fw(for)e(QCD)g(branc)m(hings,)472 4369 y(but)g(there)h(is)e(a)g +(priori)f(no)h(requiremen)m(t)h(that)f(the)h(t)m(w)m(o)h(b)s(e)e +(equal.)0 4478 y Fq(PARJ\(84\))53 b(:)48 b Fw(\(D=1.\))41 +b(used)31 b(for)e(option)f Fq(MSTJ\(41\)=10)33 b Fw(as)c(a)g(m)m +(ultiplicativ)m(e)d(factor)j(in)g(the)h(prom)m(t)472 +4586 y(photon)48 b(emission)e(rate)h(in)f(\014nal)h(state)h(parton)f +(sho)m(w)m(ers.)89 b(Unph)m(ysical)48 b(but)f(useful)472 +4694 y(tec)m(hnical)33 b(tric)m(k,)f(so)h(b)s(ew)m(are!)0 +4803 y Fq(PARJ\(85\),)54 b(PARJ\(86\))f(:)48 b Fw(\(D=10.,10.\))125 +b(maxim)m(um)58 b(op)s(ening)h(angles)h(allo)m(w)m(ed)g(in)f(the)i +(\014rst)472 4911 y(branc)m(hing)33 b(of)f(parton)g(sho)m(w)m(ers;)j +(see)f Fq(MSTJ\(48\))p Fw(.)0 5019 y Fq(PARJ\(87\))53 +b(:)48 b Fw(\(D=0.\))42 b(coupling)32 b(of)g(g)c Fn(!)g +Fw(gg)33 b(in)f(scalar)g(gluon)f(sho)m(w)m(er,)k(see)f +Fq(MSTJ\(49\)=1)p Fw(.)0 5128 y Fq(PARJ\(88\))53 b(:)48 +b Fw(\(D=0.\))53 b(coupling)34 b(of)i(g)e Fn(!)f Fw(q)p +1691 5075 52 4 v(q)k(in)f(scalar)f(gluon)g(sho)m(w)m(er)j(\(p)s(er)e +(quark)g(sp)s(ecies\),)i(see)472 5236 y Fq(MSTJ\(49\)=1)p +Fw(.)0 5344 y Fq(PARJ\(89\))53 b(:)48 b Fw(\(D=0.)d(GeV\))33 +b(the)h(width)f(of)g(the)h(unstable)f(particle)f(studied)i(for)f(the)h +Fq(MSTJ\(40\))53 b(>)472 5453 y(0)33 b Fw(options;)f(to)h(b)s(e)f(set)i +(b)m(y)f(the)g(user)h(\(separately)e(for)g(eac)m(h)i +Fq(LUSHOW)g Fw(call,)d(if)g(need)j(b)s(e\).)1817 5953 +y(209)p eop +%%Page: 210 216 +210 215 bop 0 -110 2876 9 v 0 115 9 225 v 79 30 a Fq +(COMMON/PYPARS/MSTP\(200\),)q(PARP)q(\(200)q(\),MS)q(TI\()q(200\))q +(,PAR)q(I\(20)q(0\))p 2867 115 V 0 123 2876 9 v 0 255 +a Fo(Purp)s(ose:)48 b Fw(to)34 b(giv)m(e)g(access)i(to)e(status)h(co)s +(de)f(and)h(parameters)f(whic)m(h)h(regulate)e(the)i(p)s(erformance)472 +363 y(of)51 b Fm(Pythia)p Fw(.)78 b(Most)45 b(parameters)f(are)g +(describ)s(ed)h(in)e(section)h(9.3;)49 b(here)c(only)f(those)472 +472 y(related)33 b(to)f Fq(PYSSPA)i Fw(and)f Fq(LUSHOW)h +Fw(are)e(describ)s(ed.)0 580 y Fq(MSTP\(22\))53 b(:)48 +b Fw(\(D=0\))27 b(sp)s(ecial)f(o)m(v)m(erride)j(of)e(normal)f +Fj(Q)2051 544 y Fl(2)2118 580 y Fw(de\014nition)h(used)h(for)g(maxim)m +(um)d(of)i(parton-)472 688 y(sho)m(w)m(er)35 b(ev)m(olution.)42 +b(This)33 b(option)f(only)g(a\013ects)h(pro)s(cesses)i(10)d(and)g(83)h +(\(deep)g(inelastic)472 797 y(scattering\))g(and)f(only)g(in)g +(lepton{hadron)g(ev)m(en)m(ts.)236 905 y Fq(=)52 b(0)f(:)217 +b Fw(use)33 b(the)g(scale)g(as)g(giv)m(en)f(in)g Fq(MSTP\(32\))p +Fw(.)236 1013 y Fq(=)52 b(1)f(:)217 b Fw(use)33 b(the)g(DIS)g +Fj(Q)1319 977 y Fl(2)1391 1013 y Fw(scale,)f(i.e.)44 +b Fn(\000)1898 995 y Fw(^)1897 1013 y Fj(t)p Fw(.)236 +1122 y Fq(=)52 b(2)f(:)217 b Fw(use)33 b(the)g(DIS)g +Fj(W)1348 1085 y Fl(2)1419 1122 y Fw(scale,)g(i.e.)43 +b(\()p Fn(\000)1964 1103 y Fw(^)1963 1122 y Fj(t)q Fw(\)\(1)21 +b Fn(\000)i Fj(x)p Fw(\))p Fj(=x)p Fw(.)236 1262 y Fq(=)52 +b(3)f(:)217 b Fw(use)33 b(the)g(DIS)g Fj(Q)22 b Fn(\002)h +Fj(W)46 b Fw(scale,)32 b(i.e.)43 b(\()p Fn(\000)2123 +1243 y Fw(^)2122 1262 y Fj(t)q Fw(\))2196 1162 y Fg(q)p +2279 1162 407 4 v 100 x Fw(\(1)22 b Fn(\000)h Fj(x)p +Fw(\))p Fj(=x)p Fw(.)236 1395 y Fq(=)52 b(4)f(:)217 b +Fw(use)25 b(the)g(scale)f Fj(Q)1331 1359 y Fl(2)1370 +1395 y Fw(\(1)5 b Fn(\000)g Fj(x)p Fw(\))17 b(max\(1)p +Fj(;)g Fw(ln)o(\(1)p Fj(=x)p Fw(\)\),)26 b(as)e(motiv)-5 +b(ated)23 b(b)m(y)i(\014rst)g(order)f(matrix)709 1503 +y(elemen)m(ts)33 b([Ing80)o(,)g(Alt78)o(].)236 1612 y +Fo(Note:)203 b Fw(in)55 b(all)f(of)i(these)i(alternativ)m(es,)k(a)56 +b(m)m(ultiplicativ)m(e)c(factor)k(is)g(in)m(tro)s(duced)h(b)m(y)709 +1720 y Fq(PARP\(67\))34 b Fw(and)f Fq(PARP\(71\))p Fw(,)i(as)d(usual.)0 +1828 y Fq(MSTP\(61\))53 b(:)48 b Fw(\(D=1\))31 b(master)i(switc)m(h)g +(for)f(initial-state)d(QCD)j(and)h(QED)f(radiation.)236 +1937 y Fq(=)52 b(0)f(:)217 b Fw(o\013.)236 2045 y Fq(=)52 +b(1)f(:)217 b Fw(on.)0 2153 y Fq(MSTP\(62\))53 b(:)48 +b Fw(\(D=3\))d(lev)m(el)g(of)h(coherence)h(imp)s(osed)e(on)h(the)g +(space-lik)m(e)g(parton-sho)m(w)m(er)h(ev)m(olu-)472 +2262 y(tion.)236 2370 y Fq(=)52 b(1)f(:)217 b Fw(none,)33 +b(i.e.)43 b(neither)32 b Fj(Q)1544 2334 y Fl(2)1617 2370 +y Fw(v)-5 b(alues)32 b(nor)g(angles)h(need)g(b)s(e)g(ordered.)236 +2478 y Fq(=)52 b(2)f(:)217 b Fj(Q)786 2442 y Fl(2)863 +2478 y Fw(v)-5 b(alues)37 b(at)g(branc)m(hes)i(are)f(strictly)e +(ordered,)k(increasing)c(to)m(w)m(ards)j(the)e(hard)709 +2587 y(in)m(teraction.)236 2695 y Fq(=)52 b(3)f(:)217 +b Fj(Q)786 2659 y Fl(2)853 2695 y Fw(v)-5 b(alues)27 +b(and)g(op)s(ening)f(angles)h(of)g(emitted)f(\(on-mass-shell)g(or)g +(time-lik)m(e\))f(par-)709 2803 y(tons)33 b(are)f(b)s(oth)g(strictly)g +(ordered,)i(increasing)d(to)m(w)m(ards)j(the)f(hard)g(in)m(teraction.)0 +2912 y Fq(MSTP\(63\))53 b(:)48 b Fw(\(D=2\))41 b(structure)j(of)e(asso) +s(ciated)h(time-lik)m(e)d(sho)m(w)m(ers,)47 b(i.e.)73 +b(sho)m(w)m(ers)44 b(initiated)d(b)m(y)472 3020 y(emission)32 +b(o\013)g(the)h(incoming)d(space-lik)m(e)j(partons.)236 +3128 y Fq(=)52 b(0)f(:)217 b Fw(no)39 b(asso)s(ciated)f(sho)m(w)m(ers)k +(are)d(allo)m(w)m(ed,)g(i.e.)63 b(emitted)38 b(partons)h(are)g(put)g +(on)g(the)709 3237 y(mass)32 b(shell.)236 3345 y Fq(=)52 +b(1)f(:)217 b Fw(a)35 b(sho)m(w)m(er)h(ma)m(y)f(ev)m(olv)m(e,)i(with)e +(maxim)m(um)e(allo)m(w)m(ed)i(time-lik)m(e)d(virtualit)m(y)i(set)i(b)m +(y)709 3453 y(the)d(phase)g(space)h(only)-8 b(.)236 3562 +y Fq(=)52 b(2)f(:)217 b Fw(a)35 b(sho)m(w)m(er)h(ma)m(y)f(ev)m(olv)m +(e,)i(with)e(maxim)m(um)e(allo)m(w)m(ed)i(time-lik)m(e)d(virtualit)m(y) +i(set)i(b)m(y)709 3670 y(phase)e(space)g(or)f(b)m(y)j +Fq(PARP\(71\))g Fw(times)c(the)i Fj(Q)2451 3634 y Fl(2)2524 +3670 y Fw(v)-5 b(alue)33 b(of)g(the)g(space-lik)m(e)h(parton)709 +3778 y(created)f(in)f(the)h(same)f(v)m(ertex,)j(whic)m(hev)m(er)f(is)e +(the)h(stronger)g(constrain)m(t.)0 3887 y Fq(MSTP\(64\))53 +b(:)48 b Fw(\(D=2\))31 b(c)m(hoice)i(of)f Fj(\013)1330 +3902 y Fl(s)1395 3887 y Fw(and)h Fj(Q)1662 3851 y Fl(2)1734 +3887 y Fw(scale)g(in)e(space-lik)m(e)i(parton)f(sho)m(w)m(ers.)236 +3995 y Fq(=)52 b(0)f(:)217 b Fj(\013)771 4010 y Fl(s)835 +3995 y Fw(is)32 b(tak)m(en)i(to)e(b)s(e)h(\014x)g(at)f(the)h(v)-5 +b(alue)32 b Fq(PARU\(111\))p Fw(.)236 4103 y Fq(=)52 +b(1)f(:)217 b Fw(\014rst-order)32 b(running)h Fj(\013)1590 +4118 y Fl(s)1654 4103 y Fw(with)f(argumen)m(t)h Fq(PARP\(63\))p +Fj(Q)2798 4067 y Fl(2)2839 4103 y Fw(.)236 4212 y Fq(=)52 +b(2)f(:)217 b Fw(\014rst-order)32 b(running)f Fj(\013)1588 +4227 y Fl(s)1652 4212 y Fw(with)g(argumen)m(t)h Fq(PARP\(64\))p +Fj(k)2771 4176 y Fl(2)2768 4236 y Fk(?)2857 4212 y Fw(=)p +Fq(PARP\(64\))p Fw(\(1)22 b Fn(\000)f Fj(z)t Fw(\))p +Fj(Q)3712 4176 y Fl(2)3752 4212 y Fw(.)0 4320 y Fq(MSTP\(65\))53 +b(:)48 b Fw(\(D=1\))38 b(treatmen)m(t)i(of)f(soft)g(gluon)f(emission)g +(in)h(space-lik)m(e)g(parton-sho)m(w)m(er)i(ev)m(olu-)472 +4428 y(tion.)236 4537 y Fq(=)52 b(0)f(:)217 b Fw(soft)32 +b(gluons)g(are)h(en)m(tirely)f(neglected.)236 4645 y +Fq(=)52 b(1)f(:)217 b Fw(soft)43 b(gluon)g(emission)g(is)g(resummed)h +(and)g(included)f(together)h(with)f(the)h(hard)709 4754 +y(radiation)30 b(as)j(an)f(e\013ectiv)m(e)i Fj(z)j Fw(shift.)0 +4862 y Fq(MSTP\(66\))53 b(:)48 b Fw(\(D=1\))36 b(c)m(hoice)h(of)g(lo)m +(w)m(er)g(cut-o\013)g(for)g(initial-state)c(QCD)k(radiation)e(in)h +(anomalous)472 4970 y(photopro)s(duction)c(ev)m(en)m(ts)j(\(see)f +Fq(MSTP\(14\)=3)p Fw(\).)236 5079 y Fq(=)52 b(0)f(:)217 +b Fw(the)33 b(lo)m(w)m(er)f Fj(Q)1208 5042 y Fl(2)1281 +5079 y Fw(cuto\013)g(is)g(the)h(standard)g(one)g(in)f +Fq(PARP\(62\))2928 5042 y Fl(2)2970 5079 y Fw(.)236 5187 +y Fq(=)52 b(1)f(:)217 b Fw(the)27 b(lo)m(w)m(er)h(cuto\013)f(is)g(the)g +(larger)f(of)34 b Fq(PARP\(62\))2436 5151 y Fl(2)2504 +5187 y Fw(and)28 b Fq(VINT\(283\))h Fw(or)e Fq(VINT\(284\))p +Fw(,)709 5295 y(where)49 b(the)f(latter)e(is)i(the)g(virtualit)m(y)e +(scale)h(of)h(the)g Fj(\015)58 b Fn(!)53 b Fw(q)p 3083 +5242 52 4 v(q)c(v)m(ertex)g(on)f(the)709 5404 y(appropriate)31 +b(side)i(of)f(the)h(ev)m(en)m(t.)0 5512 y Fq(MSTP\(67\))53 +b(:)48 b Fw(\(D=2\))27 b(p)s(ossibilit)m(y)g(to)h(in)m(tro)s(duce)g +(colour)g(coherence)i(e\013ects)g(in)e(the)h(\014rst)g(branc)m(hing)472 +5620 y(of)36 b(the)h(bac)m(kw)m(ards)h(ev)m(olution)e(of)f(an)i +(initial)32 b(state)37 b(sho)m(w)m(er;)i(mainly)c(of)g(relev)-5 +b(ance)37 b(for)1817 5953 y(210)p eop +%%Page: 211 217 +211 216 bop 472 -18 a Fw(QCD)33 b(parton{parton)f(scattering)g(pro)s +(cesses.)236 90 y Fq(=)52 b(0)f(:)217 b Fw(none.)236 +198 y Fq(=)52 b(2)f(:)217 b Fw(restrict)33 b(the)h(p)s(olar)e(angle)h +(of)g(a)h(branc)m(hing)f(to)h(b)s(e)f(smaller)f(than)i(the)g +(scattering)709 307 y(angle)d(of)h(the)h(relev)-5 b(an)m(t)33 +b(colour)f(\015o)m(w.)236 415 y Fo(Note)37 b(1:)110 b +Fw(azim)m(uthal)30 b(anisotropies)i(ha)m(v)m(e)i(not)e(y)m(et)i(b)s +(een)f(included.)236 523 y Fo(Note)k(2:)110 b Fw(for)45 +b(subsequen)m(t)j(branc)m(hings,)h Fq(MSTP\(62\)=3)f +Fw(is)d(used)i(to)e(restrict)g(the)h(\(p)s(olar\))709 +632 y(angular)31 b(range)h(of)h(branc)m(hings.)0 740 +y Fq(MSTP\(68\))53 b(:)48 b Fw(\(D=0\))27 b(c)m(hoice)h(of)f(scale)h +(for)g(initial-state)c(QED)k(sho)m(w)m(ers)i(in)d(e)2895 +704 y Fl(+)2954 740 y Fw(e)2997 704 y Fk(\000)3084 740 +y Fw(collisions.)40 b(\(Do)s(es)472 848 y(not)33 b(a\013ect)g(ep,)g +(pp,)g Fj(\015)5 b Fw(p,)33 b Fj(\015)5 b(\015)g Fw(.\))236 +957 y Fq(=)52 b(0)f(:)217 b Fw(the)33 b(standard)g(c)m(hoice)g(giv)m +(en)f(b)m(y)j Fq(MSTP\(32\))p Fw(.)236 1065 y Fq(=)52 +b(1)f(:)217 b Fw(for)36 b(parton-sho)m(w)m(er)i(ev)m(olution)e(the)i +(scale)f(is)f(increased)i(to)e Fj(s)p Fw(,)j(the)e(full)e(squared)709 +1173 y(energy)-8 b(,)30 b(but)f(the)g(ev)-5 b(aluation)27 +b(of)h(\\parton")g(distributions)f(for)h(cross-section)i(cal-)709 +1282 y(culation)h(is)h(still)e(based)j(on)g(the)g Fq(MSTP\(32\))i +Fw(scale.)236 1390 y Fq(=)52 b(2)f(:)217 b Fw(b)s(oth)32 +b(parton-sho)m(w)m(er)i(and)e(cross-section)i(calculations)c(use)k +Fj(s)e Fw(as)h(the)g(scale.)236 1498 y Fo(Note:)203 b +Fw(The)24 b(bac)m(kground)h(is)e(the)h(follo)m(wing.)37 +b(Consider)24 b(pro)s(cess)h(1,)g(e)2984 1462 y Fl(+)3043 +1498 y Fw(e)3086 1462 y Fk(\000)3174 1498 y Fn(!)i Fw(Z)3361 +1462 y Fl(0)3400 1498 y Fj(=\015)3505 1462 y Fk(\003)3544 +1498 y Fw(.)41 b(The)709 1607 y(scale)36 b(used)i(for)d(initial-state)e +(QED)j(\\parton"-sho)m(w)m(er)h(ev)m(olution)f(\()p Fj(e)e +Fn(!)g Fw(e)25 b(+)g Fj(\015)5 b Fw(\))709 1715 y(here)47 +b(is)k(^)-54 b Fj(s)p Fw(,)51 b(i.e.)85 b(the)48 b(squared)g(mass)e(of) +h(the)g(pro)s(duced)h(Z)2999 1679 y Fl(0)3038 1715 y +Fj(=\015)3143 1679 y Fk(\003)3182 1715 y Fw(.)86 b(This)47 +b(is)f(the)709 1823 y(sensible)23 b(c)m(hoice)h(in)e(most)h(cases.)42 +b(This)23 b(scale)g(roughly)g(sets)i(the)e(upp)s(er)h +Fj(p)3395 1838 y Fk(?)3477 1823 y Fw(limit)c(of)709 1932 +y(photons)26 b(emitted)e(in)h(the)h(initial-state)c(cascades.)43 +b(Therefore)26 b(a)f(funn)m(y)i(situation)709 2040 y(can)33 +b(o)s(ccur)f(for)g(the)h(emission)f(of)g(photons)h(with)f(v)m(ery)i +(large)e Fj(p)3063 2055 y Fk(?)3122 2040 y Fw(.)43 b(F)-8 +b(or)32 b(simplicit)m(y)709 2148 y(assume)j(a)g(\014xed)h(photon)e +(emission)g(angle)g(suc)m(h)i(as)f(90)2795 2112 y Fk(\016)2834 +2148 y Fw(.)50 b(As)36 b(the)f(photon)g Fj(p)3610 2163 +y Fk(?)3704 2148 y Fw(=)709 2257 y(photon)26 b(energy)h(is)f +(increased,)i(the)f(mass)f(of)g(the)g(recoiling)e(\(also)h(high-)p +Fj(p)3414 2272 y Fk(?)3472 2257 y Fw(\))h(Z)3596 2221 +y Fl(0)3635 2257 y Fj(=\015)3740 2221 y Fk(\003)709 2365 +y Fw(is)e(corresp)s(ondingly)h(decreased.)43 b(A)m(t)25 +b(some)g Fj(p)2391 2380 y Fk(?)2475 2365 y Fw(scale)h(this)e(mass)h +(drops)h(b)s(elo)m(w)f(the)709 2473 y Fj(p)758 2488 y +Fk(?)852 2473 y Fw(itself.)50 b(Then)36 b(the)g(parton)f(sho)m(w)m(er)i +(cannot)e(pro)s(duce)h(photons)g(at)e(all,)g(giv)m(en)709 +2582 y(that)g(the)h(upp)s(er)g(limit)30 b(for)k(the)h(parton)f(sho)m(w) +m(er)i(is)e(the)h(mass.)49 b(Therefore)36 b(there)709 +2690 y(is)26 b(a)h(rather)g(abrupt)h(cut-o\013.)41 b(A)27 +b(more)f(detailed)g(study)j(sho)m(ws)g(this)d(cut-o\013)h(is)g(not)709 +2798 y(exactly)h(at)f(the)h(p)s(oin)m(t)f(outlined)f(ab)s(o)m(v)m(e)j +(but)e(a)h(bit)f(b)s(elo)m(w)g(it,)h(but)g(this)f(is)g(a)g(minor)709 +2907 y(p)s(oin)m(t.)56 b(The)39 b(theory)e(answ)m(er)i(is)e(that)g(if)f +(the)i(Z)2505 2871 y Fl(0)2544 2907 y Fj(=\015)2649 2871 +y Fk(\003)2725 2907 y Fw(mass)f(and)h(the)f(photon)h +Fj(p)3721 2922 y Fk(?)709 3015 y Fw(are)f(comparable,)h(the)g +(leading-order)e(description)h(ab)s(o)m(v)m(e)i(is)e(not)h(supp)s(osed) +h(to)709 3123 y(b)s(e)27 b(reliable,)f(but)h(the)g(problem)f(is)g(no)m +(w)i(a)e(t)m(w)m(o-scale)h(one.)42 b(The)28 b(photon)f(emission)709 +3232 y(should)j(b)s(e)h(included)g(as)g(part)f(of)g(the)i(hard)e(pro)s +(cess)i(itself.)42 b(This)31 b(is)f(a)m(v)-5 b(ailable)28 +b(as)709 3340 y(pro)s(cess)36 b(19)e(in)g(Pythia.)51 +b(Pro)s(cess)36 b(19,)f(on)g(the)g(other)g(hand,)h(cannot)f(b)s(e)g +(used)h(in)709 3448 y(the)g(region)g(of)f(v)m(ery)j(lo)m(w)e(photon)g +Fj(p)2072 3463 y Fk(?)2131 3448 y Fw(.)55 b(T)-8 b(ec)m(hnically)g(,)36 +b(one)h(therefore)g(has)f(to)g(cut)709 3557 y(and)f(paste)g(t)m(w)m(o)h +(di\013eren)m(t)f(solutions.)49 b(As)36 b(an)f(alternativ)m(e,)f(one)i +(can)f(arti\014cially)709 3665 y(remo)m(v)m(e)30 b(the)h +Fj(p)1254 3680 y Fk(?)1342 3665 y Fw(cuto\013)f(ab)s(o)m(v)m(e)h(b)m(y) +g(c)m(hanging)e(the)h(scale)g(of)g(sho)m(w)m(ers)i(from)g(^)-53 +b Fj(s)30 b Fw(to)f Fj(s)p Fw(.)709 3774 y(Then)34 b(the)h(full)c +(phase)k(space)g(b)s(ecomes)f(a)m(v)-5 b(ailable)31 b(for)i(emissions,) +h(i.e.)46 b(it)33 b(is)g(no)m(w)709 3882 y(allo)m(w)m(ed)f(to)h(ha)m(v) +m(e)h(a)f(Z)1543 3846 y Fl(0)1582 3882 y Fj(=\015)1687 +3846 y Fk(\003)1759 3882 y Fw(with)g(larger)f Fj(p)2308 +3897 y Fk(?)2400 3882 y Fw(than)h(mass.)45 b(This)33 +b(is)g(no)g(guaran)m(tee)709 3990 y(the)j(rate)h(is)f(the)h(correct)g +(one,)g(but)g(comparisons)f(with)g(pro)s(cess)h(19)f(indicate)f(it)709 +4099 y(is)d(not)g(so)h(far)f(o\013.)0 4207 y Fq(MSTP\(71\))53 +b(:)48 b Fw(\(D=1\))31 b(master)i(switc)m(h)g(for)f(\014nal-state)g +(QCD)g(and)h(QED)f(radiation.)236 4315 y Fq(=)52 b(0)f(:)217 +b Fw(o\013.)236 4424 y Fq(=)52 b(1)f(:)217 b Fw(on.)0 +4586 y Fq(PARP\(61\))53 b(:)48 b Fw(\(D=0.25)c(GeV\))h(\003)g(v)-5 +b(alue)45 b(used)i(in)d(space-lik)m(e)i(parton)f(sho)m(w)m(er)i(\(see)f +Fq(MSTP\(64\))p Fw(\).)472 4694 y(This)33 b(v)-5 b(alue)32 +b(ma)m(y)h(b)s(e)f(o)m(v)m(erwritten,)i(see)g Fq(MSTP\(3\))p +Fw(.)0 4803 y Fq(PARP\(62\))53 b(:)48 b Fw(\(D=1.)69 +b(GeV\))41 b(e\013ectiv)m(e)h(cut-o\013)f Fj(Q)h Fw(or)f +Fj(k)2164 4818 y Fk(?)2264 4803 y Fw(v)-5 b(alue)41 b(\(see)h +Fq(MSTP\(64\))p Fw(\),)k(b)s(elo)m(w)41 b(whic)m(h)472 +4911 y(space-lik)m(e)33 b(parton)f(sho)m(w)m(ers)j(are)e(not)f(ev)m +(olv)m(ed.)0 5019 y Fq(PARP\(63\))53 b(:)48 b Fw(\(D=0.25\))f(in)g +(space-lik)m(e)h(sho)m(w)m(er)i(ev)m(olution)d(the)i(virtualit)m(y)d +Fj(Q)3073 4983 y Fl(2)3161 5019 y Fw(of)h(a)h(parton)g(is)472 +5128 y(m)m(ultiplied)28 b(b)m(y)33 b Fq(PARP\(63\))g +Fw(for)d(use)h(as)g(a)g(scale)f(in)g Fj(\013)2426 5143 +y Fl(s)2489 5128 y Fw(and)h(parton)f(distributions)f(when)472 +5236 y Fq(MSTP\(64\)=1)p Fw(.)0 5344 y Fq(PARP\(64\))53 +b(:)48 b Fw(\(D=1.\))75 b(in)43 b(space-lik)m(e)h(parton-sho)m(w)m(er)g +(ev)m(olution)f(the)h(squared)h(transv)m(erse)h(mo-)472 +5453 y(men)m(tum)34 b(ev)m(olution)g(scale)g Fj(k)1570 +5417 y Fl(2)1567 5477 y Fk(?)1660 5453 y Fw(is)g(m)m(ultiplied)d(b)m(y) +37 b Fq(PARP\(64\))g Fw(for)c(use)j(as)e(a)g(scale)h(in)e +Fj(\013)3747 5468 y Fl(s)472 5561 y Fw(and)g(parton)f(distributions)g +(when)h Fq(MSTP\(64\)=2)p Fw(.)1817 5953 y(211)p eop +%%Page: 212 218 +212 217 bop 0 -18 a Fq(PARP\(65\))53 b(:)48 b Fw(\(D=2.)57 +b(GeV\))37 b(e\013ectiv)m(e)h(minim)m(um)c(energy)39 +b(\(in)d(c.m.)58 b(frame\))36 b(of)h(time-lik)m(e)e(or)i(on-)472 +90 y(shell)32 b(parton)h(emitted)e(in)h(space-lik)m(e)h(sho)m(w)m(er;)h +(see)g(also)d Fq(PARP\(66\))p Fw(.)0 198 y Fq(PARP\(66\))53 +b(:)48 b Fw(\(D=0.001\))32 b(e\013ectiv)m(e)i(lo)m(w)m(er)f(cut-o\013)g +(on)g(1)23 b Fn(\000)g Fj(z)38 b Fw(in)32 b(space-lik)m(e)h(sho)m(w)m +(ers,)j(in)c(addition)472 307 y(to)h(the)g(cut)g(implied)d(b)m(y)k +Fq(PARP\(65\))p Fw(.)0 415 y Fq(PARP\(67\))53 b(:)48 +b Fw(\(D=4.\))80 b(the)45 b Fj(Q)1200 379 y Fl(2)1285 +415 y Fw(scale)g(of)f(the)h(hard)g(scattering)g(\(see)h +Fq(MSTP\(32\))p Fw(\))h(is)e(m)m(ultiplied)472 523 y(b)m(y)f +Fq(PARP\(67\))g Fw(to)d(de\014ne)i(the)f(maxim)m(um)e(parton)h +(virtualit)m(y)f(allo)m(w)m(ed)h(in)g(space-lik)m(e)472 +632 y(sho)m(w)m(ers.)68 b(This)40 b(do)s(es)h(not)f(apply)f(to)h +Fj(s)p Fw(-c)m(hannel)g(resonances,)j(where)e(the)g(maxim)m(um)472 +740 y(virtualit)m(y)31 b(is)h(set)i(b)m(y)f Fj(m)1374 +704 y Fl(2)1414 740 y Fw(.)0 848 y Fq(PARP\(68\))53 b(:)48 +b Fw(\(D=1E-3\))31 b(lo)m(w)m(er)i Fj(Q)g Fw(cut-o\013)f(for)g(QED)g +(space-lik)m(e)h(sho)m(w)m(ers.)0 957 y Fq(PARP\(71\))53 +b(:)48 b Fw(\(D=4.\))80 b(the)45 b Fj(Q)1200 920 y Fl(2)1285 +957 y Fw(scale)g(of)f(the)h(hard)g(scattering)g(\(see)h +Fq(MSTP\(32\))p Fw(\))h(is)e(m)m(ultiplied)472 1065 y(b)m(y)j +Fq(PARP\(71\))g Fw(to)d(de\014ne)i(the)e(maxim)m(um)f(parton)h +(virtualit)m(y)f(allo)m(w)m(ed)g(in)h(time-lik)m(e)472 +1173 y(sho)m(w)m(ers.)68 b(This)40 b(do)s(es)h(not)f(apply)f(to)h +Fj(s)p Fw(-c)m(hannel)g(resonances,)j(where)e(the)g(maxim)m(um)472 +1282 y(virtualit)m(y)31 b(is)h(set)i(b)m(y)f Fj(m)1374 +1245 y Fl(2)1414 1282 y Fw(.)0 1390 y Fq(PARP\(72\))53 +b(:)48 b Fw(\(D=0.25)22 b(GeV\))h(\003)g(v)-5 b(alue)23 +b(used)i(in)e(running)f Fj(\013)2267 1405 y Fl(s)2323 +1390 y Fw(for)h(timelik)m(e)e(parton)i(sho)m(w)m(ers,)28 +b(except)472 1498 y(for)34 b(sho)m(w)m(ers)j(in)d(the)h(deca)m(y)h(of)e +(a)h(resonance.)50 b(\(Resonance)36 b(deca)m(y)-8 b(,)37 +b(e.g.)49 b Fj(\015)3291 1462 y Fk(\003)3331 1498 y Fj(=)-5 +b(Z)3449 1462 y Fl(0)3522 1498 y Fw(deca)m(y)d(,)472 +1607 y(is)33 b(instead)f(set)h(b)m(y)i Fq(PARJ\(81\))p +Fw(.\))1817 5953 y(212)p eop +%%Page: 213 219 +213 218 bop 0 -18 a Ft(11)161 b(Beam)53 b(Remnan)l(ts)f(and)i +(Underlying)f(Ev)l(en)l(ts)0 189 y Fw(Eac)m(h)27 b(incoming)c(b)s(eam)j +(particle)e(ma)m(y)i(lea)m(v)m(e)h(b)s(ehind)e(a)h(b)s(eam)f(remnan)m +(t,)i(whic)m(h)g(do)s(es)f(not)g(tak)m(e)h(part)0 297 +y(in)f(the)h(initial-state)c(radiation)h(or)j(hard)f(scattering)h(pro)s +(cess.)43 b(If)26 b(nothing)g(else,)i(the)f(remnan)m(ts)g(need)0 +405 y(b)s(e)j(reconstructed)i(and)e(connected)i(to)d(the)h(rest)h(of)e +(the)i(ev)m(en)m(t.)44 b(In)30 b(hadron{hadron)g(collisions,)e(the)0 +514 y(comp)s(osite)39 b(nature)i(of)f(the)h(t)m(w)m(o)g(incoming)d(b)s +(eam)i(particles)f(implies)f(the)j(additional)d(p)s(ossibilit)m(y)0 +622 y(that)31 b(sev)m(eral)g(parton)g(pairs)g(undergo)g(separate)h +(hard)f(or)f(semi-hard)g(scatterings,)i(`m)m(ultiple)c(in)m(ter-)0 +730 y(actions'.)43 b(This)32 b(ma)m(y)g(giv)m(e)f(a)h(non-negligible)c +(con)m(tribution)j(to)h(the)g(`underlying)f(ev)m(en)m(t')j(structure,)0 +839 y(and)k(th)m(us)i(to)d(the)i(total)e(m)m(ultiplicit)m(y)-8 +b(.)56 b(Finally)-8 b(,)37 b(in)h(high-luminosit)m(y)c(colliders,)k(it) +g(is)f(p)s(ossible)h(to)0 947 y(ha)m(v)m(e)k(sev)m(eral)g(collisions)d +(b)s(et)m(w)m(een)k(b)s(eam)d(particles)g(in)g(one)i(and)f(the)g(same)g +(b)s(eam)g(crossing,)i(i.e.)0 1055 y(pile-up)29 b(ev)m(en)m(ts,)j(whic) +m(h)f(further)f(act)g(to)g(build)e(up)j(the)f(general)f(particle)g(pro) +s(duction)g(activit)m(y)h(that)0 1164 y(is)i(to)h(b)s(e)g(observ)m(ed)i +(b)m(y)f(detectors.)46 b(These)34 b(three)g(asp)s(ects)g(are)f(describ) +s(ed)h(in)e(turn,)h(with)g(emphasis)0 1272 y(on)f(the)h(middle)e(one,)i +(that)g(of)f(m)m(ultiple)e(in)m(teractions)i(within)f(a)h(single)g +(hadron{hadron)g(collision.)146 1380 y(The)i(main)d(reference)j(on)e +(the)h(m)m(ultiple)d(in)m(teractions)i(mo)s(del)f(is)h([Sj\177)-49 +b(o87a].)0 1654 y Fp(11.1)136 b(Beam)45 b(Remnan)l(ts)0 +1827 y Fw(The)36 b(initial-state)31 b(radiation)i(algorithm)f +(reconstructs)37 b(one)e(sho)m(w)m(er)i(initiator)32 +b(in)i(eac)m(h)i(b)s(eam.)51 b(\(If)0 1935 y(initial-state)37 +b(radiation)i(is)i(not)f(included,)j(the)f(initiator)c(is)i(nothing)g +(but)i(the)f(incoming)e(parton)0 2044 y(to)33 b(the)i(hard)f(in)m +(teraction.\))46 b(T)-8 b(ogether)34 b(the)g(t)m(w)m(o)h(initiators)c +(delineate)i(an)h(in)m(teraction)f(subsystem,)0 2152 +y(whic)m(h)40 b(con)m(tains)g(all)d(the)j(partons)g(that)f(participate) +f(in)h(the)h(initial-state)35 b(sho)m(w)m(ers,)44 b(in)39 +b(the)g(hard)0 2260 y(in)m(teraction,)h(and)g(in)f(the)h(\014nal-state) +f(sho)m(w)m(ers.)67 b(Left)40 b(b)s(ehind)g(are)f(t)m(w)m(o)i(b)s(eam)e +(remnan)m(ts)h(whic)m(h,)0 2369 y(to)e(\014rst)h(appro)m(ximation,)f +(just)g(sail)f(through,)j(una\013ected)g(b)m(y)f(the)g(hard)f(pro)s +(cess.)63 b(\(The)39 b(issue)g(of)0 2477 y(additional)30 +b(in)m(teractions)i(is)g(co)m(v)m(ered)i(in)e(the)h(next)h(section.\)) +146 2585 y(A)d(description)f(of)h(the)g(b)s(eam)f(remnan)m(t)g +(structure)i(con)m(tains)f(a)f(few)i(comp)s(onen)m(ts.)43 +b(First,)30 b(giv)m(en)0 2694 y(the)k(\015a)m(v)m(our)h(con)m(ten)m(t)h +(of)d(a)h(\(colour-singlet\))d(b)s(eam)j(particle,)f(and)h(the)g(\015a) +m(v)m(our)h(and)f(colour)f(of)h(the)0 2802 y(initiator)27 +b(parton,)k(it)e(is)h(p)s(ossible)g(to)g(reconstruct)i(the)f(\015a)m(v) +m(our)g(and)g(colour)e(of)h(the)h(b)s(eam)e(remnan)m(t.)0 +2910 y(Sometimes)h(the)i(remnan)m(t)f(ma)m(y)g(b)s(e)g(represen)m(ted)j +(b)m(y)e(just)f(a)g(single)g(parton)f(or)h(diquark,)h(but)f(often)0 +3019 y(the)47 b(remnan)m(t)g(has)g(to)f(b)s(e)h(sub)s(divided)g(in)m +(to)f(t)m(w)m(o)h(separate)h(ob)5 b(jects.)87 b(In)47 +b(the)g(latter)f(case)h(it)f(is)0 3127 y(necessary)39 +b(to)e(share)h(the)g(remnan)m(t)f(energy)h(and)f(momen)m(tum)f(b)s(et)m +(w)m(een)j(the)f(t)m(w)m(o.)57 b(Due)38 b(to)e(F)-8 b(ermi)0 +3235 y(motion)33 b(inside)i(hadron)g(b)s(eams,)g(the)h(initiator)c +(parton)j(ma)m(y)g(ha)m(v)m(e)h(a)f(`primordial)c Fj(k)3229 +3250 y Fk(?)3288 3235 y Fw(')k(transv)m(erse)0 3344 y(momen)m(tum)d +(motion,)f(whic)m(h)j(has)f(to)g(b)s(e)h(comp)s(ensated)f(b)m(y)i(the)e +(b)s(eam)g(remnan)m(t.)45 b(If)33 b(the)h(remnan)m(t)0 +3452 y(is)26 b(sub)s(divided,)i(there)e(ma)m(y)h(also)e(b)s(e)h(a)g +(relativ)m(e)g(transv)m(erse)i(momen)m(tum.)40 b(In)27 +b(the)f(end,)j(total)24 b(energy)0 3560 y(and)33 b(momen)m(tum)f(has)i +(to)f(b)s(e)g(conserv)m(ed.)48 b(T)-8 b(o)33 b(\014rst)h(appro)m +(ximation,)d(this)i(is)g(ensured)h(within)f(eac)m(h)0 +3669 y(remnan)m(t)39 b(separately)-8 b(,)41 b(but)f(some)f(\014nal)f +(global)f(adjustmen)m(ts)j(are)f(necessary)j(to)c(comp)s(ensate)i(for)0 +3777 y(the)33 b(primordial)c Fj(k)696 3792 y Fk(?)787 +3777 y Fw(and)k(an)m(y)g(e\013ectiv)m(e)h(b)s(eam)e(remnan)m(t)g(mass.) +146 3885 y(Consider)25 b(\014rst)f(a)g(proton)g(\(or,)h(with)f(trivial) +d(mo)s(di\014cations,)j(an)m(y)g(other)g(bary)m(on)h(or)f(an)m(tibary)m +(on\).)145 3998 y Fn(\017)49 b Fw(If)37 b(the)g(initiator)d(parton)j +(is)f(a)h(u)g(or)g(d)g(quark,)i(it)d(is)g(assumed)i(to)e(b)s(e)i(a)e(v) +-5 b(alence)37 b(quark,)i(and)244 4107 y(therefore)d(lea)m(v)m(es)h(b)s +(ehind)e(a)g(diquark)h(b)s(eam)f(remnan)m(t,)h(i.e.)52 +b(either)35 b(a)g(ud)h(or)f(a)g(uu)h(diquark,)244 4215 +y(in)k(a)g(colour)f(an)m(titriplet)f(state.)68 b(Relativ)m(e)39 +b(probabilities)f(for)i(di\013eren)m(t)g(diquark)h(spins)f(are)244 +4323 y(deriv)m(ed)34 b(within)d(the)j(con)m(text)g(of)e(the)h +(non-relativistic)e Fo(SU\(6\))h Fw(mo)s(del,)f(i.e.)44 +b(\015a)m(v)m(our)34 b Fo(SU\(3\))244 4432 y Fw(times)e(spin)g +Fo(SU\(2\))p Fw(.)43 b(Th)m(us)34 b(a)f(ud)f(is)h(3)p +Fj(=)p Fw(4)e(ud)1927 4447 y Fl(0)2000 4432 y Fw(and)h(1)p +Fj(=)p Fw(4)g(ud)2476 4447 y Fl(1)2516 4432 y Fw(,)h(while)e(a)i(uu)g +(is)f(alw)m(a)m(ys)h(uu)3571 4447 y Fl(1)3611 4432 y +Fw(.)145 4550 y Fn(\017)49 b Fw(An)28 b(initiator)c(gluon)i(lea)m(v)m +(es)j(b)s(ehind)e(a)g(colour)g(o)s(ctet)g(uud)h(state,)h(whic)m(h)f(is) +f(sub)s(divided)h(in)m(to)f(a)244 4658 y(colour)33 b(triplet)g(quark)i +(and)f(a)g(colour)g(an)m(titriplet)e(diquark.)48 b Fo(SU\(6\))34 +b Fw(giv)m(es)h(the)f(appropriate)244 4766 y(sub)s(division,)d(1)p +Fj(=)p Fw(2)h(of)g(the)h(time)f(in)m(to)f(u)23 b(+)f(ud)1942 +4781 y Fl(0)1982 4766 y Fw(,)32 b(1)p Fj(=)p Fw(6)g(in)m(to)g(u)22 +b(+)g(ud)2700 4781 y Fl(1)2773 4766 y Fw(and)32 b(1)p +Fj(=)p Fw(3)g(in)m(to)g(d)22 b(+)g(uu)3621 4781 y Fl(1)3661 +4766 y Fw(.)145 4884 y Fn(\017)49 b Fw(A)27 b(sea)g(quark)h(initiator,) +c(suc)m(h)29 b(as)e(an)f(s,)j(lea)m(v)m(es)f(b)s(ehind)e(a)h(uud)p +2553 4831 39 4 v(s)h(four-quark)e(state.)42 b(The)28 +b(PDG)244 4992 y(\015a)m(v)m(our)g(co)s(ding)d(sc)m(heme)j(and)f(the)g +(fragmen)m(tation)e(routines)i(do)g(not)f(foresee)i(suc)m(h)g(a)f +(state,)h(so)244 5101 y(therefore)e(it)f(is)g(sub)s(divided)h(in)m(to)f +(a)h(meson)g(plus)f(a)h(diquark,)h(i.e.)41 b(1)p Fj(=)p +Fw(2)25 b(in)m(to)g(u)p 3109 5048 V(s)9 b(+)f(ud)3348 +5116 y Fl(0)3388 5101 y Fw(,)27 b(1)p Fj(=)p Fw(6)e(in)m(to)244 +5209 y(u)p 298 5156 V(s)18 b(+)g(ud)556 5224 y Fl(1)626 +5209 y Fw(and)30 b(1)p Fj(=)p Fw(3)g(in)m(to)f(d)p 1239 +5156 V(s)18 b(+)g(uu)1497 5224 y Fl(1)1537 5209 y Fw(.)42 +b(Once)32 b(the)e(\015a)m(v)m(ours)i(of)e(the)h(meson)f(are)g +(determined,)h(the)244 5317 y(c)m(hoice)26 b(of)f(meson)g(m)m(ultiplet) +e(is)i(p)s(erformed)g(as)g(in)g(the)h(standard)f(fragmen)m(tation)f +(description.)145 5435 y Fn(\017)49 b Fw(Finally)-8 b(,)30 +b(an)i(an)m(tiquark)g(initiator,)e(suc)m(h)k(as)e(an)p +2052 5382 V 32 w(s)q(,)g(lea)m(v)m(es)i(b)s(ehind)e(a)g(uuds)i +(four-quark)e(state,)244 5544 y(whic)m(h)k(is)f(sub)s(divided)g(in)m +(to)g(a)g(bary)m(on)h(plus)f(a)g(quark.)53 b(Since,)36 +b(to)f(\014rst)h(appro)m(ximation,)e(the)244 5652 y(s)p +282 5599 V(s)39 b(pair)f(comes)h(from)f(the)h(branc)m(hing)f(g)i +Fn(!)d Fw(s)p 1993 5599 V(s)j(of)e(a)h(colour)e(o)s(ctet)i(gluon,)g +(the)h(sub)s(division)1817 5953 y(213)p eop +%%Page: 214 220 +214 219 bop 244 -18 a Fw(uud)25 b(+)g(s)37 b(is)f(not)g(allo)m(w)m(ed,) +h(since)f(it)g(w)m(ould)g(corresp)s(ond)h(to)f(a)h(colour-singlet)c(s)p +3249 -71 39 4 v(s)q(.)55 b(Therefore)244 90 y(the)39 +b(sub)s(division)f(is)g(1)p Fj(=)p Fw(2)h(in)m(to)f(ud)1537 +105 y Fl(0)1576 90 y Fw(s)27 b(+)g(u,)40 b(1)p Fj(=)p +Fw(6)e(in)m(to)h(ud)2363 105 y Fl(1)2402 90 y Fw(s)27 +b(+)g(u)39 b(and)g(1)p Fj(=)p Fw(3)f(in)m(to)g(uu)3356 +105 y Fl(1)3396 90 y Fw(s)27 b(+)f(d.)62 b(A)244 198 +y(bary)m(on)30 b(is)f(formed)g(among)g(the)h(ones)g(p)s(ossible)f(for)g +(the)h(giv)m(en)g(\015a)m(v)m(our)h(con)m(ten)m(t)g(and)e(diquark)244 +307 y(spin,)39 b(according)e(to)g(the)h(relativ)m(e)e(probabilities)f +(used)k(in)e(the)h(fragmen)m(tation.)56 b(One)38 b(could)244 +415 y(argue)28 b(for)g(an)g(additional)d(w)m(eigh)m(ting)j(to)g(coun)m +(t)h(the)g(n)m(um)m(b)s(er)f(of)g(bary)m(on)h(states)g(a)m(v)-5 +b(ailable)26 b(for)244 523 y(a)32 b(giv)m(en)h(diquark)g(plus)f(quark)h +(com)m(bination,)e(but)i(this)f(has)h(not)f(b)s(een)i(included.)146 +636 y(One)29 b(ma)m(y)f(note)g(that)g(an)m(y)h(u)g(or)e(d)i(quark)g +(tak)m(en)g(out)f(of)g(the)g(proton)g(is)g(automatically)d(assumed)0 +745 y(to)34 b(b)s(e)g(a)g(v)-5 b(alence)34 b(quark.)49 +b(Clearly)33 b(this)h(is)f(unrealistic,)g(but)i(not)f(quite)g(as)g(bad) +g(as)g(it)f(migh)m(t)g(seem.)0 853 y(In)43 b(particular,)h(one)g +(should)f(remem)m(b)s(er)f(that)h(the)h(b)s(eam)e(remnan)m(t)h +(scenario)g(is)f(applied)g(to)h(the)0 961 y(initial-state)33 +b(sho)m(w)m(er)38 b(initiators)c(at)i(a)g(scale)h(of)f +Fj(Q)1909 976 y Fl(0)1983 961 y Fn(\031)f Fw(1)h(GeV)h(and)g(at)f(an)g +Fj(x)h Fw(v)-5 b(alue)36 b(usually)g(m)m(uc)m(h)0 1070 +y(larger)e(than)h(the)g Fj(x)g Fw(at)g(the)g(hard)g(scattering.)50 +b(The)36 b(sea)g(quark)g(con)m(tribution)d(therefore)j(normally)0 +1178 y(is)c(negligible.)146 1286 y(F)-8 b(or)24 b(a)h(meson)g(b)s(eam)f +(remnan)m(t,)i(the)g(rules)e(are)h(in)f(the)i(same)e(spirit,)h(but)h +(somewhat)f(easier,)h(since)0 1395 y(no)43 b(diquark)g(or)f(bary)m(ons) +i(need)g(b)s(e)f(tak)m(en)g(in)m(to)f(accoun)m(t.)75 +b(Th)m(us)45 b(a)d(v)-5 b(alence)43 b(quark)g(\(an)m(tiquark\))0 +1503 y(initiator)h(lea)m(v)m(es)k(b)s(ehind)g(a)f(v)-5 +b(alence)47 b(an)m(tiquark)g(\(quark\),)52 b(a)47 b(gluon)f(initiator)e +(lea)m(v)m(es)49 b(b)s(ehind)e(a)0 1611 y(v)-5 b(alence)47 +b(quark)h(plus)f(a)f(v)-5 b(alence)47 b(an)m(tiquark,)k(and)c(a)g(sea)g +(quark)h(\(an)m(tiquark\))f(lea)m(v)m(es)h(b)s(ehind)f(a)0 +1720 y(meson)33 b(\(whic)m(h)g(con)m(tains)f(the)h(partner)g(to)f(the)h +(sea)g(parton\))g(plus)f(a)g(v)-5 b(alence)33 b(an)m(tiquark)g +(\(quark\).)146 1828 y(A)f(resolv)m(ed)g(photon)f(is)g(ev)m(en)i +(simpler)d(than)h(a)g(meson,)h(since)f(one)h(do)s(es)g(not)f(ha)m(v)m +(e)i(to)e(mak)m(e)g(the)0 1936 y(distinction)h(b)s(et)m(w)m(een)k(v)-5 +b(alence)34 b(and)g(sea)g(\015a)m(v)m(our.)48 b(Th)m(us)36 +b(an)m(y)e(quark)h(\(an)m(tiquark\))f(initiator)c(lea)m(v)m(es)0 +2045 y(b)s(ehind)35 b(the)g(matc)m(hing)e(an)m(tiquark)i(\(quark\),)h +(and)f(a)g(gluon)e(lea)m(v)m(es)j(b)s(ehind)f(a)f(quark)i(+)e(an)m +(tiquark)0 2153 y(pair.)59 b(The)39 b(relativ)m(e)f(quark)h(\015a)m(v)m +(our)g(comp)s(osition)c(in)j(the)g(latter)g(case)h(is)e(assumed)i(prop) +s(ortional)0 2261 y(to)34 b Fj(e)166 2225 y Fl(2)166 +2286 y(q)241 2261 y Fw(among)f(ligh)m(t)g(\015a)m(v)m(ours,)i(i.e.)48 +b(2)p Fj(=)p Fw(3)33 b(in)m(to)h(u)23 b(+)p 1902 2209 +55 4 v 23 w(u,)35 b(1)p Fj(=)p Fw(6)e(in)m(to)g(d)24 +b(+)p 2574 2182 V 23 w(d,)34 b(and)g(1)p Fj(=)p Fw(6)g(in)m(to)f(s)24 +b(+)p 3421 2209 39 4 v 23 w(s.)48 b(If)34 b(one)0 2370 +y(w)m(an)m(ted)g(to,)e(one)h(could)f(also)g(ha)m(v)m(e)i(c)m(hosen)g +(to)e(represen)m(t)j(the)e(remnan)m(t)f(b)m(y)i(a)e(single)g(gluon.)146 +2478 y(If)49 b(no)f(initial-state)d(radiation)h(is)i(assumed,)53 +b(an)48 b(electron)g(\(or,)k(in)c(general,)k(a)c(lepton)g(or)g(a)0 +2586 y(neutrino\))38 b(lea)m(v)m(es)i(b)s(ehind)f(no)f(b)s(eam)g +(remnan)m(t.)62 b(Also)38 b(when)i(radiation)c(is)j(included,)h(one)f +(w)m(ould)0 2695 y(exp)s(ect)32 b(to)f(reco)m(v)m(er)h(a)f(single)e +(electron)i(with)g(the)g(full)e(b)s(eam)h(energy)i(when)g(the)f(sho)m +(w)m(er)h(initiator)c(is)0 2803 y(reconstructed.)49 b(This)34 +b(do)s(es)g(not)g(ha)m(v)m(e)h(to)e(happ)s(en,)i(e.g.)48 +b(if)32 b(the)i(initial-state)c(sho)m(w)m(er)36 b(is)d(cut)h(o\013)g +(at)0 2912 y(a)g(non-v)-5 b(anishing)33 b(scale,)i(suc)m(h)h(that)e +(some)g(of)g(the)h(emission)e(at)h(lo)m(w)f Fj(Q)2701 +2875 y Fl(2)2775 2912 y Fw(v)-5 b(alues)35 b(is)f(not)g(sim)m(ulated.)0 +3020 y(F)-8 b(urther,)41 b(for)d(purely)h(tec)m(hnical)g(reasons,)i +(the)f(distribution)d(of)h(an)h(electron)g(inside)g(an)f(electron,)0 +3128 y Fj(f)59 3092 y Fl(e)48 3153 y(e)94 3128 y Fw(\()p +Fj(x;)17 b(Q)308 3092 y Fl(2)348 3128 y Fw(\),)30 b(is)g(cut)g(o\013)f +(at)h Fj(x)e Fw(=)g(1)17 b Fn(\000)g Fw(10)1401 3092 +y Fk(\000)p Fl(6)1494 3128 y Fw(.)42 b(This)30 b(means)g(that)g(alw)m +(a)m(ys,)h(when)g(initial-state)26 b(radiation)0 3237 +y(is)36 b(included,)g(a)g(fraction)f(of)h(at)g(least)g(10)1540 +3200 y Fk(\000)p Fl(6)1670 3237 y Fw(of)f(the)i(b)s(eam)e(energy)j(has) +e(to)g(b)s(e)g(put)h(in)m(to)e(one)i(single)0 3345 y(photon)d(along)e +(the)j(b)s(eam)e(direction,)g(to)g(represen)m(t)j(this)e(not)g(sim)m +(ulated)e(radiation.)45 b(The)35 b(ph)m(ysics)0 3453 +y(is)30 b(here)h(sligh)m(tly)e(di\013eren)m(t)i(from)e(the)i(standard)f +(b)s(eam)g(remnan)m(t)g(concept,)i(but)f(it)f(is)f(handled)i(with)0 +3562 y(the)37 b(same)g(mac)m(hinery)-8 b(.)56 b(Beam)36 +b(remnan)m(ts)h(can)g(also)f(app)s(er)h(when)h(the)f(electron)g(is)f +(resolv)m(ed)i(with)0 3670 y(the)f(use)g(of)f(parton)g(distributions,)g +(but)h(initial-state)32 b(radiation)j(is)g(switc)m(hed)j(o\013.)55 +b(Conceptually)-8 b(,)0 3778 y(this)43 b(is)h(a)f(con)m(tradiction,)i +(since)g(it)d(is)i(the)g(initial-state)c(radiation)h(that)j(builds)f +(up)h(the)g(parton)0 3887 y(distributions,)29 b(but)i(sometimes)e(the)i +(com)m(bination)d(is)i(still)e(useful.)43 b(Finally)-8 +b(,)28 b(since)j(QED)f(radiation)0 3995 y(has)40 b(not)f(y)m(et)h(b)s +(een)g(included)f(in)f(ev)m(en)m(ts)k(with)d(resolv)m(ed)h(photons)g +(inside)f(electrons,)i(also)d(in)h(this)0 4103 y(case)33 +b(e\013ectiv)m(e)h(b)s(eam)e(remnan)m(ts)h(ha)m(v)m(e)h(to)e(b)s(e)h +(assigned)g(b)m(y)g(the)g(program.)146 4212 y(The)j(b)s(eam)e(remnan)m +(t)g(assignmen)m(ts)h(inside)f(an)h(electron,)g(in)f(either)h(of)f(the) +h(cases)h(ab)s(o)m(v)m(e,)g(is)e(as)0 4320 y(follo)m(ws.)145 +4433 y Fn(\017)49 b Fw(An)33 b(e)447 4397 y Fk(\000)539 +4433 y Fw(initiator)c(lea)m(v)m(es)34 b(b)s(ehind)e(a)g +Fj(\015)38 b Fw(remnan)m(t.)145 4551 y Fn(\017)49 b Fw(A)33 +b Fj(\015)k Fw(initiator)29 b(lea)m(v)m(es)34 b(b)s(ehind)f(an)f(e)1598 +4515 y Fk(\000)1690 4551 y Fw(remnan)m(t.)145 4669 y +Fn(\017)49 b Fw(An)33 b(e)447 4632 y Fl(+)539 4669 y +Fw(initiator)c(lea)m(v)m(es)34 b(b)s(ehind)e(an)h(e)1699 +4632 y Fk(\000)1780 4669 y Fw(+)22 b(e)1921 4632 y Fk(\000)2013 +4669 y Fw(remnan)m(t.)145 4786 y Fn(\017)49 b Fw(A)33 +b(q)g(\()p 472 4734 52 4 v(q\))f(initiator)e(lea)m(v)m(es)j(b)s(ehind)g +(a)p 1656 4734 V 32 w(q)23 b(+)f(e)1871 4750 y Fk(\000)1963 +4786 y Fw(\(q)g(+)g(e)2215 4750 y Fk(\000)2275 4786 y +Fw(\))32 b(remnan)m(t.)145 4904 y Fn(\017)49 b Fw(A)35 +b(g)g(initiator)d(lea)m(v)m(es)k(b)s(ehind)e(a)h(g)23 +b(+)g(e)1722 4868 y Fk(\000)1816 4904 y Fw(remnan)m(t.)50 +b(One)35 b(could)g(argue)f(that,)h(in)f(agreemen)m(t)244 +5013 y(with)c(the)h(treatmen)m(t)g(of)f(photon)h(b)s(eams)g(ab)s(o)m(v) +m(e,)h(the)f(remnan)m(t)f(should)h(b)s(e)g(q)19 b(+)p +3275 4960 V 18 w(q)g(+)f(e)3482 4976 y Fk(\000)3542 5013 +y Fw(.)43 b(The)244 5121 y(program)31 b(curren)m(tly)i(do)s(es)g(not)g +(allo)m(w)e(for)h(three)h(b)s(eam)f(remnan)m(t)g(ob)5 +b(jects,)34 b(ho)m(w)m(ev)m(er.)146 5234 y(By)g(the)g(hard)f +(scattering)g(and)g(initial-state)c(radiation)i(mac)m(hinery)-8 +b(,)34 b(the)f(sho)m(w)m(er)i(initiator)30 b(has)0 5342 +y(b)s(een)e(assigned)g(some)f(fraction)f Fj(x)i Fw(of)f(the)h +(four-momen)m(tum)d(of)i(the)h(b)s(eam)f(particle,)g(lea)m(ving)g(b)s +(ehind)0 5451 y(1)18 b Fn(\000)h Fj(x)31 b Fw(to)g(the)g(remnan)m(t.)43 +b(If)30 b(the)i(remnan)m(t)e(consists)i(of)e(t)m(w)m(o)h(ob)5 +b(jects,)33 b(this)d(energy)i(and)f(momen)m(tum)0 5559 +y(has)41 b(to)f(b)s(e)h(shared,)i(someho)m(w.)68 b(F)-8 +b(or)39 b(an)i(electron,)h(the)f(sharing)f(is)g(giv)m(en)g(from)g +(\014rst)g(principles:)0 5667 y(if,)49 b(e.g.,)h(the)d(initiator)c(is)j +(a)h(q,)j(then)d(that)g(q)f(w)m(as)i(pro)s(duced)f(in)f(the)h(sequence) +i(of)d(branc)m(hings)1817 5953 y(214)p eop +%%Page: 215 221 +215 220 bop 0 -18 a Fw(e)34 b Fn(!)g Fj(\015)39 b Fn(!)33 +b Fw(q,)38 b(where)f Fj(x)890 -3 y Fh(\015)971 -18 y +Fw(is)f(distributed)g(according)g(to)g(the)g(con)m(v)m(olution)g(in)f +(eq.)i(\(54\).)54 b(Therefore)0 90 y(the)p 166 37 52 +4 v 31 w(q)32 b(remnan)m(t)e(tak)m(es)j(a)d(fraction)g +Fj(\037)e Fw(=)f(\()p Fj(x)1606 105 y Fh(\015)1670 90 +y Fn(\000)19 b Fj(x)p Fw(\))p Fj(=)p Fw(\(1)g Fn(\000)g +Fj(x)p Fw(\))31 b(of)f(the)i(total)d(remnan)m(t)i(energy)-8 +b(,)32 b(and)f(the)0 198 y(e)i(tak)m(es)h(1)22 b Fn(\000)g +Fj(\037)p Fw(.)146 307 y(F)-8 b(or)25 b(the)i(other)f(b)s(eam)f(remnan) +m(ts,)i(the)g(relativ)m(e)e(energy-sharing)h(v)-5 b(ariable)24 +b Fj(\037)i Fw(is)f(not)h(kno)m(wn)h(from)0 415 y(\014rst)33 +b(principles,)f(but)h(pic)m(k)m(ed)h(according)e(to)h(some)f(suitable)g +(parametrization.)41 b(Normally)31 b(sev)m(eral)0 523 +y(di\013eren)m(t)38 b(options)e(are)i(a)m(v)-5 b(ailable,)36 +b(that)h(can)h(b)s(e)g(set)g(separately)g(for)f(bary)m(on)h(and)f +(meson)h(b)s(eams,)0 632 y(and)e(for)f(hadron)h(+)g(quark)h(and)f +(quark)g(+)g(diquark)g(\(or)g(an)m(tiquark\))g(remnan)m(ts.)53 +b(In)37 b(one)f(extreme)0 740 y(are)42 b(shap)s(es)i(in)d(agreemen)m(t) +i(with)f(na)-11 b(\177)-38 b(\020v)m(e)42 b(coun)m(ting)g(rules,)j +(i.e.)72 b(where)44 b(energy)f(is)f(shared)h(ev)m(enly)0 +848 y(b)s(et)m(w)m(een)38 b(`v)-5 b(alence')37 b(partons.)55 +b(F)-8 b(or)36 b(instance,)h Fn(P)8 b Fw(\()p Fj(\037)p +Fw(\))35 b(=)f(2)17 b(\(1)24 b Fn(\000)h Fj(\037)p Fw(\))36 +b(for)g(the)h(energy)g(fraction)e(tak)m(en)0 957 y(b)m(y)42 +b(the)g(q)g(in)e(a)h(q)29 b(+)f(qq)42 b(remnan)m(t.)70 +b(In)42 b(the)g(other)f(extreme,)j(an)e(unev)m(en)h(distribution)c +(could)i(b)s(e)0 1065 y(used,)c(lik)m(e)e(in)g(parton)g(distributions,) +g(where)i(the)f(quark)g(only)f(tak)m(es)i(a)e(small)e(fraction)h(and)i +(most)0 1173 y(is)c(retained)g(b)m(y)i(the)f(diquark.)44 +b(The)33 b(default)f(for)g(a)g(q)23 b(+)f(qq)33 b(remnan)m(t)g(is)f(of) +g(this)g(t)m(yp)s(e,)1443 1447 y Fn(P)8 b Fw(\()p Fj(\037)p +Fw(\))28 b Fn(/)1860 1380 y Fw(\(1)22 b Fn(\000)h Fj(\037)p +Fw(\))2168 1343 y Fl(3)p 1800 1424 468 4 v 1800 1440 +a Fg(q)p 1883 1440 385 4 v 102 x Fj(\037)1944 1513 y +Fl(2)2006 1542 y Fw(+)f Fj(c)2146 1508 y Fl(2)2146 1566 +y(min)2310 1447 y Fj(;)1220 b Fw(\(155\))0 1769 y(with)33 +b Fj(c)265 1784 y Fl(min)415 1769 y Fw(=)c(2)p Fn(h)p +Fj(m)693 1784 y Fl(q)734 1769 y Fn(i)p Fj(=E)894 1784 +y Fl(cm)1017 1769 y Fw(=)f(\(0)p Fj(:)p Fw(6)33 b(GeV\))p +Fj(=E)1669 1784 y Fl(cm)1796 1769 y Fw(pro)m(viding)f(a)h(lo)m(w)m(er)g +(cut-o\013.)45 b(In)34 b(general,)f(the)g(more)0 1877 +y(unev)m(en)46 b(the)e(sharing)f(of)g(the)h(energy)-8 +b(,)47 b(the)d(less)g(the)h(total)d(m)m(ultiplicit)m(y)e(in)j(the)h(b)s +(eam)f(remnan)m(t)0 1986 y(fragmen)m(tation.)e(If)31 +b(no)h(m)m(ultiple)c(in)m(teractions)j(are)g(allo)m(w)m(ed,)g(a)g +(rather)h(ev)m(en)g(sharing)f(is)g(needed)i(to)0 2094 +y(come)i(close)h(to)f(the)h(exp)s(erimen)m(tal)e(m)m(ultiplicit)m(y)e +(\(and)k(y)m(et)g(one)g(do)s(es)g(not)g(quite)f(mak)m(e)h(it\).)51 +b(With)0 2202 y(an)40 b(unev)m(en)h(sharing)e(there)i(is)e(ro)s(om)f +(to)h(generate)h(more)f(of)g(the)h(total)e(m)m(ultiplicit)m(y)e(b)m(y) +41 b(m)m(ultiple)0 2311 y(in)m(teractions)32 b([Sj\177)-49 +b(o87a)o(].)146 2419 y(In)40 b(a)f(photon)h(b)s(eam,)g(with)f(a)h +(remnan)m(t)f(q)27 b(+)p 1892 2366 52 4 v 27 w(q,)42 +b(the)d Fj(\037)h Fw(v)-5 b(ariable)38 b(is)h(c)m(hosen)i(the)f(same)f +(w)m(a)m(y)h(it)0 2527 y(w)m(ould)33 b(ha)m(v)m(e)g(b)s(een)h(in)e(a)g +(corresp)s(onding)g(meson)h(remnan)m(t.)146 2636 y(Before)49 +b(the)f Fj(\037)h Fw(v)-5 b(ariable)46 b(is)i(used)h(to)f(assign)g +(remnan)m(t)g(momen)m(ta,)j(it)c(is)h(also)f(necessary)k(to)0 +2744 y(consider)41 b(the)f(issue)h(of)f(primordial)c +Fj(k)1459 2759 y Fk(?)1518 2744 y Fw(.)67 b(The)41 b(initiator)c +(partons)j(are)h(th)m(us)g(assigned)g(eac)m(h)g(a)f Fj(k)3721 +2759 y Fk(?)0 2852 y Fw(v)-5 b(alue,)30 b(v)-5 b(anishing)30 +b(for)g(an)g(electron)h(or)f(photon)g(inside)g(an)h(electron,)g +(distributed)f(either)g(according)0 2961 y(to)43 b(a)g(Gaussian)g(or)h +(an)f(exp)s(onen)m(tial)g(shap)s(e)h(for)f(a)h(hadron,)i(and)e +(according)f(to)g(either)g(of)g(these)0 3069 y(shap)s(es)33 +b(or)e(a)h(p)s(o)m(w)m(er-lik)m(e)f(shap)s(e)i(for)e(a)g(quark)i(or)e +(gluon)g(inside)g(a)h(photon)f(\(whic)m(h)i(ma)m(y)e(in)g(its)g(turn)0 +3178 y(b)s(e)f(inside)g(an)g(electron\).)42 b(The)31 +b(in)m(teraction)e(subsystem)j(is)e(b)s(o)s(osted)g(and)g(rotated)g(to) +f(bring)h(it)f(from)0 3286 y(the)d(frame)e(assumed)h(so)h(far,)g(with)f +(eac)m(h)h(initiator)21 b(along)j(the)i Fn(\006)p Fj(z)k +Fw(axis,)c(to)f(one)g(where)i(the)e(initiators)0 3394 +y(ha)m(v)m(e)34 b(the)f(required)g(primordial)c Fj(k)1303 +3409 y Fk(?)1394 3394 y Fw(v)-5 b(alues.)146 3503 y(The)38 +b Fj(p)400 3518 y Fk(?)495 3503 y Fw(recoil)e(is)g(tak)m(en)h(b)m(y)h +(the)f(remnan)m(t.)55 b(If)37 b(the)g(remnan)m(t)f(is)h(comp)s(osite,)f +(the)h(recoil)e(is)i(all)0 3611 y(tak)m(en)j(b)m(y)g(one)g(of)e(the)i +(t)m(w)m(o,)i(namely)c(the)i(one)f(that,)i(in)d(some)h(imagined)e(p)s +(erturbativ)m(e)j(splitting)0 3719 y(language,)h(is)e(the)h(sister)g +(of)f(the)h(initiator)d(parton.)65 b(F)-8 b(or)39 b(instance,)j(when)e +(a)g(gluon)f(is)g(tak)m(en)i(out)0 3828 y(of)34 b(a)g(proton,)h(the)g +(recoil)e(is)h(all)e(tak)m(en)j(b)m(y)h(the)f(lone)e(quark)j(\(i.e.)48 +b(nothing)34 b(b)m(y)h(the)g(diquark\),)g(since)0 3936 +y(one)41 b(could)g(ha)m(v)m(e)h(imagined)d(an)i(earlier)f(branc)m(hing) +h(q)2078 3951 y Fl(0)2160 3936 y Fn(!)h Fw(qg)q(,)i(b)s(elo)m(w)c(the)i +(sho)m(w)m(er)h(cut-o\013)d(scale)0 4044 y Fj(Q)77 4059 +y Fl(0)117 4044 y Fw(,)31 b(with)h Fj(p)446 4059 y Fk(?)p +Fh(q)534 4068 y Ff(0)598 4044 y Fw(=)c(0.)43 b(In)32 +b(addition,)e(ho)m(w)m(ev)m(er,)k(t)m(w)m(o)e(b)s(eam)f(remnan)m(ts)h +(ma)m(y)f(b)s(e)h(giv)m(en)f(a)h(relativ)m(e)e Fj(p)3693 +4059 y Fk(?)3752 4044 y Fw(,)0 4153 y(whic)m(h)j(is)f(then)h(alw)m(a)m +(ys)h(c)m(hosen)g(as)e(for)h(q)1544 4168 y Fh(i)p 1572 +4100 V 1572 4153 a Fw(q)1624 4176 y Fh(i)1684 4153 y +Fw(pairs)f(in)g(the)h(fragmen)m(tation)e(description.)146 +4261 y(The)42 b Fj(\037)f Fw(v)-5 b(ariable)39 b(is)h(in)m(terpreted)h +(as)g(a)f(sharing)h(of)f(ligh)m(t-cone)f(energy)j(and)f(momen)m(tum,)g +(i.e.)0 4369 y Fj(E)26 b Fw(+)20 b Fj(p)243 4384 y Fh(z)314 +4369 y Fw(for)31 b(the)g(b)s(eam)g(mo)m(ving)f(in)h(the)h(+)p +Fj(z)k Fw(direction)30 b(and)i Fj(E)26 b Fn(\000)20 b +Fj(p)2505 4384 y Fh(z)2576 4369 y Fw(for)31 b(the)h(other)f(one.)44 +b(When)32 b(the)0 4478 y(t)m(w)m(o)i(transv)m(erse)i(masses)f +Fj(m)1056 4493 y Fk(?)p Fl(1)1184 4478 y Fw(and)f Fj(m)1460 +4493 y Fk(?)p Fl(2)1589 4478 y Fw(of)f(a)g(comp)s(osite)g(remnan)m(t)h +(ha)m(v)m(e)h(b)s(een)f(constructed,)i(the)0 4586 y(total)31 +b(transv)m(erse)k(mass)d(can)h(therefore)g(b)s(e)g(found)g(as)1437 +4840 y Fj(m)1522 4799 y Fl(2)1522 4865 y Fk(?)1609 4840 +y Fw(=)1722 4773 y Fj(m)1807 4737 y Fl(2)1807 4798 y +Fk(?)p Fl(1)p 1722 4817 180 4 v 1781 4909 a Fj(\037)1934 +4840 y Fw(+)2068 4773 y Fj(m)2153 4737 y Fl(2)2153 4798 +y Fk(?)p Fl(2)p 2042 4817 232 4 v 2042 4909 a Fw(1)22 +b Fn(\000)g Fj(\037)2316 4840 y(;)1214 b Fw(\(156\))0 +5105 y(if)27 b(remnan)m(t)i(1)f(is)g(the)h(one)g(that)f(tak)m(es)i(the) +f(fraction)e Fj(\037)p Fw(.)42 b(The)29 b(c)m(hoice)g(of)f(a)h(ligh)m +(t-cone)e(in)m(terpretation)0 5213 y(to)36 b Fj(\037)g +Fw(means)h(the)f(de\014nition)g(is)g(in)m(v)-5 b(arian)m(t)34 +b(under)k(longitudinal)32 b(b)s(o)s(osts,)38 b(and)e(therefore)h(do)s +(es)g(not)0 5322 y(dep)s(end)h(on)e(the)h(b)s(eam)f(energy)h(itself.)54 +b(A)36 b Fj(\037)h Fw(v)-5 b(alue)36 b(close)g(to)g(the)h(na)-11 +b(\177)-38 b(\020v)m(e)37 b(b)s(orders)g(0)f(or)g(1)g(can)h(lead)0 +5430 y(to)32 b(an)g(unreasonably)h(large)e(remnan)m(t)i +Fj(m)1559 5445 y Fk(?)1618 5430 y Fw(.)43 b(Therefore)34 +b(an)e(additional)d(c)m(hec)m(k)35 b(is)d(in)m(tro)s(duced,)h(that)0 +5538 y(the)h(remnan)m(t)f Fj(m)642 5553 y Fk(?)734 5538 +y Fw(b)s(e)h(smaller)d(than)i(the)h(na)-11 b(\177)-38 +b(\020v)m(e)33 b(c.m.)45 b(frame)33 b(remnan)m(t)g(energy)-8 +b(,)34 b(\(1)23 b Fn(\000)g Fj(x)p Fw(\))p Fj(E)3450 +5553 y Fl(cm)3545 5538 y Fj(=)p Fw(2.)45 b(If)0 5647 +y(this)32 b(is)g(not)h(the)g(case,)g(a)g(new)g Fj(\037)g +Fw(and)f(a)h(new)g(relativ)m(e)f(transv)m(erse)j(momen)m(tum)c(is)h +(selected.)1817 5953 y(215)p eop +%%Page: 216 222 +216 221 bop 146 -18 a Fw(Whether)39 b(there)f(is)f(one)h(remnan)m(t)f +(parton)g(or)g(t)m(w)m(o,)j(the)e(transv)m(erse)h(mass)f(of)f(the)h +(remnan)m(t)f(is)0 90 y(not)27 b(lik)m(ely)g(to)g(agree)h(with)f(1)12 +b Fn(\000)g Fj(x)28 b Fw(times)e(the)i(mass)g(of)f(the)h(b)s(eam)e +(particle,)i(i.e.)41 b(it)27 b(is)g(not)g(going)f(to)h(b)s(e)0 +198 y(p)s(ossible)f(to)h(preserv)m(e)i(the)e(energy)h(and)f(momen)m +(tum)e(in)h(eac)m(h)i(remnan)m(t)f(separately)-8 b(.)42 +b(One)27 b(therefore)0 307 y(allo)m(ws)i(a)h(sh)m(u\017ing)g(of)g +(energy)h(and)f(momen)m(tum)f(b)s(et)m(w)m(een)j(the)f(b)s(eam)e +(remnan)m(ts)i(from)d(eac)m(h)j(of)f(the)0 415 y(t)m(w)m(o)f(incoming)d +(b)s(eams.)42 b(This)28 b(ma)m(y)g(b)s(e)g(ac)m(hiev)m(ed)i(b)m(y)f(p)s +(erforming)d(a)i(\(small\))e(longitudinal)e(b)s(o)s(ost)k(of)0 +523 y(eac)m(h)f(remnan)m(t)f(system.)42 b(Since)26 b(there)h(are)f(t)m +(w)m(o)g(b)s(o)s(ost)g(degrees)h(of)f(freedom,)h(one)f(for)g(eac)m(h)g +(remnan)m(t,)0 632 y(and)34 b(t)m(w)m(o)g(constrain)m(ts,)g(one)g(for)f +(energy)i(and)f(one)g(for)f(longitudinal)d(momen)m(tum,)i(a)i(solution) +e(ma)m(y)0 740 y(b)s(e)h(found.)146 848 y(Under)k(some)f +(circumstances,)h(one)f(b)s(eam)f(remnan)m(t)h(ma)m(y)g(b)s(e)g(absen)m +(t)h(or)e(of)h(v)m(ery)h(lo)m(w)e(energy)-8 b(,)0 957 +y(while)35 b(the)g(other)h(one)g(is)f(more)g(complicated.)50 +b(One)36 b(example)f(is)g(deep)h(inelastic)e(scattering)h(in)g(ep)0 +1065 y(collisions,)26 b(where)j(the)f(electron)g(lea)m(v)m(es)h(no)f +(remnan)m(t,)g(or)g(ma)m(yb)s(e)g(only)f(a)g(lo)m(w-energy)h(photon.)42 +b(It)28 b(is)0 1173 y(clearly)c(then)i(not)f(p)s(ossible)f(to)h +(balance)g(the)g(t)m(w)m(o)h(b)s(eam)f(remnan)m(ts)g(against)f(eac)m(h) +i(other.)41 b(Therefore,)0 1282 y(if)22 b(one)h(b)s(eam)g(remnan)m(t)g +(has)g(an)g(energy)h(b)s(elo)m(w)f(0.2)g(of)g(the)g(b)s(eam)f(energy)-8 +b(,)27 b(i.e.)39 b(if)22 b(the)i(initiator)c(parton)0 +1390 y(has)37 b Fj(x)e(>)g Fw(0)p Fj(:)p Fw(8,)i(then)h(the)f(t)m(w)m +(o)g(b)s(o)s(osts)g(needed)h(to)f(ensure)h(energy)f(and)g(momen)m(tum)f +(conserv)-5 b(ation)0 1498 y(are)30 b(instead)g(p)s(erformed)f(on)h +(the)g(other)g(remnan)m(t)g(and)g(on)g(the)g(in)m(teraction)f +(subsystem.)45 b(If)29 b(there)i(is)0 1607 y(a)f(lo)m(w-energy)h +(remnan)m(t)f(at)g(all)f(then,)i(b)s(efore)g(that,)g(energy)g(and)g +(momen)m(tum)e(are)h(assigned)h(to)f(the)0 1715 y(remnan)m(t)24 +b(constituen)m(t\(s\))i(so)e(that)g(the)h(appropriate)f(ligh)m(t-cone)f +(com)m(bination)f Fj(E)11 b Fn(\006)5 b Fj(p)3185 1730 +y Fh(z)3250 1715 y Fw(is)24 b(conserv)m(ed,)0 1823 y(but)39 +b(not)g(energy)h(or)e(momen)m(tum)g(separately)-8 b(.)62 +b(If)39 b(b)s(oth)g(b)s(eam)f(remnan)m(ts)h(ha)m(v)m(e)h(lo)m(w)f +(energy)-8 b(,)41 b(but)0 1932 y(b)s(oth)32 b(still)f(exist,)i(then)g +(the)g(one)g(with)f(lo)m(w)m(er)g Fj(m)1809 1947 y Fk(?)1869 +1932 y Fj(=E)38 b Fw(is)32 b(the)h(one)g(that)f(will)f(not)h(b)s(e)h(b) +s(o)s(osted.)0 2206 y Fp(11.2)136 b(Multiple)45 b(In)l(teractions)0 +2378 y Fw(In)h(this)f(section)g(w)m(e)h(presen)m(t)h(the)f(mo)s(del)e +(used)i(in)f Fm(Pythia)g Fw(to)g(describ)s(e)h(the)g(p)s(ossibilit)m(y) +d(that)0 2487 y(sev)m(eral)33 b(parton)e(pairs)g(undergo)i(hard)e(in)m +(teractions)h(in)f(a)g(hadron{hadron)h(collision,)d(and)j(thereb)m(y)0 +2595 y(con)m(tribute)48 b(to)f(the)h(o)m(v)m(erall)e(ev)m(en)m(t)k +(activit)m(y)-8 b(,)50 b(in)d(particular)f(at)h(lo)m(w)g +Fj(p)2760 2610 y Fk(?)2819 2595 y Fw(.)88 b(The)49 b(same)e(mo)s(del)f +(is)0 2703 y(also)f(used)j(to)e(describ)s(e)h(the)g(VMD)f +Fj(\015)5 b Fw(p)47 b(ev)m(en)m(ts,)52 b(where)c(the)e(photon)h(in)m +(teracts)g(lik)m(e)e(a)h(hadron.)0 2812 y(It)c(should)g(from)e(the)j +(onset)f(b)s(e)h(made)e(clear)g(that)h(this)g(is)f(not)h(an)g(easy)h +(topic.)70 b(In)43 b(fact,)h(in)d(the)0 2920 y(full)k(ev)m(en)m(t)j +(generation)e(pro)s(cess,)51 b(probably)c(no)f(other)h(area)f(is)g(as)h +(p)s(o)s(orly)e(understo)s(o)s(d)i(as)g(this)0 3028 y(one.)55 +b(The)37 b(whole)f(concept)i(of)e(m)m(ultiple)d(in)m(teractions)j(is)g +(v)m(ery)i(con)m(tro)m(v)m(ersial,)f(with)f(con)m(traditory)0 +3137 y(exp)s(erimen)m(tal)c(conclusions)g([AFS87].)146 +3245 y(The)d(m)m(ultiple)d(in)m(teractions)h(scenario)h(presen)m(ted)j +(here)e([Sj\177)-49 b(o87a)o(])28 b(w)m(as)h(the)f(\014rst)h(detailed)e +(mo)s(del)0 3353 y(for)39 b(this)h(kind)f(of)g(ph)m(ysics,)k(and)d(is)f +(still)f(one)i(of)f(the)h(v)m(ery)h(few)g(a)m(v)-5 b(ailable.)62 +b(W)-8 b(e)40 b(will)d(presen)m(t)42 b(t)m(w)m(o)0 3462 +y(related)30 b(but)g(separate)h(scenarios,)g(one)g(`simple')d(mo)s(del) +h(and)h(one)h(somewhat)f(more)g(sophisticated.)0 3570 +y(In)c(fact,)i(neither)e(of)g(them)g(are)g(all)e(that)i(simple,)g(whic) +m(h)g(ma)m(y)g(mak)m(e)h(the)f(mo)s(dels)f(lo)s(ok)g(unattractiv)m(e.)0 +3678 y(Ho)m(w)m(ev)m(er,)42 b(the)d(w)m(orld)f(of)g(hadron)h(ph)m +(ysics)h Fi(is)e Fw(complicated,)g(and)h(if)e(w)m(e)j(err,)g(it)d(is)h +(most)g(lik)m(ely)f(in)0 3787 y(b)s(eing)g(to)s(o)f(unsophisticated.)58 +b(The)38 b(exp)s(erience)h(gained)d(with)h(the)h(mo)s(del\(s\),)f(in)g +(failures)f(as)h(w)m(ell)0 3895 y(as)c(successes,)j(could)c(b)s(e)h +(used)h(as)e(a)h(guideline)d(in)i(the)h(ev)m(olution)f(of)g(y)m(et)i +(more)e(detailed)f(mo)s(dels.)146 4003 y(Our)h(basic)g(philosoph)m(y)f +(will)f(b)s(e)i(as)g(follo)m(ws.)42 b(The)32 b(total)f(rate)h(of)f +(parton{parton)g(in)m(teractions,)0 4112 y(as)40 b(a)f(function)h(of)f +(the)h(transv)m(erse)i(momen)m(tum)d(scale)g Fj(p)2176 +4127 y Fk(?)2235 4112 y Fw(,)j(is)d(assumed)i(to)e(b)s(e)h(giv)m(en)g +(b)m(y)h(p)s(ertur-)0 4220 y(bativ)m(e)34 b(QCD.)g(This)g(is)f +(certainly)g(true)h(for)g(reasonably)g(large)e Fj(p)2437 +4235 y Fk(?)2530 4220 y Fw(v)-5 b(alues,)34 b(but)g(here)h(w)m(e)g +(shall)d(also)0 4328 y(extend)40 b(the)f(p)s(erturbativ)m(e)g +(parton{parton)f(scattering)g(framew)m(ork)h(in)m(to)f(the)h(lo)m(w-)p +Fj(p)3261 4343 y Fk(?)3358 4328 y Fw(region.)60 b(A)0 +4437 y(regularization)39 b(of)j(the)h(div)m(ergence)g(in)f(the)g(cross) +h(section)f(for)g Fj(p)2505 4452 y Fk(?)2608 4437 y Fn(!)i +Fw(0)e(has)g(to)g(b)s(e)g(in)m(tro)s(duced,)0 4545 y(ho)m(w)m(ev)m(er,) +h(whic)m(h)d(will)d(pro)m(vide)i(us)h(with)f(the)h(main)d(free)j +(parameter)e(of)h(the)h(mo)s(del.)61 b(Since)40 b(eac)m(h)0 +4653 y(incoming)f(hadron)i(is)g(a)f(comp)s(osite)g(ob)5 +b(ject,)45 b(consisting)40 b(of)h(man)m(y)g(partons,)i(there)f(should)f +(exist)0 4762 y(the)k(p)s(ossibilit)m(y)d(of)i(sev)m(eral)h(parton)f +(pairs)g(in)m(teracting)g(when)h(t)m(w)m(o)g(hadrons)g(collide.)77 +b(It)45 b(is)f(not)0 4870 y(unreasonable)35 b(to)f(assume)h(that)g(the) +g(di\013eren)m(t)g(pairwise)f(in)m(teractions)g(tak)m(e)h(place)f +(essen)m(tially)h(in-)0 4979 y(dep)s(enden)m(tly)k(of)e(eac)m(h)i +(other,)g(and)f(that)f(therefore)h(the)g(n)m(um)m(b)s(er)g(of)f(in)m +(teractions)g(in)g(an)h(ev)m(en)m(t)h(is)0 5087 y(giv)m(en)33 +b(b)m(y)g(a)f(P)m(oissonian)h(distribution.)41 b(This)33 +b(is)f(the)h(strategy)g(of)f(the)h(`simple')e(scenario.)146 +5195 y(F)-8 b(urthermore,)28 b(hadrons)g(are)f(not)h(only)e(comp)s +(osite)h(but)g(also)g(extended)i(ob)5 b(jects,)30 b(meaning)c(that)0 +5304 y(collisions)e(range)i(from)e(v)m(ery)k(cen)m(tral)e(to)g(rather)g +(p)s(eripheral)f(ones.)42 b(Reasonably)-8 b(,)27 b(the)g(a)m(v)m(erage) +g(n)m(um-)0 5412 y(b)s(er)39 b(of)f(in)m(teractions)g(should)g(b)s(e)h +(larger)f(in)g(the)h(former)e(than)i(in)f(the)h(latter)f(case.)62 +b(Whereas)40 b(the)0 5520 y(assumption)25 b(of)g(a)g(P)m(oissonian)g +(distribution)e(should)i(hold)g(for)g(eac)m(h)h(impact)e(parameter)h +(separately)-8 b(,)0 5629 y(the)30 b(distribution)f(in)g(n)m(um)m(b)s +(er)h(of)g(in)m(teractions)f(should)h(b)s(e)h(widened)f(b)m(y)h(the)g +(spread)g(of)e(impact)g(pa-)1817 5953 y(216)p eop +%%Page: 217 223 +217 222 bop 0 -18 a Fw(rameters.)41 b(The)27 b(amoun)m(t)f(of)f +(widening)h(dep)s(ends)h(on)f(the)h(assumed)f(matter)g(distribution)e +(inside)h(the)0 90 y(colliding)33 b(hadrons.)53 b(In)37 +b(the)f(`complex')g(scenario,)g(di\013eren)m(t)g(matter)g +(distributions)e(are)i(therefore)0 198 y(in)m(tro)s(duced.)0 +446 y Fo(11.2.1)113 b(The)37 b(basic)g(cross)h(sections)0 +619 y Fw(The)f(QCD)f(cross)g(section)g(for)g(hard)g(2)d +Fn(!)g Fw(2)i(pro)s(cesses,)k(as)d(a)g(function)f(of)h(the)g +Fj(p)3096 582 y Fl(2)3096 643 y Fk(?)3191 619 y Fw(scale,)h(is)e(giv)m +(en)0 727 y(b)m(y)497 844 y(d)p Fj(\033)p 472 888 163 +4 v 472 979 a Fw(d)p Fj(p)575 945 y Fl(2)575 1004 y Fk(?)672 +911 y Fw(=)781 828 y Fg(X)776 1012 y Fh(i;j;k)923 794 +y Fg(Z)1022 911 y Fw(d)p Fj(x)1131 926 y Fl(1)1188 794 +y Fg(Z)1288 911 y Fw(d)p Fj(x)1397 926 y Fl(2)1453 794 +y Fg(Z)1553 911 y Fw(d)1608 893 y(^)1607 911 y Fj(t)17 +b(f)1707 926 y Fh(i)1735 911 y Fw(\()p Fj(x)1828 926 +y Fl(1)1868 911 y Fj(;)g(Q)1989 870 y Fl(2)2028 911 y +Fw(\))g Fj(f)2131 926 y Fh(j)2168 911 y Fw(\()p Fj(x)2261 +926 y Fl(2)2300 911 y Fj(;)g(Q)2421 870 y Fl(2)2461 911 +y Fw(\))2525 837 y(d)5 b(^)-54 b Fj(\033)2638 801 y Fh(k)2634 +862 y(ij)p 2525 888 171 4 v 2566 985 a Fw(d)2621 967 +y(^)2620 985 y Fj(t)2722 911 y(\016)2769 765 y Fg( )2835 +911 y Fj(p)2884 870 y Fl(2)2884 936 y Fk(?)2965 911 y +Fn(\000)3076 825 y Fw(^)3074 844 y Fj(t)7 b Fw(^)-55 +b Fj(u)p 3074 888 91 4 v 3101 979 a Fw(^)i Fj(s)3175 +765 y Fg(!)3290 911 y Fj(;)240 b Fw(\(157\))0 1165 y(cf.)46 +b(section)34 b(7.2.)46 b(Implicitly)-8 b(,)30 b(from)j(no)m(w)h(on)f(w) +m(e)i(are)e(assuming)g(that)g(the)h(`hardness')h(of)e(pro)s(cesses)0 +1273 y(is)27 b(giv)m(en)g(b)m(y)h(the)g Fj(p)684 1288 +y Fk(?)770 1273 y Fw(scale)f(of)g(the)h(scattering.)41 +b(F)-8 b(or)26 b(an)i(application)c(of)j(the)h(form)m(ula)d(ab)s(o)m(v) +m(e)j(to)f(small)0 1382 y Fj(p)49 1397 y Fk(?)148 1382 +y Fw(v)-5 b(alues,)41 b(a)f(n)m(um)m(b)s(er)g(of)f(ca)m(v)m(eats)j +(could)d(b)s(e)h(made.)65 b(A)m(t)40 b(lo)m(w)f Fj(p)2497 +1397 y Fk(?)2556 1382 y Fw(,)j(the)e(in)m(tegrals)f(receiv)m(e)i(ma)5 +b(jor)0 1490 y(con)m(tributions)33 b(from)g(the)h(small-)p +Fj(x)d Fw(region,)i(where)i(parton)f(distributions)e(are)i(p)s(o)s +(orly)e(understo)s(o)s(d)0 1599 y(theoretically)k(\(Regge)i(limit)d(b)s +(eha)m(viour,)k(dense)h(pac)m(king)e(problems)f(etc.)60 +b([Lev90)q(]\))38 b(and)g(not)f(y)m(et)0 1707 y(measured.)79 +b(Di\013eren)m(t)44 b(sets)i(of)e(parton)g(distributions)f(can)i +(therefore)g(giv)m(e)f(n)m(umerically)e(rather)0 1815 +y(di\013eren)m(t)f(results)g(for)f(the)h(phenomenology)e(of)i(in)m +(terest.)67 b(One)41 b(ma)m(y)g(also)e(w)m(orry)i(ab)s(out)f(higher-)0 +1924 y(order)k(corrections)f(to)g(the)h(jet)g(rates)g(\()p +Fj(K)51 b Fw(factors\),)46 b(b)s(ey)m(ond)e(what)g(is)f(giv)m(en)h(b)m +(y)g(parton-sho)m(w)m(er)0 2032 y(corrections)c(|)g(one)g(simple)e +(option)h(w)m(e)j(allo)m(w)c(here)j(is)e(to)h(ev)-5 b(aluate)40 +b Fj(\013)2761 2047 y Fl(s)2833 2032 y Fw(of)f(the)i(hard)f(scattering) +0 2140 y(pro)s(cess)34 b(at)e(an)h(optimized)d(scale,)j +Fj(\013)1367 2155 y Fl(s)1399 2140 y Fw(\(0)p Fj(:)p +Fw(075)p Fj(p)1709 2104 y Fl(2)1709 2165 y Fk(?)1767 +2140 y Fw(\))g([Ell86)n(].)146 2249 y(The)h(hard)e(scattering)h(cross)g +(section)g(ab)s(o)m(v)m(e)g(some)g(giv)m(en)g Fj(p)2415 +2264 y Fk(?)p Fl(min)2624 2249 y Fw(is)f(giv)m(en)h(b)m(y)1235 +2517 y Fj(\033)1290 2532 y Fl(hard)1436 2517 y Fw(\()p +Fj(p)1523 2532 y Fk(?)p Fl(min)1699 2517 y Fw(\))28 b(=)1868 +2399 y Fg(Z)1952 2426 y Fh(s=)p Fl(4)1915 2588 y Fh(p)1951 +2565 y Ff(2)1951 2613 y Fd(?)p Ff(min)2158 2449 y Fw(d)p +Fj(\033)p 2134 2493 163 4 v 2134 2585 a Fw(d)p Fj(p)2237 +2551 y Fl(2)2237 2610 y Fk(?)2323 2517 y Fw(d)p Fj(p)2426 +2475 y Fl(2)2426 2541 y Fk(?)2517 2517 y Fj(:)1013 b +Fw(\(158\))0 2800 y(Since)29 b(the)g(di\013eren)m(tial)d(cross)k +(section)e(div)m(erges)i(roughly)e(lik)m(e)f(d)p Fj(p)2454 +2764 y Fl(2)2454 2825 y Fk(?)2514 2800 y Fj(=p)2612 2764 +y Fl(4)2612 2825 y Fk(?)2670 2800 y Fw(,)j Fj(\033)2782 +2815 y Fl(hard)2956 2800 y Fw(is)e(also)g(div)m(ergen)m(t)h(for)0 +2908 y Fj(p)49 2923 y Fk(?)p Fl(min)264 2908 y Fn(!)39 +b Fw(0.)63 b(W)-8 b(e)39 b(ma)m(y)g(compare)g(this)g(with)g(the)g +(total)f(inelastic,)h(non-di\013ractiv)m(e)f(cross)i(section)0 +3017 y Fj(\033)55 3032 y Fl(nd)138 3017 y Fw(\()p Fj(s)p +Fw(\))26 b(|)g(elastic)g(and)h(di\013ractiv)m(e)f(ev)m(en)m(ts)i(are)f +(not)f(the)h(topic)f(of)g(this)g(section.)42 b(A)m(t)27 +b(curren)m(t)h(collider)0 3125 y(energies)48 b Fj(\033)439 +3140 y Fl(hard)584 3125 y Fw(\()p Fj(p)671 3140 y Fk(?)p +Fl(min)848 3125 y Fw(\))f(b)s(ecomes)g(comparable)f(with)h +Fj(\033)2162 3140 y Fl(nd)2292 3125 y Fw(for)f Fj(p)2504 +3140 y Fk(?)p Fl(min)2733 3125 y Fn(\031)p Fw(1.5{2)h(GeV.)g(This)g +(need)0 3233 y(not)37 b(lead)f(to)g(con)m(tradictions:)51 +b Fj(\033)1244 3248 y Fl(hard)1427 3233 y Fw(do)s(es)37 +b(not)g(giv)m(e)g(the)g(hadron{hadron)f(cross)i(section)f(but)g(the)0 +3342 y(parton{parton)c(one.)49 b(Eac)m(h)35 b(of)e(the)i(incoming)c +(hadrons)k(ma)m(y)f(b)s(e)g(view)m(ed)h(as)f(a)g(b)s(eam)g(of)f +(partons,)0 3450 y(with)i(the)h(p)s(ossibilit)m(y)e(of)h(ha)m(ving)g +(sev)m(eral)i(parton{parton)e(in)m(teractions)g(when)h(the)g(hadrons)h +(pass)0 3558 y(through)g(eac)m(h)h(other.)57 b(In)38 +b(this)e(language,)h Fj(\033)1718 3573 y Fl(hard)1864 +3558 y Fw(\()p Fj(p)1951 3573 y Fk(?)p Fl(min)2128 3558 +y Fw(\))p Fj(=\033)2270 3573 y Fl(nd)2352 3558 y Fw(\()p +Fj(s)p Fw(\))g(is)g(simply)f(the)h(a)m(v)m(erage)h(n)m(um)m(b)s(er)0 +3667 y(of)28 b(parton{parton)g(scatterings)h(ab)s(o)m(v)m(e)g +Fj(p)1554 3682 y Fk(?)p Fl(min)1760 3667 y Fw(in)f(an)g(ev)m(en)m(t,)j +(and)e(this)f(n)m(um)m(b)s(er)i(ma)m(y)e(w)m(ell)g(b)s(e)h(larger)0 +3775 y(than)k(unit)m(y)-8 b(.)146 3883 y(While)32 b(the)g(in)m(tro)s +(duction)f(of)h(sev)m(eral)h(in)m(teractions)f(p)s(er)g(ev)m(en)m(t)j +(is)d(the)g(natural)g(consequence)j(of)0 3992 y(allo)m(wing)23 +b(small)g Fj(p)672 4007 y Fk(?)p Fl(min)875 3992 y Fw(v)-5 +b(alues)25 b(and)h(hence)h(large)d Fj(\033)1891 4007 +y Fl(hard)2063 3992 y Fw(ones,)k(it)c(is)h(not)h(the)g(solution)e(of)h +Fj(\033)3332 4007 y Fl(hard)3478 3992 y Fw(\()p Fj(p)3565 +4007 y Fk(?)p Fl(min)3742 3992 y Fw(\))0 4100 y(b)s(eing)34 +b(div)m(ergen)m(t)i(for)e Fj(p)893 4115 y Fk(?)p Fl(min)1101 +4100 y Fn(!)d Fw(0:)48 b(the)35 b(a)m(v)m(erage)40 b(^)-53 +b Fj(s)35 b Fw(of)f(a)g(scattering)h(decreases)i(slo)m(w)m(er)e(with)g +Fj(p)3603 4115 y Fk(?)p Fl(min)0 4208 y Fw(than)22 b(the)g(n)m(um)m(b)s +(er)h(of)e(in)m(teractions)g(increases,)26 b(so)c(na)-11 +b(\177)-38 b(\020v)m(ely)21 b(the)i(total)d(amoun)m(t)i(of)f(scattered) +i(partonic)0 4317 y(energy)j(b)s(ecomes)f(in\014nite.)40 +b(One)25 b(cut-o\013)f(is)h(therefore)g(obtained)f(via)g(the)h(need)h +(to)f(in)m(tro)s(duce)f(prop)s(er)0 4425 y(m)m(ulti-parton)37 +b(correlated)i(parton)h(distributions)e(inside)h(a)h(hadron.)65 +b(This)40 b(is)f(not)h(a)f(part)h(of)f(the)0 4533 y(standard)23 +b(p)s(erturbativ)m(e)f(QCD)g(formalism)d(and)j(is)g(therefore)h(not)f +(built)e(in)m(to)i(eq.)h(\(158\).)39 b(In)22 b(practice,)0 +4642 y(ev)m(en)33 b(correlated)f(parton-distribution)d(functions)i +(seems)i(to)e(pro)m(vide)h(to)s(o)f(w)m(eak)i(a)e(cut,)h(i.e.)43 +b(one)32 b(is)0 4750 y(lead)27 b(to)h(a)g(picture)g(with)f(to)s(o)g +(little)f(of)h(the)i(incoming)d(energy)j(remaining)c(in)i(the)i +(small-angle)24 b(b)s(eam)0 4858 y(jet)33 b(region.)146 +4967 y(A)d(more)g(credible)f(reason)h(for)g(an)f(e\013ectiv)m(e)i +(cut-o\013)f(is)f(that)h(the)g(incoming)e(hadrons)i(are)g(colour)0 +5075 y(neutral)39 b(ob)5 b(jects.)67 b(Therefore,)43 +b(when)d(the)h Fj(p)1701 5090 y Fk(?)1799 5075 y Fw(of)f(an)f(exc)m +(hanged)j(gluon)d(is)g(made)h(small)d(and)j(the)0 5183 +y(transv)m(erse)45 b(w)m(a)m(v)m(elength)g(corresp)s(ondingly)e(large,) +h(the)g(gluon)e(can)i(no)f(longer)f(resolv)m(e)i(the)f(indi-)0 +5292 y(vidual)34 b(colour)h(c)m(harges,)i(and)e(the)h(e\013ectiv)m(e)g +(coupling)e(is)h(decreased.)54 b(This)36 b(mec)m(hanism)e(is)h(not)g +(in)0 5400 y(con)m(tradiction)40 b(to)i(p)s(erturbativ)m(e)f(QCD)h +(calculations,)g(whic)m(h)g(are)f(alw)m(a)m(ys)h(p)s(erformed)f +(assuming)0 5509 y(scattering)34 b(of)g(free)g(partons)h(\(rather)f +(than)g(partons)h(inside)e(hadrons\),)i(but)g(neither)f(do)s(es)h +(presen)m(t)0 5617 y(kno)m(wledge)30 b(of)g(QCD)f(pro)m(vide)h(an)f +(understanding)h(of)f(ho)m(w)i(suc)m(h)g(a)e(decoupling)g(mec)m(hanism) +g(w)m(ould)1817 5953 y(217)p eop +%%Page: 218 224 +218 223 bop 0 -18 a Fw(w)m(ork)32 b(in)f(detail.)41 b(In)32 +b(the)g(simple)d(mo)s(del)h(one)i(mak)m(es)g(use)g(of)f(a)g(sharp)g +(cut-o\013)g(at)g(some)h(scale)f Fj(p)3576 -3 y Fk(?)p +Fl(min)3752 -18 y Fw(,)0 90 y(while)h(a)g(more)g(smo)s(oth)g(damp)s +(ening)f(is)h(assumed)h(for)f(the)h(complex)f(scenario.)0 +338 y Fo(11.2.2)113 b(The)37 b(simple)f(mo)s(del)0 510 +y Fw(In)e(an)f(ev)m(en)m(t)i(with)e(sev)m(eral)h(in)m(teractions,)f(it) +f(is)g(con)m(v)m(enien)m(t)j(to)e(imp)s(ose)f(an)i(ordering.)44 +b(The)35 b(logical)0 619 y(c)m(hoice)d(is)g(to)g(arrange)f(the)i +(scatterings)f(in)g(falling)c(sequence)35 b(of)d Fj(x)2491 +634 y Fk(?)2578 619 y Fw(=)27 b(2)p Fj(p)2779 634 y Fk(?)2838 +619 y Fj(=E)2959 634 y Fl(cm)3053 619 y Fw(.)44 b(The)33 +b(`\014rst')f(scat-)0 727 y(tering)i(is)g(th)m(us)i(the)f(hardest)g +(one,)g(with)g(the)g(`subsequen)m(t')j(\(`second',)e(`third',)f(etc.\)) +50 b(successiv)m(ely)0 835 y(softer.)71 b(It)41 b(is)g(imp)s(ortan)m(t) +f(to)h(remem)m(b)s(er)g(that)g(this)g(terminology)f(is)h(in)f(no)i(w)m +(a)m(y)h(related)e(to)g(an)m(y)0 944 y(picture)34 b(in)f(ph)m(ysical)h +(time;)g(w)m(e)h(do)f(not)g(kno)m(w)h(an)m(ything)f(ab)s(out)f(the)i +(latter.)47 b(In)34 b(principle,)f(all)f(the)0 1052 y(scatterings)40 +b(that)g(o)s(ccur)g(in)f(an)h(ev)m(en)m(t)i(m)m(ust)e(b)s(e)g +(correlated)f(someho)m(w,)k(na)-11 b(\177)-38 b(\020v)m(ely)39 +b(b)m(y)i(momen)m(tum)0 1160 y(and)32 b(\015a)m(v)m(our)i(conserv)-5 +b(ation)32 b(for)g(the)h(partons)f(from)f(eac)m(h)j(incoming)c(hadron,) +i(less)h(na)-11 b(\177)-38 b(\020v)m(ely)32 b(b)m(y)h(v)-5 +b(ar-)0 1269 y(ious)31 b(quan)m(tum)h(mec)m(hanical)f(e\013ects.)44 +b(When)33 b(a)m(v)m(eraging)e(o)m(v)m(er)i(all)d(con\014gurations)h(of) +g(soft)h(partons,)0 1377 y(ho)m(w)m(ev)m(er,)g(one)d(should)f +(e\013ectiv)m(ely)h(obtain)f(the)h(standard)g(QCD)f(phenomenology)g +(for)g(a)h(hard)f(scat-)0 1485 y(tering,)i(e.g.)43 b(in)30 +b(terms)g(of)g(parton)g(distributions.)41 b(Correlation)29 +b(e\013ects,)j(kno)m(wn)g(or)e(estimated,)g(can)0 1594 +y(b)s(e)h(in)m(tro)s(duced)g(in)g(the)g(c)m(hoice)g(of)g(subsequen)m(t) +j(scatterings,)d(giv)m(en)h(that)e(the)i(`preceding')f(\(harder\))0 +1702 y(ones)i(are)g(already)f(kno)m(wn.)146 1810 y(With)38 +b(a)g(total)e(cross)j(section)f(of)g(hard)g(in)m(teractions)g +Fj(\033)2245 1825 y Fl(hard)2390 1810 y Fw(\()p Fj(p)2477 +1825 y Fk(?)p Fl(min)2654 1810 y Fw(\))g(to)g(b)s(e)g(distributed)g +(among)0 1919 y Fj(\033)55 1934 y Fl(nd)138 1919 y Fw(\()p +Fj(s)p Fw(\))d(\(non-di\013ractiv)m(e,)f(inelastic\))g(ev)m(en)m(ts,)k +(the)d(a)m(v)m(erage)h(n)m(um)m(b)s(er)f(of)g(in)m(teractions)f(p)s(er) +h(ev)m(en)m(t)i(is)0 2027 y(just)30 b(the)g(ratio)p 585 +1974 59 4 v 28 w Fj(n)d Fw(=)h Fj(\033)829 2042 y Fl(hard)975 +2027 y Fw(\()p Fj(p)1062 2042 y Fk(?)p Fl(min)1238 2027 +y Fw(\))p Fj(=\033)1380 2042 y Fl(nd)1463 2027 y Fw(\()p +Fj(s)p Fw(\).)42 b(As)30 b(a)f(starting)g(p)s(oin)m(t)f(w)m(e)j(will)c +(assume)j(that)f(all)e(hadron)0 2135 y(collisions)21 +b(are)j(equiv)-5 b(alen)m(t)23 b(\(no)h(impact)e(parameter)h(dep)s +(endence\),)28 b(and)c(that)f(the)h(di\013eren)m(t)g(parton{)0 +2244 y(parton)40 b(in)m(teractions)f(tak)m(e)i(place)f(completely)e +(indep)s(enden)m(tly)j(of)f(eac)m(h)h(other.)66 b(The)41 +b(n)m(um)m(b)s(er)f(of)0 2352 y(scatterings)32 b(p)s(er)h(ev)m(en)m(t)h +(is)d(then)i(distributed)f(according)f(to)h(a)g(P)m(oissonian)f(with)h +(mean)p 3335 2299 V 32 w Fj(n)p Fw(.)43 b(A)33 b(\014t)f(to)0 +2460 y(collider)e(m)m(ultiplicit)m(y)f(data)j(giv)m(es)g +Fj(p)1373 2475 y Fk(?)p Fl(min)1578 2460 y Fn(\031)c +Fw(1)p Fj(:)p Fw(6)j(GeV,)i(whic)m(h)g(corresp)s(onds)g(to)p +3024 2408 V 32 w Fj(n)28 b Fn(\031)g Fw(1.)43 b(F)-8 +b(or)32 b(Mon)m(te)0 2569 y(Carlo)g(generation)f(of)i(these)g(in)m +(teractions)f(it)g(is)g(useful)h(to)f(de\014ne)1427 2833 +y Fj(f)11 b Fw(\()p Fj(x)1579 2848 y Fk(?)1638 2833 y +Fw(\))28 b(=)1923 2765 y(1)p 1818 2809 260 4 v 1818 2901 +a Fj(\033)1873 2916 y Fl(nd)1956 2901 y Fw(\()p Fj(s)p +Fw(\))2142 2765 y(d)p Fj(\033)p 2114 2809 169 4 v 2114 +2901 a Fw(d)p Fj(x)2223 2916 y Fk(?)2325 2833 y Fj(;)1205 +b Fw(\(159\))0 3109 y(with)34 b(d)p Fj(\033)t(=)p Fw(d)p +Fj(x)495 3124 y Fk(?)590 3109 y Fw(obtained)g(b)m(y)h(analogy)f(with)g +(eq.)51 b(\(157\).)e(Then)36 b Fj(f)11 b Fw(\()p Fj(x)2597 +3124 y Fk(?)2656 3109 y Fw(\))35 b(is)f(simply)f(the)i(probabilit)m(y)0 +3217 y(to)k(ha)m(v)m(e)h(a)f(parton{parton)f(in)m(teraction)g(at)h +Fj(x)1774 3232 y Fk(?)1834 3217 y Fw(,)h(giv)m(en)g(that)f(the)g(t)m(w) +m(o)h(hadrons)g(undergo)f(a)g(non-)0 3325 y(di\013ractiv)m(e,)32 +b(inelastic)f(collision.)146 3434 y(The)37 b(probabilit)m(y)c(that)j +(the)f(hardest)i(in)m(teraction,)e(i.e.)52 b(the)36 b(one)f(with)g +(highest)h Fj(x)3257 3449 y Fk(?)3316 3434 y Fw(,)h(is)e(at)g +Fj(x)3658 3449 y Fk(?)p Fl(1)3752 3434 y Fw(,)0 3542 +y(is)d(no)m(w)h(giv)m(en)g(b)m(y)1197 3703 y Fj(f)11 +b Fw(\()p Fj(x)1349 3718 y Fk(?)p Fl(1)1444 3703 y Fw(\))17 +b(exp)1664 3582 y Fg(\032)1726 3703 y Fn(\000)1820 3586 +y Fg(Z)1903 3612 y Fl(1)1866 3775 y Fh(x)1906 3787 y +Fd(?)p Ff(1)2009 3703 y Fj(f)11 b Fw(\()p Fj(x)2161 3662 +y Fk(0)2161 3728 y(?)2221 3703 y Fw(\))17 b(d)p Fj(x)2385 +3662 y Fk(0)2385 3728 y(?)2444 3582 y Fg(\033)2555 3703 +y Fj(;)975 b Fw(\(160\))0 3918 y(i.e.)56 b(the)37 b(na)-11 +b(\177)-38 b(\020v)m(e)37 b(probabilit)m(y)e(to)i(ha)m(v)m(e)h(a)e +(scattering)h(at)g Fj(x)2187 3933 y Fk(?)p Fl(1)2318 +3918 y Fw(m)m(ultiplied)d(b)m(y)k(the)f(probabilit)m(y)e(that)0 +4026 y(there)g(w)m(as)f(no)g(scattering)g(with)f Fj(x)1306 +4041 y Fk(?)1399 4026 y Fw(larger)g(than)h Fj(x)1961 +4041 y Fk(?)p Fl(1)2056 4026 y Fw(.)47 b(This)34 b(is)f(the)i(familiar) +29 b(exp)s(onen)m(tial)34 b(damp-)0 4135 y(ening)h(in)g(radioactiv)m(e) +f(deca)m(ys,)39 b(encoun)m(tered)e(e.g.)53 b(in)35 b(parton)g(sho)m(w)m +(ers)j(in)d(section)g(10.1.2.)52 b(Using)0 4243 y(the)36 +b(same)f(tec)m(hnique)i(as)f(in)f(the)h(pro)s(of)f(of)g(the)h(v)m(eto)g +(algorithm,)d(section)j(4.2,)g(the)g(probabilit)m(y)e(to)0 +4351 y(ha)m(v)m(e)g(an)e Fj(i)p Fw(:th)h(scattering)g(at)f(an)g +Fj(x)1305 4366 y Fk(?)p Fh(i)1417 4351 y Fj(<)27 b(x)1575 +4366 y Fk(?)p Fh(i)p Fk(\000)p Fl(1)1777 4351 y Fj(<)g +Fn(\001)17 b(\001)g(\001)26 b Fj(<)i(x)2183 4366 y Fk(?)p +Fl(1)2305 4351 y Fj(<)g Fw(1)k(is)g(found)h(to)f(b)s(e)599 +4632 y Fj(f)11 b Fw(\()p Fj(x)751 4647 y Fk(?)p Fh(i)834 +4632 y Fw(\))1028 4565 y(1)p 899 4609 307 4 v 899 4701 +a(\()p Fj(i)22 b Fn(\000)h Fw(1\)!)1232 4511 y Fg(\022)1293 +4515 y(Z)1376 4542 y Fl(1)1339 4704 y Fh(x)1379 4716 +y Fd(?)p Fe(i)1474 4632 y Fj(f)11 b Fw(\()p Fj(x)1626 +4591 y Fk(0)1626 4657 y(?)1685 4632 y Fw(\))17 b(d)p +Fj(x)1849 4591 y Fk(0)1849 4657 y(?)1909 4511 y Fg(\023)1970 +4525 y Fh(i)p Fk(\000)p Fl(1)2105 4632 y Fw(exp)2270 +4511 y Fg(\032)2333 4632 y Fn(\000)2427 4515 y Fg(Z)2510 +4542 y Fl(1)2473 4704 y Fh(x)2513 4716 y Fd(?)p Fe(i)2608 +4632 y Fj(f)11 b Fw(\()p Fj(x)2760 4591 y Fk(0)2760 4657 +y(?)2819 4632 y Fw(\))17 b(d)p Fj(x)2983 4591 y Fk(0)2983 +4657 y(?)3042 4511 y Fg(\033)3153 4632 y Fj(:)377 b Fw(\(161\))0 +4903 y(The)43 b(total)d(probabilit)m(y)f(to)j(ha)m(v)m(e)h(a)e +(scattering)h(at)f(a)g(giv)m(en)h Fj(x)2409 4918 y Fk(?)2469 +4903 y Fw(,)i(irresp)s(ectiv)m(ely)d(of)g(it)g(b)s(eing)g(the)0 +5011 y(\014rst,)35 b(the)g(second)g(or)f(whatev)m(er,)i(ob)m(viously)e +(adds)g(up)h(to)f(giv)m(e)g(bac)m(k)h Fj(f)11 b Fw(\()p +Fj(x)2792 5026 y Fk(?)2851 5011 y Fw(\).)48 b(The)35 +b(m)m(ultiple)c(in)m(ter-)0 5119 y(action)f(formalism)e(th)m(us)33 +b(retains)e(the)h(correct)g(p)s(erturbativ)m(e)f(QCD)g(expression)i +(for)e(the)h(scattering)0 5228 y(probabilit)m(y)f(at)h(an)m(y)h(giv)m +(en)g Fj(x)1112 5243 y Fk(?)1171 5228 y Fw(.)146 5336 +y(With)f(the)h(help)g(of)f(the)h(in)m(tegral)861 5604 +y Fj(F)14 b Fw(\()p Fj(x)1031 5619 y Fk(?)1090 5604 y +Fw(\))27 b(=)1259 5487 y Fg(Z)1342 5513 y Fl(1)1305 5676 +y Fh(x)1345 5688 y Fd(?)1418 5604 y Fj(f)11 b Fw(\()p +Fj(x)1570 5563 y Fk(0)1570 5629 y(?)1629 5604 y Fw(\))17 +b(d)p Fj(x)1793 5563 y Fk(0)1793 5629 y(?)1880 5604 y +Fw(=)2099 5537 y(1)p 1993 5581 260 4 v 1993 5672 a Fj(\033)2048 +5687 y Fl(nd)2131 5672 y Fw(\()p Fj(s)p Fw(\))2296 5487 +y Fg(Z)2379 5513 y Fh(s=)p Fl(4)2342 5676 y Fh(sx)2415 +5653 y Ff(2)2415 5701 y Fd(?)2467 5676 y Fh(=)p Fl(4)2592 +5537 y Fw(d)p Fj(\033)p 2568 5581 163 4 v 2568 5672 a +Fw(d)p Fj(p)2671 5638 y Fl(2)2671 5698 y Fk(?)2757 5604 +y Fw(d)p Fj(p)2860 5563 y Fl(2)2860 5629 y Fk(?)3557 +5604 y Fw(\(162\))1817 5953 y(218)p eop +%%Page: 219 225 +219 224 bop 0 -18 a Fw(\(where)36 b(w)m(e)f(assume)g +Fj(F)14 b Fw(\()p Fj(x)976 -3 y Fk(?)1035 -18 y Fw(\))31 +b Fn(!)f(1)k Fw(for)g Fj(x)1574 -3 y Fk(?)1664 -18 y +Fn(!)d Fw(0\))j(and)g(its)g(in)m(v)m(erse)i Fj(F)2647 +-55 y Fk(\000)p Fl(1)2741 -18 y Fw(,)f(the)g(iterativ)m(e)f(pro)s +(cedure)0 90 y(to)e(generate)h(a)g(c)m(hain)f(of)g(scatterings)h(1)28 +b Fj(>)f(x)1683 105 y Fk(?)p Fl(1)1805 90 y Fj(>)h(x)1964 +105 y Fk(?)p Fl(2)2086 90 y Fj(>)g Fn(\001)17 b(\001)g(\001)26 +b Fj(>)h(x)2492 105 y Fk(?)p Fh(i)2608 90 y Fw(is)33 +b(giv)m(en)f(b)m(y)1250 298 y Fj(x)1305 313 y Fk(?)p +Fh(i)1416 298 y Fw(=)c Fj(F)1597 257 y Fk(\000)p Fl(1)1691 +298 y Fw(\()p Fj(F)14 b Fw(\()p Fj(x)1899 313 y Fk(?)p +Fh(i)p Fk(\000)p Fl(1)2072 298 y Fw(\))22 b Fn(\000)h +Fw(ln)16 b Fj(R)2404 313 y Fh(i)2432 298 y Fw(\))32 b +Fj(:)1028 b Fw(\(163\))0 506 y(Here)47 b(the)h Fj(R)501 +521 y Fh(i)576 506 y Fw(are)f(random)f(n)m(um)m(b)s(ers)h(ev)m(enly)h +(distributed)e(b)s(et)m(w)m(een)j(0)e(and)g(1.)86 b(The)47 +b(iterativ)m(e)0 614 y(c)m(hain)c(is)g(started)g(with)g(a)g +(\014ctitious)f Fj(x)1510 629 y Fk(?)p Fl(0)1650 614 +y Fw(=)k(1)d(and)g(is)g(terminated)f(when)i Fj(x)3002 +629 y Fk(?)p Fh(i)3129 614 y Fw(is)e(smaller)f(than)0 +722 y Fj(x)55 737 y Fk(?)p Fl(min)276 722 y Fw(=)i(2)p +Fj(p)493 737 y Fk(?)p Fl(min)669 722 y Fj(=E)790 737 +y Fl(cm)885 722 y Fw(.)71 b(Since)42 b Fj(F)56 b Fw(and)42 +b Fj(F)1642 686 y Fk(\000)p Fl(1)1778 722 y Fw(are)g(not)f(kno)m(wn)j +(analytically)-8 b(,)41 b(the)h(standard)h(v)m(eto)0 +831 y(algorithm)e(is)j(used)i(to)e(generate)h(a)g(m)m(uc)m(h)g(denser)h +(set)f(of)f Fj(x)2358 846 y Fk(?)2462 831 y Fw(v)-5 b(alues,)48 +b(whereof)d(only)f(some)g(are)0 939 y(retained)26 b(in)f(the)i(end.)42 +b(In)27 b(addition)d(to)i(the)h Fj(p)1680 903 y Fl(2)1680 +964 y Fk(?)1765 939 y Fw(of)f(an)g(in)m(teraction,)g(it)f(is)h(also)f +(necessary)k(to)d(generate)0 1048 y(the)33 b(other)g(\015a)m(v)m(our)g +(and)g(kinematics)e(v)-5 b(ariables)32 b(according)g(to)g(the)h(relev) +-5 b(an)m(t)32 b(matrix)f(elemen)m(ts.)146 1156 y(Whereas)k(the)g +(ordinary)e(parton)h(distributions)e(should)i(b)s(e)g(used)h(for)f(the) +g(hardest)h(scattering,)0 1264 y(in)30 b(order)g(to)g(repro)s(duce)i +(standard)e(QCD)h(phenomenology)-8 b(,)30 b(the)h(parton)f +(distributions)f(to)h(b)s(e)g(used)0 1373 y(for)d(subsequen)m(t)j +(scatterings)e(m)m(ust)g(dep)s(end)g(on)g(all)d(preceding)j +Fj(x)g Fw(v)-5 b(alues)27 b(and)h(\015a)m(v)m(ours)h(c)m(hosen.)43 +b(W)-8 b(e)0 1481 y(do)28 b(not)h(kno)m(w)g(enough)g(ab)s(out)f(the)h +(hadron)f(w)m(a)m(v)m(e)j(function)d(to)g(write)g(do)m(wn)h(suc)m(h)h +(join)m(t)d(probabilit)m(y)0 1589 y(distributions.)41 +b(T)-8 b(o)29 b(tak)m(e)h(in)m(to)f(accoun)m(t)h(the)f(energy)h +(`already')f(used)i(in)d(harder)i(scatterings,)g(a)f(con-)0 +1698 y(serv)-5 b(ativ)m(e)32 b(approac)m(h)f(is)g(to)g(ev)-5 +b(aluate)30 b(the)i(parton)f(distributions,)f(not)h(at)g +Fj(x)2837 1713 y Fh(i)2896 1698 y Fw(for)g(the)h Fj(i)p +Fw(:th)f(scattered)0 1806 y(parton)h(from)g(hadron,)g(but)h(at)f(the)h +(rescaled)g(v)-5 b(alue)1581 2044 y Fj(x)1636 2002 y +Fk(0)1636 2068 y Fh(i)1692 2044 y Fw(=)1926 1976 y Fj(x)1981 +1991 y Fh(i)p 1806 2020 323 4 v 1806 2048 a Fg(P)1894 +2074 y Fh(i)p Fk(\000)p Fl(1)1894 2139 y Fh(j)t Fl(=1)2037 +2114 y Fj(x)2092 2129 y Fh(j)2171 2044 y Fj(:)1359 b +Fw(\(164\))0 2329 y(This)33 b(is)g(our)g(standard)h(pro)s(cedure)h(in)d +(the)i(program;)e(w)m(e)j(ha)m(v)m(e)f(tried)f(a)g(few)h(alternativ)m +(es)f(without)0 2437 y(\014nding)f(an)m(y)h(signi\014can)m(tly)f +(di\013eren)m(t)h(b)s(eha)m(viour)f(in)g(the)h(\014nal)f(ph)m(ysics.) +146 2546 y(In)38 b(a)e(fraction)g(exp)q(\()p Fn(\000)p +Fj(F)14 b Fw(\()p Fj(x)1157 2561 y Fk(?)p Fl(min)1334 +2546 y Fw(\)\))37 b(of)g(the)g(ev)m(en)m(ts)i(studied,)g(there)f(will)d +(b)s(e)i(no)g(hard)g(scattering)0 2654 y(ab)s(o)m(v)m(e)46 +b Fj(x)344 2669 y Fk(?)p Fl(min)566 2654 y Fw(when)h(the)e(iterativ)m +(e)g(pro)s(cedure)h(in)e(eq.)i(\(163\))f(is)f(applied.)81 +b(It)45 b(is)g(therefore)g(also)0 2762 y(necessary)40 +b(to)e(ha)m(v)m(e)i(a)e(mo)s(del)e(for)i(what)g(happ)s(ens)h(in)f(ev)m +(en)m(ts)i(with)e(no)g(\(semi\)hard)f(in)m(teractions.)0 +2871 y(The)46 b(simplest)d(p)s(ossible)h(w)m(a)m(y)i(to)f(pro)s(duce)g +(an)g(ev)m(en)m(t)h(is)e(to)h(ha)m(v)m(e)h(an)e(exc)m(hange)j(of)d(a)g +(v)m(ery)j(soft)0 2979 y(gluon)41 b(b)s(et)m(w)m(een)k(the)e(t)m(w)m(o) +g(colliding)c(hadrons.)73 b(Without)42 b(\(initially\))c(a\013ecting)k +(the)h(momen)m(tum)0 3087 y(distribution)i(of)i(partons,)k(the)c +(`hadrons')h(b)s(ecome)f(colour)f(o)s(ctet)h(ob)5 b(jects)48 +b(rather)f(than)g(colour)0 3196 y(singlet)29 b(ones.)44 +b(If)31 b(only)f(v)-5 b(alence)31 b(quarks)g(are)g(considered,)h(the)f +(colour)f(o)s(ctet)g(state)i(of)e(a)g(bary)m(on)h(can)0 +3304 y(b)s(e)e(decomp)s(osed)g(in)m(to)f(a)g(colour)g(triplet)f(quark)i +(and)g(an)f(an)m(titriplet)e(diquark.)43 b(In)28 b(a)h(bary)m(on-bary)m +(on)0 3412 y(collision,)g(one)i(w)m(ould)g(then)h(obtain)e(a)h(t)m(w)m +(o-string)g(picture,)h(with)f(eac)m(h)h(string)f(stretc)m(hed)i(from)d +(the)0 3521 y(quark)e(of)e(one)h(bary)m(on)g(to)g(the)g(diquark)g(of)f +(the)i(other.)41 b(A)27 b(bary)m(on-an)m(tibary)m(on)g(collision)d(w)m +(ould)j(giv)m(e)0 3629 y(one)32 b(string)f(b)s(et)m(w)m(een)j(a)e +(quark)g(and)g(an)g(an)m(tiquark)g(and)f(another)h(one)g(b)s(et)m(w)m +(een)i(a)e(diquark)g(and)g(an)0 3737 y(an)m(tidiquark.)146 +3846 y(In)f(a)g(hard)f(in)m(teraction,)g(the)h(n)m(um)m(b)s(er)g(of)f +(p)s(ossible)g(string)g(dra)m(wings)h(are)f(man)m(y)h(more,)f(and)h +(the)0 3954 y(o)m(v)m(erall)j(situation)f(can)j(b)s(ecome)f(quite)g +(complex)f(when)i(sev)m(eral)g(hard)f(scatterings)h(are)f(presen)m(t)h +(in)0 4062 y(an)25 b(ev)m(en)m(t.)43 b(Sp)s(eci\014cally)-8 +b(,)26 b(the)g(string)e(dra)m(wing)h(no)m(w)h(dep)s(ends)h(on)f(the)g +(relativ)m(e)e(colour)h(arrangemen)m(t,)0 4171 y(in)37 +b(eac)m(h)i(hadron)e(individually)-8 b(,)36 b(of)i(the)g(partons)g +(that)f(are)h(ab)s(out)f(to)h(scatter.)59 b(This)38 b(is)f(a)h(sub)5 +b(ject)0 4279 y(ab)s(out)25 b(whic)m(h)h(nothing)e(is)h(kno)m(wn.)42 +b(T)-8 b(o)25 b(mak)m(e)h(matters)e(w)m(orse,)29 b(the)c(standard)h +(string)e(fragmen)m(tation)0 4387 y(description)h(w)m(ould)g(ha)m(v)m +(e)h(to)f(b)s(e)g(extended,)k(to)c(handle)g(ev)m(en)m(ts)i(where)g(t)m +(w)m(o)f(or)e(more)h(v)-5 b(alence)25 b(quarks)0 4496 +y(ha)m(v)m(e)36 b(b)s(een)g(kic)m(k)m(ed)g(out)f(of)g(an)g(incoming)d +(hadron)j(b)m(y)h(separate)g(in)m(teractions.)50 b(In)35 +b(particular,)f(the)0 4604 y(p)s(osition)23 b(of)i(the)g(bary)m(on)h(n) +m(um)m(b)s(er)f(w)m(ould)g(b)s(e)g(unclear.)41 b(W)-8 +b(e)26 b(therefore)f(here)h(assume)g(that,)g(follo)m(wing)0 +4712 y(the)33 b(hardest)g(in)m(teraction,)f(all)e(subsequen)m(t)36 +b(in)m(teractions)c(b)s(elong)g(to)g(one)h(of)f(three)h(classes.)145 +4826 y Fn(\017)49 b Fw(Scatterings)32 b(of)f(the)h(gg)d +Fn(!)e Fw(gg)33 b(t)m(yp)s(e,)g(with)e(the)i(t)m(w)m(o)f(gluons)f(in)h +(a)f(colour-singlet)f(state,)i(suc)m(h)244 4934 y(that)23 +b(a)h(double)f(string)g(is)g(stretc)m(hed)j(directly)d(b)s(et)m(w)m +(een)i(the)f(t)m(w)m(o)h(outgoing)d(gluons,)j(decoupled)244 +5042 y(from)31 b(the)i(rest)g(of)g(the)g(system.)145 +5160 y Fn(\017)49 b Fw(Scatterings)38 b(gg)f Fn(!)f Fw(gg)q(,)j(but)f +(colour)f(correlations)f(assumed)i(to)g(b)s(e)g(suc)m(h)h(that)e(eac)m +(h)i(of)e(the)244 5268 y(gluons)27 b(is)h(connected)h(to)f(one)g(of)f +(the)i(strings)e(`already')h(presen)m(t.)43 b(Among)27 +b(the)i(di\013eren)m(t)f(p)s(os-)244 5377 y(sibilities)h(of)j +(connecting)g(the)h(colours)f(of)g(the)h(gluons,)f(the)g(one)h(whic)m +(h)g(minimizes)c(the)k(total)244 5485 y(increase)k(in)f(string)g +(length)g(is)g(c)m(hosen.)57 b(This)37 b(is)f(in)g(con)m(trast)h(to)f +(the)h(previous)g(alternativ)m(e,)244 5593 y(whic)m(h)c(roughly)f +(corresp)s(onds)i(to)e(a)g(maximization)d(of)j(the)h(extra)g(string)f +(length.)1817 5953 y(219)p eop +%%Page: 220 226 +220 225 bop 145 -18 a Fn(\017)49 b Fw(Scatterings)33 +b(gg)c Fn(!)e Fw(q)p 1054 -71 52 4 v(q)q(,)33 b(with)f(the)i(\014nal)e +(pair)f(again)h(in)g(a)g(colour-singlet)f(state,)i(suc)m(h)h(that)f(a) +244 90 y(single)e(string)h(is)g(stretc)m(hed)j(b)s(et)m(w)m(een)g(the)e +(outgoing)e(q)i(and)p 2530 37 V 32 w(q)q(.)0 203 y(By)j(default,)f(the) +h(three)g(p)s(ossibilities)c(are)k(assumed)g(equally)e(probable.)51 +b(Note)36 b(that)f(the)h(total)d(jet)0 311 y(rate)i(is)f(main)m(tained) +f(at)i(its)f(nominal)e(v)-5 b(alue,)35 b(i.e.)50 b(scatterings)35 +b(suc)m(h)h(as)f(qg)e Fn(!)f Fw(qg)k(are)f(included)f(in)0 +420 y(the)k(cross)h(section,)g(but)f(are)f(replaced)h(b)m(y)h(a)e +(mixture)g(of)g(gg)i(and)e(q)p 2614 367 V(q)i(ev)m(en)m(ts)h(for)d +(string)g(dra)m(wing)0 528 y(issues.)67 b(Only)40 b(the)g(hardest)h(in) +m(teraction)e(is)g(guaran)m(teed)i(to)f(giv)m(e)g(strings)g(coupled)g +(to)g(the)g(b)s(eam)0 636 y(remnan)m(ts.)65 b(One)40 +b(should)g(not)f(tak)m(e)i(this)e(approac)m(h)h(to)f(colour)g(\015o)m +(w)h(to)s(o)f(seriously)h(|)f(clearly)f(it)0 745 y(is)e(a)f +(simpli\014cation)e(|)i(but)h(the)h(o)m(v)m(erall)e(picture)h(do)s(es)g +(not)g(tend)h(to)f(b)s(e)g(v)m(ery)h(dep)s(enden)m(t)h(on)e(the)0 +853 y(particular)31 b(c)m(hoice)i(y)m(ou)g(mak)m(e.)146 +961 y(Since)25 b(a)g(gg)k Fn(!)e Fw(gg)f(or)f(q)p 1008 +908 V(q)g(scattering)g(need)h(not)f(remain)f(that)g(if)g(initial-)d +(and)k(\014nal-state)f(sho)m(w)m(ers)0 1070 y(w)m(ere)40 +b(to)e(b)s(e)g(included,)i(radiation)c(is)i(only)f(included)h(for)g +(the)h(hardest)g(in)m(teraction.)60 b(In)38 b(practice,)0 +1178 y(there)k(is)f(no)g(problem:)60 b(except)43 b(for)e(the)g(hardest) +h(in)m(teraction,)h(whic)m(h)f(can)f(b)s(e)h(hard)f(b)s(ecause)i(of)0 +1286 y(exp)s(erimen)m(tal)35 b(trigger)h(conditions,)g(it)f(is)h(unlik) +m(ely)g(for)g(a)g(parton)g(scattering)g(to)g(b)s(e)h(so)f(hard)h(that)0 +1395 y(radiation)30 b(pla)m(ys)j(a)f(signi\014can)m(t)g(r^)-49 +b(ole.)146 1503 y(In)29 b(ev)m(en)m(ts)h(with)e(m)m(ultiple)d(in)m +(teractions,)k(the)f(b)s(eam)g(remnan)m(t)g(treatmen)m(t)g(is)f(sligh)m +(tly)g(mo)s(di\014ed.)0 1611 y(First)39 b(the)i(hard)f(scattering)g(is) +g(generated,)j(with)d(its)g(asso)s(ciated)g(initial-)c(and)41 +b(\014nal-state)e(radia-)0 1720 y(tion,)d(and)f(next)i(an)m(y)f +(additional)d(m)m(ultiple)g(in)m(teractions.)53 b(Only)35 +b(thereafter)h(are)g(b)s(eam)f(remnan)m(ts)0 1828 y(attac)m(hed)26 +b(to)e(the)h(initator)e(partons)i(of)f(the)i(hardest)f(scattering,)h +(using)f(the)g(same)g(mac)m(hinery)g(as)g(b)s(e-)0 1936 +y(fore,)30 b(except)g(that)f(the)g(energy)h(and)f(momen)m(tum)e +(already)i(tak)m(en)h(a)m(w)m(a)m(y)g(from)e(the)h(b)s(eam)f(remnan)m +(ts)0 2045 y(also)k(include)g(that)g(of)g(the)h(subsequen)m(t)j(in)m +(teractions.)0 2293 y Fo(11.2.3)113 b(A)37 b(mo)s(del)f(with)g(v)-6 +b(arying)37 b(impact)f(parameters)0 2465 y Fw(Up)41 b(to)g(this)f(p)s +(oin)m(t,)i(it)e(has)h(b)s(een)h(assumed)f(that)g(the)g(initial)c +(state)k(is)g(the)g(same)f(for)h(all)d(hadron)0 2574 +y(collisions,)29 b(whereas)34 b(in)d(fact)h(eac)m(h)g(collision)d(also) +i(is)g(c)m(haracterized)i(b)m(y)g(a)e(v)-5 b(arying)32 +b(impact)e(param-)0 2682 y(eter)36 b Fj(b)p Fw(.)55 b(Within)34 +b(the)j(classical)d(framew)m(ork)i(of)f(this)h(pap)s(er,)h +Fj(b)f Fw(is)g(to)f(b)s(e)i(though)m(t)f(of)f(as)h(a)g(distance)0 +2790 y(of)42 b(closest)g(approac)m(h,)j(not)d(as)h(the)f(F)-8 +b(ourier)41 b(transform)h(of)f(the)i(momen)m(tum)e(transfer.)73 +b(A)42 b(small)0 2899 y Fj(b)37 b Fw(v)-5 b(alue)37 b(corresp)s(onds)h +(to)f(a)f(large)g(o)m(v)m(erlap)h(b)s(et)m(w)m(een)i(the)e(t)m(w)m(o)h +(colliding)c(hadrons,)k(and)f(hence)i(an)0 3007 y(enhanced)32 +b(probabilit)m(y)d(for)h(m)m(ultiple)e(in)m(teractions.)42 +b(A)31 b(large)e Fj(b)p Fw(,)j(on)e(the)h(other)g(hand,)g(corresp)s +(onds)0 3115 y(to)36 b(a)g(grazing)g(collision,)e(with)j(a)f(large)f +(probabilit)m(y)g(that)h(no)h(parton{parton)e(in)m(teractions)h(at)h +(all)0 3224 y(tak)m(e)c(place.)146 3332 y(In)28 b(order)g(to)g(quan)m +(tify)f(the)i(concept)f(of)g(hadronic)f(matter)g(o)m(v)m(erlap,)i(one)f +(ma)m(y)f(assume)h(a)g(spheri-)0 3440 y(cally)22 b(symmetric)g +(distribution)f(of)h(matter)h(inside)f(the)h(hadron,)i +Fj(\032)p Fw(\()p Fo(x)p Fw(\))17 b(d)2651 3404 y Fl(3)2691 +3440 y Fj(x)28 b Fw(=)f Fj(\032)p Fw(\()p Fj(r)s Fw(\))17 +b(d)3121 3404 y Fl(3)3161 3440 y Fj(x)p Fw(.)40 b(F)-8 +b(or)22 b(simplic-)0 3549 y(it)m(y)-8 b(,)39 b(the)f(same)f(spatial)f +(distribution)g(is)h(tak)m(en)i(to)e(apply)g(for)g(all)f(parton)h(sp)s +(ecies)i(and)f(momen)m(ta.)0 3657 y(Sev)m(eral)k(di\013eren)m(t)g +(matter)f(distributions)f(ha)m(v)m(e)k(b)s(een)e(tried,)i(and)e(are)f +(a)m(v)-5 b(ailable.)69 b(W)-8 b(e)42 b(will)e(here)0 +3765 y(concen)m(trate)34 b(on)e(the)h(most)f(extreme)i(one,)f(a)f +(double)g(Gaussian)937 4042 y Fj(\032)p Fw(\()p Fj(r)s +Fw(\))c Fn(/)1253 3975 y Fw(1)22 b Fn(\000)g Fj(\014)p +1253 4019 232 4 v 1323 4110 a(a)1374 4076 y Fl(3)1374 +4132 y(1)1527 4042 y Fw(exp)1693 3896 y Fg(\()1760 4042 +y Fn(\000)1849 3975 y Fj(r)1896 3938 y Fl(2)p 1847 4019 +91 4 v 1847 4110 a Fj(a)1898 4076 y Fl(2)1898 4132 y(1)1948 +3896 y Fg(\))2037 4042 y Fw(+)2160 3975 y Fj(\014)p 2145 +4019 V 2145 4110 a(a)2196 4076 y Fl(3)2196 4132 y(2)2279 +4042 y Fw(exp)2444 3896 y Fg(\()2511 4042 y Fn(\000)2600 +3975 y Fj(r)2647 3938 y Fl(2)p 2598 4019 V 2598 4110 +a Fj(a)2649 4076 y Fl(2)2649 4132 y(2)2699 3896 y Fg(\))2815 +4042 y Fj(:)715 b Fw(\(165\))0 4319 y(This)30 b(corresp)s(onds)i(to)e +(a)g(distribution)e(with)i(a)g(small)e(core)i(region,)g(of)g(radius)g +Fj(a)3002 4334 y Fl(2)3072 4319 y Fw(and)g(con)m(taining)f(a)0 +4427 y(fraction)h Fj(\014)38 b Fw(of)31 b(the)h(total)e(hadronic)h +(matter,)g(em)m(b)s(edded)h(in)f(a)h(larger)e(hadron)h(of)h(radius)f +Fj(a)3418 4442 y Fl(1)3457 4427 y Fw(.)44 b(While)0 4535 +y(it)37 b(is)h(mathematically)d(con)m(v)m(enien)m(t)40 +b(to)f(ha)m(v)m(e)g(the)g(origin)e(of)h(the)g(t)m(w)m(o)i(Gaussians)e +(coinciding,)g(the)0 4644 y(ph)m(ysics)29 b(could)f(w)m(ell)f(corresp)s +(ond)i(to)e(ha)m(ving)h(three)h(disjoin)m(t)d(core)i(regions,)h +(re\015ecting)f(the)g(presence)0 4752 y(of)34 b(three)i(v)-5 +b(alence)35 b(quarks,)h(together)f(carrying)g(the)g(fraction)e +Fj(\014)41 b Fw(of)34 b(the)h(proton)g(momen)m(tum.)48 +b(One)0 4861 y(could)26 b(alternativ)m(ely)e(imagine)g(a)i(hard)g +(hadronic)f(core)i(surrounded)g(b)m(y)g(a)f(pion)f(cloud.)41 +b(Suc)m(h)28 b(details)0 4969 y(w)m(ould)j(a\013ect)g(e.g.)43 +b(the)31 b(predictions)g(for)f(the)h Fj(t)g Fw(distribution)e(in)h +(elastic)g(scattering,)h(but)g(are)g(not)g(of)0 5077 +y(an)m(y)e(consequence)h(for)e(the)g(curren)m(t)h(topics.)42 +b(T)-8 b(o)28 b(b)s(e)g(sp)s(eci\014c,)h(the)g(v)-5 b(alues)27 +b Fj(\014)34 b Fw(=)27 b(0)p Fj(:)p Fw(5)h(and)g Fj(a)3345 +5092 y Fl(2)3384 5077 y Fj(=a)3484 5092 y Fl(1)3551 5077 +y Fw(=)g(0)p Fj(:)p Fw(2)0 5186 y(ha)m(v)m(e)44 b(b)s(een)f(pic)m(k)m +(ed)g(as)g(default)f(v)-5 b(alues.)72 b(It)43 b(should)f(b)s(e)h(noted) +f(that)h(the)f(o)m(v)m(erall)g(distance)g(scale)0 5294 +y Fj(a)51 5309 y Fl(1)132 5294 y Fw(nev)m(er)h(en)m(ters)g(in)e(the)h +(subsequen)m(t)i(calculations,)e(since)g(the)g(inelastic,)g +(non-di\013ractiv)m(e)f(cross)0 5402 y(section)33 b Fj(\033)381 +5417 y Fl(nd)464 5402 y Fw(\()p Fj(s)p Fw(\))f(is)g(tak)m(en)i(from)d +(literature)g(rather)i(than)f(calculated)g(from)f(the)i +Fj(\032)p Fw(\()p Fj(r)s Fw(\).)146 5511 y(Compared)f(to)f(other)h +(shap)s(es,)h(lik)m(e)e(a)g(simple)f(Gaussian,)i(the)g(double)f +(Gaussian)g(tends)i(to)f(giv)m(e)0 5619 y(larger)23 b(\015uctuations,)j +(e.g.)41 b(in)24 b(the)h(m)m(ultiplicit)m(y)20 b(distribution)j(of)h +(minim)m(um)d(bias)j(ev)m(en)m(ts:)41 b(a)25 b(collision)1817 +5953 y(220)p eop +%%Page: 221 227 +221 226 bop 0 -18 a Fw(in)23 b(whic)m(h)h(the)g(t)m(w)m(o)h(cores)f(o)m +(v)m(erlap)g(tends)h(to)f(ha)m(v)m(e)h(a)e(strongly)h(increased)g +(activit)m(y)-8 b(,)25 b(while)e(ones)h(where)0 90 y(they)33 +b(do)f(not)f(are)h(rather)g(less)g(activ)m(e.)44 b(One)32 +b(also)f(has)h(a)g(biasing)e(e\013ect:)44 b(hard)32 b(pro)s(cesses)i +(are)e(more)0 198 y(lik)m(ely)46 b(when)i(the)g(cores)g(o)m(v)m(erlap,) +j(th)m(us)d(hard)f(scatterings)g(are)g(asso)s(ciated)g(with)g(an)g +(enhanced)0 307 y(m)m(ultiple)40 b(in)m(teraction)h(rate.)74 +b(This)42 b(pro)m(vides)i(one)e(p)s(ossible)g(explanation)g(for)g(the)g +(exp)s(erimen)m(tal)0 415 y(`p)s(edestal)33 b(e\013ect'.)146 +523 y(F)-8 b(or)28 b(a)g(collision)e(with)i(impact)f(parameter)h +Fj(b)p Fw(,)i(the)f(time-in)m(tegrated)d(o)m(v)m(erlap)j +Fn(O)s Fw(\()p Fj(b)p Fw(\))f(b)s(et)m(w)m(een)j(the)0 +632 y(matter)h(distributions)f(of)h(the)h(colliding)c(hadrons)k(is)f +(giv)m(en)h(b)m(y)371 862 y Fn(O)s Fw(\()p Fj(b)p Fw(\))28 +b Fn(/)703 745 y Fg(Z)803 862 y Fw(d)p Fj(t)909 745 y +Fg(Z)1008 862 y Fw(d)1062 821 y Fl(3)1102 862 y Fj(x)17 +b(\032)p Fw(\()p Fj(x;)g(y)t(;)g(z)t Fw(\))g Fj(\032)p +Fw(\()p Fj(x)22 b Fw(+)g Fj(b;)17 b(y)t(;)g(z)26 b Fw(+)c +Fj(t)p Fw(\))371 1112 y Fn(/)486 1045 y Fw(\(1)g Fn(\000)g +Fj(\014)6 b Fw(\))793 1009 y Fl(2)p 486 1089 347 4 v +589 1181 a Fw(2)p Fj(a)689 1146 y Fl(2)689 1202 y(1)859 +1112 y Fw(exp)1024 966 y Fg(\()1091 1112 y Fn(\000)1208 +1045 y Fj(b)1249 1009 y Fl(2)p 1178 1089 140 4 v 1178 +1181 a Fw(2)p Fj(a)1278 1146 y Fl(2)1278 1202 y(1)1328 +966 y Fg(\))1417 1112 y Fw(+)1525 1045 y(2)p Fj(\014)g +Fw(\(1)21 b Fn(\000)i Fj(\014)6 b Fw(\))p 1525 1089 417 +4 v 1583 1181 a Fj(a)1634 1146 y Fl(2)1634 1202 y(1)1695 +1181 y Fw(+)22 b Fj(a)1844 1146 y Fl(2)1844 1202 y(2)1968 +1112 y Fw(exp)2134 966 y Fg(\()2201 1112 y Fn(\000)2398 +1045 y Fj(b)2439 1009 y Fl(2)p 2288 1089 302 4 v 2288 +1181 a Fj(a)2339 1146 y Fl(2)2339 1202 y(1)2401 1181 +y Fw(+)g Fj(a)2550 1146 y Fl(2)2550 1202 y(2)2599 966 +y Fg(\))2688 1112 y Fw(+)2816 1045 y Fj(\014)2877 1009 +y Fl(2)p 2796 1089 140 4 v 2796 1181 a Fw(2)p Fj(a)2896 +1146 y Fl(2)2896 1202 y(2)2962 1112 y Fw(exp)3128 966 +y Fg(\()3195 1112 y Fn(\000)3312 1045 y Fj(b)3353 1009 +y Fl(2)p 3282 1089 V 3282 1181 a Fw(2)p Fj(a)3382 1146 +y Fl(2)3382 1202 y(2)3432 966 y Fg(\))3548 1112 y Fj(:)-18 +b Fw(\(166\))0 1381 y(The)30 b(necessit)m(y)g(to)f(use)g(b)s(o)s(osted) +g Fj(\032)p Fw(\()p Fo(x)p Fw(\))g(distributions)f(has)h(b)s(een)g +(circum)m(v)m(en)m(ted)i(b)m(y)e(a)g(suitable)e(scale)0 +1489 y(transformation)j(of)j(the)g Fj(z)k Fw(and)32 b +Fj(t)h Fw(co)s(ordinates.)146 1597 y(The)23 b(o)m(v)m(erlap)f +Fn(O)s Fw(\()p Fj(b)p Fw(\))h(is)e(ob)m(viously)h(strongly)g(related)g +(to)f(the)i(eik)m(onal)e(\012\()p Fj(b)p Fw(\))h(of)g(optical)e(mo)s +(dels.)39 b(W)-8 b(e)0 1706 y(ha)m(v)m(e)23 b(k)m(ept)h(a)d(separate)i +(notation,)g(since)f(the)h(ph)m(ysics)g(con)m(text)h(of)d(the)i(t)m(w)m +(o)f(is)g(sligh)m(tly)e(di\013eren)m(t:)39 b(\012\()p +Fj(b)p Fw(\))0 1814 y(is)d(based)i(on)e(the)h(quan)m(tum)g(mec)m +(hanical)e(scattering)h(of)g(w)m(a)m(v)m(es)j(in)d(a)g(p)s(oten)m +(tial,)g(and)h(is)f(normally)0 1922 y(used)i(to)f(describ)s(e)h(the)g +(elastic)e(scattering)h(of)g(a)g(hadron-as-a-whole,)g(while)g +Fn(O)s Fw(\()p Fj(b)p Fw(\))g(comes)h(from)e(a)0 2031 +y(purely)c(classical)f(picture)h(of)f(p)s(oin)m(t-lik)m(e)f(partons)i +(distributed)g(inside)f(the)i(t)m(w)m(o)f(colliding)d(hadrons.)0 +2139 y(F)-8 b(urthermore,)35 b(the)g(normalization)c(and)k(energy)h +(dep)s(endence)h(is)d(di\013eren)m(tly)h(realized)f(in)g(the)h(t)m(w)m +(o)0 2247 y(formalisms.)146 2356 y(The)24 b(larger)e(the)h(o)m(v)m +(erlap)g Fn(O)s Fw(\()p Fj(b)p Fw(\))h(is,)g(the)g(more)e(lik)m(ely)g +(it)g(is)g(to)h(ha)m(v)m(e)h(in)m(teractions)e(b)s(et)m(w)m(een)j +(partons)0 2464 y(in)32 b(the)h(t)m(w)m(o)g(colliding)c(hadrons.)44 +b(In)33 b(fact,)g(there)g(should)f(b)s(e)h(a)f(linear)f(relationship) +1541 2658 y Fn(h)5 b Fw(~)-54 b Fj(n)p Fw(\()p Fj(b)p +Fw(\))p Fn(i)28 b Fw(=)f Fj(k)s Fn(O)s Fw(\()p Fj(b)p +Fw(\))33 b Fj(;)1319 b Fw(\(167\))0 2852 y(where)53 b(~)-54 +b Fj(n)52 b Fw(=)g(0)p Fj(;)17 b Fw(1)p Fj(;)g Fw(2)p +Fj(;)g(:)g(:)g(:)45 b Fw(coun)m(ts)j(the)g(n)m(um)m(b)s(er)f(of)f(in)m +(teractions)h(when)h(t)m(w)m(o)f(hadrons)h(pass)g(eac)m(h)0 +2961 y(other)37 b(with)g(an)g(impact)e(parameter)i Fj(b)p +Fw(.)57 b(The)38 b(constan)m(t)g(of)f(prop)s(ortionalit)m(y)-8 +b(,)35 b Fj(k)s Fw(,)j(is)f(related)f(to)h(the)0 3069 +y(parton{parton)32 b(cross)h(section)g(and)g(hence)h(increases)f(with)g +(c.m.)43 b(energy)-8 b(.)146 3177 y(F)g(or)40 b(eac)m(h)i(giv)m(en)f +(impact)e(parameter,)k(the)e(n)m(um)m(b)s(er)g(of)g(in)m(teractions)f +(is)g(assumed)i(to)e(b)s(e)h(dis-)0 3286 y(tributed)29 +b(according)f(to)g(a)h(P)m(oissonian.)42 b(If)29 b(the)g(matter)f +(distribution)f(has)i(a)g(tail)d(to)j(in\014nit)m(y)f(\(as)h(the)0 +3394 y(double)35 b(Gaussian)g(do)s(es\),)i(ev)m(en)m(ts)h(ma)m(y)d(b)s +(e)h(obtained)e(with)i(arbitrarily)c(large)j Fj(b)g Fw(v)-5 +b(alues.)53 b(In)35 b(order)0 3503 y(to)41 b(obtain)f(\014nite)h(total) +e(cross)j(sections,)i(it)c(is)h(necessary)i(to)e(assume)h(that)e(eac)m +(h)i(ev)m(en)m(t)h(con)m(tains)0 3611 y(at)32 b(least)g(one)h +(semi-hard)e(in)m(teraction.)43 b(The)33 b(probabilit)m(y)e(that)h(t)m +(w)m(o)h(hadrons,)g(passing)g(eac)m(h)g(other)0 3719 +y(with)f(an)h(impact)e(parameter)h Fj(b)p Fw(,)h(will)d(actually)i +(undergo)g(a)h(collision)c(is)j(then)i(giv)m(en)e(b)m(y)865 +3913 y Fn(P)934 3928 y Fl(in)n(t)1023 3913 y Fw(\()p +Fj(b)p Fw(\))c(=)f(1)22 b Fn(\000)h Fw(exp)q(\()p Fn(\000h)5 +b Fw(~)-54 b Fj(n)p Fw(\()p Fj(b)p Fw(\))p Fn(i)p Fw(\))28 +b(=)f(1)22 b Fn(\000)h Fw(exp)q(\()p Fn(\000)p Fj(k)s +Fn(O)s Fw(\()p Fj(b)p Fw(\)\))33 b Fj(;)643 b Fw(\(168\))0 +4108 y(according)24 b(to)g(P)m(oissonian)g(statistics.)40 +b(The)26 b(a)m(v)m(erage)f(n)m(um)m(b)s(er)g(of)f(in)m(teractions)g(p)s +(er)g(ev)m(en)m(t)j(at)d(impact)0 4216 y(parameter)32 +b Fj(b)h Fw(is)f(no)m(w)1082 4386 y Fn(h)p Fj(n)p Fw(\()p +Fj(b)p Fw(\))p Fn(i)27 b Fw(=)1487 4318 y Fn(h)5 b Fw(~)-54 +b Fj(n)p Fw(\()p Fj(b)p Fw(\))p Fn(i)p 1476 4362 276 +4 v 1476 4454 a(P)1545 4469 y Fl(in)n(t)1634 4454 y Fw(\()p +Fj(b)p Fw(\))1788 4386 y(=)2138 4318 y Fj(k)s Fn(O)s +Fw(\()p Fj(b)p Fw(\))p 1902 4362 727 4 v 1902 4454 a(1)22 +b Fn(\000)h Fw(exp)q(\()p Fn(\000)p Fj(k)s Fn(O)s Fw(\()p +Fj(b)p Fw(\)\))2671 4386 y Fj(;)859 b Fw(\(169\))0 4604 +y(where)36 b(the)f(denominator)d(comes)j(from)e(the)i(remo)m(v)-5 +b(al)33 b(of)h(hadron)h(pairs)f(whic)m(h)g(pass)i(without)e(col-)0 +4713 y(liding,)c(i.e.)43 b(with)37 b(~)-54 b Fj(n)28 +b Fw(=)g(0.)146 4821 y(The)33 b(relationship)d Fn(h)p +Fj(n)p Fn(i)e Fw(=)f Fj(\033)1199 4836 y Fl(hard)1345 +4821 y Fj(=\033)1449 4836 y Fl(nd)1564 4821 y Fw(w)m(as)33 +b(earlier)d(in)m(tro)s(duced)j(for)e(the)i(a)m(v)m(erage)g(n)m(um)m(b)s +(er)f(of)g(in-)0 4929 y(teractions)27 b(p)s(er)h(non-di\013ractiv)m(e,) +f(inelastic)f(ev)m(en)m(t.)43 b(When)28 b(a)m(v)m(eraged)h(o)m(v)m(er)f +(all)e(impact)f(parameters,)0 5038 y(this)h(relation)f(m)m(ust)i(still) +d(hold)i(true:)41 b(the)27 b(in)m(tro)s(duction)f(of)g(v)-5 +b(ariable)25 b(impact)g(parameters)i(ma)m(y)g(giv)m(e)0 +5146 y(more)33 b(in)m(teractions)g(in)g(some)h(ev)m(en)m(ts)i(and)e +(less)g(in)f(others,)i(but)f(it)f(do)s(es)h(not)g(a\013ect)g(either)f +Fj(\033)3513 5161 y Fl(hard)3693 5146 y Fw(or)0 5255 +y Fj(\033)55 5270 y Fl(nd)138 5255 y Fw(.)63 b(F)-8 b(or)38 +b(the)i(former)e(this)h(is)f(b)s(ecause)j(the)e(p)s(erturbativ)m(e)h +(QCD)f(calculations)e(only)h(dep)s(end)j(on)0 5363 y(the)29 +b(total)d(parton)i(\015ux,)i(for)e(the)g(latter)f(b)m(y)j +(construction.)42 b(In)m(tegrating)27 b(eq.)i(\(169\))f(o)m(v)m(er)h +Fj(b)p Fw(,)g(one)g(then)0 5471 y(obtains)568 5626 y +Fn(h)p Fj(n)p Fn(i)e Fw(=)845 5487 y Fg(R)900 5558 y +Fn(h)p Fj(n)p Fw(\()p Fj(b)p Fw(\))p Fn(i)17 b(P)1239 +5573 y Fl(in)n(t)1327 5558 y Fw(\()p Fj(b)p Fw(\))g(d)1515 +5522 y Fl(2)1555 5558 y Fj(b)p 845 5603 752 4 v 971 5623 +a Fg(R)1043 5694 y Fn(P)1112 5709 y Fl(in)n(t)1201 5694 +y Fw(\()p Fj(b)p Fw(\))g(d)1389 5665 y Fl(2)1428 5694 +y Fj(b)1634 5626 y Fw(=)2030 5487 y Fg(R)2102 5558 y +Fj(k)s Fn(O)s Fw(\()p Fj(b)p Fw(\))g(d)2426 5522 y Fl(2)2466 +5558 y Fj(b)p 1748 5603 1043 4 v 1748 5623 a Fg(R)1820 +5694 y Fw(\(1)k Fn(\000)i Fw(exp)q(\()p Fn(\000)p Fj(k)s +Fn(O)s Fw(\()p Fj(b)p Fw(\)\)\))34 b(d)2709 5665 y Fl(2)2749 +5694 y Fj(b)2828 5626 y Fw(=)2941 5558 y Fj(\033)2996 +5573 y Fl(hard)p 2941 5603 201 4 v 2973 5694 a Fj(\033)3028 +5709 y Fl(nd)3185 5626 y Fj(:)345 b Fw(\(170\))1817 5953 +y(221)p eop +%%Page: 222 228 +222 227 bop 0 -18 a Fw(F)-8 b(or)35 b Fn(O)s Fw(\()p +Fj(b)p Fw(\),)i Fj(\033)496 -3 y Fl(hard)677 -18 y Fw(and)f +Fj(\033)925 -3 y Fl(nd)1044 -18 y Fw(giv)m(en,)g(with)g +Fj(\033)1610 -3 y Fl(hard)1755 -18 y Fj(=\033)1859 -3 +y Fl(nd)1975 -18 y Fj(>)d Fw(1,)j Fj(k)j Fw(can)d(th)m(us)h(alw)m(a)m +(ys)f(b)s(e)g(found)g(\(n)m(umeri-)0 90 y(cally\))31 +b(b)m(y)j(solving)d(the)i(last)f(equalit)m(y)-8 b(.)146 +198 y(The)40 b(absolute)f(normalization)c(of)j Fn(O)s +Fw(\()p Fj(b)p Fw(\))h(is)f(not)h(in)m(teresting)f(in)g(itself,)i(but)f +(only)f(the)h(relativ)m(e)0 307 y(v)-5 b(ariation)42 +b(with)i(impact)f(parameter.)79 b(It)45 b(is)f(therefore)h(useful)g(to) +f(in)m(tro)s(duce)g(an)h(`enhancemen)m(t)0 415 y(factor')j +Fj(e)p Fw(\()p Fj(b)p Fw(\),)54 b(whic)m(h)49 b(gauges)g(ho)m(w)h(the)f +(in)m(teraction)e(probabilit)m(y)g(for)h(a)h(passage)g(with)g(impact)0 +523 y(parameter)32 b Fj(b)h Fw(compares)g(with)f(the)h(a)m(v)m(erage,)h +(i.e.)1220 731 y Fn(h)5 b Fw(~)-54 b Fj(n)p Fw(\()p Fj(b)p +Fw(\))p Fn(i)28 b Fw(=)g Fj(k)s Fn(O)s Fw(\()p Fj(b)p +Fw(\))g(=)f Fj(e)p Fw(\()p Fj(b)p Fw(\))17 b Fn(h)p Fj(k)s +Fn(O)s Fw(\()p Fj(b)p Fw(\))p Fn(i)33 b Fj(:)998 b Fw(\(171\))0 +939 y(The)32 b(de\014nition)f(of)g(the)h(a)m(v)m(erage)g +Fn(h)p Fj(k)s Fn(O)s Fw(\()p Fj(b)p Fw(\))p Fn(i)g Fw(is)f(a)g(bit)g +(delicate,)g(since)h(the)g(a)m(v)m(erage)g(n)m(um)m(b)s(er)g(of)f(in)m +(ter-)0 1048 y(actions)37 b(p)s(er)h(ev)m(en)m(t)i(is)d(pushed)j(up)e +(b)m(y)h(the)f(requiremen)m(t)g(that)g(eac)m(h)g(ev)m(en)m(t)i(con)m +(tain)d(at)h(least)f(one)0 1156 y(in)m(teraction.)42 +b(Ho)m(w)m(ev)m(er,)35 b(an)e(exact)g(meaning)e(can)i(b)s(e)g(giv)m(en) +g([Sj\177)-49 b(o87a)o(].)146 1264 y(With)32 b(the)h(kno)m(wledge)h(of) +e Fj(e)p Fw(\()p Fj(b)p Fw(\),)h(the)g Fj(f)11 b Fw(\()p +Fj(x)1691 1279 y Fk(?)1750 1264 y Fw(\))33 b(function)f(of)g(the)h +(simple)e(mo)s(del)g(generalizes)h(to)1413 1472 y Fj(f)11 +b Fw(\()p Fj(x)1565 1487 y Fk(?)1624 1472 y Fj(;)17 b(b)p +Fw(\))28 b(=)g Fj(e)p Fw(\()p Fj(b)p Fw(\))17 b Fj(f)11 +b Fw(\()p Fj(x)2210 1487 y Fk(?)2269 1472 y Fw(\))32 +b Fj(:)1191 b Fw(\(172\))0 1680 y(The)33 b(na)-11 b(\177)-38 +b(\020v)m(e)31 b(generation)g(pro)s(cedure)i(is)e(th)m(us)i(to)e(pic)m +(k)h(a)g Fj(b)g Fw(according)f(to)g(the)i(phase)f(space)h(d)3477 +1644 y Fl(2)3517 1680 y Fj(b)p Fw(,)f(\014nd)0 1788 y(the)g(relev)-5 +b(an)m(t)32 b Fj(e)p Fw(\()p Fj(b)p Fw(\))g(and)g(plug)f(in)g(the)i +(resulting)d Fj(f)11 b Fw(\()p Fj(x)1967 1803 y Fk(?)2027 +1788 y Fj(;)17 b(b)p Fw(\))31 b(in)h(the)g(formalism)c(of)j(the)i +(simple)d(mo)s(del.)0 1897 y(If)37 b(at)f(least)h(one)g(hard)g(in)m +(teraction)f(is)g(generated,)j(the)e(ev)m(en)m(t)i(is)e(retained,)g +(else)h(a)e(new)i Fj(b)f Fw(is)g(to)f(b)s(e)0 2005 y(found.)68 +b(This)41 b(algorithm)c(w)m(ould)k(w)m(ork)h(\014ne)f(for)f(hadronic)g +(matter)g(distributions)f(whic)m(h)j(v)-5 b(anish)0 2114 +y(outside)29 b(some)g(radius,)g(so)h(that)e(the)i(d)1434 +2077 y Fl(2)1474 2114 y Fj(b)f Fw(phase)h(space)g(whic)m(h)g(needs)g +(to)f(b)s(e)g(prob)s(ed)h(is)e(\014nite.)42 b(Since)0 +2222 y(this)32 b(is)g(not)h(true)g(for)f(the)h(distributions)e(under)i +(study)-8 b(,)34 b(it)e(is)g(necessary)j(to)d(do)g(b)s(etter.)146 +2330 y(By)43 b(analogy)d(with)i(eq.)g(\(160\),)i(it)c(is)i(p)s(ossible) +f(to)g(ask)i(what)f(the)g(probabilit)m(y)e(is)h(to)h(\014nd)g(the)0 +2439 y(hardest)35 b(scattering)f(of)g(an)g(ev)m(en)m(t)i(at)e +Fj(x)1486 2454 y Fk(?)p Fl(1)1581 2439 y Fw(.)48 b(F)-8 +b(or)34 b(eac)m(h)h(impact)e(parameter)g(separately)-8 +b(,)35 b(the)g(proba-)0 2547 y(bilit)m(y)30 b(to)h(ha)m(v)m(e)i(an)e +(in)m(teraction)f(at)h Fj(x)1392 2562 y Fk(?)p Fl(1)1519 +2547 y Fw(is)g(giv)m(en)g(b)m(y)i Fj(f)11 b Fw(\()p Fj(x)2156 +2562 y Fk(?)2215 2547 y Fj(;)17 b(b)p Fw(\),)32 b(and)f(this)g(should)h +(b)s(e)f(m)m(ultiplied)e(b)m(y)0 2655 y(the)36 b(probabilit)m(y)d(that) +i(the)h(ev)m(en)m(t)h(con)m(tains)f(no)f(in)m(teractions)g(at)g(a)g +(scale)g Fj(x)2870 2619 y Fk(0)2870 2680 y(?)2962 2655 +y Fj(>)e(x)3126 2670 y Fk(?)p Fl(1)3220 2655 y Fw(,)j(to)f(yield)g(the) +0 2764 y(total)c(probabilit)m(y)g(distribution)719 2960 +y(d)p Fn(P)842 2975 y Fl(hardest)p 719 3004 356 4 v 719 +3096 a Fw(d)773 3067 y Fl(2)813 3096 y Fj(b)17 b Fw(d)p +Fj(x)980 3111 y Fk(?)p Fl(1)1168 3027 y Fw(=)83 b Fj(f)11 +b Fw(\()p Fj(x)1479 3042 y Fk(?)p Fl(1)1573 3027 y Fj(;)17 +b(b)p Fw(\))34 b(exp)1895 2906 y Fg(\032)1958 3027 y +Fn(\000)2052 2910 y Fg(Z)2135 2937 y Fl(1)2098 3099 y +Fh(x)2138 3111 y Fd(?)p Ff(1)2241 3027 y Fj(f)11 b Fw(\()p +Fj(x)2393 2986 y Fk(0)2393 3052 y(?)2452 3027 y Fj(;)17 +b(b)p Fw(\))g(d)p Fj(x)2701 2986 y Fk(0)2701 3052 y(?)2760 +2906 y Fg(\033)1168 3278 y Fw(=)83 b Fj(e)p Fw(\()p Fj(b)p +Fw(\))17 b Fj(f)11 b Fw(\()p Fj(x)1658 3293 y Fk(?)p +Fl(1)1752 3278 y Fw(\))34 b(exp)1989 3156 y Fg(\032)2052 +3278 y Fn(\000)p Fj(e)p Fw(\()p Fj(b)p Fw(\))2308 3160 +y Fg(Z)2391 3187 y Fl(1)2354 3349 y Fh(x)2394 3361 y +Fd(?)p Ff(1)2497 3278 y Fj(f)11 b Fw(\()p Fj(x)2649 3236 +y Fk(0)2649 3302 y(?)2708 3278 y Fw(\))17 b(d)p Fj(x)2872 +3236 y Fk(0)2872 3302 y(?)2932 3156 y Fg(\033)3043 3278 +y Fj(:)487 b Fw(\(173\))0 3538 y(If)28 b(the)g(treatmen)m(t)g(of)f(the) +h(exp)s(onen)m(tial)f(is)g(deferred)i(for)e(a)h(momen)m(t,)g(the)g +(distribution)e(in)h Fj(b)h Fw(and)g Fj(x)3685 3553 y +Fk(?)p Fl(1)0 3646 y Fw(app)s(ears)39 b(in)e(factorized)h(form,)h(so)f +(that)g(the)h(t)m(w)m(o)g(can)g(b)s(e)f(c)m(hosen)i(indep)s(enden)m +(tly)f(of)f(eac)m(h)h(other.)0 3755 y(In)45 b(particular,)h(a)e(high-)p +Fj(p)986 3770 y Fk(?)1089 3755 y Fw(QCD)g(scattering)g(or)h(an)m(y)g +(other)g(hard)f(scattering)h(can)g(b)s(e)f(selected)0 +3863 y(with)32 b(whatev)m(er)i(kinematics)d(desired)i(for)f(that)g(pro) +s(cess,)i(and)f(thereafter)g(assigned)f(some)g(suitable)0 +3971 y(`hardness')26 b Fj(x)503 3986 y Fk(?)p Fl(1)598 +3971 y Fw(.)40 b(With)24 b(the)g Fj(b)g Fw(c)m(hosen)i(according)d(to)h +Fj(e)p Fw(\()p Fj(b)p Fw(\))17 b(d)2211 3935 y Fl(2)2251 +3971 y Fj(b)p Fw(,)26 b(the)f(neglected)f(exp)s(onen)m(tial)g(can)g(no) +m(w)0 4080 y(b)s(e)33 b(ev)-5 b(aluated,)32 b(and)g(the)h(ev)m(en)m(t)h +(retained)e(with)g(a)h(probabilit)m(y)d(prop)s(ortional)g(to)i(it.)42 +b(F)-8 b(rom)31 b(the)i Fj(x)3685 4095 y Fk(?)p Fl(1)0 +4188 y Fw(scale)j(of)f(the)h(selected)g(in)m(teraction,)g(a)f(sequence) +j(of)d(softer)h Fj(x)2342 4203 y Fk(?)p Fh(i)2461 4188 +y Fw(v)-5 b(alues)35 b(ma)m(y)h(again)e(b)s(e)i(generated)0 +4296 y(as)e(in)f(the)i(simple)d(mo)s(del,)h(using)h(the)g(kno)m(wn)i +Fj(f)11 b Fw(\()p Fj(x)1919 4311 y Fk(?)1978 4296 y Fj(;)17 +b(b)p Fw(\).)48 b(This)34 b(sequence)j(ma)m(y)d(b)s(e)g(empt)m(y)-8 +b(,)35 b(i.e.)47 b(the)0 4405 y(ev)m(en)m(t)34 b(need)g(not)e(con)m +(tain)h(an)m(y)g(further)g(in)m(teractions.)146 4513 +y(It)24 b(is)e(in)m(teresting)h(to)g(understand)h(ho)m(w)g(the)g +(algorithm)19 b(ab)s(o)m(v)m(e)24 b(w)m(orks.)42 b(By)24 +b(selecting)f Fj(b)g Fw(according)0 4621 y(to)39 b Fj(e)p +Fw(\()p Fj(b)p Fw(\))17 b(d)359 4585 y Fl(2)399 4621 +y Fj(b)p Fw(,)42 b(i.e.)64 b Fn(O)s Fw(\()p Fj(b)p Fw(\))17 +b(d)968 4585 y Fl(2)1008 4621 y Fj(b)p Fw(,)42 b(the)e(primary)e +Fj(b)i Fw(distribution)e(is)h(maximally)d(biased)k(to)m(w)m(ards)h +(small)0 4730 y(impact)36 b(parameters.)60 b(If)38 b(the)g(\014rst)g +(in)m(teraction)f(is)g(hard,)j(b)m(y)f(c)m(hoice)f(or)f(b)m(y)i(c)m +(hance,)i(the)d(in)m(tegral)0 4838 y(of)33 b(the)g(cross)i(section)e +(ab)s(o)m(v)m(e)h Fj(x)1179 4853 y Fk(?)p Fl(1)1307 4838 +y Fw(is)f(small,)e(and)i(the)h(exp)s(onen)m(tial)f(close)g(to)g(unit)m +(y)-8 b(.)46 b(The)34 b(rejection)0 4946 y(pro)s(cedure)c(is)f +(therefore)h(v)m(ery)h(e\016cien)m(t)g(for)d(all)g(standard)i(hard)f +(pro)s(cesses)j(in)c(the)i(program)e(|)h(one)0 5055 y(ma)m(y)g(ev)m(en) +h(safely)f(drop)f(the)i(w)m(eigh)m(ting)e(with)g(the)h(exp)s(onen)m +(tial)f(completely)-8 b(.)41 b(The)30 b(large)e Fj(e)p +Fw(\()p Fj(b)p Fw(\))h(v)-5 b(alue)0 5163 y(is)27 b(also)f(lik)m(ely)g +(to)h(lead)g(to)g(the)h(generation)e(of)h(man)m(y)h(further,)g(softer)g +(in)m(teractions.)41 b(If,)28 b(on)g(the)f(other)0 5271 +y(hand,)f(the)d(\014rst)h(in)m(teraction)e(is)h(not)g(hard,)i(the)f +(exp)s(onen)m(tial)f(is)f(no)h(longer)g(close)g(to)g(unit)m(y)-8 +b(,)25 b(and)e(man)m(y)0 5380 y(ev)m(en)m(ts)38 b(are)e(rejected.)55 +b(This)36 b(pulls)f(do)m(wn)h(the)h(e\016ciency)g(for)e(`minim)m(um)e +(bias')i(ev)m(en)m(t)j(generation.)0 5488 y(Since)d(the)g(exp)s(onen)m +(t)h(is)e(prop)s(ortional)e(to)i Fj(e)p Fw(\()p Fj(b)p +Fw(\),)h(a)g(large)e Fj(e)p Fw(\()p Fj(b)p Fw(\))i(leads)g(to)f(an)g +(enhanced)i(probabilit)m(y)0 5596 y(for)30 b(rejection,)h(whereas)i +(the)e(c)m(hance)i(of)d(acceptance)j(is)d(larger)g(with)g(a)h(small)e +Fj(e)p Fw(\()p Fj(b)p Fw(\).)43 b(Among)30 b(ev)m(en)m(ts)1817 +5953 y(222)p eop +%%Page: 223 229 +223 228 bop 0 -18 a Fw(where)33 b(the)g(hardest)f(in)m(teraction)f(is)h +(soft,)g(the)g Fj(b)h Fw(distribution)d(is)h(therefore)i(biased)f(to)m +(w)m(ards)h(larger)0 90 y(v)-5 b(alues)32 b(\(smaller)f +Fj(e)p Fw(\()p Fj(b)p Fw(\)\),)i(and)g(there)g(is)f(a)g(small)f +(probabilit)m(y)f(for)i(y)m(et)i(softer)f(in)m(teractions.)146 +198 y(T)-8 b(o)32 b(ev)-5 b(aluate)31 b(the)i(exp)s(onen)m(tial)e +(factor,)h(the)g(program)e(pretabulates)i(the)g(in)m(tegral)f(of)g +Fj(f)11 b Fw(\()p Fj(x)3564 213 y Fk(?)3623 198 y Fw(\))32 +b(at)0 307 y(the)d(initialization)23 b(stage,)30 b(and)f(further)g +(increases)h(the)f(Mon)m(te)h(Carlo)e(statistics)g(of)g(this)h +(tabulation)0 415 y(as)38 b(the)h(run)f(pro)s(ceeds.)61 +b(The)39 b Fj(x)1197 430 y Fk(?)1294 415 y Fw(grid)e(is)g(concen)m +(trated)j(to)m(w)m(ards)f(small)d Fj(x)2871 430 y Fk(?)2930 +415 y Fw(,)j(where)h(the)e(in)m(tegral)0 523 y(is)d(large.)49 +b(F)-8 b(or)35 b(a)f(selected)i Fj(x)1066 538 y Fk(?)p +Fl(1)1196 523 y Fw(v)-5 b(alue,)35 b(the)h Fj(f)11 b +Fw(\()p Fj(x)1801 538 y Fk(?)1860 523 y Fw(\))35 b(in)m(tegral)e(is)i +(obtained)f(b)m(y)i(in)m(terp)s(olation.)48 b(After)0 +632 y(m)m(ultiplication)28 b(b)m(y)33 b(the)g(kno)m(wn)h +Fj(e)p Fw(\()p Fj(b)p Fw(\))f(factor,)g(the)g(exp)s(onen)m(tial)f +(factor)g(ma)m(y)g(b)s(e)h(found.)146 740 y(In)27 b(this)g(section,)h +(nothing)e(has)h(y)m(et)g(b)s(een)h(assumed)f(ab)s(out)f(the)h(form)f +(of)g(the)h(d)p Fj(\033)t(=)p Fw(d)p Fj(p)3273 755 y +Fk(?)3359 740 y Fw(sp)s(ectrum.)0 848 y(Lik)m(e)40 b(in)g(the)g(impact) +f(parameter)h(indep)s(enden)m(t)h(case,)j(it)39 b(is)h(p)s(ossible)f +(to)h(use)h(a)f(sharp)h(cut-o\013)f(at)0 957 y(some)35 +b(giv)m(en)h Fj(p)554 972 y Fk(?)p Fl(min)766 957 y Fw(v)-5 +b(alue.)52 b(Ho)m(w)m(ev)m(er,)39 b(no)m(w)d(eac)m(h)g(ev)m(en)m(t)i +(is)d(required)h(to)f(ha)m(v)m(e)i(at)e(least)g(one)h(in)m(ter-)0 +1065 y(action,)31 b(whereas)i(b)s(efore)f(ev)m(en)m(ts)i(without)d(in)m +(teractions)g(w)m(ere)i(retained)e(and)h(put)g(at)f Fj(p)3300 +1080 y Fk(?)3387 1065 y Fw(=)c(0.)43 b(It)32 b(is)0 1173 +y(therefore)f(aesthetically)f(more)g(app)s(ealing)f(to)h(assume)h(a)g +(gradual)e(turn-o\013,)i(so)f(that)h(a)f(\(semi\)hard)0 +1282 y(in)m(teraction)h(can)h(b)s(e)g(rather)h(soft)f(part)f(of)h(the)g +(time.)42 b(The)33 b(matrix)e(elemen)m(ts)h(roughly)g(div)m(erge)g(lik) +m(e)0 1390 y Fj(\013)62 1405 y Fl(s)94 1390 y Fw(\()p +Fj(p)181 1354 y Fl(2)181 1415 y Fk(?)240 1390 y Fw(\))17 +b(d)p Fj(p)398 1354 y Fl(2)398 1415 y Fk(?)457 1390 y +Fj(=p)555 1354 y Fl(4)555 1415 y Fk(?)654 1390 y Fw(for)40 +b Fj(p)860 1405 y Fk(?)960 1390 y Fn(!)h Fw(0.)68 b(They)42 +b(could)e(therefore)h(b)s(e)g(regularized)f(as)g(follo)m(ws.)67 +b(Firstly)-8 b(,)41 b(to)0 1498 y(remo)m(v)m(e)28 b(the)g(1)p +Fj(=p)638 1462 y Fl(4)638 1523 y Fk(?)725 1498 y Fw(b)s(eha)m(viour,)g +(m)m(ultiply)d(b)m(y)k(a)e(factor)h Fj(p)2116 1462 y +Fl(4)2116 1523 y Fk(?)2175 1498 y Fj(=)p Fw(\()p Fj(p)2311 +1462 y Fl(2)2311 1523 y Fk(?)2381 1498 y Fw(+)12 b Fj(p)2518 +1462 y Fl(2)2518 1523 y Fk(?)p Fl(0)2612 1498 y Fw(\))2650 +1462 y Fl(2)2690 1498 y Fw(.)42 b(Secondly)-8 b(,)29 +b(replace)e(the)i Fj(p)3721 1462 y Fl(2)3721 1523 y Fk(?)0 +1607 y Fw(argumen)m(t)34 b(in)g Fj(\013)616 1622 y Fl(s)683 +1607 y Fw(b)m(y)h Fj(p)869 1571 y Fl(2)869 1631 y Fk(?)952 +1607 y Fw(+)23 b Fj(p)1100 1571 y Fl(2)1100 1631 y Fk(?)p +Fl(0)1229 1607 y Fw(or,)35 b(with)f(the)h(inclusion)e(of)h(the)h +Fj(K)42 b Fw(factor)34 b(pro)s(cedure)h(in)m(tro)s(duced)0 +1715 y(earlier,)c(replace)i(0)p Fj(:)p Fw(075)17 b Fj(p)945 +1679 y Fl(2)945 1740 y Fk(?)1035 1715 y Fw(b)m(y)34 b(0)p +Fj(:)p Fw(075)17 b(\()p Fj(p)1498 1679 y Fl(2)1498 1740 +y Fk(?)1577 1715 y Fw(+)22 b Fj(p)1724 1679 y Fl(2)1724 +1740 y Fk(?)p Fl(0)1819 1715 y Fw(\).)146 1823 y(With)g(these)h +(substitutions,)h(a)e(con)m(tin)m(uous)h Fj(p)1825 1838 +y Fk(?)1906 1823 y Fw(sp)s(ectrum)g(is)e(obtained,)j(stretc)m(hing)f +(from)e Fj(p)3541 1838 y Fk(?)3627 1823 y Fw(=)28 b(0)0 +1932 y(to)47 b Fj(E)206 1947 y Fl(cm)300 1932 y Fj(=)p +Fw(2.)86 b(F)-8 b(or)46 b Fj(p)749 1947 y Fk(?)860 1932 +y Fn(\035)51 b Fj(p)1060 1947 y Fk(?)p Fl(0)1202 1932 +y Fw(the)c(standard)g(p)s(erturbativ)m(e)g(QCD)g(cross)h(section)f(is)f +(reco)m(v)m(ered,)0 2040 y(while)35 b(v)-5 b(alues)36 +b Fj(p)601 2055 y Fk(?)693 2040 y Fn(\034)c Fj(p)874 +2055 y Fk(?)p Fl(0)1004 2040 y Fw(are)k(strongly)g(damp)s(ed.)52 +b(The)37 b Fj(p)2222 2055 y Fk(?)p Fl(0)2352 2040 y Fw(scale,)g(whic)m +(h)f(no)m(w)h(is)e(the)h(main)e(free)0 2148 y(parameter)i(of)g(the)h +(mo)s(del,)f(in)f(practice)i(comes)f(out)h(to)f(b)s(e)g(of)g(the)h +(same)g(order)f(of)g(magnitude)f(as)0 2257 y(the)e(sharp)g(cut-o\013)f +Fj(p)789 2272 y Fk(?)p Fl(min)998 2257 y Fw(did,)h(i.e.)43 +b(1.5{2)31 b(GeV.)146 2365 y(If)22 b(gluons)g(with)g(large)f(transv)m +(erse)j(w)m(a)m(v)m(elength)g(decouple)f(b)s(ecause)g(of)f(the)g +(colour-singlet)e(nature)0 2473 y(of)i(hadrons,)i(and)e(if)f(the)i +(transv)m(erse)h(structure)f(of)f(hadrons)g(is)g(assumed)h(to)e(b)s(e)i +(energy-indep)s(enden)m(t,)0 2582 y(it)30 b(is)h(natural)g(to)g(assume) +g(that)h(also)e Fj(p)1441 2597 y Fk(?)p Fl(min)1649 2582 +y Fw(and)i Fj(p)1887 2597 y Fk(?)p Fl(0)2012 2582 y Fw(are)g(indep)s +(enden)m(t)g(of)f(the)h(c.m.)43 b(energy)32 b(of)f(the)0 +2690 y(hadron)g(collision.)39 b(F)-8 b(or)30 b(the)h(impact)e +(parameter)h(indep)s(enden)m(t)i(picture)f(this)f(w)m(orks)i(out)e +(\014ne,)i(with)0 2798 y(all)23 b(ev)m(en)m(ts)k(b)s(eing)d(reduced)j +(to)d(lo)m(w-)p Fj(p)1364 2813 y Fk(?)1447 2798 y Fw(t)m(w)m(o-string)g +(ones)i(when)g(the)f(c.m.)41 b(energy)26 b(is)e(reduced.)43 +b(In)25 b(the)0 2907 y(v)-5 b(ariable)32 b(impact)h(parameter)h +(picture,)g(the)h(whole)f(formalism)d(only)i(mak)m(es)i(sense)h(if)d +Fj(\033)3332 2922 y Fl(hard)3508 2907 y Fj(>)d(\033)3669 +2922 y Fl(nd)3752 2907 y Fw(,)0 3015 y(see)36 b(e.g.)50 +b(eq.)35 b(\(170\).)49 b(Since)35 b Fj(\033)1123 3030 +y Fl(nd)1241 3015 y Fw(do)s(es)g(not)f(v)-5 b(anish)35 +b(with)f(decreasing)h(energy)-8 b(,)37 b(but)e Fj(\033)3210 +3030 y Fl(hard)3390 3015 y Fw(w)m(ould)g(do)0 3123 y(that)d(for)g(a)g +(\014xed)h Fj(p)725 3138 y Fk(?)p Fl(0)819 3123 y Fw(,)g(this)f(means)g +(that)g Fj(p)1627 3138 y Fk(?)p Fl(0)1754 3123 y Fw(has)g(to)g(b)s(e)h +(reduced)g(when)h(the)e(energy)i(is)e(decreased)0 3232 +y(b)s(elo)m(w)45 b(some)f(giv)m(en)h(threshold.)80 b(The)46 +b(more)e(`sophisticated')h(mo)s(del)e(of)i(this)f(section)h(therefore)0 +3340 y(mak)m(es)d(sense)h(at)e(collider)e(energies,)44 +b(whereas)e(it)e(is)h(not)g(w)m(ell)f(suited)i(for)e(applications)g(at) +g(lo)m(w)m(er)0 3448 y(energies.)0 3722 y Fp(11.3)136 +b(Pile-up)45 b(Ev)l(en)l(ts)0 3895 y Fw(In)40 b(high)f(luminosit)m(y)e +(colliders,)j(there)h(is)e(a)g(non-negligible)d(probabilit)m(y)i(that)i +(one)g(single)e(bunc)m(h)0 4003 y(crossing)32 b(ma)m(y)f(pro)s(duce)h +(sev)m(eral)g(separate)h(ev)m(en)m(ts,)h(so-called)c(pile-up)g(ev)m(en) +m(ts.)46 b(This)31 b(in)g(particular)0 4112 y(applies)39 +b(to)g(future)h(pp)g(colliders)e(lik)m(e)h(LHC,)h(but)g(one)g(could)f +(also)g(consider)h(e.g.)65 b(e)3231 4076 y Fl(+)3290 +4112 y Fw(e)3333 4076 y Fk(\000)3432 4112 y Fw(colliders)0 +4220 y(with)28 b(high)f(rates)i(of)f Fj(\015)5 b(\015)33 +b Fw(collisions.)39 b(The)30 b(program)d(therefore)h(con)m(tains)h(an)f +(option,)g(curren)m(tly)h(only)0 4328 y(applicable)g(to)h +(hadron{hadron)g(collisions,)f(wherein)i(sev)m(eral)g(ev)m(en)m(ts)i +(ma)m(y)d(b)s(e)h(generated)h(and)e(put)0 4437 y(one)g(after)f(the)h +(other)g(in)f(the)h(ev)m(en)m(t)h(record,)g(to)e(sim)m(ulate)f(the)i +(full)e(amoun)m(t)h(of)g(particle)f(pro)s(duction)0 4545 +y(a)k(detector)i(migh)m(t)d(b)s(e)i(facing.)146 4653 +y(The)40 b(program)e(needs)j(to)e(kno)m(w)h(the)g(assumed)g(luminosit)m +(y)d(p)s(er)i(bunc)m(h{bunc)m(h)j(crossing,)f(ex-)0 4762 +y(pressed)c(in)c(m)m(b)593 4726 y Fk(\000)p Fl(1)687 +4762 y Fw(.)50 b(Multiplied)32 b(b)m(y)k(the)f(cross)g(section)g(for)f +(pile-up)f(pro)s(cesses)k(studied,)e Fj(\033)3445 4777 +y Fl(pile)3560 4762 y Fw(,)g(this)0 4870 y(giv)m(es)43 +b(the)g(a)m(v)m(erage)g(n)m(um)m(b)s(er)g(of)f(collisions)e(p)s(er)j(b) +s(eam)f(crossing,)p 2558 4817 59 4 v 45 w Fj(n)p Fw(.)73 +b(These)45 b(pile-up)c(ev)m(en)m(ts)j(are)0 4979 y(tak)m(en)32 +b(to)g(b)s(e)f(of)g(the)h(minim)m(um)d(bias)i(t)m(yp)s(e,)h(with)f +(di\013ractiv)m(e)g(and)h(elastic)e(ev)m(en)m(ts)k(included)d(or)h(not) +0 5087 y(\(and)i(a)f(further)h(sub)s(division)f(of)g(di\013ractiv)m(e)g +(ev)m(en)m(ts)k(in)m(to)c(single)f(and)i(double\).)47 +b(This)34 b(means)g(that)0 5195 y Fj(\033)55 5210 y Fl(pile)199 +5195 y Fw(ma)m(y)c(b)s(e)g(either)f Fj(\033)866 5210 +y Fl(tot)961 5195 y Fw(,)h Fj(\033)1073 5210 y Fl(tot)1184 +5195 y Fn(\000)16 b Fj(\033)1332 5210 y Fl(el)1419 5195 +y Fw(or)29 b Fj(\033)1590 5210 y Fl(tot)1701 5195 y Fn(\000)16 +b Fj(\033)1849 5210 y Fl(el)1922 5195 y Fn(\000)g Fj(\033)2070 +5210 y Fl(di\013r)2203 5195 y Fw(.)42 b(Whic)m(h)30 b(option)f(to)h(c)m +(ho)s(ose)g(dep)s(ends)i(on)0 5304 y(the)27 b(detector:)41 +b(most)26 b(detectors)i(w)m(ould)e(not)g(b)s(e)h(able)f(to)g(observ)m +(e)i(elastic)d(pp)i(scattering,)h(and)e(there-)0 5412 +y(fore)k(it)f(w)m(ould)h(b)s(e)g(sup)s(er\015uous)h(to)f(generate)g +(that)g(kind)g(of)f(ev)m(en)m(ts.)45 b(In)31 b(addition,)d(w)m(e)j +(allo)m(w)e(for)g(the)0 5520 y(p)s(ossibilit)m(y)j(that)i(one)g(in)m +(teraction)f(ma)m(y)h(b)s(e)g(of)f(a)h(rare)g(kind,)g(selected)h +(freely)f(b)m(y)h(the)g(user.)48 b(There)0 5629 y(is)38 +b(no)g(option)g(to)g(generate)h(t)m(w)m(o)g(`rare')g(ev)m(en)m(ts)i(in) +d(the)h(same)f(crossing;)k(normally)36 b(the)j(lik)m(eliho)s(o)s(d)1817 +5953 y(223)p eop +%%Page: 224 230 +224 229 bop 0 -18 a Fw(for)32 b(that)g(kind)h(of)f(o)s(ccurences)j +(should)d(b)s(e)h(small.)146 90 y(If)48 b(only)g(minim)m(um)d(bias)j(t) +m(yp)s(e)h(ev)m(en)m(ts)h(are)e(generated,)53 b(i.e.)90 +b(if)47 b(only)h(one)g(cross)i(section)e(is)0 198 y(in)m(v)m(olv)m(ed) +32 b(in)f(the)h(problem,)f(then)i(the)f(n)m(um)m(b)s(er)g(of)f(ev)m(en) +m(ts)j(in)d(a)h(crossing)f(is)h(distributed)f(according)0 +307 y(to)38 b(a)g(P)m(oissonian)g(with)g(the)h(a)m(v)m(erage)g(n)m(um)m +(b)s(er)p 1818 254 59 4 v 39 w Fj(n)g Fw(as)f(calculated)g(ab)s(o)m(v)m +(e.)61 b(The)40 b(program)d(actually)0 415 y(will)29 +b(sim)m(ulate)h(only)h(those)h(b)s(eam)e(crossings)i(where)h(at)e +(least)g(one)h(ev)m(en)m(t)h(o)s(ccurs,)f(i.e.)43 b(not)31 +b(consider)0 523 y(the)41 b(fraction)e(exp)q(\()p Fn(\000)p +808 470 V Fj(n)q Fw(\))h(of)g(zero-ev)m(en)m(t)j(crossings.)67 +b(Therefore)42 b(the)f(actually)e(generated)i(a)m(v)m(erage)0 +632 y(n)m(um)m(b)s(er)33 b(of)f(pile-up)f(ev)m(en)m(ts)k(is)d +Fn(h)p Fj(n)p Fn(i)c Fw(=)p 1452 579 V 27 w Fj(n=)p Fw(\(1)22 +b Fn(\000)h Fw(exp)q(\()p Fn(\000)p 2032 579 V Fj(n)p +Fw(\)\).)146 740 y(No)m(w)34 b(instead)f(consider)g(the)g(other)g +(extreme,)h(where)g(one)f(ev)m(en)m(t)i(is)e(supp)s(osed)h(b)s(e)f +(rare,)g(with)g(a)0 848 y(cross)i(section)g Fj(\033)624 +863 y Fl(rare)784 848 y Fw(m)m(uc)m(h)g(smaller)d(than)i +Fj(\033)1668 863 y Fl(pile)1783 848 y Fw(,)g(i.e.)48 +b Fj(f)41 b Fn(\021)31 b Fj(\033)2269 863 y Fl(rare)2395 +848 y Fj(=\033)2499 863 y Fl(pile)2644 848 y Fn(\034)f +Fw(1.)48 b(The)35 b(probabilit)m(y)e(that)0 957 y(a)f(bunc)m(h)i +(crossing)f(will)d(giv)m(e)j Fj(i)f Fw(ev)m(en)m(ts,)j(whereof)f(one)f +(of)f(the)h(rare)f(kind,)h(no)m(w)g(is)940 1223 y Fn(P)1009 +1238 y Fh(i)1065 1223 y Fw(=)28 b Fj(f)f(i)34 b Fw(exp)q(\()p +Fn(\000)p 1575 1170 V Fj(n)p Fw(\))p 1698 1102 V 1698 +1155 a Fj(n)1756 1119 y Fh(i)p 1698 1199 87 4 v 1711 +1291 a Fj(i)p Fw(!)1822 1223 y(=)28 b Fj(f)p 2001 1170 +59 4 v 27 w(n)17 b Fw(exp)q(\()p Fn(\000)p 2340 1170 +V Fj(n)p Fw(\))p 2528 1102 V 2528 1155 a Fj(n)2586 1119 +y Fh(i)p Fk(\000)p Fl(1)p 2463 1199 307 4 v 2463 1291 +a Fw(\()p Fj(i)22 b Fn(\000)h Fw(1\)!)2812 1223 y Fj(:)718 +b Fw(\(174\))0 1484 y(The)39 b(na)-11 b(\177)-38 b(\020v)m(e)38 +b(P)m(oissonian)g(is)f(suppressed)k(b)m(y)e(a)f(factor)f +Fj(f)11 b Fw(,)40 b(since)e(one)g(of)g(the)g(ev)m(en)m(ts)j(is)c(rare)h +(rather)0 1592 y(than)f(of)f(the)h(normal)e(kind,)j(but)f(enhanced)h(b) +m(y)g(a)f(factor)f Fj(i)p Fw(,)i(since)f(an)m(y)h(one)f(of)f(the)i +Fj(i)f Fw(ev)m(en)m(ts)i(ma)m(y)0 1701 y(b)s(e)c(the)h(rare)f(one.)51 +b(As)36 b(the)f(equalit)m(y)g(sho)m(ws,)i(the)f(probabilit)m(y)d +(distribution)g(is)i(no)m(w)g(a)g(P)m(oissonian)0 1809 +y(in)c Fj(i)20 b Fn(\000)g Fw(1:)43 b(in)31 b(a)g(b)s(eam)g(crossing)g +(whic)m(h)h(pro)s(duces)h(one)f(rare)f(ev)m(en)m(t,)j(the)e(m)m +(ultiplicit)m(y)27 b(of)k(additional)0 1917 y(pile-up)f(ev)m(en)m(ts)j +(is)e(distributed)g(according)f(to)h(a)g(P)m(oissonian)g(with)g(a)m(v)m +(erage)h(n)m(um)m(b)s(er)p 3252 1865 59 4 v 32 w Fj(n)p +Fw(.)43 b(The)32 b(total)0 2026 y(a)m(v)m(erage)i(n)m(um)m(b)s(er)f(of) +f(ev)m(en)m(ts)j(th)m(us)e(is)f Fn(h)p Fj(n)p Fn(i)c +Fw(=)p 1691 1973 V 27 w Fj(n)23 b Fw(+)f(1.)146 2134 +y(Clearly)-8 b(,)32 b(for)g(pro)s(cesses)i(with)e(in)m(termediate)f +(cross)i(sections,)p 2492 2081 V 33 w Fj(n)17 b(\033)2622 +2149 y Fl(rare)2749 2134 y Fj(=\033)2853 2149 y Fl(pile)2994 +2134 y Fn(')29 b Fw(1,)j(also)f(the)i(a)m(v)m(er-)0 2242 +y(age)d(n)m(um)m(b)s(er)g(of)f(ev)m(en)m(ts)j(will)27 +b(b)s(e)j(in)m(termediate,)f(and)h(it)e(is)i(not)f(allo)m(w)m(ed)g(to)g +(assume)i(only)e(one)h(ev)m(en)m(t)0 2351 y(to)i(b)s(e)h(of)f(the)h +(`rare')g(t)m(yp)s(e.)44 b(W)-8 b(e)33 b(do)g(not)f(consider)h(that)f +(kind)h(of)f(situations.)146 2459 y(Kindly)37 b(note)h(that,)h(in)e +(the)h(curren)m(t)h(implemen)m(tation,)d(all)g(ev)m(en)m(ts)k(are)e +(supp)s(osed)i(to)d(b)s(e)h(pro-)0 2567 y(duced)44 b(at)e(the)i(same)e +(v)m(ertex)j(\(the)e(origin\).)72 b(T)-8 b(o)43 b(sim)m(ulate)e(the)i +(spatial)e(exten)m(t)j(of)f(the)g(colliding)0 2676 y(b)s(eams,)f(y)m +(ou)f(w)m(ould)f(ha)m(v)m(e)h(to)f(assign)g(in)m(teraction)f(p)s(oin)m +(ts)h(y)m(ourself,)i(and)e(then)h(shift)f(eac)m(h)h(ev)m(en)m(t)0 +2784 y(separately)33 b(b)m(y)g(the)g(required)g(amoun)m(t)f(in)g(space) +i(and)f(time.)146 2893 y(When)27 b(the)e(pile-up)f(option)g(is)h(used,) +j(one)e(main)d(limitation)e(is)k(that)g(ev)m(en)m(t)i(records)f(ma)m(y) +f(b)s(ecome)0 3001 y(v)m(ery)35 b(large)d(when)j(sev)m(eral)f(ev)m(en)m +(ts)h(are)f(put)f(one)h(after)f(the)h(other,)g(so)f(that)g(the)h(space) +h(limit)29 b(in)k(the)0 3109 y Fq(LUJETS)i Fw(common)c(blo)s(c)m(k)i +(is)f(reac)m(hed.)46 b(It)33 b(is)g(p)s(ossible)f(to)h(expand)h(the)f +(dimension)f(of)g(the)i(common)0 3218 y(blo)s(c)m(k,)39 +b(see)g Fq(MSTU\(4\))g Fw(and)f Fq(MSTU\(5\))p Fw(,)j(but)c(only)h(up)g +(to)f(ab)s(out)g(20)16 b(000)37 b(en)m(tries,)i(whic)m(h)f(migh)m(t)f +(not)0 3326 y(alw)m(a)m(ys)c(b)s(e)g(enough.)146 3434 +y(F)-8 b(or)41 b(practical)e(reasons,)45 b(the)c(program)f(will)f(only) +h(allo)m(w)g(a)p 2461 3381 V 41 w Fj(n)h Fw(up)h(to)e(120.)69 +b(The)42 b(m)m(ultiplicit)m(y)0 3543 y(distribution)33 +b(is)h(truncated)h(ab)s(o)m(v)m(e)g(200,)f(or)g(when)i(the)f +(probabilit)m(y)d(for)i(a)g(m)m(ultiplicit)m(y)d(has)k(fallen)0 +3651 y(b)s(elo)m(w)25 b(10)367 3615 y Fk(\000)p Fl(6)461 +3651 y Fw(,)h(whic)m(hev)m(er)i(o)s(ccurs)d(so)s(oner.)42 +b(Also)24 b(lo)m(w)h(m)m(ultiplicities)c(with)j(probabilities)f(b)s +(elo)m(w)i(10)3686 3615 y Fk(\000)p Fl(6)0 3759 y Fw(are)33 +b(truncated.)0 4032 y Fp(11.4)136 b(Common)45 b(Blo)t(c)l(k)g(V)-11 +b(ariables)0 4205 y Fw(Of)27 b(the)g(routines)g(used)h(to)f(generate)h +(b)s(eam)e(remnan)m(ts,)i(m)m(ultiple)d(in)m(teractions)h(and)h +(pile-up)f(ev)m(en)m(ts,)0 4313 y(none)j(are)g(in)m(tended)g(to)g(b)s +(e)g(used)h(in)e(standalone)g(mo)s(de.)42 b(The)29 b(only)g(w)m(a)m(y)h +(to)e(regulate)g(these)i(asp)s(ects)0 4421 y(is)i(therefore)h(via)f +(the)h(v)-5 b(ariables)31 b(in)h(the)h Fq(PYPARS)h Fw(common)e(blo)s(c) +m(k.)p 0 4546 2876 9 v 0 4771 9 225 v 79 4686 a Fq +(COMMON/PYPARS/MSTP\(200\),)q(PARP)q(\(200)q(\),MS)q(TI\()q(200\))q +(,PAR)q(I\(20)q(0\))p 2867 4771 V 0 4779 2876 9 v 0 4911 +a Fo(Purp)s(ose:)48 b Fw(to)31 b(giv)m(e)h(access)i(to)d(a)h(n)m(um)m +(b)s(er)g(of)f(status)i(co)s(des)g(and)f(parameters)f(whic)m(h)i +(regulate)e(the)472 5019 y(p)s(erformance)38 b(of)44 +b Fm(Pythia)p Fw(.)60 b(Most)38 b(parameters)g(are)g(describ)s(ed)g(in) +g(section)g(9.3;)i(here)472 5128 y(only)31 b(those)h(related)f(to)g(b)s +(eam)g(remnan)m(ts,)h(m)m(ultiple)d(in)m(teractions)i(and)g(pile-up)f +(ev)m(en)m(ts)472 5236 y(are)k(describ)s(ed.)46 b(If)33 +b(the)g(default)g(v)-5 b(alues,)33 b(b)s(elo)m(w)g(denoted)h(b)m(y)g +(\(D=.)16 b(.)g(.)g(\),)34 b(are)f(not)g(satis-)472 5344 +y(factory)-8 b(,)36 b(they)f(m)m(ust)g(in)f(general)g(b)s(e)h(c)m +(hanged)g(b)s(efore)g(the)g Fq(PYINIT)h Fw(call.)48 b(Exceptions,)472 +5453 y(i.e.)43 b(v)-5 b(ariables)32 b(whic)m(h)h(can)g(b)s(e)f(c)m +(hanged)i(for)e(eac)m(h)i(new)f(ev)m(en)m(t,)i(are)d(denoted)i(b)m(y)f +(\(C\).)0 5561 y Fq(MSTP\(81\))53 b(:)48 b Fw(\(D=1\))31 +b(master)i(switc)m(h)g(for)f(m)m(ultiple)e(in)m(teractions.)236 +5669 y Fq(=)52 b(0)f(:)217 b Fw(o\013.)1817 5953 y(224)p +eop +%%Page: 225 231 +225 230 bop 236 -18 a Fq(=)52 b(1)f(:)217 b Fw(on.)0 +90 y Fq(MSTP\(82\))53 b(:)48 b Fw(\(D=1\))41 b(structure)j(of)e(m)m +(ultiple)d(in)m(teractions.)73 b(F)-8 b(or)41 b(QCD)h(pro)s(cesses,)47 +b(used)d(do)m(wn)472 198 y(to)f Fj(p)651 213 y Fk(?)753 +198 y Fw(v)-5 b(alues)43 b(b)s(elo)m(w)g Fj(p)1390 213 +y Fk(?)p Fl(min)1567 198 y Fw(,)j(it)c(also)g(a\013ects)i(the)f(c)m +(hoice)h(of)f(structure)h(for)f(the)g(one)472 307 y(hard/semi-hard)32 +b(in)m(teraction.)236 415 y Fq(=)52 b(0)f(:)217 b Fw(simple)31 +b(t)m(w)m(o-string)h(mo)s(del)f(without)h(an)m(y)h(hard)g(in)m +(teractions.)236 523 y Fq(=)52 b(1)f(:)217 b Fw(m)m(ultiple)37 +b(in)m(teractions)h(assuming)h(the)h(same)f(probabilit)m(y)e(in)i(all)e +(ev)m(en)m(ts,)44 b(with)709 632 y(an)32 b(abrupt)h Fj(p)1213 +647 y Fk(?)p Fl(min)1422 632 y Fw(cut-o\013)f(at)g Fq(PARP\(81\))p +Fw(.)236 740 y Fq(=)52 b(2)f(:)217 b Fw(m)m(ultiple)28 +b(in)m(teractions)i(assuming)g(the)h(same)g(probabilit)m(y)d(in)i(all)f +(ev)m(en)m(ts,)k(with)e(a)709 848 y(con)m(tin)m(uous)i(turn-o\013)f(of) +g(the)h(cross)h(section)e(at)h Fj(p)2565 863 y Fk(?)p +Fl(0)2686 848 y Fw(=)p Fq(PARP\(82\))p Fw(.)236 957 y +Fq(=)52 b(3)f(:)217 b Fw(m)m(ultiple)65 b(in)m(teractions)h(assuming)h +(a)g(v)-5 b(arying)66 b(impact)g(parameter)h(and)h(a)709 +1065 y(hadronic)30 b(matter)h(o)m(v)m(erlap)g(consisten)m(t)h(with)f(a) +g(Gaussian)g(matter)f(distribution,)709 1173 y(with)i(a)g(con)m(tin)m +(uous)h(turn-o\013)f(of)h(the)g(cross)g(section)g(at)f +Fj(p)2868 1188 y Fk(?)p Fl(0)2990 1173 y Fw(=)p Fq(PARP\(82\))p +Fw(.)236 1282 y Fq(=)52 b(4)f(:)217 b Fw(m)m(ultiple)65 +b(in)m(teractions)h(assuming)h(a)g(v)-5 b(arying)66 b(impact)g +(parameter)h(and)h(a)709 1390 y(hadronic)37 b(matter)g(o)m(v)m(erlap)h +(consisten)m(t)h(with)f(a)g(double)g(Gaussian)f(matter)g(dis-)709 +1498 y(tribution)f(giv)m(en)i(b)m(y)j Fq(PARP\(83\))f +Fw(and)e Fq(PARP\(84\))p Fw(,)k(with)37 b(a)h(con)m(tin)m(uous)h +(turn-o\013)709 1607 y(of)32 b(the)h(cross)g(section)g(at)f +Fj(p)1721 1622 y Fk(?)p Fl(0)1843 1607 y Fw(=)p Fq(PARP\(82\))p +Fw(.)236 1715 y Fo(Note)37 b(1:)110 b Fw(F)-8 b(or)49 +b Fq(MSTP\(82\))p Fn(\025)60 b Fw(2)50 b(and)g Fq(CKIN\(3\))p +Fj(>)p Fq(PARP\(82\))p Fw(,)59 b(cross)51 b(sections)g(giv)m(en)f(with) +709 1823 y Fq(PYSTAT\(1\))38 b Fw(ma)m(y)e(b)s(e)g(somewhat)g(to)s(o)g +(large,)g(since)g(\(for)g(reasons)h(of)e(e\016ciency\))709 +1932 y(the)g(probabilit)m(y)e(factor)h(that)g(the)i(hard)e(in)m +(teraction)g(is)g(indeed)h(the)h(hardest)f(in)709 2040 +y(the)30 b(ev)m(en)m(t)h(is)e(not)g(included)h(in)e(the)i(cross)h +(sections.)43 b(It)30 b(is)f(included)g(in)g(the)h(ev)m(en)m(t)709 +2148 y(selection,)f(ho)m(w)m(ev)m(er,)j(so)e(the)f(ev)m(en)m(ts)j +(generated)e(are)f(correctly)g(distributed.)42 b(F)-8 +b(or)709 2257 y Fq(CKIN\(3\))33 b Fw(v)-5 b(alues)31 +b(a)h(couple)f(of)g(times)g(larger)f(than)i Fq(PARP\(82\))i +Fw(this)d(ceases)i(to)e(b)s(e)709 2365 y(a)h(problem.)236 +2473 y Fo(Note)37 b(2:)110 b Fw(The)41 b Fq(PARP\(81\))h +Fw(and,)g(in)d(particular,)h Fq(PARP\(82\))j Fw(v)-5 +b(alues)40 b(are)g(sensitiv)m(e)g(to)g(the)709 2582 y(c)m(hoice)35 +b(of)f(parton)g(distributions,)g(\003)2098 2597 y Fl(QCD)2262 +2582 y Fw(,)h(etc.,)h(in)e(the)h(sense)i(that)d(a)h(c)m(hange)g(in)709 +2690 y(the)28 b(latter)g(v)-5 b(ariables)27 b(leads)h(to)g(a)g(net)g(c) +m(hange)h(in)f(the)h(m)m(ultiple)c(in)m(teraction)i(rate,)709 +2798 y(whic)m(h)32 b(has)h(to)f(b)s(e)g(comp)s(ensated)h(b)m(y)g(a)f +(retuning)g(of)39 b Fq(PARP\(81\))34 b Fw(or)e Fq(PARP\(82\))j +Fw(if)709 2907 y(one)g(w)m(an)m(ts)h(to)e(k)m(eep)j(the)e(net)g(m)m +(ultiple)e(in)m(teraction)g(structure)j(the)f(same.)51 +b(The)709 3015 y(default)35 b Fq(PARP\(81\))k Fw(v)-5 +b(alue)36 b(is)g(consisten)m(t)h(with)f(the)h(other)f(default)g(v)-5 +b(alues)36 b(giv)m(e,)709 3123 y(i.e.)65 b(CTEQ)42 b(2L)e(parton)f +(distributions)g(etc.)67 b(When)41 b(options)f Fq(MSTP\(82\)=)i +Fw(2{4)709 3232 y(are)37 b(used,)k(the)d(default)f Fq(PARP\(82\))j +Fw(v)-5 b(alue)37 b(is)g(to)g(b)s(e)h(used)h(in)e(conjunction)h(with) +709 3340 y Fq(MSTP\(2\)=2)d Fw(and)d Fq(MSTP\(33\)=3)p +Fw(.)46 b(These)35 b(switc)m(hes)f(should)e(b)s(e)h(set)g(b)m(y)h(y)m +(ou.)0 3448 y Fq(MSTP\(83\))53 b(:)48 b Fw(\(D=100\))54 +b(n)m(um)m(b)s(er)h(of)g(Mon)m(te)h(Carlo)e(generated)i(phase-space)h +(p)s(oin)m(ts)e(p)s(er)g(bin)472 3557 y(\(whereof)46 +b(there)f(are)g(20\))f(in)g(the)h(initialization)39 b(\(in)44 +b Fq(PYMULT)p Fw(\))i(of)e(m)m(ultiple)e(in)m(terac-)472 +3665 y(tions)32 b(for)g Fq(MSTP\(82\))p Fn(\025)f Fw(2.)0 +3774 y Fq(MSTP\(91\))53 b(:)48 b Fw(\(D=1\))c(\(C\))g(primordial)e +Fj(k)1611 3789 y Fk(?)1714 3774 y Fw(distribution)h(in)h(hadron.)79 +b(See)46 b Fq(MSTP\(93\))h Fw(for)d(pho-)472 3882 y(ton.)236 +3990 y Fq(=)52 b(0)f(:)217 b Fw(no)32 b(primordial)d +Fj(k)1372 4005 y Fk(?)1431 3990 y Fw(.)236 4099 y Fq(=)52 +b(1)f(:)217 b Fw(Gaussian,)32 b(width)g(giv)m(en)h(in)f +Fq(PARP\(91\))p Fw(,)i(upp)s(er)g(cut-o\013)e(in)g Fq(PARP\(93\))p +Fw(.)236 4207 y Fq(=)52 b(2)f(:)217 b Fw(exp)s(onen)m(tial,)32 +b(width)g(giv)m(en)h(in)f Fq(PARP\(92\))p Fw(,)i(upp)s(er)f(cut-o\013)g +(in)e Fq(PARP\(93\))p Fw(.)0 4315 y Fq(MSTP\(92\))53 +b(:)48 b Fw(\(D=4\))29 b(\(C\))i(energy)h(partitioning)27 +b(in)j(hadron)g(or)g(resolv)m(ed)i(photon)e(remnan)m(t,)h(when)472 +4424 y(this)e(remnan)m(t)f(is)g(split)f(in)m(to)h(t)m(w)m(o)i(jets.)42 +b(\(F)-8 b(or)28 b(a)g(splitting)e(in)m(to)i(a)h(hadron)f(plus)h(a)f +(jet,)h(see)472 4532 y Fq(MSTP\(94\))p Fw(.\))49 b(The)35 +b(energy)g(fraction)d Fj(\037)i Fw(tak)m(en)h(b)m(y)f(one)g(of)f(the)i +(t)m(w)m(o)f(ob)5 b(jects,)35 b(with)f(con-)472 4640 +y(v)m(en)m(tions)i(as)e(describ)s(ed)h(for)f Fq(PARP\(94\))i +Fw(and)e Fq(PARP\(96\))p Fw(,)j(is)d(c)m(hosen)i(according)d(to)h(the) +472 4749 y(di\013eren)m(t)f(distributions)e(b)s(elo)m(w.)44 +b(Here)33 b Fj(c)2014 4764 y Fl(min)2163 4749 y Fw(=)28 +b(2)p Fn(h)p Fj(m)2440 4764 y Fl(q)2481 4749 y Fn(i)p +Fj(=E)2641 4764 y Fl(cm)2763 4749 y Fw(=)f(0)p Fj(:)p +Fw(6)33 b(GeV)p Fj(=E)3338 4764 y Fl(cm)3432 4749 y Fw(.)236 +4857 y Fq(=)52 b(1)f(:)217 b Fw(1)29 b(for)h(meson)g(or)f(resolv)m(ed)i +(photon,)g(2\(1)16 b Fn(\000)h Fj(\037)p Fw(\))30 b(for)f(bary)m(on,)i +(i.e.)42 b(simple)29 b(coun)m(ting)709 4965 y(rules.)236 +5074 y Fq(=)52 b(2)f(:)217 b Fw(\()p Fj(k)25 b Fw(+)d(1\)\(1)f +Fn(\000)i Fj(\037)p Fw(\))1315 5037 y Fh(k)1358 5074 +y Fw(,)32 b(with)h Fj(k)i Fw(giv)m(en)e(b)m(y)i Fq(PARP\(94\))f +Fw(or)f Fq(PARP\(96\))p Fw(.)236 5215 y Fq(=)52 b(3)f(:)217 +b Fw(prop)s(ortional)54 b(to)i(\(1)38 b Fn(\000)h Fj(\037)p +Fw(\))1777 5179 y Fh(k)1820 5215 y Fj(=)1897 5177 y Ff(4)1872 +5113 y Fg(q)p 1955 5113 385 4 v 102 x Fj(\037)2016 5187 +y Fl(2)2077 5215 y Fw(+)22 b Fj(c)2217 5181 y Fl(2)2217 +5239 y(min)2339 5215 y Fw(,)63 b(with)56 b Fj(k)k Fw(giv)m(en)d(b)m(y)i +Fq(PARP\(94\))g Fw(or)709 5337 y Fq(PARP\(96\))p Fw(.)236 +5462 y Fq(=)52 b(4)f(:)217 b Fw(prop)s(ortional)54 b(to)j(\(1)38 +b Fn(\000)h Fj(\037)p Fw(\))1778 5426 y Fh(k)1821 5462 +y Fj(=)1870 5360 y Fg(q)p 1953 5360 V 102 x Fj(\037)2014 +5433 y Fl(2)2076 5462 y Fw(+)22 b Fj(c)2216 5428 y Fl(2)2216 +5486 y(min)2337 5462 y Fw(,)64 b(with)56 b Fj(k)k Fw(giv)m(en)d(b)m(y)j +Fq(PARP\(94\))f Fw(or)709 5584 y Fq(PARP\(96\))p Fw(.)1817 +5953 y(225)p eop +%%Page: 226 232 +226 231 bop 236 -18 a Fq(=)52 b(5)f(:)217 b Fw(prop)s(ortional)42 +b(to)j(\(1)30 b Fn(\000)h Fj(\037)p Fw(\))1738 -55 y +Fh(k)1781 -18 y Fj(=)p Fw(\()p Fj(\037)1929 -55 y Fl(2)1999 +-18 y Fw(+)f Fj(c)2147 -55 y Fl(2)2147 6 y(min)2269 -18 +y Fw(\))2307 -55 y Fh(b=)p Fl(2)2412 -18 y Fw(,)48 b(with)d +Fj(k)j Fw(giv)m(en)d(b)m(y)j Fq(PARP\(94\))f Fw(or)709 +90 y Fq(PARP\(96\))p Fw(,)34 b(and)f Fj(b)g Fw(b)m(y)i +Fq(PARP\(98\))p Fw(.)0 198 y Fq(MSTP\(93\))53 b(:)48 +b Fw(\(D=1\))37 b(\(C\))g(primordial)d Fj(k)1589 213 +y Fk(?)1686 198 y Fw(distribution)h(in)i(photon,)i(either)f(it)e(is)i +(one)f(of)h(the)g(in-)472 307 y(coming)31 b(particles)h(or)g(inside)g +(an)h(electron.)236 415 y Fq(=)52 b(0)f(:)217 b Fw(no)32 +b(primordial)d Fj(k)1372 430 y Fk(?)1431 415 y Fw(.)236 +523 y Fq(=)52 b(1)f(:)217 b Fw(Gaussian,)32 b(width)g(giv)m(en)h(in)f +Fq(PARP\(99\))p Fw(,)i(upp)s(er)g(cut-o\013)e(in)g Fq(PARP\(100\))p +Fw(.)236 632 y Fq(=)52 b(2)f(:)217 b Fw(exp)s(onen)m(tial,)32 +b(width)g(giv)m(en)h(in)f Fq(PARP\(99\))p Fw(,)i(upp)s(er)f(cut-o\013)g +(in)e Fq(PARP\(100\))p Fw(.)236 740 y Fq(=)52 b(3)f(:)217 +b Fw(p)s(o)m(w)m(er-lik)m(e)29 b(of)f(the)i(t)m(yp)s(e)g(d)p +Fj(k)1765 704 y Fl(2)1762 765 y Fk(?)1821 740 y Fj(=)p +Fw(\()p Fj(k)1962 704 y Fl(2)1959 765 y Fk(?)p Fl(0)2068 +740 y Fw(+)15 b Fj(k)2213 704 y Fl(2)2210 765 y Fk(?)2269 +740 y Fw(\))2307 704 y Fl(2)2347 740 y Fw(,)30 b(with)f +Fj(k)2674 755 y Fk(?)p Fl(0)2797 740 y Fw(in)f Fq(PARP\(99\))k +Fw(and)d(upp)s(er)709 848 y Fj(k)760 863 y Fk(?)851 848 +y Fw(cut-o\013)j(in)g Fq(PARP\(100\))p Fw(.)236 957 y +Fq(=)52 b(4)f(:)217 b Fw(p)s(o)m(w)m(er-lik)m(e)32 b(of)f(the)i(t)m(yp) +s(e)g(d)p Fj(k)1777 920 y Fl(2)1774 981 y Fk(?)1833 957 +y Fj(=)p Fw(\()p Fj(k)1974 920 y Fl(2)1971 981 y Fk(?)p +Fl(0)2086 957 y Fw(+)21 b Fj(k)2237 920 y Fl(2)2234 981 +y Fk(?)2292 957 y Fw(\),)32 b(with)g Fj(k)2662 972 y +Fk(?)p Fl(0)2788 957 y Fw(in)g Fq(PARP\(99\))i Fw(and)e(upp)s(er)709 +1065 y Fj(k)760 1080 y Fk(?)851 1065 y Fw(cut-o\013)g(in)g +Fq(PARP\(100\))p Fw(.)236 1173 y Fq(=)52 b(5)f(:)217 +b Fw(p)s(o)m(w)m(er-lik)m(e)32 b(of)f(the)i(t)m(yp)s(e)g(d)p +Fj(k)1777 1137 y Fl(2)1774 1198 y Fk(?)1833 1173 y Fj(=)p +Fw(\()p Fj(k)1974 1137 y Fl(2)1971 1198 y Fk(?)p Fl(0)2086 +1173 y Fw(+)21 b Fj(k)2237 1137 y Fl(2)2234 1198 y Fk(?)2292 +1173 y Fw(\),)32 b(with)g Fj(k)2662 1188 y Fk(?)p Fl(0)2788 +1173 y Fw(in)g Fq(PARP\(99\))i Fw(and)e(upp)s(er)709 +1282 y Fj(k)760 1297 y Fk(?)842 1282 y Fw(cut-o\013)22 +b(giv)m(en)i(b)m(y)g(the)g Fj(p)1718 1297 y Fk(?)1800 +1282 y Fw(of)e(the)i(hard)f(pro)s(cess)i(or)e(b)m(y)i +Fq(PARP\(100\))p Fw(,)j(whic)m(hev)m(er)709 1390 y(is)k(smaller.)236 +1498 y Fo(Note:)203 b Fw(for)39 b(options)h(1)g(and)g(2)g(the)h +Fq(PARP\(100\))h Fw(v)-5 b(alue)40 b(is)g(of)g(minor)e(imp)s(ortance,)j +(once)709 1607 y Fq(PARP\(100\))p Fn(\035)p Fq(PARP\(99\))p +Fw(.)60 b(Ho)m(w)m(ev)m(er,)41 b(options)36 b(3)g(and)h(4)g(corresp)s +(ond)h(to)e(distri-)709 1715 y(butions)28 b(with)h(in\014nite)f +Fn(h)p Fj(k)1691 1679 y Fl(2)1688 1740 y Fk(?)1747 1715 +y Fn(i)g Fw(if)g(the)i Fj(k)2116 1730 y Fk(?)2203 1715 +y Fw(sp)s(ectrum)g(is)e(not)h(cut)g(o\013,)h(and)f(therefore)709 +1823 y(the)45 b Fq(PARP\(100\))i Fw(v)-5 b(alue)44 b(is)g(as)h(imp)s +(ortan)m(t)e(for)h(the)h(o)m(v)m(erall)e(distribution)g(as)i(is)709 +1932 y Fq(PARP\(99\))p Fw(.)0 2040 y Fq(MSTP\(94\))53 +b(:)48 b Fw(\(D=2\))29 b(\(C\))i(energy)h(partitioning)27 +b(in)j(hadron)g(or)g(resolv)m(ed)i(photon)e(remnan)m(t,)h(when)472 +2148 y(this)k(remnan)m(t)g(is)g(split)e(in)m(to)i(a)f(hadron)h(plus)g +(a)g(remainder-jet.)50 b(The)36 b(energy)g(fraction)472 +2257 y(c)m(hi)c(is)f(tak)m(en)i(b)m(y)f(one)g(of)g(the)g(t)m(w)m(o)g +(ob)5 b(jects,)33 b(with)f(con)m(v)m(en)m(tions)h(as)f(describ)s(ed)g +(b)s(elo)m(w)g(or)472 2365 y(for)g Fq(PARP\(95\))j Fw(and)e +Fq(PARP\(97\))p Fw(.)236 2473 y Fq(=)52 b(1)f(:)217 b +Fw(1)29 b(for)h(meson)g(or)f(resolv)m(ed)i(photon,)g(2\(1)16 +b Fn(\000)h Fj(\037)p Fw(\))30 b(for)f(bary)m(on,)i(i.e.)42 +b(simple)29 b(coun)m(ting)709 2582 y(rules.)236 2690 +y Fq(=)52 b(2)f(:)217 b Fw(\()p Fj(k)25 b Fw(+)d(1\)\(1)f +Fn(\000)i Fj(\037)p Fw(\))1315 2654 y Fh(k)1358 2690 +y Fw(,)32 b(with)h Fj(k)i Fw(giv)m(en)e(b)m(y)i Fq(PARP\(95\))f +Fw(or)f Fq(PARP\(97\))p Fw(.)236 2798 y Fq(=)52 b(3)f(:)217 +b Fw(the)40 b Fj(\037)h Fw(of)f(the)g(hadron)h(is)e(selected)j +(according)d(to)h(the)h(normal)d(fragmen)m(tation)709 +2907 y(function)i(used)i(for)e(the)h(hadron)f(in)g(jet)h(fragmen)m +(tation,)g(see)h Fq(MSTJ\(11\))p Fw(.)70 b(The)709 3015 +y(p)s(ossibilit)m(y)39 b(of)j(a)f(c)m(hanged)i(fragmen)m(tation)d +(function)h(shap)s(e)i(in)e(diquark)h(frag-)709 3123 +y(men)m(tation)31 b(\(see)j Fq(PARJ\(45\))p Fw(\))g(is)e(not)h +(included.)236 3232 y Fq(=)52 b(4)f(:)217 b Fw(as)29 +b Fq(=3)p Fw(,)i(but)f(the)g(shap)s(e)g(is)f(c)m(hanged)h(as)g(allo)m +(w)m(ed)f(in)f(diquark)i(fragmen)m(tation)d(\(see)709 +3340 y Fq(PARJ\(45\))p Fw(\);)34 b(this)d(c)m(hange)h(is)f(here)h(also) +e(allo)m(w)m(ed)h(for)g(meson)g(pro)s(duction.)42 b(\(This)709 +3448 y(option)35 b(is)h(not)g(so)g(natural)g(for)f(mesons,)j(but)f(has) +f(b)s(een)i(added)e(to)g(pro)m(vide)h(the)709 3557 y(same)32 +b(amoun)m(t)g(of)g(freedom)g(as)h(for)f(bary)m(ons\).)0 +3665 y Fq(MSTP\(131\))54 b(:)47 b Fw(\(D=0\))37 b(master)g(switc)m(h)h +(for)f(pile-up)f(ev)m(en)m(ts,)41 b(i.e.)57 b(sev)m(eral)38 +b(indep)s(enden)m(t)h(hadron{)472 3774 y(hadron)47 b(in)m(teractions)e +(generated)i(in)f(the)h(same)f(bunc)m(h{bunc)m(h)i(crossing,)i(with)c +(the)472 3882 y(ev)m(en)m(ts)35 b(follo)m(wing)30 b(one)j(after)f(the)h +(other)g(in)f(the)h(ev)m(en)m(t)h(record.)236 3990 y +Fq(=)52 b(0)f(:)217 b Fw(o\013,)32 b(i.e.)43 b(only)32 +b(one)h(ev)m(en)m(t)h(is)e(generated)i(at)e(a)g(time.)236 +4099 y Fq(=)52 b(1)f(:)217 b Fw(on,)31 b(i.e.)43 b(sev)m(eral)33 +b(ev)m(en)m(ts)g(are)f(allo)m(w)m(ed)f(in)g(the)h(same)f(ev)m(en)m(t)j +(record.)44 b(Information)709 4207 y(on)32 b(the)h(pro)s(cesses)i +(generated)e(ma)m(y)g(b)s(e)f(found)h(in)f Fq(MSTI\(41\))53 +b(-)f(MSTI\(50\))p Fw(.)0 4315 y Fq(MSTP\(132\))i(:)47 +b Fw(\(D=4\))25 b(the)i(pro)s(cesses)h(that)e(are)h(switc)m(hed)g(on)f +(for)g(pile-up)f(ev)m(en)m(ts.)44 b(The)27 b(\014rst)g(ev)m(en)m(t)472 +4424 y(ma)m(y)e(b)s(e)g(set)g(up)g(completely)e(arbitrarily)-8 +b(,)24 b(using)g(the)h(switc)m(hes)h(in)e(the)h Fq(PYSUBS)h +Fw(common)472 4532 y(blo)s(c)m(k,)52 b(while)47 b(all)f(the)j +(subsequen)m(t)i(ev)m(en)m(ts)f(ha)m(v)m(e)g(to)e(b)s(e)g(of)f(one)i +(of)e(the)i(`inclusiv)m(e')472 4640 y(pro)s(cesses)31 +b(whic)m(h)f(dominate)d(the)i(cross)h(section,)g(according)e(to)h(the)g +(options)f(b)s(elo)m(w.)42 b(It)472 4749 y(is)33 b(th)m(us)g(not)g(p)s +(ossible)e(to)i(generate)g(t)m(w)m(o)g(rare)g(ev)m(en)m(ts)i(in)c(the)i +(pile-up)f(option.)236 4857 y Fq(=)52 b(1)f(:)217 b Fw(lo)m(w-)p +Fj(p)935 4872 y Fk(?)1035 4857 y Fw(pro)s(cesses)44 b(\(ISUB)f(=)f +(95\))f(only)-8 b(.)72 b(The)43 b(lo)m(w-)p Fj(p)2782 +4872 y Fk(?)2882 4857 y Fw(mo)s(del)d(actually)h(used,)709 +4965 y(b)s(oth)50 b(in)f(the)i(hard)g(ev)m(en)m(t)h(and)e(in)g(the)h +(pile-up)e(ev)m(en)m(ts,)57 b(is)50 b(the)h(one)f(set)i(b)m(y)709 +5074 y Fq(MSTP\(81\))37 b Fw(etc.)53 b(This)36 b(means)g(that)f +(implicitly)c(also)k(high-)p Fj(p)3005 5089 y Fk(?)3098 +5074 y Fw(jets)h(can)g(b)s(e)g(gen-)709 5182 y(erated)d(in)f(the)h +(pile-up)e(ev)m(en)m(ts.)236 5290 y Fq(=)52 b(2)f(:)217 +b Fw(lo)m(w-)p Fj(p)935 5305 y Fk(?)1025 5290 y Fw(+)33 +b(double)f(di\013ractiv)m(e)g(pro)s(cesses)j(\(ISUB)e(=)f(95)g(and)h +(94\).)236 5399 y Fq(=)52 b(3)f(:)217 b Fw(lo)m(w-)p +Fj(p)935 5414 y Fk(?)1033 5399 y Fw(+)40 b(double)h(di\013ractiv)m(e)f +(+)g(single)f(di\013ractiv)m(e)h(pro)s(cesses)j(\(ISUB)e(=)f(95,)709 +5507 y(94,)32 b(93)g(and)h(92\).)236 5615 y Fq(=)52 b(4)f(:)217 +b Fw(lo)m(w-)p Fj(p)935 5630 y Fk(?)1031 5615 y Fw(+)39 +b(double)f(di\013ractiv)m(e)g(+)g(single)f(di\013ractiv)m(e)h(+)h +(elastic)e(pro)s(cesses,)42 b(to-)1817 5953 y(226)p eop +%%Page: 227 233 +227 232 bop 709 -18 a Fw(gether)40 b(corresp)s(onding)g(to)g(the)h +(full)d(hadron{hadron)i(cross)h(section)f(\(ISUB)h(=)709 +90 y(95,)32 b(94,)g(93,)g(92)g(and)h(91\).)0 198 y Fq(MSTP\(133\))54 +b(:)47 b Fw(\(D=0\))32 b(m)m(ultiplicit)m(y)d(distribution)h(of)i +(pile-up)g(ev)m(en)m(ts.)236 307 y Fq(=)52 b(0)f(:)217 +b Fw(selected)28 b(b)m(y)h(user,)g(b)s(efore)f(eac)m(h)g +Fq(PYEVNT)h Fw(call,)e(b)m(y)h(giving)e(the)i Fq(MSTP\(134\))i +Fw(v)-5 b(alue.)236 415 y Fq(=)52 b(1)f(:)217 b Fw(a)52 +b(P)m(oissonian)g(m)m(ultiplicit)m(y)d(distribution)h(in)i(the)h(total) +e(n)m(um)m(b)s(er)i(of)f(pile-up)709 523 y(ev)m(en)m(ts.)108 +b(This)54 b(is)e(the)i(relev)-5 b(an)m(t)54 b(distribution)d(if)h(the)i +(switc)m(hes)h(set)f(for)f(the)709 632 y(\014rst)i(ev)m(en)m(t)i(in)d +Fq(PYSUBS)i Fw(giv)m(e)f(the)g(same)g(subpro)s(cesses)j(as)d(are)f +(implied)f(b)m(y)709 740 y Fq(MSTP\(132\))p Fw(.)77 b(In)43 +b(that)g(case)h(the)g(mean)e(n)m(um)m(b)s(er)i(of)e(ev)m(en)m(ts)j(p)s +(er)f(b)s(eam)e(cross-)709 848 y(ing)37 b(is)p 981 795 +59 4 v 38 w Fj(n)h Fw(=)f Fj(\033)1245 863 y Fl(pile)1359 +848 y Fn(\002)p Fq(PARP\(131\))p Fw(,)43 b(where)d Fj(\033)2308 +863 y Fl(pile)2460 848 y Fw(is)e(the)h(sum)f(of)g(the)h(cross)g +(section)709 957 y(for)28 b(allo)m(w)m(ed)h(pro)s(cesses.)44 +b(Since)30 b(bunc)m(h)g(crossing)f(whic)m(h)h(do)f(not)g(giv)m(e)g(an)m +(y)h(ev)m(en)m(ts)709 1065 y(at)23 b(all)e(\(probabilit)m(y)h(exp)q(\() +p Fn(\000)p 1737 1012 V Fj(n)p Fw(\)\))h(are)h(not)f(sim)m(ulated,)h +(the)g(actual)f(a)m(v)m(erage)h(n)m(um)m(b)s(er)709 1173 +y(p)s(er)32 b Fq(PYEVNT)i Fw(call)d(is)h Fn(h)p Fj(n)p +Fn(i)c Fw(=)p 1763 1120 V 27 w Fj(n)q(=)p Fw(\(1)21 b +Fn(\000)i Fw(exp)q(\()p Fn(\000)p 2343 1120 V Fj(n)q +Fw(\)\).)236 1282 y Fq(=)52 b(2)f(:)217 b Fw(a)22 b(biased)h +(distribution,)g(as)f(is)h(relev)-5 b(an)m(t)22 b(when)i(one)f(of)f +(the)h(ev)m(en)m(ts)i(to)e(b)s(e)g(generated)709 1390 +y(is)30 b(assumed)h(to)g(b)s(elong)f(to)g(an)h(ev)m(en)m(t)i(class)e +(with)f(a)g(cross)i(section)f(m)m(uc)m(h)g(smaller)709 +1498 y(than)g(the)h(total)f(hadronic)g(cross)h(section.)44 +b(If)31 b Fj(\033)2488 1513 y Fl(rare)2646 1498 y Fw(is)g(the)h(cross)h +(section)f(for)f(this)709 1607 y(rare)37 b(pro)s(cess)h(\(or)f(the)h +(sum)f(of)g(the)h(cross)g(sections)g(of)f(sev)m(eral)h(rare)f(pro)s +(cesses\))709 1715 y(and)c Fj(\033)954 1730 y Fl(pile)1103 +1715 y Fw(the)h(cross)g(section)g(for)f(the)i(pro)s(cesses)g(allo)m(w)m +(ed)e(b)m(y)j Fq(MSTP\(132\))p Fw(,)h(then)709 1823 y(de\014ne)p +994 1770 V 37 w Fj(n)c Fw(=)g Fj(\033)1249 1838 y Fl(pile)1363 +1823 y Fn(\002)p Fq(PARP\(131\))39 b Fw(and)d Fj(f)43 +b Fw(=)33 b Fj(\033)2386 1838 y Fl(rare)2513 1823 y Fj(=\033)2617 +1838 y Fl(pile)2731 1823 y Fw(.)53 b(The)36 b(probabilit)m(y)e(that)i +(a)709 1932 y(bunc)m(h)g(crossing)f(will)e(giv)m(e)i +Fj(i)g Fw(ev)m(en)m(ts)i(is)e(then)g Fn(P)2523 1947 y +Fh(i)2584 1932 y Fw(=)c Fj(f)d(i)33 b Fw(exp)q(\()p Fn(\000)p +3097 1879 V Fj(n)q Fw(\))p 3211 1879 V 17 w Fj(n)3269 +1896 y Fh(i)3297 1932 y Fj(=i)p Fw(!,)j(i.e.)50 b(the)709 +2040 y(na)-11 b(\177)-38 b(\020v)m(e)34 b(P)m(oissonian)f(is)g +(suppressed)j(b)m(y)f(a)f(factor)f Fj(f)44 b Fw(since)34 +b(one)g(of)g(the)g(ev)m(en)m(ts)i(will)709 2148 y(b)s(e)30 +b(rare)h(rather)f(than)g(frequen)m(t,)j(but)d(enhanced)i(b)m(y)g(a)e +(factor)g Fj(i)g Fw(since)h(an)m(y)g(of)f(the)709 2257 +y Fj(i)37 b Fw(ev)m(en)m(ts)j(ma)m(y)d(b)s(e)h(the)g(rare)f(one.)59 +b(Only)37 b(b)s(eam)f(crossings)i(whic)m(h)g(giv)m(e)g(at)f(least)709 +2365 y(one)h(ev)m(en)m(t)i(of)e(the)h(required)g(rare)f(t)m(yp)s(e)h +(are)g(sim)m(ulated,)f(and)h(the)f(distribution)709 2473 +y(ab)s(o)m(v)m(e)33 b(normalized)e(accordingly)-8 b(.)236 +2582 y Fo(Note:)203 b Fw(for)46 b(practical)g(reasons,)51 +b(it)46 b(is)h(required)g(that)p 2522 2529 V 47 w Fj(n)52 +b(<)g Fw(120,)e(i.e.)86 b(that)47 b(an)g(a)m(v)m(er-)709 +2690 y(age)36 b(b)s(eam)g(crossing)g(do)s(es)h(not)f(con)m(tain)g(more) +g(than)g(120)g(pile-up)f(ev)m(en)m(ts.)58 b(The)709 2798 +y(m)m(ultiplicit)m(y)27 b(distribution)i(is)h(truncated)h(ab)s(o)m(v)m +(e)h(200,)e(or)h(when)g(the)g(probabilit)m(y)709 2907 +y(for)37 b(a)h(m)m(ultiplicit)m(y)c(has)39 b(fallen)d(b)s(elo)m(w)i(10) +2306 2871 y Fk(\000)p Fl(6)2400 2907 y Fw(,)h(whic)m(hev)m(er)h(o)s +(ccurs)f(so)s(oner.)60 b(Also)709 3015 y(lo)m(w)36 b(m)m(ultiplicities) +d(with)j(probabilities)e(b)s(elo)m(w)j(10)2645 2979 y +Fk(\000)p Fl(6)2776 3015 y Fw(are)g(truncated.)58 b(See)37 +b(also)709 3123 y Fq(PARI\(91\))53 b(-)f(PARI\(93\))p +Fw(.)0 3232 y Fq(MSTP\(134\))i(:)47 b Fw(\(D=1\))37 b(a)g(user)h +(selected)h(m)m(ultiplicit)m(y)-8 b(,)35 b(i.e.)57 b(total)36 +b(n)m(um)m(b)s(er)i(of)f(pile-up)f(ev)m(en)m(ts,)41 b(to)472 +3340 y(b)s(e)e(generated)f(in)f(the)i(next)f Fq(PYEVNT)i +Fw(call.)57 b(Ma)m(y)39 b(b)s(e)f(reset)h(for)e(eac)m(h)i(new)g(ev)m +(en)m(t,)i(but)472 3448 y(m)m(ust)33 b(b)s(e)g(in)f(the)h(range)f(1)c +Fn(\024)p Fq(MSTP\(134\))p Fn(\024)j Fw(200.)0 3611 y +Fq(PARP\(81\))53 b(:)48 b Fw(\(D=1.40)22 b(GeV/)p Fj(c)p +Fw(\))h(e\013ectiv)m(e)i(minim)m(um)20 b(transv)m(erse)26 +b(momen)m(tum)c Fj(p)3090 3626 y Fk(?)p Fl(min)3290 3611 +y Fw(for)h(m)m(ultiple)472 3719 y(in)m(teractions)32 +b(with)h Fq(MSTP\(82\)=1)p Fw(.)0 3828 y Fq(PARP\(82\))53 +b(:)48 b Fw(\(D=1.55)29 b(GeV/)p Fj(c)p Fw(\))g(regularization)e(scale) +j Fj(p)2198 3843 y Fk(?)p Fl(0)2322 3828 y Fw(of)g(the)g(transv)m(erse) +i(momen)m(tum)d(sp)s(ec-)472 3936 y(trum)j(for)g(m)m(ultiple)e(in)m +(teractions)i(with)h Fq(MSTP\(82\))p Fn(\025)d Fw(2.)0 +4044 y Fq(PARP\(83\),)54 b(PARP\(84\))f(:)48 b Fw(\(D=0.5,)29 +b(0.2\))g(parameters)g(of)g(an)h(assumed)g(double)f(Gaussian)g(matter) +472 4153 y(distribution)i(inside)i(the)g(colliding)d(hadrons)j(for)g +Fq(MSTP\(82\)=4)p Fw(,)i(of)e(the)g(form)f(giv)m(en)h(in)472 +4261 y(eq.)26 b(\(165\),)g(i.e.)40 b(with)25 b(a)f(core)i(of)e(radius)h +Fq(PARP\(84\))h Fw(of)f(the)g(main)e(radius)i(and)g(con)m(taining)472 +4369 y(a)33 b(fraction)e Fq(PARP\(83\))k Fw(of)d(the)h(total)e +(hadronic)h(matter.)0 4478 y Fq(PARP\(85\))53 b(:)48 +b Fw(\(D=0.33\))42 b(probabilit)m(y)f(that)i(an)g(additional)e(in)m +(teraction)h(in)h(the)g(m)m(ultiple)e(in)m(ter-)472 4586 +y(action)34 b(formalism)e(giv)m(es)j(t)m(w)m(o)g(gluons,)g(with)g +(colour)f(connections)h(to)g(`nearest)g(neigh-)472 4694 +y(b)s(ours')e(in)f(momen)m(tum)f(space.)0 4803 y Fq(PARP\(86\))53 +b(:)48 b Fw(\(D=0.66\))32 b(probabilit)m(y)f(that)i(an)g(additional)d +(in)m(teraction)i(in)g(the)h(m)m(ultiple)e(in)m(terac-)472 +4911 y(tion)c(formalism)e(giv)m(es)j(t)m(w)m(o)g(gluons,)h(either)e(as) +h(describ)s(ed)h(in)e Fq(PARP\(85\))j Fw(or)e(as)g(a)f(closed)472 +5019 y(gluon)47 b(lo)s(op.)88 b(Remaining)45 b(fraction)i(is)g(supp)s +(osed)j(to)d(consist)h(of)g(quark{an)m(tiquark)472 5128 +y(pairs.)0 5236 y Fq(PARP\(87\),)54 b(PARP\(88\))f(:)48 +b Fw(\(D=0.7,)37 b(0.5\))g(in)g(order)g(to)g(accoun)m(t)h(for)f(an)g +(assumed)h(dominance)f(of)472 5344 y(v)-5 b(alence)28 +b(quarks)h(at)f(lo)m(w)f(transv)m(erse)j(momen)m(tum)c(scales,)j(a)e +(probabilit)m(y)f(is)h(in)m(tro)s(duced)472 5453 y(that)36 +b(a)g(gg)q(-scattering)f(according)h(to)g(na)-11 b(\177)-38 +b(\020v)m(e)36 b(cross)h(section)f(is)g(replaced)g(b)m(y)h(a)f(q)p +3518 5400 52 4 v(q)h(one;)472 5561 y(this)i(is)g(used)i(only)d(for)h +Fq(MSTP\(82\))p Fn(\025)j Fw(2.)63 b(The)40 b(probabilit)m(y)d(is)i +(parametrized)g(as)g Fn(P)48 b Fw(=)1817 5953 y(227)p +eop +%%Page: 228 234 +228 233 bop 472 -18 a Fj(a)p Fw(\(1)22 b Fn(\000)h Fw(\()p +Fj(p)819 -55 y Fl(2)819 6 y Fk(?)878 -18 y Fj(=)p Fw(\()p +Fj(p)1014 -55 y Fl(2)1014 6 y Fk(?)1095 -18 y Fw(+)f +Fj(b)1234 -55 y Fl(2)1274 -18 y Fw(\))1312 -55 y Fl(2)1351 +-18 y Fw(\),)33 b(where)h Fj(a)27 b Fw(=)p Fq(PARP\(87\))35 +b Fw(and)e Fj(b)28 b Fw(=)p Fq(PARP\(88\))p Fn(\002)p +Fq(PARP\(82\))p Fw(.)0 90 y Fq(PARP\(91\))53 b(:)48 b +Fw(\(D=0.44)41 b(GeV/)p Fj(c)p Fw(\))h(\(C\))h(width)g(of)f(Gaussian)g +(primordial)d Fj(k)2892 105 y Fk(?)2993 90 y Fw(distribution)i(inside) +472 198 y(hadron)52 b(for)e Fq(MSTP\(91\)=1)p Fw(,)59 +b(i.e.)99 b(exp)q(\()p Fn(\000)p Fj(k)2127 162 y Fl(2)2124 +223 y Fk(?)2183 198 y Fj(=\033)2291 162 y Fl(2)2330 198 +y Fw(\))17 b Fj(k)2436 213 y Fk(?)2511 198 y Fw(d)p Fj(k)2616 +213 y Fk(?)2726 198 y Fw(with)51 b Fj(\033)63 b Fw(=)p +Fq(PARP\(91\))53 b Fw(and)472 307 y Fn(h)p Fj(k)565 270 +y Fl(2)562 331 y Fk(?)621 307 y Fn(i)27 b Fw(=)p Fq(PARP\(91\))1171 +270 y Fl(2)1213 307 y Fw(.)0 415 y Fq(PARP\(92\))53 b(:)48 +b Fw(\(D=0.20)24 b(GeV/)p Fj(c)p Fw(\))g(\(C\))i(width)f(parameter)f +(of)h(exp)s(onen)m(tial)g(primordial)c Fj(k)3332 430 +y Fk(?)3416 415 y Fw(distribu-)472 523 y(tion)26 b(inside)f(hadron)i +(for)f Fq(MSTP\(91\)=2)p Fw(,)k(i.e.)41 b(exp)q(\()p +Fn(\000)p Fj(k)2453 538 y Fk(?)2512 523 y Fj(=\033)t +Fw(\))17 b Fj(k)2726 538 y Fk(?)2801 523 y Fw(d)p Fj(k)2906 +538 y Fk(?)2991 523 y Fw(with)26 b Fj(\033)32 b Fw(=)p +Fq(PARP\(92\))472 646 y Fw(and)k Fn(h)p Fj(k)758 610 +y Fl(2)755 671 y Fk(?)814 646 y Fn(i)d Fw(=)g(6)p Fn(\002)p +Fq(PARP\(92\))1529 610 y Fl(2)1571 646 y Fw(.)53 b(Th)m(us)38 +b(one)e(should)g(put)g Fq(PARP\(92\))p Fn(\031)p Fq(PARP\(91\))p +Fj(=)3521 564 y Fn(p)p 3608 564 49 4 v 3608 646 a Fw(6)g(to)472 +755 y(ha)m(v)m(e)e(con)m(tin)m(uit)m(y)f(with)f(the)h(option)f(ab)s(o)m +(v)m(e.)0 863 y Fq(PARP\(93\))53 b(:)48 b Fw(\(D=2.)110 +b(GeV/)p Fj(c)p Fw(\))55 b(\(C\))h(upp)s(er)g(cut-o\013)f(for)f +(primordial)e Fj(k)2867 878 y Fk(?)2981 863 y Fw(distribution)h(inside) +472 971 y(hadron.)0 1080 y Fq(PARP\(94\))g(:)48 b Fw(\(D=1.\))71 +b(\(C\))43 b(for)f Fq(MSTP\(92\))p Fn(\025)k Fw(2)c(this)g(giv)m(es)h +(the)g(v)-5 b(alue)41 b(of)h(the)h(parameter)f Fj(k)j +Fw(for)472 1188 y(the)31 b(case)g(when)h(a)e(meson)g(or)g(resolv)m(ed)i +(photon)e(remnan)m(t)g(is)g(split)f(in)m(to)h(t)m(w)m(o)h(fragmen)m(ts) +472 1296 y(\(whic)m(h)i(is)g(whic)m(h)g(is)f(c)m(hosen)i(at)e +(random\).)0 1405 y Fq(PARP\(95\))53 b(:)48 b Fw(\(D=0.\))h(\(C\))36 +b(for)e Fq(MSTP\(94\)=2)k Fw(this)c(giv)m(es)i(the)f(v)-5 +b(alue)34 b(of)h(the)g(parameter)g Fj(k)j Fw(for)c(the)472 +1513 y(case)43 b(when)f(a)f(meson)h(or)f(resolv)m(ed)h(photon)f(remnan) +m(t)g(is)g(split)f(in)m(to)h(a)g(meson)g(and)h(a)472 +1621 y(sp)s(ectator)33 b(fragmen)m(t)e(jet,)h(with)f +Fj(\037)h Fw(giving)e(the)i(energy)h(fraction)e(tak)m(en)h(b)m(y)h(the) +f(meson.)0 1730 y Fq(PARP\(96\))53 b(:)48 b Fw(\(D=3.\))42 +b(\(C\))32 b(for)e Fq(MSTP\(92\))p Fn(\025)h Fw(2)g(this)f(giv)m(es)i +(the)g(v)-5 b(alue)31 b(of)f(the)i(parameter)f Fj(k)j +Fw(for)d(the)472 1838 y(case)43 b(when)f(a)g(n)m(ucleon)g(remnan)m(t)f +(is)g(split)f(in)m(to)h(a)g(diquark)h(and)g(a)f(quark)h(fragmen)m(t,) +472 1947 y(with)33 b Fj(\037)f Fw(giving)f(the)i(energy)h(fraction)d +(tak)m(en)j(b)m(y)f(the)g(quark)h(jet.)0 2055 y Fq(PARP\(97\))53 +b(:)48 b Fw(\(D=1.\))h(\(C\))36 b(for)e Fq(MSTP\(94\)=2)k +Fw(this)c(giv)m(es)i(the)f(v)-5 b(alue)34 b(of)h(the)g(parameter)g +Fj(k)j Fw(for)c(the)472 2163 y(case)c(when)h(a)e(n)m(ucleon)g(remnan)m +(t)g(is)g(split)f(in)m(to)g(a)h(bary)m(on)h(and)f(a)g(quark)h(jet)f(or) +g(a)f(meson)472 2272 y(and)k(a)g(diquark)f(jet,)h(with)g +Fj(\037)f Fw(giving)f(the)i(energy)h(fraction)d(tak)m(en)j(b)m(y)g(the) +f(quark)g(jet)g(or)472 2380 y(meson,)h(resp)s(ectiv)m(ely)-8 +b(.)0 2488 y Fq(PARP\(98\))53 b(:)48 b Fw(\(D=0.75\))28 +b(\(C\))h(for)f Fq(MSTP\(92\)=5)k Fw(this)d(giv)m(es)g(the)g(p)s(o)m(w) +m(er)h(of)f(an)g(assumed)h(basic)f(1)p Fj(=\037)3746 +2452 y Fh(b)472 2597 y Fw(b)s(eha)m(viour)k(in)f(the)h(splitting)d +(distribution,)h(with)h Fj(b)c Fw(=)p Fq(PARP\(98\))p +Fw(.)0 2705 y Fq(PARP\(99\))53 b(:)48 b Fw(\(D=0.44)36 +b(GeV/)p Fj(c)p Fw(\))h(\(C\))h(width)f(parameter)g(of)g(primordial)d +Fj(k)2903 2720 y Fk(?)2999 2705 y Fw(distribution)h(inside)472 +2813 y(photon;)e(exact)h(meaning)d(dep)s(ends)j(on)f +Fq(MSTP\(93\))i Fw(v)-5 b(alue)32 b(c)m(hosen)i(\(cf.)44 +b Fq(PARP\(91\))34 b Fw(and)472 2922 y Fq(PARP\(92\))h +Fw(ab)s(o)m(v)m(e\).)0 3030 y Fq(PARP\(100\))54 b(:)47 +b Fw(\(D=2.)42 b(GeV/)p Fj(c)p Fw(\))30 b(\(C\))g(upp)s(er)g(cut-o\013) +g(for)f(primordial)e Fj(k)2698 3045 y Fk(?)2786 3030 +y Fw(distribution)h(inside)i(pho-)472 3138 y(ton.)0 3247 +y Fq(PARP\(131\))54 b(:)47 b Fw(\(D=0.01)22 b(m)m(b)1129 +3210 y Fk(\000)p Fl(1)1224 3247 y Fw(\))h(in)g(the)h(pile-up)e(ev)m(en) +m(ts)k(scenario,)g Fq(PARP\(131\))g Fw(giv)m(es)e(the)g(assumed)472 +3355 y(luminosit)m(y)35 b(p)s(er)i(bunc)m(h{bunc)m(h)i(crossing,)e +(i.e.)55 b(if)36 b(a)g(subpro)s(cess)j(has)e(a)f(cross)h(section)472 +3463 y Fj(\033)t Fw(,)52 b(the)c(a)m(v)m(erage)h(n)m(um)m(b)s(er)f(of)f +(ev)m(en)m(ts)k(of)c(this)g(t)m(yp)s(e)i(p)s(er)f(bunc)m(h{bunc)m(h)i +(crossing)e(is)p 472 3519 59 4 v 472 3572 a Fj(n)41 b +Fw(=)f Fj(\033)t Fn(\002)p Fq(PARP\(131\))p Fw(.)69 b +Fq(PARP\(131\))42 b Fw(ma)m(y)e(b)s(e)g(obtained)f(b)m(y)i(dividing)d +(the)j(in)m(tegrated)472 3680 y(luminosit)m(y)23 b(o)m(v)m(er)j(a)e +(giv)m(en)h(time)e(\(1)h(s,)j(sa)m(y\))e(b)m(y)h(the)f(n)m(um)m(b)s(er) +g(of)f(bunc)m(h{bunc)m(h)j(crossings)472 3788 y(that)35 +b(this)g(corresp)s(onds)h(to.)51 b(Since)35 b(the)h(program)d(will)g +(not)i(generate)h(more)e(than)h(200)472 3897 y(pile-up)d(ev)m(en)m(ts,) +j(the)e(initialization)27 b(pro)s(cedure)33 b(will)d(crash)k(if)p +2839 3844 V 31 w Fj(n)f Fw(is)f(ab)s(o)m(v)m(e)h(120.)1817 +5953 y(228)p eop +%%Page: 229 235 +229 234 bop 0 -18 a Ft(12)161 b(F)-13 b(ragmen)l(tation)0 +189 y Fw(The)39 b(main)e(fragmen)m(tation)g(option)g(in)h +Fm(Jetset/Pythia)f Fw(is)h(the)h(Lund)g(string)f(sc)m(heme,)j(but)e +(in-)0 297 y(dep)s(enden)m(t)h(fragmen)m(tation)35 b(options)j(are)f +(also)g(a)m(v)-5 b(ailable.)57 b(These)39 b(latter)e(options)g(should)h +(not)f(b)s(e)0 405 y(tak)m(en)42 b(to)s(o)f(seriously)-8 +b(,)43 b(since)e(w)m(e)i(kno)m(w)f(that)f(indep)s(enden)m(t)h(fragmen)m +(tation)e(do)s(es)h(not)g(pro)m(vide)h(a)0 514 y(consisten)m(t)47 +b(alternativ)m(e,)i(but)d(o)s(ccasionally)e(one)i(ma)m(y)g(lik)m(e)g +(to)f(compare)h(string)f(fragmen)m(tation)0 622 y(with)32 +b(something)g(else.)146 730 y(The)e(subsequen)m(t)i(four)d(subsections) +h(giv)m(e)f(further)g(details;)g(the)h(\014rst)f(one)g(on)g(\015a)m(v)m +(our)h(selection,)0 839 y(whic)m(h)39 b(is)f(common)f(to)i(the)g(t)m(w) +m(o)g(approac)m(hes,)i(the)f(second)f(on)g(string)f(fragmen)m(tation,)g +(the)h(third)0 947 y(on)d(indep)s(enden)m(t)h(fragmen)m(tation,)e +(while)f(the)j(fourth)e(and)h(\014nal)f(con)m(tains)h(information)d(on) +i(a)h(few)0 1055 y(other)d(minor)e(issues.)146 1164 y(The)k(Lund)g +(fragmen)m(tation)d(mo)s(del)g(is)h(describ)s(ed)i(in)e([And83],)i +(where)g(all)d(the)i(basic)g(ideas)f(are)0 1272 y(presen)m(ted)39 +b(and)f(earlier)d(pap)s(ers)j([And79,)f(And80,)g(And82,)h(And82a)o(])g +(summarized.)56 b(The)38 b(details)0 1380 y(giv)m(en)47 +b(there)h(on)e(ho)m(w)i(a)f(m)m(ultiparton)d(jet)j(system)h(is)e(allo)m +(w)m(ed)g(to)h(fragmen)m(t)f(are)h(out)g(of)f(date,)0 +1489 y(ho)m(w)m(ev)m(er,)40 b(and)d(for)f(this)g(one)h(should)f(turn)h +(to)f([Sj\177)-49 b(o84)o(].)56 b(Also)36 b(the)h(`p)s(op)s(corn')f +(bary)m(on)h(pro)s(duction)0 1597 y(mec)m(hanism)31 b(is)h(not)f(co)m +(v)m(ered,)k(see)e([And85].)43 b(Reviews)33 b(of)e(fragmen)m(tation)f +(mo)s(dels)h(in)g(general)h(ma)m(y)0 1705 y(b)s(e)h(found)f(in)g +([Sj\177)-49 b(o88,)32 b(Sj\177)-49 b(o89].)0 1979 y +Fp(12.1)136 b(Fla)l(v)l(our)45 b(Selection)0 2152 y Fw(In)37 +b(either)g(string)f(or)g(indep)s(enden)m(t)i(fragmen)m(tation,)e(an)h +(iterativ)m(e)f(approac)m(h)h(is)f(used)i(to)f(describ)s(e)0 +2260 y(the)e(fragmen)m(tation)d(pro)s(cess.)50 b(Giv)m(en)34 +b(an)g(initial)d(quark)k(q)c(=)g(q)2406 2275 y Fl(0)2446 +2260 y Fw(,)j(it)g(is)f(assumed)i(that)f(a)g(new)i(q)3649 +2275 y Fl(1)p 3689 2207 52 4 v 3689 2260 a Fw(q)3740 +2284 y Fl(1)0 2369 y Fw(pair)e(ma)m(y)h(b)s(e)g(created,)i(suc)m(h)f +(that)f(a)g(meson)g(q)1796 2384 y Fl(0)p 1836 2316 V +1836 2369 a Fw(q)1887 2392 y Fl(1)1962 2369 y Fw(is)f(formed,)h(and)g +(a)g(q)2747 2384 y Fl(1)2822 2369 y Fw(is)f(left)h(b)s(ehind.)50 +b(This)36 b(q)3740 2384 y Fl(1)0 2477 y Fw(ma)m(y)29 +b(at)f(a)h(later)f(stage)h(pair)f(o\013)h(with)f(a)p +1499 2424 V 29 w(q)1550 2500 y Fl(2)1590 2477 y Fw(,)i(and)f(so)g(on.) +42 b(What)29 b(need)h(b)s(e)f(giv)m(en)g(is)g(th)m(us)h(the)f(relativ)m +(e)0 2595 y(probabilities)k(to)i(pro)s(duce)i(the)f(v)-5 +b(arious)35 b(p)s(ossible)g(q)1988 2610 y Fh(i)p 2016 +2542 V 2016 2595 a Fw(q)2068 2618 y Fh(i)2132 2595 y +Fw(pairs,)h(u)p 2456 2542 55 4 v(u,)h(d)p 2628 2515 V(d,)g(s)p +2784 2542 39 4 v(s,)g(etc.,)g(and)f(the)g(relativ)m(e)0 +2703 y(probilities)30 b(that)i(a)g(giv)m(en)h(q)1054 +2718 y Fh(i)p Fk(\000)p Fl(1)p 1173 2650 52 4 v 1173 +2703 a Fw(q)1224 2726 y Fh(i)1285 2703 y Fw(quark)g(pair)f(com)m +(bination)e(forms)i(a)h(sp)s(eci\014c)g(meson,)f(e.g.)44 +b(for)32 b(u)p 3725 2650 55 4 v(u)0 2811 y(either)g Fj(\031)335 +2775 y Fl(+)394 2811 y Fw(,)h Fj(\032)504 2775 y Fl(+)596 +2811 y Fw(or)f(some)g(higher)h(state.)146 2920 y(In)c +Fm(Jetset)p Fw(,)f(it)f(is)h(assumed)h(that)f(the)h(t)m(w)m(o)g(asp)s +(ects)g(can)f(b)s(e)h(factorized,)g(i.e.)41 b(that)28 +b(it)f(is)h(p)s(ossible)0 3028 y(\014rst)42 b(to)g(select)g(a)g(q)756 +3043 y Fh(i)p 785 2975 52 4 v 785 3028 a Fw(q)836 3051 +y Fh(i)906 3028 y Fw(pair,)h(without)f(an)m(y)g(reference)i(to)d(allo)m +(w)m(ed)g(ph)m(ysical)h(meson)g(states,)j(and)0 3136 +y(that,)40 b(once)f(the)h(q)700 3151 y Fh(i)p Fk(\000)p +Fl(1)p 818 3083 V 818 3136 a Fw(q)870 3160 y Fh(i)937 +3136 y Fw(\015a)m(v)m(our)f(com)m(bination)e(is)h(giv)m(en,)i(it)e(can) +h(b)s(e)g(assigned)g(to)f(a)h(giv)m(en)f(meson)0 3245 +y(state)33 b(with)f(total)f(probabilit)m(y)g(unit)m(y)-8 +b(.)0 3492 y Fo(12.1.1)113 b(Quark)38 b(\015a)m(v)m(ours)g(and)g +(transv)m(erse)g(momen)m(ta)0 3665 y Fw(In)j(order)f(to)g(generate)h +(the)f(quark{an)m(tiquark)h(pairs)f(q)2132 3680 y Fh(i)p +2161 3612 V 2161 3665 a Fw(q)2212 3689 y Fh(i)2280 3665 +y Fw(whic)m(h)h(lead)f(to)g(string)f(breakups,)44 b(the)0 +3773 y(Lund)33 b(mo)s(del)d(in)m(v)m(ok)m(es)k(the)f(idea)e(of)h(quan)m +(tum)h(mec)m(hanical)e(tunnelling,)f(as)j(follo)m(ws.)42 +b(If)32 b(the)h(q)3562 3788 y Fh(i)3622 3773 y Fw(and)p +0 3829 V 0 3882 a(q)51 3905 y Fh(i)106 3882 y Fw(ha)m(v)m(e)28 +b(no)f(\(common\))e(mass)i(or)f(transv)m(erse)j(momen)m(tum,)e(the)g +(pair)f(can)h(classically)d(b)s(e)j(created)h(at)0 3990 +y(one)e(p)s(oin)m(t)f(and)h(then)g(b)s(e)g(pulled)f(apart)h(b)m(y)g +(the)h(\014eld.)41 b(If)26 b(the)g(quarks)h(ha)m(v)m(e)g(mass)f(and/or) +f(transv)m(erse)0 4098 y(momen)m(tum,)32 b(ho)m(w)m(ev)m(er,)k(the)e(q) +1162 4113 y Fh(i)1224 4098 y Fw(and)p 1414 4046 V 33 +w(q)1466 4122 y Fh(i)1527 4098 y Fw(m)m(ust)g(classically)d(b)s(e)j +(pro)s(duced)g(at)f(a)g(certain)g(distance)g(so)0 4207 +y(that)28 b(the)g(\014eld)g(energy)h(b)s(et)m(w)m(een)h(them)d(can)h(b) +s(e)g(transformed)g(in)m(to)f(the)h(sum)g(of)f(the)i(t)m(w)m(o)f +(transv)m(erse)0 4315 y(masses)f Fj(m)400 4330 y Fk(?)459 +4315 y Fw(.)41 b(Quan)m(tum)26 b(mec)m(hanically)-8 b(,)25 +b(the)i(quarks)g(ma)m(y)f(b)s(e)g(created)h(in)e(one)h(p)s(oin)m(t)f +(\(so)h(as)g(to)g(k)m(eep)0 4423 y(the)37 b(concept)g(of)f(lo)s(cal)d +(\015a)m(v)m(our)k(conserv)-5 b(ation\))36 b(and)h(then)g(tunnel)f(out) +g(to)f(the)i(classically)d(allo)m(w)m(ed)0 4532 y(region.)61 +b(In)39 b(terms)f(of)g(a)h(common)e(transv)m(erse)k(mass)d +Fj(m)2153 4547 y Fk(?)2251 4532 y Fw(of)g(the)h(q)2593 +4547 y Fh(i)2661 4532 y Fw(and)f(the)p 3031 4479 V 40 +w(q)3082 4555 y Fh(i)3110 4532 y Fw(,)i(the)f(tunnelling)0 +4640 y(probabilit)m(y)31 b(is)h(giv)m(en)g(b)m(y)909 +4917 y(exp)1075 4771 y Fg( )1140 4917 y Fn(\000)1227 +4849 y Fj(\031)t(m)1371 4813 y Fl(2)1371 4874 y Fk(?)p +1227 4894 204 4 v 1301 4985 a Fj(\024)1441 4771 y Fg(!)1535 +4917 y Fw(=)27 b(exp)1804 4771 y Fg( )1869 4917 y Fn(\000)1956 +4849 y Fj(\031)t(m)2100 4813 y Fl(2)p 1956 4894 184 4 +v 2021 4985 a Fj(\024)2151 4771 y Fg(!)2233 4917 y Fw(exp)2398 +4771 y Fg( )2464 4917 y Fn(\000)2551 4849 y Fj(\031)t(p)2659 +4813 y Fl(2)2659 4874 y Fk(?)p 2551 4894 167 4 v 2607 +4985 a Fj(\024)2729 4771 y Fg(!)2843 4917 y Fj(:)687 +b Fw(\(175\))146 5194 y(The)32 b(factorization)d(of)h(the)h(transv)m +(erse)i(momen)m(tum)d(and)h(the)g(mass)g(terms)f(leads)h(to)g(a)f +(\015a)m(v)m(our-)0 5302 y(indep)s(enden)m(t)42 b(Gaussian)e(sp)s +(ectrum)h(for)f(the)h Fj(p)1804 5317 y Fh(x)1888 5302 +y Fw(and)g Fj(p)2135 5317 y Fh(y)2217 5302 y Fw(comp)s(onen)m(ts)g(of)f +(q)2932 5317 y Fh(i)p 2960 5249 52 4 v 2960 5302 a Fw(q)3012 +5325 y Fh(i)3080 5302 y Fw(pairs.)67 b(Since)41 b(the)0 +5410 y(string)23 b(is)h(assumed)g(to)g(ha)m(v)m(e)h(no)f(transv)m(erse) +i(excitations,)f(this)f Fj(p)2389 5425 y Fk(?)2471 5410 +y Fw(is)g(lo)s(cally)d(comp)s(ensated)j(b)s(et)m(w)m(een)0 +5519 y(the)32 b(quark)h(and)f(the)g(an)m(tiquark)g(of)g(the)g(pair.)42 +b(The)33 b Fj(p)2005 5534 y Fk(?)2096 5519 y Fw(of)e(a)h(meson)g(q)2636 +5534 y Fh(i)p Fk(\000)p Fl(1)p 2754 5466 V 2754 5519 +a Fw(q)2806 5542 y Fh(i)2866 5519 y Fw(is)f(giv)m(en)h(b)m(y)h(the)f(v) +m(ector)0 5627 y(sum)c(of)f(the)i Fj(p)521 5642 y Fk(?)580 +5627 y Fw(:s)f(of)g(the)g(q)994 5642 y Fh(i)p Fk(\000)p +Fl(1)1141 5627 y Fw(and)p 1326 5574 V 28 w(q)1377 5651 +y Fh(i)1433 5627 y Fw(constituen)m(ts,)j(whic)m(h)d(implies)e +(Gaussians)i(in)f Fj(p)3215 5642 y Fh(x)3286 5627 y Fw(and)i +Fj(p)3521 5642 y Fh(y)3590 5627 y Fw(with)1817 5953 y(229)p +eop +%%Page: 230 236 +230 235 bop 0 -18 a Fw(a)33 b(width)359 -100 y Fn(p)p +442 -100 49 4 v 82 x Fw(2)g(that)g(of)g(the)h(quarks)g(themselv)m(es.) +47 b(The)34 b(assumption)f(of)g(a)g(Gaussian)f(shap)s(e)i(ma)m(y)f(b)s +(e)0 90 y(a)h(go)s(o)s(d)f(\014rst)h(appro)m(ximation,)f(but)h(there)h +(remains)e(the)i(p)s(ossibilit)m(y)d(of)h(non-Gaussian)h(tails,)f(that) +0 198 y(can)g(b)s(e)g(imp)s(ortan)m(t)d(in)i(some)g(situations.)146 +307 y(In)24 b(a)e(p)s(erturbativ)m(e)i(QCD)f(framew)m(ork,)i(a)e(hard)g +(scattering)f(is)h(asso)s(ciated)g(with)g(gluon)f(radiation,)0 +415 y(and)40 b(further)g(con)m(tributions)f(to)h(what)g(is)g(na)-11 +b(\177)-38 b(\020v)m(ely)39 b(called)g(fragmen)m(tation)f +Fj(p)2926 430 y Fk(?)3025 415 y Fw(comes)i(from)e(unre-)0 +523 y(solv)m(ed)c(radiation.)43 b(This)33 b(is)f(used)j(as)e(an)g +(explanation)f(wh)m(y)i(the)g(exp)s(erimen)m(tal)e Fn(h)p +Fj(p)3127 538 y Fk(?)3186 523 y Fn(i)h Fw(is)f(somewhat)0 +632 y(higher)g(than)h(obtained)f(with)g(the)h(form)m(ula)e(ab)s(o)m(v)m +(e.)146 740 y(The)45 b(form)m(ula)c(also)h(implies)f(a)i(suppression)i +(of)e(hea)m(vy)i(quark)f(pro)s(duction)f Fj(u)i Fw(:)h +Fj(d)g Fw(:)g Fj(s)g Fw(:)g Fj(c)g Fn(\031)0 848 y Fw(1)27 +b(:)h(1)g(:)f(0)p Fj(:)p Fw(3)h(:)g(10)568 812 y Fk(\000)p +Fl(11)697 848 y Fw(.)41 b(Charm)24 b(and)h(hea)m(vier)h(quarks)g(are)f +(hence)h(not)f(exp)s(ected)i(to)e(b)s(e)g(pro)s(duced)h(in)e(the)0 +957 y(soft)j(fragmen)m(tation.)40 b(Since)28 b(the)f(predicted)h(\015a) +m(v)m(our)g(suppressions)h(are)f(in)e(terms)i(of)e(quark)j(masses,)0 +1065 y(whic)m(h)36 b(are)g(notoriously)e(di\016cult)h(to)g(assign)g +(\(should)g(it)g(b)s(e)h(curren)m(t)g(algebra,)g(or)f(constituen)m(t,)i +(or)0 1173 y(ma)m(yb)s(e)26 b(something)e(in)h(b)s(et)m(w)m(een?\),)k +(the)d(suppression)h(of)e(s)p 2171 1120 39 4 v(s)h(pro)s(duction)f(is)g +(left)g(as)h(a)f(free)h(parameter)0 1292 y(in)g(the)h(program:)39 +b(u)p 749 1239 55 4 v(u)27 b(:)40 b(d)p 951 1213 V(d)27 +b(:)41 b(s)p 1138 1239 39 4 v(s)27 b(=)g(1)f(:)40 b(1)27 +b(:)40 b Fj(\015)1642 1307 y Fh(s)1679 1292 y Fw(,)27 +b(where)h(b)m(y)g(default)e Fj(\015)2512 1307 y Fh(s)2576 +1292 y Fw(=)h(0)p Fj(:)p Fw(3.)41 b(A)m(t)27 b(least)f(qualitativ)m +(ely)-8 b(,)0 1401 y(the)31 b(exp)s(erimen)m(tal)f(v)-5 +b(alue)30 b(agrees)h(with)g(theoretical)e(prejudice.)43 +b(There)32 b(is)e(no)h(pro)s(duction)f(at)g(all)f(of)0 +1509 y(hea)m(vier)k(\015a)m(v)m(ours)h(in)e(the)h(fragmen)m(tation)d +(pro)s(cess,)k(but)f(only)f(as)h(part)f(of)g(the)h(sho)m(w)m(er)i(ev)m +(olution.)0 1757 y Fo(12.1.2)113 b(Meson)38 b(pro)s(duction)0 +1929 y Fw(Once)e(the)g(\015a)m(v)m(ours)h(q)838 1944 +y Fh(i)p Fk(\000)p Fl(1)992 1929 y Fw(and)p 1184 1877 +52 4 v 35 w(q)1236 1953 y Fh(i)1299 1929 y Fw(ha)m(v)m(e)g(b)s(een)f +(selected,)h(a)e(c)m(hoice)h(is)f(made)g(b)s(et)m(w)m(een)i(the)f(p)s +(ossible)0 2038 y(m)m(ultiplets.)42 b(The)34 b(relativ)m(e)e(comp)s +(osition)e(of)i(di\013eren)m(t)h(m)m(ultiplets)e(is)h(not)h(giv)m(en)f +(from)g(\014rst)h(princi-)0 2146 y(ples,)26 b(but)e(m)m(ust)g(dep)s +(end)h(on)e(the)h(details)f(of)g(the)i(fragmen)m(tation)c(pro)s(cess.) +42 b(T)-8 b(o)24 b(some)g(appro)m(ximation)0 2254 y(one)37 +b(w)m(ould)f(exp)s(ect)i(a)e(negligible)d(fraction)j(of)f(states)j +(with)e(radial)e(excitations)i(or)g(non-v)-5 b(anishing)0 +2363 y(orbital)34 b(angular)h(momen)m(tum.)53 b(Spin)35 +b(coun)m(ting)h(argumen)m(ts)h(w)m(ould)f(then)h(suggest)g(a)e(3:1)h +(mixture)0 2471 y(b)s(et)m(w)m(een)i(the)f(lo)m(w)m(est)g(lying)e(v)m +(ector)i(and)g(pseudoscalar)g(m)m(ultiplets.)52 b(W)-8 +b(a)m(v)m(e)38 b(function)e(o)m(v)m(erlap)g(ar-)0 2579 +y(gumen)m(ts)d(lead)f(to)h(a)f(relativ)m(e)g(enhancemen)m(t)i(of)e(the) +h(ligh)m(ter)f(pseudoscalar)h(states,)h(whic)m(h)f(is)f(more)0 +2688 y(pronounced)i(the)f(larger)e(the)i(mass)g(splitting)d(is)i +([And82a].)146 2796 y(In)g(the)g(program,)e(six)i(meson)f(m)m +(ultiplets)e(are)j(included.)43 b(If)31 b(the)h(nonrelativistic)d +(classi\014cation)0 2904 y(sc)m(heme)38 b(is)f(used,)i(i.e.)56 +b(mesons)38 b(are)f(assigned)g(a)g(v)-5 b(alence)37 b(quark)g(spin)g +Fj(S)43 b Fw(and)37 b(an)g(in)m(ternal)f(orbital)0 3013 +y(angular)27 b(momen)m(tum)g Fj(L)p Fw(,)j(with)e(the)h(ph)m(ysical)g +(spin)f Fj(s)h Fw(denoted)g Fj(J)9 b Fw(,)30 b Fo(J)d +Fw(=)h Fo(L)14 b Fw(+)g Fo(S)p Fw(,)29 b(then)h(the)f(m)m(ultiplets)0 +3121 y(are:)145 3234 y Fn(\017)49 b Fj(L)28 b Fw(=)f(0,)33 +b Fj(S)g Fw(=)28 b(0,)k Fj(J)37 b Fw(=)28 b(0:)43 b(the)33 +b(ordinary)f(pseudoscalar)h(meson)f(m)m(ultiplet;)145 +3352 y Fn(\017)49 b Fj(L)28 b Fw(=)f(0,)33 b Fj(S)g Fw(=)28 +b(1,)k Fj(J)37 b Fw(=)28 b(1:)43 b(the)33 b(ordinary)f(v)m(ector)h +(meson)g(m)m(ultiplet;)145 3470 y Fn(\017)49 b Fj(L)28 +b Fw(=)f(1,)33 b Fj(S)g Fw(=)28 b(0,)k Fj(J)37 b Fw(=)28 +b(1:)43 b(an)32 b(axial)f(v)m(ector)j(meson)e(m)m(ultiplet;)145 +3588 y Fn(\017)49 b Fj(L)28 b Fw(=)f(1,)33 b Fj(S)g Fw(=)28 +b(1,)k Fj(J)37 b Fw(=)28 b(0:)43 b(the)33 b(scalar)f(meson)g(m)m +(ultiplet;)145 3705 y Fn(\017)49 b Fj(L)28 b Fw(=)f(1,)33 +b Fj(S)g Fw(=)28 b(1,)k Fj(J)37 b Fw(=)28 b(1:)43 b(another)33 +b(axial)d(v)m(ector)k(meson)f(m)m(ultiplet;)d(and)145 +3823 y Fn(\017)49 b Fj(L)28 b Fw(=)f(1,)33 b Fj(S)g Fw(=)28 +b(1,)k Fj(J)37 b Fw(=)28 b(2:)43 b(the)33 b(tensor)g(meson)g(m)m +(ultiplet.)0 3936 y(Eac)m(h)f(m)m(ultiplet)c(has)j(the)g(full)d +(four-generation)i(setup)h(of)f(8)18 b Fn(\002)h Fw(8)30 +b(states)i(included)e(in)g(the)h(program,)0 4045 y(although)h(man)m(y)h +(could)g(nev)m(er)i(actually)d(b)s(e)i(pro)s(duced.)46 +b(Some)33 b(simpli\014cations)d(ha)m(v)m(e)35 b(b)s(een)f(made;)0 +4153 y(th)m(us)g(there)f(is)f(no)g(mixing)f(included)h(b)s(et)m(w)m +(een)j(the)e(t)m(w)m(o)g(axial)e(v)m(ector)i(m)m(ultiplets.)146 +4261 y(In)28 b(the)h(program,)e(the)i(spin)e Fj(S)34 +b Fw(is)27 b(\014rst)i(c)m(hosen)g(to)e(b)s(e)i(either)e(0)h(or)f(1.)42 +b(This)28 b(is)f(done)i(according)e(to)0 4370 y(parametrized)h(relativ) +m(e)h(probabilities,)e(where)k(the)e(probabilit)m(y)e(for)i(spin)g(1)g +(b)m(y)h(default)f(is)g(tak)m(en)h(to)0 4478 y(b)s(e)i(0.5)g(for)f(a)h +(meson)g(consisting)f(only)g(of)h(u)g(and)g(d)g(quark,)h(0.6)f(for)f +(one)h(whic)m(h)h(con)m(tains)f(s)g(as)g(w)m(ell,)0 4586 +y(and)h(0)p Fj(:)p Fw(75)f(for)g(quarks)i(with)e(c)h(or)f(hea)m(vier)h +(quark,)g(in)f(accordance)i(with)e(the)h(delib)s(erations)e(ab)s(o)m(v) +m(e.)146 4695 y(By)j(default,)g(it)e(is)i(assumed)g(that)f +Fj(L)d Fw(=)g(0,)k(suc)m(h)h(that)e(only)g(pseudoscalar)h(and)g(v)m +(ector)h(mesons)0 4803 y(are)k(pro)s(duced.)64 b(F)-8 +b(or)39 b(inclusion)e(of)i Fj(L)g Fw(=)g(1)g(pro)s(duction,)h(four)f +(parameters)g(can)g(b)s(e)g(used,)j(one)e(to)0 4911 y(giv)m(e)31 +b(the)g(probabilit)m(y)d(that)j(a)f Fj(S)k Fw(=)27 b(0)k(state)g(also)e +(has)i Fj(L)e Fw(=)e(1,)k(the)g(other)g(three)g(for)f(the)h(probabilit) +m(y)0 5020 y(that)h(a)h Fj(S)g Fw(=)28 b(1)k(state)h(has)g +Fj(L)28 b Fw(=)g(1)k(and)g Fj(J)42 b Fw(either)33 b(0,)f(1,)g(or)h(2.) +146 5128 y(F)-8 b(or)40 b(the)i(\015a)m(v)m(our-diagonal)d(meson)i +(states)g(u)p 1873 5075 55 4 v(u)q(,)i(d)p 2052 5049 +V(d)e(and)g(s)p 2383 5075 39 4 v(s)q(,)i(it)d(is)g(also)g(necessary)j +(to)e(include)0 5236 y(mixing)33 b(in)m(to)h(the)i(ph)m(ysical)e +(mesons.)52 b(This)35 b(is)f(done)i(according)e(to)h(a)g +(parametrization,)e(based)j(on)0 5345 y(the)d(mixing)e(angles)h(giv)m +(en)h(in)f(the)h(Review)g(of)f(P)m(article)g(Prop)s(erties)h([PDG88)o +(].)44 b(In)33 b(particular,)e(the)1817 5953 y(230)p +eop +%%Page: 231 237 +231 236 bop 0 -18 a Fw(default)32 b(c)m(hoices)h(corresp)s(ond)h(to) +1301 240 y Fj(\021)86 b Fw(=)1604 173 y(1)p 1604 217 +49 4 v 1604 309 a(2)1663 240 y(\(u)p 1755 188 55 4 v(u)22 +b(+)g(d)p 1983 161 V(d)q(\))g Fn(\000)2249 173 y Fw(1)p +2207 217 132 4 v 2207 235 a Fn(p)p 2290 235 49 4 v 82 +x Fw(2)2349 240 y(s)p 2387 188 39 4 v(s)34 b(;)1277 496 +y Fj(\021)1329 454 y Fk(0)1435 496 y Fw(=)1604 428 y(1)p +1604 472 49 4 v 1604 564 a(2)1663 496 y(\(u)p 1755 443 +55 4 v(u)22 b(+)g(d)p 1983 416 V(d)q(\))g(+)2247 428 +y(1)p 2206 472 132 4 v 2206 490 a Fn(p)p 2289 490 49 +4 v 82 x Fw(2)2348 496 y(s)p 2386 443 39 4 v(s)33 b(;)1288 +751 y Fj(!)86 b Fw(=)1646 683 y(1)p 1604 727 132 4 v +1604 745 a Fn(p)p 1687 745 49 4 v 82 x Fw(2)1746 751 +y(\(u)p 1838 698 55 4 v(u)22 b(+)g(d)p 2066 672 V(d)q(\))1294 +949 y Fj(\036)83 b Fw(=)g(s)p 1632 896 39 4 v(s)34 b +Fj(:)1826 b Fw(\(176\))0 1157 y(In)38 b(the)g Fj(\031)359 +1121 y Fl(0)424 1157 y Fn(\000)26 b Fj(\021)k Fn(\000)c +Fj(\021)760 1121 y Fk(0)820 1157 y Fw(system,)41 b(no)c(accoun)m(t)i +(is)e(therefore)h(tak)m(en)h(of)e(the)h(di\013erence)h(in)e(masses,)j +(an)0 1265 y(appro)m(ximation)i(whic)m(h)i(seems)h(to)e(lead)g(to)g(an) +h(o)m(v)m(erestimate)g(of)g Fj(\021)2618 1229 y Fk(0)2684 +1265 y Fw(rates)g([ALE92)q(].)77 b(Recen)m(tly)-8 b(,)0 +1374 y(parameters)28 b(ha)m(v)m(e)h(b)s(een)g(in)m(tro)s(duced)f(to)g +(allo)m(w)e(an)i(additional)d(`brute)k(force')f(suppression)h(of)f +Fj(\021)j Fw(and)0 1482 y Fj(\021)52 1446 y Fk(0)108 +1482 y Fw(states.)0 1730 y Fo(12.1.3)113 b(Bary)m(on)37 +b(pro)s(duction)0 1902 y Fw(Bary)m(on)g(pro)s(duction)e(ma)m(y)-8 +b(,)37 b(in)e(its)g(simplest)g(form,)h(b)s(e)g(obtained)g(b)m(y)h +(assuming)e(that)h(an)m(y)h(\015a)m(v)m(our)0 2011 y(q)51 +2026 y Fh(i)114 2011 y Fw(giv)m(en)d(ab)s(o)m(v)m(e)h(could)f(represen) +m(t)i(either)e(a)g(quark)h(or)f(an)g(an)m(tidiquark)g(in)f(a)h(colour)f +(triplet)g(state.)0 2119 y(Then)44 b(the)g(same)f(basic)g(mac)m(hinery) +g(can)h(b)s(e)f(run)h(through)f(as)g(ab)s(o)m(v)m(e,)k(supplemen)m(ted) +d(with)f(the)0 2227 y(probabilit)m(y)26 b(to)i(pro)s(duce)g(v)-5 +b(arious)27 b(diquark)h(pairs.)42 b(In)28 b(principle,)f(there)i(is)f +(one)g(parameter)f(for)h(eac)m(h)0 2336 y(diquark,)35 +b(but)g(if)e(tunnelling)g(is)g(still)g(assumed)i(to)f(giv)m(e)g(an)g +(e\013ectiv)m(e)i(description,)e(mass)h(relations)0 2444 +y(can)42 b(b)s(e)f(used)i(to)e(reduce)i(the)f(e\013ectiv)m(e)g(n)m(um)m +(b)s(er)g(of)f(parameters.)70 b(There)42 b(are)g(three)g(main)e(ones)0 +2552 y(app)s(earing)32 b(in)f(the)i(program:)145 2666 +y Fn(\017)49 b Fw(the)33 b(relativ)m(e)f(probabilit)m(y)e(to)j(pic)m(k) +f(a)p 1664 2613 52 4 v 33 w(q)p 1715 2613 V(q)h(diquark)g(rather)g +(than)f(a)g(q;)145 2783 y Fn(\017)49 b Fw(the)40 b(extra)g(suppression) +i(asso)s(ciated)d(with)h(a)f(diquark)h(con)m(taining)f(a)h(strange)g +(quark)g(\(o)m(v)m(er)244 2892 y(and)33 b(ab)s(o)m(v)m(e)g(the)g +(ordinary)f(s)p Fj(=)p Fw(u)h(suppression)h(factor)e +Fj(\015)2297 2907 y Fh(s)2333 2892 y Fw(\);)h(and)145 +3009 y Fn(\017)49 b Fw(the)35 b(suppression)g(of)f(spin)g(1)g(diquarks) +h(relativ)m(e)f(to)f(spin)i(0)f(ones)h(\(apart)e(from)g(the)i(factor)f +(of)244 3118 y(3)e(enhancemen)m(t)i(of)e(the)h(former)f(based)h(on)g +(coun)m(ting)f(the)h(n)m(um)m(b)s(er)g(of)f(spin)h(states\).)0 +3231 y(The)47 b(extra)g(strange)g(diquark)g(suppression)g(factor)f +(comes)h(ab)s(out)f(since)h(what)g(app)s(ears)f(in)g(the)0 +3339 y(exp)s(onen)m(t)32 b(of)f(the)g(tunnelling)e(form)m(ula)g(is)i +Fj(m)1691 3303 y Fl(2)1762 3339 y Fw(and)g(not)g Fj(m)p +Fw(,)g(so)g(that)g(the)h(diquark)f(and)g(the)g(strange)0 +3448 y(quark)i(suppressions)i(do)d(not)h(factorize.)146 +3556 y(Only)h(t)m(w)m(o)h(bary)m(on)g(m)m(ultiplets)d(are)i(included,)g +(i.e.)48 b(there)35 b(are)f(no)g Fj(L)d Fw(=)f(1)k(excited)h(states.)50 +b(The)0 3664 y(t)m(w)m(o)33 b(m)m(ultiplets)e(are:)145 +3777 y Fn(\017)49 b Fj(S)35 b Fw(=)29 b Fj(J)38 b Fw(=)29 +b(1)p Fj(=)p Fw(2:)45 b(the)34 b(`o)s(ctet')f(m)m(ultiplet)e(of)i +(SU\(3\))h(\(in)e(the)i(full)e(four-generation)g(scenario)h(in)244 +3886 y(the)g(program)e(168)h(states)h(are)g(a)m(v)-5 +b(ailable\);)145 4003 y Fn(\017)49 b Fj(S)33 b Fw(=)28 +b Fj(J)37 b Fw(=)27 b(3)p Fj(=)p Fw(2:)43 b(the)33 b(`decuplet')g(m)m +(ultiplet)d(of)j(SU\(3\))f(\(120)g(states)h(in)f(the)h(program\).)0 +4116 y(In)39 b(con)m(trast)h(to)e(the)i(meson)f(case,)i(di\013eren)m(t) +f(\015a)m(v)m(our)f(com)m(binations)f(ha)m(v)m(e)i(di\013eren)m(t)f(n)m +(um)m(b)s(ers)h(of)0 4225 y(states)33 b(a)m(v)-5 b(ailable:)41 +b(for)32 b(uuu)i(only)e(\001)1356 4189 y Fl(++)1470 4225 +y Fw(,)g(whereas)j(uds)e(ma)m(y)f(b)s(ecome)h(either)f(\003,)h(\006) +3113 4189 y Fl(0)3185 4225 y Fw(or)f(\006)3374 4189 y +Fk(\003)p Fl(0)3449 4225 y Fw(.)146 4333 y(An)41 b(imp)s(ortan)m(t)e +(constrain)m(t)h(is)g(that)g(a)h(bary)m(on)g(is)f(a)g(symmetric)f +(state)i(of)f(three)i(quarks,)h(ne-)0 4442 y(glecting)36 +b(the)j(colour)e(degree)i(of)e(freedom.)60 b(When)39 +b(a)e(diquark)h(and)g(a)g(quark)h(are)f(joined)f(to)h(form)0 +4550 y(a)j(bary)m(on,)i(the)f(com)m(bination)c(is)j(therefore)g(w)m +(eigh)m(ted)h(with)e(the)i(probabilit)m(y)d(that)h(they)i(form)e(a)0 +4658 y(symmetric)h(three-quark)j(state.)73 b(The)43 b(program)e +(implemen)m(tation)f(of)h(this)h(principle)f(is)h(to)g(\014rst)0 +4767 y(select)f(a)f(diquark)g(at)g(random,)i(with)e(the)h(strangeness)h +(and)e(spin)h(1)f(suppression)h(factors)g(ab)s(o)m(v)m(e)0 +4875 y(included,)31 b(but)f(then)h(to)f(accept)h(the)g(selected)g +(diquark)g(with)f(a)g(w)m(eigh)m(t)h(prop)s(ortional)c(to)j(the)h(n)m +(um-)0 4983 y(b)s(er)36 b(of)g(states)g(a)m(v)-5 b(ailable)34 +b(for)h(the)i(quark-diquark)f(com)m(bination.)52 b(This)36 +b(means)g(that,)g(w)m(ere)i(it)d(not)0 5092 y(for)d(the)h(tunnelling)d +(suppression)k(factors,)e(all)e(states)k(in)d(the)i Fo(SU\(6\))f +Fw(\(\015a)m(v)m(our)h Fo(SU\(3\))f Fw(times)g(spin)0 +5200 y Fo(SU\(2\))p Fw(\))41 b(56-m)m(ultiplet)c(w)m(ould)k(b)s(ecome)g +(equally)g(p)s(opulated.)68 b(Of)41 b(course)h(also)e(hea)m(vier)h +(bary)m(ons)0 5308 y(ma)m(y)g(come)f(from)g(the)h(fragmen)m(tation)e +(of)h(e.g.)69 b(c)41 b(quark)g(jets,)j(but)d(although)f(the)h(particle) +e(clas-)0 5417 y(si\014cation)i(sc)m(heme)i(used)g(in)e(the)h(program)f +(is)g Fo(SU\(16\))p Fw(,)j(i.e.)71 b(with)41 b(eigh)m(t)h(\015a)m(v)m +(ours,)j(all)40 b(p)s(ossible)0 5525 y(quark-diquark)31 +b(com)m(binations)d(can)j(b)s(e)f(related)g(to)g Fo(SU\(6\))g +Fw(b)m(y)h(symmetry)g(argumen)m(ts.)43 b(As)31 b(in)e(the)0 +5633 y(case)i(for)e(mesons,)i(one)f(could)f(imagine)e(an)j(explicit)e +(further)i(suppression)h(of)e(the)h(hea)m(vier)h(spin)e(3/2)1817 +5953 y(231)p eop +%%Page: 232 238 +232 237 bop 0 -18 a Fw(bary)m(ons.)45 b(W)-8 b(e)34 b(do)e(not)h(exp)s +(ect)h(it)e(to)g(b)s(e)h(an)g(imp)s(ortan)m(t)e(e\013ect,)j(since)f +(bary)m(on)h(mass)e(splittings)f(are)0 90 y(m)m(uc)m(h)i(smaller)e +(than)h(in)g(the)h(meson)g(case.)146 198 y(In)k(case)g(of)f(rejection,) +h(a)f(new)h(diquark)g(is)f(selected)h(and)g(tested,)h(etc.)55 +b(A)37 b(corresp)s(onding)f(pro-)0 307 y(cedure)43 b(is)f(used)h(for)e +(the)i(quark)g(selection)e(when)i(a)f(diquark)g(has)g(already)g(b)s +(een)h(formed)e(in)g(the)0 415 y(previous)34 b(step.)47 +b(Prop)s(erly)33 b(sp)s(eaking)g(b)s(oth)g(the)h(quark)g(and)g(the)g +(diquark)f(\015a)m(v)m(our)i(should)e(b)s(e)g(c)m(ho-)0 +523 y(sen)38 b(anew.)58 b(This)37 b(w)m(ould)g(b)s(ecome)h(a)e(tedious) +i(pro)s(cess,)h(since)f(also)e(the)i(hadron)f(pro)s(duced)h(in)e(the)0 +632 y(step)j(b)s(efore)f(w)m(ould)g(ha)m(v)m(e)h(to)f(b)s(e)g +(rejected.)61 b(In)38 b(practice)g(only)g(the)g(last)f(pro)s(duced)i +(pair,)g(b)s(e)f(that)0 740 y(the)33 b(quark)g(or)g(diquark)f(one,)h +(is)f(rejected.)45 b(The)34 b(error)e(in)m(tro)s(duced)h(b)m(y)g(this)g +(is)f(small.)146 848 y(A)45 b(more)f(general)f(framew)m(ork)i(for)f +(bary)m(on)h(pro)s(duction)f(is)g(the)g(`p)s(op)s(corn')h(one)g +([And85],)i(in)0 957 y(whic)m(h)26 b(diquarks)h(as)f(suc)m(h)h(are)f +(nev)m(er)i(pro)s(duced,)g(but)e(rather)g(bary)m(ons)h(app)s(ear)f +(from)e(the)j(successiv)m(e)0 1065 y(pro)s(duction)k(of)h(sev)m(eral)g +(q)976 1080 y Fh(i)p 1005 1012 52 4 v 1005 1065 a Fw(q)1056 +1088 y Fh(i)1117 1065 y Fw(pairs.)42 b(The)33 b(picture)f(is)g(the)g +(follo)m(wing.)41 b(Assume)32 b(that)g(the)g(original)d(q)0 +1173 y(is)j(red)h Fj(r)i Fw(and)e(the)p 703 1120 V 33 +w(q)g(is)p 885 1120 47 4 v 32 w Fj(r)s Fw(.)43 b(Normally)31 +b(a)h(new)h(q)1763 1188 y Fl(1)p 1803 1120 52 4 v 1803 +1173 a Fw(q)1855 1197 y Fl(1)1927 1173 y Fw(pair)e(pro)s(duced)j(in)e +(the)h(\014eld)f(w)m(ould)h(also)e(b)s(e)i Fj(r)p 3706 +1120 47 4 v 3 w(r)r Fw(,)0 1282 y(so)e(that)g(the)p 494 +1229 52 4 v 31 w(q)545 1305 y Fl(1)616 1282 y Fw(is)f(pulled)g(to)m(w)m +(ards)i(the)f(q)h(end)f(and)g(vice)g(v)m(ersa,)i(and)e(t)m(w)m(o)g +(separate)h(colour-singlet)0 1390 y(systems)h(q)p 412 +1337 V(q)464 1413 y Fl(1)536 1390 y Fw(and)f(q)776 1405 +y Fl(1)p 816 1337 V 816 1390 a Fw(q)g(are)g(formed.)43 +b(Occasionally)-8 b(,)30 b(the)j(q)2231 1405 y Fl(1)p +2271 1337 V 2271 1390 a Fw(q)2322 1413 y Fl(1)2394 1390 +y Fw(pair)e(ma)m(y)h(b)s(e)g(e.g.)43 b Fj(g)p 3177 1337 +51 4 v 4 w(g)35 b Fw(\()p Fj(g)g Fw(=)d(green\),)0 1498 +y(in)h(whic)m(h)h(case)g(there)g(is)f(no)h(net)f(colour)g(c)m(harge)h +(acting)f(on)g(either)g(q)2615 1513 y Fl(1)2689 1498 +y Fw(or)p 2809 1445 52 4 v 33 w(q)2860 1522 y Fl(1)2900 +1498 y Fw(.)46 b(Therefore,)35 b(the)f(pair)0 1607 y(cannot)i(gain)e +(energy)j(from)d(the)i(\014eld,)g(and)g(normally)d(w)m(ould)i(exist)h +(only)f(as)h(a)f(\015uctuation.)52 b(If)36 b(q)3740 1622 +y Fl(1)0 1715 y Fw(mo)m(v)m(es)f(to)m(w)m(ards)h(q)f(and)p +936 1662 V 35 w(q)987 1739 y Fl(1)1061 1715 y Fw(to)m(w)m(ards)p +1427 1662 V 36 w(q,)g(the)g(net)g(\014eld)g(remaining)d(b)s(et)m(w)m +(een)37 b(q)2981 1730 y Fl(1)3055 1715 y Fw(and)p 3247 +1662 V 35 w(q)3298 1739 y Fl(1)3372 1715 y Fw(is)p 3472 +1636 42 4 v 34 w Fj(b)q(b)e Fw(\()p Fj(b)g Fw(=)0 1834 +y(blue;)29 b Fj(g)14 b Fw(+)d Fj(r)30 b Fw(=)p 560 1755 +V 27 w Fj(b)e Fw(if)d(only)i(colour)f(triplets)g(are)h(assumed\).)42 +b(In)27 b(this)g(cen)m(tral)g(\014eld,)h(an)f(additional)d(q)3649 +1849 y Fl(2)p 3689 1781 52 4 v 3689 1834 a Fw(q)3740 +1858 y Fl(2)0 1942 y Fw(pair)31 b(can)h(b)s(e)g(created,)h(where)g(q) +1210 1957 y Fl(2)1282 1942 y Fw(no)m(w)g(is)e(pulled)g(to)m(w)m(ards)i +(qq)2339 1957 y Fl(1)2411 1942 y Fw(and)p 2600 1889 V +32 w(q)2652 1966 y Fl(2)2723 1942 y Fw(to)m(w)m(ards)p +3086 1889 V 33 w(q)p 3138 1889 V 1 w(q)3189 1966 y Fl(1)3229 +1942 y Fw(,)f(with)f(no)h(net)0 2051 y(colour)f(\014eld)h(b)s(et)m(w)m +(een)i(q)930 2066 y Fl(2)1002 2051 y Fw(and)p 1191 1998 +V 32 w(q)1243 2074 y Fl(2)1282 2051 y Fw(.)44 b(If)32 +b(this)f(is)h(all)e(that)i(happ)s(ens,)h(the)g(bary)m(on)f +Fj(B)37 b Fw(will)30 b(b)s(e)i(made)g(up)0 2159 y(out)i(of)g(q)339 +2174 y Fl(1)379 2159 y Fw(,)h(q)492 2174 y Fl(2)567 2159 +y Fw(and)g(some)f(q)1056 2174 y Fl(4)1130 2159 y Fw(pro)s(duced)i(b)s +(et)m(w)m(een)g(q)f(and)g(q)2265 2174 y Fl(1)2305 2159 +y Fw(,)g(and)p 2559 2081 80 4 v 35 w Fj(B)k Fw(of)p 2785 +2106 52 4 v 34 w(q)2837 2183 y Fl(1)2876 2159 y Fw(,)p +2938 2106 V 35 w(q)2990 2183 y Fl(2)3064 2159 y Fw(and)34 +b(some)p 3502 2106 V 35 w(q)3553 2183 y Fl(5)3593 2159 +y Fw(,)h(i.e.)0 2267 y(the)g Fj(B)40 b Fw(and)p 475 2189 +80 4 v 34 w Fj(B)g Fw(will)32 b(b)s(e)j(nearest)h(neigh)m(b)s(ours)e +(in)g(rank)h(and)g(share)g(t)m(w)m(o)g(quark)h(pairs.)49 +b(Sp)s(eci\014cally)-8 b(,)0 2376 y(q)51 2391 y Fl(1)124 +2376 y Fw(will)31 b(gain)h(energy)j(from)d(q)1116 2391 +y Fl(2)1189 2376 y Fw(in)h(order)g(to)g(end)h(up)g(on)f(mass)h(shell,)f +(and)g(the)h(tunnelling)d(form)m(ula)0 2484 y(for)h(an)h(e\013ectiv)m +(e)g(q)712 2499 y Fl(1)752 2484 y Fw(q)803 2499 y Fl(2)876 +2484 y Fw(diquark)f(is)g(reco)m(v)m(ered.)146 2592 y(P)m(art)c(of)f +(the)h(time,)f(sev)m(eral)h Fj(b)p 1232 2513 42 4 v(b)g +Fw(colour)f(pair)f(pro)s(ductions)h(ma)m(y)g(tak)m(e)i(place)e(b)s(et)m +(w)m(een)i(the)f(q)3555 2607 y Fl(1)3622 2592 y Fw(and)p +0 2648 52 4 v 0 2701 a(q)51 2724 y Fl(1)91 2701 y Fw(,)37 +b(ho)m(w)m(ev)m(er.)56 b(With)36 b(t)m(w)m(o)h(pro)s(duction)e(v)m +(ertices)j(q)1928 2716 y Fl(2)p 1967 2648 V 1967 2701 +a Fw(q)2019 2724 y Fl(2)2094 2701 y Fw(and)f(q)2339 2716 +y Fl(3)p 2379 2648 V 2379 2701 a Fw(q)2430 2724 y Fl(3)2469 +2701 y Fw(,)h(a)d(cen)m(tral)h(meson)p 3246 2648 V 36 +w(q)3298 2724 y Fl(2)3337 2701 y Fw(q)3388 2716 y Fl(3)3464 +2701 y Fw(ma)m(y)g(b)s(e)0 2809 y(formed,)e(surrounded)i(b)m(y)f(a)f +(bary)m(on)h(q)1467 2824 y Fl(4)1507 2809 y Fw(q)1558 +2824 y Fl(1)1597 2809 y Fw(q)1648 2824 y Fl(2)1723 2809 +y Fw(and)f(an)g(an)m(tibary)m(on)p 2543 2756 V 34 w(q)2595 +2833 y Fl(3)p 2634 2756 V 2634 2809 a Fw(q)2686 2833 +y Fl(1)p 2725 2756 V 2725 2809 a Fw(q)2777 2833 y Fl(5)2816 +2809 y Fw(.)48 b(W)-8 b(e)35 b(call)e(this)h(a)f Fj(B)5 +b(M)p 3699 2731 80 4 v 10 w(B)0 2917 y Fw(con\014guration)40 +b(to)h(distinguish)f(it)h(from)f(the)i(q)1804 2932 y +Fl(4)1843 2917 y Fw(q)1894 2932 y Fl(1)1934 2917 y Fw(q)1985 +2932 y Fl(2)2067 2917 y Fw(+)p 2184 2865 52 4 v 41 w(q)2235 +2941 y Fl(2)p 2275 2865 V 2275 2917 a Fw(q)2326 2941 +y Fl(1)p 2366 2865 V 2366 2917 a Fw(q)2417 2941 y Fl(5)2498 +2917 y Fj(B)p 2577 2839 80 4 v 5 w(B)k Fw(con\014guration)41 +b(ab)s(o)m(v)m(e.)70 b(F)-8 b(or)0 3026 y Fj(B)5 b(M)p +183 2948 V 10 w(B)37 b Fw(the)31 b Fj(B)36 b Fw(and)p +758 2948 V 31 w Fj(B)g Fw(only)31 b(share)g(one)g(quark{an)m(tiquark)h +(pair,)e(as)h(opp)s(osed)h(to)f(t)m(w)m(o)g(for)g Fj(B)p +3491 2948 V 5 w(B)36 b Fw(con-)0 3134 y(\014gurations.)41 +b(The)30 b(relativ)m(e)e(probabilit)m(y)e(for)j(a)f Fj(B)5 +b(M)p 1959 3056 V 10 w(B)34 b Fw(con\014guration)28 b(is)g(giv)m(en)h +(b)m(y)g(the)g(uncertain)m(t)m(y)0 3242 y(relation)42 +b(suppression)k(for)e(ha)m(ving)g(the)h(q)1621 3257 y +Fl(1)1705 3242 y Fw(and)p 1906 3190 52 4 v 44 w(q)1958 +3266 y Fl(1)2041 3242 y Fw(su\016cien)m(tly)h(far)d(apart)h(that)g(a)g +(meson)h(ma)m(y)0 3351 y(b)s(e)39 b(formed)g(in)f(b)s(et)m(w)m(een.)65 +b(Strictly)38 b(sp)s(eaking,)j(also)d(con\014gurations)h(lik)m(e)f +Fj(B)5 b(M)10 b(M)p 3131 3273 80 4 v 10 w(B)d Fw(,)41 +b Fj(B)5 b(M)10 b(M)g(M)p 3671 3273 V 10 w(B)d Fw(,)0 +3459 y(etc.)45 b(should)33 b(b)s(e)g(p)s(ossible,)g(but)g(the)g +(probabilit)m(y)e(for)i(this)g(is)f(small)f(in)h(our)h(mo)s(del.)43 +b(F)-8 b(urther,)33 b(since)0 3567 y(larger)e(masses)j(corresp)s(onds)f +(to)f(longer)g(string)g(pieces,)h(the)g(pro)s(duction)f(of)g +(pseudoscalar)h(mesons)0 3676 y(is)c(fa)m(v)m(oured)h(o)m(v)m(er)h +(that)e(of)f(v)m(ector)j(ones.)43 b(If)29 b(only)g Fj(B)p +1936 3598 V 5 w(B)35 b Fw(and)29 b Fj(B)5 b(M)p 2414 +3598 V 10 w(B)35 b Fw(states)30 b(are)g(included,)f(and)h(if)e(the)0 +3784 y(probabilit)m(y)j(for)i(ha)m(ving)g(a)g(v)m(ector)h(meson)f +Fj(M)44 b Fw(is)33 b(not)g(suppressed)j(extra,)e(t)m(w)m(o)f(partly)g +(comp)s(ensat-)0 3893 y(ing)d(errors)h(are)g(made)g(\(since)g(a)g(v)m +(ector)h(meson)f(t)m(ypically)e(deca)m(ys)k(in)m(to)d(t)m(w)m(o)i(or)f +(more)f(pseudoscalar)0 4001 y(ones\).)146 4109 y(In)j(total,)d(the)j +(\015a)m(v)m(our)g(iteration)d(pro)s(cedure)j(therefore)g(con)m(tains)f +(the)g(follo)m(wing)e(p)s(ossible)h(sub-)0 4218 y(pro)s(cesses)k +(\(plus,)d(of)g(course,)i(their)e(c)m(harge)h(conjugates\):)145 +4331 y Fn(\017)49 b Fw(q)295 4346 y Fl(1)362 4331 y Fn(!)28 +b Fw(q)541 4346 y Fl(2)603 4331 y Fw(+)22 b(\(q)790 4346 +y Fl(1)p 830 4278 52 4 v 830 4331 a Fw(q)881 4354 y Fl(2)921 +4331 y Fw(\))32 b(meson;)145 4448 y Fn(\017)49 b Fw(q)295 +4463 y Fl(1)362 4448 y Fn(!)p 490 4396 V 28 w Fw(q)541 +4472 y Fl(2)p 581 4396 V 581 4448 a Fw(q)632 4472 y Fl(3)694 +4448 y Fw(+)22 b(\(q)881 4463 y Fl(1)921 4448 y Fw(q)972 +4463 y Fl(2)1012 4448 y Fw(q)1063 4463 y Fl(3)1102 4448 +y Fw(\))33 b(bary)m(on;)145 4566 y Fn(\017)49 b Fw(q)295 +4581 y Fl(1)335 4566 y Fw(q)386 4581 y Fl(2)453 4566 +y Fn(!)p 581 4513 V 28 w Fw(q)632 4590 y Fl(3)694 4566 +y Fw(+)22 b(\(q)881 4581 y Fl(1)921 4566 y Fw(q)972 4581 +y Fl(2)1012 4566 y Fw(q)1063 4581 y Fl(3)1102 4566 y +Fw(\))33 b(bary)m(on;)145 4684 y Fn(\017)49 b Fw(q)295 +4699 y Fl(1)335 4684 y Fw(q)386 4699 y Fl(2)453 4684 +y Fn(!)28 b Fw(q)632 4699 y Fl(1)672 4684 y Fw(q)723 +4699 y Fl(3)785 4684 y Fw(+)22 b(\(q)972 4699 y Fl(2)p +1012 4631 V 1012 4684 a Fw(q)1063 4708 y Fl(3)1102 4684 +y Fw(\))33 b(meson;)0 4797 y(with)j(the)g(constrain)m(t)g(that)g(the)h +(last)e(pro)s(cess)j(cannot)e(b)s(e)g(iterated)g(to)g(obtain)f(sev)m +(eral)i(mesons)f(in)0 4905 y(b)s(et)m(w)m(een)f(the)e(bary)m(on)g(and)f +(the)i(an)m(tibary)m(on.)146 5014 y(Unfortunately)-8 +b(,)39 b(the)f(resulting)f(bary)m(on)h(pro)s(duction)f(mo)s(del)f(has)j +(a)e(fair)f(n)m(um)m(b)s(er)i(of)g(parame-)0 5122 y(ters,)h(whic)m(h)e +(w)m(ould)g(b)s(e)h(giv)m(en)f(b)m(y)h(the)f(mo)s(del)f(only)g(if)g +(quark)i(and)f(diquark)g(masses)h(w)m(ere)g(kno)m(wn)0 +5230 y(unam)m(biguously)-8 b(.)60 b(W)-8 b(e)39 b(ha)m(v)m(e)g(already) +f(men)m(tioned)g(the)h(s)p Fj(=)p Fw(u)g(ratio)e(and)i(the)f(qq)p +Fj(=)p Fw(q)i(one;)i(the)c(latter)0 5339 y(has)g(to)f(b)s(e)h +(increased)g(from)f(0.09)g(to)g(0.10)g(for)g(the)h(p)s(op)s(corn)f(mo)s +(del,)h(since)g(the)g(total)e(n)m(um)m(b)s(er)i(of)0 +5447 y(p)s(ossible)30 b(bary)m(on)i(pro)s(duction)f(con\014gurations)f +(is)h(lo)m(w)m(er)g(in)g(this)f(case)i(\(the)g(particle)e(pro)s(duced)i +(b)s(e-)0 5565 y(t)m(w)m(een)39 b(the)f Fj(B)k Fw(and)p +764 5487 80 4 v 37 w Fj(B)h Fw(is)36 b(constrained)i(to)f(b)s(e)g(a)g +(meson\).)57 b(F)-8 b(or)37 b(the)h(p)s(op)s(corn)f(mo)s(del,)f +(exactly)i(the)1817 5953 y(232)p eop +%%Page: 233 239 +233 238 bop 0 -18 a Fw(same)36 b(parameters)h(as)f(already)g(found)h +(in)e(the)i(diquark)f(mo)s(del)f(are)h(needed)i(to)e(describ)s(e)h(the) +g Fj(B)p 3700 -97 80 4 v 5 w(B)0 90 y Fw(con\014gurations.)50 +b(F)-8 b(or)35 b Fj(B)5 b(M)p 1035 12 V 10 w(B)41 b Fw +(con\014gurations,)35 b(the)g(square)h(ro)s(ot)f(of)f(a)h(suppression)h +(factor)f(should)0 198 y(b)s(e)i(applied)e(if)h(the)h(factor)f(is)g +(relev)-5 b(an)m(t)36 b(only)g(for)g(one)h(of)f(the)h +Fj(B)42 b Fw(and)p 2656 120 V 37 w Fj(B)5 b Fw(,)37 b(e.g.)56 +b(if)35 b(the)i Fj(B)42 b Fw(is)36 b(formed)0 307 y(with)29 +b(a)f(spin)h(1)g(`diquark')g(q)1036 322 y Fl(1)1076 307 +y Fw(q)1127 322 y Fl(2)1196 307 y Fw(but)g(the)p 1536 +229 V 30 w Fj(B)34 b Fw(with)28 b(a)h(spin)g(0)g(diquark)p +2575 254 52 4 v 29 w(q)2626 330 y Fl(1)p 2666 254 V 2666 +307 a Fw(q)2717 330 y Fl(3)2757 307 y Fw(.)42 b(Additional)26 +b(parameters)0 415 y(include)31 b(the)h(relativ)m(e)e(probabilit)m(y)g +(for)h Fj(B)5 b(M)p 1676 337 80 4 v 10 w(B)37 b Fw(con\014gurations,)31 +b(whic)m(h)h(is)f(assumed)h(to)f(b)s(e)h(roughly)0 523 +y(0.5)25 b(\(with)g(the)g(remaining)e(0.5)i(b)s(eing)f +Fj(B)p 1495 445 V 5 w(B)6 b Fw(\),)26 b(a)f(suppression)i(factor)d(for) +h(ha)m(ving)g(a)g(strange)h(meson)f Fj(M)0 641 y Fw(b)s(et)m(w)m(een)34 +b(the)e Fj(B)37 b Fw(and)p 843 563 V 32 w Fj(B)g Fw(\(as)32 +b(opp)s(osed)h(to)e(ha)m(ving)h(a)g(ligh)m(ter)e(nonstrange)i(one\))h +(and)f(a)f(suppression)0 759 y(factor)d(for)g(ha)m(ving)h(a)f(s)p +846 706 39 4 v(s)i(pair)d(\(rather)i(than)g(a)f(u)p 1792 +706 55 4 v(u)h(one\))g(shared)h(b)s(et)m(w)m(een)g(the)g +Fj(B)j Fw(and)p 3224 681 80 4 v 29 w Fj(B)h Fw(of)28 +b(a)g Fj(B)5 b(M)p 3699 681 V 10 w(B)0 867 y Fw(con\014guration.)43 +b(The)33 b(default)f(parameter)g(v)-5 b(alues)32 b(are)g(based)i(on)e +(a)g(com)m(bination)f(of)g(exp)s(erimen)m(tal)0 976 y(observ)-5 +b(ation)32 b(and)h(in)m(ternal)e(mo)s(del)g(predictions.)146 +1084 y(In)j(the)f(diquark)h(mo)s(del,)d(a)i(diquark)h(is)e(exp)s(ected) +j(to)e(ha)m(v)m(e)h(exactly)g(the)g(same)f(transv)m(erse)i(mo-)0 +1192 y(men)m(tum)24 b(distribution)f(as)i(a)f(quark.)42 +b(F)-8 b(or)24 b Fj(B)5 b(M)p 1745 1114 V 10 w(B)31 b +Fw(con\014gurations)24 b(the)h(situation)e(is)h(somewhat)h(more)0 +1301 y(unclear,)34 b(but)g(w)m(e)h(ha)m(v)m(e)g(c)m(hec)m(k)m(ed)i +(that)c(v)-5 b(arious)33 b(p)s(ossibilities)e(giv)m(e)i(v)m(ery)j +(similar)30 b(results.)47 b(The)35 b(op-)0 1409 y(tion)26 +b(implemen)m(ted)f(in)h(the)h(program)f(is)g(to)g(assume)h(no)g(transv) +m(erse)i(momen)m(tum)c(at)i(all)d(for)j(the)g(q)3649 +1424 y Fl(1)p 3689 1356 52 4 v 3689 1409 a Fw(q)3740 +1433 y Fl(1)0 1517 y Fw(pair)j(shared)h(b)m(y)h(the)f +Fj(B)36 b Fw(and)p 1104 1439 80 4 v 31 w Fj(B)5 b Fw(,)31 +b(with)f(all)f(other)i(pairs)f(ha)m(ving)h(the)g(standard)g(Gaussian)f +(sp)s(ectrum)0 1626 y(with)i(lo)s(cal)f(momen)m(tum)g(conserv)-5 +b(ation.)44 b(This)33 b(means)f(that)h(the)g Fj(B)38 +b Fw(and)p 2768 1548 V 33 w Fj(B)f(p)2928 1641 y Fk(?)2987 +1626 y Fw(:s)d(are)e(uncorrelated)0 1734 y(in)26 b(a)h +Fj(B)5 b(M)p 367 1656 V 10 w(B)33 b Fw(con\014guration)26 +b(and)g(\(partially\))f(an)m(ticorrelated)g(in)h(the)i +Fj(B)p 2670 1656 V 5 w(B)k Fw(con\014gurations,)c(with)e(the)0 +1842 y(same)32 b(mean)h(transv)m(erse)h(momen)m(tum)d(for)h(primary)g +(bary)m(ons)h(as)g(for)f(primary)f(mesons.)146 1951 y(Occasionally)-8 +b(,)33 b(the)h(endp)s(oin)m(t)g(of)g(a)f(string)h(is)f(not)h(a)g +(single)f(parton,)h(but)g(a)g(diquark)g(or)f(an)m(tidi-)0 +2059 y(quark,)47 b(e.g.)75 b(when)45 b(a)e(quark)h(has)f(b)s(een)h(kic) +m(k)m(ed)h(out)e(of)g(a)g(proton)g(b)s(eam)f(particle.)74 +b(One)44 b(could)0 2167 y(consider)37 b(fairly)f(complex)g(sc)m(hemes)j +(for)e(the)g(resulting)f(fragmen)m(tation.)55 b(One)38 +b(suc)m(h)g([And81])g(w)m(as)0 2276 y(a)m(v)-5 b(ailable)29 +b(in)h Fm(Jetset)g Fw(v)m(ersion)h(6)g(but)h(is)e(no)h(longer)f(found)h +(in)g(v)m(ersion)g(7.)43 b(Instead)32 b(the)g(same)f(basic)0 +2384 y(sc)m(heme)37 b(is)e(used)i(as)f(for)f(diquark)h(pair)f(pro)s +(duction)g(ab)s(o)m(v)m(e.)53 b(Th)m(us)38 b(a)d(qq)i(diquark)e(endp)s +(oin)m(t)h(is)f(let)0 2492 y(to)i(fragmen)m(t)g(just)g(as)h(w)m(ould)f +(a)g(qq)h(pro)s(duced)g(in)f(the)h(\014eld)f(b)s(ehind)g(a)g(matc)m +(hing)p 3159 2440 52 4 v 36 w(q)p 3211 2440 V 1 w(q)g(\015a)m(v)m(our,) +j(i.e.)0 2601 y(either)33 b(the)g(t)m(w)m(o)g(quarks)h(of)e(the)i +(diquark)e(en)m(ter)i(in)m(to)e(the)h(same)g(leading)e(bary)m(on,)j(or) +e(else)h(a)f(meson)0 2709 y(is)d(\014rst)i(pro)s(duced,)g(con)m +(taining)e(one)h(of)g(the)g(quarks,)i(while)d(the)i(other)f(is)f(con)m +(tained)h(in)f(the)i(bary)m(on)0 2818 y(pro)s(duced)i(in)f(the)h(next)h +(step.)0 3091 y Fp(12.2)136 b(String)45 b(F)-11 b(ragmen)l(tation)0 +3264 y Fw(An)38 b(iterativ)m(e)e(pro)s(cedure)i(can)g(also)e(b)s(e)h +(used)i(for)e(other)g(asp)s(ects)h(of)f(the)h(fragmen)m(tation.)56 +b(This)37 b(is)0 3372 y(p)s(ossible)e(b)s(ecause,)j(in)d(the)i(string)e +(picture,)h(the)h(v)-5 b(arious)35 b(p)s(oin)m(ts)g(where)i(the)g +(string)e(break)h(b)m(y)h(the)0 3481 y(pro)s(duction)32 +b(of)h(q)p 659 3428 V(q)h(pairs)e(are)h(causally)f(disconnected.)46 +b(Whereas)34 b(the)f(space{time)g(picture)g(in)f(the)0 +3589 y(c.m.)43 b(frame)31 b(is)h(suc)m(h)h(that)f(slo)m(w)g(particles)g +(\(in)f(the)h(middle)f(of)g(the)i(system\))g(are)f(formed)f(\014rst,)i +(this)0 3697 y(ordering)i(is)g(Loren)m(tz)i(frame)e(dep)s(enden)m(t)j +(and)e(hence)h(irrelev)-5 b(an)m(t.)53 b(One)36 b(ma)m(y)g(therefore)g +(mak)m(e)g(the)0 3806 y(con)m(v)m(enien)m(t)31 b(c)m(hoice)e(of)f +(starting)g(an)h(iteration)e(pro)s(cess)j(at)e(the)i(ends)g(of)e(the)h +(string)g(and)g(pro)s(ceeding)0 3914 y(to)m(w)m(ards)34 +b(the)f(middle.)146 4023 y(The)27 b(string)e(fragmen)m(tation)f(sc)m +(heme)k(is)d(rather)h(complicated)e(for)i(a)f(generic)h(m)m(ultiparton) +e(state.)0 4131 y(In)29 b(order)f(to)g(simplify)e(the)j(discussion,)g +(w)m(e)h(will)c(therefore)j(start)f(with)g(the)h(simple)e(q)p +3179 4078 V(q)i(pro)s(cess,)h(and)0 4239 y(only)c(later)f(surv)m(ey)k +(the)d(complications)e(that)i(app)s(ear)g(when)i(additional)23 +b(gluons)j(are)g(presen)m(t.)43 b(\(This)0 4348 y(distinction)f(is)h +(made)f(for)h(p)s(edagogical)f(reasons,)47 b(in)42 b(the)i(program)e +(there)i(is)f(only)g(one)h(general-)0 4456 y(purp)s(ose)33 +b(algorithm\).)0 4704 y Fo(12.2.1)113 b(F)-9 b(ragmen)m(tation)36 +b(functions)0 4876 y Fw(Assume)30 b(a)e(q)p 486 4823 +V(q)i(jet)e(system,)j(in)d(its)g(c.m.)42 b(frame,)29 +b(with)f(the)h(quark)h(mo)m(ving)e(out)g(in)g(the)h(+)p +Fj(z)34 b Fw(direction)0 4985 y(and)28 b(the)h(an)m(tiquark)f(in)g(the) +g Fn(\000)p Fj(z)34 b Fw(one.)42 b(W)-8 b(e)28 b(ha)m(v)m(e)i +(discussed)g(ho)m(w)f(it)e(is)g(p)s(ossible)h(to)g(start)g(the)h(\015a) +m(v)m(our)0 5093 y(iteration)34 b(from)h(the)i(q)f(end,)i(i.e.)54 +b(pic)m(k)36 b(a)g(q)1632 5108 y Fl(1)p 1672 5040 V 1672 +5093 a Fw(q)1723 5117 y Fl(1)1799 5093 y Fw(pair,)g(form)f(a)h(hadron)g +(q)p 2735 5040 V(q)2787 5117 y Fl(1)2826 5093 y Fw(,)h(etc.)55 +b(It)36 b(has)h(also)e(b)s(een)0 5201 y(noted)h(that)g(the)h +(tunnelling)d(mec)m(hanism)h(is)h(assumed)h(to)e(giv)m(e)h(a)g(transv)m +(erse)i(momen)m(tum)d Fj(p)3568 5216 y Fk(?)3663 5201 +y Fw(for)0 5310 y(eac)m(h)k(new)g(q)482 5325 y Fh(i)p +510 5257 V 510 5310 a Fw(q)562 5333 y Fh(i)628 5310 y +Fw(pair)e(created,)j(with)e(the)g Fj(p)1659 5325 y Fk(?)1756 +5310 y Fw(lo)s(cally)d(comp)s(ensated)k(b)s(et)m(w)m(een)h(the)e(q)3265 +5325 y Fh(i)3331 5310 y Fw(and)h(the)p 3700 5257 V 38 +w(q)3751 5333 y Fh(i)0 5418 y Fw(mem)m(b)s(er)i(of)g(the)h(pair,)g(and) +g(with)f(a)g(Gaussian)g(distribution)e(in)i Fj(p)2578 +5433 y Fh(x)2663 5418 y Fw(and)g Fj(p)2910 5433 y Fh(y)2993 +5418 y Fw(separately)-8 b(.)70 b(In)42 b(the)0 5526 y(program,)c(this)g +(is)g(regulated)g(b)m(y)h(one)f(parameter,)i(whic)m(h)e(giv)m(es)h(the) +g(ro)s(ot-mean-square)e Fj(p)3517 5541 y Fk(?)3614 5526 +y Fw(of)h(a)1817 5953 y(233)p eop +%%Page: 234 240 +234 239 bop 0 -18 a Fw(quark.)44 b(Hadron)32 b(transv)m(erse)h(momen)m +(ta)e(are)h(obtained)f(as)g(the)h(sum)g(of)f Fj(p)2760 +-3 y Fk(?)2819 -18 y Fw(:s)h(of)f(the)i(constituen)m(t)f(q)3751 +-3 y Fh(i)0 90 y Fw(and)p 190 37 52 4 v 33 w(q)241 113 +y Fh(i)p Fl(+1)360 90 y Fw(,)g(where)i(a)e(diquark)h(is)f(considered)h +(just)g(as)g(a)f(single)g(quark.)146 198 y(What)47 b(remains)e(to)h(b)s +(e)h(determined)f(is)g(the)h(energy)h(and)e(longitudinal)d(momen)m(tum) +i(of)h(the)0 307 y(hadron.)d(In)32 b(fact,)g(only)f(one)h(v)-5 +b(ariable)29 b(can)j(b)s(e)g(selected)g(indep)s(enden)m(tly)-8 +b(,)33 b(since)f(the)g(momen)m(tum)e(of)0 415 y(the)j(hadron)g(is)f +(constrained)g(b)m(y)i(the)f(already)f(determined)h(hadron)f(transv)m +(erse)j(mass)d Fj(m)3391 430 y Fk(?)3451 415 y Fw(,)789 +623 y(\()p Fj(E)c Fw(+)22 b Fj(p)1074 638 y Fh(z)1114 +623 y Fw(\)\()p Fj(E)28 b Fn(\000)23 b Fj(p)1439 638 +y Fh(z)1478 623 y Fw(\))28 b(=)g Fj(E)1726 582 y Fl(2)1787 +623 y Fn(\000)23 b Fj(p)1936 582 y Fl(2)1936 647 y Fh(z)2003 +623 y Fw(=)28 b Fj(m)2192 582 y Fl(2)2192 647 y Fk(?)2279 +623 y Fw(=)f Fj(m)2467 582 y Fl(2)2529 623 y Fw(+)22 +b Fj(p)2676 582 y Fl(2)2676 647 y Fh(x)2742 623 y Fw(+)g +Fj(p)2889 582 y Fl(2)2889 647 y Fh(y)2963 623 y Fj(:)567 +b Fw(\(177\))0 843 y(In)30 b(an)g(iteration)e(from)h(the)i(quark)g +(end,)g(one)f(is)g(led)f(\(b)m(y)i(the)g(desire)f(for)g(longitudinal)c +(b)s(o)s(ost)k(in)m(v)-5 b(ari-)0 951 y(ance)33 b(and)f(other)g +(considerations\))g(to)g(select)g(the)h Fj(z)k Fw(v)-5 +b(ariable)30 b(as)i(the)h(fraction)e(of)g Fj(E)d Fw(+)21 +b Fj(p)3340 966 y Fh(z)3411 951 y Fw(tak)m(en)34 b(b)m(y)0 +1060 y(the)d(hadron,)g(out)f(of)g(the)h(a)m(v)-5 b(ailable)28 +b Fj(E)23 b Fw(+)18 b Fj(p)1605 1075 y Fh(z)1645 1060 +y Fw(.)42 b(As)31 b(hadrons)g(are)g(split)e(o\013,)h(the)h +Fj(E)24 b Fw(+)17 b Fj(p)3166 1075 y Fh(z)3236 1060 y +Fw(\(and)31 b Fj(E)24 b Fn(\000)18 b Fj(p)3702 1075 y +Fh(z)3742 1060 y Fw(\))0 1168 y(left)32 b(for)g(subsequen)m(t)j(steps)f +(is)e(reduced)j(accordingly:)937 1376 y(\()p Fj(E)29 +b Fw(+)22 b Fj(p)1223 1391 y Fh(z)1262 1376 y Fw(\))1300 +1391 y Fl(new)1510 1376 y Fw(=)83 b(\(1)22 b Fn(\000)g +Fj(z)t Fw(\)\()p Fj(E)29 b Fw(+)22 b Fj(p)2250 1391 y +Fh(z)2290 1376 y Fw(\))2328 1391 y Fl(old)2459 1376 y +Fj(;)936 1581 y Fw(\()p Fj(E)28 b Fn(\000)23 b Fj(p)1223 +1596 y Fh(z)1262 1581 y Fw(\))1300 1596 y Fl(new)1510 +1581 y Fw(=)83 b(\()p Fj(E)28 b Fn(\000)23 b Fj(p)1956 +1596 y Fh(z)1995 1581 y Fw(\))2033 1596 y Fl(old)2154 +1581 y Fn(\000)2447 1513 y Fj(m)2532 1477 y Fl(2)2532 +1538 y Fk(?)p 2263 1557 511 4 v 2263 1649 a Fj(z)t Fw(\()p +Fj(E)29 b Fw(+)22 b Fj(p)2598 1664 y Fh(z)2638 1649 y +Fw(\))2676 1664 y Fl(old)2817 1581 y Fj(:)713 b Fw(\(178\))146 +1856 y(The)43 b(fragmen)m(tation)d(function)i Fj(f)11 +b Fw(\()p Fj(z)t Fw(\),)45 b(whic)m(h)d(expresses)j(the)e(probabilit)m +(y)d(that)h(a)h(giv)m(en)g Fj(z)47 b Fw(is)0 1965 y(pic)m(k)m(ed,)35 +b(could)e(in)g(principle)f(b)s(e)i(arbitrary)f(|)g(indeed,)i(sev)m +(eral)f(suc)m(h)h(c)m(hoices)f(can)g(b)s(e)g(used)h(inside)0 +2073 y(the)e(program,)e(see)j(b)s(elo)m(w.)146 2181 y(If)42 +b(one,)i(in)d(addition,)i(requires)f(that)g(the)g(fragmen)m(tation)e +(pro)s(cess)j(as)f(a)f(whole)h(should)g(lo)s(ok)0 2290 +y(the)37 b(same,)h(irresp)s(ectiv)m(ely)f(of)f(whether)i(the)f +(iterativ)m(e)f(pro)s(cedure)i(is)e(p)s(erformed)g(from)g(the)h(q)g +(end)0 2398 y(or)d(the)p 292 2345 52 4 v 36 w(q)h(one,)g(`left{righ)m +(t)e(symmetry',)j(the)f(c)m(hoice)g(is)f(essen)m(tially)h(unique)g +([And83a]:)48 b(the)35 b(`Lund)0 2506 y(symmetric)d(fragmen)m(tation)e +(function',)1061 2783 y Fj(f)11 b Fw(\()p Fj(z)t Fw(\))28 +b Fn(/)1388 2716 y Fw(1)p 1388 2760 50 4 v 1388 2852 +a Fj(z)1448 2783 y(z)1497 2742 y Fh(a)1534 2750 y Fe(\013)1600 +2662 y Fg(\022)1671 2716 y Fw(1)22 b Fn(\000)h Fj(z)p +1671 2760 221 4 v 1756 2852 a(z)1901 2662 y Fg(\023)1962 +2678 y Fh(a)1999 2690 y Fe(\014)2062 2783 y Fw(exp)2228 +2637 y Fg( )2293 2783 y Fn(\000)2380 2716 y Fj(bm)2506 +2680 y Fl(2)2506 2740 y Fk(?)p 2380 2760 186 4 v 2449 +2852 a Fj(z)2577 2637 y Fg(!)2692 2783 y Fj(:)838 b Fw(\(179\))0 +3060 y(There)30 b(is)e(one)g(separate)h(parameter)f Fj(a)h +Fw(for)f(eac)m(h)h(\015a)m(v)m(our,)h(with)e(the)h(index)g +Fj(\013)g Fw(corresp)s(onding)f(to)g(the)0 3168 y(`old')35 +b(\015a)m(v)m(our)j(in)d(the)i(iteration)d(pro)s(cess,)k(and)f +Fj(\014)42 b Fw(to)35 b(the)i(`new')g(\015a)m(v)m(our.)56 +b(It)36 b(is)g(customary)g(to)g(put)0 3277 y(all)30 b +Fj(a)186 3292 y Fh(\013;\014)331 3277 y Fw(the)j(same,)g(and)f(th)m(us) +i(arriv)m(e)e(at)h(the)g(simpli\014ed)d(expression)1159 +3496 y Fj(f)11 b Fw(\()p Fj(z)t Fw(\))28 b Fn(/)g Fj(z)1525 +3455 y Fk(\000)p Fl(1)1620 3496 y Fw(\(1)22 b Fn(\000)g +Fj(z)t Fw(\))1915 3455 y Fh(a)1974 3496 y Fw(exp)q(\()p +Fn(\000)p Fj(bm)2364 3455 y Fl(2)2364 3521 y Fk(?)2425 +3496 y Fj(=z)t Fw(\))33 b Fj(:)936 b Fw(\(180\))0 3704 +y(In)34 b(the)h(program,)d(only)i(t)m(w)m(o)g(separate)h +Fj(a)f Fw(v)-5 b(alues)34 b(can)g(b)s(e)g(giv)m(en,)h(that)e(for)h +(quark)g(pair)f(pro)s(duction)0 3813 y(and)e(that)f(for)g(diquark)h +(one;)h(b)m(y)f(default)f(the)h(t)m(w)m(o)g(are)g(tak)m(en)h(to)e(b)s +(e)h(the)g(same.)42 b(In)31 b(addition,)f(there)0 3921 +y(is)i(the)h Fj(b)g Fw(parameter,)f(whic)m(h)h(is)f(univ)m(ersal.)146 +4029 y(It)39 b(should)f(b)s(e)g(noted)h(that)f(the)g(explicit)f(mass)h +(dep)s(endence)j(in)c Fj(f)11 b Fw(\()p Fj(z)t Fw(\))39 +b(implies)c(a)j(harder)h(frag-)0 4138 y(men)m(tation)27 +b(function)g(for)g(hea)m(vier)i(hadrons;)h(the)e(asymptotic)f(b)s(eha)m +(viour)h(of)f(the)i(mean)e Fj(z)33 b Fw(v)-5 b(alue)27 +b(for)0 4246 y(hea)m(vy)34 b(hadrons)f(is)1525 4405 y +Fn(h)p Fj(z)t Fn(i)28 b(\031)g Fw(1)22 b Fn(\000)1965 +4338 y Fw(1)g(+)g Fj(a)p 1965 4382 221 4 v 1982 4474 +a(bm)2108 4439 y Fl(2)2108 4499 y Fk(?)2228 4405 y Fj(:)1302 +b Fw(\(181\))0 4630 y(Unfortunately)46 b(it)e(seems)j(this)f(predicts)g +(a)f(somewhat)i(harder)f(sp)s(ectrum)g(for)f(B)h(mesons)g(than)0 +4739 y(observ)m(ed)35 b(in)c(data.)146 4847 y(F)-8 b(or)29 +b(future)i(reference)g(w)m(e)g(note)g(that)e(the)i(deriv)-5 +b(ation)28 b(of)i Fj(f)11 b Fw(\()p Fj(z)t Fw(\))30 b(as)g(a)g(b)m +(y-pro)s(duct)h(also)e(giv)m(es)h(the)0 4955 y(probabilit)m(y)g +(distribution)h(in)g(prop)s(er)i(time)d Fj(\034)44 b +Fw(of)32 b(q)1924 4970 y Fh(i)p 1953 4902 52 4 v 1953 +4955 a Fw(q)2004 4979 y Fh(i)2065 4955 y Fw(breakup)h(v)m(ertices.)45 +b(In)32 b(terms)g(of)g(\000)c(=)f(\()p Fj(\024\034)11 +b Fw(\))3712 4919 y Fl(2)3752 4955 y Fw(,)0 5064 y(this)32 +b(distribution)f(is)1284 5172 y Fn(P)8 b Fw(\(\000\))17 +b(d\000)28 b Fn(/)g Fw(\000)1824 5131 y Fh(a)1899 5172 +y Fw(exp)q(\()p Fn(\000)p Fj(b)p Fw(\000\))17 b(d\000)33 +b Fj(;)1062 b Fw(\(182\))0 5334 y(with)32 b(the)h(same)g +Fj(a)f Fw(and)h Fj(b)g Fw(as)g(ab)s(o)m(v)m(e.)146 5443 +y(Man)m(y)c(di\013eren)m(t)e(other)g(fragmen)m(tation)e(functions)j(ha) +m(v)m(e)g(b)s(een)g(prop)s(osed,)h(and)e(a)g(few)h(are)f(a)m(v)-5 +b(ail-)0 5551 y(able)32 b(as)h(options)f(in)f(the)i(program.)1817 +5953 y(234)p eop +%%Page: 235 241 +235 240 bop 145 -18 a Fn(\017)49 b Fw(The)33 b(Field-F)-8 +b(eynman)31 b(parametrization)f([Fie78)n(],)1435 193 +y Fj(f)11 b Fw(\()p Fj(z)t Fw(\))28 b(=)g(1)22 b Fn(\000)g +Fj(a)h Fw(+)f(3)p Fj(a)p Fw(\(1)g Fn(\000)g Fj(z)t Fw(\))2488 +152 y Fl(2)2561 193 y Fj(;)969 b Fw(\(183\))244 395 y(with)32 +b(default)f(v)-5 b(alue)32 b Fj(a)27 b Fw(=)h(0)p Fj(:)p +Fw(77,)k(is)f(in)m(tended)i(to)f(b)s(e)g(used)i(only)d(for)h(ordinary)f +(hadrons)i(made)244 504 y(out)f(of)g(u,)h(d)g(and)g(s)g(quarks.)145 +622 y Fn(\017)49 b Fw(Since)38 b(there)i(are)e(indications)e(that)j +(the)f(shap)s(e)h(ab)s(o)m(v)m(e)h(is)e(to)s(o)f(strongly)h(p)s(eak)m +(ed)i(at)e Fj(z)k Fw(=)c(0,)244 730 y(instead)32 b(a)h(shap)s(e)g(lik)m +(e)1545 838 y Fj(f)11 b Fw(\()p Fj(z)t Fw(\))28 b(=)g(\(1)22 +b(+)g Fj(c)p Fw(\)\(1)f Fn(\000)i Fj(z)t Fw(\))2443 797 +y Fh(c)3557 838 y Fw(\(184\))244 998 y(ma)m(y)32 b(b)s(e)h(used.)145 +1116 y Fn(\017)49 b Fw(Charm)32 b(and)g(b)s(ottom)f(data)h(clearly)f +(indicate)h(the)g(need)i(for)d(a)h(harder)h(fragmen)m(tation)d(func-) +244 1224 y(tion)43 b(for)h(hea)m(vy)i(\015a)m(v)m(ours.)80 +b(The)45 b(b)s(est)g(kno)m(wn)h(of)d(these)j(is)e(the)h(P)m(eterson)h +(et)e(al.)f(form)m(ula)244 1333 y([P)m(et83])1410 1498 +y Fj(f)11 b Fw(\()p Fj(z)t Fw(\))28 b Fn(/)2116 1430 +y Fw(1)p 1737 1474 808 4 v 1737 1604 a Fj(z)1803 1508 +y Fg(\020)1853 1604 y Fw(1)22 b Fn(\000)2034 1565 y Fw(1)p +2033 1581 50 4 v 2033 1639 a Fj(z)2115 1604 y Fn(\000)2285 +1546 y Fj(\017)2324 1561 y Fh(Q)p 2225 1581 221 4 v 2225 +1649 a Fw(1)g Fn(\000)g Fj(z)2455 1508 y Fg(\021)2505 +1527 y Fl(2)2587 1498 y Fj(;)943 b Fw(\(185\))244 1796 +y(where)34 b Fj(\017)565 1811 y Fh(Q)657 1796 y Fw(is)e(a)h(free)g +(parameter,)f(exp)s(ected)i(to)e(scale)h(b)s(et)m(w)m(een)i(\015a)m(v)m +(ours)f(lik)m(e)d Fj(\017)3231 1811 y Fh(Q)3319 1796 +y Fn(/)d Fw(1)p Fj(=m)3607 1760 y Fl(2)3607 1820 y Fh(Q)3667 +1796 y Fw(.)145 1914 y Fn(\017)49 b Fw(As)33 b(a)f(crude)i(alternativ)m +(e,)e(that)g(is)g(also)g(p)s(eak)m(ed)i(at)e Fj(z)g Fw(=)c(1,)k(one)h +(ma)m(y)f(use)1638 2116 y Fj(f)11 b Fw(\()p Fj(z)t Fw(\))29 +b(=)e(\(1)22 b(+)g Fj(c)p Fw(\))p Fj(z)2290 2075 y Fh(c)2358 +2116 y Fj(:)1172 b Fw(\(186\))145 2323 y Fn(\017)49 b +Fw(Bo)m(wler)38 b([Bo)m(w81)q(])g(has)h(sho)m(wn,)j(within)c(the)h +(framew)m(ork)f(of)h(the)g(Artru{Mennessier)h(mo)s(del)244 +2432 y([Art74],)j(that)f(a)f(massiv)m(e)g(endp)s(oin)m(t)h(quark)g +(with)f(mass)g Fj(m)2558 2447 y Fh(Q)2660 2432 y Fw(leads)g(to)g(a)g +(mo)s(di\014cation)e(of)244 2540 y(the)h(symmetric)e(fragmen)m(tation)f +(function,)k(due)f(to)f(the)g(fact)g(that)g(the)h(string)f(area)g(sw)m +(ept)244 2648 y(out)k(is)h(reduced)h(for)e(massiv)m(e)h(endp)s(oin)m(t) +f(quarks,)48 b(compared)c(with)f(massless)h(ditto.)76 +b(The)244 2757 y(Artru{Mennessier)48 b(mo)s(del)d(in)g(principle)g +(only)h(applies)f(for)h(clusters)h(with)f(a)g(con)m(tin)m(uous)244 +2865 y(mass)40 b(sp)s(ectrum,)i(and)e(do)s(es)g(not)g(allo)m(w)e(an)i +Fj(a)g Fw(term)f(\(i.e.)65 b Fj(a)41 b Fn(\021)f Fw(0\);)j(ho)m(w)m(ev) +m(er,)i(it)38 b(has)j(b)s(een)244 2973 y(sho)m(wn)29 +b([Mor89])e(that,)i(for)e(a)h(discrete)g(mass)g(sp)s(ectrum,)h(one)f +(ma)m(y)g(still)d(retain)i(an)h(e\013ectiv)m(e)g Fj(a)244 +3082 y Fw(term.)42 b(In)29 b(the)g(program)e(an)i(appro)m(ximate)f +(form)g(with)g(an)h Fj(a)g Fw(term)f(has)h(therefore)h(b)s(een)f(used:) +1021 3353 y Fj(f)11 b Fw(\()p Fj(z)t Fw(\))28 b Fn(/)1510 +3286 y Fw(1)p 1348 3330 374 4 v 1348 3440 a Fj(z)1397 +3395 y Fl(1+)p Fh(r)1519 3406 y Fe(Q)1572 3395 y Fh(bm)1664 +3372 y Ff(2)1664 3419 y Fe(Q)1731 3353 y Fj(z)1780 3312 +y Fh(a)1817 3320 y Fe(\013)1884 3232 y Fg(\022)1955 3286 +y Fw(1)22 b Fn(\000)g Fj(z)p 1955 3330 221 4 v 2040 3421 +a(z)2185 3232 y Fg(\023)2246 3248 y Fh(a)2283 3260 y +Fe(\014)2346 3353 y Fw(exp)2511 3207 y Fg( )2577 3353 +y Fn(\000)2664 3286 y Fj(bm)2790 3250 y Fl(2)2790 3310 +y Fk(?)p 2664 3330 186 4 v 2733 3421 a Fj(z)2860 3207 +y Fg(!)2975 3353 y Fj(:)555 b Fw(\(187\))244 3625 y(In)47 +b(principle)e(the)j(prediction)e(is)g(that)h Fj(r)1835 +3640 y Fh(Q)1946 3625 y Fn(\021)53 b Fw(1,)d(but)d(so)g(as)g(to)f(b)s +(e)h(able)g(to)f(extrap)s(olate)244 3733 y(smo)s(othly)33 +b(b)s(et)m(w)m(een)k(this)d(form)g(and)g(the)h(Lund)h(symmetric)d(one,) +j(it)d(is)i(p)s(ossible)f(to)g(pic)m(k)h Fj(r)3720 3748 +y Fh(Q)244 3841 y Fw(separately)e(for)f(c,)h(b)f(and)h(t)g(hadrons.)0 +4088 y Fo(12.2.2)113 b(Joining)36 b(the)h(jets)0 4261 +y Fw(The)d Fj(f)11 b Fw(\()p Fj(z)t Fw(\))34 b(form)m(ula)e(ab)s(o)m(v) +m(e)i(is)f(only)g(v)-5 b(alid,)32 b(for)h(the)h(breakup)h(of)e(a)g(jet) +h(system)g(in)m(to)f(a)g(hadron)h(plus)0 4369 y(a)39 +b(remainder-system,)h(when)g(the)f(remainder)f(mass)h(is)f(large.)62 +b(If)38 b(the)i(fragmen)m(tation)d(algorithm)0 4478 y(w)m(ere)42 +b(to)e(b)s(e)h(used)h(all)d(the)i(w)m(a)m(y)h(from)e(the)h(q)g(end)g +(to)g(the)p 2261 4425 52 4 v 41 w(q)g(one,)i(the)e(mass)g(of)f(the)h +(last)f(hadron)0 4586 y(to)f(b)s(e)h(formed)f(at)g(the)p +903 4533 V 41 w(q)h(end)g(w)m(ould)g(b)s(e)f(completely)g(constrained)h +(b)m(y)g(energy)h(and)f(momen)m(tum)0 4694 y(conserv)-5 +b(ation,)33 b(and)g(could)g(not)g(b)s(e)g(on)g(its)g(mass)g(shell.)44 +b(In)33 b(theory)h(it)e(is)g(kno)m(wn)j(ho)m(w)e(to)g(tak)m(e)h(suc)m +(h)0 4803 y(e\013ects)43 b(in)m(to)f(accoun)m(t,)j(but)e(the)f +(resulting)f(form)m(ulae)g(are)h(wholly)f(unsuitable)h(for)f(Mon)m(te)i +(Carlo)0 4911 y(implemen)m(tation.)146 5019 y(The)29 +b(practical)e(solution)g(to)h(this)f(problem)g(is)h(to)g(carry)g(out)g +(the)h(fragmen)m(tation)d(b)s(oth)i(from)f(the)0 5128 +y(q)e(and)f(the)p 417 5075 V 25 w(q)g(end,)j(suc)m(h)f(that)e(for)g +(eac)m(h)h(new)g(step)g(in)f(the)g(fragmen)m(tation)f(pro)s(cess,)k(a)d +(random)f(c)m(hoice)0 5236 y(is)33 b(made)h(as)g(to)g(from)e(what)i +(side)g(the)h(step)f(is)g(to)f(b)s(e)i(tak)m(en.)48 b(If)34 +b(the)g(step)h(is)e(on)h(the)h(q)f(side,)g(then)h Fj(z)0 +5344 y Fw(is)d(in)m(terpreted)h(as)f(fraction)f(of)h(the)g(remaining)e +Fj(E)e Fw(+)21 b Fj(p)2057 5359 y Fh(z)2129 5344 y Fw(of)31 +b(the)i(system,)g(while)f Fj(z)37 b Fw(is)31 b(in)m(terpreted)i(as)0 +5453 y Fj(E)21 b Fn(\000)15 b Fj(p)234 5468 y Fh(z)302 +5453 y Fw(fraction)28 b(for)g(a)h(step)h(from)d(the)p +1476 5400 V 30 w(q)i(end.)43 b(A)m(t)29 b(some)g(p)s(oin)m(t,)g(when)h +(the)f(remaining)e(mass)i(of)f(the)0 5561 y(system)j(has)f(dropp)s(ed)h +(b)s(elo)m(w)f(a)f(giv)m(en)i(v)-5 b(alue,)30 b(it)f(is)g(decided)i +(that)f(the)g(next)h(breakup)g(will)d(pro)s(duce)0 5669 +y(t)m(w)m(o)35 b(\014nal)f(hadrons,)i(rather)e(than)h(a)f(hadron)h(and) +f(a)h(remainder-system.)49 b(Since)35 b(the)g(momen)m(ta)e(of)1817 +5953 y(235)p eop +%%Page: 236 242 +236 241 bop 0 -18 a Fw(t)m(w)m(o)33 b(hadrons)g(are)f(to)h(b)s(e)f +(selected,)i(rather)e(than)h(that)f(of)g(one)h(only)-8 +b(,)32 b(there)h(are)f(enough)h(degrees)h(of)0 90 y(freedom)e(to)g(ha)m +(v)m(e)i(b)s(oth)f(total)e(energy)i(and)g(total)e(momen)m(tum)g +(completely)h(conserv)m(ed.)146 198 y(The)44 b(mass)f(at)g(whic)m(h)h +(the)f(normal)f(fragmen)m(tation)f(pro)s(cess)j(is)f(stopp)s(ed)h(and)f +(the)g(\014nal)g(t)m(w)m(o)0 307 y(hadrons)34 b(formed)f(is)g(not)g +(actually)g(a)g(free)h(parameter)f(of)g(the)h(mo)s(del:)44 +b(it)32 b(is)h(giv)m(en)h(b)m(y)h(the)f(require-)0 415 +y(men)m(t)29 b(that)g(the)h(string)f(ev)m(erywhere)j(lo)s(oks)d(the)h +(same,)g(i.e.)41 b(that)30 b(the)f(rapidit)m(y)g(spacing)g(of)g(the)g +(\014nal)0 523 y(t)m(w)m(o)e(hadrons,)i(in)m(ternally)c(and)h(with)h +(resp)s(ect)g(to)g(surrounding)f(hadrons,)j(is)d(the)h(same)f(as)h +(elsewhere)0 632 y(in)32 b(the)i(fragmen)m(tation)d(pro)s(cess.)46 +b(The)34 b(stopping)f(mass,)g(for)f(a)h(giv)m(en)g(setup)h(of)f +(fragmen)m(tation)e(pa-)0 740 y(rameters,)25 b(has)f(therefore)g(b)s +(een)g(determined)g(in)e(separate)j(runs.)41 b(If)23 +b(the)h(fragmen)m(tation)d(parameters)0 848 y(are)38 +b(c)m(hanged,)i(some)d(retuning)h(should)f(b)s(e)h(done)g(but,)i(in)d +(practice,)i(reasonable)e(c)m(hanges)i(can)f(b)s(e)0 +957 y(made)32 b(without)g(an)m(y)h(sp)s(ecial)f(arrangemen)m(ts.)146 +1065 y(Consider)26 b(a)g(fragmen)m(tation)d(pro)s(cess)k(whic)m(h)f +(has)g(already)g(split)e(o\013)h(a)g(n)m(um)m(b)s(er)h(of)g(hadrons)g +(from)0 1173 y(the)j(q)h(and)p 431 1120 52 4 v 29 w(q)g(sides,)g(lea)m +(ving)e(b)s(ehind)h(a)g(a)g(q)1623 1188 y Fh(i)p 1651 +1120 V 1651 1173 a Fw(q)1703 1197 y Fh(j)1768 1173 y +Fw(remainder)f(system.)44 b(When)30 b(this)e(system)i(breaks)h(b)m(y)0 +1282 y(the)k(pro)s(duction)f(of)g(a)g(q)915 1297 y Fh(n)p +963 1229 V 963 1282 a Fw(q)1014 1305 y Fh(n)1096 1282 +y Fw(pair,)g(it)f(is)h(decided)h(to)g(mak)m(e)f(this)h(pair)e(the)i +(\014nal)f(one,)h(and)g(pro)s(duce)0 1390 y(the)e(last)f(t)m(w)m(o)h +(hadrons)g(q)957 1405 y Fh(i)p 986 1337 V 986 1390 a +Fw(q)1037 1413 y Fh(n)1117 1390 y Fw(and)f(q)1357 1405 +y Fh(n)p 1405 1337 V 1405 1390 a Fw(q)1456 1413 y Fh(j)1493 +1390 y Fw(,)h(if)958 1610 y(\(\()p Fj(E)28 b Fw(+)22 +b Fj(p)1281 1625 y Fh(z)1321 1610 y Fw(\)\()p Fj(E)28 +b Fn(\000)22 b Fj(p)1645 1625 y Fh(z)1685 1610 y Fw(\)\))1761 +1625 y Fl(remaining)2100 1610 y Fw(=)27 b Fj(W)2309 1569 +y Fl(2)2295 1635 y(rem)2445 1610 y Fj(<)g(W)2654 1569 +y Fl(2)2640 1635 y(min)2795 1610 y Fj(:)735 b Fw(\(188\))0 +1810 y(The)34 b Fj(W)293 1825 y Fl(min)447 1810 y Fw(is)e(calculated)g +(according)g(to)915 2010 y Fj(W)1007 2025 y Fl(min)1156 +2010 y Fw(=)c(\()p Fj(W)1390 2025 y Fl(min)n(0)1569 2010 +y Fw(+)22 b Fj(m)1752 2025 y Fl(q)p Fh(i)1840 2010 y +Fw(+)g Fj(m)2023 2025 y Fl(q)p Fh(j)2119 2010 y Fw(+)g +Fj(k)e(m)2373 2025 y Fl(q)p Fh(n)2457 2010 y Fw(\))d(\(1)22 +b Fn(\006)g Fj(\016)t Fw(\))33 b Fj(:)692 b Fw(\(189\))0 +2210 y(Here)31 b Fj(W)320 2225 y Fl(min)o(0)507 2210 +y Fw(is)f(the)g(main)f(free)h(parameter,)g(t)m(ypically)f(around)h(1)g +(GeV,)g(determined)g(to)g(giv)m(e)g(a)g(\015at)0 2318 +y(rapidit)m(y)25 b(plateau)h(\(separately)h(for)f(eac)m(h)h(particle)e +(sp)s(ecies\),)k(while)c(the)i(default)f Fj(k)k Fw(=)e(2)e(corresp)s +(onds)0 2426 y(to)36 b(the)g(mass)g(of)f(the)h(\014nal)g(pair)e(b)s +(eing)i(tak)m(en)g(fully)f(in)m(to)g(accoun)m(t.)54 b(Smaller)34 +b(v)-5 b(alues)36 b(ma)m(y)f(also)g(b)s(e)0 2535 y(considered,)h(dep)s +(ending)f(on)f(what)h(criteria)e(are)i(used)g(to)g(de\014ne)g(the)g(`b) +s(est')h(joining)c(of)i(the)h(q)g(and)0 2643 y(the)p +162 2590 V 27 w(q)27 b(c)m(hain.)41 b(The)28 b(factor)e(1)10 +b Fn(\006)g Fj(\016)t Fw(,)28 b(b)m(y)f(default)f(ev)m(enly)i +(distributed)e(b)s(et)m(w)m(een)i(0.8)e(and)h(1.2,)h(signi\014es)e(a)0 +2751 y(smearing)c(of)g(the)h Fj(W)754 2766 y Fl(min)898 +2751 y Fw(v)-5 b(alue,)25 b(to)d(a)m(v)m(oid)h(an)f(abrupt)h(and)g +(unph)m(ysical)g(cut-o\013)f(in)g(the)h(in)m(v)-5 b(arian)m(t)22 +b(mass)0 2860 y(distribution)36 b(of)i(the)h(\014nal)e(t)m(w)m(o)i +(hadrons.)61 b(Still,)37 b(this)h(distribution)e(will)g(b)s(e)j +(somewhat)f(di\013eren)m(t)0 2968 y(from)30 b(that)i(of)f(an)m(y)h(t)m +(w)m(o)g(adjacen)m(t)g(hadrons)g(elsewhere.)45 b(Due)32 +b(to)f(the)h(cut)g(there)g(will)d(b)s(e)j(no)g(tail)d(up)0 +3077 y(to)37 b(v)m(ery)j(high)c(masses;)42 b(there)c(are)g(also)e(few)m +(er)j(ev)m(en)m(ts)h(close)e(to)f(the)h(lo)m(w)m(er)g(limit,)e(where)j +(the)f(t)m(w)m(o)0 3185 y(hadrons)33 b(are)g(formed)f(at)g(rest)h(with) +f(resp)s(ect)i(to)e(eac)m(h)i(other.)146 3293 y(This)i(pro)s(cedure)h +(do)s(es)f(not)f(w)m(ork)h(all)e(that)h(w)m(ell)g(for)g(hea)m(vy)i +(\015a)m(v)m(ours,)h(since)e(it)e(do)s(es)i(not)g(fully)0 +3402 y(tak)m(e)e(in)m(to)e(accoun)m(t)i(the)f(harder)g(fragmen)m +(tation)f(function)g(encoun)m(tered.)47 b(Therefore,)34 +b(in)e(addition)0 3510 y(to)23 b(the)i(c)m(hec)m(k)h(ab)s(o)m(v)m(e,)g +(one)e(further)g(test)h(is)e(p)s(erformed)h(for)f(c)m(harm)g(and)h(hea) +m(vier)h(\015a)m(v)m(ours,)i(as)d(follo)m(ws.)0 3618 +y(If)i(the)h(c)m(hec)m(k)h(ab)s(o)m(v)m(e)f(allo)m(ws)e(more)g +(particle)g(pro)s(duction,)i(a)f(hea)m(vy)i(hadron)e(q)2887 +3633 y Fh(i)p 2915 3565 V 2915 3618 a Fw(q)2967 3642 +y Fh(n)3040 3618 y Fw(is)g(formed,)g(lea)m(ving)0 3727 +y(a)38 b(remainder)f(q)604 3742 y Fh(n)p 651 3674 V 651 +3727 a Fw(q)703 3750 y Fh(j)739 3727 y Fw(.)60 b(The)39 +b(range)f(of)g(allo)m(w)m(ed)f Fj(z)43 b Fw(v)-5 b(alues,)39 +b(i.e.)60 b(the)38 b(fraction)f(of)g(remaining)f Fj(E)c +Fw(+)26 b Fj(p)3740 3742 y Fh(z)0 3835 y Fw(that)i(ma)m(y)g(b)s(e)g +(tak)m(en)h(b)m(y)g(the)g(q)1149 3850 y Fh(i)p 1177 3782 +V 1177 3835 a Fw(q)1229 3858 y Fh(n)1304 3835 y Fw(hadron,)g(is)e +(constrained)i(a)m(w)m(a)m(y)g(from)e(0)h(and)g(1)g(b)m(y)h(the)f(q) +3417 3850 y Fh(i)p 3446 3782 V 3446 3835 a Fw(q)3498 +3858 y Fh(n)3573 3835 y Fw(mass)0 3943 y(and)f(minimal)c(mass)k(of)g +(the)g(q)1111 3958 y Fh(n)p 1159 3890 V 1159 3943 a Fw(q)1210 +3967 y Fh(j)1274 3943 y Fw(system.)43 b(The)28 b(limits)c(of)j(the)g +(ph)m(ysical)g Fj(z)32 b Fw(range)27 b(is)g(obtained)f(when)0 +4052 y(the)42 b(q)228 4067 y Fh(n)p 276 3999 V 276 4052 +a Fw(q)327 4075 y Fh(j)406 4052 y Fw(system)g(only)g(consists)h(of)e +(one)h(single)f(particle,)i(whic)m(h)f(then)h(has)f(a)g(w)m +(ell-determined)0 4197 y(transv)m(erse)c(mass)d Fj(m)792 +4146 y Fl(\(0\))792 4222 y Fk(?)887 4197 y Fw(.)53 b(F)-8 +b(rom)34 b(the)i Fj(z)k Fw(v)-5 b(alue)36 b(obtained)f(with)g(the)h +(in\014nite-energy)f(fragmen)m(tation)0 4305 y(function)d(form)m(ulae,) +f(a)h(rescaled)i Fj(z)1310 4269 y Fk(0)1366 4305 y Fw(v)-5 +b(alue)32 b(b)s(et)m(w)m(een)j(these)f(limits)29 b(is)j(giv)m(en)h(b)m +(y)58 4649 y Fj(z)107 4608 y Fk(0)159 4649 y Fw(=)272 +4581 y(1)p 272 4626 49 4 v 272 4717 a(2)348 4425 y Fg(8)348 +4499 y(>)348 4524 y(>)348 4549 y(<)348 4699 y(>)348 4723 +y(>)348 4748 y(:)422 4649 y Fw(1)21 b(+)602 4581 y Fj(m)687 +4545 y Fl(2)687 4606 y Fk(?)p Fh(in)p 600 4626 214 4 +v 600 4717 a Fj(W)706 4688 y Fl(2)692 4742 y(rem)846 +4649 y Fn(\000)956 4574 y Fj(m)1041 4523 y Fl(\(0\)2)1041 +4599 y Fk(?)p Fh(nj)p 956 4626 220 4 v 959 4717 a Fj(W)1065 +4688 y Fl(2)1051 4742 y(rem)1208 4649 y Fw(+)1306 4435 +y Fg(v)1306 4482 y(u)1306 4532 y(u)1306 4582 y(u)1306 +4631 y(t)p 1393 4435 1595 4 v 1393 4478 a(0)1393 4627 +y(@)1466 4649 y Fw(1)h Fn(\000)1648 4581 y Fj(m)1733 +4547 y Fl(2)1733 4606 y Fk(?)p Fh(in)p 1647 4626 214 +4 v 1647 4717 a Fj(W)1753 4688 y Fl(2)1739 4742 y(rem)1893 +4649 y Fn(\000)2002 4574 y Fj(m)2087 4523 y Fl(\(0\)2)2087 +4599 y Fk(?)p Fh(nj)p 2002 4626 220 4 v 2005 4717 a Fj(W)2111 +4688 y Fl(2)2097 4742 y(rem)2232 4478 y Fg(1)2232 4627 +y(A)2304 4500 y Fl(2)2366 4649 y Fn(\000)g Fw(4)2525 +4581 y Fj(m)2610 4547 y Fl(2)2610 4606 y Fk(?)p Fh(in)p +2524 4626 214 4 v 2524 4717 a Fj(W)2630 4688 y Fl(2)2616 +4742 y(rem)2758 4574 y Fj(m)2843 4523 y Fl(\(0\)2)2843 +4599 y Fk(?)p Fh(nj)p 2758 4626 220 4 v 2761 4717 a Fj(W)2867 +4688 y Fl(2)2853 4742 y(rem)3004 4649 y Fw(\(2)p Fj(z)27 +b Fn(\000)22 b Fw(1\))3349 4425 y Fg(9)3349 4499 y(>)3349 +4524 y(>)3349 4549 y(=)3349 4699 y(>)3349 4723 y(>)3349 +4748 y(;)3472 4649 y Fj(:)58 b Fw(\(190\))0 5024 y(F)-8 +b(rom)35 b(the)i Fj(z)481 4988 y Fk(0)542 5024 y Fw(v)-5 +b(alue,)37 b(the)g(actual)f(transv)m(erse)i(mass)f Fj(m)2089 +5039 y Fk(?)p Fh(nj)2258 5024 y Fn(\025)e Fj(m)2455 4973 +y Fl(\(0\))2455 5049 y Fk(?)p Fh(nj)2626 5024 y Fw(of)h(the)h(q)2964 +5039 y Fh(n)p 3012 4971 52 4 v 3012 5024 a Fw(q)3063 +5047 y Fh(j)3136 5024 y Fw(system)h(ma)m(y)e(b)s(e)0 +5132 y(calculated.)41 b(F)-8 b(or)26 b(more)g(than)g(one)h(particle)f +(to)g(b)s(e)h(pro)s(duced)h(out)e(of)h(this)f(system,)j(the)e +(requiremen)m(t)689 5401 y Fj(m)774 5360 y Fl(2)774 5425 +y Fk(?)p Fh(nj)936 5401 y Fw(=)h(\(1)22 b Fn(\000)g Fj(z)1297 +5360 y Fk(0)1321 5401 y Fw(\))1392 5255 y Fg( )1458 5401 +y Fj(W)1564 5360 y Fl(2)1550 5425 y(rem)1694 5401 y Fn(\000)1804 +5333 y Fj(m)1889 5297 y Fl(2)1889 5358 y Fk(?)p Fh(in)p +1804 5377 212 4 v 1873 5469 a Fj(z)1922 5440 y Fk(0)2025 +5255 y Fg(!)2118 5401 y Fj(>)28 b Fw(\()p Fj(m)2345 5416 +y Fh(q)r(j)2438 5401 y Fw(+)22 b Fj(W)2628 5416 y Fl(min)o(0)2785 +5401 y Fw(\))2823 5360 y Fl(2)2884 5401 y Fw(+)g Fj(p)3031 +5360 y Fl(2)3031 5425 y Fk(?)3557 5401 y Fw(\(191\))0 +5669 y(has)33 b(to)f(b)s(e)h(ful\014lled.)41 b(If)33 +b(not,)f(the)h(q)1330 5684 y Fh(n)p 1378 5616 52 4 v +1378 5669 a Fw(q)1429 5693 y Fh(j)1498 5669 y Fw(system)h(is)e(assumed) +h(to)g(collapse)e(to)h(one)h(single)f(particle.)1817 +5953 y(236)p eop +%%Page: 237 243 +237 242 bop 146 -18 a Fw(The)29 b(consequence)i(of)c(the)h(pro)s +(cedure)h(ab)s(o)m(v)m(e)g(is)e(that,)i(the)f(more)f(the)h(in\014nite)f +(energy)i(fragmen-)0 90 y(tation)i(function)g Fj(f)11 +b Fw(\()p Fj(z)t Fw(\))33 b(is)e(p)s(eak)m(ed)j(close)e(to)g +Fj(z)g Fw(=)c(1,)k(the)g(more)f(lik)m(ely)g(it)g(is)h(that)g(only)g(t)m +(w)m(o)g(particles)0 198 y(are)e(pro)s(duced.)44 b(In)30 +b(particular,)f(for)h(t)p 1402 127 38 4 v(t)g(systems,)i(where)g(v)m +(ery)g(large)d Fn(h)p Fj(z)t Fn(i)h Fw(v)-5 b(alues)30 +b(are)h(predicted,)g(the)0 307 y(exp)s(ectation)h(is)g(that)f(t)m(w)m +(o)i(particle)e(\014nal)g(states)i(will)c(dominate)i(far)g(ab)s(o)m(v)m +(e)i(the)f(threshold)g(region.)0 415 y(The)f(pro)s(cedure)g(ab)s(o)m(v) +m(e)f(has)h(b)s(een)f(constructed)i(so)e(that)g(the)g(t)m(w)m(o)h +(particle)d(fraction)h(can)h(b)s(e)g(calcu-)0 523 y(lated)g(directly)g +(from)g(the)h(shap)s(e)h(of)e Fj(f)11 b Fw(\()p Fj(z)t +Fw(\))32 b(and)f(the)g(\(appro)m(ximate\))f(mass)g(sp)s(ectrum,)i(but)f +(it)f(is)h(not)0 632 y(unique.)53 b(F)-8 b(or)35 b(the)g(symmetric)g +(Lund)h(fragmen)m(tation)e(function,)i(a)f(n)m(um)m(b)s(er)h(of)f +(alternativ)m(es)g(tried)0 740 y(all)e(giv)m(e)j(essen)m(tially)f(the)h +(same)g(result,)g(whereas)h(other)f(fragmen)m(tation)d(functions)j(ma)m +(y)f(b)s(e)h(more)0 848 y(sensitiv)m(e)d(to)g(details.)146 +957 y(Assume)39 b(no)m(w)f(that)f(t)m(w)m(o)i(\014nal)d(hadrons)i(ha)m +(v)m(e)h(b)s(een)g(pic)m(k)m(ed.)59 b(If)38 b(the)g(transv)m(erse)h +(mass)f(of)f(the)0 1065 y(remainder-system)d(is)f(smaller)g(than)h(the) +g(sum)g(of)g(transv)m(erse)i(masses)f(of)f(the)h(\014nal)e(t)m(w)m(o)i +(hadrons,)0 1173 y(the)g(whole)g(fragmen)m(tation)e(c)m(hain)i(is)f +(rejected,)j(and)e(started)g(o)m(v)m(er)h(from)e(the)h(q)h(and)p +3254 1120 52 4 v 35 w(q)f(endp)s(oin)m(ts.)0 1282 y(This)f(do)s(es)g +(not)f(in)m(tro)s(duce)h(an)m(y)g(signi\014can)m(t)f(bias,)g(since)h +(the)g(decision)f(to)g(reject)h(a)f(fragmen)m(tation)0 +1390 y(c)m(hain)24 b(only)h(dep)s(ends)h(on)e(what)h(happ)s(ens)h(in)e +(the)h(v)m(ery)h(last)e(step,)j(sp)s(eci\014cally)d(that)g(the)i +(next-to-last)0 1498 y(step)33 b(to)s(ok)g(a)m(w)m(a)m(y)h(to)s(o)d(m)m +(uc)m(h)i(energy)-8 b(,)34 b(and)f(not)f(on)h(what)f(happ)s(ened)i(in)e +(the)h(steps)h(b)s(efore)f(that.)146 1607 y(If,)c(on)g(the)f(other)h +(hand,)g(the)g(remainder-mass)e(is)h(large)f(enough,)i(there)g(are)g(t) +m(w)m(o)f(kinematically)0 1715 y(allo)m(w)m(ed)46 b(solutions)f(for)i +(the)g(\014nal)e(t)m(w)m(o)j(hadrons:)72 b(the)47 b(t)m(w)m(o)g(mirror) +e(images)g(in)h(the)h(rest)g(frame)0 1823 y(of)c(the)g +(remainder-system.)75 b(Also)43 b(the)g(c)m(hoice)h(b)s(et)m(w)m(een)h +(these)f(t)m(w)m(o)g(solutions)e(is)h(giv)m(en)g(b)m(y)h(the)0 +1932 y(consistency)f(requiremen)m(ts,)g(and)e(can)h(b)s(e)f(deriv)m(ed) +g(from)f(studies)h(of)g(in\014nite)f(energy)i(jets.)69 +b(The)0 2040 y(probabilit)m(y)42 b(for)i(the)h(rev)m(erse)i(ordering,)g +(i.e.)78 b(where)46 b(the)f(rapidit)m(y)e(and)i(the)f(\015a)m(v)m(our)i +(orderings)0 2148 y(disagree,)33 b(is)f(parametrized)f(b)m(y)1234 +2401 y Fn(P)1303 2416 y Fl(rev)n(erse)1547 2401 y Fw(=)1661 +2334 y(1)p 1661 2378 49 4 v 1661 2469 a(2)1736 2280 y +Fg(\022)1807 2334 y Fj(m)1892 2349 y Fk(?)p Fh(in)2040 +2334 y Fw(+)22 b Fj(m)2223 2349 y Fk(?)p Fh(nj)p 1807 +2378 551 4 v 1976 2469 a Fj(W)2068 2484 y Fl(rem)2368 +2280 y Fg(\023)2429 2302 y Fh(d)2519 2401 y Fj(:)1011 +b Fw(\(192\))0 2642 y(F)-8 b(or)30 b(symmetric)h(fragmen)m(tation,)f +(the)h(ordering)g(is)g(exp)s(ected)i(to)e(b)s(e)g(increasingly)g +(strict)g(when)h(the)0 2750 y(particles)37 b(in)m(v)m(olv)m(ed)h(are)g +(more)e(massiv)m(e.)59 b(In)38 b(the)g(program)f(it)f(is)h(therefore)i +(assumed)f(that)f Fj(d)h Fw(is)f(a)0 2859 y(function)32 +b(of)g(the)h(masses,)h Fj(d)27 b Fw(=)h Fj(d)1243 2874 +y Fl(0)1282 2859 y Fw(\()p Fj(m)1405 2874 y Fk(?)p Fh(in)1553 +2859 y Fw(+)22 b Fj(m)1736 2874 y Fk(?)p Fh(nj)1871 2859 +y Fw(\))1909 2822 y Fl(2)1948 2859 y Fw(,)33 b(where)g +Fj(d)2340 2874 y Fl(0)2412 2859 y Fw(is)f(a)g(free)h(parameter.)146 +2967 y(When)38 b(bary)m(on)f(pro)s(duction)f(is)g(included,)h(some)g +(particular)e(problems)g(arise.)56 b(First)35 b(consider)0 +3075 y Fj(B)p 79 2997 80 4 v 5 w(B)46 b Fw(situations.)69 +b(In)41 b(the)h(na)-11 b(\177)-38 b(\020v)m(e)42 b(iterativ)m(e)e(sc)m +(heme,)45 b(a)m(w)m(a)m(y)d(from)e(the)i(middle)d(of)i(the)h(ev)m(en)m +(t,)j(one)0 3184 y(already)31 b(has)h(a)g(quark)h(and)e(is)h(to)f(c)m +(hose)i(a)f(matc)m(hing)e(diquark)i(\015a)m(v)m(our)h(or)e(the)h(other) +g(w)m(a)m(y)h(around.)0 3292 y(In)28 b(either)f(case)h(the)f(c)m(hoice) +h(of)f(the)h(new)g(\015a)m(v)m(our)g(can)f(b)s(e)h(done)g(taking)e(in)m +(to)h(accoun)m(t)h(the)f(n)m(um)m(b)s(er)h(of)0 3400 +y Fo(SU\(6\))d Fw(states)g(a)m(v)-5 b(ailable)23 b(for)h(the)i +(quark-diquark)f(com)m(bination.)39 b(F)-8 b(or)24 b(a)h(case)h(where)g +(the)f(\014nal)g(q)3634 3415 y Fh(n)p 3681 3347 52 4 +v 3681 3400 a Fw(q)3733 3424 y Fh(n)0 3509 y Fw(breakup)30 +b(is)e(an)g(an)m(tidiquark-diquark)g(one,)i(the)f(w)m(eigh)m(ts)g(for)g +(forming)d(q)2738 3524 y Fh(i)p 2767 3456 V 2767 3509 +a Fw(q)2818 3532 y Fh(n)2894 3509 y Fw(and)i(q)3130 3524 +y Fh(n)p 3178 3456 V 3178 3509 a Fw(q)3229 3532 y Fh(i)3286 +3509 y Fw(en)m(ter)i(at)e(the)0 3617 y(same)j(time,)f(ho)m(w)m(ev)m +(er.)46 b(W)-8 b(e)32 b(do)f(not)g(kno)m(w)i(ho)m(w)f(to)f(handle)g +(this)g(problem;)f(what)i(is)f(done)h(is)f(to)g(use)0 +3725 y(w)m(eigh)m(ts)j(as)e(usual)h(for)f(the)h(q)1091 +3740 y Fh(i)p 1120 3673 V 1120 3725 a Fw(q)1171 3749 +y Fh(n)1251 3725 y Fw(bary)m(on)g(to)f(select)i(q)2013 +3740 y Fh(n)2060 3725 y Fw(,)f(but)g(then)g(consider)g(q)2952 +3740 y Fh(n)p 3000 3673 V 3000 3725 a Fw(q)3051 3749 +y Fh(i)3112 3725 y Fw(as)g(giv)m(en)g(\(or)f(the)0 3834 +y(other)e(w)m(a)m(y)i(around)e(with)g(equal)g(probabilit)m(y\).)40 +b(If)30 b(q)1970 3849 y Fh(n)p 2018 3781 V 2018 3834 +a Fw(q)2069 3857 y Fh(i)2127 3834 y Fw(turns)h(out)f(to)g(b)s(e)g(an)g +(an)m(tidiquark-diquark)0 3942 y(com)m(bination,)25 b(the)i(whole)e +(fragmen)m(tation)f(c)m(hain)i(is)f(rejected,)k(since)d(w)m(e)h(do)f +(not)g(kno)m(w)h(ho)m(w)f(to)g(form)0 4050 y(corresp)s(onding)36 +b(hadrons.)55 b(A)36 b(similar)d(problem)i(arises,)i(and)g(is)e(solv)m +(ed)i(in)f(the)g(same)g(spirit,)g(for)g(a)0 4159 y Fj(B)5 +b(M)p 183 4081 80 4 v 10 w(B)39 b Fw(con\014guration)32 +b(in)h(whic)m(h)h(the)f Fj(B)38 b Fw(\(or)p 1720 4081 +V 33 w Fj(B)5 b Fw(\))33 b(w)m(as)h(c)m(hosen)h(as)f(third-last)d +(particle.)44 b(When)34 b(only)0 4277 y(t)m(w)m(o)g(particles)e(remain) +g(to)h(b)s(e)h(generated,)g(it)e(is)h(ob)m(viously)g(to)s(o)g(late)f +(to)h(consider)g(ha)m(ving)g(a)g Fj(B)5 b(M)p 3699 4199 +V 10 w(B)0 4385 y Fw(con\014guration.)60 b(This)39 b(is)f(as)h(it)e +(should,)j(ho)m(w)m(ev)m(er,)j(as)c(can)f(b)s(e)h(found)g(b)m(y)g(lo)s +(oking)e(at)h(all)e(p)s(ossible)0 4493 y(w)m(a)m(ys)e(a)f(hadron)f(of)g +(giv)m(en)h(rank)g(can)g(b)s(e)g(a)f(bary)m(on.)146 4602 +y(While)i(some)h(practical)f(compromises)g(ha)m(v)m(e)i(to)f(b)s(e)g +(accepted)i(in)d(the)h(joining)e(pro)s(cedure,)k(the)0 +4710 y(fact)d(that)g(the)g(joining)e(tak)m(es)j(place)f(in)f +(di\013eren)m(t)h(parts)g(of)g(the)g(string)g(in)f(di\013eren)m(t)h(ev) +m(en)m(ts)i(means)0 4818 y(that,)c(in)g(the)h(end,)h(essen)m(tially)e +(no)g(visible)g(e\013ects)h(remain.)0 5063 y Fo(12.2.3)113 +b(String)36 b(motion)g(and)i(infrared)g(stabilit)m(y)0 +5236 y Fw(W)-8 b(e)37 b(ha)m(v)m(e)i(no)m(w)f(discussed)g(the)g(SF)f +(sc)m(heme)h(for)f(the)g(fragmen)m(tation)e(of)i(a)g(simple)e(q)p +3224 5183 52 4 v(q)j(jet)f(system.)0 5344 y(In)42 b(order)g(to)f +(understand)i(ho)m(w)g(these)g(results)f(generalize)f(to)g(arbitrary)g +(jet)h(systems,)j(it)c(is)g(\014rst)0 5453 y(necessary)50 +b(to)e(understand)h(the)f(string)f(motion)f(for)i(the)g(case)h(when)g +(no)e(fragmen)m(tation)f(tak)m(es)0 5561 y(place.)d(In)33 +b(the)g(follo)m(wing)d(w)m(e)j(will)e(assume)i(that)f(quarks)i(as)f(w)m +(ell)e(as)i(gluons)f(are)h(massless,)g(but)g(all)0 5669 +y(argumen)m(ts)g(can)g(b)s(e)f(generalized)g(to)h(massiv)m(e)f(quarks)i +(without)e(to)s(o)g(m)m(uc)m(h)h(problem.)1817 5953 y(237)p +eop +%%Page: 238 244 +238 243 bop 146 -18 a Fw(F)-8 b(or)44 b(a)g(q)p 477 -71 +52 4 v(q)h(ev)m(en)m(t)h(view)m(ed)g(in)d(the)i(c.m.)79 +b(frame,)46 b(with)e(total)f(energy)i Fj(W)14 b Fw(,)47 +b(the)e(partons)f(start)0 90 y(mo)m(ving)f(out)h(bac)m(k-to-bac)m(k,)k +(carrying)c(half)f(the)i(energy)g(eac)m(h.)80 b(As)45 +b(they)g(mo)m(v)m(e)g(apart,)h(energy)0 198 y(and)41 +b(momen)m(tum)e(is)h(lost)g(to)h(the)g(string.)67 b(When)42 +b(the)f(partons)g(are)g(a)g(distance)g Fj(W)s(=\024)f +Fw(apart,)j(all)0 307 y(the)k(energy)g(is)e(stored)i(in)e(the)i +(string.)84 b(The)47 b(partons)f(no)m(w)h(turn)f(around)g(and)g(come)g +(together)0 415 y(again)38 b(with)h(the)h(original)c(momen)m(tum)h(v)m +(ectors)k(rev)m(ersed.)66 b(This)40 b(corresp)s(onds)g(to)f(half)g(a)g +(p)s(erio)s(d)0 523 y(of)k(the)h(full)d(string)i(motion;)j(the)e +(second)h(half)d(the)i(pro)s(cess)g(is)f(rep)s(eated,)k(mirror-imaged.) +71 b(F)-8 b(or)0 632 y(further)45 b(generalizations)d(to)i(m)m +(ultiparton)e(systems,)49 b(a)44 b(con)m(v)m(enien)m(t)j(description)d +(of)g(the)g(energy)0 740 y(and)30 b(momen)m(tum)f(\015o)m(w)i(is)f(giv) +m(en)h(in)e(terms)i(of)f(`genes')h([Art83],)g(in\014nitesimal)c(pac)m +(k)m(ets)33 b(of)c(the)i(four-)0 848 y(momen)m(tum)c(giv)m(en)h(up)h(b) +m(y)g(the)f(partons)h(to)e(the)i(string.)41 b(Genes)29 +b(with)f Fj(p)2680 863 y Fh(z)2748 848 y Fw(=)f Fj(E)6 +b Fw(,)29 b(emitted)f(from)e(the)j(q)0 957 y(end)j(in)g(the)g(initial)c +(stages)k(of)g(the)g(string)f(motion)f(ab)s(o)m(v)m(e,)j(will)c(mo)m(v) +m(e)j(in)f(the)p 2934 904 V 33 w(q)h(direction)f(with)g(the)0 +1065 y(sp)s(eed)d(of)e(ligh)m(t,)g(whereas)j(genes)e(with)g +Fj(p)1499 1080 y Fh(z)1566 1065 y Fw(=)h Fn(\000)p Fj(E)33 +b Fw(giv)m(en)27 b(up)g(b)m(y)g(the)p 2528 1012 V 28 +w(q)g(will)d(mo)m(v)m(e)j(in)f(the)h(q)g(direction.)0 +1173 y(Th)m(us,)42 b(in)c(this)g(simple)f(case,)k(the)f(direction)d(of) +h(motion)f(for)h(a)g(gene)i(is)e(just)h(opp)s(osite)f(to)g(that)h(of)0 +1282 y(a)e(free)h(particle)e(with)i(the)g(same)f(four-momen)m(tum.)56 +b(This)38 b(is)f(due)h(to)f(the)h(string)f(tension.)59 +b(If)37 b(the)0 1390 y(system)31 b(is)e(not)h(view)m(ed)h(in)e(the)h +(c.m.)42 b(frame,)30 b(the)g(rules)g(are)g(that)f(an)m(y)i(parton)f +(giv)m(es)g(up)g(genes)h(with)0 1498 y(four-momen)m(tum)i(prop)s +(ortional)f(to)j(its)g(o)m(wn)h(four-momen)m(tum,)d(but)j(the)f +(direction)f(of)h(motion)e(of)0 1607 y(an)m(y)28 b(gene)h(is)e(giv)m +(en)h(b)m(y)h(the)f(momen)m(tum)e(direction)h(of)g(the)h(genes)h(it)e +(meets,)i(i.e.)42 b(that)27 b(w)m(ere)i(emitted)0 1715 +y(b)m(y)39 b(the)g(parton)f(at)f(the)i(other)f(end)h(of)f(that)g +(particular)e(string)i(piece.)60 b(When)39 b(the)g(q)g(has)f(lost)g +(all)0 1823 y(its)h(energy)-8 b(,)43 b(the)p 658 1770 +V 40 w(q)d(genes,)j(whic)m(h)d(b)s(efore)g(could)f(not)h(catc)m(h)g(up) +g(with)g(q,)i(start)d(impinging)e(on)i(it,)0 1932 y(and)31 +b(the)h(q)f(is)g(pulled)f(bac)m(k,)i(accreting)p 1494 +1879 V 31 w(q)g(genes)g(in)e(the)i(pro)s(cess.)44 b(When)32 +b(the)g(q)f(and)p 3212 1879 V 31 w(q)h(meet)f(in)f(the)0 +2040 y(origin)g(again,)i(they)h(ha)m(v)m(e)h(completely)d(traded)i +(genes)h(with)e(resp)s(ect)i(to)e(the)h(initial)c(situation.)146 +2148 y(A)c(3-jet)f(q)p 512 2096 V(q)q(g)i(ev)m(en)m(t)h(initially)20 +b(corresp)s(onds)26 b(to)f(ha)m(ving)f(a)h(string)f(piece)h(stretc)m +(hed)h(b)s(et)m(w)m(een)h(q)e(and)0 2257 y(g)38 b(and)f(another)h(b)s +(et)m(w)m(een)h(g)f(and)p 1306 2204 V 37 w(q)q(.)57 b(Gluon)35 +b(four-momen)m(tum)g(genes)j(are)f(th)m(us)i(\015o)m(wing)d(to)m(w)m +(ards)0 2365 y(the)e(q)f(and)p 444 2312 V 34 w(q.)45 +b(Corresp)s(ondingly)-8 b(,)33 b(q)h(and)p 1594 2312 +V 33 w(q)g(genes)g(are)f(\015o)m(wing)g(to)m(w)m(ards)i(the)e(g)q(.)46 +b(When)34 b(the)f(gluon)0 2473 y(has)27 b(lost)e(all)f(its)i(energy)-8 +b(,)28 b(the)f(g)g(genes)g(con)m(tin)m(ue)g(mo)m(ving)e(apart,)i(and)f +(instead)h(a)e(third)h(string)f(region)0 2582 y(is)30 +b(formed)g(in)g(the)h(`middle')f(of)g(the)h(total)e(string,)i +(consisting)f(of)g(o)m(v)m(erlapping)g(q)h(and)p 3231 +2529 V 31 w(q)h(genes.)44 b(The)0 2690 y(t)m(w)m(o)34 +b(`corners')g(on)f(the)h(string,)e(separating)h(the)g(three)h(string)f +(regions,)g(are)g(not)g(of)f(the)i(gluon-kink)0 2798 +y(t)m(yp)s(e:)44 b(they)34 b(do)e(not)h(carry)g(an)m(y)g(momen)m(tum.) +146 2907 y(If)j(this)f(third)g(region)g(w)m(ould)h(only)f(app)s(ear)g +(at)h(a)f(time)g(later)f(than)i(the)g(t)m(ypical)f(time)f(scale)i(for)0 +3015 y(fragmen)m(tation,)c(it)h(could)g(not)h(a\013ect)g(the)g(sharing) +f(of)h(energy)g(b)s(et)m(w)m(een)i(di\013eren)m(t)e(particles.)46 +b(This)0 3123 y(is)e(true)g(in)f(the)i(limit)c(of)i(high)h(energy)-8 +b(,)48 b(w)m(ell)43 b(separated)i(partons.)78 b(F)-8 +b(or)44 b(a)g(small)d(gluon)i(energy)-8 b(,)0 3232 y(on)36 +b(the)h(other)g(hand,)h(the)f(third)f(string)f(region)h(app)s(ears)h +(early)-8 b(,)37 b(and)f(the)h(o)m(v)m(erall)f(dra)m(wing)g(of)g(the)0 +3340 y(string)29 b(b)s(ecomes)i(fairly)d(2-jet-lik)m(e,)h(since)h(the)h +(third)e(string)h(region)f(consists)i(of)e(q)i(and)p +3283 3287 V 30 w(q)f(genes)h(and)0 3448 y(therefore)25 +b(b)s(eha)m(v)m(es)i(exactly)e(as)f(a)g(sting)g(pulled)g(out)g +(directly)g(b)s(et)m(w)m(een)j(the)e(q)f(and)p 3083 3396 +V 25 w(q)q(.)40 b(In)25 b(the)g(limit)c(of)0 3557 y(v)-5 +b(anishing)28 b(gluon)g(energy)-8 b(,)30 b(the)g(t)m(w)m(o)f(initial)c +(string)k(regions)f(collapse)g(to)h(naugh)m(t,)h(and)f(the)g(ordinary)0 +3665 y(2-jet)35 b(ev)m(en)m(t)i(is)d(reco)m(v)m(ered.)54 +b(Also)35 b(for)g(a)f(collinear)f(gluon,)i(i.e.)51 b +Fj(\022)2433 3680 y Fl(qg)2547 3665 y Fw(\(or)34 b Fj(\022)p +2751 3642 38 4 v 15 x Fl(q)q(g)2830 3665 y Fw(\))h(small,)e(the)j +(stretc)m(hing)0 3774 y(b)s(ecomes)i(2-jet-lik)m(e.)58 +b(In)38 b(particular,)g(the)g(q)g(string)g(endp)s(oin)m(t)f(\014rst)i +(mo)m(v)m(es)f(out)g(a)g(distance)g Fo(p)3633 3789 y +Fl(q)3675 3774 y Fj(=\024)0 3882 y Fw(losing)d(genes)j(to)e(the)h +(string,)g(and)g(then)g(a)f(further)h(distance)g Fo(p)2433 +3897 y Fl(g)2474 3882 y Fj(=\024)p Fw(,)g(a)g(\014rst)g(half)e +(accreting)h(genes)0 3990 y(from)e(the)i(g)h(and)f(the)g(second)h(half) +d(re-emitting)f(them.)52 b(\(This)36 b(latter)e(half)h(actually)f +(includes)h(y)m(et)0 4099 y(another)e(string)f(piece;)h(a)g(corresp)s +(onding)f(piece)h(app)s(ears)g(at)g(the)p 2507 4046 52 +4 v 33 w(q)g(end,)h(suc)m(h)g(that)f(half)e(a)i(p)s(erio)s(d)0 +4207 y(of)27 b(the)h(system)h(in)m(v)m(olv)m(es)f(\014v)m(e)h +(di\013eren)m(t)f(string)f(regions.\))42 b(The)28 b(end)h(result)e(is,) +h(appro)m(ximately)-8 b(,)28 b(that)0 4315 y(a)h(string)g(is)g(dra)m +(wn)h(out)f(as)g(if)f(there)j(had)e(only)g(b)s(een)h(a)f(single)f +(parton)h(with)g(energy)h Fn(j)p Fo(p)3256 4330 y Fl(q)3313 +4315 y Fw(+)15 b Fo(p)3466 4330 y Fl(g)3507 4315 y Fn(j)p +Fw(,)30 b(suc)m(h)0 4424 y(that)37 b(the)h(simple)e(2-jet)g(ev)m(en)m +(t)k(again)c(is)h(reco)m(v)m(ered)i(in)e(the)h(limit)33 +b Fj(\022)2567 4439 y Fl(qg)2681 4424 y Fn(!)j Fw(0.)58 +b(These)39 b(prop)s(erties)e(of)0 4532 y(the)i(string)f(motion)e(are)j +(the)g(reason)g(wh)m(y)h(the)f(string)f(fragmen)m(tation)e(sc)m(heme)k +(is)e(`infrared)g(safe')0 4640 y(with)32 b(resp)s(ect)i(to)e(soft)h(or) +f(collinear)e(gluon)i(emission.)146 4749 y(The)j(discussions)f(for)f +(the)g(3-jet)g(case)h(can)g(b)s(e)f(generalized)g(to)g(the)h(motion)d +(of)i(a)g(string)g(with)g(q)0 4857 y(and)p 187 4804 V +30 w(q)e(endp)s(oin)m(ts)g(and)g(an)f(arbitrary)f(n)m(um)m(b)s(er)i(of) +f(in)m(termediate)f(gluons.)42 b(F)-8 b(or)30 b Fj(n)g +Fw(partons,)i(whereof)0 4965 y Fj(n)17 b Fn(\000)g Fw(2)30 +b(gluons,)g(the)g(original)d(string)i(con)m(tains)h Fj(n)17 +b Fn(\000)g Fw(1)29 b(pieces.)44 b(An)m(ytime)30 b(one)g(of)f(the)h +(original)d(gluons)0 5074 y(has)39 b(lost)f(its)g(energy)-8 +b(,)42 b(a)c(new)i(string)e(region)g(is)g(formed,)i(delineated)e(b)m(y) +i(a)f(pair)e(of)i(`corners'.)63 b(As)0 5182 y(the)29 +b(extra)f(`corners')i(meet)e(eac)m(h)h(other,)h(old)d(string)g(regions) +h(v)-5 b(anish)28 b(and)h(new)g(are)f(created,)i(so)f(that)0 +5290 y(half)36 b(a)h(p)s(erio)s(d)g(of)g(the)g(string)g(con)m(tains)h +(2)p Fj(n)1657 5254 y Fl(2)1721 5290 y Fn(\000)26 b Fw(6)p +Fj(n)g Fw(+)f(5)37 b(di\013eren)m(t)h(string)e(regions.)58 +b(Eac)m(h)38 b(of)f(these)0 5399 y(regions)27 b(can)i(b)s(e)f(understo) +s(o)s(d)g(simply)f(as)h(built)e(up)i(from)f(the)h(o)m(v)m(erlap)g(of)g +(\(opp)s(osite-mo)m(ving\))d(genes)0 5507 y(from)31 b(t)m(w)m(o)j(of)e +(the)h(original)c(partons,)k(according)f(to)g(w)m(ell)g(sp)s(eci\014ed) +h(rules.)1817 5953 y(238)p eop +%%Page: 239 245 +239 244 bop 0 -18 a Fo(12.2.4)113 b(F)-9 b(ragmen)m(tation)36 +b(of)i(m)m(ultiparton)d(systems)0 154 y Fw(The)30 b(full)d(mac)m +(hinery)h(needed)i(for)f(a)f(m)m(ultiparton)e(system)k(is)e(v)m(ery)j +(complicated,)d(and)g(is)h(describ)s(ed)0 263 y(in)22 +b(detail)g(in)g([Sj\177)-49 b(o84)o(].)41 b(The)23 b(follo)m(wing)e +(outline)g(is)i(far)f(from)g(complete,)i(and)f(is)g(complicated)e +(nonethe-)0 371 y(less.)59 b(The)38 b(main)e(message)i(to)f(b)s(e)g +(con)m(v)m(ey)m(ed)k(is)c(that)g(a)g(Loren)m(tz)i(co)m(v)-5 +b(arian)m(t)36 b(algorithm)f(exists)j(for)0 479 y(handling)k(an)i +(arbitrary)e(parton)i(con\014guration,)i(but)e(that)f(the)h(necessary)i +(mac)m(hinery)e(is)f(more)0 588 y(complex)32 b(than)h(in)e(either)i +(cluster)g(or)f(indep)s(enden)m(t)i(fragmen)m(tation.)146 +696 y(Assume)40 b Fj(n)e Fw(partons,)j(with)d(ordering)f(along)g(the)i +(string,)h(and)e(related)g(four-momen)m(ta,)g(giv)m(en)0 +804 y(b)m(y)30 b(q\()p Fj(p)270 819 y Fl(1)310 804 y +Fw(\)g\()p Fj(p)484 819 y Fl(2)523 804 y Fw(\)g\()p Fj(p)697 +819 y Fl(3)736 804 y Fw(\))17 b Fn(\001)g(\001)g(\001)e +Fw(g\()p Fj(p)1060 819 y Fh(n)p Fk(\000)p Fl(1)1196 804 +y Fw(\))p 1234 751 52 4 v(q)q(\()p Fj(p)1373 819 y Fh(n)1420 +804 y Fw(\).)42 b(The)30 b(initial)c(string)j(then)h(con)m(tains)f +Fj(n)16 b Fn(\000)g Fw(1)29 b(separate)i(pieces.)0 913 +y(The)26 b(string)e(piece)h(b)s(et)m(w)m(een)i(the)f(quark)g(and)f(its) +f(neigb)s(ouring)f(gluon)h(is,)i(in)f(four-momen)m(tum)d(space,)0 +1041 y(spanned)38 b(b)m(y)g(one)g(side)f(with)f(four-momen)m(tum)f +Fj(p)1903 990 y Fl(\(1\))1903 1060 y(+)2033 1041 y Fw(=)g +Fj(p)2193 1056 y Fl(1)2269 1041 y Fw(and)i(another)g(with)g +Fj(p)3101 990 y Fl(\(1\))3101 1060 y Fk(\000)3231 1041 +y Fw(=)e Fj(p)3391 1056 y Fl(2)3430 1041 y Fj(=)p Fw(2.)57 +b(The)0 1149 y(factor)27 b(of)f(1/2)g(in)h(the)g(second)i(expression)f +(comes)f(from)f(the)h(fact)g(that)g(the)h(gluon)e(shares)i(its)e +(energy)0 1258 y(b)s(et)m(w)m(een)38 b(t)m(w)m(o)e(string)g(pieces.)54 +b(The)36 b(indices)g(`+')g(and)g(`)p Fn(\000)p Fw(')g(denotes)h +(direction)e(to)m(w)m(ards)i(the)f(q)g(and)p 0 1313 V +0 1366 a(q)k(end,)j(resp)s(ectiv)m(ely)-8 b(.)66 b(The)41 +b(next)g(string)e(piece,)j(coun)m(ted)f(from)e(the)h(quark)h(end,)h(is) +d(spanned)j(b)m(y)0 1494 y Fj(p)49 1444 y Fl(\(2\))49 +1514 y(+)189 1494 y Fw(=)k Fj(p)360 1509 y Fl(2)399 1494 +y Fj(=)p Fw(2)d(and)g Fj(p)789 1444 y Fl(\(2\))789 1514 +y Fk(\000)929 1494 y Fw(=)j Fj(p)1100 1509 y Fl(3)1140 +1494 y Fj(=)p Fw(2,)f(and)e(so)h(on,)i(with)d(the)g(last)g(one)g(b)s +(eing)g Fj(p)2936 1444 y Fl(\()p Fh(n)p Fk(\000)p Fl(1\))2936 +1514 y(+)3174 1494 y Fw(=)j Fj(p)3345 1509 y Fh(n)p Fk(\000)p +Fl(1)3482 1494 y Fj(=)p Fw(2)c(and)0 1629 y Fj(p)49 1579 +y Fl(\()p Fh(n)p Fk(\000)p Fl(1\))49 1649 y Fk(\000)269 +1629 y Fw(=)27 b Fj(p)421 1644 y Fh(n)468 1629 y Fw(.)146 +1765 y(F)-8 b(or)29 b(the)i(algorithm)26 b(to)k(w)m(ork,)h(it)e(is)h +(imp)s(ortan)m(t)e(that)h(all)f Fj(p)2344 1714 y Fl(\()p +Fh(i)p Fl(\))2344 1784 y Fk(\006)2457 1765 y Fw(b)s(e)i(ligh)m +(t-cone-lik)m(e,)e(i.e.)42 b Fj(p)3454 1714 y Fl(\()p +Fh(i)p Fl(\)2)3454 1784 y Fk(\006)3600 1765 y Fw(=)28 +b(0.)0 1873 y(Since)35 b(gluons)f(are)h(massless,)g(it)f(is)g(only)g +(the)h(t)m(w)m(o)h(endp)s(oin)m(t)e(quarks)i(whic)m(h)f(can)g(cause)h +(problems.)0 1981 y(The)45 b(pro)s(cedure)g(here)g(is)f(to)g(create)h +(new)g Fj(p)1700 1996 y Fk(\006)1803 1981 y Fw(v)m(ectors)h(for)d(eac)m +(h)j(of)d(the)i(t)m(w)m(o)g(endp)s(oin)m(t)f(regions,)0 +2090 y(de\014ned)31 b(to)f(b)s(e)g(linear)f(com)m(binations)f(of)i(the) +g(old)f Fj(p)1923 2105 y Fk(\006)2012 2090 y Fw(ones)i(for)f(the)g +(same)g(region,)g(with)f(co)s(e\016cien)m(ts)0 2198 y(determined)45 +b(so)h(that)f(the)h(new)g(v)m(ectors)h(are)e(ligh)m(t-cone-lik)m(e.)80 +b(De)45 b(facto,)j(this)d(corresp)s(onds)i(to)0 2306 +y(replacing)28 b(a)h(massiv)m(e)h(quark)g(at)f(the)h(end)h(of)e(a)g +(string)g(piece)g(with)g(a)h(massless)f(quark)i(at)e(the)h(end)g(of)0 +2415 y(a)36 b(somewhat)g(longer)e(string)i(piece.)53 +b(With)35 b(the)i(exception)f(of)f(the)i(added)f(\014ctitious)f(piece,) +i(whic)m(h)0 2523 y(an)m(yw)m(a)m(y)k(ends)g(up)f(en)m(tirely)f(within) +f(the)i(hea)m(vy)h(hadron)f(pro)s(duced)g(from)e(the)i(hea)m(vy)h +(quark,)h(the)0 2631 y(string)32 b(motion)f(remains)g(unc)m(hanged)j(b) +m(y)g(this.)146 2740 y(In)h(the)h(con)m(tin)m(ued)f(string)f(motion,)g +(when)i(new)f(string)g(regions)f(app)s(ear)h(as)g(time)e(go)s(es)i(b)m +(y)-8 b(,)36 b(the)0 2868 y(\014rst)45 b(suc)m(h)h(string)e(regions)h +(that)f(app)s(ear)h(can)g(b)s(e)g(represen)m(ted)i(as)e(b)s(eing)f +(spanned)i(b)m(y)f(one)g Fj(p)3688 2817 y Fl(\()p Fh(j)t +Fl(\))3688 2887 y(+)0 3003 y Fw(and)h(another)f Fj(p)622 +2952 y Fl(\()p Fh(k)r Fl(\))622 3022 y Fk(\000)766 3003 +y Fw(four-v)m(ector,)k(with)c Fj(j)52 b Fw(and)45 b Fj(k)k +Fw(not)d(necessarily)g(adjacen)m(t.)83 b(F)-8 b(or)45 +b(instance,)k(in)0 3138 y(the)35 b(qg)p 271 3085 V 1 +w(q)h(case,)g(the)f(`third')f(string)g(region)g(is)g(spanned)i(b)m(y)g +Fj(p)2307 3087 y Fl(\(1\))2307 3157 y(+)2436 3138 y Fw(and)f +Fj(p)2677 3087 y Fl(\(3\))2677 3157 y Fk(\000)2771 3138 +y Fw(.)50 b(Later)34 b(on)h(in)f(the)h(string)0 3246 +y(ev)m(olution)24 b(history)-8 b(,)27 b(it)d(is)g(also)h(p)s(ossible)f +(to)h(ha)m(v)m(e)h(regions)f(made)g(up)g(of)g(t)m(w)m(o)h +Fj(p)2854 3261 y Fl(+)2938 3246 y Fw(or)f(t)m(w)m(o)g +Fj(p)3275 3261 y Fk(\000)3360 3246 y Fw(momen)m(ta.)0 +3355 y(These)38 b(app)s(ear)f(when)h(an)e(endp)s(oin)m(t)h(quark)g(has) +g(lost)f(all)f(its)h(original)d(momen)m(tum,)j(has)h(accreted)0 +3463 y(the)i(momen)m(tum)e(of)h(an)g(gluon,)h(and)f(is)g(no)m(w)h +(re-emitting)d(this)i(momen)m(tum.)60 b(In)38 b(practice,)i(these)0 +3592 y(regions)28 b(ma)m(y)f(b)s(e)h(neglected.)43 b(Therefore)29 +b(only)f(pieces)g(made)g(up)g(b)m(y)h(a)f(\()p Fj(p)2737 +3541 y Fl(\()p Fh(j)t Fl(\))2737 3611 y(+)2828 3592 y +Fj(;)17 b(p)2921 3541 y Fl(\()p Fh(k)r Fl(\))2921 3611 +y Fk(\000)3018 3592 y Fw(\))28 b(pair)f(of)h(momen)m(ta)0 +3700 y(are)33 b(considered)g(in)f(the)h(program.)146 +3808 y(The)h(allo)m(w)m(es)e(string)f(regions)h(ma)m(y)g(b)s(e)h +(ordered)g(in)f(an)g(abstract)h(parameter)e(plane,)h(where)i(the)0 +3917 y(\()p Fj(j;)17 b(k)s Fw(\))43 b(indices)g(of)g(the)h(four-momen)m +(tum)d(pairs)h(de\014ne)j(the)f(p)s(osition)d(of)i(eac)m(h)h(region)e +(along)g(the)0 4025 y(t)m(w)m(o)e(\(parameter)g(plane\))f(co)s +(ordinate)g(axes.)66 b(In)40 b(this)f(plane)h(the)g(fragmen)m(tation)e +(pro)s(cedure)i(can)0 4133 y(b)s(e)34 b(describ)s(ed)h(as)f(a)g +(sequence)j(of)d(steps,)h(starting)f(at)f(the)i(quark)g(end,)g(where)g +(\()p Fj(j;)17 b(k)s Fw(\))31 b(=)f(\(1)p Fj(;)17 b Fw(1\),)33 +b(and)0 4242 y(ending)23 b(at)f(the)h(an)m(tiquark)g(one,)i(\()p +Fj(j;)17 b(k)s Fw(\))28 b(=)g(\()p Fj(n)r Fn(\000)r Fw(1)p +Fj(;)17 b(n)r Fn(\000)r Fw(1\).)42 b(Eac)m(h)24 b(step)f(is)g(tak)m(en) +g(from)f(an)h(`old')f(q)3491 4257 y Fh(i)p Fk(\000)p +Fl(1)p 3610 4189 V 3610 4242 a Fw(q)3661 4265 y Fh(i)p +Fk(\000)p Fl(1)0 4350 y Fw(pair)29 b(pro)s(duction)h(v)m(ertex,)j(to)d +(the)h(pro)s(duction)f(v)m(ertex)i(of)e(a)g(`new')i(q)2575 +4365 y Fh(i)p 2604 4297 V 2604 4350 a Fw(q)2655 4373 +y Fh(i)2714 4350 y Fw(pair,)e(and)g(the)h(string)f(piece)0 +4458 y(b)s(et)m(w)m(een)43 b(these)g(t)m(w)m(o)f(string)e(breaks)i +(represen)m(t)i(a)c(hadron.)70 b(Some)41 b(steps)h(ma)m(y)f(b)s(e)g +(tak)m(en)i(within)0 4567 y(one)36 b(and)g(the)h(same)f(region,)g +(while)f(others)h(ma)m(y)g(ha)m(v)m(e)h(one)g(v)m(ertex)g(in)f(one)g +(region)f(and)h(the)g(other)0 4675 y(v)m(ertex)31 b(in)d(another)i +(region.)41 b(Consistency)31 b(requiremen)m(ts,)g(lik)m(e)d +(energy-momen)m(tum)g(conserv)-5 b(ation,)0 4783 y(dictates)34 +b(that)f(v)m(ertex)i Fj(j)40 b Fw(and)33 b Fj(k)k Fw(region)32 +b(v)-5 b(alues)34 b(b)s(e)f(ordered)i(in)d(a)i(monotonic)e(sequence,)k +(and)e(that)0 4892 y(the)27 b(v)m(ertex)h(p)s(ositions)e(are)g +(monotonically)e(ordered)j(inside)f(eac)m(h)h(region.)41 +b(The)28 b(four-momen)m(tum)c(of)0 5000 y(eac)m(h)33 +b(hadron)f(can)h(b)s(e)f(read)g(o\013,)g(for)g Fj(p)1439 +5015 y Fl(+)1530 5000 y Fw(\()p Fj(p)1617 5015 y Fk(\000)1676 +5000 y Fw(\))g(momen)m(ta,)f(b)m(y)i(pro)5 b(jecting)32 +b(the)h(separation)e(b)s(et)m(w)m(een)0 5134 y(the)39 +b(old)e(and)i(the)g(new)g(v)m(ertex)h(on)f(to)f(the)g +Fj(j)45 b Fw(\()p Fj(k)s Fw(\))38 b(axis.)61 b(If)38 +b(the)h(four-momen)m(tum)d(fraction)i(of)g Fj(p)3697 +5083 y Fl(\()p Fh(i)p Fl(\))3697 5153 y Fk(\006)0 5269 +y Fw(tak)m(en)c(b)m(y)f(a)f(hadron)h(is)f(denoted)i Fj(x)1335 +5218 y Fl(\()p Fh(i)p Fl(\))1335 5288 y Fk(\006)1418 +5269 y Fw(,)f(then)g(the)g(total)e(hadron)h(four-momen)m(tum)f(is)h +(giv)m(en)h(b)m(y)160 5569 y Fj(p)27 b Fw(=)383 5455 +y Fh(j)412 5464 y Ff(2)355 5486 y Fg(X)340 5668 y Fh(j)t +Fl(=)p Fh(j)457 5677 y Ff(1)507 5569 y Fj(x)562 5518 +y Fl(\()p Fh(j)t Fl(\))562 5588 y(+)654 5569 y Fj(p)703 +5518 y Fl(\()p Fh(j)t Fl(\))703 5588 y(+)816 5569 y Fw(+)961 +5459 y Fh(k)998 5468 y Ff(2)937 5486 y Fg(X)914 5670 +y Fh(k)r Fl(=)p Fh(k)1045 5679 y Ff(1)1096 5569 y Fj(x)1151 +5518 y Fl(\()p Fh(k)r Fl(\))1151 5588 y Fk(\000)1249 +5569 y Fj(p)1298 5518 y Fl(\()p Fh(k)r Fl(\))1298 5588 +y Fk(\000)1417 5569 y Fw(+)22 b Fj(p)1564 5584 y Fh(x)p +Fl(1)1647 5569 y Fw(^)-53 b Fj(e)1688 5528 y Fl(\()p +Fh(j)1744 5537 y Ff(1)1779 5528 y Fh(k)1816 5537 y Ff(1)1850 +5528 y Fl(\))1688 5593 y Fh(x)1904 5569 y Fw(+)22 b Fj(p)2051 +5584 y Fh(y)r Fl(1)2131 5569 y Fw(^)-52 b Fj(e)2173 5528 +y Fl(\()p Fh(j)2229 5537 y Ff(1)2264 5528 y Fh(k)2301 +5537 y Ff(1)2335 5528 y Fl(\))2173 5593 y Fh(y)2389 5569 +y Fw(+)22 b Fj(p)2536 5584 y Fh(x)p Fl(2)2618 5569 y +Fw(^)-52 b Fj(e)2660 5528 y Fl(\()p Fh(j)2716 5537 y +Ff(2)2751 5528 y Fh(k)2788 5537 y Ff(2)2822 5528 y Fl(\))2660 +5593 y Fh(x)2876 5569 y Fw(+)22 b Fj(p)3023 5584 y Fh(y)r +Fl(2)3103 5569 y Fw(^)-53 b Fj(e)3144 5528 y Fl(\()p +Fh(j)3200 5537 y Ff(2)3235 5528 y Fh(k)3272 5537 y Ff(2)3306 +5528 y Fl(\))3144 5593 y Fh(y)3371 5569 y Fj(;)159 b +Fw(\(193\))1817 5953 y(239)p eop +%%Page: 240 246 +240 245 bop 0 -17 a Fw(for)25 b(a)g(step)h(from)e(region)g(\()p +Fj(j)1001 -2 y Fl(1)1041 -17 y Fj(;)17 b(k)1136 -2 y +Fl(1)1175 -17 y Fw(\))25 b(to)g(region)f(\()p Fj(j)1713 +-2 y Fl(2)1753 -17 y Fj(;)17 b(k)1848 -2 y Fl(2)1886 +-17 y Fw(\).)41 b(By)26 b(necessit)m(y)-8 b(,)29 b Fj(x)2614 +-68 y Fl(\()p Fh(j)t Fl(\))2614 2 y(+)2731 -17 y Fw(is)24 +b(unit)m(y)i(for)f(a)f Fj(j)3324 -2 y Fl(1)3392 -17 y +Fj(<)j(j)34 b(<)28 b(j)3713 -2 y Fl(2)3752 -17 y Fw(,)0 +118 y(and)33 b(corresp)s(ondingly)f(for)g Fj(x)1099 67 +y Fl(\()p Fh(k)r Fl(\))1099 137 y Fk(\000)1197 118 y +Fw(.)146 226 y(The)48 b(\()p Fj(p)448 241 y Fh(x)491 +226 y Fj(;)17 b(p)584 241 y Fh(y)625 226 y Fw(\))47 b(pairs)f(are)g +(the)h(transv)m(erse)h(momen)m(ta)d(pro)s(duced)j(at)e(the)g(t)m(w)m(o) +h(string)f(breaks,)0 334 y(and)32 b(the)g(\()t(^)-53 +b Fj(e)439 349 y Fh(x)483 334 y Fj(;)21 b Fw(^)-53 b +Fj(e)572 349 y Fh(y)614 334 y Fw(\))31 b(pairs)h(four-v)m(ectors)g +(transv)m(erse)i(to)e(the)g(string)g(directions)f(in)g(the)h(regions)g +(of)f(the)0 443 y(resp)s(ectiv)m(e)j(string)e(breaks:)1232 +657 y(^)-53 b Fj(e)1273 616 y Fl(\()p Fh(j)t(k)r Fl(\)2)1273 +682 y Fh(x)1466 657 y Fw(=)31 b(^)-52 b Fj(e)1615 616 +y Fl(\()p Fh(j)t(k)r Fl(\)2)1615 682 y Fh(y)1808 657 +y Fw(=)27 b Fn(\000)p Fw(1)33 b Fj(;)1232 829 y Fw(^)-53 +b Fj(e)1273 788 y Fl(\()p Fh(j)t(k)r Fl(\))1273 854 y +Fh(x)1407 829 y Fw(^)g Fj(e)1448 788 y Fl(\()p Fh(j)t(k)r +Fl(\))1448 854 y Fh(y)1606 829 y Fw(=)31 b(^)-52 b Fj(e)1755 +788 y Fl(\()p Fh(j)t(k)r Fl(\))1755 854 y Fh(x;y)1885 +829 y Fj(p)1934 778 y Fl(\()p Fh(j)t Fl(\))1934 848 y(+)2053 +829 y Fw(=)31 b(^)-53 b Fj(e)2201 788 y Fl(\()p Fh(j)t(k)r +Fl(\))2201 854 y Fh(x;y)2331 829 y Fj(p)2380 778 y Fl(\()p +Fh(k)r Fl(\))2380 848 y Fk(\000)2506 829 y Fw(=)27 b(0)32 +b Fj(:)840 b Fw(\(194\))146 1050 y(The)40 b(fact)e(that)g(the)g(hadron) +h(should)f(b)s(e)g(on)g(mass)h(shell,)f Fj(p)2423 1014 +y Fl(2)2500 1050 y Fw(=)f Fj(m)2698 1014 y Fl(2)2738 +1050 y Fw(,)j(puts)f(one)f(constrain)m(t)h(on)0 1158 +y(where)c(a)f(new)h(breakup)g(ma)m(y)f(b)s(e,)g(giv)m(en)h(that)e(the)i +(old)e(one)h(is)g(already)f(kno)m(wn,)j(just)e(as)g(eq.)h(\(177\))0 +1267 y(did)28 b(in)g(the)i(simple)d(2-jet)h(case.)43 +b(The)30 b(remaining)c(degree)k(of)f(freedom)f(is,)h(as)g(b)s(efore,)h +(to)f(b)s(e)g(giv)m(en)g(b)m(y)0 1375 y(the)e(fragmen)m(tation)d +(function)h Fj(f)11 b Fw(\()p Fj(z)t Fw(\).)42 b(The)27 +b(in)m(terpretation)e(of)g(the)i Fj(z)k Fw(is)25 b(only)h(w)m +(ell-de\014ned)g(for)g(a)g(step)0 1483 y(en)m(tirely)32 +b(constrained)h(to)f(one)g(of)g(the)h(initial)c(string)i(regions,)h(ho) +m(w)m(ev)m(er,)j(whic)m(h)e(is)f(not)g(enough.)44 b(In)0 +1592 y(the)31 b(2-jet)e(case,)j(the)e Fj(z)35 b Fw(v)-5 +b(alues)30 b(can)g(b)s(e)h(related)f(to)f(the)i(prop)s(er)f(times)f(of) +h(string)f(breaks,)j(as)f(follo)m(ws.)0 1700 y(The)42 +b(v)-5 b(ariable)40 b(\000)i(=)h(\()p Fj(\024\034)11 +b Fw(\))991 1664 y Fl(2)1031 1700 y Fw(,)43 b(with)e +Fj(\024)h Fw(the)f(string)g(tension)g(and)h Fj(\034)53 +b Fw(the)41 b(prop)s(er)h(time)e(b)s(et)m(w)m(een)j(the)0 +1808 y(pro)s(duction)28 b(v)m(ertex)i(of)e(the)h(partons)g(and)g(the)g +(breakup)g(p)s(oin)m(t,)g(ob)s(eys)g(an)g(iterativ)m(e)e(relation)g(of) +h(the)0 1917 y(kind)1203 2121 y(\000)1264 2136 y Fl(0)1386 +2121 y Fw(=)83 b(0)32 b Fj(;)1214 2323 y Fw(\000)1275 +2338 y Fh(i)1386 2323 y Fw(=)83 b(\(1)22 b Fn(\000)g +Fj(z)1798 2338 y Fh(i)1827 2323 y Fw(\))1882 2177 y Fg( )1947 +2323 y Fw(\000)2008 2338 y Fh(i)p Fk(\000)p Fl(1)2149 +2323 y Fw(+)2257 2256 y Fj(m)2342 2220 y Fl(2)2342 2280 +y Fk(?)p Fh(i)p 2257 2300 169 4 v 2304 2392 a Fj(z)2349 +2407 y Fh(i)2435 2177 y Fg(!)2550 2323 y Fj(:)980 b Fw(\(195\))0 +2597 y(Here)43 b(\000)301 2612 y Fl(0)382 2597 y Fw(represen)m(ts)h +(the)f(v)-5 b(alue)41 b(at)h(the)g(q)h(and)p 1888 2544 +52 4 v 42 w(q)f(endp)s(oin)m(ts,)j(and)d(\000)2725 2612 +y Fh(i)p Fk(\000)p Fl(1)2885 2597 y Fw(and)g(\000)3145 +2612 y Fh(i)3216 2597 y Fw(the)g(v)-5 b(alues)42 b(at)0 +2705 y(the)32 b(old)e(and)i(new)g(breakup)g(v)m(ertices)h(needed)g(to)e +(pro)s(duce)h(a)f(hadron)g(with)g(transv)m(erse)j(mass)d +Fj(m)3669 2720 y Fk(?)p Fh(i)3752 2705 y Fw(,)0 2813 +y(and)39 b(with)f(the)h Fj(z)643 2828 y Fh(i)710 2813 +y Fw(of)f(the)i(step)f(c)m(hosen)h(according)e(to)h Fj(f)11 +b Fw(\()p Fj(z)2245 2828 y Fh(i)2273 2813 y Fw(\).)62 +b(The)39 b(prop)s(er)g(time)e(can)i(b)s(e)g(de\014ned)0 +2922 y(in)33 b(an)h(unam)m(biguous)f(w)m(a)m(y)-8 b(,)36 +b(also)d(o)m(v)m(er)i(b)s(oundaries)e(b)s(et)m(w)m(een)j(the)f +(di\013eren)m(t)f(string)f(regions,)h(so)g(for)0 3030 +y(m)m(ultijet)e(ev)m(en)m(ts)k(the)f Fj(z)k Fw(v)-5 b(ariable)32 +b(ma)m(y)i(b)s(e)g(in)m(terpreted)h(just)g(as)f(an)g(auxiliary)e(v)-5 +b(ariable)32 b(needed)k(to)0 3138 y(determine)f(the)g(next)h(\000)f(v) +-5 b(alue.)50 b(\(In)35 b(the)h(Lund)f(symmetric)f(fragmen)m(tation)g +(function)g(deriv)-5 b(ation,)0 3247 y(the)34 b(\000)g(v)-5 +b(ariable)32 b(actually)g(do)s(es)j(app)s(ear)e(naturally)-8 +b(,)33 b(so)h(the)g(c)m(hoice)g(is)f(not)h(as)g(arbitrary)f(as)h(it)f +(ma)m(y)0 3355 y(seem)39 b(here.\))61 b(The)39 b(mass)f(and)g(\000)g +(constrain)m(ts)h(together)f(are)h(su\016cien)m(t)g(to)f(determine)g +(where)h(the)0 3463 y(next)45 b(string)f(breakup)i(is)e(to)g(b)s(e)h(c) +m(hosen,)k(giv)m(en)c(the)g(preceding)g(one)g(in)f(the)h(iteration)d +(sc)m(heme.)0 3572 y(Actually)-8 b(,)32 b(sev)m(eral)h(am)m(biguities)d +(remain,)h(but)i(are)g(of)f(no)g(imp)s(ortance)f(for)h(the)h(o)m(v)m +(erall)f(picture.)146 3680 y(The)38 b(algorithm)c(for)i(\014nding)h +(the)g(next)h(breakup)g(then)g(w)m(orks)g(something)e(lik)m(e)h(follo)m +(ws.)55 b(Pic)m(k)0 3788 y(a)34 b(hadron,)h Fj(p)492 +3803 y Fk(?)551 3788 y Fw(,)g(and)g Fj(z)t Fw(,)h(and)e(calculate)g +(the)h(next)g(\000.)49 b(If)35 b(the)g(old)e(breakup)j(is)e(in)g(the)h +(region)e(\()p Fj(j;)17 b(k)s Fw(\),)0 3897 y(and)42 +b(if)f(the)i(new)g(breakup)g(is)f(also)f(assumed)i(to)e(b)s(e)i(in)e +(the)i(same)f(region,)h(then)g(the)g Fj(m)3438 3860 y +Fl(2)3519 3897 y Fw(and)g(\000)0 4025 y(constrain)m(ts)38 +b(can)g(b)s(e)g(reform)m(ulated)e(in)h(terms)h(of)f(the)h(fractions)f +Fj(x)2547 3974 y Fl(\()p Fh(j)t Fl(\))2547 4044 y(+)2676 +4025 y Fw(and)h Fj(x)2926 3974 y Fl(\()p Fh(k)r Fl(\))2926 +4044 y Fk(\000)3062 4025 y Fw(the)g(hadron)f(m)m(ust)0 +4160 y(tak)m(e)c(of)f(the)h(total)e(four-v)m(ectors)j +Fj(p)1307 4109 y Fl(\()p Fh(j)t Fl(\))1307 4179 y(+)1431 +4160 y Fw(and)e Fj(p)1669 4109 y Fl(\()p Fh(k)r Fl(\))1669 +4179 y Fk(\000)1767 4160 y Fw(:)1016 4391 y Fj(m)1101 +4350 y Fl(2)1224 4391 y Fw(=)83 b Fj(c)1425 4406 y Fl(1)1487 +4391 y Fw(+)22 b Fj(c)1627 4406 y Fl(2)1666 4391 y Fj(x)1721 +4340 y Fl(\()p Fh(j)t Fl(\))1721 4410 y(+)1835 4391 y +Fw(+)g Fj(c)1975 4406 y Fl(3)2014 4391 y Fj(x)2069 4340 +y Fl(\()p Fh(k)r Fl(\))2069 4410 y Fk(\000)2190 4391 +y Fw(+)g Fj(c)2330 4406 y Fl(4)2369 4391 y Fj(x)2424 +4340 y Fl(\()p Fh(j)t Fl(\))2424 4410 y(+)2516 4391 y +Fj(x)2571 4340 y Fl(\()p Fh(k)r Fl(\))2571 4410 y Fk(\000)2701 +4391 y Fj(;)1080 4551 y Fw(\000)83 b(=)g Fj(d)1434 4566 +y Fl(1)1495 4551 y Fw(+)22 b Fj(d)1644 4566 y Fl(2)1683 +4551 y Fj(x)1738 4500 y Fl(\()p Fh(j)t Fl(\))1738 4570 +y(+)1852 4551 y Fw(+)g Fj(d)2001 4566 y Fl(3)2041 4551 +y Fj(x)2096 4500 y Fl(\()p Fh(k)r Fl(\))2096 4570 y Fk(\000)2216 +4551 y Fw(+)g Fj(d)2365 4566 y Fl(4)2404 4551 y Fj(x)2459 +4500 y Fl(\()p Fh(j)t Fl(\))2459 4570 y(+)2551 4551 y +Fj(x)2606 4500 y Fl(\()p Fh(k)r Fl(\))2606 4570 y Fk(\000)2736 +4551 y Fj(:)794 b Fw(\(196\))0 4756 y(Here)41 b(the)h(co)s(e\016cien)m +(ts)f Fj(c)958 4771 y Fh(n)1046 4756 y Fw(are)g(fairly)e(simple)g +(expressions,)44 b(obtainable)39 b(b)m(y)j(squaring)f(eq.)g(\(193\),)0 +4864 y(while)g Fj(d)315 4879 y Fh(n)403 4864 y Fw(are)h(sligh)m(tly)e +(more)h(complicated)f(in)h(that)g(they)i(dep)s(end)g(on)e(the)h(p)s +(osition)e(of)h(the)h(old)0 4972 y(string)c(break,)k(but)d(b)s(oth)f +(the)i Fj(c)1225 4987 y Fh(n)1311 4972 y Fw(and)f(the)g +Fj(d)1732 4987 y Fh(n)1817 4972 y Fw(are)g(explicitly)e(calculable.)61 +b(What)39 b(remains)f(is)h(an)0 5101 y(equation)28 b(system)i(with)e(t) +m(w)m(o)i(unkno)m(wns,)h Fj(x)1647 5050 y Fl(\()p Fh(j)t +Fl(\))1647 5120 y(+)1768 5101 y Fw(and)e Fj(x)2009 5050 +y Fl(\()p Fh(k)r Fl(\))2009 5120 y Fk(\000)2107 5101 +y Fw(.)42 b(The)29 b(absence)i(of)d(an)m(y)h(quadratic)f(terms)h(is)0 +5236 y(due)e(to)e(the)h(fact)g(that)g(all)d Fj(p)1019 +5185 y Fl(\()p Fh(i)p Fl(\)2)1019 5255 y Fk(\006)1165 +5236 y Fw(=)28 b(0,)f(i.e.)41 b(to)25 b(the)h(c)m(hoice)h(of)e(a)h +(form)m(ulation)d(based)j(on)g(ligh)m(t-cone-lik)m(e)0 +5344 y(longitudinal)g(v)m(ectors.)44 b(Of)30 b(the)g(t)m(w)m(o)g(p)s +(ossible)g(solutions)e(to)i(the)g(equation)g(system)g(\(elimination)c +(of)0 5453 y(one)37 b(v)-5 b(ariable)36 b(giv)m(es)h(a)g(second)h +(degree)g(equation)f(in)f(the)h(other\),)i(one)e(is)g(unph)m(ysical)g +(and)g(can)g(b)s(e)0 5561 y(discarded)d(outrigh)m(t.)47 +b(The)35 b(other)f(solution)f(is)g(c)m(hec)m(k)m(ed)k(for)d(whether)h +(the)g Fj(x)2892 5576 y Fk(\006)2985 5561 y Fw(v)-5 b(alues)34 +b(are)g(actually)0 5669 y(inside)g(the)i(ph)m(ysically)f(allo)m(w)m(ed) +f(region,)h(i.e.)51 b(whether)36 b(the)g Fj(x)2356 5684 +y Fk(\006)2450 5669 y Fw(v)-5 b(alues)35 b(of)g(the)h(curren)m(t)g +(step,)h(plus)1817 5953 y(240)p eop +%%Page: 241 247 +241 246 bop 0 -18 a Fw(whatev)m(er)29 b(has)e(already)g(b)s(een)g(used) +h(up)g(in)e(previous)h(steps,)j(are)d(less)g(than)g(unit)m(y)-8 +b(.)42 b(If)27 b(y)m(es,)i(a)e(solution)0 90 y(has)39 +b(b)s(een)g(found.)60 b(If)38 b(no,)i(it)d(is)h(b)s(ecause)h(the)g +(breakup)g(could)f(not)g(tak)m(e)h(place)f(inside)g(the)g(region)0 +198 y(studied,)32 b(i.e.)43 b(b)s(ecause)33 b(the)f(equation)f(system)i +(w)m(as)f(solv)m(ed)g(for)f(the)h(wrong)g(region.)42 +b(One)32 b(therefore)0 307 y(has)40 b(to)f(c)m(hange)i(either)f(index)g +Fj(j)45 b Fw(or)40 b(index)f Fj(k)k Fw(ab)s(o)m(v)m(e)e(b)m(y)f(one)g +(step,)j(i.e.)64 b(go)39 b(to)h(the)g(next)g(nearest)0 +415 y(string)32 b(region.)43 b(In)33 b(this)g(new)g(region,)f(a)h(new)g +(equation)g(system)g(of)g(the)g(t)m(yp)s(e)g(in)f(eq.)i(\(196\))e(ma)m +(y)g(b)s(e)0 523 y(written)h(do)m(wn,)h(with)e(new)i(co)s(e\016cien)m +(ts.)45 b(A)33 b(new)h(solution)d(is)i(found)g(and)g(tested,)h(and)f +(so)g(on)g(un)m(til)0 632 y(a)38 b(ph)m(ysically)g(acceptable)h +(solution)e(is)h(found.)62 b(The)40 b(hadron)e(four-momen)m(tum)f(is)h +(no)m(w)h(giv)m(en)g(b)m(y)0 740 y(an)32 b(expression)h(of)f(the)g(t)m +(yp)s(e)h(\(193\).)43 b(The)33 b(breakup)g(found)f(forms)f(the)h +(starting)f(p)s(oin)m(t)h(for)f(the)i(new)0 848 y(step)i(in)e(the)h +(fragmen)m(tation)d(c)m(hain,)j(and)g(so)g(on.)47 b(The)35 +b(\014nal)d(joining)g(in)h(the)h(middle)e(is)h(done)h(as)g(in)0 +957 y(the)f(2-jet)f(case,)h(with)g(minor)d(extensions.)0 +1231 y Fp(12.3)136 b(Indep)t(enden)l(t)44 b(F)-11 b(ragmen)l(tation)0 +1403 y Fw(The)35 b(indep)s(enden)m(t)h(fragmen)m(tation)c(\(IF\))i +(approac)m(h)h(dates)f(bac)m(k)i(to)e(the)g(early)g(sev)m(en)m(ties)j +([Krz72)o(],)0 1512 y(and)f(gained)e(widespread)j(p)s(opularit)m(y)d +(with)h(the)h(Field-F)-8 b(eynman)33 b(pap)s(er)j([Fie78)o(].)52 +b(Subsequen)m(tly)-8 b(,)0 1620 y(IF)29 b(w)m(as)g(the)g(basis)g(for)f +(t)m(w)m(o)i(programs)e(widely)g(used)i(in)e(the)h(early)g(PETRA/PEP)h +(da)m(ys,)h(the)e(Ho)m(y)m(er)0 1728 y(et)34 b(al.)f([Ho)m(y79)q(])h +(and)g(the)g(Ali)e(et)j(al.)e([Ali80)n(])h(programs.)47 +b(JETSET)36 b(has)e(as)g(\(non-default\))f(options)0 +1837 y(a)f(wide)h(selection)f(of)g(indep)s(enden)m(t)i(fragmen)m +(tation)d(algorithms.)0 2084 y Fo(12.3.1)113 b(F)-9 b(ragmen)m(tation) +36 b(of)i(a)g(single)e(jet)0 2257 y Fw(In)30 b(the)g(IF)g(approac)m(h,) +g(it)f(is)g(assumed)i(that)e(the)h(fragmen)m(tation)e(of)h(an)m(y)i +(system)f(of)f(partons)h(can)g(b)s(e)0 2365 y(describ)s(ed)h(as)g(an)g +(incoheren)m(t)g(sum)f(of)h(indep)s(enden)m(t)g(fragmen)m(tation)e(pro) +s(cedures)j(for)e(eac)m(h)i(parton)0 2474 y(separately)-8 +b(.)54 b(The)37 b(pro)s(cess)g(is)e(to)h(b)s(e)g(carried)f(out)h(in)f +(the)i(o)m(v)m(erall)d(c.m.)54 b(frame)35 b(of)g(the)h(jet)g(system,)0 +2582 y(with)j(eac)m(h)h(jet)g(fragmen)m(tation)d(axis)i(giv)m(en)h(b)m +(y)g(the)g(direction)e(of)h(motion)e(of)i(the)h(corresp)s(onding)0 +2690 y(parton)32 b(in)g(that)g(frame.)146 2799 y(Exactly)42 +b(as)g(in)e(string)h(fragmen)m(tation,)h(an)f(iterativ)m(e)g(ansatz)h +(can)g(b)s(e)f(used)i(to)e(describ)s(e)h(the)0 2907 y(sucessiv)m(e)35 +b(pro)s(duction)c(of)h(one)h(hadron)f(after)g(the)h(next.)44 +b(Assume)34 b(that)e(a)g(quark)h(is)f(kic)m(k)m(ed)h(out)g(b)m(y)0 +3015 y(some)39 b(hard)g(in)m(teraction,)g(carrying)g(a)g(w)m +(ell-de\014ned)g(amoun)m(t)f(of)h(energy)h(and)f(momen)m(tum.)61 +b(This)0 3124 y(quark)40 b(jet)f(q)h(is)f(split)f(in)m(to)h(a)g(hadron) +g(q)p 1534 3071 52 4 v(q)1586 3147 y Fl(1)1665 3124 y +Fw(and)g(a)g(remainder-jet)f(q)2611 3139 y Fl(1)2651 +3124 y Fw(,)j(essen)m(tially)e(collinear)e(with)0 3232 +y(eac)m(h)32 b(other.)43 b(New)32 b(quark)g(and)g(hadron)f(\015a)m(v)m +(ours)h(are)g(pic)m(k)m(ed)g(as)f(already)g(describ)s(ed.)44 +b(The)32 b(sharing)0 3340 y(of)k(energy)h(and)f(momen)m(tum)f(is)g(giv) +m(en)i(b)m(y)g(some)f(probabilit)m(y)e(distribution)g +Fj(f)11 b Fw(\()p Fj(z)t Fw(\),)37 b(where)h Fj(z)i Fw(is)c(the)0 +3449 y(fraction)g(tak)m(en)j(b)m(y)g(the)f(hadron,)h(lea)m(ving)d(1)26 +b Fn(\000)g Fj(z)42 b Fw(for)37 b(the)i(remainder-jet.)57 +b(The)39 b(remainder-jet)d(is)0 3557 y(assumed)41 b(to)e(b)s(e)i(just)f +(a)g(scaled-do)m(wn)g(v)m(ersion)h(of)f(the)g(original)d(jet,)42 +b(in)d(an)h(a)m(v)m(erage)h(sense.)68 b(The)0 3665 y(pro)s(cess)32 +b(of)d(splitting)g(o\013)g(a)i(hadron)f(can)h(therefore)f(b)s(e)h +(iterated,)f(to)g(yield)g(a)g(sequence)j(of)d(hadrons.)0 +3774 y(In)j(particular,)e(the)i(function)f Fj(f)11 b +Fw(\()p Fj(z)t Fw(\))33 b(is)f(assumed)h(to)f(b)s(e)h(the)g(same)f(at)g +(eac)m(h)i(step,)f(i.e.)43 b(indep)s(enden)m(t)0 3882 +y(of)33 b(remaining)e(energy)-8 b(.)46 b(If)33 b Fj(z)38 +b Fw(is)32 b(in)m(terpreted)i(as)g(the)f(fraction)f(of)h(the)h(jet)f +Fj(E)c Fw(+)22 b Fj(p)3015 3897 y Fl(L)3063 3882 y Fw(,)34 +b(i.e.)44 b(energy)35 b(plus)0 3990 y(longitudinal)d(momen)m(tum)j +(with)g(resp)s(ect)i(to)f(the)g(jet)g(axis,)g(this)g(leads)f(to)h(a)f +(\015at)h(cen)m(tral)g(rapidit)m(y)0 4099 y(plateau)c +Fj(dn=dy)j Fw(for)d(a)g(large)g(initial)c(energy)-8 b(.)146 +4207 y(F)g(ragmen)m(tation)33 b(functions)i(can)g(b)s(e)g(c)m(hosen)h +(among)e(those)i(listed)e(ab)s(o)m(v)m(e)h(for)g(string)f(fragmen-)0 +4316 y(tation,)d(but)i(also)f(here)h(the)g(default)f(is)g(the)h(Lund)g +(symmetric)f(fragmen)m(tation)f(function.)146 4424 y(The)25 +b(normal)d Fj(z)29 b Fw(in)m(terpretation)23 b(means)h(that)g(a)g(c)m +(hoice)g(of)f(a)h Fj(z)29 b Fw(v)-5 b(alue)23 b(close)h(to)g(0)g +(corresp)s(onds)h(to)f(a)0 4532 y(particle)d(mo)m(ving)g(bac)m(kw)m +(ards,)26 b(i.e.)40 b(with)21 b Fj(p)1591 4547 y Fl(L)1667 +4532 y Fj(<)28 b Fw(0.)39 b(It)23 b(mak)m(es)f(sense)i(to)e(allo)m(w)e +(only)i(the)h(pro)s(duction)e(of)0 4641 y(particles)27 +b(with)h Fj(p)653 4656 y Fl(L)729 4641 y Fj(>)f Fw(0,)i(but)f(to)g +(explicitly)e(constrain)h Fj(z)33 b Fw(accordingly)27 +b(w)m(ould)h(destro)m(y)h(longitudinal)0 4749 y(in)m(v)-5 +b(ariance.)41 b(The)31 b(most)d(straigh)m(tforw)m(ard)h(w)m(a)m(y)h +(out)f(is)g(to)g(allo)m(w)e(all)g Fj(z)34 b Fw(v)-5 b(alues)29 +b(but)h(discard)f(hadrons)0 4857 y(with)39 b Fj(p)278 +4872 y Fl(L)365 4857 y Fj(<)h Fw(0.)63 b(Fla)m(v)m(our,)41 +b(transv)m(erse)g(momen)m(tum)d(and)i Fj(E)33 b Fw(+)26 +b Fj(p)2455 4872 y Fl(L)2543 4857 y Fw(carried)39 b(b)m(y)h(these)h +(hadrons)e(are)0 4966 y(`lost')j(for)f(the)i(forw)m(ard)f(jet.)73 +b(The)43 b(a)m(v)m(erage)g(energy)g(of)f(the)h(\014nal)e(jet)h(comes)h +(out)f(roughly)f(righ)m(t)0 5074 y(this)c(w)m(a)m(y)-8 +b(,)40 b(with)e(a)f(spread)h(of)f(1{2)g(GeV)h(around)g(the)g(mean.)58 +b(The)38 b(jet)g(longitudinal)c(momen)m(tum)0 5182 y(is)j(decreased,)k +(ho)m(w)m(ev)m(er,)g(since)d(the)g(jet)f(acquires)h(an)g(e\013ectiv)m +(e)g(mass)g(during)e(the)i(fragmen)m(tation)0 5291 y(pro)s(cedure.)48 +b(F)-8 b(or)33 b(a)h(2-jet)f(ev)m(en)m(t)j(this)d(is)g(as)h(it)f +(should)h(b)s(e,)g(at)g(least)f(on)h(a)m(v)m(erage,)h(b)s(ecause)g +(also)e(the)0 5399 y(momen)m(tum)e(of)h(the)h(comp)s(ensating)f(opp)s +(osite-side)g(parton)g(is)g(decreased.)146 5507 y(In)46 +b(addition)e(to)i(lo)s(cal)d(\015a)m(v)m(our)k(conserv)-5 +b(ation)46 b(in)f(q)2144 5522 y Fh(i)p 2172 5454 V 2172 +5507 a Fw(q)2224 5531 y Fh(i)2298 5507 y Fw(splittings,)i(it)e(is)g +(also)g(assumed)i(that)0 5616 y(transv)m(erse)38 b(momen)m(tum)d(is)h +(lo)s(cally)e(conserv)m(ed,)39 b(i.e.)54 b(the)37 b(net)g +Fj(p)2444 5631 y Fk(?)2539 5616 y Fw(of)f(the)h(q)2877 +5631 y Fh(i)p 2905 5563 V 2905 5616 a Fw(q)2957 5639 +y Fh(i)3021 5616 y Fw(pair)e(as)i(a)f(whole)g(is)1817 +5953 y(241)p eop +%%Page: 242 248 +242 247 bop 0 -18 a Fw(assumed)30 b(to)g(b)s(e)g(v)-5 +b(anishing.)41 b(The)31 b Fj(p)1350 -3 y Fk(?)1439 -18 +y Fw(of)e(the)h(q)g(is)g(tak)m(en)g(to)g(b)s(e)g(a)f(Gaussian)h(in)f +(the)h(t)m(w)m(o)g(transv)m(erse)0 90 y(degrees)41 b(of)d(freedom)h +(separately)-8 b(,)41 b(with)e(the)h(transv)m(erse)h(momen)m(tum)d(of)h +(a)g(hadron)g(obtained)g(b)m(y)0 198 y(the)33 b(sum)f(of)h(constituen)m +(t)g(quark)g(transv)m(erse)i(momen)m(ta.)146 307 y(Within)g(the)i(IF)g +(framew)m(ork,)g(there)h(is)e(no)g(unique)h(recip)s(e)f(for)g(ho)m(w)h +(gluon)f(jet)g(fragmen)m(tation)0 415 y(should)e(b)s(e)g(handled.)47 +b(One)35 b(p)s(ossibilit)m(y)c(is)j(to)f(treat)h(it)f(exactly)h(lik)m +(e)g(a)f(quark)i(jet,)f(with)g(the)g(initial)0 523 y(quark)d(\015a)m(v) +m(our)g(c)m(hosen)h(at)e(random)g(among)f(u,)p 1801 470 +55 4 v 31 w(u,)i(d,)p 2025 444 V 31 w(d,)g(s)g(and)p +2394 470 39 4 v 31 w(s,)g(including)d(the)j(ordinary)f(s)h(quark)0 +632 y(suppression)43 b(factor.)71 b(Since)42 b(the)g(gluon)f(is)h(supp) +s(osed)h(to)e(fragmen)m(t)h(more)f(softly)g(than)h(a)g(quark)0 +740 y(jet,)35 b(the)g(fragmen)m(tation)e(fuction)g(ma)m(y)i(b)s(e)f(c)m +(hosen)j(indep)s(enden)m(tly)-8 b(.)49 b(Another)35 b(common)f(option)f +(is)0 848 y(to)41 b(split)f(the)i(g)g(jet)f(in)m(to)g(a)g(pair)f(of)h +(parallel)e(q)i(and)p 2047 795 52 4 v 42 w(q)h(ones,)i(sharing)d(the)g +(energy)-8 b(,)45 b(e.g.)70 b(as)41 b(in)g(a)0 957 y(p)s(erturbativ)m +(e)e(branc)m(hing)f(g)g Fn(!)g Fw(q)p 1301 904 V(q,)i(i.e.)60 +b Fj(f)11 b Fw(\()p Fj(z)t Fw(\))38 b Fn(/)g Fj(z)1990 +920 y Fl(2)2056 957 y Fw(+)26 b(\(1)g Fn(\000)h Fj(z)t +Fw(\))2462 920 y Fl(2)2502 957 y Fw(.)60 b(The)40 b(fragmen)m(tation)c +(function)0 1065 y(could)25 b(still)e(b)s(e)j(c)m(hosen)h(indep)s +(enden)m(tly)-8 b(,)27 b(if)d(so)i(desired.)42 b(F)-8 +b(urther,)26 b(in)f(either)g(case)i(the)e(fragmen)m(tation)0 +1173 y Fj(p)49 1188 y Fk(?)141 1173 y Fw(could)32 b(b)s(e)g(c)m(hosen)j +(to)d(ha)m(v)m(e)i(a)e(di\013eren)m(t)h(mean.)0 1421 +y Fo(12.3.2)113 b(F)-9 b(ragmen)m(tation)36 b(of)i(a)g(jet)f(system)0 +1594 y Fw(In)g(a)g(system)h(of)f(man)m(y)g(jets,)i(eac)m(h)f(jet)f(is)g +(fragmen)m(ted)g(indep)s(enden)m(tly)-8 b(.)57 b(Since)38 +b(eac)m(h)g(jet)f(b)m(y)h(itself)0 1702 y(do)s(es)28 +b(not)g(conserv)m(es)i(the)e(\015a)m(v)m(our,)i(energy)e(and)g(momen)m +(tum,)g(then)g(neither)f(do)s(es)i(a)e(system)i(of)e(jets.)0 +1810 y(A)m(t)32 b(the)g(end)g(of)f(the)h(generation,)f(sp)s(ecial)f +(algorithms)f(are)i(therefore)h(used)h(to)e(patc)m(h)h(this)f(up.)44 +b(The)0 1919 y(c)m(hoice)35 b(of)e(approac)m(h)i(has)g(ma)5 +b(jor)33 b(consequences,)38 b(e.g.)49 b(for)34 b(ev)m(en)m(t)i(shap)s +(es)f(and)g Fj(\013)3079 1934 y Fl(s)3145 1919 y Fw(determinations)0 +2027 y([Sj\177)-49 b(o84a)o(].)146 2135 y(Little)28 b(atten)m(tion)g +(is)h(usually)f(giv)m(en)h(to)g(\015a)m(v)m(our)h(conserv)-5 +b(ation,)30 b(and)f(w)m(e)h(only)f(o\013er)g(one)g(sc)m(heme.)0 +2244 y(When)47 b(the)f(fragmen)m(tation)e(of)h(all)e(jets)k(has)f(b)s +(een)g(p)s(erformed,)j(indep)s(enden)m(tly)d(of)g(eac)m(h)g(other,)0 +2352 y(the)40 b(net)g(initial)35 b(\015a)m(v)m(our)41 +b(comp)s(osition,)d(i.e.)64 b(n)m(um)m(b)s(er)40 b(of)f(u)g(quarks)i +(min)m(us)e(n)m(um)m(b)s(er)h(of)p 3404 2299 55 4 v 39 +w(u)f(quarks)0 2460 y(etc.,)45 b(is)c(compared)g(with)h(the)g(net)g +(\014nal)f(\015a)m(v)m(our)h(comp)s(osition.)68 b(In)42 +b(case)h(of)e(an)h(im)m(balance,)g(the)0 2569 y(\015a)m(v)m(ours)e(of)e +(the)h(hadron)g(with)f(lo)m(w)m(est)h(three-momen)m(tum)f(are)g(remo)m +(v)m(ed,)j(and)e(the)g(im)m(balance)e(is)0 2677 y(re-ev)-5 +b(aluated.)62 b(If)39 b(the)g(remaining)d(im)m(balance)i(could)g(b)s(e) +h(comp)s(ensated)g(b)m(y)h(a)f(suitable)f(c)m(hoice)h(of)0 +2785 y(new)i(\015a)m(v)m(ours)g(for)e(this)h(hadron,)i(\015a)m(v)m +(ours)f(are)f(so)g(c)m(hosen,)j(a)c(new)i(mass)f(is)f(found)h(and)g +(the)h(new)0 2894 y(energy)46 b(can)f(b)s(e)h(ev)-5 b(aluated,)48 +b(k)m(eeping)e(the)f(three-momen)m(tum)f(of)h(the)g(original)d(hadron.) +81 b(If)45 b(the)0 3002 y(remo)m(v)-5 b(al)36 b(of)h(\015a)m(v)m(ours)h +(from)e(the)i(hadron)f(with)g(lo)m(w)m(est)h(momen)m(tum)e(is)h(not)g +(enough,)i(\015a)m(v)m(ours)f(are)0 3111 y(remo)m(v)m(ed)i(from)f(the)h +(one)g(with)f(next-lo)m(w)m(est)i(momen)m(tum,)e(and)h(so)g(on)f(un)m +(til)g(enough)h(freedom)f(is)0 3219 y(obtained,)g(whereafter)g(the)g +(necessary)h(\015a)m(v)m(ours)g(are)e(recom)m(bined)g(at)g(random)f(to) +h(form)f(the)i(new)0 3327 y(hadrons.)44 b(Occasionally)31 +b(one)i(extra)g(q)1456 3342 y Fh(i)p 1485 3274 52 4 v +1485 3327 a Fw(q)1536 3351 y Fh(i)1597 3327 y Fw(pair)e(m)m(ust)i(b)s +(e)g(created,)g(whic)m(h)h(is)e(then)h(done)g(according)0 +3436 y(to)f(the)h(customary)g(probabilities.)146 3544 +y(Sev)m(eral)i(di\013eren)m(t)g(sc)m(hemes)i(for)d(energy)i(and)f +(momen)m(tum)e(conserv)-5 b(ation)35 b(ha)m(v)m(e)h(b)s(een)f(devised.) +0 3652 y(One)29 b([Ho)m(y79)q(])g(is)f(to)h(conserv)m(e)i(transv)m +(erse)g(momen)m(tum)d(lo)s(cally)e(within)i(eac)m(h)i(jet,)g(so)f(that) +g(the)g(\014nal)0 3761 y(momen)m(tum)g(v)m(ector)i(of)f(a)g(jet)g(is)g +(alw)m(a)m(ys)g(parallel)e(with)i(that)f(of)h(the)h(corresp)s(onding)f +(parton.)42 b(Then)0 3869 y(longitudinal)29 b(momen)m(ta)j(ma)m(y)g(b)s +(e)h(rescaled)h(separately)f(for)f(particles)g(within)g(eac)m(h)h(jet,) +g(suc)m(h)i(that)0 3977 y(the)j(ratio)f(of)g(rescaled)h(jet)g(momen)m +(tum)e(to)i(initial)c(parton)j(momen)m(tum)g(is)g(the)h(same)g(in)f +(all)f(jets.)0 4086 y(Since)28 b(the)g(initial)c(partons)29 +b(had)f(net)g(v)-5 b(anishing)27 b(three-momen)m(tum,)g(so)h(do)g(no)m +(w)h(the)f(hadrons.)43 b(The)0 4194 y(rescaling)31 b(factors)h(ma)m(y)f +(b)s(e)h(c)m(hosen)i(suc)m(h)f(that)f(also)f(energy)h(comes)g(out)g +(righ)m(t.)43 b(Another)32 b(common)0 4302 y(approac)m(h)i([Ali80)n(])g +(is)f(to)g(b)s(o)s(ost)g(the)h(ev)m(en)m(t)i(to)d(the)h(frame)f(where)i +(the)f(total)e(hadronic)h(momen)m(tum)0 4411 y(is)42 +b(v)-5 b(anishing.)72 b(After)43 b(that,)h(energy)g(conserv)-5 +b(ation)42 b(can)h(b)s(e)g(obtained)f(b)m(y)h(rescaling)e(all)g +(particle)0 4519 y(three-momen)m(ta)32 b(b)m(y)h(a)f(common)g(factor.) +146 4627 y(The)38 b(n)m(um)m(b)s(er)f(of)f(p)s(ossible)f(sc)m(hemes)k +(is)d(in\014nite.)54 b(Tw)m(o)37 b(further)g(options)f(are)g(a)m(v)-5 +b(ailable)34 b(in)i(the)0 4736 y(program.)66 b(One)41 +b(is)f(to)h(shift)f(all)e(particle)h(three-momen)m(ta)h(b)m(y)i(a)e +(common)f(amoun)m(t)h(to)g(giv)m(e)h(net)0 4844 y(v)-5 +b(anishing)36 b(momen)m(tum,)i(and)f(then)i(rescale)e(as)h(b)s(efore.) +58 b(Another)38 b(is)f(to)h(shift)f(all)e(particle)h(three-)0 +4952 y(momen)m(ta,)48 b(for)d(eac)m(h)i(particle)d(b)m(y)j(an)e(amoun)m +(t)h(prop)s(ortional)d(to)i(the)h(longitudinal)c(mass)k(with)0 +5061 y(resp)s(ect)25 b(to)f(the)g(im)m(balance)e(direction,)j(and)f +(with)g(o)m(v)m(erall)f(magnitude)f(selected)j(to)f(giv)m(e)g(momen)m +(tum)0 5169 y(conserv)-5 b(ation,)30 b(and)f(then)h(rescale)f(as)g(b)s +(efore.)43 b(In)29 b(addition,)f(there)i(is)f(a)f(c)m(hoice)i(of)e +(whether)j(to)e(treat)0 5277 y(separate)i(colour)f(singlets)g(\(lik)m +(e)g(q)p 1286 5225 V(q)1338 5241 y Fk(0)1392 5277 y Fw(and)h(q)1631 +5241 y Fk(0)p 1655 5225 V 1655 5277 a Fw(q)g(in)f(a)h(q)p +1980 5225 V(q)q(q)2083 5241 y Fk(0)p 2106 5225 V 2106 +5277 a Fw(q)2158 5241 y Fk(0)2212 5277 y Fw(ev)m(en)m(t\))h(separately) +f(or)g(as)g(one)g(single)e(big)0 5386 y(system.)146 5494 +y(A)j(serious)g(conceptual)g(w)m(eakness)i(of)d(the)h(IF)g(framew)m +(ork)f(is)h(the)g(issue)g(of)f(Loren)m(tz)h(in)m(v)-5 +b(ariance.)0 5602 y(The)42 b(outcome)e(of)g(the)h(fragmen)m(tation)d +(pro)s(cedure)k(dep)s(ends)g(on)f(the)g(co)s(ordinate)e(frame)h(c)m +(hosen,)1817 5953 y(242)p eop +%%Page: 243 249 +243 248 bop 0 -18 a Fw(a)34 b(problem)f(circum)m(v)m(en)m(ted)j(b)m(y)f +(requiring)e(fragmen)m(tation)f(alw)m(a)m(ys)j(to)f(b)s(e)g(carried)g +(out)g(in)f(the)i(c.m.)0 90 y(frame.)86 b(This)47 b(is)g(a)g(consisten) +m(t)h(pro)s(cedure)g(for)e(2-jet)h(ev)m(en)m(ts,)53 b(but)47 +b(only)g(a)f(tec)m(hnical)h(tric)m(k)g(for)0 198 y(m)m(ultijets.)146 +307 y(It)24 b(should)f(b)s(e)h(noted,)i(ho)m(w)m(ev)m(er,)i(that)23 +b(a)g(Loren)m(tz)h(co)m(v)-5 b(arian)m(t)23 b(generalization)e(of)i +(the)h(indep)s(enden)m(t)0 415 y(fragmen)m(tation)37 +b(mo)s(del)g(exists,)k(in)c(whic)m(h)j(separate)f(`gluon-t)m(yp)s(e')f +(and)h(`quark-t)m(yp)s(e')h(strings)e(are)0 523 y(used,)g(the)e(Mon)m +(tv)-5 b(a)m(y)37 b(sc)m(heme)g([Mon79].)53 b(The)37 +b(`quark)g(string')e(is)h(c)m(haracterized)g(b)m(y)h(the)f(ordinary)0 +632 y(string)25 b(constan)m(t)h Fj(\024)p Fw(,)h(whereas)g(a)d(`gluon)h +(string')g(is)f(tak)m(en)j(to)e(ha)m(v)m(e)h(a)f(string)g(constan)m(t)h +Fj(\024)3248 647 y Fl(g)3289 632 y Fw(.)41 b(If)25 b +Fj(\024)3503 647 y Fl(g)3571 632 y Fj(>)j Fw(2)p Fj(\024)0 +740 y Fw(it)35 b(is)g(alw)m(a)m(ys)h(energetically)e(fa)m(v)m(ourable)i +(to)f(split)f(a)h(gluon)g(string)g(in)m(to)g(t)m(w)m(o)h(quark)g(ones,) +h(and)f(the)0 848 y(ordinary)47 b(Lund)h(string)e(mo)s(del)g(is)h(reco) +m(v)m(ered.)90 b(Otherwise,)52 b(for)47 b(a)g(3-jet)f(q)p +2958 795 52 4 v(q)q(g)j(ev)m(en)m(t)g(the)f(three)0 957 +y(di\013eren)m(t)28 b(string)f(pieces)h(are)g(joined)f(at)g(a)g +(junction.)42 b(The)28 b(motion)e(of)h(this)g(junction)h(is)f(giv)m(en) +h(b)m(y)g(the)0 1065 y(comp)s(osan)m(t)k(of)h(string)f(tensions)h +(acting)f(on)g(it.)43 b(In)33 b(particular,)f(it)f(is)i(alw)m(a)m(ys)g +(p)s(ossible)f(to)g(b)s(o)s(ost)h(an)0 1173 y(ev)m(en)m(t)f(to)f(a)f +(frame)f(where)j(this)e(junction)g(is)g(at)h(rest.)43 +b(In)31 b(this)f(frame,)g(m)m(uc)m(h)h(of)f(the)h(standard)g(na)-11 +b(\177)-38 b(\020v)m(e)0 1282 y(IF)32 b(picture)g(holds)g(for)f(the)i +(fragmen)m(tation)d(of)i(the)g(three)h(jets;)g(additionally)-8 +b(,)29 b(a)j(correct)h(treatmen)m(t)0 1390 y(w)m(ould)42 +b(automatically)d(giv)m(e)j(\015a)m(v)m(our,)k(momen)m(tum)41 +b(and)h(energy)h(conserv)-5 b(ation.)73 b(Unfortunately)-8 +b(,)0 1498 y(the)31 b(simplicit)m(y)d(is)j(lost)f(when)i(studying)f(ev) +m(en)m(ts)i(with)d(sev)m(eral)i(gluon)e(jets.)43 b(In)31 +b(general,)g(eac)m(h)h(ev)m(en)m(t)0 1607 y(will)e(con)m(tain)i(a)g(n)m +(um)m(b)s(er)g(of)g(di\013eren)m(t)g(junctions,)h(resulting)e(in)g(a)h +(p)s(olyp)s(o)s(d)f(shap)s(e)i(with)f(a)g(n)m(um)m(b)s(er)0 +1715 y(of)i(quark)h(and)f(gluons)g(strings)g(stic)m(king)g(out)g(from)f +(a)h(sk)m(eleton)h(of)e(gluon)h(strings.)48 b(With)33 +b(the)i(shift)0 1823 y(of)e(emphasis)f(from)g(three-parton)h(to)g(m)m +(ulti-parton)d(con\014gurations,)j(the)h(simple)d(option)h(existing)0 +1932 y(in)g Fm(Jetset)f Fw(6.3)h(therefore)i(is)e(no)g(longer)g +(included.)146 2040 y(A)g(second)i(conceptual)e(w)m(eakness)i(of)e(IF)g +(is)f(the)i(issue)f(of)g(collinear)d(div)m(ergences.)45 +b(In)33 b(a)e(parton-)0 2148 y(sho)m(w)m(er)46 b(picture,)i(where)e(a)e +(quark)i(or)e(gluon)g(is)g(exp)s(ected)i(to)f(branc)m(h)g(in)m(to)f +(sev)m(eral)h(reasonably)0 2257 y(collimated)31 b(partons,)k(the)g +(indep)s(enden)m(t)g(fragmen)m(tation)e(of)h(one)g(single)f(parton)i +(or)e(of)h(a)g(bunc)m(h)i(of)0 2365 y(collinear)30 b(ones)j(giv)m(es)f +(quite)g(di\013eren)m(t)h(outcomes,)f(e.g.)44 b(with)31 +b(a)h(m)m(uc)m(h)h(larger)e(hadron)h(m)m(ultiplicit)m(y)0 +2473 y(in)26 b(the)i(latter)e(case.)43 b(It)27 b(is)f(conceiv)-5 +b(able)27 b(that)g(a)g(di\013eren)m(t)g(set)h(of)e(fragmen)m(tation)g +(functions)h(could)f(b)s(e)0 2582 y(constructed)34 b(in)d(the)h(sho)m +(w)m(er)i(case)e(in)g(order)g(to)f(circum)m(v)m(en)m(t)i(this)f +(problem)e(\(lo)s(cal)g(parton{hadron)0 2690 y(dualit)m(y)i([Dok89)o(]) +h(w)m(ould)f(corresp)s(ond)i(to)e(ha)m(ving)g Fj(f)11 +b Fw(\()p Fj(z)t Fw(\))28 b(=)g Fj(\016)t Fw(\()p Fj(z)e +Fn(\000)d Fw(1\)\).)0 2964 y Fp(12.4)136 b(Other)45 b(F)-11 +b(ragmen)l(tation)46 b(Asp)t(ects)0 3137 y Fw(Here)g(t)m(w)m(o)g(asp)s +(ects)h(are)e(considered,)k(whic)m(h)d(are)g(applicable)d(regardless)j +(of)e(whether)j(string)e(or)0 3245 y(indep)s(enden)m(t)34 +b(fragmen)m(tation)c(is)j(used.)0 3493 y Fo(12.4.1)113 +b(Small)35 b(mass)j(systems)0 3665 y Fw(Occasionally)-8 +b(,)46 b(a)f(jet)g(system)h(ma)m(y)f(ha)m(v)m(e)i(to)s(o)d(small)e(an)j +(in)m(v)-5 b(arian)m(t)44 b(mass)h(for)g(the)g(ordinary)f(jet)0 +3774 y(fragmen)m(tation)32 b(sc)m(hemes.)48 b(This)34 +b(is)f(particularly)e(a)i(problem)g(when)h(sho)m(w)m(ers)i(are)e(used,) +h(since)f(t)m(w)m(o)0 3882 y(nearb)m(y)47 b(g)53 b Fn(!)d +Fw(q)636 3846 y Fk(0)p 660 3829 V 660 3882 a Fw(q)712 +3846 y Fk(0)781 3882 y Fw(branc)m(hings)d(ma)m(y)f(giv)m(e)g(rise)g(to) +g(an)g(in)m(termediate)g(lo)m(w-mass)f(colour-singlet)0 +3990 y(system.)55 b(Before)36 b(the)h(ordinary)e(fragmen)m(tation,)g +(one)i(includes)f(an)g(optional)e(additional)f(step,)38 +b(to)0 4099 y(catc)m(h)47 b(situations)d(of)i(this)f(kind.)83 +b(First)45 b(the)h(jet)g(system)h(with)e(lo)m(w)m(est)h(in)m(v)-5 +b(arian)m(t)45 b(mass,)k(min)m(us)0 4207 y(endp)s(oin)m(t)37 +b(quark)h(masses,)i(is)c(found.)58 b(If)37 b(this)g(is)g(to)s(o)g(lo)m +(w)f(for)h(jet)g(fragmen)m(tation,)g(an)g(attempt)g(is)0 +4316 y(made)30 b(to)g(split)f(the)i(system)g(in)m(to)f(t)m(w)m(o)h +(hadrons)f(b)m(y)i(pro)s(ducing)d(a)h(new)i(q)2739 4331 +y Fh(n)p 2786 4263 V 2786 4316 a Fw(q)2838 4339 y Fh(n)2915 +4316 y Fw(pair)d(\(with)h(q)3422 4331 y Fh(n)3500 4316 +y Fw(c)m(hosen)0 4424 y(according)k(to)g(the)h(standard)g(fragmen)m +(tation)e(sc)m(heme,)k(so)d(that)h(e.g.)50 b(also)33 +b(diquarks)j(are)e(allo)m(w)m(ed\))0 4532 y(to)e(go)g(with)g(the)h +(existing)f(endp)s(oin)m(t)h(\015a)m(v)m(ours.)45 b(If)32 +b(the)h(sum)f(of)g(the)h(t)m(w)m(o)h(th)m(us)f(constructed)h(hadron)0 +4641 y(masses)k(is)f(smaller)f(than)h(the)h(total)e(in)m(v)-5 +b(arian)m(t)36 b(mass,)j(a)e(simple)f(isotropic)g(t)m(w)m(o-particle)g +(deca)m(y)j(is)0 4749 y(p)s(erformed.)55 b(If)37 b(not,)h(the)f(endp)s +(oin)m(t)g(\015a)m(v)m(ours)h(are)e(com)m(bined)h(to)f(giv)m(e)h(one)g +(single)f(hadron.)56 b(Next,)0 4857 y(the)33 b(parton)f(\(or)f +(hadron\))i(is)e(found)i(whic)m(h,)f(when)i(tak)m(en)f(together)f(with) +g(the)h(jet)f(system,)h(has)g(the)0 4966 y(largest)i(in)m(v)-5 +b(arian)m(t)35 b(mass.)54 b(A)36 b(minimal)c(transfer)k(of)g +(four-momen)m(tum)d(is)j(then)g(p)s(erformed,)h(whic)m(h)0 +5074 y(puts)28 b(the)g(hadron)f(on)h(mass)f(shell)f(while)h(k)m(eeping) +h(the)g(mass)f(of)g(the)h(parton)f(unc)m(hanged.)43 b(With)27 +b(this)0 5182 y(done,)37 b(one)f(ma)m(y)f(again)f(searc)m(h)j(for)e(a)g +(lo)m(w-mass)g(jet)g(system,)j(and)d(iterate)g(the)h(pro)s(cedure)h(ab) +s(o)m(v)m(e,)0 5291 y(if)h(need)j(b)s(e.)64 b(The)40 +b(pro)s(cedure)g(ma)m(y)f(b)s(e)h(seen)g(as)g(a)f(`p)s(o)s(or)f(man's)i +(cluster)f(fragmen)m(tation',)g(i.e.)64 b(a)0 5399 y(cluster)33 +b(and)g(a)f(lo)m(w-mass)g(string)f(are)i(considered)g(to)g(b)s(e)f +(more)g(or)h(less)g(the)g(same)f(thing.)1817 5953 y(243)p +eop +%%Page: 244 250 +244 249 bop 0 -18 a Fo(12.4.2)113 b(Bose{Einstein)35 +b(e\013ects)0 154 y Fw(A)28 b(crude)h(option)d(for)h(the)i(sim)m +(ulation)24 b(of)k(Bose{Einstein)g(e\013ects)h(is)e(included,)h(but)g +(is)g(turned)g(o\013)g(b)m(y)0 263 y(default.)48 b(Here)35 +b(the)g(detailed)e(ph)m(ysics)j(is)e(not)g(that)g(w)m(ell)g(understo)s +(o)s(d,)h(see)g(e.g.)49 b([L\177)-49 b(or89].)49 b(What)34 +b(is)0 371 y(o\013ered)29 b(is)f(an)g(algorithm,)e(more)h(than)i(just)f +(a)h(parametrization)c(\(since)k(v)m(ery)h(sp)s(eci\014c)f(assumptions) +0 479 y(and)e(c)m(hoices)g(ha)m(v)m(e)h(b)s(een)f(made\),)g(and)g(y)m +(et)g(less)g(than)f(a)h(true)f(mo)s(del)f(\(since)i(the)g(underlying)f +(ph)m(ysics)0 588 y(picture)k(is)f(rather)h(fuzzy\).)44 +b(In)30 b(this)f(sc)m(heme,)j(the)e(fragmen)m(tation)e(is)i(allo)m(w)m +(ed)f(to)g(pro)s(ceed)i(as)f(usual,)0 696 y(and)39 b(so)h(is)f(the)g +(deca)m(y)i(of)e(short-liv)m(ed)f(particles)h(lik)m(e)f +Fj(\032)p Fw(.)64 b(Then)40 b(pairs)f(of)g(iden)m(tical)e(particles,)k +Fj(\031)3721 660 y Fl(+)0 804 y Fw(sa)m(y)-8 b(,)34 b(are)e(considered) +i(one)e(b)m(y)i(one.)44 b(The)33 b Fj(Q)1636 819 y Fh(ij)1729 +804 y Fw(v)-5 b(alue)32 b(of)h(a)f(pair)f Fj(i)i Fw(and)g +Fj(j)38 b Fw(is)32 b(ev)-5 b(aluated,)1337 1050 y Fj(Q)1414 +1065 y Fh(ij)1503 1050 y Fw(=)1606 947 y Fg(q)p 1689 +947 694 4 v 103 x Fw(\()p Fj(p)1776 1065 y Fh(i)1827 +1050 y Fw(+)22 b Fj(p)1974 1065 y Fh(j)2010 1050 y Fw(\))2048 +1021 y Fl(2)2110 1050 y Fn(\000)g Fw(4)p Fj(m)2343 1021 +y Fl(2)2415 1050 y Fj(;)1115 b Fw(\(197\))0 1275 y(where)37 +b Fj(m)f Fw(is)f(the)h(common)e(particle)g(mass.)53 b(A)36 +b(shifted)f(\(smaller\))f Fj(Q)2635 1239 y Fk(0)2635 +1300 y Fh(ij)2731 1275 y Fw(is)h(then)h(to)g(b)s(e)f(found)h(suc)m(h)0 +1396 y(that)29 b(the)g(\(in\014nite)f(statistics\))g(ratio)f +Fj(C)1478 1411 y Fl(2)1518 1396 y Fw(\()p Fj(Q)p Fw(\))i(of)f(shifted)h +(to)f(unshifted)i Fj(Q)f Fw(distributions)e(is)i(giv)m(en)g(b)m(y)0 +1504 y(the)g(requested)j(parametrization.)39 b(The)30 +b(shap)s(e)g(ma)m(y)f(b)s(e)g(c)m(hosen)i(either)e(exp)s(onen)m(tial)f +(or)h(Gaussian,)928 1712 y Fj(C)998 1727 y Fl(2)1038 +1712 y Fw(\()p Fj(Q)p Fw(\))e(=)h(1)22 b(+)g Fj(\025)17 +b Fw(exp)g(\()p Fn(\000)p Fw(\()p Fj(Q=d)p Fw(\))2098 +1671 y Fh(r)2136 1712 y Fw(\))g Fj(;)146 b(r)31 b Fw(=)c(1)33 +b(or)f(2)g Fj(:)706 b Fw(\(198\))0 1920 y(\(In)42 b(fact,)i(the)f +(distribution)d(has)i(to)g(dip)f(sligh)m(tly)f(b)s(elo)m(w)i(unit)m(y)g +(at)g Fj(Q)g Fw(v)-5 b(alues)42 b(outside)f(the)i(Bose)0 +2029 y(enhancemen)m(t)32 b(region,)f(from)e(conserv)-5 +b(ation)31 b(of)f(total)g(m)m(ultiplicit)m(y)-8 b(.\))39 +b(If)31 b(the)g(inclusiv)m(e)f(distribution)0 2137 y(of)k +Fj(Q)190 2152 y Fh(ij)285 2137 y Fw(v)-5 b(alues)34 b(is)g(assumed)h +(giv)m(en)g(just)g(b)m(y)g(phase)g(space,)h(at)e(least)g(at)g(small)e +(relativ)m(e)i(momen)m(tum)0 2257 y(then,)d(with)e(d)520 +2221 y Fl(3)560 2257 y Fj(p=E)k Fn(/)28 b Fj(Q)945 2221 +y Fl(2)1002 2257 y Fw(d)p Fj(Q=)1182 2181 y Fn(p)p 1265 +2181 411 4 v 76 x Fj(Q)1342 2228 y Fl(2)1404 2257 y Fw(+)22 +b(4)p Fj(m)1636 2228 y Fl(2)1675 2257 y Fw(,)30 b(then)h +Fj(Q)2029 2221 y Fk(0)2029 2282 y Fh(ij)2119 2257 y Fw(is)e(found)h(as) +f(the)h(solution)f(to)g(the)h(equation)928 2432 y Fg(Z)1011 +2458 y Fh(Q)1067 2468 y Fe(ij)974 2620 y Fl(0)1266 2482 +y Fj(Q)1343 2445 y Fl(2)1399 2482 y Fw(d)p Fj(Q)p 1151 +2526 494 4 v 1151 2544 a Fn(p)p 1235 2544 411 4 v 1235 +2620 a Fj(Q)1312 2591 y Fl(2)1373 2620 y Fw(+)22 b(4)p +Fj(m)1605 2591 y Fl(2)1683 2549 y Fw(=)1786 2432 y Fg(Z)1869 +2458 y Fh(Q)1925 2435 y Fd(0)1925 2481 y Fe(ij)1832 2620 +y Fl(0)2000 2549 y Fj(C)2070 2564 y Fl(2)2109 2549 y +Fw(\()p Fj(Q)p Fw(\))2403 2482 y Fj(Q)2480 2445 y Fl(2)2537 +2482 y Fw(d)p Fj(Q)p 2289 2526 494 4 v 2289 2544 a Fn(p)p +2372 2544 411 4 v 76 x Fj(Q)2449 2591 y Fl(2)2511 2620 +y Fw(+)g(4)p Fj(m)2743 2591 y Fl(2)2825 2549 y Fj(:)705 +b Fw(\(199\))0 2816 y(The)38 b(c)m(hange)h(of)d Fj(Q)725 +2831 y Fh(ij)824 2816 y Fw(can)h(b)s(e)h(translated)f(in)m(to)f(an)i +(e\013ectiv)m(e)g(shift)f(of)g(the)h(three-momen)m(ta)e(of)h(the)0 +2925 y(t)m(w)m(o)c(particles,)f(if)f(one)i(uses)h(as)f(extra)g +(constrain)m(t)f(that)h(the)g(total)e(three-momen)m(tum)g(of)h(eac)m(h) +i(pair)0 3033 y(b)s(e)40 b(conserv)m(ed)i(in)c(the)i(c.m.)64 +b(frame)39 b(of)g(the)h(ev)m(en)m(t.)66 b(Only)39 b(after)g(all)f +(pairwise)g(momen)m(tum)h(shifts)0 3141 y(ha)m(v)m(e)e(b)s(een)f(ev)-5 +b(aluated,)36 b(with)f(resp)s(ect)i(to)e(the)h(original)c(momen)m(ta,)j +(are)h(these)g(momen)m(ta)f(actually)0 3250 y(shifted,)f(for)e(eac)m(h) +j(particle)c(b)m(y)k(the)e(sum)h(of)e(ev)-5 b(aluated)33 +b(shifts.)46 b(The)34 b(total)e(energy)i(of)f(the)h(ev)m(en)m(t)h(is)0 +3358 y(sligh)m(tly)g(reduced)j(in)e(the)h(pro)s(cess,)h(whic)m(h)f(is)f +(comp)s(ensated)h(b)m(y)h(an)e(o)m(v)m(erall)g(rescaling)f(of)h(all)f +(c.m.)0 3466 y(frame)h(momen)m(tum)f(v)m(ectors.)57 b(It)37 +b(can)f(b)s(e)h(discussed)h(whic)m(h)g(are)e(the)h(particles)f(to)g(in) +m(v)m(olv)m(e)h(in)f(this)0 3575 y(rescaling.)66 b(Curren)m(tly)41 +b(the)f(only)g(exceptions)h(to)f(using)g(ev)m(erything)i(are)e(leptons) +g(and)g(neutrinos)0 3683 y(coming)g(from)g(resonance)i(deca)m(ys)h +(\(suc)m(h)g(as)f(W)q('s\))g(and)f(photons)h(radiated)f(b)m(y)h +(leptons)f(\(also)f(in)0 3791 y(initial)26 b(state)k(radiation\).)40 +b(Finally)-8 b(,)27 b(the)j(deca)m(y)h(c)m(hain)f(is)f(resumed)h(with)f +(more)g(long-liv)m(ed)e(particles)0 3900 y(lik)m(e)32 +b Fj(\031)238 3864 y Fl(0)277 3900 y Fw(.)146 4008 y(Tw)m(o)f(commen)m +(ts)e(can)h(b)s(e)g(made.)42 b(The)31 b(Bose{Einstein)f(e\013ect)g(is)f +(here)i(in)m(terpreted)f(almost)e(as)i(a)0 4117 y(classical)20 +b(force)j(acting)e(on)h(the)g(`\014nal)f(state',)k(rather)d(than)g(as)g +(a)g(quan)m(tum)g(mec)m(hanical)f(phenomenon)0 4225 y(on)43 +b(the)g(pro)s(duction)e(amplitude.)72 b(This)43 b(is)f(not)g(a)h +(credo,)i(but)e(just)g(an)g(ansatz)g(to)f(mak)m(e)h(things)0 +4333 y(manageable.)51 b(Also,)36 b(since)g(only)f(pairwise)g(in)m +(teractions)g(are)h(considered,)i(the)e(e\013ects)h(asso)s(ciated)0 +4442 y(with)42 b(three)i(or)e(more)g(nearb)m(y)i(particles)e(tend)h(to) +g(get)g(o)m(v)m(erestimated.)74 b(\(More)43 b(exact,)j(but)d(also)0 +4550 y(more)e(time-consuming)e(metho)s(ds)i(ma)m(y)g(b)s(e)h(found)g +(in)e([Za)5 b(j87].\))70 b(Th)m(us)43 b(the)f(input)f +Fj(\025)g Fw(ma)m(y)g(ha)m(v)m(e)0 4658 y(to)35 b(b)s(e)g(c)m(hosen)i +(smaller)d(than)h(what)g(one)h(w)m(an)m(ts)h(to)e(get)g(out.)51 +b(\(On)36 b(the)f(other)h(hand,)g(man)m(y)f(of)g(the)0 +4767 y(pairs)c(of)h(an)f(ev)m(en)m(t)j(con)m(tains)e(at)f(least)h(one)g +(particle)e(pro)s(duced)j(in)e(some)h(secondary)h(v)m(ertex,)h(lik)m(e) +d(a)0 4875 y(D)37 b(deca)m(y)-8 b(.)61 b(This)38 b(reduces)i(the)e +(fraction)f(of)g(pairs)g(whic)m(h)i(ma)m(y)e(con)m(tribute)i(to)e(the)h +(Bose{Einstein)0 4983 y(e\013ects,)33 b(and)e(th)m(us)h(reduces)h(the)f +(p)s(oten)m(tial)d(signal.\))41 b(This)32 b(option)e(should)h +(therefore)g(b)s(e)h(used)g(with)0 5092 y(caution,)g(and)h(only)f(as)g +(a)h(\014rst)g(appro)m(ximation)d(to)i(what)h(Bose{Einstein)g +(e\013ects)h(can)f(mean.)1817 5953 y(244)p eop +%%Page: 245 251 +245 250 bop 0 -18 a Ft(13)161 b(P)l(articles)54 b(and)g(Their)g(Deca)l +(ys)0 189 y Fw(P)m(articles)43 b(are)g(the)g(building)e(blo)s(c)m(ks)j +(from)e(whic)m(h)h(ev)m(en)m(ts)j(are)d(constructed.)77 +b(W)-8 b(e)43 b(here)h(use)g(the)0 297 y(w)m(ord)37 b(`particle')e(in)g +(its)h(broadest)h(sense,)i(i.e.)54 b(including)34 b(partons,)j +(resonances,)i(hadrons,)f(and)e(so)0 405 y(on,)k(subgroups)f(w)m(e)g +(will)d(describ)s(e)j(in)e(the)i(follo)m(wing.)57 b(Eac)m(h)39 +b(particle)e(is)h(c)m(haracterized)h(b)m(y)g(some)0 514 +y(quan)m(tities,)33 b(suc)m(h)i(as)e(c)m(harge)h(and)f(mass.)45 +b(In)34 b(addition,)d(man)m(y)i(of)g(the)h(particles)e(are)h(unstable)g +(and)0 622 y(subsequen)m(tly)27 b(deca)m(y)-8 b(.)42 +b(This)25 b(section)g(con)m(tains)f(a)h(surv)m(ey)h(of)e(the)h +(particle)e(con)m(ten)m(t)j(of)e(the)h(programs,)0 730 +y(and)e(the)h(particle)e(prop)s(erties)i(assumed.)41 +b(In)23 b(particular,)h(the)g(deca)m(y)h(treatmen)m(t)e(is)g +(discussed.)42 b(Some)0 839 y(particle)35 b(and)h(deca)m(y)i(prop)s +(erties)e(form)f(part)h(already)g(of)g(the)h(hard)f(subpro)s(cess)i +(description,)f(and)0 947 y(are)c(therefore)g(describ)s(ed)g(in)f +(sections)h(6,)g(7)f(and)g(8.)0 1221 y Fp(13.1)136 b(The)44 +b(P)l(article)j(Con)l(ten)l(t)0 1394 y Fw(In)g(order)f(to)g(describ)s +(e)h(b)s(oth)f(curren)m(t)i(and)e(p)s(oten)m(tial)f(future)h(ph)m +(ysics,)52 b(a)46 b(n)m(um)m(b)s(er)g(of)g(di\013eren)m(t)0 +1502 y(particles)35 b(are)h(needed.)54 b(A)36 b(list)e(of)i(some)f +(particles,)h(along)e(with)i(their)f(co)s(des,)i(is)e(giv)m(en)h(in)f +(section)0 1610 y(5.1.)43 b(Here)33 b(w)m(e)h(therefore)f(emphasize)g +(the)g(generalit)m(y)f(rather)g(than)h(the)g(details.)146 +1719 y(F)-8 b(our)44 b(full)e(generations)i(of)f(quarks)j(and)e +(leptons)g(are)g(included)f(in)h(the)g(program,)i(although)0 +1827 y(indications)h(from)g(LEP)j(strongly)e(suggest)h(that)g(only)f +(three)h(exist)g(in)f(Nature.)92 b(There)50 b(is)f(no)0 +1935 y(standard)37 b(terminology)d(for)i(the)h(fourth)f(generation;)i +(w)m(e)g(use)f(l)f(for)g(the)g(do)m(wn)i(t)m(yp)s(e)f(quark)h(\(l)d +(for)0 2044 y(lo)m(w\),)26 b(h)f(for)g(the)g(up)g(t)m(yp)s(e)h(quark)g +(\(h)f(for)f(high\),)i Fj(\037)f Fw(for)f(the)i(lepton)e(and)h +Fj(\027)2672 2059 y Fh(\037)2745 2044 y Fw(for)g(the)g(neutrino.)41 +b(Quarks)0 2152 y(ma)m(y)33 b(app)s(ear)g(either)g(singly)f(or)h(in)f +(pairs;)h(the)h(latter)e(are)h(called)f(diquarks)i(and)f(are)h(c)m +(haracterized)0 2260 y(b)m(y)39 b(their)f(\015a)m(v)m(our)h(con)m(ten)m +(t)h(and)e(their)g(spin.)60 b(A)39 b(diquark)f(is)g(alw)m(a)m(ys)h +(assumed)g(to)e(b)s(e)i(in)e(a)h(colour)0 2369 y(an)m(titriplet)30 +b(state.)146 2477 y(F)-8 b(rom)25 b(the)i(coloured)f(quarks)i(\(and)e +(diquarks\),)i(the)f(colour)f(neutral)f(hadrons)i(ma)m(y)f(b)s(e)h +(build)e(up.)0 2585 y(Six)k(full)f(meson)i(m)m(ultiplets)d(are)j +(included)f(and)h(t)m(w)m(o)g(bary)m(on)h(ones,)g(see)g(section)e +(12.1.)42 b(In)30 b(addition,)0 2714 y(K)76 2678 y Fl(0)76 +2739 y(S)148 2714 y Fw(and)f(K)410 2678 y Fl(0)410 2739 +y(L)486 2714 y Fw(are)g(considered)h(as)f(separate)g(particles)f +(coming)f(from)g(the)j(`deca)m(y')g(of)e(K)3230 2678 +y Fl(0)3298 2714 y Fw(and)p 3484 2636 76 4 v 29 w(K)3560 +2656 y Fl(0)3628 2714 y Fw(\(or,)0 2822 y(o)s(ccasionally)-8 +b(,)30 b(pro)s(duced)k(directly\).)146 2931 y(Other)49 +b(particles)e(from)g(the)i(Standard)g(Mo)s(del)e(include)h(the)h(gluon) +e(g)q(,)53 b(the)48 b(photon)h Fj(\015)5 b Fw(,)52 b(the)0 +3039 y(in)m(termediate)21 b(gauge)h(b)s(osons)h(Z)1190 +3003 y Fl(0)1252 3039 y Fw(and)f(W)1532 3003 y Fk(\006)1592 +3039 y Fw(,)i(and)f(the)g(standard)g(Higgs)e(H)2709 3003 +y Fl(0)2749 3039 y Fw(.)40 b(Non-standard)22 b(particles)0 +3148 y(include)36 b(additional)d(gauge)j(b)s(osons,)h(Z)1493 +3111 y Fk(0)p Fl(0)1588 3148 y Fw(and)f(W)1882 3111 y +Fk(0\006)1961 3148 y Fw(,)h(additional)c(Higgs)i(b)s(osons)i(H)3156 +3111 y Fk(0)p Fl(0)3214 3148 y Fw(,)g(A)3351 3111 y Fl(0)3427 +3148 y Fw(and)f(H)3693 3111 y Fk(\006)3752 3148 y Fw(,)0 +3256 y(a)f(lepto)s(quark)g(L)638 3271 y Fl(Q)732 3256 +y Fw(and)g(a)g(horizon)m(tal)f(gauge)h(b)s(oson)g(R)2102 +3220 y Fl(0)2141 3256 y Fw(.)52 b(It)35 b(is)f(also)h(p)s(ossible)f(to) +h(use)h(the)g(particle)0 3364 y(co)s(des)f(of)f(the)h(curren)m(t)h +(fourth)f(generation)e(fermions)h(to)g(represen)m(t)j(excited)e(quarks) +h(and)e(leptons,)0 3473 y(q)51 3436 y Fk(\003)123 3473 +y Fw(and)f Fj(`)354 3436 y Fk(\003)393 3473 y Fw(.)146 +3581 y(F)-8 b(rom)28 b(the)h(p)s(oin)m(t)e(of)i(view)g(of)f(usage)h +(inside)f(the)h(programs,)g(particles)f(ma)m(y)g(b)s(e)h(sub)s(divided) +g(in)m(to)0 3689 y(three)k(classes,)h(partly)e(o)m(v)m(erlapping.)119 +3802 y(1.)49 b(A)33 b(parton)g(is)f(generically)g(an)m(y)i(ob)5 +b(ject)33 b(whic)m(h)h(ma)m(y)f(b)s(e)g(found)g(in)g(the)g(w)m(a)m(v)m +(e)i(function)d(of)h(the)244 3911 y(incoming)23 b(b)s(eams,)k(and)f(ma) +m(y)g(participate)e(in)h(initial-)d(or)j(\014nal-state)g(sho)m(w)m +(ers.)44 b(This)26 b(includes)244 4019 y(what)38 b(is)f(normally)f +(mean)m(t)h(b)m(y)i(partons,)g(i.e.)59 b(quarks)39 b(and)f(gluons,)g +(but)g(here)h(also)d(leptons)244 4127 y(and)25 b(photons.)42 +b(In)26 b(a)f(few)g(cases)i(other)f(particles)e(ma)m(y)h(b)s(e)h +(classi\014ed)f(as)h(partons)f(in)g(this)g(sense.)119 +4245 y(2.)49 b(A)28 b(resonance)i(is)d(an)h(unstable)h(particle)e(pro)s +(duced)i(as)f(part)g(of)g(the)g(hard)h(pro)s(cess,)h(and)e(where)244 +4353 y(the)39 b(deca)m(y)h(treatmen)m(t)f(normally)d(is)i(also)g(part)g +(of)g(the)h(hard)g(pro)s(cess.)63 b(Resonance)40 b(partial)244 +4462 y(widths)47 b(are)g(p)s(erturbativ)m(ely)g(calculable,)h(and)f +(therefore)h(it)e(is)g(p)s(ossible)g(to)h(dynamically)244 +4570 y(recalculate)29 b(branc)m(hing)h(ratios)f(as)h(a)f(function)h(of) +f(the)h(mass)g(assigned)g(to)g(a)f(resonance.)44 b(Res-)244 +4678 y(onances)e(includes)f(particles)g(lik)m(e)g(the)g(Z)1823 +4642 y Fl(0)1904 4678 y Fw(and)g(other)g(massiv)m(e)h(gauge)f(b)s +(osons)h(and)f(Higgs)244 4787 y(particles.)53 b(It)37 +b(do)s(es)f(not)g(include)g(hadrons)h(with)f(non-v)-5 +b(anishing)34 b(width,)j(lik)m(e)f(the)g Fj(\032)p Fw(,)i(whic)m(h)244 +4895 y(are)32 b(just)h(called)f(`unstable)h(hadrons'.)119 +5013 y(3.)49 b(Hadrons,)33 b(i.e.)43 b(mesons)34 b(and)f(bary)m(ons)g +(pro)s(duced)h(either)e(in)g(the)h(fragmen)m(tation)e(pro)s(cess,)j(in) +244 5121 y(secondary)43 b(deca)m(ys)g(or)f(as)f(part)h(of)f(the)h(b)s +(eam)f(remnan)m(t)g(treatmen)m(t,)j(but)e(not)f(directly)g(as)244 +5230 y(part)g(of)g(the)h(hard)f(pro)s(cess)i(\(except)g(in)e(a)g(few)h +(sp)s(ecial)e(cases\).)72 b(Hadrons)42 b(ma)m(y)f(b)s(e)h(stable)244 +5338 y(or)c(unstable.)60 b(Branc)m(hing)38 b(ratios)g(are)g(not)g +(assumed)h(p)s(erturbativ)m(ely)f(calculable,)g(and)g(can)244 +5446 y(therefore)33 b(b)s(e)f(set)h(freely)-8 b(.)43 +b(Also)31 b(leptons)h(and)g(photons)h(pro)s(duced)g(in)e(deca)m(ys)j(b) +s(elong)d(to)h(this)244 5555 y(class.)1817 5953 y(245)p +eop +%%Page: 246 252 +246 251 bop 146 -18 a Fw(Usually)42 b(the)g(sub)s(division)f(ab)s(o)m +(v)m(e)i(is)e(easy)j(to)d(understand)j(and)e(giv)m(es)g(y)m(ou)h(the)f +(con)m(trol)g(y)m(ou)0 90 y(w)m(ould)33 b(exp)s(ect.)45 +b(Ho)m(w)m(ev)m(er,)36 b(the)d(classi\014cation)e(of)h(top)h(and)g(the) +g(fourth)g(generation)f(fermions)g(ma)m(y)0 198 y(lead)f(to)h(some)g +(confusion,)g(as)g(already)f(men)m(tioned,)h(section)g(8.2.2.)43 +b(The)32 b(problem)f(is)h(that)f(the)i(top)0 307 y(did)e(not)h(use)h +(to)e(b)s(e)h(treated)h(as)f(a)f(resonance,)j(but)e(w)m(as)h(rather)f +(allo)m(w)m(ed)f(to)g(fragmen)m(t)g(to)h(hadrons,)0 415 +y(whic)m(h)d(subsequen)m(tly)h(deca)m(y)m(ed.)45 b(This)28 +b(approac)m(h)g(w)m(as)h(a)f(reasonable)g(c)m(hoice)h(in)e(the)i(da)m +(ys)g(when)g(the)0 523 y(top)c(mass)f(w)m(as)i(assumed)g(quite)e(ligh)m +(t)f(b)m(y)j(to)s(da)m(y's)f(standards.)42 b(Ho)m(w)m(ev)m(er,)29 +b(giv)m(en)c(curren)m(t)h(top)e(limits,)0 632 y(the)29 +b(fragmen)m(tation)e(and)h(the)h(deca)m(y)h(of)e(the)h(top)f(quark)i +(is)e(b)s(eing)g(pla)m(y)m(ed)h(out)f(on)h(comparable)e(time)0 +740 y(scales,)42 b(and)d(the)h(treatmen)m(t)f(b)s(ecomes)g(m)m(uc)m(h)h +(more)f(di\016cult)f(\(see)j(e.g.)63 b(ref.)h([Sj\177)-49 +b(o92a)o(])39 b(for)g(a)g(to)m(y)0 848 y(mo)s(del)29 +b(description\).)43 b(Starting)30 b(at)h(masses)g(of)g(around)g(120)g +(GeV)g(the)g(top)g(deca)m(y)i(time)c(is)i(so)g(short)0 +957 y(that)23 b(no)f(top)h(hadrons)h(at)e(all)f(are)i(formed,)h(and)f +(then)g(a)g(true)g(resonance)h(description)f(is)f(appropriate,)0 +1065 y(but)40 b(still)d(with)j(some)f(complications)f(due)i(to)g(the)g +(net)g(colour)f(c)m(harge)h(of)g(the)g(top)f(quark.)66 +b(Suc)m(h)0 1173 y(an)40 b(option)e(is)h(no)m(w)i(default,)g(wherein)f +(the)g(top)f(quark)i(is)e(assumed)h(to)g(deca)m(y)h(immediately)-8 +b(,)38 b(but)0 1282 y(in)m(termediate)28 b(scenarios)h(can)g(not)g(b)s +(e)g(mo)s(delled.)41 b(The)29 b(app)s(earance)h(of)e(in)m(termediate)g +(top)h(hadrons)0 1390 y(in)j(the)h(description)f(has)h(little)d +(in\015uence)j(on)g(ev)m(en)m(t)h(shap)s(es,)g(ev)m(en)g(for)e(a)h(v)m +(ery)h(hea)m(vy)g(top.)0 1663 y Fp(13.2)136 b(Masses,)45 +b(Widths)g(and)g(Lifetimes)0 1836 y Fo(13.2.1)113 b(Masses)0 +2008 y Fw(Quark)37 b(masses)h(are)f(not)g(particularly)e(w)m(ell)h +(de\014ned.)59 b(In)37 b(the)h(program)e(it)g(is)g(necessary)k(to)c +(mak)m(e)0 2117 y(use)k(of)f(t)m(w)m(o)h(kinds)f(of)g(masses,)i(curren) +m(t)g(algebra)d(ones)h(and)h(constituen)m(t)f(ones.)64 +b(The)40 b(former)e(are)0 2225 y(relev)-5 b(an)m(t)30 +b(for)g(the)h(kinematics)e(in)h(hard)g(pro)s(cesses)i(\(e.g.)43 +b(in)30 b(gg)e Fn(!)g Fw(c)p 2554 2172 44 4 v(c\))j(and)f(for)g +(couplings)f(to)h(Higgs)0 2333 y(particles,)43 b(and)e(therefore)g +(directly)g(a\013ect)g(cross)i(sections.)69 b(These)43 +b(v)-5 b(alues)41 b(are)g(the)h(ones)g(stored)0 2442 +y(in)e(the)h(standard)g(mass)g(arra)m(y)h Fq(PMAS)p Fw(.)g(Constituen)m +(t)g(masses)g(are)e(used)i(to)f(deriv)m(e)g(the)g(masses)h(of)0 +2550 y(hadrons,)g(and)d(are)g(stored)h(separately)g(in)f(the)g +Fq(PARF)i Fw(arra)m(y)-8 b(.)64 b(W)-8 b(e)39 b(main)m(tain)e(this)i +(distinction)f(for)0 2658 y(the)33 b(\014v)m(e)h(\014rst)f(\015a)m(v)m +(ours,)h(using)e(the)h(follo)m(wing)d(v)-5 b(alues)33 +b(b)m(y)g(default:)50 2774 y(quark)100 b(curren)m(t)34 +b(algebra)d(mass)100 b(constituen)m(t)33 b(mass)145 2894 +y(d)390 b(0.0099)31 b(GeV)428 b(0.325)32 b(GeV)145 3015 +y(u)390 b(0.0056)31 b(GeV)428 b(0.325)32 b(GeV)153 3135 +y(s)422 b(0.199)32 b(GeV)501 b(0.5)32 b(GeV)150 3255 +y(c)444 b(1.35)32 b(GeV)526 b(1.6)32 b(GeV)145 3376 y(b)463 +b(5.0)32 b(GeV)537 b(5.0)32 b(GeV.)0 3486 y(F)-8 b(or)42 +b(top)g(and)h(fourth)g(generation)f(quarks)i(the)f(distinction)e(is)h +(not)h(as)g(imp)s(ortan)m(t,)g(so)g(only)f(one)0 3594 +y(set)f(of)f(mass)h(v)-5 b(alues)40 b(is)g(used,)k(namely)39 +b(the)i(one)g(in)e Fq(PMAS)p Fw(.)j(The)f(default)f(top)g(mass)h(is)f +(160)f(GeV.)0 3702 y(Constituen)m(t)f(masses)g(for)f(diquarks)h(are)f +(de\014ned)i(as)e(the)h(sum)f(of)g(the)h(resp)s(ectiv)m(e)g(quark)h +(masses.)0 3811 y(The)34 b(gluon)d(is)h(alw)m(a)m(ys)h(assumed)h +(massless.)146 3919 y(P)m(article)i(masses,)j(when)f(kno)m(wn,)i(are)d +(tak)m(en)g(from)f(ref.)57 b([PDG92)o(].)f(Hyp)s(othesized)38 +b(particles,)0 4027 y(suc)m(h)30 b(as)e(fourth)h(generation)e(fermions) +h(and)g(Higgs)g(b)s(osons,)i(are)e(assigned)h(some)f(not)g +(unreasonable)0 4136 y(set)40 b(of)e(default)g(v)-5 b(alues,)41 +b(in)d(the)h(sense)i(of)e(where)h(y)m(ou)f(w)m(an)m(t)h(to)f(searc)m(h) +h(for)e(them)h(in)f(the)i(not)e(to)s(o)0 4244 y(distan)m(t)g(future.)61 +b(Here)39 b(it)f(is)f(understo)s(o)s(d)i(that)f(y)m(ou)h(will)d(go)i +(in)g(and)g(c)m(hange)h(the)g(default)f(v)-5 b(alues)0 +4352 y(according)32 b(to)g(y)m(our)h(o)m(wn)h(opinions)d(at)h(the)h(b)s +(eginning)e(of)h(a)h(run.)146 4461 y(The)i(total)e(n)m(um)m(b)s(er)h +(of)g(hadrons)g(in)g(the)g(program)f(is)h(v)m(ery)h(large,)f(whereof)g +(man)m(y)g(are)h(not)e(y)m(et)0 4569 y(disco)m(v)m(ered)42 +b(\(lik)m(e)d(c)m(harm)h(and)g(b)s(ottom)e(bary)m(ons\))j(and)f(other)g +(ma)m(y)g(or)g(ma)m(y)g(not)f(exist)i(\(top)e(and)0 4677 +y(fourth)30 b(generation)g(hadrons\).)43 b(In)31 b(particular)e(for)h +(the)h(latter,)f(it)f(w)m(ould)h(b)s(e)h(messy)h(for)e(the)g(user)i(to) +0 4786 y(ha)m(v)m(e)k(to)e(recalculate)g(the)i(masses)f(of)f(hadron)h +(eac)m(h)h(time)d(the)i(assumed)h(quark)f(mass)g(is)f(c)m(hanged.)0 +4894 y(Therefore)d(the)g(masses)g(of)e(y)m(et)i(undisco)m(v)m(ered)i +(mesons)d(and)h(bary)m(ons)g(are)f(built)e(up,)k(when)f(needed,)0 +5003 y(from)g(the)i(constituen)m(t)h(masses.)44 b(F)-8 +b(or)32 b(this)g(purp)s(ose)h(one)g(uses)h(form)m(ulae)d(of)h(the)h(t)m +(yp)s(e)h([DeR75)o(])1079 5270 y Fj(m)28 b Fw(=)f Fj(m)1380 +5285 y Fl(0)1442 5270 y Fw(+)1540 5187 y Fg(X)1588 5370 +y Fh(i)1677 5270 y Fj(m)1762 5285 y Fh(i)1812 5270 y +Fw(+)22 b Fj(k)e(m)2066 5229 y Fl(2)2066 5295 y(d)2126 +5187 y Fg(X)2131 5370 y Fh(i)27 b Fw(0.)p 0 2024 2876 9 v +0 2249 9 225 v 79 2164 a Fq(CALL)52 b(LU4ENT\(IP,KF1,KF2,KF3,K)q(F4,P)q +(ECM,)q(X1,)q(X2,X)q(4,X1)q(2,X1)q(4\))p 2867 2249 V +0 2257 2876 9 v 0 2389 a Fo(Purp)s(ose:)c Fw(to)f(add)g(four)g(en)m +(tries)i(to)e(the)g(ev)m(en)m(t)j(record,)i(i.e.)87 b(either)47 +b(a)h(4-jet)e(system)j(or)e(four)472 2497 y(separate)34 +b(particles)e(\(or,)g(for)g(q)p 1633 2445 52 4 v(q)q(q)1736 +2461 y Fk(0)p 1760 2445 V 1760 2497 a Fw(q)1811 2461 +y Fk(0)1867 2497 y Fw(ev)m(en)m(ts,)j(t)m(w)m(o)e(2-jet)f(systems\).)0 +2606 y Fq(IP)52 b(:)267 b Fw(normally)31 b(line)h(n)m(um)m(b)s(er)h +(for)g(the)h(\014rst)f(jet/particle,)f(with)h(other)g(three)h(in)e +(lines)g Fq(IP+1)p Fw(,)472 2714 y Fq(IP+2)i Fw(and)f +Fq(IP+3)p Fw(.)44 b(There)34 b(are)f(t)m(w)m(o)g(exceptions.)472 +2822 y(If)40 b Fq(IP=0)p Fw(,)34 b(lines)d(1,)i(2,)f(3)g(and)h(4)f(are) +h(used)h(and)e Fq(LUEXEC)i Fw(is)f(called.)472 2931 y(If)50 +b Fq(IP<0)p Fw(,)c(lines)c Fq(-IP)i Fw(through)e Fq(-IP+3)i +Fw(are)f(used,)k(with)42 b(status)h(co)s(de)g Fq(K\(I,1\)=3)p +Fw(,)48 b(i.e.)472 3039 y(with)42 b(sp)s(ecial)f(colour)g(connection)h +(information,)f(so)h(that)g(a)g(parton)f(sho)m(w)m(er)j(can)e(b)s(e)472 +3147 y(generated)49 b(b)m(y)f(a)f Fq(LUSHOW)i Fw(call,)h(follo)m(w)m +(ed)c(b)m(y)j(a)e Fq(LUEXEC)i Fw(call,)g(if)d(so)i(desired)g(\(only)472 +3256 y(relev)-5 b(an)m(t)33 b(for)f(jets\).)0 3364 y +Fq(KF1,KF2,KF3,KF4)55 b(:)48 b Fw(\015a)m(v)m(our)33 +b(co)s(des)h(for)e(the)h(four)f(jets/particles.)0 3473 +y Fq(PECM)52 b(:)165 b Fw(\(=)28 b Fj(E)686 3488 y Fl(cm)780 +3473 y Fw(\))33 b(the)g(total)e(energy)j(of)e(the)h(system.)0 +3581 y Fq(X1,X2,X4)53 b(:)48 b Fj(x)615 3596 y Fh(i)687 +3581 y Fw(=)43 b(2)p Fj(E)927 3596 y Fh(i)955 3581 y +Fj(=E)1076 3596 y Fl(cm)1170 3581 y Fw(,)h(i.e.)71 b(t)m(wice)42 +b(the)g(energy)h(fraction)d(tak)m(en)j(b)m(y)g(the)f +Fj(i)p Fw('th)g(jet.)71 b(Th)m(us)472 3689 y Fj(x)527 +3704 y Fl(3)595 3689 y Fw(=)28 b(2)21 b Fn(\000)i Fj(x)924 +3704 y Fl(1)986 3689 y Fn(\000)g Fj(x)1141 3704 y Fl(2)1203 +3689 y Fn(\000)f Fj(x)1357 3704 y Fl(4)1397 3689 y Fw(,)33 +b(and)g(need)g(not)g(b)s(e)f(giv)m(en.)0 3798 y Fq(X12,X14)53 +b(:)48 b Fj(x)564 3813 y Fh(ij)661 3798 y Fw(=)37 b(2)p +Fj(p)872 3813 y Fh(i)900 3798 y Fj(p)949 3813 y Fh(j)986 +3798 y Fj(=E)1113 3761 y Fl(2)1107 3822 y(cm)1201 3798 +y Fw(,)i(i.e.)59 b(t)m(wice)39 b(the)f(four-v)m(ector)h(pro)s(duct)f +(of)f(the)i(momen)m(ta)e(for)g(jets)472 3906 y Fj(i)49 +b Fw(and)f Fj(j)6 b Fw(,)52 b(prop)s(erly)c(normalized.)89 +b(With)47 b(the)i(masses)g(kno)m(wn,)54 b(other)48 b +Fj(x)3343 3921 y Fh(ij)3452 3906 y Fw(ma)m(y)g(b)s(e)472 +4014 y(constructed)41 b(from)c(the)i Fj(x)1470 4029 y +Fh(i)1537 4014 y Fw(and)g Fj(x)1788 4029 y Fh(ij)1888 +4014 y Fw(giv)m(en.)62 b(Note)38 b(that)h(not)f(all)f(com)m(binations)g +(of)h Fj(x)3751 4029 y Fh(i)472 4123 y Fw(and)33 b Fj(x)717 +4138 y Fh(ij)811 4123 y Fw(are)f(inside)g(the)h(ph)m(ysically)f(allo)m +(w)m(ed)g(region.)0 4231 y Fo(Remark:)53 b Fw(the)38 +b(system)g(is)f(giv)m(en)g(in)f(the)i(c.m.)56 b(frame,)38 +b(with)e(the)i(\014rst)f(jet)h(going)d(out)i(in)f(the)i(+)p +Fj(z)472 4339 y Fw(direction)i(and)g(the)h(fourth)f(jet)g(lying)f(in)h +(the)g Fj(xz)t Fw(-plane)h(with)f Fj(p)2945 4354 y Fh(x)3030 +4339 y Fj(>)g Fw(0.)67 b(The)41 b(second)472 4448 y(jet)j(will)e(ha)m +(v)m(e)j Fj(p)1108 4463 y Fh(y)1197 4448 y Fj(>)i Fw(0)c(and)h +Fj(p)1662 4463 y Fh(y)1751 4448 y Fj(<)j Fw(0)c(with)h(equal)g +(probabilit)m(y)-8 b(,)44 b(with)g(the)g(third)f(jet)472 +4556 y(balancing)21 b(this)i Fj(p)1131 4571 y Fh(y)1195 +4556 y Fw(\(this)f(corresp)s(onds)i(to)e(a)g(random)g(c)m(hoice)h(b)s +(et)m(w)m(een)i(the)e(t)m(w)m(o)g(p)s(ossible)472 4664 +y(stereoisomers\).)p 0 4814 1389 9 v 0 5039 9 225 v 79 +4954 a Fq(CALL)52 b(LUJOIN\(NJOIN,IJOIN\))p 1380 5039 +V 0 5047 1389 9 v 0 5179 a Fo(Purp)s(ose:)c Fw(to)30 +b(connect)i(a)e(n)m(um)m(b)s(er)h(of)f(previously)h(de\014ned)h +(partons)f(in)m(to)f(a)g(string)g(con\014guration.)472 +5287 y(Initially)k(the)i(partons)h(m)m(ust)f(b)s(e)h(giv)m(en)f(with)g +(status)h(co)s(des)g Fq(K\(I,1\)=)h Fw(1,)f(2)f(or)g(3.)54 +b(Af-)472 5396 y(terw)m(ards)31 b(the)f(partons)g(all)e(ha)m(v)m(e)j +(status)f(co)s(de)g(3,)g(i.e.)42 b(are)29 b(giv)m(en)h(with)f(full)f +(colour-\015o)m(w)472 5504 y(information.)62 b(Compared)39 +b(to)g(the)h(normal)e(w)m(a)m(y)j(of)e(de\014ning)g(a)g(parton)h +(system,)i(the)472 5612 y(partons)31 b(need)g(therefore)f(not)g(app)s +(ear)g(in)f(the)i(same)f(sequence)i(in)e(the)g(ev)m(en)m(t)i(record)e +(as)1817 5953 y(255)p eop +%%Page: 256 262 +256 261 bop 472 -18 a Fw(they)35 b(are)e(assumed)h(to)g(do)f(along)f +(the)i(string.)45 b(It)34 b(is)f(also)f(p)s(ossible)h(to)g(call)f +Fq(LUSHOW)j Fw(for)472 90 y(all)c(or)h(some)h(of)f(the)h(en)m(tries)g +(making)e(up)i(the)g(string)f(formed)g(b)m(y)j Fq(LUJOIN)p +Fw(.)0 198 y Fq(NJOIN:)166 b Fw(the)33 b(n)m(um)m(b)s(er)g(of)g(en)m +(tries)g(that)f(are)h(to)f(b)s(e)h(joined)f(b)m(y)h(one)g(string.)0 +307 y Fq(IJOIN:)166 b Fw(an)48 b(one-dimensional)d(arra)m(y)-8 +b(,)52 b(of)47 b(size)h(at)g(least)f Fq(NJOIN)p Fw(.)i(The)g +Fq(NJOIN)g Fw(\014rst)g(n)m(um)m(b)s(ers)472 415 y(are)37 +b(the)h(p)s(ositions)d(of)h(the)i(partons)f(that)f(are)h(to)g(b)s(e)g +(joined,)g(giv)m(en)g(in)f(the)h(order)g(the)472 523 +y(partons)29 b(are)f(assumed)g(to)g(app)s(ear)g(along)e(the)j(string.) +41 b(If)28 b(the)g(system)h(consists)g(en)m(tirely)472 +632 y(of)k(gluons,)f(the)h(string)f(is)g(closed)g(b)m(y)i(connecting)f +(bac)m(k)g(the)g(last)f(to)g(the)h(\014rst)g(en)m(try)-8 +b(.)0 740 y Fo(Remarks:)47 b Fw(only)30 b(one)i(string)e(\(i.e.)42 +b(one)31 b(colour)f(singlet\))g(ma)m(y)g(b)s(e)h(de\014ned)i(p)s(er)e +(call,)e(but)i(one)g(is)g(at)472 848 y(lib)s(ert)m(y)f(to)g(use)h(an)m +(y)g(n)m(um)m(b)s(er)g(of)37 b Fq(LUJOIN)32 b Fw(calls)d(for)g(a)h(giv) +m(en)h(ev)m(en)m(t.)45 b(The)31 b(program)e(will)472 +957 y(c)m(hec)m(k)41 b(that)e(the)g(parton)g(con\014guration)f(sp)s +(eci\014ed)h(mak)m(es)h(sense,)i(and)d(not)f(tak)m(e)i(an)m(y)472 +1065 y(action)35 b(unless)i(it)e(do)s(es.)54 b(Note,)37 +b(ho)m(w)m(ev)m(er,)i(that)d(an)f(initially)d(sensible)k(parton)g +(con\014g-)472 1173 y(uration)31 b(ma)m(y)h(b)s(ecome)g(nonsensical,)g +(if)f(only)g(some)h(of)g(the)g(partons)g(are)g(reconnected,)472 +1282 y(while)g(the)h(others)g(are)g(left)f(unc)m(hanged.)p +0 1426 1030 9 v 0 1645 9 220 v 79 1566 a Fq(CALL)52 b(LUGIVE\(CHIN\))p +1022 1645 V 0 1653 1030 9 v 0 1785 a Fo(Purp)s(ose:)c +Fw(to)53 b(set)i(the)f(v)-5 b(alue)54 b(of)f(an)m(y)i(v)-5 +b(ariable)52 b(residing)h(in)g(the)h(commmon)m(blo)s(c)m(ks)f +Fq(LUJETS)p Fw(,)472 1893 y Fq(LUDAT1)p Fw(,)39 b Fq(LUDAT2)p +Fw(,)g Fq(LUDAT3)p Fw(,)g Fq(LUDAT4)p Fw(,)g Fq(LUDATR)p +Fw(,)f Fq(PYSUBS)p Fw(,)g Fq(PYPARS)p Fw(,)g Fq(PYINT1)p +Fw(,)h Fq(PYINT2)p Fw(,)472 2002 y Fq(PYINT3)p Fw(,)29 +b Fq(PYINT4)p Fw(,)g Fq(PYINT5)p Fw(,)g Fq(PYINT6)p Fw(,)f(or)e +Fq(PYINT7)p Fw(.)43 b(This)26 b(is)f(done)h(in)f(a)g(more)h(con)m +(trolled)472 2110 y(fashion)32 b(than)f(b)m(y)i(directly)e(including)f +(the)j(common)d(blo)s(c)m(ks)i(in)f(the)i(user)g(program,)d(in)472 +2219 y(that)43 b(arra)m(y)g(b)s(ounds)g(are)f(c)m(hec)m(k)m(ed)k(and)d +(the)g(old)e(and)i(new)h(v)-5 b(alues)42 b(for)g(the)h(v)-5 +b(ariable)472 2327 y(c)m(hanged)34 b(are)f(written)f(to)g(the)h(output) +g(for)f(reference.)0 2435 y Fq(CHIN)52 b(:)165 b Fw(c)m(haracter)37 +b(expression)g(of)e(length)g(at)g(most)g(100)g(c)m(haracters,)i(with)e +(requests)j(for)d(v)-5 b(ari-)472 2544 y(ables)33 b(to)f(b)s(e)h(c)m +(hanged,)h(stored)f(in)f(the)h(form)472 2652 y Fq +(variable1=value1;variab)q(le2=)q(valu)q(e2;v)q(ari)q(able)q(3=va)q +(lue3)q Fw(.)16 b(.)g(.)55 b(.)472 2760 y(Note)47 b(that)f(an)g +(arbitrary)f(n)m(um)m(b)s(er)i(of)f(instructions)g(can)h(b)s(e)f +(stored)h(in)e(one)i(call)e(if)472 2869 y(separated)j(b)m(y)g +(semicolons,)h(and)d(that)h(blanks)g(ma)m(y)f(b)s(e)h(included)f(an)m +(yplace.)87 b(The)472 2977 y(v)-5 b(ariable)807 2992 +y Fh(i)868 2977 y Fw(ma)m(y)35 b(b)s(e)g(an)m(y)g(single)e(v)-5 +b(ariable)33 b(in)h(the)h Fm(Jetset/Pythia)f Fw(common)f(blo)s(c)m(ks,) +472 3085 y(and)f(the)g(v)-5 b(alue)1048 3100 y Fh(i)1107 +3085 y Fw(m)m(ust)32 b(b)s(e)f(of)g(the)h(correct)g(in)m(teger,)g(real) +f(or)g(c)m(haracter)h(\(without)f(extra)472 3194 y(quotes\))41 +b(t)m(yp)s(e.)64 b(Arra)m(y)39 b(indices)g(and)g(v)-5 +b(alues)39 b(m)m(ust)g(b)s(e)h(giv)m(en)f(explicitly)-8 +b(,)39 b(i.e.)62 b(cannot)472 3302 y(b)s(e)39 b(v)-5 +b(ariables)37 b(in)g(their)h(o)m(wn)g(righ)m(t.)60 b(The)39 +b(exception)g(is)e(that)h(the)h(\014rst)f(index)h(can)f(b)s(e)472 +3410 y(preceded)i(b)m(y)e(a)g Fq(C)p Fw(,)f(signifying)f(that)h(the)h +(index)g(should)f(b)s(e)h(translated)f(from)f(normal)472 +3519 y(KF)h(to)g(compressed)h(K)m(C)g(co)s(de)f(with)g(a)f +Fq(LUCOMP)j Fw(call;)f(this)e(is)h(allo)m(w)m(ed)f(for)h(the)g +Fq(KCHG)p Fw(,)472 3627 y Fq(PMAS)p Fw(,)e Fq(MDCY)f +Fw(and)g Fq(CHAF)g Fw(arra)m(ys.)47 b(If)33 b(a)h(v)-5 +b(alue)2140 3642 y Fh(i)2201 3627 y Fw(is)33 b(omitted,)f(i.e.)45 +b(with)33 b(the)h(construction)472 3735 y Fq(variable=)p +Fw(,)39 b(the)d(curren)m(t)h(v)-5 b(alue)35 b(is)g(written)g(to)h(the)g +(output,)g(but)g(the)g(v)-5 b(ariable)34 b(itself)472 +3844 y(is)f(not)f(c)m(hanged.)0 3952 y Fo(Remark)37 b(:)47 +b Fw(The)d(c)m(hec)m(ks)h(on)e(arra)m(y)g(b)s(ounds)g(are)g(hardwired)g +(in)m(to)f(this)g(routine.)73 b(Therefore,)47 b(if)472 +4060 y(some)36 b(user)h(c)m(hanges)g(arra)m(y)f(dimensions)f(and)h +Fq(MSTU\(3\))p Fw(,)i Fq(MSTU\(6\))g Fw(and/or)e Fq(MSTU\(7\))p +Fw(,)472 4169 y(as)27 b(allo)m(w)m(ed)e(b)m(y)i(other)f +(considerations,)i(these)f(c)m(hanges)g(will)d(not)i(b)s(e)h(kno)m(wn)g +(to)f Fq(LUGIVE)p Fw(.)472 4277 y(Normally)31 b(this)h(should)g(not)h +(b)s(e)f(a)h(problem,)e(ho)m(w)m(ev)m(er.)0 4551 y Fp(14.2)136 +b(The)44 b(JETSET)h(Ph)l(ysics)g(Routines)0 4724 y Fw(The)f(ph)m(ysics) +g(routines)e(form)g(the)h(ma)5 b(jor)42 b(part)g(of)49 +b Fm(Jetset)p Fw(,)c(but)e(once)g(the)g(initial)c(jet/particle)0 +4832 y(con\014guration)29 b(has)h(b)s(een)g(sp)s(eci\014ed)g(and)g +(default)f(parameter)g(v)-5 b(alues)29 b(c)m(hanged,)i(if)e(so)g +(desired,)i(only)0 4940 y(a)24 b Fq(LUEXEC)j Fw(call)c(is)h(necessary)j +(to)e(sim)m(ulate)e(the)i(whole)g(fragmen)m(tation)e(and)h(deca)m(y)j +(c)m(hain.)40 b(Therefore)0 5049 y(a)29 b(normal)e(user)j(will)d(not)h +(directly)h(see)h(an)m(y)g(of)e(the)i(other)f(routines)g(in)f(this)h +(section.)43 b(Some)28 b(of)h(them)0 5157 y(could)j(b)s(e)h(called)e +(directly)-8 b(,)32 b(but)h(the)g(danger)g(of)f(fault)m(y)g(usage)h(is) +f(then)h(non-negligible.)146 5265 y(The)25 b Fq(LUTAUD)g +Fw(routine)f(pro)m(vides)g(an)g(optional)d(in)m(terface)j(to)f(an)h +(external)g Fj(\034)35 b Fw(deca)m(y)25 b(library)-8 +b(,)24 b(where)0 5374 y(p)s(olarization)30 b(e\013ects)k(could)f(b)s(e) +h(included.)45 b(It)33 b(is)g(up)g(to)g(the)h(user)g(to)f(write)g(the)g +(appropriate)g(calls,)0 5482 y(as)g(explained)f(at)g(the)h(end)h(of)e +(this)g(section.)1817 5953 y(256)p eop +%%Page: 257 263 +257 262 bop 0 -110 723 9 v 0 93 9 203 v 79 22 a Fq(CALL)52 +b(LUEXEC)p 714 93 V 0 101 723 9 v 0 233 a Fo(Purp)s(ose:)c +Fw(to)25 b(administrate)f(the)j(fragmen)m(tation)d(and)i(deca)m(y)h(c)m +(hain.)41 b Fq(LUEXEC)28 b Fw(ma)m(y)e(b)s(e)g(called)f(sev-)472 +341 y(eral)36 b(times,)h(but)g(only)g(en)m(tries)g(whic)m(h)g(ha)m(v)m +(e)h(not)f(y)m(et)h(b)s(een)f(treated)g(\(more)f(precisely)-8 +b(,)472 449 y(whic)m(h)34 b(ha)m(v)m(e)g(1)29 b Fn(\024)p +Fq(K\(I,1\))p Fn(\024)i Fw(10\))h(can)i(b)s(e)f(a\013ected)h(b)m(y)g +(further)f(calls.)44 b(This)33 b(ma)m(y)g(apply)472 558 +y(if)38 b(more)f(jets/particles)h(ha)m(v)m(e)i(b)s(een)f(added)g(b)m(y) +h(the)f(user,)h(or)f(if)e(particles)g(previously)472 +666 y(considered)27 b(stable)e(are)g(no)m(w)h(allo)m(w)m(ed)e(to)h +(deca)m(y)-8 b(.)43 b(The)26 b(actions)f(that)g(will)e(b)s(e)i(tak)m +(en)i(dur-)472 774 y(ing)k(a)h Fq(LUEXEC)i Fw(call)c(can)i(b)s(e)g +(tailored)f(extensiv)m(ely)i(via)e(the)i Fq(LUDAT1)p +Fw({)p Fq(LUDAT3)i Fw(common)472 883 y(blo)s(c)m(ks,)e(in)f(particular) +f(b)m(y)j(setting)e(the)h Fq(MSTJ)g Fw(v)-5 b(alues)33 +b(suitably)-8 b(.)0 1070 y Fq(SUBROUTINE)54 b(LUPREP\(IP\))g(:)47 +b Fw(to)62 b(rearrange)f(parton)g(sho)m(w)m(er)j(end)e(pro)s(ducts)g +(\(mark)m(ed)g(with)472 1179 y Fq(K\(I,1\)=3)p Fw(\))38 +b(sequen)m(tially)d(along)f(strings;)i(also)f(to)g(\(optionally\))d +(allo)m(w)i(small)f(jet)j(sys-)472 1287 y(tems)f(to)g(collapse)f(in)m +(to)g(t)m(w)m(o)h(particles)f(or)g(one)h(only)-8 b(,)35 +b(in)f(the)i(latter)d(case)j(with)e(energy)472 1395 y(and)j(momen)m +(tum)d(to)i(b)s(e)h(sh)m(u\017ed)h(elsewhere)g(in)d(the)i(ev)m(en)m(t;) +j(also)35 b(to)h(p)s(erform)f(c)m(hec)m(ks)472 1504 y(that)e(e.g.)43 +b(\015a)m(v)m(ours)34 b(of)f(colour-singlet)d(systems)k(mak)m(e)e +(sense.)0 1612 y Fq(SUBROUTINE)54 b(LUSTRF\(IP\))g(:)47 +b Fw(to)35 b(generate)g(the)h(fragmen)m(tation)d(of)h(an)h(arbitrary)f +(colour-singlet)472 1720 y(jet)43 b(system)g(according)e(to)h(the)g +(Lund)h(string)e(fragmen)m(tation)f(mo)s(del.)70 b(In)43 +b(man)m(y)f(re-)472 1829 y(sp)s(ects,)35 b(this)d(routine)g(is)g(the)h +(v)m(ery)h(heart)f(and)f(soul)g(of)39 b Fm(Jetset)p Fw(.)0 +1937 y Fq(SUBROUTINE)54 b(LUINDF\(IP\))g(:)47 b Fw(to)h(handle)g(the)g +(fragmen)m(tation)e(of)h(a)h(jet)g(system)h(according)e(to)472 +2045 y(indep)s(enden)m(t)h(fragmen)m(tation)c(mo)s(dels,)k(and)e +(implemen)m(t)e(energy)-8 b(,)51 b(momen)m(tum)44 b(and)472 +2154 y(\015a)m(v)m(our)36 b(conserv)-5 b(ation,)34 b(if)g(so)g +(desired.)50 b(Also)33 b(the)i(fragmen)m(tation)d(of)i(a)g(single)g +(jet,)h(not)472 2262 y(b)s(elonging)21 b(to)h(a)g(jet)h(system,)j(is)c +(considered)h(here)g(\(this)f(is)g(of)g(course)i(ph)m(ysical)e +(nonsense,)472 2370 y(but)33 b(ma)m(y)g(sometimes)e(b)s(e)i(con)m(v)m +(enien)m(t)h(for)e(sp)s(eci\014c)i(tasks\).)0 2479 y +Fq(SUBROUTINE)54 b(LUDECY\(IP\))g(:)47 b Fw(to)39 b(p)s(erform)f(a)h +(particle)f(deca)m(y)-8 b(,)42 b(according)d(to)g(kno)m(wn)i(branc)m +(hing)472 2587 y(ratios)32 b(or)h(di\013eren)m(t)f(kinds)i(of)e(mo)s +(dels,)g(dep)s(ending)h(on)f(our)h(lev)m(el)f(of)g(kno)m(wledge.)45 +b(V)-8 b(ar-)472 2695 y(ious)33 b(matrix)e(elemen)m(ts)h(are)h +(included)f(for)g(sp)s(eci\014c)h(pro)s(cesses.)0 2804 +y Fq(SUBROUTINE)54 b(LUKFDI\(KFL1,KFL2,KFL3,KF\))k(:)47 +b Fw(to)25 b(generate)h(a)g(new)g(quark)g(or)f(diquark)h(\015a)m(v)m +(our)472 2912 y(and)33 b(to)f(com)m(bine)g(it)g(with)g(an)h(existing)f +(\015a)m(v)m(our)h(to)f(giv)m(e)h(a)f(hadron.)236 3020 +y Fq(KFL1:)218 b Fw(incoming)30 b(\015a)m(v)m(our.)236 +3129 y Fq(KFL2:)218 b Fw(extra)44 b(incoming)e(\015a)m(v)m(our,)47 +b(e.g.)78 b(for)43 b(formation)f(of)h(\014nal)g(particle,)j(where)f +(the)709 3237 y(\015a)m(v)m(ours)34 b(are)e(completely)g(sp)s +(eci\014ed.)44 b(Is)33 b(normally)d(0.)236 3345 y Fq(KFL3:)218 +b Fw(newly)33 b(created)g(\015a)m(v)m(our;)h(is)e(0)g(if)38 +b Fq(KFL2)c Fw(is)e(non-zero.)236 3454 y Fq(KF:)320 b +Fw(pro)s(duced)36 b(hadron.)52 b(Is)36 b(0)f(if)f(something)h(w)m(en)m +(t)h(wrong)g(\(e.g.)52 b(inconsisten)m(t)36 b(com-)709 +3562 y(bination)30 b(of)j(incoming)d(\015a)m(v)m(ours\).)0 +3670 y Fq(SUBROUTINE)54 b(LUPTDI\(KFL,PX,PY\))i(:)47 +b Fw(to)g(giv)m(e)g(transv)m(erse)j(momen)m(tum,)f(e.g.)88 +b(for)46 b(a)h(q)p 3512 3618 52 4 v(q)i(pair)472 3779 +y(created)31 b(in)e(the)h(colour)f(\014eld,)h(according)f(to)g(indep)s +(enden)m(t)i(Gaussian)e(distributions)f(in)472 3887 y +Fj(p)521 3902 y Fh(x)598 3887 y Fw(and)k Fj(p)836 3902 +y Fh(y)878 3887 y Fw(.)0 3996 y Fq(SUBROUTINE)54 b +(LUZDIS\(KFL1,KFL3,PR,Z\))j(:)48 b Fw(to)29 b(generate)h(the)g +(longitudinal)c(scaling)j(v)-5 b(ariable)28 b Fj(z)472 +4104 y Fw(in)39 b(jet)h(fragmen)m(tation,)f(either)h(according)f(to)g +(the)h(Lund)g(symmetric)e(fragmen)m(tation)472 4212 y(function,)33 +b(or)f(according)g(to)g(a)g(c)m(hoice)h(of)f(other)h(shap)s(es.)0 +4321 y Fq(SUBROUTINE)54 b(LUBOEI)f(:)47 b Fw(to)31 b(include)f +(Bose{Einstein)g(e\013ects)i(according)e(to)g(a)h(simple)e(parametri-) +472 4429 y(zation.)65 b(By)41 b(default,)g(this)f(routine)g(is)f(not)h +(called.)65 b(If)40 b(called)f(from)g Fq(LUEXEC)p Fw(,)i(this)f(is)472 +4537 y(done)f(after)f(the)g(deca)m(y)i(of)d(short-liv)m(ed)h +(resonances,)j(but)d(b)s(efore)h(the)f(deca)m(y)i(of)d(long-)472 +4646 y(liv)m(ed)30 b(ones.)44 b(This)30 b(means)g(the)h(routine)f +(should)g(nev)m(er)i(b)s(e)e(called)f(directly)h(b)m(y)h(y)m(ou,)h(nor) +472 4754 y(w)m(ould)j(e\013ects)h(b)s(e)f(correctly)g(sim)m(ulated)e +(if)h(deca)m(ys)j(are)d(switc)m(hed)i(o\013.)50 b(See)35 +b Fq(MSTJ\(51\))472 4862 y(-)52 b(MSTJ\(52\))35 b Fw(for)d(switc)m +(hing)g(on)h(the)g(routine.)0 4971 y Fq(FUNCTION)53 b(ULMASS\(KF\))h(:) +48 b Fw(to)32 b(giv)m(e)h(the)g(mass)f(for)g(a)g(parton/particle.)0 +5079 y Fq(SUBROUTINE)54 b(LUNAME\(KF,CHAU\))h(:)48 b +Fw(to)38 b(giv)m(e)g(the)h(parton/particle)d(name)i(\(as)h(a)f(string)g +(of)g(t)m(yp)s(e)472 5187 y Fq(CHARACTER)54 b(CHAU*16)p +Fw(\).)0 5296 y Fq(FUNCTION)f(LUCHGE\(KF\))h(:)48 b Fw(to)32 +b(giv)m(e)h(three)g(times)f(the)h(c)m(harge)g(for)f(a)g +(parton/particle.)0 5404 y Fq(FUNCTION)53 b(LUCOMP\(KF\))h(:)48 +b Fw(to)26 b(giv)m(e)h(the)h(compressed)g(parton/particle)d(co)s(de)i +(K)m(C)h(for)e(a)h(giv)m(en)g(KF)472 5512 y(co)s(de,)38 +b(as)e(required)h(to)f(\014nd)h(en)m(try)g(in)m(to)e(mass)h(and)h(deca) +m(y)g(data)f(tables.)54 b(Also)36 b(c)m(hec)m(ks)472 +5621 y(whether)48 b(the)e(giv)m(en)g(KF)f(co)s(de)h(is)f(actually)f(an) +i(allo)m(w)m(ed)f(one)h(\(i.e.)82 b(kno)m(wn)47 b(b)m(y)g(the)1817 +5953 y(257)p eop +%%Page: 258 264 +258 263 bop 472 -18 a Fw(program\),)42 b(and)e(returns)i(0)e(if)f(not.) +67 b(Note)41 b(that)f(KF)g(ma)m(y)g(b)s(e)h(p)s(ositiv)m(e)f(or)g +(negativ)m(e,)472 90 y(while)32 b(the)h(resulting)f(K)m(C)h(co)s(de)g +(is)f(nev)m(er)i(negativ)m(e.)0 198 y Fq(SUBROUTINE)54 +b(LUERRM\(MERR,MESSAG\))i(:)48 b Fw(to)22 b(k)m(eep)j(trac)m(k)e(of)f +(the)i(n)m(um)m(b)s(er)f(of)f(errors)h(and)g(w)m(arnings)472 +307 y(encoun)m(tered,)33 b(write)c(out)g(information)d(on)j(them,)h +(and)g(ab)s(ort)e(the)i(program)e(in)h(case)h(of)472 +415 y(to)s(o)i(man)m(y)h(errors.)0 523 y Fq(FUNCTION)53 +b(ULANGL\(X,Y\))i(:)47 b Fw(to)32 b(calculate)g(the)h(angle)e(from)h +(the)h Fj(x)g Fw(and)f Fj(y)k Fw(co)s(ordinates.)0 632 +y Fq(SUBROUTINE)54 b(LULOGO)f(:)47 b Fw(to)27 b(write)f(a)h(titlepage)e +(for)i(the)g Fm(Jetset/Pythia)f Fw(programs.)41 b(Called)26 +b(b)m(y)472 740 y(LULIST\(0\).)0 848 y Fq(BLOCK)53 b(DATA)f(LUDATA)h(:) +47 b Fw(to)24 b(giv)m(e)g(default)f(v)-5 b(alues)23 b(for)h(v)-5 +b(ariables)22 b(in)h(the)h Fq(LUDAT1)p Fw(,)k Fq(LUDAT2)p +Fw(,)f Fq(LUDAT3)p Fw(,)472 957 y Fq(LUDAT4)35 b Fw(and)d +Fq(LUDATR)i Fw(common)e(blo)s(c)m(ks.)p 0 1106 2056 9 +v 0 1331 9 225 v 79 1247 a Fq(CALL)52 b(LUTAUD\(ITAU,IORIG,KFORI)q +(G,ND)q(ECAY)q(\))p 2047 1331 V 0 1339 2056 9 v 0 1471 +a Fo(Purp)s(ose:)c Fw(to)31 b(act)h(as)g(an)g(in)m(terface)g(b)s(et)m +(w)m(een)i(the)e(standard)g(deca)m(y)i(routine)d Fq(LUDECY)i +Fw(and)f(a)g(user-)472 1580 y(supplied)i Fj(\034)45 b +Fw(lepton)34 b(deca)m(y)h(library)-8 b(.)46 b(The)35 +b(latter)e(library)f(w)m(ould)i(normally)e(kno)m(w)j(ho)m(w)472 +1688 y(to)i(handle)g(p)s(olarized)f Fj(\034)11 b Fw('s,)39 +b(giv)m(en)e(the)h Fj(\034)48 b Fw(p)s(olarization)34 +b(as)j(input,)h(so)f(one)h(task)f(of)g(the)472 1796 y(in)m(terface)e +(routine)f(is)g(to)g(construct)i(the)f Fj(\034)46 b Fw(p)s +(olarization/helicit)m(y)30 b(from)j(the)i(informa-)472 +1905 y(tion)45 b(a)m(v)-5 b(ailable.)79 b(Input)47 b(to)e(the)h +(routine)e(\(from)h Fq(LUDECY)p Fw(\))i(is)d(pro)m(vided)i(in)f(the)h +(\014rst)472 2013 y(three)36 b(argumen)m(ts,)g(while)f(the)g(last)g +(argumen)m(t)g(and)g(some)g(ev)m(en)m(t)i(record)f(information)472 +2121 y(ha)m(v)m(e)41 b(to)d(b)s(e)h(set)h(b)s(efore)f(return.)63 +b(T)-8 b(o)39 b(use)g(this)g(facilit)m(y)e(y)m(ou)i(ha)m(v)m(e)h(to)f +(set)g(the)h(switc)m(h)472 2230 y Fq(MSTJ\(28\))p Fw(,)45 +b(include)39 b(y)m(our)i(o)m(wn)g(in)m(terface)f(routine)g +Fq(LUTAUD)h Fw(and)g(see)g(to)f(it)f(that)h(the)472 2338 +y(dumm)m(y)33 b(routine)f Fq(LUTAUD)i Fw(in)e Fm(Jetset)g +Fw(is)g(not)g(link)m(ed.)44 b(The)33 b(dumm)m(y)g(routine)f(is)g(there) +472 2446 y(only)d(to)g(a)m(v)m(oid)g(unresolv)m(ed)h(external)g +(references)h(when)f(no)f(user-supplied)h(in)m(terface)f(is)472 +2555 y(link)m(ed.)0 2663 y Fq(ITAU)52 b(:)165 b Fw(line)38 +b(n)m(um)m(b)s(er)g(in)g(the)h(ev)m(en)m(t)h(record)f(where)h(the)f +Fj(\034)50 b Fw(is)38 b(stored.)61 b(The)40 b(four-momen)m(tum)472 +2771 y(of)32 b(this)f Fj(\034)43 b Fw(has)33 b(\014rst)f(b)s(een)g(b)s +(o)s(osted)g(bac)m(k)h(to)f(the)g(rest)g(frame)f(of)h(the)g(deca)m +(ying)g(mother)472 2880 y(and)43 b(thereafter)g(rotated)f(to)h(mo)m(v)m +(e)f(out)h(along)e(the)i(+)p Fj(z)k Fw(axis.)73 b(It)42 +b(w)m(ould)h(ha)m(v)m(e)h(b)s(een)472 2988 y(p)s(ossible)f(to)g(also)g +(p)s(erform)f(a)i(\014nal)e(b)s(o)s(ost)h(to)h(the)f(rest)i(frame)d(of) +h(the)h Fj(\034)55 b Fw(itself,)45 b(but)472 3096 y(this)e(has)g(b)s +(een)h(a)m(v)m(oided)f(so)g(as)g(not)g(to)g(suppress)i(the)e +(kinematics)f(asp)s(ect)i(of)e(close-)472 3205 y(to-threshold)e(pro)s +(duction)g(\(e.g.)68 b(in)40 b(B)g(deca)m(ys\))j(vs.)68 +b(high-energy)40 b(pro)s(duction)g(\(e.g.)472 3313 y(in)k(real)g(W)i +(deca)m(ys\).)81 b(The)46 b(c)m(hoice)f(of)f(frame)g(should)g(help)h +(the)g(calculation)d(of)i(the)472 3421 y(helicit)m(y)31 +b(con\014guration.)42 b(After)32 b(the)g Fq(LUTAUD)h +Fw(call)d(the)i Fj(\034)43 b Fw(and)31 b(its)h(deca)m(y)g(pro)s(ducts)h +(will)472 3530 y(automatically)40 b(b)s(e)j(rotated)g(and)g(b)s(o)s +(osted)g(bac)m(k.)76 b(Ho)m(w)m(ev)m(er,)48 b(seemingly)-8 +b(,)44 b(the)g(ev)m(en)m(t)472 3638 y(record)34 b(do)s(es)f(not)f +(conserv)m(e)j(momen)m(tum)c(at)h(this)g(in)m(termediate)g(stage.)0 +3746 y Fq(IORIG)53 b(:)113 b Fw(line)30 b(n)m(um)m(b)s(er)i(where)h +(the)e(mother)g(particle)f(to)h(the)h Fj(\034)43 b Fw(is)31 +b(stored.)43 b(Is)32 b(0)f(if)f(the)i(mother)f(is)472 +3855 y(not)g(stored.)43 b(This)31 b(do)s(es)g(not)f(ha)m(v)m(e)i(to)e +(mean)g(the)h(mother)f(is)g(unkno)m(wn.)44 b(F)-8 b(or)30 +b(instance,)472 3963 y(in)44 b(semileptonic)f(B)i(deca)m(ys)h(the)g +(mother)e(is)g(a)g(W)2437 3927 y Fk(\006)2541 3963 y +Fw(with)h(kno)m(wn)h(four-momen)m(tum)472 4071 y Fj(p)521 +4086 y Fl(W)627 4071 y Fw(=)27 b Fj(p)779 4086 y Fh(\034)836 +4071 y Fw(+)14 b Fj(p)975 4086 y Fh(\027)1010 4094 y +Fe(\034)1053 4071 y Fw(,)29 b(but)g(there)g(is)g(no)f(W)i(line)e(in)f +(the)i(ev)m(en)m(t)i(record.)42 b(When)30 b(sev)m(eral)f(copies)472 +4180 y(of)40 b(the)h(mother)f(is)g(stored)h(\(e.g.)66 +b(one)41 b(in)f(the)g(do)s(cumen)m(tation)g(section)g(of)g(the)h(ev)m +(en)m(t)472 4288 y(record)33 b(and)f(one)h(in)e(the)i(main)d +(section\),)j Fq(IORIG)g Fw(p)s(oin)m(ts)f(to)g(the)g(last.)43 +b(If)32 b(a)g(branc)m(hings)472 4396 y(lik)m(e)f Fj(\034)39 +b Fn(!)28 b Fj(\034)11 b(\015)36 b Fw(o)s(ccurs,)d(the)f(`grandmother') +f(is)g(giv)m(en,)h(i.e.)42 b(the)32 b(mother)f(of)g(the)h(direct)f +Fj(\034)472 4505 y Fw(b)s(efore)i(branc)m(hing.)0 4613 +y Fq(KFORIG)53 b(:)62 b Fw(\015a)m(v)m(our)24 b(co)s(de)g(for)e(the)h +(mother)g(particle.)39 b(Is)23 b(0)g(if)f(the)h(mother)g(is)f(unkno)m +(wn.)42 b(The)24 b(mother)472 4721 y(w)m(ould)32 b(t)m(ypically)e(b)s +(e)h(a)g(resonance)i(suc)m(h)g(as)e Fj(\015)2201 4685 +y Fk(\003)2241 4721 y Fj(=)p Fw(Z)2350 4685 y Fl(0)2420 +4721 y Fw(\(23\),)g(W)2753 4685 y Fk(\006)2844 4721 y +Fw(\()p Fn(\006)p Fw(24\),)g(H)3226 4685 y Fl(0)3297 +4721 y Fw(\(25\),)g(or)g(H)3720 4685 y Fk(\006)472 4830 +y Fw(\()p Fn(\006)p Fw(37\).)49 b(Often)34 b(the)h(helicit)m(y)e(c)m +(hoice)i(w)m(ould)f(b)s(e)h(clear)e(just)i(b)m(y)g(the)g(kno)m(wledge)g +(of)f(this)472 4938 y(mother)j(sp)s(ecies,)h(e.g.,)h(W)1481 +4902 y Fk(\006)1577 4938 y Fw(vs.)57 b(H)1823 4902 y +Fk(\006)1882 4938 y Fw(.)f(Ho)m(w)m(ev)m(er,)40 b(sometimes)c(further)h +(complications)472 5046 y(ma)m(y)c(exist.)45 b(F)-8 b(or)33 +b(instance,)g(the)h(KF)e(co)s(de)h(23)g(represen)m(ts)i(a)e(mixture)f +(of)h Fj(\015)3309 5010 y Fk(\003)3381 5046 y Fw(and)g(Z)3631 +5010 y Fl(0)3670 5046 y Fw(;)h(a)472 5155 y(kno)m(wledge)25 +b(of)e(the)i(mother)e(mass)g(\(in)g Fq(P\(IORIG,5\))p +Fw(\))k(w)m(ould)c(here)i(b)s(e)f(required)g(to)f(mak)m(e)472 +5263 y(the)39 b(c)m(hoice)f(of)g(helicities.)58 b(F)-8 +b(urther,)40 b(a)d(W)2089 5227 y Fk(\006)2187 5263 y +Fw(or)h(Z)2372 5227 y Fl(0)2449 5263 y Fw(ma)m(y)g(either)g(b)s(e)g +(\(predominan)m(tly\))472 5372 y(transv)m(erse)d(or)d(longitudinal,)d +(dep)s(ending)k(on)g(the)g(pro)s(duction)f(pro)s(cess)h(under)h(study) +-8 b(.)0 5480 y Fq(NDECAY)53 b(:)62 b Fw(the)30 b(n)m(um)m(b)s(er)f(of) +g(deca)m(y)h(pro)s(ducts)g(of)e(the)h Fj(\034)11 b Fw(;)31 +b(to)e(b)s(e)g(giv)m(en)g(b)m(y)h(the)f(user.)43 b(Y)-8 +b(ou)29 b(m)m(ust)g(also)472 5588 y(store)40 b(the)f(KF)f(\015a)m(v)m +(our)i(co)s(des)f(of)f(those)i(deca)m(y)g(pro)s(ducts)f(in)f(the)h(p)s +(ositions)f Fq(K\(I,2\))p Fw(,)1817 5953 y(258)p eop +%%Page: 259 265 +259 264 bop 472 -18 a Fq(N+1)p Fn(\024)p Fq(I)p Fn(\024)p +Fq(N+NDECAY)p Fw(,)50 b(of)c(the)g(ev)m(en)m(t)i(record.)84 +b(The)46 b(corresp)s(onding)g(\014v)m(e-momen)m(tum)472 +90 y(\(momen)m(tum,)51 b(energy)f(and)e(mass\))h(should)f(b)s(e)g +(stored)h(in)f(the)h(asso)s(ciated)f Fq(P\(I,J\))472 +198 y Fw(p)s(ositions,)f(1)p Fn(\024)p Fq(J)p Fn(\024)p +Fw(5.)79 b(The)46 b(four-momen)m(ta)c(are)j(exp)s(ected)h(to)e(add)h +(up)f(to)g(the)h(four-)472 307 y(momen)m(tum)38 b(of)g(the)h +Fj(\034)49 b Fw(in)38 b(p)s(osition)f Fq(ITAU)p Fw(.)j(Y)-8 +b(ou)38 b(should)g(not)h(c)m(hange)g(the)g Fq(N)g Fw(v)-5 +b(alue)38 b(or)472 415 y(an)m(y)i(of)e(the)i(other)f +Fq(K)g Fw(or)f Fq(V)h Fw(v)-5 b(alues)39 b(\(neither)g(for)f(the)i +Fj(\034)50 b Fw(nor)39 b(for)f(its)h(deca)m(y)h(pro)s(ducts\))472 +523 y(since)33 b(this)g(is)f(automatically)d(done)k(in)f +Fq(LUDECY)p Fw(.)0 797 y Fp(14.3)136 b(Ev)l(en)l(t)46 +b(Study)e(and)h(Data)h(Listing)f(Routines)0 970 y Fw(After)d(an)f +Fq(LUEXEC)i Fw(call,)f(the)g(ev)m(en)m(t)h(generated)f(is)f(stored)h +(in)f(the)h Fq(LUJETS)h Fw(common)d(blo)s(c)m(k,)j(and)0 +1078 y(whatev)m(er)k(ph)m(ysical)f(v)-5 b(ariable)43 +b(is)i(desired)h(ma)m(y)g(b)s(e)f(constructed)j(from)c(this)h(record.) +83 b(An)46 b(ev)m(en)m(t)0 1187 y(ma)m(y)35 b(b)s(e)h(rotated,)h(b)s(o) +s(osted)f(or)f(listed,)h(and)f(particle)g(data)g(ma)m(y)h(b)s(e)g +(listed)e(or)i(mo)s(di\014ed.)51 b(Via)35 b(the)0 1295 +y(functions)29 b Fq(KLU)h Fw(and)f Fq(PLU)g Fw(the)h(v)-5 +b(alues)28 b(of)h(some)g(frequen)m(tly)h(app)s(earing)e(v)-5 +b(ariables)27 b(ma)m(y)i(b)s(e)g(obtained)0 1403 y(more)f(easily)-8 +b(.)42 b(As)30 b(describ)s(ed)f(in)g(section)g(15.4,)g(also)f(more)h +(detailed)f(ev)m(en)m(t)j(shap)s(e)f(analyses)f(ma)m(y)g(b)s(e)0 +1512 y(p)s(erformed)j(simply)-8 b(.)p 0 1656 1799 9 v +0 1881 9 225 v 79 1796 a Fq(CALL)52 b(LUROBO\(THE,PHI,BEX,BEY,)q(BEZ\)) +p 1791 1881 V 0 1889 1799 9 v 0 2026 a Fo(Purp)s(ose:)c +Fw(to)39 b(p)s(erform)f(rotations)g(and)i(Loren)m(tz)g(b)s(o)s(osts)g +(\(in)e(that)h(order,)j(if)c(b)s(oth)h(in)g(the)h(same)472 +2134 y(call\))31 b(of)h(jet/particle)f(momen)m(ta)h(and)h(v)m(ertex)h +(p)s(osition)d(v)-5 b(ariables.)0 2243 y Fq(THE,)52 b(PHI)g(:)c +Fw(standard)28 b(p)s(olar)e(co)s(ordinates)g Fj(\022)s(;)17 +b(')p Fw(,)29 b(giving)d(the)h(rotated)h(direction)e(of)h(a)g(momen)m +(tum)472 2351 y(v)m(ector)34 b(initially)28 b(along)k(the)h(+)p +Fj(z)k Fw(axis.)0 2459 y Fq(BEX,)52 b(BEY,)h(BEZ)f(:)47 +b Fw(giv)m(es)33 b(the)g(direction)f(and)g(size)h Fb(\014)j +Fw(of)c(a)g(Loren)m(tz)h(b)s(o)s(ost,)f(suc)m(h)i(that)f(a)f(particle) +472 2568 y(initially)d(at)j(rest)h(will)e(ha)m(v)m(e)i +Fo(p)p Fj(=E)h Fw(=)p Fb(\014)i Fw(afterw)m(ards.)0 2676 +y Fo(Remark:)53 b Fw(all)40 b(en)m(tries)i(1)f(through)g +Fq(N)h Fw(are)f(a\013ected)h(b)m(y)g(the)g(transformation,)g(unless)g +(lo)m(w)m(er)f(and)472 2785 y(upp)s(er)35 b(b)s(ounds)h(are)e +(explicitly)f(giv)m(en)h(b)m(y)j Fq(MSTU\(1\))f Fw(and)f +Fq(MSTU\(2\))p Fw(,)i(or)d(if)f(status)i(co)s(de)472 +2893 y Fq(K\(I,1\))p Fn(\024)30 b Fw(0.)p 0 3032 2415 +9 v 0 3256 9 225 v 79 3172 a Fq(ENTRY)53 b(LUDBRB\(IMI,IMA,THE,PHI,DBE) +q(X,DB)q(EY,)q(DBEZ)q(\))p 2406 3256 V 0 3264 2415 9 +v 0 3402 a Fo(Purp)s(ose:)48 b Fw(to)39 b(p)s(erform)f(rotations)g(and) +i(Loren)m(tz)g(b)s(o)s(osts)g(\(in)e(that)h(order,)j(if)c(b)s(oth)h(in) +g(the)h(same)472 3510 y(call\))27 b(of)g(jet/particle)g(momen)m(ta)g +(and)h(v)m(ertex)i(p)s(osition)c(v)-5 b(ariables,)28 +b(for)f(a)h(sp)s(eci\014c)g(range)472 3619 y(of)42 b(en)m(tries,)j(and) +d(with)f(the)i(b)s(o)s(ost)e(v)m(ector)i(giv)m(en)f(in)g(double)f +(precision.)71 b(Is)43 b(en)m(try)g(to)472 3727 y Fq(LUROBO)p +Fw(,)35 b(mainly)30 b(in)m(tended)j(for)f(in)m(ternal)g(use.)0 +3835 y Fq(IMI,)52 b(IMA)g(:)c Fw(range)32 b(of)h(en)m(tries)g +(a\013ected)g(b)m(y)h(transformation,)c Fq(IMI)p Fn(\024)p +Fq(I)p Fn(\024)p Fq(IMA)p Fw(.)0 3944 y Fq(THE,)52 b(PHI)g(:)c +Fw(standard)28 b(p)s(olar)e(co)s(ordinates)g Fj(\022)s(;)17 +b(')p Fw(,)29 b(giving)d(the)h(rotated)h(direction)e(of)h(a)g(momen)m +(tum)472 4052 y(v)m(ector)34 b(initially)28 b(along)k(the)h(+)p +Fj(z)k Fw(axis.)0 4160 y Fq(DBEX,)53 b(DBEY,)f(DBEZ)h(:)47 +b Fw(giv)m(es)i(the)g(direction)f(and)h(size)g Fb(\014)j +Fw(of)c(a)g(Loren)m(tz)i(b)s(o)s(ost,)i(suc)m(h)e(that)f(a)472 +4269 y(particle)28 b(initially)d(at)k(rest)h(will)d(ha)m(v)m(e)j +Fo(p)p Fj(=E)k Fw(=)p Fb(\014)e Fw(afterw)m(ards.)43 +b(Is)30 b(to)f(b)s(e)g(giv)m(en)g(in)g(double)472 4377 +y(precision.)0 4485 y Fo(Remark:)53 b Fw(all)34 b(en)m(tries)i(with)e +(status)j(co)s(des)f Fq(K\(I,1\)>0)h Fw(in)e(the)g(requested)j(range)d +(are)g(a\013ected)i(b)m(y)472 4594 y(the)c(transformation.)p +0 4719 1082 9 v 0 4938 9 220 v 79 4859 a Fq(CALL)52 b(LUEDIT\(MEDIT\))p +1073 4938 V 0 4946 1082 9 v 0 5083 a Fo(Purp)s(ose:)c +Fw(to)31 b(exclude)i(unstable)f(or)f(undetectable)i(jets/particles)e +(from)g(the)h(ev)m(en)m(t)h(record.)44 b(One)472 5192 +y(ma)m(y)d(also)e(use)j Fq(LUEDIT)g Fw(to)e(store)h(spare)h(copies)f +(of)f(ev)m(en)m(ts)j(\(sp)s(eci\014cally)c(initial)e(par-)472 +5300 y(ton)j(con\014guration\))e(that)i(can)f(b)s(e)h(recalled)e(to)i +(allo)m(w)d(e.g.)65 b(di\013eren)m(t)39 b(fragmen)m(tation)472 +5408 y(sc)m(hemes)g(to)e(b)s(e)h(run)f(through)h(with)f(one)g(and)h +(the)f(same)g(parton)g(con\014guration.)57 b(Fi-)472 +5517 y(nally)-8 b(,)33 b(an)h(ev)m(en)m(t)h(whic)m(h)g(has)f(b)s(een)g +(analyzed)g(with)g Fq(LUSPHE)p Fw(,)h Fq(LUTHRU)h Fw(or)d +Fq(LUCLUS)i Fw(\(see)472 5625 y(section)e(15.4\))f(ma)m(y)g(b)s(e)h +(rotated)g(to)f(align)e(the)j(ev)m(en)m(t)i(axis)d(with)g(the)h +Fj(z)38 b Fw(direction.)1817 5953 y(259)p eop +%%Page: 260 266 +260 265 bop 0 -18 a Fq(MEDIT)53 b(:)113 b Fw(tells)32 +b(whic)m(h)h(action)f(is)g(to)g(b)s(e)h(tak)m(en.)236 +90 y Fq(=)52 b(0)f(:)217 b Fw(empt)m(y)41 b(\()p Fq(K\(I,1\)=0)p +Fw(\))j(and)d(do)s(cumen)m(tation)f(\()p Fq(K\(I,1\)>20)p +Fw(\))k(lines)c(are)h(remo)m(v)m(ed.)709 198 y(The)52 +b(jets/particles)f(remaining)f(are)i(compressed)h(in)e(the)h(b)s +(eginning)e(of)h(the)709 307 y Fq(LUJETS)28 b Fw(common)d(blo)s(c)m(k)h +(and)h(the)f Fq(N)h Fw(v)-5 b(alue)26 b(is)g(up)s(dated)h(accordingly) +-8 b(.)40 b(The)28 b(ev)m(en)m(t)709 415 y(history)g(is)h(lost,)g(so)g +(that)g(information)c(stored)30 b(in)e Fq(K\(I,3\))p +Fw(,)j Fq(K\(I,4\))g Fw(and)e Fq(K\(I,5\))709 523 y Fw(is)j(no)g +(longer)g(relev)-5 b(an)m(t.)236 632 y Fq(=)52 b(1)f(:)217 +b Fw(as)42 b Fq(=0)p Fw(,)k(but)d(in)e(addition)g(all)f(jets/particles) +i(that)h(ha)m(v)m(e)h(fragmen)m(ted/deca)m(y)m(ed)709 +740 y(\()p Fq(K\(I,1\)>10)p Fw(\))34 b(are)f(remo)m(v)m(ed.)236 +848 y Fq(=)52 b(2)f(:)217 b Fw(as)26 b Fq(=1)p Fw(,)j(but)d(also)g(all) +e(neutrinos)j(and)g(unkno)m(wn)h(particles)d(\(i.e.)41 +b(compressed)28 b(co)s(de)709 957 y(K)m(C=)g(0\))k(are)h(remo)m(v)m +(ed.)236 1065 y Fq(=)52 b(3)f(:)217 b Fw(as)22 b Fq(=2)p +Fw(,)i(but)e(also)f(all)f(unc)m(harged,)25 b(colour)c(neutral)h +(particles)f(are)g(remo)m(v)m(ed,)k(lea)m(ving)709 1173 +y(only)34 b(c)m(harged,)j(stable)e(particles)f(\(and)h(unfragmen)m(ted) +g(partons,)h(if)e(fragmen)m(ta-)709 1282 y(tion)d(has)i(not)g(b)s(een)g +(p)s(erformed\).)236 1390 y Fq(=)52 b(5)f(:)217 b Fw(as)33 +b Fq(=0)p Fw(,)g(but)g(also)f(all)e(partons)j(whic)m(h)h(ha)m(v)m(e)g +(branc)m(hed)g(or)e(b)s(een)i(rearranged)f(in)f(a)709 +1498 y(parton)d(sho)m(w)m(er)j(and)e(all)e(particles)i(whic)m(h)g(ha)m +(v)m(e)i(deca)m(y)m(ed)g(are)e(remo)m(v)m(ed,)h(lea)m(ving)709 +1607 y(only)h(the)h(fragmen)m(ting)e(parton)h(con\014guration)g(and)g +(the)h(\014nal-state)f(particles.)236 1715 y Fq(=)52 +b(11)g(:)165 b Fw(remo)m(v)m(e)56 b(lines)f(with)g Fq(K\(I,1\)<0)p +Fw(.)116 b(Up)s(date)56 b(ev)m(en)m(t)h(history)f(information)c(\(in) +709 1823 y Fq(K\(I,3\))h(-)e(K\(I,5\))p Fw(\))34 b(to)e(refer)h(to)f +(remaining)f(en)m(tries.)236 1932 y Fq(=)52 b(12)g(:)165 +b Fw(remo)m(v)m(e)56 b(lines)f(with)g Fq(K\(I,1\)=0)p +Fw(.)116 b(Up)s(date)56 b(ev)m(en)m(t)h(history)f(information)c(\(in) +709 2040 y Fq(K\(I,3\))h(-)e(K\(I,5\))p Fw(\))34 b(to)e(refer)h(to)f +(remaining)f(en)m(tries.)236 2148 y Fq(=)52 b(13)g(:)165 +b Fw(remo)m(v)m(e)56 b(lines)f(with)g Fq(K\(I,1\))p Fw(=)68 +b(11,)61 b(12)56 b(or)f(15,)61 b(except)c(for)e(an)m(y)i(line)d(with) +709 2257 y Fq(K\(I,2\)=94)p Fw(.)46 b(Up)s(date)32 b(ev)m(en)m(t)j +(history)d(information)e(\(in)h Fq(K\(I,3\))53 b(-)f(K\(I,5\))p +Fw(\))34 b(to)709 2365 y(refer)c(to)f(remaining)e(en)m(tries.)43 +b(In)30 b(particular,)f(try)h(to)f(trace)h(origin)d(of)i(daugh)m(ters,) +709 2473 y(for)j(whic)m(h)h(the)g(mother)f(is)g(deca)m(y)m(ed,)j(bac)m +(k)e(to)g(en)m(tries)g(not)f(deleted.)236 2582 y Fq(=)52 +b(14)g(:)165 b Fw(remo)m(v)m(e)34 b(lines)e(with)h Fq(K\(I,1\))p +Fw(=)e(13)i(or)g(14,)g(and)g(also)g(an)m(y)h(line)e(with)h +Fq(K\(I,2\)=94)p Fw(.)709 2690 y(Up)s(date)k(ev)m(en)m(t)i(history)e +(information)d(\(in)i Fq(K\(I,3\))53 b(-)f(K\(I,5\))p +Fw(\))39 b(to)d(refer)i(to)f(re-)709 2798 y(maining)27 +b(en)m(tries.)43 b(In)30 b(particular,)f(try)h(to)g(trace)g(origin)e +(of)h(rearranged)h(jets)g(bac)m(k)709 2907 y(through)i(the)h +(parton-sho)m(w)m(er)h(history)e(to)g(the)h(sho)m(w)m(er)i(initiator.) +236 3015 y Fq(=)52 b(15)g(:)165 b Fw(remo)m(v)m(e)51 +b(lines)f(with)g Fq(K\(I,1\)>20)p Fw(.)100 b(Up)s(date)51 +b(ev)m(en)m(t)h(history)f(information)c(\(in)709 3123 +y Fq(K\(I,3\))53 b(-)e(K\(I,5\))p Fw(\))34 b(to)e(refer)h(to)f +(remaining)f(en)m(tries.)236 3232 y Fq(=)52 b(16)g(:)165 +b Fw(try)24 b(to)g(reconstruct)i(missing)c(daugh)m(ter)j(p)s(oin)m +(ters)f(of)g(deca)m(y)m(ed)j(particles)c(from)g(the)709 +3340 y(mother)f(p)s(oin)m(ters)g(of)g(deca)m(y)i(pro)s(ducts.)41 +b(These)24 b(missing)d(p)s(oin)m(ters)h(t)m(ypically)g(come)709 +3448 y(from)j(the)h(need)i(to)d(use)j Fq(K\(I,4\))f Fw(and)g +Fq(K\(I,5\))g Fw(also)f(for)f(colour)h(\015o)m(w)h(information.)236 +3557 y Fq(=)52 b(21)g(:)165 b Fw(all)29 b(partons/particles)h(in)h +(curren)m(t)h(ev)m(en)m(t)h(record)f(are)f(stored)g(\(as)h(a)f(spare)g +(cop)m(y\))709 3665 y(in)c(b)s(ottom)h(of)g(common)f(blo)s(c)m(k)h +Fq(LUJETS)i Fw(\(is)e(e.g.)43 b(done)29 b(to)f(sa)m(v)m(e)i(original)25 +b(partons)709 3774 y(b)s(efore)32 b(calling)g Fq(LUEXEC)p +Fw(\).)236 3882 y Fq(=)52 b(22)g(:)165 b Fw(partons/particles)26 +b(stored)h(in)f(b)s(ottom)g(of)g(ev)m(en)m(t)j(record)e(with)g +Fq(=21)h Fw(are)e(placed)h(in)709 3990 y(b)s(eginning)21 +b(of)h(record)h(again,)h(o)m(v)m(erwriting)e(previous)h(information)c +(there)24 b(\(so)f(that)709 4099 y(e.g.)43 b(a)31 b(di\013eren)m(t)g +(fragmen)m(tation)e(sc)m(heme)k(can)e(b)s(e)g(used)i(on)e(the)g(same)g +(partons\).)709 4207 y(Since)37 b(the)h(cop)m(y)h(at)e(b)s(ottom)f(is)h +(una\013ected,)j(rep)s(eated)e(calls)e(with)h Fq(=22)i +Fw(can)e(b)s(e)709 4315 y(made.)236 4424 y Fq(=)52 b(23)g(:)165 +b Fw(primary)26 b(partons/particles)g(in)h(the)h(b)s(eginning)d(of)i +(ev)m(en)m(t)i(record)f(are)g(mark)m(ed)f(as)709 4532 +y(not)35 b(fragmen)m(ted)h(or)f(deca)m(y)m(ed,)k(and)d(n)m(um)m(b)s(er) +g(of)f(en)m(tries)h Fq(N)g Fw(is)f(up)s(dated)i(accord-)709 +4640 y(ingly)-8 b(.)40 b(Is)29 b(simp)s(e)d(substitute)j(for)e +Fq(=21)i Fw(plus)f Fq(=22)g Fw(when)h(no)f(fragmen)m(tation/deca)m(y) +709 4749 y(pro)s(ducts)33 b(precede)h(an)m(y)f(of)g(the)g(original)c +(partons/particles.)236 4857 y Fq(=)52 b(31)g(:)165 b +Fw(rotate)25 b(largest)f(axis,)j(determined)e(b)m(y)i +Fq(LUSPHE)p Fw(,)g Fq(LUTHRU)g Fw(or)e Fq(LUCLUS)p Fw(,)h(to)f(sit)g +(along)709 4965 y(the)h Fj(z)k Fw(direction,)c(and)g(the)g(second)i +(largest)d(axis)g(in)m(to)g(the)h Fj(xz)31 b Fw(plane.)41 +b(F)-8 b(or)25 b Fq(LUCLUS)709 5074 y Fw(it)35 b(can)i(b)s(e)f(further) +h(sp)s(eci\014ed)g(to)f(+)p Fj(z)41 b Fw(axis)c(and)f +Fj(xz)42 b Fw(plane)36 b(with)g Fj(x)e(>)g Fw(0,)k(resp)s(ec-)709 +5182 y(tiv)m(ely)-8 b(.)43 b(Requires)33 b(that)f(one)h(of)f(these)i +(routines)f(has)g(b)s(een)g(called)e(b)s(efore.)236 5290 +y Fq(=)52 b(32)g(:)165 b Fw(mainly)24 b(in)m(tended)k(for)e +Fq(LUSPHE)i Fw(and)f Fq(LUTHRU)p Fw(,)h(this)e(giv)m(es)h(a)f(further)h +(alignmen)m(t)e(of)709 5399 y(the)33 b(ev)m(en)m(t,)j(in)c(addition)g +(to)h(the)g(one)h(implied)c(b)m(y)36 b Fq(=31)p Fw(.)46 +b(The)34 b(`slim')d(jet,)j(de\014ned)709 5507 y(as)j(the)h(side)g(\()p +Fj(z)j(>)36 b Fw(0)h(or)g Fj(z)k(<)36 b Fw(0\))i(with)f(the)h(smallest) +e(summed)h Fj(p)3195 5522 y Fk(?)3292 5507 y Fw(o)m(v)m(er)h(square)709 +5615 y(ro)s(ot)g(of)h(n)m(um)m(b)s(er)h(of)f(particles,)i(is)e(rotated) +g(in)m(to)g(the)h(+)p Fj(z)k Fw(hemisphere.)64 b(In)40 +b(the)1817 5953 y(260)p eop +%%Page: 261 267 +261 266 bop 709 -18 a Fw(opp)s(osite)39 b(hemisphere)i(\(no)m(w)g +Fj(z)k(<)c Fw(0\),)h(the)f(side)f(of)g Fj(x)h(>)g Fw(0)f(and)g +Fj(x)h(<)g Fw(0)f(whic)m(h)709 90 y(has)e(the)h(largest)e(summed)h +Fn(j)p Fj(p)1850 105 y Fh(z)1889 90 y Fn(j)g Fw(is)g(rotated)g(in)m(to) +f(the)i Fj(z)j(<)37 b Fw(0)p Fj(;)17 b(x)37 b(>)g Fw(0)h(quadran)m(t.) +709 198 y(Requires)33 b(that)f Fq(LUSPHE)i Fw(or)f Fq(LUTHRU)h +Fw(has)f(b)s(een)g(called)e(b)s(efore.)0 307 y Fo(Remark:)53 +b Fw(all)33 b(en)m(tries)i(1)f(through)g Fq(N)h Fw(are)f(a\013ected)h +(b)m(y)h(the)e(editing.)48 b(F)-8 b(or)33 b(options)h(0{5)g(lo)m(w)m +(er)g(and)472 415 y(upp)s(er)g(b)s(ounds)f(can)g(b)s(e)f(explicitly)f +(giv)m(en)i(b)m(y)i Fq(MSTU\(1\))f Fw(and)f Fq(MSTU\(2\))p +Fw(.)p 0 559 1082 9 v 0 778 9 220 v 79 699 a Fq(CALL)52 +b(LULIST\(MLIST\))p 1073 778 V 0 786 1082 9 v 0 918 a +Fo(Purp)s(ose:)c Fw(to)32 b(list)f(an)i(ev)m(en)m(t,)h(jet)f(or)f +(particle)f(data,)i(or)f(curren)m(t)h(parameter)g(v)-5 +b(alues.)0 1027 y Fq(MLIST)53 b(:)113 b Fw(determines)33 +b(what)g(is)f(to)g(b)s(e)h(listed.)236 1135 y Fq(=)52 +b(0)f(:)217 b Fw(writes)48 b(a)g(title)e(page,)52 b(common)47 +b(for)h Fm(Jetset)f Fw(and)h Fm(Pythia)p Fw(,)k(with)c(program)709 +1243 y(v)m(ersion)33 b(n)m(um)m(b)s(ers)g(and)g(last)f(dates)h(of)f(c)m +(hange;)i(is)e(mostly)f(for)h(in)m(ternal)g(use.)236 +1352 y Fq(=)52 b(1)f(:)217 b Fw(giv)m(es)23 b(a)h(simple)d(list)h(of)h +(curren)m(t)i(ev)m(en)m(t)g(record,)h(in)c(an)i(80)e(column)h(format)e +(suitable)709 1460 y(for)k(viewing)g(directly)g(on)g(the)h(computer)g +(terminal.)38 b(F)-8 b(or)25 b(eac)m(h)i(en)m(try)-8 +b(,)28 b(the)e(follo)m(w-)709 1568 y(ing)33 b(information)f(is)i(giv)m +(en:)47 b(the)35 b(en)m(try)h(n)m(um)m(b)s(er)f Fq(I)p +Fw(,)g(the)g(parton/particle)e(name)709 1677 y(\(see)28 +b(b)s(elo)m(w\),)g(the)g(status)f(co)s(de)h(\()p Fq(K\(I,1\))p +Fw(\),)i(the)d(\015a)m(v)m(our)h(co)s(de)g(KF)e(\()p +Fq(K\(I,2\))p Fw(\),)k(the)709 1785 y(line)36 b(n)m(um)m(b)s(er)i(of)f +(the)h(mother)f(\()p Fq(K\(I,3\))p Fw(\),)k(and)c(the)i(three-momen)m +(tum,)e(energy)709 1893 y(and)27 b(mass)h(\()p Fq(P\(I,1\))53 +b(-)e(P\(I,5\))p Fw(\).)43 b(If)35 b Fq(MSTU\(3\))29 +b Fw(is)e(non-zero,)i(lines)e(immediately)709 2002 y(after)34 +b(the)h(ev)m(en)m(t)i(record)e(prop)s(er)f(are)h(also)f(listed.)49 +b(A)34 b(\014nal)g(line)g(con)m(tains)g(infor-)709 2110 +y(mation)c(on)j(total)e(c)m(harge,)i(momen)m(tum,)e(energy)j(and)f(in)m +(v)-5 b(arian)m(t)31 b(mass.)709 2219 y(The)h(particle)f(name)g(is)g +(giv)m(en)h(b)m(y)g(a)f(call)f(to)i(the)g(routine)f Fq(LUNAME)p +Fw(.)i(F)-8 b(or)31 b(an)g(en)m(try)709 2327 y(whic)m(h)43 +b(has)h(deca)m(y)m(ed/fragmen)m(ted)h(\()p Fq(K\(I,1\)=)g +Fw(11{20\),)g(this)d(particle)g(name)h(is)709 2435 y(giv)m(en)33 +b(within)g(paren)m(theses.)48 b(Similarly)-8 b(,)30 b(a)j(do)s(cumen)m +(tation)g(line)f(\()p Fq(K\(I,1\)=)j Fw(21{)709 2544 +y(30\))j(has)h(the)g(name)f(enclosed)h(in)f(expression)i(signs)f(\(!.) +16 b(.)g(.)g(!\))62 b(and)39 b(an)g(ev)m(en)m(t/jet)709 +2652 y(axis)f(information)e(line)h(the)j(name)e(within)g(inequalit)m(y) +g(signs)g(\()p Fj(<)p Fw(.)16 b(.)g(.)g Fj(>)p Fw(\).)63 +b(If)39 b(the)709 2760 y(last)32 b(c)m(haracter)i(of)f(the)g(name)g(is) +g(a)g(`?',)g(it)g(is)f(a)h(signal)f(that)h(the)g(complete)g(name)709 +2869 y(has)42 b(b)s(een)h(truncated)h(to)e(\014t)g(in,)i(and)e(can)h +(therefore)g(not)f(b)s(e)h(trusted;)48 b(this)42 b(is)709 +2977 y(v)m(ery)31 b(rare.)43 b(F)-8 b(or)29 b(partons)i(whic)m(h)f(ha)m +(v)m(e)i(b)s(een)f(arranged)f(along)f(strings)h(\()p +Fq(K\(I,1\)=)709 3085 y Fw(1,)h(2,)g(11)g(or)g(12\),)g(the)h(end)g(of)f +(the)g(parton)g(name)g(column)f(con)m(tains)i(information)709 +3194 y(ab)s(out)f(the)i(colour)e(string)g(arrangemen)m(t:)43 +b(an)32 b Fq(A)h Fw(for)e(the)i(\014rst)f(en)m(try)i(of)d(a)h(string,) +709 3302 y(an)38 b Fq(I)h Fw(for)f(all)f(in)m(termediate)g(ones,)k(and) +e(a)f Fq(V)h Fw(for)f(the)h(\014nal)f(one)h(\(a)f(p)s(o)s(or)g(man's) +709 3410 y(rendering)32 b(of)g(a)h(v)m(ertical)e(doublesided)i(arro)m +(w,)g Fn(l)p Fw(\).)709 3519 y(It)28 b(is)g(p)s(ossible)f(to)h(insert)g +(lines)g(just)g(consisting)g(of)f(sequences)32 b(of)i +Fq(======)c Fw(to)e(sep-)709 3627 y(arate)k(di\013eren)m(t)h(sections)g +(of)f(the)h(ev)m(en)m(t)h(record,)g(see)f Fq(MSTU\(70\))54 +b(-)d(MSTU\(80\))p Fw(.)236 3735 y Fq(=)h(2)f(:)217 b +Fw(giv)m(es)36 b(a)f(more)g(extensiv)m(e)i(list)e(of)g(the)h(curren)m +(t)g(ev)m(en)m(t)i(record,)f(in)d(a)i(132)f(column)709 +3844 y(format,)46 b(suitable)e(for)g(prin)m(ters)h(or)f(w)m +(orkstations.)81 b(F)-8 b(or)44 b(eac)m(h)h(en)m(try)-8 +b(,)49 b(the)c(fol-)709 3952 y(lo)m(wing)g(information)e(is)j(giv)m +(en:)71 b(the)47 b(en)m(try)h(n)m(um)m(b)s(er)f Fq(I)p +Fw(,)f(the)h(parton/particle)709 4060 y(name)33 b(\(with)h(padding)f +(as)h(describ)s(ed)h(for)f Fq(=1)p Fw(\),)h(the)f(status)h(co)s(de)f +(\()p Fq(K\(I,1\))p Fw(\),)i(the)709 4169 y(\015a)m(v)m(our)e(co)s(de)f +(KF)g(\()p Fq(K\(I,2\))p Fw(\),)i(the)f(line)d(n)m(um)m(b)s(er)j(of)f +(the)g(mother)g(\()p Fq(K\(I,3\))p Fw(\),)i(the)709 4277 +y(deca)m(y)48 b(pro)s(duct/colour-\015o)m(w)e(p)s(oin)m(ters)g(\()p +Fq(K\(I,4\),)53 b(K\(I,5\))p Fw(\),)f(and)46 b(the)h(three-)709 +4385 y(momen)m(tum,)42 b(energy)h(and)e(mass)h(\()p Fq(P\(I,1\))53 +b(-)e(P\(I,5\))p Fw(\).)72 b(If)48 b Fq(MSTU\(3\))c Fw(is)d(non-)709 +4494 y(zero,)e(lines)d(immediately)f(after)i(the)h(ev)m(en)m(t)h +(record)f(prop)s(er)f(are)h(also)e(listed.)57 b(A)709 +4602 y(\014nal)37 b(line)f(con)m(tains)i(information)c(on)k(total)e(c)m +(harge,)k(momen)m(tum,)e(energy)g(and)709 4710 y(in)m(v)-5 +b(arian)m(t)31 b(mass.)43 b(Lines)33 b(with)f(only)i +Fq(======)g Fw(ma)m(y)e(b)s(e)h(inserted)g(as)g(for)f +Fq(=1)p Fw(.)236 4819 y Fq(=)52 b(3)f(:)217 b Fw(giv)m(es)39 +b(the)g(same)g(basic)f(listing)f(as)i Fq(=2)p Fw(,)i(but)e(with)f(an)h +(additional)d(line)h(for)i(eac)m(h)709 4927 y(en)m(try)50 +b(con)m(taining)f(information)d(on)j(pro)s(duction)g(v)m(ertex)i(p)s +(osition)d(and)i(time)709 5035 y(\()p Fq(V\(I,1\))i(-)g(V\(I,4\))p +Fw(\))26 b(and,)g(for)f(unstable)f(particles,)i(prop)s(er)e(lifetime)e +(\()p Fq(V\(I,5\))p Fw(\).)236 5144 y Fq(=)52 b(11)g(:)165 +b Fw(pro)m(vides)28 b(a)f(simple)e(list)h(of)h(all)e(parton/particle)h +(co)s(des)i(de\014ned)h(in)d(the)i(program,)709 5252 +y(with)35 b(KF)h(co)s(de)g(and)g(corresp)s(onding)g(particle)e(name.)54 +b(The)37 b(list)d(is)i(group)s(ed)g(b)m(y)709 5360 y(particle)31 +b(kind,)i(and)f(only)g(within)g(eac)m(h)h(group)g(in)e(ascending)i +(order.)236 5469 y Fq(=)52 b(12)g(:)165 b Fw(pro)m(vides)46 +b(a)e(list)g(of)h(all)e(parton/particle)g(and)j(deca)m(y)g(data)f(used) +h(in)f(the)g(pro-)709 5577 y(gram.)63 b(Eac)m(h)40 b(parton/particle)e +(co)s(de)i(is)f(represen)m(ted)j(b)m(y)f(one)f(line)e(con)m(taining) +1817 5953 y(261)p eop +%%Page: 262 268 +262 267 bop 709 -18 a Fw(KF)31 b(\015a)m(v)m(our)i(co)s(de,)g(K)m(C)f +(compressed)i(co)s(de,)e(particle)f(name,)h(an)m(tiparticle)e(name)709 +90 y(\(where)h(appropriate\),)f(electrical)e(and)i(colour)g(c)m(harge)g +(\(stored)h(in)e Fq(KCHG)p Fw(\),)i(mass,)709 198 y(resonance)39 +b(width)f(and)g(maxim)m(um)d(broadening,)k(a)m(v)m(erage)g(prop)s(er)e +(lifetime)e(\(in)709 307 y Fq(PMAS)p Fw(\))46 b(and)f(whether)i(the)e +(particle)f(is)h(considered)h(stable)f(or)g(not)g(\(in)f +Fq(MDCY)p Fw(\).)709 415 y(Immediately)34 b(after)h(a)h(particle,)g +(eac)m(h)g(deca)m(y)i(c)m(hannel)e(gets)h(one)f(line,)f(con)m(tain-)709 +523 y(ing)j(deca)m(y)j(c)m(hannel)f(n)m(um)m(b)s(er)g(\()p +Fq(IDC)h Fw(read)f(from)e Fq(MDCY)p Fw(\),)j(on/o\013)e(switc)m(h)h +(for)f(the)709 632 y(c)m(hannel,)32 b(matrix)f(elemen)m(t)h(t)m(yp)s(e) +h(\()p Fq(MDME)p Fw(\),)h(branc)m(hing)e(ratio)f(\()p +Fq(BRAT)p Fw(\),)i(and)f(deca)m(y)709 740 y(pro)s(ducts)42 +b(\()p Fq(KFDP)p Fw(\).)h(The)g Fq(MSTU\(14\))h Fw(\015ag)d(can)h(b)s +(e)g(used)h(to)f(set)h(the)f(maxim)m(um)709 848 y(\015a)m(v)m(our)33 +b(for)f(whic)m(h)h(particles)f(are)g(listed,)g(with)g(the)h(default)f +(\(=)g(0\))g(corresp)s(ond-)709 957 y(ing)c(to)h(separately)h +(de\014ned)h(ones)f(\(K)m(C)p Fj(>)e Fw(100)h(if)f(KF)p +Fj(>)f Fw(0\).)42 b(In)30 b(order)g(to)f(k)m(eep)i(the)709 +1065 y(size)37 b(do)m(wn,)h(deca)m(y)g(mo)s(des)f(of)f(hea)m(vy)i +(hadrons)g(collectiv)m(ely)d(de\014ned)j(are)f(nev)m(er)709 +1173 y(listed;)g(these)h(ha)m(v)m(e)f(K)m(C)g(co)s(des)g(84{88,)f +(where)i(the)e(relev)-5 b(an)m(t)37 b(information)c(ma)m(y)709 +1282 y(b)s(e)f(found.)236 1390 y Fq(=)52 b(13)g(:)165 +b Fw(giv)m(es)36 b(a)g(list)f(of)h(curren)m(t)h(parameter)f(v)-5 +b(alues)36 b(for)f Fq(MSTU)p Fw(,)j Fq(PARU)p Fw(,)f +Fq(MSTJ)g Fw(and)f Fq(PARJ)p Fw(,)709 1498 y(and)i(the)g(\014rst)h(200) +e(en)m(tries)i(of)44 b Fq(PARF)p Fw(.)39 b(This)f(is)g(useful)g(to)g(k) +m(eep)h(c)m(hec)m(k)h(of)e(whic)m(h)709 1607 y(default)32 +b(v)-5 b(alues)32 b(w)m(ere)i(c)m(hanged)g(in)d(a)i(giv)m(en)f(run.)0 +1715 y Fo(Remark:)53 b Fw(for)31 b(options)g(1{3)f(and)h(12)g(lo)m(w)m +(er)g(and)h(upp)s(er)f(b)s(ounds)h(of)f(the)h(listing)c(can)k(b)s(e)f +(explicitly)472 1823 y(giv)m(en)i(b)m(y)i Fq(MSTU\(1\))f +Fw(and)f Fq(MSTU\(2\))p Fw(.)p 0 1968 1287 9 v 0 2192 +9 225 v 79 2108 a Fq(CALL)52 b(LUUPDA\(MUPDA,LFN\))p +1278 2192 V 0 2200 1287 9 v 0 2332 a Fo(Purp)s(ose:)c +Fw(to)35 b(giv)m(e)h(y)m(ou)h(the)f(abilit)m(y)e(to)h(up)s(date)h +(particle)f(data,)h(or)g(to)f(k)m(eep)j(sev)m(eral)e(v)m(ersions)h(of) +472 2441 y(mo)s(di\014ed)32 b(particle)f(data)h(for)g(sp)s(ecial)g +(purp)s(oses)i(\(e.g.)43 b(c)m(harm)33 b(studies\).)0 +2549 y Fq(MUPDA)53 b(:)113 b Fw(giv)m(es)33 b(the)g(t)m(yp)s(e)h(of)e +(action)g(to)g(b)s(e)h(tak)m(en.)236 2657 y Fq(=)52 b(1)f(:)217 +b Fw(write)29 b(a)f(table)h(of)g(particle)f(data,)h(that)g(y)m(ou)h +(then)g(can)f(edit)g(at)g(leisure.)42 b(F)-8 b(or)28 +b(ordi-)709 2766 y(nary)35 b(listing)f(of)h(deca)m(y)h(data,)g +Fq(LULIST\(12\))i Fw(should)e(b)s(e)f(used,)j(but)e(that)f(listing)709 +2874 y(could)d(not)g(b)s(e)h(read)g(bac)m(k)g(in)f(b)m(y)i(the)f +(program.)709 2982 y(F)-8 b(or)21 b(eac)m(h)i(compressed)h(\015a)m(v)m +(our)f(co)s(de)g(K)m(C)g(=)f(1{500,)h(one)f(line)f(is)h(written)g(con)m +(tain-)709 3091 y(ing)27 b(K)m(C)h(\()p Fq(I5)p Fw(\),)h(the)g(basic)e +(particle)g(name)g(\(i.e.)42 b(excluding)27 b(c)m(harge)i(etc.\))42 +b(\()p Fq(2X,A8)p Fw(\))709 3199 y(in)23 b Fq(CHAF)p +Fw(,)h(the)g(electric)f(\()p Fq(I3)p Fw(\),)j(colour)d(c)m(harge)h(\()p +Fq(I3)p Fw(\))g(and)g(particle/an)m(tiparticle)c(dis-)709 +3307 y(tinction)32 b(\()p Fq(I3)p Fw(\))i(co)s(des)g(in)f +Fq(KCHG)p Fw(,)i(the)f(mass)g(\()p Fq(F12.5)p Fw(\),)h(the)f(mass)g +(width)f(\()p Fq(F12.5)p Fw(\),)709 3416 y(maxim)m(um)39 +b(broadening)h(\()p Fq(F12.5)p Fw(\))j(and)e(a)m(v)m(erage)h(prop)s(er) +f(lifetime)e(\()p Fq(2X,F12.5)p Fw(\))709 3524 y(in)31 +b Fq(PMAS)p Fw(,)j(and)f(the)g(on/o\013)f(deca)m(y)i(switc)m(h)f +(\(I3\))f(in)g Fq(MDCY\(KC,1\).)709 3632 y Fw(After)d(a)g(K)m(C)g(line) +f(follo)m(ws)g(one)h(line)f(for)g(eac)m(h)i(p)s(ossible)f(deca)m(y)h(c) +m(hannel,)g(con)m(tain-)709 3741 y(ing)39 b(the)i Fq(MDME)g +Fw(co)s(des)g(\()p Fq(5X,2I5)p Fw(\),)i(the)e(branc)m(hing)f(ratio)f +(\()p Fq(5X,F12.5)p Fw(\))j(in)d Fq(BRAT)p Fw(,)709 3849 +y(and)32 b(the)h Fq(KFDP)g Fw(co)s(des)g(for)e(the)i(deca)m(y)h(pro)s +(ducts)f(\()p Fq(5I8)p Fw(\),)g(with)e(trailing)e(0's)k(if)e(the)709 +3958 y(n)m(um)m(b)s(er)i(of)f(deca)m(y)i(pro)s(ducts)f(is)f(smaller)f +(than)h(5.)236 4066 y Fq(=)52 b(2)f(:)217 b Fw(read)39 +b(in)f(particle)f(data,)j(as)f(written)g(with)f Fq(=1)i +Fw(and)f(thereafter)g(edited)g(b)m(y)h(y)m(ou,)709 4174 +y(and)31 b(use)h(this)f(data)f(subsequen)m(tly)k(in)c(the)i(curren)m(t) +g(run.)43 b(Reading)31 b(is)f(done)i(with)709 4283 y(\014xed)40 +b(format,)g(whic)m(h)g(means)g(that)f(y)m(ou)h(ha)m(v)m(e)h(to)e +(preserv)m(e)j(the)e(format)e(co)s(des)709 4391 y(describ)s(ed)31 +b(for)g Fq(=1)g Fw(during)f(the)h(editing.)42 b(A)31 +b(n)m(um)m(b)s(er)g(of)f(c)m(hec)m(ks)k(will)28 b(b)s(e)j(made)g(to)709 +4499 y(see)d(if)e(input)h(lo)s(oks)g(reasonable,)h(with)f(w)m(arnings)g +(if)f(not.)42 b(If)27 b(some)g(deca)m(y)i(c)m(hannel)709 +4608 y(is)41 b(said)g(not)g(to)g(conserv)m(e)j(c)m(harge,)h(it)40 +b(should)i(b)s(e)f(tak)m(en)i(seriously)-8 b(.)70 b(W)-8 +b(arnings)709 4716 y(that)33 b(deca)m(y)j(is)d(kinematically)e(unallo)m +(w)m(ed)i(need)i(not)f(b)s(e)g(as)g(serious,)g(since)h(that)709 +4824 y(particular)d(deca)m(y)k(mo)s(de)e(ma)m(y)g(not)g(b)s(e)h(switc)m +(hed)g(on)g(unless)g(the)f(particle)g(mass)709 4933 y(is)e(increased.) +236 5041 y Fq(=)52 b(3)f(:)217 b Fw(write)30 b(curren)m(t)i(particle)e +(data)g(as)h(data)f(lines,)h(whic)m(h)g(can)g(b)s(e)g(edited)g(in)m(to) +f Fq(BLOCK)709 5149 y(DATA)52 b(LUDATA)46 b Fw(for)e(a)g(p)s(ermanen)m +(t)g(replacemen)m(t)h(of)f(the)h(particle)e(data.)78 +b(This)709 5258 y(option)31 b(is)h(in)m(tended)i(for)e(the)h(program)e +(author)h(only)-8 b(,)32 b(not)h(for)f(y)m(ou.)0 5366 +y Fq(LFN)52 b(:)216 b Fw(the)36 b(\014le)f(n)m(um)m(b)s(er)g(whic)m(h)h +(the)f(data)g(should)g(b)s(e)h(written)e(to)h(or)g(read)g(from.)50 +b(Y)-8 b(ou)35 b(m)m(ust)472 5474 y(see)d(to)f(it)e(that)i(this)f +(\014le)g(is)h(prop)s(erly)f(op)s(ened)h(for)g(read)g(or)f(write)g +(\(since)h(the)g(de\014nition)472 5583 y(of)i(\014le)f(names)g(is)g +(mac)m(hine)g(dep)s(enden)m(t\).)1817 5953 y(262)p eop +%%Page: 263 269 +263 268 bop 0 -110 825 9 v 0 115 9 225 v 79 30 a Fq(KK)52 +b(=)f(KLU\(I,J\))p 816 115 V 0 123 825 9 v 0 255 a Fo(Purp)s(ose:)d +Fw(to)36 b(pro)m(vide)h(v)-5 b(arious)36 b(in)m(teger-v)-5 +b(alued)35 b(ev)m(en)m(t)k(data.)55 b(Note)37 b(that)f(man)m(y)h(of)f +(the)h(options)472 363 y(a)m(v)-5 b(ailable)26 b(\(in)h(particular)f +Fq(I)p Fj(>)i Fw(0,)g Fq(J)p Fn(\025)h Fw(14\))e(whic)m(h)h(refer)g(to) +g(ev)m(en)m(t)i(history)d(will)f(not)i(w)m(ork)472 472 +y(after)35 b(a)g Fq(LUEDIT)i Fw(call.)49 b(F)-8 b(urther,)36 +b(the)g(options)e(14{18)g(dep)s(end)i(on)f(the)h(w)m(a)m(y)g(the)g(ev)m +(en)m(t)472 580 y(history)25 b(has)h(b)s(een)f(set)h(up,)h(so)e(with)g +(the)g(explosion)f(of)h(di\013eren)m(t)g(allo)m(w)m(ed)f(formats)g +(these)472 688 y(options)35 b(are)f(no)h(longer)f(as)h(safe)g(as)g +(they)g(ma)m(y)g(ha)m(v)m(e)h(b)s(een.)51 b(F)-8 b(or)34 +b(instance,)h(option)f(16)472 797 y(can)f(only)f(w)m(ork)i(if)k +Fq(MSTU\(16\)=2)p Fw(.)0 905 y Fq(I=0,)52 b(J=)g(:)c +Fw(prop)s(erties)32 b(referring)g(to)g(the)h(complete)f(ev)m(en)m(t.) +236 1013 y Fq(=)52 b(1)f(:)217 b(N)p Fw(,)33 b(total)e(n)m(um)m(b)s(er) +i(of)f(lines)f(in)h(ev)m(en)m(t)j(record.)236 1122 y +Fq(=)52 b(2)f(:)217 b Fw(total)28 b(n)m(um)m(b)s(er)i(of)g +(partons/particles)f(remaining)e(after)j(fragmen)m(tation)e(and)h(de-) +709 1230 y(ca)m(y)-8 b(.)236 1338 y Fq(=)52 b(6)f(:)217 +b Fw(three)33 b(times)f(the)h(total)e(c)m(harge)i(of)f(remaining)e +(\(stable\))i(partons)h(and)g(particles.)0 1447 y Fq(I>0,)52 +b(J=)g(:)c Fw(prop)s(erties)32 b(referring)g(to)g(the)h(en)m(try)h(in)e +(line)f(no.)43 b Fq(I)33 b Fw(of)f(the)h(ev)m(en)m(t)i(record.)236 +1555 y Fq(=)52 b(1)f(-)h(5)f(:)d(K\(I,1\))53 b(-)e(K\(I,5\))p +Fw(,)35 b(i.e.)43 b(parton/particle)31 b(status)i(KS,)g(\015a)m(v)m +(our)g(co)s(de)g(KF)f(and)709 1663 y(origin/deca)m(y)f(pro)s +(duct/colour-\015o)m(w)h(information.)236 1772 y Fq(=)52 +b(6)f(:)217 b Fw(three)33 b(times)f(parton/particle)e(c)m(harge.)236 +1880 y Fq(=)52 b(7)f(:)217 b Fw(1)37 b(for)h(a)g(remaining)d(en)m(try) +-8 b(,)41 b(0)d(for)f(a)h(deca)m(y)m(ed,)k(fragmen)m(ted)c(or)f(do)s +(cumen)m(tation)709 1988 y(en)m(try)-8 b(.)236 2097 y +Fq(=)52 b(8)f(:)217 b Fw(KF)32 b(co)s(de)g(\()p Fq(K\(I,2\))p +Fw(\))i(for)e(a)g(remaining)e(en)m(try)-8 b(,)34 b(0)e(for)g(a)g(deca)m +(y)m(ed,)j(fragmen)m(ted)d(or)709 2205 y(do)s(cumen)m(tation)f(en)m +(try)-8 b(.)236 2313 y Fq(=)52 b(9)f(:)217 b Fw(KF)39 +b(co)s(de)h(\()p Fq(K\(I,2\))p Fw(\))h(for)e(a)g(parton)g(\(i.e.)64 +b(not)39 b(colour)g(neutral)g(en)m(try\),)j(0)e(for)f(a)709 +2422 y(particle.)236 2530 y Fq(=)52 b(10)g(:)165 b Fw(KF)23 +b(co)s(de)i(\()p Fq(K\(I,2\))p Fw(\))h(for)e(a)g(particle)f(\(i.e.)40 +b(colour)24 b(neutral)f(en)m(try\),)28 b(0)c(for)g(a)g(parton.)236 +2638 y Fq(=)52 b(11)g(:)165 b Fw(compressed)34 b(\015a)m(v)m(our)f(co)s +(de)g(K)m(C.)236 2747 y Fq(=)52 b(12)g(:)165 b Fw(colour)32 +b(information)f(co)s(de,)j(i.e.)46 b(0)33 b(for)g(colour)g(neutral,)g +(1)g(for)g(colour)g(triplet,)f(-1)709 2855 y(for)g(an)m(titriplet)e +(and)j(2)f(for)g(o)s(ctet.)236 2963 y Fq(=)52 b(13)g(:)165 +b Fw(\015a)m(v)m(our)29 b(of)e(`hea)m(viest')i(quark)g(or)f(an)m +(tiquark)g(\(i.e.)42 b(with)27 b(largest)h(co)s(de\))g(in)f(hadron)709 +3072 y(or)32 b(diquark)h(\(including)d(sign)i(for)g(an)m(tiquark\),)h +(0)f(else.)236 3180 y Fq(=)52 b(14)g(:)165 b Fw(generation)48 +b(n)m(um)m(b)s(er.)92 b(Beam)48 b(particles)g(or)g(virtual)f(exc)m +(hange)k(particles)c(are)709 3289 y(generation)31 b(0,)g(original)e +(jets/particles)i(generation)g(1)h(and)g(then)g(1)f(is)h(added)g(for) +709 3397 y(eac)m(h)h(step)h(in)d(the)i(fragmen)m(tation/deca)m(y)f(c)m +(hain.)236 3505 y Fq(=)52 b(15)g(:)165 b Fw(line)35 b(n)m(um)m(b)s(er)j +(of)e(ancestor,)j(i.e.)57 b(predecessor)39 b(in)d(\014rst)i(generation) +e(\(generation)709 3614 y(0)c(en)m(tries)h(are)g(disregarded\).)236 +3722 y Fq(=)52 b(16)g(:)165 b Fw(rank)43 b(of)g(a)g(hadron)g(in)g(the)h +(jet)f(it)f(b)s(elongs)h(to.)76 b(Rank)43 b(denotes)i(the)e(ordering) +709 3830 y(in)36 b(\015a)m(v)m(our)i(space,)h(with)d(hadrons)i(con)m +(taining)d(the)i(original)d(\015a)m(v)m(our)k(of)e(the)h(jet)709 +3939 y(ha)m(ving)27 b(rank)i(1,)g(increasing)e(b)m(y)i(1)f(for)f(eac)m +(h)i(step)g(a)m(w)m(a)m(y)h(in)d(\015a)m(v)m(our)i(ordering.)41 +b(All)709 4047 y(deca)m(y)f(pro)s(ducts)g(inherit)d(the)i(rank)h(of)e +(their)g(paren)m(t.)63 b(Whereas)41 b(the)e(meaning)709 +4155 y(of)29 b(a)g(\014rst-rank)i(hadron)e(in)g(a)h(quark)g(jet)g(is)f +(alw)m(a)m(ys)i(w)m(ell-de\014ned,)f(the)g(de\014nition)709 +4264 y(of)k(higher)g(ranks)h(is)g(only)f(meaningful)e(for)i(indep)s +(enden)m(tly)i(fragmen)m(ting)d(quark)709 4372 y(jets.)44 +b(In)32 b(other)h(cases,)h(rank)f(refers)g(to)f(the)h(ordering)e(in)h +(the)h(actual)e(sim)m(ulation,)709 4480 y(whic)m(h)i(ma)m(y)f(b)s(e)h +(of)f(little)e(in)m(terest.)236 4589 y Fq(=)52 b(17)g(:)165 +b Fw(generation)28 b(n)m(um)m(b)s(er)i(after)e(a)h(collapse)f(of)h(a)g +(jet)g(system)h(in)m(to)e(one)h(particle,)g(with)709 +4697 y(0)d(for)h(an)g(en)m(try)h(not)f(coming)f(from)g(a)g(collapse,)i +(and)f(-1)f(for)h(en)m(try)h(with)f(unkno)m(wn)709 4805 +y(history)-8 b(.)48 b(A)35 b(particle)e(formed)h(in)g(a)g(collapse)f +(is)h(generation)g(1,)h(and)f(then)h(one)g(is)709 4914 +y(added)e(in)f(eac)m(h)h(deca)m(y)h(step.)236 5022 y +Fq(=)52 b(18)g(:)165 b Fw(n)m(um)m(b)s(er)47 b(of)f(deca)m(y/fragmen)m +(tation)f(pro)s(ducts)j(\(only)d(de\014ned)j(in)e(a)g(collectiv)m(e)709 +5130 y(sense)34 b(for)e(fragmen)m(tation\).)236 5239 +y Fq(=)52 b(19)g(:)165 b Fw(origin)30 b(of)i(colour)g(for)g(sho)m(w)m +(ering)h(parton,)g(0)f(else.)236 5347 y Fq(=)52 b(20)g(:)165 +b Fw(origin)30 b(of)i(an)m(ticolour)f(for)h(sho)m(w)m(ering)h(parton,)g +(0)f(else.)236 5455 y Fq(=)52 b(21)g(:)165 b Fw(p)s(osition)30 +b(of)j(colour)e(daugh)m(ter)i(for)f(sho)m(w)m(ering)i(parton,)e(0)g +(else.)236 5564 y Fq(=)52 b(22)g(:)165 b Fw(p)s(osition)30 +b(of)j(an)m(ticolour)d(daugh)m(ter)k(for)e(sho)m(w)m(ering)h(parton,)f +(0)h(else.)1817 5953 y(263)p eop +%%Page: 264 270 +264 269 bop 0 -110 825 9 v 0 115 9 225 v 79 30 a Fq(PP)52 +b(=)f(PLU\(I,J\))p 816 115 V 0 123 825 9 v 0 255 a Fo(Purp)s(ose:)d +Fw(to)g(pro)m(vide)h(v)-5 b(arious)47 b(real-v)-5 b(alued)47 +b(ev)m(en)m(t)j(data.)91 b(Note)49 b(that)f(some)g(of)g(the)h(options) +472 363 y(a)m(v)-5 b(ailable)23 b(\()p Fq(I)p Fj(>)28 +b Fw(0,)e Fq(J)p Fw(=)i(20{25\),)d(whic)m(h)h(are)f(primarily)d(in)m +(tended)j(for)g(studies)g(of)g(systems)472 472 y(in)34 +b(their)g(resp)s(ectiv)m(e)h(c.m.)49 b(frame,)33 b(requires)i(that)f(a) +g Fq(LUEXEC)i Fw(call)d(has)h(b)s(een)h(made)f(for)472 +580 y(the)43 b(curren)m(t)g(initial)38 b(parton/particle)i +(con\014guration,)j(but)g(that)e(the)i(latest)e Fq(LUEXEC)472 +688 y Fw(call)31 b(has)i(not)g(b)s(een)g(follo)m(w)m(ed)f(b)m(y)h(a)f +Fq(LUROBO)j Fw(one.)0 797 y Fq(I=0,)52 b(J=)g(:)c Fw(prop)s(erties)32 +b(referring)g(to)g(the)h(complete)f(ev)m(en)m(t.)236 +905 y Fq(=)52 b(1)f(-)h(4)f(:)d Fw(sum)32 b(of)g Fj(p)1111 +920 y Fh(x)1155 905 y Fw(,)h Fj(p)1264 920 y Fh(y)1305 +905 y Fw(,)g Fj(p)1414 920 y Fh(z)1486 905 y Fw(and)g +Fj(E)6 b Fw(,)32 b(resp)s(ectiv)m(ely)-8 b(,)34 b(for)e(the)h(stable)f +(remaining)f(en)m(tries.)236 1013 y Fq(=)52 b(5)f(:)217 +b Fw(in)m(v)-5 b(arian)m(t)31 b(mass)h(of)g(the)h(stable)g(remaining)d +(en)m(tries.)236 1122 y Fq(=)52 b(6)f(:)217 b Fw(sum)32 +b(of)g(electric)g(c)m(harge)h(of)g(the)g(stable)f(remaining)e(en)m +(tries.)0 1230 y Fq(I>0,)52 b(J=)g(:)c Fw(prop)s(erties)32 +b(referring)g(to)g(the)h(en)m(try)h(in)e(line)f(no.)43 +b Fq(I)33 b Fw(of)f(the)h(ev)m(en)m(t)i(record.)236 1338 +y Fq(=)52 b(1)f(-)h(5)f(:)d(P\(I,1\))53 b(-)e(P\(I,5\))p +Fw(,)34 b(i.e.)43 b(normally)31 b Fj(p)2200 1353 y Fh(x)2243 +1338 y Fw(,)i Fj(p)2352 1353 y Fh(y)2393 1338 y Fw(,)g +Fj(p)2502 1353 y Fh(z)2542 1338 y Fw(,)f Fj(E)39 b Fw(and)33 +b Fj(m)g Fw(for)f(jet/particle.)236 1447 y Fq(=)52 b(6)f(:)217 +b Fw(electric)32 b(c)m(harge)h Fj(e)p Fw(.)236 1555 y +Fq(=)52 b(7)f(:)217 b Fw(squared)34 b(momen)m(tum)d Fn(j)p +Fo(p)p Fn(j)1700 1519 y Fl(2)1766 1555 y Fw(=)d Fj(p)1919 +1519 y Fl(2)1919 1580 y Fh(x)1985 1555 y Fw(+)22 b Fj(p)2132 +1519 y Fl(2)2132 1580 y Fh(y)2196 1555 y Fw(+)g Fj(p)2343 +1519 y Fl(2)2343 1580 y Fh(z)2382 1555 y Fw(.)236 1676 +y Fq(=)52 b(8)f(:)217 b Fw(absolute)32 b(momen)m(tum)f +Fn(j)p Fo(p)p Fn(j)p Fw(.)236 1784 y Fq(=)52 b(9)f(:)217 +b Fw(squared)34 b(transv)m(erse)g(momen)m(tum)d Fj(p)2092 +1748 y Fl(2)2092 1809 y Fk(?)2179 1784 y Fw(=)d Fj(p)2332 +1748 y Fl(2)2332 1809 y Fh(x)2398 1784 y Fw(+)22 b Fj(p)2545 +1748 y Fl(2)2545 1809 y Fh(y)2586 1784 y Fw(.)236 1892 +y Fq(=)52 b(10)g(:)165 b Fw(transv)m(erse)34 b(momen)m(tum)e +Fj(p)1732 1907 y Fk(?)1791 1892 y Fw(.)236 2001 y Fq(=)52 +b(11)g(:)165 b Fw(squared)34 b(transv)m(erse)g(mass)f +Fj(m)1856 1964 y Fl(2)1856 2025 y Fk(?)1943 2001 y Fw(=)27 +b Fj(m)2131 1964 y Fl(2)2193 2001 y Fw(+)22 b Fj(p)2340 +1964 y Fl(2)2340 2025 y Fh(x)2406 2001 y Fw(+)g Fj(p)2553 +1964 y Fl(2)2553 2025 y Fh(y)2595 2001 y Fw(.)236 2109 +y Fq(=)52 b(12)g(:)165 b Fw(transv)m(erse)34 b(mass)f +Fj(m)1495 2124 y Fk(?)1554 2109 y Fw(.)236 2217 y Fq(=)52 +b(13)g(-)f(14)h(:)47 b Fw(p)s(olar)31 b(angle)h Fj(\022)k +Fw(in)c(radians)g(\(b)s(et)m(w)m(een)i(0)e(and)h Fj(\031)t +Fw(\))f(or)h(degrees,)h(resp)s(ectiv)m(ely)-8 b(.)236 +2326 y Fq(=)52 b(15)g(-)f(16)h(:)47 b Fw(azim)m(uthal)30 +b(angle)g Fj(')h Fw(in)g(radians)f(\(b)s(et)m(w)m(een)k +Fn(\000)p Fj(\031)h Fw(and)d Fj(\031)t Fw(\))f(or)g(degrees,)i(resp)s +(ec-)709 2434 y(tiv)m(ely)-8 b(.)236 2542 y Fq(=)52 b(17)g(:)165 +b Fw(true)33 b(rapidit)m(y)e Fj(y)g Fw(=)c(\(1)p Fj(=)p +Fw(2\))33 b(ln)o(\(\()p Fj(E)28 b Fw(+)22 b Fj(p)2125 +2557 y Fh(z)2165 2542 y Fw(\))p Fj(=)p Fw(\()p Fj(E)28 +b Fn(\000)22 b Fj(p)2538 2557 y Fh(z)2578 2542 y Fw(\)\).)236 +2651 y Fq(=)52 b(18)g(:)165 b Fw(rapidit)m(y)30 b Fj(y)1124 +2666 y Fh(\031)1202 2651 y Fw(obtained)g(b)m(y)i(assuming)f(that)g(the) +g(particle)f(is)h(a)g(pion)f(when)i(calcu-)709 2759 y(lating)27 +b(the)j(energy)h Fj(E)6 b Fw(,)31 b(to)e(b)s(e)h(used)h(in)e(the)h +(form)m(ula)e(ab)s(o)m(v)m(e,)j(from)e(the)h(\(assumed)709 +2867 y(kno)m(wn\))k(momen)m(tum)d Fo(p)p Fw(.)236 2976 +y Fq(=)52 b(19)g(:)165 b Fw(pseudorapidit)m(y)32 b Fj(\021)g +Fw(=)27 b(\(1)p Fj(=)p Fw(2\))33 b(ln)o(\(\()p Fj(p)22 +b Fw(+)g Fj(p)2184 2991 y Fh(z)2224 2976 y Fw(\))p Fj(=)p +Fw(\()p Fj(p)f Fn(\000)i Fj(p)2568 2991 y Fh(z)2608 2976 +y Fw(\)\).)236 3084 y Fq(=)52 b(20)g(:)165 b Fw(momen)m(tum)31 +b(fraction)g Fj(x)1636 3099 y Fh(p)1704 3084 y Fw(=)d(2)p +Fn(j)p Fo(p)p Fn(j)p Fj(=W)14 b Fw(,)31 b(where)j Fj(W)46 +b Fw(is)32 b(the)h(total)e(energy)j(of)e(initial)709 +3192 y(jet/particle)f(con\014guration.)236 3301 y Fq(=)52 +b(21)g(:)165 b Fj(x)764 3316 y Fl(F)842 3301 y Fw(=)27 +b(2)p Fj(p)1043 3316 y Fh(z)1083 3301 y Fj(=W)46 b Fw(\(F)-8 +b(eynman-)p Fj(x)32 b Fw(if)g(system)h(is)f(studied)h(in)f(the)h(c.m.) +43 b(frame\).)236 3409 y Fq(=)52 b(22)g(:)165 b Fj(x)764 +3424 y Fk(?)851 3409 y Fw(=)27 b(2)p Fj(p)1052 3424 y +Fk(?)1111 3409 y Fj(=W)14 b Fw(.)236 3517 y Fq(=)52 b(23)g(:)165 +b Fj(x)764 3532 y Fh(E)851 3517 y Fw(=)28 b(2)p Fj(E)6 +b(=W)14 b Fw(.)236 3626 y Fq(=)52 b(24)g(:)165 b Fj(z)754 +3641 y Fl(+)841 3626 y Fw(=)27 b(\()p Fj(E)h Fw(+)22 +b Fj(p)1229 3641 y Fh(z)1269 3626 y Fw(\))p Fj(=W)14 +b Fw(.)236 3734 y Fq(=)52 b(25)g(:)165 b Fj(z)754 3749 +y Fk(\000)841 3734 y Fw(=)27 b(\()p Fj(E)h Fn(\000)23 +b Fj(p)1231 3749 y Fh(z)1271 3734 y Fw(\))p Fj(=W)14 +b Fw(.)0 4008 y Fp(14.4)136 b(The)44 b(General)i(Switc)l(hes)f(and)g(P) +l(arameters)0 4181 y Fw(The)38 b(common)f(blo)s(c)m(k)g +Fq(LUDAT1)i Fw(is,)g(next)f(to)f Fq(LUJETS)p Fw(,)i(the)f(one)g(a)f +Fm(Jetset)g Fw(user)h(is)f(most)g(lik)m(ely)g(to)0 4289 +y(access.)47 b(Here)34 b(one)f(ma)m(y)g(con)m(trol)g(in)f(detail)g +(what)h(the)h(program)e(is)g(to)h(do,)g(if)f(the)i(default)f(mo)s(de)f +(of)0 4397 y(op)s(eration)f(is)h(not)h(satisfactory)-8 +b(.)p 0 4542 2876 9 v 0 4766 9 225 v 79 4682 a Fq +(COMMON/LUDAT1/MSTU\(200\),)q(PARU)q(\(200)q(\),MS)q(TJ\()q(200\))q +(,PAR)q(J\(20)q(0\))p 2867 4766 V 0 4774 2876 9 v 0 4906 +a Fo(Purp)s(ose:)48 b Fw(to)31 b(giv)m(e)h(access)i(to)d(a)h(n)m(um)m +(b)s(er)g(of)f(status)i(co)s(des)g(and)f(parameters)f(whic)m(h)i +(regulate)e(the)472 5015 y(p)s(erformance)39 b(of)f(the)i(program)d(as) +i(a)g(whole.)62 b(Here)40 b Fq(MSTU)g Fw(and)f Fq(PARU)g +Fw(are)g(related)g(to)472 5123 y(utilit)m(y)22 b(functions,)j(as)e(w)m +(ell)f(as)i(a)e(few)i(parameters)f(of)g(the)g(Standard)h(Mo)s(del,)g +(while)e Fq(MSTJ)472 5231 y Fw(and)34 b Fq(PARJ)g Fw(a\013ect)g(the)g +(underlying)e(ph)m(ysics)j(assumptions.)46 b(Some)33 +b(of)f(the)i(v)-5 b(ariables)32 b(in)472 5340 y Fq(LUDAT1)47 +b Fw(are)f(describ)s(ed)g(elsewhere,)k(and)45 b(are)h(therefore)g(here) +g(only)f(repro)s(duced)h(as)472 5448 y(references)30 +b(to)d(the)h(relev)-5 b(an)m(t)27 b(sections.)43 b(This)27 +b(in)g(particular)f(applies)g(to)h(man)m(y)h(coupling)472 +5556 y(constan)m(ts)36 b(mainly)d(used)i(b)m(y)i Fm(Pythia)p +Fw(,)e(whic)m(h)h(are)e(found)h(just)g(after)f(this,)h(in)e(section)472 +5665 y(14.5.)1817 5953 y(264)p eop +%%Page: 265 271 +265 270 bop 0 -18 a Fq(MSTU\(1\),MSTU\(2\))55 b(:)48 +b Fw(\(D=0,0\))28 b(can)j(b)s(e)f(used)h(to)e(replace)h(the)g(ordinary) +f(lo)m(w)m(er)h(and)g(upp)s(er)h(limits)472 90 y(\(normally)39 +b(1)h(and)h Fq(N)p Fw(\))g(for)f(the)h(action)f(of)47 +b Fq(LUROBO)p Fw(,)c(and)e(most)f Fq(LUEDIT)i Fw(and)f +Fq(LULIST)472 198 y Fw(calls.)i(Are)33 b(reset)g(to)f(0)h(in)f(a)g +Fq(LUEXEC)i Fw(call.)0 307 y Fq(MSTU\(3\))53 b(:)48 b +Fw(\(D=0\))34 b(n)m(um)m(b)s(er)h(of)g(lines)f(with)h(extra)g +(information)d(added)k(after)f(line)f Fq(N)p Fw(.)h(Is)h(reset)g(to)472 +415 y(0)d(in)f(a)g Fq(LUEXEC)i Fw(call,)d(or)h(in)g(an)g +Fq(LUEDIT)j Fw(call)30 b(when)k(particles)e(are)g(remo)m(v)m(ed.)0 +523 y Fq(MSTU\(4\))53 b(:)48 b Fw(\(D=4000\))c(n)m(um)m(b)s(er)j(of)f +(lines)f(a)m(v)-5 b(ailable)44 b(in)i(the)h(common)e(blo)s(c)m(k)h +Fq(LUJETS)p Fw(.)i(Should)472 632 y(alw)m(a)m(ys)d(b)s(e)f(c)m(hanged)h +(if)d(the)i(dimensions)f(of)h(the)g Fq(K)g Fw(and)g Fq(P)g +Fw(arra)m(ys)g(are)g(c)m(hanged)h(b)m(y)472 740 y(the)38 +b(user,)h(but)e(should)g(otherwise)h(nev)m(er)g(b)s(e)f(touc)m(hed.)58 +b(Maxim)m(um)36 b(allo)m(w)m(ed)h(v)-5 b(alue)36 b(is)472 +848 y(10000,)c(unless)h Fq(MSTU\(5\))i Fw(is)d(also)f(c)m(hanged.)0 +957 y Fq(MSTU\(5\))53 b(:)48 b Fw(\(D=10000\))35 b(is)h(used)i(in)e +(building)f(up)i(the)g(sp)s(ecial)f(colour-\015o)m(w)g(information)e +(stored)472 1065 y(in)h Fq(K\(I,4\))h Fw(and)f Fq(K\(I,5\))i +Fw(for)d Fq(K\(I,3\)=)j Fw(3,)e(13)g(or)f(14.)51 b(The)36 +b(generic)f(form)e(for)i Fq(j=)g Fw(4)g(or)472 1173 y(5)e(is)472 +1282 y Fq(K\(I,j\))p Fw(=)d(2)p Fn(\002)p Fq(MSTU\(5\))1367 +1245 y Fl(2)1408 1282 y Fn(\002)p Fw(MCFR+)p Fq(MSTU\(5\))2213 +1245 y Fl(2)2255 1282 y Fn(\002)p Fw(MCTO+)p Fq(MSTU\(5\))p +Fn(\002)p Fw(ICFR+ICTO,)472 1390 y(with)38 b(notation)f(as)h(in)f +(section)h(5.2.)60 b(One)38 b(should)g(alw)m(a)m(ys)h(ha)m(v)m(e)g +Fq(MSTU\(5\))p Fn(\025)p Fq(MSTU\(4\))p Fw(.)472 1498 +y(On)34 b(a)g(32)f(bit)g(mac)m(hine,)g(v)-5 b(alues)34 +b Fq(MSTU\(5\))p Fj(>)d Fw(20000)i(ma)m(y)g(lead)g(to)h(o)m(v)m +(er\015o)m(w)h(problems,)472 1607 y(and)e(should)g(b)s(e)f(a)m(v)m +(oided.)0 1715 y Fq(MSTU\(6\))53 b(:)48 b Fw(\(D=500\))38 +b(n)m(um)m(b)s(er)i(of)g(K)m(C)g(co)s(des)h(a)m(v)-5 +b(ailable)38 b(in)h(the)h Fq(KCHG)p Fw(,)h Fq(PMAS)p +Fw(,)g Fq(MDCY)p Fw(,)g(and)f Fq(CHAF)472 1823 y Fw(arra)m(ys;)34 +b(should)e(b)s(e)h(c)m(hanged)h(if)d(these)j(dimensions)e(are)g(c)m +(hanged.)0 1932 y Fq(MSTU\(7\))53 b(:)48 b Fw(\(D=2000\))40 +b(n)m(um)m(b)s(er)j(of)f(deca)m(y)h(c)m(hannels)g(a)m(v)-5 +b(ailable)40 b(in)i(the)g Fq(MDME)p Fw(,)i Fq(BRAT)f +Fw(and)f Fq(KFDP)472 2040 y Fw(arra)m(ys;)34 b(should)e(b)s(e)h(c)m +(hanged)h(if)d(these)j(dimensions)e(are)g(c)m(hanged.)0 +2148 y Fq(MSTU\(10\))53 b(:)48 b Fw(\(D=2\))e(use)i(of)e +(parton/particle)f(masses)j(in)e(\014lling)f(routines)h(\()p +Fq(LU1ENT)p Fw(,)j Fq(LU2ENT)p Fw(,)472 2257 y Fq(LU3ENT)p +Fw(,)35 b Fq(LU4ENT)p Fw(\).)236 2365 y Fq(=)52 b(0)f(:)217 +b Fw(assume)33 b(the)g(mass)f(to)h(b)s(e)f(zero.)236 +2473 y Fq(=)52 b(1)f(:)217 b Fw(k)m(eep)31 b(the)g(mass)f(v)-5 +b(alue)29 b(stored)i(in)e Fq(P\(I,5\))p Fw(,)j(whatev)m(er)g(it)d(is.) +42 b(\(This)30 b(ma)m(y)g(b)s(e)g(used)709 2582 y(e.g.)43 +b(to)33 b(describ)s(e)g(kinematics)e(with)i(o\013-mass-shell)d +(partons\).)236 2690 y Fq(=)52 b(2)f(:)217 b Fw(\014nd)33 +b(masses)g(according)f(to)g(mass)h(tables)f(as)h(usual.)0 +2798 y Fq(MSTU\(11\))53 b(:)48 b Fw(\(D=6\))39 b(\014le)g(n)m(um)m(b)s +(er)h(to)f(whic)m(h)h(all)e(program)g(output)i(is)f(directed.)65 +b(It)40 b(is)f(y)m(our)i(re-)472 2907 y(sp)s(onsibilit)m(y)31 +b(to)h(see)i(to)e(it)g(that)g(the)h(corresp)s(onding)g(\014le)f(is)g +(also)g(op)s(ened)h(for)f(output.)0 3015 y Fq(MSTU\(12\))53 +b(:)48 b Fw(\(D=1\))d(writing)g(of)h(title)f(page)h(\(v)m(ersion)h(n)m +(um)m(b)s(er)g(and)g(last)e(date)i(of)f(c)m(hange)h(for)472 +3123 y Fm(Pythia)33 b Fw(and)g Fm(Jetset)p Fw(\))e(on)i(output)g +(\014le.)236 3232 y Fq(=)52 b(0)f(:)217 b Fw(not)32 b(done.)236 +3340 y Fq(=)52 b(1)f(:)217 b Fw(title)30 b(page)j(is)f(written)g(at)g +(\014rst)h(o)s(ccasion,)f(at)g(whic)m(h)g(time)f Fq(MSTU\(12\))k +Fw(is)d(set)h(=0.)0 3448 y Fq(MSTU\(13\))53 b(:)48 b +Fw(\(D=1\))56 b(writing)f(of)i(information)c(on)k(v)-5 +b(ariable)56 b(v)-5 b(alues)56 b(c)m(hanged)i(b)m(y)g(a)f +Fq(LUGIVE)472 3557 y Fw(call.)236 3665 y Fq(=)52 b(0)f(:)217 +b Fw(no)32 b(information)e(is)i(pro)m(vided.)236 3774 +y Fq(=)52 b(1)f(:)217 b Fw(information)29 b(is)j(written)h(to)f +(standard)h(output.)0 3882 y Fq(MSTU\(14\))53 b(:)48 +b Fw(\(D=0\))32 b(if)f(non-zero,)i(this)g(giv)m(es)g(the)g(maxim)m(um)e +(\015a)m(v)m(our)j(for)e(whic)m(h)h(a)g Fq(LULIST\(12\))472 +3990 y Fw(call)c(will)e(giv)m(e)j(particle)e(data)i(on)g(p)s(ossible)f +(hadrons.)43 b(With)29 b Fq(MSTU\(14\)=5)k Fw(only)c(kno)m(wn)472 +4099 y(hadrons,)h(i.e.)41 b(up)29 b(to)e(b)s(ottom,)h(are)g(listed.)41 +b(If)35 b Fq(=0)p Fw(,)30 b(only)d(separately)h(sp)s(eci\014ed)h +(particles)472 4207 y(are)k(listed)f(\(i.e.)43 b(either)32 +b(KF)p Fn(\024)c Fw(100)k(or)g(else)h(b)s(oth)f(KF)p +Fj(>)27 b Fw(100)32 b(and)g(K)m(C)p Fj(>)d Fw(100\).)0 +4315 y Fq(MSTU\(15\))53 b(:)48 b Fw(\(D=1\))32 b(selection)h(for)g(c)m +(haracters)h(used)h(in)d(particle)g(names)i(to)f(denote)h(an)f(an)m +(tipar-)472 4424 y(ticle;)f(app)s(ear)g(in)g Fq(LULIST)i +Fw(listings)d(or)h(other)h Fq(LUNAME)h Fw(applications.)236 +4532 y Fq(=)52 b(1)f(:)217 b Fw(the)33 b(tilde)e(c)m(haracter)i(`)p +Fn(\030)p Fw('.)236 4640 y Fq(=)52 b(2)f(:)217 b Fw(the)33 +b(c)m(haracters)h(`bar'.)0 4749 y Fq(MSTU\(16\))53 b(:)48 +b Fw(\(D=1\))26 b(c)m(hoice)i(of)e(mother)h(p)s(oin)m(ters)g(for)g(the) +h(particles)e(pro)s(duced)i(b)m(y)g(a)f(fragmen)m(ting)472 +4857 y(parton)33 b(system.)236 4965 y Fq(=)52 b(1)f(:)217 +b Fw(all)30 b(primary)g(particles)i(of)f(a)h(system)h(p)s(oin)m(t)e(to) +h(a)g(line)f(with)g(KF)h(=)g(92)f(or)h(93,)g(for)709 +5074 y(string)k(or)h(indep)s(enden)m(t)i(fragmen)m(tation,)e(resp)s +(ectiv)m(ely)-8 b(,)39 b(or)e(to)g(a)g(line)f(with)h(KF)709 +5182 y(=)f(91)h(if)e(a)i(jet)g(system)g(has)h(so)f(small)d(a)j(mass)g +(that)f(it)g(is)g(forced)i(to)e(deca)m(y)i(in)m(to)709 +5290 y(one)31 b(or)h(t)m(w)m(o)g(particles.)42 b(The)33 +b(t)m(w)m(o)f(\(or)f(more\))f(sho)m(w)m(er)k(initiators)28 +b(of)j(a)h(sho)m(w)m(ering)709 5399 y(parton)41 b(system)h(p)s(oin)m(t) +f(to)g(a)g(line)f(with)h(KF)f(=)h(94.)70 b(The)42 b(en)m(tries)g(with)f +(KF)g(=)709 5507 y(91{94)e(in)h(their)g(turn)h(p)s(oin)m(t)f(bac)m(k)h +(to)g(the)g(predecessor)i(partons,)g(so)e(that)f(the)709 +5615 y(KF)32 b(=)g(91{94)f(en)m(tries)j(form)d(a)h(part)h(of)f(the)h +(ev)m(en)m(t)h(history)f(prop)s(er.)1817 5953 y(265)p +eop +%%Page: 266 272 +266 271 bop 236 -18 a Fq(=)52 b(2)f(:)217 b Fw(although)29 +b(the)h(lines)g(with)f(KF)h(=)g(91{94)f(are)h(presen)m(t,)i(and)f(con)m +(tain)e(the)i(correct)709 90 y(mother)44 b(and)g(daugh)m(ter)i(p)s(oin) +m(ters,)h(they)f(are)e(not)h(part)f(of)g(the)h(ev)m(en)m(t)i(history) +709 198 y(prop)s(er,)32 b(in)f(that)h(particles)f(pro)s(duced)i(in)e +(string)g(fragmen)m(tation)f(p)s(oin)m(t)h(directly)709 +307 y(to)26 b(either)g(of)h(the)g(t)m(w)m(o)g(endp)s(oin)m(t)g(partons) +g(of)f(the)h(string)f(\(dep)s(ending)h(on)f(the)h(side)709 +415 y(they)36 b(w)m(ere)i(generated)e(from\),)g(particles)f(pro)s +(duced)i(in)e(indep)s(enden)m(t)i(fragmen-)709 523 y(tation)28 +b(p)s(oin)m(t)g(to)i(the)g(resp)s(ectiv)m(e)h(parton)e(they)h(w)m(ere)h +(generated)f(from,)f(particles)709 632 y(in)d(small)e(mass)j(systems)h +(p)s(oin)m(t)e(to)g(either)h(endp)s(oin)m(t)g(parton,)g(and)g(sho)m(w)m +(er)i(initia-)709 740 y(tors)37 b(p)s(oin)m(t)f(to)h(the)g(original)d +(on-mass-shell)h(coun)m(terparts.)58 b(Also)37 b(the)g(daugher)709 +848 y(p)s(oin)m(ters)c(b)m(ypass)i(the)f(KF)f(=)g(91{94)f(en)m(tries.) +46 b(In)34 b(indep)s(enden)m(t)g(fragmen)m(tation,)709 +957 y(a)h(parton)g(need)h(not)f(pro)s(duce)h(an)m(y)g(particles)e(at)h +(all,)f(and)h(then)h(ha)m(v)m(e)h(daugh)m(ter)709 1065 +y(p)s(oin)m(ters)32 b(0.)236 1173 y Fo(Note)37 b(:)166 +b Fq(MSTU\(16\))30 b Fw(should)e(not)g(b)s(e)h(c)m(hanged)g(b)s(et)m(w) +m(een)i(the)d(generation)g(of)g(an)g(ev)m(en)m(t)i(and)709 +1282 y(the)40 b(translation)f(of)h(this)g(ev)m(en)m(t)i(record)f(with)f +(a)g Fq(LUHEPC)h Fw(call,)g(since)g(this)f(ma)m(y)709 +1390 y(giv)m(e)32 b(an)h(erroneous)g(translation)e(of)h(the)h(ev)m(en)m +(t)h(history)-8 b(.)0 1498 y Fq(MSTU\(17\))53 b(:)48 +b Fw(\(D=0\))34 b(storage)g(option)g(for)g Fq(MSTU\(90\))j +Fw(and)e(asso)s(ciated)g(information)c(on)k Fj(z)40 b +Fw(v)-5 b(alues)472 1607 y(for)32 b(hea)m(vy-\015a)m(v)m(our)j(pro)s +(duction.)236 1715 y Fq(=)52 b(0)f(:)217 b(MSTU\(90\))41 +b Fw(is)e(reset)h(to)f(zero)h(at)f(eac)m(h)h Fq(LUEXEC)h +Fw(call.)61 b(This)40 b(is)f(the)g(appropriate)709 1823 +y(course)i(if)46 b Fq(LUEXEC)c Fw(is)d(only)h(called)f(once)i(p)s(er)f +(ev)m(en)m(t,)k(as)c(is)g(normally)e(the)j(case)709 1932 +y(when)33 b(y)m(ou)h(do)e(not)h(y)m(ourself)f(call)f +Fq(LUEXEC)p Fw(.)236 2040 y Fq(=)52 b(1)f(:)217 b Fw(y)m(ou)31 +b(ha)m(v)m(e)i(to)d(reset)i Fq(MSTU\(90\))h Fw(to)e(zero)g(y)m(ourself) +h(b)s(efore)f(eac)m(h)h(new)f(ev)m(en)m(t.)45 b(This)709 +2148 y(is)23 b(the)i(appropriate)e(course)j(if)d(sev)m(eral)i +Fq(LUEXEC)g Fw(calls)e(ma)m(y)h(app)s(ear)g(for)g(one)h(ev)m(en)m(t,) +709 2257 y(i.e.)43 b(if)31 b(y)m(ou)i(call)e Fq(LUEXEC)j +Fw(directly)-8 b(.)0 2365 y Fq(MSTU\(19\))53 b(:)48 b +Fw(\(D=0\))30 b(advisory)i(w)m(arning)f(for)g(unph)m(ysical)h(\015a)m +(v)m(our)g(setups)h(in)e Fq(LU2ENT)p Fw(,)i Fq(LU3ENT)g +Fw(or)472 2473 y Fq(LU4ENT)i Fw(calls.)236 2582 y Fq(=)52 +b(0)f(:)217 b Fw(y)m(es.)236 2690 y Fq(=)52 b(1)f(:)217 +b Fw(no;)32 b Fq(MSTU\(19\))j Fw(is)d(reset)i(to)e(0)g(in)g(suc)m(h)i +(a)e(call.)0 2798 y Fq(MSTU\(21\))53 b(:)48 b Fw(\(D=2\))c(c)m(hec)m(k) +j(on)e(p)s(ossible)f(errors)h(during)f(program)g(execution.)81 +b(Ob)m(viously)45 b(no)472 2907 y(guaran)m(tee)35 b(is)f(giv)m(en)g +(that)g(all)e(errors)j(will)d(b)s(e)i(caugh)m(t,)i(but)e(some)g(of)g +(the)g(most)g(trivial)472 3015 y(user-caused)h(errors)e(ma)m(y)f(b)s(e) +h(found.)236 3123 y Fq(=)52 b(0)f(:)217 b Fw(errors)29 +b(do)h(not)f(cause)h(an)m(y)g(immediate)d(action,)i(rather)g(the)h +(program)e(will)f(try)j(to)709 3232 y(cop)s(e,)j(whic)m(h)g(ma)m(y)f +(mean)g(e.g.)44 b(that)32 b(it)g(runs)h(in)m(to)f(an)g(in\014nite)g(lo) +s(op.)236 3340 y Fq(=)52 b(1)f(:)217 b Fw(parton/particle)42 +b(con\014gurations)h(are)h(c)m(hec)m(k)m(ed)j(for)c(p)s(ossible)g +(errors.)77 b(In)45 b(case)709 3448 y(of)34 b(problem,)h(an)g(exit)g +(is)f(made)h(from)f(the)h(misb)s(eha)m(ving)f(subprogram,)i(but)f(the) +709 3557 y(generation)23 b(of)h(the)h(ev)m(en)m(t)i(is)d(con)m(tin)m +(ued)h(from)e(there)i(on.)41 b(F)-8 b(or)24 b(the)g(\014rst)h +Fq(MSTU\(22\))709 3665 y Fw(errors)33 b(a)f(a)g(message)h(is)f(prin)m +(ted;)h(after)f(that)h(no)f(messages)i(app)s(ear.)236 +3774 y Fq(=)52 b(2)f(:)217 b Fw(parton/particle)31 b(con\014gurations)h +(are)h(c)m(hec)m(k)m(ed)i(for)d(p)s(ossible)g(errors.)44 +b(In)33 b(case)h(of)709 3882 y(problem,)41 b(an)g(exit)f(is)h(made)f +(from)f(the)i(misb)s(eha)m(ving)f(subprogram,)i(and)f(sub-)709 +3990 y(sequen)m(tly)f(from)d Fq(LUEXEC)p Fw(.)i(Y)-8 +b(ou)39 b(ma)m(y)f(then)g(c)m(ho)s(ose)h(to)f(correct)h(the)g(error,)g +(and)709 4099 y(con)m(tin)m(ue)g(the)g(execution)g(b)m(y)h(another)e +Fq(LUEXEC)j Fw(call.)59 b(F)-8 b(or)38 b(the)h(\014rst)g +Fq(MSTU\(22\))709 4207 y Fw(errors)34 b(a)h(message)f(is)g(prin)m(ted,) +i(after)e(that)g(the)h(last)e(ev)m(en)m(t)k(is)d(prin)m(ted)g(and)h +(exe-)709 4315 y(cution)d(is)g(stopp)s(ed.)0 4424 y Fq(MSTU\(22\))53 +b(:)48 b Fw(\(D=10\))31 b(maxim)m(um)f(n)m(um)m(b)s(er)j(of)g(errors)f +(that)h(are)f(prin)m(ted.)0 4532 y Fq(MSTU\(23\))53 b(:)48 +b Fw(\(I\))32 b(coun)m(t)i(of)e(n)m(um)m(b)s(er)h(of)f(errors)h(exp)s +(erienced)h(to)e(date.)0 4640 y Fq(MSTU\(24\))53 b(:)48 +b Fw(\(R\))31 b(t)m(yp)s(e)h(of)f(latest)g(error)h(exp)s(erienced;)h +(reason)f(that)f(ev)m(en)m(t)i(w)m(as)g(not)e(generated)h(in)472 +4749 y(full.)42 b(Is)33 b(reset)h(at)e(eac)m(h)i Fq(LUEXEC)g +Fw(call.)236 4857 y Fq(=)52 b(0)f(:)217 b Fw(no)32 b(error)h(exp)s +(erienced.)236 4965 y Fq(=)52 b(1)f(:)217 b Fw(ha)m(v)m(e)34 +b(reac)m(hed)g(end)f(of)f(or)g(are)h(writing)e(outside)h +Fq(LUJETS)i Fw(memory)-8 b(.)236 5074 y Fq(=)52 b(2)f(:)217 +b Fw(unkno)m(wn)38 b(\015a)m(v)m(our)f(co)s(de)g(or)f(unph)m(ysical)g +(com)m(bination)f(of)h(co)s(des;)j(ma)m(y)d(also)f(b)s(e)709 +5182 y(caused)f(b)m(y)f(erroneous)h(string)d(connection)i(information.) +236 5290 y Fq(=)52 b(3)f(:)217 b Fw(energy)33 b(or)g(mass)f(to)s(o)g +(small)e(or)i(unph)m(ysical)h(kinematical)d(v)-5 b(ariable)31 +b(setup.)236 5399 y Fq(=)52 b(4)f(:)217 b Fw(program)31 +b(is)h(caugh)m(t)h(in)f(an)g(in\014nite)g(lo)s(op.)236 +5507 y Fq(=)52 b(5)f(:)217 b Fw(momen)m(tum,)35 b(energy)i(or)f(c)m +(harge)g(w)m(as)h(not)f(conserv)m(ed)i(\(ev)m(en)g(allo)m(wing)c(for)h +(ma-)709 5615 y(c)m(hine)k(precision)f(errors,)i(see)g +Fq(PARU\(11\))p Fw(\);)k(is)38 b(ev)-5 b(aluated)38 b(only)g(after)h +(ev)m(en)m(t)h(has)1817 5953 y(266)p eop +%%Page: 267 273 +267 272 bop 709 -18 a Fw(b)s(een)29 b(generated)h(in)e(full,)g(and)i +(do)s(es)f(not)g(apply)g(when)h(indep)s(enden)m(t)g(fragmen)m(ta-)709 +90 y(tion)h(without)h(momen)m(tum)f(conserv)-5 b(ation)33 +b(w)m(as)g(used.)236 198 y Fq(=)52 b(6)f(:)217 b Fw(error)36 +b(call)e(from)h(outside)h(the)h(fragmen)m(tation/deca)m(y)e(pac)m(k)-5 +b(age)37 b(\(e.g.)54 b(the)37 b(e)3618 162 y Fl(+)3677 +198 y Fw(e)3720 162 y Fk(\000)709 307 y Fw(routines\).)236 +415 y Fq(=)52 b(7)f(:)217 b Fw(inconsisten)m(t)29 b(particle)e(data)h +(input)g(in)g Fq(LUUPDA)i Fw(\()p Fq(MUPDA)52 b(=)g(2)p +Fw(\))29 b(or)f(other)g Fq(LUUPDA)p Fw(-)709 523 y(related)k(problem.) +236 632 y Fq(=)52 b(8)f(:)217 b Fw(problems)31 b(in)h(more)g(p)s +(eripheral)g(service)h(routines.)236 740 y Fq(=)52 b(9)f(:)217 +b Fw(v)-5 b(arious)31 b(other)i(problems.)0 848 y Fq(MSTU\(25\))53 +b(:)48 b Fw(\(D=1\))31 b(prin)m(ting)h(of)g(w)m(arning)g(messages.)236 +957 y Fq(=)52 b(0)f(:)217 b Fw(no)32 b(w)m(arnings)h(are)f(written.)236 +1065 y Fq(=)52 b(1)f(:)217 b Fw(\014rst)33 b Fq(MSTU\(26\))h +Fw(w)m(arnings)f(are)g(prin)m(ted,)f(thereafter)i(no)e(w)m(arnings)h +(app)s(ear.)0 1173 y Fq(MSTU\(26\))53 b(:)48 b Fw(\(D=10\))31 +b(maxim)m(um)f(n)m(um)m(b)s(er)j(of)g(w)m(arnings)f(that)h(are)f(prin)m +(ted.)0 1282 y Fq(MSTU\(27\))53 b(:)48 b Fw(\(I\))32 +b(coun)m(t)i(of)e(n)m(um)m(b)s(er)h(of)f(w)m(arnings)h(exp)s(erienced)h +(to)e(date.)0 1390 y Fq(MSTU\(28\))53 b(:)48 b Fw(\(R\))31 +b(t)m(yp)s(e)h(of)f(latest)f(w)m(arning)h(giv)m(en,)h(with)f(co)s(des)h +(paralleling)c(those)k(for)e Fq(MSTU\(24\))p Fw(,)472 +1498 y(but)j(of)f(a)h(less)g(serious)f(nature.)0 1607 +y Fq(MSTU\(31\))53 b(:)48 b Fw(\(I\))32 b(n)m(um)m(b)s(er)h(of)40 +b Fq(LUEXEC)34 b Fw(calls)d(in)h(presen)m(t)i(run.)0 +1715 y Fq(MSTU\(32\))53 b(:)48 b Fw(\(I\))32 b(n)m(um)m(b)s(er)h(of)g +(en)m(tries)g(stored)g(with)f Fq(LUEDIT\(-1\))j Fw(call.)0 +1823 y Fq(MSTU\(33\))53 b(:)48 b Fw(\(I\))38 b(if)f(set)i(1)f(b)s +(efore)h(a)f Fq(LUDBRB)i Fw(call,)e(the)g Fq(V)h Fw(v)m(ectors)h(\(in)d +(the)i(particle)e(range)h(to)g(b)s(e)472 1932 y(rotated/b)s(o)s +(osted\))32 b(are)f(set)i(0)e(b)s(efore)g(the)h(rotation/b)s(o)s(ost.) +41 b Fq(MSTU\(33\))34 b Fw(is)d(set)h(bac)m(k)h(to)472 +2040 y(0)g(in)f(the)h Fq(LUDBRB)h Fw(call.)41 b(Is)34 +b(inactiv)m(e)e(in)g(a)g Fq(LUROBO)i Fw(call.)0 2148 +y Fq(MSTU\(41\))53 b(-)f(MSTU\(63\))h(:)48 b Fw(switc)m(hes)34 +b(for)e(ev)m(en)m(t-analysis)h(routines,)g(see)h(section)e(15.4.)0 +2257 y Fq(MSTU\(70\))53 b(:)48 b Fw(\(D=0\))22 b(the)i(n)m(um)m(b)s(er) +f(of)g(lines)g(consisting)f(only)h(of)g(equal)g(signs)g(\()p +Fq(======)p Fw(\))h(that)f(are)h(in-)472 2365 y(serted)k(in)e(the)h(ev) +m(en)m(t)h(listing)d(obtained)h(with)g Fq(LULIST\(1\))p +Fw(,)k Fq(LULIST\(2\))f Fw(or)d Fq(LULIST\(3\))p Fw(,)472 +2473 y(so)35 b(as)g(to)f(distinguish)f(di\013eren)m(t)i(sections)g(of)g +(the)g(ev)m(en)m(t)h(record)f(on)f(output.)50 b(A)m(t)35 +b(most)472 2582 y(10)i(suc)m(h)h(lines)e(can)h(b)s(e)g(inserted;)j(see) +e Fq(MSTU\(71\))53 b(-)f(MSTU\(80\))p Fw(.)58 b(Is)38 +b(reset)f(at)g Fq(LUEDIT)472 2690 y Fw(calls)32 b(with)g(argumen)m(ts)h +(0{5.)0 2798 y Fq(MSTU\(71\))53 b(-)f(MSTU\(80\))h(:)48 +b Fw(line)38 b(n)m(um)m(b)s(ers)i(b)s(elo)m(w)f(whic)m(h)g(lines)g +(consisting)f(only)h(of)f(equal)i(signs)472 2907 y(\()p +Fq(======)p Fw(\))48 b(are)e(inserted)h(in)e(ev)m(en)m(t)j(listings.)82 +b(Only)46 b(the)g(\014rst)h Fq(MSTU\(70\))h Fw(of)d(the)i(10)472 +3015 y(allo)m(w)m(ed)32 b(p)s(ositions)g(are)g(enabled.)0 +3123 y Fq(MSTU\(90\))53 b(:)48 b Fw(n)m(um)m(b)s(er)34 +b(of)g(hea)m(vy-\015a)m(v)m(our)i(hadrons)e(\(i.e.)47 +b(hadrons)35 b(con)m(taining)e(c)m(harm)g(or)h(hea)m(vier)472 +3232 y(\015a)m(v)m(ours\))29 b(pro)s(duced)f(in)e(curren)m(t)i(ev)m(en) +m(t,)i(for)d(whic)m(h)g(the)h(p)s(ositions)d(in)i(the)g(ev)m(en)m(t)i +(record)472 3340 y(are)34 b(stored)g(in)e Fq(MSTU\(91\))54 +b(-)d(MSTU\(98\))36 b Fw(and)d(the)h Fj(z)k Fw(v)-5 b(alues)33 +b(in)g(the)h(fragmen)m(tation)d(in)472 3448 y Fq(PARU\(91\))54 +b(-)d(PARU\(98\))p Fw(.)k(A)m(t)36 b(most)g(eigh)m(t)f(v)-5 +b(alues)36 b(will)d(b)s(e)j(stored)g(\(normally)e(this)h(is)472 +3557 y(no)43 b(problem\).)72 b(No)42 b Fj(z)47 b Fw(v)-5 +b(alues)43 b(can)g(b)s(e)f(stored)h(for)f(those)i(hea)m(vy)g(hadrons)f +(pro)s(duced)472 3665 y(when)36 b(a)f(string)f(has)h(so)g(small)e(mass) +i(that)f(it)g(collapses)g(to)h(one)g(or)f(t)m(w)m(o)i(particles,)f(nor) +472 3774 y(for)g(those)h(pro)s(duced)g(as)g(one)f(of)g(the)h(\014nal)e +(t)m(w)m(o)i(particles)e(in)h(the)h(fragmen)m(tation)d(of)i(a)472 +3882 y(string.)59 b(If)44 b Fq(MSTU\(17\)=1)p Fw(,)e +Fq(MSTU\(90\))d Fw(should)f(b)s(e)g(reset)h(to)e(zero)h(b)m(y)g(y)m(ou) +h(b)s(efore)f(eac)m(h)472 3990 y(new)c(ev)m(en)m(t,)g(else)f(this)g(is) +f(done)h(automatically)-8 b(.)0 4099 y Fq(MSTU\(91\))53 +b(-)f(MSTU\(98\))h(:)48 b Fw(the)27 b(\014rst)g Fq(MSTU\(90\))i +Fw(p)s(ositions)d(will)e(b)s(e)k(\014lled)d(with)i(the)g(line)f(n)m(um) +m(b)s(ers)472 4207 y(of)44 b(the)g(hea)m(vy-\015a)m(v)m(our)h(hadrons)f +(pro)s(duced)h(in)e(the)h(curren)m(t)g(ev)m(en)m(t.)79 +b(See)44 b Fq(MSTU\(90\))472 4315 y Fw(for)38 b(additional)e(commen)m +(ts.)61 b(Note)38 b(that)g(the)h(information)c(is)j(corrupted)h(b)m(y)h +(calls)d(to)472 4424 y Fq(LUEDIT)e Fw(with)d(options)g(0{5)g(and)g +(21{23;)g(calls)f(with)h(options)g(11{15)g(w)m(ork,)h(ho)m(w)m(ev)m +(er.)0 4532 y Fq(MSTU\(101\))54 b(-)d(MSTU\(118\))j(:)47 +b Fw(switc)m(hes)35 b(related)d(to)g(couplings,)g(see)h(section)g +(14.5.)0 4640 y Fq(MSTU\(161\),)54 b(MSTU\(162\))g(:)47 +b Fw(information)29 b(used)34 b(b)m(y)g(ev)m(en)m(t-analysis)f +(routines,)g(see)g(section)g(15.4.)0 4749 y Fq(MSTU\(181\))54 +b(:)47 b Fw(\(R\))32 b Fm(Jetset)g Fw(v)m(ersion)h(n)m(um)m(b)s(er.)0 +4857 y Fq(MSTU\(182\))54 b(:)47 b Fw(\(R\))32 b Fm(Jetset)g +Fw(sub)m(v)m(ersion)i(n)m(um)m(b)s(er.)0 4965 y Fq(MSTU\(183\))54 +b(:)47 b Fw(\(R\))32 b(last)g(y)m(ear)i(of)e(c)m(hange)h(for)f +Fm(Jetset)p Fw(.)0 5074 y Fq(MSTU\(184\))54 b(:)47 b +Fw(\(R\))32 b(last)g(mon)m(th)g(of)g(c)m(hange)i(for)e +Fm(Jetset)p Fw(.)0 5182 y Fq(MSTU\(185\))54 b(:)47 b +Fw(\(R\))32 b(last)g(da)m(y)h(of)g(c)m(hange)g(for)f +Fm(Jetset)p Fw(.)0 5290 y Fq(MSTU\(186\))54 b(:)47 b +Fw(\(R\))35 b(earliest)g(sub)m(v)m(ersion)i(of)42 b Fm(Pythia)36 +b Fw(v)m(ersion)g(5)f(with)g(whic)m(h)h(this)g Fm(Jetset)e +Fw(sub-)472 5399 y(v)m(ersion)g(can)e(b)s(e)h(run.)0 +5561 y Fq(PARU\(1\))53 b(:)48 b Fw(\(R\))32 b Fj(\031)f +Fn(\031)e Fw(3)p Fj(:)p Fw(1415927.)1817 5953 y(267)p +eop +%%Page: 268 274 +268 273 bop 0 -18 a Fq(PARU\(2\))53 b(:)48 b Fw(\(R\))32 +b(2)p Fj(\031)f Fn(\031)d Fw(6)p Fj(:)p Fw(2831854.)0 +90 y Fq(PARU\(3\))53 b(:)48 b Fw(\(D=0.1973\))30 b(con)m(v)m(ersion)k +(factor)e(for)g(GeV)2134 54 y Fk(\000)p Fl(1)2256 90 +y Fn(!)g Fw(fm)g(or)g(fm)2763 54 y Fk(\000)p Fl(1)2884 +90 y Fn(!)g Fw(GeV.)0 198 y Fq(PARU\(4\))53 b(:)48 b +Fw(\(D=5.068\))31 b(con)m(v)m(ersion)i(factor)f(for)g(fm)g +Fn(!)g Fw(GeV)2361 162 y Fk(\000)p Fl(1)2488 198 y Fw(or)g(GeV)h +Fn(!)f Fw(fm)3077 162 y Fk(\000)p Fl(1)3170 198 y Fw(.)0 +307 y Fq(PARU\(5\))53 b(:)48 b Fw(\(D=0.3894\))30 b(con)m(v)m(ersion)k +(factor)e(for)g(GeV)2134 270 y Fk(\000)p Fl(2)2256 307 +y Fn(!)g Fw(m)m(b)h(or)f(m)m(b)2806 270 y Fk(\000)p Fl(1)2928 +307 y Fn(!)g Fw(GeV)3253 270 y Fl(2)3292 307 y Fw(.)0 +415 y Fq(PARU\(6\))53 b(:)48 b Fw(\(D=2.568\))31 b(con)m(v)m(ersion)i +(factor)f(for)g(m)m(b)h Fn(!)f Fw(GeV)2383 379 y Fk(\000)p +Fl(2)2510 415 y Fw(or)g(GeV)2822 379 y Fl(2)2889 415 +y Fn(!)g Fw(m)m(b)3154 379 y Fk(\000)p Fl(1)3248 415 +y Fw(.)0 523 y Fq(PARU\(11\))53 b(:)48 b Fw(\(D=0.001\))31 +b(relativ)m(e)h(error,)h(i.e.)43 b(nonconserv)-5 b(ation)33 +b(of)f(momen)m(tum)f(and)i(energy)h(di-)472 632 y(vided)29 +b(b)m(y)g(total)e(energy)-8 b(,)30 b(that)e(ma)m(y)g(b)s(e)h +(attributable)e(to)h(mac)m(hine)f(precision)h(problems)472 +740 y(b)s(efore)33 b(a)f(ph)m(ysics)i(error)f(is)f(susp)s(ected)j +(\(see)e Fq(MSTU\(24\)=5)p Fw(\).)0 848 y Fq(PARU\(12\))53 +b(:)48 b Fw(\(D=0.09)32 b(GeV)1148 812 y Fl(2)1188 848 +y Fw(\))h(e\013ectiv)m(e)i(cut-o\013)e(in)g(squared)i(mass,)f(b)s(elo)m +(w)g(whic)m(h)g(partons)g(ma)m(y)472 957 y(b)s(e)48 b(recom)m(bined)f +(to)g(simplify)e(\(mac)m(hine)h(precision)h(limited\))d(kinematics)i +(of)h(string)472 1065 y(fragmen)m(tation.)0 1173 y Fq(PARU\(13\))53 +b(:)48 b Fw(\(D=0.01\))37 b(e\013ectiv)m(e)i(angular)e(cut-o\013)h(in)g +(radians)g(for)g(recom)m(bination)e(of)i(partons,)472 +1282 y(used)c(in)e(conjunction)g(with)h Fq(PARU\(12\))p +Fw(.)0 1390 y Fq(PARU\(21\))53 b(:)48 b Fw(\(I\))37 b(con)m(tains)f +(the)i(total)d(energy)j Fj(W)50 b Fw(of)36 b(all)f(\014rst)i +(generation)f(jets/particles)g(after)h(a)472 1498 y Fq(LUEXEC)e +Fw(call;)30 b(to)j(b)s(e)f(used)i(b)m(y)g(the)f Fq(PLU)g +Fw(function)f(for)g Fq(I>0)p Fw(,)i Fq(J=)f Fw(20{25.)0 +1607 y Fq(PARU\(41\))53 b(-)f(PARU\(63\))h(:)48 b Fw(parameters)32 +b(for)g(ev)m(en)m(t-analysis)i(routines,)e(see)i(section)f(15.4.)0 +1715 y Fq(PARU\(91\))53 b(-)f(PARU\(98\))h(:)48 b Fw(the)36 +b(\014rst)g Fq(MSTU\(90\))i Fw(p)s(ositions)c(will)f(b)s(e)j(\014lled)f +(with)g(the)h(fragmen)m(ta-)472 1823 y(tion)44 b Fj(z)50 +b Fw(v)-5 b(alues)44 b(used)i(in)m(ternally)d(in)h(the)i(generation)e +(of)g(hea)m(vy-\015a)m(v)m(our)j(hadrons)e(|)472 1932 +y(ho)m(w)29 b(these)f(are)g(translated)f(in)m(to)g(the)h(actual)e +(energies)i(and)g(momen)m(ta)e(of)i(the)f(observ)m(ed)472 +2040 y(hadrons)44 b(is)f(a)g(complicated)f(function)h(of)g(the)h +(string)e(con\014guration.)75 b(The)45 b(particle)472 +2148 y(with)d Fj(z)k Fw(v)-5 b(alue)41 b(stored)h(in)f +Fq(PARU\(i\))i Fw(is)e(to)h(b)s(e)f(found)h(in)f(line)f +Fq(MSTU\(i\))k Fw(of)d(the)h(ev)m(en)m(t)472 2257 y(record.)i(See)34 +b Fq(MSTU\(90\))h Fw(and)d Fq(MSTU\(91\))54 b(-)d(MSTU\(98\))35 +b Fw(for)d(additional)d(commen)m(ts.)0 2365 y Fq(PARU\(101\))54 +b(-)d(PARU\(195\))j(:)47 b Fw(v)-5 b(arious)44 b(coupling)e(constan)m +(ts)k(and)e(parameters)g(related)f(to)h(cou-)472 2473 +y(plings,)32 b(see)i(section)e(14.5.)0 2636 y Fq(MSTJ\(1\))53 +b(:)48 b Fw(\(D=1\))31 b(c)m(hoice)i(of)f(fragmen)m(tation)f(sc)m +(heme.)236 2744 y Fq(=)52 b(0)f(:)217 b Fw(no)32 b(jet)h(fragmen)m +(tation)d(at)j(all.)236 2853 y Fq(=)52 b(1)f(:)217 b +Fw(string)32 b(fragmen)m(tation)e(according)i(to)g(the)h(Lund)h(mo)s +(del.)236 2961 y Fq(=)52 b(2)f(:)217 b Fw(indep)s(enden)m(t)45 +b(fragmen)m(tation,)h(according)e(to)g(sp)s(eci\014cation)g(in)f +Fq(MSTJ\(2\))j Fw(and)709 3069 y Fq(MSTJ\(3\))p Fw(.)0 +3178 y Fq(MSTJ\(2\))53 b(:)48 b Fw(\(D=3\))31 b(gluon)h(jet)g(fragmen)m +(tation)f(sc)m(heme)j(in)e(indep)s(enden)m(t)h(fragmen)m(tation.)236 +3286 y Fq(=)52 b(1)f(:)217 b Fw(a)23 b(gluon)f(is)h(assumed)h(to)f +(fragmen)m(t)f(lik)m(e)h(a)g(random)g(d,)i(u)e(or)g(s)h(quark)g(or)f +(an)m(tiquark.)236 3394 y Fq(=)52 b(2)f(:)217 b Fw(as)46 +b Fq(=1)p Fw(,)51 b(but)c(longitudinal)c(\(see)k Fq(PARJ\(43\))p +Fw(,)53 b Fq(PARJ\(44\))48 b Fw(and)f Fq(PARJ\(59\))p +Fw(\))h(and)709 3503 y(transv)m(erse)40 b(\(see)g Fq(PARJ\(22\))p +Fw(\))g(momen)m(tum)d(prop)s(erties)h(of)g(quark)h(or)f(an)m(tiquark) +709 3611 y(substituting)32 b(for)g(gluon)f(ma)m(y)i(b)s(e)f(separately) +h(sp)s(eci\014ed.)236 3719 y Fq(=)52 b(3)f(:)217 b Fw(a)46 +b(gluon)f(is)h(assumed)i(to)e(fragmen)m(t)g(lik)m(e)f(a)h(pair)g(of)g +(a)g(d,)k(u)d(or)f(s)h(quark)g(and)709 3828 y(its)35 +b(an)m(tiquark,)h(sharing)f(the)h(gluon)f(energy)h(according)f(to)g +(the)h(Altarelli-P)m(arisi)709 3936 y(splitting)30 b(function.)236 +4044 y Fq(=)52 b(4)f(:)217 b Fw(as)46 b Fq(=3)p Fw(,)51 +b(but)c(longitudinal)c(\(see)k Fq(PARJ\(43\))p Fw(,)53 +b Fq(PARJ\(44\))48 b Fw(and)f Fq(PARJ\(59\))p Fw(\))h(and)709 +4153 y(transv)m(erse)31 b(\(see)g Fq(PARJ\(22\))p Fw(\))h(momen)m(tum)c +(prop)s(erties)h(of)g(quark)i(and)e(an)m(tiquark)709 +4261 y(substituting)j(for)g(gluon)f(ma)m(y)i(b)s(e)f(separately)h(sp)s +(eci\014ed.)0 4369 y Fq(MSTJ\(3\))53 b(:)48 b Fw(\(D=0\))40 +b(energy)-8 b(,)44 b(momen)m(tum)c(and)h(\015a)m(v)m(our)h(conserv)-5 +b(ation)41 b(options)g(in)f(indep)s(enden)m(t)472 4478 +y(fragmen)m(tation.)i(Whenev)m(er)34 b(momen)m(tum)d(conserv)-5 +b(ation)32 b(is)f(describ)s(ed)i(b)s(elo)m(w,)f(energy)472 +4586 y(and)h(\015a)m(v)m(our)h(conserv)-5 b(ation)32 +b(is)g(also)g(implicitly)c(assumed.)236 4694 y Fq(=)52 +b(0)f(:)217 b Fw(no)32 b(explicit)f(conserv)-5 b(ation)33 +b(of)f(an)m(y)h(kind.)236 4803 y Fq(=)52 b(1)f(:)217 +b Fw(particles)43 b(share)i(momen)m(tum)d(im)m(balance)h(comp)s +(ensation)g(according)g(to)h(their)709 4911 y(energy)g(\(roughly)f +(equiv)-5 b(alen)m(t)43 b(to)g(b)s(o)s(osting)f(ev)m(en)m(t)j(to)e +(c.m.)76 b(frame\).)e(This)44 b(is)709 5019 y(similar)29 +b(to)j(the)h(approac)m(h)g(in)f(the)h(Ali)e(et)i(al.)42 +b(program)31 b([Ali80)n(].)236 5128 y Fq(=)52 b(2)f(:)217 +b Fw(particles)43 b(share)i(momen)m(tum)d(im)m(balance)h(comp)s +(ensation)g(according)g(to)h(their)709 5236 y(longitudinal)29 +b(mass)j(with)g(resp)s(ect)i(to)e(the)h(im)m(balance)e(direction.)236 +5344 y Fq(=)52 b(3)f(:)217 b Fw(particles)31 b(share)j(momen)m(tum)d +(im)m(balance)g(comp)s(ensation)g(equally)-8 b(.)236 +5453 y Fq(=)52 b(4)f(:)217 b Fw(transv)m(erse)39 b(momen)m(ta)e(are)h +(comp)s(ensated)g(separately)g(within)e(eac)m(h)j(jet,)g(longi-)709 +5561 y(tudinal)d(momen)m(ta)g(are)h(rescaled)i(so)e(that)h(ratio)d(of)j +(\014nal)e(jet)i(to)f(initial)d(parton)1817 5953 y(268)p +eop +%%Page: 269 275 +269 274 bop 709 -18 a Fw(momen)m(tum)27 b(is)h(the)h(same)f(for)h(all)d +(the)j(jets)g(of)f(the)h(ev)m(en)m(t.)45 b(This)28 b(is)g(similar)e(to) +i(the)709 90 y(approac)m(h)33 b(in)e(the)i(Ho)m(y)m(er)h(et)f(al.)42 +b(program)32 b([Ho)m(y79].)236 198 y Fq(=)52 b(5)f(:)217 +b Fw(only)32 b(\015a)m(v)m(our)h(is)f(explicitly)f(conserv)m(ed.)236 +307 y Fq(=)52 b(6)f(-)h(10)g(:)47 b Fw(as)40 b Fq(=1)51 +b(-)h(5)p Fw(,)41 b(except)g(that)e(ab)s(o)m(v)m(e)h(sev)m(eral)g +(colour)e(singlet)h(systems)h(that)f(fol-)709 415 y(lo)m(w)m(ed)33 +b(immediately)e(after)i(eac)m(h)h(other)g(in)f(the)g(ev)m(en)m(t)j +(listing)31 b(\(e.g.)46 b(q)p 3361 362 52 4 v(q)q(q)p +3464 362 V(q)q(\))33 b(w)m(ere)709 523 y(treated)j(as)h(one)g(single)e +(system,)k(whereas)e(here)h(they)f(are)f(treated)h(as)g(separate)709 +632 y(systems.)236 740 y Fq(=)52 b(-1)g(:)165 b Fw(indep)s(enden)m(t)32 +b(fragmen)m(tation,)d(where)j(also)e(particles)g(mo)m(ving)g(bac)m(kw)m +(ards)j(with)709 848 y(resp)s(ect)f(to)g(the)f(jet)h(direction)e(are)i +(k)m(ept,)h(and)e(th)m(us)i(the)f(amoun)m(t)f(of)g(energy)h(and)709 +957 y(momen)m(tum)f(mismatc)m(h)g(ma)m(y)h(b)s(e)h(large.)0 +1065 y Fq(MSTJ\(11\))53 b(:)48 b Fw(\(D=4\))22 b(c)m(hoice)h(of)g +(longitudinal)c(fragmen)m(tation)i(function,)k(i.e.)39 +b(ho)m(w)24 b(large)e(a)h(fraction)472 1173 y(of)33 b(the)g(energy)g(a) +m(v)-5 b(ailable)30 b(a)i(newly-created)i(hadron)f(tak)m(es.)236 +1282 y Fq(=)52 b(1)f(:)217 b Fw(the)28 b(Lund)h(symmetric)f(fragmen)m +(tation)e(function,)j(see)g Fq(PARJ\(41\))54 b(-)d(PARJ\(45\))p +Fw(.)236 1390 y Fq(=)h(2)f(:)217 b Fw(c)m(hoice)36 b(of)f(some)g +(di\013eren)m(t)h(forms)e(for)h(eac)m(h)i(\015a)m(v)m(our)f(separately) +-8 b(,)37 b(see)f Fq(PARJ\(51\))709 1498 y(-)51 b(PARJ\(59\))p +Fw(.)236 1607 y Fq(=)h(3)f(:)217 b Fw(h)m(ybrid)45 b(sc)m(heme,)k +(where)d(ligh)m(t)e(\015a)m(v)m(ours)i(are)f(treated)g(with)g +(symmetric)f(Lund)709 1715 y(\()p Fq(=1)p Fw(\),)33 b(but)g(c)m(harm)g +(and)f(hea)m(vier)i(can)f(b)s(e)g(separately)g(c)m(hosen,)h(e.g.)45 +b(according)32 b(to)709 1823 y(the)h(SLA)m(C)g(function)f(\()p +Fq(=2)p Fw(\).)236 1932 y Fq(=)52 b(4)f(:)217 b Fw(the)47 +b(Lund)h(symmetric)f(fragmen)m(tation)e(function)i(\()p +Fq(=1)p Fw(\),)k(for)c(hea)m(vy)i(endp)s(oin)m(t)709 +2040 y(quarks)i(mo)s(di\014ed)f(according)g(to)g(the)h(Bo)m(wler)f +(\(Artru{Mennessier,)57 b(Morris\))709 2148 y(space{time)32 +b(picture)g(of)g(string)g(ev)m(olution,)g(see)i Fq(PARJ\(46\))p +Fw(.)236 2257 y Fq(=)52 b(5)f(:)217 b Fw(as)32 b Fq(=4)p +Fw(,)h(but)f(with)f(p)s(ossibilit)m(y)f(to)i(in)m(terp)s(olate)e(b)s +(et)m(w)m(een)35 b(Bo)m(wler)c(and)i(Lund)f(sep-)709 +2365 y(arately)g(for)g(c,)h(b)f(and)h(t;)f(see)i Fq(PARJ\(46\))54 +b(-)d(PARJ\(48\))p Fw(.)0 2473 y Fq(MSTJ\(12\))i(:)48 +b Fw(\(D=2\))31 b(c)m(hoice)i(of)f(bary)m(on)i(pro)s(duction)e(mo)s +(del.)236 2582 y Fq(=)52 b(0)f(:)217 b Fw(no)32 b(bary)m(on-an)m +(tibary)m(on)g(pair)g(pro)s(duction)f(at)h(all;)f(initial)d(diquark)k +(treated)h(as)g(a)709 2690 y(unit.)236 2798 y Fq(=)52 +b(1)f(:)217 b Fw(diquark-an)m(tidiquark)31 b(pair)h(pro)s(duction)g +(allo)m(w)m(ed;)g(diquark)g(treated)h(as)g(a)f(unit.)236 +2907 y Fq(=)52 b(2)f(:)217 b Fw(diquark-an)m(tidiquark)25 +b(pair)h(pro)s(duction)g(allo)m(w)m(ed,)h(with)f(p)s(ossibilit)m(y)e +(for)i(diquark)709 3015 y(to)32 b(b)s(e)h(split)e(according)h(to)g(the) +h(`p)s(op)s(corn')g(sc)m(heme.)236 3123 y Fq(=)52 b(3)f(:)217 +b Fw(as)31 b Fq(=2)p Fw(,)h(but)f(additionally)d(the)k(pro)s(duction)e +(of)h(\014rst)g(rank)h(bary)m(ons)g(ma)m(y)f(b)s(e)g(sup-)709 +3232 y(pressed)j(b)m(y)g(a)e(factor)g Fq(PARJ\(19\))p +Fw(.)0 3340 y Fq(MSTJ\(13\))53 b(:)48 b Fw(\(D=0\))37 +b(generation)h(of)g(transv)m(erse)j(momen)m(tum)c(for)h(endp)s(oin)m(t) +h(quark\(s\))g(of)g(single)472 3448 y(quark)34 b(jet)f(or)g(q)p +1064 3396 V(q)g(jet)g(system)h(\(in)e(m)m(ultijet)f(ev)m(en)m(ts)k(no)e +(endp)s(oin)m(t)g(transv)m(erse)i(momen-)472 3557 y(tum)d(is)g(ev)m(er) +i(allo)m(w)m(ed)e(for\).)236 3665 y Fq(=)52 b(0)f(:)217 +b Fw(no)32 b(transv)m(erse)j(momen)m(tum)c(for)h(endp)s(oin)m(t)h +(quarks.)236 3774 y Fq(=)52 b(1)f(:)217 b Fw(endp)s(oin)m(t)36 +b(quarks)j(obtain)d(transv)m(erse)j(momen)m(ta)c(lik)m(e)i(ordinary)f +(q)p 3274 3721 V(q)i(pairs)e(pro-)709 3882 y(duced)31 +b(in)e(the)i(\014eld)e(\(see)i Fq(PARJ\(21\))p Fw(\);)i(for)d(2-jet)f +(systems)j(the)e(endp)s(oin)m(ts)h(obtain)709 3990 y(balancing)g +(transv)m(erse)j(momen)m(ta.)0 4099 y Fq(MSTJ\(14\))53 +b(:)48 b Fw(\(D=1\))66 b(treatmen)m(t)g(of)h(a)f(colour-singlet)e(jet)j +(system)h(with)e(a)h(lo)m(w)f(in)m(v)-5 b(arian)m(t)472 +4207 y(mass.)236 4315 y Fq(=)52 b(0)f(:)217 b Fw(no)36 +b(precautions)i(are)f(tak)m(en,)i(meaning)c(that)i(problems)f(ma)m(y)h +(o)s(ccur)g(in)f Fq(LUSTRF)709 4424 y Fw(\(or)c Fq(LUINDF)p +Fw(\))i(later)d(on.)236 4532 y Fq(=)52 b(1)f(:)217 b +Fw(small)42 b(jet)j(systems)h(are)e(allo)m(w)m(ed)g(to)h(collapse)e(in) +m(to)h(t)m(w)m(o)h(particles)f(or,)k(failing)709 4640 +y(that,)g(one)d(single)g(particle.)80 b(Normally)42 b(all)h(small)g +(systems)k(are)e(treated)h(this)709 4749 y(w)m(a)m(y)-8 +b(,)52 b(starting)46 b(with)h(the)h(smallest)d(one,)52 +b(but)47 b(some)g(systems)i(w)m(ould)e(require)709 4857 +y(more)26 b(w)m(ork)i(and)g(are)f(left)g(un)m(treated;)j(they)e +(include)f(diquark-an)m(tidiquark)f(pairs)709 4965 y(b)s(elo)m(w)32 +b(the)h(t)m(w)m(o-particle)f(threshold.)236 5074 y Fq(=)52 +b(-1)g(:)165 b Fw(sp)s(ecial)38 b(option)g(for)h Fq(LUPREP)i +Fw(calls,)f(where)g(no)f(precautions)h(are)f(tak)m(en)i(\(as)e(for)709 +5182 y Fq(=0)p Fw(\),)34 b(but,)g(in)f(addition,)f(no)h(c)m(hec)m(ks)k +(are)c(made)g(on)h(the)g(presence)h(of)e(small-mass)709 +5290 y(systems;)h(i.e.)43 b Fq(LUPREP)34 b Fw(only)e(rearranges)h +(colour)f(strings.)0 5399 y Fq(MSTJ\(15\))53 b(:)48 b +Fw(\(D=0\))31 b(pro)s(duction)h(probabilit)m(y)f(for)h(new)h(\015a)m(v) +m(ours.)236 5507 y Fq(=)52 b(0)f(:)217 b Fw(according)49 +b(to)g(standard)h(Lund)g(parametrization,)h(as)f(giv)m(en)f(b)m(y)j +Fq(PARJ\(1\))h(-)709 5615 y(PARJ\(20\))p Fw(.)1817 5953 +y(269)p eop +%%Page: 270 276 +270 275 bop 236 -18 a Fq(=)52 b(1)f(:)217 b Fw(according)26 +b(to)h(probabilities)d(stored)k(in)e Fq(PARF\(201\))54 +b(-)e(PARF\(1960\))p Fw(;)31 b(note)d(that)709 90 y(no)g(default)f(v)-5 +b(alues)28 b(exist)g(here,)i(i.e.)41 b Fq(PARF)29 b Fw(m)m(ust)f(b)s(e) +g(set)h(b)m(y)g(y)m(ou.)42 b(The)29 b Fq(MSTJ\(12\))709 +198 y Fw(switc)m(h)i(can)f(still)e(b)s(e)i(used)h(to)f(set)h(bary)m(on) +g(pro)s(duction)e(mo)s(de,)h(with)g(the)h(mo)s(di\014-)709 +307 y(cation)c(that)g Fq(MSTJ\(12\)=2)j Fw(here)f(allo)m(ws)e(an)g +(arbitrary)g(n)m(um)m(b)s(er)h(of)g(mesons)g(to)f(b)s(e)709 +415 y(pro)s(duced)32 b(b)s(et)m(w)m(een)h(a)e(bary)m(on)h(and)f(an)g +(an)m(tibary)m(on)g(\(since)h(the)g(probabilit)m(y)d(for)709 +523 y(diquark)g Fn(!)g Fw(meson)g(+)g(new)h(diquark)f(is)g(assumed)h +(indep)s(enden)m(t)g(of)f(prehistory\).)0 632 y Fq(MSTJ\(21\))53 +b(:)48 b Fw(\(D=2\))31 b(form)h(of)g(particle)f(deca)m(ys.)236 +740 y Fq(=)52 b(0)f(:)217 b Fw(all)30 b(particle)h(deca)m(ys)k(are)d +(inhibited.)236 848 y Fq(=)52 b(1)f(:)217 b Fw(a)30 b(particle)f +(declared)i(unstable)g(in)f(the)h Fq(MDCY)g Fw(v)m(ector,)i(and)d(with) +h(deca)m(y)h(c)m(hannels)709 957 y(de\014ned,)e(ma)m(y)e(deca)m(y)h +(within)e(the)h(region)f(giv)m(en)h(b)m(y)i Fq(MSTJ\(22\))p +Fw(.)44 b(A)28 b(particle)f(ma)m(y)709 1065 y(deca)m(y)40 +b(in)m(to)e(jets,)k(whic)m(h)d(then)h(fragmen)m(t)f(further)g +(according)f(to)h(the)h Fq(MSTJ\(1\))709 1173 y Fw(v)-5 +b(alue.)236 1282 y Fq(=)52 b(2)f(:)217 b Fw(as)44 b Fq(=1)p +Fw(,)49 b(except)d(that)e(a)g(q)p 1703 1229 52 4 v(q)i(jet)e(system)i +(pro)s(duced)f(in)f(a)h(deca)m(y)g(\(e.g.)80 b(of)44 +b(a)g(B)709 1390 y(meson\))31 b(is)g(alw)m(a)m(ys)g(allo)m(w)m(ed)g(to) +g(fragmen)m(t)f(according)h(to)g(string)f(fragmen)m(tation,)709 +1498 y(rather)c(than)g(according)g(to)g(the)g Fq(MSTJ\(1\))i +Fw(v)-5 b(alue)26 b(\(this)g(means)g(that)g(momen)m(tum,)709 +1607 y(energy)33 b(and)g(c)m(harge)g(are)g(conserv)m(ed)i(in)c(the)i +(deca)m(y\).)0 1715 y Fq(MSTJ\(22\))53 b(:)48 b Fw(\(D=1\))21 +b(cut-o\013)h(on)g(deca)m(y)i(length)e(for)f(a)h(particle)f(that)h(is)g +(allo)m(w)m(ed)g(to)f(deca)m(y)j(according)472 1823 y(to)33 +b Fq(MSTJ\(21\))h Fw(and)f(the)g Fq(MDCY)h Fw(v)-5 b(alue.)236 +1932 y Fq(=)52 b(1)f(:)217 b Fw(a)32 b(particle)f(declared)i(unstable)g +(is)f(also)f(forced)i(to)g(deca)m(y)-8 b(.)236 2040 y +Fq(=)52 b(2)f(:)217 b Fw(a)40 b(particle)f(is)h(deca)m(y)m(ed)i(only)e +(if)f(its)h(a)m(v)m(erage)h(prop)s(er)g(lifetime)c(is)j(smaller)e(than) +709 2148 y Fq(PARJ\(71\))p Fw(.)236 2257 y Fq(=)52 b(3)f(:)217 +b Fw(a)21 b(particle)g(is)h(deca)m(y)m(ed)i(only)d(if)g(the)i(deca)m(y) +g(v)m(ertex)h(is)d(within)g(a)h(distance)g Fq(PARJ\(72\))709 +2365 y Fw(of)32 b(the)h(origin.)236 2473 y Fq(=)52 b(4)f(:)217 +b Fw(a)22 b(particle)g(is)g(deca)m(y)m(ed)k(only)c(if)g(the)h(deca)m(y) +i(v)m(ertex)f(is)f(within)f(a)g(cylindrical)f(v)m(olume)709 +2582 y(with)30 b(radius)g Fq(PARJ\(73\))i Fw(in)e(the)g +Fj(xy)t Fw(-plane)f(and)i(exten)m(t)h(to)e Fn(\006)p +Fq(PARJ\(74\))i Fw(in)e(the)h Fj(z)709 2690 y Fw(direction.)0 +2798 y Fq(MSTJ\(23\))53 b(:)48 b Fw(\(D=1\))23 b(p)s(ossibilit)m(y)f +(of)i(ha)m(ving)g(a)g(sho)m(w)m(er)i(ev)m(olving)d(from)g(a)h(q)p +2828 2746 V(q)h(pair)f(created)h(as)f(deca)m(y)472 2907 +y(pro)s(ducts.)236 3015 y Fq(=)52 b(0)f(:)217 b Fw(nev)m(er.)236 +3123 y Fq(=)52 b(1)f(:)217 b Fw(whenev)m(er)31 b(the)e(deca)m(y)i(c)m +(hannel)e(matrix-elemen)m(t)e(co)s(de)i(is)f Fq(MDME\(IDC,2\)=)k +Fw(4,)e(32,)709 3232 y(33,)c(44)f(or)g(46,)h(the)g(t)m(w)m(o)g(\014rst) +g(deca)m(y)h(pro)s(ducts)f(\(if)e(they)i(are)f(partons\))h(are)f(allo)m +(w)m(ed)709 3340 y(to)d(sho)m(w)m(er,)k(lik)m(e)c(a)g(colour-singlet)f +(subsystem,)26 b(with)c(maxim)m(um)e(virtualit)m(y)h(giv)m(en)709 +3448 y(b)m(y)33 b(the)g(in)m(v)-5 b(arian)m(t)31 b(mass)i(of)f(the)h +(pair.)0 3557 y Fq(MSTJ\(24\))53 b(:)48 b Fw(\(D=2\))31 +b(particle)h(masses.)236 3665 y Fq(=)52 b(0)f(:)217 b +Fw(discrete)33 b(mass)f(v)-5 b(alues)33 b(are)f(used.)236 +3774 y Fq(=)52 b(1)f(:)217 b Fw(particles)26 b(registered)h(as)g(ha)m +(ving)g(a)f(mass)h(width)g(in)f(the)h Fq(PMAS)h Fw(v)m(ector)g(are)f +(giv)m(en)g(a)709 3882 y(mass)c(according)g(to)g(a)h(truncated)g +(Breit{Wigner)e(shap)s(e,)k(linear)c(in)h Fj(m)p Fw(,)j(eq.)e(\(201\).) +236 3990 y Fq(=)52 b(2)f(:)217 b Fw(as)46 b Fq(=1)p Fw(,)k(but)c(gauge) +g(b)s(osons)g(\(actually)f(all)f(particles)h(with)h Fn(j)p +Fw(KF)p Fn(j)j(\024)i Fw(100\))45 b(are)709 4099 y(distributed)i +(according)g(to)h(a)f(Breit{Wigner)g(quadratic)g(in)g +Fj(m)p Fw(,)52 b(as)c(obtained)709 4207 y(from)31 b(propagators.)236 +4315 y Fq(=)52 b(3)f(:)217 b Fw(as)32 b Fq(=1)p Fw(,)i(but)e +(Breit{Wigner)g(shap)s(e)h(is)f(alw)m(a)m(ys)h(quadratic)f(in)g +Fj(m)p Fw(,)h(eq.)h(\(202\).)0 4424 y Fq(MSTJ\(25\))53 +b(:)48 b Fw(\(D=1\))c(inclusion)g(of)h(the)g(W)1705 4387 +y Fk(\006)1810 4424 y Fw(propagator,)j(in)c(addition)g(to)h(the)h +(standard,)j(`in-)472 4532 y(\014nitely)35 b(hea)m(vy')h(w)m(eak)g +Fj(V)46 b Fn(\000)24 b Fj(A)35 b Fw(matrix)e(elemen)m(t,)j(in)e(the)h +(deca)m(y)h(of)f(a)g(t,)g(l)f(or)h(h)g(quark,)472 4640 +y(or)e Fj(\037)f Fw(lepton.)236 4749 y Fq(=)52 b(0)f(:)217 +b Fw(not)32 b(included.)236 4857 y Fq(=)52 b(1)f(:)217 +b Fw(included.)0 4965 y Fq(MSTJ\(26\))53 b(:)48 b Fw(\(D=2\))31 +b(inclusion)g(of)i(B{)p 1504 4887 70 4 v(B)f(mixing)e(in)i(deca)m(ys.) +236 5074 y Fq(=)52 b(0)f(:)217 b Fw(no.)236 5182 y Fq(=)52 +b(1)f(:)217 b Fw(y)m(es,)37 b(with)e(mixing)e(parameters)i(giv)m(en)g +(b)m(y)j Fq(PARJ\(76\))f Fw(and)e Fq(PARJ\(77\))p Fw(.)53 +b(Mixing)709 5290 y(deca)m(ys)34 b(are)f(not)f(sp)s(ecially)f(mark)m +(ed.)236 5399 y Fq(=)52 b(2)f(:)217 b Fw(y)m(es,)36 b(as)f +Fq(=1)p Fw(,)h(but)f(a)f(B)g(\()p 1593 5321 V(B\))h(that)f(deca)m(ys)j +(as)d(a)p 2465 5321 V 35 w(B)g(\(B\))h(is)f(mark)m(ed)g(as)h +Fq(K\(I,1\)=12)709 5507 y Fw(rather)d(than)h(the)g(normal)e +Fq(K\(I,1\)=11)p Fw(.)0 5615 y Fq(MSTJ\(27\))53 b(:)48 +b Fw(\(D=2\))32 b(p)s(ossibilit)m(y)f(for)i(the)g(b)g(quark)h(to)f(dev) +m(elop)h(a)f(sho)m(w)m(er)i(in)d(the)i(deca)m(y)g(of)f(a)g(top)1817 +5953 y(270)p eop +%%Page: 271 277 +271 276 bop 472 -18 a Fw(hadron,)33 b(i.e.)43 b(T)28 +b Fn(!)g Fw(W)1325 -55 y Fl(+)1384 -18 y Fw(b)p 1438 +-71 52 4 v(q)q(,)k(where)p 1831 -71 V 34 w(q)h(is)f(a)h(sp)s(ectator)g +(quark.)236 90 y Fq(=)52 b(0)f(:)217 b Fw(no,)32 b(i.e.)43 +b(b)33 b(jet)g(is)f(narro)m(w,)h(lo)m(w-m)m(ultiplicit)m(y)-8 +b(.)236 198 y Fq(=)52 b(1)f(:)217 b Fw(the)37 b(b)h(is)f(allo)m(w)m(ed) +f(to)h(sho)m(w)m(er)i(and)e(the)h(W)h(momen)m(tum)d(\(in)g(the)i(rest)g +(frame)e(of)709 307 y(the)42 b(T\))h(is)e(reduced)j(acccordingly)-8 +b(.)72 b(The)43 b(W)g(is)f(therafter)g(assumed)h(to)f(deca)m(y)709 +415 y(isotropically)-8 b(.)236 523 y Fq(=)52 b(2)f(:)217 +b Fw(the)38 b(b)h(is)f(allo)m(w)m(ed)g(to)g(sho)m(w)m(er,)j(as)e(in)e +Fq(=1)p Fw(,)k(but)e(the)f(W)i(deca)m(ys)g(anisotropically)-8 +b(,)709 632 y(with)34 b(the)i(same)f(p)s(olarization)c(as)36 +b(in)e(the)h(standard)h(w)m(eak)g(deca)m(y)g(of)f(option)f +Fq(=0)p Fw(.)709 740 y(In)f(principle)e(this)h(is)h(b)s(etter)g(than)f +(option)g Fq(=1)p Fw(,)h(but)g(in)f(practice)h(there)h(is)e(no)g(big) +709 848 y(di\013erence.)0 957 y Fq(MSTJ\(28\))53 b(:)48 +b Fw(\(D=0\))30 b(call)f(to)i(an)g(external)g Fj(\034)43 +b Fw(deca)m(y)32 b(library)-8 b(.)42 b(F)-8 b(or)30 b(this)h(option)f +(to)g(b)s(e)i(meaningful,)472 1065 y(it)24 b(is)h(up)g(to)g(y)m(ou)h +(to)e(write)h(the)h(appropriate)e(in)m(terface)h(and)g(include)f(that)h +(in)g(the)g(routine)472 1173 y Fq(LUTAUD)p Fw(,)35 b(as)d(explained)h +(in)e(section)i(14.2.)236 1282 y Fq(=)52 b(0)f(:)217 +b Fw(not)32 b(done,)h(i.e.)43 b(the)33 b(in)m(ternal)f +Fq(LUDECY)i Fw(treatmen)m(t)e(is)g(used.)236 1390 y Fq(=)52 +b(1)f(:)217 b Fw(done)38 b(whenev)m(er)i(the)f Fj(\034)49 +b Fw(mother)37 b(particle)g(sp)s(ecies)i(can)f(b)s(e)g(iden)m +(ti\014ed,)h(else)f(the)709 1498 y(in)m(ternal)31 b Fq(LUDECY)j +Fw(treatmen)m(t)e(is)g(used.)44 b(Normally)30 b(the)j(mother)f +(particle)f(should)709 1607 y(alw)m(a)m(ys)h(b)s(e)g(iden)m(ti\014ed,)g +(but)g(it)f(is)g(p)s(ossible)g(for)g(a)h(user)g(to)g(remo)m(v)m(e)g(ev) +m(en)m(t)i(history)709 1715 y(information)24 b(or)k(to)f(add)h(extra)g +Fj(\034)11 b Fw('s)29 b(directly)e(to)h(the)g(ev)m(en)m(t)h(record,)h +(and)e(then)g(the)709 1823 y(mother)k(is)g(not)g(kno)m(wn.)236 +1932 y Fq(=)52 b(2)f(:)217 b Fw(alw)m(a)m(ys)33 b(done.)0 +2040 y Fq(MSTJ\(40\))53 b(-)f(MSTJ\(50\))h(:)48 b Fw(switc)m(hes)34 +b(for)e(time-lik)m(e)e(parton)i(sho)m(w)m(ers,)j(see)f(section)f(10.4.) +0 2148 y Fq(MSTJ\(51\))53 b(:)48 b Fw(\(D=0\))31 b(inclusion)g(of)i +(Bose{Einstein)f(e\013ects.)236 2257 y Fq(=)52 b(0)f(:)217 +b Fw(no)32 b(e\013ects)i(included.)236 2365 y Fq(=)52 +b(1)f(:)217 b Fw(e\013ects)44 b(included)f(according)g(to)f(an)h(exp)s +(onen)m(tial)g(parametrization)e Fj(C)3466 2380 y Fl(2)3505 +2365 y Fw(\()p Fj(Q)p Fw(\))46 b(=)709 2473 y(1+)p Fq(PARJ\(92\))p +Fn(\002)17 b Fw(exp)s(\()p Fn(\000)p Fj(Q=)p Fq(PARJ\(93\))p +Fw(\),)40 b(where)f Fj(C)2598 2488 y Fl(2)2637 2473 y +Fw(\()p Fj(Q)p Fw(\))e(represen)m(ts)j(the)d(ratio)f(of)709 +2582 y(particle)28 b(pro)s(duction)g(at)h Fj(Q)h Fw(with)f +(Bose{Einstein)g(e\013ects)i(to)e(that)g(without,)g(and)709 +2690 y(the)i(relativ)m(e)e(momen)m(tum)h Fj(Q)g Fw(is)g(de\014ned)i(b)m +(y)g Fj(Q)2478 2654 y Fl(2)2517 2690 y Fw(\()p Fj(p)2604 +2705 y Fl(1)2644 2690 y Fj(;)17 b(p)2737 2705 y Fl(2)2776 +2690 y Fw(\))28 b(=)f Fn(\000)p Fw(\()p Fj(p)3109 2705 +y Fl(1)3167 2690 y Fn(\000)18 b Fj(p)3311 2705 y Fl(2)3351 +2690 y Fw(\))3389 2654 y Fl(2)3456 2690 y Fw(=)27 b(\()p +Fj(p)3646 2705 y Fl(1)3704 2690 y Fw(+)709 2798 y Fj(p)758 +2813 y Fl(2)797 2798 y Fw(\))835 2762 y Fl(2)892 2798 +y Fn(\000)18 b Fw(4)p Fj(m)1121 2762 y Fl(2)1161 2798 +y Fw(.)42 b(P)m(articles)30 b(with)g(width)g(broader)h(than)f +Fq(PARJ\(91\))i Fw(are)f(assumed)g(to)709 2907 y(ha)m(v)m(e)j(time)d +(to)h(deca)m(y)i(b)s(efore)f(Bose{Einstein)f(e\013ects)i(are)f(to)f(b)s +(e)h(considered.)236 3015 y Fq(=)52 b(2)f(:)217 b Fw(e\013ects)62 +b(included)f(according)g(to)g(a)g(Gaussian)g(parametrization)e +Fj(C)3435 3030 y Fl(2)3474 3015 y Fw(\()p Fj(Q)p Fw(\))77 +b(=)709 3123 y(1+)p Fq(PARJ\(92\))p Fn(\002)17 b Fw(exp)s(\()p +Fn(\000)p Fw(\()p Fj(Q=)p Fq(PARJ\(93\))p Fw(\))2212 +3087 y Fl(2)2253 3123 y Fw(\),)52 b(with)c(notation)e(and)i(commen)m +(ts)g(as)709 3232 y(ab)s(o)m(v)m(e.)0 3340 y Fq(MSTJ\(52\))53 +b(:)48 b Fw(\(D=3\))38 b(n)m(um)m(b)s(er)h(of)f(particle)g(sp)s(ecies)h +(for)g(whic)m(h)g(Bose{Einstein)g(correlations)e(are)472 +3448 y(to)j(b)s(e)g(included,)i(ranged)e(along)f(the)h(c)m(hain)g +Fj(\031)2260 3412 y Fl(+)2319 3448 y Fw(,)i Fj(\031)2447 +3412 y Fk(\000)2506 3448 y Fw(,)g Fj(\031)2634 3412 y +Fl(0)2673 3448 y Fw(,)g(K)2818 3412 y Fl(+)2877 3448 +y Fw(,)g(K)3022 3412 y Fk(\000)3081 3448 y Fw(,)g(K)3226 +3412 y Fl(0)3226 3473 y(L)3274 3448 y Fw(,)g(K)3419 3412 +y Fl(0)3419 3473 y(S)3462 3448 y Fw(,)g Fj(\021)h Fw(and)472 +3557 y Fj(\021)524 3521 y Fk(0)547 3557 y Fw(.)50 b(Default)33 +b(corresp)s(onds)j(to)e(including)f(all)f(pions)i(\()p +Fj(\031)2548 3521 y Fl(+)2607 3557 y Fw(,)h Fj(\031)2728 +3521 y Fk(\000)2787 3557 y Fw(,)g Fj(\031)2908 3521 y +Fl(0)2947 3557 y Fw(\),)g(7)g(to)f(including)f(all)472 +3665 y(Kaons)g(as)g(w)m(ell,)f(and)g(9)h(is)f(maxim)m(um.)0 +3774 y Fq(MSTJ\(91\))53 b(:)48 b Fw(\(I\))38 b(\015ag)g(when)h +(generating)f(gluon)f(jet)h(with)g(options)f Fq(MSTJ\(2\)=)k +Fw(2)c(or)h(4)g(\(then)h Fq(=1)p Fw(,)472 3882 y(else)33 +b Fq(=0)p Fw(\).)0 3990 y Fq(MSTJ\(92\))53 b(:)48 b Fw(\(I\))41 +b(\015ag)f(that)g(a)h(q)p 1264 3937 V(q)g(or)f(gg)i(pair)d(or)i(a)f +(ggg)h(triplet)e(created)j(in)e Fq(LUDECY)i Fw(should)e(b)s(e)472 +4099 y(allo)m(w)m(ed)g(to)f(sho)m(w)m(er,)44 b(is)39 +b(0)h(if)f(no)g(pair)g(or)h(triplet,)g(is)g(the)g(en)m(try)h(n)m(um)m +(b)s(er)f(of)g(the)g(\014rst)472 4207 y(parton)c(if)e(a)i(pair)e +(indeed)i(exists,)i(is)d(the)h(en)m(try)h(n)m(um)m(b)s(er)f(of)f(the)h +(\014rst)g(parton,)g(with)g(a)472 4315 y Fn(\000)d Fw(sign,)g(if)e(a)h +(triplet)f(indeed)i(exists.)0 4424 y Fq(MSTJ\(93\))53 +b(:)48 b Fw(\(I\))32 b(switc)m(h)i(for)e Fq(ULMASS)i +Fw(action.)43 b(Is)33 b(reset)g(to)g(0)f(in)g Fq(ULMASS)i +Fw(call.)236 4532 y Fq(=)52 b(0)f(:)217 b Fw(ordinary)32 +b(action.)236 4640 y Fq(=)52 b(1)f(:)217 b Fw(ligh)m(t)23 +b(\(d,)k(u,)f(s,)h(c,)g(b\))e(quark)h(masses)f(are)g(tak)m(en)h(from)e +Fq(PARF\(101\))54 b(-)d(PARF\(105\))709 4749 y Fw(rather)31 +b(than)h Fq(PMAS\(1,1\))54 b(-)d(PMAS\(5,1\))p Fw(.)46 +b(Diquark)31 b(masses)h(are)g(giv)m(en)g(as)g(sum)709 +4857 y(of)g(quark)h(masses,)h(without)e(spin)g(splitting)f(term.)236 +4965 y Fq(=)52 b(2)f(:)217 b Fw(as)39 b Fq(=1)p Fw(.)64 +b(Additionally)37 b(the)i(constan)m(t)i(terms)e Fq(PARF\(121\))i +Fw(and)f Fq(PARF\(122\))h Fw(are)709 5074 y(subtracted)34 +b(from)d(quark)i(and)g(diquark)g(masses,)g(resp)s(ectiv)m(ely)-8 +b(.)0 5182 y Fq(MSTJ\(101\))54 b(-)d(MSTJ\(121\))j(:)47 +b Fw(switc)m(hes)35 b(for)d(e)1802 5146 y Fl(+)1861 5182 +y Fw(e)1904 5146 y Fk(\000)1996 5182 y Fw(ev)m(en)m(t)i(generation,)e +(see)i(section)f(6.3.)0 5344 y Fq(PARJ\(1\))53 b(:)48 +b Fw(\(D=0.10\))26 b(is)h Fn(P)8 b Fw(\(qq\))p Fj(=)p +Fn(P)g Fw(\(q\),)30 b(the)e(suppression)h(of)e(diquark-an)m(tidiquark)g +(pair)g(pro)s(duc-)472 5453 y(tion)32 b(in)g(the)h(colour)e(\014eld,)i +(compared)f(with)g(quark{an)m(tiquark)i(pro)s(duction.)0 +5561 y Fq(PARJ\(2\))53 b(:)48 b Fw(\(D=0.30\))25 b(is)g +Fn(P)8 b Fw(\(s\))p Fj(=)p Fn(P)g Fw(\()p Fj(u)p Fw(\),)28 +b(the)f(suppression)h(of)e(s)g(quark)i(pair)d(pro)s(duction)g(in)h(the) +h(\014eld)1817 5953 y(271)p eop +%%Page: 272 278 +272 277 bop 472 -18 a Fw(compared)33 b(with)f(u)h(or)f(d)h(pair)e(pro)s +(duction.)0 90 y Fq(PARJ\(3\))53 b(:)48 b Fw(\(D=0.4\))33 +b(is)h(\()p Fn(P)8 b Fw(\(us\))p Fj(=)p Fn(P)g Fw(\(ud\)\))p +Fj(=)p Fw(\()p Fn(P)g Fw(\(s\))p Fj(=)p Fn(P)g Fw(\(d\)\),)37 +b(the)e(extra)g(suppression)h(of)e(strange)h(di-)472 +198 y(quark)f(pro)s(duction)e(compared)g(with)g(the)h(normal)e +(suppression)j(of)e(strange)h(quarks.)0 307 y Fq(PARJ\(4\))53 +b(:)48 b Fw(\(D=0.05\))21 b(is)h(\(1)p Fj(=)p Fw(3\))p +Fn(P)8 b Fw(\(ud)1465 322 y Fl(1)1504 307 y Fw(\))p Fj(=)p +Fn(P)g Fw(\(ud)1814 322 y Fl(0)1854 307 y Fw(\),)25 b(the)d +(suppression)i(of)e(spin)g(1)h(diquarks)g(compared)472 +415 y(with)33 b(spin)f(0)g(ones)i(\(excluding)e(the)h(factor)f(3)g +(coming)f(from)h(spin)g(coun)m(ting\).)0 523 y Fq(PARJ\(5\))53 +b(:)48 b Fw(\(D=0.5\))37 b(parameter)i(determining)e(relativ)m(e)h(o)s +(ccurence)j(of)d(bary)m(on)h(pro)s(duction)g(b)m(y)472 +641 y Fj(B)5 b(M)p 655 563 80 4 v 10 w(B)49 b Fw(and)43 +b(b)m(y)g Fj(B)p 1202 563 V 5 w(B)48 b Fw(con\014gurations)42 +b(in)g(the)h(p)s(op)s(corn)f(bary)m(on)h(pro)s(duction)f(mo)s(del,)472 +749 y(roughly)32 b Fn(P)8 b Fw(\()p Fj(B)d(M)p 1125 671 +V 10 w(B)i Fw(\))p Fj(=)p Fw(\()p Fn(P)h Fw(\()p Fj(B)p +1525 671 V 5 w(B)d Fw(\))22 b(+)g Fn(P)8 b Fw(\()p Fj(B)d(M)p +2060 671 V 10 w(B)i Fw(\)\))27 b(=)33 b Fq(PARJ\(5\))p +Fj(=)p Fw(\(0)p Fj(:)p Fw(5+)p Fq(PARJ\(5\))p Fw(\).)0 +867 y Fq(PARJ\(6\))53 b(:)48 b Fw(\(D=0.5\))36 b(extra)i(suppression)h +(for)d(ha)m(ving)i(a)f(s)p 2278 814 39 4 v(s)h(pair)f(shared)h(b)m(y)g +(the)g Fj(B)43 b Fw(and)p 3498 789 80 4 v 37 w Fj(B)g +Fw(of)37 b(a)472 985 y Fj(B)5 b(M)p 655 907 V 10 w(B)39 +b Fw(situation.)0 1094 y Fq(PARJ\(7\))53 b(:)48 b Fw(\(D=0.5\))33 +b(extra)h(suppression)i(for)d(ha)m(ving)h(a)g(strange)g(meson)h +Fj(M)44 b Fw(in)34 b(a)g Fj(B)5 b(M)p 3384 1016 V 10 +w(B)40 b Fw(con\014g-)472 1202 y(uration.)0 1310 y Fq(PARJ\(11\))53 +b(-)f(PARJ\(17\))h(:)48 b Fw(parameters)32 b(that)h(determine)f(the)h +(spin)f(of)h(mesons.)236 1419 y Fq(PARJ\(11\))54 b(:)47 +b Fw(\(D=0.5\))h(is)g(the)h(probabilit)m(y)d(that)j(a)f(ligh)m(t)f +(meson)i(\(con)m(taining)e(u)i(and)f(d)709 1527 y(quarks)d(only\))f +(has)g(spin)h(1)f(\(with)f Fq(1-PARJ\(11\))k Fw(the)e(probabilit)m(y)d +(for)i(spin)g(0\))709 1635 y(when)33 b(formed)f(in)g(fragmen)m(tation.) +236 1744 y Fq(PARJ\(12\))54 b(:)47 b Fw(\(D=0.6\))32 +b(is)g(the)h(probabilit)m(y)d(that)j(a)f(strange)h(meson)f(has)h(spin)g +(1.)236 1852 y Fq(PARJ\(13\))54 b(:)47 b Fw(\(D=0.75\))30 +b(is)h(the)h(probabilit)m(y)e(that)i(a)f(c)m(harm)g(or)g(hea)m(vier)i +(meson)e(has)h(spin)g(1.)236 1960 y Fq(PARJ\(14\))54 +b(:)47 b Fw(\(D=0.\))j(is)35 b(the)g(probabilit)m(y)e(that)i(a)g(spin)g +(=)g(0)f(meson)h(is)g(pro)s(duced)h(with)f(an)709 2069 +y(orbital)30 b(angular)h(momen)m(tum)g(1,)i(for)f(a)g(total)f(spin)i(=) +f(1.)236 2177 y Fq(PARJ\(15\))54 b(:)47 b Fw(\(D=0.\))j(is)35 +b(the)g(probabilit)m(y)e(that)i(a)g(spin)g(=)g(1)f(meson)h(is)g(pro)s +(duced)h(with)f(an)709 2285 y(orbital)30 b(angular)h(momen)m(tum)g(1,)i +(for)f(a)g(total)f(spin)i(=)f(0.)236 2394 y Fq(PARJ\(16\))54 +b(:)47 b Fw(\(D=0.\))j(is)35 b(the)g(probabilit)m(y)e(that)i(a)g(spin)g +(=)g(1)f(meson)h(is)g(pro)s(duced)h(with)f(an)709 2502 +y(orbital)30 b(angular)h(momen)m(tum)g(1,)i(for)f(a)g(total)f(spin)i(=) +f(1.)236 2610 y Fq(PARJ\(17\))54 b(:)47 b Fw(\(D=0.\))j(is)35 +b(the)g(probabilit)m(y)e(that)i(a)g(spin)g(=)g(1)f(meson)h(is)g(pro)s +(duced)h(with)f(an)709 2719 y(orbital)30 b(angular)h(momen)m(tum)g(1,)i +(for)f(a)g(total)f(spin)i(=)f(2.)236 2827 y Fo(Note)37 +b(:)166 b Fw(the)47 b(end)g(result)f(of)g(the)h(n)m(um)m(b)s(ers)h(ab)s +(o)m(v)m(e)f(is)f(that,)k(with)c Fq(i)h Fw(=)f(11,)k(12)c(or)g(13,)709 +2935 y(dep)s(ending)32 b(on)h(\015a)m(v)m(our)g(con)m(ten)m(t,)709 +3044 y Fn(P)8 b Fw(\()p Fj(S)34 b Fw(=)27 b(0)p Fj(;)17 +b(L)28 b Fw(=)f(0)p Fj(;)17 b(J)36 b Fw(=)28 b(0\))f(=)h(\(1)22 +b Fn(\000)g Fq(PARJ)p Fw(\()p Fq(i)p Fw(\))r(\))g Fn(\002)g +Fw(\(1)g Fn(\000)h Fq(PARJ)p Fw(\()p Fq(14)p Fw(\))q(\),)709 +3152 y Fn(P)8 b Fw(\()p Fj(S)34 b Fw(=)27 b(0)p Fj(;)17 +b(L)28 b Fw(=)f(1)p Fj(;)17 b(J)36 b Fw(=)28 b(1\))f(=)h(\(1)22 +b Fn(\000)g Fq(PARJ)p Fw(\()p Fq(i)p Fw(\))r(\))g Fn(\002)g +Fq(PARJ)p Fw(\()p Fq(14)p Fw(\))r(,)709 3260 y Fn(P)8 +b Fw(\()p Fj(S)34 b Fw(=)27 b(1)p Fj(;)17 b(L)28 b Fw(=)f(0)p +Fj(;)17 b(J)36 b Fw(=)28 b(1\))f(=)1658 3369 y Fq(PARJ)p +Fw(\()p Fq(i)p Fw(\))c Fn(\002)g Fw(\(1)f Fn(\000)h Fq(PARJ)p +Fw(\()p Fq(15)p Fw(\))g Fn(\000)g Fq(PARJ)p Fw(\()p Fq(16)p +Fw(\))g Fn(\000)g Fq(PARJ)p Fw(\()p Fq(17)p Fw(\))q(\),)709 +3477 y Fn(P)8 b Fw(\()p Fj(S)34 b Fw(=)27 b(1)p Fj(;)17 +b(L)28 b Fw(=)f(1)p Fj(;)17 b(J)36 b Fw(=)28 b(0\))f(=)h +Fq(PARJ)p Fw(\()p Fq(i)p Fw(\))23 b Fn(\002)g Fq(PARJ)p +Fw(\()p Fq(15)p Fw(\))q(,)709 3585 y Fn(P)8 b Fw(\()p +Fj(S)34 b Fw(=)27 b(1)p Fj(;)17 b(L)28 b Fw(=)f(1)p Fj(;)17 +b(J)36 b Fw(=)28 b(1\))f(=)h Fq(PARJ)p Fw(\()p Fq(i)p +Fw(\))23 b Fn(\002)g Fq(PARJ)p Fw(\()p Fq(16)p Fw(\))q(,)709 +3694 y Fn(P)8 b Fw(\()p Fj(S)34 b Fw(=)27 b(1)p Fj(;)17 +b(L)28 b Fw(=)f(1)p Fj(;)17 b(J)36 b Fw(=)28 b(2\))f(=)h +Fq(PARJ)p Fw(\()p Fq(i)p Fw(\))23 b Fn(\002)g Fq(PARJ)p +Fw(\()p Fq(17)p Fw(\))q(,)709 3802 y(where)39 b Fj(S)45 +b Fw(is)38 b(the)h(quark)g(`true')h(spin)e(and)h Fj(J)47 +b Fw(is)39 b(the)g(total)e(spin,)j(usually)e(called)709 +3911 y(the)33 b(spin)f Fj(s)h Fw(of)f(the)h(meson.)0 +4019 y Fq(PARJ\(18\))53 b(:)48 b Fw(\(D=1.\))39 b(is)22 +b(an)g(extra)h(suppression)h(factor)e(m)m(ultiplying)d(the)k(ordinary)f +Fo(SU\(6\))g Fw(w)m(eigh)m(t)472 4127 y(for)k(spin)g(3/2)g(bary)m(ons,) +i(and)f(hence)g(a)f(means)g(to)g(break)h Fo(SU\(6\))f +Fw(in)f(addition)g(to)h(the)g(dy-)472 4236 y(namic)c(breaking)g +(implied)e(b)m(y)k Fq(PARJ\(2\))p Fw(,)j Fq(PARJ\(3\))p +Fw(,)f Fq(PARJ\(4\))p Fw(,)h Fq(PARJ\(6\))d Fw(and)f +Fq(PARJ\(7\))p Fw(.)0 4344 y Fq(PARJ\(19\))53 b(:)48 +b Fw(\(D=1.\))105 b(extra)54 b(bary)m(on)g(suppression)h(factor,)j +(whic)m(h)c(m)m(ultiplies)c(the)k(ordinary)472 4452 y(diquark-an)m +(tidiquark)g(pro)s(duction)f(probabilit)m(y)g(for)g(the)i(breakup)g +(closest)g(to)f(the)472 4561 y(endp)s(oin)m(t)48 b(of)g(a)f(string,)k +(but)d(lea)m(v)m(es)h(other)f(breaks)h(una\013ected.)91 +b(Is)49 b(only)e(used)i(for)472 4669 y Fq(MSTJ\(12\)=3)p +Fw(.)0 4777 y Fq(PARJ\(21\))k(:)48 b Fw(\(D=0.36)30 b(GeV\))h(corresp)s +(onds)i(to)e(the)g(width)g Fj(\033)36 b Fw(in)30 b(the)i(Gaussian)f +Fj(p)3145 4792 y Fh(x)3220 4777 y Fw(and)g Fj(p)3457 +4792 y Fh(y)3530 4777 y Fw(trans-)472 4886 y(v)m(erse)52 +b(momen)m(tum)c(distributions)h(for)g(primary)f(hadrons.)96 +b(See)50 b(also)f Fq(PARJ\(22\))k(-)472 4994 y(PARJ\(24\))p +Fw(.)0 5102 y Fq(PARJ\(22\))g(:)48 b Fw(\(D=1.\))56 b(relativ)m(e)36 +b(increase)i(in)e(transv)m(erse)k(momen)m(tum)35 b(in)i(a)f(gluon)h +(jet)g(generated)472 5211 y(with)c Fq(MSTJ\(2\)=)h Fw(2)f(or)f(4.)0 +5319 y Fq(PARJ\(23\),)54 b(PARJ\(24\))f(:)48 b Fw(\(D=0.01,)d(2.\))77 +b(a)44 b(fraction)f Fq(PARJ\(23\))j Fw(of)d(the)i(Gaussian)e(transv)m +(erse)472 5427 y(momen)m(tum)32 b(distribution)e(is)i(tak)m(en)i(to)e +(b)s(e)g(a)h(factor)f Fq(PARJ\(24\))i Fw(larger)e(than)g(input)g(in)472 +5536 y Fq(PARJ\(21\))p Fw(.)67 b(This)39 b(giv)m(es)h(a)g(simple)e +(parametrization)e(of)j(non-Gaussian)g(tails)f(to)h(the)472 +5644 y(Gaussian)32 b(shap)s(e)i(assumed)f(ab)s(o)m(v)m(e.)1817 +5953 y(272)p eop +%%Page: 273 279 +273 278 bop 0 -18 a Fq(PARJ\(25\))53 b(:)48 b Fw(\(D=1.\))53 +b(extra)36 b(suppression)h(factor)f(for)f Fj(\021)40 +b Fw(pro)s(duction)35 b(in)g(fragmen)m(tation;)h(if)f(an)h +Fj(\021)472 90 y Fw(is)d(rejected)g(a)g(new)g(\015a)m(v)m(our)h(pair)d +(is)h(generated)i(and)e(a)h(new)g(hadron)g(formed.)0 +198 y Fq(PARJ\(26\))53 b(:)48 b Fw(\(D=0.4\))28 b(extra)h(suppression)h +(factor)f(for)f Fj(\021)2179 162 y Fk(0)2231 198 y Fw(pro)s(duction)g +(in)h(fragmen)m(tation;)f(if)g(an)h Fj(\021)3757 162 +y Fk(0)472 307 y Fw(is)k(rejected)g(a)g(new)g(\015a)m(v)m(our)h(pair)d +(is)h(generated)i(and)e(a)h(new)g(hadron)g(formed.)0 +415 y Fq(PARJ\(31\))53 b(:)48 b Fw(\(D=0.1)26 b(GeV\))h(giv)m(es)g(the) +h(remaining)c Fj(W)2095 430 y Fl(+)2181 415 y Fw(b)s(elo)m(w)j(whic)m +(h)h(the)f(generation)f(of)h(a)g(single)472 523 y(jet)e(is)f(stopp)s +(ed)h(\(it)f(is)f(c)m(hosen)k(smaller)22 b(than)i(a)h(pion)e(mass,)j +(so)f(that)f(no)h(hadrons)g(mo)m(ving)472 632 y(in)32 +b(the)h(forw)m(ard)g(direction)e(are)i(missed\).)0 740 +y Fq(PARJ\(32\))53 b(:)48 b Fw(\(D=1.)85 b(GeV\))47 b(is,)j(with)d +(quark)h(masses)f(added,)52 b(used)c(to)e(de\014ne)i(the)g(minim)m(um) +472 848 y(allo)m(w)m(able)31 b(energy)j(of)e(a)g(colour-singlet)e(jet)j +(system.)0 957 y Fq(PARJ\(33\))53 b(-)f(PARJ\(34\))h(:)48 +b Fw(\(D=0.8)34 b(GeV,)h(1.5)g(GeV\))g(are,)h(together)g(with)e(quark)j +(masses,)f(used)472 1065 y(to)c(de\014ne)h(the)f(remaining)e(energy)j +(b)s(elo)m(w)f(whic)m(h)g(the)h(fragmen)m(tation)c(of)j(a)g(jet)g +(system)472 1173 y(is)k(stopp)s(ed)g(and)g(t)m(w)m(o)h(\014nal)e +(hadrons)h(formed.)53 b Fq(PARJ\(33\))38 b Fw(is)d(normally)f(used,)k +(except)472 1282 y(for)32 b Fq(MSTJ\(11\)=2)p Fw(,)k(when)d +Fq(PARJ\(34\))i Fw(is)d(used.)0 1390 y Fq(PARJ\(36\))53 +b(:)48 b Fw(\(D=2.\))62 b(represen)m(ts)42 b(the)d(dep)s(endence)j(on)d +(the)g(mass)g(of)g(the)h(\014nal)e(quark)i(pair)e(for)472 +1498 y(de\014ning)31 b(the)g(stopping)g(p)s(oin)m(t)e(of)i(the)g +(fragmen)m(tation.)41 b(Is)31 b(strongly)f(correlated)h(to)f(the)472 +1607 y(c)m(hoice)j(of)39 b Fq(PARJ\(33\))54 b(-)d(PARJ\(35\))p +Fw(.)0 1715 y Fq(PARJ\(37\))i(:)48 b Fw(\(D=0.2\))31 +b(relativ)m(e)h(width)h(of)f(the)h(smearing)e(of)h(the)h(stopping)f(p)s +(oin)m(t)g(energy)-8 b(.)0 1823 y Fq(PARJ\(38\))53 b(-)f(PARJ\(39\))h +(:)48 b Fw(\(D=2.5,)42 b(0.6\))e(refers)i(to)e(the)h(probabilit)m(y)e +(for)i(rev)m(erse)i(rapidit)m(y)c(or-)472 1932 y(dering)d(of)h(the)g +(\014nal)e(t)m(w)m(o)j(hadrons,)g(according)e(to)g(eq.)h(\(192\),)g +(where)h Fj(d)3220 1947 y Fl(0)3294 1932 y Fw(=)p Fq(PARJ\(38\))472 +2040 y Fw(for)32 b Fq(MSTJ\(11\))p Fn(6)p Fw(=)e(2,)j(and)f +Fj(d)c Fw(=)p Fq(PARJ\(39\))34 b Fw(for)e Fq(MSTJ\(11\)=2)p +Fw(.)0 2148 y Fq(PARJ\(41\),)54 b(PARJ\(42\))f(:)48 b +Fw(\(D=0.3,)39 b(0.58)f(GeV)1858 2112 y Fk(\000)p Fl(2)1952 +2148 y Fw(\))g(giv)m(e)h(the)g Fj(a)g Fw(and)f Fj(b)h +Fw(parameters)g(of)f(the)h(sym-)472 2257 y(metric)24 +b(Lund)i(fragmen)m(tation)d(function)h(for)h Fq(MSTJ\(11\)=)p +Fw(1,)j(4)d(and)g(5)g(\(and)g Fq(MSTJ\(11\)=3)472 2365 +y Fw(for)32 b(ordinary)g(hadrons\).)0 2473 y Fq(PARJ\(43\),)54 +b(PARJ\(44\))f(:)48 b Fw(\(D=0.5,)41 b(0.9)f(GeV)1813 +2437 y Fk(\000)p Fl(2)1907 2473 y Fw(\))g(giv)m(e)g(the)h +Fj(a)f Fw(and)h Fj(b)f Fw(parameters)h(as)f(ab)s(o)m(v)m(e)h(for)472 +2582 y(the)33 b(sp)s(ecial)f(case)i(of)e(a)g(gluon)f(jet)i(generated)g +(with)g(IF)f(and)h Fq(MSTJ\(2\)=)h Fw(2)f(or)f(4.)0 2690 +y Fq(PARJ\(45\))53 b(:)48 b Fw(\(D=0.5\))29 b(the)i(amoun)m(t)f(b)m(y)i +(whic)m(h)f(the)g(e\013ectiv)m(e)h Fj(a)f Fw(parameter)f(in)f(the)j +(Lund)f(\015a)m(v)m(our)472 2798 y(dep)s(enden)m(t)h(symmetric)d +(fragmen)m(tation)e(function)i(is)g(assumed)h(to)f(b)s(e)h(larger)e +(than)i(the)472 2907 y(normal)25 b Fj(a)h Fw(when)h(diquarks)g(are)f +(pro)s(duced.)43 b(More)26 b(sp)s(eci\014cally)-8 b(,)27 +b(referring)e(to)h(eq.)h(\(179\),)472 3015 y Fj(a)523 +3030 y Fh(\013)601 3015 y Fw(=)p Fq(PARJ\(41\))g Fw(when)e(considering) +g(the)g(fragmen)m(tation)e(of)h(a)g(quark)i(and)f(=)f +Fq(PARJ\(41\))472 3123 y(+)52 b(PARJ\(45\))29 b Fw(for)e(the)h(fragmen) +m(tation)d(of)i(a)g(diquark,)h(with)f(corresp)s(onding)g(expression)472 +3232 y(for)d Fj(a)664 3247 y Fh(\014)735 3232 y Fw(dep)s(ending)g(on)g +(whether)h(the)f(newly)h(created)f(ob)5 b(ject)25 b(is)e(a)h(quark)h +(or)e(diquark)h(\(for)472 3340 y(an)37 b(indep)s(enden)m(t)i(gluon)d +(jet)h(generated)h(with)f Fq(MSTJ\(2\)=)i Fw(2)e(or)f(4,)i(replace)f +Fq(PARJ\(41\))472 3448 y Fw(b)m(y)e Fq(PARJ\(43\))p Fw(\).)45 +b(In)32 b(the)h(p)s(op)s(corn)e(mo)s(del,)g(a)h(meson)g(created)g(in)f +(b)s(et)m(w)m(een)k(the)d(bary)m(on)472 3557 y(and)h(an)m(tibary)m(on)g +(has)g Fj(a)1378 3572 y Fh(\013)1455 3557 y Fw(=)27 b +Fj(a)1609 3572 y Fh(\014)1684 3557 y Fw(=)p Fq(PARJ\(41\))54 +b(+)d(PARJ\(45\))p Fw(.)0 3665 y Fq(PARJ\(46\))i(-)f(PARJ\(48\))h(:)48 +b Fw(\(D=3*1.\))59 b(mo)s(di\014cation)36 b(of)h(the)i(Lund)g +(symmetric)e(fragmen)m(tation)472 3774 y(for)f(hea)m(vy)h(endp)s(oin)m +(t)e(quarks)i(according)e(to)h(the)g(recip)s(e)f(b)m(y)i(Bo)m(wler,)f +(a)m(v)-5 b(ailable)33 b(when)472 3882 y Fq(MSTJ\(11\)=)j +Fw(4)c(or)h(5)f(is)g(selected.)46 b(The)34 b(shap)s(e)f(is)f(giv)m(en)h +(b)m(y)h(eq.)g(\(187\).)43 b(If)d Fq(MSTJ\(11\)=4)472 +3990 y Fw(then)c Fj(r)741 4005 y Fl(Q)831 3990 y Fw(=)p +Fq(PARJ\(46\))g Fw(for)e(all)e(\015a)m(v)m(ours,)37 b(while)c(if)41 +b Fq(MSTJ\(11\)=5)c Fw(then)e Fj(r)3200 4005 y Fl(c)3266 +3990 y Fw(=)p Fq(PARJ\(46\))p Fw(,)472 4099 y Fj(r)516 +4114 y Fl(b)598 4099 y Fw(=)p Fq(PARJ\(47\))41 b Fw(and)e +Fj(r)1363 4114 y Fl(Q)1460 4099 y Fw(=)p Fq(PARJ\(48\))i +Fw(for)d(t)h(and)g(hea)m(vier.)62 b Fq(PARJ\(46\))54 +b(-)d(PARJ\(48\))472 4207 y Fw(th)m(us)33 b(pro)m(vide)f(a)f(p)s +(ossibilit)m(y)e(to)i(in)m(terp)s(olate)g(b)s(et)m(w)m(een)i(the)f +(`pure')g(Bo)m(wler)g(shap)s(e,)g Fj(r)f Fw(=)472 4315 +y(1,)44 b(and)d(the)h(normal)e(Lund)i(one,)i Fj(r)h Fw(=)d(0.)70 +b(The)43 b(additional)38 b(mo)s(di\014cations)h(made)i(in)472 +4424 y Fq(PARJ\(43\))54 b(-)d(PARJ\(45\))35 b Fw(are)e(automatically)c +(tak)m(en)k(in)m(to)f(accoun)m(t,)i(if)d(necessary)-8 +b(.)0 4532 y Fq(PARJ\(51\))53 b(-)f(PARJ\(58\))h(:)48 +b Fw(\(D=3*0.77,)38 b Fn(\000)p Fw(0)p Fj(:)p Fw(05,)h +Fn(\000)p Fw(0)p Fj(:)p Fw(005,)g(3*)p Fn(\000)p Fw(0)p +Fj(:)p Fw(00001\))e(giv)m(e)h(a)g(c)m(hoice)g(of)g(four)472 +4640 y(p)s(ossible)30 b(w)m(a)m(ys)i(to)e(parametrize)g(the)g(fragmen)m +(tation)f(function)h(for)f Fq(MSTJ\(11\)=2)k Fw(\(and)472 +4749 y Fq(MSTJ\(11\)=3)43 b Fw(for)d(c)m(harm)h(and)f(hea)m(vier\).)68 +b(The)41 b(fragmen)m(tation)d(of)i(eac)m(h)i(\015a)m(v)m(our)f(KF)472 +4857 y(ma)m(y)e(b)s(e)g(c)m(hosen)i(separately;)h(for)d(a)f(diquark)h +(the)h(\015a)m(v)m(our)g(of)e(the)h(hea)m(viest)h(quark)g(is)472 +4965 y(used.)45 b(With)32 b Fj(c)c Fw(=)p Fq(PARJ\(50+KF\))p +Fw(,)35 b(the)e(parametrizations)e(are:)472 5074 y(0)d +Fn(\024)g Fj(c)g Fn(\024)g Fw(1)k(:)44 b(Field-F)-8 b(eynman,)30 +b Fj(f)11 b Fw(\()p Fj(z)t Fw(\))28 b(=)g(1)21 b Fn(\000)i +Fj(c)f Fw(+)g(3)p Fj(c)p Fw(\(1)g Fn(\000)g Fj(z)t Fw(\))2711 +5037 y Fl(2)2752 5074 y Fw(;)472 5182 y Fn(\000)p Fw(1)28 +b Fn(\024)h Fj(c)e(<)h Fw(0)k(:)43 b(SLA)m(C,)34 b Fj(f)11 +b Fw(\()p Fj(z)t Fw(\))28 b(=)g(1)p Fj(=)p Fw(\()p Fj(z)t +Fw(\(1)22 b Fn(\000)g Fw(1)p Fj(=z)27 b Fn(\000)22 b +Fw(\()p Fn(\000)p Fj(c)p Fw(\))p Fj(=)p Fw(\(1)g Fn(\000)h +Fj(z)t Fw(\)\))2928 5146 y Fl(2)2968 5182 y Fw(\);)472 +5290 y Fj(c)28 b(>)g Fw(1)k(:)43 b(p)s(o)m(w)m(er)34 +b(p)s(eak)m(ed)g(at)e Fj(z)g Fw(=)c(0,)k Fj(f)11 b Fw(\()p +Fj(z)t Fw(\))28 b(=)g(\(1)22 b Fn(\000)g Fj(z)t Fw(\))2429 +5254 y Fh(c)p Fk(\000)p Fl(1)2555 5290 y Fw(;)472 5399 +y Fj(c)28 b(<)g Fn(\000)p Fw(1)k(:)44 b(p)s(o)m(w)m(er)33 +b(p)s(eak)m(ed)h(at)e Fj(z)h Fw(=)27 b(1,)33 b Fj(f)11 +b Fw(\()p Fj(z)t Fw(\))28 b(=)f Fj(z)2260 5363 y Fk(\000)p +Fh(c)p Fk(\000)p Fl(1)2441 5399 y Fw(.)0 5507 y Fq(PARJ\(59\))53 +b(:)48 b Fw(\(D=1.\))144 b(replaces)68 b Fq(PARJ\(51\))53 +b(-)e(PARJ\(53\))69 b Fw(for)d(gluon)g(jet)g(generated)i(with)472 +5615 y Fq(MSTJ\(2\)=)35 b Fw(2)d(or)h(4.)1817 5953 y(273)p +eop +%%Page: 274 280 +274 279 bop 0 -18 a Fq(PARJ\(61\))53 b(-)f(PARJ\(63\))h(:)48 +b Fw(\(D=4.5,)d(0.7,)i(0.\))76 b(parametrizes)44 b(the)g(energy)h(dep)s +(endence)h(of)d(the)472 90 y(primary)34 b(m)m(ultiplicit)m(y)e +(distribution)h(in)i(phase-space)h(deca)m(ys.)54 b(The)36 +b(former)e(t)m(w)m(o)i(cor-)472 198 y(resp)s(ond)43 b(to)e +Fj(c)1018 213 y Fl(1)1099 198 y Fw(and)g Fj(c)1339 213 +y Fl(2)1420 198 y Fw(of)g(eq.)i(\(209\),)g(while)d(the)i(latter)f(allo) +m(ws)f(a)h(further)h(additiv)m(e)472 307 y(term)32 b(in)g(the)h(m)m +(ultiplicit)m(y)c(sp)s(eci\014cally)j(for)g(onium)f(deca)m(ys.)0 +415 y Fq(PARJ\(64\))53 b(:)48 b Fw(\(0.003)28 b(GeV\))h(minim)m(um)c +(kinetic)k(energy)h(in)e(deca)m(ys)j(\(safet)m(y)f(margin)d(for)h(n)m +(umerical)472 523 y(precision)k(errors\).)0 632 y Fq(PARJ\(65\))53 +b(:)48 b Fw(\(D=0.5)22 b(GeV\))h(mass)g(whic)m(h,)j(in)c(addition)g(to) +g(the)i(sp)s(ectator)f(quark)h(ordiquark)f(mass,)472 +740 y(is)33 b(not)f(assumed)h(to)f(partak)m(e)i(in)e(the)h(w)m(eak)g +(deca)m(y)h(of)e(a)h(hea)m(vy)h(quark)f(in)f(a)g(hadron.)0 +848 y Fq(PARJ\(66\))53 b(:)48 b Fw(\(D=0.5\))30 b(relativ)m(e)g +(probabilit)m(y)f(that)i(colour)f(is)g(rearranged)h(when)h(t)m(w)m(o)g +(singlets)e(are)472 957 y(to)i(b)s(e)g(formed)f(from)f(deca)m(y)k(pro)s +(ducts.)44 b(Only)31 b(applies)g(for)g Fq(MDME\(IDC,2\)=)k +Fw(11{30,)c(i.e.)472 1065 y(lo)m(w-mass)h(phase-space)i(deca)m(ys.)0 +1173 y Fq(PARJ\(71\))53 b(:)48 b Fw(\(D=10)27 b(mm\))g(maxim)m(um)f(a)m +(v)m(erage)j(prop)s(er)g(lifetime)c(for)j(particles)f(allo)m(w)m(ed)h +(to)g(deca)m(y)472 1282 y(in)g(the)h Fq(MSTJ\(22\)=2)i +Fw(option.)41 b(With)28 b(the)h(default)e(v)-5 b(alue,)29 +b(K)2714 1245 y Fl(0)2714 1306 y(S)2757 1282 y Fw(,)h(\003,)f(\006)3008 +1245 y Fk(\000)3067 1282 y Fw(,)g(\006)3193 1245 y Fl(+)3253 +1282 y Fw(,)g(\004)3374 1245 y Fk(\000)3433 1282 y Fw(,)h(\004)3555 +1245 y Fl(0)3622 1282 y Fw(and)472 1390 y(\012)542 1354 +y Fk(\000)640 1390 y Fw(are)38 b(stable)g(\(in)f(addition)g(to)g(those) +i(normally)d(tak)m(en)j(to)f(b)s(e)g(stable\),)h(but)g(c)m(harm)472 +1498 y(and)33 b(b)s(ottom)e(do)i(still)d(deca)m(y)-8 +b(.)0 1607 y Fq(PARJ\(72\))53 b(:)48 b Fw(\(D=1000)22 +b(mm\))h(maxim)m(um)f(distance)i(from)f(the)h(origin)e(at)i(whic)m(h)g +(a)g(deca)m(y)i(is)d(allo)m(w)m(ed)472 1715 y(to)33 b(tak)m(e)g(place)f +(in)g(the)h Fq(MSTJ\(22\)=3)i Fw(option.)0 1823 y Fq(PARJ\(73\))53 +b(:)48 b Fw(\(D=100)37 b(mm\))g(maxim)m(um)e(cylindrical)h(distance)j +Fj(\032)f Fw(=)2699 1747 y Fn(p)p 2782 1747 306 4 v 76 +x Fj(x)2837 1795 y Fl(2)2899 1823 y Fw(+)22 b Fj(y)3049 +1795 y Fl(2)3126 1823 y Fw(from)37 b(the)i(origin)472 +1932 y(at)33 b(whic)m(h)g(a)f(deca)m(y)i(is)e(allo)m(w)m(ed)g(to)g(tak) +m(e)i(place)e(in)g(the)h Fq(MSTJ\(22\)=4)i Fw(option.)0 +2040 y Fq(PARJ\(74\))53 b(:)48 b Fw(\(D=1000)d(mm\))g(maxim)m(um)f(z)j +(distance)g(from)f(the)h(origin)d(at)i(whic)m(h)i(a)e(deca)m(y)i(is)472 +2148 y(allo)m(w)m(ed)32 b(to)h(tak)m(e)g(place)f(in)g(the)h +Fq(MSTJ\(22\)=4)i Fw(option.)0 2277 y Fq(PARJ\(76\))53 +b(:)48 b Fw(\(D=0.7\))31 b(mixing)g(parameter)h Fj(x)1787 +2292 y Fh(d)1855 2277 y Fw(=)c(\001)p Fj(M)5 b(=)p Fw(\000)33 +b(in)f(B)2465 2241 y Fl(0)2504 2277 y Fw({)p 2553 2199 +70 4 v(B)2622 2219 y Fl(0)2694 2277 y Fw(system.)0 2412 +y Fq(PARJ\(77\))53 b(:)48 b Fw(\(D=10.\))42 b(mixing)31 +b(parameter)h Fj(x)1798 2427 y Fh(s)1863 2412 y Fw(=)27 +b(\001)p Fj(M)5 b(=)p Fw(\000)33 b(in)f(B)2472 2375 y +Fl(0)2472 2436 y Fh(s)2511 2412 y Fw({)p 2560 2334 V(B)2629 +2353 y Fl(0)2629 2436 y Fh(s)2701 2412 y Fw(system.)0 +2520 y Fq(PARJ\(81\))53 b(-)f(PARJ\(89\))h(:)48 b Fw(parameters)32 +b(for)g(time-lik)m(e)e(parton)j(sho)m(w)m(ers,)i(see)e(section)g(10.4.) +0 2628 y Fq(PARJ\(91\))53 b(:)48 b Fw(\(D=0.020)35 b(GeV\))h(minim)m +(um)c(particle)j(width)h(in)g Fq(PMAS\(KC,2\))p Fw(,)j(ab)s(o)m(v)m(e)e +(whic)m(h)g(par-)472 2737 y(ticle)h(deca)m(ys)i(are)e(assumed)h(to)f +(tak)m(e)h(place)f(b)s(efore)g(the)h(stage)g(where)g(Bose{Einstein)472 +2845 y(e\013ects)34 b(are)f(in)m(tro)s(duced.)0 2953 +y Fq(PARJ\(92\))53 b(:)48 b Fw(\(D=1.\))e(nominal)31 +b(strength)k(of)e(Bose{Einstein)h(e\013ects)h(for)e Fj(Q)d +Fw(=)g(0,)j(see)i Fq(MSTJ\(51\))p Fw(.)472 3062 y(This)26 +b(parameter,)h(often)e(denoted)i Fj(\025)p Fw(,)g(expresses)h(the)e +(amoun)m(t)f(of)h(incoherence)g(in)f(parti-)472 3170 +y(cle)f(pro)s(duction.)39 b(Due)24 b(to)f(the)h(simpli\014ed)d(picture) +i(used)i(for)e(the)h(Bose{Einstein)f(e\013ects,)472 3278 +y(in)37 b(particular)f(for)h(e\013ects)i(from)d(three)i(nearb)m(y)h +(iden)m(tical)c(particles,)j(the)g(actual)f Fj(\025)g +Fw(of)472 3387 y(the)c(sim)m(ulated)f(ev)m(en)m(ts)j(ma)m(y)d(b)s(e)h +(larger)e(than)i(the)g(input)f(v)-5 b(alue.)0 3495 y +Fq(PARJ\(93\))53 b(:)48 b Fw(\(D=0.20)e(GeV\))h(size)h(of)e(the)i +(Bose{Einstein)f(e\013ect)i(region)d(in)h(terms)g(of)g(the)g +Fj(Q)472 3603 y Fw(v)-5 b(ariable,)54 b(see)e Fq(MSTJ\(51\))p +Fw(.)101 b(The)52 b(more)e(con)m(v)m(en)m(tional)h(measure,)56 +b(in)50 b(terms)h(of)f(the)472 3712 y(radius)56 b Fj(R)g +Fw(of)f(the)h(pro)s(duction)f(v)m(olume,)61 b(is)55 b(giv)m(en)h(b)m(y) +g Fj(R)68 b Fw(=)f(\026)-50 b Fj(h=)p Fq(PARJ\(93\))p +Fn(\031)69 b Fw(0)p Fj(:)p Fw(2)472 3820 y(fm)p Fn(\002)p +Fw(GeV/)p Fq(PARJ\(93\))p Fw(=)p Fq(PARU\(3\))p Fw(/)p +Fq(PARJ\(93\))p Fw(.)0 3928 y Fq(PARJ\(121\))54 b(-)d(PARJ\(171\))j(:) +47 b Fw(parameters)33 b(for)f(e)1923 3892 y Fl(+)1982 +3928 y Fw(e)2025 3892 y Fk(\000)2117 3928 y Fw(ev)m(en)m(t)j +(generation,)d(see)h(section)g(6.3.)0 4202 y Fp(14.5)136 +b(Couplings)0 4375 y Fw(In)40 b(this)f(section)g(w)m(e)h(collect)f +(information)d(on)j(the)h(t)m(w)m(o)g(routines)f(for)f(running)h +Fj(\013)3130 4390 y Fl(s)3202 4375 y Fw(and)g Fj(\013)3460 +4390 y Fl(em)3554 4375 y Fw(,)i(and)0 4483 y(on)h(other)f(couplings)g +(of)g(standard)h(and)g(non-standard)g(particles.)69 b(Although)41 +b(originally)d(b)s(egun)0 4592 y(for)46 b Fm(Jetset)f +Fw(applications,)j(this)e(section)h(has)g(rapidly)e(expanded)j(to)m(w)m +(ards)f(the)g(non-standard)0 4700 y(asp)s(ects,)38 b(and)d(is)g(th)m +(us)i(more)d(of)h(in)m(terest)i(for)d Fm(Pythia)i Fw(applications)e +(than)h(for)g Fm(Jetset)f Fw(itself.)51 b(It)0 4808 y(could)25 +b(therefore)g(equally)g(w)m(ell)f(ha)m(v)m(e)i(b)s(een)g(put)g +(somewhere)g(else)f(in)f(this)h(man)m(ual.)40 b(A)25 +b(few)g(couplings)0 4917 y(indeed)33 b(app)s(ear)f(in)g(the)h +Fq(PARP)h Fw(arra)m(y)-8 b(,)32 b(see)i(section)f(9.3.)p +0 5061 1030 9 v 0 5286 9 225 v 79 5201 a Fq(ALEM)52 b(=)g(ULALEM\(Q2\)) +p 1022 5286 V 0 5294 1030 9 v 0 5426 a Fo(Purp)s(ose:)c +Fw(to)35 b(calculate)g(the)i(running)e(electromagnetic)g(coupling)g +(constan)m(t)h Fj(\013)3105 5441 y Fl(em)3200 5426 y +Fw(.)54 b(Expressions)472 5534 y(used)29 b(are)f(describ)s(ed)h(in)e +(ref.)42 b([Kle89)n(].)g(See)29 b Fq(MSTU\(101\))p Fw(,)i +Fq(PARU\(101\))p Fw(,)g Fq(PARU\(103\))f Fw(and)472 5642 +y Fq(PARU\(104\))p Fw(.)1817 5953 y(274)p eop +%%Page: 275 281 +275 280 bop 0 -18 a Fq(Q2)52 b(:)267 b Fw(the)33 b(momen)m(tum)f +(transfer)h(scale)f Fj(Q)1824 -55 y Fl(2)1896 -18 y Fw(at)h(whic)m(h)g +(to)f(ev)-5 b(aluate)32 b Fj(\013)2858 -3 y Fl(em)2952 +-18 y Fw(.)p 0 126 1030 9 v 0 351 9 225 v 79 266 a Fq(ALPS)52 +b(=)g(ULALPS\(Q2\))p 1022 351 V 0 359 1030 9 v 0 491 +a Fo(Purp)s(ose:)c Fw(to)36 b(calculate)g(the)i(running)e(strong)h +(coupling)f(constan)m(t)i Fj(\013)2712 506 y Fl(s)2744 +491 y Fw(.)57 b(The)38 b(\014rst-)f(and)g(second-)472 +599 y(order)23 b(expressions)i(are)e(giv)m(en)g(b)m(y)g(eqs.)i(\(27\))d +(and)h(\(32\).)39 b(See)24 b Fq(MSTU\(111\))54 b(-)d(MSTU\(118\))472 +707 y Fw(and)33 b Fq(PARU\(111\))54 b(-)d(PARU\(118\))35 +b Fw(for)d(options.)0 816 y Fq(Q2)52 b(:)267 b Fw(the)33 +b(momen)m(tum)f(transfer)h(scale)f Fj(Q)1824 779 y Fl(2)1896 +816 y Fw(at)h(whic)m(h)g(to)f(ev)-5 b(aluate)32 b Fj(\013)2858 +831 y Fl(s)2890 816 y Fw(.)p 0 960 2876 9 v 0 1185 9 +225 v 79 1100 a Fq(COMMON/LUDAT1/MSTU\(200\),)q(PARU)q(\(200)q(\),MS)q +(TJ\()q(200\))q(,PAR)q(J\(20)q(0\))p 2867 1185 V 0 1193 +2876 9 v 0 1325 a Fo(Purp)s(ose:)48 b Fw(to)31 b(giv)m(e)h(access)i(to) +d(a)h(n)m(um)m(b)s(er)g(of)f(status)i(co)s(des)g(and)f(parameters)f +(whic)m(h)i(regulate)e(the)472 1433 y(p)s(erformance)j(of)g(the)h +(program)e(as)h(a)g(whole.)49 b(Here)35 b(only)f(those)h(related)e(to)h +(couplings)472 1541 y(are)f(describ)s(ed;)h(the)f(main)d(description)j +(is)f(found)g(in)g(section)h(14.4.)0 1704 y Fq(MSTU\(101\))54 +b(:)47 b Fw(\(D=1\))32 b(pro)s(cedure)h(for)f Fj(\013)1582 +1719 y Fl(em)1709 1704 y Fw(ev)-5 b(aluation)31 b(in)h(the)h +Fq(ULALEM)h Fw(function.)236 1812 y Fq(=)52 b(0)f(:)217 +b Fj(\013)771 1827 y Fl(em)898 1812 y Fw(is)32 b(tak)m(en)h(\014xed)h +(at)e(the)h(v)-5 b(alue)32 b Fq(PARU\(101\))p Fw(.)236 +1920 y Fq(=)52 b(1)f(:)217 b Fj(\013)771 1935 y Fl(em)904 +1920 y Fw(is)38 b(running)g(with)h(the)g Fj(Q)1857 1884 +y Fl(2)1936 1920 y Fw(scale,)h(taking)e(in)m(to)g(accoun)m(t)i +(corrections)f(from)709 2029 y(fermion)31 b(lo)s(ops)g(\(e,)i +Fj(\026)p Fw(,)f Fj(\034)11 b Fw(,)33 b(d,)g(u,)g(s,)g(c,)g(b\).)236 +2137 y Fq(=)52 b(2)f(:)217 b Fj(\013)771 2152 y Fl(em)904 +2137 y Fw(is)38 b(\014xed,)j(but)e(with)f(separate)i(v)-5 +b(alues)38 b(at)h(lo)m(w)f(and)g(high)g Fj(Q)3182 2101 +y Fl(2)3222 2137 y Fw(.)62 b(F)-8 b(or)37 b Fj(Q)3568 +2101 y Fl(2)3647 2137 y Fw(b)s(e-)709 2246 y(lo)m(w)e(\(ab)s(o)m(v)m +(e\))i Fq(PARU\(104\))h Fw(the)f(v)-5 b(alue)35 b Fq(PARU\(101\))k +Fw(\()p Fq(PARU\(103\))p Fw(\))f(is)d(used.)56 b(The)709 +2354 y(former)45 b(v)-5 b(alue)45 b(is)h(then)g(in)m(tended)h(for)e +(real)g(photon)h(emission,)j(the)d(latter)f(for)709 2462 +y(electro)m(w)m(eak)34 b(ph)m(ysics,)g(e.g.)44 b(of)32 +b(the)h(W)q Fj(=)p Fw(Z)f(gauge)g(b)s(osons.)0 2571 y +Fq(MSTU\(111\))54 b(:)47 b Fw(\(D=1\))c(order)i(of)f +Fj(\013)1382 2586 y Fl(s)1458 2571 y Fw(ev)-5 b(aluation)43 +b(in)g(the)i Fq(ULALPS)h Fw(function.)78 b(Is)45 b(o)m(v)m(erwritten)g +(in)472 2679 y Fq(LUEEVT)p Fw(,)39 b Fq(LUONIA)f Fw(or)e +Fq(PYINIT)i Fw(calls)e(with)g(the)h(v)-5 b(alue)36 b(desired)i(for)e +(the)h(pro)s(cess)h(under)472 2787 y(study)-8 b(.)236 +2896 y Fq(=)52 b(0)f(:)217 b Fj(\013)771 2911 y Fl(s)835 +2896 y Fw(is)32 b(\014xed)i(at)e(the)h(v)-5 b(alue)32 +b Fq(PARU\(111\))p Fw(.)236 3004 y Fq(=)52 b(1)f(:)217 +b Fw(\014rst-order)32 b(running)h Fj(\013)1590 3019 y +Fl(s)1654 3004 y Fw(is)f(used.)236 3112 y Fq(=)52 b(2)f(:)217 +b Fw(second-order)33 b(running)f Fj(\013)1703 3127 y +Fl(s)1768 3112 y Fw(is)g(used.)0 3221 y Fq(MSTU\(112\))54 +b(:)47 b Fw(\(D=5\))32 b(the)i(nominal)c(n)m(um)m(b)s(er)k(of)e(\015a)m +(v)m(ours)j(assumed)e(in)g(the)g Fj(\013)3027 3236 y +Fl(s)3092 3221 y Fw(expression,)i(with)472 3329 y(resp)s(ect)f(to)f +(whic)m(h)g(\003)f(is)g(de\014ned.)0 3437 y Fq(MSTU\(113\))54 +b(:)47 b Fw(\(D=3\))27 b(minim)m(um)d(n)m(um)m(b)s(er)k(of)f(\015a)m(v) +m(ours)i(that)f(ma)m(y)f(b)s(e)h(assumed)h(in)d Fj(\013)3255 +3452 y Fl(s)3315 3437 y Fw(expression,)472 3546 y(see)34 +b Fq(MSTU\(112\))p Fw(.)0 3654 y Fq(MSTU\(114\))54 b(:)47 +b Fw(\(D=5\))25 b(maxim)m(um)f(n)m(um)m(b)s(er)i(of)f(\015a)m(v)m(ours) +j(that)d(ma)m(y)h(b)s(e)g(assumed)h(in)e Fj(\013)3257 +3669 y Fl(s)3315 3654 y Fw(expression,)472 3762 y(see)34 +b Fq(MSTU\(112\))p Fw(.)0 3871 y Fq(MSTU\(115\))54 b(:)47 +b Fw(\(D=0\))32 b(treatmen)m(t)g(of)g Fj(\013)1544 3886 +y Fl(s)1609 3871 y Fw(singularit)m(y)f(for)h Fj(Q)2318 +3835 y Fl(2)2385 3871 y Fn(!)27 b Fw(0.)236 3979 y Fq(=)52 +b(0)f(:)217 b Fw(allo)m(w)31 b(it)g(to)h(div)m(erge)h(lik)m(e)f(1)p +Fj(=)17 b Fw(ln)o(\()p Fj(Q)2003 3943 y Fl(2)2042 3979 +y Fj(=)p Fw(\003)2159 3943 y Fl(2)2198 3979 y Fw(\).)236 +4087 y Fq(=)52 b(1)f(:)217 b Fw(soften)33 b(the)g(div)m(ergence)h(to)e +(1)p Fj(=)17 b Fw(ln)n(\(1)22 b(+)g Fj(Q)2237 4051 y +Fl(2)2277 4087 y Fj(=)p Fw(\003)2394 4051 y Fl(2)2433 +4087 y Fw(\).)236 4196 y Fq(=)52 b(2)f(:)217 b Fw(freeze)52 +b Fj(Q)1078 4160 y Fl(2)1169 4196 y Fw(ev)m(olution)f(b)s(elo)m(w)h +Fq(PARU\(114\))p Fw(,)59 b(i.e.)99 b(the)52 b(e\013ectiv)m(e)h(argumen) +m(t)e(is)709 4304 y(max)o(\()p Fj(Q)1005 4268 y Fl(2)1045 +4304 y Fj(;)p Fq(PARU\(114\))p Fw(\).)0 4412 y Fq(MSTU\(118\))j(:)47 +b Fw(\(I\))33 b(n)m(um)m(b)s(er)g(of)f(\015a)m(v)m(ours)i +Fj(n)1640 4427 y Fh(f)1718 4412 y Fw(found)f(and)f(used)i(in)e(latest)g +Fq(ULALPS)i Fw(call.)0 4575 y Fq(PARU\(101\))54 b(:)47 +b Fw(\(D=0.00729735=1/137.04\))20 b Fj(\013)1834 4590 +y Fl(em)1929 4575 y Fw(,)26 b(the)f(electromagnetic)e(\014ne)i +(structure)h(constan)m(t)472 4683 y(at)33 b(v)-5 b(anishing)31 +b(momen)m(tum)g(transfer.)0 4792 y Fq(PARU\(102\))54 +b(:)47 b Fw(\(D=0.232\))j(sin)1231 4752 y Fl(2)1270 4792 +y Fj(\022)1315 4807 y Fh(W)1396 4792 y Fw(,)57 b(the)52 +b(w)m(eak)h(mixing)d(angle)h(of)g(the)h(standard)g(electro)m(w)m(eak) +472 4900 y(mo)s(del.)0 5008 y Fq(PARU\(103\))i(:)47 b +Fw(\(D=0.007764=1/128.8\))57 b(t)m(ypical)j Fj(\013)2072 +5023 y Fl(em)2228 5008 y Fw(in)g(electro)m(w)m(eak)i(pro)s(cesses;)77 +b(used)62 b(for)472 5117 y Fj(Q)549 5080 y Fl(2)617 5117 +y Fj(>)p Fq(PARU\(104\))35 b Fw(in)c(the)i(option)f Fq(MSTU\(101\)=2)j +Fw(of)k Fq(ULALEM)p Fw(.)0 5225 y Fq(PARU\(104\))54 b(:)47 +b Fw(\(D=1)30 b(GeV)1072 5189 y Fl(2)1111 5225 y Fw(\))g(dividing)f +(line)g(b)s(et)m(w)m(een)k(`lo)m(w')d(and)h(`high')e +Fj(Q)2872 5189 y Fl(2)2943 5225 y Fw(v)-5 b(alues)30 +b(in)g(the)h(option)472 5333 y Fq(MSTU\(101\)=2)36 b +Fw(of)j Fq(ULALEM)p Fw(.)0 5442 y Fq(PARU\(105\))54 b(:)47 +b Fw(\(D=1.16639E-5)30 b(GeV)1492 5405 y Fk(\000)p Fl(2)1587 +5442 y Fw(\))i Fj(G)1734 5457 y Fl(F)1784 5442 y Fw(,)h(the)g(F)-8 +b(ermi)31 b(constan)m(t)i(of)f(w)m(eak)i(in)m(teractions.)0 +5550 y Fq(PARU\(108\))54 b(:)47 b Fw(\(I\))33 b(the)g +Fj(\013)985 5565 y Fl(em)1112 5550 y Fw(v)-5 b(alue)32 +b(obtained)g(in)f(the)i(latest)g(call)d(to)j(the)g Fq(ULALEM)h +Fw(function.)0 5658 y Fq(PARU\(111\))54 b(:)47 b Fw(\(D=0.20\))33 +b(\014x)i Fj(\013)1247 5673 y Fl(s)1313 5658 y Fw(v)-5 +b(alue)34 b(assumed)h(in)e Fq(ULALPS)j Fw(when)f Fq(MSTU\(111\)=0)j +Fw(\(and)c(also)f(in)1817 5953 y(275)p eop +%%Page: 276 282 +276 281 bop 472 -18 a Fw(parton)33 b(sho)m(w)m(ers)i(when)e +Fj(\013)1462 -3 y Fl(s)1527 -18 y Fw(is)f(assumed)h(\014x)g(there\).)0 +90 y Fq(PARU\(112\))54 b(:)47 b Fw(\(D=0.25)25 b(GeV\))i(\003)f(used)h +(in)f(running)g Fj(\013)2094 105 y Fl(s)2152 90 y Fw(expression)i(in)d +Fq(ULALPS)p Fw(.)k(Lik)m(e)d Fq(MSTU\(111\))p Fw(,)472 +198 y(this)h(v)-5 b(alue)26 b(is)h(o)m(v)m(erwritten)h(b)m(y)f(the)h +(calling)c(ph)m(ysics)k(routines,)g(and)f(is)g(therefore)g(purely)472 +307 y(nominal.)0 415 y Fq(PARU\(113\))54 b(:)47 b Fw(\(D=1.\))64 +b(the)40 b(\015a)m(v)m(our)h(thresholds,)h(for)d(the)h(e\013ectiv)m(e)h +(n)m(um)m(b)s(er)f(of)f(\015a)m(v)m(ours)j Fj(n)3608 +430 y Fh(f)3693 415 y Fw(to)472 523 y(use)30 b(in)d(the)i +Fj(\013)972 538 y Fl(s)1032 523 y Fw(expression,)i(are)d(assumed)h(to)f +(sit)g(at)g Fj(Q)2510 487 y Fl(2)2578 523 y Fw(=)p Fq(PARU\(113\))p +Fn(\002)p Fj(m)3275 487 y Fl(2)3275 548 y(q)3319 523 +y Fw(,)h(where)h Fj(m)3738 538 y Fl(q)472 632 y Fw(is)j(the)g(quark)g +(mass.)43 b(Ma)m(y)34 b(b)s(e)f(o)m(v)m(erwritten)g(from)f(the)h +(calling)c(ph)m(ysics)35 b(routine.)0 740 y Fq(PARU\(114\))54 +b(:)47 b Fw(\(D=4)40 b(GeV)1082 704 y Fl(2)1121 740 y +Fw(\))g Fj(Q)1276 704 y Fl(2)1356 740 y Fw(v)-5 b(alue)40 +b(b)s(elo)m(w)g(whic)m(h)h(the)g Fj(\013)2425 755 y Fl(s)2497 +740 y Fw(v)-5 b(alue)40 b(is)g(assumed)h(constan)m(t)g(for)472 +848 y Fq(MSTU\(115\)=2)p Fw(.)0 957 y Fq(PARU\(115\))54 +b(:)47 b Fw(\(D=10.\))42 b(maxim)m(um)31 b Fj(\013)1523 +972 y Fl(s)1587 957 y Fw(v)-5 b(alue)32 b(that)g Fq(ULALPS)i +Fw(will)d(ev)m(er)i(return;)h(is)e(used)h(as)g(a)f(last)472 +1065 y(resort)h(to)g(a)m(v)m(oid)f(singularities.)0 1173 +y Fq(PARU\(117\))54 b(:)47 b Fw(\(I\))26 b(\003)f(v)-5 +b(alue)25 b(\(asso)s(ciated)g(with)h Fq(MSTU\(118\))i +Fw(e\013ectiv)m(e)e(\015a)m(v)m(ours\))h(obtained)e(in)g(latest)472 +1282 y Fq(ULALPS)35 b Fw(call.)0 1390 y Fq(PARU\(118\))54 +b(:)47 b Fw(\(I\))33 b Fj(\013)817 1405 y Fl(s)881 1390 +y Fw(v)-5 b(alue)32 b(obtained)g(in)g(latest)g Fq(ULALPS)i +Fw(call.)0 1498 y Fq(PARU\(121\))54 b(-)d(PARU\(130\))j(:)47 +b Fw(couplings)36 b(of)h(a)g(new)h(Z)2126 1462 y Fk(0)p +Fl(0)2184 1498 y Fw(;)h(for)e(fermion)e(default)h(v)-5 +b(alues)37 b(are)g(giv)m(en)472 1607 y(b)m(y)32 b(the)e(Standard)g(Mo)s +(del)g(Z)1547 1571 y Fl(0)1616 1607 y Fw(v)-5 b(alues,)31 +b(assuming)e(sin)2473 1567 y Fl(2)2513 1607 y Fj(\022)2558 +1622 y Fh(W)2666 1607 y Fw(=)f(0)p Fj(:)p Fw(23.)42 b(Note)30 +b(that)g(e.g.)43 b(the)472 1715 y(Z)532 1679 y Fk(0)p +Fl(0)627 1715 y Fw(width)36 b(con)m(tains)g(squared)i(couplings,)e(and) +g(th)m(us)i(dep)s(ends)g(quadratically)c(on)i(the)472 +1823 y(v)-5 b(alues)33 b(b)s(elo)m(w.)236 1932 y Fq(PARU\(121\),)54 +b(PARU\(122\))g(:)47 b Fw(\(D=-0.693,-1.\))c(v)m(ector)35 +b(and)e(axial)e(couplings)i(of)f(do)m(wn)j(t)m(yp)s(e)709 +2040 y(quarks)f(to)e(Z)1203 2004 y Fk(0)p Fl(0)1261 2040 +y Fw(.)236 2148 y Fq(PARU\(123\),)54 b(PARU\(124\))g(:)47 +b Fw(\(D=0.387,1.\))105 b(v)m(ector)54 b(and)g(axial)d(couplings)i(of)g +(up)h(t)m(yp)s(e)709 2257 y(quarks)34 b(to)e(Z)1203 2221 +y Fk(0)p Fl(0)1261 2257 y Fw(.)236 2365 y Fq(PARU\(125\),)54 +b(PARU\(126\))g(:)47 b Fw(\(D=-0.08,-1.\))67 b(v)m(ector)42 +b(and)f(axial)e(couplings)h(of)h(leptons)g(to)709 2473 +y(Z)769 2437 y Fk(0)p Fl(0)827 2473 y Fw(.)236 2582 y +Fq(PARU\(127\),)54 b(PARU\(128\))g(:)47 b Fw(\(D=1.,1.\))41 +b(v)m(ector)30 b(and)e(axial)f(couplings)g(of)h(neutrinos)g(to)g(Z)3694 +2546 y Fk(0)p Fl(0)3752 2582 y Fw(.)236 2690 y Fq(PARU\(129\))54 +b(:)47 b Fw(\(D=1.\))56 b(the)38 b(coupling)d Fj(Z)1847 +2654 y Fk(0)p Fl(0)1941 2690 y Fn(!)g Fw(W)2177 2654 +y Fl(+)2236 2690 y Fw(W)2337 2654 y Fk(\000)2434 2690 +y Fw(is)h(tak)m(en)i(to)f(b)s(e)g Fq(PARU\(129\))p Fn(\002)p +Fw(\(the)709 2798 y(Standard)50 b(Mo)s(del)h(Z)1526 2762 +y Fl(0)1623 2798 y Fn(!)58 b Fw(W)1882 2762 y Fl(+)1942 +2798 y Fw(W)2043 2762 y Fk(\000)2153 2798 y Fw(coupling\))p +Fn(\002)p Fw(\()p Fj(m)2750 2813 y Fl(W)2827 2798 y Fj(=m)2961 +2813 y Fl(Z)3004 2794 y Fd(0)3031 2798 y Fw(\))3069 2762 +y Fl(2)3108 2798 y Fw(.)98 b(This)51 b(giv)m(es)g(a)709 +2907 y(Z)769 2871 y Fk(0)p Fl(0)875 2907 y Fn(!)c Fw(W)1123 +2871 y Fl(+)1183 2907 y Fw(W)1284 2871 y Fk(\000)1388 +2907 y Fw(partial)42 b(width)i(that)g(increases)i(prop)s(ortionately)c +(to)i(the)h(Z)3721 2871 y Fk(0)p Fl(0)709 3015 y Fw(mass.)236 +3123 y Fq(PARU\(130\))54 b(:)47 b Fw(\(D=0.\))i(in)34 +b(the)i(deca)m(y)g(c)m(hain)e(Z)2078 3087 y Fk(0)p Fl(0)2168 +3123 y Fn(!)d Fw(W)2400 3087 y Fl(+)2460 3123 y Fw(W)2561 +3087 y Fk(\000)2652 3123 y Fn(!)g Fw(4)j(fermions,)h(the)g(angular)709 +3232 y(distribution)d(in)h(the)i(W)g(deca)m(ys)h(is)e(supp)s(osed)h(to) +f(b)s(e)g(a)g(mixture,)g(with)g(fraction)709 3340 y Fq(1-PARU\(130\))25 +b Fw(corresp)s(onding)e(to)f(the)h(same)f(angular)g(distribution)e(b)s +(et)m(w)m(een)25 b(the)709 3448 y(four)38 b(\014nal)h(fermions)f(as)h +(in)f(Z)1848 3412 y Fl(0)1926 3448 y Fn(!)g Fw(W)2165 +3412 y Fl(+)2225 3448 y Fw(W)2326 3412 y Fk(\000)2425 +3448 y Fw(\(mixture)g(of)h(transv)m(erse)i(and)e(lon-)709 +3557 y(gitudinal)31 b(W)q('s\),)36 b(and)e(fraction)f +Fq(PARU\(130\))j Fw(corresp)s(onding)e(to)g(H)3259 3521 +y Fl(0)3328 3557 y Fn(!)c Fw(W)3559 3521 y Fl(+)3619 +3557 y Fw(W)3720 3521 y Fk(\000)709 3665 y Fw(the)j(same)f(w)m(a)m(y)i +(\(longitudinal)29 b(W)q('s\).)0 3774 y Fq(PARU\(131\))54 +b(-)d(PARU\(136\))j(:)47 b Fw(couplings)27 b(of)f(a)h(new)h(W)2127 +3737 y Fk(0\006)2206 3774 y Fw(;)h(for)d(fermions)g(default)g(v)-5 +b(alues)27 b(are)g(giv)m(en)472 3882 y(b)m(y)46 b(the)e(Standard)h(Mo)s +(del)f(W)1645 3846 y Fk(\006)1748 3882 y Fw(v)-5 b(alues)45 +b(\(i.e.)78 b Fj(V)51 b Fn(\000)31 b Fj(A)p Fw(\).)79 +b(Note)44 b(that)g(e.g.)79 b(the)45 b(W)3701 3846 y Fk(0\006)472 +3990 y Fw(width)22 b(con)m(tains)h(squared)g(couplings,)g(and)g(th)m +(us)g(dep)s(ends)h(quadratically)c(on)i(the)h(v)-5 b(alues)472 +4099 y(b)s(elo)m(w.)236 4207 y Fq(PARU\(131\),)54 b(PARU\(132\))g(:)47 +b Fw(\(D=1.,-1.\))127 b(v)m(ector)62 b(and)g(axial)d(couplings)h(of)g +(a)h(quark{)709 4315 y(an)m(tiquark)23 b(pair)g(to)g(W)1544 +4279 y Fk(0\006)1623 4315 y Fw(;)j(is)e(further)f(m)m(ultiplied)e(b)m +(y)j(the)g(ordinary)f(CKM)h(factors.)236 4424 y Fq(PARU\(133\),)54 +b(PARU\(134\))g(:)47 b Fw(\(D=1.,-1.\))126 b(v)m(ector)61 +b(and)g(axial)d(couplings)i(of)f(a)h(lepton-)709 4532 +y(neutrino)32 b(pair)f(to)i(W)1520 4496 y Fk(0\006)1598 +4532 y Fw(.)236 4640 y Fq(PARU\(135\))54 b(:)47 b Fw(\(D=1.\))59 +b(the)39 b(coupling)e(W)1880 4604 y Fk(0\006)1995 4640 +y Fn(!)g Fw(Z)2192 4604 y Fl(0)2231 4640 y Fw(W)2332 +4604 y Fk(\006)2430 4640 y Fw(is)g(tak)m(en)i(to)f(b)s(e)g +Fq(PARU\(135\))p Fn(\002)p Fw(\(the)709 4749 y(Standard)48 +b(Mo)s(del)f(W)1561 4712 y Fk(\006)1674 4749 y Fn(!)53 +b Fw(Z)1887 4712 y Fl(0)1926 4749 y Fw(W)2027 4712 y +Fk(\006)2134 4749 y Fw(coupling\))p Fn(\002)p Fw(\()p +Fj(m)2731 4764 y Fl(W)2808 4749 y Fj(=m)2942 4764 y Fh(W)3019 +4745 y Fd(0)3045 4749 y Fw(\))3083 4712 y Fl(2)3123 4749 +y Fw(.)89 b(This)48 b(giv)m(es)g(a)709 4857 y(W)810 4821 +y Fk(0\006)935 4857 y Fn(!)f Fw(Z)1142 4821 y Fl(0)1181 +4857 y Fw(W)1282 4821 y Fk(\006)1385 4857 y Fw(partial)42 +b(width)h(that)h(increases)h(prop)s(ortionately)d(to)h(the)i(W)3756 +4821 y Fk(0)709 4965 y Fw(mass.)236 5074 y Fq(PARU\(136\))54 +b(:)47 b Fw(\(D=0.\))i(in)34 b(the)i(deca)m(y)g(c)m(hain)e(W)2119 +5037 y Fk(0\006)2230 5074 y Fn(!)d Fw(Z)2421 5037 y Fl(0)2460 +5074 y Fw(W)2561 5037 y Fk(\006)2652 5074 y Fn(!)g Fw(4)j(fermions,)h +(the)g(angular)709 5182 y(distribution)23 b(in)h(the)h(W)q +Fj(=)p Fw(Z)g(deca)m(ys)i(is)d(supp)s(osed)j(to)d(b)s(e)i(a)e(mixture,) +i(with)f(fraction)709 5290 y Fq(1-PARU\(130\))48 b Fw(corresp)s(onding) +d(to)g(the)g(same)g(angular)f(distribution)f(b)s(et)m(w)m(een)709 +5399 y(the)e(four)g(\014nal)f(fermions)g(as)i(in)e(W)2076 +5363 y Fk(\006)2178 5399 y Fn(!)h Fw(Z)2379 5363 y Fl(0)2419 +5399 y Fw(W)2520 5363 y Fk(\006)2620 5399 y Fw(\(mixture)f(of)h(transv) +m(erse)i(and)709 5507 y(longitudinal)e(W)q Fj(=)p Fw(Z's\),)48 +b(and)c(fraction)f Fq(PARU\(130\))k Fw(corresp)s(onding)e(to)f(H)3573 +5471 y Fk(\006)3680 5507 y Fn(!)709 5615 y Fw(Z)769 5579 +y Fl(0)808 5615 y Fw(W)909 5579 y Fk(\006)1001 5615 y +Fw(the)33 b(same)f(w)m(a)m(y)i(\(longitudinal)29 b(W)q +Fj(=)p Fw(Z's\).)1817 5953 y(276)p eop +%%Page: 277 283 +277 282 bop 0 -18 a Fq(PARU\(141\))54 b(:)47 b Fw(\(D=5.\))54 +b(tan)16 b Fj(\014)42 b Fw(parameter)36 b(of)f(a)h(t)m(w)m(o)h(Higgs)f +(doublet)g(scenario,)h(i.e.)54 b(the)36 b(ratio)f(of)472 +90 y(v)-5 b(acuum)38 b(exp)s(ectation)g(v)-5 b(alues.)60 +b(This)38 b(a\013ects)h(mass)f(relations)f(and)h(couplings)f(in)g(the) +472 198 y(Higgs)32 b(sector.)0 307 y Fq(PARU\(142\))54 +b(:)47 b Fw(\(D=1.\))56 b(the)38 b(Z)1203 270 y Fl(0)1278 +307 y Fn(!)d Fw(H)1486 270 y Fl(+)1545 307 y Fw(H)1618 +270 y Fk(\000)1714 307 y Fw(coupling)h(is)h(tak)m(en)h(to)f(b)s(e)g +Fq(PARU\(142\))p Fn(\002)p Fw(\(the)j(MSSM)472 415 y(Z)532 +379 y Fl(0)599 415 y Fn(!)27 b Fw(H)799 379 y Fl(+)859 +415 y Fw(H)932 379 y Fk(\000)1023 415 y Fw(coupling\).)0 +523 y Fq(PARU\(143\))54 b(:)47 b Fw(\(D=1.\))52 b(the)37 +b(Z)1198 487 y Fk(0)p Fl(0)1289 523 y Fn(!)c Fw(H)1495 +487 y Fl(+)1554 523 y Fw(H)1627 487 y Fk(\000)1722 523 +y Fw(coupling)i(is)g(tak)m(en)i(to)e(b)s(e)h Fq(PARU\(143\))p +Fn(\002)p Fw(\(the)j(MSSM)472 632 y(Z)532 595 y Fl(0)599 +632 y Fn(!)27 b Fw(H)799 595 y Fl(+)859 632 y Fw(H)932 +595 y Fk(\000)1023 632 y Fw(coupling\).)0 740 y Fq(PARU\(145\))54 +b(:)47 b Fw(\(D=1.\))42 b(quadratically)28 b(m)m(ultiplicativ)m(e)e +(factor)k(in)f(the)h(Z)2769 704 y Fk(0)p Fl(0)2855 740 +y Fn(!)d Fw(Z)3042 704 y Fl(0)3082 740 y Fw(H)3155 704 +y Fl(0)3224 740 y Fw(partial)h(width)472 848 y(in)k(left{righ)m +(t-symmetric)e(mo)s(dels,)h(exp)s(ected)k(to)d(b)s(e)h(unit)m(y)f +(\(see)i([Co)s(c91]\).)0 957 y Fq(PARU\(146\))54 b(:)47 +b Fw(\(D=1.\))h(sin\(2)p Fj(\013)q Fw(\))34 b(parameter,)g(en)m(ters)i +(quadratically)d(as)h(m)m(ultiplicativ)m(e)d(factor)j(in)472 +1065 y(the)e(W)740 1029 y Fk(0\006)847 1065 y Fn(!)27 +b Fw(W)1075 1029 y Fk(\006)1135 1065 y Fw(H)1208 1029 +y Fl(0)1279 1065 y Fw(partial)i(width)i(in)f(left{righ)m(t-symmetric)f +(mo)s(dels)h(\(see)i([Co)s(c91]\).)0 1173 y Fq(PARU\(151\))54 +b(:)47 b Fw(\(D=1.\))74 b(m)m(ultiplicativ)m(e)40 b(factor)i(in)h(the)g +(L)2267 1188 y Fl(Q)2372 1173 y Fn(!)i Fw(q)p Fj(`)e +Fw(squared)i(Y)-8 b(uk)j(a)m(w)m(a)44 b(coupling,)472 +1282 y(and)28 b(thereb)m(y)i(in)d(the)i(L)1339 1297 y +Fl(Q)1426 1282 y Fw(partial)c(width)j(and)g(the)g(q)p +Fj(`)h Fn(!)e Fw(L)2664 1297 y Fl(Q)2751 1282 y Fw(and)h(other)g(cross) +h(sections.)472 1390 y(Sp)s(eci\014cally)-8 b(,)37 b +Fj(\025)1063 1354 y Fl(2)1103 1390 y Fj(=)p Fw(\(4)p +Fj(\031)t Fw(\))e(=)p Fq(PARU\(151\))p Fn(\002)p Fj(\013)2045 +1405 y Fl(em)2142 1390 y Fw(,)j(i.e.)56 b(it)37 b(corresp)s(onds)h(to)f +(the)g Fj(k)j Fw(factor)d(of)472 1498 y([Hew88)q(].)0 +1607 y Fq(PARU\(153\))54 b(:)47 b Fw(\(D=0.\))52 b(anomalous)34 +b(magnetic)h(momen)m(t)g(of)g(the)h(W)2639 1571 y Fk(\006)2699 +1607 y Fw(;)h Fj(\021)g Fw(=)c Fj(\024)25 b Fn(\000)f +Fw(1,)37 b(where)g Fj(\021)g Fw(=)c(0)472 1715 y(\()p +Fj(\024)28 b Fw(=)g(1\))k(is)g(the)h(Standard)g(Mo)s(del)f(v)-5 +b(alue.)0 1823 y Fq(PARU\(155\))54 b(:)47 b Fw(\(D=1000.)42 +b(GeV\))33 b(comp)s(ositeness)f(scale)h(\003.)0 1932 +y Fq(PARU\(156\))54 b(:)47 b Fw(\(D=1.\))e(sign)32 b(of)h(in)m +(terference)h(term)f(b)s(et)m(w)m(een)i(standard)f(cross)g(section)f +(and)h(com-)472 2040 y(p)s(osite)f(term)f(\()p Fj(\021)k +Fw(parameter\);)c(should)g(b)s(e)h Fn(\006)p Fw(1.)0 +2148 y Fq(PARU\(157\))54 b(-)d(PARU\(159\))j(:)47 b Fw(\(D=3*1.\))63 +b(strength)40 b(of)f Fo(SU\(2\))p Fw(,)i Fo(U\(1\))e +Fw(and)g Fo(SU\(3\))g Fw(couplings,)472 2257 y(resp)s(ectiv)m(ely)-8 +b(,)34 b(in)e(an)g(excited)i(fermion)d(scenario;)h(cf.)44 +b Fj(f)11 b Fw(,)32 b Fj(f)2683 2221 y Fk(0)2739 2257 +y Fw(and)g Fj(f)2976 2272 y Fh(s)3046 2257 y Fw(of)g([Bau90].)0 +2365 y Fq(PARU\(161\))54 b(-)d(PARU\(168\))j(:)47 b Fw(\(D=5*1.,3*0.\)) +90 b(m)m(ultiplicativ)m(e)45 b(factors)k(that)f(can)h(b)s(e)g(used)h +(to)472 2473 y(mo)s(dify)43 b(the)i(default)f(couplings)f(of)h(the)h(H) +2148 2437 y Fl(0)2232 2473 y Fw(particle)e(in)g Fm(Pythia)p +Fw(.)79 b(Note)45 b(that)f(the)472 2582 y(factors)24 +b(en)m(ter)i(quadratically)c(in)h(the)i(partial)c(widths.)41 +b(The)25 b(default)f(v)-5 b(alues)24 b(corresp)s(ond)472 +2690 y(to)g(the)f(couplings)g(giv)m(en)h(in)e(the)i(minimal)c +(one-Higgs-doublet)h(Standard)j(Mo)s(del.)236 2798 y +Fq(PARU\(161\))54 b(:)47 b Fw(H)920 2762 y Fl(0)992 2798 +y Fw(coupling)32 b(to)g(do)m(wn)h(t)m(yp)s(e)h(quarks.)236 +2907 y Fq(PARU\(162\))54 b(:)47 b Fw(H)920 2871 y Fl(0)992 +2907 y Fw(coupling)32 b(to)g(up)h(t)m(yp)s(e)g(quarks.)236 +3015 y Fq(PARU\(163\))54 b(:)47 b Fw(H)920 2979 y Fl(0)992 +3015 y Fw(coupling)32 b(to)g(leptons.)236 3123 y Fq(PARU\(164\))54 +b(:)47 b Fw(H)920 3087 y Fl(0)992 3123 y Fw(coupling)32 +b(to)g(Z)1562 3087 y Fl(0)1601 3123 y Fw(.)236 3232 y +Fq(PARU\(165\))54 b(:)47 b Fw(H)920 3196 y Fl(0)992 3232 +y Fw(coupling)32 b(to)g(W)1603 3196 y Fk(\006)1663 3232 +y Fw(.)236 3340 y Fq(PARU\(168\))54 b(:)47 b Fw(H)920 +3304 y Fl(0)1015 3340 y Fw(coupling)54 b(to)h(H)1643 +3304 y Fk(\006)1758 3340 y Fw(in)f Fj(\015)5 b(\015)72 +b Fn(!)66 b Fw(H)2312 3304 y Fl(0)2407 3340 y Fw(lo)s(ops,)60 +b(in)55 b(MSSM)h(sin\()p Fj(\014)43 b Fn(\000)38 b Fj(\013)q +Fw(\))g(+)709 3448 y(cos\(2)p Fj(\014)6 b Fw(\))17 b(sin)o(\()p +Fj(\014)28 b Fw(+)22 b Fj(\013)q Fw(\))p Fj(=)p Fw(\(2)17 +b(cos)1763 3412 y Fl(2)1802 3448 y Fj(\022)1847 3463 +y Fh(W)1928 3448 y Fw(\).)0 3557 y Fq(PARU\(171\))54 +b(-)d(PARU\(178\))j(:)47 b Fw(\(D=7*1.,0.\))42 b(m)m(ultiplicativ)m(e) +28 b(factors)j(that)g(can)g(b)s(e)h(used)g(to)f(mo)s(d-)472 +3665 y(ify)i(the)h(default)f(couplings)g(of)g(the)h(H)1896 +3629 y Fk(0)p Fl(0)1988 3665 y Fw(particle)f(in)g Fm(Pythia)p +Fw(.)46 b(Note)34 b(that)f(the)h(factors)472 3774 y(en)m(ter)48 +b(quadratically)d(in)h(partial)f(widths.)87 b(The)47 +b(default)g(v)-5 b(alues)46 b(for)h Fq(PARU\(171\))53 +b(-)472 3882 y(PARU\(175\))33 b Fw(corresp)s(ond)e(to)f(the)g +(couplings)f(giv)m(en)i(to)e(H)2608 3846 y Fl(0)2678 +3882 y Fw(in)g(the)i(minimal)26 b(one-Higgs-)472 3990 +y(doublet)h(Standard)f(Mo)s(del,)i(and)e(are)h(therefore)g(not)f +(realistic)f(in)h(a)g(t)m(w)m(o-Higgs-doublet)472 4099 +y(scenario.)42 b(The)27 b(default)f(v)-5 b(alues)26 b(should)g(b)s(e)h +(c)m(hanged)g(appropriately)e(b)m(y)i(y)m(ou.)42 b(Also)26 +b(the)472 4207 y(last)g(t)m(w)m(o)i(default)d(v)-5 b(alues)27 +b(should)f(b)s(e)h(c)m(hanged;)j(for)c(these)i(the)f(expressions)h(of)e +(the)h(min-)472 4315 y(imal)37 b(sup)s(ersymmetric)h(Standard)h(Mo)s +(del)g(\(MSSM\))h(are)e(giv)m(en)h(to)g(sho)m(w)h(parameter)472 +4424 y(normalization.)236 4532 y Fq(PARU\(171\))54 b(:)47 +b Fw(H)920 4496 y Fk(0)p Fl(0)1012 4532 y Fw(coupling)31 +b(to)h(do)m(wn)h(t)m(yp)s(e)h(quarks.)236 4640 y Fq(PARU\(172\))54 +b(:)47 b Fw(H)920 4604 y Fk(0)p Fl(0)1012 4640 y Fw(coupling)31 +b(to)h(up)h(t)m(yp)s(e)g(quarks.)236 4749 y Fq(PARU\(173\))54 +b(:)47 b Fw(H)920 4712 y Fk(0)p Fl(0)1012 4749 y Fw(coupling)31 +b(to)h(leptons.)236 4857 y Fq(PARU\(174\))54 b(:)47 b +Fw(H)920 4821 y Fk(0)p Fl(0)1012 4857 y Fw(coupling)31 +b(to)h(Z)1581 4821 y Fl(0)1620 4857 y Fw(.)236 4965 y +Fq(PARU\(175\))54 b(:)47 b Fw(H)920 4929 y Fk(0)p Fl(0)1012 +4965 y Fw(coupling)31 b(to)h Fj(W)1627 4929 y Fk(\006)1686 +4965 y Fw(.)236 5074 y Fq(PARU\(176\))54 b(:)47 b Fw(H)920 +5037 y Fk(0)p Fl(0)1007 5074 y Fw(coupling)27 b(to)h(H)1581 +5037 y Fl(0)1620 5074 y Fw(H)1693 5037 y Fl(0)1733 5074 +y Fw(,)h(in)e(MSSM)i(cos)q(\(2)p Fj(\013)q Fw(\))17 b(cos\()p +Fj(\014)h Fw(+)13 b Fj(\013)q Fw(\))g Fn(\000)g Fw(2)k(sin)o(\(2)p +Fj(\013)q Fw(\))g(sin)o(\()p Fj(\014)i Fw(+)709 5182 +y Fj(\013)q Fw(\).)236 5290 y Fq(PARU\(177\))54 b(:)47 +b Fw(H)920 5254 y Fk(0)p Fl(0)1012 5290 y Fw(coupling)31 +b(to)h(A)1594 5254 y Fl(0)1634 5290 y Fw(A)1707 5254 +y Fl(0)1746 5290 y Fw(,)h(in)f(MSSM)h(cos)q(\(2)p Fj(\014)6 +b Fw(\))17 b(cos)o(\()p Fj(\014)28 b Fw(+)22 b Fj(\013)q +Fw(\).)236 5399 y Fq(PARU\(178\))54 b(:)47 b Fw(H)920 +5363 y Fk(0)p Fl(0)1031 5399 y Fw(coupling)k(to)g(H)1652 +5363 y Fk(\006)1763 5399 y Fw(in)g Fj(\015)5 b(\015)66 +b Fn(!)60 b Fw(H)2302 5363 y Fk(0)p Fl(0)2413 5399 y +Fw(lo)s(ops,)c(in)51 b(MSSM)i(cos\()p Fj(\014)41 b Fn(\000)36 +b Fj(\013)q Fw(\))f Fn(\000)709 5507 y Fw(cos\(2)p Fj(\014)6 +b Fw(\))17 b(cos\()p Fj(\014)27 b Fw(+)22 b Fj(\013)q +Fw(\))p Fj(=)p Fw(\(2)17 b(cos)1774 5471 y Fl(2)1813 +5507 y Fj(\022)1858 5522 y Fh(W)1939 5507 y Fw(\).)0 +5615 y Fq(PARU\(181\))54 b(-)d(PARU\(190\))j(:)47 b Fw +(\(D=3*1.,2*0.,2*1.,3*0.\))78 b(m)m(ultiplicativ)m(e)41 +b(factors)k(that)f(can)h(b)s(e)1817 5953 y(277)p eop +%%Page: 278 284 +278 283 bop 472 -18 a Fw(used)48 b(to)e(mo)s(dify)f(the)i(default)f +(couplings)g(of)g(the)h(A)2531 -55 y Fl(0)2617 -18 y +Fw(particle)e(in)h(PYTHIA.)i(Note)472 90 y(that)37 b(the)g(factors)g +(en)m(ter)h(quadratically)d(in)i(partial)d(widths.)57 +b(The)38 b(default)e(v)-5 b(alues)37 b(for)472 198 y +Fq(PARU\(181\))54 b(-)e(PARU\(183\))34 b Fw(corresp)s(ond)e(to)f(the)h +(couplings)f(giv)m(en)g(to)h(H)3234 162 y Fl(0)3305 198 +y Fw(in)e(the)i(min-)472 307 y(imal)38 b(one-Higgs-doublet)h(Standard)i +(Mo)s(del,)h(and)e(are)h(therefore)g(not)f(realistic)f(in)h(a)472 +415 y(t)m(w)m(o-Higgs-doublet)d(scenario.)61 b(The)39 +b(default)e(v)-5 b(alues)38 b(should)g(b)s(e)h(c)m(hanged)g(appropri-) +472 523 y(ately)29 b(b)m(y)h(y)m(ou.)43 b Fq(PARU\(184\))31 +b Fw(and)e Fq(PARU\(185\))i Fw(should)e(b)s(e)g(v)-5 +b(anishing)28 b(at)g(the)h(tree)h(lev)m(el,)472 632 y(and)37 +b(are)f(so)h(set;)i(normalization)33 b(of)j(these)h(couplings)f(agrees) +h(with)f(what)h(is)e(used)j(for)472 740 y(H)c(and)f(H)842 +704 y Fk(0)p Fl(0)900 740 y Fw(.)45 b(Also)33 b(the)g(other)h(default)e +(v)-5 b(alues)33 b(should)g(b)s(e)g(c)m(hanged;)i(for)d(these)j(the)e +(ex-)472 848 y(pressions)h(of)f(the)h(Minimal)c(Sup)s(ersymmetric)i +(Standard)i(Mo)s(del)e(\(MSSM\))i(are)f(giv)m(en)472 +957 y(to)g(sho)m(w)g(parameter)f(normalization.)236 1065 +y Fq(PARU\(181\))54 b(:)47 b Fw(A)920 1029 y Fl(0)992 +1065 y Fw(coupling)32 b(to)g(do)m(wn)h(t)m(yp)s(e)h(quarks.)236 +1173 y Fq(PARU\(182\))54 b(:)47 b Fw(A)920 1137 y Fl(0)992 +1173 y Fw(coupling)32 b(to)g(up)h(t)m(yp)s(e)g(quarks.)236 +1282 y Fq(PARU\(183\))54 b(:)47 b Fw(A)920 1245 y Fl(0)992 +1282 y Fw(coupling)32 b(to)g(leptons.)236 1390 y Fq(PARU\(184\))54 +b(:)47 b Fw(A)920 1354 y Fl(0)992 1390 y Fw(coupling)32 +b(to)g(Z)1562 1354 y Fl(0)1601 1390 y Fw(.)236 1498 y +Fq(PARU\(185\))54 b(:)47 b Fw(A)920 1462 y Fl(0)992 1498 +y Fw(coupling)32 b(to)g(W)1603 1462 y Fk(\006)1663 1498 +y Fw(.)236 1607 y Fq(PARU\(186\))54 b(:)47 b Fw(A)920 +1571 y Fl(0)992 1607 y Fw(coupling)32 b(to)g(Z)1562 1571 +y Fl(0)1601 1607 y Fw(H)1674 1571 y Fl(0)1746 1607 y +Fw(\(or)g(Z)1963 1571 y Fk(\003)2035 1607 y Fw(to)g(A)2227 +1571 y Fl(0)2267 1607 y Fw(H)2340 1571 y Fl(0)2379 1607 +y Fw(\),)h(in)e(MSSM)j(cos)q(\()p Fj(\014)27 b Fn(\000)c +Fj(\013)q Fw(\).)236 1715 y Fq(PARU\(187\))54 b(:)47 +b Fw(A)920 1679 y Fl(0)992 1715 y Fw(coupling)32 b(to)g(Z)1562 +1679 y Fl(0)1601 1715 y Fw(H)1674 1679 y Fk(0)p Fl(0)1765 +1715 y Fw(\(or)g(Z)1982 1679 y Fk(\003)2054 1715 y Fw(to)g(A)2246 +1679 y Fl(0)2286 1715 y Fw(H)2359 1679 y Fk(0)p Fl(0)2417 +1715 y Fw(\),)h(in)f(MSSM)h(sin\()p Fj(\014)28 b Fn(\000)22 +b Fj(\013)q Fw(\).)236 1823 y Fq(PARU\(188\))54 b(:)47 +b Fw(As)34 b Fq(PARU\(186\))p Fw(,)h(but)d(coupling)g(to)g(Z)2261 +1787 y Fk(0)p Fl(0)2351 1823 y Fw(rather)h(than)g(Z)2932 +1787 y Fl(0)2971 1823 y Fw(.)236 1932 y Fq(PARU\(189\))54 +b(:)47 b Fw(As)34 b Fq(PARU\(187\))p Fw(,)h(but)d(coupling)g(to)g(Z) +2261 1896 y Fk(0)p Fl(0)2351 1932 y Fw(rather)h(than)g(Z)2932 +1896 y Fl(0)2971 1932 y Fw(.)236 2040 y Fq(PARU\(190\))54 +b(:)47 b Fw(A)920 2004 y Fl(0)992 2040 y Fw(coupling)32 +b(to)g(H)1575 2004 y Fk(\006)1667 2040 y Fw(in)f Fj(\015)5 +b(\015)33 b Fn(!)27 b Fw(A)2120 2004 y Fl(0)2192 2040 +y Fw(lo)s(ops,)32 b(0)g(in)g(MSSM.)0 2148 y Fq(PARU\(191\))54 +b(-)d(PARU\(195\))j(:)47 b Fw(\(D=4*0.,1.\))42 b(m)m(ultiplicativ)m(e) +28 b(factors)j(that)g(can)g(b)s(e)h(used)g(to)f(mo)s(d-)472 +2257 y(ify)j(the)h(couplings)e(of)h(the)h(H)1571 2221 +y Fk(\006)1664 2257 y Fw(particle)e(in)g Fm(Pythia)p +Fw(.)49 b(Curren)m(tly)35 b(only)g Fq(PARU\(195\))i Fw(is)472 +2365 y(in)32 b(use.)45 b(See)33 b(ab)s(o)m(v)m(e)h(for)e(related)g +(commen)m(ts.)236 2473 y Fq(PARU\(195\))54 b(:)47 b Fw(H)920 +2437 y Fk(\006)1012 2473 y Fw(coupling)31 b(to)i(W)1623 +2437 y Fk(\006)1682 2473 y Fw(H)1755 2437 y Fl(0)1827 +2473 y Fw(\(or)f(W)2085 2437 y Fk(\003\006)2213 2473 +y Fw(to)g(H)2405 2437 y Fk(\006)2464 2473 y Fw(H)2537 +2437 y Fl(0)2577 2473 y Fw(\),)g(in)g(MSSM)i(cos\()p +Fj(\014)28 b Fn(\000)23 b Fj(\013)q Fw(\).)0 2747 y Fp(14.6)136 +b(F)-11 b(urther)44 b(P)l(arameters)j(and)d(P)l(article)j(Data)0 +2920 y Fw(The)29 b(follo)m(wing)24 b(common)j(blo)s(c)m(ks)h(are)f(ma)m +(yb)s(e)h(of)f(a)g(more)g(p)s(eripheral)f(in)m(terest,)k(with)d(the)h +(exception)0 3028 y(of)g(the)i Fq(MDCY)g Fw(arra)m(y)-8 +b(,)29 b(whic)m(h)h(allo)m(ws)d(a)i(selectiv)m(e)g(inhibiting)d(of)j +(particle)e(deca)m(ys,)32 b(and)d(masses)g(of)g(not)0 +3137 y(y)m(et)34 b(disco)m(v)m(ered)g(particles,)e(suc)m(h)i(as)f +Fq(PMAS\(6,1\))p Fw(,)i(the)e(top)f(quark)h(mass.)p 0 +3281 3132 9 v 0 3506 9 225 v 79 3421 a Fq(COMMON/LUDAT2/KCHG\(500,3)q +(\),PM)q(AS\(5)q(00,4)q(\),P)q(ARF\()q(2000)q(\),VC)q(KM\()q(4,4\))p +3123 3506 V 0 3514 3132 9 v 0 3646 a Fo(Purp)s(ose:)48 +b Fw(to)35 b(giv)m(e)h(access)h(to)e(a)h(n)m(um)m(b)s(er)g(of)f(\015a)m +(v)m(our)i(treatmen)m(t)e(constan)m(ts)i(or)f(parameters)f(and)472 +3754 y(particle/parton)j(data.)62 b(P)m(article)38 b(data)h(is)f +(stored)i(b)m(y)f(compressed)i(co)s(de)e(K)m(C)g(rather)472 +3862 y(than)h(b)m(y)g(the)g(full)e(KF)h(co)s(de.)64 b(Y)-8 +b(ou)39 b(are)h(reminded)f(that)g(the)h(w)m(a)m(y)g(to)g(kno)m(w)g(the) +g(K)m(C)472 3971 y(v)-5 b(alue)32 b(is)h(to)f(use)h(the)g +Fq(LUCOMP)h Fw(function,)f(i.e.)43 b Fq(KC)51 b(=)h(LUCOMP\(KF\))p +Fw(.)0 4133 y Fq(KCHG\(KC,1\))i(:)47 b Fw(three)34 b(times)d +(particle/parton)g(c)m(harge)i(for)f(compressed)i(co)s(de)f(K)m(C.)0 +4242 y Fq(KCHG\(KC,2\))54 b(:)47 b Fw(colour)32 b(information)d(for)k +(compressed)g(co)s(de)g(K)m(C.)236 4350 y Fq(=)52 b(0)f(:)217 +b Fw(colour-singlet)30 b(particle.)236 4458 y Fq(=)52 +b(1)f(:)217 b Fw(quark)33 b(or)f(an)m(tidiquark.)236 +4567 y Fq(=)52 b(-1)g(:)165 b Fw(an)m(tiquark)32 b(or)h(diquark.)236 +4675 y Fq(=)52 b(2)f(:)217 b Fw(gluon.)0 4783 y Fq(KCHG\(KC,3\))54 +b(:)47 b Fw(particle/an)m(tiparticle)30 b(distinction)g(for)i +(compressed)i(co)s(de)f(K)m(C.)236 4892 y Fq(=)52 b(0)f(:)217 +b Fw(the)33 b(particle)e(is)h(its)g(o)m(wn)h(an)m(tiparticle.)236 +5000 y Fq(=)52 b(1)f(:)217 b Fw(a)32 b(noniden)m(tical)f(an)m +(tiparticle)g(exists.)0 5163 y Fq(PMAS\(KC,1\))54 b(:)47 +b Fw(particle/parton)31 b(mass)i Fj(m)g Fw(\(in)e(GeV\))i(for)f +(compressed)i(co)s(de)f(K)m(C.)0 5271 y Fq(PMAS\(KC,2\))54 +b(:)47 b Fw(the)34 b(total)d(width)i(\000)f(\(in)g(GeV\))h(of)g(an)f +(assumed)i(symmetric)e(Breit{Wigner)g(mass)472 5379 y(shap)s(e)i(for)e +(compressed)i(particle)d(co)s(de)i(K)m(C.)0 5488 y Fq(PMAS\(KC,3\))54 +b(:)47 b Fw(the)c(maxim)m(um)c(deviation)i(\(in)g(GeV\))g(from)g(the)h +Fq(PMAS\(KC,1\))i Fw(v)-5 b(alue)42 b(at)f(whic)m(h)472 +5596 y(the)f(Breit{Wigner)d(shap)s(e)j(ab)s(o)m(v)m(e)g(is)e +(truncated.)63 b(\(Is)40 b(used)g(in)e(particle)g(deca)m(ys,)k(but)1817 +5953 y(278)p eop +%%Page: 279 285 +279 284 bop 472 -18 a Fw(not)33 b(in)f(the)h Fm(Pythia)f +Fw(resonance)i(treatmen)m(t;)f(cf.)44 b(the)33 b Fq(CKIN)g +Fw(v)-5 b(ariables.\))0 90 y Fq(PMAS\(KC,4\))54 b(:)47 +b Fw(the)39 b(a)m(v)m(erage)g(lifetime)c Fj(\034)49 b +Fw(for)38 b(compressed)h(particle)e(co)s(de)h(K)m(C,)h(with)e +Fj(c\034)50 b Fw(in)37 b(mm,)472 198 y(i.e.)43 b Fj(\034)h +Fw(in)32 b(units)h(of)f(ab)s(out)g(3)p Fj(:)p Fw(33)21 +b Fn(\002)i Fw(10)1868 162 y Fk(\000)p Fl(12)2030 198 +y Fw(s.)0 361 y Fq(PARF\(1\))53 b(-)f(PARF\(60\))h(:)48 +b Fw(giv)m(e)24 b(a)g(parametrization)e(of)h(the)i(d)p +2356 282 55 4 v(d)q({u)p 2514 308 V(u{s)p 2655 308 39 +4 v(s)g(\015a)m(v)m(our)g(mixing)d(in)i(pro)s(duc-)472 +469 y(tion)36 b(of)g(\015a)m(v)m(our-diagonal)e(mesons.)56 +b(Num)m(b)s(ers)37 b(are)g(stored)g(in)e(groups)i(of)f(10,)h(for)f(the) +472 577 y(six)i(m)m(ultiplets)e(pseudoscalar,)k(v)m(ector,)h(axial)36 +b(v)m(ector)j(\()p Fj(S)k Fw(=)36 b(0\),)j(scalar,)g(axial)d(v)m(ector) +472 686 y(\()p Fj(S)k Fw(=)33 b(1\))j(and)g(tensor,)h(in)e(this)h +(order;)i(see)f(section)f(12.1.2.)53 b(Within)34 b(eac)m(h)j(group,)g +(the)472 805 y(\014rst)30 b(t)m(w)m(o)f(n)m(um)m(b)s(ers)g(determine)f +(the)h(fate)g(of)f(a)g(d)p 2281 726 55 4 v(d)h(\015a)m(v)m(our)h +(state,)g(the)f(second)g(t)m(w)m(o)h(that)472 913 y(of)d(a)g(u)p +708 860 V(u)h(one,)g(the)g(next)g(t)m(w)m(o)g(that)f(of)g(an)g(s)p +2027 860 39 4 v(s)h(one,)h(while)d(the)i(last)e(four)h(are)h(un)m +(used.)43 b(Call)472 1021 y(the)d(n)m(um)m(b)s(ers)f(of)f(a)h(pair)e +Fj(p)1506 1036 y Fl(1)1584 1021 y Fw(and)i Fj(p)1829 +1036 y Fl(2)1868 1021 y Fw(.)62 b(Then)40 b(the)f(probabilit)m(y)d(to)j +(pro)s(duce)g(the)g(state)472 1130 y(with)34 b(smallest)e(KF)h(co)s(de) +h(is)f(1)23 b Fn(\000)g Fj(p)1791 1145 y Fl(1)1831 1130 +y Fw(,)34 b(the)g(probabilit)m(y)d(for)i(the)i(middle)c(one)j(is)f +Fj(p)3528 1145 y Fl(1)3591 1130 y Fn(\000)23 b Fj(p)3740 +1145 y Fl(2)472 1238 y Fw(and)28 b(the)g(probabilit)m(y)d(for)i(the)g +(one)h(with)f(largest)g(co)s(de)g(is)g Fj(p)2681 1253 +y Fl(2)2721 1238 y Fw(,)h(i.e.)41 b Fj(p)2991 1253 y +Fl(1)3058 1238 y Fw(is)27 b(the)g(probabilit)m(y)472 +1346 y(to)33 b(pro)s(duce)g(either)f(of)g(the)h(t)m(w)m(o)h(`hea)m +(vier')f(ones.)0 1455 y Fq(PARF\(61\))53 b(-)f(PARF\(80\))h(:)48 +b Fw(giv)m(e)43 b(\015a)m(v)m(our)g Fo(SU\(6\))g Fw(w)m(eigh)m(ts)h +(for)e(the)h(pro)s(duction)f(of)h(a)f(spin)h(1/2)472 +1563 y(or)38 b(spin)g(3/2)f(bary)m(on)h(from)f(a)g(giv)m(en)h +(diquark{quark)h(com)m(bination.)57 b(Should)38 b(not)f(b)s(e)472 +1671 y(c)m(hanged.)0 1780 y Fq(PARF\(101\))54 b(-)d(PARF\(108\))j(:)47 +b Fw(\014rst)30 b(\014v)m(e)g(con)m(tain)f(d,)h(u,)f(s,)i(c)e(and)g(b)g +(constituen)m(t)h(masses,)g(as)g(to)e(b)s(e)472 1888 +y(used)35 b(in)e(mass)h(form)m(ulae,)e(and)i(should)f(not)h(b)s(e)f(c)m +(hanged.)48 b(F)-8 b(or)33 b(t,)h(l)e(and)i(h)g(masses)g(the)472 +1997 y(curren)m(t)g(v)-5 b(alues)33 b(stored)g(in)f Fq(PMAS\(6,1\))53 +b(-)f(PMAS\(8,1\))35 b Fw(are)d(copied)h(in.)0 2105 y +Fq(PARF\(111\),)54 b(PARF\(112\))g(:)47 b Fw(\(D=0.0,)40 +b(0.11)e(GeV\))h(constan)m(t)g(terms)g(in)f(the)i(mass)f(form)m(ulae)e +(for)472 2213 y(hea)m(vy)c(mesons)e(and)g(bary)m(ons,)h(resp)s(ectiv)m +(ely)g(\(with)f(diquark)g(getting)e(2/3)i(of)f(bary)m(on\).)0 +2322 y Fq(PARF\(113\),)54 b(PARF\(114\))g(:)47 b Fw(\(D=0.16,0.048)h +(GeV\))h(factors)g(whic)m(h,)55 b(together)49 b(with)h(Clebsc)m(h-)472 +2430 y(Gordan)24 b(co)s(e\016cien)m(ts)h(and)f(quark)g(constituen)m(t)h +(masses,)h(determine)e(the)g(mass)g(splitting)472 2538 +y(due)32 b(to)f(spin-spin)f(in)m(teractions)h(for)g(hea)m(vy)h(mesons)g +(and)f(bary)m(ons,)i(resp)s(ectiv)m(ely)-8 b(.)44 b(The)472 +2647 y(latter)32 b(factor)g(is)g(also)g(used)i(for)e(the)h(splitting)d +(b)s(et)m(w)m(een)35 b(spin)d(0)g(and)h(spin)g(1)f(diquarks.)0 +2755 y Fq(PARF\(115\))54 b(-)d(PARF\(118\))j(:)47 b Fw(\(D=0.50,)30 +b(0.45,)g(0.55,)g(0.60)g(GeV\),)g(constan)m(t)h(mass)f(terms,)h(added) +472 2863 y(to)24 b(the)h(constituen)m(t)f(masses,)j(to)d(get)g(the)g +(mass)g(of)g(hea)m(vy)i(mesons)e(with)g(orbital)e(angular)472 +2972 y(momen)m(tum)30 b Fj(L)e Fw(=)f(1.)43 b(The)32 +b(four)e(n)m(um)m(b)s(ers)i(are)e(for)h(pseudo)m(v)m(ector)i(mesons)e +(with)g(quark)472 3080 y(spin)46 b(0,)j(and)d(for)f(scalar,)k(pseudo)m +(v)m(ector)f(and)e(tensor)h(mesons)f(with)f(quark)i(spin)f(1,)472 +3188 y(resp)s(ectiv)m(ely)-8 b(.)0 3297 y Fq(PARF\(121\),)54 +b(PARF\(122\))g(:)47 b Fw(\(D=0.1,)c(0.2)f(GeV\))f(constan)m(t)i +(terms,)h(whic)m(h)e(are)g(subtracted)h(for)472 3405 +y(quark)31 b(and)g(diquark)f(masses,)h(resp)s(ectiv)m(ely)-8 +b(,)32 b(in)d(de\014ning)h(the)h(allo)m(w)m(ed)e(phase)i(space)g(in)472 +3513 y(particle)h(deca)m(ys)i(in)m(to)e(partons.)0 3622 +y Fq(PARF\(201\))54 b(-)d(PARF\(1960\))j(:)48 b Fw(\(D=1760*0\))29 +b(relativ)m(e)j(probabilities)d(for)i(\015a)m(v)m(our)i(pro)s(duction)e +(in)472 3730 y(the)i Fq(MSTJ\(15\)=1)j Fw(option;)31 +b(to)h(b)s(e)h(de\014ned)h(b)m(y)g(y)m(ou)f(b)s(efore)g(an)m(y)h +Fm(Jetset)e Fw(calls.)472 3838 y(The)i(index)f(in)f Fq(PARF)h +Fw(is)f(of)g(the)h(compressed)h(form)472 3947 y(120)22 +b(+)g(80)p Fn(\002)p Fw(KT)-8 b(AB1+25)p Fn(\002)p Fw(KT)g(ABS+KT)g +(AB3.)472 4055 y(Here)27 b(KT)-8 b(AB1)26 b(is)f(the)h(old)f(\015a)m(v) +m(our,)j(\014xed)f(b)m(y)g(preceding)f(fragmen)m(tation)e(history)-8 +b(,)27 b(while)472 4163 y(KT)-8 b(AB3)42 b(is)e(the)i(new)g(\015a)m(v)m +(our,)i(to)d(b)s(e)g(selected)h(according)f(to)g(the)g(relev)-5 +b(an)m(t)41 b(relativ)m(e)472 4272 y(probabilities)25 +b(\(except)k(for)e(the)h(v)m(ery)h(last)e(particle,)g(pro)s(duced)i +(when)f(joining)e(t)m(w)m(o)i(jets,)472 4380 y(where)41 +b(b)s(oth)e(KT)-8 b(AB1)40 b(and)g(KT)-8 b(AB3)39 b(are)h(kno)m(wn\).) +65 b(Only)40 b(the)g(most)e(frequen)m(tly)j(ap-)472 4488 +y(p)s(earing)j(quarks/diquarks)j(are)d(de\014ned,)50 +b(according)44 b(to)g(the)h(co)s(de)g(1)k(=)f(d,)g(2)g(=)g(u,)472 +4597 y(3)36 b(=)f(s,)k(4)c(=)h(c,)j(5)c(=)g(b,)k(6)c(=)h(t,)i(7)d(=)h +(dd)1995 4612 y Fl(1)2035 4597 y Fw(,)i(8)d(=)h(ud)2404 +4612 y Fl(0)2444 4597 y Fw(,)i(9)d(=)h(ud)2813 4612 y +Fl(1)2853 4597 y Fw(,)i(10)d(=)h(uu)3271 4612 y Fl(1)3310 +4597 y Fw(,)j(11)c(=)g(sd)3712 4612 y Fl(0)3752 4597 +y Fw(,)472 4705 y(12)28 b(=)f(sd)793 4720 y Fl(1)833 +4705 y Fw(,)i(13)e(=)h(su)1210 4720 y Fl(0)1250 4705 +y Fw(,)g(14)g(=)f(su)1626 4720 y Fl(1)1666 4705 y Fw(,)i(15)e(=)h(ss) +2027 4720 y Fl(1)2067 4705 y Fw(,)h(16)e(=)g(cd)2448 +4720 y Fl(0)2488 4705 y Fw(,)i(17)e(=)h(cd)2870 4720 +y Fl(1)2910 4705 y Fw(,)g(18)g(=)f(cu)3291 4720 y Fl(0)3331 +4705 y Fw(,)i(19)e(=)g(cu)3712 4720 y Fl(1)3752 4705 +y Fw(,)472 4813 y(20)44 b(=)f(cs)814 4828 y Fl(0)854 +4813 y Fw(,)h(21)g(=)f(cs)1267 4828 y Fl(1)1307 4813 +y Fw(,)h(22)g(=)f(cc)1725 4828 y Fl(1)1765 4813 y Fw(.)72 +b(These)43 b(are)f(th)m(us)h(the)f(only)g(p)s(ossibilities)d(for)i(the) +472 4922 y(new)35 b(\015a)m(v)m(our)g(to)f(b)s(e)g(pro)s(duced;)i(for)d +(an)h(o)s(ccasional)f(old)g(\015a)m(v)m(our)i(not)e(on)h(this)g(list,)f +(the)472 5030 y(ordinary)f(relativ)m(e)g(\015a)m(v)m(our)i(pro)s +(duction)e(probabilities)d(will)i(b)s(e)h(used.)472 5138 +y(Giv)m(en)37 b(the)h(initial)33 b(and)38 b(\014nal)e(\015a)m(v)m(our,) +j(the)f(in)m(termediate)e(hadron)h(that)g(is)g(pro)s(duced)472 +5247 y(is)g(almost)e(\014xed.)58 b(\(Initial)34 b(and)j(\014nal)f +(diquark)h(here)h(corresp)s(onds)g(to)e(`p)s(op)s(corn')h(pro-)472 +5355 y(duction)k(of)f(mesons)h(in)m(termediate)f(b)s(et)m(w)m(een)j(a)d +(bary)m(on)h(and)g(an)g(an)m(tibary)m(on\).)68 b(The)472 +5463 y(additional)30 b(index)j(KT)-8 b(ABS)33 b(giv)m(es)g(the)g(spin)f +(t)m(yp)s(e)i(of)e(this)g(hadron,)h(with)472 5572 y(0)g(=)f +(pseudoscalar)h(meson)g(or)f(\003-lik)m(e)f(spin)i(1/2)e(bary)m(on,) +1817 5953 y(279)p eop +%%Page: 280 286 +280 285 bop 472 -18 a Fw(1)33 b(=)f(v)m(ector)i(meson)e(or)h(\006-lik)m +(e)e(spin)i(1/2)f(bary)m(on,)472 90 y(2)h(=)f(tensor)h(meson)g(or)f +(spin)h(3/2)e(bary)m(on.)472 198 y(\(Some)39 b(meson)g(m)m(ultiplets,)g +(not)g(frequen)m(tly)h(pro)s(duced,)i(are)d(not)g(accessible)h(b)m(y)g +(this)472 307 y(parametrization.\))472 415 y(Note)45 +b(that)f(some)g(com)m(binations)f(of)h(KT)-8 b(AB1,)47 +b(KT)-8 b(AB3)44 b(and)h(KT)-8 b(ABS)45 b(do)f(not)g(cor-)472 +523 y(resp)s(ond)52 b(to)f(a)g(ph)m(ysical)g(particle)e(\(a)i(\003-lik) +m(e)e(bary)m(on)j(m)m(ust)f(con)m(tain)g(three)h(di\013er-)472 +632 y(en)m(t)g(quark)g(\015a)m(v)m(ours,)57 b(a)51 b(\006-lik)m(e)f +(one)h(at)g(least)g(t)m(w)m(o\),)56 b(and)51 b(that)g(y)m(ou)h(m)m(ust) +f(see)h(to)472 740 y(it)44 b(that)h(the)g(corresp)s(onding)i +Fq(PARF)e Fw(en)m(tries)h(are)f(v)-5 b(anishing.)79 b(One)46 +b(additional)c(com-)472 848 y(plication)j(exist)i(when)h(KT)-8 +b(AB3)47 b(and)g(KT)-8 b(AB1)47 b(denote)h(the)g(same)e(\015a)m(v)m +(our)i(con)m(ten)m(t)472 957 y(\(normally)54 b(KT)-8 +b(AB3=KT)g(AB1,)62 b(but)56 b(for)g(diquarks)h(the)f(spin)g(freedom)g +(ma)m(y)g(giv)m(e)472 1065 y(KT)-8 b(AB3=KT)g(AB1)p Fn(\006)p +Fw(1\):)65 b(then)44 b(a)f(\015a)m(v)m(our)h(neutral)e(meson)h(is)g(to) +f(b)s(e)i(pro)s(duced,)i(and)472 1184 y(here)d(d)p 747 +1105 55 4 v(d)q(,)h(u)p 927 1131 V(u)f(and)f(s)p 1261 +1131 39 4 v(s)h(states)g(mix)e(\(hea)m(vier)h(\015a)m(v)m(our)h(states) +g(do)f(not,)j(and)d(these)h(are)472 1292 y(therefore)d(no)g(problem\).) +62 b(F)-8 b(or)39 b(these)i(cases)f(the)g(ordinary)f(KT)-8 +b(AB3)39 b(v)-5 b(alue)39 b(giv)m(es)h(the)472 1401 y(total)35 +b(probabilit)m(y)g(to)h(pro)s(duce)i(either)e(of)g(the)h(mesons)g(p)s +(ossible,)g(while)f(KT)-8 b(AB3=23)472 1509 y(giv)m(es)35 +b(the)f(relativ)m(e)f(probabilit)m(y)f(to)h(pro)s(duce)i(the)f(ligh)m +(test)f(meson)h(state)g(\()p Fj(\031)3375 1473 y Fl(0)3414 +1509 y Fw(,)g Fj(\032)3525 1473 y Fl(0)3565 1509 y Fw(,)g(a)3675 +1473 y Fl(0)3675 1534 y(2)3714 1509 y Fw(\),)472 1617 +y(KT)-8 b(AB3=24)25 b(relativ)m(e)g(probabilit)m(y)e(for)i(the)h +(middle)d(meson)i(\()p Fj(\021)t Fw(,)i Fj(!)t Fw(,)f(f)3036 +1581 y Fl(0)3029 1642 y(2)3075 1617 y Fw(\),)h(and)e(KT)-8 +b(AB3)26 b(=)472 1726 y(25)32 b(relativ)m(e)f(probabilit)m(y)f(for)h +(the)h(hea)m(viest)h(one)f(\()p Fj(\021)2403 1690 y Fk(0)2426 +1726 y Fw(,)g Fj(\036)p Fw(,)g Fj(f)2661 1690 y Fk(0)p +Fl(0)2650 1750 y(2)2719 1726 y Fw(\).)43 b(Note)32 b(that,)g(for)f +(simplic-)472 1834 y(it)m(y)-8 b(,)32 b(these)h(relativ)m(e)e +(probabilities)e(are)i(assumed)i(the)f(same)g(whether)h(initial)27 +b(and)32 b(\014nal)472 1942 y(diquark)g(ha)m(v)m(e)h(the)f(same)f(spin) +g(or)g(not;)h(the)g(total)e(probabilit)m(y)f(ma)m(y)i(w)m(ell)g(b)s(e)h +(assumed)472 2051 y(di\013eren)m(t,)h(ho)m(w)m(ev)m(er.)472 +2159 y(As)38 b(a)f(general)f(commen)m(t,)i(the)f(sum)g(of)43 +b Fq(PARF)38 b Fw(v)-5 b(alues)37 b(for)g(a)f(giv)m(en)i(KT)-8 +b(AB1)37 b(need)h(not)472 2267 y(b)s(e)f(normalized)e(to)h(unit)m(y)-8 +b(,)37 b(but)g(rather)g(the)g(program)e(will)f(\014nd)j(the)g(sum)f(of) +h(relev)-5 b(an)m(t)472 2376 y(w)m(eigh)m(ts)30 b(and)e(normalize)e(to) +j(that.)41 b(The)30 b(same)e(go)s(es)h(for)e(the)i(KT)-8 +b(AB3=23{25)28 b(w)m(eigh)m(ts.)472 2484 y(This)40 b(mak)m(es)h(it)e +(straigh)m(tforw)m(ard)g(to)g(use)i(one)f(common)f(setup)i(of)46 +b Fq(PARF)41 b Fw(v)-5 b(alues)39 b(and)472 2592 y(still)31 +b(switc)m(h)i(b)s(et)m(w)m(een)i(di\013eren)m(t)d Fq(MSTJ\(12\))j +Fw(bary)m(on)e(pro)s(duction)f(mo)s(des.)0 2755 y Fq(VCKM\(I,J\))54 +b(:)47 b Fw(squared)36 b(matrix)d(elemen)m(ts)h(of)g(the)h(Cabibb)s +(o-Koba)m(y)m(ashi-Mask)-5 b(a)m(w)m(a)34 b(\015a)m(v)m(our)h(mix-)472 +2863 y(ing)d(matrix.)236 2972 y Fq(I)52 b(:)319 b Fw(up)33 +b(t)m(yp)s(e)g(generation)f(index,)h(i.e.)43 b(1)27 b(=)h(u,)33 +b(2)27 b(=)h(c,)33 b(3)27 b(=)h(t)k(and)h(4)27 b(=)h(h.)236 +3080 y Fq(J)52 b(:)319 b Fw(do)m(wn)33 b(t)m(yp)s(e)h(generation)d +(index,)i(i.e.)43 b(1)28 b(=)f(d,)33 b(2)28 b(=)f(s,)33 +b(3)28 b(=)f(b)33 b(and)g(4)27 b(=)h(l.)p 0 3224 3337 +9 v 0 3449 9 225 v 79 3364 a Fq(COMMON/LUDAT3/MDCY\(500,3)q(\),MD)q +(ME\(2)q(000,)q(2\),)q(BRAT)q(\(200)q(0\),K)q(FDP)q(\(200)q(0,5\))p +3329 3449 V 0 3457 3337 9 v 0 3589 a Fo(Purp)s(ose:)48 +b Fw(to)k(giv)m(e)g(access)i(to)e(particle)f(deca)m(y)i(data)f(and)g +(parameters.)103 b(In)53 b(particular,)i(the)472 3697 +y Fq(MDCY\(KC,1\))44 b Fw(v)-5 b(ariables)41 b(ma)m(y)g(b)s(e)g(used)i +(to)e(switc)m(h)h(on)g(or)f(o\013)g(the)g(deca)m(y)i(of)e(a)g(giv)m(en) +472 3806 y(particle)36 b(sp)s(ecies,)k(and)e(the)f Fq(MDME\(IDC,1\))j +Fw(ones)f(to)e(switc)m(h)h(on)f(or)g(o\013)g(an)g(individual)472 +3914 y(deca)m(y)f(c)m(hannel)g(of)e(a)g(particle.)49 +b(F)-8 b(or)33 b(quarks,)k(leptons)e(and)f(gauge)h(b)s(osons,)h(a)e(n)m +(um)m(b)s(er)472 4022 y(of)28 b(deca)m(y)i(c)m(hannels)f(are)f +(included)g(that)g(are)g(not)h(allo)m(w)m(ed)e(for)h(on-mass-shell)e +(particles,)472 4131 y(see)35 b Fq(MDME\(IDC,2\)=102)p +Fw(.)49 b(These)35 b(c)m(hannels)f(are)f(not)g(curren)m(tly)h(used)g +(in)f Fm(Jetset)p Fw(,)f(but)472 4239 y(instead)42 b(\014nd)g +(applications)e(in)h Fm(Pythia)p Fw(.)70 b(P)m(article)41 +b(data)g(is)g(stored)i(b)m(y)f(compressed)472 4347 y(co)s(de)35 +b(K)m(C)f(rather)g(than)g(b)m(y)h(the)f(full)e(KF)h(co)s(de.)48 +b(Y)-8 b(ou)34 b(are)f(reminded)h(that)f(the)i(w)m(a)m(y)g(to)472 +4456 y(kno)m(w)f(the)f(K)m(C)g(v)-5 b(alue)32 b(is)g(to)h(use)g(the)g +Fq(LUCOMP)h Fw(function,)e(i.e.)43 b Fq(KC)52 b(=)g(LUCOMP\(KF\))p +Fw(.)0 4618 y Fq(MDCY\(KC,1\))i(:)47 b Fw(switc)m(h)27 +b(to)f(tell)f(whether)i(a)f(particle)f(with)h(compressed)i(co)s(de)e(K) +m(C)h(ma)m(y)f(b)s(e)g(allo)m(w)m(ed)472 4727 y(to)33 +b(deca)m(y)h(or)e(not.)236 4835 y Fq(=)52 b(0)f(:)217 +b Fw(the)33 b(particle)e(is)h(not)g(allo)m(w)m(ed)g(to)h(deca)m(y)-8 +b(.)236 4943 y Fq(=)52 b(1)f(:)217 b Fw(the)29 b(particle)g(is)f(allo)m +(w)m(ed)h(to)g(deca)m(y)i(\(if)d(deca)m(y)j(information)26 +b(is)j(de\014ned)i(b)s(elo)m(w)e(for)709 5052 y(the)k(particle\).)0 +5160 y Fq(MDCY\(KC,2\))54 b(:)47 b Fw(giv)m(es)32 b(the)f(en)m(try)h(p) +s(oin)m(t)e(in)m(to)g(the)h(deca)m(y)h(c)m(hannel)f(table)f(for)h +(compressed)h(particle)472 5268 y(co)s(de)h(K)m(C.)h(Is)f(0)f(if)f(no)i +(deca)m(y)h(c)m(hannels)f(ha)m(v)m(e)h(b)s(een)g(de\014ned.)0 +5377 y Fq(MDCY\(KC,3\))54 b(:)47 b Fw(giv)m(es)36 b(the)g(total)d(n)m +(um)m(b)s(er)j(of)e(deca)m(y)j(c)m(hannels)f(de\014ned)h(for)d +(compressed)j(particle)472 5485 y(co)s(de)g(K)m(C,)f(indep)s(enden)m +(tly)h(of)e(whether)i(they)g(ha)m(v)m(e)g(b)s(een)f(assigned)g(a)g +(non-v)-5 b(anishing)472 5593 y(branc)m(hing)55 b(ratio)e(or)h(not.)108 +b(Th)m(us)56 b(the)f(deca)m(y)h(c)m(hannels)f(are)g(found)f(in)g(p)s +(ositions)1817 5953 y(280)p eop +%%Page: 281 287 +281 286 bop 472 -18 a Fq(MDCY\(KC,2\))36 b Fw(to)c Fq +(MDCY\(KC,2\)+MDCY\(KC,3\)-1)p Fw(.)0 144 y Fq(MDME\(IDC,1\))54 +b(:)48 b Fw(on/o\013)38 b(switc)m(h)i(for)e(individual)e(deca)m(y)k(c)m +(hannel)g(IDC.)f(In)g(addition,)g(a)f(c)m(hannel)472 +252 y(ma)m(y)45 b(b)s(e)f(left)g(selectiv)m(ely)h(op)s(en;)50 +b(this)45 b(has)f(some)h(sp)s(ecial)e(applications)g(in)g +Fm(Pythia)472 361 y Fw(whic)m(h)36 b(are)e(not)h(curren)m(tly)h(used)f +(in)f Fm(Jetset)p Fw(.)49 b(E\013ectiv)m(e)36 b(branc)m(hing)f(ratios)f +(are)g(auto-)472 469 y(matically)42 b(recalculated)i(for)h(the)g(deca)m +(y)h(c)m(hannels)g(left)e(op)s(en.)80 b(Also)44 b(pro)s(cess)j(cross) +472 577 y(sections)55 b(are)e(a\013ected;)65 b(see)55 +b(section)f(7.6.2.)106 b(If)53 b(a)h(particle)e(is)h(allo)m(w)m(ed)g +(to)g(deca)m(y)472 686 y(b)m(y)c(the)g Fq(MDCY\(KC,1\))h +Fw(v)-5 b(alue,)51 b(at)d(least)f(one)h(c)m(hannel)h(m)m(ust)f(b)s(e)g +(left)f(op)s(en)h(b)m(y)h(y)m(ou.)472 794 y(A)d(list)f(of)h(deca)m(y)h +(c)m(hannels)g(with)e(curren)m(t)j(IDC)e(n)m(um)m(b)s(ers)g(ma)m(y)g(b) +s(e)g(obtained)g(with)472 902 y Fq(LULIST\(12\))p Fw(.)236 +1011 y Fq(=)52 b(-1)g(:)165 b Fw(this)35 b(is)f(a)h(non-Standard)h(Mo)s +(del)e(deca)m(y)j(mo)s(de,)e(whic)m(h)h(b)m(y)g(default)f(is)g(assumed) +709 1119 y(not)40 b(to)h(exist.)68 b(Normally)-8 b(,)41 +b(this)f(option)g(is)g(used)i(for)e(deca)m(ys)j(in)m(v)m(olving)d +(fourth)709 1227 y(generation)32 b(or)g(H)1378 1191 y +Fk(\006)1469 1227 y Fw(particles.)236 1336 y Fq(=)52 +b(0)f(:)217 b Fw(c)m(hannel)33 b(is)f(switc)m(hed)i(o\013.)236 +1444 y Fq(=)52 b(1)f(:)217 b Fw(c)m(hannel)33 b(is)f(switc)m(hed)i(on.) +236 1552 y Fq(=)52 b(2)f(:)217 b Fw(c)m(hannel)31 b(is)f(switc)m(hed)i +(on)f(for)f(a)h(particle)f(but)h(o\013)f(for)g(an)h(an)m(tiparticle.)41 +b(It)31 b(is)f(also)709 1661 y(on)i(for)g(a)g(particle)g(its)g(o)m(wn)h +(an)m(tiparticle,)e(i.e.)43 b(here)33 b(it)f(means)g(the)h(same)g(as)f +Fq(=1)p Fw(.)236 1769 y Fq(=)52 b(3)f(:)217 b Fw(c)m(hannel)35 +b(is)f(switc)m(hed)i(on)f(for)f(an)g(an)m(tiparticle)f(but)i(o\013)g +(for)f(a)g(particle.)49 b(It)35 b(is)f(o\013)709 1878 +y(for)e(a)g(particle)f(its)h(o)m(wn)i(an)m(tiparticle.)236 +1986 y Fq(=)52 b(4)f(:)217 b Fw(in)40 b(the)h(pro)s(duction)f(of)h(a)f +(pair)g(of)h(equal)f(or)h(c)m(harge)g(conjugate)g(resonances)i(in)709 +2094 y Fm(Pythia)p Fw(,)e(sa)m(y)g(H)1372 2058 y Fl(0)1451 +2094 y Fn(!)f Fw(W)1692 2058 y Fl(+)1751 2094 y Fw(W)1852 +2058 y Fk(\000)1912 2094 y Fw(,)h(either)f(one)g(of)f(the)h(resonances) +i(is)d(allo)m(w)m(ed)g(to)709 2203 y(deca)m(y)48 b(according)e(to)h +(this)g(group)g(of)f(c)m(hannels,)52 b(but)47 b(not)g(b)s(oth.)86 +b(If)47 b(the)h(t)m(w)m(o)709 2311 y(particles)27 b(of)g(the)i(pair)e +(are)h(di\013eren)m(t,)h(the)f(c)m(hannel)h(is)e(on.)42 +b(Within)27 b Fm(Jetset)p Fw(,)h(this)709 2419 y(option)j(only)h(means) +h(that)f(the)h(c)m(hannel)g(is)f(switc)m(hed)i(o\013.)236 +2528 y Fq(=)52 b(5)f(:)217 b Fw(as)29 b Fq(=4)p Fw(,)h(but)f(an)g +(indep)s(enden)m(t)h(group)f(of)g(c)m(hannels,)h(suc)m(h)h(that)d(in)h +(a)f(pair)g(of)h(equal)709 2636 y(or)46 b(c)m(harge)h(conjugate)f +(resonances)i(the)f(deca)m(y)h(of)d(either)i(resonance)g(ma)m(y)f(b)s +(e)709 2744 y(sp)s(eci\014ed)31 b(indep)s(enden)m(tly)-8 +b(.)44 b(If)31 b(the)g(t)m(w)m(o)h(particles)e(in)g(the)i(pair)e(are)g +(di\013eren)m(t,)i(the)709 2853 y(c)m(hannel)h(is)g(o\013.)45 +b(Within)32 b Fm(Jetset)p Fw(,)h(this)g(option)f(only)h(means)g(that)g +(the)h(c)m(hannel)709 2961 y(is)e(switc)m(hed)i(o\013.)236 +3069 y Fo(W)-9 b(arning:)47 b Fw(the)31 b(t)m(w)m(o)h(v)-5 +b(alues)30 b(-1)g(and)h(0)g(ma)m(y)f(lo)s(ok)g(similar,)e(but)j(in)f +(fact)h(are)f(quite)h(di\013eren)m(t.)709 3178 y(In)g(neither)g(case)h +(the)g(c)m(hannel)f(so)g(set)h(is)f(generated,)h(but)f(in)g(the)g +(latter)f(case)i(the)709 3286 y(c)m(hannel)23 b(still)d(con)m(tributes) +k(to)e(the)h(total)f(width)g(of)g(a)h(resonance,)j(and)d(th)m(us)h +(a\013ects)709 3394 y(b)s(oth)29 b(sim)m(ulated)g(line)f(shap)s(e)i +(and)g(the)g(generated)h(cross)g(section)e(when)i Fm(Pythia)709 +3503 y Fw(is)g(run.)43 b(The)33 b(v)-5 b(alue)31 b(0)g(is)g +(appropriate)g(to)g(a)g(c)m(hannel)h(w)m(e)h(assume)f(exists,)g(ev)m +(en)i(if)709 3611 y(w)m(e)i(are)f(not)g(curren)m(tly)h(sim)m(ulating)c +(it,)j(while)f(-1)g(should)h(b)s(e)h(used)g(for)f(c)m(hannels)709 +3719 y(w)m(e)d(b)s(eliev)m(e)f(do)g(not)g(exist.)43 b(In)31 +b(particular,)f(y)m(ou)i(are)f(w)m(arned)h(un)m(wittingly)e(to)h(set) +709 3828 y(fourth)i(generation)g(c)m(hannels)i(0)e(\(rather)h(than)g +(-1\),)f(since)h(b)m(y)h(no)m(w)f(the)g(supp)s(ort)709 +3936 y(for)e(a)g(fourth)g(generation)g(is)g(small.)236 +4044 y Fo(Remark:)54 b Fw(all)24 b(the)j(options)e(ab)s(o)m(v)m(e)j(ma) +m(y)e(b)s(e)g(freely)h(mixed.)41 b(The)27 b(di\013erence,)h(for)e +(those)h(cases)709 4153 y(where)39 b(b)s(oth)e(mak)m(e)h(sense,)j(b)s +(et)m(w)m(een)f(using)d(v)-5 b(alues)38 b(2)f(and)h(3)g(and)f(using)h +(4)f(and)709 4261 y(5)k(is)h(that)g(the)g(latter)f(automatically)e +(include)i(c)m(harge)i(conjugate)f(states,)j(e.g.)709 +4369 y(H)782 4333 y Fl(0)849 4369 y Fn(!)27 b Fw(W)1077 +4333 y Fl(+)1137 4369 y Fw(W)1238 4333 y Fk(\000)1325 +4369 y Fn(!)g Fw(e)1495 4333 y Fl(+)1555 4369 y Fj(\027)1603 +4384 y Fh(e)1640 4369 y Fw(d)p 1694 4317 55 4 v(u)j(or)p +1895 4290 V 30 w(d)q(ue)2047 4333 y Fk(\000)p 2106 4317 +V 2106 4369 a Fj(\027)2161 4384 y Fh(e)2198 4369 y Fw(,)g(but)h(the)f +(former)g(only)f(one)i(of)f(them.)42 b(In)709 4478 y(calculations)27 +b(of)i(the)g(join)m(t)g(branc)m(hing)g(ratio,)f(this)h(mak)m(es)h(a)f +(factor)g(2)g(di\013erence.)236 4586 y Fo(Example:)47 +b Fw(to)30 b(illustrate)f(the)j(ab)s(o)m(v)m(e)f(options,)g(consider)h +(the)f(case)h(of)e(a)h(W)3117 4550 y Fl(+)3177 4586 y +Fw(W)3278 4550 y Fk(\000)3368 4586 y Fw(pair.)42 b(One)709 +4694 y(migh)m(t)31 b(then)i(set)g(the)g(follo)m(wing)d(com)m(bination)h +(of)h(switc)m(hes)i(for)e(the)h(W)q(:)1817 5953 y(281)p +eop +%%Page: 282 288 +282 287 bop 758 -30 a Fw(c)m(hannel)101 b(v)-5 b(alue)99 +b(commen)m(t)866 90 y(u)p 920 11 55 4 v(d)292 b(1)185 +b(allo)m(w)m(ed)32 b(for)g(W)2097 54 y Fl(+)2189 90 y +Fw(and)g(W)2479 54 y Fk(\000)2571 90 y Fw(in)g(an)m(y)i(com)m +(bination,)873 211 y(u)p 927 158 39 4 v(s)301 b(0)185 +b(nev)m(er)34 b(pro)s(duced)f(but)g(con)m(tributes)g(to)g(W)h(width,) +871 331 y(c)p 914 252 55 4 v(d)298 b(2)185 b(allo)m(w)m(ed)32 +b(for)g(W)2097 295 y Fl(+)2189 331 y Fw(only)-8 b(,)879 +451 y(c)p 922 398 39 4 v(s)306 b(3)185 b(allo)m(w)m(ed)32 +b(for)g(W)2097 415 y Fk(\000)2189 451 y Fw(only)-8 b(,)32 +b(i.e.)43 b(prop)s(erly)32 b(W)3081 415 y Fk(\000)3168 +451 y Fn(!)p 3296 398 44 4 v 28 w Fw(cs,)874 572 y(t)p +912 493 55 4 v(b)300 b(0)185 b(nev)m(er)34 b(pro)s(duced)f(but)g(con)m +(tributes)g(to)g(W)h(width)1500 692 y(if)d(the)i(c)m(hannel)g(is)f +(kinematically)e(allo)m(w)m(ed,)827 812 y Fj(\027)875 +827 y Fl(e)910 812 y Fw(e)953 776 y Fl(+)1266 812 y Fw(4)185 +b(allo)m(w)m(ed)32 b(for)g(one)g(of)g(W)2386 776 y Fl(+)2479 +812 y Fw(or)g(W)2699 776 y Fk(\000)2758 812 y Fw(,)h(but)g(not)f(b)s +(oth,)813 933 y Fj(\027)861 948 y Fh(\026)908 933 y Fj(\026)967 +897 y Fl(+)1266 933 y Fw(4)185 b(allo)m(w)m(ed)32 b(for)g(one)g(of)g(W) +2386 897 y Fl(+)2479 933 y Fw(or)g(W)2699 897 y Fk(\000)2758 +933 y Fw(,)h(but)g(not)f(b)s(oth,)1500 1053 y(and)g(not)h(in)f(com)m +(bination)e(with)i Fj(\027)2802 1068 y Fl(e)2838 1053 +y Fw(e)2881 1017 y Fl(+)2940 1053 y Fw(,)818 1174 y Fj(\027)866 +1189 y Fh(\034)909 1174 y Fj(\034)962 1137 y Fl(+)1266 +1174 y Fw(5)185 b(allo)m(w)m(ed)32 b(for)g(the)h(other)f(W)q(,)h(but)g +(not)g(b)s(oth,)812 1294 y Fj(\027)860 1309 y Fh(\037)908 +1294 y Fj(\037)969 1258 y Fk(\000)1227 1294 y Fn(\000)p +Fw(1)147 b(not)32 b(pro)s(duced)i(and)e(do)s(es)h(not)g(con)m(tribute)f +(to)h(W)h(width.)709 1421 y(A)43 b(W)926 1384 y Fl(+)986 +1421 y Fw(W)1087 1384 y Fk(\000)1190 1421 y Fw(\014nal)f(state)i(u)p +1721 1341 V(d)30 b(+)p 1911 1368 44 4 v 30 w(cs)44 b(is)f(allo)m(w)m +(ed,)i(but)f(not)f(its)g(c)m(harge)h(conjugate)p 709 +1476 55 4 v 709 1529 a(ud)33 b(+)g(c)p 1002 1476 39 4 +v(s)q(,)52 b(since)d(the)g(latter)e(deca)m(y)j(mo)s(de)d(is)h(not)g +(allo)m(w)m(ed)g(for)g(a)g(W)3434 1493 y Fl(+)3494 1529 +y Fw(.)91 b(The)709 1637 y(com)m(bination)41 b Fj(\027)1323 +1652 y Fl(e)1359 1637 y Fw(e)1402 1601 y Fl(+)1491 1637 +y Fw(+)35 b(\026)-54 b Fj(\027)1645 1652 y Fh(\034)1688 +1637 y Fj(\034)1741 1601 y Fk(\000)1844 1637 y Fw(is)43 +b(allo)m(w)m(ed,)j(since)e(the)g(t)m(w)m(o)h(c)m(hannels)f(b)s(elong)f +(to)709 1746 y(di\013eren)m(t)38 b(groups,)h(but)g(not)e +Fj(\027)1858 1761 y Fl(e)1894 1746 y Fw(e)1937 1709 y +Fl(+)2022 1746 y Fw(+)32 b(\026)-55 b Fj(\027)2172 1761 +y Fh(\026)2219 1746 y Fj(\026)2278 1709 y Fk(\000)2336 +1746 y Fw(,)40 b(where)f(b)s(oth)f(b)s(elong)f(to)g(the)i(same.)709 +1868 y(Both)32 b(u)p 1005 1788 55 4 v(d)23 b(+)k(\026)-54 +b Fj(\027)1228 1883 y Fh(\034)1271 1868 y Fj(\034)1324 +1831 y Fk(\000)1416 1868 y Fw(and)p 1606 1815 V 33 w(ud)22 +b(+)g Fj(\027)1882 1883 y Fh(\034)1926 1868 y Fj(\034)1979 +1831 y Fl(+)2071 1868 y Fw(are)32 b(allo)m(w)m(ed,)g(since)h(there)h +(is)e(no)g(clash.)44 b(The)709 1976 y(full)25 b(ruleb)s(o)s(ok,)j(for)e +(this)h(case,)j(is)c(giv)m(en)i(b)m(y)g(eq.)g(\(95\).)41 +b(A)28 b(term)e Fj(r)3097 1940 y Fl(2)3094 2001 y Fh(i)3164 +1976 y Fw(means)h(c)m(hannel)709 2084 y Fj(i)39 b Fw(is)g(allo)m(w)m +(ed)g(for)f(W)1496 2048 y Fl(+)1595 2084 y Fw(and)h(W)1892 +2048 y Fk(\000)1991 2084 y Fw(sim)m(ultaneously)-8 b(,)40 +b(a)f(term)g Fj(r)3053 2099 y Fh(i)3081 2084 y Fj(r)3125 +2099 y Fh(j)3201 2084 y Fw(that)g(c)m(hannels)709 2193 +y Fj(i)e Fw(and)h Fj(j)43 b Fw(ma)m(y)37 b(b)s(e)h(com)m(bined,)g(and)g +(a)f(term)g(2)p Fj(r)2492 2208 y Fh(i)2520 2193 y Fj(r)2564 +2208 y Fh(j)2638 2193 y Fw(that)g(c)m(hannels)h Fj(i)g +Fw(and)f Fj(j)44 b Fw(ma)m(y)709 2301 y(b)s(e)35 b(com)m(bined)f(t)m(w) +m(o)i(w)m(a)m(ys,)h(i.e.)49 b(that)35 b(also)f(a)g(c)m(harge)h +(conjugate)g(com)m(bination)e(is)709 2409 y(allo)m(w)m(ed.)0 +2518 y Fq(MDME\(IDC,2\))54 b(:)48 b Fw(information)26 +b(on)j(sp)s(ecial)f(matrix-elemen)m(t)f(treatmen)m(t)i(for)f(deca)m(y)j +(c)m(hannel)e(IDC.)472 2626 y(In)43 b(addition)e(to)h(the)h(outline)f +(b)s(elo)m(w,)j(sp)s(ecial)c(rules)i(apply)f(for)g(the)h(order)g(in)f +(whic)m(h)472 2734 y(deca)m(y)h(pro)s(ducts)g(should)e(b)s(e)h(giv)m +(en,)i(so)d(that)h(matrix)e(elemen)m(ts)i(and)f(colour)g(\015o)m(w)h +(is)472 2843 y(prop)s(erly)34 b(treated.)49 b(One)35 +b(suc)m(h)g(example)f(is)g(the)g(w)m(eak)i(matrix)c(elemen)m(ts,)j +(whic)m(h)g(only)472 2951 y(will)j(b)s(e)j(correct)g(if)e(deca)m(y)i +(pro)s(ducts)g(are)f(giv)m(en)h(in)e(the)i(righ)m(t)e(order.)67 +b(The)41 b(program)472 3059 y(do)s(es)e(not)g(p)s(olice)e(this,)j(so)e +(if)g(y)m(ou)h(in)m(tro)s(duce)f(c)m(hannels)i(of)e(y)m(our)h(o)m(wn)g +(and)g(use)g(these)472 3168 y(co)s(des,)34 b(y)m(ou)f(should)g(b)s(e)f +(guided)h(b)m(y)g(the)g(existing)f(particle)f(data.)236 +3276 y Fq(=)52 b(0)f(:)217 b Fw(no)43 b(sp)s(ecial)g(matrix-elemen)m(t) +e(treatmen)m(t;)50 b(partons)43 b(and)h(particles)f(are)h(copied)709 +3384 y(directly)d(to)h(the)g(ev)m(en)m(t)i(record,)h(with)c(momen)m +(tum)g(distributed)g(according)h(to)709 3493 y(phase)33 +b(space.)236 3601 y Fq(=)52 b(1)f(:)217 b Fj(!)35 b Fw(and)e +Fj(\036)f Fw(deca)m(ys)j(in)m(to)d(three)h(pions,)f(eq.)45 +b(\(205\).)236 3709 y Fq(=)52 b(2)f(:)217 b Fj(\031)768 +3673 y Fl(0)840 3709 y Fw(or)32 b Fj(\021)k Fw(Dalitz)30 +b(deca)m(y)k(to)e Fj(\015)5 b Fw(e)1823 3673 y Fl(+)1883 +3709 y Fw(e)1926 3673 y Fk(\000)1985 3709 y Fw(,)33 b(eq.)g(\(207\).) +236 3818 y Fq(=)52 b(3)f(:)217 b Fw(used)52 b(for)f(v)m(ector)i(meson)f +(deca)m(ys)h(in)m(to)e(t)m(w)m(o)h(pseudoscalars,)58 +b(to)51 b(signal)f(non-)709 3926 y(isotropic)31 b(deca)m(y)j(angle)e +(according)f(to)i(eq.)44 b(\(206\),)32 b(where)i(relev)-5 +b(an)m(t.)236 4034 y Fq(=)52 b(4)f(:)217 b Fw(deca)m(y)41 +b(of)e(a)g(spin)g(1)g(onium)f(resonance)j(to)e(three)h(gluons)f(or)h +(to)f(a)g(photon)g(and)709 4143 y(t)m(w)m(o)e(gluons,)g(eq.)g(\(44\).) +55 b(The)37 b(gluons)f(ma)m(y)h(subsequen)m(tly)i(dev)m(elop)e(a)f(sho) +m(w)m(er)j(if)709 4251 y Fq(MSTJ\(23\)=1)p Fw(.)236 4359 +y Fq(=)52 b(11)g(:)165 b Fw(phase-space)34 b(pro)s(duction)e(of)g +(hadrons)h(from)e(the)i(quarks)h(a)m(v)-5 b(ailable.)236 +4468 y Fq(=)52 b(12)g(:)165 b Fw(as)32 b Fq(=11)p Fw(,)i(but)f(for)f +(onia)f(resonances,)j(with)f(the)g(option)e(of)h(mo)s(difying)e(the)j +(m)m(ulti-)709 4576 y(plicit)m(y)e(distribution)f(separately)-8 +b(.)236 4684 y Fq(=)52 b(13)g(:)165 b Fw(as)32 b Fq(=11)p +Fw(,)h(but)f(at)f(least)h(three)g(hadrons)h(to)e(b)s(e)h(pro)s(duced)h +(\(useful)f(when)h(the)f(t)m(w)m(o-)709 4793 y(b)s(o)s(dy)g(deca)m(ys)j +(are)d(giv)m(en)h(explicitly\).)236 4901 y Fq(=)52 b(14)g(:)165 +b Fw(as)32 b Fq(=11)p Fw(,)i(but)f(at)f(least)g(four)g(hadrons)h(to)g +(b)s(e)f(pro)s(duced.)236 5009 y Fq(=)52 b(15)g(:)165 +b Fw(as)32 b Fq(=11)p Fw(,)i(but)f(at)f(least)g(\014v)m(e)i(hadrons)f +(to)f(b)s(e)h(pro)s(duced.)236 5118 y Fq(=)52 b(22)g(-)f(30)h(:)47 +b Fw(phase-space)f(pro)s(duction)d(of)g(hadrons)i(from)d(the)j(quarks)g +(a)m(v)-5 b(ailable,)44 b(with)709 5226 y(the)33 b(m)m(ultiplicit)m(y)c +(\014xed)k(to)g(b)s(e)f Fq(MDME\(IDC,2\)-20)p Fw(,)37 +b(i.e.)43 b(2{10.)236 5335 y Fq(=)52 b(31)g(:)165 b Fw(t)m(w)m(o)22 +b(or)g(more)f(quarks)i(and)f(particles)f(are)h(distributed)f(according) +g(to)h(phase)g(space.)709 5443 y(If)46 b(three)i(or)e(more)g(pro)s +(ducts,)51 b(the)d(last)e(pro)s(duct)h(is)f(a)g(sp)s(ectator)i(quark,)j +(i.e.)709 5551 y(sitting)31 b(at)h(rest)h(with)f(resp)s(ect)i(to)e(the) +h(deca)m(ying)g(hadron.)236 5660 y Fq(=)52 b(32)g(:)165 +b Fw(a)45 b(q)p 854 5607 52 4 v(q)h(or)f(gg)h(pair,)h(distributed)e +(according)f(to)h(phase)h(space)g(\(in)f(angle\),)i(and)1817 +5953 y(282)p eop +%%Page: 283 289 +283 288 bop 709 -18 a Fw(allo)m(w)m(ed)32 b(to)g(dev)m(elop)h(a)f(sho)m +(w)m(er)j(if)j Fq(MSTJ\(23\)=1)p Fw(.)236 90 y Fq(=)52 +b(33)g(:)165 b Fw(a)32 b(triplet)f(q)p Fj(X)p 1228 37 +52 4 v 8 w Fw(q,)i(where)h Fj(X)40 b Fw(is)32 b(either)g(a)g(gluon)g +(or)g(a)g(colour-singlet)e(particle;)h(the)709 198 y(\014nal)37 +b(particle)g(\()p 1327 145 V(q)q(\))h(is)g(assumed)h(to)f(sit)g(at)g +(rest)h(with)f(resp)s(ect)i(to)e(the)h(deca)m(ying)709 +307 y(hadron,)h(and)e(the)h(t)m(w)m(o)h(\014rst)f(particles)e(\(q)i +(and)g Fj(X)8 b Fw(\))38 b(are)h(allo)m(w)m(ed)e(to)i(dev)m(elop)g(a) +709 415 y(sho)m(w)m(er)34 b(if)k Fq(MSTJ\(23\)=1)p Fw(.)236 +523 y Fq(=)52 b(41)g(:)165 b Fw(w)m(eak)46 b(deca)m(y)-8 +b(,)50 b(where)d(particles)d(are)h(distributed)g(according)g(to)g +(phase)h(space,)709 632 y(m)m(ultiplied)31 b(b)m(y)36 +b(a)f(factor)g(from)e(the)j(exp)s(ected)h(shap)s(e)e(of)g(the)g(momen)m +(tum)f(sp)s(ec-)709 740 y(trum)e(of)g(the)h(direct)f(pro)s(duct)h(of)f +(the)h(w)m(eak)h(deca)m(y)g(\(the)f Fj(\027)2922 755 +y Fh(\034)2998 740 y Fw(in)e Fj(\034)44 b Fw(deca)m(y\).)236 +848 y Fq(=)52 b(42)g(:)165 b Fw(w)m(eak)44 b(deca)m(y)g(matrix)d +(elemen)m(t)i(for)f(quarks)i(and)f(leptons.)74 b(Pro)s(ducts)44 +b(ma)m(y)e(b)s(e)709 957 y(giv)m(en)30 b(either)h(in)e(terms)i(of)f +(quarks)i(or)e(hadrons,)h(or)g(leptons)f(for)g(some)g(c)m(hannels.)709 +1065 y(If)47 b(the)g(sp)s(ectator)g(system)h(is)f(giv)m(en)g(in)f +(terms)h(of)g(quarks,)52 b(it)46 b(is)g(assumed)i(to)709 +1173 y(collapse)38 b(in)m(to)h(one)g(particle)f(from)h(the)g(onset.)65 +b(If)39 b(the)h(virtual)e(W)j(deca)m(ys)g(in)m(to)709 +1282 y(quarks,)31 b(these)f(quarks)g(are)f(con)m(v)m(erted)i(to)e +(particles,)g(according)f(to)h(phase)g(space)709 1390 +y(in)i(the)i(W)i(rest)e(frame,)f(as)g(in)g Fq(=11)p Fw(.)44 +b(Is)34 b(in)m(tended)f(for)f Fj(\034)11 b Fw(,)33 b(c)m(harm)f(and)h +(b)s(ottom.)236 1498 y Fq(=)52 b(43)g(:)165 b Fw(as)34 +b Fq(=42)p Fw(,)g(but)g(if)f(the)h(W)h(deca)m(ys)h(in)m(to)c(quarks,)k +(these)f(will)c(either)j(app)s(ear)f(as)h(jets)709 1607 +y(or,)e(for)g(small)e(masses,)k(collapse)d(in)m(to)h(a)g(one-)h(or)f(t) +m(w)m(o-b)s(o)s(dy)h(system.)236 1715 y Fq(=)52 b(44)g(:)165 +b Fw(w)m(eak)35 b(deca)m(y)h(matrix)d(elemen)m(t)h(for)g(quarks)h(and)g +(leptons,)g(where)g(the)g(sp)s(ectator)709 1823 y(system)h(ma)m(y)f +(collapse)f(in)m(to)h(one)g(particle)f(for)h(a)g(small)e(in)m(v)-5 +b(arian)m(t)34 b(mass.)52 b(If)35 b(the)709 1932 y(\014rst)26 +b(t)m(w)m(o)g(deca)m(y)i(pro)s(ducts)e(are)g(a)g(q)p +2024 1879 V(q)2076 1896 y Fk(0)2125 1932 y Fw(pair,)g(they)h(ma)m(y)e +(dev)m(elop)i(a)e(parton)h(sho)m(w)m(er)709 2040 y(if)42 +b Fq(MSTJ\(23\)=1)p Fw(.)58 b(Is)37 b(in)m(tended)g(for)f(top)h(and)f +(b)s(ey)m(ond,)j(but)e(largely)e(sup)s(erseded)709 2148 +y(b)m(y)e(the)g(follo)m(wing)d(option.)236 2257 y Fq(=)52 +b(45)g(:)165 b Fw(w)m(eak)34 b(deca)m(y)h(q)30 b Fn(!)f +Fw(Wq)1586 2221 y Fk(0)1644 2257 y Fw(or)k Fj(`)c Fn(!)g +Fw(W)q Fj(\027)2112 2272 y Fh(`)2146 2257 y Fw(,)k(where)i(the)f(W)h +(is)e(registered)h(as)g(a)f(deca)m(y)709 2365 y(pro)s(duct)44 +b(and)g(subsequen)m(tly)j(treated)d(with)g Fq(MDME=46)p +Fw(.)79 b(T)-8 b(o)44 b(distinguish)f(from)709 2473 y(ordinary)34 +b(W)q('s)h(on)g(the)g(mass)f(shell,)h(co)s(de)g(KF=)30 +b Fn(\006)p Fw(89)35 b(is)f(used.)50 b(The)36 b(virtual)d(W)709 +2582 y(mass)k(is)g(selected)i(according)e(to)g(the)h(standard)g(w)m +(eak)h(deca)m(y)g(matrix)d(elemen)m(t,)709 2690 y(times)g(the)h(W)h +(propagator)e(\(for)g Fq(MSTJ\(25\)=1)p Fw(\).)59 b(There)38 +b(ma)m(y)f(b)s(e)g(t)m(w)m(o)g(or)g(three)709 2798 y(deca)m(y)k(pro)s +(ducts;)k(if)38 b(a)i(third)f(this)h(is)f(a)h(sp)s(ectator)h(tak)m(en)f +(to)g(sit)g(at)f(rest.)67 b(The)709 2907 y(sp)s(ectator)32 +b(system)h(ma)m(y)f(collapse)f(in)m(to)h(one)g(particle.)42 +b(Is)33 b(in)m(tended)g(for)e(top)h(and)709 3015 y(b)s(ey)m(ond.)236 +3123 y Fq(=)52 b(46)g(:)165 b Fw(W)23 b(\(KF)f(=)f(89\))h(deca)m(y)h +(in)m(to)f(q)p 1786 3071 V(q)1838 3087 y Fk(0)1883 3123 +y Fw(or)g Fj(`\027)2081 3138 y Fh(`)2136 3123 y Fw(according)f(to)h +(relativ)m(e)f(probabilities)e(giv)m(en)709 3232 y(b)m(y)24 +b(couplings)e(\(as)h(stored)h(in)e(the)h Fq(BRAT)i Fw(v)m(ector\))f +(times)e(a)h(dynamical)e(phase-space)709 3340 y(factor)41 +b(giv)m(en)g(b)m(y)h(the)g(curren)m(t)g(W)h(mass.)70 +b(In)42 b(the)g(deca)m(y)-8 b(,)44 b(the)e(correct)g +Fj(V)50 b Fn(\000)28 b Fj(A)709 3448 y Fw(angular)k(distribution)f(is)i +(generated)h(if)e(the)i(W)h(origin)c(is)i(kno)m(wn)i(\(hea)m(vy)g +(quark)709 3557 y(or)29 b(lepton\).)42 b(This)31 b(is)e(therefore)i +(the)f(second)i(step)f(of)e(a)h(deca)m(y)h(with)f Fq(MDME=45)p +Fw(.)44 b(A)709 3665 y(q)p 760 3612 V(q)812 3629 y Fk(0)867 +3665 y Fw(pair)32 b(ma)m(y)g(subsequen)m(tly)k(dev)m(elop)d(a)f(sho)m +(w)m(er)i(if)39 b Fq(MSTJ\(23\)=1)p Fw(.)236 3774 y Fq(=)52 +b(48)g(:)165 b Fw(as)32 b Fq(=42)p Fw(,)i(but)f(require)g(at)f(least)g +(three)h(deca)m(y)h(pro)s(ducts.)236 3882 y Fq(=)52 b(84)g(-)f(88)h(:) +47 b Fw(map)38 b(the)g(deca)m(y)i(of)d(this)h(particle)f(on)m(to)h(the) +g(generic)g(c,)i(b,)g(t,)f(l)e(or)h(h)g(deca)m(y)709 +3990 y(mo)s(des)32 b(de\014ned)i(for)e(K)m(C=84{88.)236 +4099 y Fq(=)52 b(101)g(:)114 b Fw(this)36 b(is)h(not)f(a)h(prop)s(er)g +(deca)m(y)h(c)m(hannel,)g(but)f(only)g(to)f(b)s(e)h(considered)h(as)f +(a)g(con-)709 4207 y(tin)m(uation)29 b(line)g(for)h(the)g(deca)m(y)i +(pro)s(duct)f(listing)d(of)i(the)h(immediately)c(preceding)709 +4315 y(c)m(hannel.)43 b(Since)31 b(the)h Fq(KFDP)g Fw(arra)m(y)f(can)h +(con)m(tain)e(\014v)m(e)j(deca)m(y)f(pro)s(ducts)g(p)s(er)f(c)m(han-) +709 4424 y(nel,)h(with)h(this)f(co)s(de)h(it)f(is)g(p)s(ossible)h(to)f +(de\014ne)i(c)m(hannels)g(with)e(up)h(to)g(ten)g(deca)m(y)709 +4532 y(pro)s(ducts.)52 b(It)36 b(is)f(not)g(allo)m(w)m(ed)g(to)g(ha)m +(v)m(e)h(sev)m(eral)g(con)m(tin)m(uation)f(lines)f(after)i(eac)m(h)709 +4640 y(other.)236 4749 y Fq(=)52 b(102)g(:)114 b Fw(this)23 +b(is)g(not)g(a)h(prop)s(er)f(deca)m(y)i(c)m(hannel)f(for)f(a)g(deca)m +(ying)h(particle)e(on)i(the)g(mass)f(shell)709 4857 y(\(or)29 +b(nearly)h(so\),)g(and)g(is)g(therefore)g(assigned)h(branc)m(hing)e +(ratio)g(0.)42 b(F)-8 b(or)29 b(a)h(particle)709 4965 +y(o\013)41 b(the)h(mass)g(shell,)h(this)f(deca)m(y)h(mo)s(de)e(is)g +(allo)m(w)m(ed,)j(ho)m(w)m(ev)m(er.)73 b(By)42 b(including)709 +5074 y(this)36 b(c)m(hannel)h(among)e(the)i(others,)i(the)e(switc)m +(hes)h Fq(MDME\(IDC,1\))h Fw(ma)m(y)e(b)s(e)f(used)709 +5182 y(to)i(allo)m(w)f(or)i(forbid)e(these)j(c)m(hannels)g(in)e(hard)g +(pro)s(cesses,)43 b(with)38 b(cross)i(sections)709 5290 +y(to)31 b(b)s(e)g(calculated)g(separately)-8 b(.)43 b(As)32 +b(an)g(example,)f Fj(\015)i Fn(!)27 b Fw(u)p 2862 5237 +55 4 v(u)32 b(is)f(not)g(p)s(ossible)g(for)g(a)709 5399 +y(massless)i(photon,)f(but)h(is)f(an)h(allo)m(w)m(ed)f(c)m(hannel)h(in) +e(e)2724 5363 y Fl(+)2784 5399 y Fw(e)2827 5363 y Fk(\000)2919 +5399 y Fw(annihilation.)0 5561 y Fq(BRAT\(IDC\))54 b(:)47 +b Fw(giv)m(e)e(branc)m(hing)g(ratios)f(for)h(the)h(di\013eren)m(t)f +(deca)m(y)i(c)m(hannels.)82 b(In)45 b(principle,)i(the)1817 +5953 y(283)p eop +%%Page: 284 290 +284 289 bop 472 -18 a Fw(sum)40 b(of)f(branc)m(hing)h(ratios)e(for)h(a) +g(giv)m(en)h(particle)f(should)g(b)s(e)h(unit)m(y)-8 +b(.)64 b(Since)40 b(the)g(pro-)472 90 y(gram)h(an)m(yw)m(a)m(y)j(has)e +(to)g(calculate)f(the)h(sum)g(of)f(branc)m(hing)h(ratios)f(left)g(op)s +(en)h(b)m(y)h(the)472 198 y Fq(MDME\(IDC,1\))32 b Fw(v)-5 +b(alues)29 b(and)g(normalize)d(to)j(that,)g(y)m(ou)g(need)h(not)f +(explicitly)e(ensure)j(this)472 307 y(normalization,)h(ho)m(w)m(ev)m +(er.)51 b(\(W)-8 b(arnings)34 b(are)g(prin)m(ted)h(in)e +Fq(LUUPDA\(2\))k Fw(calls)c(if)g(the)i(sum)472 415 y(is)27 +b(not)h(unit)m(y)-8 b(,)28 b(but)g(this)f(is)g(en)m(tirely)g(in)m +(tended)i(as)e(a)h(help)f(for)g(\014nding)g(user)h(mist)m(ypings.\))472 +523 y(F)-8 b(or)32 b(deca)m(y)i(c)m(hannels)g(with)e +Fq(MDME\(IDC,2\))p Fj(>)e Fw(80)i(the)h Fq(BRAT)h Fw(v)-5 +b(alues)32 b(are)h(dumm)m(y)-8 b(.)0 686 y Fq(KFDP\(IDC,J\))54 +b(:)48 b Fw(con)m(tain)33 b(the)h(deca)m(y)h(pro)s(ducts)g(in)e(the)h +(di\013eren)m(t)g(c)m(hannels,)h(with)f(\014v)m(e)h(p)s(ositions)472 +794 y Fq(J=)d Fw(1{5)e(reserv)m(ed)j(for)d(eac)m(h)h(c)m(hannel)h(IDC.) +e(The)i(deca)m(y)g(pro)s(ducts)g(are)e(giv)m(en)h(follo)m(wing)472 +902 y(the)26 b(standard)f(KF)f(co)s(de)h(for)f(jets)h(and)g(particles,) +h(with)e(0)h(for)f(trailing)d(empt)m(y)26 b(p)s(ositions.)472 +1011 y(Note)32 b(that)f(the)g Fq(MDME\(IDC+1,2\)=101)36 +b Fw(option)30 b(allo)m(ws)g(y)m(ou)i(to)e(double)h(the)h(maxim)m(um) +472 1119 y(n)m(um)m(b)s(er)i(of)f(deca)m(y)h(pro)s(duct)g(in)e(a)h(giv) +m(en)g(c)m(hannel)h(from)e(5)h(to)g(10,)g(with)f(the)i(\014v)m(e)g +(latter)472 1227 y(pro)s(ducts)g(stored)f Fq(KFDP\(IDC+1,J\))p +Fw(.)p 0 1372 1338 9 v 0 1730 9 359 v 79 1518 a Fq +(COMMON/LUDAT4/CHAF\(500\))79 1627 y(CHARACTER)54 b(CHAF*8)p +1329 1730 V 0 1738 1338 9 v 0 1870 a Fo(Purp)s(ose:)48 +b Fw(to)32 b(giv)m(e)h(access)h(to)e(c)m(haracter)h(t)m(yp)s(e)h(v)-5 +b(ariables.)0 2033 y Fq(CHAF)52 b(:)165 b Fw(particle)32 +b(names)g(\(excluding)h(c)m(harge\))g(according)f(to)g(K)m(C)h(co)s +(de.)0 2307 y Fp(14.7)136 b(Miscellaneous)46 b(Commen)l(ts)0 +2479 y Fw(The)30 b(previous)g(sections)g(ha)m(v)m(e)g(dealt)f(with)g +(the)g(subroutine)h(options)e(and)i(v)-5 b(ariables)27 +b(one)j(at)f(a)g(time.)0 2588 y(This)i(is)g(certainly)f(imp)s(ortan)m +(t,)f(but)j(for)e(a)h(full)e(use)j(of)f(the)g(capabilities)e(of)h(the)i +(program,)e(it)g(is)g(also)0 2696 y(necessary)39 b(to)d(understand)j +(ho)m(w)e(to)f(mak)m(e)h(di\013eren)m(t)g(pieces)h(w)m(ork)f(together.) +56 b(This)37 b(is)f(something)0 2804 y(that)24 b(cannot)g(b)s(e)g +(explained)f(fully)g(in)g(a)h(man)m(ual,)g(but)g(m)m(ust)g(also)f(b)s +(e)h(learn)m(t)f(b)m(y)i(trial)d(and)i(error.)40 b(This)0 +2913 y(section)28 b(con)m(tains)g(some)g(examples)h(of)e(relationships) +g(b)s(et)m(w)m(een)j(subroutines,)g(common)d(blo)s(c)m(ks)h(and)0 +3021 y(parameters.)58 b(It)38 b(also)f(con)m(tains)g(commen)m(ts)h(on)f +(issues)i(that)e(did)g(not)g(\014t)h(in)f(naturally)e(an)m(ywhere)0 +3129 y(else,)e(but)g(still)d(migh)m(t)h(b)s(e)i(useful)f(to)h(ha)m(v)m +(e)h(on)e(record.)0 3377 y Fo(14.7.1)113 b(In)m(terfacing)36 +b(to)h(detector)g(sim)m(ulation)0 3550 y Fw(V)-8 b(ery)34 +b(often,)f(the)h(output)f(of)g(the)g(program)f(is)h(to)f(b)s(e)i(fed)f +(in)m(to)f(a)h(subsequen)m(t)j(detector)e(sim)m(ulation)0 +3658 y(program.)89 b(It)49 b(therefore)g(b)s(ecomes)g(necessary)h(to)e +(set)h(up)g(an)f(in)m(terface)h(b)s(et)m(w)m(een)h(the)f +Fq(LUJETS)0 3766 y Fw(common)35 b(blo)s(c)m(k)h(and)g(the)h(detector)g +(mo)s(del.)53 b(Preferrably)36 b(this)g(should)h(b)s(e)f(done)h(via)e +(the)i Fq(HEPEVT)0 3875 y Fw(standard)c(common)f(blo)s(c)m(k,)h(see)h +(section)f(5.4,)f(but)h(sometimes)f(this)h(ma)m(y)f(not)h(b)s(e)g(con)m +(v)m(enien)m(t.)46 b(If)33 b(a)0 3983 y Fq(LUEDIT\(2\))24 +b Fw(call)c(is)i(made,)i(the)e(remaining)e(en)m(tries)i(exactly)g +(corresp)s(ond)h(to)f(those)g(an)g(ideal)f(detector)0 +4091 y(could)35 b(see:)49 b(all)33 b(non-deca)m(y)m(ed)k(particles,)e +(with)g(the)g(exception)h(of)f(neutrinos.)51 b(The)36 +b(translation)d(of)0 4200 y(momen)m(ta)27 b(should)g(b)s(e)h(trivial)d +(\(if)i(need)i(b)s(e,)g(a)e Fq(LUROBO)j Fw(call)c(can)i(b)s(e)g(made)f +(to)h(rotate)f(the)h(`preferred')0 4308 y Fj(z)42 b Fw(direction)35 +b(to)i(whatev)m(er)i(is)d(the)h(longitudinal)d(direction)h(of)i(the)g +(detector\),)i(and)e(so)g(should)g(the)0 4416 y(translation)d(of)i +(particle)f(co)s(des.)55 b(In)36 b(particular,)f(if)g(the)i(detector)g +(sim)m(ulation)c(program)i(also)g(uses)0 4525 y(the)42 +b(standard)f(P)m(article)g(Data)f(Group)h(co)s(des,)j(no)d(con)m(v)m +(ersion)i(at)d(all)g(is)g(needed.)71 b(The)43 b(problem)0 +4633 y(then)35 b(is)g(to)f(select)h(whic)m(h)g(particles)f(are)h(allo)m +(w)m(ed)f(to)g(deca)m(y)-8 b(,)37 b(and)e(ho)m(w)g(deca)m(y)h(v)m +(ertex)h(information)0 4742 y(should)32 b(b)s(e)h(used.)146 +4850 y(Sev)m(eral)26 b(switc)m(hes)h(regulate)e(whic)m(h)g(particles)g +(are)g(allo)m(w)m(ed)g(to)g(deca)m(y)-8 b(.)42 b(First,)26 +b(the)g(master)f(switc)m(h)0 4958 y Fq(MSTJ\(21\))40 +b Fw(can)f(b)s(e)f(used)i(to)e(switc)m(h)h(on/o\013)e(all)f(deca)m(ys)k +(\(and)f(it)e(also)g(con)m(tains)h(a)g(c)m(hoice)h(of)f(ho)m(w)0 +5067 y(fragmen)m(tation)c(should)j(b)s(e)f(in)m(terfaced\).)55 +b(Second,)38 b(a)e(particle)f(m)m(ust)i(ha)m(v)m(e)g(deca)m(y)h(mo)s +(des)e(de\014ned)0 5175 y(for)g(it,)i(i.e.)56 b(the)37 +b(corresp)s(onding)i Fq(MDCY\(KC,2\))g Fw(and)e Fq(MDCY\(KC,3\))j +Fw(en)m(tries)e(m)m(ust)f(b)s(e)g(non-zero)g(for)0 5283 +y(compressed)44 b(co)s(de)e Fq(KC)52 b(=)f(LUCOMP\(KF\))p +Fw(.)45 b(This)e(is)e(true)i(for)f(all)e(colour)h(neutral)g(particles)h +(except)0 5392 y(the)37 b(neutrinos,)h(the)f(photon,)h(the)g(proton)e +(and)h(the)g(neutron.)57 b(\(This)37 b(statemen)m(t)g(is)f(actually)g +(not)0 5500 y(fully)d(correct,)i(since)f(irrelev)-5 b(an)m(t)33 +b(`deca)m(y)i(mo)s(des')f(with)g Fq(MDME\(IDC,2\)=102)k +Fw(exist)c(in)f(some)h(cases.\))1817 5953 y(284)p eop +%%Page: 285 291 +285 290 bop 0 -18 a Fw(Third,)36 b(the)g(individual)d(switc)m(h)k(in)d +Fq(MDCY\(KC,1\))39 b Fw(m)m(ust)c(b)s(e)h(on.)52 b(Of)36 +b(all)d(the)j(particles)f(with)g(deca)m(y)0 90 y(mo)s(des)d(de\014ned,) +i(only)e Fj(\026)937 54 y Fk(\006)996 90 y Fw(,)h Fj(\031)1115 +54 y Fk(\006)1174 90 y Fw(,)f(K)1309 54 y Fk(\006)1401 +90 y Fw(and)g(K)1666 54 y Fl(0)1666 114 y(L)1747 90 y +Fw(are)h(b)m(y)g(default)f(considered)h(stable.)146 198 +y(Finally)-8 b(,)39 b(if)46 b Fq(MSTJ\(22\))41 b Fw(do)s(es)f(not)g(ha) +m(v)m(e)h(its)e(default)g(v)-5 b(alue)39 b(1,)i(c)m(hec)m(ks)i(are)c +(also)g(made)g(on)h(the)0 307 y(lifetime)22 b(of)j(a)g(particle)f(b)s +(efore)i(it)e(is)h(allo)m(w)m(ed)g(to)g(deca)m(y)-8 b(.)42 +b(In)26 b(the)f(simplest)g(alternativ)m(e,)h Fq(MSTJ\(22\)=2)p +Fw(,)0 415 y(the)36 b(comparison)e(is)g(based)i(on)f(the)h(a)m(v)m +(erage)g(lifetime,)d(or)i(rather)g Fj(c\034)11 b Fw(,)36 +b(measured)g(in)e(mm.)50 b(Th)m(us)37 b(if)0 523 y(the)i(limit)c +Fq(PARJ\(71\))40 b Fw(is)e(\(the)h(default\))f(10)g(mm,)g(then)h(deca)m +(ys)i(of)d(K)2651 487 y Fl(0)2651 548 y(S)2694 523 y +Fw(,)i(\003,)g(\006)2966 487 y Fk(\000)3025 523 y Fw(,)g(\006)3162 +487 y Fl(+)3221 523 y Fw(,)g(\004)3353 487 y Fk(\000)3413 +523 y Fw(,)f(\004)3544 487 y Fl(0)3622 523 y Fw(and)0 +632 y(\012)70 595 y Fk(\000)164 632 y Fw(are)34 b(all)f(switc)m(hed)i +(o\013,)g(but)f(c)m(harm)h(and)f(b)s(ottom)f(still)f(deca)m(y)-8 +b(.)50 b(No)34 b Fj(c\034)46 b Fw(v)-5 b(alues)35 b(b)s(elo)m(w)f(1)g +(micron)0 740 y(are)f(de\014ned.)47 b(With)33 b(the)g(t)m(w)m(o)h +(options)f Fq(MSTJ\(22\)=)i Fw(3)e(or)g(4,)g(a)g(spherical)g(or)g +(cylindrical)d(v)m(olume)j(is)0 848 y(de\014ned)h(around)f(the)g +(origin,)d(and)j(all)d(deca)m(ys)35 b(taking)c(place)i(inside)f(this)g +(v)m(olume)g(are)h(ignored.)146 957 y(Whenev)m(er)39 +b(a)e(particle)e(is)i(in)f(principle)f(allo)m(w)m(ed)h(to)g(deca)m(y)-8 +b(,)40 b(i.e.)55 b Fq(MSTJ\(21\))39 b Fw(and)e Fq(MDCY)h +Fw(on,)g(an)0 1065 y(prop)s(er)30 b(lifetime)d(is)j(selected)h(once)g +(and)f(for)f(all)f(and)i(stored)h(in)e Fq(V\(I,5\))p +Fw(.)45 b(The)31 b Fq(K\(I,1\))g Fw(is)f(then)g(also)0 +1173 y(c)m(hanged)38 b(to)f(4.)57 b(F)-8 b(or)36 b Fq(MSTJ\(22\)=1)p +Fw(,)41 b(suc)m(h)e(a)e(particle)f(will)e(also)j(deca)m(y)-8 +b(,)39 b(but)f(else)f(it)f(could)h(remain)0 1282 y(in)k(the)i(ev)m(en)m +(t)g(record.)72 b(It)42 b(is)g(then)g(p)s(ossible,)i(at)e(a)f(later)g +(stage,)k(to)c(expand)i(the)g(v)m(olume)e(inside)0 1390 +y(whic)m(h)d(deca)m(ys)h(are)f(allo)m(w)m(ed,)g(and)f(do)h(a)f(new)j +Fq(LUEXEC)f Fw(call)c(to)i(ha)m(v)m(e)i(particles)e(ful\014lling)d(the) +k(new)0 1498 y(conditions)33 b(\(but)h(not)g(the)h(old\))e(deca)m(y)-8 +b(.)49 b(As)34 b(a)g(further)h(option,)e(the)h Fq(K\(I,1\))i +Fw(co)s(de)e(ma)m(y)g(b)s(e)h(put)f(to)0 1607 y(5,)h(signalling)30 +b(that)35 b(the)f(particle)f(will)f(de\014nitely)j(deca)m(y)g(in)f(the) +h(next)g Fq(LUEXEC)h Fw(call,)d(at)h(the)h(v)m(ertex)0 +1715 y(p)s(osition)c(giv)m(en)h(\(b)m(y)i(the)f(user\))g(in)f(the)h +Fq(V)g Fw(v)m(ector.)146 1823 y(This)38 b(then)g(allo)m(ws)f(the)h +Fm(Jetset)f Fw(deca)m(y)i(routines)e(to)h(b)s(e)g(used)g(inside)f(a)h +(detector)g(sim)m(ulation)0 1932 y(program,)c(as)h(follo)m(ws.)49 +b(F)-8 b(or)34 b(a)h(particle)e(whic)m(h)j(did)e(not)g(deca)m(y)j(b)s +(efore)e(en)m(tering)f(the)i(detector,)g(its)0 2040 y(p)s(oin)m(t)h(of) +g(deca)m(y)j(is)d(still)e(w)m(ell)i(de\014ned)j(\(in)d(the)h(absence)h +(of)f(de\015ections)g(b)m(y)h(electric)e(or)h(magnetic)0 +2148 y(\014elds\),)32 b(eq.)h(\(204\).)42 b(If)32 b(it)f(in)m(teracts)h +(b)s(efore)f(that)h(p)s(oin)m(t,)f(the)h(detector)h(sim)m(ulation)c +(program)h(is)h(left)0 2257 y(to)h(handle)g(things.)43 +b(If)33 b(not,)f(the)h Fq(V)f Fw(v)m(ector)i(is)e(up)s(dated)h +(according)e(to)h(the)h(form)m(ula)e(ab)s(o)m(v)m(e,)i +Fq(K\(I,1\))0 2365 y Fw(is)26 b(set)h(to)e(5,)j(and)e +Fq(LUEXEC)h Fw(is)f(called,)g(to)g(giv)m(e)g(a)g(set)h(of)f(deca)m(y)h +(pro)s(ducts,)h(that)e(can)h(again)d(b)s(e)j(trac)m(k)m(ed.)146 +2473 y(A)41 b(further)h(p)s(ossibilit)m(y)d(is)h(to)h(force)g +(particles)g(to)f(deca)m(y)j(in)m(to)d(sp)s(eci\014c)i(deca)m(y)h(c)m +(hannels;)j(this)0 2582 y(ma)m(y)33 b(b)s(e)h(particularly)d(in)m +(teresting)i(for)f(c)m(harm)h(or)g(b)s(ottom)f(ph)m(ysics.)47 +b(The)35 b(c)m(hoice)e(of)g(c)m(hannels)h(left)0 2690 +y(op)s(en)43 b(is)f(determined)g(b)m(y)h(the)g(v)-5 b(alues)43 +b(of)f(the)g(switc)m(hes)i Fq(MDME\(IDC,1\))i Fw(for)c(deca)m(y)i(c)m +(hannel)e(IDC)0 2798 y(\(use)33 b Fq(LULIST\(12\))j Fw(to)c(obtain)f +(the)i(full)e(listing\).)41 b(One)33 b(or)f(sev)m(eral)h(c)m(hannels)h +(ma)m(y)e(b)s(e)h(left)e(op)s(en;)i(in)0 2907 y(the)f(latter)f(case)i +(e\013ectiv)m(e)g(branc)m(hing)f(ratios)f(are)h(automatically)c +(recalculated)k(without)f(the)h(need)0 3015 y(for)j(y)m(our)i(in)m +(terv)m(en)m(tion.)54 b(It)36 b(is)g(also)f(p)s(ossible)g(to)h +(di\013eren)m(tiate)f(b)s(et)m(w)m(een)j(whic)m(h)e(c)m(hannels)h(are)f +(left)0 3123 y(op)s(en)31 b(for)g(particles)f(and)h(whic)m(h)h(for)f +(an)m(tiparticles.)41 b(Lifetimes)30 b(are)h(not)g(a\013ected)h(b)m(y)g +(the)f(exclusion)0 3232 y(of)j(some)f(deca)m(y)j(c)m(hannels.)48 +b(Note)35 b(that,)f(whereas)h(forced)g(deca)m(ys)h(can)e(enhance)h(the) +g(e\016ciency)g(for)0 3340 y(sev)m(eral)27 b(kinds)g(of)f(studies,)j +(it)d(can)g(also)g(in)m(tro)s(duce)h(unexp)s(ected)i(biases,)f(in)e +(particular)e(when)k(ev)m(en)m(ts)0 3448 y(ma)m(y)k(con)m(tain)g(sev)m +(eral)i(particles)e(with)g(forced)h(deca)m(ys,)h(cf.)44 +b(section)33 b(7.6.2.)0 3696 y Fo(14.7.2)113 b(P)m(arameter)36 +b(v)-6 b(alues)0 3869 y Fw(A)45 b(non-trivial)d(question)k(is)e(to)h +(kno)m(w)h(whic)m(h)f(parameter)g(v)-5 b(alues)45 b(to)g(use.)81 +b(The)46 b(default)f(v)-5 b(alues)0 3977 y(stored)40 +b(in)f(the)g(program)f(are)i(based)g(on)f(comparisons)g(with)g(LEP)h(e) +2648 3941 y Fl(+)2708 3977 y Fw(e)2751 3941 y Fk(\000)2849 +3977 y Fn(!)f Fw(Z)3048 3941 y Fl(0)3126 3977 y Fw(data)g(at)g(around)0 +4086 y(91)47 b(GeV)g([LEP90)q(],)k(using)c(a)g(parton-sho)m(w)m(er)h +(picture)g(follo)m(w)m(ed)e(b)m(y)j(string)d(fragmen)m(tation.)87 +b(If)0 4194 y(fragmen)m(tation)39 b(is)h(indeed)h(an)g(univ)m(ersal)g +(phenomenon,)i(as)e(w)m(e)h(w)m(ould)f(lik)m(e)f(to)h(think,)i(then)e +(the)0 4302 y(same)34 b(parameters)f(should)h(also)f(apply)g(at)g +(other)h(energies)g(and)g(in)f(other)h(pro)s(cesses.)49 +b(The)34 b(former)0 4411 y(asp)s(ect,)i(at)e(least,)h(seems)h(to)e(b)s +(e)h(b)s(orne)g(out)f(b)m(y)i(comparisons)e(with)g(lo)m(w)m(er-energy)i +(PETRA/PEP)0 4519 y(data.)82 b(Note,)48 b(ho)m(w)m(ev)m(er,)k(that)45 +b(the)h(c)m(hoice)f(of)g(parameters)h(is)f(in)m(tert)m(wined)g(with)g +(the)h(c)m(hoice)g(of)0 4627 y(p)s(erturbativ)m(e)33 +b(QCD)g(description.)45 b(If)33 b(instead)g(matrix)f(elemen)m(ts)h(are) +g(used,)i(a)d(b)s(est)i(\014t)f(to)g(30)g(GeV)0 4736 +y(data)h(w)m(ould)g(require)g(the)h(v)-5 b(alues)34 b +Fq(PARJ\(21\)=0.40)p Fw(,)k Fq(PARJ\(41\)=1.0)f Fw(and)e +Fq(PARJ\(42\)=0.7)p Fw(.)51 b(With)0 4844 y(matrix)27 +b(elemen)m(ts)h(one)h(do)s(es)g(not)f(exp)s(ect)i(an)e(energy)h(indep)s +(endence)h(of)e(the)h(parameters,)g(since)g(the)0 4952 +y(e\013ectiv)m(e)34 b(minim)m(um)c(in)m(v)-5 b(arian)m(t)31 +b(mass)i(cut-o\013)f(is)h(then)g(energy)h(dep)s(enden)m(t,)h(i.e.)44 +b(so)33 b(is)g(the)g(amoun)m(t)0 5061 y(of)i(soft)h(gluon)f(emission)f +(e\013ects)k(lump)s(ed)c(together)i(with)g(the)g(fragmen)m(tation)e +(parameters.)53 b(This)0 5169 y(is)37 b(indeed)g(con\014rmed)h(b)m(y)g +(the)f(LEP)h(data.)57 b(A)37 b(mismatc)m(h)f(in)g(the)i(p)s(erturbativ) +m(e)g(QCD)f(treatmen)m(t)0 5277 y(could)32 b(also)g(lead)g(to)g(small)e +(di\013erences)k(b)s(et)m(w)m(een)h(di\013eren)m(t)d(pro)s(cesses.)146 +5386 y(It)j(is)e(often)i(said)e(that)h(the)h(string)e(fragmen)m(tation) +g(mo)s(del)f(con)m(tains)j(a)e(w)m(ealth)i(of)e(parameters.)0 +5494 y(This)39 b(is)e(certainly)h(true,)i(but)f(it)e(m)m(ust)i(b)s(e)g +(remem)m(b)s(ered)f(that)g(most)g(of)g(these)i(deal)e(with)g(\015a)m(v) +m(our)0 5602 y(prop)s(erties,)32 b(and)f(to)g(a)g(large)f(exten)m(t)j +(factorize)d(from)g(the)i(treatmen)m(t)f(of)g(the)h(general)f(ev)m(en)m +(t)i(shap)s(e.)1817 5953 y(285)p eop +%%Page: 286 292 +286 291 bop 0 -18 a Fw(In)33 b(a)g(\014t)f(to)h(the)g(latter)f(it)f(is) +i(therefore)g(usually)f(enough)h(to)f(consider)i(the)f(parameters)f(of) +h(the)g(p)s(er-)0 90 y(turbativ)m(e)j(QCD)g(treatmen)m(t,)h(lik)m(e)f +(\003)f(in)h Fj(\013)1633 105 y Fl(s)1701 90 y Fw(and)g(a)g(sho)m(w)m +(er)i(cut-o\013)e Fj(Q)2690 105 y Fl(0)2765 90 y Fw(\(or)g +Fj(\013)2988 105 y Fl(s)3056 90 y Fw(itself)f(and)h Fj(y)3537 +105 y Fl(min)3659 90 y Fw(,)h(if)0 198 y(matrix)c(elemen)m(ts)i(are)f +(used\),)j(the)d Fj(a)h Fw(and)g Fj(b)g Fw(parameter)f(of)g(the)h(Lund) +g(symmetric)e(fragmen)m(tation)0 307 y(function)f(\()p +Fq(PARJ\(41\))i Fw(and)e Fq(PARJ\(42\))p Fw(\))i(and)f(the)f(width)g +(of)g(the)h(transv)m(erse)h(momen)m(tum)d(distribu-)0 +415 y(tion)g(\()p Fj(\033)h Fw(=)p Fq(PARJ\(21\))p Fw(\).)45 +b(In)32 b(addition,)f(the)h Fj(a)h Fw(and)f Fj(b)g Fw(parameters)g(are) +g(v)m(ery)i(strongly)e(correlated)g(b)m(y)0 523 y(the)g(requiremen)m(t) +g(of)f(ha)m(ving)g(the)h(correct)g(a)m(v)m(erage)h(m)m(ultiplicit)m(y) +-8 b(,)28 b(suc)m(h)33 b(that)e(in)g(a)g(t)m(ypical)f +Fj(\037)3513 487 y Fl(2)3584 523 y Fw(plot,)0 632 y(the)e(allo)m(w)m +(ed)f(region)g(corresp)s(onds)i(to)e(a)h(v)m(ery)h(narro)m(w)f(but)g(v) +m(ery)i(long)c(v)-5 b(alley)d(,)28 b(stretc)m(hed)h(diagonally)0 +740 y(from)40 b(small)f(\()p Fj(a)p Fw(,)p Fj(b)p Fw(\))j(pairs)f(to)h +(large)e(ones.)71 b(As)42 b(to)f(the)h(\015a)m(v)m(our)g(parameters,)i +(these)f(are)e(certainly)0 848 y(man)m(y)30 b(more,)g(but)h(most)f(of)g +(them)g(are)g(understo)s(o)s(d)h(qualitiativ)m(ely)c(within)i(one)i +(single)e(framew)m(ork,)0 957 y(that)j(of)g(tunnelling)f(pair)h(pro)s +(duction)g(of)g(\015a)m(v)m(ours.)146 1065 y(Since)50 +b(the)g(use)h(of)f(indep)s(enden)m(t)h(fragmen)m(tation)c(has)k(fallen) +d(in)h(disresp)s(ect,)55 b(it)49 b(should)g(b)s(e)0 1173 +y(p)s(oin)m(ted)31 b(out)h(that)f(the)i(default)e(parameters)g(here)i +(are)f(not)f(particularly)f(w)m(ell)h(tuned)h(to)g(the)g(data.)0 +1282 y(This)37 b(esp)s(ecially)f(applies)g(if)g(one,)j(in)d(addition)g +(to)g(asking)h(for)g(indep)s(enden)m(t)h(fragmen)m(tation,)e(also)0 +1390 y(asks)45 b(for)f(another)g(setup)i(of)e(fragmen)m(tation)e +(functions,)47 b(i.e.)78 b(other)44 b(than)h(the)f(standard)h(Lund)0 +1498 y(symmetric)33 b(one.)47 b(In)34 b(particular,)e(note)i(that)f +(most)g(\014ts)h(to)g(the)g(p)s(opular)e(P)m(eterson)j(et)f(al.)46 +b(\(SLA)m(C\))0 1607 y(hea)m(vy-\015a)m(v)m(our)c(fragmen)m(tation)d +(function)h(are)g(based)h(on)f(the)h(actual)f(observ)m(ed)i(sp)s +(ectrum.)67 b(In)41 b(a)0 1715 y(Mon)m(te)35 b(Carlo)e(sim)m(ulation,)f +(one)i(m)m(ust)g(then)h(start)f(out)g(with)f(something)h(harder,)g(to)g +(comp)s(ensate)0 1823 y(for)44 b(the)h(energy)h(lost)e(b)m(y)h +(initial-state)c(photon)k(radiation)d(and)j(gluon)f(bremsstrahlung.)79 +b(Since)0 1932 y(indep)s(enden)m(t)48 b(fragmen)m(tation)d(is)h(not)h +(collinear)d(safe)j(\(i.e,)j(the)d(emission)e(of)i(a)f(collinear)e +(gluon)0 2040 y(c)m(hanges)39 b(the)g(prop)s(erties)e(of)h(the)g +(\014nal)f(ev)m(en)m(t\),)k(the)e(tuning)e(is)g(strongly)h(dep)s(enden) +m(t)i(on)d(the)i(p)s(er-)0 2148 y(turbativ)m(e)30 b(QCD)g(treatmen)m(t) +g(c)m(hosen.)45 b(All)28 b(the)j(parameters)f(needed)i(for)d(a)h +(tuning)g(of)f(indep)s(enden)m(t)0 2257 y(fragmen)m(tation)i(are)h(a)m +(v)-5 b(ailable,)30 b(ho)m(w)m(ev)m(er.)0 2504 y Fo(14.7.3)113 +b(P)m(article)34 b(prop)s(erties)0 2677 y Fw(The)d(masses)h(of)e(most)g +(frequen)m(tly)h(used)h(particles)d(are)i(tak)m(en)g(from)f(tables.)42 +b(F)-8 b(or)30 b(some)g(rare)h(c)m(harm)0 2785 y(and)41 +b(b)s(ottom)e(hadrons,)44 b(and)d(for)f(hea)m(vier)i(\015a)m(v)m(our)f +(hadrons,)j(this)d(w)m(ould)f(b)s(e)h(un)m(wieldy)-8 +b(,)44 b(and)d(in-)0 2894 y(stead)c(mass)g(form)m(ulae)e(are)i(used,)i +(based)f(on)f(the)g(quark)g(con)m(ten)m(t.)58 b(F)-8 +b(or)36 b(the)h(kno)m(wn)h(quarks)g(d,)g(u,)0 3002 y(s,)47 +b(c)d(and)f(b,)k(the)d(masses)g(used)h(for)e(this)g(purp)s(ose)h(are)g +(actually)e(the)i(ones)g(stored)g(in)f(p)s(ositions)0 +3111 y(101{105)d(in)h(the)h Fq(PARF)h Fw(v)m(ector,)i(rather)d(than)g +(the)g(ones)h(found)f(in)f Fq(PMAS)p Fw(.)i(This)f(means)f(that)h(the)0 +3219 y Fq(PMAS)47 b Fw(masses)f(can)g(b)s(e)g(freely)g(c)m(hanged)h(b)m +(y)f(y)m(ou,)k(to)45 b(mo)s(dify)f(the)i(masses)h(that)f(app)s(ear)f +(in)g(the)0 3327 y(ev)m(en)m(t)37 b(record,)g(without)e(courting)f +(disaster)i(elsewhere)h(\(since)f(mass)f(form)m(ulae)f(t)m(ypically)g +(con)m(tain)0 3436 y(1)p Fj(=m)43 b Fw(terms)h(from)e(spin-spin)h +(splittings,)i(it)d(is)h(necessary)j(to)d(ha)m(v)m(e)i(the)f(non-zero)g +(`constituen)m(t')0 3544 y(masses)j(here\).)86 b(Th)m(us)48 +b(y)m(ou)f(should)f(nev)m(er)i(touc)m(h)g(the)e(mass)h(v)-5 +b(alues)46 b(stored)h(in)f Fq(PARF)p Fw(.)h(F)-8 b(or)46 +b(the)0 3652 y(hea)m(vier)40 b(\015a)m(v)m(ours)g(top,)h(lo)m(w)e(and)g +(high,)i(the)e(curren)m(t)i Fq(PMAS)f Fw(v)-5 b(alues)39 +b(are)g(alw)m(a)m(ys)h(used.)65 b(F)-8 b(or)38 b(these)0 +3761 y(\015a)m(v)m(ours,)44 b(the)c(only)g(individually)e(de\014ned)j +(hadrons)g(are)f(the)h(\015a)m(v)m(our)g(neutral)f Fj(\021)t +Fw(,)i(\002,)g(h)3400 3776 y Fl(1)3440 3761 y Fw(,)g +Fj(\037)3570 3776 y Fl(0)3610 3761 y Fw(,)g Fj(\037)3740 +3776 y Fl(1)0 3869 y Fw(and)48 b Fj(\037)266 3884 y Fl(2)353 +3869 y Fw(states.)91 b(A)48 b(complete)f(c)m(hange)i(of)e(top)h(mass)g +(in)f(the)h(program)f(th)m(us)i(requires)f(c)m(hang-)0 +3977 y(ing)38 b Fq(PMAS\(6,1\))p Fw(,)k Fq(PMAS\(LUCOMP\(661\),1\))p +Fw(,)j Fq(PMAS\(LUCOMP\(663\),1\))p Fw(,)f Fq(PMAS\(LUCOMP\(665\),1\))p +Fw(,)0 4086 y Fq(PMAS\(LUCOMP\(10661\),1\))p Fw(,)32 +b Fq(PMAS\(LUCOMP\(10663\),1\))e Fw(and)25 b Fq +(PMAS\(LUCOMP\(20663\),1\))p Fw(.)46 b(Since)0 4194 y(the)40 +b(latter)f(hea)m(vy-\015a)m(v)m(our-diagonal)f(states)j(are)e(not)h +(normally)d(pro)s(duced)j(in)f(fragmen)m(tation,)g(it)0 +4302 y(w)m(ould)33 b(b)s(e)f(no)h(disaster)g(to)f(forget)g(c)m(hanging) +g(their)g(masses.)146 4411 y(Most)40 b(particles)e(ha)m(v)m(e)i +(separately)f(de\014ned)h(deca)m(y)h(c)m(hannels.)63 +b(Ho)m(w)m(ev)m(er,)43 b(there)d(are)e(so)h(man)m(y)0 +4519 y(hea)m(vy-\015a)m(v)m(our)c(hadrons)e(with)f(common)f(deca)m(y)j +(desciptions,)e(that)h(a)f(few)h(`pseudoparticles')g(ha)m(v)m(e)0 +4627 y(b)s(een)46 b(in)m(tro)s(duced)f(for)g(generic)g(deca)m(ys.)84 +b(The)46 b(most)e(frequen)m(tly)j(used)f(ones)g(are)f(84)g(for)g(c)m +(harm)0 4736 y(deca)m(ys,)27 b(85)22 b(for)g(b)s(ottom)f(deca)m(ys)j +(and)f(86)f(for)g(top)h(deca)m(ys.)42 b(Instead)23 b(of)g(a)f(long)f +(list)g(of)h(deca)m(y)i(c)m(hannels,)0 4844 y(sev)m(eral)41 +b(b)s(ottom)f(and)h(c)m(harm)f(bary)m(ons)i(and)f(all)d(top)j(hadrons)g +(therefore)h(only)e(ha)m(v)m(e)i(one)f(`deca)m(y)0 4952 +y(c)m(hannel',)h(whic)m(h)e(is)f(the)h(instruction)e(to)h(mak)m(e)h +(use)g(of)f(the)h(deca)m(y)h(data)e(for)g(particle)f(84/85/86.)0 +5061 y(The)33 b(sp)s(ectator)f(quark)h(of)e(the)h(generic)g(deca)m(y)h +(c)m(hannels)g(is)e(found)h(as)g(the)g(ligh)m(t)e(quark/diquark)j(of)0 +5169 y(the)g(hadron)g(considered.)45 b(All)31 b(the)i(mesons)g(in)f +(the)h(b)s(ottom)e(and)i(c)m(harm)g(sectors)h(are)f(individually)0 +5277 y(de\014ned,)j(as)e(are)h(the)f(\003)888 5292 y +Fl(c)957 5277 y Fw(and)h(\003)1217 5292 y Fl(b)1294 5277 +y Fw(states.)49 b(F)-8 b(or)33 b(top)h(and)g(hea)m(vier)h(hadrons,)g +(the)g(deca)m(y)g(is)f(lik)m(ely)f(to)0 5386 y(b)s(e)e(so)f(fast)g +(that)g(no)h(hadrons)f(at)g(all)f(are)h(pro)s(duced,)i(but)e(if)f(they) +j(are,)f(the)f(generic)h(pseudoparticle)0 5494 y(approac)m(h)i(is)f(a)g +(go)s(o)s(d)g(appro)m(ximation.)146 5602 y(The)j(program)d(con)m(tains) +i(space)g(so)g(that)f(additional)e(new)j(particles)f(ma)m(y)g(b)s(e)h +(in)m(tro)s(duced.)47 b(Al-)1817 5953 y(286)p eop +%%Page: 287 293 +287 292 bop 0 -18 a Fw(though)33 b(not)h(completely)e(trivial,)f(this)i +(should)g(not)g(b)s(e)h(b)s(ey)m(ond)g(the)g(abilit)m(y)e(of)g(an)i +(ordinary)e(user.)0 90 y(Basically)-8 b(,)43 b(three)g(steps)h(are)f +(in)m(v)m(olv)m(ed.)73 b(First,)44 b(a)f(mec)m(hanism)e(of)h(pro)s +(duction)g(has)h(to)f(b)s(e)h(in)m(tro-)0 198 y(duced.)63 +b(This)39 b(pro)s(duction)f(ma)m(y)h(w)m(ell)f(tak)m(e)h(place)g(in)f +(another)g(program,)h(lik)m(e)f Fm(Pythia)h Fw(or)g(some)0 +307 y(user-written)c(corresp)s(ondence,)j(where)e(matrix)d(elemen)m(ts) +i(are)g(used)h(to)f(select)g(the)g(hard)g(pro)s(cess.)0 +415 y(In)c(this)g(case)g(the)g(new)h(particle)e(already)g(exists)i(in)e +(the)h Fq(LUJETS)h Fw(common)e(blo)s(c)m(k)g(when)i Fm(Jetset)e +Fw(is)0 523 y(called.)40 b(A)26 b(new)h(particle,)g(meson,)g(bary)m(on) +g(or)f(glueball,)f(ma)m(y)h(also)f(b)s(e)h(a)g(part)g(of)g(the)g +(fragmen)m(tation)0 632 y(pro)s(cess,)42 b(in)d(whic)m(h)h(case)g +Fq(LUKFDI)h Fw(w)m(ould)f(ha)m(v)m(e)g(to)f(b)s(e)h(suitably)f(mo)s +(di\014ed.)62 b(The)41 b(particle)d(migh)m(t)0 740 y(also)d(app)s(ear)h +(as)g(a)f(deca)m(y)i(pro)s(duct)f(from)f(some)h(already)f(existing)g +(particle,)g(and)h(then)h(the)f(deca)m(y)0 848 y(data)28 +b(in)g Fq(/LUDAT3/)i Fw(w)m(ould)f(ha)m(v)m(e)g(to)g(b)s(e)f(expanded;) +k(conceiv)-5 b(ably)28 b(also)g Fq(LUDECY)i Fw(w)m(ould)e(b)s(e)h +(a\013ected.)146 957 y(The)j(second)g(step)g(is)e(to)g(teac)m(h)i(to)e +(program)f(to)i(recognize)g(the)g(new)g(particle.)42 +b(If)31 b(a)f(KF)g(co)s(de)h(in)0 1065 y(the)h(range)f(41)g(to)g(80)f +(is)h(used,)i(this)e(is)g(automatically)c(tak)m(en)33 +b(care)e(of,)h(and)f(in)f(particular)g(the)i(com-)0 1173 +y(pressed)j(co)s(de)f(K)m(C)f(coincides)g(with)g(KF.)g(If)g(a)g(whole)g +(sequence)i(of)e(particles)f(is)h(to)g(b)s(e)g(in)m(tro)s(duced,)0 +1282 y(with)39 b(KF)g(co)s(des)h(paralleling)c(that)j(of)f(ordinary)h +(mesons/bary)m(ons)i(\(a)e(sup)s(ersymmetric)g(`meson')0 +1390 y(m)m(ultiplet,)f(made)h(of)g(a)g(squark)i(plus)e(an)g(an)m +(tiquark,)i(sa)m(y\),)h(then)e Fq(LUCOMP)h Fw(m)m(ust)e(b)s(e)h(mo)s +(di\014ed)e(to)0 1498 y(include)30 b(a)h(mapping)e(from)h(these)i(KF)e +(v)-5 b(alues)31 b(to)f(curren)m(tly)i(un)m(used)h(K)m(C)e(ones,)h(lik) +m(e)e(the)h(range)g(401)0 1607 y(-)j(500.)50 b(It)35 +b(is)g(the)g(presence)i(of)e(suc)m(h)h(a)f(mapping)e(that)i(the)g +(program)f(uses)i(to)e(accept)i(a)f(giv)m(en)g(KF)0 1715 +y(co)s(de)e(as)g(b)s(ona)f(\014de.)146 1823 y(The)h(third)f(and)g +(\014nal)f(step)i(is)e(to)h(de\014ne)h(the)f(prop)s(erties)g(of)g(this) +f(new)i(particle.)42 b(Th)m(us)34 b(particle)0 1932 y(c)m(harge)45 +b(information)c(m)m(ust)k(b)s(e)f(giv)m(en)h(in)f Fq(KCHG)p +Fw(,)h(mass,)j(width)c(and)g(lifetime)e(in)h Fq(PMAS)p +Fw(,)j(particle)0 2040 y(name)39 b(in)g Fq(CHAF)p Fw(,)i(and)f(deca)m +(y)h(data)e(in)g(the)h Fq(MDCY)p Fw(,)h Fq(MDME)p Fw(,)g +Fq(BRAT)f Fw(and)g Fq(KFDP)h Fw(arra)m(ys.)65 b(This)40 +b(pro)s(cess)0 2148 y(is)32 b(most)g(con)m(v)m(enien)m(tly)i(carried)e +(out)h(b)m(y)h(using)f Fq(LUUPDA\(1\))i Fw(to)e(pro)s(duce)g(a)f(table) +g(of)g(particle)g(data,)0 2257 y(whic)m(h)g(can)f(then)g(b)s(e)h(mo)s +(di\014ed,)e(and)h(afterw)m(ards)h(read)f(bac)m(k)h(in)e(with)h +Fq(LUUPDA\(2\))p Fw(.)45 b(Note)31 b(that)g(the)0 2365 +y(particle)g(data)h(is)h(to)f(b)s(e)h(in)m(tro)s(duced)f(for)g(the)h +(compressed)h(co)s(de)f(K)m(C,)g(not)g(for)f(KF)g(prop)s(er.)0 +2638 y Fp(14.8)136 b(Examples)0 2811 y Fw(A)33 b(10)f(GeV)g(u)h(quark)g +(jet)g(going)e(out)i(along)e(the)i(+)p Fj(z)k Fw(axis)32 +b(is)g(generated)i(with)308 2998 y Fq(CALL)52 b +(LU1ENT\(0,2,10.,0.,0.\))0 3186 y Fw(Note)35 b(that)g(suc)m(h)h(a)f +(single)f(jet)h(is)f(not)h(required)g(to)g(conserv)m(e)i(energy)-8 +b(,)37 b(momen)m(tum)c(or)i(\015a)m(v)m(our.)51 b(In)0 +3294 y(the)45 b(generation)f(sc)m(heme,)49 b(particles)44 +b(with)g(negativ)m(e)h Fj(p)2128 3309 y Fh(z)2213 3294 +y Fw(are)f(pro)s(duced)i(as)f(w)m(ell,)i(but)e(these)g(are)0 +3403 y(automatically)c(rejected)46 b(unless)g Fq(MSTJ\(3\)=-1)p +Fw(.)82 b(While)44 b(frequen)m(tly)i(used)f(in)f(former)g(da)m(ys,)49 +b(the)0 3511 y(one-jet)32 b(generation)g(option)g(is)g(not)g(of)g(m)m +(uc)m(h)i(curren)m(t)f(in)m(terest.)146 3619 y(In)40 +b(e.g.)64 b(a)39 b(leptopro)s(duction)f(ev)m(en)m(t)j(a)e(t)m(ypical)g +(situation)f(could)h(b)s(e)g(a)g(u)h(quark)g(going)e(out)h(in)0 +3728 y(the)i(+)p Fj(z)k Fw(direction)39 b(and)h(a)h(ud)1151 +3743 y Fl(0)1231 3728 y Fw(target)f(remnan)m(t)g(essen)m(tially)g(at)g +(rest.)67 b(\(Suc)m(h)42 b(a)e(pro)s(cess)i(can)e(b)s(e)0 +3836 y(sim)m(ulated)30 b(b)m(y)k Fm(Pythia)p Fw(,)e(but)g(here)g(w)m(e) +h(illustrate)c(ho)m(w)j(to)f(do)h(part)f(of)g(it)g(y)m(ourself.\))43 +b(The)33 b(simplest)0 3944 y(pro)s(cedure)c(is)f(probably)g(to)g(treat) +h(the)g(pro)s(cess)g(in)f(the)h(c.m.)42 b(frame)27 b(and)i(b)s(o)s(ost) +f(it)f(to)h(the)h(lab)e(frame)0 4053 y(afterw)m(ards.)43 +b(Hence,)32 b(if)c(the)i(c.m.)43 b(energy)30 b(is)f(20)g(GeV)h(and)g +(the)g(b)s(o)s(ost)f Fj(\014)2725 4068 y Fh(z)2792 4053 +y Fw(=)f(0)p Fj(:)p Fw(996)h(\(corresp)s(onding)0 4161 +y(to)j Fj(x)174 4176 y Fh(B)263 4161 y Fw(=)c(0)p Fj(:)p +Fw(045\),)j(then)308 4348 y Fq(CALL)52 b(LU2ENT\(0,2,2101,20.\))308 +4457 y(CALL)g(LUROBO\(0.,0.,0.,0.,0.996\))0 4644 y Fw(The)34 +b(jets)f(could)f(of)g(course)h(also)f(b)s(e)h(de\014ned)h(and)f(allo)m +(w)m(ed)e(to)i(fragmen)m(t)f(in)f(the)i(lab)f(frame)g(with)308 +4832 y Fq(CALL)52 b(LU1ENT\(-1,2,223.15,0.,0.\))308 4940 +y(CALL)g(LU1ENT\(2,12,0.6837,3.1416)q(,0.\))308 5048 +y(CALL)g(LUEXEC)0 5236 y Fw(Note)40 b(here)h(that)f(the)g(target)g +(diquark)g(is)f(required)i(to)f(mo)m(v)m(e)g(in)f(the)i(bac)m(kw)m +(ards)h(direction)d(with)0 5344 y Fj(E)15 b Fn(\000)9 +b Fj(p)222 5359 y Fh(z)290 5344 y Fw(=)28 b Fj(m)479 +5359 y Fl(p)522 5344 y Fw(\(1)9 b Fn(\000)g Fj(x)759 +5359 y Fh(B)821 5344 y Fw(\))26 b(to)g(obtain)f(the)h(correct)h(in)m(v) +-5 b(arian)m(t)25 b(mass)h(for)g(the)g(system.)43 b(This)26 +b(is,)h(ho)m(w)m(ev)m(er,)0 5453 y(only)f(an)h(artefact)f(of)h(using)f +(a)g(\014xed)i(diquark)f(mass)g(to)f(represen)m(t)j(a)d(v)-5 +b(arying)26 b(target)h(remnan)m(t)f(mass,)0 5561 y(and)32 +b(is)f(of)f(no)i(imp)s(ortance)e(for)h(the)h(fragmen)m(tation.)41 +b(If)31 b(one)h(w)m(an)m(ts)h(a)e(nicer-lo)s(oking)e(ev)m(en)m(t)k +(record,)0 5669 y(it)f(is)g(p)s(ossible)g(to)g(use)h(the)g(follo)m +(wing)1817 5953 y(287)p eop +%%Page: 288 294 +288 293 bop 308 -18 a Fq(CALL)52 b(LU1ENT\(-1,2,223.15,0.,0.\))308 +90 y(MSTU\(10\)=1)308 198 y(P\(2,5\)=0.938*\(1.-0.045\))308 +307 y(CALL)g(LU1ENT\(2,2101,0.,0.,0.\))308 415 y(MSTU\(10\)=2)308 +523 y(CALL)g(LUEXEC)146 715 y Fw(A)33 b(30)f(GeV)h(u)p +662 662 55 4 v(ug)h(ev)m(en)m(t)g(with)e Fj(E)1350 730 +y Fl(u)1421 715 y Fw(=)c(8)k(GeV)h(and)g Fj(E)p 2094 +691 44 4 v 15 x Fl(u)2165 715 y Fw(=)27 b(14)32 b(GeV)h(is)f(sim)m +(ulated)f(with)308 906 y Fq(CALL)52 b(LU3ENT\(0,2,21,-2,30.,2.*8)q +(./30)q(.,2.)q(*14)q(./30)q(.\))0 1097 y Fw(The)31 b(ev)m(en)m(t)h +(will)c(b)s(e)i(giv)m(en)g(in)f(a)h(standard)g(orien)m(tation)f(with)g +(the)i(u)f(quark)h(along)d(the)j(+)p Fj(z)k Fw(axis)29 +b(and)0 1206 y(the)p 162 1153 55 4 v 27 w(u)d(in)g(the)g +Fn(\000)p Fj(z)t(;)17 b Fw(+)p Fj(x)28 b Fw(quadran)m(t.)42 +b(Note)26 b(that)g(the)h(\015a)m(v)m(ours)g(of)f(the)h(three)g(partons) +f(ha)m(v)m(e)i(to)e(b)s(e)g(giv)m(en)0 1314 y(in)38 b(the)h(order)f +(they)i(are)e(found)h(along)e(a)h(string,)h(if)f(string)f(fragmen)m +(tation)g(options)h(are)g(to)g(w)m(ork.)0 1422 y(Also)33 +b(note)g(that,)h(for)e(3-jet)h(ev)m(en)m(ts,)j(and)d(particularly)e +(4-jet)i(ones,)h(not)f(all)e(setups)k(of)e(kinematical)0 +1531 y(v)-5 b(ariables)31 b Fj(x)i Fw(lie)e(within)h(the)h +(kinematically)c(allo)m(w)m(ed)j(regions)g(of)g(phase)i(space.)146 +1639 y(All)29 b(common)h(blo)s(c)m(k)h(v)-5 b(ariables)29 +b(can)j(ob)m(viously)e(b)s(e)h(c)m(hanged)h(b)m(y)g(including)d(the)j +(corresp)s(onding)0 1747 y(common)h(blo)s(c)m(k)i(in)f(the)i +(user-written)f(main)e(program.)49 b(Alternativ)m(ely)-8 +b(,)34 b(the)i(routine)e Fq(LUGIVE)i Fw(can)0 1856 y(b)s(e)f(used)h(to) +e(feed)h(in)f(v)-5 b(alues,)35 b(with)f(some)h(additional)d(c)m(hec)m +(ks)37 b(on)e(arra)m(y)f(b)s(ounds)i(then)f(p)s(erformed.)0 +1964 y(A)e(call)308 2155 y Fq(CALL)52 b(LUGIVE\('MSTJ\(21\)=3;PMAS\(C)q +(663,)q(1\)=2)q(10.)q(;CHA)q(F\(40)q(1\)=f)q(unny)q(ino)q(;'//)256 +2264 y(&'PMAS\(21,4\)='\))0 2455 y Fw(will)d(th)m(us)k(c)m(hange)g(the) +f(v)-5 b(alue)51 b(of)59 b Fq(MSTJ\(21\))53 b Fw(to)f(3,)k(the)c(v)-5 +b(alue)52 b(of)58 b Fq(PMAS\(LUCOMP\(663\),1\))e(=)0 +2563 y(PMAS\(136,1\))38 b Fw(to)d(210.,)h(the)g(v)-5 +b(alue)34 b(of)42 b Fq(CHAF\(401\))c Fw(to)d('funn)m(yino',)h(and)g +(prin)m(t)f(the)h(curren)m(t)g(v)-5 b(alue)0 2672 y(of)42 +b Fq(PMAS\(21,4\))p Fw(.)57 b(Since)36 b(old)f(and)h(new)h(v)-5 +b(alues)35 b(of)h(parameters)g(c)m(hanged)h(are)f(written)g(to)f +(output,)0 2780 y(this)h(ma)m(y)g(o\013er)g(a)g(con)m(v)m(enien)m(t)i +(w)m(a)m(y)g(of)e(do)s(cumen)m(ting)f(non-default)g(v)-5 +b(alues)37 b(used)g(in)f(a)g(giv)m(en)g(run.)0 2889 y(On)c(the)h(other) +f(hand,)g(if)f(a)h(v)-5 b(ariable)31 b(is)g(c)m(hanged)i(bac)m(k)g(and) +g(forth)e(frequen)m(tly)-8 b(,)34 b(the)e(resulting)f(v)m(olu-)0 +2997 y(minous)k(output)h(ma)m(y)g(b)s(e)g(undesirable,)g(and)g(a)g +(direct)g(usage)g(of)g(the)g(common)f(blo)s(c)m(ks)h(is)f(then)i(to)0 +3105 y(b)s(e)c(recommended)g(\(the)g(output)f(can)h(also)f(b)s(e)h +(switc)m(hed)g(o\013,)g(see)g Fq(MSTU\(13\))p Fw(\).)146 +3214 y(A)28 b(general)g(rule)f(of)h(th)m(um)m(b)g(is)g(that)g(none)g +(of)g(the)g(ph)m(ysics)i(routines)e(\()p Fq(LUSTRF)p +Fw(,)h Fq(LUINDF)p Fw(,)h Fq(LUDECY)p Fw(,)0 3322 y(etc.\))77 +b(should)44 b(ev)m(er)h(b)s(e)f(called)f(directly)-8 +b(,)46 b(but)e(only)f(via)g Fq(LUEXEC)p Fw(.)i(This)f(routine)f(ma)m(y) +h(b)s(e)g(called)0 3430 y(rep)s(eatedly)24 b(for)f(one)g(single)f(ev)m +(en)m(t.)43 b(A)m(t)23 b(eac)m(h)i(call)c(only)i(those)h(en)m(tries)g +(that)f(are)h(allo)m(w)m(ed)e(to)h(fragmen)m(t)0 3539 +y(or)32 b(deca)m(y)-8 b(,)34 b(and)f(ha)m(v)m(e)h(not)e(y)m(et)i(done)f +(so,)g(are)f(treated.)44 b(Th)m(us)308 3730 y Fq(CALL)52 +b(LU2ENT\(1,1,-1,20.\))415 b(!)51 b(fill)i(2)e(jets)i(without)g +(fragmenting)308 3838 y(MSTJ\(1\)=0)1130 b(!)51 b(inhibit)j(jet)e +(fragmentation)308 3947 y(MSTJ\(21\)=0)1079 b(!)51 b(inhibit)j +(particle)f(decay)308 4055 y(MDCY\(LUCOMP\(111\),1\)=0)518 +b(!)51 b(inhibit)j(pi0)e(decay)308 4163 y(CALL)g(LUEXEC)1027 +b(!)51 b(will)i(not)f(do)g(anything)308 4272 y(MSTJ\(1\)=1)1130 +b(!)308 4380 y(CALL)52 b(LUEXEC)1027 b(!)51 b(jets)i(will)f(fragment,)i +(but)e(no)g(decays)308 4488 y(MSTJ\(21\)=2)1079 b(!)308 +4597 y(CALL)52 b(LUEXEC)1027 b(!)51 b(particles)j(decay,)f(except)g +(pi0)308 4705 y(CALL)f(LUEXEC)1027 b(!)51 b(nothing)j(new)e(can)g +(happen)308 4813 y(MDCY\(LUCOMP\(111\),1\)=1)518 b(!)308 +4922 y(CALL)52 b(LUEXEC)1027 b(!)51 b(pi0:s)i(decay)146 +5113 y Fw(A)39 b(partial)e(exception)i(to)f(the)h(rule)g(ab)s(o)m(v)m +(e)g(is)f Fq(LUSHOW)p Fw(.)j(Its)e(main)e(application)f(is)i(for)h(in)m +(ternal)0 5221 y(use)33 b(b)m(y)i Fq(LUEEVT)p Fw(,)f +Fq(LUDECY)p Fw(,)g(and)e Fq(PYEVNT)p Fw(,)i(but)f(it)e(can)h(also)g(b)s +(e)g(directly)g(called)f(b)m(y)i(y)m(ou.)44 b(Note)33 +b(that)0 5330 y(a)h(sp)s(ecial)e(format)h(for)g(storing)g(colour-\015o) +m(w)g(information)e(in)i Fq(K\(I,4\))i Fw(and)f Fq(K\(I,5\))i +Fw(m)m(ust)e(then)g(b)s(e)0 5438 y(used.)60 b(F)-8 b(or)37 +b(simple)g(cases,)j(the)f Fq(LU2ENT)g Fw(can)f(b)s(e)g(made)g(to)f(tak) +m(e)i(care)f(of)f(that)h(automatically)-8 b(,)36 b(b)m(y)0 +5546 y(calling)30 b(with)i(the)h(\014rst)g(argumen)m(t)f(negativ)m(e.) +1817 5953 y(288)p eop +%%Page: 289 295 +289 294 bop 308 -18 a Fq(CALL)52 b(LU2ENT\(-1,1,-2,80.\))364 +b(!)51 b(store)i(d)f(ubar)g(with)g(colour)h(flow)308 +90 y(CALL)f(LUSHOW\(1,2,80.\))568 b(!)51 b(shower)i(partons)308 +198 y(CALL)f(LUEXEC)1027 b(!)51 b(subsequent)j(fragmentation/decay)0 +382 y Fw(F)-8 b(or)32 b(more)g(complicated)f(con\014gurations,)h +Fq(LUJOIN)i Fw(should)e(b)s(e)h(used.)146 491 y(It)k(is)g(alw)m(a)m(ys) +g(go)s(o)s(d)f(practice)h(to)g(list)e(one)i(or)g(a)g(few)g(ev)m(en)m +(ts)i(during)e(a)f(run)i(to)e(c)m(hec)m(k)j(that)e(the)0 +599 y(program)31 b(is)h(w)m(orking)h(as)g(in)m(tended.)44 +b(With)308 783 y Fq(CALL)52 b(LULIST\(1\))0 967 y Fw(all)40 +b(particles)i(will)e(b)s(e)i(listed)g(and)g(in)g(addition)e(total)h(c)m +(harge,)k(momen)m(tum)c(and)i(energy)g(of)f(sta-)0 1076 +y(ble)37 b(en)m(tries)h(will)d(b)s(e)i(giv)m(en.)58 b(F)-8 +b(or)36 b(string)h(fragmen)m(tation)e(these)k(quan)m(tities)e(should)g +(b)s(e)g(conserv)m(ed)0 1184 y(exactly)h(\(up)g(to)f(mac)m(hine)g +(precision)f(errors\),)k(and)d(the)h(same)f(go)s(es)h(when)g(running)f +(indep)s(enden)m(t)0 1292 y(fragmen)m(tation)e(with)h(one)h(of)f(the)i +(momen)m(tum)d(conserv)-5 b(ation)36 b(options.)56 b +Fq(LULIST\(1\))39 b Fw(giv)m(es)e(a)f(for-)0 1401 y(mat)29 +b(that)g(comfortably)f(\014ts)i(on)f(an)h(80)f(column)f(screen,)k(at)d +(the)h(price)g(of)f(not)g(giving)f(the)i(complete)0 1509 +y(story)-8 b(.)66 b(With)40 b Fq(LULIST\(2\))i Fw(a)e(more)f(extensiv)m +(e)j(listing)c(is)h(obtained,)j(and)e Fq(LULIST\(3\))i +Fw(also)d(giv)m(es)0 1617 y(v)m(ertex)e(information.)49 +b(F)-8 b(urther)35 b(options)g(are)g(a)m(v)-5 b(ailable,)33 +b(lik)m(e)i Fq(LULIST\(12\))p Fw(,)k(whic)m(h)c(giv)m(es)h(a)f(list)f +(of)0 1726 y(particle)d(data.)146 1834 y(An)39 b(ev)m(en)m(t,)k(as)c +(stored)g(in)g(the)g Fq(LUJETS)h Fw(common)e(blo)s(c)m(k,)i(will)d(con) +m(tain)h(the)h(original)d(jets)j(and)0 1942 y(the)c(whole)f(deca)m(y)h +(c)m(hain,)g(i.e.)48 b(also)33 b(particles)g(whic)m(h)i(subsequen)m +(tly)i(deca)m(y)m(ed.)50 b(If)34 b(parton)g(sho)m(w)m(ers)0 +2051 y(are)29 b(used,)i(the)f(amoun)m(t)e(of)h(parton)g(information)d +(is)j(also)f(considerable:)41 b(\014rst)30 b(the)f(on-shell)f(partons)0 +2159 y(b)s(efore)46 b(sho)m(w)m(ers)i(ha)m(v)m(e)f(b)s(een)f +(considered,)k(then)c(a)f Fq(K\(I,1\)=22)j Fw(line)d(with)g(total)f +(energy)j(of)e(the)0 2267 y(sho)m(w)m(ering)34 b(subsystem,)i(after)e +(that)f(the)h(complete)f(sho)m(w)m(er)j(history)d(tree-lik)m(e)g +(structure,)i(starting)0 2376 y(o\013)25 b(with)g(the)h(same)g(initial) +c(partons)j(\(no)m(w)i(o\013-shell\),)e(and)h(\014nally)e(the)i(end)g +(pro)s(ducts)h(of)e(the)h(sho)m(w)m(er)0 2484 y(rearranged)h(along)f +(the)h(string)f(directions.)41 b(This)28 b(detailed)e(record)h(is)f +(useful)i(in)e(man)m(y)h(connections,)0 2592 y(but)e(if)f(one)i(only)e +(w)m(an)m(ts)j(to)e(retain)f(the)h(\014nal)g(particles,)h(sup)s +(er\015uous)g(information)c(ma)m(y)j(b)s(e)h(remo)m(v)m(ed)0 +2701 y(with)32 b Fq(LUEDIT)p Fw(.)i(Th)m(us)h(e.g.)308 +2885 y Fq(CALL)52 b(LUEDIT\(2\))0 3069 y Fw(will)30 b(lea)m(v)m(e)j(y)m +(ou)h(with)e(the)h(\014nal)f(c)m(harged)h(and)g(neutral)f(particles,)g +(except)i(for)e(neutrinos.)146 3177 y(The)47 b(information)c(in)j +Fq(LUJETS)h Fw(ma)m(y)f(b)s(e)g(used)h(directly)f(to)g(study)h(an)f(ev) +m(en)m(t.)86 b(Some)45 b(useful)0 3286 y(additional)25 +b(quan)m(tities)j(deriv)m(ed)h(from)e(these,)j(suc)m(h)f(as)f(c)m +(harge)h(and)f(rapidit)m(y)-8 b(,)28 b(ma)m(y)g(easily)f(b)s(e)h(found) +0 3394 y(via)36 b(the)h Fq(KLU)h Fw(and)e Fq(PLU)i Fw(functions.)56 +b(Th)m(us)38 b(electric)e(c)m(harge)h Fq(=PLU\(I,6\))i +Fw(\(as)e(in)m(teger,)h(three)f(times)0 3502 y(c)m(harge)c +Fq(=KLU\(I,6\))p Fw(\))i(and)e(true)g(rapidit)m(y)e Fj(y)36 +b Fw(with)c(resp)s(ect)i(to)e(the)h Fj(z)k Fw(axis)c +Fq(=)51 b(PLU\(I,17\))p Fw(.)146 3611 y(A)36 b(n)m(um)m(b)s(er)h(of)e +(utilit)m(y)f(\()p Fq(MSTU)p Fw(,)j Fq(PARU)p Fw(\))g(and)f(ph)m(ysics) +i(\()p Fq(MSTJ)p Fw(,)f Fq(PARJ)p Fw(\))g(switc)m(hes)g(and)f +(parameters)0 3719 y(are)31 b(a)m(v)-5 b(ailable)29 b(in)i(common)f +(blo)s(c)m(k)h Fq(LUDAT1)p Fw(.)45 b(All)30 b(of)h(these)h(ha)m(v)m(e)h +(sensible)f(default)e(v)-5 b(alues.)43 b(P)m(article)0 +3827 y(data)g(is)g(stored)g(in)g(common)f(blo)s(c)m(ks)h +Fq(LUDAT2)p Fw(,)48 b Fq(LUDAT3)c Fw(and)g Fq(LUDAT4)p +Fw(.)76 b(Note)44 b(that)f(the)g(data)g(in)0 3936 y(the)35 +b(arra)m(ys)g Fq(KCHG)p Fw(,)h Fq(PMAS)p Fw(,)g Fq(MDCY)g +Fw(and)e Fq(CHAF)i Fw(is)e(not)h(stored)g(b)m(y)h(KF)e(co)s(de,)h(but)g +(b)m(y)h(the)f(compressed)0 4044 y(co)s(de)f(K)m(C.)g(This)f(co)s(de)h +(is)f(not)g(to)g(b)s(e)g(learn)m(t)g(b)m(y)i(heart,)e(but)h(instead)f +(accessed)j(via)d(the)g(con)m(v)m(ersion)0 4152 y(function)f +Fq(LUCOMP)p Fw(,)i Fq(KC)52 b(=)g(LUCOMP\(KF\))p Fw(.)146 +4261 y(In)40 b(the)g(particle)f(tables,)i(the)f(follo)m(wing)d +(particles)i(are)g(considered)i(stable:)57 b(the)41 b(photon,)g(e)3693 +4225 y Fk(\006)3752 4261 y Fw(,)0 4369 y Fj(\026)59 4333 +y Fk(\006)118 4369 y Fw(,)30 b Fj(\031)234 4333 y Fk(\006)293 +4369 y Fw(,)f(K)425 4333 y Fk(\006)484 4369 y Fw(,)h(K)617 +4333 y Fl(0)617 4394 y(L)665 4369 y Fw(,)g(p,)p 833 4316 +55 4 v 30 w(p,)g(n,)p 1055 4316 V 30 w(n)g(and)f(all)e(the)i +(neutrinos.)43 b(It)29 b(is,)g(ho)m(w)m(ev)m(er,)k(alw)m(a)m(ys)c(p)s +(ossible)g(to)g(inhibit)0 4478 y(the)i(deca)m(y)g(of)f(an)m(y)h(giv)m +(en)f(particle)f(b)m(y)i(putting)e(the)i(corresp)s(onding)g +Fq(MDCY)g Fw(v)-5 b(alue)30 b(zero)g(or)g(negativ)m(e,)0 +4586 y(e.g.)65 b Fq(MDCY\(LUCOMP\(310\),1\)=0)46 b Fw(mak)m(es)40 +b(K)1704 4550 y Fl(0)1704 4610 y(S)1787 4586 y Fw(and)g +Fq(MDCY\(LUCOMP\(3122\),1\)=0)46 b Fw(\003)39 b(stable.)65 +b(It)40 b(is)0 4694 y(also)30 b(p)s(ossible)h(to)g(select)g(stabilit)m +(y)f(based)i(on)f(the)h(a)m(v)m(erage)g(lifetime)c(\(see)k +Fq(MSTJ\(22\))p Fw(\),)i(or)c(based)j(on)0 4803 y(whether)j(the)f(deca) +m(y)h(tak)m(es)g(place)e(within)f(a)i(giv)m(en)f(spherical)g(or)g +(cylindrical)f(v)m(olume)g(around)i(the)0 4911 y(origin.)146 +5019 y(The)47 b(Field-F)-8 b(eynman)44 b(jet)i(mo)s(del)e([Fie78)o(])i +(is)f(a)m(v)-5 b(ailable)44 b(in)h(the)h(program)f(b)m(y)i(c)m(hanging) +e(the)0 5128 y(follo)m(wing)k(v)-5 b(alues:)82 b Fq(MSTJ\(1\)=2)54 +b Fw(\(indep)s(enden)m(t)e(fragmen)m(tation\),)j Fq(MSTJ\(3\)=-1)f +Fw(\(retain)d(parti-)0 5236 y(cles)e(with)f Fj(p)488 +5251 y Fh(z)582 5236 y Fj(<)55 b Fw(0;)h(is)48 b(not)g(mandatory\),)k +Fq(MSTJ\(11\)=2)f Fw(\(c)m(hoice)e(of)f(longitudinal)d(fragmen)m(ta-)0 +5344 y(tion)38 b(function,)i(with)e(the)h Fj(a)g Fw(parameter)f(stored) +i(in)e Fq(PARJ\(51\))53 b(-)f(PARJ\(53\))p Fw(\),)42 +b Fq(MSTJ\(12\)=0)g Fw(\(no)0 5453 y(bary)m(on)29 b(pro)s(duction\),)f +Fq(MSTJ\(13\)=1)i Fw(\(giv)m(e)e(endp)s(oin)m(t)g(quarks)i +Fj(p)2414 5468 y Fk(?)2501 5453 y Fw(as)e(quarks)h(created)g(in)e(the)i +(\014eld\),)0 5561 y Fq(MSTJ\(24\)=0)k Fw(\(no)c(mass)h(broadening)g +(of)f(resonances\),)j Fq(PARJ\(2\)=0.5)h Fw(\(s)p Fj(=)p +Fw(u)d(ratio)f(for)g(the)i(pro)s(duc-)0 5669 y(tion)36 +b(of)h(new)i(q)p 578 5616 52 4 v(q)f(pairs\),)g Fq +(PARJ\(11\)=PARJ\(12\)=0.5)43 b Fw(\(probabilit)m(y)35 +b(for)i(mesons)h(to)f(ha)m(v)m(e)i(spin)e(1\))1817 5953 +y(289)p eop +%%Page: 290 296 +290 295 bop 0 -18 a Fw(and)32 b Fq(PARJ\(21\)=0.35)i +Fw(\(width)e(of)f(Gaussian)g(transv)m(erse)i(momen)m(tum)d +(distribution\).)41 b(In)32 b(addition)0 90 y(only)c(d,)h(u)f(and)h(s)f +(single)g(quark)h(jets)g(ma)m(y)f(b)s(e)g(generated)h(follo)m(wing)d +(the)i(FF)g(recip)s(e.)42 b(T)-8 b(o)s(da)m(y)29 b(the)f(FF)0 +198 y(`standard)39 b(jet')g(concept)g(is)f(probably)g(dead)h(and)g +(buried,)h(so)e(the)h(n)m(um)m(b)s(ers)h(ab)s(o)m(v)m(e)f(should)f +(more)0 307 y(b)s(e)e(tak)m(en)h(as)f(an)g(example)g(of)f(the)h +(\015exibilit)m(y)f(of)g(the)h(program,)g(than)g(as)g(something)f(to)h +(apply)f(in)0 415 y(practice.)146 523 y(A)g(wide)h(range)f(of)f(indep)s +(enden)m(t)i(fragmen)m(tation)d(options)i(are)g(implemen)m(ted,)f(to)h +(b)s(e)g(accessed)0 632 y(with)30 b(the)h(master)f(switc)m(h)h +Fq(MSTJ\(1\)=2)p Fw(.)45 b(In)31 b(particular,)e(with)h +Fq(MSTJ\(2\)=1)j Fw(a)d(gluon)f(jet)i(is)f(assumed)0 +740 y(to)35 b(fragmen)m(t)g(lik)m(e)f(a)h(random)g(d,)p +1280 661 55 4 v 36 w(d,)h(u,)p 1515 687 V 37 w(u,)g(s)g(or)p +1828 687 39 4 v 35 w(s)f(jet,)i(while)d(with)h Fq(MSTJ\(2\)=3)j +Fw(the)e(gluon)e(is)h(split)0 848 y(in)m(to)26 b(a)h(d)p +322 769 55 4 v(d,)h(u)p 485 795 V(u)g(or)e(s)p 718 795 +39 4 v(s)i(pair)e(of)g(jets)i(sharing)e(the)h(energy)h(according)f(to)f +(the)i(Altarelli-P)m(arisi)22 b(splitting)0 957 y(function.)43 +b(Whereas)32 b(energy)-8 b(,)33 b(momen)m(tum)d(and)h(\015a)m(v)m(our)h +(is)f(not)g(explicitly)f(conserv)m(ed)j(in)e(indep)s(en-)0 +1065 y(den)m(t)43 b(fragmen)m(tation,)f(a)g(n)m(um)m(b)s(er)g(of)g +(options)f(are)h(a)m(v)-5 b(ailable)39 b(in)i Fq(MSTJ\(3\))j +Fw(to)d(ensure)j(this)d(`p)s(ost)0 1173 y(facto',)c(e.g.)54 +b Fq(MSTJ\(3\)=1)38 b Fw(will)c(b)s(o)s(ost)h(the)h(ev)m(en)m(t)i(to)e +(ensure)h(momen)m(tum)e(conserv)-5 b(ation)36 b(and)g(then)0 +1282 y(\(in)c(the)i(c.m.)45 b(frame\))32 b(rescale)i(momen)m(ta)e(b)m +(y)i(a)f(common)f(factor)g(to)h(obtain)f(energy)i(conserv)-5 +b(ation,)0 1390 y(whereas)28 b Fq(MSTJ\(3\)=4)h Fw(rather)e(uses)i(a)d +(metho)s(d)g(of)h(stretc)m(hing)g(the)g(jets)h(in)e(longitudinal)d +(momen)m(tum)0 1498 y(along)31 b(the)i(resp)s(ectiv)m(e)h(jet)f(axis)f +(to)g(k)m(eep)j(angles)d(b)s(et)m(w)m(een)i(jets)g(\014xed.)1817 +5953 y(290)p eop +%%Page: 291 297 +291 296 bop 0 -18 a Ft(15)161 b(Ev)l(en)l(t)52 b(Analysis)j(Routines)0 +189 y Fw(T)-8 b(o)38 b(describ)s(e)g(the)h(complicated)d(geometries)h +(encoun)m(tered)j(in)d(m)m(ultihadronic)f(ev)m(en)m(ts,)41 +b(a)d(n)m(um)m(b)s(er)0 297 y(of)28 b(ev)m(en)m(t)i(measures)f(ha)m(v)m +(e)h(b)s(een)f(in)m(tro)s(duced.)42 b(These)30 b(measures)g(are)e(in)m +(tended)h(to)f(pro)m(vide)h(a)f(global)0 405 y(view)33 +b(of)g(the)g(prop)s(erties)g(of)f(a)h(giv)m(en)g(ev)m(en)m(t,)h +(wherein)g(the)f(full)e(information)f(con)m(ten)m(t)k(of)e(the)i(ev)m +(en)m(t)0 514 y(is)e(condensed)j(in)m(to)d(one)h(or)f(a)h(few)g(n)m(um) +m(b)s(ers.)45 b(A)33 b(steady)h(stream)e(of)g(suc)m(h)j(measures)e(are) +g(prop)s(osed)0 622 y(for)h(di\013eren)m(t)h(purp)s(oses.)52 +b(Man)m(y)35 b(are)g(rather)g(sp)s(ecialized)f(or)g(nev)m(er)j(catc)m +(h)e(on,)h(but)f(a)f(few)h(b)s(ecome)0 730 y(standards,)f(and)e(are)h +(useful)g(to)f(ha)m(v)m(e)i(easy)g(access)g(to.)43 b +Fm(Jetset)32 b Fw(therefore)h(con)m(tains)g(a)f(n)m(um)m(b)s(er)h(of)0 +839 y(routines)k(that)g(can)g(b)s(e)g(called)f(for)h(an)m(y)g(ev)m(en)m +(t,)k(and)c(that)g(will)d(directly)j(access)i(the)e(ev)m(en)m(t)i +(record)0 947 y(to)32 b(extract)i(the)f(required)g(information.)146 +1055 y(In)g(the)f(presen)m(tation)h(b)s(elo)m(w,)f(measures)h(ha)m(v)m +(e)g(b)s(een)g(group)s(ed)f(in)g(three)g(kinds.)44 b(The)33 +b(\014rst)g(con-)0 1164 y(tains)22 b(simple)g(ev)m(en)m(t)i(shap)s(e)g +(quan)m(tities,)g(suc)m(h)h(as)e(sphericit)m(y)g(and)g(thrust.)41 +b(The)24 b(second)g(is)e(jet)h(\014nding)0 1272 y(algorithms.)40 +b(The)30 b(third)f(is)g(a)g(mixed)f(bag)h(of)g(particle)f(m)m +(ultiplicities)d(and)30 b(comp)s(ositions,)e(factorial)0 +1380 y(momen)m(ts)k(and)h(energy{energy)h(correlations,)e(put)g +(together)h(in)f(a)g(small)f(statistics)h(pac)m(k)-5 +b(age.)146 1489 y(None)49 b(of)e(the)i(measures)g(presen)m(ted)h(here)f +(are)f(Loren)m(tz)h(in)m(v)-5 b(arian)m(t.)89 b(The)49 +b(analysis)e(will)f(b)s(e)0 1597 y(p)s(erformed)33 b(in)g(whatev)m(er)i +(frame)e(the)h(ev)m(en)m(t)h(happ)s(ens)g(to)e(b)s(e)h(giv)m(en)g(in.) +45 b(It)34 b(it)e(therefore)j(up)f(to)f(y)m(ou)0 1705 +y(to)h(decide)g(whether)h(the)g(frame)e(in)g(whic)m(h)h(ev)m(en)m(ts)i +(w)m(ere)f(generated)g(is)f(the)g(righ)m(t)f(one,)i(or)e(whether)0 +1814 y(ev)m(en)m(ts)j(b)s(eforehand)e(should)f(b)s(e)g(b)s(o)s(osted,)h +(e.g.)46 b(to)33 b(the)h(c.m.)46 b(frame.)f(Y)-8 b(ou)33 +b(can)h(also)e(decide)i(whic)m(h)0 1922 y(particles)e(y)m(ou)h(w)m(an)m +(t)g(to)g(ha)m(v)m(e)h(a\013ected)f(b)m(y)g(the)g(analysis.)0 +2192 y Fp(15.1)136 b(Ev)l(en)l(t)46 b(Shap)t(es)0 2365 +y Fw(In)40 b(this)f(section)g(w)m(e)h(study)h(general)d(ev)m(en)m(t)k +(shap)s(e)e(v)-5 b(ariables:)55 b(sphericit)m(y)-8 b(,)41 +b(thrust,)h(F)-8 b(o)m(x-W)g(olfram)0 2473 y(momen)m(ts,)52 +b(and)d(jet)g(masses.)92 b(These)51 b(measures)e(are)g(implemen)m(ted)e +(in)h(the)h(routines)g Fq(LUSPHE)p Fw(,)0 2582 y Fq(LUTHRU)p +Fw(,)34 b Fq(LUFOWO)g Fw(and)f Fq(LUJMAS)p Fw(,)h(resp)s(ectiv)m(ely)-8 +b(.)146 2690 y(Eac)m(h)48 b(ev)m(en)m(t)h(is)d(assumed)i(c)m +(haracterized)g(b)m(y)f(the)h(particle)d(four-momen)m(tum)g(v)m(ectors) +j Fj(p)3623 2705 y Fh(i)3704 2690 y Fw(=)0 2799 y(\()p +Fo(p)100 2814 y Fh(i)128 2799 y Fj(;)17 b(E)244 2814 +y Fh(i)272 2799 y Fw(\),)33 b(with)f Fj(i)c Fw(=)g(1)p +Fj(;)17 b Fw(2)p Fj(;)g Fn(\001)g(\001)g(\001)d Fj(;)j(n)32 +b Fw(an)g(index)h(running)f(o)m(v)m(er)i(the)f(particles)f(of)g(the)h +(ev)m(en)m(t.)0 3043 y Fo(15.1.1)113 b(Sphericit)m(y)0 +3216 y Fw(The)34 b(sphericit)m(y)e(tensor)i(is)e(de\014ned)i(as)f +([Bjo70)o(])1531 3562 y Fj(S)1597 3521 y Fh(\013\014)1717 +3562 y Fw(=)1831 3335 y Fg(X)1879 3518 y Fh(i)1967 3418 +y Fj(p)2016 3377 y Fh(\013)2016 3443 y(i)2082 3418 y +Fj(p)2131 3371 y Fh(\014)2131 3441 y(i)p 1831 3539 348 +4 v 1844 3557 a Fg(X)1892 3740 y Fh(i)1980 3640 y Fn(j)p +Fo(p)2070 3655 y Fh(i)2098 3640 y Fn(j)2126 3599 y Fl(2)2221 +3562 y Fj(;)1309 b Fw(\(215\))0 3902 y(where)33 b Fj(\013)q(;)17 +b(\014)33 b Fw(=)28 b(1)p Fj(;)17 b Fw(2)p Fj(;)g Fw(3)31 +b(corresp)s(onds)i(to)f(the)h Fj(x)p Fw(,)f Fj(y)k Fw(and)c +Fj(z)37 b Fw(comp)s(onen)m(ts.)44 b(By)32 b(standard)h(diagonaliza-)0 +4010 y(tion)k(of)h Fj(S)389 3974 y Fh(\013\014)520 4010 +y Fw(one)h(ma)m(y)f(\014nd)h(three)g(eigen)m(v)-5 b(alues)39 +b Fj(\025)1946 4025 y Fl(1)2023 4010 y Fn(\025)f Fj(\025)2195 +4025 y Fl(2)2272 4010 y Fn(\025)g Fj(\025)2444 4025 y +Fl(3)2483 4010 y Fw(,)i(with)e Fj(\025)2835 4025 y Fl(1)2901 +4010 y Fw(+)26 b Fj(\025)3060 4025 y Fl(2)3125 4010 y +Fw(+)g Fj(\025)3284 4025 y Fl(3)3361 4010 y Fw(=)38 b(1.)61 +b(The)0 4118 y(sphericit)m(y)33 b(of)f(the)h(ev)m(en)m(t)h(is)f(then)g +(de\014ned)h(as)1524 4354 y Fj(S)g Fw(=)1731 4287 y(3)p +1731 4331 49 4 v 1731 4422 a(2)1807 4354 y(\()p Fj(\025)1902 +4369 y Fl(2)1963 4354 y Fw(+)22 b Fj(\025)2118 4369 y +Fl(3)2158 4354 y Fw(\))32 b Fj(;)1302 b Fw(\(216\))0 +4586 y(so)33 b(that)g(0)c Fn(\024)g Fj(S)35 b Fn(\024)29 +b Fw(1.)45 b(Sphericit)m(y)33 b(is)g(essen)m(tially)g(a)g(measure)g(of) +g(the)g(summed)g Fj(p)3043 4550 y Fl(2)3043 4610 y Fk(?)3136 +4586 y Fw(with)f(resp)s(ect)j(to)0 4694 y(the)e(ev)m(en)m(t)h(axis;)f +(a)f(2-jet)g(ev)m(en)m(t)i(corresp)s(onds)g(to)f Fj(S)g +Fn(\031)28 b Fw(0)33 b(and)f(an)h(isotropic)e(ev)m(en)m(t)j(to)f +Fj(S)g Fn(\031)28 b Fw(1.)146 4803 y(The)39 b(aplanarit)m(y)e +Fj(A)p Fw(,)j(with)e(de\014nition)f Fj(A)g Fw(=)1864 +4763 y Fl(3)p 1864 4779 36 4 v 1864 4837 a(2)1909 4803 +y Fj(\025)1966 4818 y Fl(3)2006 4803 y Fw(,)i(is)f(constrained)g(to)g +(the)h(range)f(0)f Fn(\024)g Fj(A)h Fn(\024)3707 4763 +y Fl(1)p 3707 4779 V 3707 4837 a(2)3752 4803 y Fw(.)0 +4911 y(It)32 b(measures)i(the)e(transv)m(erse)j(momen)m(tum)c(comp)s +(onen)m(t)h(out)g(of)g(the)h(ev)m(en)m(t)h(plane:)43 +b(a)32 b(planar)g(ev)m(en)m(t)0 5019 y(has)h Fj(A)28 +b Fn(\031)g Fw(0)k(and)h(an)f(isotropic)g(one)g Fj(A)c +Fn(\031)1577 4980 y Fl(1)p 1577 4996 V 1577 5054 a(2)1623 +5019 y Fw(.)146 5128 y(Eigen)m(v)m(ectors)d Fo(v)764 +5143 y Fh(j)824 5128 y Fw(can)e(b)s(e)g(found)g(that)g(corresp)s(ond)h +(to)f(the)g(three)h(eigen)m(v)-5 b(alues)23 b Fj(\025)3129 +5143 y Fh(j)3188 5128 y Fw(of)g(the)g(spheric-)0 5236 +y(it)m(y)36 b(tensor.)57 b(The)37 b Fo(v)757 5251 y Fl(1)833 +5236 y Fw(one)g(is)f(called)g(the)h(sphericit)m(y)g(axis)f(\(or)g(ev)m +(en)m(t)j(axis,)e(if)f(it)f(is)i(clear)f(from)f(the)0 +5344 y(con)m(text)e(that)e(sphericit)m(y)h(has)g(b)s(een)h(used\),)g +(while)e(the)h(sphericit)m(y)g(ev)m(en)m(t)h(plane)e(is)g(spanned)i(b)m +(y)g Fo(v)3740 5359 y Fl(1)0 5453 y Fw(and)g Fo(v)249 +5468 y Fl(2)288 5453 y Fw(.)146 5561 y(The)27 b(sphericit)m(y)e(tensor) +h(is)f(quadratic)g(in)g(particle)f(momen)m(ta.)39 b(This)26 +b(means)f(that)g(the)h(sphericit)m(y)0 5669 y(v)-5 b(alue)30 +b(is)g(c)m(hanged)h(if)e(one)i(particle)e(is)h(split)f(up)h(in)m(to)g +(t)m(w)m(o)h(collinear)d(ones)j(whic)m(h)g(share)g(the)g(original)1817 +5953 y(291)p eop +%%Page: 292 298 +292 297 bop 0 -18 a Fw(momen)m(tum.)41 b(Th)m(us)29 b(sphericit)m(y)g +(is)e(not)h(an)h(infrared)e(safe)h(quan)m(tit)m(y)h(in)f(QCD)g(p)s +(erturbation)f(theory)-8 b(.)0 90 y(A)33 b(useful)f(generalization)f +(of)h(the)h(sphericit)m(y)g(tensor)g(is)1342 455 y Fj(S)1408 +413 y Fl(\()p Fh(r)r Fl(\))p Fh(\013\014)1616 455 y Fw(=)1730 +227 y Fg(X)1778 410 y Fh(i)1866 311 y Fn(j)p Fo(p)1956 +326 y Fh(i)1985 311 y Fn(j)2013 269 y Fh(r)r Fk(\000)p +Fl(2)2157 311 y Fj(p)2206 269 y Fh(\013)2206 335 y(i)2272 +311 y Fj(p)2321 263 y Fh(\014)2321 333 y(i)p 1730 431 +639 4 v 1889 450 a Fg(X)1937 632 y Fh(i)2025 533 y Fn(j)p +Fo(p)2115 548 y Fh(i)2144 533 y Fn(j)2172 492 y Fh(r)2411 +455 y Fj(;)1119 b Fw(\(217\))0 817 y(where)41 b Fj(r)i +Fw(is)c(the)i(p)s(o)m(w)m(er)g(of)e(the)h(momen)m(tum)f(dep)s(endence.) +68 b(While)39 b Fj(r)k Fw(=)d(2)g(th)m(us)h(corresp)s(onds)g(to)0 +926 y(sphericit)m(y)-8 b(,)28 b Fj(r)j Fw(=)c(1)f(corresp)s(onds)i(to)f +(linear)e(measures)i(calculable)e(in)h(p)s(erturbation)g(theory)h([P)m +(ar78]:)1476 1363 y Fj(S)1542 1322 y Fl(\(1\))p Fh(\013\014)1752 +1363 y Fw(=)1866 1136 y Fg(X)1914 1318 y Fh(i)2012 1152 +y Fj(p)2061 1111 y Fh(\013)2061 1176 y(i)2128 1152 y +Fj(p)2177 1105 y Fh(\014)2177 1175 y(i)p 2012 1196 212 +4 v 2045 1288 a Fn(j)p Fo(p)2135 1303 y Fh(i)2163 1288 +y Fn(j)p 1866 1340 368 4 v 1909 1358 a Fg(X)1957 1541 +y Fh(i)2045 1441 y Fn(j)p Fo(p)2135 1456 y Fh(i)2163 +1441 y Fn(j)2276 1363 y Fj(:)1254 b Fw(\(218\))146 1726 +y(Eigen)m(v)-5 b(alues)47 b(and)f(eigen)m(v)m(ectors)i(ma)m(y)e(b)s(e)g +(de\014ned)i(exactly)e(as)h(b)s(efore,)i(and)e(therefore)f(also)0 +1834 y(equiv)-5 b(alen)m(ts)39 b(of)g Fj(S)45 b Fw(and)39 +b Fj(A)p Fw(.)64 b(These)41 b(ha)m(v)m(e)f(no)f(standard)h(names;)j(I)c +(tend)h(to)f(call)e(them)i(linearized)0 1943 y(sphericit)m(y)25 +b Fj(S)497 1958 y Fl(lin)603 1943 y Fw(and)g(linearized)d(aplanarit)m +(y)h Fj(A)1746 1958 y Fl(lin)1829 1943 y Fw(.)40 b(Quan)m(tities)24 +b(that)g(are)g(standard)h(in)e(the)i(literature)0 2051 +y(are)33 b(instead)f(the)h(com)m(binations)e([Ell81)n(])1224 +2259 y Fj(C)90 b Fw(=)83 b(3\()p Fj(\025)1687 2274 y +Fl(1)1726 2259 y Fj(\025)1783 2274 y Fl(2)1845 2259 y +Fw(+)22 b Fj(\025)2000 2274 y Fl(1)2039 2259 y Fj(\025)2096 +2274 y Fl(3)2157 2259 y Fw(+)g Fj(\025)2312 2274 y Fl(2)2352 +2259 y Fj(\025)2409 2274 y Fl(3)2448 2259 y Fw(\))32 +b Fj(;)1012 b Fw(\(219\))1217 2392 y Fj(D)86 b Fw(=)d(27)p +Fj(\025)1698 2407 y Fl(1)1737 2392 y Fj(\025)1794 2407 +y Fl(2)1833 2392 y Fj(\025)1890 2407 y Fl(3)1962 2392 +y Fj(:)1568 b Fw(\(220\))0 2600 y(Eac)m(h)35 b(of)e(these)i(is)e +(constrained)h(to)g(b)s(e)g(in)f(the)h(range)g(b)s(et)m(w)m(een)h(0)f +(and)g(1.)47 b(T)m(ypically)-8 b(,)33 b Fj(C)41 b Fw(is)33 +b(used)i(to)0 2709 y(measure)h(the)h(3-jet)f(structure)h(and)f +Fj(D)j Fw(the)e(4-jet)e(one,)j(since)e Fj(C)43 b Fw(is)36 +b(v)-5 b(anishing)35 b(for)h(a)f(p)s(erfect)i(2-jet)0 +2817 y(ev)m(en)m(t)44 b(and)f Fj(D)h Fw(is)e(v)-5 b(anishing)41 +b(for)h(a)g(planar)f(ev)m(en)m(t.)75 b(The)43 b Fj(C)49 +b Fw(measure)43 b(is)f(related)g(to)f(the)i(second)0 +2925 y(F)-8 b(o)m(w-W)g(olfram)30 b(momen)m(t)i(\(see)h(b)s(elo)m(w\),) +g Fj(C)h Fw(=)28 b(1)22 b Fn(\000)g Fj(H)1976 2940 y +Fl(2)2016 2925 y Fw(.)146 3034 y(Nonin)m(teger)38 b Fj(r)i +Fw(v)-5 b(alues)37 b(ma)m(y)g(also)f(b)s(e)i(used,)h(and)f(corresp)s +(onding)f(generalized)g(sphericit)m(y)g(and)0 3142 y(aplanarit)m(y)22 +b(measures)i(calculated.)39 b(While)22 b(p)s(erturbativ)m(e)i(argumen)m +(ts)f(fa)m(v)m(our)h Fj(r)31 b Fw(=)c(1,)e(w)m(e)f(kno)m(w)h(that)0 +3250 y(the)h(fragmen)m(tation)e(`noise',)j(e.g.)41 b(from)25 +b(transv)m(erse)j(momen)m(tum)c(\015uctuations,)j(is)e(prop)s +(ortionately)0 3359 y(larger)31 b(for)g(lo)m(w)g(momen)m(tum)g +(particles,)g(and)h(so)g Fj(r)e(>)e Fw(1)j(should)h(b)s(e)g(b)s(etter)g +(for)g(exp)s(erimen)m(tal)f(ev)m(en)m(t)0 3467 y(axis)42 +b(determinations.)70 b(The)43 b(use)g(of)f(to)s(o)f(large)g(an)h +Fj(r)j Fw(v)-5 b(alue,)44 b(on)e(the)g(other)g(hand,)j(puts)e(all)d +(the)0 3575 y(emphasis)29 b(on)f(a)h(few)g(high-momen)m(tum)d +(particles,)j(and)g(therefore)h(in)m(v)m(olv)m(es)f(a)g(loss)f(of)h +(information.)0 3684 y(It)d(should)f(then)h(come)f(as)h(no)f(surprise)h +(that)g(in)m(termediate)e Fj(r)k Fw(v)-5 b(alues,)27 +b(of)e(around)g(1.5,)i(giv)m(es)f(the)g(b)s(est)0 3792 +y(p)s(erformance)d(for)f(ev)m(en)m(t)j(axis)e(determinations)e(in)h +(2-jet)h(ev)m(en)m(ts,)k(where)d(the)g(theoretical)d(meaning)h(of)0 +3900 y(the)29 b(ev)m(en)m(t)h(axis)e(is)g(w)m(ell-de\014ned.)42 +b(The)29 b(gain)e(in)h(accuracy)h(compared)f(with)g(the)h(more)e(con)m +(v)m(en)m(tional)0 4009 y(c)m(hoices)33 b Fj(r)e Fw(=)c(2)33 +b(or)f Fj(r)e Fw(=)e(1)k(is)g(rather)h(mo)s(dest,)f(ho)m(w)m(ev)m(er.)0 +4256 y Fo(15.1.2)113 b(Thrust)0 4429 y Fw(The)34 b(quan)m(tit)m(y)f +(thrust)g Fj(T)46 b Fw(is)32 b(de\014ned)i(b)m(y)g([Bra64)o(])1433 +4797 y Fj(T)42 b Fw(=)27 b(max)1639 4861 y Fk(j)p Fa(n)p +Fk(j)p Fl(=1)1860 4570 y Fg(X)1908 4753 y Fh(i)1997 4653 +y Fn(j)p Fo(n)22 b Fn(\001)f Fo(p)2220 4668 y Fh(i)2249 +4653 y Fn(j)p 1860 4774 417 4 v 1927 4792 a Fg(X)1975 +4975 y Fh(i)2064 4875 y Fn(j)p Fo(p)2154 4890 y Fh(i)2182 +4875 y Fn(j)2319 4797 y Fj(;)1211 b Fw(\(221\))0 5160 +y(and)43 b(the)g(thrust)g(axis)g Fo(v)949 5175 y Fl(1)1031 +5160 y Fw(is)g(giv)m(en)f(b)m(y)i(the)f Fo(n)g Fw(v)m(ector)h(for)e +(whic)m(h)i(maxim)m(um)c(is)i(attained.)74 b(The)0 5268 +y(allo)m(w)m(ed)30 b(range)g(is)g(1)p Fj(=)p Fw(2)d Fn(\024)h +Fj(T)42 b Fn(\024)28 b Fw(1,)j(with)f(a)g(2-jet)g(ev)m(en)m(t)i +(corresp)s(onding)e(to)g Fj(T)42 b Fn(\031)28 b Fw(1)i(and)h(an)f +(isotropic)0 5377 y(ev)m(en)m(t)k(to)f Fj(T)41 b Fn(\031)28 +b Fw(1)p Fj(=)p Fw(2.)146 5485 y(In)39 b(passing,)h(w)m(e)g(note)f +(that)f(this)g(is)g(not)h(the)g(only)f(de\014nition)f(found)i(in)f(the) +h(literature.)60 b(The)0 5593 y(de\014nitions)28 b(agree)g(for)g(ev)m +(en)m(ts)j(studied)d(in)g(the)h(c.m.)41 b(frame)28 b(and)g(where)i(all) +c(particles)h(are)i(detected.)1817 5953 y(292)p eop +%%Page: 293 299 +293 298 bop 0 -18 a Fw(Ho)m(w)m(ev)m(er,)35 b(a)d(de\014nition)g(lik)m +(e)885 398 y Fj(T)41 b Fw(=)28 b(2)33 b(max)1172 462 +y Fk(j)p Fa(n)p Fk(j)p Fl(=1)1394 105 y Fg(\014)1394 +154 y(\014)1394 204 y(\014)1394 254 y(\014)1394 304 y(\014)1421 +171 y(X)1469 353 y Fh(i)1558 254 y Fj(\022)s Fw(\()p +Fo(n)22 b Fn(\001)g Fo(p)1840 269 y Fh(i)1869 254 y Fw(\))17 +b Fo(p)1986 269 y Fh(i)2014 105 y Fg(\014)2014 154 y(\014)2014 +204 y(\014)2014 254 y(\014)2014 304 y(\014)p 1394 375 +648 4 v 1576 393 a(X)1624 575 y Fh(i)1713 476 y Fn(j)p +Fo(p)1803 491 y Fh(i)1831 476 y Fn(j)2079 398 y Fw(=)27 +b(2)45 b(max)2264 458 y Fh(\022)2297 468 y Fe(i)2324 +458 y Fl(=0)p Fh(;)p Fl(1)2512 105 y Fg(\014)2512 154 +y(\014)2512 204 y(\014)2512 254 y(\014)2512 304 y(\014)2540 +171 y(X)2588 353 y Fh(i)2676 254 y Fj(\022)2721 269 y +Fh(i)2766 254 y Fo(p)2828 269 y Fh(i)2857 105 y Fg(\014)2857 +154 y(\014)2857 204 y(\014)2857 254 y(\014)2857 304 y(\014)p +2512 375 373 4 v 2557 393 a(X)2605 575 y Fh(i)2694 476 +y Fn(j)p Fo(p)2784 491 y Fh(i)2812 476 y Fn(j)3557 398 +y Fw(\(222\))0 762 y(\(where)37 b Fj(\022)s Fw(\()p Fj(x)p +Fw(\))f(is)f(the)h(step)h(function,)f Fj(\022)s Fw(\()p +Fj(x)p Fw(\))d(=)g(1)j(if)e Fj(x)f(>)g Fw(0,)k(else)e +Fj(\022)s Fw(\()p Fj(x)p Fw(\))f(=)f(0\))i(giv)m(es)h(di\013eren)m(t)g +(results)0 871 y(than)d(the)h(one)g(ab)s(o)m(v)m(e)g(if)e(e.g.)46 +b(only)33 b(c)m(harged)h(particles)e(are)i(detected.)47 +b(It)33 b(w)m(ould)h(ev)m(en)h(b)s(e)e(p)s(ossible)0 +979 y(to)g(ha)m(v)m(e)j Fj(T)43 b(>)30 b Fw(1;)k(to)g(a)m(v)m(oid)f +(suc)m(h)j(problems,)d(often)h(an)g(extra)g(\014ctitious)f(particle)f +(is)i(in)m(tro)s(duced)g(to)0 1087 y(balance)e(the)h(total)e(momen)m +(tum)g([Bra79].)146 1196 y(Eq.)j(\(221\))e(ma)m(y)g(b)s(e)h(rewritten)f +(as)1449 1618 y Fj(T)42 b Fw(=)36 b(max)1651 1674 y Fh(\017)1680 +1684 y Fe(i)1706 1674 y Fl(=)p Fk(\006)p Fl(1)1894 1324 +y Fg(\014)1894 1374 y(\014)1894 1424 y(\014)1894 1474 +y(\014)1894 1523 y(\014)1922 1391 y(X)1970 1573 y Fh(i)2058 +1474 y Fj(\017)2097 1489 y Fh(i)2143 1474 y Fo(p)2205 +1489 y Fh(i)2233 1324 y Fg(\014)2233 1374 y(\014)2233 +1424 y(\014)2233 1474 y(\014)2233 1523 y(\014)p 1894 +1594 367 4 v 1936 1613 a(X)1984 1795 y Fh(i)2073 1696 +y Fn(j)p Fo(p)2163 1711 y Fh(i)2191 1696 y Fn(j)2303 +1618 y Fj(:)1227 b Fw(\(223\))0 1982 y(\(This)33 b(ma)m(y)f(also)g(b)s +(e)g(view)m(ed)i(as)f(applying)e(eq.)j(\(222\))e(to)g(an)g(ev)m(en)m(t) +j(with)d(2)p Fj(n)g Fw(particles,)g Fj(n)h Fw(carrying)0 +2090 y(the)e(momen)m(ta)f Fo(p)652 2105 y Fh(i)711 2090 +y Fw(and)h Fj(n)h Fw(the)f(momen)m(ta)f Fn(\000)p Fo(p)1718 +2105 y Fh(i)1747 2090 y Fw(,)h(th)m(us)h(automatically)27 +b(balancing)j(the)h(momen)m(tum.\))0 2198 y(T)-8 b(o)38 +b(\014nd)g(the)g(thrust)g(v)-5 b(alue)37 b(and)g(axis)h(this)f(w)m(a)m +(y)-8 b(,)40 b(2)1942 2162 y Fh(n)p Fk(\000)p Fl(1)2116 +2198 y Fw(di\013eren)m(t)e(p)s(ossibilities)d(w)m(ould)i(ha)m(v)m(e)i +(to)e(b)s(e)0 2307 y(tested.)44 b(The)32 b(reduction)f(b)m(y)h(a)f +(factor)f(of)h(2)f(comes)i(from)d Fj(T)45 b Fw(b)s(eing)30 +b(unc)m(hanged)j(when)f(all)d Fj(\017)3424 2322 y Fh(i)3480 +2307 y Fn(!)e(\000)p Fj(\017)3723 2322 y Fh(i)3752 2307 +y Fw(.)0 2415 y(Therefore)37 b(this)e(approac)m(h)h(rapidly)f(b)s +(ecomes)h(prohibitiv)m(e.)51 b(Other)36 b(exact)h(metho)s(ds)e(exist,)i +(whic)m(h)0 2523 y(`only')32 b(require)h(ab)s(out)f(4)p +Fj(n)982 2487 y Fl(2)1054 2523 y Fw(com)m(binations)f(to)h(b)s(e)h +(tried.)146 2632 y(In)39 b(the)f(implemen)m(tation)d(in)i +Fm(Jetset)p Fw(,)i(a)e(faster)i(alternativ)m(e)e(metho)s(d)g(is)h +(used,)i(in)e(whic)m(h)g(the)0 2740 y(thrust)33 b(axis)g(is)f(iterated) +g(from)f(a)h(starting)g(direction)f Fo(n)2096 2704 y +Fl(\(0\))2224 2740 y Fw(according)h(to)1327 3099 y Fo(n)1389 +3058 y Fl(\()p Fh(j)t Fl(+1\))1599 3099 y Fw(=)1740 2872 +y Fg(X)1788 3054 y Fh(i)1876 2955 y Fj(\017)p Fw(\()p +Fo(n)2015 2913 y Fl(\()p Fh(j)t Fl(\))2130 2955 y Fn(\001)21 +b Fo(p)2241 2970 y Fh(i)2270 2955 y Fw(\))c Fo(p)2387 +2970 y Fh(i)p 1712 3075 731 4 v 1712 3085 a Fg(\014)1712 +3135 y(\014)1712 3185 y(\014)1712 3235 y(\014)1712 3285 +y(\014)1740 3152 y(X)1788 3334 y Fh(i)1876 3235 y Fj(\017)p +Fw(\()p Fo(n)2015 3194 y Fl(\()p Fh(j)t Fl(\))2130 3235 +y Fn(\001)k Fo(p)2241 3250 y Fh(i)2270 3235 y Fw(\))c +Fo(p)2387 3250 y Fh(i)2415 3085 y Fg(\014)2415 3135 y(\014)2415 +3185 y(\014)2415 3235 y(\014)2415 3285 y(\014)3557 3099 +y Fw(\(224\))0 3521 y(\(where)36 b Fj(\017)p Fw(\()p +Fj(x)p Fw(\))c(=)f(1)j(for)h Fj(x)c(>)g Fw(0)k(and)g +Fj(\017)p Fw(\()p Fj(x)p Fw(\))d(=)f Fn(\000)p Fw(1)k(for)f +Fj(x)e(<)f Fw(0\).)49 b(It)35 b(is)f(easy)i(to)e(sho)m(w)i(that)f(the)g +(related)0 3640 y(thrust)j(v)-5 b(alue)37 b(will)e(nev)m(er)k +(decrease,)h Fj(T)1498 3604 y Fl(\()p Fh(j)t Fl(+1\))1716 +3640 y Fn(\025)c Fj(T)1900 3604 y Fl(\()p Fh(j)t Fl(\))1991 +3640 y Fw(.)58 b(In)38 b(fact,)h(the)e(metho)s(d)g(normally)e(con)m(v)m +(erges)0 3748 y(in)30 b(2{4)h(iterations.)41 b(Unfortunately)-8 +b(,)31 b(this)g(con)m(v)m(ergence)j(need)e(not)f(b)s(e)g(to)m(w)m(ards) +i(the)e(correct)h(thrust)0 3857 y(axis)d(but)g(is)f(o)s(ccasionally)f +(only)h(to)m(w)m(ards)i(a)e(lo)s(cal)f(maxim)m(um)f(of)i(the)i(thrust)f +(function)f([Bra79].)42 b(W)-8 b(e)0 3965 y(kno)m(w)39 +b(of)f(no)g(fo)s(olpro)s(of)d(w)m(a)m(y)k(around)f(this)g +(complication,)e(but)i(the)h(danger)f(of)g(an)g(error)f(ma)m(y)h(b)s(e) +0 4073 y(lo)m(w)m(ered)33 b(if)e(sev)m(eral)i(di\013eren)m(t)f +(starting)f(axes)i Fo(n)1784 4037 y Fl(\(0\))1911 4073 +y Fw(are)f(tried)f(and)i(found)f(to)f(agree.)44 b(These)34 +b Fo(n)3523 4037 y Fl(\(0\))3649 4073 y Fw(are)0 4182 +y(suitably)c(constructed)j(from)d(the)h Fj(n)1348 4146 +y Fk(0)1403 4182 y Fw(\(b)m(y)g(default)g(4\))f(particles)h(with)f(the) +i(largest)e(momen)m(ta)g(in)g(the)0 4302 y(ev)m(en)m(t,)j(and)d(the)h +(2)685 4266 y Fh(n)728 4243 y Fd(0)750 4266 y Fk(\000)p +Fl(1)874 4302 y Fw(starting)e(directions)1678 4236 y +Fg(P)1766 4323 y Fh(i)1810 4302 y Fj(\017)1849 4317 y +Fh(i)1894 4302 y Fo(p)1956 4317 y Fh(i)2015 4302 y Fw(constructed)j +(from)d(these)i(are)g(tried)e(in)h(falling)0 4411 y(order)38 +b(of)f(the)h(corresp)s(onding)f(absolute)h(momen)m(tum)e(v)-5 +b(alues.)58 b(When)39 b(a)e(predetermined)h(n)m(um)m(b)s(er)0 +4519 y(of)33 b(the)h(starting)f(axes)h(ha)m(v)m(e)h(giv)m(en)f(con)m(v) +m(ergence)i(to)m(w)m(ards)f(the)f(same)f(\(b)s(est\))h(thrust)h(axis)e +(this)g(one)0 4627 y(is)f(accepted.)146 4736 y(In)37 +b(the)g(plane)f(p)s(erp)s(endicular)g(to)g(the)h(thrust)g(axis,)h(a)e +(ma)5 b(jor)35 b([MAR79])i(axis)f(and)h(v)-5 b(alue)36 +b(ma)m(y)0 4844 y(b)s(e)d(de\014ned)h(in)e(just)h(the)g(same)f(fashion) +g(as)h(thrust,)g(i.e.)1272 5202 y Fj(M)1366 5217 y Fh(a)1436 +5202 y Fw(=)156 b(max)1540 5266 y Fk(j)p Fa(n)p Fk(j)p +Fl(=1)p Fh(;)10 b Fa(n)p Fk(\001)p Fa(v)1853 5275 y Ff(1)1888 +5266 y Fl(=0)2021 4975 y Fg(X)2069 5158 y Fh(i)2158 5058 +y Fn(j)p Fo(n)22 b Fn(\001)g Fo(p)2382 5073 y Fh(i)2410 +5058 y Fn(j)p 2021 5179 417 4 v 2088 5197 a Fg(X)2136 +5380 y Fh(i)2225 5280 y Fn(j)p Fo(p)2315 5295 y Fh(i)2343 +5280 y Fn(j)2480 5202 y Fj(:)1050 b Fw(\(225\))0 5561 +y(In)38 b(a)f(plane)g(more)g(e\016cien)m(t)h(metho)s(ds)f(can)h(b)s(e)g +(used)g(to)f(\014nd)h(an)g(axis)f(than)h(in)e(three)i(dimensions)0 +5669 y([W)-8 b(u79],)40 b(but)e(for)g(simplicit)m(y)d(w)m(e)k(use)g +(the)g(same)f(metho)s(d)f(as)i(ab)s(o)m(v)m(e.)61 b(Finally)-8 +b(,)36 b(a)i(third)g(axis,)h(the)1817 5953 y(293)p eop +%%Page: 294 300 +294 299 bop 0 -18 a Fw(minor)30 b(axis,)j(is)e(de\014ned)j(p)s(erp)s +(endicular)d(to)h(the)h(thrust)f(and)h(ma)5 b(jor)31 +b(ones,)i(and)f(a)g(minor)e(v)-5 b(alue)32 b Fj(M)3751 +-3 y Fh(i)0 90 y Fw(is)f(calculated)g(just)i(as)f(thrust)g(and)g(ma)5 +b(jor.)43 b(The)33 b(di\013erence)f(b)s(et)m(w)m(een)i(ma)5 +b(jor)31 b(and)h(minor)e(is)i(called)0 198 y(oblateness,)h +Fj(O)e Fw(=)d Fj(M)798 213 y Fh(a)862 198 y Fn(\000)23 +b Fj(M)1056 213 y Fh(i)1084 198 y Fw(.)44 b(The)34 b(upp)s(er)f(limit)c +(on)k(oblateness)g(dep)s(ends)i(on)d(the)i(thrust)f(v)-5 +b(alue)32 b(in)0 307 y(a)j(not)h(so)g(simple)e(w)m(a)m(y)-8 +b(.)54 b(In)36 b(general)f Fj(O)g Fn(\031)f Fw(0)h(corresp)s(onds)i(to) +e(an)h(ev)m(en)m(t)i(symmetrical)33 b(around)j(the)0 +415 y(thrust)d(axis)g(and)f(high)g Fj(O)j Fw(to)d(a)g(planar)g(ev)m(en) +m(t.)146 523 y(As)f(in)f(the)h(case)g(of)f(sphericit)m(y)-8 +b(,)31 b(a)f(generalization)e(to)i(arbitrary)f(momen)m(tum)g(dep)s +(endence)k(ma)m(y)0 632 y(easily)42 b(b)s(e)g(obtained,)i(here)f(b)m(y) +h(replacing)d(the)i Fo(p)1895 647 y Fh(i)1965 632 y Fw(in)f(the)h(form) +m(ulae)d(ab)s(o)m(v)m(e)j(b)m(y)h Fn(j)p Fo(p)3199 647 +y Fh(i)3227 632 y Fn(j)3255 595 y Fh(r)r Fk(\000)p Fl(1)3399 +632 y Fo(p)3461 647 y Fh(i)3490 632 y Fw(.)72 b(This)0 +740 y(p)s(ossibilit)m(y)30 b(is)j(included,)f(although)f(so)i(far)f(it) +g(has)h(not)f(found)h(an)m(y)g(exp)s(erimen)m(tal)f(use.)0 +988 y Fo(15.1.3)113 b(F)-9 b(o)m(x-W)g(olfram)36 b(momen)m(ts)0 +1160 y Fw(The)e(F)-8 b(o)m(x-W)g(olfram)29 b(momen)m(ts)k +Fj(H)1281 1175 y Fh(l)1306 1160 y Fw(,)g Fj(l)d Fw(=)d(0)p +Fj(;)17 b Fw(1)p Fj(;)g Fw(2)p Fj(;)g(:)g(:)g(:)n Fw(,)33 +b(are)g(de\014ned)h(b)m(y)f([F)-8 b(o)m(x79])1287 1435 +y Fj(H)1368 1450 y Fh(l)1422 1435 y Fw(=)1525 1352 y +Fg(X)1547 1535 y Fh(i;j)1672 1368 y Fn(j)p Fo(p)1762 +1383 y Fh(i)1790 1368 y Fn(j)17 b(j)p Fo(p)1925 1383 +y Fh(j)1961 1368 y Fn(j)p 1672 1412 317 4 v 1749 1504 +a Fj(E)1827 1469 y Fl(2)1821 1527 y(vis)2015 1435 y Fj(P)2078 +1450 y Fh(l)2104 1435 y Fw(\(cos)g Fj(\022)2334 1450 +y Fh(ij)2395 1435 y Fw(\))32 b Fj(;)1065 b Fw(\(226\))0 +1733 y(where)36 b Fj(\022)329 1748 y Fh(ij)424 1733 y +Fw(is)e(the)g(op)s(ening)g(angle)g(b)s(et)m(w)m(een)i(hadrons)f +Fj(i)f Fw(and)h Fj(j)40 b Fw(and)34 b Fj(E)2669 1748 +y Fl(vis)2793 1733 y Fw(the)h(total)d(visible)h(energy)0 +1841 y(of)42 b(the)h(ev)m(en)m(t.)74 b(Note)43 b(that)f(also)f(auto)s +(correlations,)i Fj(i)i Fw(=)f Fj(j)6 b Fw(,)45 b(are)d(included.)73 +b(The)43 b Fj(P)3272 1856 y Fh(l)3298 1841 y Fw(\()p +Fj(x)p Fw(\))g(are)f(the)0 1950 y(Legendre)34 b(p)s(olynomials,)1204 +2158 y Fj(P)1267 2173 y Fl(0)1306 2158 y Fw(\()p Fj(x)p +Fw(\))83 b(=)g(1)33 b Fj(;)1204 2291 y(P)1267 2306 y +Fl(1)1306 2291 y Fw(\()p Fj(x)p Fw(\))83 b(=)g Fj(x)33 +b(;)1204 2481 y(P)1267 2496 y Fl(2)1306 2481 y Fw(\()p +Fj(x)p Fw(\))83 b(=)1689 2413 y(1)p 1689 2457 49 4 v +1689 2549 a(2)1765 2481 y(\(3)p Fj(x)1907 2439 y Fl(2)1968 +2481 y Fn(\000)23 b Fw(1\))32 b Fj(;)1204 2714 y(P)1267 +2729 y Fl(3)1306 2714 y Fw(\()p Fj(x)p Fw(\))83 b(=)1689 +2646 y(1)p 1689 2690 V 1689 2782 a(2)1765 2714 y(\(5)p +Fj(x)1907 2673 y Fl(3)1968 2714 y Fn(\000)23 b Fw(3)p +Fj(x)p Fw(\))33 b Fj(;)1204 2947 y(P)1267 2962 y Fl(4)1306 +2947 y Fw(\()p Fj(x)p Fw(\))83 b(=)1689 2879 y(1)p 1689 +2924 V 1689 3015 a(8)1765 2947 y(\(35)p Fj(x)1956 2906 +y Fl(4)2017 2947 y Fn(\000)23 b Fw(30)p Fj(x)2270 2906 +y Fl(2)2331 2947 y Fw(+)f(3\))33 b Fj(:)981 b Fw(\(227\))0 +3192 y(T)-8 b(o)25 b(the)h(exten)m(t)h(that)e(particle)f(masses)i(ma)m +(y)f(b)s(e)g(neglected,)i Fj(H)2310 3207 y Fl(0)2377 +3192 y Fn(\021)i Fw(1.)40 b(It)26 b(is)e(customary)i(to)f(normalize)0 +3301 y(the)32 b(results)h(to)f Fj(H)677 3316 y Fl(0)716 +3301 y Fw(,)g(i.e.)43 b(to)32 b(giv)m(e)g Fj(H)1343 3316 +y Fh(l)q Fl(0)1431 3301 y Fw(=)c Fj(H)1616 3316 y Fh(l)1642 +3301 y Fj(=H)1772 3316 y Fl(0)1811 3301 y Fw(.)43 b(If)32 +b(momen)m(tum)f(is)g(balanced)h(then)h Fj(H)3296 3316 +y Fl(1)3363 3301 y Fn(\021)28 b Fw(0.)43 b(2-jet)0 3409 +y(ev)m(en)m(ts)35 b(tend)e(to)f(giv)m(e)h Fj(H)919 3424 +y Fh(l)972 3409 y Fn(\031)c Fw(1)j(for)g Fj(l)j Fw(ev)m(en)f(and)e +Fn(\031)d Fw(0)j(for)g Fj(l)j Fw(o)s(dd.)0 3657 y Fo(15.1.4)113 +b(Jet)36 b(masses)0 3829 y Fw(The)29 b(particles)e(of)h(an)f(ev)m(en)m +(t)j(ma)m(y)e(b)s(e)g(divided)g(in)m(to)f(t)m(w)m(o)i(classes.)42 +b(F)-8 b(or)28 b(eac)m(h)g(class)h(a)e(squared)j(in)m(v)-5 +b(ari-)0 3938 y(an)m(t)33 b(mass)g(ma)m(y)g(b)s(e)g(calculated,)f +Fj(M)1348 3902 y Fl(2)1338 3962 y(1)1422 3938 y Fw(and)h +Fj(M)1716 3902 y Fl(2)1706 3962 y(2)1756 3938 y Fw(.)45 +b(If)33 b(the)g(assignmen)m(t)g(of)f(particles)h(is)f(adjusted)i(suc)m +(h)0 4046 y(that)e(the)g(sum)g Fj(M)688 4010 y Fl(2)678 +4071 y(1)750 4046 y Fw(+)21 b Fj(M)951 4010 y Fl(2)941 +4071 y(2)1023 4046 y Fw(is)32 b(minimized,)d(the)j(t)m(w)m(o)h(masses)g +(th)m(us)g(obtained)f(are)g(called)f(hea)m(vy)i(and)0 +4154 y(ligh)m(t)f(jet)i(mass,)g Fj(M)733 4169 y Fl(H)824 +4154 y Fw(and)f Fj(M)1108 4169 y Fl(L)1157 4154 y Fw(.)47 +b(It)33 b(has)h(b)s(een)h(sho)m(wn)g(that)e(these)i(quan)m(tities)e +(are)h(w)m(ell)f(b)s(eha)m(v)m(ed)i(in)0 4263 y(p)s(erturbation)28 +b(theory)i([Cla79)o(].)43 b(In)30 b(e)1401 4227 y Fl(+)1460 +4263 y Fw(e)1503 4227 y Fk(\000)1592 4263 y Fw(annihilation,)c(the)k +(hea)m(vy)h(jet)e(mass)g(obtains)g(a)g(con)m(tribu-)0 +4371 y(tion)e(from)g(q)p 473 4318 52 4 v(q)q(g)i(3-jet)e(ev)m(en)m(ts,) +32 b(whereas)d(the)g(ligh)m(t)d(mass)i(is)g(non-v)-5 +b(anishing)26 b(only)i(when)h(4-jet)e(ev)m(en)m(ts)0 +4479 y(also)32 b(are)g(included.)43 b(In)33 b(the)g(c.m.)43 +b(frame)32 b(of)g(an)h(ev)m(en)m(t)h(one)f(has)g(the)g(limits)c(0)f +Fn(\024)g Fj(M)3154 4443 y Fl(2)3144 4504 y(H)3229 4479 +y Fn(\024)g Fj(E)3412 4443 y Fl(2)3406 4504 y(cm)3501 +4479 y Fj(=)p Fw(3.)146 4588 y(In)i(general,)f(the)g(sub)s(division)f +(of)h(particles)f(tends)i(to)f(b)s(e)g(in)m(to)f(t)m(w)m(o)i +(hemispheres,)h(separated)f(b)m(y)0 4696 y(a)k(plane)g(p)s(erp)s +(endicular)g(to)h(an)f(ev)m(en)m(t)i(axis.)50 b(As)35 +b(with)f(thrust,)i(it)e(is)g(time-consuming)e(to)i(\014nd)h(the)0 +4804 y(exact)g(solution.)47 b(Di\013eren)m(t)33 b(appro)m(ximate)g +(strategies)i(ma)m(y)e(therefore)i(b)s(e)f(used.)50 b(In)34 +b(the)h(program,)0 4913 y(the)i(sphericit)m(y)f(axis)g(is)g(used)h(to)f +(p)s(erform)f(a)h(fast)g(sub)s(division)f(in)m(to)g(t)m(w)m(o)i +(hemispheres,)h(and)e(th)m(us)0 5021 y(in)m(to)26 b(t)m(w)m(o)h +(preliminary)d(jets.)42 b(Thereafter)27 b(one)g(particle)e(at)i(a)f +(time)f(is)h(tested)i(to)e(determine)g(whether)0 5130 +y(the)38 b(sum)f Fj(M)488 5093 y Fl(2)478 5154 y(1)554 +5130 y Fw(+)26 b Fj(M)760 5093 y Fl(2)750 5154 y(2)837 +5130 y Fw(w)m(ould)38 b(b)s(e)g(decreased)h(if)e(that)g(particle)f(w)m +(ere)j(to)e(b)s(e)h(assigned)g(to)f(the)h(other)0 5238 +y(jet.)50 b(The)36 b(precedure)h(is)d(stopp)s(ed)i(when)f(no)g(further) +g(signi\014can)m(t)f(c)m(hange)i(is)e(obtained.)50 b(Often)35 +b(the)0 5346 y(original)g(assignmen)m(t)k(is)f(retained)h(as)g(it)e +(is,)j(i.e.)62 b(the)39 b(sphericit)m(y)g(axis)g(giv)m(es)g(a)f(go)s(o) +s(d)g(separation.)0 5455 y(This)28 b(is)g(not)g(a)g(full)e(guaran)m +(tee,)k(since)e(the)h(program)d(migh)m(t)h(get)h(stuc)m(k)i(in)d(a)h +(lo)s(cal)e(mimim)m(um)e(whic)m(h)0 5563 y(is)32 b(not)h(the)g(global)d +(one.)1817 5953 y(294)p eop +%%Page: 295 301 +295 300 bop 0 -18 a Fp(15.2)136 b(Cluster)45 b(Finding)0 +154 y Fw(Global)22 b(ev)m(en)m(t)k(measures,)h(lik)m(e)d(sphericit)m(y) +h(or)f(thrust,)j(can)d(only)g(b)s(e)h(used)h(to)e(determine)g(the)h +(jet)f(axes)0 263 y(for)36 b(bac)m(k-to-bac)m(k)i(2-jet)f(ev)m(en)m +(ts.)58 b(T)-8 b(o)37 b(determine)g(the)g(individual)e(jet)i(axes)h(in) +e(ev)m(en)m(ts)j(with)e(three)0 371 y(or)e(more)f(jets,)i(or)f(with)f +(t)m(w)m(o)i(\(main\))d(jets)j(whic)m(h)f(are)g(not)g(bac)m(k-to-bac)m +(k,)i(cluster)e(algorithms)d(are)0 479 y(customarily)e(used.)44 +b(In)32 b(these,)h(nearb)m(y)g(particles)e(are)h(group)s(ed)f(together) +h(in)m(to)f(a)g(v)-5 b(ariable)30 b(n)m(um)m(b)s(er)0 +588 y(of)c(clusters.)43 b(Eac)m(h)27 b(cluster)h(has)f(a)f(w)m +(ell-de\014ned)h(direction,)g(giv)m(en)g(b)m(y)h(a)f(suitably)f(w)m +(eigh)m(ted)h(a)m(v)m(erage)0 696 y(of)32 b(the)h(constituen)m(t)g +(particle)f(directions.)146 804 y(The)39 b(cluster)f(algorithms)d +(traditionally)f(used)k(in)f(e)2115 768 y Fl(+)2174 804 +y Fw(e)2217 768 y Fk(\000)2314 804 y Fw(and)h(in)f(pp)h(ph)m(ysics)h +(di\013er)e(in)g(sev)m(eral)0 913 y(resp)s(ects.)75 b(The)44 +b(former)e(tend)h(to)f(b)s(e)h(spherically)e(symmetric,)k(i.e.)73 +b(ha)m(v)m(e)44 b(no)e(preferred)i(axis)e(in)0 1021 y(space,)j(and)c +(normally)e(all)g(particles)i(ha)m(v)m(e)i(to)e(b)s(e)g(assigned)h(to)f +(some)g(jet.)70 b(The)42 b(latter)e(pic)m(k)i(the)0 1129 +y(b)s(eam)c(axis)g(as)g(preferred)h(direction,)g(and)g(mak)m(e)f(use)h +(of)f(v)-5 b(ariables)37 b(related)h(to)g(this)g(c)m(hoice,)i(suc)m(h)0 +1238 y(as)k(rapidit)m(y)e(and)i(transv)m(erse)i(momen)m(tum;)i +(additionally)40 b(only)j(a)h(fraction)e(of)h(all)f(particles)g(are)0 +1346 y(assigned)33 b(to)f(jets.)146 1454 y(This)25 b(re\015ects)h(a)e +(di\013erence)h(in)f(the)h(underlying)f(ph)m(ysics:)41 +b(in)24 b(pp)h(collisions,)e(the)i(b)s(eam)f(remnan)m(ts)0 +1563 y(found)i(at)f(lo)m(w)g(transv)m(erse)i(momen)m(ta)e(are)g(not)g +(related)h(to)f(an)m(y)h(hard)f(pro)s(cesses,)k(and)d(therefore)g(only) +0 1671 y(pro)m(vide)k(an)g(un)m(w)m(an)m(ted)h(noise)f(to)f(man)m(y)h +(studies.)43 b(\(Of)30 b(course,)h(also)e(hard)h(pro)s(cesses)h(ma)m(y) +f(pro)s(duce)0 1779 y(particles)f(at)h(lo)m(w)g(transv)m(erse)i(momen)m +(ta,)d(but)i(at)e(a)h(rate)g(m)m(uc)m(h)h(less)f(than)g(that)g(from)f +(soft)h(or)g(semi-)0 1888 y(hard)36 b(pro)s(cesses.\))56 +b(F)-8 b(urther,)37 b(the)g(kinematics)e(of)g(hard)h(pro)s(cesses)j +(is,)d(to)g(a)g(go)s(o)s(d)f(appro)m(ximation,)0 1996 +y(factorized)27 b(in)m(to)f(the)i(hard)f(subpro)s(cess)i(itself,)e +(whic)m(h)h(is)e(b)s(o)s(ost)h(in)m(v)-5 b(arian)m(t)26 +b(in)g(rapidit)m(y)-8 b(,)27 b(and)g(parton-)0 2104 y(distribution)k +(e\013ects,)j(whic)m(h)f(determine)f(the)h(o)m(v)m(erall)f(p)s(osition) +e(of)i(a)h(hard)f(scattering)h(in)f(rapidit)m(y)-8 b(.)0 +2213 y(Hence)31 b(rapidit)m(y)-8 b(,)29 b(azim)m(uthal)e(angle)i(and)h +(transv)m(erse)i(momen)m(tum)c(is)h(a)g(suitable)g(co)s(ordinate)f +(frame)0 2321 y(to)k(describ)s(e)h(hard)g(pro)s(cesses)i(in.)146 +2429 y(In)c(standard)g(e)714 2393 y Fl(+)773 2429 y Fw(e)816 +2393 y Fk(\000)906 2429 y Fw(annihilation)c(ev)m(en)m(ts,)33 +b(on)d(the)h(other)g(hand,)g(the)g(hard)f(pro)s(cess)i(c.m.)42 +b(frame)0 2538 y(tends)29 b(to)f(b)s(e)g(almost)e(at)i(rest,)h(and)g +(the)f(ev)m(en)m(t)i(axis)e(is)f(just)h(ab)s(out)g(randomly)f +(distributed)g(in)g(space,)0 2646 y(i.e.)41 b(with)27 +b(no)h(preferred)g(r^)-49 b(ole)26 b(for)h(the)h(axis)f(de\014ned)i(b)m +(y)f(the)g(incoming)d(e)2686 2610 y Fk(\006)2746 2646 +y Fw(.)41 b(All)26 b(particle)g(pro)s(duction)0 2754 +y(is)k(initiated)e(b)m(y)j(and)f(related)g(to)g(the)h(hard)f(subpro)s +(cess.)45 b(Some)30 b(of)g(the)h(particles)e(ma)m(y)h(b)s(e)h(less)f +(easy)0 2863 y(to)40 b(asso)s(ciate)f(to)h(a)f(sp)s(eci\014c)i(jet,)h +(but)e(there)g(is)g(no)g(comp)s(elling)c(reason)41 b(to)e(remo)m(v)m(e) +i(an)m(y)f(of)g(them)0 2971 y(from)31 b(consideration.)146 +3079 y(This)36 b(do)s(es)g(not)f(mean)g(that)h(the)g(separation)f(ab)s +(o)m(v)m(e)h(is)f(alw)m(a)m(ys)h(required.)53 b(2)p Fj(\015)40 +b Fw(ev)m(en)m(ts)e(in)d(e)3618 3043 y Fl(+)3677 3079 +y Fw(e)3720 3043 y Fk(\000)0 3188 y Fw(ma)m(y)i(ha)m(v)m(e)h(a)f +(structure)h(with)f(`b)s(eam)f(jets')i(and)f(`hard)g(scattering')g +(jets,)i(for)d(whic)m(h)i(the)f(pp)h(t)m(yp)s(e)0 3296 +y(algorithms)d(migh)m(t)i(b)s(e)h(w)m(ell)f(suited.)59 +b(Con)m(v)m(ersely)-8 b(,)42 b(a)37 b(hea)m(vy)j(particle)c(pro)s +(duced)j(in)e(pp)h(collisions)0 3404 y(could)32 b(pro\014tably)g(b)s(e) +h(studied,)g(in)f(its)g(o)m(wn)h(rest)g(frame,)f(with)g(e)2418 +3368 y Fl(+)2478 3404 y Fw(e)2521 3368 y Fk(\000)2613 +3404 y Fw(tec)m(hniques.)146 3513 y(In)44 b(the)g(follo)m(wing,)g +(particles)f(are)g(only)g(c)m(haracterized)i(b)m(y)f(their)f +(three-momen)m(ta)g(or,)j(alter-)0 3621 y(nativ)m(ely)-8 +b(,)47 b(their)c(energy)j(and)e(direction)f(of)h(motion.)76 +b(No)44 b(kno)m(wledge)h(is)f(therefore)h(assumed)g(of)0 +3730 y(particle)c(t)m(yp)s(es,)47 b(or)c(ev)m(en)h(of)e(mass)h(and)g(c) +m(harge.)75 b(Clearly)-8 b(,)44 b(the)f(more)f(is)h(kno)m(wn,)j(the)e +(more)e(so-)0 3838 y(phisticated)f(clustering)f(algorithms)e(can)k(b)s +(e)f(used.)70 b(The)42 b(pro)s(cedure)g(then)g(also)e(b)s(ecomes)h +(more)0 3946 y(detector-dep)s(enden)m(t,)35 b(and)e(therefore)g(less)g +(suitable)e(for)h(general)g(usage.)146 4055 y Fm(Jetset)e +Fw(con)m(tains)h(t)m(w)m(o)h(cluster)f(\014nding)f(routines.)43 +b Fq(LUCLUS)32 b Fw(is)f(of)f(the)i(e)2874 4018 y Fl(+)2933 +4055 y Fw(e)2976 4018 y Fk(\000)3066 4055 y Fw(t)m(yp)s(e)g(and)f +Fq(LUCELL)0 4163 y Fw(of)h(the)h(pp)g(one.)44 b(Eac)m(h)33 +b(of)f(them)h(allo)m(ws)e(some)i(v)-5 b(ariations)30 +b(of)i(the)h(basic)g(sc)m(heme.)0 4411 y Fo(15.2.1)113 +b(Cluster)36 b(\014nding)i(in)e(an)i Fw(e)1496 4374 y +Fl(+)1556 4411 y Fw(e)1599 4374 y Fk(\000)1696 4411 y +Fo(t)m(yp)s(e)f(of)h(en)m(vironmen)m(t)0 4583 y Fw(The)27 +b(usage)g(of)e(cluster)i(algorithms)c(for)j(e)1529 4547 +y Fl(+)1588 4583 y Fw(e)1631 4547 y Fk(\000)1716 4583 +y Fw(applications)e(started)j(in)e(the)i(late)e(1970's.)41 +b(A)26 b(n)m(um)m(b)s(er)0 4692 y(of)34 b(di\013eren)m(t)h(approac)m +(hes)h(w)m(ere)f(prop)s(osed)g([Bab80].)50 b(Of)34 b(these,)i(w)m(e)g +(will)c(here)j(only)f(discuss)i(those)0 4800 y(based)44 +b(on)f(binary)g(joining.)74 b(In)43 b(this)g(kind)g(of)g(approac)m(h,)j +(initially)39 b(eac)m(h)45 b(\014nal-state)d(particle)g(is)0 +4908 y(considered)h(to)e(b)s(e)h(a)f(cluster.)71 b(Using)41 +b(some)h(distance)g(measure,)i(the)e(t)m(w)m(o)g(nearest)h(clusters)f +(are)0 5017 y(found.)69 b(If)42 b(their)e(distance)i(is)e(smaller)g +(than)h(some)g(cut-o\013)g(v)-5 b(alue,)42 b(the)g(t)m(w)m(o)g +(clusters)g(are)f(joined)0 5125 y(in)m(to)33 b(one.)48 +b(In)34 b(this)f(new)i(con\014guration,)e(the)i(t)m(w)m(o)f(clusters)h +(that)e(are)h(no)m(w)h(nearest)g(are)e(found)h(and)0 +5233 y(joined,)42 b(and)f(so)h(on)e(un)m(til)g(all)f(clusters)i(are)g +(separated)h(b)m(y)g(a)f(distance)g(larger)e(than)i(the)h(cut-o\013.)0 +5342 y(The)34 b(clusters)f(remaining)e(at)h(the)i(end)f(are)g(often)g +(also)f(called)g(jets.)45 b(Note)33 b(that,)f(in)g(this)h(approac)m(h,) +0 5450 y(eac)m(h)c(single)e(particle)g(b)s(elongs)g(to)h(exactly)h(one) +f(cluster.)42 b(Also)28 b(note)g(that)g(the)g(resulting)f(jet)h +(picture)0 5558 y(explicitly)c(dep)s(ends)j(on)f(the)g(cut-o\013)g(v)-5 +b(alue)25 b(used.)43 b(Normally)23 b(the)j(n)m(um)m(b)s(er)g(of)g +(clusters)g(is)g(allo)m(w)m(ed)f(to)1817 5953 y(295)p +eop +%%Page: 296 302 +296 301 bop 0 -18 a Fw(v)-5 b(ary)32 b(from)f(ev)m(en)m(t)j(to)e(ev)m +(en)m(t,)i(but)e(o)s(ccasionally)e(it)h(is)g(more)h(useful)g(to)g(ha)m +(v)m(e)h(the)f(cluster)h(algorithm)0 90 y(\014nd)g(a)f(predetermined)h +(n)m(um)m(b)s(er)g(of)f(jets)h(\(lik)m(e)f(3\).)146 198 +y(The)40 b(ob)m(vious)e(c)m(hoice)h(for)e(a)h(distance)h(measure)g(is)e +(to)h(use)i(squared)f(in)m(v)-5 b(arian)m(t)37 b(mass,)j(i.e.)60 +b(for)0 307 y(t)m(w)m(o)33 b(clusters)h Fj(i)e Fw(and)h +Fj(j)39 b Fw(to)32 b(de\014ne)i(the)f(distance)g(to)f(b)s(e)1226 +488 y Fj(m)1311 447 y Fl(2)1311 513 y Fh(ij)1399 488 +y Fw(=)c(\()p Fj(E)1613 503 y Fh(i)1663 488 y Fw(+)22 +b Fj(E)1833 503 y Fh(j)1870 488 y Fw(\))1908 447 y Fl(2)1970 +488 y Fn(\000)g Fw(\()p Fo(p)2169 503 y Fh(i)2220 488 +y Fw(+)g Fo(p)2380 503 y Fh(j)2417 488 y Fw(\))2455 447 +y Fl(2)2527 488 y Fj(:)1003 b Fw(\(228\))0 682 y(\(Equiv)-5 +b(alen)m(tly)d(,)32 b(one)g(could)g(ha)m(v)m(e)i(used)f(the)g(in)m(v)-5 +b(arian)m(t)31 b(mass)h(as)h(measure)g(rather)f(than)g(its)g(square;)0 +790 y(this)i(is)g(just)h(a)f(matter)g(of)g(con)m(v)m(enience.\))51 +b(In)35 b(fact,)g(a)f(n)m(um)m(b)s(er)h(of)f(p)s(eople)g(\(including)f +(the)i(author\))0 899 y(tried)29 b(this)g(measure)h(long)f(ago)g(and)g +(ga)m(v)m(e)i(up)f(on)f(it,)g(since)i(it)d(turns)i(out)g(to)f(ha)m(v)m +(e)i(sev)m(ere)h(instabilit)m(y)0 1007 y(problems.)61 +b(The)40 b(reason)f(is)f(w)m(ell)g(understo)s(o)s(d:)56 +b(in)38 b(general,)h(particles)f(tend)h(to)g(cluster)g(closer)f(in)0 +1115 y(in)m(v)-5 b(arian)m(t)30 b(mass)h(in)g(the)h(region)e(of)h +(small)e(momen)m(ta.)42 b(The)32 b(clustering)f(pro)s(cess)h(therefore) +g(tends)h(to)0 1224 y(start)28 b(in)f(the)h(cen)m(ter)i(of)d(the)h(ev)m +(en)m(t,)j(and)d(only)g(subsequen)m(tly)i(spread)f(out)m(w)m(ards)g(to) +f(encompass)g(also)0 1332 y(the)35 b(fast)g(particles.)49 +b(Rather)35 b(than)f(clustering)g(slo)m(w)h(particles)f(around)h(the)g +(fast)g(ones)g(\(where)h(the)0 1440 y(latter)h(na)-11 +b(\177)-38 b(\020v)m(ely)39 b(should)f(b)s(est)h(represen)m(t)h(the)f +(jet)g(directions\),)g(the)g(in)m(v)-5 b(arian)m(t)37 +b(mass)h(measure)h(will)0 1549 y(tend)33 b(to)f(cluster)h(fast)g +(particles)f(around)g(the)h(slo)m(w)g(ones.)146 1657 +y(Another)g(instabilit)m(y)d(ma)m(y)j(b)s(e)g(seen)g(b)m(y)h +(considering)e(the)h(clustering)f(in)f(a)i(simple)e(2-jet)h(ev)m(en)m +(t.)0 1765 y(By)27 b(the)g(time)e(that)h(clustering)g(has)g(reac)m(hed) +i(the)f(lev)m(el)f(of)g(three)h(clusters,)h(the)f(`b)s(est')g(the)g +(clustering)0 1874 y(algorithm)36 b(can)j(p)s(ossibly)f(ha)m(v)m(e)i +(ac)m(hiev)m(ed,)i(in)c(terms)h(of)f(\014nding)h(three)g(lo)m(w-mass)f +(clusters,)j(is)e(to)0 1982 y(ha)m(v)m(e)45 b(one)e(fast)g(cluster)h +(around)f(eac)m(h)h(jet,)i(plus)d(a)g(third)g(slo)m(w)g(cluster)h(in)e +(the)i(middle.)73 b(In)44 b(the)0 2090 y(last)f(step)h(this)f(third)g +(cluster)h(w)m(ould)f(b)s(e)h(joined)f(with)g(one)h(of)f(the)h(fast)f +(ones,)k(to)d(pro)s(duce)g(t)m(w)m(o)0 2199 y(\014nal)29 +b(asymmetric)f(clusters:)42 b(one)30 b(cluster)g(w)m(ould)f(con)m(tain) +g(all)e(the)j(slo)m(w)f(particles,)g(also)g(those)h(that)0 +2307 y(visually)h(lo)s(ok)h(lik)m(e)g(b)s(elonging)f(to)h(the)h(opp)s +(osite)f(jet.)44 b(A)33 b(simple)e(binary)i(joining)d(pro)s(cess,)k +(with)f(no)0 2415 y(p)s(ossiblit)m(y)e(to)i(reassign)f(particles)g(b)s +(et)m(w)m(een)j(clusters,)e(is)f(therefore)h(not)g(lik)m(ely)e(to)h(b)s +(e)h(optimal.)146 2524 y(The)46 b(solution)d(adopted)h(b)m(y)i(the)e +(author)g([Sj\177)-49 b(o83])44 b(is)g(to)g(reject)h(in)m(v)-5 +b(arian)m(t)43 b(mass)i(as)f(distance)0 2632 y(measure.)d(Instead)25 +b(a)f(jet)g(is)f(de\014ned)j(as)e(a)f(collection)f(of)i(particles)f +(whic)m(h)h(ha)m(v)m(e)i(a)d(limited)e(transv)m(erse)0 +2741 y(momen)m(tum)28 b(with)h(resp)s(ect)h(to)f(a)g(common)f(jet)h +(axis,)h(and)g(hence)g(also)f(with)g(resp)s(ect)h(to)f(eac)m(h)h +(other.)0 2849 y(This)47 b(picture)g(is)f(clearly)g(inspired)g(b)m(y)i +(the)f(standard)g(fragmen)m(tation)e(picture,)51 b(e.g.)86 +b(in)46 b(string)0 2957 y(fragmen)m(tation.)41 b(A)32 +b(distance)g(measure)f Fj(d)1579 2972 y Fh(ij)1671 2957 +y Fw(b)s(et)m(w)m(een)j(t)m(w)m(o)e(particles)e(\(or)h(clusters\))i +(with)e(momen)m(ta)0 3066 y Fo(p)62 3081 y Fh(i)132 3066 +y Fw(and)42 b Fo(p)393 3081 y Fh(j)472 3066 y Fw(should)f(th)m(us)i +(not)f(dep)s(end)h(critically)c(on)i(the)h(longitudinal)d(momen)m(ta)h +(but)i(only)g(on)0 3174 y(the)37 b(relativ)m(e)e(transv)m(erse)j(momen) +m(tum.)53 b(A)36 b(n)m(um)m(b)s(er)g(of)g(suc)m(h)i(measures)f(w)m(ere) +g(tried,)f(and)h(the)f(one)0 3282 y(ev)m(en)m(tually)d(selected)h(is) +481 3533 y Fj(d)532 3492 y Fl(2)532 3558 y Fh(ij)619 +3533 y Fw(=)733 3466 y(1)p 733 3510 49 4 v 733 3602 a(2)808 +3533 y(\()p Fn(j)p Fo(p)936 3548 y Fh(i)964 3533 y Fn(j)17 +b(j)p Fo(p)1099 3548 y Fh(j)1135 3533 y Fn(j)22 b(\000)h +Fo(p)1347 3548 y Fh(i)1397 3533 y Fn(\001)f Fo(p)1509 +3548 y Fh(j)1546 3533 y Fw(\))1687 3466 y(4)17 b Fn(j)p +Fo(p)1843 3481 y Fh(i)1870 3466 y Fn(j)g(j)p Fo(p)2005 +3481 y Fh(j)2041 3466 y Fn(j)p 1610 3510 536 4 v 1610 +3602 a Fw(\()p Fn(j)p Fo(p)1738 3617 y Fh(i)1766 3602 +y Fn(j)22 b Fw(+)g Fn(j)p Fo(p)2004 3617 y Fh(j)2041 +3602 y Fn(j)p Fw(\))2107 3573 y Fl(2)2183 3533 y Fw(=)2297 +3466 y(4)17 b Fn(j)p Fo(p)2453 3481 y Fh(i)2480 3466 +y Fn(j)2508 3430 y Fl(2)2564 3466 y Fn(j)p Fo(p)2654 +3481 y Fh(j)2690 3466 y Fn(j)2718 3430 y Fl(2)2791 3466 +y Fw(sin)2911 3426 y Fl(2)2950 3466 y Fw(\()p Fj(\022)3033 +3481 y Fh(ij)3094 3466 y Fj(=)p Fw(2\))p 2297 3510 933 +4 v 2495 3602 a(\()p Fn(j)p Fo(p)2623 3617 y Fh(i)2651 +3602 y Fn(j)22 b Fw(+)g Fn(j)p Fo(p)2889 3617 y Fh(j)2926 +3602 y Fn(j)p Fw(\))2992 3573 y Fl(2)3272 3533 y Fj(:)258 +b Fw(\(229\))146 3786 y(F)-8 b(or)36 b(small)d(relativ)m(e)j(angle)f +Fj(\022)1237 3801 y Fh(ij)1298 3786 y Fw(,)i(where)g(2)17 +b(sin)o(\()p Fj(\022)1915 3801 y Fh(ij)1976 3786 y Fj(=)p +Fw(2\))33 b Fn(\031)h Fw(sin)17 b Fj(\022)2438 3801 y +Fh(ij)2535 3786 y Fw(and)36 b(cos)17 b Fj(\022)2920 3801 +y Fh(ij)3015 3786 y Fn(\031)34 b Fw(1,)i(this)g(measure)0 +3894 y(reduces)e(to)1545 4044 y Fj(d)1596 4059 y Fh(ij)1684 +4044 y Fn(\031)1799 3977 y(j)p Fo(p)1889 3992 y Fh(i)1939 +3977 y Fn(\002)23 b Fo(p)2101 3992 y Fh(j)2137 3977 y +Fn(j)p 1799 4021 367 4 v 1800 4113 a(j)p Fo(p)1890 4128 +y Fh(i)1940 4113 y Fw(+)f Fo(p)2100 4128 y Fh(j)2137 +4113 y Fn(j)2208 4044 y Fj(;)1322 b Fw(\(230\))0 4261 +y(where)41 b(`)p Fn(\002)p Fw(')g(represen)m(ts)h(the)f(cross)g(pro)s +(duct.)66 b(W)-8 b(e)40 b(therefore)h(see)g(that)f Fj(d)2803 +4276 y Fh(ij)2903 4261 y Fw(in)f(this)h(limit)d(has)j(the)0 +4369 y(simple)27 b(ph)m(ysical)h(in)m(terpretation)g(as)h(the)g(transv) +m(erse)h(momen)m(tum)d(of)h(either)h(particle)e(with)h(resp)s(ect)0 +4478 y(to)35 b(the)g(direction)f(giv)m(en)h(b)m(y)g(the)h(sum)f(of)f +(the)h(t)m(w)m(o)h(particle)d(momen)m(ta.)50 b(Unlik)m(e)34 +b(the)h(appro)m(ximate)0 4586 y(expression,)h(ho)m(w)m(ev)m(er,)g +Fj(d)952 4601 y Fh(ij)1046 4586 y Fw(do)s(es)f(not)e(v)-5 +b(anish)34 b(for)f(t)m(w)m(o)i(bac)m(k-to-bac)m(k)g(particles,)e(but)h +(is)g(here)g(more)0 4694 y(related)e(to)g(the)h(in)m(v)-5 +b(arian)m(t)32 b(mass)g(b)s(et)m(w)m(een)j(them.)146 +4803 y(The)29 b(basic)e(sc)m(heme)h(is)f(of)g(the)h(binary)f(joining)e +(t)m(yp)s(e,)k(i.e.)42 b(initially)23 b(eac)m(h)28 b(particle)e(is)h +(assumed)h(to)0 4911 y(b)s(e)33 b(a)g(cluster)h(b)m(y)g(itself.)43 +b(Then)35 b(the)e(t)m(w)m(o)h(clusters)g(with)f(smallest)e(relativ)m(e) +i(distance)g Fj(d)3282 4926 y Fh(ij)3375 4911 y Fw(are)g(found)0 +5019 y(and,)i(if)f Fj(d)362 5034 y Fh(ij)453 5019 y Fj(<)d(d)611 +5034 y Fl(join)730 5019 y Fw(,)36 b(with)e Fj(d)1068 +5034 y Fl(join)1222 5019 y Fw(some)g(predetermined)h(distance,)h(the)f +(t)m(w)m(o)g(clusters)g(are)g(joined)f(to)0 5128 y(one,)i(i.e.)49 +b(their)34 b(momen)m(ta)g(are)g(added)i(v)m(ectorially)d(to)h(giv)m(e)h +(the)g(momen)m(tum)e(of)h(the)h(new)h(cluster.)0 5236 +y(This)46 b(is)f(rep)s(eated)h(un)m(til)f(the)h(distance)g(b)s(et)m(w)m +(een)h(an)m(y)g(t)m(w)m(o)f(clusters)g(is)g Fj(>)j(d)3014 +5251 y Fl(join)3134 5236 y Fw(.)82 b(The)47 b(n)m(um)m(b)s(er)0 +5344 y(and)41 b(momen)m(ta)e(of)h(these)i(\014nal)e(clusters)i(then)f +(represen)m(t)i(our)d(reconstruction)h(of)f(the)i(initial)36 +b(jet)0 5453 y(con\014guration,)c(and)g(eac)m(h)i(particle)d(is)h +(assigned)h(to)f(one)h(of)f(the)h(clusters.)146 5561 +y(T)-8 b(o)27 b(mak)m(e)g(this)f(sc)m(heme)i(w)m(ork)-5 +b(able,)28 b(t)m(w)m(o)f(further)g(ingredien)m(ts)f(are)h(necessary)-8 +b(,)30 b(ho)m(w)m(ev)m(er.)44 b(Firstly)-8 b(,)0 5669 +y(after)46 b(t)m(w)m(o)h(clusters)g(ha)m(v)m(e)g(b)s(een)g(joined,)j +(some)c(particles)f(b)s(elonging)f(to)i(the)h(new)g(cluster)g(ma)m(y) +1817 5953 y(296)p eop +%%Page: 297 303 +297 302 bop 0 -18 a Fw(actually)33 b(b)s(e)h(closer)g(to)g(another)g +(cluster.)48 b(Hence,)36 b(after)e(eac)m(h)h(joining,)e(all)f +(particles)h(in)g(the)i(ev)m(en)m(t)0 90 y(are)g(reassigned)h(to)f(the) +h(closest)f(of)g(the)h(clusters.)52 b(F)-8 b(or)35 b(particle)f +Fj(i)p Fw(,)i(this)f(means)g(that)g(the)h(distance)0 +198 y Fj(d)51 213 y Fh(ij)138 198 y Fw(to)26 b(all)f(clusters)i +Fj(j)32 b Fw(in)26 b(the)h(ev)m(en)m(t)i(has)e(to)f(b)s(e)h(ev)-5 +b(aluated)26 b(and)h(compared.)41 b(After)27 b(all)d(particles)i(ha)m +(v)m(e)0 307 y(b)s(een)41 b(considered,)h(and)e(only)f(then,)k(are)d +(cluster)g(momen)m(ta)e(recalculated)i(to)f(tak)m(e)i(in)m(to)e(accoun) +m(t)0 415 y(an)m(y)34 b(reassignmen)m(ts.)47 b(T)-8 b(o)34 +b(sa)m(v)m(e)h(time,)d(the)i(assignmen)m(t)f(pro)s(cedure)i(is)e(not)g +(iterated)g(un)m(til)f(a)i(stable)0 523 y(con\014guration)47 +b(is)h(reac)m(hed,)53 b(but,)f(since)d(all)d(particles)h(are)h +(reassigned)h(at)e(eac)m(h)i(step,)k(suc)m(h)d(an)0 632 +y(iteration)33 b(is)i(e\013ectiv)m(ely)h(taking)f(place)g(in)f +(parallel)f(with)i(the)h(cluster)g(joining.)49 b(Only)35 +b(at)g(the)h(v)m(ery)0 740 y(end,)41 b(when)e(all)e Fj(d)672 +755 y Fh(ij)770 740 y Fj(>)g(d)934 755 y Fl(join)1054 +740 y Fw(,)j(is)e(the)h(reassignmen)m(t)f(pro)s(cedure)i(iterated)e(to) +g(con)m(v)m(ergence)j(|)d(still)0 848 y(with)30 b(the)g(p)s(ossibilit)m +(y)f(to)g(con)m(tin)m(ue)i(the)g(cluster)f(joining)e(if)h(some)h +Fj(d)2530 863 y Fh(ij)2621 848 y Fw(should)g(drop)g(b)s(elo)m(w)g +Fj(d)3478 863 y Fl(join)3628 848 y Fw(due)0 957 y(to)i(the)h +(reassignmen)m(t.)146 1065 y(Occasionally)-8 b(,)35 b(it)g(ma)m(y)g(o)s +(ccur)h(that)g(the)g(reassignmen)m(t)g(step)g(leads)g(to)f(an)h(empt)m +(y)g(cluster,)h(i.e.)0 1173 y(one)k(to)g(whic)m(h)h(no)f(particles)f +(are)h(assigned.)69 b(Since)41 b(suc)m(h)i(a)e(cluster)g(has)h(a)e +(distance)i Fj(d)3383 1188 y Fh(ij)3485 1173 y Fw(=)g(0)f(to)0 +1282 y(an)m(y)h(other)g(cluster,)i(it)d(is)g(automatically)d(remo)m(v)m +(ed)k(in)f(the)h(next)g(cluster)g(joining.)68 b(Ho)m(w)m(ev)m(er,)46 +b(it)0 1390 y(is)g(p)s(ossible)g(to)g(run)g(the)h(program)e(in)h(a)g +(mo)s(de)g(where)h(a)g(minim)m(um)c(n)m(um)m(b)s(er)j(of)g(jets)h(is)f +(to)g(b)s(e)0 1498 y(reconstructed.)58 b(If)37 b(this)f(minim)m(um)e +(is)i(reac)m(hed)i(with)f(one)g(cluster)g(empt)m(y)-8 +b(,)38 b(the)g(particle)d(is)h(found)0 1607 y(whic)m(h)43 +b(has)f(largest)g(distance)g(to)g(the)h(cluster)f(it)f(b)s(elongs)h +(to.)72 b(That)42 b(cluster)h(is)f(then)g(split)f(in)m(to)0 +1715 y(t)m(w)m(o,)46 b(namely)c(the)h(large-distance)e(particle)g(and)i +(a)f(remainder.)73 b(Thereafter)43 b(the)g(reassignmen)m(t)0 +1823 y(pro)s(cedure)34 b(is)e(con)m(tin)m(ued)h(as)g(b)s(efore.)146 +1932 y(Secondly)-8 b(,)45 b(the)d(large)f(m)m(ultiplicities)c(normally) +i(encoun)m(tered)44 b(means)e(that,)i(if)c(eac)m(h)j(particle)0 +2040 y(initially)26 b(is)j(to)h(b)s(e)g(treated)h(as)f(a)g(separate)h +(cluster,)g(the)f(program)f(will)e(b)s(ecome)j(v)m(ery)i(slo)m(w.)43 +b(There-)0 2148 y(fore)34 b(a)g(smaller)e(n)m(um)m(b)s(er)i(of)g +(clusters,)h(for)f(a)g(normal)e(e)2075 2112 y Fl(+)2134 +2148 y Fw(e)2177 2112 y Fk(\000)2271 2148 y Fw(ev)m(en)m(t)k(t)m +(ypically)d(8{12,)g(is)h(constructed)0 2257 y(as)g(a)g(starting)f(p)s +(oin)m(t)g(for)g(the)i(iteration)d(ab)s(o)m(v)m(e,)j(as)f(follo)m(ws.) +47 b(The)34 b(particle)f(with)h(the)g(highest)g(mo-)0 +2365 y(men)m(tum)g(is)g(found,)h(and)f(thereafter)h(all)e(particles)g +(within)h(a)g(distance)g Fj(d)2778 2380 y Fh(ij)2869 +2365 y Fj(<)d(d)3027 2380 y Fl(init)3171 2365 y Fw(from)i(it,)h(where)0 +2473 y Fj(d)51 2488 y Fl(init)209 2473 y Fn(\034)48 b +Fj(d)408 2488 y Fl(join)527 2473 y Fw(.)80 b(T)-8 b(ogether)45 +b(these)h(are)f(allo)m(w)m(ed)e(to)i(form)e(a)h(single)g(cluster.)80 +b(F)-8 b(or)44 b(the)h(remaining)0 2582 y(particles,)40 +b(not)g(assigned)f(to)g(this)g(cluster,)j(the)d(pro)s(cedure)i(is)e +(iterated,)h(un)m(til)e(all)g(particles)g(ha)m(v)m(e)0 +2690 y(b)s(een)k(used)g(up.)70 b(P)m(articles)41 b(in)g(the)g(cen)m +(tral)h(momen)m(tum)d(region,)k Fn(j)p Fo(p)p Fn(j)f +Fj(<)g Fw(2)p Fj(d)2944 2705 y Fl(init)3095 2690 y Fw(are)f(treated)h +(sep-)0 2798 y(arately;)47 b(if)42 b(their)g(v)m(ectorial)g(momen)m +(tum)f(sum)h(is)h(ab)s(o)m(v)m(e)g(2)p Fj(d)2352 2813 +y Fl(init)2504 2798 y Fw(they)h(are)e(allo)m(w)m(ed)g(to)h(form)e(one)0 +2907 y(cluster,)34 b(otherwise)g(they)g(are)g(left)e(unassigned)i(in)f +(the)h(initial)29 b(con\014guration.)46 b(The)34 b(v)-5 +b(alue)33 b(of)g Fj(d)3643 2922 y Fl(init)3752 2907 y +Fw(,)0 3015 y(as)40 b(long)e(as)i(reasonably)f(small,)g(has)h(no)g(ph)m +(ysical)f(imp)s(ortance,)h(in)f(that)g(the)h(same)f(\014nal)g(cluster)0 +3123 y(con\014guration)29 b(will)e(b)s(e)j(found)g(as)f(if)g(eac)m(h)h +(particle)f(initially)c(is)k(assumed)i(to)e(b)s(e)h(a)f(cluster)h(b)m +(y)h(itself:)0 3232 y(the)d(particles)f(clustered)h(at)g(this)f(step)h +(are)g(so)g(nearb)m(y)h(an)m(yw)m(a)m(y)g(that)f(they)g(almost)e +(inevitably)g(m)m(ust)0 3340 y(en)m(ter)32 b(the)g(same)f(jet;)h +(additionally)27 b(the)32 b(reassignmen)m(t)f(pro)s(cedure)h(allo)m(ws) +e(an)m(y)i(p)s(ossible)f(`mistak)m(e')0 3448 y(to)h(b)s(e)h(corrected)h +(in)e(later)f(steps)j(of)e(the)h(iteration.)146 3557 +y(Th)m(us)43 b(the)f(jet)f(reconstruction)h(dep)s(ends)h(on)e(one)g +(single)g(parameter,)i Fj(d)2933 3572 y Fl(join)3052 +3557 y Fw(,)h(with)d(a)g(clearcut)0 3665 y(ph)m(ysical)34 +b(meaning)f(of)h(a)g(transv)m(erse)i(momen)m(tum)d(`jet-resolution)g(p) +s(o)m(w)m(er'.)49 b(Neglecting)34 b(smearing)0 3774 y(from)45 +b(fragmen)m(tation,)k Fj(d)969 3789 y Fh(ij)1076 3774 +y Fw(b)s(et)m(w)m(een)g(t)m(w)m(o)e(clusters)h(of)e(equal)g(energy)i +(corresp)s(onds)g(to)f(half)e(the)0 3882 y(in)m(v)-5 +b(arian)m(t)23 b(mass)i(of)f(the)h(t)m(w)m(o)h(original)21 +b(partons.)41 b(If)25 b(one)g(only)f(wishes)i(to)e(reconstruct)j(w)m +(ell)d(separated)0 3990 y(jets,)32 b(a)g(large)e Fj(d)577 +4005 y Fl(join)728 3990 y Fw(should)h(b)s(e)h(c)m(hosen,)h(while)e(a)g +(small)e Fj(d)2145 4005 y Fl(join)2296 3990 y Fw(w)m(ould)j(allo)m(w)e +(the)i(separation)e(of)h(close)0 4099 y(jets,)40 b(at)d(the)h(cost)g +(of)f(sometimes)g(arti\014cially)d(dividing)i(a)h(single)g(jet)h(in)m +(to)f(t)m(w)m(o.)59 b(In)38 b(particular,)f(b)0 4207 +y(quark)26 b(jets)h(ma)m(y)e(here)h(b)s(e)g(a)g(n)m(uisance.)42 +b(The)26 b(v)-5 b(alue)25 b(of)g Fj(d)2076 4222 y Fl(join)2221 +4207 y Fw(to)h(use)g(for)f(a)h(\014xed)h(jet-resolution)d(p)s(o)m(w)m +(er)0 4315 y(in)33 b(principle)g(should)h(b)s(e)g(indep)s(enden)m(t)h +(of)e(the)i(c.m.)47 b(energy)35 b(of)f(ev)m(en)m(ts,)j(although)32 +b(fragmen)m(tation)0 4424 y(e\013ects)g(ma)m(y)e(giv)m(e)g(a)g(con)m +(tamination)e(of)h(spurious)i(extra)g(jets)f(that)g(increases)i(slo)m +(wly)d(with)h Fj(E)3538 4439 y Fl(cm)3663 4424 y Fw(for)0 +4532 y(\014xed)36 b Fj(d)289 4547 y Fl(join)408 4532 +y Fw(.)50 b(Therefore)36 b(a)f Fj(d)1064 4547 y Fl(join)1215 +4532 y Fw(=)c(2)p Fj(:)p Fw(5)j(GeV)h(w)m(as)g(acceptable)h(at)e +(PETRA/PEP)-8 b(,)37 b(while)c(3{4)i(GeV)0 4640 y(ma)m(y)d(b)s(e)h(b)s +(etter)g(for)f(applications)f(at)h(LEP)h(and)g(b)s(ey)m(ond.)146 +4749 y(This)j(completes)f(the)h(description)f(of)g(the)g(main)f(option) +g(of)h(the)h Fq(LUCLUS)h Fw(routine.)51 b(V)-8 b(ariations)0 +4857 y(are)26 b(p)s(ossible.)41 b(One)27 b(suc)m(h)h(is)e(to)g(skip)g +(the)h(reassignmen)m(t)g(step,)h(i.e.)41 b(to)26 b(mak)m(e)h(use)g +(only)f(of)g(the)h(simple)0 4965 y(binary)h(joining)e(pro)s(cedure,)k +(without)e(an)m(y)g(p)s(ossibilit)m(y)e(to)i(reassign)g(particles)g(b)s +(et)m(w)m(een)i(jets.)42 b(\(This)0 5074 y(option)31 +b(is)h(included)h(mainly)d(as)j(a)f(reference,)i(to)e(c)m(hec)m(k)j(ho) +m(w)e(imp)s(ortan)m(t)e(reassignmen)m(t)i(really)e(is.\))0 +5182 y(The)39 b(other)g(main)e(alternativ)m(e)g(is)h(to)g(replace)g +(the)h(distance)g(measure)g(used)g(ab)s(o)m(v)m(e)g(with)f(the)h(one)0 +5290 y(used)34 b(in)e(the)h(JADE)f(algorithm)e([JAD86)o(].)146 +5399 y(The)36 b(JADE)g(cluster)f(algorithm)d(is)j(an)g(attempt)f(to)h +(sa)m(v)m(e)i(the)e(in)m(v)-5 b(arian)m(t)34 b(mass)h(measure.)52 +b(The)1817 5953 y(297)p eop +%%Page: 298 304 +298 303 bop 0 -18 a Fw(distance)33 b(measure)g(is)f(de\014ned)i(to)e(b) +s(e)1352 201 y Fj(y)1400 216 y Fh(ij)1487 201 y Fw(=)1601 +134 y(2)p Fj(E)1722 149 y Fh(i)1750 134 y Fj(E)1822 149 +y Fh(j)1859 134 y Fw(\(1)22 b Fn(\000)g Fw(cos)17 b Fj(\022)2259 +149 y Fh(ij)2320 134 y Fw(\))p 1601 178 758 4 v 1899 +269 a Fj(E)1977 235 y Fl(2)1971 293 y(vis)2401 201 y +Fj(:)1129 b Fw(\(231\))0 449 y(Here)38 b Fj(E)307 464 +y Fl(vis)433 449 y Fw(is)e(the)i(total)d(visible)h(energy)i(of)e(the)i +(ev)m(en)m(t.)58 b(The)38 b(usage)g(of)e Fj(E)2832 413 +y Fl(2)2826 474 y(vis)2952 449 y Fw(in)h(the)g(denominator)0 +558 y(rather)e(than)f Fj(E)602 522 y Fl(2)596 582 y(cm)726 +558 y Fw(tends)h(to)g(mak)m(e)g(the)g(measure)g(less)g(sensitiv)m(e)g +(to)g(detector)g(acceptance)h(correc-)0 666 y(tions;)31 +b(in)f(addition)f(the)j(dimensionless)e(nature)h(of)g +Fj(y)1999 681 y Fh(ij)2090 666 y Fw(mak)m(es)h(it)d(w)m(ell)i(suited)g +(for)f(a)h(comparison)f(of)0 774 y(results)k(at)f(di\013eren)m(t)g +(c.m.)46 b(energies.)g(F)-8 b(or)33 b(the)g(subsequen)m(t)k +(discussions,)d(this)f(normalization)d(will)0 883 y(b)s(e)j(irrelev)-5 +b(an)m(t,)31 b(ho)m(w)m(ev)m(er.)146 991 y(The)g Fj(y)392 +1006 y Fh(ij)481 991 y Fw(measure)f(is)f(v)m(ery)i(closely)e(related)g +(to)g(the)h(squared)h(mass)e(distance)h(measure:)42 b(the)30 +b(t)m(w)m(o)0 1099 y(coincide)g(\(up)h(to)f(the)h(di\013erence)g(in)f +(normalization\))d(if)j Fj(m)2205 1114 y Fh(i)2261 1099 +y Fw(=)d Fj(m)2449 1114 y Fh(j)2514 1099 y Fw(=)g(0.)43 +b(Ho)m(w)m(ev)m(er,)33 b(consider)e(a)g(pair)0 1208 y(of)d(particles)f +(or)i(clusters)g(with)f(non-v)-5 b(anishing)27 b(individual)e(masses)30 +b(and)e(a)g(\014xed)i(pair)d(mass.)42 b(Then,)0 1316 +y(the)d(larger)f(the)h(net)h(momen)m(tum)d(of)i(the)g(pair,)h(the)f +(smaller)e(the)i Fj(y)2591 1331 y Fh(ij)2690 1316 y Fw(measure.)63 +b(This)39 b(somewhat)0 1425 y(tends)h(to)e(fa)m(v)m(our)h(clustering)f +(of)g(fast)g(particles,)i(and)e(mak)m(es)h(the)g(algorithm)d(less)j +(unstable)f(than)0 1533 y(the)33 b(one)g(based)g(on)g(true)g(in)m(v)-5 +b(arian)m(t)31 b(mass.)146 1641 y(The)i(successes)h(of)d(the)h(JADE)f +(algorithm)d(are)j(w)m(ell)g(kno)m(wn:)44 b(one)31 b(obtains)g(a)g(v)m +(ery)i(go)s(o)s(d)d(agree-)0 1750 y(men)m(t)e(b)s(et)m(w)m(een)i(the)e +(n)m(um)m(b)s(er)g(of)f(partons)h(generated)h(on)e(the)i(matrix-elemen) +m(t)c(\(or)i(parton-sho)m(w)m(er\))0 1858 y(lev)m(el)k(and)h(the)g(n)m +(um)m(b)s(er)g(of)f(clusters)h(reconstructed)h(from)e(the)g(hadrons,)i +(suc)m(h)g(that)e(QCD)g(asp)s(ects)0 1966 y(lik)m(e)26 +b(the)h(running)f(of)h Fj(\013)860 1981 y Fl(s)918 1966 +y Fw(can)g(b)s(e)g(studied)g(with)g(a)f(minimal)d(dep)s(endence)29 +b(on)d(fragmen)m(tation)f(e\013ects.)0 2075 y(Of)33 b(course,)j(the)e +(insensitivit)m(y)f(to)h(fragmen)m(tation)e(e\013ects)j(dep)s(ends)g +(on)f(the)g(c)m(hoice)g(of)g(fragmen)m(ta-)0 2183 y(tion)f(mo)s(del.)46 +b(F)-8 b(ragmen)m(tation)32 b(e\013ects)j(are)f(small)d(in)j(the)g +(string)f(mo)s(del,)g(but)h(not)g(in)f(indep)s(enden)m(t)0 +2291 y(fragmen)m(tation)41 b(scenarios.)73 b(Although)42 +b(indep)s(enden)m(t)h(fragmen)m(tation)e(in)g(itself)h(is)g(not)g +(credible,)0 2400 y(this)32 b(ma)m(y)h(b)s(e)f(seen)i(as)f(a)f(signal)f +(for)h(caution.)146 2508 y(One)g(should)g(note)g(that)g(the)g(JADE)g +(measure)g(still)d(su\013ers)k(from)e(some)g(of)h(the)g(diseases)h(of)e +(the)0 2616 y(simple)26 b(mass)i(measure)g(\(without)f(reassignmen)m +(ts\),)j(namely)d(that)g(particles)g(whic)m(h)i(go)e(in)g(opp)s(osite)0 +2725 y(directions)g(ma)m(y)g(w)m(ell)g(b)s(e)h(joined)f(in)m(to)g(the)h +(same)f(cluster.)42 b(Therefore,)30 b(while)d(the)h(JADE)g(algorithm)0 +2833 y(is)35 b(a)g(go)s(o)s(d)g(w)m(a)m(y)h(to)f(\014nd)i(the)e(n)m(um) +m(b)s(er)h(of)f(jets,)i(it)e(is)g(inferior)e(to)i(the)h(standard)g +Fj(d)3100 2848 y Fh(ij)3196 2833 y Fw(measure)g(for)f(a)0 +2941 y(determination)30 b(of)g(jet)i(directions)f(and)g(energies)h +([Bet92].)43 b(The)33 b Fj(d)2503 2956 y Fh(ij)2594 2941 +y Fw(measure)f(also)f(giv)m(es)h(narro)m(w)m(er)0 3050 +y(jets,)h(whic)m(h)g(agree)g(b)s(etter)g(with)f(the)h(visual)f +(impression)f(of)h(jet)h(structure.)146 3158 y(Recen)m(tly)-8 +b(,)43 b(the)e(`Durham)f(algorithm')d(has)k(b)s(een)g(in)m(tro)s(duced) +f([Cat91],)j(whic)m(h)e(w)m(orks)g(as)g(the)0 3266 y(JADE)33 +b(one)f(but)h(with)g(a)f(distance)h(measure)1196 3497 +y(~)-56 b Fj(y)1237 3512 y Fh(ij)1325 3497 y Fw(=)1439 +3423 y(2)17 b(min)n(\()p Fj(E)1783 3387 y Fl(2)1777 3447 +y Fh(i)1822 3423 y Fj(;)g(E)1944 3387 y Fl(2)1938 3447 +y Fh(j)1983 3423 y Fw(\)\(1)22 b Fn(\000)h Fw(cos)17 +b Fj(\022)2422 3438 y Fh(ij)2483 3423 y Fw(\))p 1439 +3474 1083 4 v 1895 3565 a Fj(E)1973 3536 y Fl(2)1967 +3590 y Fh(cm)2563 3497 y Fj(:)967 b Fw(\(232\))0 3737 +y(Lik)m(e)37 b(the)h Fj(d)441 3752 y Fh(ij)538 3737 y +Fw(measure,)h(this)d(is)h(a)g(transv)m(erse)i(momen)m(tum,)e(but)44 +b(~)-56 b Fj(y)2576 3752 y Fh(ij)2673 3737 y Fw(has)38 +b(the)f(geometrical)e(in)m(ter-)0 3845 y(pretation)30 +b(as)h(the)g(transv)m(erse)i(momen)m(tum)d(of)g(the)i(softer)f +(particle)e(with)i(resp)s(ect)h(to)e(the)i(direction)0 +3953 y(of)38 b(the)h(harder)g(one,)h(while)e Fj(d)1131 +3968 y Fh(ij)1229 3953 y Fw(is)g(the)h(transv)m(erse)i(momen)m(tum)c +(of)h(either)g(particle)f(with)h(resp)s(ect)0 4062 y(to)33 +b(the)g(common)f(direction)g(giv)m(en)i(b)m(y)g(the)f(momen)m(tum)f(v)m +(ector)i(sum.)46 b(The)34 b(t)m(w)m(o)g(de\014nitions)e(agree)0 +4170 y(when)k(one)g(cluster)f(is)g(m)m(uc)m(h)h(softer)f(than)g(the)h +(other,)g(so)g(the)f(soft)g(gluon)g(exp)s(onen)m(tiation)f(pro)m(v)m +(en)0 4278 y(for)e(the)h(Durham)e(measure)i(also)f(holds)g(for)g(the)h +Fj(d)1899 4293 y Fh(ij)1992 4278 y Fw(one.)146 4387 y(The)25 +b(main)e(di\013erence)i(therefore)g(is)e(that)h(the)h(standard)g +Fq(LUCLUS)h Fw(option)d(allo)m(ws)g(reassignmen)m(ts,)0 +4495 y(while)46 b(the)g(Durham)g(algorithm)d(do)s(es)k(not.)85 +b(The)47 b(latter)f(is)g(therefore)h(more)f(easily)f(calculable)0 +4603 y(on)d(the)g(p)s(erturbativ)m(e)f(parton)h(lev)m(el.)70 +b(This)42 b(p)s(oin)m(t)e(is)i(sometimes)e(o)m(v)m(erstressed,)47 +b(and)42 b(one)g(could)0 4712 y(giv)m(e)i(coun)m(terexamples)h(wh)m(y)g +(reassignmen)m(ts)g(in)e(fact)g(ma)m(y)h(bring)f(b)s(etter)h(agreemen)m +(t)h(with)e(the)0 4820 y(underlying)e(p)s(erturbativ)m(e)g(lev)m(el.)70 +b(In)41 b(particular,)h(without)f(reassignmen)m(ts,)j(one)e(will)d(mak) +m(e)i(the)0 4928 y(recom)m(bination)f(that)i(seems)h(the)g(`b)s(est')f +(in)g(the)g(curren)m(t)h(step,)j(ev)m(en)d(when)h(that)d(forces)i(y)m +(ou)g(to)0 5037 y(mak)m(e)29 b(`w)m(orse')h(c)m(hoices)f(in)f +(subsequen)m(t)k(steps.)44 b(With)28 b(reassignmen)m(ts,)i(it)d(is)i(p) +s(ossible)e(to)i(correct)g(for)0 5145 y(mistak)m(es)k(due)g(to)f(the)h +(to)s(o)f(lo)s(cal)e(sensitivit)m(y)j(of)f(a)g(simple)f(binary)h +(joining)f(sc)m(heme.)0 5388 y Fo(15.2.2)113 b(Cluster)36 +b(\014nding)i(in)e(a)i Fw(pp)g Fo(t)m(yp)s(e)f(of)h(en)m(vironmen)m(t)0 +5561 y Fw(The)d Fq(LUCELL)h Fw(cluster)e(\014nding)g(routines)g(is)g +(of)g(the)h(kind)f(pioneered)g(b)m(y)i(UA1)e([UA183)o(],)h(and)g(com-)0 +5669 y(monly)c(used)i(in)f(pp)g(ph)m(ysics.)45 b(It)33 +b(is)e(based)i(on)g(a)e(c)m(hoice)i(of)f(pseudorapidit)m(y)g +Fj(\021)t Fw(,)g(azim)m(uthal)e(angle)i Fj(')1817 5953 +y Fw(298)p eop +%%Page: 299 305 +299 304 bop 0 -18 a Fw(and)28 b(transv)m(erse)j(momen)m(tum)c +Fj(p)1200 -3 y Fk(?)1287 -18 y Fw(as)h(the)h(fundamen)m(tal)f(co)s +(ordinates.)41 b(This)29 b(c)m(hoice)f(is)g(discussed)i(in)0 +90 y(the)e(in)m(tro)s(duction)e(to)i(cluster)f(\014nding)h(ab)s(o)m(v)m +(e,)h(with)e(the)h(pro)m(viso)g(that)f(the)i(theoretically)c(preferred) +0 198 y(true)44 b(rapidit)m(y)g(has)g(to)g(b)s(e)g(replaced)g(b)m(y)h +(pseudorapidit)m(y)-8 b(,)48 b(to)43 b(mak)m(e)i(con)m(tact)f(with)g +(the)g(real-life)0 307 y(detector)33 b(co)s(ordinate)f(system.)146 +415 y(A)i(\014x)h(detector)g(grid)e(is)h(assumed,)h(with)f(the)g +(pseudorapidit)m(y)g(range)h Fn(j)p Fj(\021)t Fn(j)29 +b Fj(<)h(\021)3111 430 y Fl(max)3281 415 y Fw(and)k(the)g(full)0 +523 y(azim)m(uthal)j(range)j(eac)m(h)g(divided)f(in)m(to)g(a)g(n)m(um)m +(b)s(er)h(of)f(equally)g(large)f(bins,)j(giving)d(a)h(rectangular)0 +632 y(grid.)i(The)30 b(particles)e(of)h(an)f(ev)m(en)m(t)j(impinge)c +(on)i(this)f(detector)i(grid.)41 b(F)-8 b(or)28 b(eac)m(h)i(cell)e(in)g +(\()p Fj(\021)t Fw(,)p Fj(')p Fw(\))g(space,)0 740 y(the)41 +b(transv)m(erse)i(momen)m(tum)d(whic)m(h)h(en)m(ters)i(that)e(cell)e +(is)i(summed)g(up)g(to)g(giv)m(e)f(a)h(total)e(cell)h +Fj(E)3720 755 y Fk(?)0 848 y Fw(\015o)m(w.)146 957 y(Clearly)d(the)h +(mo)s(del)e(remains)g(v)m(ery)j(primitiv)m(e)d(in)g(a)i(n)m(um)m(b)s +(er)g(of)f(resp)s(ects,)j(compared)e(with)f(a)0 1065 +y(real)42 b(detector.)74 b(There)43 b(is)f(no)h(magnetic)e(\014eld)h +(allo)m(w)m(ed)g(for,)j(i.e.)72 b(also)42 b(c)m(harged)h(particles)f +(mo)m(v)m(e)0 1173 y(in)35 b(straigh)m(t)g(trac)m(ks.)54 +b(The)36 b(dimensions)f(of)g(the)h(detector)h(are)e(not)h(sp)s +(eci\014ed;)i(hence)f(the)f(p)s(ositions)0 1282 y(of)e(the)g(primary)f +(v)m(ertex)j(and)f(an)m(y)g(secondary)g(v)m(ertices)h(are)e(neglected)h +(when)g(determining)e(whic)m(h)0 1390 y(cell)g(a)h(particle)f(b)s +(elongs)g(to.)48 b(The)35 b(rest)g(mass)f(of)g(particles)f(is)h(not)g +(tak)m(en)h(in)m(to)e(accoun)m(t,)j(i.e.)47 b(what)0 +1516 y(is)38 b(used)i(is)f(really)e Fj(p)761 1531 y Fk(?)859 +1516 y Fw(=)973 1424 y Fg(q)p 1056 1424 304 4 v 92 x +Fj(p)1105 1488 y Fl(2)1105 1541 y Fh(x)1171 1516 y Fw(+)22 +b Fj(p)1318 1488 y Fl(2)1318 1541 y Fh(y)1359 1516 y +Fw(,)41 b(while)d(in)g(a)g(real)g(detector)i(some)f(particles)f(w)m +(ould)h(deca)m(y)h(or)0 1648 y(annihilate,)30 b(and)j(then)g(dep)s +(osit)f(additional)e(amoun)m(ts)j(of)f(energy)-8 b(.)146 +1756 y(T)g(o)33 b(tak)m(e)h(in)m(to)e(accoun)m(t)i(the)f(energy)h +(resolution)e(of)g(the)h(detector,)h(it)e(is)h(p)s(ossible)f(to)g +(smear)h(the)0 1865 y Fj(E)72 1880 y Fk(?)170 1865 y +Fw(con)m(ten)m(ts,)43 b(bin)c(b)m(y)h(bin.)63 b(This)39 +b(is)g(done)g(according)g(to)g(a)g(Gaussian,)h(with)f(a)g(width)g +(assumed)0 1973 y(prop)s(ortional)32 b(to)h(the)853 1896 +y Fn(p)p 936 1896 132 4 v 77 x Fj(E)1008 1988 y Fk(?)1102 +1973 y Fw(of)g(the)i(bin.)48 b(The)35 b(Gaussian)f(is)g(cut)g(o\013)g +(at)g(zero)h(and)f(at)g(some)g(prede-)0 2081 y(termined)f(m)m(ultiple)f +(of)h(the)h(unsmeared)h Fj(E)1640 2096 y Fk(?)1699 2081 +y Fw(,)f(b)m(y)h(default)e(t)m(wice)i(it.)46 b(Alternativ)m(ely)-8 +b(,)33 b(the)i(smearing)0 2190 y(ma)m(y)40 b(b)s(e)h(p)s(erformed)f(in) +g Fj(E)46 b Fw(rather)41 b(than)f(in)g Fj(E)1804 2205 +y Fk(?)1863 2190 y Fw(.)67 b(T)-8 b(o)41 b(\014nd)g(the)g +Fj(E)6 b Fw(,)42 b(it)e(is)g(assumed)h(that)f(the)h(full)0 +2298 y(energy)f(of)f(a)g(cell)f(is)g(situated)h(at)g(its)g(cen)m(ter,)j +(so)d(that)g(one)h(can)f(translate)g(bac)m(k)h(and)f(forth)g(with)0 +2406 y Fj(E)34 b Fw(=)27 b Fj(E)281 2421 y Fk(?)357 2406 +y Fw(cosh)18 b Fj(\021)607 2421 y Fl(cen)n(ter)797 2406 +y Fw(.)146 2515 y(The)36 b(cell)e(with)g(largest)h Fj(E)1139 +2530 y Fk(?)1233 2515 y Fw(is)f(tak)m(en)i(as)f(a)g(jet)g(initiator)c +(if)j(its)g Fj(E)2636 2530 y Fk(?)2730 2515 y Fw(is)h(ab)s(o)m(v)m(e)h +(some)e(threshold.)0 2623 y(A)41 b(candidate)h(jet)f(is)g(de\014ned)i +(to)e(consist)g(of)g(all)f(cells)g(whic)m(h)i(are)f(within)g(some)g +(giv)m(en)g(radius)g Fj(R)0 2731 y Fw(in)d(the)i(\()p +Fj(\021)t Fw(,)p Fj(')p Fw(\))e(plane,)i(i.e.)63 b(whic)m(h)39 +b(ha)m(v)m(e)h(\()p Fj(\021)30 b Fn(\000)d Fj(\021)1819 +2746 y Fl(initiator)2075 2731 y Fw(\))2113 2695 y Fl(2)2179 +2731 y Fw(+)f(\()p Fj(')g Fn(\000)h Fj(')2577 2746 y +Fl(initiator)2832 2731 y Fw(\))2870 2695 y Fl(2)2948 +2731 y Fj(<)39 b(R)3138 2695 y Fl(2)3177 2731 y Fw(.)63 +b(Co)s(ordinates)0 2840 y(are)39 b(alw)m(a)m(ys)g(giv)m(en)g(with)f +(resp)s(ect)i(to)f(the)g(cen)m(ter)h(of)e(the)i(cell.)60 +b(If)39 b(the)g(summed)g Fj(E)3175 2855 y Fk(?)3273 2840 +y Fw(of)f(the)h(jet)g(is)0 2948 y(ab)s(o)m(v)m(e)30 b(the)h(required)f +(minim)m(um)c(jet)k(energy)-8 b(,)31 b(the)f(candidate)f(jet)h(is)f +(accepted,)j(and)e(all)d(its)i(cells)g(are)0 3056 y(remo)m(v)m(ed)41 +b(from)d(further)i(consideration.)64 b(If)40 b(not,)i(the)e(candidate)f +(is)h(rejected.)66 b(The)40 b(sequence)j(is)0 3165 y(no)m(w)34 +b(rep)s(eated)f(with)g(the)g(remaining)e(cell)h(of)h(highest)f +Fj(E)2143 3180 y Fk(?)2203 3165 y Fw(,)h(and)g(so)g(on)g(un)m(til)f(no) +h(single)f(cell)g(ful\014lls)0 3273 y(the)h(jet)g(initiator)c +(condition.)146 3381 y(The)43 b(n)m(um)m(b)s(er)f(of)f(jets)i +(reconstruced)g(can)f(th)m(us)h(v)-5 b(ary)42 b(from)e(none)j(to)e(a)g +(maxim)m(um)f(giv)m(en)i(b)m(y)0 3490 y(purely)35 b(geometrical)d +(considerations,)i(i.e.)49 b(ho)m(w)35 b(man)m(y)f(circles)g(of)g +(radius)g Fj(R)i Fw(are)e(needed)i(to)e(co)m(v)m(er)0 +3598 y(the)f(allo)m(w)m(ed)f(\()p Fj(\021)t Fw(,)p Fj(')p +Fw(\))g(plane.)43 b(Normally)30 b(only)i(a)g(fraction)g(of)g(the)h +(particles)f(are)g(assigned)h(to)f(jets.)146 3706 y(One)27 +b(could)f(consider)h(to)f(iterate)g(the)g(jet)h(assignmen)m(t)f(pro)s +(cess,)j(using)d(the)h Fj(E)3030 3721 y Fk(?)3089 3706 +y Fw(-w)m(eigh)m(ted)g(cen)m(ter)0 3815 y(of)g(a)g(jet)g(to)g(dra)m(w)g +(a)g(new)h(cirle)e(of)h(radius)g Fj(R)q Fw(.)42 b(In)27 +b(the)h(curren)m(t)g(algorithm)c(there)k(is)f(no)g(suc)m(h)h(iteration) +0 3923 y(step.)68 b(F)-8 b(or)39 b(an)i(ideal)e(jet)h(assignmen)m(t)g +(it)g(w)m(ould)g(also)f(b)s(e)i(necessary)i(to)d(impro)m(v)m(e)g(the)h +(treatmen)m(t)0 4031 y(when)34 b(t)m(w)m(o)f(jet)g(circles)f(partially) +e(o)m(v)m(erlap.)146 4140 y(A)35 b(\014nal)f(tec)m(hnical)g(note.)50 +b(A)35 b(natural)e(implemen)m(tation)f(of)i(a)g(cell)g(\014nding)g +(algorithm)d(is)k(based)0 4248 y(on)g(ha)m(ving)f(a)h(t)m(w)m +(o-dimensional)d(arra)m(y)j(of)f Fj(E)1703 4263 y Fk(?)1797 +4248 y Fw(v)-5 b(alues,)35 b(with)g(dimensions)f(to)g(matc)m(h)h(the)g +(detector)0 4356 y(grid.)42 b(V)-8 b(ery)34 b(often)e(most)g(of)g(the)h +(cells)f(w)m(ould)g(then)h(b)s(e)g(empt)m(y)-8 b(,)33 +b(in)e(particular)g(for)h(lo)m(w-m)m(ultiplicit)m(y)0 +4465 y(ev)m(en)m(ts)i(in)c(\014ne-grained)h(calorimeters.)41 +b(Our)32 b(implemen)m(tation)c(is)i(somewhat)i(at)m(ypical,)e(since)i +(cells)0 4573 y(are)39 b(only)f(reserv)m(ed)j(space)f(\(con)m(ten)m(ts) +h(and)d(p)s(osition\))f(when)j(they)g(are)f(sho)m(wn)h(to)e(b)s(e)h +(non-empt)m(y)-8 b(.)0 4682 y(This)34 b(means)f(that)h(all)d(non-empt)m +(y)j(cells)f(ha)m(v)m(e)i(to)e(b)s(e)h(lo)s(op)s(ed)f(o)m(v)m(er)h(to)g +(\014nd)g(whic)m(h)g(are)g(within)e(the)0 4790 y(required)e(distance)g +Fj(R)h Fw(of)e(a)g(p)s(oten)m(tial)f(jet)i(initiator.)39 +b(The)31 b(algorithm)26 b(is)j(therefore)i(faster)e(than)h(the)0 +4898 y(ordinary)i(kind)g(if)g(the)h(a)m(v)m(erage)g(cell)f(o)s +(ccupancy)i(is)e(lo)m(w,)g(but)h(slo)m(w)m(er)g(if)e(it)h(is)g(high.)0 +5172 y Fp(15.3)136 b(Ev)l(en)l(t)46 b(Statistics)0 5344 +y Fw(All)27 b(the)j(ev)m(en)m(t-analysis)g(routines)f(ab)s(o)m(v)m(e)h +(are)f(de\014ned)i(on)e(an)g(ev)m(en)m(t-b)m(y-ev)m(en)m(t)k(basis.)42 +b(Once)30 b(found,)0 5453 y(the)39 b(quan)m(tities)f(are)g(ab)s(out)g +(equally)g(often)g(used)h(to)f(de\014ne)i(inclusiv)m(e)e(distributions) +f(as)h(to)g(select)0 5561 y(sp)s(eci\014c)g(classes)g(of)f(ev)m(en)m +(ts)j(for)d(con)m(tin)m(ued)h(study)-8 b(.)59 b(F)-8 +b(or)36 b(instance,)j(the)f(thrust)g(routine)e(migh)m(t)g(b)s(e)0 +5669 y(used)j(either)e(to)h(\014nd)g(the)g(inclusiv)m(e)f +Fj(T)51 b Fw(distribution)36 b(or)h(to)g(select)i(ev)m(en)m(ts)h(with)d +Fj(T)50 b(<)36 b Fw(0)p Fj(:)p Fw(9.)58 b(Other)1817 +5953 y(299)p eop +%%Page: 300 306 +300 305 bop 0 -18 a Fw(measures,)42 b(although)d(still)e(de\014ned)k +(for)e(the)h(individual)d(ev)m(en)m(t,)44 b(only)39 b(mak)m(e)h(sense)h +(to)e(discuss)i(in)0 90 y(terms)e(of)g(a)m(v)m(erages)i(o)m(v)m(er)g +(man)m(y)f(ev)m(en)m(ts.)66 b(A)40 b(small)d(set)j(of)f(suc)m(h)i +(measures)f(is)f(found)h(in)f Fq(LUTABU)p Fw(.)0 198 +y(This)c(routine)f(has)g(to)h(b)s(e)f(called)g(once)h(after)f(eac)m(h)h +(ev)m(en)m(t)i(to)d(accum)m(ulate)g(statistics,)h(and)f(once)h(in)0 +307 y(the)d(end)f(to)g(prin)m(t)g(the)g(\014nal)g(tables.)42 +b(Of)31 b(course,)i(among)c(the)j(w)m(ealth)f(of)g(p)s(ossibilities)d +(imaginable,)0 415 y(the)g(ones)g(collected)f(here)h(are)f(only)g(a)g +(small)e(sample,)j(selected)g(b)s(ecause)h(the)f(author)f(at)g(some)g +(p)s(oin)m(t)0 523 y(has)33 b(found)g(a)f(use)h(for)g(them)f(himself.)0 +770 y Fo(15.3.1)113 b(Multiplicities)0 943 y Fw(Three)25 +b(options)f(are)g(a)m(v)-5 b(ailable)21 b(to)j(collect)f(information)e +(on)i(m)m(ultiplicities)d(in)j(ev)m(en)m(ts.)43 b(One)25 +b(giv)m(es)f(the)0 1051 y(\015a)m(v)m(our)f(con)m(ten)m(t)h(of)e(the)h +(\014nal)f(state)h(in)e(hard)i(in)m(teraction)e(pro)s(cesses,)27 +b(e.g.)40 b(the)23 b(relativ)m(e)f(comp)s(osition)0 1160 +y(of)43 b(d)p 176 1080 55 4 v(d)p Fj(=)p Fw(u)p 333 1107 +V(u)q Fj(=)p Fw(s)p 475 1107 39 4 v(s)p Fj(=)p Fw(c)p +605 1107 44 4 v(c)q Fj(=)p Fw(b)p 752 1080 55 4 v(b)g(in)g(e)1017 +1123 y Fl(+)1077 1160 y Fw(e)1120 1123 y Fk(\000)1222 +1160 y Fw(annihilation)d(ev)m(en)m(ts.)79 b(Additionally)40 +b(it)j(giv)m(es)h(the)g(total)e(parton)0 1268 y(m)m(ultiplicit)m(y)28 +b(distribution)h(at)i(the)h(end)g(of)f(parton)g(sho)m(w)m(ering.)44 +b(Another)32 b(giv)m(es)g(the)g(inclusiv)m(e)f(rate)0 +1376 y(of)38 b(all)e(the)j(di\013eren)m(t)f(particles)f(pro)s(duced)i +(in)f(ev)m(en)m(ts,)k(either)c(as)g(in)m(termediate)f(resonances)j(or)e +(as)0 1485 y(\014nal-state)22 b(particles.)39 b(The)24 +b(n)m(um)m(b)s(er)f(is)f(sub)s(divided)h(in)m(to)f(particles)f(pro)s +(duced)j(from)d(fragmen)m(tation)0 1593 y(\(primary)31 +b(particles\))h(and)h(those)g(pro)s(duced)g(in)f(deca)m(ys)i +(\(secondary)g(particles\).)146 1701 y(The)39 b(third)d(option)g +(tabulates)h(the)h(rate)f(of)g(exclusiv)m(e)h(\014nal)f(states,)i +(after)e(all)e(allo)m(w)m(ed)i(deca)m(ys)0 1810 y(ha)m(v)m(e)j(o)s +(ccurred.)61 b(Since)39 b(only)f(ev)m(en)m(ts)i(with)e(up)h(to)f(8)g +(\014nal-state)g(particles)f(are)i(analyzed,)h(this)e(is)0 +1918 y(clearly)d(not)h(in)m(tended)h(for)e(the)h(study)i(of)d(complete) +h(high-energy)f(ev)m(en)m(ts.)56 b(Rather)36 b(the)h(main)d(ap-)0 +2026 y(plication)26 b(is)i(for)f(an)i(analysis)e(of)h(the)h(deca)m(y)g +(mo)s(des)f(of)g(a)g(single)g(particle.)40 b(F)-8 b(or)28 +b(instance,)h(the)g(deca)m(y)0 2135 y(data)h(for)h(D)f(mesons)h(is)g +(giv)m(en)g(in)f(terms)h(of)f(c)m(hannels)i(that)e(also)g(con)m(tain)h +(unstable)g(particles,)f(suc)m(h)0 2243 y(as)35 b Fj(\032)g +Fw(and)g Fj(\021)t Fw(,)f(whic)m(h)i(deca)m(y)g(further.)50 +b(Therefore)36 b(a)e(giv)m(en)h(\014nal)f(state)h(ma)m(y)f(receiv)m(e)i +(con)m(tributions)0 2351 y(from)31 b(sev)m(eral)j(tabulated)e(deca)m(y) +i(c)m(hannels;)f(e.g.)44 b(K)p Fj(\031)t(\031)36 b Fw(from)31 +b(K)2403 2315 y Fk(\003)2443 2351 y Fj(\031)36 b Fw(and)d(K)p +Fj(\032)p Fw(,)f(and)h(so)g(on.)0 2598 y Fo(15.3.2)113 +b(Energy-Energy)37 b(Correlation)0 2771 y Fw(The)d(Energy-Energy)g +(Correlation)d(is)h(de\014ned)i(b)m(y)f([Bas78])1216 +3034 y(EEC)q(\()p Fj(\022)s Fw(\))28 b(=)1674 2951 y +Fg(X)1679 3134 y Fh(i)e(\025)3474 3706 y Fl(2)3547 +3691 y Fj(>)f(\025)3713 3706 y Fl(3)3752 3691 y Fw(,)472 +3799 y(with)g(sum)f(unit)m(y)-8 b(,)33 b(and)f(the)h(corresp)s(onding)g +(eigen)m(v)m(ectors.)472 3907 y(Momen)m(tum)40 b(p)s(o)m(w)m(er)h(dep)s +(endence)h(is)e(giv)m(en)g(b)m(y)i Fq(PARU\(41\))p Fw(;)k(default)39 +b(corresp)s(onds)j(to)472 4016 y(sphericit)m(y)-8 b(,)40 +b Fq(PARU\(41\)=1.)62 b Fw(giv)m(es)38 b(measures)g(linear)e(in)h +(momen)m(ta.)58 b(Whic)m(h)38 b(particles)472 4124 y(\(or)33 +b(partons\))f(are)h(used)h(in)d(the)i(analysis)f(is)g(determined)h(b)m +(y)g(the)g Fq(MSTU\(41\))i Fw(v)-5 b(alue.)0 4232 y Fq(SPH)52 +b(:)482 4193 y Fl(3)p 482 4209 36 4 v 482 4267 a(2)528 +4232 y Fw(\()p Fj(\025)623 4247 y Fl(2)684 4232 y Fw(+)22 +b Fj(\025)839 4247 y Fl(3)878 4232 y Fw(\),)33 b(i.e.)43 +b(sphericit)m(y)33 b(\(for)f Fq(PARU\(41\)=2.)p Fw(\).)236 +4341 y Fq(=)52 b(-1.)103 b(:)63 b Fw(analysis)38 b(not)g(p)s(erformed)g +(b)s(ecause)i(ev)m(en)m(t)h(con)m(tained)d(less)h(than)g(t)m(w)m(o)g +(particles)709 4449 y(\(or)34 b(t)m(w)m(o)h(exactly)g(bac)m(k-to-bac)m +(k)g(particles,)g(in)f(whic)m(h)h(case)g(the)g(t)m(w)m(o)g(transv)m +(erse)709 4557 y(directions)d(w)m(ould)g(b)s(e)h(unde\014ned\).)0 +4666 y Fq(APL)52 b(:)482 4626 y Fl(3)p 482 4642 V 482 +4700 a(2)528 4666 y Fj(\025)585 4681 y Fl(3)624 4666 +y Fw(,)33 b(i.e.)43 b(aplanarit)m(y)31 b(\(for)h Fq(PARU\(41\)=2.)p +Fw(\).)236 4774 y Fq(=)52 b(-1.)103 b(:)63 b Fw(as)32 +b Fq(SPH=-1.)p Fw(.)0 4882 y Fo(Remark:)53 b Fw(the)45 +b(lines)d Fq(N+1)j Fw(through)f Fq(N+3)g Fw(\()p Fq(N-2)g +Fw(through)g Fq(N)g Fw(for)f Fq(MSTU\(43\)=2)p Fw(\))j(in)d +Fq(LUJETS)j Fw(will,)472 4991 y(after)33 b(a)f(call,)f(con)m(tain)h +(the)h(follo)m(wing)d(information:)472 5099 y Fq(K\(N+i,1\))54 +b(=)33 b Fw(31;)472 5207 y Fq(K\(N+i,2\))54 b(=)33 b +Fw(95;)472 5316 y Fq(K\(N+i,3\))54 b(:)43 b Fj(i)p Fw(,)33 +b(the)g(axis)g(n)m(um)m(b)s(er,)g Fj(i)28 b Fw(=)f(1)p +Fj(;)17 b Fw(2)p Fj(;)g Fw(3;)472 5424 y Fq(K\(N+i,4\),)54 +b(K\(N+i,5\))f(=)33 b Fw(0;)472 5532 y Fq(P\(N+i,1\))54 +b(-)d(P\(N+i,3\))j(:)43 b Fw(the)33 b Fj(i)p Fw('th)g(eigen)m(v)m +(ector,)h Fj(x)p Fw(,)f Fj(y)j Fw(and)d Fj(z)k Fw(comp)s(onen)m(ts;)472 +5641 y Fq(P\(N+i,4\))54 b(:)43 b Fj(\025)1085 5656 y +Fh(i)1114 5641 y Fw(,)32 b(the)h Fj(i)p Fw('th)g(eigen)m(v)-5 +b(alue;)1817 5953 y(301)p eop +%%Page: 302 308 +302 307 bop 472 -18 a Fq(P\(N+i,5\))54 b(=)33 b Fw(0;)472 +90 y Fq(V\(N+i,1\))54 b(-)d(V\(N+i,5\))j(=)33 b Fw(0.)472 +198 y(Also,)g(the)g(n)m(um)m(b)s(er)g(of)f(particles)f(used)j(in)e(the) +h(analysis)f(is)g(giv)m(en)h(in)e Fq(MSTU\(62\))p Fw(.)p +0 343 1184 9 v 0 567 9 225 v 79 483 a Fq(CALL)52 b(LUTHRU\(THR,OBL\))p +1175 567 V 0 575 1184 9 v 0 707 a Fo(Purp)s(ose:)c Fw(to)42 +b(\014nd)i(the)f(thrust,)k(ma)5 b(jor)41 b(and)j(minor)d(axes)j(and)f +(corresp)s(onding)g(pro)5 b(jected)44 b(mo-)472 816 y(men)m(tum)38 +b(quan)m(tities,)h(in)e(particular)f(thrust)i(and)g(oblateness.)60 +b(The)39 b(p)s(erformance)e(of)472 924 y(the)d(program)f(is)g +(a\013ected)h(b)m(y)i Fq(MSTU\(44\))p Fw(,)g Fq(MSTU\(45\))p +Fw(,)g Fq(PARU\(42\))f Fw(and)f Fq(PARU\(48\))p Fw(.)48 +b(In)472 1032 y(particular,)30 b Fq(PARU\(42\))i Fw(giv)m(es)f(the)f +(momen)m(tum)f(dep)s(endence,)34 b(with)c(the)g(default)g(v)-5 +b(alue)472 1141 y Fq(=1.)42 b Fw(corresp)s(onding)25 +b(to)f(linear)f(dep)s(endence.)43 b(Whic)m(h)25 b(particles)f(\(or)h +(partons\))g(are)f(used)472 1249 y(in)32 b(the)h(analysis)f(is)g +(determined)h(b)m(y)g(the)g Fq(MSTU\(41\))i Fw(v)-5 b(alue.)0 +1357 y Fq(THR)52 b(:)216 b Fw(thrust)34 b(\(for)e Fq(PARU\(42\)=1.)p +Fw(\).)236 1466 y Fq(=)52 b(-1.)103 b(:)63 b Fw(analysis)32 +b(not)g(p)s(erformed)g(b)s(ecause)i(ev)m(en)m(t)g(con)m(tained)f(less)g +(than)g(t)m(w)m(o)g(particles.)236 1574 y Fq(=)52 b(-2.)103 +b(:)63 b Fw(remaining)21 b(space)j(in)e Fq(LUJETS)j Fw(\(partly)e(used) +h(as)g(w)m(orking)f(area\))g(not)g(large)f(enough)709 +1682 y(to)32 b(allo)m(w)f(analysis.)0 1791 y Fq(OBL)52 +b(:)216 b Fw(oblateness)34 b(\(for)e Fq(PARU\(42\)=1.)p +Fw(\).)236 1899 y Fq(=)52 b(-1.,)g(-2.)103 b(:)48 b Fw(as)33 +b(for)f Fq(THR)p Fw(.)0 2007 y Fo(Remark:)53 b Fw(the)45 +b(lines)d Fq(N+1)j Fw(through)f Fq(N+3)g Fw(\()p Fq(N-2)g +Fw(through)g Fq(N)g Fw(for)f Fq(MSTU\(43\)=2)p Fw(\))j(in)d +Fq(LUJETS)j Fw(will,)472 2116 y(after)33 b(a)f(call,)f(con)m(tain)h +(the)h(follo)m(wing)d(information:)472 2224 y Fq(K\(N+i,1\))54 +b(=)33 b Fw(31;)472 2332 y Fq(K\(N+i,2\))54 b(=)33 b +Fw(96;)472 2441 y Fq(K\(N+i,3\))54 b(:)43 b Fj(i)p Fw(,)33 +b(the)g(axis)g(n)m(um)m(b)s(er,)g Fj(i)28 b Fw(=)f(1)p +Fj(;)17 b Fw(2)p Fj(;)g Fw(3;)472 2549 y Fq(K\(N+i,4\),)54 +b(K\(N+i,5\))f(=)33 b Fw(0;)472 2657 y Fq(P\(N+i,1\))54 +b(-)d(P\(N+i,3\))j(:)g Fw(the)38 b(thrust,)i(ma)5 b(jor)36 +b(and)i(minor)e(axis,)j(resp)s(ectiv)m(ely)-8 b(,)40 +b(for)472 2766 y Fj(i)28 b Fw(=)g(1)p Fj(;)17 b Fw(2)32 +b(and)g(3;)472 2874 y Fq(P\(N+i,4\))54 b(:)43 b Fw(corresp)s(onding)33 +b(thrust,)g(ma)5 b(jor)32 b(and)g(minor)f(v)-5 b(alue;)472 +2982 y Fq(P\(N+i,5\))54 b(=)33 b Fw(0;)472 3091 y Fq(V\(N+i,1\))54 +b(-)d(V\(N+i,5\))j(=)33 b Fw(0.)472 3199 y(Also,)g(the)g(n)m(um)m(b)s +(er)g(of)f(particles)f(used)j(in)e(the)h(analysis)f(is)g(giv)m(en)h(in) +e Fq(MSTU\(62\))p Fw(.)p 0 3343 1030 9 v 0 3563 9 220 +v 79 3483 a Fq(CALL)52 b(LUCLUS\(NJET\))p 1022 3563 V +0 3571 1030 9 v 0 3703 a Fo(Purp)s(ose:)c Fw(to)c(reconstruct)i(an)e +(arbitrary)g(n)m(um)m(b)s(er)h(of)f(jets)h(using)f(a)g(cluster)h +(analysis)f(metho)s(d)472 3811 y(based)34 b(on)e(particle)g(momen)m +(ta.)472 3919 y(Three)40 b(di\013eren)m(t)e(distance)g(measures)h(are)f +(a)m(v)-5 b(ailable,)37 b(see)i(section)f(15.2.)59 b(The)39 +b(c)m(hoice)472 4028 y(is)c(con)m(trolled)f(b)m(y)k Fq(MSTU\(46\))p +Fw(.)53 b(The)36 b(distance)g(scale)f Fj(d)2529 4043 +y Fl(join)2648 4028 y Fw(,)h(ab)s(o)m(v)m(e)g(whic)m(h)g(t)m(w)m(o)g +(clusters)472 4136 y(ma)m(y)j(not)f(b)s(e)h(joined,)h(is)e(normally)e +(giv)m(en)j(b)m(y)i Fq(PARU\(44\))p Fw(.)63 b(In)39 b(general,)h +Fj(d)3304 4151 y Fl(join)3462 4136 y Fw(ma)m(y)e(b)s(e)472 +4244 y(v)-5 b(aried)31 b(to)g(describ)s(e)g(di\013eren)m(t)g +(`jet-resolution)f(p)s(o)m(w)m(ers';)j(the)f(default)e(v)-5 +b(alue,)31 b(2.5)f(GeV,)472 4353 y(is)h(fairly)f(w)m(ell)g(suited)h +(for)g(e)1496 4317 y Fl(+)1555 4353 y Fw(e)1598 4317 +y Fk(\000)1689 4353 y Fw(ph)m(ysics)i(at)e(30{40)f(GeV.)h(With)f(the)i +(alternativ)m(e)f(mass)472 4461 y(distance)h(measure,)f +Fq(PARU\(44\))i Fw(can)e(b)s(e)g(used)h(to)e(set)i(the)f(absolute)g +(maxim)m(um)d(cluster)472 4569 y(mass,)j(or)f Fq(PARU\(45\))i +Fw(to)d(set)i(the)f(scaled)h(one,)g(i.e.)42 b(in)29 b +Fj(y)i Fw(=)c Fj(m)2760 4533 y Fl(2)2800 4569 y Fj(=E)2927 +4533 y Fl(2)2921 4594 y(cm)3015 4569 y Fw(,)k(where)g +Fj(E)3424 4584 y Fl(cm)3549 4569 y Fw(is)e(the)472 4678 +y(total)i(in)m(v)-5 b(arian)m(t)32 b(mass)g(of)g(the)h(particles)f(b)s +(eing)g(considered.)472 4786 y(It)47 b(is)e(p)s(ossible)g(to)h(con)m +(tin)m(ue)h(the)f(cluster)g(searc)m(h)i(from)c(the)j(con\014guration)e +(already)472 4894 y(found,)57 b(with)51 b(a)g(new)i(higher)e +Fj(d)1726 4909 y Fl(join)1897 4894 y Fw(scale,)56 b(b)m(y)c(selecting)h +Fq(MSTU\(48\))g Fw(prop)s(erly)-8 b(.)100 b(In)472 5003 +y Fq(MSTU\(47\))32 b Fw(one)e(can)g(also)e(require)i(a)f(minim)m(um)e +(n)m(um)m(b)s(er)i(of)g(jets)i(to)e(b)s(e)g(reconstructed;)472 +5111 y(com)m(bined)k(with)g(an)g(arti\014cially)c(large)j +Fj(d)2021 5126 y Fl(join)2174 5111 y Fw(this)g(can)i(b)s(e)f(used)h(to) +e(reconstruct)j(a)e(pre-)472 5219 y(determined)g(n)m(um)m(b)s(er)g(of)f +(jets.)472 5328 y(Whic)m(h)46 b(particles)e(\(or)g(partons\))h(are)g +(used)h(in)e(the)h(analysis)f(is)h(determined)f(b)m(y)i(the)472 +5436 y Fq(MSTU\(41\))62 b Fw(v)-5 b(alue,)67 b(whereas)61 +b(assumptions)f(ab)s(out)g(particle)e(masses)j(is)e(giv)m(en)i(b)m(y) +472 5544 y Fq(MSTU\(42\))p Fw(.)h(The)38 b(parameters)g +Fq(PARU\(43\))i Fw(and)e Fq(PARU\(48\))i Fw(regulate)d(more)g(tec)m +(hnical)472 5653 y(details)27 b(\(for)f(ev)m(en)m(ts)k(at)d(high)g +(energies)h(and)f(large)f(m)m(ultiplicities,)e(ho)m(w)m(ev)m(er,)31 +b(the)d(c)m(hoice)1817 5953 y(302)p eop +%%Page: 303 309 +303 308 bop 472 -18 a Fw(of)44 b(a)f(larger)g Fq(PARU\(43\))j +Fw(ma)m(y)d(b)s(e)h(necessary)i(to)e(obtain)e(reasonable)i +(reconstruction)472 90 y(times\).)0 198 y Fq(NJET)52 +b(:)165 b Fw(the)33 b(n)m(um)m(b)s(er)g(of)g(clusters)g(reconstructed.) +236 307 y Fq(=)52 b(-1)g(:)165 b Fw(analysis)25 b(not)h(p)s(erformed)g +(b)s(ecause)i(ev)m(en)m(t)g(con)m(tained)e(less)h(than)f +Fq(MSTU\(47\))i Fw(\(nor-)709 415 y(mally)e(1\))i(particles,)h(or)f +(analysis)g(failed)e(to)j(reconstruct)g(the)g(requested)i(n)m(um)m(b)s +(er)709 523 y(of)h(jets.)236 632 y Fq(=)52 b(-2)g(:)165 +b Fw(remaining)21 b(space)j(in)e Fq(LUJETS)j Fw(\(partly)e(used)h(as)g +(w)m(orking)f(area\))g(not)g(large)f(enough)709 740 y(to)32 +b(allo)m(w)f(analysis.)0 848 y Fo(Remark:)53 b Fw(if)g(the)i(analysis)e +(do)s(es)i(not)f(fail,)j(further)e(information)c(is)i(found)i(in)e +Fq(MSTU\(61\))g(-)472 957 y(MSTU\(63\))43 b Fw(and)d +Fq(PARU\(61\))53 b(-)f(PARU\(63\))p Fw(.)68 b(In)41 b(particular,)f +Fq(PARU\(61\))j Fw(con)m(tains)d(the)472 1065 y(in)m(v)-5 +b(arian)m(t)35 b(mass)i(for)f(the)g(system)i(analyzed,)f(i.e.)54 +b(the)37 b(n)m(um)m(b)s(er)g(used)h(in)d(determining)472 +1173 y(the)j(denominator)e(of)g Fj(y)j Fw(=)c Fj(m)1617 +1137 y Fl(2)1657 1173 y Fj(=E)1784 1137 y Fl(2)1778 1198 +y(cm)1873 1173 y Fw(.)57 b Fq(PARU\(62\))39 b Fw(giv)m(es)f(the)f +(generalized)g(thrust,)i(i.e.)472 1282 y(the)34 b(sum)f(of)g +(\(absolute)g(v)-5 b(alues)33 b(of)7 b(\))32 b(cluster)i(momen)m(ta)e +(divided)h(b)m(y)h(the)f(sum)g(of)g(parti-)472 1390 y(cle)38 +b(momen)m(ta)f(\(roughly)h(the)g(same)g(as)g(m)m(ulticit)m(y\).)59 +b Fq(PARU\(63\))40 b Fw(giv)m(es)e(the)h(minim)m(um)472 +1498 y(distance)31 b Fj(d)e Fw(\(in)g Fj(p)1128 1513 +y Fk(?)1217 1498 y Fw(or)g Fj(m)p Fw(\))h(b)s(et)m(w)m(een)i(t)m(w)m(o) +e(clusters)h(in)e(the)h(\014nal)f(cluster)h(con\014guration,)472 +1607 y(0)j(in)f(case)h(of)f(only)g(one)h(cluster.)472 +1715 y(F)-8 b(urther,)34 b(the)g(lines)e Fq(N+1)j Fw(through)e +Fq(N+NJET)i Fw(\()p Fq(N-NJET+1)g Fw(through)f Fq(N)f +Fw(for)g Fq(MSTU\(43\)=2)p Fw(\))472 1823 y(in)f Fq(LUJETS)i +Fw(will,)d(after)h(a)g(call,)f(con)m(tain)h(the)h(follo)m(wing)d +(information:)472 1932 y Fq(K\(N+i,1\))54 b(=)33 b Fw(31;)472 +2040 y Fq(K\(N+i,2\))54 b(=)33 b Fw(97;)472 2148 y Fq(K\(N+i,3\))54 +b(:)43 b Fj(i)p Fw(,)32 b(the)g(jet)g(n)m(um)m(b)s(er,)g(with)f(the)h +(jets)g(arranged)g(in)f(falling)d(order)k(of)f(abso-)472 +2257 y(lute)i(momen)m(tum;)472 2365 y Fq(K\(N+i,4\))54 +b(:)43 b Fw(the)33 b(n)m(um)m(b)s(er)g(of)g(particles)e(assigned)i(to)f +(jet)h Fj(i)p Fw(;)472 2473 y Fq(K\(N+i,5\))54 b(=)33 +b Fw(0;)472 2582 y Fq(P\(N+i,1\))54 b(-)d(P\(N+i,5\))j(:)43 +b Fw(momen)m(tum,)32 b(energy)h(and)g(in)m(v)-5 b(arian)m(t)31 +b(mass)i(of)f(jet)g Fj(i)p Fw(;)472 2690 y Fq(V\(N+i,1\))54 +b(-)d(V\(N+i,5\))j(=)33 b Fw(0.)472 2798 y(Also,)g(for)g(a)g(particle)e +(whic)m(h)j(w)m(as)g(used)g(in)f(the)g(analysis,)g Fq(K\(I,4\))p +Fw(=)d Fj(i)p Fw(,)k(where)g Fq(I)f Fw(is)g(the)472 2907 +y(particle)40 b(n)m(um)m(b)s(er)i(and)g Fj(i)f Fw(the)h(n)m(um)m(b)s +(er)g(of)e(the)i(jet)f(it)g(has)g(b)s(en)h(assigned)g(to.)69 +b(Unde-)472 3015 y(ca)m(y)m(ed)37 b(particles)d(not)g(used)i(then)g(ha) +m(v)m(e)g Fq(K\(I,4\)=0)p Fw(.)52 b(An)35 b(exception)g(is)g(made)f +(for)g(lines)472 3123 y(with)28 b Fq(K\(I,1\)=3)i Fw(\(whic)m(h)e(an)m +(yho)m(w)h(are)f(not)g(normally)d(in)m(teresting)j(for)f(cluster)h +(searc)m(h\),)472 3232 y(where)34 b(the)f(colour-\015o)m(w)f +(information)e(stored)j(in)f Fq(K\(I,4\))i Fw(is)e(left)f(in)m(tact.)p +0 3371 1030 9 v 0 3590 9 220 v 79 3511 a Fq(CALL)52 b(LUCELL\(NJET\))p +1022 3590 V 0 3598 1030 9 v 0 3730 a Fo(Purp)s(ose:)c +Fw(to)36 b(pro)m(vide)g(a)g(simpler)e(cluster)j(routine)e(more)h(in)f +(line)g(with)g(what)i(is)e(curren)m(tly)i(used)472 3838 +y(in)32 b(the)h(study)h(of)e(high-)p Fj(p)1401 3853 y +Fk(?)1491 3838 y Fw(collider)f(ev)m(en)m(ts.)472 3946 +y(A)42 b(detector)g(is)f(assumed)h(to)f(stretc)m(h)h(in)f +(pseudorapidit)m(y)g(b)s(et)m(w)m(een)j Fq(-PARU\(51\))f +Fw(and)472 4055 y Fq(+PARU\(51\))j Fw(and)d(b)s(e)h(segmen)m(ted)g(in)f +Fq(MSTU\(51\))i Fw(equally)e(large)f Fj(\021)k Fw(\(pseudorapidit)m +(y\))472 4163 y(bins)37 b(and)f Fq(MSTU\(52\))j Fj(')d +Fw(\(azim)m(uthal\))f(bins.)55 b(T)-8 b(ransv)m(erse)39 +b(energy)e Fj(E)3089 4178 y Fk(?)3185 4163 y Fw(for)f(undeca)m(y)m(ed) +472 4271 y(en)m(tries)46 b(are)g(summed)f(up)g(in)g(eac)m(h)h(bin.)81 +b(F)-8 b(or)45 b Fq(MSTU\(53\))i Fw(non-zero,)i(the)d(energy)g(is)472 +4380 y(smeared)41 b(b)m(y)g(calorimetric)c(resolution)i(e\013ects,)k +(cell)c(b)m(y)i(cell.)64 b(This)41 b(is)e(done)i(accord-)472 +4488 y(ing)35 b(to)h(a)g(Gaussian)f(distribution;)h(if)42 +b Fq(MSTU\(53\)=1)d Fw(the)d(standard)h(deviation)e(for)g(the)472 +4597 y Fj(E)544 4612 y Fk(?)649 4597 y Fw(is)46 b Fq(PARU\(55\))p +Fn(\002)1246 4520 y(p)p 1331 4520 132 4 v 1331 4597 a +Fj(E)1403 4612 y Fk(?)1463 4597 y Fw(,)j(if)i Fq(MSTU\(53\)=2)e +Fw(the)d(standard)g(deviation)f(for)g(the)h Fj(E)52 b +Fw(is)472 4716 y Fq(PARU\(55\))p Fn(\002)957 4632 y(p)p +1043 4632 79 4 v 1043 4716 a Fj(E)6 b Fw(,)30 b Fj(E)1250 +4731 y Fk(?)1338 4716 y Fw(and)f Fj(E)35 b Fw(expressed)d(in)c(GeV.)h +(The)g(Gaussian)g(is)f(cut)i(o\013)e(at)h(0)f(and)472 +4824 y(at)39 b(a)g(factor)g Fq(PARU\(56\))i Fw(times)e(the)h(correct)f +Fj(E)2267 4839 y Fk(?)2366 4824 y Fw(or)g Fj(E)6 b Fw(.)63 +b(Cells)39 b(with)g(an)g Fj(E)3349 4839 y Fk(?)3448 4824 +y Fw(b)s(elo)m(w)g(a)472 4933 y(giv)m(en)c(threshold)g +Fq(PARU\(58\))h Fw(are)f(remo)m(v)m(ed)g(from)e(further)i +(consideration;)g(b)m(y)g(default)472 5041 y Fq(PARU\(58\)=0.)47 +b Fw(and)32 b(th)m(us)i(all)c(cells)i(are)h(k)m(ept.)472 +5149 y(All)38 b(bins)i(with)f Fj(E)1154 5164 y Fk(?)1253 +5149 y Fj(>)p Fq(PARU\(52\))j Fw(are)d(tak)m(en)i(to)e(b)s(e)h(p)s +(ossible)f(initiators)e(of)i(jets,)j(and)472 5258 y(are)37 +b(tried)f(in)g(falling)d Fj(E)1365 5273 y Fk(?)1461 5258 +y Fw(sequence)39 b(to)d(c)m(hec)m(k)j(whether)f(the)f(total)e +Fj(E)3118 5273 y Fk(?)3214 5258 y Fw(summed)h(o)m(v)m(er)472 +5392 y(cells)k(no)h(more)f(distan)m(t)g(than)g Fq(PARU\(54\))j +Fw(in)2232 5292 y Fg(q)p 2315 5292 629 4 v 100 x Fw(\(\001)p +Fj(\021)t Fw(\))2524 5363 y Fl(2)2585 5392 y Fw(+)22 +b(\(\001)p Fj(')p Fw(\))2904 5363 y Fl(2)2984 5392 y +Fw(exceeds)43 b Fq(PARU\(53\))p Fw(.)472 5516 y(If)c(so,)i(these)g +(cells)d(de\014ne)i(one)f(jet,)i(and)e(are)g(remo)m(v)m(ed)h(from)e +(further)h(consideration.)472 5624 y(Con)m(trary)29 b(to)f +Fq(LUCLUS)p Fw(,)i(not)e(all)f(particles)g(need)i(b)s(e)g(assigned)f +(to)g(jets.)43 b(Whic)m(h)28 b(particles)1817 5953 y(303)p +eop +%%Page: 304 310 +304 309 bop 472 -18 a Fw(\(or)33 b(partons\))f(are)h(used)h(in)d(the)i +(analysis)f(is)g(determined)h(b)m(y)g(the)g Fq(MSTU\(41\))i +Fw(v)-5 b(alue.)0 90 y Fq(NJET)52 b(:)165 b Fw(the)33 +b(n)m(um)m(b)s(er)g(of)g(jets)g(reconstructed)h(\(ma)m(y)e(b)s(e)h +(0\).)236 198 y Fq(=)52 b(-2)g(:)165 b Fw(remaining)21 +b(space)j(in)e Fq(LUJETS)j Fw(\(partly)e(used)h(as)g(w)m(orking)f +(area\))g(not)g(large)f(enough)709 307 y(to)32 b(allo)m(w)f(analysis.)0 +415 y Fo(Remark:)53 b Fw(the)28 b(lines)d Fq(N+1)j Fw(through)e +Fq(N+NJET)j Fw(\()p Fq(N-NJET+1)f Fw(through)f Fq(N)g +Fw(for)f Fq(MSTU\(43\)=2)p Fw(\))j(in)d Fq(LUJETS)472 +523 y Fw(will,)31 b(after)h(a)g(call,)f(con)m(tain)h(the)h(follo)m +(wing)d(information:)472 632 y Fq(K\(N+i,1\))54 b(=)33 +b Fw(31;)472 740 y Fq(K\(N+i,2\))54 b(=)33 b Fw(98;)472 +848 y Fq(K\(N+i,3\))54 b(:)43 b Fj(i)p Fw(,)33 b(the)g(jet)g(n)m(um)m +(b)s(er,)g(with)f(the)h(jets)g(arranged)g(in)f(falling)d(order)k(in)e +Fj(E)3643 863 y Fk(?)3703 848 y Fw(;)472 957 y Fq(K\(N+i,4\))54 +b(:)43 b Fw(the)33 b(n)m(um)m(b)s(er)g(of)g(particles)e(assigned)i(to)f +(jet)h Fj(i)p Fw(;)472 1065 y Fq(K\(N+i,5\))54 b(=)33 +b Fw(0;)472 1173 y Fq(V\(N+i,1\))54 b(-)d(V\(N+i,5\))j(=)33 +b Fw(0.)472 1282 y(F)-8 b(urther,)33 b(for)f Fq(MSTU\(54\)=1)472 +1390 y(P\(N+i,1\),)54 b(P\(N+i,2\))f(=)38 b Fw(p)s(osition)d(in)i +Fj(\021)j Fw(and)e Fj(')f Fw(of)f(the)i(cen)m(ter)g(of)f(the)h(jet)f +(initiator)472 1498 y(cell,)32 b(i.e.)43 b(geometrical)30 +b(cen)m(ter)k(of)e(jet;)472 1607 y Fq(P\(N+i,3\),)54 +b(P\(N+i,4\))f(=)34 b Fw(p)s(osition)d(in)i Fj(\021)k +Fw(and)c Fj(')g Fw(of)g(the)h Fj(E)2743 1622 y Fk(?)2802 +1607 y Fw(-w)m(eigh)m(ted)g(cen)m(ter)g(of)f(the)472 +1715 y(jet,)g(i.e.)43 b(the)33 b(cen)m(ter)h(of)e(gra)m(vit)m(y)h(of)f +(the)h(jet;)472 1823 y Fq(P\(N+i,5\))54 b(=)33 b Fw(sum)f +Fj(E)1296 1838 y Fk(?)1388 1823 y Fw(of)g(the)h(jet;)472 +1932 y(while)f(for)g Fq(MSTU\(54\)=2)472 2040 y(P\(N+i,1\))54 +b(-)d(P\(N+i,5\))j(:)80 b Fw(the)52 b(jet)f(momen)m(tum)e(v)m(ector,)57 +b(constructed)52 b(from)e(the)472 2148 y(summed)33 b +Fj(E)930 2163 y Fk(?)1022 2148 y Fw(and)f(the)h Fj(\021)j +Fw(and)d Fj(')g Fw(of)f(the)h Fj(E)2101 2163 y Fk(?)2160 +2148 y Fw(-w)m(eigh)m(ted)g(cen)m(ter)h(of)e(the)h(jet)g(as)472 +2257 y(\()p Fj(p)559 2272 y Fh(x)603 2257 y Fj(;)17 b(p)696 +2272 y Fh(y)737 2257 y Fj(;)g(p)830 2272 y Fh(z)870 2257 +y Fj(;)g(E)6 b(;)17 b(m)p Fw(\))27 b(=)h Fj(E)1362 2272 +y Fk(?)1421 2257 y Fw(\(cos)17 b Fj(';)g Fw(sin)f Fj(';)h +Fw(sinh)f Fj(\021)t(;)h Fw(cosh)g Fj(\021)t(;)g Fw(0\);)472 +2365 y(and)33 b(for)f Fq(MSTU\(54\)=3)472 2473 y(P\(N+i,1\))54 +b(-)d(P\(N+i,5\))j(:)66 b Fw(the)45 b(jet)f(momen)m(tum)f(v)m(ector,)48 +b(constructed)d(b)m(y)g(adding)472 2582 y(v)m(ectorially)24 +b(the)h(momen)m(tum)e(of)h(eac)m(h)i(cell)d(assigned)i(to)g(the)g(jet,) +h(assuming)e(that)g(all)f(the)472 2690 y Fj(E)544 2705 +y Fk(?)635 2690 y Fw(w)m(as)31 b(dep)s(osited)h(at)e(the)h(cen)m(ter)i +(of)d(the)h(cell,)g(and)g(with)f(the)h(jet)g(mass)g(in)f +Fq(P\(N+i,5\))472 2798 y Fw(calculated)i(from)f(the)i(summed)g +Fj(E)38 b Fw(and)33 b Fo(p)g Fw(as)g Fj(m)2317 2762 y +Fl(2)2384 2798 y Fw(=)28 b Fj(E)2566 2762 y Fl(2)2627 +2798 y Fn(\000)23 b Fj(p)2776 2762 y Fl(2)2776 2823 y +Fh(x)2842 2798 y Fn(\000)f Fj(p)2990 2762 y Fl(2)2990 +2823 y Fh(y)3054 2798 y Fn(\000)h Fj(p)3203 2762 y Fl(2)3203 +2823 y Fh(z)3242 2798 y Fw(.)472 2907 y(Also,)39 b(the)f(n)m(um)m(b)s +(er)g(of)g(particles)f(used)i(in)e(the)h(analysis)f(is)g(giv)m(en)h(in) +f Fq(MSTU\(62\))p Fw(,)k(and)472 3015 y(the)33 b(n)m(um)m(b)s(er)g(of)g +(cells)e(hit)h(in)g Fq(MSTU\(63\))p Fw(.)p 0 3148 1184 +9 v 0 3373 9 225 v 79 3288 a Fq(CALL)52 b(LUJMAS\(PMH,PML\))p +1175 3373 V 0 3381 1184 9 v 0 3513 a Fo(Purp)s(ose:)c +Fw(to)f(reconstruct)h(high)f(and)g(lo)m(w)g(jet)g(mass)h(of)e(an)i(ev)m +(en)m(t.)89 b(A)47 b(simpli\014ed)f(algorithm)472 3621 +y(is)41 b(used,)i(wherein)f(a)e(preliminary)e(division)h(of)h(the)h(ev) +m(en)m(t)h(in)m(to)e(t)m(w)m(o)h(hemispheres)h(is)472 +3730 y(done)37 b(transv)m(ersely)h(to)f(the)f(sphericit)m(y)h(axis.)55 +b(Then)38 b(one)e(particle)f(at)h(a)g(time)g(is)f(reas-)472 +3838 y(signed)h(to)g(the)g(other)g(hemisphere)h(if)d(that)i(reduces)i +(the)e(sum)g(of)f(squares)j(of)d(the)i(t)m(w)m(o)472 +3946 y(jet)i(masses,)i Fj(m)1063 3910 y Fl(2)1063 3971 +y(H)1147 3946 y Fw(+)26 b Fj(m)1334 3910 y Fl(2)1334 +3971 y(L)1382 3946 y Fw(.)62 b(The)39 b(pro)s(cedure)h(is)e(stopp)s(ed) +h(when)h(no)e(further)h(signi\014can)m(t)472 4055 y(c)m(hange)34 +b(\(see)g Fq(PARU\(48\))p Fw(\))h(is)d(obtained.)44 b(Often,)33 +b(the)g(original)d(assignmen)m(t)i(is)h(retained)472 +4163 y(as)41 b(it)f(is.)68 b(Whic)m(h)41 b(particles)f(\(or)h +(partons\))g(used)h(in)e(the)h(analysis)f(is)h(determined)g(b)m(y)472 +4271 y(the)h Fq(MSTU\(41\))h Fw(v)-5 b(alue,)42 b(whereas)h +(assumptions)d(ab)s(out)h(particle)e(masses)j(is)f(giv)m(en)g(b)m(y)472 +4380 y Fq(MSTU\(42\))p Fw(.)0 4488 y Fq(PMH)52 b(:)216 +b Fw(hea)m(vy)35 b(jet)d(mass)h(\(in)e(GeV\).)236 4597 +y Fq(=)52 b(-2.)103 b(:)63 b Fw(remaining)21 b(space)j(in)e +Fq(LUJETS)j Fw(\(partly)e(used)h(as)g(w)m(orking)f(area\))g(not)g +(large)f(enough)709 4705 y(to)32 b(allo)m(w)f(analysis.)0 +4813 y Fq(PML)52 b(:)216 b Fw(ligh)m(t)31 b(jet)i(mass)g(\(in)e(GeV\).) +236 4922 y Fq(=)52 b(-2.)103 b(:)63 b Fw(as)32 b(for)g +Fq(PMH=-2.)p Fw(.)0 5030 y Fo(Remark:)53 b Fw(After)33 +b(a)f(successful)j(call,)c Fq(MSTU\(62\))j Fw(con)m(tains)f(the)g(n)m +(um)m(b)s(er)g(of)f(particles)g(used)h(in)f(the)472 5138 +y(analysis,)f(and)h Fq(PARU\(61\))h Fw(the)f(in)m(v)-5 +b(arian)m(t)29 b(mass)j(of)e(the)i(system)g(analyzed.)43 +b(The)32 b(latter)472 5247 y(n)m(um)m(b)s(er)h(is)g(helpful)e(in)h +(constructing)h(scaled)f(jet)h(masses.)p 0 5391 1594 +9 v 0 5616 9 225 v 79 5531 a Fq(CALL)52 b(LUFOWO\(H10,H20,H30,H40\))p +1585 5616 V 0 5624 1594 9 v 1817 5953 a Fw(304)p eop +%%Page: 305 311 +305 310 bop 0 -18 a Fo(Purp)s(ose:)48 b Fw(to)32 b(do)h(an)f(ev)m(en)m +(t)j(analysis)d(in)f(terms)i(of)f(the)h(F)-8 b(o)m(x-W)g(olfram)30 +b(momen)m(ts.)43 b(The)34 b(momen)m(ts)472 90 y Fj(H)553 +105 y Fh(i)608 90 y Fw(are)27 b(normalized)d(to)i(the)h(lo)m(w)m(est)g +(one,)i Fj(H)2102 105 y Fl(0)2141 90 y Fw(.)41 b(Whic)m(h)27 +b(particles)f(\(or)g(partons\))h(are)f(used)472 198 y(in)32 +b(the)h(analysis)f(is)g(determined)h(b)m(y)g(the)g Fq(MSTU\(41\))i +Fw(v)-5 b(alue.)0 307 y Fq(H10)52 b(:)216 b Fj(H)553 +322 y Fl(1)593 307 y Fj(=H)723 322 y Fl(0)762 307 y Fw(.)43 +b(Is)33 b(=)28 b(0)k(if)g(momen)m(tum)f(is)h(balanced.)0 +415 y Fq(H20)52 b(:)216 b Fj(H)553 430 y Fl(2)593 415 +y Fj(=H)723 430 y Fl(0)762 415 y Fw(.)0 523 y Fq(H30)52 +b(:)216 b Fj(H)553 538 y Fl(3)593 523 y Fj(=H)723 538 +y Fl(0)762 523 y Fw(.)0 632 y Fq(H40)52 b(:)216 b Fj(H)553 +647 y Fl(4)593 632 y Fj(=H)723 647 y Fl(0)762 632 y Fw(.)0 +740 y Fo(Remark:)53 b Fw(the)33 b(n)m(um)m(b)s(er)g(of)g(particles)e +(used)j(in)e(the)h(analysis)f(is)g(giv)m(en)h(in)e Fq(MSTU\(62\))p +Fw(.)p 0 884 1082 9 v 0 1103 9 220 v 79 1024 a Fq(CALL)52 +b(LUTABU\(MTABU\))p 1073 1103 V 0 1111 1082 9 v 0 1243 +a Fo(Purp)s(ose:)c Fw(to)36 b(pro)m(vide)h(a)f(n)m(um)m(b)s(er)h(of)f +(ev)m(en)m(t-analysis)h(options)f(whic)m(h)h(can)g(b)s(e)g(b)s(e)f +(used)i(on)f(eac)m(h)472 1352 y(new)k(ev)m(en)m(t,)i(with)d(accum)m +(ulated)f(statistics)g(to)h(b)s(e)f(written)h(out)g(on)f(request.)67 +b(When)472 1460 y(errors)39 b(are)f(quoted,)i(these)f(refer)f(to)g(the) +g(uncertain)m(t)m(y)h(in)e(the)h(a)m(v)m(erage)h(v)-5 +b(alue)38 b(for)f(the)472 1568 y(ev)m(en)m(t)k(sample)c(as)h(a)g +(whole,)i(rather)e(than)g(to)g(the)h(spread)g(of)f(the)g(individual)e +(ev)m(en)m(ts,)472 1677 y(i.e.)87 b(errors)48 b(decrease)h(lik)m(e)d +(one)h(o)m(v)m(er)i(the)e(square)h(ro)s(ot)f(of)f(the)i(n)m(um)m(b)s +(er)f(of)g(ev)m(en)m(ts)472 1785 y(analyzed.)86 b(F)-8 +b(or)46 b(a)g(correct)h(use)g(of)53 b Fq(LUTABU)p Fw(,)48 +b(it)e(is)g(not)g(p)s(ermissible)f(to)h(freely)h(mix)472 +1893 y(generation)f(and)h(analysis)f(of)g(di\013eren)m(t)g(classes)i +(of)e(ev)m(en)m(ts,)52 b(since)47 b(only)f(one)h(set)g(of)472 +2002 y(statistics)35 b(coun)m(ters)i(exists.)53 b(A)35 +b(single)f(run)i(ma)m(y)f(still)e(con)m(tain)i(sequen)m(tial)h +(`subruns',)472 2110 y(b)s(et)m(w)m(een)f(whic)m(h)f(statistics)e(is)g +(reset.)46 b(Whenev)m(er)35 b(an)e(ev)m(en)m(t)h(is)f(analyzed,)g(the)g +(n)m(um)m(b)s(er)472 2219 y(of)g(particles/partons)e(used)j(is)e(giv)m +(en)h(in)f Fq(MSTU\(62\))p Fw(.)0 2327 y Fq(MTABU)53 +b(:)113 b Fw(determines)47 b(whic)m(h)f(action)g(is)f(to)h(b)s(e)h(tak) +m(en.)85 b(Generally)-8 b(,)48 b(a)e(last)g(digit)e(equal)i(to)g(0)472 +2435 y(indicates)40 b(that)f(the)h(statistics)g(coun)m(ters)h(for)e +(this)g(option)g(is)g(to)h(b)s(e)f(reset;)45 b(since)40 +b(the)472 2544 y(coun)m(ters)c(are)e(reset)h(\(b)m(y)h +Fq(DATA)f Fw(statemen)m(ts\))g(at)e(the)h(b)s(eginning)f(of)g(a)h(run,) +h(this)e(is)h(not)472 2652 y(used)i(normally)-8 b(.)45 +b(Last)34 b(digit)e(1)i(leads)f(to)h(an)g(analysis)f(of)h(curren)m(t)h +(ev)m(en)m(t)h(with)d(resp)s(ect)472 2760 y(to)i(the)f(desired)i(prop)s +(erties.)49 b(Note)34 b(that)h(the)f(resulting)g(action)g(ma)m(y)g(dep) +s(end)h(on)g(ho)m(w)472 2869 y(the)g(ev)m(en)m(t)h(generated)f(has)f(b) +s(een)h(rotated,)f(b)s(o)s(osted)h(or)e(edited)h(b)s(efore)h(this)e +(call.)47 b(The)472 2977 y(statistics)38 b(accum)m(ulated)f(is)g +(output)h(in)f(tabular)g(form)f(with)i(last)f(digit)f(2,)i(while)f(it)g +(is)472 3085 y(dump)s(ed)e(in)f(the)h Fq(LUJETS)h Fw(common)e(blo)s(c)m +(k)g(for)h(last)e(digit)g(3.)50 b(The)35 b(latter)f(option)g(ma)m(y)472 +3194 y(b)s(e)f(useful)g(for)f(in)m(terfacing)f(to)h(graphics)h(output.) +236 3302 y Fq(=)52 b(10)g(:)165 b Fw(statistics)32 b(on)g(parton)h(m)m +(ultiplicit)m(y)c(is)j(reset.)236 3410 y Fq(=)52 b(11)g(:)165 +b Fw(the)35 b(parton)g(con)m(ten)m(t)h(of)e(the)h(curren)m(t)h(ev)m(en) +m(t)h(is)e(analyzed,)g(classi\014ed)g(according)709 3519 +y(to)23 b(the)h(\015a)m(v)m(our)h(con)m(ten)m(t)g(of)f(the)g(hard)g(in) +m(teraction)f(and)h(the)g(total)e(n)m(um)m(b)s(er)j(of)e(par-)709 +3627 y(tons.)41 b(The)25 b(\015a)m(v)m(our)g(con)m(ten)m(t)g(is)f +(assumed)h(giv)m(en)f(in)f Fq(MSTU\(161\))k Fw(and)d +Fq(MSTU\(162\))p Fw(;)709 3735 y(these)33 b(are)g(automatically)c(set)k +(e.g.)44 b(in)32 b Fq(LUEEVT)i Fw(and)f Fq(PYEVNT)h Fw(calls.)236 +3844 y Fq(=)52 b(12)g(:)165 b Fw(giv)m(es)33 b(a)f(table)g(on)g(parton) +h(m)m(ultiplicit)m(y)c(distribution.)236 3952 y Fq(=)52 +b(13)g(:)165 b Fw(stores)38 b(the)f(parton)g(m)m(ultiplicit)m(y)d +(distribution)h(of)i(ev)m(en)m(ts)j(in)c Fq(/LUJETS/)p +Fw(,)41 b(using)709 4060 y(the)33 b(follo)m(wing)d(format:)709 +4169 y Fq(N)51 b(=)33 b Fw(total)e(n)m(um)m(b)s(er)i(of)f(di\013eren)m +(t)h(c)m(hannels)g(found;)709 4277 y Fq(K\(I,1\))53 b(=)32 +b Fw(32;)709 4385 y Fq(K\(I,2\))53 b(=)32 b Fw(99;)709 +4494 y Fq(K\(I,3\),)53 b(K\(I,4\))g(=)32 b Fw(the)h(t)m(w)m(o)h(\015a)m +(v)m(ours)g(of)e(the)h(\015a)m(v)m(our)g(con)m(ten)m(t;)709 +4602 y Fq(K\(I,5\))53 b(=)37 b Fw(total)e(n)m(um)m(b)s(er)i(of)f(ev)m +(en)m(ts)k(found)c(with)h(\015a)m(v)m(our)h(con)m(ten)m(t)g(of)43 +b Fq(K\(I,3\))709 4710 y Fw(and)32 b Fq(K\(I,4\))p Fw(;)709 +4819 y Fq(P\(I,1\))53 b(-)e(P\(I,5\))i(=)23 b Fw(relativ)m(e)g +(probabilit)m(y)e(to)i(\014nd)h(giv)m(en)g(\015a)m(v)m(our)g(con)m(ten) +m(t)g(and)709 4927 y(a)32 b(total)f(of)h(1,)g(2,)h(3,)f(4)h(or)f(5)g +(partons,)h(resp)s(ectiv)m(ely;)709 5035 y Fq(V\(I,1\))53 +b(-)e(V\(I,5\))i(=)23 b Fw(relativ)m(e)g(probabilit)m(y)e(to)i(\014nd)h +(giv)m(en)g(\015a)m(v)m(our)g(con)m(ten)m(t)g(and)709 +5144 y(a)32 b(total)f(of)h(6{7,)g(8{10,)g(11{15,)f(16{25)h(or)g(ab)s(o) +m(v)m(e)h(25)f(partons,)h(resp)s(ectiv)m(ely)-8 b(.)709 +5252 y(In)33 b(addition,)d Fq(MSTU\(3\)=1)35 b Fw(and)709 +5360 y Fq(K\(N+1,1\))53 b(=)33 b Fw(32;)709 5469 y Fq(K\(N+1,2\))53 +b(=)33 b Fw(99;)709 5577 y Fq(K\(N+1,5\))53 b(=)33 b +Fw(n)m(um)m(b)s(er)g(of)f(ev)m(en)m(ts)j(analyzed.)1817 +5953 y(305)p eop +%%Page: 306 312 +306 311 bop 236 -18 a Fq(=)52 b(20)g(:)165 b Fw(statistics)32 +b(on)g(particle)f(con)m(ten)m(t)j(is)e(reset.)236 90 +y Fq(=)52 b(21)g(:)165 b Fw(the)48 b(particle/parton)e(con)m(ten)m(t)j +(of)f(the)g(curren)m(t)h(ev)m(en)m(t)h(is)d(analyzed,)52 +b(also)47 b(for)709 198 y(particles)30 b(whic)m(h)i(ha)m(v)m(e)g +(subsequen)m(tly)i(deca)m(y)m(ed)g(and)d(partons)g(whic)m(h)h(ha)m(v)m +(e)h(frag-)709 307 y(men)m(ted)43 b(\(unless)h(this)f(has)h(b)s(een)f +(made)g(imp)s(ossible)e(b)m(y)j(a)f(preceding)i Fq(LUEDIT)709 +415 y Fw(call\).)86 b(P)m(articles)47 b(are)h(sub)s(divided)f(in)m(to)g +(primary)f(and)i(secondary)h(ones,)j(the)709 523 y(main)40 +b(principle)h(b)s(eing)h(that)g(primary)f(particles)g(are)h(those)h +(pro)s(duced)h(in)d(the)709 632 y(fragmen)m(tation)26 +b(of)h(a)g(string,)i(while)d(secondary)k(come)d(from)g(deca)m(y)i(of)e +(other)h(par-)709 740 y(ticles.)42 b(Since)31 b(particles)f(\(top,)i +(sa)m(y\),)g(ma)m(y)f(deca)m(y)i(in)m(to)d(partons,)i(the)f +(distinction)709 848 y(is)h(not)g(alw)m(a)m(ys)h(unique.)236 +957 y Fq(=)52 b(22)g(:)165 b Fw(giv)m(es)33 b(a)f(table)g(of)g +(particle)f(con)m(ten)m(t)j(in)e(ev)m(en)m(ts.)236 1065 +y Fq(=)52 b(23)g(:)165 b Fw(stores)28 b(particle)f(con)m(ten)m(t)i(in)e +(ev)m(en)m(ts)k(in)c Fq(/LUJETS/)p Fw(,)k(using)c(the)i(follo)m(wing)c +(format:)709 1173 y Fq(N)51 b(=)33 b Fw(n)m(um)m(b)s(er)g(of)f +(di\013eren)m(t)h(particle)e(sp)s(ecies)j(found;)709 +1282 y Fq(K\(I,1\))53 b(=)32 b Fw(32;)709 1390 y Fq(K\(I,2\))53 +b(=)32 b Fw(99;)709 1498 y Fq(K\(I,3\))53 b(=)32 b Fw(particle)g(KF)g +(co)s(de;)709 1607 y Fq(K\(I,5\))53 b(=)32 b Fw(total)f(n)m(um)m(b)s +(er)i(of)f(particles)g(and)h(an)m(tiparticles)e(of)h(this)g(sp)s +(ecies;)709 1715 y Fq(P\(I,1\))53 b(=)32 b Fw(a)m(v)m(erage)i(n)m(um)m +(b)s(er)f(of)f(primary)f(particles)h(p)s(er)h(ev)m(en)m(t;)709 +1823 y Fq(P\(I,2\))53 b(=)32 b Fw(a)m(v)m(erage)i(n)m(um)m(b)s(er)f(of) +f(secondary)i(particles)e(p)s(er)g(ev)m(en)m(t;)709 1932 +y Fq(P\(I,3\))53 b(=)32 b Fw(a)m(v)m(erage)i(n)m(um)m(b)s(er)f(of)f +(primary)f(an)m(tiparticles)g(p)s(er)i(ev)m(en)m(t;)709 +2040 y Fq(P\(I,4\))53 b(=)32 b Fw(a)m(v)m(erage)i(n)m(um)m(b)s(er)f(of) +f(secondary)i(an)m(tiparticles)d(p)s(er)i(ev)m(en)m(t;)709 +2148 y Fq(P\(I,5\))53 b(=)32 b Fw(a)m(v)m(erage)i(total)d(n)m(um)m(b)s +(er)i(of)f(particles)g(or)g(an)m(tiparticles)f(p)s(er)i(ev)m(en)m(t.) +709 2257 y(In)g(addition,)d Fq(MSTU\(3\)=1)35 b Fw(and)709 +2365 y Fq(K\(N+1,1\))53 b(=)33 b Fw(32;)709 2473 y Fq(K\(N+1,2\))53 +b(=)33 b Fw(99;)709 2582 y Fq(K\(N+1,5\))53 b(=)33 b +Fw(n)m(um)m(b)s(er)g(of)f(ev)m(en)m(ts)j(analyzed;)709 +2690 y Fq(P\(N+1,1\))53 b(=)33 b Fw(a)m(v)m(erage)g(primary)f(m)m +(ultiplicit)m(y)d(p)s(er)j(ev)m(en)m(t;)709 2798 y Fq(P\(N+1,2\))53 +b(=)33 b Fw(a)m(v)m(erage)g(\014nal)f(m)m(ultiplicit)m(y)d(p)s(er)k(ev) +m(en)m(t;)709 2907 y Fq(P\(N+1,3\))53 b(=)33 b Fw(a)m(v)m(erage)g(c)m +(harged)h(m)m(ultiplicit)m(y)29 b(p)s(er)j(ev)m(en)m(t.)236 +3015 y Fq(=)52 b(30)g(:)165 b Fw(statistics)32 b(on)g(factorial)e +(momen)m(ts)i(is)h(reset.)236 3123 y Fq(=)52 b(31)g(:)165 +b Fw(analyzes)24 b(the)f(factorial)e(momen)m(ts)i(of)g(the)h(m)m +(ultiplicit)m(y)c(distribution)i(in)g(di\013eren)m(t)709 +3232 y(bins)37 b(of)g(rapidit)m(y)g(and)h(azim)m(uth.)58 +b(Whic)m(h)38 b(particles)f(\(or)g(partons\))h(are)f(used)i(in)709 +3340 y(the)27 b(analysis)g(is)g(determined)g(b)m(y)i(the)e +Fq(MSTU\(41\))j Fw(v)-5 b(alue.)41 b(The)28 b(selection)f(b)s(et)m(w)m +(een)709 3448 y(usage)43 b(of)f(true)h(rapidit)m(y)-8 +b(,)45 b(pion)d(rapidit)m(y)f(or)i(pseudorapidit)m(y)g(is)f(regulated)h +(b)m(y)709 3557 y Fq(MSTU\(42\))p Fw(.)h(The)31 b Fj(z)j +Fw(axis)29 b(is)g(assumed)h(to)f(b)s(e)h(ev)m(en)m(t)h(axis;)f(if)f +(this)g(is)g(not)g(desirable)709 3665 y(\014nd)46 b(an)g(ev)m(en)m(t)i +(axis)e(e.g.)84 b(with)46 b Fq(LUSPHE)h Fw(or)f Fq(LUTHRU)i +Fw(and)e(use)h Fq(LUEDIT\(31\))p Fw(.)709 3774 y(Maxim)m(um)29 +b(\(pion-,)i(pseudo-\))g(rapidit)m(y)-8 b(,)31 b(whic)m(h)g(sets)h(the) +g(limit)27 b(for)k(the)h(rapidit)m(y)709 3882 y(plateau)g(or)g(the)h +(exp)s(erimen)m(tal)e(acceptance,)k(is)d(giv)m(en)g(b)m(y)j +Fq(PARU\(57\))p Fw(.)236 3990 y Fq(=)52 b(32)g(:)165 +b Fw(prin)m(ts)29 b(a)h(table)f(of)g(the)h(\014rst)g(four)g(factorial)d +(momen)m(ts)i(for)g(v)-5 b(arious)29 b(bins)h(of)f(pseu-)709 +4099 y(dorapidit)m(y)34 b(and)h(azim)m(uth.)51 b(The)36 +b(momen)m(ts)f(are)g(prop)s(erly)g(normalized)e(so)j(that)709 +4207 y(they)f(w)m(ould)f(b)s(e)h(unit)m(y)g(\(up)f(to)h(statistical)d +(\015uctuations\))i(for)g(uniform)f(and)i(un-)709 4315 +y(correlated)d(particle)f(pro)s(duction)h(according)g(to)g(P)m +(oissonian)g(statistics,)g(but)h(in-)709 4424 y(creasing)i(for)f +(decreasing)i(bin)f(size)g(in)f(case)i(of)f(`in)m(termitten)m(t')f(b)s +(eha)m(viour.)52 b(The)709 4532 y(error)34 b(on)h(the)h(a)m(v)m(erage)f +(v)-5 b(alue)35 b(is)f(based)i(on)f(the)g(actual)f(statistical)f +(sample)h(\(i.e.)709 4640 y(do)s(es)g(not)f(use)i(an)m(y)f(assumptions) +g(on)f(the)i(distribution)c(to)j(relate)f(errors)h(to)f(the)709 +4749 y(a)m(v)m(erage)h(v)-5 b(alues)33 b(of)g(higher)g(momen)m(ts\).)46 +b(Note)34 b(that)f(for)g(small)e(bin)i(sizes,)h(where)709 +4857 y(the)c(a)m(v)m(erage)g(m)m(ultiplicit)m(y)c(is)j(small)e(and)j +(the)g(factorial)d(momen)m(t)i(therefore)h(only)709 4965 +y(v)m(ery)d(rarely)e(is)g(non-v)-5 b(anishing,)25 b(momen)m(t)g(v)-5 +b(alues)26 b(ma)m(y)f(\015uctuate)h(wildly)e(and)i(the)709 +5074 y(errors)33 b(giv)m(en)f(ma)m(y)h(b)s(e)f(to)s(o)g(lo)m(w.)236 +5182 y Fq(=)52 b(33)g(:)165 b Fw(stores)33 b(the)g(factorial)d(momen)m +(ts)i(in)g Fq(/LUJETS/)p Fw(,)j(using)d(the)h(format:)709 +5290 y Fq(N)51 b(=)23 b Fw(30,)h(with)e Fq(I)51 b(=)h +Fj(i)28 b Fw(=)g(1{10)21 b(corresp)s(onding)h(to)g(results)h(for)f +(slicing)f(the)i(rapidit)m(y)709 5399 y(range)39 b(in)g(2)1151 +5363 y Fh(i)p Fk(\000)p Fl(1)1308 5399 y Fw(bins,)i Fq(I)52 +b(=)f Fj(i)40 b Fw(=)f(11{20)f(to)h(slicing)f(the)i(azim)m(uth)e(in)h +(2)3386 5363 y Fh(i)p Fk(\000)p Fl(11)3578 5399 y Fw(bins,)709 +5507 y(and)g Fq(I)51 b(=)h Fj(i)39 b Fw(=)g(21{30)f(to)g(slicing)g(b)s +(oth)g(rapidit)m(y)h(and)g(azim)m(uth,)h(eac)m(h)g(in)e(2)3626 +5471 y Fh(i)p Fk(\000)p Fl(21)709 5615 y Fw(bins;)1817 +5953 y(306)p eop +%%Page: 307 313 +307 312 bop 709 -18 a Fq(K\(I,1\))53 b(=)32 b Fw(32;)709 +90 y Fq(K\(I,2\))53 b(=)32 b Fw(99;)709 198 y Fq(K\(I,3\))53 +b(=)32 b Fw(n)m(um)m(b)s(er)h(of)f(bins)h(in)f(rapidit)m(y;)709 +307 y Fq(K\(I,4\))53 b(=)32 b Fw(n)m(um)m(b)s(er)h(of)f(bins)h(in)f +(azim)m(uth;)709 415 y Fq(P\(I,1\))53 b(=)32 b Fw(rapidit)m(y)g(bin)g +(size;)709 523 y Fq(P\(I,2\))53 b(-)e(P\(I,5\))i(=)41 +b Fn(h)p Fj(F)1723 538 y Fl(2)1763 523 y Fn(i)p Fw({)p +Fn(h)p Fj(F)1953 538 y Fl(5)1992 523 y Fn(i)p Fw(,)i(i.e.)69 +b(mean)41 b(of)g(second,)j(third,)f(fourth)e(and)709 +632 y(\014fth)32 b(factorial)e(momen)m(t;)709 740 y Fq(V\(I,1\))53 +b(=)32 b Fw(azim)m(uthal)f(bin)h(size;)709 848 y Fq(V\(I,2\))53 +b(-)e(V\(I,5\))i(=)33 b Fw(statistical)d(errors)j(on)g +Fn(h)p Fj(F)2573 863 y Fl(2)2612 848 y Fn(i)p Fw({)p +Fn(h)p Fj(F)2802 863 y Fl(5)2841 848 y Fn(i)p Fw(.)709 +957 y(In)g(addition,)d Fq(MSTU\(3\))54 b(=)32 b Fw(1)h(and)709 +1065 y Fq(K\(31,1\))53 b(=)33 b Fw(32;)709 1173 y Fq(K\(31,2\))53 +b(=)33 b Fw(99;)709 1282 y Fq(K\(31,5\))53 b(=)33 b Fw(n)m(um)m(b)s(er) +g(of)f(ev)m(en)m(ts)j(analyzed.)236 1390 y Fq(=)52 b(40)g(:)165 +b Fw(statistics)32 b(on)g(energy{energy)j(correlation)30 +b(is)j(reset.)236 1498 y Fq(=)52 b(41)g(:)165 b Fw(the)51 +b(energy{energy)j(correlation)49 b(EEC)j(of)f(the)h(curren)m(t)g(ev)m +(en)m(t)h(is)e(analyzed.)709 1607 y(Whic)m(h)40 b(particles)f(\(or)g +(partons\))h(are)g(used)h(in)d(the)j(analysis)e(is)g(determined)h(b)m +(y)709 1715 y(the)32 b Fq(MSTU\(41\))i Fw(v)-5 b(alue.)43 +b(Ev)m(en)m(ts)34 b(are)e(assumed)h(giv)m(en)f(in)f(their)g(c.m.)43 +b(frame.)g(The)709 1823 y(w)m(eigh)m(t)d(assigned)g(to)f(a)g(pair)g +Fj(i)g Fw(and)h Fj(j)46 b Fw(is)39 b(2)p Fj(E)2421 1838 +y Fh(i)2449 1823 y Fj(E)2521 1838 y Fh(j)2558 1823 y +Fj(=E)2685 1787 y Fl(2)2679 1848 y(vis)2768 1823 y Fw(,)i(where)g +Fj(E)3197 1838 y Fl(vis)3325 1823 y Fw(is)f(the)g(sum)709 +1932 y(of)45 b(energies)h(of)f(all)e(analyzed)j(particles)f(in)f(the)i +(ev)m(en)m(t.)85 b(Energies)46 b(are)f(deter-)709 2040 +y(mined)36 b(from)h(the)h(momen)m(ta)f(of)g(particles,)h(with)g(mass)f +(determined)h(according)709 2148 y(to)g(the)i Fq(MSTU\(42\))h +Fw(v)-5 b(alue.)62 b(Statistics)38 b(is)h(accum)m(ulated)f(for)h(the)g +(relativ)m(e)f(angle)709 2257 y Fj(\022)754 2272 y Fh(ij)815 +2257 y Fw(,)32 b(ranging)g(b)s(et)m(w)m(een)i(0)e(and)h(180)f(degrees,) +i(sub)s(divided)f(in)m(to)f(50)g(bins.)236 2365 y Fq(=)52 +b(42)g(:)165 b Fw(prin)m(ts)35 b(a)g(table)f(of)h(the)h(energy{energy)h +(correlation)c(EEC)k(and)e(its)f(asymmetry)709 2473 y(EECA)q(,)42 +b(with)d(errors.)66 b(The)41 b(de\014nition)e(of)g(errors)h(is)g(not)f +(unique.)66 b(In)40 b(our)g(ap-)709 2582 y(proac)m(h)33 +b(eac)m(h)i(ev)m(en)m(t)g(is)e(view)m(ed)h(as)f(one)h(observ)-5 +b(ation,)33 b(i.e.)45 b(an)33 b(EEC)i(and)e(EECA)709 +2690 y(distribution)i(is)i(obtained)g(b)m(y)h(summing)e(o)m(v)m(er)i +(all)d(particle)i(pairs)f(of)h(an)h(ev)m(en)m(t,)709 +2798 y(and)24 b(then)i(the)f(a)m(v)m(erage)g(and)g(spread)g(of)f(this)g +(ev)m(en)m(t-distribution)h(is)f(calculated)f(in)709 +2907 y(the)h(standard)g(fashion.)40 b(The)24 b(quoted)h(error)e(is)g +(therefore)i(in)m(v)m(ersely)f(prop)s(ortional)709 3015 +y(to)34 b(the)h(square)h(ro)s(ot)e(of)h(the)g(n)m(um)m(b)s(er)g(of)g +(ev)m(en)m(ts.)52 b(It)35 b(could)f(ha)m(v)m(e)j(b)s(een)e(p)s(ossible) +709 3123 y(to)k(view)i(eac)m(h)f(single)f(particle)g(pair)g(as)h(one)g +(observ)-5 b(ation,)42 b(whic)m(h)e(w)m(ould)g(ha)m(v)m(e)709 +3232 y(giv)m(en)34 b(somewhat)f(lo)m(w)m(er)h(errors,)h(but)f(then)g +(one)g(w)m(ould)g(also)f(b)s(e)h(forced)g(to)f(do)h(a)709 +3340 y(complicated)25 b(correction)i(pro)s(cedure)g(to)g(accoun)m(t)h +(for)e(the)h(pairs)g(in)f(an)h(ev)m(en)m(t)i(not)709 +3448 y(b)s(eing)40 b(uncorrelated)g(\(t)m(w)m(o)i(hard)e(jets)i +(separated)f(b)m(y)h(a)e(giv)m(en)h(angle)f(t)m(ypically)709 +3557 y(corresp)s(onds)g(to)e(sev)m(eral)h(pairs)f(at)g(ab)s(out)g(that) +g(angle\).)61 b(Note,)40 b(ho)m(w)m(ev)m(er,)j(that)709 +3665 y(in)35 b(our)i(approac)m(h)g(the)f(squared)i(error)f(on)f(an)g +(EECA)i(bin)e(is)g(smaller)f(than)h(the)709 3774 y(sum)j(of)g(the)h +(squares)h(of)e(the)h(errors)f(on)h(the)g(corresp)s(onding)f(EEC)i +(bins)e(\(as)g(it)709 3882 y(should)29 b(b)s(e\).)43 +b(Also)29 b(note)g(that)h(it)e(is)h(not)h(p)s(ossible)f(to)g(com)m +(bine)g(the)h(errors)g(of)f(t)m(w)m(o)709 3990 y(nearb)m(y)39 +b(bins)f(b)m(y)h(hand)f(from)f(the)h(information)d(giv)m(en,)40 +b(since)e(nearb)m(y)i(bins)d(are)709 4099 y(correlated)32 +b(\(again)f(a)h(trivial)e(consequence)36 b(of)c(the)h(presence)i(of)d +(jets\).)236 4207 y Fq(=)52 b(43)g(:)165 b Fw(stores)33 +b(the)g(EEC)h(and)f(EECA)g(in)f Fq(/LUJETS/)p Fw(,)j(using)d(the)h +(format:)709 4315 y Fq(N)51 b(=)33 b Fw(25;)709 4424 +y Fq(K\(I,1\))53 b(=)32 b Fw(32;)709 4532 y Fq(K\(I,2\))53 +b(=)32 b Fw(99;)709 4640 y Fq(P\(I,1\))53 b(=)32 b Fw(EEC)i(for)e +(angles)g(b)s(et)m(w)m(een)j Fq(I-1)e Fw(and)g Fq(I)p +Fw(,)g(in)f(units)g(of)g(3)p Fj(:)p Fw(6)3287 4604 y +Fk(\016)3326 4640 y Fw(;)709 4749 y Fq(P\(I,2\))53 b(=)32 +b Fw(EEC)i(for)e(angles)g(b)s(et)m(w)m(een)j Fq(50-I)e +Fw(and)g Fq(51-I)p Fw(,)h(in)e(units)g(of)g(3)p Fj(:)p +Fw(6)3492 4712 y Fk(\016)3531 4749 y Fw(;)709 4857 y +Fq(P\(I,3\))53 b(=)32 b Fw(EECA)i(for)e(angles)g(b)s(et)m(w)m(een)j +Fq(I-1)e Fw(and)g Fq(I)p Fw(,)g(in)f(units)g(of)g(3)p +Fj(:)p Fw(6)3360 4821 y Fk(\016)3399 4857 y Fw(;)709 +4965 y Fq(P\(I,4\),)53 b(P\(I,5\))g(:)46 b Fw(lo)m(w)m(er)34 +b(and)g(upp)s(er)g(edge)h(of)e(angular)g(range)g(of)h(bin)f +Fq(I)p Fw(,)h(ex-)709 5074 y(pressed)g(in)e(radians;)709 +5182 y Fq(V\(I,1\))53 b(-)e(V\(I,3\))i(:)79 b Fw(errors)50 +b(on)h(the)f(EEC)h(and)g(EECA)g(v)-5 b(alues)50 b(stored)h(in)709 +5290 y Fq(P\(I,1\))i(-)e(P\(I,3\))34 b Fw(\(see)g Fq(=42)f +Fw(for)f(commen)m(ts\);)709 5399 y Fq(V\(I,4\),)53 b(V\(I,5\))g(:)46 +b Fw(lo)m(w)m(er)34 b(and)g(upp)s(er)g(edge)h(of)e(angular)g(range)g +(of)h(bin)f Fq(I)p Fw(,)h(ex-)709 5507 y(pressed)g(in)e(degrees.)709 +5615 y(In)h(addition,)82 b Fq(MSTU\(3\)=1)35 b Fw(and)1817 +5953 y(307)p eop +%%Page: 308 314 +308 313 bop 709 -18 a Fq(K\(26,1\))53 b(=)33 b Fw(32;)709 +90 y Fq(K\(26,2\))53 b(=)33 b Fw(99;)709 198 y Fq(K\(26,5\))53 +b(=)33 b Fw(n)m(um)m(b)s(er)g(of)f(ev)m(en)m(ts)j(analyzed.)236 +307 y Fq(=)52 b(50)g(:)165 b Fw(statistics)32 b(on)g(complete)g +(\014nal)g(states)h(is)f(reset.)236 415 y Fq(=)52 b(51)g(:)165 +b Fw(analyzes)25 b(the)h(particle)e(con)m(ten)m(t)j(of)e(the)g(\014nal) +g(state)h(of)e(the)i(curren)m(t)h(ev)m(en)m(t)g(record.)709 +523 y(During)g(the)h(course)i(of)e(the)g(run,)i(statistics)e(is)g(th)m +(us)h(accum)m(ulated)f(on)g(ho)m(w)h(often)709 632 y(di\013eren)m(t)k +(\014nal)g(states)h(app)s(ear.)46 b(Only)33 b(\014nal)g(states)h(with)f +(up)h(to)f(8)g(particles)f(are)709 740 y(analyzed,)42 +b(and)e(there)h(is)e(only)h(reserv)m(ed)i(space)f(for)f(up)g(to)g(200)f +(di\013eren)m(t)h(\014nal)709 848 y(states.)64 b(Most)39 +b(high)g(energy)h(ev)m(en)m(ts)h(ha)m(v)m(e)g(m)m(ultiplicities)35 +b(far)j(ab)s(o)m(v)m(e)i(8,)h(so)e(the)709 957 y(main)30 +b(use)k(for)e(this)g(to)s(ol)e(is)i(to)g(study)i(the)f(e\013ectiv)m(e)g +(branc)m(hing)g(ratios)e(obtained)709 1065 y(with)47 +b(a)g(giv)m(en)h(deca)m(y)h(mo)s(del)d(for)h(e.g.)89 +b(c)m(harm)47 b(or)g(b)s(ottom)f(hadrons.)89 b(Then)709 +1173 y Fq(LU1ENT)34 b Fw(ma)m(y)e(b)s(e)h(used)h(to)e(generate)i(one)f +(deca)m(ying)g(particle)e(at)i(a)f(time,)f(with)i(a)709 +1282 y(subsequen)m(t)h(analysis)d(b)m(y)j Fq(LUTABU)p +Fw(.)g(Dep)s(ending)d(on)g(at)h(what)g(lev)m(el)f(this)g(studied)709 +1390 y(is)h(to)g(b)s(e)h(carried)f(out,)g(some)h(particle)e(deca)m(ys)k +(ma)m(y)d(b)s(e)h(switc)m(hed)h(o\013,)e(lik)m(e)g Fj(\031)3637 +1354 y Fl(0)3676 1390 y Fw(.)236 1498 y Fq(=)52 b(52)g(:)165 +b Fw(giv)m(es)39 b(a)g(list)f(of)g(the)i(\(at)f(most)f(200\))h(c)m +(hannels)h(with)e(up)i(to)f(8)f(particles)h(in)f(the)709 +1607 y(\014nal)28 b(state,)j(with)e(their)g(relativ)m(e)g(branc)m(hing) +h(ratio.)41 b(The)30 b(ordering)f(is)g(according)709 +1715 y(to)39 b(m)m(ultiplicit)m(y)-8 b(,)38 b(and)i(within)f(eac)m(h)i +(m)m(ultiplicit)m(y)36 b(according)k(to)f(an)h(ascending)709 +1823 y(order)c(of)h(KF)f(co)s(des.)56 b(The)38 b(KF)e(co)s(des)i(of)e +(the)h(particles)f(b)s(elonging)f(to)h(a)g(giv)m(en)709 +1932 y(c)m(hannel)d(are)f(giv)m(en)h(in)f(descending)h(order.)236 +2040 y Fq(=)52 b(53)g(:)165 b Fw(stores)30 b(the)g(\014nal)f(states)i +(and)f(branc)m(hing)g(ratios)e(found)i(in)f Fq(/LUJETS/)p +Fw(,)k(using)c(the)709 2148 y(format:)709 2257 y Fq(N)51 +b(=)33 b Fw(n)m(um)m(b)s(er)g(of)f(di\013eren)m(t)h(explicit)e(\014nal) +h(states)h(found)g(\(at)f(most)g(200\);)709 2365 y Fq(K\(I,1\))53 +b(=)32 b Fw(32;)709 2473 y Fq(K\(I,2\))53 b(=)32 b Fw(99;)709 +2582 y Fq(K\(I,5\))53 b(=)32 b Fw(m)m(ultiplicit)m(y)d(of)j(giv)m(en)h +(\014nal)f(state,)h(a)f(n)m(um)m(b)s(er)h(b)s(et)m(w)m(een)i(1)d(and)h +(8;)709 2690 y Fq(P\(I,1\))53 b(-)e(P\(I,5\),)i(V\(I,1\))g(-)f +(V\(I,3\))g(:)65 b Fw(the)43 b(KF)f(co)s(des)i(of)f(the)g(up)g(to)g(8) +709 2798 y(particles)28 b(of)g(the)i(giv)m(en)f(\014nal)f(state,)i(con) +m(v)m(erted)h(to)d(real)g(n)m(um)m(b)s(ers,)j(with)e(trailing)709 +2907 y(zero)s(es)k(for)f(p)s(ositions)f(not)i(used;)709 +3015 y Fq(V\(I,5\))53 b(:)43 b Fw(e\013ectiv)m(e)34 b(branc)m(hing)e +(ratio)f(for)h(the)h(giv)m(en)g(\014nal)f(state.)709 +3123 y(In)h(addition,)d Fq(MSTU\(3\)=1)35 b Fw(and)709 +3232 y Fq(K\(N+1,1\))53 b(=)33 b Fw(32;)709 3340 y Fq(K\(N+1,2\))53 +b(=)33 b Fw(99;)709 3448 y Fq(K\(N+1,5\))53 b(=)33 b +Fw(n)m(um)m(b)s(er)g(of)f(ev)m(en)m(ts)j(analyzed;)709 +3557 y Fq(V\(N+1,5\))53 b(=)41 b Fw(summed)g(branc)m(hing)f(ratio)g +(for)g(\014nals)g(states)i(not)f(giv)m(en)g(ab)s(o)m(v)m(e,)709 +3665 y(either)d(b)s(ecause)i(they)g(con)m(tained)e(more)g(than)h(8)f +(particles)g(or)h(b)s(ecause)h(all)c(200)709 3774 y(c)m(hannels)d(ha)m +(v)m(e)h(b)s(een)f(used)h(up.)p 0 3918 2876 9 v 0 4143 +9 225 v 79 4058 a Fq(COMMON/LUDAT1/MSTU\(200\),)q(PARU)q(\(200)q(\),MS) +q(TJ\()q(200\))q(,PAR)q(J\(20)q(0\))p 2867 4143 V 0 4151 +2876 9 v 0 4283 a Fo(Purp)s(ose:)48 b Fw(to)31 b(giv)m(e)h(access)i(to) +d(a)h(n)m(um)m(b)s(er)g(of)f(status)i(co)s(des)g(and)f(parameters)f +(whic)m(h)i(regulate)e(the)472 4391 y(p)s(erformance)k(of)42 +b Fm(Jetset)p Fw(.)50 b(Most)36 b(parameters)f(are)g(describ)s(ed)h(in) +e(section)i(14.4;)g(here)472 4499 y(only)d(those)g(related)f(to)g(the)h +(ev)m(en)m(t-analysis)g(routines)g(are)g(describ)s(ed.)0 +4662 y Fq(MSTU\(41\))53 b(:)48 b Fw(\(D=2\))25 b(partons/particles)g +(used)i(in)e(the)i(ev)m(en)m(t-analysis)f(routines)g +Fq(LUSPHE)p Fw(,)i Fq(LUTHRU)p Fw(,)472 4770 y Fq(LUCLUS)p +Fw(,)35 b Fq(LUCELL)p Fw(,)f Fq(LUJMAS)p Fw(,)g Fq(LUFOWO)g +Fw(and)f Fq(LUTABU)h Fw(\()p Fq(LUTABU\(11\))h Fw(excepted\).)236 +4878 y Fq(=)52 b(1)f(:)217 b Fw(all)30 b(partons/particles)i(that)g(ha) +m(v)m(e)i(not)f(fragmen)m(ted/deca)m(y)m(ed.)236 4987 +y Fq(=)52 b(2)f(:)217 b Fw(ditto,)31 b(with)h(the)h(exception)h(of)e +(neutrinos)g(and)h(unkno)m(wn)h(particles.)236 5095 y +Fq(=)52 b(3)f(:)217 b Fw(only)32 b(c)m(harged,)h(stable)g(particles,)e +(plus)i(an)m(y)g(partons)g(still)d(not)j(fragmen)m(ted.)0 +5203 y Fq(MSTU\(42\))53 b(:)48 b Fw(\(D=2\))31 b(assumed)j(particle)d +(masses,)i(used)h(in)d(calculating)g(energies)h Fj(E)3235 +5167 y Fl(2)3303 5203 y Fw(=)27 b Fo(p)3468 5167 y Fl(2)3530 +5203 y Fw(+)22 b Fj(m)3713 5167 y Fl(2)3752 5203 y Fw(,)472 +5312 y(as)45 b(subsequen)m(tly)h(used)g(in)d Fq(LUCLUS)p +Fw(,)j Fq(LUJMAS)f Fw(and)f Fq(LUTABU)i Fw(\(in)d(the)i(latter)e(also)g +(for)472 5420 y(pseudorapidit)m(y)-8 b(,)33 b(pion)f(rapidit)m(y)f(or)i +(true)g(rapidit)m(y)e(selection\).)236 5528 y Fq(=)52 +b(0)f(:)217 b Fw(all)30 b(particles)i(are)g(assumed)i(massless.)236 +5637 y Fq(=)52 b(1)f(:)217 b Fw(all)37 b(particles,)j(except)g(the)g +(photon,)h(are)e(assumed)h(to)e(ha)m(v)m(e)j(the)e(c)m(harged)h(pion) +1817 5953 y(308)p eop +%%Page: 309 315 +309 314 bop 709 -18 a Fw(mass.)236 90 y Fq(=)52 b(2)f(:)217 +b Fw(the)33 b(true)g(masses)g(are)g(used.)0 198 y Fq(MSTU\(43\))53 +b(:)48 b Fw(\(D=1\))41 b(storing)h(of)g(ev)m(en)m(t-analysis)h +(information)c(\(mainly)h(jet)i(axes\),)k(in)c Fq(LUSPHE)p +Fw(,)472 307 y Fq(LUTHRU)p Fw(,)35 b Fq(LUCLUS)f Fw(and)e +Fq(LUCELL)p Fw(.)236 415 y Fq(=)52 b(1)f(:)217 b Fw(stored)24 +b(after)f(the)h(ev)m(en)m(t)i(prop)s(er,)f(in)e(p)s(ositions)f +Fq(N+1)j Fw(through)e Fq(N+MSTU\(3\))p Fw(.)43 b(If)24 +b(sev-)709 523 y(eral)31 b(of)h(the)g(routines)g(are)g(used)i(in)d +(succession,)j(all)c(but)i(the)h(latest)f(information)709 +632 y(is)g(o)m(v)m(erwritten.)236 740 y Fq(=)52 b(2)f(:)217 +b Fw(stored)34 b(with)g(the)g(ev)m(en)m(t)i(prop)s(er,)e(i.e.)47 +b(at)34 b(the)g(end)g(of)g(the)g(ev)m(en)m(t)i(listing,)c(with)h +Fq(N)709 848 y Fw(up)s(dated)e(accordingly)-8 b(.)41 +b(If)31 b(sev)m(eral)g(of)f(the)h(routines)f(are)h(used)g(in)f +(succession,)j(all)709 957 y(the)g(axes)g(determined)g(are)f(a)m(v)-5 +b(ailable.)0 1065 y Fq(MSTU\(44\))53 b(:)48 b Fw(\(D=4\))36 +b(is)g(the)h(n)m(um)m(b)s(er)g(of)f(the)h(fastest)h(\(i.e.)55 +b(with)36 b(largest)g(momen)m(tum\))f(particles)472 1173 +y(used)g(to)d(construct)j(the)e(\(at)g(most\))f(10)h(most)f(promising)f +(starting)h(con\014gurations)h(for)472 1282 y(the)g(thrust)h(axis)e +(determination.)0 1390 y Fq(MSTU\(45\))53 b(:)48 b Fw(\(D=2\))34 +b(is)h(the)h(n)m(um)m(b)s(er)f(of)g(di\013eren)m(t)g(starting)g +(con\014gurations)g(ab)s(o)m(v)m(e,)h(whic)m(h)g(ha)m(v)m(e)472 +1498 y(to)45 b(con)m(v)m(erge)h(to)f(the)g(same)g(\(b)s(est\))g(v)-5 +b(alue)44 b(b)s(efore)h(this)f(is)h(accepted)h(as)f(the)g(correct)472 +1607 y(thrust)34 b(axis.)0 1715 y Fq(MSTU\(46\))53 b(:)48 +b Fw(\(D=1\))31 b(distance)i(measure)g(used)h(for)e(the)h(joining)d(of) +j(clusters)g(in)f Fq(LUCLUS)p Fw(.)236 1823 y Fq(=)52 +b(1)f(:)217 b Fj(d)760 1838 y Fh(ij)820 1823 y Fw(,)53 +b(i.e.)91 b(appro)m(ximately)47 b(relativ)m(e)h(transv)m(erse)j(momen)m +(tum.)90 b(An)m(ytime)49 b(t)m(w)m(o)709 1932 y(clusters)d(ha)m(v)m(e)h +(b)s(een)g(joined,)i(particles)c(are)g(reassigned)i(to)e(the)h(cluster) +h(they)709 2040 y(no)m(w)33 b(are)f(closest)h(to.)44 +b(The)33 b(distance)g(cut-o\013)f Fj(d)2479 2055 y Fl(join)2631 +2040 y Fw(is)g(stored)i(in)d Fq(PARU\(44\))p Fw(.)236 +2148 y Fq(=)52 b(2)f(:)217 b Fw(distance)29 b(measure)h(as)f(in)f +Fq(=1)p Fw(,)j(but)e(particles)f(are)i(nev)m(er)g(reassigned)g(to)f +(new)h(jets.)236 2257 y Fq(=)52 b(3)f(:)217 b Fw(JADE)33 +b(distance)g(measure)h Fj(y)1815 2272 y Fh(ij)1875 2257 +y Fw(,)f(but)h(with)e(dimensions)h(to)f(corresp)s(ond)i(appro)m(x-)709 +2365 y(imately)j(to)h(total)g(in)m(v)-5 b(arian)m(t)38 +b(mass.)63 b(P)m(articles)38 b(ma)m(y)h(nev)m(er)i(b)s(e)e(reassigned)h +(b)s(e-)709 2473 y(t)m(w)m(een)34 b(clusters.)44 b(The)34 +b(distance)f(cut-o\013)f Fj(m)2348 2488 y Fl(min)2503 +2473 y Fw(is)g(stored)h(in)f Fq(PARU\(44\))p Fw(.)236 +2582 y Fq(=)52 b(4)f(:)217 b Fw(as)24 b Fq(=3)p Fw(,)j(but)d(a)g +(scaled)h(JADE)f(distance)h Fj(y)2207 2597 y Fh(ij)2291 +2582 y Fw(is)f(used)h(instead)g(of)e Fj(m)3111 2597 y +Fh(ij)3172 2582 y Fw(.)41 b(The)25 b(distance)709 2690 +y(cut-o\013)32 b Fj(y)1063 2705 y Fl(min)1217 2690 y +Fw(is)g(stored)h(in)f Fq(PARU\(45\))p Fw(.)236 2798 y +Fq(=)52 b(5)f(:)217 b Fw(Durham)43 b(distance)h(measure)52 +b(~)-56 b Fj(y)1935 2813 y Fh(ij)1995 2798 y Fw(,)47 +b(but)e(with)f(dimensions)f(to)h(corresp)s(ond)h(ap-)709 +2907 y(pro)m(ximately)26 b(to)h(transv)m(erse)i(momen)m(tum.)40 +b(P)m(articles)27 b(ma)m(y)g(nev)m(er)i(b)s(e)f(reassigned)709 +3015 y(b)s(et)m(w)m(een)34 b(clusters.)45 b(The)33 b(distance)g +(cut-o\013)f Fj(p)2412 3030 y Fk(?)p Fl(min)2621 3015 +y Fw(is)g(stored)i(in)d Fq(PARU\(44\))p Fw(.)236 3123 +y Fq(=)52 b(6)f(:)217 b Fw(as)43 b Fq(=5)p Fw(,)k(but)d(a)f(scaled)h +(Durham)e(distance)50 b(~)-55 b Fj(y)2429 3138 y Fh(ij)2532 +3123 y Fw(is)43 b(used)i(instead)e(of)g Fj(p)3393 3138 +y Fk(?)p Fh(ij)3508 3123 y Fw(.)77 b(The)709 3232 y(distance)33 +b(cut-o\013)38 b(~)-55 b Fj(y)1443 3247 y Fl(min)1597 +3232 y Fw(is)32 b(stored)h(in)f Fq(PARU\(45\))p Fw(.)0 +3340 y Fq(MSTU\(47\))53 b(:)48 b Fw(\(D=1\))31 b(the)i(minim)m(um)d(n)m +(um)m(b)s(er)j(of)f(clusters)h(to)f(b)s(e)h(reconstructed)i(b)m(y)f +Fq(LUCLUS)p Fw(.)0 3448 y Fq(MSTU\(48\))53 b(:)48 b Fw(\(D=0\))31 +b(mo)s(de)h(of)g(op)s(eration)g(of)g(the)h Fq(LUCLUS)h +Fw(routine.)236 3557 y Fq(=)52 b(0)f(:)217 b Fw(the)33 +b(cluster)g(searc)m(h)g(is)g(started)g(from)e(scratc)m(h.)236 +3665 y Fq(=)52 b(1)f(:)217 b Fw(the)26 b(clusters)h(obtained)e(in)h(a)f +(previous)i(cluster)f(searc)m(h)i(on)e(the)g(same)g(ev)m(en)m(t)i +(\(with)709 3774 y Fq(MSTU\(48\)=0)p Fw(\))k(are)e(to)g(b)s(e)g(tak)m +(en)g(as)h(the)f(starting)f(p)s(oin)m(t)g(for)g(subsequen)m(t)k +(cluster)709 3882 y(joining.)41 b(F)-8 b(or)30 b(this)h(call)f(to)h(ha) +m(v)m(e)i(an)m(y)f(e\013ect,)h(the)f(joining)d(scale)j(in)e +Fq(PARU\(44\))k Fw(or)709 3990 y Fq(PARU\(45\))27 b Fw(m)m(ust)f(ha)m +(v)m(e)g(b)s(een)g(c)m(hanged.)43 b(If)25 b(the)h(ev)m(en)m(t)h(record) +f(has)g(b)s(een)g(mo)s(di\014ed)709 4099 y(after)g(the)h(last)f +Fq(LUCLUS)i Fw(call,)e(or)g(if)g(an)m(y)h(other)g(cluster)g(searc)m(h)h +(parameter)e(setting)709 4207 y(has)33 b(b)s(een)g(c)m(hanged,)h(the)f +(subsequen)m(t)i(result)e(is)f(unpredictable.)0 4315 +y Fq(MSTU\(51\))53 b(:)48 b Fw(\(D=25\))36 b(n)m(um)m(b)s(er)i(of)g +(pseudorapidit)m(y)f(bins)h(that)g(the)g(range)f(b)s(et)m(w)m(een)j +Fq(-PARU\(51\))472 4424 y Fw(and)33 b Fq(+PARU\(51\))i +Fw(is)d(divided)g(in)m(to)g(to)g(de\014ne)i(cell)e(size)g(for)g +Fq(LUCELL)p Fw(.)0 4532 y Fq(MSTU\(52\))53 b(:)48 b Fw(\(D=24\))31 +b(n)m(um)m(b)s(er)i(of)f(azim)m(uthal)f(bins,)h(used)i(to)e(de\014ne)i +(the)f(cell)f(size)g(for)g Fq(LUCELL)p Fw(.)0 4640 y +Fq(MSTU\(53\))53 b(:)48 b Fw(\(D=0\))22 b(smearing)h(of)g(correct)h +(energy)-8 b(,)27 b(imp)s(osed)22 b(cell-b)m(y-cell)g(in)h +Fq(LUCELL)p Fw(,)i(to)e(sim)m(ulate)472 4749 y(calorimeter)31 +b(resolution)g(e\013ects.)236 4857 y Fq(=)52 b(0)f(:)217 +b Fw(no)32 b(smearing.)236 4965 y Fq(=)52 b(1)f(:)217 +b Fw(the)36 b(transv)m(erse)i(energy)e(in)f(a)h(cell,)f +Fj(E)2137 4980 y Fk(?)2196 4965 y Fw(,)i(is)e(smeared)h(according)f(to) +h(a)f(Gaussian)709 5074 y(distribution)25 b(with)i(standard)g +(deviation)f Fq(PARU\(55\))p Fn(\002)2758 4997 y(p)p +2844 4997 132 4 v 2844 5074 a Fj(E)2916 5089 y Fk(?)2975 +5074 y Fw(,)i(where)g Fj(E)3378 5089 y Fk(?)3465 5074 +y Fw(is)e(giv)m(en)709 5182 y(in)c(GeV.)h(The)g(Gaussian)f(is)h(cut)g +(o\013)f(so)h(that)g(0)k Fj(<)h(E)2594 5197 y Fk(?)p +Fl(smeared)2932 5182 y Fj(<)p Fq(PARU\(56\))p Fn(\002)p +Fj(E)3565 5197 y Fk(?)p Fl(true)3752 5182 y Fw(.)236 +5290 y Fq(=)52 b(2)f(:)217 b Fw(as)34 b Fq(=1)p Fw(,)h(but)f(it)f(is)g +(the)i(energy)g Fj(E)40 b Fw(rather)34 b(than)g(the)g(transv)m(erse)i +(energy)g Fj(E)3508 5305 y Fk(?)3601 5290 y Fw(that)709 +5399 y(is)c(smeared.)0 5507 y Fq(MSTU\(54\))53 b(:)48 +b Fw(\(D=1\))33 b(form)g(for)h(presen)m(tation)h(of)f(information)d(ab) +s(out)j(reconstructed)i(clusters)f(in)472 5615 y Fq(LUCELL)p +Fw(,)g(as)d(stored)i(in)d Fq(LUJETS)k Fw(according)d(to)g(the)h +Fq(MSTU\(43\))h Fw(v)-5 b(alue.)1817 5953 y(309)p eop +%%Page: 310 316 +310 315 bop 236 -18 a Fq(=)52 b(1)f(:)217 b Fw(the)31 +b Fq(P)g Fw(v)m(ector)g(in)f(eac)m(h)i(line)d(con)m(tains)i +Fj(\021)j Fw(and)d Fj(')g Fw(for)f(the)h(geometric)e(origin)g(of)h(the) +709 90 y(jet,)i Fj(\021)37 b Fw(and)32 b Fj(')h Fw(for)f(the)h(w)m +(eigh)m(ted)g(cen)m(ter)h(of)e(the)h(jet,)g(and)g(jet)f +Fj(E)3118 105 y Fk(?)3177 90 y Fw(,)h(resp)s(ectiv)m(ely)-8 +b(.)236 198 y Fq(=)52 b(2)f(:)217 b Fw(the)30 b Fq(P)g +Fw(v)m(ector)h(in)d(eac)m(h)j(line)e(con)m(tains)g(a)h(massless)g +(four-v)m(ector)g(giving)e(the)i(direc-)709 307 y(tion)h(of)h(the)h +(jet,)g(obtained)f(as)709 415 y(\()p Fj(p)796 430 y Fh(x)839 +415 y Fj(;)17 b(p)932 430 y Fh(y)974 415 y Fj(;)g(p)1067 +430 y Fh(z)1106 415 y Fj(;)g(E)6 b(;)17 b(m)p Fw(\))27 +b(=)h Fj(E)1598 430 y Fk(?)1657 415 y Fw(\(cos)17 b Fj(';)g +Fw(sin)f Fj(';)h Fw(sinh)f Fj(\021)t(;)h Fw(cosh)g Fj(\021)t(;)g +Fw(0\),)709 523 y(where)41 b Fj(\021)i Fw(and)d Fj(')f +Fw(giv)m(e)h(the)g(w)m(eigh)m(ted)g(cen)m(ter)h(of)f(a)f(jet)h(and)f +Fj(E)3108 538 y Fk(?)3207 523 y Fw(its)g(transv)m(erse)709 +632 y(energy)-8 b(.)236 740 y Fq(=)52 b(3)f(:)217 b Fw(the)47 +b Fq(P)g Fw(v)m(ector)h(in)e(eac)m(h)h(line)f(con)m(tains)g(a)h(massiv) +m(e)g(four-v)m(ector,)j(obtained)d(b)m(y)709 848 y(adding)27 +b(the)i(massless)f(four-v)m(ectors)h(of)f(all)e(cells)h(that)h(form)f +(part)h(of)g(the)g(jet,)h(and)709 957 y(calculating)g(the)j(jet)g(mass) +g(from)f Fj(m)2065 920 y Fl(2)2132 957 y Fw(=)d Fj(E)2314 +920 y Fl(2)2374 957 y Fn(\000)21 b Fj(p)2521 920 y Fl(2)2521 +981 y Fh(x)2585 957 y Fn(\000)g Fj(p)2732 920 y Fl(2)2732 +981 y Fh(y)2794 957 y Fn(\000)g Fj(p)2941 920 y Fl(2)2941 +981 y Fh(z)2981 957 y Fw(.)43 b(F)-8 b(or)31 b(eac)m(h)i(cell,)e(the) +709 1065 y(total)h Fj(E)1015 1080 y Fk(?)1109 1065 y +Fw(is)i(summed)g(up,)h(and)g(then)g(translated)f(in)m(to)f(a)h +(massless)h(four-v)m(ector)709 1173 y(assuming)c(that)i(all)d(the)j +Fj(E)1719 1188 y Fk(?)1811 1173 y Fw(w)m(as)h(dep)s(osited)e(in)g(the)h +(cen)m(ter)h(of)e(the)h(cell.)0 1282 y Fq(MSTU\(61\))53 +b(:)48 b Fw(\(I\))27 b(\014rst)h(en)m(try)h(for)e(storage)g(of)g(ev)m +(en)m(t-analysis)h(information)d(in)h(last)h(ev)m(en)m(t)i(analyzed)472 +1390 y(with)k Fq(LUSPHE)p Fw(,)h Fq(LUTHRU)p Fw(,)g Fq(LUCLUS)g +Fw(or)e Fq(LUCELL)p Fw(.)0 1498 y Fq(MSTU\(62\))53 b(:)48 +b Fw(\(R\))27 b(n)m(um)m(b)s(er)h(of)f(particles/partons)f(used)j(in)d +(the)i(last)f(ev)m(en)m(t)i(analysis)e(with)g Fq(LUSPHE)p +Fw(,)472 1607 y Fq(LUTHRU)p Fw(,)35 b Fq(LUCLUS)p Fw(,)f +Fq(LUCELL)p Fw(,)g Fq(LUJMAS)p Fw(,)g Fq(LUFOWO)g Fw(or)f +Fq(LUTABU)p Fw(.)0 1715 y Fq(MSTU\(63\))53 b(:)48 b Fw(\(R\))26 +b(in)g(a)h Fq(LUCLUS)h Fw(call,)e(the)h(n)m(um)m(b)s(er)g(of)g +(preclusters)h(constructed)g(in)e(order)h(to)f(sp)s(eed)472 +1823 y(up)34 b(analysis)f(\(should)h(b)s(e)g(equal)f(to)g +Fq(MSTU\(62\))j Fw(if)j Fq(PARU\(43\)=0.)p Fw(\).)50 +b(In)34 b(a)f Fq(LUCELL)i Fw(call,)472 1932 y(the)e(n)m(um)m(b)s(er)g +(of)g(cells)e(hit.)0 2040 y Fq(MSTU\(161\),)54 b(MSTU\(162\))g(:)47 +b Fw(hard)30 b(\015a)m(v)m(ours)h(in)m(v)m(olv)m(ed)f(in)f(curren)m(t)h +(ev)m(en)m(t,)i(as)e(used)h(in)e(an)g(analysis)472 2148 +y(with)41 b Fq(LUTABU\(11\))p Fw(.)70 b(Either)40 b(or)h(b)s(oth)f(ma)m +(y)h(b)s(e)f(set)i(0,)g(to)e(indicate)g(the)h(presence)i(of)472 +2257 y(one)32 b(or)g(none)g(hard)f(\015a)m(v)m(ours)i(in)e(ev)m(en)m +(t.)45 b(Is)32 b(normally)e(set)i(b)m(y)g(high-lev)m(el)e(routines,)i +(lik)m(e)472 2365 y Fq(LUEEVT)j Fw(or)d Fq(PYEVNT)p Fw(,)i(but)f(can)g +(also)e(b)s(e)i(set)g(b)m(y)h(y)m(ou.)0 2528 y Fq(PARU\(41\))53 +b(:)48 b Fw(\(D=2.\))e(p)s(o)m(w)m(er)35 b(of)e(momen)m(tum-dep)s +(endence)i(in)e Fq(LUSPHE)p Fw(,)i(default)f(corresp)s(onds)h(to)472 +2636 y(sphericit)m(y)-8 b(,)33 b Fq(=1.)44 b Fw(to)33 +b(linear)e(ev)m(en)m(t)j(measures.)0 2744 y Fq(PARU\(42\))53 +b(:)48 b Fw(\(D=1.\))e(p)s(o)m(w)m(er)35 b(of)e(momen)m(tum-dep)s +(endence)i(in)e Fq(LUTHRU)p Fw(,)i(default)f(corresp)s(onds)h(to)472 +2853 y(thrust.)0 2961 y Fq(PARU\(43\))53 b(:)48 b Fw(\(D=0.25)g(GeV\))h +(maxim)m(um)e(distance)j Fj(d)2171 2976 y Fl(init)2329 +2961 y Fw(allo)m(w)m(ed)f(in)f Fq(LUCLUS)j Fw(when)g(forming)472 +3069 y(starting)44 b(clusters)h(used)h(to)e(sp)s(eed)i(up)f +(reconstruction.)79 b(The)46 b(meaning)d(of)h(the)h(pa-)472 +3178 y(rameter)f(is)g(in)g Fj(p)1132 3193 y Fk(?)1235 +3178 y Fw(for)g Fq(MSTU\(46\))p Fn(\024)50 b Fw(2)45 +b(and)f(in)g Fj(m)g Fw(for)g Fq(MSTU\(46\))p Fn(\025)50 +b Fw(3.)79 b(If)51 b Fq(=0.)p Fw(,)e(no)472 3286 y(preclustering)34 +b(is)g(obtained.)48 b(If)34 b(c)m(hosen)i(to)s(o)d(large,)h(more)f +(joining)f(ma)m(y)i(b)s(e)h(generated)472 3394 y(at)28 +b(this)h(stage)f(than)h(is)f(desirable.)41 b(The)29 b(main)e +(application)f(is)i(at)g(high)f(energies,)j(where)472 +3503 y(some)24 b(sp)s(eedup)i(is)e(imp)s(erativ)m(e,)g(and)g(the)h +(small)d(details)h(are)h(not)g(so)g(imp)s(ortan)m(t)f(an)m(yw)m(a)m(y) +-8 b(.)0 3611 y Fq(PARU\(44\))53 b(:)48 b Fw(\(D=2.5)30 +b(GeV\))h(maxim)m(um)e(distance)j Fj(d)2050 3626 y Fl(join)2169 +3611 y Fw(,)g(b)s(elo)m(w)f(whic)m(h)g(it)g(is)f(allo)m(w)m(ed)h(to)g +(join)f(t)m(w)m(o)472 3719 y(clusters)35 b(in)m(to)d(one)i(in)e +Fq(LUCLUS)p Fw(.)j(Is)f(used)h(for)e Fq(MSTU\(46\))p +Fn(\024)e Fw(3)j(and)f Fq(=5)p Fw(,)h(i.e.)46 b(b)s(oth)33 +b(for)g Fj(p)3721 3734 y Fk(?)472 3828 y Fw(and)g(mass)g(distance)g +(measure.)0 3936 y Fq(PARU\(45\))53 b(:)48 b Fw(\(D=0.05\))32 +b(maxim)m(um)f(distance)j Fj(y)1878 3951 y Fl(join)2027 +3936 y Fw(=)29 b Fj(m)2217 3900 y Fl(2)2257 3936 y Fj(=E)2384 +3900 y Fl(2)2378 3961 y(vis)2501 3936 y Fw(or)k(ditto)f(with)i +Fj(m)3169 3900 y Fl(2)3238 3936 y Fn(!)29 b Fj(p)3416 +3900 y Fl(2)3416 3961 y Fk(?)3475 3936 y Fw(,)34 b(b)s(elo)m(w)472 +4044 y(whic)m(h)41 b(it)d(is)i(allo)m(w)m(ed)f(to)g(join)f(t)m(w)m(o)j +(clusters)f(in)m(to)f(one)h(in)f Fq(LUCLUS)i Fw(for)f +Fq(MSTU\(46\)=4,)472 4153 y(=6)p Fw(.)0 4261 y Fq(PARU\(48\))53 +b(:)48 b Fw(\(D=0.0001\))20 b(con)m(v)m(ergence)25 b(criterion)20 +b(for)i(thrust)g(\(in)f Fq(LUTHRU)p Fw(\))j(or)d(generalized)h(thrust) +472 4369 y(\(in)36 b Fq(LUCLUS)p Fw(\),)h(or)f(relativ)m(e)g(c)m(hange) +h(of)e Fj(m)2035 4333 y Fl(2)2035 4394 y(H)2117 4369 +y Fw(+)25 b Fj(m)2303 4333 y Fl(2)2303 4394 y(L)2387 +4369 y Fw(\(in)36 b Fq(LUJMAS)p Fw(\),)h(i.e.)54 b(when)37 +b(the)g(v)-5 b(alue)472 4478 y(c)m(hanges)26 b(b)m(y)f(less)f(than)g +(this)f(amoun)m(t)h(b)s(et)m(w)m(een)i(t)m(w)m(o)e(iterations)f(the)h +(pro)s(cess)h(is)f(stopp)s(ed.)0 4586 y Fq(PARU\(51\))53 +b(:)48 b Fw(\(D=2.5\))h(de\014nes)j(maxim)m(um)c(absolute)j +(pseudorapidit)m(y)f(used)i(for)e(detector)h(as-)472 +4694 y(sumed)33 b(in)f Fq(LUCELL)p Fw(.)0 4803 y Fq(PARU\(52\))53 +b(:)48 b Fw(\(D=1.5)36 b(GeV\))h(giv)m(es)g(minim)m(um)d +Fj(E)1934 4818 y Fk(?)2030 4803 y Fw(for)j(a)f(cell)g(to)h(b)s(e)g +(considered)h(as)f(a)g(p)s(oten)m(tial)472 4911 y(jet)c(initiator)c(b)m +(y)35 b Fq(LUCELL)p Fw(.)0 5019 y Fq(PARU\(53\))53 b(:)48 +b Fw(\(D=7.0)e(GeV\))i(giv)m(es)g(minim)m(um)c(summed)j +Fj(E)2376 5034 y Fk(?)2483 5019 y Fw(for)g(a)g(collection)f(of)h(cells) +g(to)g(b)s(e)472 5128 y(accepted)34 b(as)f(a)g(jet.)0 +5262 y Fq(PARU\(54\))53 b(:)48 b Fw(\(D=1.\))86 b(giv)m(es)48 +b(the)g(maxim)m(um)c(distance)k(in)e Fj(R)54 b Fw(=)2635 +5162 y Fg(q)p 2718 5162 629 4 v 100 x Fw(\(\001)p Fj(\021)t +Fw(\))2927 5233 y Fl(2)2988 5262 y Fw(+)22 b(\(\001)p +Fj(')p Fw(\))3307 5233 y Fl(2)3394 5262 y Fw(from)46 +b(cell)472 5386 y(initiator)30 b(when)k(grouping)d(cells)h(to)g(c)m +(hec)m(k)j(whether)f(they)f(qualify)f(as)h(a)f(jet.)0 +5494 y Fq(PARU\(55\))53 b(:)48 b Fw(\(D=0.5\))e(when)i(smearing)e(the)h +(transv)m(erse)j(energy)e(\(or)f(energy)-8 b(,)51 b(see)d +Fq(MSTU\(53\))p Fw(\))472 5612 y(in)37 b Fq(LUCELL)p +Fw(,)i(the)e(calorimeter)e(cell)h(resolution)g(is)h(tak)m(en)h(to)f(b)s +(e)g Fq(PARU\(55\))p Fn(\002)3401 5535 y(p)p 3487 5535 +132 4 v 3487 5612 a Fj(E)3559 5627 y Fk(?)3655 5612 y +Fw(\(or)1817 5953 y(310)p eop +%%Page: 311 317 +311 316 bop 472 -18 a Fq(PARU\(55\))p Fn(\002)957 -102 +y(p)p 1043 -102 79 4 v 1043 -18 a Fj(E)6 b Fw(\))33 b(for)f +Fj(E)1413 -3 y Fk(?)1504 -18 y Fw(\(or)h Fj(E)6 b Fw(\))32 +b(in)g(GeV.)0 90 y Fq(PARU\(56\))53 b(:)48 b Fw(\(D=2.\))55 +b(maxim)m(um)35 b(factor)h(of)h(up)m(w)m(ard)h(\015uctuation)f(in)f +(transv)m(erse)j(energy)f(or)e(en-)472 198 y(ergy)46 +b(in)e(a)h(giv)m(en)g(cell)f(when)i(calorimeter)d(resolution)h(is)h +(included)g(in)f Fq(LUCELL)i Fw(\(see)472 307 y Fq(MSTU\(53\))p +Fw(\).)0 415 y Fq(PARU\(57\))53 b(:)48 b Fw(\(D=3.2\))35 +b(maxim)m(um)g(rapidit)m(y)g(\(or)i(pseudorapidit)m(y)f(or)h(pion)f +(rapidit)m(y)-8 b(,)36 b(dep)s(ending)472 523 y(on)d +Fq(MSTU\(42\))p Fw(\))i(used)e(in)f(the)h(factorial)d(momen)m(ts)i +(analysis)g(in)g Fq(LUTABU)p Fw(.)0 632 y Fq(PARU\(58\))53 +b(:)48 b Fw(\(D=0.)87 b(GeV\))47 b(in)g(a)g Fq(LUCELL)i +Fw(call,)g(cells)e(with)g(a)g(transv)m(erse)j(energy)e +Fj(E)3429 647 y Fk(?)3536 632 y Fw(b)s(elo)m(w)472 740 +y Fq(PARP\(58\))39 b Fw(are)d(remo)m(v)m(ed)g(from)f(further)i +(consideration.)52 b(This)37 b(ma)m(y)e(b)s(e)i(used)g(to)f(rep-)472 +848 y(resen)m(t)c(a)e(threshold)h(in)e(an)h(actual)g(calorimeter,)f(or) +g(ma)m(y)i(b)s(e)f(c)m(hosen)i(just)f(to)f(sp)s(eed)h(up)472 +957 y(the)i(algorithm)d(in)i(a)g(high-m)m(ultiplicit)m(y)c(en)m +(vironmen)m(t..)0 1065 y Fq(PARU\(61\))53 b(:)48 b Fw(\(I\))43 +b(in)m(v)-5 b(arian)m(t)42 b(mass)i Fj(W)57 b Fw(of)43 +b(a)g(system)i(analyzed)e(with)h Fq(LUCLUS)h Fw(or)e +Fq(LUJMAS)p Fw(,)i(with)472 1173 y(energies)34 b(calculated)d +(according)h(to)g(the)h Fq(MSTU\(42\))i Fw(v)-5 b(alue.)0 +1282 y Fq(PARU\(62\))53 b(:)48 b Fw(\(R\))32 b(the)i(generalized)e +(thrust)h(obtained)g(after)f(a)h(successful)h Fq(LUCLUS)h +Fw(call,)c(i.e.)44 b(ratio)472 1390 y(of)33 b(summed)f(cluster)h(momen) +m(ta)e(and)i(summed)f(particle)f(momen)m(ta.)0 1498 y +Fq(PARU\(63\))53 b(:)48 b Fw(\(R\))29 b(the)h(minim)m(um)c(distance)k +Fj(d)f Fw(b)s(et)m(w)m(een)i(t)m(w)m(o)g(clusters)f(in)e(the)i(\014nal) +f(cluster)h(con\014g-)472 1607 y(uration)i(after)g(a)g(successful)j +Fq(LUCLUS)f Fw(call;)d(is)h(0)g(if)g(only)g(one)h(cluster)f(left.)1817 +5953 y(311)p eop +%%Page: 312 318 +312 317 bop 0 -18 a Ft(16)161 b(Summary)52 b(and)i(Outlo)t(ok)0 +189 y Fw(A)22 b(complete)f(description)h(of)f(the)h Fm(Pythia/Jetset)g +Fw(programs)f(w)m(ould)g(ha)m(v)m(e)j(to)d(co)m(v)m(er)j(four)d(asp)s +(ects:)119 302 y(1.)49 b(the)33 b(basic)f(philosoph)m(y)h(and)f +(principles)g(underlying)g(the)h(programs;)119 419 y(2.)49 +b(the)28 b(detailed)f(ph)m(ysics)j(scenarios)e(implemen)m(ted,)f(with)h +(all)e(the)i(necessary)i(compromises)d(and)244 528 y(appro)m +(ximations;)119 646 y(3.)49 b(the)24 b(structure)g(of)f(the)h(implemen) +m(tation,)e(including)g(program)g(\015o)m(w,)k(in)m(ternal)c(v)-5 +b(ariable)21 b(names)244 754 y(and)33 b(programming)c(tric)m(ks;)k(and) +119 872 y(4.)49 b(the)33 b(man)m(ual,)e(whic)m(h)i(describ)s(es)h(ho)m +(w)f(to)f(use)i(the)f(programs.)0 985 y(Of)25 b(these)h(asp)s(ects,)i +(the)e(\014rst)f(has)h(b)s(een)g(dealt)e(with)h(in)f(reasonable)h +(detail.)40 b(The)26 b(second)g(is)f(unev)m(enly)0 1093 +y(co)m(v)m(ered:)45 b(in)31 b(depth)h(for)f(asp)s(ects)i(whic)m(h)f +(are)g(not)f(discussed)i(an)m(ywhere)h(else,)e(more)f(summarily)e(for)0 +1201 y(areas)e(where)h(separate)g(up-to-date)e(pap)s(ers)i(already)f +(exist.)41 b(The)28 b(third)f(is)f(not)h(included)f(at)h(all,)f(but)0 +1310 y(`left)33 b(as)i(an)f(exercise')i(for)d(the)i(reader,)g(to)f +(\014gure)h(out)f(from)f(the)h(co)s(de)h(itself.)47 b(The)35 +b(fourth,)g(\014nally)-8 b(,)0 1418 y(should)41 b(b)s(e)f(largely)g(co) +m(v)m(ered,)k(although)c(man)m(y)h(further)g(commen)m(ts)f(could)g(ha)m +(v)m(e)i(b)s(een)g(made,)g(in)0 1526 y(particular)32 +b(ab)s(out)i(the)g(in)m(terpla)m(y)g(b)s(et)m(w)m(een)i(di\013eren)m(t) +e(parts)h(of)e(the)i(programs.)47 b(Still,)32 b(in)h(the)i(end,)0 +1635 y(no)d(man)m(ual,)g(ho)m(w)m(ev)m(er)j(complete,)d(can)g +(substitute)i(for)e(`hands)h(on')g(exp)s(erience.)146 +1743 y(The)40 b Fm(Pythia/Jetset)d Fw(programs)h(are)h(con)m(tin)m +(uously)f(b)s(eing)g(dev)m(elop)s(ed.)62 b(W)-8 b(e)39 +b(are)g(a)m(w)m(are)g(of)0 1851 y(man)m(y)33 b(shortcomings,)e(whic)m +(h)j(hop)s(efully)d(will)f(b)s(e)j(addressed)h(in)e(the)h(future,)g +(suc)m(h)h(as:)145 1965 y Fn(\017)49 b Fw(p)s(olarization)23 +b(e\013ects)29 b(should)e(b)s(e)g(included)f(in)g(more)h(places,)h(in)e +(particular)f(for)i Fj(\034)38 b Fw(pro)s(duction)244 +2073 y(and)33 b(deca)m(y;)145 2191 y Fn(\017)49 b Fw(the)33 +b(photopro)s(duction)f(and)g Fj(\015)5 b(\015)g Fw(-ph)m(ysics)34 +b(scenarios)f(should)f(b)s(e)h(expanded;)145 2308 y Fn(\017)49 +b Fw(man)m(y)32 b(pro)s(cesses)j(of)d(in)m(terest)h(are)g(missing;)e +(and)145 2426 y Fn(\017)49 b Fw(mass)23 b(relations)f(and)i(couplings)e +(need)j(to)e(b)s(e)g(included)g(b)s(ey)m(ond)i(the)f(Born)f(lev)m(el)g +(in)g(the)g(MSSM)244 2535 y(t)m(w)m(o)33 b(Higgs)f(doublet)g(scenario.) +0 2648 y(This)d(list)e(could)h(ha)m(v)m(e)i(b)s(een)g(made)e(m)m(uc)m +(h)h(longer)f(\(I)h(almost)e(certainly)g(missed)i(y)m(our)g(top)g +(priorit)m(y\).)0 2756 y(One)23 b(other)h(asp)s(ect)g(w)m(ould)f(b)s(e) +g(to)g(pro)m(vide)g(more)g(and)g(longer)f(examples)h(of)g(w)m(orking)g +(main)e(programs)0 2864 y(for)32 b(a)g(n)m(um)m(b)s(er)h(of)f(standard) +h(applications.)146 2973 y(Apart)j(from)f(these)i(ph)m(ysics)h(asp)s +(ects,)g(one)e(ma)m(y)g(also)f(w)m(orry)i(ab)s(out)e(the)i(programming) +c(ones.)0 3081 y(F)-8 b(or)31 b(instance,)h(for)f(historical)e +(reasons,)k(single)d(precision)h(real)f(is)h(used)i(almost)d(ev)m +(erywhere.)46 b(With)0 3189 y(the)31 b(push)g(to)f(higher)g(energies,)h +(this)f(is)g(b)s(ecoming)f(more)g(and)h(more)g(of)g(a)g(problem,)f(so)i +(it)e(w)m(ould)h(b)s(e)0 3298 y(logical)f(to)k(mo)m(v)m(e)g(to)f +(double)g(precision)g(throughout.)146 3406 y(One)c(should)e(also)g +(note)i(that)e(the)i Fm(Jetset)d Fw(and)i Fm(Pythia)h +Fw(programs)e(these)i(da)m(ys)g(are)f(b)s(ecoming)0 3514 +y(so)45 b(in)m(tert)m(wined,)i(that)d(it)g(w)m(ould)g(mak)m(e)h(sense)h +(to)e(join)f(them)h(in)m(to)g(one)g(single)g(program.)77 +b(This)0 3623 y(w)m(ould)35 b(e.g.)52 b(mean)35 b(that)g(the)h(curren)m +(t)h(e)1518 3587 y Fl(+)1577 3623 y Fw(e)1620 3587 y +Fk(\000)1715 3623 y Fw(generation)d(routines)i(of)41 +b Fm(Jetset)35 b Fw(are)g(made)g(part)g(of)0 3731 y(the)30 +b(generic)f Fm(Pythia)g Fw(pro)s(cess)i(generation)d(mac)m(hinery)h(|)g +(this)g(is)f(particular)g(a\013ects)i(the)f(matrix-)0 +3839 y(elemen)m(t)i(options,)h(since)g(e)1009 3803 y +Fl(+)1068 3839 y Fw(e)1111 3803 y Fk(\000)1202 3839 y +Fw(ev)m(en)m(ts)i(with)d(parton)g(sho)m(w)m(ers)j(already)d(are)g(a)m +(v)-5 b(ailable)29 b(in)i Fm(Pythia)p Fw(.)0 3948 y(A)37 +b(join)m(t)e(pro)s(duct)i(w)m(ould)f(lik)m(ely)g(adopt)g(the)h(name)f +Fm(Pythia)p Fw(:)51 b(although)36 b Fm(Jetset)f Fw(is)h(the)h(older)f +(of)0 4056 y(the)29 b(t)m(w)m(o)f(programs,)h(it)e(has)h(a)g(less)g(w)m +(ell)g(dev)m(elop)s(ed)h(iden)m(tit)m(y)f(of)f(its)h(o)m(wn.)43 +b(\(It)28 b(is)f(also)h(often)g(referred)0 4164 y(to)h(as)g(`Lund',)i +(whic)m(h)f(to)s(da)m(y)f(is)g(more)f(confusing)h(than)g(it)g(w)m(as)h +(in)e(the)i(early)f(da)m(ys.\))43 b(In)30 b(the)f(pro)s(cess)0 +4273 y(of)g(joining)e(the)j(programs,)g(one)f(w)m(ould)h(probably)f +(also)g(remo)m(v)m(e)h(a)f(n)m(um)m(b)s(er)h(of)f(options)g(that)g(are) +h(no)0 4381 y(longer)i(used.)146 4489 y(Another)41 b(p)s(ossible)f(c)m +(hange)i(on)e(longer)g(time)f(scales)i(w)m(ould)g(b)s(e)g(an)f(in)m +(tro)s(duction)f(of)h(F)-8 b(ortran)0 4598 y(90)35 b(programming)d +(elemen)m(ts.)51 b(In)35 b(particular,)g(deriv)m(ed)h(data)e(t)m(yp)s +(es)j(could)d(b)s(e)i(used)g(to)f(de\014ne)h(the)0 4706 +y(ev)m(en)m(t)j(record)f(as)g(a)g(one-dimensional)c(arra)m(y)-8 +b(,)39 b(where)g(eac)m(h)g(elemen)m(t)e(represen)m(ts)j(a)d(particle,)h +(with)0 4815 y(in)m(teger)32 b(and)h(real)f(comp)s(onen)m(ts)h(to)f +(giv)m(e)h(\015a)m(v)m(our,)g(history)-8 b(,)33 b(momen)m(tum)e(and)h +(pro)s(duction)g(v)m(ertex.)146 4923 y(No)h(timetable)e(is)h(set)i(up)f +(for)f(future)h(c)m(hanges.)46 b(After)33 b(all,)d(this)j(is)f(not)h(a) +f(professionally)g(main-)0 5031 y(tained)44 b(soft)m(w)m(are)i(pro)s +(duct,)i(but)c(part)h(of)f(a)g(one-man)g(ph)m(ysics)i(researc)m(h)g +(pro)5 b(ject.)80 b(V)-8 b(ery)45 b(often,)0 5140 y(dev)m(elopmen)m(ts) +38 b(of)e(the)g(programs)g(ha)m(v)m(e)i(come)e(ab)s(out)g(as)g(a)g +(direct)h(resp)s(onse)g(to)g(the)f(ev)m(olution)g(of)0 +5248 y(the)31 b(ph)m(ysics)h(stage,)g(i.e.)42 b(exp)s(erimen)m(tal)30 +b(results)h(and)f(studies)i(for)e(future)h(accelerators.)43 +b(Hop)s(efully)-8 b(,)0 5356 y(the)33 b(program)e(will)f(k)m(eep)35 +b(on)d(ev)m(olving)g(in)g(step)i(with)e(the)h(new)g(c)m(hallenges)g(op) +s(ening)f(up.)1817 5953 y(312)p eop +%%Page: 313 319 +313 318 bop 0 -18 a Ft(References)0 189 y Fw([Abb87])187 +b(A.)27 b(Abbasabadi)f(and)g(W.)h(Repk)m(o,)h(Ph)m(ys.)g(Lett.)f +Fo(B199)f Fw(\(1987\))f(286;)i(Ph)m(ys.)i(Rev.)e Fo(D37)520 +297 y Fw(\(1988\))32 b(2668;)520 405 y(W.)h(Repk)m(o)g(and)g(G.L.)f +(Kane,)h(priv)-5 b(ate)32 b(comm)m(unication)0 597 y([AFS87])177 +b(AFS)33 b(Collab)s(oration,)c(T.)1516 579 y(\027)1516 +597 y(Ak)m(esson)35 b(et)d(al.,)g(Z.)g(Ph)m(ys.)j Fo(C34)d +Fw(\(1987\))g(163;)520 705 y(UA2)h(Collab)s(oration,)c(J.)k(Alitti)c +(et)k(al.,)f(Ph)m(ys.)i(Lett.)f Fo(B268)f Fw(\(1991\))g(145;)520 +813 y(L.)h(Keeble)f(\(CDF)h(Collab)s(oration\),)c +(FERMILAB-CONF-92-161-E)h(\(1992\))0 1005 y([ALE92])168 +b(ALEPH)34 b(Collab)s(oration,)29 b(D.)j(Buskulic)g(et)h(al.,)f(Ph)m +(ys.)i(Lett.)f Fo(B292)f Fw(\(1992\))g(210)0 1196 y([Ali80])239 +b(A.)39 b(Ali,)f(J.G.)h(K\177)-49 b(orner,)40 b(G.)e(Kramer)g(and)g(J.) +h(Willro)s(dt,)e(Nucl.)i(Ph)m(ys.)h Fo(B168)f Fw(\(1980\))520 +1304 y(409;)520 1413 y(A.)h(Ali,)h(E.)f(Pietarinen,)h(G.)f(Kramer)f +(and)h(J.)h(Willro)s(dt,)e(Ph)m(ys.)j(Lett.)e Fo(B93)g +Fw(\(1980\))520 1521 y(155)0 1712 y([Ali80a])190 b(A.)31 +b(Ali,)f(J.G.)h(K\177)-49 b(orner,)31 b(Z.)g(Kunszt,)h(E.)f +(Pietarinen,)g(G.)g(Kramer,)f(G.)h(Sc)m(hierholz)f(and)520 +1821 y(J.)j(Willro)s(dt,)d(Nucl.)i(Ph)m(ys.)i Fo(B167)f +Fw(\(1980\))e(454)0 2012 y([Ali82])239 b(A.)33 b(Ali,)e(Ph)m(ys.)j +(Lett.)f Fo(B110)f Fw(\(1982\))g(67;)520 2120 y(A.)47 +b(Ali)d(and)i(F.)g(Barreiro,)j(Ph)m(ys.)f(Lett.)e Fo(B118)g +Fw(\(1982\))f(155;)53 b(Nucl.)46 b(Ph)m(ys.)i Fo(B236)520 +2229 y Fw(\(1984\))32 b(269)0 2420 y([Ali88])239 b(A.)23 +b(Ali)f(et)h(al.,)h(in)e(`Pro)s(ceedings)i(of)e(the)i(HERA)f(W)-8 +b(orkshop',)26 b(ed.)e(R.D.)e(P)m(eccei)i(\(DESY,)520 +2528 y(Ham)m(burg,)32 b(1988\),)g(V)-8 b(ol.)31 b(1,)i(p.)g(395;)520 +2637 y(M.)g(Bilenky)f(and)h(G.)f(d'Agostini,)g(priv)-5 +b(ate)32 b(comm)m(unication)e(\(1991\))0 2828 y([Alt77])229 +b(G.)32 b(Altarelli)d(and)k(G.)f(P)m(arisi,)g(Nucl.)g(Ph)m(ys.)j +Fo(B126)d Fw(\(1977\))f(298)0 3020 y([Alt78])229 b(G.)32 +b(Altarelli)d(and)k(G.)f(Martinelli,)e(Ph)m(ys.)k(Lett.)f +Fo(76B)f Fw(\(1978\))g(89)0 3211 y([Alt89])229 b(G.)32 +b(Altarelli,)d(B.)k(Mele)g(and)g(M.)g(Ruiz-Altaba,)d(Z.)i(Ph)m(ys.)j +Fo(C45)d Fw(\(1989\))g(109)0 3402 y([Ama80])164 b(D.)31 +b(Amati,)e(A.)i(Bassetto,)h(M.)g(Ciafaloni,)c(G.)j(Marc)m(hesini)g(and) +g(G.)f(V)-8 b(eneziano,)32 b(Nucl.)520 3511 y(Ph)m(ys.)j +Fo(B173)d Fw(\(1980\))f(429;)520 3619 y(G.)h(Curci,)h(W.)g(F)-8 +b(urmanski)31 b(and)i(R.)f(P)m(etronzio,)h(Nucl.)f(Ph)m(ys.)j +Fo(B175)d Fw(\(1980\))g(27)0 3810 y([And79])187 b(B.)33 +b(Andersson,)h(G.)e(Gustafson)h(and)g(C.)g(P)m(eterson,)h(Z.)e(Ph)m +(ys.)j Fo(C1)d Fw(\(1979\))g(105;)520 3919 y(B.)h(Andersson)h(and)f(G.) +f(Gustafson,)h(Z.)f(Ph)m(ys.)i Fo(C3)f Fw(\(1980\))e(22;)520 +4027 y(B.)40 b(Andersson,)k(G.)39 b(Gustafson)i(and)f(T.)g(Sj\177)-49 +b(ostrand,)42 b(Z.)e(Ph)m(ys.)i Fo(C6)e Fw(\(1980\))f(235;)k(Z.)520 +4135 y(Ph)m(ys.)35 b Fo(C12)d Fw(\(1982\))g(49)0 4327 +y([And80])187 b(B.)33 b(Andersson,)h(G.)e(Gustafson)h(and)g(T.)g +(Sj\177)-49 b(ostrand,)33 b(Ph)m(ys.)h(Lett.)f Fo(B94)f +Fw(\(1980\))g(211)0 4518 y([And81])187 b(B.)49 b(Andersson,)54 +b(G.)48 b(Gustafson,)k(I.)d(Holgersson)f(and)h(O.)f(M)-12 +b(\027)-61 b(ansson,)53 b(Nucl.)c(Ph)m(ys.)520 4626 y +Fo(B178)32 b Fw(\(1981\))g(242)0 4818 y([And81a])138 +b(B.)44 b(Andersson,)49 b(G.)44 b(Gustafson,)j(G.)d(Ingelman)f(and)i +(T.)f(Sj\177)-49 b(ostrand,)48 b(Z.)43 b(Ph)m(ys.)k Fo(C9)520 +4926 y Fw(\(1981\))32 b(233)0 5118 y([And82])187 b(B.)33 +b(Andersson,)h(G.)e(Gustafson)h(and)g(T.)g(Sj\177)-49 +b(ostrand,)33 b(Nucl.)f(Ph)m(ys.)j Fo(B197)d Fw(\(1982\))f(45)0 +5309 y([And82a])138 b(B.)33 b(Andersson)h(and)f(G.)f(Gustafson,)h(LU)f +(TP)i(82-5)d(\(1982\))0 5500 y([And83])187 b(B.)37 b(Andersson,)j(G.)d +(Gustafson,)h(G.)f(Ingelman)e(and)i(T.)h(Sj\177)-49 b(ostrand,)38 +b(Ph)m(ys.)h(Rep.)e Fo(97)520 5609 y Fw(\(1983\))32 b(31)1817 +5953 y(313)p eop +%%Page: 314 320 +314 319 bop 0 -18 a Fw([And83a])138 b(B.)33 b(Andersson,)h(G.)e +(Gustafson)h(and)g(B.)f(S\177)-49 b(oderb)s(erg,)33 b(Z.)g(Ph)m(ys.)h +Fo(C20)f Fw(\(1983\))e(317)0 171 y([And85])187 b(B.)29 +b(Andersson,)i(G.)d(Gustafson)h(and)g(T.)g(Sj\177)-49 +b(ostrand,)30 b(Ph)m(ysica)g(Scripta)e Fo(32)h Fw(\(1985\))e(574)0 +361 y([Ans90])203 b(F.)28 b(Anselmo)f(et)h(al.,)g(in)f(`Large)h(Hadron) +g(Collider)e(W)-8 b(orkshop',)30 b(eds.)f(G.)f(Jarlsk)m(og)f(and)520 +469 y(D.)32 b(Rein,)g(CERN)i(90-10)d(\(Genev)-5 b(a,1990\),)32 +b(V)-8 b(ol.)31 b(I)s(I,)i(p.)g(130)0 659 y([App92])187 +b(T.)33 b(App)s(elquist)g(and)f(G.)g(T)-8 b(rian)m(taph)m(yllou,)32 +b(Ph)m(ys.)i(P)m(ev.)g(Lett.)f Fo(69)g Fw(\(1992\))e(2750)0 +848 y([Art74])219 b(X.)33 b(Artru)g(and)f(G.)g(Mennessier,)j(Nucl.)d +(Ph)m(ys.)j Fo(B70)d Fw(\(1974\))f(93)0 1038 y([Art83])219 +b(X.)33 b(Artru,)g(Ph)m(ys.)h(Rep.)f Fo(97)g Fw(\(1983\))e(147)0 +1227 y([Bab80])196 b(J.B.)33 b(Bab)s(co)s(c)m(k)g(and)g(R.E.)g(Cutk)m +(osky)-8 b(,)35 b(Nucl.)d(Ph)m(ys.)j Fo(B176)d Fw(\(1980\))g(113;)520 +1336 y(J.)h(Dorfan,)e(Z.)i(Ph)m(ys.)h Fo(C7)f Fw(\(1981\))e(349;)520 +1444 y(H.J.)i(Daum,)e(H.)i(Mey)m(er)i(and)d(J.)h(B)s(\177)-51 +b(urger,)32 b(Z.)g(Ph)m(ys.)j Fo(C8)d Fw(\(1981\))g(167;)520 +1552 y(K.)h(Lanius,)f(H.E.)h(Rolo\013)e(and)i(H.)f(Sc)m(hiller,)g(Z.)g +(Ph)m(ys.)i Fo(C8)f Fw(\(1981\))e(251;)520 1661 y(M.C.)j(Go)s(ddard,)e +(Rutherford)g(preprin)m(t)h(RL-81-069)d(\(1981\);)520 +1769 y(A.)j(B\177)-49 b(ac)m(k)m(er,)34 b(Z.)e(Ph)m(ys.)j +Fo(C12)d Fw(\(1982\))g(161)0 1959 y([Bag82])201 b(J.A.)33 +b(Bagger)f(and)h(J.F.)f(Gunion,)g(Ph)m(ys.)j(Rev.)e Fo(D25)f +Fw(\(1982\))g(2287)0 2148 y([Bai83])222 b(R.)33 b(Baier)e(and)i(R.)f(R) +s(\177)-51 b(uc)m(kl,)32 b(Z.)g(Ph)m(ys.)j Fo(C19)d Fw(\(1983\))g(251)0 +2338 y([Bar88])212 b(R.M.)33 b(Barnett,)g(H.E.)g(Hab)s(er)g(and)f(D.E.) +h(Sop)s(er,)g(Nucl.)f(Ph)m(ys.)j Fo(B306)d Fw(\(1988\))f(697)0 +2527 y([Bar90])212 b(T.L.)33 b(Barklo)m(w,)g(SLA)m(C-PUB-5364)f +(\(1990\))0 2717 y([Bar90a])163 b(V.Barger,)41 b(K.)f(Cheung,)i(T.)e +(Han)f(and)h(R.J.N.)f(Phillips,)g(Ph)m(ys.)i(Rev.)f Fo(D42)g +Fw(\(1990\))520 2825 y(3052)0 3015 y([Bar94])212 b(D.)29 +b(Bardin,)g(M.)h(Bilenky)-8 b(,)29 b(D.)g(Lehner,)i(A.)e(Olc)m(hevski)h +(and)f(T.)h(Riemann,)f(Nucl.)g(Ph)m(ys)520 3123 y Fo(B)p +Fw(,)j(Pro)s(c.)h(Suppl.)g Fo(37B)f Fw(\(1994\))f(148;)520 +3232 y(D.)h(Bardin,)g(priv)-5 b(ate)32 b(comm)m(unication)0 +3421 y([Bas78])212 b(C.)33 b(Basham,)f(L.)h(Bro)m(wn,)g(S.)g(Ellis)e +(and)h(S.)h(Lo)m(v)m(e,)h(Ph)m(ys.)g(Rev.)g(Lett.)e Fo(41)h +Fw(\(1978\))e(1585)0 3611 y([Bas83])212 b(A.)33 b(Bassetto,)g(M.)g +(Ciafaloni)d(and)j(G,)f(Marc)m(hesini,)h(Ph)m(ys.)h(Rep.)f +Fo(100)g Fw(\(1983\))e(202)0 3800 y([Bau90])196 b(U.)33 +b(Baur,)g(M.)g(Spira)e(and)i(P)-8 b(.)33 b(M.)g(Zerw)m(as,)g(Ph)m(ys.)i +(Rev.)e Fo(D42)f Fw(\(1990\))g(815)0 3990 y([Bee96])213 +b(W.)29 b(Beenakk)m(er)h(et)f(al.,)f(in)f(`Ph)m(ysics)j(at)e(LEP2',)i +(eds.)g(G.)d(Altarelli,)f(T.)j(Sj\177)-49 b(ostrand)28 +b(and)520 4098 y(F.)k(Zwirner,)h(CERN)g(96-01)e(\(Genev)-5 +b(a,)33 b(1996\),)f(V)-8 b(ol.)31 b(1,)h(p.)h(79)0 4288 +y([Ben84])202 b(H.-U.)33 b(Bengtsson,)h(Computer)e(Ph)m(ysics)i(Comm)m +(un.)f Fo(31)f Fw(\(1984\))g(323)0 4478 y([Ben84a])153 +b(H.-U.)33 b(Bengtsson)g(and)g(G.)f(Ingelman,)g(LU)g(TP)i(84-3,)d +(Ref.TH.3820-CERN)i(\(1984\))0 4667 y([Ben85])202 b(H.-U.)41 +b(Bengtsson)h(and)f(G.)g(Ingelman,)h(Computer)f(Ph)m(ysics)h(Comm)m +(un.)f Fo(34)g Fw(\(1985\))520 4775 y(251)0 4965 y([Ben85a])153 +b(H.-U.)39 b(Bengtsson,)j(W.-S.)d(Hou,)i(A.)e(Soni)g(and)g(D.H.)f +(Stork,)k(Ph)m(ys.)e(Rev.)g(Lett.)f Fo(55)520 5073 y +Fw(\(1985\))32 b(2762)0 5263 y([Ben87])202 b(H.-U.)40 +b(Bengtsson)i(and)e(T.)h(Sj\177)-49 b(ostrand,)43 b(Computer)d(Ph)m +(ysics)i(Comm)m(un.)e Fo(46)h Fw(\(1987\))520 5371 y(43)0 +5561 y([Ben87a])153 b(M.)39 b(Bengtsson)h(and)f(T.)g(Sj\177)-49 +b(ostrand,)41 b(Ph)m(ys.)f(Lett.)f Fo(B185)f Fw(\(1987\))g(435;)j +(Nucl.)e(Ph)m(ys.)520 5669 y Fo(B289)32 b Fw(\(1987\))g(810)1817 +5953 y(314)p eop +%%Page: 315 321 +315 320 bop 0 -18 a Fw([Ben87b])148 b(M.)33 b(C.)g(Ben)m(to)g(and)g(C.) +g(H.)g(Llew)m(ellyn)f(Smith,)f(Nucl.)h(Ph)m(ys.)j Fo(B289)d +Fw(\(1987\))g(36)0 173 y([Ben88])202 b(M.)33 b(Bengtsson)h(and)f(T.)g +(Sj\177)-49 b(ostrand,)33 b(Z.)f(Ph)m(ys.)i Fo(C37)f +Fw(\(1988\))e(465)0 364 y([Ber81])218 b(E.L.)33 b(Berger)g(and)g(D.)f +(Jones,)h(Ph)m(ys.)i(Rev.)e Fo(D23)g Fw(\(1981\))e(1521)0 +556 y([Ber82])218 b(F.A.)37 b(Berends,)k(R.)c(Kleiss)g(and)g(S.)h +(Jadac)m(h,)h(Nucl.)e(Ph)m(ys.)j Fo(B202)d Fw(\(1982\))f(63;)j(Com-)520 +664 y(puter)33 b(Ph)m(ysics)i(Comm)m(un.)d Fo(29)g Fw(\(1983\))g(185)0 +855 y([Ber84])218 b(E.)33 b(L.)g(Berger,)g(E.)g(Braaten)f(and)h(R.)f +(D.)h(Field,)e(Nucl.)h(Ph)m(ys.)i Fo(B239)f Fw(\(1984\))e(52)0 +1047 y([Ber85])218 b(F.A.)33 b(Berends)h(and)e(R.)h(Kleiss,)f(Nucl.)g +(Ph)m(ys.)j Fo(B260)d Fw(\(1985\))f(32)0 1238 y([Ber85a])169 +b(L.)33 b(Bergstr\177)-49 b(om)32 b(and)g(G.)h(Hulth,)f(Nucl.)g(Ph)m +(ys.)j Fo(B259)d Fw(\(1985\))f(137)0 1429 y([Ber89])218 +b(F.A.)33 b(Berends)i(et)f(al.,)e(in)h(`Z)f(Ph)m(ysics)j(at)e(LEP)h +(1',)g(eds.)g(G.)f(Altarelli,)d(R.)j(Kleiss)f(and)520 +1538 y(C.)h(V)-8 b(erzegnassi,)34 b(CERN)f(89-08)e(\(Genev)-5 +b(a,)33 b(1989\),)f(V)-8 b(ol.)31 b(1,)h(p.)h(89)0 1729 +y([Bet89])218 b(S.)33 b(Bethk)m(e,)h(Z.)f(Ph)m(ys.)h +Fo(C43)e Fw(\(1989\))g(331)0 1920 y([Bet92])218 b(S.)27 +b(Bethk)m(e,)i(Z.)d(Kunszt,)i(D.E.)f(Sop)s(er)f(and)h(W.J.)f(Stirling,) +f(Nucl.)h(Ph)m(ys.)j Fo(B370)d Fw(\(1992\))520 2029 y(310)0 +2220 y([Bia86])222 b(A.)33 b(Bia )-27 b(las)31 b(and)h(R.)h(P)m(esc)m +(hanski,)i(Nucl.)d(Ph)m(ys.)j Fo(B273)d Fw(\(1986\))f(703)0 +2412 y([Bjo70])220 b(J.D.)32 b(Bjork)m(en)i(and)f(S.J.)g(Bro)s(dsky)-8 +b(,)33 b(Ph)m(ys.)i(Rev.)e Fo(D1)f Fw(\(1970\))g(1416)0 +2603 y([Bot93])212 b(J.)33 b(Botts)g(et)f(al.,)g(Ph)m(ys.)i(Lett.)f +Fo(B304)g Fw(\(1993\))e(159)0 2794 y([Bo)m(w81])183 b(M.G.)33 +b(Bo)m(wler,)f(Z.)h(Ph)m(ys.)h Fo(C11)f Fw(\(1981\))e(169)0 +2986 y([Bra64])212 b(S.)46 b(Brandt,)j(Ch.)e(P)m(eyrou,)j(R.)c(Sosno)m +(wski)h(and)f(A.)g(W)-8 b(roblewski,)49 b(Ph)m(ys.)e(Lett.)f +Fo(12)520 3094 y Fw(\(1964\))32 b(57;)520 3202 y(E.)h(F)-8 +b(ahri,)31 b(Ph)m(ys.)k(Rev.)e(Lett.)g Fo(39)f Fw(\(1977\))g(1587)0 +3394 y([Bra79])212 b(S.)33 b(Brandt)g(and)f(H.D.)h(Dahmen,)f(Z.)g(Ph)m +(ys.)i Fo(C1)f Fw(\(1979\))e(61)0 3585 y([Bru89])207 +b(R.)33 b(Brun)f(et)h(al.,)f(GEANT)h(3,)f(CERN)i(rep)s(ort)e +(DD/EE/84-1)f(\(1989\))0 3776 y([Bru93])207 b(P)-8 b(.)33 +b(Bruni)f(and)h(G.)f(Ingelman,)f(in)h(preparation)0 3968 +y([Cah84])195 b(R.N.)33 b(Cahn)g(and)g(S.)f(Da)m(wson,)h(Ph)m(ys.)i +(Lett.)e Fo(136B)f Fw(\(1984\))g(196;)520 4076 y(R.N.)h(Cahn,)g(Nucl.)f +(Ph)m(ys.)j Fo(B255)d Fw(\(1985\))g(341;)520 4184 y(G.)g(Altarelli,)d +(B.)k(Mele)g(and)g(F.)f(Pitolli,)d(Nucl.)j(Ph)m(ys.)j +Fo(B287)d Fw(\(1987\))g(205)0 4376 y([Cat91])211 b(S.)27 +b(Catani,)g(Y)-8 b(u.)26 b(L.)h(Dokshitzer,)g(M.)g(Olsson,)h(G.)e(T)-8 +b(urno)s(c)m(k)27 b(and)g(B.R.)f(W)-8 b(ebb)s(er,)29 +b(Ph)m(ys.)520 4484 y(Lett.)k Fo(B269)f Fw(\(1991\))g(432)0 +4676 y([Chi90])216 b(P)-8 b(.)36 b(Chiapp)s(etta)g(and)g(M.)g(P)m +(errottet,)i(in)d(`Large)h(Hadron)g(Collider)e(W)-8 b(orkshop',)37 +b(eds.)520 4784 y(G.)32 b(Jarlsk)m(og)h(and)f(D.)g(Rein,)g(CERN)i +(90-10)d(\(Genev)-5 b(a,)33 b(1990\),)e(V)-8 b(ol.)32 +b(I)s(I,)g(p.)h(806)0 4975 y([Cha85])195 b(M.)33 b(Chano)m(witz)g(and)g +(M.K.)g(Gaillard,)c(Nucl.)j(Ph)m(ys.)j Fo(B261)d Fw(\(1985\))g(379)0 +5167 y([Che75])201 b(M.-S.)33 b(Chen)h(and)e(P)-8 b(.)33 +b(Zerw)m(as,)h(Ph)m(ys.)g(Rev.)f Fo(D12)g Fw(\(1975\))e(187;)520 +5275 y(P)-8 b(.)33 b(Zerw)m(as,)h(priv)-5 b(ate)31 b(comm)m(unication)g +(\(1991\))0 5466 y([Ch)m(u55])193 b(A.E.)33 b(Ch)m(udak)m(o)m(v,)i +(Izv.)f(Ak)-5 b(ad.)33 b(Nauk)g(SSSR,)g(Ser.)g(Fiz.)f +Fo(19)g Fw(\(1955\))g(650)1817 5953 y(315)p eop +%%Page: 316 322 +316 321 bop 0 -18 a Fw([Cia87])221 b(M.)33 b(Ciafaloni,)d(Nucl.)i(Ph)m +(ys.)j Fo(B296)d Fw(\(1987\))f(249;)520 90 y(S.)i(Catani,)f(F.)g +(Fiorani)e(and)j(G.)f(Marc)m(hesini,)h(Nucl.)f(Ph)m(ys.)j +Fo(B336)d Fw(\(1990\))f(18;)520 198 y(G.)h(Marc)m(hesini)h(and)g(B.R.)f +(W)-8 b(ebb)s(er,)34 b(Nucl.)e(Ph)m(ys.)j Fo(B349)d Fw(\(1991\))f(617)0 +388 y([Cla79])221 b(L.)33 b(Cla)m(v)m(elli,)d(Ph)m(ys.)35 +b(Lett.)e Fo(B85)f Fw(\(1979\))f(111;)520 496 y(A.V.)i(Smilga,)d(Nucl.) +i(Ph)m(ys.)j Fo(B161)d Fw(\(1979\))g(449;)520 604 y(L.)h(Cla)m(v)m +(elli)d(and)j(D.)f(Wyler,)h(Ph)m(ys.)h(Lett.)f Fo(103B)f +Fw(\(1981\))g(383)0 794 y([Co)s(c91])203 b(D.)23 b(Co)s(colicc)m(hio,)g +(F.)g(F)-8 b(eruglio,)23 b(G.L.)f(F)-8 b(ogli)21 b(and)i(J.)g(T)-8 +b(erron,)26 b(Ph)m(ys.)e(Lett.)g Fo(B255)f Fw(\(1991\))520 +902 y(599;)520 1011 y(F.)32 b(F)-8 b(eruglio,)31 b(priv)-5 +b(ate)32 b(comm)m(unication)e(\(1990\))0 1200 y([Com77])167 +b(B.L.)33 b(Com)m(bridge,)f(J.)h(Kripfganz)e(and)i(J.)g(Ranft,)f(Ph)m +(ys.)i(Lett.)f Fo(70B)f Fw(\(1977\))g(234;)520 1309 y(R.)h(Cutler)f +(and)h(D.)f(Siv)m(ers,)h(Ph)m(ys.)i(Rev.)e Fo(D17)f Fw(\(1978\))g(196)0 +1498 y([Com79])167 b(B.L.)33 b(Com)m(bridge,)f(Nucl.)g(Ph)m(ys.)j +Fo(B151)d Fw(\(1979\))g(429)0 1688 y([Con71])195 b(V.)33 +b(Constan)m(tini,)f(B.)h(de)g(T)-8 b(ollis)30 b(and)j(G.)f(Pistoni,)f +(Nuo)m(v)m(o)j(Cim.)d Fo(2A)i Fw(\(1971\))e(733)0 1877 +y([Dan82])190 b(D.)39 b(Danc)m(k)-5 b(aert,)40 b(P)-8 +b(.)39 b(De)g(Causmaec)m(k)m(er,)k(R.)38 b(Gastmans,)i(W.)f(T)-8 +b(ro)s(ost)39 b(and)g(T.T.)h(W)-8 b(u,)520 1986 y(Ph)m(ys.)35 +b(Lett.)d Fo(B114)h Fw(\(1982\))e(203)0 2175 y([DeR75])178 +b(A.)33 b(De)f(R)s(\023)-51 b(ujula,)31 b(H.)h(Georgi)f(and)i(S.L)g +(Glasho)m(w,)f(Ph)m(ys.)j(Rev.)e Fo(D12)f Fw(\(1975\))g(147)0 +2365 y([Dic86])222 b(D.A.)33 b(Dicus)f(and)g(S.S.D.)h(Willen)m(bro)s(c) +m(k,)f(Ph)m(ys.)i(Rev.)f Fo(D34)g Fw(\(1986\))e(155)0 +2555 y([Dic88])222 b(D.A.)33 b(Dicus)f(and)g(S.S.D.)h(Willen)m(bro)s(c) +m(k,)f(Ph)m(ys.)i(Rev.)f Fo(D37)g Fw(\(1988\))e(1801)0 +2744 y([Din79])211 b(M.)33 b(Dine)f(and)h(J.)f(Sapirstein,)g(Ph)m(ys.)j +(Rev.)e(Lett.)g Fo(43)f Fw(\(1979\))g(668;)520 2852 y(K.G.)g(Chet)m +(yrkin)i(et)f(al.,)f(Ph)m(ys.)i(Lett.)f Fo(B85)f Fw(\(1979\))g(277;)520 +2961 y(W.)h(Celmaster)f(and)h(R.J.)f(Gonsalv)m(es,)i(Ph)m(ys.)g(Rev.)f +(Lett.)g Fo(44)g Fw(\(1980\))e(560)0 3150 y([Dob91])190 +b(A.)33 b(Dobado,)f(M.J.)h(Herrero)g(and)g(J.)f(T)-8 +b(erron,)33 b(Z.)g(Ph)m(ys.)h Fo(C50)f Fw(\(1991\))e(205,)h +Fi(ibid.)g Fw(465)0 3340 y([Dok89])193 b(Y)-8 b(u.L.)41 +b(Dokshitzer,)h(V.A.)f(Khoze)f(and)h(S.I.)f(T)-8 b(ro)m(y)m(an,)44 +b(in)39 b(`P)m(erturbativ)m(e)j(QCD',)e(ed.)520 3448 +y(A.H.)33 b(Mueller)f(\(W)-8 b(orld)32 b(Scien)m(ti\014c,)g(Singap)s +(ore,)g(1989\),)g(p.)g(241)0 3638 y([Dok92])193 b(Y)-8 +b(u.L.)43 b(Dokshitzer,)i(V.A.)d(Khoze)h(and)g(T.)g(Sj\177)-49 +b(ostrand,)45 b(Ph)m(ys.)f(Lett.)e Fo(B274)h Fw(\(1992\))520 +3746 y(116)0 3936 y([Don92])190 b(A.)33 b(Donnac)m(hie)f(and)h(P)-8 +b(.V.)33 b(Landsho\013,)g(Ph)m(ys.)h(Lett.)f Fo(B296)g +Fw(\(1992\))e(227)0 4125 y([Dre85])212 b(M.)33 b(Drees)g(and)g(K.)f +(Grassie,)h(Z.)f(Ph)m(ys.)i Fo(C28)f Fw(\(1985\))e(451)0 +4315 y([Dre89])212 b(M.)33 b(Drees,)g(J.)g(Ellis)e(and)h(D.)h(Zepp)s +(enfeld,)f(Ph)m(ys.)j(Lett.)d Fo(B223)h Fw(\(1989\))e(454)0 +4505 y([Dre91])212 b(M.)33 b(Drees)g(and)g(C.S.)g(Kim,)e(Z.)h(Ph)m(ys.) +j Fo(C53)d Fw(\(1991\))g(673.)0 4694 y([Duk82])188 b(D.W.)33 +b(Duk)m(e)g(and)g(J.F.)f(Ow)m(ens,)i(Ph)m(ys.)h(Rev.)e +Fo(D26)g Fw(\(1982\))e(1600)0 4884 y([Dun86])185 b(M.J.)33 +b(Duncan,)g(G.L.)f(Kane)h(and)g(W.W.)g(Repk)m(o,)g(Nucl.)g(Ph)m(ys.)h +Fo(B272)f Fw(\(1986\))e(517)0 5073 y([Eic84])231 b(E.)35 +b(Eic)m(h)m(ten,)g(I.)g(Hinc)m(hli\013e,)e(K.)h(Lane)g(and)h(C.)f +(Quigg,)f(Rev.)i(Mo)s(d.)f(Ph)m(ys.)i Fo(56)f Fw(\(1984\))520 +5182 y(579;)d(Rev.)h(Mo)s(d.)g(Ph)m(ys.)h Fo(58)f Fw(\(1985\))f(1065)0 +5371 y([Eij90])244 b(B.)46 b(v)-5 b(an)46 b(Eijk)g(and)g(R.)g(Kleiss,)j +(in)c(`Large)h(Hadron)g(Collider)d(W)-8 b(orkshop',)51 +b(eds.)c(G.)520 5480 y(Jarlsk)m(og)32 b(and)h(D.)f(Rein,)g(CERN)i +(90-10)d(\(Genev)-5 b(a,)32 b(1990\),)g(V)-8 b(ol.)32 +b(I)s(I,)g(p.)h(183)0 5669 y([Ell76])246 b(J.)33 b(Ellis,)e(M.K.)i +(Gaillard)c(and)j(G.G.)g(Ross,)h(Nucl.)g(Ph)m(ys.)h Fo(B111)e +Fw(\(1976\))g(253)1817 5953 y(316)p eop +%%Page: 317 323 +317 322 bop 0 -18 a Fw([Ell79])246 b(J.)33 b(Ellis)e(and)h(I.)h +(Karliner,)e(Nucl.)h(Ph)m(ys.)j Fo(B148)d Fw(\(1979\))f(141)0 +173 y([Ell81])246 b(R.K.)33 b(Ellis,)d(D.A.)j(Ross)g(and)f(A.E.)i(T)-8 +b(errano,)32 b(Nucl.)h(Ph)m(ys.)h Fo(B178)f Fw(\(1981\))e(421)0 +364 y([Ell86])246 b(R.K.)33 b(Ellis)d(and)j(J.C.)g(Sexton,)h(Nucl.)e +(Ph)m(ys.)i Fo(B269)f Fw(\(1986\))e(445)0 556 y([Ell88])246 +b(R.K.)35 b(Ellis,)g(I.)h(Hinc)m(hli\013e,)f(M.)h(Soldate)f(and)g(J.J.) +h(v)-5 b(an)36 b(der)g(Bij,)f(Nucl.)g(Ph)m(ys.)j Fo(B297)520 +664 y Fw(\(1988\))32 b(221)0 855 y([F)-8 b(ab82])209 +b(K.)32 b(F)-8 b(abricius,)31 b(G.)h(Kramer,)g(G.)g(Sc)m(hierholz)g +(and)g(I.)h(Sc)m(hmitt,)e(Z.)h(Ph)m(ys.)i Fo(C11)f Fw(\(1982\))520 +964 y(315)0 1155 y([F)-8 b(ad90])209 b(V.)33 b(F)-8 b(adin,)31 +b(V.)i(Khoze)g(and)g(T.)g(Sj\177)-49 b(ostrand,)33 b(Z.)f(Ph)m(ys.)i +Fo(C48)f Fw(\(1990\))e(613)0 1346 y([Fie78])233 b(R.D.)32 +b(Field)f(and)i(R.P)-8 b(.)33 b(F)-8 b(eynman,)32 b(Nucl.)g(Ph)m(ys.)j +Fo(B136)d Fw(\(1978\))g(1)0 1538 y([F)-8 b(on81])209 +b(M.)33 b(F)-8 b(on)m(tannaz,)33 b(B.)f(Pire)h(and)f(D.)h(Sc)m(hi\013,) +f(Z.)g(Ph)m(ys.)j Fo(C11)d Fw(\(1981\))g(211)0 1729 y([F)-8 +b(o)m(x79])215 b(G.C.)33 b(F)-8 b(o)m(x)32 b(and)h(S.)g(W)-8 +b(olfram,)30 b(Nucl.)j(Ph)m(ys.)h Fo(B149)e Fw(\(1979\))g(413)0 +1920 y([Gab86])188 b(E.)33 b(Gabrielli,)c(Mo)s(d.)k(Ph)m(ys.)h(Lett.)f +Fo(A1)f Fw(\(1986\))g(465)0 2112 y([Gae80])199 b(K.J.F.)33 +b(Gaemers)f(and)h(J.A.M.)g(V)-8 b(ermaseren,)33 b(Z.)f(Ph)m(ys.)j +Fo(C7)d Fw(\(1980\))g(81)0 2303 y([Gas87])204 b(R.)33 +b(Gastmans,)f(W.)g(T)-8 b(ro)s(ost)33 b(and)g(T.T.)g(W)-8 +b(u,)33 b(Ph)m(ys.)i(Lett.)d Fo(B184)h Fw(\(1987\))e(257)0 +2495 y([Glo88])214 b(E.W.N.)34 b(Glo)m(v)m(er,)e(A.D.)g(Martin)g(and)h +(W.J.)g(Stirling,)d(Z.)i(Ph)m(ys.)j Fo(C38)d Fw(\(1988\))g(473)0 +2686 y([Glu92])209 b(M.)33 b(Gl)s(\177)-51 b(uc)m(k,)32 +b(E.)h(Rey)m(a)g(and)g(A.)f(V)-8 b(ogt,)32 b(Z.)h(Ph)m(ys.)h +Fo(C53)f Fw(\(1992\))e(127)0 2877 y([Glu92a])160 b(M.)33 +b(Gl)s(\177)-51 b(uc)m(k,)32 b(E.)h(Rey)m(a)g(and)g(A.)f(V)-8 +b(ogt,)32 b(Z.)h(Ph)m(ys.)h Fo(C53)f Fw(\(1992\))e(651)0 +3069 y([Got82])204 b(T.D.)33 b(Gottsc)m(halk,)f(Ph)m(ys.)j(Lett.)e +Fo(B109)f Fw(\(1982\))f(331;)520 3177 y(T.D.)41 b(Gottsc)m(halk)f(and)h +(M.P)-8 b(.)42 b(Shatz,)h(Ph)m(ys.)f(Lett.)f Fo(B150)f +Fw(\(1985\))g(451,)i(CAL)-8 b(T-68-)520 3285 y(1172)32 +b(\(1984\))0 3477 y([Got86])204 b(T.D.)33 b(Gottsc)m(halk,)f(Nucl.)h +(Ph)m(ys.)h Fo(B277)e Fw(\(1986\))g(700)0 3668 y([Gri72])225 +b(V.N.)33 b(Grib)s(o)m(v)f(and)g(L.N.)h(Lipato)m(v,)f(So)m(v.)i(J.)e +(Nucl.)h(Ph)m(ys.)h Fo(15)f Fw(\(1972\))e(438,)h Fi(ibid.)g +Fw(75;)520 3776 y(Y)-8 b(u.)33 b(L.)g(Dokshitzer,)f(So)m(v.)i(J.)e(Ph)m +(ys.)j(JETP)f Fo(46)e Fw(\(1977\))g(641)0 3968 y([Gri83])225 +b(L.V.)33 b(Grib)s(o)m(v,)f(E.M.)h(Levin)g(and)f(M.G.)h(Ryskin,)g(Ph)m +(ys.)i(Rep.)e Fo(100)f Fw(\(1983\))g(1)0 4159 y([Gro81])204 +b(T.R.)33 b(Grose)g(and)f(K.O.)h(Mik)-5 b(aelian,)30 +b(Ph)m(ys.)35 b(Rev.)e Fo(D23)f Fw(\(1981\))g(123)0 4351 +y([G)s(\177)-51 b(ul93])208 b(St.)23 b(G)s(\177)-51 b(ullenstern,)22 +b(P)-8 b(.)23 b(G\023)-49 b(ornic)m(ki,)23 b(L.)f(Mankiewicz)h(and)f +(A.)g(Sc)m(h\177)-49 b(afer,)26 b(Nucl.)c(Ph)m(ys.)i +Fo(A560)520 4459 y Fw(\(1993\))32 b(494)0 4650 y([Gun86])183 +b(J.F.)33 b(Gunion)e(and)i(Z.)f(Kunszt,)i(Ph)m(ys.)g(Rev.)f +Fo(D33)g Fw(\(1986\))e(665;)520 4759 y(errata)h(as)h(priv)-5 +b(ate)32 b(comm)m(unication)e(from)i(the)h(authors)0 +4950 y([Gun87])183 b(J.F.)38 b(Gunion,)g(H.E.)h(Hab)s(er,)g(F.E.)f(P)m +(aige,)h(W.-K.)f(T)-8 b(ung)38 b(and)g(S.S.D.)g(Willen)m(bro)s(c)m(k,) +520 5058 y(Nucl.)33 b(Ph)m(ys.)h Fo(B294)e Fw(\(1987\))g(621)0 +5250 y([Gun90])183 b(J.F.)27 b(Gunion,)f(H.E.)i(Hab)s(er,)f(G.)g(Kane)f +(and)h(S.)g(Da)m(wson,)h(The)f(Higgs)f(Hun)m(ter's)i(Guide)520 +5358 y(\(Addison-W)-8 b(esley)g(,)33 b(1990\);)520 5466 +y(A.)g(Djouadi,)e(priv)-5 b(ate)32 b(comm)m(unication)e(\(1991\))0 +5658 y([Gus82])199 b(G.)32 b(Gustafson,)h(Z.)f(Ph)m(ys.)j +Fo(C15)d Fw(\(1982\))g(155)1817 5953 y(317)p eop +%%Page: 318 324 +318 323 bop 0 -18 a Fw([Gut84])199 b(F.)32 b(Gutbro)s(d,)h(G.)f(Kramer) +f(and)i(G.)f(Sc)m(hierholz,)h(Z.)f(Ph)m(ys.)i Fo(C21)f +Fw(\(1984\))e(235)0 173 y([Gut87])199 b(F.)29 b(Gutbro)s(d,)g(G.)f +(Kramer,)h(G.)f(Rudolph)g(and)h(G.)f(Sc)m(hierholz,)i(Z.)e(Ph)m(ys.)j +Fo(C35)e Fw(\(1987\))520 281 y(543)0 473 y([Hag91])197 +b(K.)41 b(Hagiw)m(ara,)i(H.)e(Iw)m(asaki,)j(A.)d(Miy)m(amoto,)i(H.)e +(Mura)m(y)m(ama)g(and)h(D.)e(Zepp)s(enfeld,)520 581 y(Nucl.)33 +b(Ph)m(ys.)h Fo(B365)e Fw(\(1991\))g(544)0 772 y([Hal78])218 +b(F.)32 b(Halzen)h(and)g(D.)f(M.)h(Scott,)f(Ph)m(ys.)j(Rev.)e +Fo(D18)g Fw(\(1978\))e(3378)0 964 y([Her)p Fm(bc)p Fw(])195 +b(Hero)s(dotus)33 b(of)f(Halicarnassus,)h(`The)g(Histories')f(\(circa)g +(430)g Fm(bc)p Fw(\),)520 1072 y(translation)37 b(to)h(English)g(e.g.)h +(b)m(y)h(A.)f(de)g(S)m(\023)-46 b(elincourt)38 b(\(1954\),)h(a)m(v)-5 +b(ailable)36 b(in)i(P)m(enguin)520 1180 y(Classics)0 +1372 y([HER92])157 b(`Ph)m(ysics)35 b(at)d(HERA',)i(eds.)g(W)f(Buc)m +(hm)s(\177)-51 b(uller)31 b(and)i(G.)f(Ingelman)g(\(DESY,)h(Ham)m +(burg,)520 1480 y(1992\),)f(V)-8 b(ol.)31 b(3)0 1671 +y([Hew88])182 b(J.L.)34 b(Hew)m(ett)h(and)e(S.)h(P)m(akv)-5 +b(asa,)34 b(Ph)m(ys.)i(Rev.)e Fo(D37)f Fw(\(1988\))g(3165,)f(and)i +(priv)-5 b(ate)33 b(com-)520 1780 y(m)m(unication)e(from)g(the)i +(authors)0 1971 y([Ho)m(y79])198 b(P)-8 b(.)31 b(Ho)m(y)m(er,)i(P)-8 +b(.)31 b(Osland,)g(H.G.)g(Sander,)h(T.F.)f(W)-8 b(alsh)31 +b(and)g(P)-8 b(.M.)32 b(Zerw)m(as,)g(Nucl.)f(Ph)m(ys.)520 +2079 y Fo(B161)h Fw(\(1979\))g(349)0 2271 y([Ing80])230 +b(G.)32 b(Ingelman)g(and)g(T.)h(Sj\177)-49 b(ostrand,)33 +b(LUTP)h(80-12)d(\(1980\);)520 2379 y(G.)41 b(Ingelman,)h(in)e(`Ph)m +(ysics)j(at)d(HERA',)i(eds.)g(W.)f(Buc)m(hm)s(\177)-51 +b(uller)39 b(and)i(G.)g(Ingelman)520 2488 y(\(DESY,)33 +b(Ham)m(burg,)f(1992\),)g(V)-8 b(ol.)31 b(3,)i(p.)f(1366)0 +2679 y([Ing85])230 b(G.)32 b(Ingelman)g(and)g(P)-8 b(.E.)34 +b(Sc)m(hlein,)e(Ph)m(ys.)j(Lett.)d Fo(152B)h Fw(\(1985\))e(256)0 +2870 y([Ing87])230 b(G.)32 b(Ingelman,)g(Computer)g(Ph)m(ysics)j(Comm)m +(un.)d Fo(46)g Fw(\(1987\))g(217)0 3062 y([Ing87a])181 +b(G.)32 b(Ingelman)g(and)g(A.)h(W)-8 b(eigend,)33 b(Computer)f(Ph)m +(ysics)j(Comm)m(un.)d Fo(46)g Fw(\(1987\))g(241)0 3253 +y([Ing87b])176 b(G.)30 b(Ingelman)g(et)g(al.,)g(in)g(`Pro)s(ceedings)h +(of)f(the)h(HERA)g(W)-8 b(orkshop',)32 b(ed.)f(R.D.)f(P)m(eccei)520 +3361 y(\(DESY,)j(Ham)m(burg,)f(1988\),)g(V)-8 b(ol.)31 +b(1,)i(p.)f(3)0 3553 y([Ing88])230 b(G.)32 b(Ingelman)g(and)g(G.A.)h +(Sc)m(h)m(uler,)g(Z.)g(Ph)m(ys.)h Fo(C40)e Fw(\(1988\))g(299;)520 +3661 y(G.)39 b(Ingelman)g(and)g(G.A.)h(Sc)m(h)m(uler,)i(in)d(`Ph)m +(ysics)i(at)e(HERA',)h(eds.)h(W.)e(Buc)m(hm)s(\177)-51 +b(uller)520 3769 y(and)33 b(G.)f(Ingelman)f(\(DESY,)i(Ham)m(burg,)f +(1992\),)g(V)-8 b(ol.)31 b(3,)i(p.)g(1346)0 3961 y([Iof78])254 +b(B.L.)33 b(Io\013e,)g(Ph)m(ys.)h(Lett.)f Fo(78B)f Fw(\(1978\))g(277)0 +4152 y([JAD86])170 b(JADE)33 b(Collab)s(oration,)c(W.)k(Bartel)f(et)g +(al.,)g(Z.)g(Ph)m(ys.)j Fo(C33)d Fw(\(1986\))g(23;)520 +4260 y(S.)h(Bethk)m(e,)h(Habilitation)29 b(thesis,)k(LBL)g(50-208)d +(\(1987\))0 4452 y([JAD88])170 b(JADE)33 b(Collab)s(oration,)c(S.)k +(Bethk)m(e)h(et)f(al.,)e(Ph)m(ys.)k(Lett.)e Fo(B213)f +Fw(\(1988\))f(235;)520 4560 y(T)-8 b(ASSO)31 b(Collab)s(oration,)c(W.)k +(Braunsc)m(h)m(w)m(eig)h(et)e(al.,)g(Ph)m(ys.)i(Lett.)e +Fo(214B)g Fw(\(1988\))f(286)0 4752 y([Jam80])187 b(F.)32 +b(James,)h(Rep.)g(Prog.)f(Ph)m(ys.)j Fo(43)e Fw(\(1980\))e(1145)0 +4943 y([Jam90])187 b(F.)32 b(James,)h(Computer)g(Ph)m(ysics)h(Comm)m +(un.)e Fo(60)h Fw(\(1990\))e(329)0 5134 y([Jer81])237 +b(J.)33 b(Jers\023)-49 b(ak,)34 b(E.)f(Laermann)f(and)g(P)-8 +b(.M.)34 b(Zerw)m(as,)f(Ph)m(ys.)i(Rev.)e Fo(D25)f Fw(\(1982\))g(1218)0 +5326 y([Jun97])210 b(H.)33 b(Jung,)g(priv)-5 b(ate)32 +b(comm)m(unication;)520 5434 y(H.)h(Kharraziha,)e(priv)-5 +b(ate)32 b(comm)m(unication)0 5625 y([Kat83])205 b(M.)33 +b(Katuy)m(a,)g(Ph)m(ys.)i(Lett.)d Fo(124B)h Fw(\(1983\))e(421)1817 +5953 y(318)p eop +%%Page: 319 325 +319 324 bop 0 -18 a Fw([Kho96])189 b(V.A.)33 b(Khoze)g(and)g(T.)g +(Sj\177)-49 b(ostrand,)33 b(Z.)f(Ph)m(ys.)i Fo(C70)f +Fw(\(1996\))f(625.)0 173 y([Kle89])221 b(R.)46 b(Kleiss)e(et)i(al.,)i +(in)d(`Z)g(ph)m(ysics)i(at)f(LEP)g(1',)j(eds.)d(G.)g(Altarelli,)f(R.)g +(Kleiss)g(and)520 281 y(C.)33 b(V)-8 b(erzegnassi,)34 +b(CERN)f(89-08)e(\(Genev)-5 b(a,)33 b(1989\),)f(V)-8 +b(ol.)31 b(3,)h(p.)h(143)0 473 y([Kni89])210 b(B.A.)33 +b(Kniehl)e(and)i(J.H.)g(K)s(\177)-51 b(uhn,)32 b(Ph)m(ys.)i(Lett.)f +Fo(B224)g Fw(\(1989\))e(229)0 664 y([Kno93])189 b(I.G.)41 +b(Kno)m(wles)h(and)g(S.D.)f(Protop)s(op)s(escu,)j(in)d(`W)-8 +b(orkshop)42 b(on)f(Ph)m(ysics)i(at)e(Curren)m(t)520 +772 y(Accelerators)c(and)f(Sup)s(ercolliders',)g(eds.)h(J.L.)f(Hew)m +(ett,)i(A.R.)e(White)g(and)g(D.)g(Zep-)520 881 y(p)s(enfeld,)d +(ANL-HEP-CP-93-92)e(\(Argonne,)i(1993\),)f(p.)h(651)0 +1072 y([Kol78])215 b(K.)33 b(Koller)d(and)j(T.F.)g(W)-8 +b(alsh,)32 b(Nucl.)g(Ph)m(ys.)j Fo(B140)d Fw(\(1978\))g(449)0 +1263 y([K\177)-49 b(or85])205 b(J.G.)33 b(K\177)-49 b(orner)32 +b(and)h(G.)f(Sc)m(h)m(uler,)h(Z.)g(Ph)m(ys.)h Fo(C26)f +Fw(\(1985\))e(559)0 1455 y([Kra88])205 b(G.)23 b(Kramer)f(and)h(B.)g +(Lamp)s(e,)h(Z.)f(Ph)m(ys.)i Fo(C39)e Fw(\(1988\))f(101;)j(F)-8 +b(ortsc)m(hr.)24 b(Ph)m(ys.)h Fo(37)e Fw(\(1989\))520 +1563 y(161)0 1754 y([Krz72])211 b(A.)33 b(Krzywic)m(ki)g(and)f(B.)h(P)m +(etersson,)i(Ph)m(ys.)f(Rev.)g Fo(D6)e Fw(\(1972\))g(924;)520 +1863 y(J.)h(Fink)m(elstein)f(and)g(R.D.)g(P)m(eccei,)i(Ph)m(ys.)h(Rev.) +e Fo(D6)f Fw(\(1972\))g(2606;)520 1971 y(F.)g(Niederma)m(y)m(er,)i +(Nucl.)e(Ph)m(ys.)i Fo(B79)f Fw(\(1974\))e(355;)520 2079 +y(A.)i(Casher,)h(J.)e(Kogut)g(and)h(L.)g(Susskind,)h(Ph)m(ys.)g(Rev.)f +Fo(D10)g Fw(\(1974\))e(732)0 2271 y([K)s(\177)-51 b(uh89])183 +b(J.H.)33 b(K)s(\177)-51 b(uhn)32 b(et)g(al.,)g(in)f(`Z)h(Ph)m(ysics)i +(at)e(LEP)h(1',)f(eds.)i(G.)e(Altarelli,)d(R.)j(Kleiss)g(and)g(C.)520 +2379 y(V)-8 b(erzegnassi,)34 b(CERN)f(89-08)e(\(Genev)-5 +b(a,)33 b(1989\),)e(V)-8 b(ol.)32 b(1,)g(p.)h(267)0 2571 +y([Kun81])184 b(Z.)32 b(Kunszt,)i(Ph)m(ys.)g(Lett.)f +Fo(B99)f Fw(\(1981\))g(429;)g(Ph)m(ys.)i(Lett.)f Fo(B107)f +Fw(\(1981\))g(123)0 2762 y([Kun84])184 b(Z.)32 b(Kunszt,)i(Nucl.)e(Ph)m +(ys.)j Fo(B247)d Fw(\(1984\))g(339)0 2953 y([Kun87])184 +b(Z.)35 b(Kunszt)i(et)f(al.,)f(in)g(`Pro)s(ceedings)h(of)f(the)h(W)-8 +b(orkshop)36 b(on)g(Ph)m(ysics)h(at)e(F)-8 b(uture)36 +b(Ac-)520 3062 y(celerators',)g(ed.)f(J.H.)g(Mulv)m(ey)-8 +b(,)36 b(CERN)g(87-08)d(\(1987\),)h(V)-8 b(ol.)34 b(I,)h(p.)g(123,)f +(and)h(priv)-5 b(ate)520 3170 y(comm)m(unication)0 3361 +y([Lae80])215 b(E.)23 b(Laermann,)i(K.H.)e(Streng)g(and)g(P)-8 +b(.M.)23 b(Zerw)m(as,)j(Z.)c(Ph)m(ys.)j Fo(C3)e Fw(\(1980\))f(289;)j +(Erratum)520 3470 y(Z.)32 b(Ph)m(ys.)j Fo(C52)d Fw(\(1991\))g(352)0 +3661 y([Lan91])204 b(K.)33 b(Lane,)g(priv)-5 b(ate)31 +b(comm)m(unication)g(\(1991\))0 3852 y([LEP90])175 b(OP)-8 +b(AL)33 b(Collab)s(oration,)c(M.Z.)k(Akra)m(wy)h(et)f(al.,)e(Z.)h(Ph)m +(ys)j Fo(C47)d Fw(\(1990\))g(505;)520 3961 y(L3)g(Collab)s(oration,)e +(B.)i(Adev)-5 b(a)33 b(et)g(al.,)f(Z.)g(Ph)m(ys.)i Fo(C55)f +Fw(\(1992\))e(39;)520 4069 y(ALEPH)j(Collab)s(oration,)29 +b(D.)j(Buskulic)g(et)h(al.,)f(Z.)g(Ph)m(ys.)i Fo(C55)f +Fw(\(1992\))f(209)0 4260 y([Lev90])213 b(E.M.)34 b(Levin)e(and)h(M.G.)g +(Ryskin,)g(Ph)m(ys.)h(Rep.)f Fo(189)g Fw(\(1990\))e(267)0 +4452 y([L\177)-49 b(or89])220 b(B.)33 b(L\177)-49 b(orstad,)33 +b(In)m(t.)g(J.)f(of)h(Mo)s(d.)f(Ph)m(ys.)j Fo(A4)d Fw(\(1989\))f(2861)0 +4643 y([Lus91])215 b(M.)33 b(Lusignoli)d(and)j(M.)g(Masetti,)g(Z.)f(Ph) +m(ysik)i Fo(C51)e Fw(\(1991\))g(549)0 4835 y([Mag89])181 +b(N.)47 b(Magn)m(ussen,)53 b(Ph.D.)47 b(Thesis,)k(Univ)m(ersit)m(y)d +(of)e(W)-8 b(upp)s(ertal)46 b(WUB-DI)h(88-4)e(and)520 +4943 y(DESY)33 b(F22-89-01)d(\(1989\);)520 5051 y(G.)i(Kramer)g(and)h +(N.)f(Magn)m(ussen,)j(Z.)d(Ph)m(ys.)j Fo(C49)d Fw(\(1991\))g(301)0 +5243 y([MAR79])134 b(MARK)33 b(J)f(Collab)s(oration,)e(D.P)-8 +b(.)32 b(Barb)s(er)h(et)f(al.,)g(Ph)m(ys.)i(Rev.)g(Lett.)e +Fo(43)h Fw(\(1979\))f(830)0 5434 y([Mar88])192 b(G.)32 +b(Marc)m(hesini)h(and)g(B.R.)f(W)-8 b(ebb)s(er,)34 b(Nucl.)e(Ph)m(ys.)j +Fo(B310)d Fw(\(1988\))f(571;)520 5542 y(G.)25 b(Marc)m(hesini,)i(B.R.)f +(W)-8 b(ebb)s(er,)28 b(M.H.)e(Seymour,)h(G.)e(Abbiendi,)i(L.)e(Stanco)h +(and)g(I.G.)520 5651 y(Kno)m(wles,)33 b(Computer)g(Ph)m(ysics)h(Comm)m +(un.)e Fo(67)h Fw(\(1992\))e(465)1817 5953 y(319)p eop +%%Page: 320 326 +320 325 bop 0 -18 a Fw([Mar90])192 b(G.)32 b(Marsaglia,)f(A.)i(Zaman)e +(and)i(W.-W.)f(Tsang,)i(Stat.)e(Prob.)h(Lett.)g Fo(9)f +Fw(\(1990\))g(35)0 173 y([Mon79])176 b(I.)33 b(Mon)m(tv)-5 +b(a)m(y)d(,)34 b(Ph)m(ys.)g(Lett.)f Fo(B84)f Fw(\(1979\))g(331)0 +364 y([Mor89])192 b(D.A.)33 b(Morris,)f(Nucl.)g(Ph)m(ys.)j +Fo(B313)d Fw(\(1989\))f(634)0 556 y([Mue81])182 b(A.H.)33 +b(Mueller,)f(Ph)m(ys.)j(Lett.)d Fo(104B)h Fw(\(1981\))e(161;)520 +664 y(B.I.)i(Ermolaev,)f(V.S.)h(F)-8 b(adin,)31 b(JETP)j(Lett.)f +Fo(33)f Fw(\(1981\))g(269)0 855 y([Nil87])239 b(B.)26 +b(Nilsson-Almqvist)e(and)i(E.)h(Stenlund,)h(Computer)e(Ph)m(ysics)i +(Comm)m(un.)d Fo(43)i Fw(\(1987\))520 964 y(387;)520 +1072 y(H.)33 b(Pi,)f(Computer)h(Ph)m(ysics)h(Comm)m(un.)e +Fo(71)h Fw(\(1992\))e(173)0 1263 y([Ols80])226 b(H.A.)33 +b(Olsen,)g(P)-8 b(.)33 b(Osland)f(and)g(I.)h(\037v)m(erb\034,)h(Nucl.)e +(Ph)m(ys.)j Fo(B171)d Fw(\(1980\))f(209)0 1455 y([OP)-8 +b(A91])161 b(OP)-8 b(AL)33 b(Collab)s(oration,)c(M.Z.)k(Akra)m(wy)h(et) +f(al.,)e(Z.)h(Ph)m(ys.)j Fo(C49)d Fw(\(1991\))g(375)0 +1646 y([OP)-8 b(A92])161 b(OP)-8 b(AL)33 b(Collab)s(oration,)c(P)-8 +b(.D.)33 b(Acton)f(et)h(al.,)f(Ph)m(ys.)i(Lett.)f Fo(B276)f +Fw(\(1992\))g(547)0 1837 y([Ow)m(e84])182 b(J.F.)33 b(Ow)m(ens,)h(Ph)m +(ys.)g(Rev.)g Fo(D30)e Fw(\(1984\))g(943)0 2029 y([P)m(ar78])218 +b(G.)32 b(P)m(arisi,)g(Ph)m(ys.)i(Lett.)f Fo(74B)f Fw(\(1978\))g(65;) +520 2137 y(J.F.)h(Donogh)m(ue,)f(F.E.)h(Lo)m(w)g(and)g(S.Y.)g(Pi,)f(Ph) +m(ys.)i(Rev.)g Fo(D20)e Fw(\(1979\))g(2759)0 2329 y([PDG86])150 +b(P)m(article)32 b(Data)f(Group,)i(M.)g(Aguilar-Benitez)d(et)j(al.,)e +(Ph)m(ys.)k(Lett.)e Fo(B170)f Fw(\(1986\))f(1)0 2520 +y([PDG88])150 b(P)m(article)32 b(Data)f(Group,)i(G.)f(P)-8 +b(.)33 b(Y)-8 b(ost)32 b(et)h(al.,)f(Ph)m(ys.)i(Lett.)f +Fo(B204)f Fw(\(1988\))g(1)0 2711 y([PDG92])150 b(P)m(article)32 +b(Data)f(Group,)i(K.)f(Hik)-5 b(asa)32 b(et)h(al.,)e(Ph)m(ys.)k(Rev.)e +Fo(D45)g Fw(\(1992\))e(S1)0 2903 y([P)m(et83])224 b(C.)34 +b(P)m(eterson,)h(D.)e(Sc)m(hlatter,)g(I.)g(Sc)m(hmitt)g(and)g(P)-8 +b(.)33 b(Zerw)m(as,)i(Ph)m(ys.)g(Rev.)e Fo(D27)h Fw(\(1983\))520 +3011 y(105)0 3202 y([P)m(et88])224 b(U.)33 b(P)m(ettersson,)i(LU)d(TP)i +(88-5)d(\(1988\);)520 3311 y(L.)i(L\177)-49 b(onn)m(blad)32 +b(and)h(U.)f(P)m(ettersson,)j(LU)e(TP)g(88-15)e(\(1988\);)520 +3419 y(L.)i(L\177)-49 b(onn)m(blad,)32 b(Computer)h(Ph)m(ysics)h(Comm)m +(un.)e Fo(71)h Fw(\(1992\))e(15)0 3610 y([Plo93])225 +b(H.)33 b(Plotho)m(w-Besc)m(h,)h(Computer)e(Ph)m(ysics)j(Comm)m(un.)d +Fo(75)g Fw(\(1993\))g(396)0 3802 y([Sam91])183 b(M.A.)39 +b(Sam)m(uel,)g(G.)g(Li,)g(N.)f(Sinha,)i(R.)e(Sinha)g(and)g(M.K.)h +(Sundaresan,)i(Ph)m(ys.)g(Rev.)520 3910 y(Lett.)33 b +Fo(67)g Fw(\(1991\))e(9;)h(ERRA)-8 b(TUM)34 b Fi(ibid.)e +Fw(2920)0 4101 y([Sc)m(h80])220 b(G.)32 b(Sc)m(hierholz)h(and)f(D.H.)h +(Sc)m(hiller,)e(DESY)i(80/88)e(\(1980\);)520 4210 y(J.G.)i(K\177)-49 +b(orner)32 b(and)h(D.H.)f(Sc)m(hiller,)f(DESY)i(81-043)e(\(1981\);)520 +4318 y(K.)i(Koller,)d(D.H.)j(Sc)m(hiller)e(and)h(D.)h(W\177)-49 +b(ahner,)33 b(Z.)f(Ph)m(ys.)j Fo(C12)d Fw(\(1982\))g(273)0 +4510 y([Sc)m(h92])220 b(G.A.)34 b(Sc)m(h)m(uler)i(and)e(J.)h(T)-8 +b(erron,)35 b(in)f(`Ph)m(ysics)i(at)f(HERA',)g(eds.)g(W.)g(Buc)m(hm)s +(\177)-51 b(uller)32 b(and)520 4618 y(G.)g(Ingelman)g(\(DESY,)g(Ham)m +(burg,)h(1992\),)e(V)-8 b(ol.)32 b(1,)g(p.)h(599)0 4809 +y([Sc)m(h93])220 b(G.A.)33 b(Sc)m(h)m(uler)g(and)g(T.)g(Sj\177)-49 +b(ostrand,)33 b(Ph)m(ys.)h(Lett.)f Fo(B300)f Fw(\(1993\))g(169)0 +5001 y([Sc)m(h93a])171 b(G.A.)33 b(Sc)m(h)m(uler)g(and)g(T.)g(Sj\177) +-49 b(ostrand,)33 b(Nucl.)f(Ph)m(ys.)i Fo(B407)f Fw(\(1993\))e(539)0 +5192 y([Sc)m(h94])220 b(G.A.)33 b(Sc)m(h)m(uler)g(and)g(T.)g(Sj\177)-49 +b(ostrand,)33 b(Ph)m(ys.)h(Rev.)f Fo(D49)g Fw(\(1994\))e(2257)0 +5383 y([Sc)m(h94a])171 b(G.A.)38 b(Sc)m(h)m(uler)g(and)g(T.)h(Sj\177) +-49 b(ostrand,)39 b(in)e(`W)-8 b(orkshop)39 b(on)f(Tw)m(o-Photon)g(Ph)m +(ysics)i(from)520 5492 y(D)m(APHNE)45 b(to)g(LEP200)f(and)h(Bey)m +(ond',)k(eds.)c(F.)f(Kapusta)h(and)f(J.)h(P)m(arisi)e(\(W)-8 +b(orld)520 5600 y(Scien)m(ti\014c,)33 b(Singap)s(ore,)e(1994\),)h(p.)h +(163)1817 5953 y(320)p eop +%%Page: 321 327 +321 326 bop 0 -18 a Fw([Sc)m(h95])220 b(G.A.)33 b(Sc)m(h)m(uler)g(and)g +(T.)g(Sj\177)-49 b(ostrand,)33 b(Z.)f(Ph)m(ys.)i Fo(C68)f +Fw(\(1995\))e(607.)0 172 y([Sc)m(h97])220 b(G.A.)33 b(Sc)m(h)m(uler)g +(and)g(T.)g(Sj\177)-49 b(ostrand,)33 b(Z.)f(Ph)m(ys.)i +Fo(C73)f Fw(\(1997\))e(677.)0 363 y([Sj\177)-49 b(o78])235 +b(T.)33 b(Sj\177)-49 b(ostrand,)33 b(B.)g(S\177)-49 b(oderb)s(erg,)33 +b(LU)f(TP)i(78-18)d(\(1978\))0 554 y([Sj\177)-49 b(o79])235 +b(T.)33 b(Sj\177)-49 b(ostrand,)33 b(LU)g(TP)g(79-8)e(\(1979\))0 +745 y([Sj\177)-49 b(o80])235 b(T.)33 b(Sj\177)-49 b(ostrand,)33 +b(LU)g(TP)g(80-3)e(\(1980\))0 935 y([Sj\177)-49 b(o82])235 +b(T.)33 b(Sj\177)-49 b(ostrand,)33 b(Computer)g(Ph)m(ysics)h(Comm)m +(un.)e Fo(27)h Fw(\(1982\))e(243)0 1126 y([Sj\177)-49 +b(o83])235 b(T.)33 b(Sj\177)-49 b(ostrand,)33 b(Computer)g(Ph)m(ysics)h +(Comm)m(un.)e Fo(28)h Fw(\(1983\))e(229)0 1317 y([Sj\177)-49 +b(o84])235 b(T.)33 b(Sj\177)-49 b(ostrand,)33 b(Nucl.)g(Ph)m(ys.)h +Fo(B248)e Fw(\(1984\))g(469)0 1508 y([Sj\177)-49 b(o84a])186 +b(T.)33 b(Sj\177)-49 b(ostrand,)33 b(Z.)f(Ph)m(ys.)j +Fo(C26)d Fw(\(1984\))g(93;)520 1616 y(M.)h(Bengtsson,)h(T.)f(Sj\177)-49 +b(ostrand)33 b(and)g(M.)g(v)-5 b(an)32 b(Zijl,)e(Ph)m(ys.)35 +b(Lett.)e Fo(B179)f Fw(\(1986\))f(164)0 1807 y([Sj\177)-49 +b(o85])235 b(T.)33 b(Sj\177)-49 b(ostrand,)33 b(Ph)m(ys.)i(Lett.)d +Fo(157B)h Fw(\(1985\))e(321;)520 1915 y(M.)i(Bengtsson,)h(T.)f(Sj\177) +-49 b(ostrand)33 b(and)g(M.)g(v)-5 b(an)32 b(Zijl,)e(Z.)j(Ph)m(ys.)h +Fo(C32)f Fw(\(1986\))e(67)0 2106 y([Sj\177)-49 b(o86])235 +b(T.)33 b(Sj\177)-49 b(ostrand,)33 b(Computer)g(Ph)m(ysics)h(Comm)m +(un.)e Fo(39)h Fw(\(1986\))e(347)0 2297 y([Sj\177)-49 +b(o87])235 b(T.)33 b(Sj\177)-49 b(ostrand)33 b(and)g(M.)g(Bengtsson,)h +(Computer)e(Ph)m(ysics)j(Comm)m(un.)d Fo(43)g Fw(\(1987\))g(367)0 +2487 y([Sj\177)-49 b(o87a])186 b(T.)33 b(Sj\177)-49 b(ostrand)33 +b(and)g(M.)g(v)-5 b(an)32 b(Zijl,)e(Ph)m(ys.)35 b(Rev.)e +Fo(D36)g Fw(\(1987\))e(2019)0 2678 y([Sj\177)-49 b(o88])235 +b(T.)33 b(Sj\177)-49 b(ostrand,)33 b(In)m(t.)g(J.)g(Mo)s(d.)g(Ph)m(ys.) +h Fo(A3)e Fw(\(1988\))g(751)0 2869 y([Sj\177)-49 b(o89])235 +b(T.)37 b(Sj\177)-49 b(ostrand)36 b(et)g(al.,)g(in)f(`Z)g(ph)m(ysics)j +(at)d(LEP)i(1',)g(eds.)g(G.)e(Altarelli,)e(R.)j(Kleiss)f(and)520 +2977 y(C.)e(V)-8 b(erzegnassi,)34 b(CERN)f(89-08)e(\(Genev)-5 +b(a,)33 b(1989\),)f(V)-8 b(ol.)31 b(3,)h(p.)h(143)0 3168 +y([Sj\177)-49 b(o92])235 b(T.)37 b(Sj\177)-49 b(ostrand,)37 +b(in)f(`1991)f(CERN)i(Sc)m(ho)s(ol)e(of)h(Computing',)g(ed.)h(C.)g(V)-8 +b(erk)m(erk,)39 b(CERN)520 3276 y(92-02)31 b(\(Genev)-5 +b(a,)33 b(1992\),)f(p.)h(227)0 3467 y([Sj\177)-49 b(o92a])186 +b(T.)35 b(Sj\177)-49 b(ostrand)35 b(and)g(P)-8 b(.M.)36 +b(Zerw)m(as,)g(in)e(`e)2064 3431 y Fl(+)2123 3467 y Fw(e)2166 +3431 y Fk(\000)2261 3467 y Fw(Collisions)e(at)i(500)g(GeV:)h(The)h(Ph)m +(ysics)520 3576 y(P)m(oten)m(tial',)c(ed)h(P)-8 b(.M.)33 +b(Zerw)m(as,)h(DESY)f(92-123)e(\(Ham)m(burg,)h(1992\),)f(P)m(art)i(A,)g +(p.)g(463;)520 3684 y(T.)c(Sj\177)-49 b(ostrand,)29 b(in)f(`Pro)s +(ceedings)h(of)e(the)i(1992)e(W)-8 b(orkshops)30 b(on)e(High-Energy)g +(Ph)m(ysics)520 3792 y(with)44 b(Colliding)e(Beams',)47 +b(ed.)e(J.)g(Rogers,)j(SLA)m(C)d(Rep)s(ort-428)e(\(Stanford,)k(1993\),) +520 3901 y(V)-8 b(ol.)32 b(2,)g(p.)h(445;)520 4009 y(V.A.)g(Khoze)g +(and)g(T.)g(Sj\177)-49 b(ostrand,)33 b(Ph)m(ys.)h(Lett.)f +Fo(B328)f Fw(\(1994\))g(466)0 4200 y([Sj\177)-49 b(o92b])181 +b(T.)44 b(Sj\177)-49 b(ostrand,)45 b(in)e(`Ph)m(ysics)h(at)f(HERA',)g +(eds.)h(W)f(Buc)m(hm)s(\177)-51 b(uller)41 b(and)i(G.)g(Ingelman)520 +4308 y(\(DESY,)33 b(Ham)m(burg,)f(1992\),)g(V)-8 b(ol.)31 +b(3,)i(p.)f(1405)0 4499 y([Sj\177)-49 b(o92c])192 b(T.)59 +b(Sj\177)-49 b(ostrand,)66 b(in)58 b(`W)-8 b(orkshop)60 +b(on)e(Photon)h(Radiation)d(from)i(Quarks',)66 b(ed.)59 +b(S.)520 4607 y(Cart)m(wrigh)m(t,)33 b(CERN)g(92-04)e(\(Genev)-5 +b(a,)33 b(1992\),)f(p.)h(89)f(and)g(p.)h(103)0 4798 y([Sj\177)-49 +b(o92d])181 b(T.)33 b(Sj\177)-49 b(ostrand,)33 b(CERN-TH.6488/92)f +(\(1992\))0 4989 y([Sj\177)-49 b(o94])235 b(T.)33 b(Sj\177)-49 +b(ostrand,)33 b(Computer)g(Ph)m(ysics)h(Comm)m(un.)e +Fo(82)h Fw(\(1994\))e(74)0 5179 y([Ste81])233 b(P)-8 +b(.M.)34 b(Stev)m(enson,)g(Ph)m(ys.)h(Rev.)e Fo(D23)g +Fw(\(1981\))e(2916)0 5370 y([Sud56])206 b(V.V.)33 b(Sudak)m(o)m(v,)h +(Zh.E.T.F.)g Fo(30)e Fw(\(1956\))g(87)g(\(So)m(v.)h(Ph)m(ys.)i(J.E.T.P) +-8 b(.)34 b Fo(30)e Fw(\(1956\))g(65\))0 5561 y([UA183])173 +b(UA1)33 b(Collab)s(oration,)c(G.)j(Arnison)g(et)h(al.,)f(Ph)m(ys.)i +(Lett.)f Fo(123B)f Fw(\(1983\))g(115;)520 5669 y(UA1)h(Collab)s +(oration,)c(C.)k(Alba)5 b(jar)32 b(et)g(al.,)g(Nucl.)g(Ph)m(ys.)j +Fo(B309)d Fw(\(1988\))g(405)1817 5953 y(321)p eop +%%Page: 322 328 +322 327 bop 0 -18 a Fw([V)-8 b(er81])222 b(J.A.M.)46 +b(V)-8 b(ermaseren,)49 b(K.J.F.)c(Gaemers)g(and)g(S.J.)h(Oldham,)h +(Nucl.)e(Ph)m(ys.)i Fo(B187)520 90 y Fw(\(1981\))32 b(301)0 +281 y([W)-8 b(eb86])179 b(B.R.)33 b(W)-8 b(ebb)s(er,)33 +b(Ann.)g(Rev.)h(Nucl.)e(P)m(art.)h(Sci.)f Fo(36)h Fw(\(1986\))e(253)0 +473 y([W)-8 b(u79])222 b(S.L.)33 b(W)-8 b(u)33 b(and)g(G.)f(Zob)s +(ernig,)f(Z.)h(Ph)m(ys..)j Fo(C2)d Fw(\(1979\))g(107)0 +664 y([W)-8 b(ud86])168 b(J.)33 b(W)-8 b(udk)j(a,)33 +b(Ph)m(ys.)h(Lett.)f Fo(167B)f Fw(\(1986\))g(337)0 855 +y([Za)5 b(j87])224 b(W.A.)33 b(Za)5 b(jc,)33 b(Ph)m(ys.)h(Rev.)f +Fo(D35)g Fw(\(1987\))e(3396)0 1047 y([Zh)m(u83])203 b(R.-y)-8 +b(.)25 b(Zh)m(u,)j(Ph.)e(D.)f(Thesis)h(\(M.I.T.\),)i(MIT-LNS)e(Rep)s +(ort)f(RX-1033)f(\(1983\);)j(Caltec)m(h)520 1155 y(Rep)s(ort)g(CAL)-8 +b(T-68-1306;)27 b(in)f(Pro)s(ceedings)i(of)e(the)h(1984)f(DPF)h +(conference,)j(San)m(ta)d(F)-8 b(e,)520 1263 y(p.)33 +b(229;)f(in)g(Pro)s(ceedings)h(of)f(1985)g(DPF)g(conference,)i(Oregon,) +e(p.)h(552)1817 5953 y(322)p eop +%%Page: 323 329 +323 328 bop 0 -18 a Ft(Index)53 b(of)h(Subprograms)d(and)j(Common)d +(Blo)t(c)l(k)j(V)-13 b(ariables)0 189 y Fw(This)30 b(index)g(is)f(not)h +(in)m(tended)h(to)e(b)s(e)h(complete,)g(but)g(giv)m(es)g(the)h(page)e +(where)j(the)e(main)e(description)0 297 y(b)s(egins)22 +b(of)g(a)g(subroutine,)j(function,)f(blo)s(c)m(k)f(data,)h(common)d +(blo)s(c)m(k,)j(v)-5 b(ariable)21 b(or)h(arra)m(y)-8 +b(.)40 b(F)-8 b(or)22 b(common)0 405 y(blo)s(c)m(k)34 +b(v)-5 b(ariables)34 b(also)f(the)i(name)f(of)h(the)g(common)e(blo)s(c) +m(k)h(is)g(giv)m(en.)50 b(When)35 b(some)g(comp)s(onen)m(ts)g(of)0 +514 y(an)h(arra)m(y)g(are)h(describ)s(ed)g(in)e(a)h(separate)h(place,)g +(a)f(sp)s(ecial)f(reference)j(\(inden)m(ted)f(with)e(resp)s(ect)j(to)0 +622 y(the)33 b(main)e(one\))i(is)f(giv)m(en)g(for)g(these)i(comp)s +(onen)m(ts.)0 784 y Fq(BRAT)g Fw(in)d Fq(LUDAT3)850 b +Fw(283)0 893 y Fq(CHAF)34 b Fw(in)d Fq(LUDAT4)850 b Fw(284)0 +1001 y Fq(CKIN)34 b Fw(in)d Fq(PYSUBS)850 b Fw(145)0 +1109 y Fq(COEF)34 b Fw(in)d Fq(PYINT2)850 b Fw(185)0 +1218 y Fq(DXSEC)34 b Fw(in)e Fq(PYINT9)798 b Fw(188)0 +1326 y Fq(HEPEVT)34 b Fw(common)d(blo)s(c)m(k)601 b(64)0 +1434 y Fq(ICOL)34 b Fw(in)d Fq(PYINT2)850 b Fw(186)0 +1543 y Fq(IFUP)34 b Fw(in)d Fq(PYUPPR)850 b Fw(172)0 +1651 y Fq(ISET)34 b Fw(in)d Fq(PYINT2)850 b Fw(185)0 +1759 y Fq(ISIG)34 b Fw(in)d Fq(PYINT3)850 b Fw(186)0 +1868 y Fq(K)33 b Fw(in)f Fq(LUJETS)1052 b Fw(59)0 1976 +y Fq(KCHG)34 b Fw(in)d Fq(LUDAT2)850 b Fw(278)0 2085 +y Fq(KFDP)34 b Fw(in)d Fq(LUDAT3)850 b Fw(284)0 2193 +y Fq(KFIN)34 b Fw(in)d Fq(PYSUBS)850 b Fw(145)0 2301 +y Fq(KFPR)34 b Fw(in)d Fq(PYINT2)850 b Fw(185)0 2410 +y Fq(KLU)33 b Fw(function)971 b(263)0 2518 y Fq(KUP)33 +b Fw(in)f Fq(PYUPPR)901 b Fw(171)0 2626 y Fq(LU1ENT)34 +b Fw(subroutine)717 b(254)0 2735 y Fq(LU2ENT)34 b Fw(subroutine)717 +b(254)0 2843 y Fq(LU3ENT)34 b Fw(subroutine)717 b(255)0 +2951 y Fq(LU4ENT)34 b Fw(subroutine)717 b(255)0 3060 +y Fq(LUBOEI)34 b Fw(subroutine)717 b(257)0 3168 y Fq(LUCELL)34 +b Fw(subroutine)717 b(303)0 3276 y Fq(LUCHGE)34 b Fw(function)817 +b(257)0 3385 y Fq(LUCLUS)34 b Fw(subroutine)717 b(302)0 +3493 y Fq(LUCOMP)34 b Fw(function)817 b(257)0 3601 y +Fq(LUDAT1)34 b Fw(common)d(blo)s(c)m(k)552 b(264)0 3710 +y Fq(LUDAT2)34 b Fw(common)d(blo)s(c)m(k)552 b(278)0 +3818 y Fq(LUDAT3)34 b Fw(common)d(blo)s(c)m(k)552 b(280)0 +3926 y Fq(LUDAT4)34 b Fw(common)d(blo)s(c)m(k)552 b(284)0 +4035 y Fq(LUDATA)34 b Fw(blo)s(c)m(k)f(data)719 b(258)0 +4143 y Fq(LUDATR)34 b Fw(common)d(blo)s(c)m(k)601 b(50)0 +4251 y Fq(LUDBRB)34 b Fw(subroutine)717 b(259)0 4360 +y Fq(LUDECY)34 b Fw(subroutine)717 b(257)0 4468 y Fq(LUEDIT)34 +b Fw(subroutine)717 b(259)0 4576 y Fq(LUEEVT)34 b Fw(subroutine)766 +b(79)0 4685 y Fq(LUERRM)34 b Fw(subroutine)717 b(258)0 +4793 y Fq(LUEXEC)34 b Fw(subroutine)717 b(257)0 4901 +y Fq(LUFOWO)34 b Fw(subroutine)717 b(304)0 5010 y Fq(LUGIVE)34 +b Fw(subroutine)717 b(256)0 5118 y Fq(LUHEPC)34 b Fw(subroutine)766 +b(66)0 5226 y Fq(LUINDF)34 b Fw(subroutine)717 b(257)0 +5335 y Fq(LUJETS)34 b Fw(common)d(blo)s(c)m(k)601 b(59)0 +5443 y Fq(LUJMAS)34 b Fw(subroutine)717 b(304)0 5551 +y Fq(LUJOIN)34 b Fw(subroutine)717 b(255)2126 784 y Fq(LUKFDI)34 +b Fw(subroutine)717 b(257)2126 893 y Fq(LULIST)34 b Fw(subroutine)717 +b(261)2126 1001 y Fq(LULOGO)34 b Fw(subroutine)717 b(258)2126 +1109 y Fq(LUNAME)34 b Fw(subroutine)717 b(257)2126 1218 +y Fq(LUONIA)34 b Fw(subroutine)766 b(80)2126 1326 y Fq(LUPREP)34 +b Fw(subroutine)717 b(257)2126 1434 y Fq(LUPTDI)34 b +Fw(subroutine)717 b(257)2126 1543 y Fq(LURADK)34 b Fw(subroutine)766 +b(79)2126 1651 y Fq(LUROBO)34 b Fw(subroutine)717 b(259)2126 +1759 y Fq(LUSHOW)34 b Fw(subroutine)717 b(206)2126 1868 +y Fq(LUSPHE)34 b Fw(subroutine)717 b(301)2126 1976 y +Fq(LUSTRF)34 b Fw(subroutine)717 b(257)2126 2085 y Fq(LUTABU)34 +b Fw(subroutine)717 b(305)2126 2193 y Fq(LUTAUD)34 b +Fw(subroutine)717 b(258)2126 2301 y Fq(LUTEST)34 b Fw(subroutine)766 +b(33)2126 2410 y Fq(LUTHRU)34 b Fw(subroutine)717 b(302)2126 +2518 y Fq(LUUPDA)34 b Fw(subroutine)717 b(262)2126 2626 +y Fq(LUX3JT)34 b Fw(subroutine)766 b(80)2126 2735 y Fq(LUX4JT)34 +b Fw(subroutine)766 b(80)2126 2843 y Fq(LUXDIF)34 b Fw(subroutine)766 +b(80)2126 2951 y Fq(LUXJET)34 b Fw(subroutine)766 b(80)2126 +3060 y Fq(LUXKFL)34 b Fw(subroutine)766 b(79)2126 3168 +y Fq(LUXTOT)34 b Fw(subroutine)766 b(79)2126 3276 y Fq(LUZDIS)34 +b Fw(subroutine)717 b(257)2126 3385 y Fq(MDCY)34 b Fw(in)d +Fq(LUDAT3)850 b Fw(280)2126 3493 y Fq(MDME)34 b Fw(in)d +Fq(LUDAT3)850 b Fw(281)2126 3601 y Fq(MINT)34 b Fw(in)d +Fq(PYINT1)850 b Fw(178)2126 3710 y Fq(MRLU)34 b Fw(in)d +Fq(LUDATR)899 b Fw(50)2126 3818 y Fq(MSEL)34 b Fw(in)d +Fq(PYSUBS)850 b Fw(144)2126 3926 y Fq(MSTI)34 b Fw(in)d +Fq(PYPARS)850 b Fw(165)2126 4035 y Fq(MSTJ)34 b Fw(in)d +Fq(LUDAT1)p Fw(,)k(main)575 b(268)2224 4143 y Fq(MSTJ\(40\))53 +b(-)e(MSTJ\(50\))438 b Fw(207)2224 4251 y Fq(MSTJ\(101\))53 +b(-)f(MSTJ\(121\))384 b Fw(80)2126 4360 y Fq(MSTP)34 +b Fw(in)d Fq(PYPARS)p Fw(,)k(main)575 b(149)2224 4468 +y Fq(MSTP\(22\))1001 b Fw(210)2224 4576 y Fq(MSTP\(61\))53 +b(-)e(MSTP\(71\))438 b Fw(210)2224 4685 y Fq(MSTP\(81\))53 +b(-)e(MSTP\(94\))438 b Fw(224)2224 4793 y Fq(MSTP\(131\))53 +b(-)f(MSTP\(134\))335 b Fw(226)2126 4901 y Fq(MSTU)34 +b Fw(in)d Fq(LUDAT1)p Fw(,)k(main)575 b(265)2224 5010 +y Fq(MSTU\(41\))53 b(-)e(MSTU\(63\))438 b Fw(308)2224 +5118 y Fq(MSTU\(101\))53 b(-)f(MSTU\(118\))335 b Fw(275)2224 +5226 y Fq(MSTU\(161\))53 b(-)f(MSTU\(162\))335 b Fw(310)2126 +5335 y Fq(MSUB)34 b Fw(in)d Fq(PYSUBS)850 b Fw(145)2126 +5443 y Fq(N)33 b Fw(in)f Fq(LUJETS)1052 b Fw(59)2126 +5551 y Fq(NFUP)34 b Fw(in)d Fq(PYUPPR)850 b Fw(172)1817 +5953 y(323)p eop +%%Page: 324 330 +324 329 bop 0 -18 a Fq(NGEN)34 b Fw(in)d Fq(PYINT5)850 +b Fw(187)0 90 y Fq(NUP)33 b Fw(in)f Fq(PYUPPR)901 b Fw(171)0 +198 y Fq(P)33 b Fw(in)f Fq(LUJETS)1052 b Fw(60)0 307 +y Fq(PARF)34 b Fw(in)d Fq(LUDAT2)850 b Fw(279)0 415 y +Fq(PARI)34 b Fw(in)d Fq(PYPARS)850 b Fw(166)0 523 y Fq(PARJ)34 +b Fw(in)d Fq(LUDAT1)p Fw(,)k(main)575 b(271)98 632 y +Fq(PARJ\(81\))53 b(-)e(PARJ\(89\))438 b Fw(209)98 740 +y Fq(PARJ\(121\))53 b(-)f(PARJ\(171\))384 b Fw(83)0 848 +y Fq(PARP)34 b Fw(in)d Fq(PYPARS)p Fw(,)k(main)575 b(162)98 +957 y Fq(PARP\(61\))53 b(-)e(PARP\(72\))438 b Fw(211)98 +1065 y Fq(PARP\(81\))53 b(-)e(PARP\(100\))387 b Fw(227)98 +1173 y Fq(PARP\(131\))950 b Fw(228)0 1282 y Fq(PARU)34 +b Fw(in)d Fq(LUDAT1)p Fw(,)k(main)575 b(267)98 1390 y +Fq(PARU\(41\))53 b(-)e(PARU\(63\))438 b Fw(310)98 1498 +y Fq(PARU\(101\))53 b(-)f(PARU\(195\))335 b Fw(275)0 +1607 y Fq(PLU)33 b Fw(function)971 b(264)0 1715 y Fq(PMAS)34 +b Fw(in)d Fq(LUDAT2)850 b Fw(278)0 1823 y Fq(PROC)34 +b Fw(in)d Fq(PYINT6)850 b Fw(187)0 1932 y Fq(PUP)33 b +Fw(in)f Fq(PYUPPR)901 b Fw(171)0 2040 y Fq(PYCTQ2)34 +b Fw(function)817 b(178)0 2148 y Fq(PYDATA)34 b Fw(blo)s(c)m(k)f(data) +719 b(178)0 2257 y Fq(PYDIFF)34 b Fw(subroutine)717 b(177)0 +2365 y Fq(PYDOCU)34 b Fw(subroutine)717 b(177)0 2473 +y Fq(PYEVNT)34 b Fw(subroutine)717 b(140)0 2582 y Fq(PYEVWT)34 +b Fw(subroutine)717 b(142)0 2690 y Fq(PYFRAM)34 b Fw(subroutine)717 +b(141)0 2798 y Fq(PYGANO)34 b Fw(function)817 b(177)0 +2907 y Fq(PYGBEH)34 b Fw(function)817 b(177)0 3015 y +Fq(PYGDIR)34 b Fw(function)817 b(177)0 3123 y Fq(PYGAMM)34 +b Fw(function)817 b(178)0 3232 y Fq(PYGGAM)34 b Fw(function)817 +b(177)0 3340 y Fq(PYGVMD)34 b Fw(function)817 b(177)0 +3448 y Fq(PYHFTH)34 b Fw(function)817 b(178)0 3557 y +Fq(PYI3AU)34 b Fw(subroutine)717 b(178)0 3665 y Fq(PYINBM)34 +b Fw(subroutine)717 b(176)0 3774 y Fq(PYINIT)34 b Fw(subroutine)717 +b(139)0 3882 y Fq(PYINKI)34 b Fw(subroutine)717 b(176)0 +3990 y Fq(PYINPR)34 b Fw(subroutine)717 b(176)0 4099 +y Fq(PYINRE)34 b Fw(subroutine)717 b(176)0 4207 y Fq(PYINT1)34 +b Fw(common)d(blo)s(c)m(k)552 b(178)0 4315 y Fq(PYINT2)34 +b Fw(common)d(blo)s(c)m(k)552 b(184)0 4424 y Fq(PYINT3)34 +b Fw(common)d(blo)s(c)m(k)552 b(186)0 4532 y Fq(PYINT4)34 +b Fw(common)d(blo)s(c)m(k)552 b(186)0 4640 y Fq(PYINT5)34 +b Fw(common)d(blo)s(c)m(k)552 b(187)0 4749 y Fq(PYINT6)34 +b Fw(common)d(blo)s(c)m(k)552 b(187)0 4857 y Fq(PYINT7)34 +b Fw(common)d(blo)s(c)m(k)552 b(187)0 4965 y Fq(PYINT8)34 +b Fw(common)d(blo)s(c)m(k)552 b(188)0 5074 y Fq(PYINT9)34 +b Fw(common)d(blo)s(c)m(k)552 b(188)0 5182 y Fq(PYKCUT)34 +b Fw(subroutine)717 b(141)0 5290 y Fq(PYKLIM)34 b Fw(subroutine)717 +b(177)0 5399 y Fq(PYKMAP)34 b Fw(subroutine)717 b(177)0 +5507 y Fq(PYMAXI)34 b Fw(subroutine)717 b(176)0 5615 +y Fq(PYMULT)34 b Fw(subroutine)717 b(177)2126 -18 y Fq(PYOFSH)34 +b Fw(subroutine)717 b(177)2126 90 y Fq(PYPARS)34 b Fw(common)d(blo)s(c) +m(k)346 b(148,)32 b(164)2126 198 y Fq(PYPILE)i Fw(subroutine)717 +b(176)2126 307 y Fq(PYQQBH)34 b Fw(subroutine)717 b(178)2126 +415 y Fq(PYRAND)34 b Fw(subroutine)717 b(177)2126 523 +y Fq(PYREMN)34 b Fw(subroutine)717 b(177)2126 632 y Fq(PYRESD)34 +b Fw(subroutine)717 b(177)2126 740 y Fq(PYSAVE)34 b Fw(subroutine)717 +b(176)2126 848 y Fq(PYSCAT)34 b Fw(subroutine)717 b(177)2126 +957 y Fq(PYSIGH)34 b Fw(subroutine)717 b(177)2126 1065 +y Fq(PYSPEN)34 b Fw(function)817 b(178)2126 1173 y Fq(PYSPLI)34 +b Fw(subroutine)717 b(178)2126 1282 y Fq(PYSSPA)34 b +Fw(subroutine)717 b(207)2126 1390 y Fq(PYSTAT)34 b Fw(subroutine)717 +b(141)2126 1498 y Fq(PYSTEL)34 b Fw(subroutine)717 b(177)2126 +1607 y Fq(PYSTFL)34 b Fw(subroutine)717 b(177)2126 1715 +y Fq(PYSTFU)34 b Fw(subroutine)717 b(177)2126 1823 y +Fq(PYSTGA)34 b Fw(subroutine)717 b(177)2126 1932 y Fq(PYSTPI)34 +b Fw(subroutine)717 b(178)2126 2040 y Fq(PYSTPR)34 b +Fw(subroutine)717 b(178)2126 2148 y Fq(PYSUBS)34 b Fw(common)d(blo)s(c) +m(k)552 b(144)2126 2257 y Fq(PYTEST)34 b Fw(subroutine)766 +b(33)2126 2365 y Fq(PYUPEV)34 b Fw(subroutine)717 b(169)2126 +2473 y Fq(PYUPIN)34 b Fw(subroutine)717 b(169)2126 2582 +y Fq(PYUPPR)34 b Fw(common)d(blo)s(c)m(k)552 b(171)2126 +2690 y Fq(PYWAUX)34 b Fw(subroutine)717 b(178)2126 2798 +y Fq(PYWIDT)34 b Fw(subroutine)717 b(177)2126 2907 y +Fq(PYXTOT)34 b Fw(subroutine)717 b(176)2126 3015 y Fq(Q2UP)34 +b Fw(in)d Fq(PYUPPR)850 b Fw(172)2126 3123 y Fq(RLU)33 +b Fw(function)1020 b(49)2126 3232 y Fq(RLUGET)34 b Fw(subroutine)766 +b(49)2126 3340 y Fq(RLUSET)34 b Fw(subroutine)766 b(50)2126 +3448 y Fq(RRLU)34 b Fw(in)d Fq(LUDATR)899 b Fw(51)2126 +3557 y Fq(SIGH)34 b Fw(in)d Fq(PYINT3)850 b Fw(186)2126 +3665 y Fq(SIGT)34 b Fw(in)d Fq(PYINT7)850 b Fw(188)2126 +3774 y Fq(ULALEM)34 b Fw(function)817 b(274)2126 3882 +y Fq(ULALPS)34 b Fw(function)817 b(275)2126 3990 y Fq(ULANGL)34 +b Fw(function)817 b(258)2126 4099 y Fq(ULMASS)34 b Fw(function)817 +b(257)2126 4207 y Fq(V)33 b Fw(in)f Fq(LUJETS)1052 b +Fw(60)2126 4315 y Fq(VCKM)34 b Fw(in)d Fq(LUDAT2)850 +b Fw(280)2126 4424 y Fq(VINT)34 b Fw(in)d Fq(PYINT1)850 +b Fw(181)2126 4532 y Fq(WIDE)34 b Fw(in)d Fq(PYINT4)850 +b Fw(186)2126 4640 y Fq(WIDP)34 b Fw(in)d Fq(PYINT4)850 +b Fw(186)2126 4749 y Fq(WIDS)34 b Fw(in)d Fq(PYINT4)850 +b Fw(186)2126 4857 y Fq(XPANH)34 b Fw(in)e Fq(PYINT8)798 +b Fw(188)2126 4965 y Fq(XPANL)34 b Fw(in)e Fq(PYINT8)798 +b Fw(188)2126 5074 y Fq(XPBEH)34 b Fw(in)e Fq(PYINT8)798 +b Fw(188)2126 5182 y Fq(XPDIR)34 b Fw(in)e Fq(PYINT8)798 +b Fw(188)2126 5290 y Fq(XPVMD)34 b Fw(in)e Fq(PYINT8)798 +b Fw(188)2126 5399 y Fq(XSEC)34 b Fw(in)d Fq(PYINT5)850 +b Fw(187)2126 5507 y Fq(XSFX)34 b Fw(in)d Fq(PYINT3)850 +b Fw(186)1817 5953 y(324)p eop +%%Trailer +end +userdict /end-hook known{end-hook}if +%%EOF diff --git a/PYTHIA6/pythia_doc.update b/PYTHIA6/pythia_doc.update new file mode 100644 index 00000000000..fc5c5664739 --- /dev/null +++ b/PYTHIA6/pythia_doc.update @@ -0,0 +1,3345 @@ + **************************** + * * + * PYTHIA version 6.1 * + * * + **************************** + + (Last updated 17 August 2000) + +The new PYTHIA version is a logical continuation of previous versions. +Therefore a user should not feel lost. However, many details have been +changed. The major changes (so far) are: +- The supersymmetric process machinery of SPYTHIA has been included. +- PYTHIA and JETSET have been merged. +- All real variables are declared in double precision. +- The internal mapping of particle codes has changed. +- Extended capabilities to handle reactions of virtual photons. +- Baryon production according to advanced popcorn scheme (new option as + of version 6.110, with some consequences also for default behaviour). + +Below follows a more extensive list of main changes, performed to move +from Pythia 5.7 and Jetset 7.4 to Pythia 6.1. Eventually this file +will be complemented by a completely updated manual. However, based +on the information here and some common sense it should be possible +to use the program already now, if you are familiar with previous +versions. + +----------------------------------------------------------------------- + +PYTHIA/JETSET CODE MERGING + +* The PYTHIA and JETSET routines have been joined into one single file. + - LUDATA and PYDATA have been joined to a single BLOCK DATA. + - LUTEST and PYTEST have been joined to a single test program. + - SAVE statements are common for former JETSET and PYTHIA routines. + - version information (for the title page) is based on MSTP(181-185) + while MSTP(186) and MSTU(181-186) are not used any longer. + +* All JETSET routines and commonblocks have been renamed to begin + with PY. + - In most cases just by letting LU -> PY or UL -> PY. + - Special cases: RLU -> PYR (also PYRGET, PYRSET), KLU -> PYK, + PLU -> PYP. Also commonblock and internal variables of the form + *RLU* are replaced by *RPY* (where * represents "wildcard" + characters). + - To declare integer functions, a line INTEGER PYK,PYCHGE,PYCOMP + has been added at the beginning of all routines. + - To avoid a name clash, LUXTOT becomes PYXTEE. + - Some comment lines in code have been modified; also the name + JETSET becomes PYTHIA. + +* Persons who have code that relies on the /LUJETS/ single precision + commonblock could easily write a translation routine to copy the + /PYJETS/ double precision information to /LUJETS/. In fact, only + the LUGIVE and LULOGO routines of JETSET have access to some PYTHIA + commonblocks, and therefore these are the only ones that need to + be modified if one, for some reason, would like to combine the + new PYTHIA with the old JETSET routines. Similarly, it would only + require minor changes in the PYHEPC routine code to allow the + /HEPEVT/ commonblock to be in single precision, as before. + +----------------------------------------------------------------------- + +DOUBLE PRECISION + +* Conversion from single to double precision. + - All real constants by explicitly exchanging E for D where present + and else adding D0. + - All real variables with an IMPLICIT DOUBLE PRECISION(A-H, O-Z) + at beginning of all routines. + - Commonblocks with an odd number of integers before real variables + have been padded with a dummy integer variable or reordered: + COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5) + COMMON/PYSUBS/MSEL,MSELPD,MSUB(200),KFIN(2,-40:40),CKIN(200) + COMMON/PYUPPR/NUP,KUP(20,7),NFUP,IFUP(10,2),PUP(20,5),Q2UP(0:10) + COMMON/PYINT5/NGENPD,NGEN(0:200,3),XSEC(0:200,3) + (In the HARD PROCESSES section below is described further changes; + specifically MSUB, NGEN and XSEC are expanded to 500 processes.) + - Obsolete conversions with DBLE(), SNGL() etc. have been removed. + - pi, 2pi and GeV <-> fm conversion given with more decimals. + - Some blanks have been removed and lines reformatted or split when + lines have become too long. + - PYUPDA(3,..) writes values with D0 added. + - Commonblock /PYINT9/ with differential cross section sum in double + precision is superfluous and has been removed. + - Note that in the Fortran 77 standard COMPLEX cannot be defined + as double precision. COMPLEX is used only very sparingly, and only + in the PYRESD, PYRAND and PYSIGH routines. Some small pieces of code + therefore still use single precision. If you have a compiler + option for automatic promotion of single to double you are + welcome to use it to handle also these parts, but otherwise + they should not be harmful. + +----------------------------------------------------------------------- + +PARTICLE CODES AND DATA + +* Some particles have been renamed: + 7 from l to b' + 8 from h to t' + 17 from chi to tau' + 18 from nu_chi to nu'_tau + 25 from H to h + 35 from H' to H + Furthermore, in all names where a tilde was previously used to + indicate an antiparticle, the previous alternative 'bar' is now + used throughout, both in particle names and process titles + (to avoid confusion with supersymmetry, see below). + +* Some particle codes have been changed according to + the "LEP 2 standard" (see LEP 2 workshop proceedings): + psi' from 30443 to 100443 + Upsilon' from 30553 to 100553 + d* from 7 to 4000001 + u* from 8 to 4000002 + e*- from 17 to 4000011 + nu*_e from 18 to 4000012 + The codes 7, 8, 17 and 18 are now exclusively used for fourth + generation fermions. The switch MSTP(6) is then superfluous. + PYRESD and other code pieces have been rewritten to take into + account the change. + +* Supersymmetric particle codes have been introduced according to + the "LEP 2 standard" (see LEP 2 workshop proceedings): + 1000001 ~d_L 2000001 ~d_R 1000021 ~g + 1000002 ~u_L 2000002 ~u_R 1000022 ~chi_10 + 1000003 ~s_L 2000003 ~s_R 1000023 ~chi_20 + 1000004 ~c_L 2000004 ~c_R 1000024 ~chi_1+ + 1000005 ~b_1 2000005 ~b_2 1000025 ~chi_30 + 1000006 ~t_1 2000006 ~t_2 1000035 ~chi_40 + 1000011 ~e_L- 2000011 ~e_R- 1000037 ~chi_2+ + 1000012 ~nu_eL 2000012 ~nu_eR 1000039 ~G + 1000013 ~mu_L- 2000013 ~mu_R- + 1000014 ~nu_muL 2000014 ~nu_muR + 1000015 ~tau_1- 2000015 ~tau_2- + 1000016 ~nu_tauL 2000016 ~nu_tauR + In the third generation the left and right states are assumed + to mix to nontrivial mass eigenstates, while mixing is not included + in the first two. Note that all sparticle names begin with a tilde. + Default masses are arbitrary and branching ratios not set at all. + This is taken care of at initialization if IMSS(1) is positive + (see below). + +* A hint on large particle numbers: if you want to avoid mistyping + the number of zeros, it may pay off to define a line like + PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000) + at the beginning of your program and then refer to particles as + KSUSY1+1 = ~d_L and so on. This then also agrees with the internal + notation. + +* A number of technicolour particle codes have been added: + 51 pi_tech0 54 rho_tech0 + 52 pi_tech+ 55 rho_tech+ + 53 pi'_tech0 56 omega_tech0 + +* Some new particle codes for doubly charged Higgs production in + left-right-symmetric scenarios. + 61 H_L++ 64 nu_Re + 62 H_R++ 65 nu_Rmu + 63 W_R+ 66 nu_Rtau + The indices _L and _R indicate belonging to left or right SU(2) + gauge group. + +* Top and fourth generation hadrons are gone. Henceforth the t, b' and + t' quarks are always assumed to decay before they would have time to + hadronize. + - All t, b' and t' hadron codes are unknown to the program. + (In a pinch, such a hadron could be represented e.g. by a string + with a top quark and an antiquark or diquark, with string mass + equated to the expected hadron mass.) + - The MSTP(48) and MSTP(49) switches are removed; decay treatment is + as the old default option 2. + - Extra code has been inserted in PYEVNT and PYEXEC to decay any + leftover resonances (including these quarks) before fragmentation + routines are called. + - The particles codes 86 - 89, previously used for generic t, b' and + t' hadron decays are gone. + - The decay channel of particle 17 to 89 is removed, and PYRESD + changed accordingly. + - The PYLIST(11) listing is changed. + - Also the PYLIST(12) listing is changed. The MSTU(14) switch is gone; + restrictions on which codes are listed can only be applied with + MSTU(1) and MSTU(2). + - In the decay description, matrix element codes 45 and 46 are now + superfluous. MSTJ(25) and MSTJ(27) are no longer used, and + MSTJ(23) is less used. + - PYTEST is reduced so it does not involve these hadrons. + +* There is a new scheme to relate the standard KF codes with the + compressed KC codes. + - We remind that KF codes essentially follow the PDG standard for + particle numbering, and with the introduction of SUSY now range up + to seven-digit codes (plus a sign). They therefore cannot be used to + directly access information in particle data tables. The compressed + KC codes range between 1 and 500, and give the index to the KCHG, + PMAS, MDCY, CHAF and MWID arrays. + - Each KF code known to the program is now one-to-one associated + with a KC code; the only doublevaluedness left is that both + the particle KF and its antiparticle -KF (if existing) is mapped + to the same KC. This specifically means that all charm and bottom + hadrons and all diquarks now are separately defined. + - Whereas KF codes below 100 still obey KC=KF, the mapping of codes + above 100 is completely changed. The mapping is no longer hardcoded + in PYCOMP, but defined by the fourth component of the KCHG array + (see below). Therefore it can be changed or expanded during the + course of a run, either by PYUPDA calls or by direct user + intervention. + +* The KCHG array in /PYDAT2/ has been expanded with a fourth component, + where KCHG(KC,4)=KF. It thus gives the inverse mapping from KC codes + to KF ones (see above). + +* The PYCOMP code has been completely rewritten. It gives the direct + mapping from the KF codes to the KC ones (see above). + - Internally the PYCOMP uses a binary search in a table, with KF codes + arranged in increasing order, based on the KCHG(KC,4) array. This + table is constructed the first time PYCOMP is called, at which time + MSTU(20) is set to 1. In case of a user change of the KCHG(KC,4) + array one should reset MSTU(20)=0 to force a reinitialization at the + next PYCOMP call (this is automatically done in PYUPDA calls). + To speed up execution, the latest (KF,KC) pair is kept in memory + and checked before the standard binary search. + - Code has been changed thoughout the program to be compatible with + this new mode of PYCOMP operation. + +* Particle data is now stored and read out for each particle separately. + - PYMASS uses tables of charm and bottom hadron masses rather than + mass formulae. + - The array CHAF(500) has been expanded to CHAF(500,2), where the + first component gives the particle name and the second the + antiparticle one (where existing). + - PYNAME accesses ready-constructed names rather than constructs + the names from scratch. + - PYCHGE accesses charges directly from the KCHG(KC,1) array. + +* PYUPDA has been changed. + - Option 1 writes out a table of all particle codes defined. + For each particle is given its KF code, particle and antiparticle + names in CHAF , the three first KCHG components, the PMAS components, + MWID (see below) and the first MDCY component. The information on + decay channels is unchanged, but the format expanded. + - Option 2 reads in the table written in the,form described above, + and replaces all existing data, including the KF<->KC mapping, + with the new ones. + - Option 3 reads in a table, like option 2, but uses it as a + complement to rather than a replacement of existing data. + The input file should therefore only contain new particles and + particles with changed data. New particles are added to the + bottom of the KC and decay channel tables. Changed particles + retain their KC codes and hence the position of particle data, but + their old decay channels are removed, this space is recuperated, + and new decay channels are added at the end. + - Option 4 corresponds to the old option 3, i.e. writes existing + data to DATA statements for inclusion in the default program + code. + +* The maximum number of decay channels has been expanded from 2000 + to 4000; this affects the arrays MDME, BRAT and KFDP in PYDAT3, + and MSTU(7). + +* PYLIST, PYSTAT and PYUPDA are changed to allow for the larger + particle codes that may now appear. + +----------------------------------------------------------------------- + +RESONANCE DECAYS + +* The dimensions of the WDTP and WDTE return arrays of PYWIDT have + been expanded from a maximum of 40 to 200 decay channels. + +* PYWIDT has been modified so that it returns total and partial widths + in units of GeV. Previously most widths were given in dimensionless + units, with an extra multiplicative factor added elsewhere, e.g. in + PYINRE or PYSIGH. Therefore also these routines are modified. Also + VINT(117) is now in dimensions of GeV. + +* Commonblock PYINT4 is completely reorganized as + COMMON/PYINT4/MWID(500),WIDS(500,5) + The WIDP and WIDE arrays were essentially only used by PYSTAT(2) + and have been eliminated. + Where before the resonances could only be found in the range + 21:40, in the new description any compressed code KC between + 1 and 500 can be used to represent a resonance. + + MWID(KC) gives the character of particle with compressed code KC, + mainly as used in PYWIDT to calculate widths of resonances + (not necessarily at the nominal mass). + = 0 : an ordinary particle; not to be treated as resonance. + = 1 : a resonance for which the partial and total widths + (and hence branching ratios) are dynamically calculated + in PYWIDT calls; i.e. special code has to exist for each + such particle. The effects of allowed/unallowed secondary + decays are included, both in the relative composition + of decays and in the process cross section. + = 2 : The total width is taken to be the one stored in PMAS(KC,2) + and the relative branching ratios the ones in BRAT(IDC) for + decay channels IDC. There is then no need for any special + code in PYWIDT to handle a resonance. During the run, + the stored PMAS(KC,2) and BRAT(IDC) values are used to + calculate the total and partial widths of the decay channels. + Some extra information and assumptions are then used. + Firstly, the stored BRAT values are assumed to be the full + branching ratios, including all possible channels and + all secondary decays. The actual relative branching fractions + are modified to take into account that the simulation of some + channels may be switched off (even selectively for a particle + and an antiparticle), as given by MDME(IDC,1), and that + some secondary channels may not be allowed, as expressed by + the WIDS factors. This also goes into process cross sections. + Secondly, it is assumed that all widths scale like sqrt(shat)/m, + the ratio of the actual to the nominal mass. A further nontrivial + change as a function of the actual mass can be set for each + channel by the MDME(IDC,2) value, see below. + = 3 : a hybrid version of options 1 and 2 above. At initialization + the PYWIDT code is used to calculate PMAS(KC,2) and BRAT(IDC) + at the nominal mass of the resonance. Special code must then + exist in PYWIDT for the particle. The PMAS(KC,2) and BRAT(IDC) + values overwrite the default ones. In the subsequent generation + of events, the simpler scheme of option 2 is used, thus saving + some execution time. + Note: the Z and Z' cannot be used with options 2 and 3, since the + more complicated interference structure implemented for those + particles is only handled correctly for option 1. + + WIDS(KC,J) : gives the suppression factor to cross sections caused + by the closing of some secondary decays, as calculated in PYWIDT. + Is built up recursively from the lightest particle to the + heaviest one at initialization, with the exception that W and Z + are done already from the beginning (since these often are + forced off the mass shell). WIDS can go wrong in case you + have perverse situations where the branching ratios vary + rapidly as a function of energy, across the resonance shape. + This then influences process cross sections. + The J components store information according to + = 1 : a (matched) resonance-antiresonance pair or two identical + resonances (e.g. W+W- or Z0Z0). + = 2 : a single resonance (e.g. W+ or Z0). + = 3 : a single antiresonance (e.g. W-). + = 4 : a (matched) resonance-resonance pair, for particle which + has a nonidentical antiparticle (e.g. W+W+). + = 5 : a (matched) antiresonance-antiresonance pair (e.g. W-W-). + +* The MDME(IDC,2) matrix element codes for a specific decay channel have + been expanded with further values that can be used for decay channels + treated by the PYRESD/PYWIDT decay machinery. These codes have no + meaning in the framework of ordinary particle decays in PYDECY. + = 50 : (default behaviour, also obtained for any other code value + apart from the ones listed below) do not include any special + threshold factors. That is, a decay channel is left open even + if the sum of daughter nominal masses is above the mother + actual mass, which is possible if at least one of the daughters + can be pushed off the mass shell. + = 51 : a step threshold, i.e. a channel is switched off when + the sum of daughter nominal masses is above the mother actual + mass. + = 52 : a beta-factor threshold, i.e. + sqrt( (1-m1**2/m**2-m2**2/m**2)**2 - 4*m1**2*m2**2/m**4), + assuming that the values stored in PMAS(KC,2) and BRAT(IDC) + did not include any threshold effects at all. + = 53 : as =52, but assuming that PMAS(KC,2) and BRAT(IDC) did + include the threshold effects, so that the weight should be + beta(at the actual mass)/beta(at the nominal mass). + = 54 - 59 : free for further options. + +* VINT(91), VINT(92) are obsolete and replaced by WIDS(24,4), WIDS(24,5). + +* The decay angles in H -> Z0 Z0 -> 4 fermions were previously selected + in the same way as for H -> W+ W- -> 4 fermions. Now the correct angular + correlations are included also for this case. Reference: + O. Linossier and R. Zitoun, internal ATLAS note and private communication. + +* PYRESD now takes an argument IRES. The standard call from PYEVNT, + for the hard process, has IRES=0, and then finds resonances to be + treated based on the subprocess number ISUB. In case of a nonzero + IRES only the resonance in position IRES of the event record is + considered. This is used by PYEVNT and PYEXEC to decay leftover + resonances. (Example: a b -> W + t branching may give a t quark as + beam remnant.) + +* Now also three decay products can be handled by PYRESD. + +* CKIN(49) and CKIN(50) have been introduced to allow minimum mass + limits to be passed from PYRESD to PYOFSH. They are used for + tertiary and higher resonances, i.e. those not controlled by + CKIN(41)-CKIN(48). They need not be touched by the user. + +* An approximate 1 - 2.5 alpha_s/pi QCD correction factor has been + introduced for the width of the top decay t -> b + W. + +* New default behaviour of the Higgs resonance shape. + MSTP(49) : (D=1) assumed variation of the Higgs width as a function + of the actual mass mhat = sqrt(shat) and the nominal mass m_H. + = 0 : the width is proportional to mhat**3; thus the high-mass + tail of the Breit-Wigner is enhanced. + = 1 : the width is proportional to m_H**2 * mhat. For a fixed + Higgs mass m_H this means a width variation across the + Breit-Wigner more in accord with other resonances (such as + the Z0). This alternative gives more emphasis to the + low-mass tail, where the parton distributions are peaked + (for hadron colliders). This option is favoured by + resummation studies [M. Seymour, Phys. Lett. B354 (1995) + 409]. + Note : this switch does not affect processes 71 - 77, where a + fixed Higgs width is used in order to control cancellation + of divergences. + +----------------------------------------------------------------------- + +HARD PROCESSES + +* The maximum number of processes has been expanded from 200 to 500; + this affects MSUB, ISET, KFPR, COEF, NGEN, XSEC and PROC in + several commonblocks. + +* SUSY processes have been introduced according to the SPYTHIA program. + - Look in the publication + SPYTHIA: A Supersymmetric Extension of PYTHIA 5.7 + S. Mrenna, Computer Physics Commun. 101 (1997) 232 + (hep-ph/9609360) + for a description of the physics that has been implemented. + - The list of new processes and process numbers is according to + tables 2 and 3 in the SPYTHIA manual. Also the MSEL values + of table 4 can be used. + - Switches and free parameters that can be used to select a wide + variety of SUSY scenarios are accessed in + COMMON/PYMSSM/IMSS(0:99),RMSS(0:99) + according to the description in SPYTHIA manual section 3.1. + - The notation for sparticles follows the LEP 2 standard outlined + above, and thus disagrees with the one in the SPYTHIA manual. + - The supersymmetric code has largely been taken over unchanged + from SPYTHIA, but a number of minor changes and bug fixes have + been introduced. As examples, the sparticle mass selection has + been improved, as has the selection of showering parton system. + The strategy for the selection of slepton and squark flavour, in + processes with several flavours allowed, has also been changed. + - Some routine and commonblock names have been changed, but none + of the major ones listed in the SPYTHIA manual. The dependence + on CERN library routines has been eliminated. + - A major administrative change is that it is now possible to set + allowed decay channels of sparticles using the MDME array, + as for ordinary resonances, and have this reflected in the + process cross sections. + - One difference between the SUSY simulation and the other parts of + the program is that it is not beforehand known which sparticles + may be stable. Normally this would mean either the chi_1 or the + gravitino, but in principle also other sparticles could be + stable. The ones found to be stable have their MWID(KC) and + MDCY(KC,1) values set zero at initialization. If several + PYINIT calls are made in the same run, with different SUSY + parameters, the ones set zero above are not necessarily set + back to nonzero values (the exception is chi_1), since the + original values are not saved anywhere. This may then have to + be done by hand, or else some particles that ought to decay will + not do that. + - Bottom squark production is now treated separately as for + the top squark. However, there are more processes because bottom + is in the PDF. The new processes are: + 281 b q -> ~b_1 ~q_L (q not b) + 282 b q -> ~b_2 ~q_R + 283 b q -> ~b_1 ~q_R + ~b_2 ~q_L + 284 b qbar -> ~b_1 ~q_Lbar + 285 b qbar -> ~b_2 ~q_Rbar + 286 b qbar -> ~b_1 ~q_Rbar + ~b_2 ~q_Lbar + 287 q qbar -> ~b_1 ~b_1bar + 288 2 2 + 289 g g -> ~b_1 ~b_1bar + 290 2 2 + 291 b b -> ~b_1 ~b_1 + 292 2 2 + 293 1 2 + 294 b g -> ~b_1 ~g + 295 2 + 296 b bbar -> ~b_1 ~b_2bar + ~b_1bar ~b_2 + MSEL = 45 has been added specifically to switch on these processes. + - New parameter + IMMS(5) : (D=0) allows the user to set the stop, sbottom, and stau + masses and mixings by hand. + = 0 : no, the program calculates itself. + = 1 : Yes, calculate from given input. In that case, + RMMS(10) = lightest stop, RMSS(12) = heaviest stop, + RMSS(11) = lightest sbottom, RMSS(13) = lightest stau, + RMSS(14) = heaviest stau, and RMSS(26,27,28) are the + (1,1) elements of the (2x2) mixing matrix for sbottom, + stop, and stau. + +* Higgs pair production now added as explicit processes. (Since before + some processes exist as Z' decay modes, where the Z' part can be + switched off to simulate the expected behaviour within the MSSM.) + 297 q qbar' -> H+/- h0 + 298 q qbar' -> H+/- H0 + 299 q qbar -> A0 h0 + 300 q qbar -> A0 H0 + 301 q qbar -> H+ H- + +* A new machinery has been introduced to generate the spectrum of + transverse and longitudinal photons in a lepton beam, and to + convolute that with the appropriate matrix elements, including + the virtuality of the photons, see C. Friberg and T. Sjostrand, + Eur. Phys. J. C 13 (2000) 151. + - In order to obtain it, the PYINIT beam or target code should + be given in the form 'gamma/lepton', where lepton can be either + of e-, e+, mu-, mu+, tau- or tau+. Thus, + for HERA : BEAM,TARGET = 'gamma/e-','p' + for LEP : = 'gamma/e-','gamma/e+' + Kinematics information in the PYINIT call should refer to the + full energy available, with the program itself generating the + fraction given to the photon(s). + - The documentation section at the beginning of the event record + has been expanded to reflect the new layer of administration. + Positions 1 and 2 contain the original beam particles, e.g. + e and p (or e+ and e-). In position 3 (and 4 for e+e-) + is (are) the scattered outgoing lepton(s). Thereafter comes + the normal documentation, but starting from the photon rather + than a lepton. For ep, this means 4 and 5 are the gamma* and p, + 6 and 7 the shower initiators, 8 and 9 the incoming partons to + the hard interaction, and 10 and 11 the outgoing ones. Thus the + documentation is 3 lines longer (4 for e+e-) than normally. + - A number of new CKIN cuts have been introduced to restrict + the range of kinematics for the photons generated off the + lepton beams. In each quartet of numbers, the first two corresponds + to the range allowed on incoming side 1 (beam) and the last two + to side 2 (target). The cuts are only applicable for a lepton + beam. Note that the x and Q2 (P2) variables are the basis + for the generation, and so can be restricted with no loss of + efficiency. For leptoproduction the W is uniquely given by the + one x value of the problem, so here also W cuts are fully efficient. + The other cuts may imply a slowdown of the program, but not as much + as if equivalent cuts only are introduced after events are fully + generated. + CKIN(61) - CKIN(64) : (D=0.0001,0.99,0.0001,0.99) allowed range for + the energy fractions x that the photon take of the respective + incoming lepton energy. These fractions are defined in the + cm frame of the collision, and differ from energy fractions + as defined in another frame. (Watch out at HERA!) In order to + avoid some technical problems, absolute lower and upper limits + are set internally at 0.0001 and 0.9999. + CKIN(65) - CKIN(68) : (D=0.,-1.,0.,-1. GeV^2) allowed range for the + spacelike virtuality of the photon, conventionally called either + Q2 or P2, depending on process. A negative number means that the + upper limit is inactive, i.e. purely given by kinematics. A nonzero + lower limit is implicitly given by kinematics constraints. + CKIN(69) - CKIN(72) : (D=0.,-1.,0.,-1.) allowed range of the + scattering angle theta of the lepton, defined in the cm frame + of the event. (Watch out at HERA!) A negative number means that + the upper limit is inactive, i.e. equal to pi. + CKIN(73) - CKIN(76) : (D=0.0001,0.99,0.0001,0.99) allowed range for + the lightcone fraction y that the photon take of the respective + incoming lepton energy. The lightcone is defined by the + four-momentum of the lepton or hadron on the other side of the + event (and thus deviates from true lightcone fraction by mass + effects that normally are negligible). The y value is related to + the x and Q2 (P2) values by y = x + Q2/s if mass terms are + neglected. + CKIN(77), CKIN(78) : (D=2.,-1. GeV) allowed range for W, i.e. either + the photon-hadron or photon-photon invariant mass. A negative + number means that the upper limit is inactive. + - This machinery cannot be combined with the variable-energy option + obtainable for MSTP(171)=1. The reason is that a variable-energy + machinery is now used internally for the gamma-hadron or gamma-gamma + subsystem, with some information saved at initialization for the full + energy. + - Internally, some new variables are used: + MINT(141), MINT(142) : KF code for incoming lepton beam or target + particles, while MINT(11) and MINT(12) is then the photon code. + A nonzero value is the main check whether the photon emission + machinery should be called at all. + MINT(143) : the number of tries before a successful kinematics + configuration is found in PYGAGA. Used for the cross section + updating in PYRAND. + VINT(301) : cm energy for the full collision, while VINT(1) + gives the gamma-hadron or gamma-gamma subsystem energy. + VINT(302) : full squared cm energy, while VINT(2) gives the subsystem + squared energy. + VINT(303), VINT(304) : mass of beam or target lepton, while VINT(3) + or VINT(4) give the mass of a photon emitted off it. + VINT(305), VINT(306) : x values, i.e. respective photon energy + fractions of the incoming lepton in the cm frame of the event. + VINT(307), VINT(308) : Q2 or P2, virtuality of the respective photon + (thus the square of VINT(3), VINT(4)). + VINT(309), VINT(310) : y values, i.e. respective photon lightcone + energy fraction of the lepton. + VINT(311), VINT(312) : theta, scattering angle of the respective + lepton in the cm frame of the event. + VINT(313), VINT(314) : phi, azimuthal angle of the respective + scattered lepton in the cm frame of the event. + VINT(319) : photon flux factor in PYGAGA for current event. + VINT(320) : photon flux factor in PYGAGA at initialization. + - Some of these values are also saved in the MSTI and PARI arrays at + the end of the event generation. (In the case of pileup events, + values stored here refer to the first event, while the MINT/VINT + ones are for the latest one, as usual.) + MSTI(71), MSTI(72) : KF code for incoming lepton beam or target + particles, while MSTI(11) and MSTI(12) is then the photon code. + PARI(101) : cm energy for the full collision, while PARI(11) + gives the gamma-hadron or gamma-gamma subsystem energy. + PARI(102) : full squared cm energy, while PARI(12) gives the subsystem + squared energy. + PARI(103), PARI(104) : x values, i.e. respective photon energy + fractions of the incoming lepton in the cm frame of the event. + PARI(105), PARI(106) : Q2 or P2, virtuality of the respective photon + (thus the square of PARI(3), PARI(4)). + PARI(107), PARI(108) : y values, i.e. respective photon lightcone + energy fraction of the lepton. + PARI(109), PARI(110) : theta, scattering angle of the respective + lepton in the cm frame of the event. + PARI(111), PARI(112) : phi, azimuthal angle of the respective + scattered lepton in the cm frame of the event. + - A new routine has been added for internal use: + SUBROUTINE PYGAGA(IGA) + IGA = 1 : call at initialization to set up x and Q2 limits etc. + = 2 : call at maximization step to give estimate of maximal + photon flux factor. + = 3 : call at the beginning of the event generation to select + the kinematics of the photon emission and to give the + flux factor. + = 4 : call at the end of the event generation to set up the + full kinematics of the photon emission. + - Since there are currently no processes associated with resolved + longitudinal photons, the effect of these can be approximated by + some nonzero MSTP(17) and PARP(165). (Additionally, PARP(167) or + PARP(168) may need to be set.) + MSTP(17) : (D=4) possibility of a extrafactor for resolved processes, + to approximately take into accound the effects of longitudinal + photons. Given on the form + R = 1 + PARP(165) * r(Q^2,mu^2) * f_L(y,Q^2)/f_T(y,Q^2). + Here the 1 represents the basic transverse contribution, + PARP(165) is some arbitrary overall factor, and f_L/f_T + the (known) ratio of longitudinal to transverse photon + flux factors. The arbitrary function r depends on the photon + virtuality Q^2 and the hard scale mu^2 of the process. + = 0 : No contribution, i.e. r=0. + = 1 : r = 4 * mu^2 * Q^2 / (mu^2 + Q^2)^2. + = 2 : r = 4 * Q^2 / (mu^2 + Q^2). + = 3 : r = 4 * Q^2 / (m_{rho}^2 + Q^2). + = 4 : r = 4 * m_V^2 * Q^2 / (m_V^2 + Q^2)^2. + = 5 : r = 4 * Q^2 / (m_V^2 + Q^2). + In options 4 and 5 m_V is the vector meson mass for VMD + and 2 * k_T for GVMD states. Since there is no mu dependence + for these options (as well as for =3) they also affect + minimum-bias cross sections, where mu would be vanishing. + Currently the rho mass is used also in options 4 and 5, for + simplicity. + NOTE: For a photon given by the gamma/e option in the PYINIT call, + the y spectrum is dynamically generated and y is thus known + from event to event. For a photon beam in the PYINIT call, + y is unknown from the onset, and has to be provided by the + user if any longitudinal factor is to be included. So long + as these values, in PARP(167) and PARP(168), are at their + default values, 0, it is assumed they have not been set and + thus the MSTP(17) and PARP(165) values are inactive. + PARP(165) : (D=0.5) a simple multiplicative factor applied to the + cross section for the transverse resolved photons, see above + in MSTP(17). No preferred value, but typically one could use + PARP(165)=1 as main contrast to the no-effect =0, with the + default arbitrarily chosen in the middle. + PARP(167), PARP(168): (D=2*0) the longitudinal energy fraction + y of an incoming photon, side 1 or 2, used in the R expression + to evaluate f_L(y,Q^2)/f_T(y,Q^2). Need not be supplied when + a photon spectrum is generated inside a lepton beam, but only + when a photon is directly given as argument in the PYINIT call. + VINT(315), VINT(316): internal storage of the R factor above, for + each of the two sides. + PARI(113), PARI(114); values of the R factors above, for each of + the two sides. + +* New total cross sections have been introduced into PYXTOT for + Generalized Vector Meson Dominance (GVMD) states, and both VMD and + GVMD parameterizations have been extended also to include virtual + photons. Further details in C. Friberg and T. Sjostrand, in + preparation. + - The GVMD states are seen as a continuous spectrum, characterized + by the k_T scale of the gamma -> q + qbar branching, with + k_T stretching between k_0 and p_Tmin(W^2). The rate of fluctuation + into such states is given by perturbative QED, while the + hadronic cross section for a given state is assumed to obey geometric + scaling, i.e. fall off like k_rho^2/k_T^2 relative to a VMD state + for a real photon, where k_rho is a reference scale. + - The jet cross sections for these GVMD states are associated with + the anomalous part of the photon structure function, just like + the homogeneous part is associated with the VMD states. + - GVMD state also have "elastic" and diffractive cross sections + obtained by the same scaling of VMD cross sections as indicated + above for the total cross section. The mass selection of the + GVMD state is according to dm^2/(m^2+Q^2)^2 between limits + 2 k_0 < m < 2 p_Tmin(W^2), i.e. the mass is associated with + 2 k_T of the state. See VINT(69), VINT(79) below. A GVMD state + is bookkept as a diffractive state in event listing, even when + it scatters "elastically", since the subsequent hadronization + descriptions are very similar. + - Whether or not minimum bias events are simulated depends on the + CKIN(3) value. For a low CKIN(3), CKIN(3) < p_Tmin(W_init^2), + like the default value CKIN(3) = 0, low-pT physics is switched + on together with jet production, with the latter properly + eikonalized to be lower than the total one. For a high CKIN(3), + CKIN(3) > p_Tmin(W_init^2), only jet production is included. + This is just like for hadron-hadron collisions, except that the + initialization energy scale W_init is selected in the allowed + W range rather than to be the full CM energy. When MSEL=2, also + elastic and diffractive events are simulated. + - Multiple interactions become possible in both the VMD and GVMD + sector, with the average number of interactions given by the + ratio of the jet to the total cross section. Currently only + the simpler default scenario MSTP(82)=1 is implemented, i.e. + the more sophisticated variable-impact-parameter ones need further + physics studies and model development. + - For a virtual photon of virtuality Q^2, the total cross section is + reduced by a dipole factor (m_rho^2/(m_rho^2 + Q^2))^2 for a VMD + state and by (4 k_T^2/(4 k_T^2 + Q^2))^2 for a GVMD one. That + is, the "mass" of a GVMD state is taken to be 2 k_T.Properly + each VMD state should have own mass, but so far this has not been + implemented. This would mainly be of relevance for J/psi, where + however also other complications enter. + - gamma* gamma* cross sections are obtained by simple multiplicative + factors as above, one for each photon, relative to rho rho events + (and other vector mesons). + - The primordial kT selection is described in the section on MSTP(66). + For clarity, we point out that elastic and diffractive events are + characterized by the mass of the diffractive states but without + any primordial kT, while jet production involves a primordial kT + but no mass selection. Both are thus not used at the same time, + but implicitly they are associated as m = 2 k_T. + - New or modified commonblock variables: + MSTP(15) : (D=0) modified default, to give same pT cutoff procedure + as for VMD jet cross sections. + PARP(15) : (D=0.5 GeV) k_0 scale where GVMD k_T spectrum begins. + MINT(50) : now set = 1 also for anomalous states, to indicate that + total cross sections are defined for them. + VINT(67), VINT(68) : the mass of a VMD state; for GVMD photons + the VMD state with the equivalent flavour content. + VINT(69), VINT(70) : the actual mass of a VMD or GVMD state; + agrees with the above for VMD but is selected as a larger + number for GVMD. Required for elastic and diffractive events. + VINT(63), VINT(64) : the squared (!) mass of the outgoing states; + for elastic events equal to VINT(69)^2 and VINT(70)^2 and for + diffractive events above that. + VINT(154) : current p_Tmin(W^2) value; see section on UNDERLYING + EVENTS for details. + VINT(149) : the scaled value 4 p_Tmin(W^2)^2/W^2; denominator + changed from s and therefore needs to be recalculated for each + new event (like VINT(154)). + PARP(18) : (D=0.4 GeV) scale k_rho, such that the cross sections + of a GVMD state of scale k_T is suppressed by a factor + k_rho^2/k_T^2 relative to those of a VMD state. Order should be + m_rho/2, with some finetuning to fit data. + VINT(317) : dipole suppression factor in PYXTOT for current event. + VINT(318) : dipole suppression factor in PYXTOT at initialization. + MSTP(66) : (D=5) see separate note below. + - The MSTP(84) and MSTP(85) switches have been made obsolete by these + changes and no longer exist. + +* An additional suppression of resolved (VMD or GVMD) cross sections is + introduced to compensate for an overlap with DIS processes in the + region of intermediate Q^2 and rather small W^2. + - MSTP(20) : (D=3) suppression of resolved cross sections. + = 0 : no; used as is. + > 0 : yes, by a factor (W^2/(W^2 + Q_1^2 + Q_2^2))^MSTP(20). + (where Q_i^2 = 0 for an incoming hadron). + - The suppression factor is joined with the dipole suppression + stored in VINT(317) and VINT(318). + +* New processes have been introduced for incoming virtual (spacelike) + photons, as obtained e.g. in ep and e+e- collisions. These are + thus extensions of processes previously encoded for real photons. + - 131 f_i + gamma*_T -> f_i + g (cf. proc 33) + 132 f_i + gamma*_L -> f_i + g + 133 f_i + gamma*_T -> f_i + gamma (cf. proc 34) + 134 f_i + gamma*_L -> f_i + gamma + 135 g + gamma*_T -> f_i + fbar_i (cf. proc 54) + 136 g + gamma*_L -> f_i + fbar_i + 137 gamma*_T + gamma*_T -> f_i + fbar_i (cf. proc 58) + 138 gamma*_T + gamma*_L -> f_i + fbar_i + 139 gamma*_L + gamma*_T -> f_i + fbar_i + 140 gamma*_L + gamma*_L -> f_i + fbar_i + - Here indices _T and _L represent transverse and longitudinal + photons, respectively. In the limit of vanishing virtuality, + the _T photon cross section approaches that for a real photon, + while the _L one vanishes. + - The virtuality of the photon or photons can be stored in P(1,5) + and P(2,5), respectively, provided PYINIT is called with the + 'FIVE' option. A spacelike photon of virtuality Q**2 (or P**2, + depending on notational convention followed) would thus have + P(i,5) = -Q (or -P). The virtuality could be varied from one + event to the next, but then it is convenient to initialize + for the lowest virtuality likely to be encountered. + - In several of the standard MSEL options, processes selected for + real photons have been replaced by the corresponding processes + for virtual ones. + +* Direct processes in the range of k_T values stretching between k_0 and + p_Tmin(W^2) are, by an eikonalization process, associated with the + low-pT part of the GVMD states above. Further details in C. Friberg + and T. Sjostrand, in preparation. + - As a consequence, the minimum pT for direct processes should be + increased from k_0 to p_Tmin(W^2). + - New variable: + MSTP(18) : (D=3) choice of pTmin for direct processes: + = 1 : same as for VMD and GVMD states, as explained above.. + = 2 : pTmin is chosen to be PARP(15), i.e. the old behaviour. + In this case, also parton distributions, jet cross sections + and alpha_strong values were dampened for small pT. + = 3 : as =1, but if the Q scale of the virtual photon is + above the VMD/GVMD p_Tmin(W^2), pTmin is chosen equal to Q. + This is part of the strategy to mix in DIS processes at + pT below Q, e.g. in MSTP(14)=30. + +* New process 99 for DIS scattering, by photon exchange only. Thus, in + this sense less powerful than process 10, but allows the use of the + same photon flux machinery as for other gamma*-p and gamma*-gamma* + processes, and thus offers a unified description in the region of + intermediate Q2 values. + - Notice that it counts as a "total cross section" process, in the + sense that the hard subprocess in itself contains no high-pT + scale. Therefore, it will be switched off in event class mixes + such as MSTP(14)=30 if CKIN(3) is above pTmin(W^2) and MSEL + is not 2. + - 99 f_i + gamma* -> f_i. + - Since the standard 2 -> 1 kinematics machinery is not relevant for + this process - shat = 0 - a new code ISET(ISUB)=8 is introduced + for the kinematics selection machinery in PYRAND, and a new routine + PYDISG for setting up the kinematics, beam remnants and showers. + - New variable to select DIS cross section. + MSTP(19) : (D=4) choice of partonic cross section in process 99. + = 0 : QPM answer 4 pi^2 alpha_em/Q^2 * + \sum_q e_q^2 (x q(x,Q^2) + x qbar(x,Q^2)) + (with parton distributions frozen below the lowest Q + allowed in the parameterization). Note that this answer + is divergent for Q^2 -> 0 and thus violates gauge + invariance. + = 1 : QPM answer is modified by a factor Q^2/(Q^2 + m_rho^2) + to provide a finite cross section in the Q^2 -> 0 limit. + A minimal regularization recipe. + = 2 : QPM answer is modified by a factor Q^4/(Q^2 + m_rho^2)^2 + to provide a vanishing cross section in the Q^2 -> 0 limit. + Appropriate if one assumes that the normal photoproduction + description gives the total cross section for Q^2 = 0, + without any DIS contribution. + = 3 : as = 2, but additionally suppression by a parameterized + factor f(W^2,Q^2) (different for gamma*-p and gamma*-gamma*) + that avoids doublecounting the direct-process region where + p_T > Q. Shower evolution for DIS events is then also + restricted to be at scales below Q, whereas evolution all + the way up to W is allowed in the other options above. + = 4 : as = 3, but additionally include factor 1/(1-x) for + conversion from F_2 to sigma. This is formally required, + but is only relevant for small W2 and therefore often + neglected. + - MINT(107),MINT(108) = 4 denotes DIS photon on respective side. + MINT(123) = 8 denotes DIS*VMD/p or vice verse, = 9 DIS*anomalous + or vice versa. + In MINT(41)-MINT(46), a DIS photon is treated same way as a direct + one. + - Many of the normal kinematical variables for 2 -> 2 processes are + not defined for this process. The pT in PARI(17) is explicitly set + =0, but some others may well contain irrelevant junk. + +* MSTP(14) is extended with new possibilities to select the nature + of incoming virtual photons. The reason is that the existing + options specify e.g. direct * VMD, summing over the possibilities + of which photon is direct and which anomalous. This is allowed + when the situation is symmetric, i.e. for two incoming real photons, + but not if one is virtual. Some of the new options agree with + previous ones, but are included to allow a more consistent pattern. + MSTP(14): (D=30) structure of incoming photon beam or target. + = 11 : direct * direct (see note 4). + = 12 : direct * VMD (i.e. first photon direct, second VMD). + = 13 : direct * anomalous. + = 14 : VMD * direct. + = 15 : VMD * VMD. + = 16 : VMD * anomalous. + = 17 : anomalous * direct. + = 18 : anomalous * VDM. + = 19 : anomalous * anomalous. + = 20 : a mixture of the nine above components, in the same + spirit as =10 provides a mixture for real gammas (or + a virtual gamma on a hadron). For gamma-hadron, this + option coincides with =10. + = 21 : direct * direct (see note 4). + = 22 : direct * resolved. + = 23 : resolved * direct. + = 24 : resolved * resolved. + = 25 : a mixture of the four above components, offering a + simpler alternative to =20 in cases where the parton + distributions of the photon have not been split into VMD + and anomalous components. For gamma-hadron, only two + components need be mixed. + = 26 : DIS * VMD/p. + = 27 : DIS * anomalous. + = 28 : VMD/p * DIS. + = 29 : anomalous * DIS. + = 30 : a mixture of all the 4 (for gamma*-p) or 13 (for + gamma*-gamma*) that are available, is as = 20 with the + DIS processes 26-29 mixed in. + Note 1: The MSTP(14) options apply for a photon defined by a 'gamma' + or 'gamma/lepton' beam in the PYINIT call, but not to those + photons implicitly obtained in a 'lepton' beam with the + MSTP(12)=1 option. This latter approach to resolved photons is + more primitive and is no longer recommended. + Note 2: these new options are not needed and therefore not defined + for e-p collisions. The recommended 'best' values thus are + MSTP(14)=30, which also is the new default value. + Note 3: as a consequence of the appearance of new event classes, + the MINT(122) and MSTI(9) code is not the same for gamma* gamma* + events as for gamma p, gamma* p or gamma gamma ones. + Instead the code is 3*(icode_1 - 1) + icode_2, where icode is + 1 for direct, 2 for VMD and 3 for anomalous/GVMD and indices + refer to the two incoming photons. For gamma* p code 4 is DIS, + and for gamma* gamma* codes 10-13 corresponds to the MSTP(14) + codes 26-29. As before, MINT(122) and MSTI(9) are only defined + when several processes are to be mixed, not when generating one + at a time. Also the MINT(123) code is modified (not shown here). + Note 4: The direct * direct event class excludes lepton pair + production when run with the default MSEL=1 option (or MSEL=2), + in order not to confuse users. You can obtain lepton pairs as well, + e.g. by running with MSEL=0 and switching on the desired processes + by hand. + +* MSTP(16) is new variable to select momentum variable of + e -> gamma branching. + MSTP(16) (D=1) choice of definition of the fractional momentum + taken by a photon radiated off a lepton. Enters in the flux + factor for the photon rate, and thereby in cross sections. + = 0 ; x, i.e. energy fraction in the rest frame of the event. + = 1 ; y, i.e. lightcone fraction. + +* MSTP(32) : (D=8) has been expanded with new options for the choice + of Q2 scale, specifically intended for processes with incoming + virtual photons. The new options are ordered from a "minimal" + dependence on the virtualities to a "maximal" one, based on + reasonable kinematics considerations. The old default value + MSTP(32)=2 forms the starting point, with no dependence at + all, and the new default is some intermediate choice. + Notation is that P1**2 and P2**2 are the virtualities of the + two incoming particles, pT the transverse momentum of the + scattering process, and m3 and m4 the masses of the two + outgoing partons. For a direct photon, P**2 is the photon + virtuality and x=1. For a resolved photon, P**2 still refers + to the photon, rather than the unknown virtuality of the + reacting parton in the photon, and x is the momentum fraction + taken by this parton. + = 6 : Q2 = (1 + x1*P1**2/shat + x2*P2**2/shat)* + (pT**2 + m3**2/2 + m4**2/2). + = 7 : Q2 = (1 + P1**2/shat + P2**2/shat)* + (pT**2 + m3**2/2 + m4**2/2). + = 8 : Q2 = pT**2 + (P1**2 + P2**2 +m3**2 + m4**2)/2. + = 9 : Q2 = pT**2 + P1**2 + P2**2 +m3**2 + m4**2. + = 10 : s (the full energy-squared of the process). + Note: options 6 and 7 are motivated by assuming that one + wants a scale that interpolates between that for small + that and uhat for small uhat, such as + Q2 = - that*uhat/(that+uhat). When kinematics for + the 2 -> 2 process is constructed as if an incoming + photon is massless when it is not, it gives rise to a + mismatch factor 1 + P**2/shat (neglecting the other + masses) in this Q2 definition, which is then what is + used in option 7 (with the neglect of some small + cross-terms when both photons are virtual). When a + virtual photon is resolved, the virtuality of the + incoming parton can be anything from x*P**2 and upwards. + So option 6 uses the smallest kinematically possible + value, while 7 is more representative of the typical + scale. Option 8 and 9 are more handwaving extensions of + the default option, with 9 specially constructed to + ensure that the Q2 scale is always bigger than P**2. + +* MSTP(66) has been expanded with new default option for the + selection of lower parton-shower cut-off (and primordial kT). + MSTP(66) : (D=5) choice of lower cut-off for initial-state QCD + radiation in VMD or anomalous photoproduction events. + = 0 : the lower Q2 cut-off is the standard one in PARP(62)^2. + = 1 : for anomalous photons, the lower Q2 cut-off is the + larger of PARP(62)^2 and VINT(283) or VINT(284), + where the latter is the virtuality scale for the + gamma -> q qbar vertex on the appropriate side of + the event. The VINT values are selected logarithmically + even between PARP(15)^2 and the Q2 scale of the + parton distributions of the hard process. + = 2 : extended option of the above, intended for virtual + photons. For VMD photons, the lower Q2 cut-off is the + larger of PARP(62)^2 and the P^2_{int} scale of the + SaS parton distributions. For anomalous photons, + the lower cut-off is chosen as for =1, but the + VINT(283) and VINT(284) are here selected logarithmically + even between P^2_{int} and the Q2 scale of the + parton distributions of the hard process. + = 3 : simplified option, default in versions 6.143 - 6.147. + The k_T of the anomalous/GVMD component is distributed + like 1/k_T^2 between k_0 and p_Tmin(W^2). Apart from + the change of the upper limit, this option works just + like = 1. + = 4 : a stronger damping at large k_T, like + dk_T^2/(k_T^2 + Q^2/4)^2 with + k_0 < k_T < p_Tmin(W^2). Apart from this, + it works like = 1. + = 5 : a k_T generated as in =4 is added vectorially with a + standard Gaussian k_T generated like for VMD states. + Ensures that GVMD has typical k_T's above those of VMD, + in spite of the large primordial k_T's implied by hadronic + physics. (Probably attributable to a lack of soft QCD + radiation in parton showers.) + +* New processes + - 146 e + gamma -> e* + 169 q + qbar -> e + e* + - similar to existing processes 147,148 or 167,168 for q*. + +* Several new processes for technicolour production. + NOTE: as of version 6.126 changes/additions appear according + to the next section. + - 191 f_i + fbar_i -> rho_techni0 + 192 f_i + fbar_j -> rho_techni+- + 193 f_i + fbar_i -> omega_techni0 + 194 f_i + fbar_i -> f_k + fbar_k + - The first three processes are based on s-channel production of + the respective resonance. All decay modes implemented can be + simulated separately or in combination, in the standard fashion. + These include pairs of fermions, of gauge bosons, of technipions, + and of mixtures gauge bosons + technipions. + - Process 194 includes full interference between rho_techni0 and + omega_techni0. It can only be used for one final-state flavour + at a time. This flavour is set in KFPR(194,1). + - The physics parameters of the technicolour scenario are: + PARP(140) : (D=0.0) multiplicative fudge factor, entering + quadratically in the width for pi_tech+ -> W+ b bbar. + PARP(141) : (D=0.33333) sin(chi), sinus of mixing angle between + gague bosons and technipions in the decay of technirhos; + if 0 the decay is entirely to technipions and if 1 entirely + to gauge bosons. + PARP(142) : (D=82 GeV) F_T, decay constant of the technipion + states; the technipion widths are proportional to 1/F_T^2. + PARP(143) : (D=1.0) Q_U, charge of the up-type technifermions; + the down-type ones have Q_D = Q_U - 1 and thus do not + require a separate parameter. + PARP(144) : (D=4.0) N_TC, the number of technicolours, that + enters in several cross sections and decay rates. + PARP(145) : (D=200 GeV) M_T, mass parameter for the decay + omega_techni0 -> gamma + pi_techni0; the partial width + is proportional to 1/M_T^2. + PARP(146) - PARP(148) : (D=1.0, 1.0, 1.0) multiplicative fudge + factors, entering quadratically in the widths of technipions + to a fermion pair. The three numbers are for pi_tech0, + pi_tech+ and pi_tech'0, respectively. + PARP(149) - PARP(150) : (D=1.0, 0.0) multiplicative fudge factors, + entering linearly in the widths of technipions to a gluon pair. + The two numbers are for pi_tech0 and pi_tech'0, respectively. + - The main references are + E. Eichten and K. Lane, Phys. Lett. B388 (1996) 803 + E. Eichten, K. Lane and J. Womersley, in preparation + +* Starting with version 6.126, the simulation of the production and + decays of technicolor particles has been substantially upgraded. + - The processes 149, 191, 192, and 193 are to be considered obsolete, + and are temporarily retained to allow cross checking with the new + processes. + - Process 194 has been changed to more accurately represent the + mixing between the photon, Z, techni_rho0, and techni_omega + particles in the Drell-Yan process. Process 195 is the analogous + process including W and techni_rho+/- mixing. By default, the final + state fermions are e+ e- and e+/- nu_e, respectively. These can be + changed through the parameters KFPR(194,1) and KFPR(195,1), + respectively (the KFPR value should represent a charged fermion). + - The full set of recommended processes are: + Drell--Yan (ETC == Extended TechniColor) + 194 f+fbar -> f'+fbar' (ETC) + 195 f+fbar' -> f"+fbar"' (ETC) + techni_rho0/omega + 361 f + fbar -> W_L+ W_L- + 362 f + fbar -> W_L+/- pi_T-/+ + 363 f + fbar -> pi_T+ pi_T- + 364 f + fbar -> gamma pi_T0 + 365 f + fbar -> gamma pi_T0' + 366 f + fbar -> Z0 pi_T0 + 367 f + fbar -> Z0 pi_T0' + 368 f + fbar -> W+/- pi_T-/+ + charged techni_rho + 370 f + fbar' -> W_L+/- Z_L0 + 371 f + fbar' -> W_L+/- pi_T0 + 372 f + fbar' -> pi_T+/- Z_L0 + 373 f + fbar' -> pi_T+/- pi_T0 + 374 f + fbar' -> gamma pi_T+/- + 375 f + fbar' -> Z0 pi_T+/- + 376 f + fbar' -> W+/- pi_T0 + 377 f + fbar' -> W+/- pi_T0' + - All of the processes from 361 to 377 can be accessed at once + by setting MSEL=50. + - The production and decay rates depend on several "Straw Man" + technicolor parameters: + Techniparticle masses + PMAS(51,1) : (D=110.0 GeV) neutral techni_pi mass + PMAS(52,1) : (D=110.0 GeV) charged techni_pi mass + PMAS(53,1) : (D=110.0 GeV) neutral techni_pi' mass + PMAS(54,1) : (D=210.0 GeV) neutral techni_rho mass + PMAS(55,1) : (D=210.0 GeV) charged techni_rho mass + PMAS(56,1) : (D=210.0 GeV) techni_omega mass + Note: the rho and omega masses are not pole masses + Lagrangian parameters + PARP(141) : (D= 0.33333) sine of chi, the mixing angle between + technipion interaction and mass eigenstates + PARP(142) : (D=82.0000 GeV) F_T, the technipion decay constant + PARP(143) : (D= 1.3333) Q_U, charge of up-type technifermion; + the down-type technifermion has a charge Q_D=Q_U-1 + PARP(144) : (D= 4.0000) N_TC, number of technicolors; fixes the + relative values of g_em and g_etc + PARP(145) : (D= 1.0000) C_c, coefficient of the technipion decays + to charm; appears squared in the decay rate + PARP(146) : (D= 1.0000) C_b, coefficient of the technipion decays + to bottom; appears squared in the decay rate + PARP(147) : (D= 0.0182) C_t, coefficient of the technipion decays + to top, estimated to be m_b/m_t; appears squared in the decay rate + PARP(148) : (D= 1.0000) C_tau, coefficient of the technipion decays + to tau; appears squared in the decay rate + PARP(149) : (D=0.00000) C_pi, coefficient of technipion decays + to gg + PARP(150) : (D=1.33333) C_pi', coefficient of technipion' decays + to gg + ****Note the switch from PARP to PARJ**** + PARJ(172) : (D=200.000 GeV) M_V, vector mass parameter for technivector + decays to transverse gauge bosons and technipions + PARJ(173) : (D=200.000 GeV) M_A, axial mass parameter for technivector + decays to transverse gauge bosons and technipions + PARJ(174) : (D=0.33300) sine of chi', the mixing angle between + the technipion' interaction and mass eigenstates + PARJ(175) : (D=0.05000) isospin violating technirho/techniomega + mixing amplitude + - As a final comment, it is worth mentioning that the decays products + of the W and Z bosons are distributed according to phase space, + regardless of their designation as W_L/Z_L or transverse gauge bosons. + The exact meaning of longitudinal or transverse polarizations in this + case requires more thought. + - References: + K. Lane, hep-ph/9903369 + K. Lane, hep-ph/9903372 + +* Several new processes for doubly charged Higgs production in + left-right-symmetric models, with an additional righthanded SU(2) + gauge group. + - 341 l + l -> H_L++/-- + 342 l + l -> H_R++/-- + 343 l + gamma -> H_L++/-- + e-/+ + 344 l + gamma -> H_R++/-- + e-/+ + 345 l + gamma -> H_L++/-- + mu-/+ + 346 l + gamma -> H_R++/-- + mu-/+ + 347 l + gamma -> H_L++/-- + tau-/+ + 348 l + gamma -> H_R++/-- + tau-/+ + 349 f + fbar -> H_L++ + H_L-- + 350 f + fbar -> H_R++ + H_R-- + 351 f_i + f_j -> f_k + f_l + H_L++/-- + 352 f_i + f_j -> f_k + f_l + H_R++/-- + - Default model masses are + code name mass (GeV) + 61 H_L++ 200 + 62 H_R++ 200 + 63 W_R+ 750 + 64 nu_Re 750 + 65 nu_Rmu 750 + 66 nu_Rtau 750 + - Main decays implemented are + H_L++ -> l_i+ l_j+ (i, j generation index) + -> W_L+ W_L+ + H_R++ -> l_i+ l_j+ + -> W_R+ W_R+ + W_R+ -> q_i qbar_j (assuming standard CKM matrix) + -> l_i+ nu_Ri (if kinematically allowed) + - The physics parameters of this scenario are + PARP(181) - PARP(189) : (D = 0.1, 0.01, 0.01, 0.01, 0.1, 0.01, + 0.01, 0.01, 0.3) Yukawa couplings of leptons to H++, assumed + same for H_L++ and H_R++. Is a symmetric 3*3 array, where + PARP(177+3*i+j) gives the coupling to a lepton pair with + generation indices i and j. Thus the default matrix is + dominated by the diagonal elements and especially by the + tau-tau one. + PARP(190) : (D=0.64) g_L = e/sin(theta_W). + PARP(191) : (D=0.64) g_R, assumed same as g_L. + PARP(192) : (D=5 GeV) v_L vacuum expectation value of the + left-triplet. The corresponding v_R is assumed given by + v_R = sqrt(2) M_W_R / g_R and is not stored explicitly. + - The main references are + K. Huitu, J. Maalampi, A. Pietil\"a and M. Raidal, + Nucl. Phys. B487 (1997) 27 and private communication; + G. Barenboim, K. Huitu, J. Maalampi and M. Raidal, + Phys. Lett. B394 (1997) 132. + +* Two new processes for chi_c production. + - 104 g + g -> chi_0c + 105 g + g -> chi_2c + - These are the lowest-order equivalents of processes 87 and 89. + Note that g + g -> chi_1c is forbidden, and so not included as + a match to process 88. + - Reference Bai83. + +* Three new processes for J/psi production. + - 106 g + g -> J/psi + gamma + 107 g + gamma -> J/psi + g + 108 gamma + gamma -> J/psi + gamma + - All of these are closely related to the existing process 86, + g + g -> J/psi + g; only the colour- and charge-related + prefactors differ in the matrix element expressions. + - References: + 106: M. Drees and C.S. Kim, Z. Phys. C53 (1991) 673 + 107: E.L. Berger and D. Jones, Phys. Rev. D23 (1981) 1521 + 108: H. Jung, private communication; + H. Kharraziha, private communication + +* Process 1 has been modified so that masses are included in the + expression for the decay polar angle distribution. + +* Processes 15, 19, 22, 30 and 35 have been corrected for an inconsistent + use of width definition in the Breit-Wigner shape, which affected + the low-mass part of the gamma*/Z0 spectrum. + +* The previous process 131, g + g -> Z + b + bbar, has been removed, + for reasons of inefficient phase space generation. This implies that + - all the RK... routines are gone + - all code related to ISET(ISUB)=6 is removed + - variables MINT(35) and VINT(81-84) are unused + - cuts CKIN(51-56) are restricted in usage + - options 5 and 6 of PYOFSH are removed (with old option 7 moved to 5) + +* Processes 147, 148, 167 and 168 have been modified to take into + account changes in d*, u*, e* and nu*_e codes. + +* New parameter and new default behaviour of the program. + MSTP(9) : (D=0) inclusion of top (and fourth generation quarks) as + allowed remnant flavours q' in processes that involve q -> q' + W + branchings and where the matrix elements have been calculated + under the assumption that q' is massless. + = 0 : no. + = 1 : yes, but it is possible, as before, to switch off individual + channels by the setting of MDME switches. Mass effects are + taken into account, in a crude fashion, by rejecting events + where kinematics becomes inconsistent when the q' mass is + included. + +* Many processes proceed via an s-channel resonance, described by a + Breit-Wigner. In some instances this description is not really valid + far away from the resonance position, e.g. because interference with + other graphs should then be included. The wings of the Breit-Wigner + are therefore routinely cut out in most processes, though not all. + This cut has been modified and can now be set by the user. + PARP(48) : (D=50.) the Breit-Wigner factor in the cross section is + set to vanish for masses that deviate from the nominal one by + more than PARP(48) times the nominal resonance width (i.e. the + width evaluated at the nominal mass). Is used in most processes + with a single s-channel resonance, but there are some exceptions, + notably gamma/Z0 and W+-. + +* The PYSTAT routine has been expanded with a new option 6. + A CALL PYSTAT(6) will produce a list of all subprocesses implemented + in the program. + +* New parameter. + PARP(104) : (D=0.8 GeV) minimum energy above threshold for the + evaluation of total, elastic and diffractive cross sections. + Below this lower cut, the cross section is made to vanish. + +----------------------------------------------------------------------- + +THE E+E- ROUTINES + +* The e+e- routines PYEEVT and PYONIA (formerly LUEEVT and LUONIA) + have been kept in this version, but may disappear in the future. + The functionality of PYEEVT is obtained with PYTHIA subprocess 1 and + that of PYONIA by the decay of Upsilon in PYDECY. Some differences + exist between the respective alternatives. + - The PYEEVT flavour selection and resonance shape handling is not as + good as the subprocess 1 one. + - The PYEEVT initial-state photon radiation is based on exact first + order rather than exponentiated structure functions, and is inferior + in terms of total photon energy radiated but may be better for + high-angle photons (here subprecess 19 can also be used, however). + - Further examples could be given. + +* Formerly, the main difference was that LUEEVT also had a number of + matrix-element options, in addition to the default parton-shower one. + These options are now available also from PYTHIA subprocess 1, + as follows. + - MSTP(48) : (D=0) switch for the treatment of gamma*/Z0 decay for + process 1 in e+e- events. + = 0 : normal PYTHIA machinery. + = 1 : if the decay of the Z0 is to either of the five lighter + quarks, d, u, s, c or b, the special treatment of Z0 + decay is accessed, including matrix element options. + - This option is based on the machinery of the PYEEVT and associated + routines when it comes to the description of QCD multijet structure + and the angular orientation of jets, but relies on the normal + PYEVNT machinery for everything else: cross section calculation, + initial state photon radiation, flavour composition of decays + (i.e. information on channels allowed), etc. + - The initial state has to be e+e; forward-backward asymmetries would + not come out right for quark-annihilation production of the gamma*/Z0 + and therefore the machinery defaults to the standard one in such + cases. + - You can set the behaviour for the MSTP(48) option using the normal + matrix element related switches. This especially means MSTJ(101) for + the selection of first- or second-order matrix elements (=1 and =2, + respectively). Further selectivity is obtained with the switches + and parameters MSTJ(102) (for the angular orientation part only), + MSTJ(103) (except the production threshold factor part), MSTJ(106), + MSTJ(108) - MSTJ(111), PARJ(121), PARJ(122), PARJ(125) - PARJ(129). + Information can be read from MSTJ(120), MSTJ(121), PARJ(150), + PARJ(152) - PARJ(156), PARJ(168), PARJ(169), PARJ(171). + - The other e+e- switches and parameters should not be touched. In most + cases they are simply not accessed, since the related part is handled + by the PYEVNT machinery instead. In other cases they could give + incorrect or misleading results. Beam polarization as set by + PARJ(131) - PARJ(134), for instance, is only included for the + angular orientation, but is missing for the cross section information. + PARJ(123) and PARJ(124) for the Z0 mass and width are set in the + PYINIT call based on the input mass and calculated widths. + - The cross section calculation is unaffected by the matrix element + machinery. Thus also for negative MSTJ(101) values, where only specific + jet multiplicities are generated, the PYSTAT cross section is the + full one. + +----------------------------------------------------------------------- + +PARTON DISTRIBUTIONS + +* The "structure function" expression is replaced by "parton distribution". + Hence routines PYST** are renamed PYPD**. + +* A number of old proton distributions have been removed, and newer ones + inserted. The current list of distributions available in MSTP(51) is + - MSTP(51) : (D=4) + = 1 : CTEQ 3L (leading order). + = 2 : CTEQ 3M (MSbar). + = 3 : CTEQ 3D (DIS). + = 4 : GRV 94L (leading order). + = 5 : GRV 94M (MSbar). + = 6 : GRV 94D (DIS). + = 7 : CTEQ 5L (leading order). + = 8 : CTEQ 5M1 (MSbar; slightly updated version of CTEQ 5M). + = 11: GRV 92L (leading order). + = 12: EHLQ 1 (leading order). + = 13: EHLQ 1 (leading order). + = 14: DO 1 (leading order). + = 15: DO 2 (leading order). + - References: CTEQ Collaboration, H.L. Lai et al., Phys. Rev. + D51 (1995) 4763, hep-ph/9903282; + M. Gluck, E. Reya and A. Vogt, Z. Phys. C67 (1995) 433 + - New routines: PYCTEQ, PYGRVL, PYGRVM, PYGRVD, PYGRVV, PYGRVW, PYGRVS + PYCT5L, PYCT5M and PYPDPO. + - Note 1: distributions 11-15 are obsolete and should not be used for + current physics studies. They are only implemented to have some sets + in common between Pythia 5 and 6, for crosschecks. + - Note 2: distribution 16 is an undocumented toy model with all parton + distributions like 1/x; see code for details. + +* The SaS parton distributions (accessed with MSTP(55) = 5 - 12) have + been upgraded from version 1 to version 2 of the SaSgam library (as + before, with routines and commonblocks renamed). This is no change for + real photons, as have been studied so far, but allows in the future + several new alternatives to extend the distributions to virtual photons. + - MSTP(60) : (D=7) extension of the SaS real-photon distributions to + off-shell photons, especially for the anomalous component. For + details, see G.A. Schuler and T. Sjostrand, Phys. Lett. B376 (1996) + 193. + = 1 : dipole dampening by integration; very time-consuming. + = 2 : P_0^2 = max( Q_0^2, P^2 ) + = 3 : P'_0^2 = Q_0^2 + P^2. + = 4 : P_{eff} that preserves momentum sum. + = 5 : P_{int} that preserves momentum and average evolution range. + = 6 : P_{eff}, matched to P_0 in P2 -> Q2 limit. + = 7 : P_{int}, matched to P_0 in P2 -> Q2 limit. + - The PYGGAM argument list is expanded with one further input parameter IP2 + SUBROUTINE PYGGAM(ISET,X,Q2,P2,IP2,F2GM,XPDFGM) + where MSTP(60) is used as IP2 value in internal calls. + - PYGVMD and PYGANO has VXPGA(-6:6) as new last argument. The array contains + the valence part ofd the distributions at return. + - COMMON/PYINT9/VXPVMD(-6:6),VXPANL(-6:6),VXPANH(-6:6),VXPDGM(-6:6) + Purpose: to give the valence parts of the photon parton distributions + (x-weighted, as usual) when the PYGGAM routine is called. Companion to + /PYINT8/, which gives the total parton distributions. + VXPVMD(KFL) : valence distributions of the VMD part; matches + XPVMD in /PYINT8/. + VXPANL(KFL) : valence distributions of the anomalous part of light + quarks; matches XPANL in /PYINT8/. + VXPANH(KFL) : valence distributions of the anomalous part of heavy + quarks; matches XPANH in /PYINT8/. + VXPDGM(KFL) : gives the sum of valence distributions parts; + matches XPDFGM in the PYGGAM call. + Note 1: the Bethe-Heitler and direct contributions in XPBEH(KFL) and + XPDIR(KFL) in /PYINT8/ are pure valence-like, andtherefore are not + duplicated here. + Note 2: the sea parts of the distributions can be obtained by taking the + appropriate differences between the total distributions and the + valence distributions. + +* The default set for the parton distributions of the pion has been changed: + MSTP(53) (D=3) choice of pion parton distribution set; default is + GRV LO (updated version). + +* New argument KFA for PYPDEL routine, which now also can handle muons and + taus. + +----------------------------------------------------------------------- + +PARTON SHOWERS + +* PYSHOW allows the photon emission cutoff parameter to be set + separately for quarks and leptons. The former function remains with + PARJ(83), while the latter introduces the new parameter PARJ(90), + with default 0.0001 GeV. Thus photon emission off leptons becomes + more realistic, covering a larger part of the phase space. Since + the lepton mass is not explicitly included in the shower formalism, + the emission rate is still not well reproduced (underestimated!) for + lepton-photon invariant masses smaller than roughly twice the + lepton mass itself. + +* PYSHOW has been modified and expanded with new options related to + mass effects in the shower. + - First, the emission of gluons off primary quarks in gamma*/Z0 decays + has been modified. Specifically, the matrix-element correction factor + obtained for MSTJ(47)=2 or 3 (default) has been modified, to better + take into account how the shower populates the phase space for + massive quarks (which is used as denominator if the corrective + weight). This increases the amount of gluon radiation, so that e.g. + the amount of b bbar g three-jet events at LEP1 (within some + reasonable 3-jet region) goes up by about 5%. Light quarks are not + affected. + - Second, the description of g -> q qbar branchings has been expanded + with several new options, in order to explore a larger range of + uncertainty in predictions. + MSTJ(42) (D=2) coherence level in shower. + = 3 : in the definition of the angle in a g -> q qbar + branchings, the naive massless expression is reduced by a + factor sqrt(1 - 4 m_q^2/m_g^2), which can be motivated + by a corresponding actual reduction in the p_T by mass + effects. The requirement of angular ordering then kills + fewer potential g -> q qbar branchings, i.e. the rate of + such comes up. The q -> q g and g -> g g branchings are not + changed from =2. This option is fully within the range of + uncertainty that exists. + = 4 : no angular ordering requirement conditions at all are + imposed on g -> q qbar branchings, while angular ordering + still is required for q -> q g and g -> gg. This is an + unrealistic extreme, and results obtained with it should + not be overstressed. However, for some studies it is of + interest. For instance, it not only gives a much higher + rate of charm and bottom production in showers, but also + affects the kinematical distributions of such pairs. + MSTJ(44) (D=2) alpha-strong argument in shower. + = 3 : While pT^2 is used as alpha_strong argument in q -> q g + and g -> gg branchings, as in =2, instead m^2/4 is used as + argument for g -> q qbar ones. The argument is that the + soft-gluon resummation results suggesting the pT^2 scale + in the former processes is not valid for the latter one, + so that any multiple of the mass of the branching parton + is a perfectly valid alternative. The m^2/4 ones then gives + continuity with pT^2 for z=1/2. Furthermore, with this + choice,it is no longer necessary to have the requirement + of a minimum pT in branchings, else required in order to + avoid having alpha_strong blow up. Therefore, in this option, + that cut has been removed for g -> gg branchings. + Specifically, when combined with MSTJ(42)=4, it is possible + to reproduce the naive 1 + cos^2(theta) angular distribution + of g -> gg branchings, which is not possible in any other + approach. (However, as noted above, it may give too high + a charm and bottom production rate in showers.) + +* PYSSPA is improved by new scheme for merging matrix-element and + parton-shower descriptions of initial-state radiation in the + production of a single gauge-boson resonance, i.e. Z/gamma*, W, + Z', W' and R. Also for other processes the possibility of changing + the maximal scale of shower radiation is introduced, although here + without the complete matrix-element correction machinery. The scheme + is based on the study by + G. Miu and T. Sjostrand, LU TP 98-30 and hep-ph/9812455; + see also G. Miu, LU TP 98-9, hep-ph/9804317. + As a consequence, the MSTP(68) variable takes on a new meaning. + MSTP(68) : (D=1) choice of maximum virtuality scale and matrix-element + matching scheme for initial-state radiation. + = 0 : maximum shower virtuality is the same as the Q2 choice for + the parton distributions, see MSTP(32). (Except that the + multiplicative extra factor PARP(34) is absent and instead + PARP(67) can be used for this purpose. No matrix-element + correction. + = 1 : as =0 for most processes, but new scheme for processes 1, 2, + 141, 142 and 144, i.e. single s-channel colourless gauge boson + production: gamma*/Z0, W+-, Z', W'+- and R. Here the maximum + scale of shower evolution is s, the total squared energy. + The nearest branching on either side of the hard scattering, + of the types q -> q + g, f -> f + gamma, g -> q + qbar or + gamma -> f + fbar, are corrected by the ratio of the + first-order matrix-element weight to the parton-shower one, + so as to obtain an improved description. See the references + above for a detailed description. Note that the improvements + apply both for incoming hadron and lepton beams. + = 2 : the maximum scale for initial-state shower evolution is always + selected to be s, except for the 2 -> 2 QCD processes 11, 12, + 13, 28, 53 and 68. Based on the experience in the references + above, there is reason to assume that this does give an + improved qualitative description of the high-pT tail, although + the quantitative agreement is currently beyond our control. + No matrix-element corrections, even for the processes in =1. + The QCD exception is to avoid the doublecounting issues that + could easily arise here. + = -1 : as =0, except that there is no requirement on uhat being + negative, see point 2 below. + Note that the default behaviour of PYSSPA is changed, in several + respects. + 1) For the processes listed in MSTP(68)=1, as a consequence of the new + default MSP(68) value (the old one was =0). This clearly is very + important for the high-pT tail and hence implies a significant + improvement here. + 2) A new cut is imposed on the combination of z and Q2 values + in a branching, + uhat = Q2 - shat_old * (1-z)/z = Q2 - shat_new * (1-z) < 0, + where the association with the uhat variable is relevant if the branching + is reinterpreted in terms of a 2 -> 2 scattering. Usually such a + requirement comes out of the kinematics, and therefore is imposed + eventually anyway. The corner of emissions that do not respect this + requirement is that where the Q2 value of the spacelike emitting + parton is little changed and the z value of the branching is close + to unity. (That is, such branchings are kinematically allowed, but + since the mapping to matrix-element variables would assume the first + parton to have Q2=0, this mapping gives an unphysical uhat, and hence + no possibility to impose a matrix-element correction factor.) The + correct behaviour in this region is beyond leading-log preditivity. + It is mainly important for the hardest emission, i.e. with largest Q2. + The effect of this change is to reduce the total amount of emission + by a non-negligible amount when no matrix-element correction is applied. + (Witness results with the special option MSTP(68)=-1.) For matrix-element + corrections to be applied, this requirement must be used for the hardest + branching, and then whether it is used or not for the softer ones is + less relevant. + 3) The PARP(65) parameter for minimum gluon energy emitted in a + spacelike showers is modified by an extra factor roughly corresponding + to the 1/gamma factor for the boost to the hard subprocess frame. + Earlier, when a subsystem was strongly boosted, i.e. at large rapidities + in the cm frame of the collision, the PARP(65) requirement became quite + stringent on the low-energy incoming side. Therefore much radiation + could be cut out. Since this point gives changes of opposite sign to + point 2, the net result of both changes gives a small net result. + 4) The angular-ordering requirement is based on ordering p_T/p rather + than p_T/p_L, i.e. replacing tan(theta) by sin(theta). Earlier the + starting value tan(theta)_max = 10 could actually be violated by some + bona fide emissions for strongly boosted subsystems, where one side has + small p_L. Therefore some emissions were incorrectly removed when + MSTP(62)=3, i.e. default. + 5) For incoming muon (and tau) beams the kinematical variables are + better selected to represent the differences in lepton mass. + +* PARP(67): (D=1) new default value to better represent matching between + hard-process scale and initial-statee-radiation scale in QCD processes. + +* New variable MSTP(69), replacing some of the functionality previously + provided by MSTP(68) but removed with the change in PYSSPA with + Pythia 6.119: + MSTP(69) (D=0) possibility to change Q2 scale for parton distributions + from the MSTP(32) choice, especially for e+e-. + = 0 : use MSTP(32) scale. + = 1 : in lepton-lepton collisions, the QED lepton-inside-lepton + parton distributions are evaluated with s, the full squared CM + energy, as scale. + = 2 : s is used as parton distribution scale also in other + processes. + +----------------------------------------------------------------------- + +UNDERLYING EVENTS + +* The assumption of a (more or less) energy-independent pTmin or pT0 + lower cut-off of jet production in multiple interactions was developed + in the days when parton distributions were normally assumed flat at + small x (i.e. x*f_i(x,Q2) -> constant for x -> 0 at small Q2). In view + of the HERA data this is no longer a valid assumption, and parton + distributions have evolved to reflect this. The consequence is that + the jet rate above some fixed small pTmin is increasing much faster + than originally assumed. If unchecked, it leads to a much too fast + increase in the multiple interaction rate, based on comparisons with + data or with physics intuition. While we have no understanding of the + detailed physics mechanisms, it appears sensible to introduce an + explicit energy-dependence of pTmin and pT0 that closely matches + this small-x dependence or, alternatively, the increase of the total + cross section by the Pomeron term. Therefore the form used internally + is now + pTmin = PARP(81) * (ECM/PARP(89))**PARP(90), alternatively + pT0 = PARP(82) * (ECM/PARP(89))**PARP(90), + with ECM the current center of mass energy. Two new parameters are + introduced, PARP(89) and PARP(90), and the default values of PARP(81) + and PARP(82) are changed. + PARP(81) : (D=1.9 GeV) effective mimimum transverse momentum pTmin + for multiple interactions with MSTP(82) = 1, at the reference + energy scale PARP(89), with the degree of energy rescaling + given by PARP(90). + PARP(82) : (D=2.1 GeV) regularization scale pT0 of the transverse + momentum spectrum for multiple interactions with MSTP(82) >= 2, + at the reference energy scale PARP(89), with the degree of energy + rescaling given by PARP(90). (Current default based on MSTP(82)=4 + option, without any change of MSTP(2) or MSTP(33).) + PARP(89) : (D=1000 GeV) reference energy scale, at which PARP(81) and + PARP(82) give the pTmin and pT0 values directly. Has no physical + meaning in itself, but is used for convenience only. (A form + pTmin = PARP(81) * ECM**PARP(90) would have been equally possible, + but then with a less transparent meaning of PARP(81).) For studies + of the pTmin dependence at some specific energy it is convenient to + choose PARP(89) equal to this energy. + PARP(90) : (D=0.16) power of the energy-rescaling term of the pTmin and + pT0 parameters, which are assumed proportional to ECM**PARP(90). + The default value is inspired by the rise of the total cross + section by the Pomeron term, s**epsilon = ECM**(2*epsilon) = + ECM**(2*0.08), which is not inconsistent with the small-x behaviour. + It is also reasonably consistent with the energy-dependence + implied with a comparison with the UA5 multiplicity distributions + at 200 and 900 GeV. PARP(90) = 0 is an allowed value, i.e. it is + possible to have energy-independent parameters. + +----------------------------------------------------------------------- + +HADRONIZATION + +* Additions and changes to the baryon production models: + see separate section below. + +* The possibility of colour rearrangement has been introduced for + subprocess 25, W+W- pair production. + - For a description of the basic physics ideas and the scenarios + implemented, see + T. Sjostrand and V.A. Khoze, Z. Phys. C62 (1994) 281. + Available is also an alternative (the GH one) loosely based on + G. Gustafson and J. Hakkinen, Z. Phys. C64 (1994) 659. + - Only events where both W's decay hadronically (and not to top) + are affected. At most one reconnection is allowed per event. + - The code is based on the one available since long for + the PYTHIA 5.7 program as a freestanding extension. The former + version provided further information on where in an event a + reconnection occurs, but was less well integrated in the PYTHIA + framework than is the current implementation. + - A new subroutine + SUBROUTINE PYRECO(IW1,IW2,NSD1,NAFT1) + has been added with the different scenarios. It is called from + PYRESD where appropriate. + - MSTP(115) : (D=0) (C) choice of colour rearrangement scenario. + = 0 : no reconnection. + = 1 : scenario I, reconnection inspired by a type I + superconductor, with the reconnection probability related + to overlap volume in space and time between the W+ and W- + strings. Related parameters are found in PARP(115) - + PARP(119), with PARP(117) of special interest. + = 2 : scenario II, reconnection inspired by a type II + superconductor, with reconnection possible when two string + cores cross. Related parameter in PARP(115). + = 3 : scenario II', as model II but with the additional + requirement that a reconnection will only occur if the + total string length is reduced by it. + = 5 : the GH scenario, where the reconnection can occur that + reduces the total string length (Lambda measure) most. + PARP(120) gives the fraction of such event where a + reconnection is actually made; since almost all events + could allow a reconnection that would reduce the string + length, PARP(120) is almost the same as the reconnection + probability. + = 11 : the intermediate scenario, where a reconnection is + made at the "origin" of events, based on the subdivision + of all radiation of a q-qbar system as coming either from + the q or the qbar. PARP(120) gives the assumed probability + that a reconnection will occur. A somewhat simpleminded + model, but not quite unrealistic. + = 12 : the instantaneous scenario, where a reconnection is + allowed to occur before the parton showers, and showering + is performed inside the reconnected systems with maximum + virtuality set by the mass of the reconnected systems. + PARP(120) gives the assumed probability that a reconnection + will occur. Is completely unrealistic, but useful as an + extreme example with very large effects. + - PARP(115) : (D=1.5 fm) (C) the average fragmentation time of a + string, giving the exponential suppression that a reconnection + cannot occur if strings decayed before crossing. Is implicitly + fixed by the string constant and the fragmentation function + parameters, and so a significant change is not recommended. + - PARP(116) : (D=0.5 fm) (C) width of the type I string, giving the + radius of the Gaussian distribution in x and y separately. + - PARP(117) : (D=0.6) (C) k_I, the main free parameter in the + reconnection probability for scenario I; the probability is + given by PARP(117) times the overlap volume, up to saturation + effects. + - PARP(118), PARP(119) : (D=2.5,2.0) (C) f_r and f_t, respectively, + used in the Monte Carlo sampling of the phase space volume + in scenario I. There is no real reason to change these numbers. + - PARP(120) : (D=1.0) (D) (C) fraction of events in the GH, intermediate + and instantaneous scenarios where a reconnection is allowed to + occur. For the GH one a further suppression of the reconnection + rate occurs from the requirement of reduced string length in a + reconnection. + - MSTI(32) : information on whether a reconnection occured in the + current event; is 0 normally but 1 in case of reconnection. + - MINT(32) : information on whether a reconnection occured in the + current event; is 0 normally but 1 in case of reconnection. + +* The Bose-Einstein description is expanded with several new options. + The earlier global method to ensure energy conservation + (MSTJ(54)=0) has been replaced by a local one, i.e. the default + behaviour haschanged. + - For a description of the basic physics ideas and the scenarios + implemented, see + L. Lonnblad and T. Sjostrand, Eur. Phys. J. C2 (1998) 165. + - Some new switches and parameters have been added. + - MSTJ(53) (D=0) In e+e- -> W+W-, apply BE algorithm + = 0 : on all pion pairs. + = 1 : only on pairs were both pions come from the same W. + = 2 : only on pairs were the pions come from different Ws. + = -1 : on all pairs except unequal pions coming from + different Ws. + = -2 : when calculating balancing shifts for pions from same W, + only consider pairs from this W. + - MSTJ(54) (D=2) Alternative local energy compensation. (Notation + in brackets refer to the one used in the above paper.) + = 0 : global energy compensation (BE_0). + = 1 : compensate with identical pairs by negative BE + enhancement with a third of the radius (BE_3). + = 2 : ditto, but with the compensation constrained to vanish + at Q=0, by an addional 1-exp(-Q2*R2/4) factor (BE_32). + = -1 : compensate with pair giving the smallest invariant mass + (BE_m). + = -2 : compansate with pair giving the smallest string length + (BE_lambda). + - MSTJ(55) (D=0) Calculation of difference vector. + = 0 : in the lab frame. + = 1 : in the CMS of the given pair. + - MSTJ(56) (D=0) In e+e- -> W+W-, include distance between W's. + = 0 : radius is the same for all pairs. + = 1 : radius for pairs from different W's is R+deltaR_WW. + (When considering W pairs with an energy well above threshold, + this should give more realistic results.) + - MSTJ(57) (D=1) Penalty for shifting particles with close-by + identical neighbors in local energy compensation, MSTJ(54) < 0. + = 0 : no penalty. + = 1 : penalty. + - PARJ(95) :(R) Set to the energy imbalance after the BE algorithm, + before rescaling of momenta. + - PARJ(96) : (R) Set to the alpha needed to retain energy-momentum + conservation in each event for relevant models. + +* Particle data has in part been updated to the PDG 1996 edition + (Particle Data Group, R.M. Barnett et al.,Phys. Rev. D54 (1996) 1. + Not yet updated are the weakly decaying charm and bottom hadron + branching ratios - here new information is added continuously, but + still without a coherent picture. (In the PDG attempts at constrained + fits, i.e. the numbers relevent for generators, 24% of D0 decays + are left unexplained, 36% of D+, 82% of D_s, 93% of Lambda_c, + and no attempt at all is made in the bottom sector.) + +* A new decay channel may be selected in PYDECY after 200 failures. + +----------------------------------------------------------------------- + +BARYON PRODUCTION MODELS + +* New advanced scheme for baryon production with the popcorn mechanism, + plus some minor changes in the default older popcorn scheme. + - New code written by Patrik Eden, patrik@thep.lu.se. + - For a description of the new popcorn scheme, see + P. Eden and G. Gustafson, Z. Phys. C75 (1997) 41. + +* The default baryon production option, MSTJ(12)=2, is not changed in + any significant way. Advance warning is given, however, that the + default may be changed in future versions, at least to MSTJ(12)=3 + and possibly to MSTJ(12)=5. + +* Three new features for the baryon production are introduced. + - Improved treatment of SU(6) symmetry requirements. + + If q -> B + (qq)bar is SU(6)-rejected it may now change to + q -> M + q'. + + If qq -> M + qq', SU(6) symmetry is included in the weights for qq'; + qq is kept with unit probability. + + As before, qq is kept and only q is reselected when qq -> B + qbar + is SU(6)-rejected. + + As before, the joining qq + q -> B (when joining the two string + sides) suffers no SU(6) suppression. + The arguments for this procedure are presented below. It should not + be regarded as a new model, rather a more correct implementation of + the old. However, in order to enable the user to see the effects of + the SU(6) weighting separately, both procedures are available as + different options. + - Suppression of diquark vertices with small Gamma values. This is + based on a study of the production dynamics of the three quarks that + form a baryon. The main experimental consequence is a suppression + of the baryon production rate at large momentum fraction. + - New flavour algorithm for baryons and popcorn (also using the + small-Gamma suppression). While the old popcorn alternative allowed + at most one meson to be produced in between the baryon and the + antibaryon, the new model allows an arbitrary number. The new + flavour model makes explicit use of the popcorn suppression + exp(-2*m_T*M_T/k), where m_T is the transverse mass of the quark + creating the colour fluctuation, M_T is the total invariant + transverse mass of the popcorn meson system, and k is the string + tension constant. Thus two parameters, representing the mean + 2*m_T/k for light quarks and s-quarks, respectively, governs both + diquark and popcorn meson production. A corresponding parameter is + introduced for the fragmentation of strings that contain diquarks + already from the beginning, i.e. baryon remnants. + +* The arguments for the the new flavour SU(6) rules are as follows. + - In case of rejection due to SU(6) when q -> B + (qq)bar, one again + chooses between a diquark or a quark. If choosing diquark, a new one + is selected and tested, etc. In earlier versions of JETSET and PYTHIA, + the algorithm was instead to always produce a new diquark if the + previous one had been rejected. This leads to a slightly faster + algorithm and a better interpretation of the input parameter for the + diquark-to-quark production rate. However, the probability that a + quark will produce a baryon and a antidiquark is then flavour + independent, which is not in agreement with the model. With + JETSET 7.4 default values, this leads e.g. to an enhancement of the + Omega- relative to primary proton production with approximately a + factor 1.2. + - When selecting flavours according to the popcorn model for + qq -> M + qq', the quark coming from the accepted qq is kept, and the + other member of qq', as well as the spin of qq', is chosen with weights + taking SU(6) symmetry into account. Thus the flavour of qq is not + influenced by SU(6) factors for qq', but the popcorn meson is. + - When a diquark has been fitted into a symmetrical three-particle + state, it should not suffer any further SU(6) suppressions. Thus the + accompanying antidiquark should "survive" with unit probability. When + producing a quark to go with a previously produced diquark, this is + achieved by testing the configuration against the proper SU(6) factor, + and in case of rejection keep the diquark and pick a new quark, which + then is tested, etc. + - There is no obvious corresponding algorithm available when a quark + from one side and a diquark from the other are joined to form the + last hadron of the string. In this case the quark is a member of a + pair, in which the antiquark already has formed a specific hadron. + Thus the quark flavour cannot be reselected. One could consider the + SU(6) rejection as a major joining failure, and restart the + fragmentation of the original string, but then the the already accepted + diquark DOES suffer extra SU(6) suppression. In the program the joining + of a quark and a diquark is always accepted. + +* While the default behaviour of the older diquark and popcorn + scenarios is essentially unchanged, the new implementation of baryon + production does imply some minor differences also here. + - The "brute force" suppression of rank 1 baryons by a paramter PARJ(19), + is no longer a special option (previously MSTJ(12)=3). For backward + compatibility, it is however not removed. Instead it is in fact always + on, but is effectively off by keeping PARJ(19)=1, its default value. + - New, but fairly equivalent treatment of baryon production in closed + strings. (Calling the probability for diquark production x, the + probability for baryon production is changed from x at 1st vertex + and (1-x)x at 2nd, to 0 at 1st and x+(1-x)x at 2nd.) + - New treatment of random flavour selection - the 'rndmflav' decay + product - in hadron decays. If the production of daughters fails, + a new rndmflav is now selected. Previously the same one was used + until successful. (This is changed for the following reason: if + rndmflav is a diquark, at least one BB~ pair is produced, which + makes it more difficult to fulfill energy conservation, especially + if the decaying hadron is light.) + - New treatment of a low-mass closed string = cluster -> 2 hadrons. + (If splitting the cluster by a diquark, the old model approximation + of only one popcorn meson means that only one member of the + diquark-antidiquark pair should be allowed to split to a popcorn + meson. This is accounted for when splitting larger closed strings + in PYSTRF, and when selecting rndmflav's in PYDECY. However, + it was previously not done in PYPREP.) + +* How to use the baryon production options. + - Use of the old diquark and popcorn models, MSTJ(12) = 1 and 2, is + essentially unchanged. Note, however, that PARJ(19) is available + for an ad-hoc suppression of first-rank baryon production. + - Use of the old popcorn model with new SU(6) weighting: + + Set MSTJ(12)=3. + + Increase PARJ(1) by approximately a factor 1.2 to retain about the + same effective baryon production rate as in MSTJ(12)=2. + + Note: the new SU(6) weighting e.g. implies that the total + production rate of charm and bottom baryons is reduced. + - Use of the old flavour model with new SU(6) treatment and modified + fragmentation function for diquark vertices (which softens baryon + spectra): + + Set MSTJ(12)=4. + + Increase PARJ(1) by about a factor 1.7 and PARJ(5) by about a + factor 1.2 to restore the baryon and popcorn rates of the + MSTJ(12)=2 default. + - Use of the new flavour model (automatically with modified diquark + fragmentation function.) + + Set MSTJ(12)=5. + + Increase PARJ(1) by approximately a factor 2. + + Change PARJ(18) from 1 to approx. 0.19. + + Instead of PARJ(3-7), tune PARJ(8-10,18). (Here PARJ(10) is used + only in collisions having remnants of baryon beam particles.) + + Note: the proposed parameter values are based on a global fit to + all baryon production rates. This e.g. means that the proton rate + is lower than in the MSTJ(12)=2 option, with current data + somewhere in between. The PARJ(1) value would have to be about + 3 times higher in MSTJ(12)=5 than in =2 to have the same total + baryon production rate (=proton+neutron), but then other baryon + rates would not match at all. + - The new options MSTJ(12)=4 and =5 (and, to some extent, =3) soften + baryon spectra in such a way that PARJ(45) (delta-a for diquarks in + the Lund symmetric fragmentation function) is available for a retune. + It affects i.e. baryon-antibaryon rapidity correlations and the + baryon excess over antibaryons in quark jets. + +* Changes in and additions to the commonblocks. + MSTU(121-125) : Internal flags and counters; only MSTU(123) may be + touched by user. + MSTU(121) : Popcorn meson counter. + MSTU(122) : Points at the proper diquark production weights, to + distinguish between ordinary popcorn and rank 0 diquark + systems. Only needed if MSTJ(12)=5. + MSTU(123) : Initalization flag. If MSTU(123) is 0 in a PYKFDI call, + PYKFIN is called and MSTU(123) set to 1. Would need to be + reset by the user if flavour parameters are changed in the + middle of a run. + MSTU(124) : First parton flavour in decay call, stored to easily + find random flavour partner in a popcorn system. + MSTU(125) : Maximum number of popcorn mesons allowed in decay flavour + generation. If a larger popcorn system passes the fake string + suppressions, the error KF=0 is returned and the flavour + generation for the decay is restarted. + MSTU(131-140) : Store of popcorn meson flavour codes in decay algorithm. + Purely internal. + MSTJ(12) : (D=2) Main switch for choice of baryon production model. + Suppression of rank 1 baryons by a parameter PARJ(19) is no longer + governed by the MSTJ(12) switch, but instead turned on by setting + PARJ(19)<1. + Three new options are available: + = 3 : as =2, but with improved SU(6) treatment. + = 4 : as =3, but also suppressing diquark vertices with low Gamma + values. + = 5 : Revised popcorn model. Independent of PARJ(3-7). Depending + on PARJ(8-10). Including the same kind of suppression as =4. + PARJ(8), PARJ(9) : (D=0.6,1.2 GeV^-1) The new popcorn parameters B_u + and dB = B_s - B_u. Used to suppress popcorn mesons of total + invariant mass M_T by exp(-B_q*M_T). + PARJ(10) : (D=0.6 GeV^-1) Corresponding parameter for suppression of + leading rank mesons of transverse mass M_T in the fragmentation of + diquark jets. + PARF(131-187) : Different diquark and popcorn weights, calculated in + PYKFIN. + PARF(191) : (D=0.2 GeV) Non-constituent mass of ud_0 diquark, which has + a slight influence on the weights in the new algorithm. + PARF(192) : (D=0.5) Gamma suppression parameter. The suppression factor + is 1 - PARF(192)**Gamma, with Gamma in GeV^2. + PARF(193,194) : Store of some parameters used by the present popcorn + system. + PARF(201-1400) : Weights for every possible popcorn meson construction + in the MSTJ(12)=5 option. Thus MSTJ(12)=5 is forbidden to be + combined with MSTJ(15)=1. + +* In summary, all commonblock variables are completely internal, except + MSTU(123), MSTJ(12), PARJ(8-10) and PARF(191-192). + - PARF(191-192) should not need to be changed. + - MSTU(123) should be 0 when starting, and reset to 0 whenever changing + a switch or parameter which influences flavour weights. + - With MSTJ(12)=4, PARJ(5) may need to increase. + - With MSTJ(12)=5, a preliminary tune suggests + PARJ(8,9,10) = 0.6, 1.2, 0.6, PARJ(1)=0.20 and PARJ(18)=0.19. + +* Three new subroutines are added, but are only needed for internal use. + SUBROUTINE PYKFIN : Precalculates a set of diquark and popcorn weights. + Called by PYKFDI if MSTU(123)=0. Sets MSTU(123) to 1. + SUBROUTINE PYNMES(KFDIQ) : If KFDIQ=0, it generates the number of + popcorn mesons and stores some relevant parameters. If KFDIQ not 0 + it generates number of leading rank mesons in the fragmentation of + a diquark string with original diquark KFDIQ. Called by PYKFDI. + SUBROUTINE PYDCYK(KFL1,KFL2,KFL3,KF) : Handles flavour production in + the decay of unstable particles and small string clusters. Is + essentially the same as PYKFDI, but takes into acount the effects + of string dynamics on flavour selection in the MSTJ(12)>3 options. + KFL1,KFL2,KFL3 and KF are the same as for PYKFDI. Called by PYDECY + and PYPREP. + +* The complete list of subprogram changes is as follows. + PYCOMP : Taking internal popcorn flags on diquarks into account. + PYDECY, PYMASS : No longer checking diquarks for popcorn flags + before calling PYCOMP. + PYKFDI : Quite differently formulated, but equivalent algorithm + introduced. Improved treatment of SU(6) symmetry requirements. + New flavour algorithm, based on advanced popcorn model. + PYNMES : New function. Selects number of popcorns mesons in a + popcorn system. (Also used in the reformulated algorithm of + the old model, when it always returns 0 or 1 popcorn meson.) + PYKFIN : New subroutine. Precalculates a large set of flavour + production weights from the input parameters. + PYSTRF : The rank 1 baryon suppression no longer depends on any switch, + but merely on the suppression parameter. Default is no suppression. + New option, suppressing diquark vertices at small Gamma, + introduced. New (but corresponding) treatment of baryon production + at first and second vertex of closed string. Suppression factors of + popcorn meson system due to its transverse mass in new flavour + algorithm introduced. Junction strings forbidden to be combined + with new popcorn options. + PYINDF : The rank 1 baryon suppression no longer depends on any switch, + but merely on the suppression parameter. Default is no suppression. + Warning message if trying to combine with new popcorn options. + (No new options implemented.) + PYDCYK : New subroutine, handles flavour selection in new popcorn model + for the case of cluster and hadron decays, where no dynamical + string variables are present. Generalized to take care of old + flavour models as well. + PYDECY : Uses PYDCYK instead of PYKFDI to a large extent. Reselects + random flavour which failed. + PYPREP : Uses PYDCYK instead of PYKFDI in cluster decays. This implies + a better treatment of closed string clusters, where previously both + a random flavour diquark and its antidiquark partner was tested for + popcorn. + PYDATA : PARJ(8-10) given default values for new flavour algorithm. + Old model kept as default in MSTJ(12), PARJ(1) and PARJ(18). + PARF(131-194,201-1400) and MSTU(121-140) used internally. + +* Internally the diquark codes have been extended to store the necessary + further popcorn information. As before, an initially existing diquark + has a code of the type 1000*q_a + 100*q_b + 2s+1, where q_a > q_b. + Diquarks created in the fragmentation process now have the longer code + 10000*q_c + 1000*q_a + 100*q_b + 2s+1, i.e. one further digit is set. + Here q_c is the curtain quark, i.e. the flavour of the quark-antiquark + pair that is shared between the baryon and the antibaryon, either + q_a or q_b. The non-curtain quark, the other of q_a and q_b, may have + its antiquark partner in a popcorn meson. In case there are no popcorn + mesons this information is not needed, but is still set at random to be + either of q_a and q_b. The extended code is used internally in PYSTRF + and PYDECY and in some routines called by them, but is not visible in + any event listings. + +----------------------------------------------------------------------- + +INTERFACES TO OTHER GENERATORS + +* In e+e- annihilation events, a convenient classification of electroweak + physics is by the number of fermions in the final state. Two fermions + from Z0 decay is LEP1 physics, four fermions can come e.g. from W+W- + or Z0Z0 events at LEP2, and at higher energies six fermions are produced + by three-gauge-boson production or top-antitop. Often interference terms + are non-negligible, requiring much more complex matrix-element expressions + than are normally provided in PYTHIA. Dedicated electroweak generators + often exist, however, and the task is therefore to interface them to + the generic parton showering and hadronization machinery available in + PYTHIA. In the LEP2 workshop (I.G. Knowles et al., in Physics at LEP2, + CERN 96-01, eds. G.Altarelli, T. Sjostrand and F. Zwirner, p. 103) one + possible strategy was outline to allow reasonably standardized + interfaces between the electroweak and the QCD generators. The LU4FRM + routine was provided for the key four-fermion case. This routine is now + included here, in slightly modified form, together with two new siblings + for two and six fermions. The former is trivial and included mainly for + completeness, while the latter is rather more delicate. + - CALL PY2FRM(IRAD,ITAU,ICOM) + Purpose: to allow a parton shower to develop and partons to hadronize + from a two-fermion starting point. The initial list is supposed to + be ordered such that the fermion precedes the antifermion. In + addition, an arbitrary number of photons may be included, e.g. from + initial-state radiation; these will not be affected by the operation + and can be put anywhere. The scale for QCD (and QED) radiation is + automatically set to be the mass of the fermion-antifermion pair. + (It is thus not suited for Bhabha scattering.) + IRAD : final-state QED radiation. + = 0 : no final-state photon radiation, only QCD showers. + = 1 : photon radiation inside each final fermion pair, also leptons, + in addition to the QCD one for quarks. + ITAU : handling of tau lepton decay (where PYTHIA does not include + spin effects, although some generators provide the helicity + information that would allow a more sophisticated modelling). + = 0 : taus are considered stable. + = 1 : taus are allowed to decay. + ICOM : place where information about the event (flavours, momenta etc.) + is stored at input and output. + = 0 : in the HEPEVT commonblock (meaning that information is + automatically translated to PYJETS before treatment and back + afterwards). + = 1 : in the PYJETS commonblock. All fermions and photons can e.g. + be given with status code K(I,1)=1, flavour code in K(I,2) + and five-momentum (momentum, energy, mass) in P(I,J). The + V vector and remaining components in the K one are best put + to zero. Also remember to set the total number of entries N. + - CALL PY4FRM(ATOTSQ,A1SQ,A2SQ,ISTRAT,IRAD,ITAU,ICOM) + Purpose: to allow a parton shower to develop and partons to hadronize + from a four-fermion starting point. The initial list of fermions + is supposed to be ordered in the sequence fermion (1) - + antifermion (2) - fermion (3) - antifermion (4). The flavour pairs + should be arranged so that, if possible, the first two could come + from a W+ and the second two from a W-; else each pair should have + flavours consistent with a Z0. In addition, an arbitrary number of + photons may be included, e.g. from initial-state radiation; these + will not be affected by the operation and can be put anywhere. + Since the colour flow need not be unique, three real and one + integer numbers are providing further input. Once the colour + pairing is determined, the scale for QCD (and QED) radiation is + automatically set to be the mass of the fermion-antifermion pair. + (This is the relevant choice for normal fermion pair production + from resonance decay, but is not suited e.g. for 2-gamma processes + dominated by small-t propagators.) The pairing is also meaningful + for QED radiation, in the sense that a four-lepton final state is + subdivided into two radiating subsystems in the same way. Only if + the event consists of one lepton pair and one quark pair is the + information superfluous. + ATOTSQ : total squared amplitude for the event, irrespective of + colour flow. + A1SQ : squared amplitude for the configuration with fermions 1 + 2 and + 3 + 4 as the two colour singlets. + A2SQ : squared amplitude for the configuration with fermions 1 + 4 and + 3 + 2 as the two colour singlets. + ISTRAT : the choice of strategy to select either of the two possible + colour configurations. Here 0 is supposed to represent a reasonable + compromize, while 1 and 2 are selected so as to give the largest + reasonable spread one could imagine. + = 0 : pick configurations according to relative probabilities + A1SQ : A2SQ. + = 1 : assign the interference contribution to maximize the 1 + 2 + and 3 + 4 pairing of fermions. + = 2 : assign the interference contribution to maximize the 1 + 4 + and 3 + 2 pairing of fermions. + IRAD : final-state QED radiation. + = 0 : no final-state photon radiation, only QCD showers. + = 1 : photon radiation inside each final fermion pair, also leptons, + in addition to the QCD one for quarks. + ITAU : handling of tau lepton decay (where PYTHIA does not include + spin effects, although some generators provide the helicity + information that would allow a more sophisticated modelling). + = 0 : taus are considered stable. + = 1 : taus are allowed to decay. + ICOM : place where information about the event (flavours, momenta etc.) + is stored at input and output. + = 0 : in the HEPEVT commonblock (meaning that information is + automatically translated to PYJETS before treatment and back + afterwards). + = 1 : in the PYJETS commonblock. All fermions and photons can e.g. + be given with status code K(I,1)=1, flavour code in K(I,2) + and five-momentum (momentum, energy, mass) in P(I,J). The + V vector and remaining components in the K one are best put + to zero. Also remember to set the total number of entries N. + - CALL PY6FRM(P12,P13,P21,P23,P31,P32,PTOP,IRAD,ITAU,ICOM) + Purpose: to allow a parton shower to develop and partons to hadronize + from a six-fermion starting point. The initial list of fermions is + supposed to be ordered in the sequence fermion (1) - antifermion (2) - + fermion (3) - antifermion (4) - fermion (5) - antifermion (6). The + flavour pairs should be arranged so that, if possible, the first two + could come from a Z0, the middle two from a W+ and the last two from + a W-; else each pair should have flavours consistent with a Z0. + Specifically, this means that in a t-tbar event, the t decay products + would be found in 1 (b) and 3 and 4 (from the W+ decay) and the tbar + ones in 2 (bbar) and 5 and 6 (from the W- decay). In addition, an + arbitrary number of photons may be included, e.g. from initial-state + radiation; these will not be affected by the operation and can be put + anywhere. Since the colour flow need not be unique, further input is + needed to specify this. The number of possible interference + contributions being much larger than for the four-fermion case, we + have not tried to implement different strategies. Instead six + probabilities may be input for the different pairings, that the user + e.g. could pick at the six possible squared amplitudes, or according + to some more complicated scheme for how to handle the interference + terms. The treatment of cascades must be quite different for top + events and the rest. For a normal three-boson event, each fermion + pair would form one radiating system, with scale set equal to the + fermion-antifermion invariant mass. (This is the relevant choice for + normal fermion pair production from resonance decay, but is not + suited e.g. for 2-gamma processes dominated by small-t propagators.) + In the top case, on the other hand, the b (bbar) would be radiating + with a recoil taken by the W+ (W-) in such a way that the t (tbar) + mass is preserved, while the W dipoles would radiate as normal. + Therefore the user need also supply a probability for the event to + be a top one, again e.g. based on some squared amplitude. + P12, P13, P21, P23, P31, P32 : relative probabilities for the six possible + pairings of fermions with antifermions. The first (second) digit tells + which antifermion the first (second) fermion is paired with, with the + third pairing given by elimination. Thus e.g. P23 means the first + fermion is paired with the second antifermion, the second fermion + with the third antifermion and the third fermion with the first + antifermion. Pairings are only possible between quarks and leptons + separately. The sum of probabilities for allowed pairings is + automatically normalized to unity. + PTOP : the probability that the configuration is a top one; a number + between 0 and one. In this case, it is important that the order + described above is respected, with the b and bbar coming first. + No colour ambiguity exists if the top interpretation is selected, + so then the P12 - P32 numbers are not used. (One could imagine + colour reconnection at later stages of the process, e.g. between + the two W's. However, we are then no longer speaking of ambiguities + related to the hard process itself but rather to the possibility of + subsquent reconnection, e.g. at the nonperturbative level. This is + an interesting topic in itself, but not the one addressed here, + where the colour assignment is used for the full cascade evolution.) + IRAD : final-state QED radiation. + = 0 : no final-state photon radiation, only QCD showers. + = 1 : photon radiation inside each final fermion pair, also leptons, + in addition to the QCD one for quarks. + ITAU : handling of tau lepton decay (where PYTHIA does not include + spin effects, although some generators provide the helicity + information that would allow a more sophisticated modelling). + = 0 : taus are considered stable. + = 1 : taus are allowed to decay. + ICOM : place where information about the event (flavours, momenta etc.) + is stored at input and output. + = 0 : in the HEPEVT commonblock (meaning that information is + automatically translated to PYJETS before treatment and back + afterwards). + = 1 : in the PYJETS commonblock. All fermions and photons can e.g. + be given with status code K(I,1)=1, flavour code in K(I,2) + and five-momentum (momentum, energy, mass) in P(I,J). The + V vector and remaining components in the K one are best put + to zero. Also remember to set the total number of entries N. + +* The above routines are not set up to handle QCD four-jet events, i.e. + events of the types q qbar g g and q qbar q' qbar' (with q' qbar' coming + from a gluon branching). Such events are generated in normal parton + showers, but not necessarily at the right rate (a problem that may be + especially interesting for massive quarks like b). Therefore one would + like to start a QCD parton shower from a given four-parton configuration. + Already some time ago, a machinery was developed to handle this kind of + occurences, see J. Andre and T. Sjostrand, Phys. Rev. D57 (1998) 5767. + This approach has now been adapted to Pythia 6.1, in a somewhat modified + form. The main change is that, in the original work, the colour flow was + picked in a separate first step (not discussed in the publication, since + it is part of the standard Jetset 4-parton configuration machinery), + which reduces the number of allowed q qbar g g parton-shower histories. + In the current implementation, more geared towards completely external + generators, no colour flow assumptions are made, meaning a few more + possible shower histories to pick between. Another change is that mass + effects are better respected by the z definition. In its structure, the + new code is rather different from the original Jetset 7.4 based one. + The code contains one new user routime, PY4JET, two new auxiliary ones, + PY4JTW and PY4JTS, and significant additions to the PYSHOW showering + routine. + - CALL PY4JET(PMAX,IRAD,ICOM) + Purpose: to allow a parton shower to develop and partons to hadronize + from a q qbar g g or q qbar q' qbar' original configuration. The + partons should be ordered exactly as indicated above, with the + primary q qbar pair first and thereafter the two gluons or the + secondary q' qbar' pair. (Strictly speaking, the definition of + primary and secondary fermion pair is ambiguous. In practice, + however, differences in topological variables like the pair mass + should make it feasible to have some sensible criterion on an event + by event basis.) Within each pair, fermion should precede antifermion. + In addition, an arbitrary number of photons may be included, e.g. from + initial-state radiation; these will not be affected by the operation + and can be put anywhere. The program will select a possible + parton shower history from the given parton configuration, and then + continue the shower from there on. The history selected is displayed + in lines Nold+1 to Nold+6, where Nold is the N value before the + routine is called. Here the masses and energies of intermediate + partons are clearly displayed. The lines Nold+7 and Nold+8 contain + the equivalent on-mass-shell parton pair from which the shower is + started. + PMAX : the maximum mass scale (in GeV) from which the shower is started + in those branches that are not already fixed by the matrix-element + history. If PMAX is set zero (actually below PARJ(82), the shower + cutoff scale), the shower starting scale is instead set to be equal + to the smallest mass of the virtual partons in the reconstructed + shower history. A fixed PMAX can thus be used to obtain a reasonably + exclusive set of four-jet events (to that PMAX scale), with little + five-jet contamination, while the PMAX=0 option gives a more + inclusive interpretation, with five- or more-jet events possible. + Note that the shower is based on evolution in mass, meaning the cut + is really one of mass, not of pT, and that it may therefore be + advantageous to set up the matrix elements cuts accordingly if one + wishes to mix different event classes. This is not a requirement, + however. + IRAD : final-state QED radiation. + = 0 : no final-state photon radiation, only QCD showers. + = 1 : photon radiation is allowed in the QCD shower (but currently + a photon cannot be one of the four original partons). + ICOM : place where information about the event (flavours, momenta etc.) + is stored at input and output. + = 0 : in the HEPEVT commonblock (meaning that information is + automatically translated to PYJETS before treatment and back + afterwards). + = 1 : in the PYJETS commonblock. All fermions and photons can e.g. + be given with status code K(I,1)=1, flavour code in K(I,2) + and five-momentum (momentum, energy, mass) in P(I,J). The + V vector and remaining components in the K one are best put + to zero. Also remember to set the total number of entries N. + +----------------------------------------------------------------------- + +HISTOGRAMS + +* The GBOOK package was written in 1979, at a time when HBOOK was not + available in Fortran 77. It has been used since as a small and simple + histogramming program. For this new version of PYTHIA the program has + been updated to run together with PYTHIA in double precision. Only the + one-dimensional histogram part has been retained, and subroutine names + have been changed to fit PYTHIA conventions. These modified routines + are now distributed together with PYTHIA. They would not be used for + final graphics, but may be handy for simple checks. + +* Basic principles. + - There is a maximum of 1000 histograms at the disposal of the user, + numbered in the range 1 to 1000. Before a histogram can be filled, + space must be reserved (booked) for it, and histogram information + provided. + - Histogram contents are stored in a commonblock of dimension 20000, + in the order they are booked. Each booked histogram requires NX+28 + numbers, where NX is the number of x bins and the 28 include limits, + under/overflow and the title. If you run out of space, the program + can be recompiled with larger dimensions. + - Histograms can be manipulated with a few routines. + - Histogram output is "line printer" style, i.e. no graphics. + +* CALL PYBOOK(ID,TITLE,NX,XL,XU) + Purpose: to book a one-dimensional histogram. + ID : histogram number, integer between 1 and 1000. + TITLE : histogram title, at most 60 characters. + NX : number of bins (in x direction) in histogram, integer between + 1 and 100. + XL, XU : lower and upper bound, respectively, on the x range + covered by the histogram. + +* CALL PYFILL(ID,X,W) + Purpose: to fill a one-dimensional histogram. + ID : histogram number. + X : x coordinate of point. + W : weight to be added in this point. + +* CALL PYFACT(ID,F) + Purpose: to rescale the contents of a histogram. + ID : histogram number. + F : rescaling factor, i.e. a factor that all bin contents (including + overflow etc.) are multiplied by. + Remark: a typical rescaling factor could be f = + 1/(bin size * number of events) = NX/(XU-XL) * 1/(number of events). + +* CALL PYOPER(ID1,OPER,ID2,ID3,F1,F2) + Purpose: this is a general purpose routine for editing one or several + histograms, which all are assumed to have the same number of + bins. Operations are carried out bin by bin, including overflow + bins etc. + OPER: gives the type of operation to be carried out, a one-character + string or a CHARACTER*1 variable. + = '+', '-', '*', '/': add, subract, multiply or divide the + contents in ID1 and ID2 and put the result in ID3. F1 and F2, + if not 1D0, give factors by which the ID1 and ID2 bin contents + are multiplied before the indicated operation. (Division with a + vanishing bin content will give 0.) + = 'A', 'S', 'L': for 'S' the square root of the content in ID1 + is taken (result 0 for negative bin contents) and for 'L' the + 10-logarithm is taken (a nonpositive bin content is before that + replaced by 0.8 times the smallest positive bin content). + Thereafter, in all three cases, the content is multiplied by F1 + and added with F2, and the result is placed in ID3. Thus ID2 + is dummy in these cases. + = 'M': intended for statistical analysis, bin-by-bin mean and + standard deviation of a variable, assuming that ID1 contains + accumulated weights, ID2 accumulated weight*variable and + ID3 accumulated weight*variable-squared. Afterwards ID2 will + contain the mean values (=ID2/ID1) and ID3 the standard + deviations (=sqrt(ID3/ID1-(ID2/ID1)**2)). In the end, F1 + multiplies ID1 (for normalization purposes), while F2 is dummy. + ID1, ID2, ID3 : histogram numbers, used as described above. + F1, F2 : factors or offsets, used as described above. + +* CALL PYHIST + Purpose: to print all histograms that have been filled, and + thereafter reset their bin contents to 0. + +* CALL PYPLOT(ID) + Purpose: to print out a single histogram. + ID : histogram to be printed. + +* CALL PYNULL(ID) + Purpose: to reset all bin contents, including overflow etc., to 0. + ID : histogram to be reset. + +* CALL PYDUMP(MDUMP,LFN,NHI,IHI) + Purpose: to dump the contents of existing histograms on an external + file, from which they could be read in to another program. + MDUMP : the action to be taken. + = 1 : dump histograms, each with the first line giving histogram + number and title, the second the number of x bins and lower + and upper limit, the third the total number of entries and + under-, inside- and overflow, and subsequent ones the bin + contents grouped five per line. If NHI=0 all existing + histograms are dumped and IHI is dummy, else the NHI + histograms with numbers IHI(1) through IHI(NHI) are dumped. + = 2 : read in histograms dumped with MDUMP=1 and book and + fill histograms according to this information. (With + modest modifications this option could instead be used + to write the info to HBOOK/HPLOT format, or whatever.) + NHI and IHI are dummy. + = 3 : dump histogram contents in column style, where the + first column contains the x values (average of respective + bin) of the first histogram, and subsequent columns the + histogram contents. All histograms dumped this way must + have the same number of x bins, but it is not checked whether + the x range is also the same. If NHI=0 all existing histograms + are dumped and IHI is dummy, else the NHI histograms with + numbers IHI(1) through IHI(NHI) are dumped. A file + written this way can be read e.g. by GNUPLOT. + LFN : the file number to which the contents should be written. + You must see to it that this file is properly opened for write + (since the definition of file names is machine dependent). + NHI : number of histograms to be dumped; if 0 then all existing + histograms are dumped. + IHI : array containing histogram numbers in the first NHI positions + for NHI nonzero. + +* COMMON/PYBINS/IHIST(4),INDX(1000),BIN(20000) + Purpose: to contain all information on histograms. + IHIST(1) : (D=1000) maximum allowed histogram number, i.e. dimension + of the INDX array. + IHIST(2) : (D=20000) size of histogram storage, i.e. dimension of + the BIN array. + IHIST(3) : (D=55) maximum number of lines per page assumed for + printing histograms. 18 lines are reserved for title, + bin contents and statistics, while the rest can be used for the + histogram proper. + IHIST(4) : internal counter for space usage in the BIN array. + INDX : gives the initial address in BIN for each histogram. + If this array is expanded, also IHIST(1) should be changed. + BIN : gives bin contents and some further histogram information for + the booked histograms. If this array is expanded, also IHIST(2) + should be changed. + +----------------------------------------------------------------------- + +MISCELLANEOUS + +* Improved clarity of code and comments. + - The contents of DO loops are indented two steps. + - The header info given for each subroutine has been moved and modified. + - Title page with PYLOGO has been modified. + +* LUDBRB has been removed. The new PYROBO always requires two + integer arguments to give range of action, followed by the angles + and the boost vector. The integer arguments can be picked 0 to indicate + standard range (1-N). + +* MSTP(126) is now by default 50, giving the number of documentation + lines at the beginning of the record. + +* PYGIVE has been updated with new commonblock variables and changed + array dimensions. + +* The random number generator PYR now works in double precision, + i.e. 48 bits are set. The Marsaglia-Zaman algorithm is used, as before, + with a minor extension at the initialization stage. + +* PYCLUS has been expanded with new options 5 and 6, which do the + Durham algorithm as option 3 and 4 do the JADE one. + +* A new subroutine PYTIME has been added to give the date and time, + for use in PYLOGO and elsewhere. Since Fortran 77 does not contain + a standard way of obtaining this information, the routine is dummy, + to be replaced by the user. The output is given in an integer array + ITIME(6), with components year, month, day, hour, minute and second. + If there should be no such information available on a system, it is + acceptable to put all the numbers above to 0. + +* Extra check in PYSCAT for low remnant energies (mainly for heavy + quarks). + +* A new function PYMRUN to allow running (Q2-dependent) masses. + - PM = PYMRUN(KF,Q2) + Purpose: to give running masses of d, u, s, c and b quarks. For all other + particles, the PYMASS function is called by PYMRUN to give the normal + mass. + KF : flavour code. + Q2 : the scale at which the mass is evaluated. + Note: The nominal values, valid at a reference scale + Q2ref = max((PARP(37)*nominalmass)^2 , 4*Lambda^2), + are stored in PARF(91)-PARF(95). + - PARF(91) - PARF(95) : (D = 0.0099, 0.0056, 0.199, 1.35, 4.5 GeV) default + nominal masses, used to give the running masses. (Note change of b + quark mass from the 5 GeV previously used.) + - The result is that, for the d, u, s, c and b quarks, there are now + three different sets of masses in use in the program. + PMAS(KF,1) : the "on-shell" masses used to set up the kinematics of + partonic state produced in an event. + PARF(100+KF) : constituent masses, used in the fragmentation description, + recommended not to change. + PARF(90+KF) : the current algebra style masses, used as input for running + masses in Higgs physics. + For diquarks, only the first two exist, and for the others only the first + one. + +* For the HEPEVT common, NMXHEP is 4000 rather than 2000 and real variables + are DOUBLE PRECISION, to conform with the LEP 2 workshop agreement. + +* Some bug fixes. + +----------------------------------------------------------------------- + +CHANGES FROM BASELINE VERSION + +6.100 : 4 March 1997 - baseline. + +6.101 : 17 March 1997 + - PYRECO: DETER(I,J,K) -> DETER(I,J,L) to avoid problems with some + compilers. + - PYDUMP: bug END=180 -> END=170. + - PYWIDT: calculation of beta threshold factor reorganized to avoid + overflow at high energies and to remove an inconsistency. + - PYSTAT: option 2 changed to allow listing of third decay product + in some channels. + - PYTIME: alternative timing suited for GNU LINUX libU77. + - PYRAND: information on where in phase space a maximum has been + violated has been reduced (MSTP(122)=0 : not at all; =1 : only + when error (i.e. not for warnings); =2 : always). + +6.102 : 22 April 1997 + - PYMASS: the special options for MSTJ(93) nonzero, used especially + in the fragmentation process, have been corrected. This corrects + an error in the translation from JETSET 7.4 to PYTHIA 6.1. The + error has somewhat suppressed the amount of baryon production + relative to JETSET 7.4, but effects are not drastic. + - PYMULT: the comparison XT2.LE.0.01D0*VINT(149) has been changed to + 0.01001 to avoid possibility of infinite loop. + - PYSIGH: further check for process 145 that IA not equal to JA + (purely preventive; not known to have caused any problems). + +6.103 : 23 May 1997 + - PYSIGH, PYVACU, PYHGGM: some updates/corrections of the SUSY + generation. + - PYUPIN: allow external process numbers up to 500. + +6.104 : 30 June 1997 + - Three new processes for J/psi production: 106 - 108, see above, + in the section on `hard processes'. + - PYRESD: a major bug in the angular distribution of process 1, + caused by a missing factor of 2 in the WTMAX expression. This + leads to an essentially flat distribution in cos(theta). + +6.110 : 10 October 1997 + - Modified code for baryon production. The default behaviour is + essentially unchanged, while an advanced popcorn scheme has been + added as a further option. Also some intermediate new options + are implemented. The physics aspects are described above, in + the section on `baryon production models'. + - The Breit-Wigner evaluation in process 35 corrected in the same + way as has already been implemented for the other Z-production + processes (but apparently overlooked here). + - Restore bug fix to process 145, erroneously not carried over to + version 6.104. + - In the fixed-alpha_s option MSTU(111)=0 the Lambda=PARU(117) is + set so that the first-order running alpha_s agrees with the + desired fixed alpha_s for the Q2 value used. Of no consequence + except as extra safety. + - Error message if PYFILL is used with an unbooked histogram number. + - Further line added to output/input for PYDUMP options 1 and 2, + giving information on the total number of entries and under-, + inside- and overflow. + +6.111 : 27 October 1997 + - Forgotten values for XLO and XHI inserted in PYFINT routine. + - Change of sign convention for RMSS(16) in PYAPPS routine. + +6.112 : 30 October 1997 + - PYRESD has been modified to cope with the decay t -> W + b + Z + (note order of decay products), by including the necessary + colour flow option and by setting angular weight according to + isotropic decay of the W and Z. The program does not calculate + the partial width to this potential channel. + +6.113 : 11 November 1997 + - PYEIG4 has been expanded to cover a missed ambiguity in the solution + of a fourth-degree equation. This ambiguity could, for some parameter + values, give the wrong mass eigenstates in the neutralino sector. + +6.114 : 19 November 1997 + - GOTO jump into IF...ENDIF block removed from PYSTRF. + - Underscore replaced by W in some PYKFIN variable names. + +6.115 : 27 January 1998 + - In the intermediate scenario of colour reconnection, MSTP(115)=11, + the QCD radiation has been reduced until now by an untentional + application of the colour interference machinery. This is now + solved by having MSTJ(50)=0 during the shower call. + - A factor 1/SH has been missing in the width expression for + t -> stop + neutralino, thus giving too large partial width. + - Two errors in PYRESD corrected for the case the routine is called + from outside the standard PYINIT/PYEVNT machinery, i.e. without having + a subprocess number defined. The first ensures isotropic decay angles, + the second correct history pointers in K(I,3). + - D-format changed to E-format in PYDUMP(3), to be consistent with + GNUPLOT input conventions. + - Further check on allowed histogram numbers in PYFILL, PYFACT, + PYOPER, PYPLOT and PYNULL. + - Removed redundant/erroneous check on MSTU(183) in PYLOGO. + - MSTP(48) default changed from 2 to 0 as intended. (Should not + have mattered anywhere.) + +6.116 : 8 July 1998 + - Initial-state radiation for a muon beam is now allowed (and also for a + tau beam). The radiation machinery is as for an electron, with a + trivial replacement of the electron mass. To distinguish the e/mu/tau + cases, the PYPDEL routine has KFA as a further argument and PYPDFU is + modified accordingly. + - Ten new processes, 131 - 140, for reactions involving virtual photons. + The (square root with appropriate sign of the) photon virtualities can + be set in P(1,5) and P(2,5) when PYINIT is called with the 'FIVE' option. + - Two new processes, 104 and 105, for chi_c production. + - PYPDFU and other routines are modified to allow virtual photons. A dummy + copy of STRUCTP (the PDFLIB routine for virtual photons) is included in + case PDFLIB is not linked. + - New variable VINT(120) coincides with VINT(3) or VINT(4), depending on + which side of the event is considered. Is used to bring information on the + user-defined virtuality of a photon beam to the parton distributions + of the photon. + - GRV 92L parton distribution is reinserted, for crosschecks with + Pythia 5.7. Affects PYPDPR, PYPDFU and PYINIT. + - The technipi partial width to quarks corrected down by factor 3 + (avoiding doublecounting of colour factor). + - A fudge factor PARP(146) has been introduced for the technipi partial + width to a fermion pair. + - Address of the Pythia webpage is updated. + - In PYSHOW an IF-test has been broken into two nested ones to avoid + testing on meaningless condition. + - PYMAXI has been modified to handle the case when a user-defined + process is implemented but switched off (calculation of XSEC(0,1)). + - Protection against square root of negative number in PYTHRG. + +6.117 : 19 August 1998 + - New options 11 - 25 for MSTP(14) to mix alternatives for virtual photons. + - PYCLUS and PYCELL modified to ensure that N is unchanged and MSTU(3)=0 + when NJET is negative (to signal failure of the algorithm). + +6.118 : 13 September 1998 + - Bottom squark production is now treated separately, as for the top + squark. However, there are more processes because bottom is in the + PDF. The new processes 281 - 296 are listed in the Hard Subprocess + section above. + - Displaced vertices are now produced for resonances. This can be + particularly important for delayed decays of SUSY particles to + gravitinos, e.g. ~chi0_2 -> ~gravitino + photon. + - The angular distribution in chargino pair production has been + reversed (i.e. that <-> uhat) for some charge combinations. + - The width for ~g -> ~squark + quark has been fixed. The sign of + a squark mixing angle was reversed. + - PYMSIN modified so that several (SUSY parameter) initializations can + be done in a single run without setting up conflicting information. + - Some bugs in the technicolor decay widths have been fixed, and some + new options are now available, see PARP(146) - PARP(151). + - New option IMSS(5)=1 added. + - New Higgs pair production processes 297-301. A few of these are + already available as Z' decays, where the Z' part can be killed, + but this provides a more direct implementation. + - Expanded top decays to include gravitino stop and gluino stop. + Added entries for virtual chargino decays of stop that might + be important for light stop and light staus: + ~t_1 -> ~nu_tauL tau+ b + ~t_1 -> ~tau_1+ nu_tau b + Also added entries for the neutralino: + ~chi_10 -> c dbar e- + -> d sbar nu_e + The latter two would be R-parity violating decays. + The status of these decays modes is -1, and they have not + been tested. + - The branching ratios are zeroed out before refilling when + initializing SUSY decays. + +6.119 : 25 September 1998 + - Machinery introduced to allow photon inside lepton beam. + See further description above, section on hard processes. + - Extended Bose-Einstein treatment, with many new options for + W pair studies, see above on hadronization. Default behaviour + changed. + - PYSSPA modified so that the PARP(65) parameter for minimum gluon + energy emitted in spacelike showers is modifed by an extra factor + roughly corresponding to the 1/gamma factor for the boost to the + hard subprocess frame. Earlier, when a subsystem was strongly + boosted, i.e. at large rapidities in the cm frame of the collision, + the PARP(65) requirement became quite stringent on the low-energy + incoming side. Therefore much radiation could be cut out. + - PYSSPA modified so that the angular ordering requirement is based + on ordering p_T/p rather than p_T/p_L, i.e. replacing tan(theta) + by sin(theta). Earlier the starting value tan(theta)_max = 10 + could actually be violated by some bona fide emissions for strongly + boosted subsystems, where one side has small p_L. Therefore some + emissions were incorrectly removed when MSTP(62)=3, i.e. default. + - PYSSPA now sets relevant mass for QED emission to be mu or tau one + rather than e one for such incoming beams. (For a collider between + two different lepton species, the more massive one is used as + reference.) + - PYSHOW modified, so that photon emission off a lepton is governed + by the PARJ(90) parameter rather than PARJ(83) (see PARTON SHOWERS). + - PYUPDA corrected for bug in calculation of phase space available + in decay (generated unnecessary warnings). + - PYRESD modified to avoid calculation of undefined four-products + when called for an odd resonance (i.e. one not part of the + standard PYTHIA machinery, e.g. filled with PY1ENT). + - In pair production of heavy flavour (top) in processes 81,82, 84 + and 85, earlier only one of the masses was used in the matrix element, + under the assumption that the two were identical. Since we do not + have expressions involving the two separately, we now use an average + value constructed so that the beta kinematics factor is the same + for both having the average as for each having its correct value. + - Move technicolour parameter PARP(151) to PARP(140) to avoid clash. + - Effects of secondary widths included if leptoquark decays to top + (or fourth-generation fermions). + +6.120 : 1 October 1998 + - The pTmin and pT0 cutoff parameters of the multiple interactions + scenario(s) are now made explicitly energy-dependent (see + MISCELLANEOUS). + - MINT(45), MINT(46) set correctly to allow photon radiation off a + muon beam. Also some other minor bugs corrected for muon beams. + Note, however, that the MSTP(12)=1 option to obtain e.g. electrons + inside photons inside electrons does not work for muons. + - PYSSPA modified so lower Q2 cutoff for QED radiation off lepton + is always at least twice the mass-squared, in addition to the + cutoff provided by PARP(68). + - W2 limits in CKIN(39) and CKIN(40) not checked if process 10 is + called for two lepton beams. + - Labels cleaned up. + +6.121 : 15 October 1998 + - New routines PY2FRM, PY4FRM and PY6FRM added as generic interfaces + to two-, four- and six-fermion generators, see MISCELLANEOUS. + - The MSTP(14) switch has been expanded so that MSTP(14)=20 and =25 + works also for gamma-hadron, not only for gamma-gamma. These two + values would therefore be the two main alternatives for users. + The default has been changed to MSTP(14)=20. + - The MSTP(32) parameter for choice of Q2 scale has been expanded + with new options intended for virtual incoming photons. + - New function PYMRUN(KF,Q2) gives running (MSbar) mass of d, u, s, + c and b quarks. For all other KF, the PYMASS function is called by + PYMRUN to give the normal mass. PYWIDT and PYSIGH has been modified + for Higgs (and some technicolour) widths and production processes + to call PYMRUN rather than to implement the running inline. The + code for the running is identical, so the difference is that now + the PMAS(KC,1) masses can be set to the "on-shell" values expected + rather than the MSbar ones. The nominal b quark mass has been reduced + from 5 to 4.5 GeV, affecting some Higgs branching ratios. + The technipi rate to leptons has been somewhat changed. + See also MISCELLANEOUS. + - Correct minor bug in partial width of top to gravitino + stop. + - Reimplement PARP(146)-(148) in code (had been lost). + - Minor correction in the initialization printout. + +6.122 : 4 January 1999 + - New matrix-element correction scheme for initial-state radiation, + especially relevant for the production of a single s-channel + resonance. This allows much better description e.g. of the pT + properties of W and Z produced in hadron colliders. See + MISCELLANEOUS for further details. + - Change in PYRESD so that, when Z' or W' decays to (one or two) + top quarks, these are allowed to decay isotropically. (Previously + the matrix element for Z' -> W+ W- -> 4 fermions was erroneously + called.) + - Minor change in PYSHOW to catch one case where K(I,1) values + can become incorrectly set if the routine is called for a lepton + pair of very low mass (roughly below 1 GeV). + - The lepton-inside-lepton parton distribution is changed. Previously + f_e^e(x) was normal for x < 1 - 10^-4, scaled up for + 1 - 10^-4 < x < 1 - 10^-6 and 0 for x > 1 - 10^-6, where the + rescaling was arranged so as to give the correct integral of + f_e^e(x) from 0 to 1. Now the border at 1 - 10^-4 has been moved + to 1 - 10^-7 and the one at 1 - 10^-6 to 1 - 10^-10. This way any + irregularities in the line shape has been pushed into a much narrower + region; of some interest e.g. for a muon collider. + - Angular distribution included in decay of W in process 36, + gamma + f -> W + f', by analogy with process 31. + - DATA PARU split in two statements to avoid the 19-continuation-lines + limit. + - Extra safety check in PYREMN to avoid division by zero if + chi = 0 or 1. + - Matrix-element code MDME(IDC,2)=32 restored for h0, H0, A0, H+- -> + q qbar (set 0 in recent versions). This code is irrelevant when + resonance decays is performed in PYRESD, as is almost always the + case. + - PYMSIN modified so that MWID(KC) and MDCY(KC,1) values are saved + and restored for the lightest supersymmetric particle. Is relevent + where a single run contains several PYINIT calls for different + SUSY parameter sets, and hence different LSP's: it switches back on + the decays of a particle that was LSP but no longer is it. + - PYLOGO, PYTIME and PYHIST slightly modified for year + 2000-compatible output. + - New option MSTP(39)=5, where the Q2 scale of the gg, qqbar -> QQbarH + processes is set equal to the squared nominal Higgs mass + (cf. MSTP(39)=3 is the actual Higgs mass, i.e. fluctuating between + events). + - Introduce a line + IMPLICIT INTEGER(I-N) + in routines. This helps avoid a bug in the SGI Fortran compiler. + +6.123 : 2 February 1999 + - New process machinery for doubly charged Higgs production in a + left-right-symmetric scenario. Includes new particles and new hard + subprocesses; see these subsections. + - Introduce missing shat factor in cross section for process 140. + - Correct logic of photon virtuality choice in processes 131 - 136, + which gave erroneous results for the direct*resolved cases of + gamma*gamma* events. + - Explicit DOUBLE PRECISION declaration for EXTERNAL functions and + some DATA statements moved after all declarations to avoid problems + on some compilers. + - The pT^2 fluctuation margin allowed for independent fragmentation + in PYTEST increased. + +6.124 : 7 February 1999 + - The effects of longitudinal resolved photons can be approximated + by a multiplicative factor to the transverse resolved cross sections, + see PARP(165) in the hard processes section. + - Possibility to choose between e -> gamma splitting variable + being energy fraction x or lightcome fraction y, see MSTP(16). + - Cross sections for direct photon processes 137-140 corrected by a + factor shat/lambda, usually very close to unity, to better describe + phase space relations. + - A few bug corrections in the new popcorn scenario (see section + above on baryon production models). Especially, one bug also came + to affect the default baryon production scenario, and could in + some cases result in charge and baryon number nonconservation in + the beam remnant fragmentation process (PYREMN). + - PYKFIN extensively rewritten. Mostly cosmetics, but also + 1) For MSTJ(12)=5, a factor 2 was misplaced for ud_1 and uu_1 + diquark production in the process (rank 0 qq) -> ... M + B + ... + 2) In the old algorithm the diquark SU(6) survival factor was not + considered when generating the final diquark of a popcorn + system. In Pythia 6.110, this factor was introduced for the new + options MSTJ(12)>2, but unintentionally also for MSTJ(12)=2. For + backward compatibility, the diquark SU(6) survival factors are now + set to 1 if MSTJ(12)<3. + - IN PYRAND the VINT(25) = x_T^2 calculation was incorrect for a + user-defined process; normalization now changed from VINT(1) to + VINT(2). Will have given too high a starting x_T for multiple + interactions. + - The well-known but harmless rho0 -> eta gamma and a_2 -> eta' pi + possibilities of looping in PYDECY no longer cause a warning + message. + - In process 23 the cross section in PYSIGH is explicitly ensured to + be non-negative. This is likely a problem of the far-out wings of + the Breit-Wigners, which the cross section is not set up to handle. + +6.125 : 21 February 1999 + - PYSTRF corrected for a bug in the choice of the string region + which defines the longitudinal directions of the final two hadrons. + In principle the bug is severe, but in practice its consequences + are limited, since in many events the final string region is + uniquely defined so that the choice is irrelevent, and since, + even when there is a choice, the procedure would work whichever + of the two possible regions is selected. + - PYSSPA treatment of QED showers corrected, in three respect. First, + lower x cutoff (XEE) changed from 1D-7 to 1D-10 to match changes + in lepton-in-lepton distributions of 6.122. Second, the + matrix-element matching can made also for QED processes. + Third, a scattered lepton does not (occasionally) get K(I,1)=3. + - New (default) option for lower parton-shower cutoff (and `primordial + kT') in resolved photons, see MSTP(66) above. + - New parameter and default behaviour for multiple interactions in the + VMD component of virtual photons, see MSTP(84) above. + - For non-QCD processes, a photon is now assumed unresolved when + MSTP(14)=10, 20 or 25. (In principle, both the resolved and direct + possibilities ought to be explored, but this mixing is not currently + implemented, so picking direct at least will explore one of the two + main alternatives rather than none.) Also a minor change in PYMAXI + to correct the calculation of number of points in y* for a photon + beam. + - New option MSTP(32)=10 : Q2 scale is equal to CM energy. No special + reason except as extreme contrast (or not so extreme, for many e+e- + processes). + +6.126 : 26 March 1999 + - The simulation of the production and decays of technicolor particles + has been substantially upgraded. The processes 149, 191, 192, and 193 + are to be considered obsolete, and are temporarily retained to allow + cross checking with the new processes. Process 194 has been changed + to more accurately represent the mixing between the photon, Z, + techni_rho0, and techni_omega particles in the Drell-Yan process. + Process 195 is the analogous process including W and techni_rho+/- + mixing. Processes 361 - 377 are completely new. For a listing of + processes and parameters, see the description in the Hard Processes + section. + - The possibility of flavor--dependent Z0' couplings has been considered. + The previous set of parameters PARU(121)--PARU(128) now affect only + the first generation of fermions. As before, these parameters represent + the V and A couplings for the d-quark, u-quark, electron, and nu_e, + respectively. The parameters PARJ(180)--PARJ(187) and + PARJ(188)--PARJ(195) represent the V and A couplings of the s-quark, + c-quark, muon, nu_mu and b-quark, t-quark, tau, and nu_tau, + respectively. The default value for all parameters are the standard + model values. + - PYMSIN : improve zeroing of branching ratios when several parameter + sets are considered in the same run. + +6.127 : 18 May 1999 + - In process 226, for chargino pair production, the sign in the + u quark inteference term in the cross section is changed. + - In PYRESD, the HGZ array of relative Z/gamma weights in processes + 15, 19, 30 and 35 was not always stored and read out with the same + index, leading to a potentially incorrect angular distribution in + the Z decay, specifically concerning forward-backward asymmetries. + - In process 25, W pair production, the contribution from Z exchange + to the cross section is now evaluated with a fixed width for the Z + in the propagator, in PYSIGH. That is, the GMMZ = mass * width + in the denominator of the progagator is used with the nominal mass + and width of the Z. Previously the actual mass and the running width + were used, which gave rise to divering cross sections, by imperfect + gauge cancellation, at large energies. + - In process 140, for longitudinal photon interactions, the cross section + corrected for an erroneous factor shat too much. + - In photon physics, the setting of MINT(15), MINT(16), VINT(307) and + VINT(308) have been corrected for some cases, affecting PYRAND, + PYGAGA, PYMAXI and PYINPR. + - The normalizing cross section used for multiple interactions in + photon collisions is scaled by a factor m^4/(m^2+Q^2)^2 for virtual + photons, rather than only the square root of that. + - New variable MSTP(69), replacing some of the functionality previously + provided by MSTP(68) but removed with the change in PYSSPA with + Pythia 6.119: + MSTP(69) : (D=0) possibility to change Q2 scale for parton distributions + from the MSTP(32) choice, especially for e+e-. + = 0 : use MSTP(32) scale. + = 1 : in lepton-lepton collisions, the QED lepton-inside-lepton + parton distributions are evaluated with s, the full squared CM + energy, as scale. + = 2 : s is used as parton distribution scale also in other + processes. + - Insert WID2=1 in a few more places in PYWIDT, to avoid it being + undefined. + - THE, PHI, CHI -> THEZ, PHIZ, CHIZ in the special e+e- -> Z option + of PYRESD, to avoid a name clash. + - Insert extra demand when storing THE2T in PYSSPA, for consistency + (to avoid storing an undefined variable). + - Replace SQMW*PMAS(24,2)**2 by GMMW**2 in PYSIGH. + - Remove unused SR2 in PYSIGH. + - Further examples of PYTIME solutions on some machines have been added. + +6.128 : 3 June 1999 + - Introduce new options for MINT(47): + = 6 : parton distribution is peaked at x=1 for target and no + distribution at all for beam. + = 7 : parton distribution is peaked at x=1 for beam and no + distribution at all for target. + This prompts modifications in several routines, especially + PYSIGH and PYKMAP, with modified checks and phase space factors, + and also e.g. the possibility of having a 1/(1-tau) term in + the selecion procedure of e-gamma collisions. + - Put MINT(15 or 16) = 22 in PYGAGA for a photon whenever MSTP(14)=0. + - Modify the cross section for process 35 to depend on the + virtuality of the incoming photon in e gamma* -> e Z0. + (Exact form ambiguous, but hopefully sensible choice.) + - In PYOFSH the modification of the allowed resonace mass range by + CKIN values is modified when the other particle is not a resonance. + +6.129 : 9 July 1999 + - Correct severe bug in colour reconnection with PYRECO, whereby the + W+ and W- decay vertices were swapped if the resonaces were given + in the order W- W+. This is the case when PYINIT is called with the + beam arguments 'e-','e+' rather than 'e+','e-'. In scenarios I, II + and II', the rearrangement rate is then overestimated. + - Allow to switch on colour reconnection also for subprocess 22, Z0Z0 + pair production, analogously with rearrangement in W+W- events. + Note, however, that the Z0 decay vertex position is calculated + without any regard to the gamma* component of the cross section. + Thus, the description in scenarios I, II and II' would not be + sensible e.g. for a light-mass gamma*gamma* pair. + - The width of the A0 higgs particle to a fermion pair is corrected + to be like beta (=velocity), rather than like beta**3. + - Default decay status for Higgs modes to supersymmetric particles + changed from -1 to 1 in MDME(IDC,1) in PYDATA. + - New options to take into account the effects of resolved longitudinal + photons, see above MSTP(17), PARP(165), PARP(167) and PARP(168) + (PYSIGH routine). + - When calling virtual-photon PDF's via PDFLIB, ensure that P^2 < Q^2. + For GRS, also ensure the specific cuts in that parameterization, + specifically P^2 < Q^2/5. + +6.130 : 6 September 1999 + - pi0 decay was unintentionally switched off by default from version + 6.126 onwards, but is now again allowed to decay. + - A major bug has been corrected in the PYBOEI routine for Bose-Einstein + corrections. It does not affect the BE_0, BE_3 and BE_32 (default) + options, but only the BE_m and BE_lambda alternatives, MSTJ(54)=-1 + and -2 (when MSTJ(57)=1, which is default). The weight used to + define the most likely particles to carry the energy/momentum + compensation of BE pairs contained a sign error in an exponential, + which meant that not always the intended particles were selected. + This affects several of the distributions obtained with these + algorithms in the past. The predicted average W mass shift is among + the quantities changed, but stays of the same order. + - PYSHOW has been modified and expanded with new options, see the + PARTON SHOWERS section above for further details. + First, the emission of gluons off primary quarks in gamma*/Z0 decays + has been modified. This increases the amount of gluon radiation off + heavier quarks like b's (by about 5% at LEP1), while light quarks + are not affected. + Second, the description of g -> q qbar branchings has been expanded + with several new options, MSTJ(42)=3 and 4 and MSTJ(44)=3, in order + to explore a larger range of uncertainty in predictions. + - PY6FRM has been improved, so that if an event is classified as a + ttbar one, the t pair is allowed to radiate gluons before the top + decay. Radiation off the b's and in the W decays is there as earlier. + +6.131 : 13 September 1999 + - New routine PY4JET introduced (with auxiliary routines PY4JTW and + PY4JTS, and significant additions to PYSHOW) to provide interface + from a four-jet QCD generator to a parton-shower evolution. See + further description in section on INTERFACES TO OTHER GENERATORS. + +6.132 : 23 September 1999 + - Default (pseudo)rapidity limits in CKIN(9)-CKIN(16) changed from + +-10 to +-40, since former still can imply an unwanted pTmin cut. + - Also PYKLIM modified to avoid erroneous rejections at extreme + (pseudo)rapidities. + - When MINT(15)=1 is set before a PYWIDT call, the original value + is restored afterwards. + - Incoming/outgoing lepton mass included in cross section for + process 35. + +6.133 : 29 September 1999 + - Correct the calculation of that and uhat for process 35 when the + incoming photon is virtual, so that masses are assigned assuming + that incoming parton number 2 is the photon (for the internal + numbering). + - Introduce a missing factor of 1/2 in the cross section for processes + 351 and 352, H++/H-- production, and change the rules for when + t^ and u^ contributions should be symmetrized so it is only done + for identical leptons. + +6.134 : 10 October 1999 + - New internally available parton distribution parameterizations for + the proton, CTEQ 5L and CTEQ 5M1. These are obtained with + MSTP(51)=7 and =8, respectively. Internally: changes in PYPDPR and + PYINIT, and additions of new routines PYCT5L and PYCT5M. All is based + on code written by Jon Pumplin, with minor modifications to fit the + PYTHIA framework. + +6.135 : 3 November 1999 + - Major modifications in routine PYPREP, intended e.g. to improve + modelling of charm/bottom production from small-mass parton systems, + "clusters". It is now possible to select between a few alternative + descriptions of how energy/momentum is shuffled when a cluster + collapses to a single particle, and to have anisotropic decay when + a cluster gives two particles. See E. Norrbin and T. Sjostrand, + Phys. Lett. B442 (1998) 407 and in preparation. + MSTJ(16) : (D=2) mode of cluster treatment. + = 0 : old scheme. Cluster decays (to two hadrons) are isotropic. + In cluster collapses (to one hadron), energy-momentum + compensation is to/from the parton or hadron furthest away + in mass. + = 1 : intermediate scheme. Cluster decays are anisotropic in a + way that is intended to mimic the Gaussian pT suppression and + string 'area law' of suppressed rapidity orderings of ordinary + string fragmentation. In cluster collapses, energy-momentum + compensation is to/from the string piece most closely moving + in the same direction as the cluster. Excess energy is put + as an extra gluon on this string piece, while a deficit + is taken from both endpoints of this string piece as a common + fraction of their original momentum. + = 2 : new default scheme. Essentially as above, except that a + energy deficit is preferentially taken from the endpoint of + the string piece that is moving closest in direction to the + cluster. + MSTJ(17) : (D=2) number of attempts made to find two hadrons that + have a combined mass below the cluster mass, and thus allow a + cluster to decay to two hadrons rather than collapse to one. + Thus the larger MSTJ(17), the smaller the fraction of collapses. + At least one attempt is always made, and this was the old default + behaviour. + - In order to better match the data on charm production asymmetries, + the quark masses in PMAS(I,1) have been changed to be in line with + constituent quark masses. These are the masses that are used for + kinematics construction, and also influence production cross sections. + After the introduction of the PYMRUN routine for running quark masses + of relevance e.g. as Higgs couplings, there is no longer the previous + need to store current algebra masses in PMAS. (Actually, this is + thereby a return to the practice in very old versions of the program, + before the Higgs considerations lead to a change.) + PMAS(1,1) - PMAS(5,1) : (D= 0.33, 0.33, 0.5, 1.5, 4.8 GeV) + - The default primordial kT value has been raised by about a factor of + two to better account for a number of production characteristics, + such as charm azimuthal correlations. The new default is very + difficult to consider as a purely nonperturbative number, but + could be viewed as also resumming some soft perturbative gluon + emissions. + PARP(91) : (D=1 GeV) Gaussian width. + PARP(92) : (D=0.4 GeV) equivalent exponential width. + PARP(93) : (D=5 GeV) upper cut on primordial kT spectrum. + PARP(99) : (D=1 GeV) Gaussian width for photon remnant. + PARP(100) : (D=5 GeV) upper cut on primordial kT spectrum for photon + remnant. + - The default MSTP(92) value has been changed to 3. This provides a + somewhat more even energy sharing between two coloured beam remnants, + and again helps improve charm production phenomenology. + - Changed parameterization of the probability for reverse rapidity + ordering in the joining of the final two hadrons in string + fragmentation, and now also for a cluster decaying to two hadrons. + P_rev = 1/(1 + exp(b Delta)) with + Delta = Gamma_2 - Gamma_1 + = sqrt((mT0**2 - mT1**2 - mT2)**2)**2 - 4 mT1**2 mT2**2). + Here Gamma_1 and Gamma_2 are the string squared invariant times of + the two possible breaks, of a subsystem with transverse masses + mT0 -> mT1 + mT2. For Lund fragmentation functions, b = PARJ(42), + and thus PARJ(38) is no longer used, while for other functions + b = PARJ(39) has been refitted. Note that this does not represent + any noticeable change of the physics output. + PARJ(39) (D=0.08 GeV^-2) related to probability for reverse + rapidity ordering for Field-Feynman type fragmentation functions, + as above. + - PYDIFF: remove a check on minimum invariant masses that, for the new + default quark masses, could lead to an infinite loop. + - PYSSPA, PYREMN: remove a check on and rescaling of (boost) beta + values close to 1, that were leftovers from the single-precision + version. In some rare events at very high energies, this could give + significant energy-momentum nonconservation. + - PYDATA: adjust the length of some PROC character constants that had + wrong number of trailing blanks. + - PYDECY: change a DO 310 I=1,4 to I=1,NQ to avoid that the routine + may copy unnitialized values, which gives problems on some compilers. + - PYSHOW: change dimension of ISSET from 2 to 3. The too small size + may have given problems for showers in Upsilon decays, but not in + normal showers from two partons. + +6.136 : 30 November 1999 + - PYSSPA: two changes, for initial-state showers related to flavour + excitation, where a c (or b) quark enters the hard scattering and + should be reconstructed by the shower as coming from a g -> c cbar + (or g -> b bbar) branching. + First, an x value for the incoming c above Q_max^2/(Q_max^2 + m_c^2) + does not allow a kinematical reconstruction of the gluon branching + with an x_g < 1, and is thus outside the allowed phase space. Such + events (with some safety margin) are rejected. Currently they will + appear in PYSTAT(1) listings in the 'Fraction of events that fail + fragmentation cuts', which is partly misleading, but has the correct + consequence of suppressing the physical cross section. + Second, the Q^2 value of the backwards evolution of a c quark is + by force kept above m_c^2, so as to ensure that the branching + g -> c cbar is not 'forgotten' by evolving Q^2 below Q_0^2. Thereby + the possibility of having a c in the beam remnant proper is eliminated. + Warning: as a consequence of the changes above, flavour excitation + is not at all possible too close to threshold. If the KFIN array + in PYSUBS is set so as to require a c (or b) on either side, and + the phase space is closed for such a c to come from a g -> c cbar + branching, the program will enter an infinite loop. + - The older EHLQ1, EHLQ2, DO1 and DO2 parton distributions of the + proton have been ported from Pythia 5 and inserted as + MSTP(51) = 12 - 15. Not intended for current studies, but good + for checks of backwards compatibility. In this connection, the + default of MSTP(58) is changed from 6 to 5, since the EHLQ + distributions also contain top, that one nowadays probably would + not want to see included by default. + - PYREMN is modified, so that when a hadronic remnant is split in two, + the primordial kT recoil is shared evenly between them (with a + relative pT kick added). + - The default for MSTP(94) is changed from 2 to 3, meaning that the + standard Lund symmetric fragmentation function is used for the + lightcome momentum fraction of the hadron produced from a multiquark + remnant. + - PYTHRG: protect against negative square root (by roundoff) in RT(1,2). + +6.137 : 2 February 2000 + - Introduce new process 146, e + gamma -> e*. + - Process 161 Breit-Wigner corrected to suppress low-mass tail. + - PYSHOW corrected for possibility of populating unallowed region of + phase space (and thereby breaking energy-momentum conservation) + in the option where a given four-parton configuration is used to + start the shower, e.g. from PY4JET. + - The default value of PARP(67) changed from 4 to 1; relates to scale + matching between initial-state parton shower and hard scattering. + +6.138 : 2 March 2000 + - Introduce new process 169, q + qbar -> e + e*. + - For QCD processes in the multiple interactions description, also + c and b quarks are allowed as incoming partons. Thus also charm + and bottom production by flavour excitation is included in this + framework. (Only for the hardest interaction, however, related to + limitations in the beam-remnant treatment.) + - Exclude by default the possibility of top-antitop pair production + for processes where a new flavour pair is produced at a gluon or + photon vertex, i.e. processes 12, 53, 54, 58, 96 and 135-140. + (This is achieved by changing the g, gamma -> t + tbar decay + channels to MDME(IDC,1)=0.) + - Correct severe errors in the width calculation in PYWIDT for Z'/Z. + Affects process 141. + - Insert missing SQMW and SQMZ definitions for techni-rho width + calculations. + - Redistribute colour interference term of cross section in process + 11 (and corresponding part of process 96) to avoid some part of + the cross section from becoming negative. + - Avoid rare division by zero in boost in PYSTRF. + - Minor further improvement of the PYSHOW modification of the 6.137 + version. + - Minor modification to PYSSPA to allow Q2 scale to be raised + slightly if g -> Q + Qbar branching is kinematically problematical. + +6.139 : 23 March 2000 + - A severe bug has been found for the multiple interactions scenario + when MSTP(82) >= 3, i.e. when using variable impact parameters. + It is only important when the main, "hard" process (the one(s) + selected with the MSEL oand MSUB switches) can become rather soft, + like e.g. in gamma*/Z production at small masses. Here follows + more details. + The traditional multiple interactions procedure is to let the main + interaction set the upper pT scale for subsequent multiple + interactions. For QCD, this is a matter of avoiding doublecounting. + Other processes normally are hard, so the procedure is then also + sensible. However, for a soft main interaction, further softer + interactions are hardly possible, i.e. multiple interactions are + more or less killed. + For MSTP(82) >= 3 it is even worse, since also the events themselves + are likely to be rejected in the impact-parameter selection stage. + Thus the spectrum of main events that survive is biased, with the + soft tail suppressed. Such a behaviour could be motivated by the + rejected events instead appearing as part of the interactions + underneath a normal QCD hard interaction, but in practice the latter + mechanism is not implemented. (And would have been very inefficient + to work with, had it been.) Furthermore, even when events are + rejected by the impact parameter procedure, this is not reflected + in the cross section for the process, as it should have been. + Therefore the default behaviour has been modified, so that only + for QCD processes is the main process enforcing a limit on the + subsequent interactions. Note that this also allows more underlying + event activity in the default options MSTP(82)<=2. + MSTP(86) : (D=2) requirements on multiple interactions based on + the hardness scale of the main process. + = 1 : the main collision is harder than all the subsequent + ones (old behaviour, for backwards compatibility, with + dangers and errors as noted above). + = 2 : when the main process is of the QCD jets type (the same + as those in multiple interactions) subsequent jets are + requested to be softer, but for other processes no such + requirement exists. + = 3 : no requirements at all that multiple interactions have + to be softer than the main interactions (of dubious use for + QCD processes but intended for crosschecks). + Note : process cross sections are unreliable whenever the + main process does restrict subsequent interactions, and the + main process can become soft. For QCD jet studies in this + region it is then better to put CKIN(3) < PARP(81) or + PARP(82) and get the "correct" total cross section. + - The default primordial kT value has been raised by about a factor of + two for protons in version 6.136; now also the photons are changed + the same way. + PARP(99) : (D=1 GeV) Gaussian width for photon remnant. + PARP(100) : (D=5 GeV) upper cut on primordial kT spectrum for photon + remnant. + - Correct minor bug in PYBOEI, causing division by zero in rare cases. + +6.140 : 2 May 2000 + - Correct bug in PYSCAT for processes 203, 206 and 209, giving wrong + colour flow. + - Correct final mass selection machinery in PYSCAT, for cases when + a generic quark happens to become a top (or another heavy one) and + thus have to be assigned a large and variable mass. + - Change PYSSPA for a photon beam so that a c (or b) heavy quark is + not necessarily to be reconstructed as coming from a branching + g -> c + cbar. (Since a photon has a c/b valence quark content, + unlike normal hadronic beam particles.) + - Introduce new loop counter to PYSSPA, to interrupt event in case + it seems to be impossible to find a consistent kinematics for + shower branchings. (Rare, but can happen for heavy flavours.) + +6.143 : 15 May 2000 + - New machinery for treatment of minimum bias processes in + gamma*-p and gamma* gamma* processes, not yet quite complete + but released to give some first feedback. Extensive changes in + PYXTOT, PYGAGA, PYRAND, PYSCAT, PYINPR, PYSIGH, PYMULT, PYSSPA + and PYKLIM. Default behaviour changed, both by changes of the code + and by changes of some default values. While it should be possible + to recover most of the old behaviour by suitable changes of switches + and parameters, complete backwards compatibility is not assured. + Therefore it is better to think of this version as a clean break + in the area of minimum bias physics for virtual photons. The + machinery can be used either for photons of fixed virtuality, + by using the 'FIVE' option of the PYINIT call, or for a spectrum of + photon virtualities by using the GAMMA/E beam particle option. + For the latter option, photon kinematics can be constrained + with CKIN variables. In either case, the CKIN(3) variable is + used to switch between a minimum-bias and a jet description, + just like for hadronic collisions. MSEL=2 also gives diffractive + and 'elastic' events. What is still missing is mainly the admixing + of DIS-type events; work is underway. Further details can be found + in the HARD PROCESSES section above. + - Bug found and corrected for process 137-140, where before the + flavour selection machinery did not allow the production of + gamma * gamma* -> lepton+ lepton-, even when this kind of + processes were switched on and included in the cross section. + - Checks on the x values allowed for colliding beams have been + extended. For a hadron beam, x is not allowed to be above + 1 - 2 * PARP(111)/E_CM. This ensures that the hadronic beam remnant + has an energy of at least PARP(111) in the rest frame of the event, + as is required (with some safety margin) in order to construct a + realistic beam renmnant. The need emerged out of studies with + anomalous photons, where the parton distributiosn are large close + to x = 1, but the correction is applied to all kinds of hadronic + events. + - Break out of loop in PYPOLE routine if no convergence after 100 + iterations. + +6.144 : 25 May 2000 + - New process 99, for DIS scattering gamma* + q -> q, where it is + assumed that the photon flux is provided separately. New code + ISET(ISUB)=8 represents this kinematics. New routine PYDISG to + handle the kinematics of this process. Thus the gamma*-p + and gamma* gamma* machineries are extended also to include + automatic mixing with DIS processes, see comment for version 6.143. + Many changes in code. New options for MSTP(14), MSTP(18), MSTP(19), + and several MINT and VINT variables. New default value MSTP(14)=30 + gives automatic mix with DIS processes. + - Enhancement from longitudinal photons (see MSTP(17)) did not work + in 6.143 and has now been corrected. + - Default values for x_min and y_min of emitted photons (CKIN(61), + CKIN(63), CKIN(73), CKIN(75) changed from 0.01 to 0.0001). + - PYTECM declarations changed to Pythia standard ones. + - PYK: minor change to nest IF requirements to avoid problems with + some compilers. + +6.145 : 29 May 2000 + - Insert forgotten conversion factor in process 99 cross section. + - Exclude leptons from direct*direct process for MSEL=1 or 2. + - Check against infinite loop for small systems with diffraction. + - Correct error in mother pointer for cluster collapse. + - Correct mixup of process types in PYSTAT(1) listing. + - Modify initialization scale for DIS processes. + +6.146 : 8 June 2000 + - Updated PYDISG routine now handles beam remnant in DIS processes + like in PYREMN and includes final-state radiation of scattered + quark. (Initial-state radiation still missing.) + - Correct bug in PYRAND that reset pTmin incorrectly when asking for + high-pT events only in gamma*-p or gamma*-gamma*. + - Document DIS process with pT = PARI(17) = 0. + - Increase initialization/maximum search scale for DIS * anomalous. + - Include kinematical factor 1/(1-x) in the conversion formula from + F2 to photon cross section. + +6.147 : 19 June 2000 + - PYSIGH updated in a few places to avoid division by zero. The + error occured in calculations that are ultimately not used, so + therefore do not affect any output. + - Avoid a division by zero in PYSHOW, appearing in the showering + of the new DIS process 99. + +6.148 : 27 June 2000 + - New treatment of elastic/diffractive processes of the GVMD + component. VINT(69) and VINT(70) denote the masses of the GVMD + states. See above, section on hard processes. + - New and upgraded treatment of primordial kT of anomalous photon, + which also before contained a bug. Also affects e.g. DIS scattering + off an anomalous photon. New options MSTP(66)=4 and =5, with the + latter new default. See above, section on hard processes. + - Switch off DIS process 99 if vanishing maximum at initialization. + Stop run if no process has nonvanishing maximum. + +6.150 : 30 June 2000 + - Include virtuality dependence for a photon target in the form factor + of the DIS process 99 in PYSIGH (this factor accounts for overlap + with the direct*direct process). + - Some insignificant changes for better Fortran 77 standard conformance. + +6.151 : 7 August 2000 + - Increase the maximum scale of final-state shower evolution for DIS + events in the PYDISG routine by a factor of 2, to obtain a smoother + matching to the activity in the direct process group. + - For elastic and diffractive scattering, store m**2/4 (approximately + pT**2) in VINT(283) or VINT(284), respectively. Here m is the mass + of the state being diffracted, which may be of interest when + analyzing GVMD diffractive scattering. + - Join two COMPLEX*16 declarations in PYSIGH (cosmetics). + +6.152 : 17 August 2000 + - Include factor in PYSIGH cross section to take into account the + effects of longitudinal resolved photons probed in the + DIS process (99), by mistake missing so far. + - PYRECO colour reconnection for scenario I: check that selected + space-time point is in the forward light cone before studying it + further (thereby saving some time). + +----------------------------------------------------------------------- + + diff --git a/PYTHIA6/tpythia6_called_from_cc.F b/PYTHIA6/tpythia6_called_from_cc.F new file mode 100644 index 00000000000..a7bb899933a --- /dev/null +++ b/PYTHIA6/tpythia6_called_from_cc.F @@ -0,0 +1,20 @@ +c------------------------------------------------------------------------------- +c Jul 02 1998 P.Murat: routines to be called from C++ side +c------------------------------------------------------------------------------- + subroutine tpythia6_open_fortran_file(lun, name) + implicit none + integer lun + character*(*) name + + open (lun, file=name) + return + end + + subroutine tpythia6_close_fortran_file(lun) + implicit none + integer lun + close (lun) + return + end + + -- 2.39.3