]> git.uio.no Git - u/mrichter/AliRoot.git/commitdiff
git://git.uio.no / u / mrichter / AliRoot.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 89d2e75)
103998: Fix in Hijing: to be committed to master, and then to Release
authorhristov <Peter.Hristov@cern.ch>
Fri, 28 Feb 2014 13:24:38 +0000 (14:24 +0100)
committerhristov <Peter.Hristov@cern.ch>
Fri, 28 Feb 2014 13:24:38 +0000 (14:24 +0100)
HIJING/hijing1_36/hijing.F patch | blob | blame | history

diff --git a/HIJING/hijing1_36/hijing.F b/HIJING/hijing1_36/hijing.F
index 75610273184fa3b2e361c2c13d7c2b865843d9af..113e2eb8ed8ccd56df2d7de0071c1738dec6d81e 100644 (file)
--- a/HIJING/hijing1_36/hijing.F
+++ b/HIJING/hijing1_36/hijing.F
@@ -705,7 +705,8 @@ C
                   CALL LUEDIT_HIJING(2)
                ELSE
 351                N_ST=N_ST+1
-                  IF(K(N_ST,2).LT.91.OR.K(N_ST,2).GT.93) GO TO  351
+                  IF((N_ST .LE. 9000)
+     &            .AND. (K(N_ST,2).LT.91.OR.K(N_ST,2).GT.93)) GO TO  351
                    IDSTR=K(N_ST,2)
                    N_ST=N_ST+1
                ENDIF