1 C--------------------------------------------------------------------------
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.
8 C Copyright Information: See EvtGen/COPYRIGHT
9 C Copyright (C) 1998 Caltech, UCSB
11 C Module: begevtgengetx.F
15 C Modification history:
17 C DJL/RYD August 11, 1998 Module created
19 C------------------------------------------------------------------------
20 subroutine begevtgengetx(entry,eventnum,numparticle,istat,
21 + partnum,mother,daugfirst,dauglast,
22 + px,py,pz,e,m,x,y,z,t)
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.
28 * Anders Ryd, Oct 1 Created.
34 C PARAMETER (NMXHEP=4000) !!! KRAL - NEW SIZE
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)
42 #include "EvtGenModels/stdhep.inc"
44 integer entry,eventnum,numparticle,istat,partnum
45 integer mother,daugfirst,dauglast
49 double precision px,py,pz,e,m,x,y,z,t
58 stdhepnum=idhep(entry)
59 mother=jmohep(1,entry)
60 daugfirst=jdahep(1,entry)
61 dauglast=jdahep(2,entry)