C...HEPEVT commonblock.
#ifdef HEPEVT_SIZE
      PARAMETER (NMXHEP=HEPEVT_SIZE)
#else
      PARAMETER (NMXHEP=4000)
#endif
      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/