← Back to branch summary

~maddevelopers/mg5amcnlo/2.9.4

« back to all changes in this revision

Viewing changes to vendor/StdHEP/src/inc/qq/qqvrtx.inc

pass to v2.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
vendor/StdHEP/src/inc/qq/qqvrtx.inc
 
1
*
 
2
* $Id: qqvrtx.inc,v 1.1 2005/09/29 19:27:22 garren Exp $
 
3
*
 
4
* $Log: qqvrtx.inc,v $
 
5
* Revision 1.1  2005/09/29 19:27:22  garren
 
6
* 5.04.02
 
7
*
 
8
* Revision 1.1 1994/10/07 23:57:40 zfiles
 
9
* New include files for QQ.
 
10
*
 
11
*
 
12
*CMZ : 1.02/61 04/10/94 17.22.38 by Paul Avery
 
13
*CMZ : 1.03/70 15/10/93 08.44.26 by Paul Avery
 
14
*CMZ : 08/10/93 16.00.06 by Paul Avery
 
15
*>> Author :
 
16
* 14/10/96 Lynn Garren: Change XVTX, TVTX, RVTX from real to double precision.
 
17
*
 
18
* >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 
19
* QQVRTX.INC
 
20
*
 
21
* QQ vertex list
 
22
* >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 
23
C Contains a list of vertices. When a particle decays, is absorbed
 
24
C or converts to e+e- a new vertex is created. Various pointers
 
25
C relate the vertex list to the full particle list in QQTRAK.INC.
 
26
C
 
27
C VPROD(IT) is the vertex at which particle IT was produced while
 
28
C IVDECA(IT) is the vertex at which particle IT either decayed, was
 
29
C absorbed or converted, or 0 if nothing happened. Conversely,
 
30
C ITRKIN(IV) is the incoming track to vertex IV or 0 if IV = 1 (the
 
31
C production vertex has no incoming track). ITRKOU(IV) is the first
 
32
C outgoing track from vertex IV or 0 if the track is absorbed.
 
33
C >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>-
 
34
C
 
35
* NVRTX # vertices
 
36
* XVTX X,Y,Z of vertex in meters
 
37
* TVTX T of vertex in meters
 
38
* RVTX SQRT(X**2 + Y**2)
 
39
* ITRKIN Pos. in track list of incoming trk
 
40
* NTRKOU # outgoing tracks
 
41
* ITRKOU Position in track list of 1st outgoing track
 
42
* IVKODE (1=decay, 2=absorbed, 3=photon conv.)
 
43
      INTEGER NVRTX
 
44
      COMMON/QQVRT1/
 
45
     * NVRTX
 
46
      DOUBLE PRECISION XVTX, TVTX, RVTX
 
47
      INTEGER ITRKIN, NTRKOU, ITRKOU, IVKODE
 
48
      COMMON/QQVRT2/
 
49
     * XVTX(MCVRTX,3), TVTX(MCVRTX), RVTX(MCVRTX),
 
50
     * ITRKIN(MCVRTX), NTRKOU(MCVRTX), ITRKOU(MCVRTX),
 
51
     * IVKODE(MCVRTX)
 
52
C