HEPEVT-STANDARD.h

00001 C this is the hepevt class in old style. No d_h_ class pre-name
00002       INTEGER NMXHEP
00003       PARAMETER (NMXHEP=2000)
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