HEPEVT-KKMC.h

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