Adding macros to create Calibration objects
[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / subcrs6.F
CommitLineData
e74335a4 1* $Id$
2C
3C
4 FUNCTION SUBCRS6(T,U)
5 IMPLICIT REAL*8(A-H,O-Z)
6 SUBCRS6=(1.D0+U**2)*(1.D0/T**2-4.D0/U/9.D0)
7 RETURN
8 END