integer maxpup 
      parameter (maxpup=100) 
      integer idbmup(2),pdfgup(2),pdfsup(2),idwtup,nprup,lprup(maxpup)
      double precision ebmup(2),xsecup(maxpup),xerrup(maxpup)
     &,xmaxup(maxpup) 
      common /heprup/idbmup,pdfgup,pdfsup,idwtup,nprup
     & ,lprup,ebmup,xsecup,xerrup,xmaxup