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

* $Id$
C
C
C
	FUNCTION FNSTRUM(X)
#include "hiparnt.inc"
	FNSTRUM=1.0/((1.0-X)**2+HIPR1(45)**2/HINT1(1)**2)**HIPR1(46)
     &          /(X**2+HIPR1(45)**2/HINT1(1)**2)**HIPR1(46)
	RETURN
	END
Commit	Line	Data
e74335a4	1	* $Id$
	2	C
	3	C
	4	C
	5	FUNCTION FNSTRUM(X)
	6	#include "hiparnt.inc"
	7	FNSTRUM=1.0/((1.0-X)2+HIPR1(45)2/HINT1(1)2)HIPR1(46)
	8	& /(X2+HIPR1(45)2/HINT1(1)2)HIPR1(46)
	9	RETURN
	10	END