Fixing the decoding of regional header bits.

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

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