e THnSparse structure to store MC residuals

[u/mrichter/AliRoot.git] / TEPEMGEN / diffcross.f

diff --git a/TEPEMGEN/diffcross.f b/TEPEMGEN/diffcross.f
index 09213b9aeb6866f036ebb124bce1b7525fc0011d..9cf4e37c875a53ccd679a5da99dc68f2491a101e 100644 (file)
--- a/TEPEMGEN/diffcross.f
+++ b/TEPEMGEN/diffcross.f
@@ -44,10 +44,10 @@ C======================================================================
       COMMON/PHYSPARAM/gamma,beta,m,w1xw1,w1xw2,w2xw2,wl,wy
 
       DOUBLE PRECISION ARCOSH,x
-      ARCOSH(x)=LOG(x+SQRT(x**2-1D0))
+      ARCOSH(x)=LOG(x+SQRT((x-1D0)*(x+1D0)))
 
       gamma=gm
-      beta=sqrt(1D0-1D0/gamma**2)
+      beta=sqrt((1D0-1D0/gamma)*(1D0+1D0/gamma))
       m=mass
       
       w1xw1 = 1D0/gamma**2