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