Adding macros to create Calibration objects
[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / subcrs3.F
CommitLineData
e74335a4 1* $Id$
2C
3C
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