CAM
|
Functions/Subroutines | |
subroutine | init_seeds (i1, i2, i3) |
real(dp) function | taus88 () |
subroutine | init_seeds_ext (sv) |
real(dp) function | taus88_ext (sv) |
Variables | |
integer, parameter | dp = SELECTED_REAL_KIND(14, 60) |
integer, save | s1 = 1234 |
integer, save | s2 = -4567 |
integer, save | s3 = 7890 |
subroutine ecuyer_random::init_seeds | ( | integer, intent(in) | i1, |
integer, intent(in) | i2, | ||
integer, intent(in) | i3 | ||
) |
subroutine ecuyer_random::init_seeds_ext | ( | integer, dimension(3), intent(inout) | sv | ) |
real (dp) function ecuyer_random::taus88 | ( | ) |
real (dp) function ecuyer_random::taus88_ext | ( | integer, dimension(3), intent(inout) | sv | ) |
integer, parameter ecuyer_random::dp = SELECTED_REAL_KIND(14, 60) |
integer, save ecuyer_random::s1 = 1234 |
integer, save ecuyer_random::s2 = -4567 |
integer, save ecuyer_random::s3 = 7890 |