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