ranmod.f

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

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

      Integer(8), 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(8)             :: ak1, ak2, ck1, ck2
! ----------------------------------------------------------------------
      End Module ran_module