double precision rand0, random, rmax24
      double precision rrmx24, rrmx48, rmax48
      integer   rncunt, irna1, irna2, imax24
      double precision rna1, rna2
      parameter( irna1 = 15184245, irna2 = 2651554 ) 
      parameter( imax24 = 16777216 )
      parameter( rna1 = 15184245.0d0, rna2 = 2651554.0d0 )
      parameter( rmax24 = 16777216.0d0
     &         , rmax48 = 281474976710656.0d0
     &         , rrmx24 = 1.0d0 / rmax24
     &         , rrmx48 = 1.0d0/ rmax48
     &         , rand0 = 48131768981101.0d0 )
      logical    rninit
      common  / randat / random, rncunt, rninit