From 94908307b82b34419d9ad50d435b82c3c411b990 Mon Sep 17 00:00:00 2001 From: hristov Date: Thu, 10 Oct 2002 07:44:24 +0000 Subject: [PATCH] Additional protection (Alpha) --- HIJING/hijing1_36/hijing.F | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/HIJING/hijing1_36/hijing.F b/HIJING/hijing1_36/hijing.F index 7274c64d3cb..875a266cd8c 100644 --- 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 -- 2.31.1