From: hristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Date: Thu, 19 Feb 2004 16:33:56 +0000 (+0000)
Subject: Additional protection
X-Git-Url: http://git.uio.no/git/?p=u%2Fmrichter%2FAliRoot.git;a=commitdiff_plain;h=9f320b1fecb2e9c1ad5518cd6d1dc912d2267c97

Additional protection
---

diff --git a/HIJING/hijing1_36/g.F b/HIJING/hijing1_36/g.F
index fd4898578fd..ce26aca9f5f 100644
--- a/HIJING/hijing1_36/g.F
+++ b/HIJING/hijing1_36/g.F
@@ -11,7 +11,9 @@ C
 	XT=2.0*DSQRT(PT2)/HINT1(1)
 	X1=0.50*XT*(DEXP(Y1)+DEXP(Y2))
 	X2=0.50*XT*(DEXP(-Y1)+DEXP(-Y2))
-	Z=DSQRT(1.D0-XT**2/X1/X2)
+	DUMMY = 1.D0-XT**2/X1/X2
+	if (DUMMY.LT.0.D0) DUMMY = 0.D0
+	Z=DSQRT(DUMMY)
 	SS=X1*X2*HINT1(1)**2
 	T=-(1.0-Z)/2.0
 	U=-(1.0+Z)/2.0