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


CDECK  ID>, HWDWWT.

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

*-- Author :    Bryan Webber

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

      FUNCTION HWDWWT(EMSQ,A,B,C)

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

C     MATRIX ELEMENT SQUARED FOR V-A WEAK DECAY

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

      DOUBLE PRECISION HWDWWT,EMSQ,A,B,C

      HWDWWT=(A-EMSQ)*(EMSQ-B)*C

      END
Commit	Line	Data
3820ca8e	1
	2	CDECK ID>, HWDWWT.
	3
	4	*CMZ :- -26/04/91 11.11.55 by Bryan Webber
	5
	6	*-- Author : Bryan Webber
	7
	8	C-----------------------------------------------------------------------
	9
	10	FUNCTION HWDWWT(EMSQ,A,B,C)
	11
	12	C-----------------------------------------------------------------------
	13
	14	C MATRIX ELEMENT SQUARED FOR V-A WEAK DECAY
	15
	16	C-----------------------------------------------------------------------
	17
	18	DOUBLE PRECISION HWDWWT,EMSQ,A,B,C
	19
	20	HWDWWT=(A-EMSQ)(EMSQ-B)C
	21
	22	END