HIJING/hijing1_36/subcrs3.F

   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*(T**2+U**2+(1.D0+U**2)/T**2
   7      1  -2.D0*U**2/3.D0/T)
   8         RETURN
   9         END