11* ----------------------------------------------------------------------
18 $
nhep, ! number of particles
20 $
idhep(nmxhep), ! particle ident KF
21 $
jmohep(2,nmxhep), ! parent particles
22 $
jdahep(2,nmxhep), ! childreen particles
24 $
vhep(4,nmxhep) ! vertex [mm]
26* ----------------------------------------------------------------------
29 $ qedrad(nmxhep) ! Photos
flag
31* ----------------------------------------------------------------------
32 INTEGER m_PhotStart ! start position of photons (1st phot
at m_PhotStart+1)
35 INTEGER m_PosnFbar ! position of final state anti-fermion
************Class m_alfQCDMZ INTEGER m_KFfin INTEGER m_IVfin INTEGER m_ibox *COMMON c_DZface $ alphaQED at(Q^2=MZ^2) DIZET $ m_alfQCDMZ
*******INTEGER m_nBinMax INTEGER m_NdiMax PARAMETER(m_NdiMax=5) ! maximum dimension for siplices INTEGER m_KdiMax PARAMETER(m_KdiMax
**********INTEGER nmxhep !maximum number of particles DOUBLE PRECISION vhep INTEGER idhep
**********INTEGER nmxhep !maximum number of particles DOUBLE PRECISION vhep INTEGER jdahep COMMON hepevt $ !serial number $ !number of particles $ !status code $ !particle ident KF $ !parent particles $ !childreen particles $ !four mass[GeV] $ m_PhotEnd
**********INTEGER nmxhep !maximum number of particles DOUBLE PRECISION vhep INTEGER isthep
**********INTEGER nmxhep !maximum number of particles DOUBLE PRECISION vhep INTEGER jdahep COMMON hepevt $ !serial number $ !number of particles $ !status code $ !particle ident KF $ !parent particles $ !childreen particles $ !four momentum
**********INTEGER nmxhep !maximum number of particles DOUBLE PRECISION vhep INTEGER jdahep COMMON hepevt $ !serial number $ !number of particles $ !status code $ !particle ident KF $ !parent particles $ !childreen particles $ !four mass[GeV] $ m_PosnF
**********INTEGER nmxhep !maximum number of particles DOUBLE PRECISION vhep INTEGER jdahep COMMON hepevt $ !serial number $ !number of particles $ !status code $ !particle ident KF $ !parent particles $ !childreen particles $ !four mass[GeV] $ vhep(4, nmxhep) ! vertex[mm] SAVE/hepevt/*---------------------------------------------------------------------- LOGICAL qedrad COMMON/phoqed/$ qedrad(nmxhep) ! Photos flag SAVE/phoqed/*---------------------------------------------------------------------- INTEGER m_PhotStart ! start position of photons(1st phot at m_PhotStart+1) INTEGER m_PhotEnd ! end position photons INTEGER m_PosnF ! position of final state fermion INTEGER m_PosnFbar ! position of final state anti-fermion COMMON/HepEvt_posn/m_PhotStart
**********INTEGER nmxhep !maximum number of particles DOUBLE PRECISION vhep INTEGER jmohep
**********INTEGER nmxhep !maximum number of particles DOUBLE PRECISION phep
**********INTEGER nmxhep !maximum number of particles DOUBLE PRECISION vhep INTEGER jdahep COMMON hepevt $ !serial number $ !number of particles $ !status code $ !particle ident KF $ !parent particles $ jdahep(2, nmxhep)
**********INTEGER nmxhep !maximum number of particles DOUBLE PRECISION vhep INTEGER nevhep
**********INTEGER nmxhep !maximum number of particles DOUBLE PRECISION vhep INTEGER nhep
IMPLICIT REAL *A O Z IMPLICIT INTEGER(I-N) C.... COMMONBALOCKS FOR MODE COMMON/MODEXS/ICH common/bornXS/xborn REAL *8 USER_XX(1000)
double precision pisqo6 four
1.9.6