Line Code
1 2
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 /