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