TEvtGen/EvtGenModels/stdhep.inc

   1 C*******************************************************
   2 C  ---------------------------------------------------------------------
   3 C     The stdhep event common
   4 C  ---------------------------------------------------------------------
   5 C This is the "official" event common of the HEP community for MC events.
   6 C  NEVHEP      = event number
   7 C  NHEP        = number of particles ("lines")
   8 C  ISTHEP(N)   = stability code; 0 if stable, 1 if decays.
   9 C  IDHEP(I)    = particle ID code; see PDG '92, III.73
  10 C  JMOHEP(1,I) = line number of mother particle
  11 C  JMOHEP(2,I) = line number of last mother particle, if formed by string
  12 C  JDAHEP(1,I) = line number of 1st daughter particle
  13 C  JDAHEP(2,I) = line number of last daughter particle - MUST BE CONSECUTIVE!
  14 C  PHEP(5,I)   = px,py,pz,E,m of particle
  15 C  VHEP(4,I)   = x,y,z,L of production vertex
  16
  17       INTEGER  nmxhep         ! maximum number of particles
  18       PARAMETER ( nmxhep=4000)
  19       REAL*8  phep,  vhep ! to be real*4 or *8  depending on host
  20       INTEGER nevhep,nhep,isthep,idhep,jmohep,
  21      $        jdahep
  22       COMMON /hepevt/
  23      $      nevhep,               ! serial number
  24      $      nhep,                 ! number of particles
  25      $      isthep(nmxhep),   ! status code
  26      $      idhep(nmxhep),    ! particle ident KF
  27      $      jmohep(2,nmxhep), ! parent particles
  28      $      jdahep(2,nmxhep), ! childreen particles
  29      $      phep(5,nmxhep),   ! four-momentum, mass [GeV]
  30      $      vhep(4,nmxhep)    ! vertex [mm]
  31
  32
  33
  34 c$$$      INTEGER NMXHEP,NEVHEP,NHEP,ISTHEP,IDHEP,JMOHEP,JDAHEP
  35 c$$$      REAL    PHEP,VHEP
  36 c$$$      PARAMETER (NMXHEP=2000)
  37 c$$$      COMMON/STDHEP/NEVHEP,NHEP,ISTHEP(NMXHEP),IDHEP(NMXHEP),
  38 c$$$     *JMOHEP(2,NMXHEP),JDAHEP(2,NMXHEP),PHEP(5,NMXHEP),VHEP(4,NMXHEP)
  39 c$$$      SAVE /STDHEP/