5 integer idbmup,pdfgup,pdfsup,idwtup,nprup,lprup
6 double precision ebmup,xsecup,xerrup,xmaxup
7 common /heprup/ idbmup(2),ebmup(2),pdfgup(2),pdfsup(2),
8 & idwtup,nprup,xsecup(maxpup),xerrup(maxpup),
9 & xmaxup(maxpup),lprup(maxpup)
11 parameter (maxnup=500)
12 integer nup,idprup,idup,istup,mothup,icolup
13 double precision xwgtup,scalup,aqedup,aqcdup,pup,vtimup,spinup
14 common/hepeup/nup,idprup,xwgtup,scalup,aqedup,aqcdup,
15 & idup(maxnup),istup(maxnup),mothup(2,maxnup),
16 & icolup(2,maxnup),pup(5,maxnup),vtimup(maxnup),