[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / fnjet.F

* $Id$
C
C
C
C
        FUNCTION FNJET(X)
#include "hiparnt.inc"
#include "njet_hijing.inc"
        OMG1=OMG0(X)*HINT1(11)/HIPR1(31)
        C0=EXP(N*ALOG(OMG1)-SGMIN(N+1))
        IF(N.EQ.0) C0=1.0-EXP(-2.0*OMG0(X)*HIPR1(30)/HIPR1(31)/2.0)
        FNJET=C0*EXP(-OMG1)
        RETURN
        END
Commit	Line	Data
e74335a4	1	* $Id$
	2	C
	3	C
	4	C
	5	C
	6	FUNCTION FNJET(X)
	7	#include "hiparnt.inc"
	8	#include "njet_hijing.inc"
	9	OMG1=OMG0(X)*HINT1(11)/HIPR1(31)
	10	C0=EXP(N*ALOG(OMG1)-SGMIN(N+1))
	11	IF(N.EQ.0) C0=1.0-EXP(-2.0OMG0(X)HIPR1(30)/HIPR1(31)/2.0)
	12	FNJET=C0*EXP(-OMG1)
	13	RETURN
	14	END