]>
Commit | Line | Data |
---|---|---|
da0e9ce3 | 1 | subroutine begevtgenget(entry,eventnum,numparticle,istat, |
2 | + partnum,mother,daugfirst,dauglast, | |
3 | + px,py,pz,e,m,x,y,z,t) | |
4 | * | |
5 | * Copyright Information: See EvtGen/COPYRIGHT | |
6 | * | |
7 | * routine to read from the stdhep common block from | |
8 | * evtgen (C++). This routine allows the C++ program not to | |
9 | * have to mess with common blocks. | |
10 | * | |
11 | * Anders Ryd, Oct 1 Created. | |
12 | * | |
13 | * | |
14 | implicit none | |
15 | #include "EvtGenModels/stdhep.inc" | |
16 | ||
17 | integer entry,eventnum,numparticle,istat,partnum | |
18 | integer mother,daugfirst,dauglast | |
19 | ||
20 | integer stdhepnum | |
21 | ||
22 | double precision px,py,pz,e,m,x,y,z,t | |
23 | ||
24 | stdhepnum=partnum | |
25 | ||
26 | ||
27 | ||
28 | eventnum=nevhep | |
29 | numparticle=nhep | |
30 | istat=isthep(entry) | |
31 | stdhepnum=idhep(entry) | |
32 | mother=jmohep(1,entry) | |
33 | daugfirst=jdahep(1,entry) | |
34 | dauglast=jdahep(2,entry) | |
35 | px=phep(1,entry) | |
36 | py=phep(2,entry) | |
37 | pz=phep(3,entry) | |
38 | e=phep(4,entry) | |
39 | m=phep(5,entry) | |
40 | x=vhep(1,entry) | |
41 | y=vhep(2,entry) | |
42 | z=vhep(3,entry) | |
43 | t=vhep(4,entry) | |
44 | ||
45 | return | |
46 | ||
47 | end | |
48 | ||
49 | ||
50 | ||
51 | ||
52 | ||
53 | ||
54 | ||
55 |