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

index 7561027..113e2eb 100644 (file)
@@ -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