author hristov Sat, 19 Mar 2011 06:19:51 +0000 (06:19 +0000) committer hristov Sat, 19 Mar 2011 06:19:51 +0000 (06:19 +0000)

index 71de6a9..b32a92b 100644 (file)
@@ -226,20 +226,20 @@ C     Converting a fraction (0.20) of Lambda0 to Lambda(1520) + c.c.
C     This fraction is based on the experimental measurement at ISR
C     Bobbink 83, NP B217,11 (1983)
C     The region 0.5 < XF < 1.0 has been extrapolated to XF=0
-         IF(PYR(0).LE.0.20) KF=ISIGN(3124,KF)
+         IF(RLU_HIJING(0).LE.0.20) KF=ISIGN(3124,KF)
ENDIF

IF(IABS(KF).EQ.3212) THEN
C     Converting a fraction (0.20) of Sigma0 to Lambda(1520) + c.c.
C     We suppose the same fraction as for Lambda0
-         IF(PYR(0).LE.0.20) KF=ISIGN(3124,KF)
+         IF(RLU_HIJING(0).LE.0.20) KF=ISIGN(3124,KF)
ENDIF

IF (IABS(KF).EQ.3214) THEN
C     Converting a fraction (0.30) of Sigma0(1385) to Lambda(1520) + c.c.
C     This is conservative extimate supposing that the ratio
C     scales as (M_Sigma1385/M_Lambda0)^2 ~ 1.5
-         IF(PYR(0).LE.0.30) KF=ISIGN(3124,KF)
+         IF(RLU_HIJING(0).LE.0.30) KF=ISIGN(3124,KF)
ENDIF
RETURN