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

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