Statistics
| Branch: | Revision:

root / synthbench / euroben-dm / mod2h / ranmod.f @ 0:839f52ef7657

History | View | Annotate | Download (536 Bytes)

1
      Module ran_module
2
! ----------------------------------------------------------------------
3
      Use                    numerics
4

    
5
      Integer(8), Parameter  :: m1 = 259200, a1 = 7141, c1 = 54773,
6
     &                          m2 = 134456, a2 = 8121, c2 = 28411
7
      Real(l_), Parameter    :: one = 1.0_l_, rm1 = one/m1,
8
     &                          rm2 = one/m2
9
      Integer(8)             :: ak1, ak2, ck1, ck2, x1, x2
10
! ----------------------------------------------------------------------
11
      End Module ran_module