]>
Commit | Line | Data |
---|---|---|
da0e9ce3 | 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/ |