From dca9e44f5866afb541314dc40c80237ef06c6cc4 Mon Sep 17 00:00:00 2001
From: morsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Date: Tue, 24 Aug 2010 13:45:14 +0000
Subject: [PATCH] Correction.

---
 HIJING/hijing1_36/hijing.F | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/HIJING/hijing1_36/hijing.F b/HIJING/hijing1_36/hijing.F
index 9a50bd20271..47c247478bf 100644
--- a/HIJING/hijing1_36/hijing.F
+++ b/HIJING/hijing1_36/hijing.F
@@ -622,7 +622,7 @@ C
 		IDSTR=92
 		IF(IHPR2(21).EQ.0) THEN
 		   CALL LUEDIT_HIJING(2)
-		ELSE IF (NFTP.EQ. 3 .OR. NFTP .EQ. 13) THEN
+		ELSE
 351		   N_ST=N_ST+1
 		   IF(K(N_ST,2).LT.91.OR.K(N_ST,2).GT.93) GO TO  351
 		   IDSTR=K(N_ST,2)
-- 
2.43.0