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: begevtgenstorex.F
15 C Modification history:
17 C DJL/RYD August 11, 1998 Module created
19 C------------------------------------------------------------------------
20 subroutine begevtgenstorex(entry,eventnum,numparticle,istat,
21 + partnum,mother,daugfirst,dauglast,
22 + px,py,pz,e,m,x,y,z,t)
25 * routine to fill the stdhep common blocks from
26 * evtgen (C++). This routine allows the C++ program not to
27 * have to mess with common blocks.
29 * Anders Ryd, Dec 96 Created.
32 #include "EvtGenModels/stdhep.inc"
35 integer ph_nmxhep ! this is parameter nmxhep in photos/photos_make
36 * ! Renamed here to avoid name conflict in stdhep.inc
37 parameter (ph_nmxhep=10000)
38 common / phoqed / qedrad(ph_nmxhep)
40 integer entry,eventnum,numparticle,istat,partnum
41 integer mother,daugfirst,dauglast
43 double precision px,py,pz,e,m,x,y,z,t
50 idhep(entry)=stdhepnum
51 jmohep(1,entry)=mother
53 jdahep(1,entry)=daugfirst
54 jdahep(2,entry)=dauglast
66 if (daugfirst.gt.0 .and. dauglast.gt.0) THEN
67 do i=daugfirst, dauglast