|
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 |
The documentation for this module was generated from the following file:
- /u/gitlab-xgc/builds/YGMz2TJ8/0/xgc/XGC-Devel/XGC_core/module.F90