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

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