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 |