DPMJET/flukapro/(RANDOM)

   1 *$ CREATE RANDOM.ADD
   2 *COPY RANDOM
   3 *----------------------------------------------------------------------*
   4 *                                                                      *
   5 *     Common Random for EGS4                                           *
   6 *                                                                      *
   7 *----------------------------------------------------------------------*
   8       COMMON /RANDOM/ IXX
   9       INTEGER IX(2)
  10       REAL*8 DRN
  11       EQUIVALENCE( IX(1), DRN )
  12       DATA IX(1)/Z46000000/
  13