]> git.uio.no Git - u/mrichter/AliRoot.git/blob - HIJING/hijing1_36/subcrs4.F
git://git.uio.no / u / mrichter / AliRoot.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
fWSN->Eval(0.001) to avoid fpe.
[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / subcrs4.F
1 * $Id$
2 C
3 C
4         FUNCTION SUBCRS4(T,U)
5         IMPLICIT REAL*8(A-H,O-Z)
6         SUBCRS4=8.D0/3.D0*(T**2+U**2)*(4.D0/9.D0/T/U-1.D0)
7         RETURN
8         END