Additional protection (Alpha)

[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / hijing.F

diff --git a/HIJING/hijing1_36/hijing.F b/HIJING/hijing1_36/hijing.F
index 7274c64d3cb09b7d1b1627422e33705ba6ef8250..875a266cd8ce3bade1b606336a19b250d0d26d80 100644 (file)
--- a/HIJING/hijing1_36/hijing.F
+++ b/HIJING/hijing1_36/hijing.F
@@ -602,6 +602,13 @@ C
                   CALL LUEDIT_HIJING(2)
                ELSE
 381               N_ST=N_ST+1
+C     PH Problem if N_ST > 9000, some additional protection added
+C     PH 9000 is the first dimension of LUJETS/K(...)
+           IF (N_ST.GT.9000) THEN
+                     call LULIST_HIJING(1)
+                     WRITE(6,*) 'error occured, repeat the event'
+              GOTO 50
+                  ENDIF             
                   IF(K(N_ST,2).LT.91.OR.K(N_ST,2).GT.93) GO TO  381
                   IDSTR=K(N_ST,2)
                   N_ST=N_ST+1