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

* $Id$
C
C
	FUNCTION SUBCRS6(T,U)
	IMPLICIT REAL*8(A-H,O-Z)
	SUBCRS6=(1.D0+U**2)*(1.D0/T**2-4.D0/U/9.D0)
	RETURN
	END
Commit	Line	Data
e74335a4	1	* $Id$
	2	C
	3	C
	4	FUNCTION SUBCRS6(T,U)
	5	IMPLICIT REAL*8(A-H,O-Z)
	6	SUBCRS6=(1.D0+U*2)(1.D0/T**2-4.D0/U/9.D0)
	7	RETURN
	8	END