Correction.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 24 Aug 2010 13:45:14 +0000 (13:45 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 24 Aug 2010 13:45:14 +0000 (13:45 +0000)
HIJING/hijing1_36/hijing.F

index 9a50bd2..47c2474 100644 (file)
@@ -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)