File indexing completed on 2025-08-05 08:21:14
0001 !-----------------------------------------------------------------
0002 ! The point of this set of routines is to replace all potentially
0003 ! used random number generators with functions and subroutines
0004 ! that utilize a common seed sequence. In this case:
0005 !
0006 ! the CERNLIB RANECU series
0007 !
0008 ! MC programmers should now always use:
0009 ! rndmq to initialize or obtain status
0010 ! rlu to get a single 0:1 random number
0011 ! nran to get a vector of 0:1 random numbers
0012 ! rannor to get 2 Gaussian random numbers
0013 !
0014 !-----------------------------------------------------------------
0015
0016 !-----------------------------------------------------------------
0017 ! Replace the PYTHIA random number generator
0018
0019 double precision function pyr(idummy)
0020
0021 implicit none
0022
0023 integer idummy
0024 real r
0025
0026 call ranlux(r,1)
0027 pyr = r
0028
0029 return
0030 end
0031
