TEvtGen/EvtGenModels/begevtgengetx.F

   1 C--------------------------------------------------------------------------
   2 C
   3 C Environment:
   4 C      This software is part of the EvtGen package developed jointly
   5 C      for the BaBar and CLEO collaborations.  If you use all or part
   6 C      of it, please give an appropriate acknowledgement.
   7 C
   8 C Copyright Information: See EvtGen/COPYRIGHT
   9 C      Copyright (C) 1998      Caltech, UCSB
  10 C
  11 C Module: begevtgengetx.F
  12 C
  13 C Description:
  14 C
  15 C Modification history:
  16 C
  17 C    DJL/RYD     August 11, 1998         Module created
  18 C
  19 C------------------------------------------------------------------------
  20       subroutine begevtgengetx(entry,eventnum,numparticle,istat,
  21      +                          partnum,mother,daugfirst,dauglast,
  22      +                          px,py,pz,e,m,x,y,z,t)
  23 *
  24 * routine to read from the stdhep common block from
  25 * evtgen (C++). This routine allows the C++ program not to
  26 * have to mess with common blocks.
  27 *
  28 * Anders Ryd,  Oct 1   Created.
  29 *
  30 *
  31       implicit none
  32
  33 C      INTEGER NMXHEP
  34 C      PARAMETER (NMXHEP=4000) !!! KRAL - NEW SIZE
  35 C
  36 C      INTEGER IDHEP,ISTHEP,JDAHEP,JMOHEP,NEVHEP,NHEP
  37 C      real PHEP,VHEP !!! Kral - double precision for STDHEP v3.0
  38 C      COMMON/XHEPEVT/NEVHEP,NHEP,ISTHEP(NMXHEP),IDHEP(NMXHEP),
  39 C     &JMOHEP(2,NMXHEP),JDAHEP(2,NMXHEP),PHEP(5,NMXHEP),VHEP(4,NMXHEP)
  40 C      SAVE /XHEPEVT/
  41
  42 #include "EvtGenModels/stdhep.inc"
  43
  44         integer entry,eventnum,numparticle,istat,partnum
  45         integer mother,daugfirst,dauglast
  46
  47         integer stdhepnum
  48
  49         double precision px,py,pz,e,m,x,y,z,t
  50
  51         stdhepnum=partnum
  52
  53
  54
  55         eventnum=nevhep
  56         numparticle=nhep
  57         istat=isthep(entry)
  58         stdhepnum=idhep(entry)
  59         mother=jmohep(1,entry)
  60         daugfirst=jdahep(1,entry)
  61         dauglast=jdahep(2,entry)
  62         px=phep(1,entry)
  63         py=phep(2,entry)
  64         pz=phep(3,entry)
  65         e=phep(4,entry)
  66         m=phep(5,entry)
  67         x=vhep(1,entry)
  68         y=vhep(2,entry)
  69         z=vhep(3,entry)
  70         t=vhep(4,entry)
  71
  72          return
  73
  74       end
  75
  76