Additional protection (macosx with gfortran)
[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / hijing.F
index 4f9d0c9..fb077dc 100644 (file)
@@ -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)