Fix long line

[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / subcrs7.F

* $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