Update

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

diff --git a/HIJING/hijing1_36/hijing.F b/HIJING/hijing1_36/hijing.F
index 4f9d0c9de074a887c92a4f6a0a3bea2df0b0b055..fb077dcbcc4cbfd052030306e36fa32c9b68535b 100644 (file)
--- a/HIJING/hijing1_36/hijing.F
+++ b/HIJING/hijing1_36/hijing.F
@@ -629,10 +629,14 @@ C
                   KATT(NATT,1)=K(I,2)
                   KATT(NATT,2)=NFTP
                   KATT(NATT,4)=K(I,1)
-                  IF(K(I,3).EQ.0 .OR. K(K(I,3),2).EQ.IDSTR) THEN
+                  IF(K(I,3).EQ.0 ) THEN
                      KATT(NATT,3)=0
-                  ELSE
-                     KATT(NATT,3)=NATT-I+K(I,3)+N_STR-K(K(I,3),4)
+                   ELSE
+                      IF(K(K(I,3),2).EQ.IDSTR) THEN
+                         KATT(NATT,3)=0
+                      ELSE
+                         KATT(NATT,3)=NATT-I+K(I,3)+N_STR-K(K(I,3),4)
+                      ENDIF
                   ENDIF
 C       ****** identify the mother particle
                   PATT(NATT,1)=P(I,1)