All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Groups
pxmas4.f
Go to the documentation of this file.
1 CDECK ID>, PXMAS4.
2  SUBROUTINE pxmas4 (PMOM,XMAS)
3 *.*********************************************************
4 *. ------
5 *. PXMAS4
6 *. ------
7 *. SOURCE: HERWIG (B.Webber,G.Marchesini)
8 *. Calculate the invariant mass of a 4-vector
9 *. (negative if spacelike)
10 *. Usage :
11 *.
12 *. REAL PMOM (4.or.more)
13 *. REAL XMAS
14 *.
15 *. CALL PXMAS4 (PMOM,XMAS)
16 *.
17 *. INPUT : PMOM Particle 4-momentum (Px,Py,Pz,E)
18 *. OUTPUT : XMAS The invariant mass
19 *.
20 *.*********************************************************
21  IMPLICIT NONE
22  REAL pmom (*)
23  REAL xmas2,xmas
24  xmas2 = ((pmom(4) + pmom(3)) * (pmom(4) - pmom(3))
25  + - pmom(1)**2 - pmom(2)**2)
26  CALL pxroot(xmas2,xmas)
27  RETURN
28  END
pxroot
subroutine pxroot(XOPER, XROOT)
Definition: pxroot.f:2
pxmas4
subroutine pxmas4(PMOM, XMAS)
Definition: pxmas4.f:2