From 9ea2ee29a5e3f7eb43be861df35174d161114559 Mon Sep 17 00:00:00 2001 From: hristov Date: Sat, 19 Mar 2011 06:19:51 +0000 Subject: [PATCH] Using proper random number generator --- HIJING/hipyset1_35/lukfdi_hijing.F | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/HIJING/hipyset1_35/lukfdi_hijing.F b/HIJING/hipyset1_35/lukfdi_hijing.F index 71de6a9a18a..b32a92b08d5 100644 --- a/HIJING/hipyset1_35/lukfdi_hijing.F +++ b/HIJING/hipyset1_35/lukfdi_hijing.F @@ -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 -- 2.43.0