Using proper random number generator

diff --git a/HIJING/hipyset1_35/lukfdi_hijing.F b/HIJING/hipyset1_35/lukfdi_hijing.F
index 71de6a9a18a3ff2efdbe1b7076beece8bfec5bc3..b32a92b08d59bbaae10627f41dd059625d2a2b27 100644 (file)
--- 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