ranmod.f

来自「网络带宽测试工具」· F 代码 · 共 12 行

      Module ran_module
! ----------------------------------------------------------------------
      Use                    numerics

      Integer, Parameter  :: m1 = 259200, a1 = 7141, c1 = 54773,
     &                       m2 = 134456, a2 = 8121, c2 = 28411
      Real(l_), Parameter :: one = 1.0_l_, rm1 = one/m1,
     &                       rm2 = one/m2
      Integer             :: x1, x2
! ----------------------------------------------------------------------
      End Module ran_module