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


CDECK  ID>, HWHEW4.

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

*-- Author :    Zoltan Kunszt, modified by Bryan Webber

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

      FUNCTION HWHEW4(N1,N2,N3,N4,N5,N6)

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

      IMPLICIT NONE

      COMPLEX HWHEW4,ZH,ZCH,ZD

      INTEGER N1,N2,N3,N4,N5,N6

      COMMON/HWHEWQ/ZH(7,7),ZCH(7,7),ZD(7,7)

      HWHEW4=CMPLX(4.0)*ZH(N1,N3)*ZCH(N2,N6)*(ZH(N1,N5)*ZCH(N1,N4)

     X                                       +ZH(N3,N5)*ZCH(N3,N4))

      RETURN

      END
Commit	Line	Data
3820ca8e	1
	2	CDECK ID>, HWHEW4.
	3
	4	*CMZ :- -26/04/91 10.18.57 by Bryan Webber
	5
	6	*-- Author : Zoltan Kunszt, modified by Bryan Webber
	7
	8	C-----------------------------------------------------------------------
	9
	10	FUNCTION HWHEW4(N1,N2,N3,N4,N5,N6)
	11
	12	C-----------------------------------------------------------------------
	13
	14	IMPLICIT NONE
	15
	16	COMPLEX HWHEW4,ZH,ZCH,ZD
	17
	18	INTEGER N1,N2,N3,N4,N5,N6
	19
	20	COMMON/HWHEWQ/ZH(7,7),ZCH(7,7),ZD(7,7)
	21
	22	HWHEW4=CMPLX(4.0)ZH(N1,N3)ZCH(N2,N6)(ZH(N1,N5)ZCH(N1,N4)
	23
	24	X +ZH(N3,N5)*ZCH(N3,N4))
	25
	26	RETURN
	27
	28	END