Using proper random number generator
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Sat, 19 Mar 2011 06:19:51 +0000 (06:19 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Sat, 19 Mar 2011 06:19:51 +0000 (06:19 +0000)
HIJING/hipyset1_35/lukfdi_hijing.F

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