Merge branch 'master_patch'

[u/mrichter/AliRoot.git] / HIJING / hipyset1_35 / luindf_hijing.F

diff --git a/HIJING/hipyset1_35/luindf_hijing.F b/HIJING/hipyset1_35/luindf_hijing.F
index 3943279bd793447201047c7c036b5e54fd3cd3e2..c577e15c267fb51796cd35d23efd158dc06b4fa4 100644 (file)
--- a/HIJING/hipyset1_35/luindf_hijing.F
+++ b/HIJING/hipyset1_35/luindf_hijing.F
@@ -117,8 +117,9 @@ C...sharing energy according to Altarelli-Parisi splitting function.
         CALL LUPTDI_HIJING(0,PXO(1),PYO(1))    
         PXO(2)=-PXO(1)  
         PYO(2)=-PYO(1)  
-        WO(1)=WF*RLU_HIJING(0)**(1./3.)    
-        WO(2)=WF-WO(1)  
+ 111    WO(1)=WF*RLU_HIJING(0)**(1./3.)    
+        WO(2)=WF-WO(1)
+        IF (ABS(WO(2)).LE.0..OR.ABS(WO(1)).LE.0.) GOTO 111
       ENDIF 
     
 C...Initial values for rank, flavour, pT and W+.