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

* $Id$
C
C
C
	FUNCTION FTOTJET(X)
#include "hiparnt.inc"
	OMG=OMG0(X)*HINT1(11)/HIPR1(31)/2.0
	FTOTJET=1.0-EXP(-2.0*OMG)
	RETURN
	END
Commit	Line	Data
e74335a4	1	* $Id$
	2	C
	3	C
	4	C
	5	FUNCTION FTOTJET(X)
	6	#include "hiparnt.inc"
	7	OMG=OMG0(X)*HINT1(11)/HIPR1(31)/2.0
	8	FTOTJET=1.0-EXP(-2.0*OMG)
	9	RETURN
	10	END