Additional protection (Alpha)
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 10 Oct 2002 07:44:24 +0000 (07:44 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 10 Oct 2002 07:44:24 +0000 (07:44 +0000)
HIJING/hijing1_36/hijing.F

index 7274c64..875a266 100644 (file)
@@ -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