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


CDECK  ID>, HWULDO.

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

*-- Author :    Bryan Webber

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

      FUNCTION HWULDO(P,Q)

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

C   LORENTZ 4-VECTOR DOT PRODUCT

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

      DOUBLE PRECISION HWULDO,P(4),Q(4)

      HWULDO=P(4)*Q(4)-(P(1)*Q(1)+P(2)*Q(2)+P(3)*Q(3))

      END
Commit	Line	Data
3820ca8e	1
	2	CDECK ID>, HWULDO.
	3
	4	*CMZ :- -26/04/91 11.11.56 by Bryan Webber
	5
	6	*-- Author : Bryan Webber
	7
	8	C----------------------------------------------------------------------
	9
	10	FUNCTION HWULDO(P,Q)
	11
	12	C----------------------------------------------------------------------
	13
	14	C LORENTZ 4-VECTOR DOT PRODUCT
	15
	16	C----------------------------------------------------------------------
	17
	18	DOUBLE PRECISION HWULDO,P(4),Q(4)
	19
	20	HWULDO=P(4)Q(4)-(P(1)Q(1)+P(2)Q(2)+P(3)Q(3))
	21
	22	END