* $Id$
C
C
C
	FUNCTION SUBCRS1(T,U)
	IMPLICIT REAL*8(A-H,O-Z)
	SUBCRS1=4.D0/9.D0*(1.D0+U**2)/T**2
	RETURN
	END