[u/mrichter/AliRoot.git] / HERWIG / src / hwumas.f


CDECK  ID>, HWUMAS.

*CMZ :-        -26/04/91  11.11.56  by  Bryan Webber

*-- Author :    Bryan Webber

C-----------------------------------------------------------------------

      SUBROUTINE HWUMAS(P)

C-----------------------------------------------------------------------

C     PUTS INVARIANT MASS IN 5TH COMPONENT OF VECTOR

C     (NEGATIVE SIGN IF SPACELIKE)

C-----------------------------------------------------------------------

      DOUBLE PRECISION HWUSQR,P(5)

      EXTERNAL HWUSQR

      P(5)=HWUSQR((P(4)+P(3))*(P(4)-P(3))-P(1)**2-P(2)**2)

      END
Commit	Line	Data
3820ca8e	1
	2	CDECK ID>, HWUMAS.
	3
	4	*CMZ :- -26/04/91 11.11.56 by Bryan Webber
	5
	6	*-- Author : Bryan Webber
	7
	8	C-----------------------------------------------------------------------
	9
	10	SUBROUTINE HWUMAS(P)
	11
	12	C-----------------------------------------------------------------------
	13
	14	C PUTS INVARIANT MASS IN 5TH COMPONENT OF VECTOR
	15
	16	C (NEGATIVE SIGN IF SPACELIKE)
	17
	18	C-----------------------------------------------------------------------
	19
	20	DOUBLE PRECISION HWUSQR,P(5)
	21
	22	EXTERNAL HWUSQR
	23
	24	P(5)=HWUSQR((P(4)+P(3))(P(4)-P(3))-P(1)2-P(2)*2)
	25
	26	END