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


CDECK  ID>, HWBSU2.

*CMZ :-        -13/07/92  20.15.54  by  Mike Seymour

*-- Author :    Bryan Webber, modified by Mike Seymour

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

      FUNCTION HWBSU2(Z)

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

C     INTEGRAND IN EXPONENT OF QUARK SUDAKOV FORM FACTOR.

C     HWBSU2 IS FOR LOWER PART OF Z INTEGRATION REGION

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

      DOUBLE PRECISION HWBSU2,HWBSUL,Z,U

      EXTERNAL HWBSUL

      U=1.-Z

      HWBSU2=HWBSUL(Z)*(1.+Z*Z)/U

      END
Commit	Line	Data
3820ca8e	1
	2	CDECK ID>, HWBSU2.
	3
	4	*CMZ :- -13/07/92 20.15.54 by Mike Seymour
	5
	6	*-- Author : Bryan Webber, modified by Mike Seymour
	7
	8	C-----------------------------------------------------------------------
	9
	10	FUNCTION HWBSU2(Z)
	11
	12	C-----------------------------------------------------------------------
	13
	14	C INTEGRAND IN EXPONENT OF QUARK SUDAKOV FORM FACTOR.
	15
	16	C HWBSU2 IS FOR LOWER PART OF Z INTEGRATION REGION
	17
	18	C-----------------------------------------------------------------------
	19
	20	DOUBLE PRECISION HWBSU2,HWBSUL,Z,U
	21
	22	EXTERNAL HWBSUL
	23
	24	U=1.-Z
	25
	26	HWBSU2=HWBSUL(Z)(1.+ZZ)/U
	27
	28	END