HEPEVT-FOURD.h
00001 C this is the hepevt class in old style. No d_h_ class pre-name
00002 INTEGER NMXHEP
00003 PARAMETER (NMXHEP=4000)
00004 REAL*8 phep, vhep ! to be real*4/ *8 depending on host
00005 INTEGER nevhep,nhep,isthep,idhep,jmohep,
00006 $ jdahep
00007 COMMON /hepevt/
00008 $ nevhep, ! serial number
00009 $ nhep, ! number of particles
00010 $ isthep(nmxhep), ! status code
00011 $ idhep(nmxhep), ! particle ident KF
00012 $ jmohep(2,nmxhep), ! parent particles
00013 $ jdahep(2,nmxhep), ! childreen particles
00014 $ phep(5,nmxhep), ! four-momentum, mass [GeV]
00015 $ vhep(4,nmxhep) ! vertex [mm]
00016 * ----------------------------------------------------------------------
00017 LOGICAL qedrad
00018 COMMON /phoqed/
00019 $ qedrad(nmxhep) ! Photos flag
00020 * ----------------------------------------------------------------------
00021 SAVE hepevt,phoqed
00022
00023