root / synthbench / euroben-dm / mod2as / ranmod.f @ 0:839f52ef7657
History | View | Annotate | Download (501 Bytes)
| 1 |
Module ran_module |
|---|---|
| 2 |
! ---------------------------------------------------------------------- |
| 3 |
Use numerics |
| 4 |
|
| 5 |
Integer, 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 :: x1, x2 |
| 10 |
! ---------------------------------------------------------------------- |
| 11 |
End Module ran_module |