|
elemental integer(kind=wi) function, private | uiadd (a, b) |
|
elemental integer(kind=wi) function, private | uisub (a, b) |
|
elemental integer(kind=wi) function, private | uimlt (a, b) |
|
elemental integer(kind=wi) function, private | uidiv (a, b) |
|
elemental integer(kind=wi) function, private | uimod (a, b) |
|
subroutine, private | init_by_type (put, get) |
|
subroutine, private | init_by_scalar (put) |
|
subroutine, private | init_by_array (put) |
|
subroutine, private | next_state () |
|
elemental subroutine, private | genrand_encode (chr, val) |
|
elemental subroutine, private | genrand_decode (val, chr) |
|
elemental subroutine, private | genrand_load_state (stt, rpr) |
|
elemental subroutine, private | genrand_dump_state (rpr, stt) |
|
subroutine, private | genrand_int32_0d (y) |
|
subroutine, private | genrand_int32_1d (y) |
|
subroutine, private | genrand_int32_2d (y) |
|
subroutine, private | genrand_int32_3d (y) |
|
subroutine, private | genrand_int32_4d (y) |
|
subroutine, private | genrand_int32_5d (y) |
|
subroutine, private | genrand_int32_6d (y) |
|
subroutine, private | genrand_int32_7d (y) |
|
subroutine, private | genrand_int31_0d (y) |
|
subroutine, private | genrand_int31_1d (y) |
|
subroutine, private | genrand_int31_2d (y) |
|
subroutine, private | genrand_int31_3d (y) |
|
subroutine, private | genrand_int31_4d (y) |
|
subroutine, private | genrand_int31_5d (y) |
|
subroutine, private | genrand_int31_6d (y) |
|
subroutine, private | genrand_int31_7d (y) |
|
subroutine, private | genrand_real1_0d (r) |
|
subroutine, private | genrand_real1_1d (r) |
|
subroutine, private | genrand_real1_2d (r) |
|
subroutine, private | genrand_real1_3d (r) |
|
subroutine, private | genrand_real1_4d (r) |
|
subroutine, private | genrand_real1_5d (r) |
|
subroutine, private | genrand_real1_6d (r) |
|
subroutine, private | genrand_real1_7d (r) |
|
subroutine, private | genrand_real2_0d (r) |
|
subroutine, private | genrand_real2_1d (r) |
|
subroutine, private | genrand_real2_2d (r) |
|
subroutine, private | genrand_real2_3d (r) |
|
subroutine, private | genrand_real2_4d (r) |
|
subroutine, private | genrand_real2_5d (r) |
|
subroutine, private | genrand_real2_6d (r) |
|
subroutine, private | genrand_real2_7d (r) |
|
subroutine, private | genrand_real3_0d (r) |
|
subroutine, private | genrand_real3_1d (r) |
|
subroutine, private | genrand_real3_2d (r) |
|
subroutine, private | genrand_real3_3d (r) |
|
subroutine, private | genrand_real3_4d (r) |
|
subroutine, private | genrand_real3_5d (r) |
|
subroutine, private | genrand_real3_6d (r) |
|
subroutine, private | genrand_real3_7d (r) |
|
subroutine, private | genrand_res53_0d (r) |
|
subroutine, private | genrand_res53_1d (r) |
|
subroutine, private | genrand_res53_2d (r) |
|
subroutine, private | genrand_res53_3d (r) |
|
subroutine, private | genrand_res53_4d (r) |
|
subroutine, private | genrand_res53_5d (r) |
|
subroutine, private | genrand_res53_6d (r) |
|
subroutine, private | genrand_res53_7d (r) |
|
|
integer, parameter, public | genrand_intg = selected_int_kind( 9 ) |
|
integer, parameter, public | genrand_real = selected_real_kind( 15 ) |
|
integer, parameter, private | wi = genrand_intg |
|
integer, parameter, private | wr = genrand_real |
|
integer(kind=wi), parameter, private | n = 624_wi |
|
integer(kind=wi), parameter, private | m = 397_wi |
|
integer(kind=wi), parameter, private | default_seed = 5489_wi |
|
integer(kind=wi), parameter, private | fbs = 32_wi |
|
integer(kind=wi), parameter, private | hbs = fbs / 2_wi |
|
integer(kind=wi), parameter, private | qbs = hbs / 2_wi |
|
integer(kind=wi), parameter, private | tbs = 3_wi * qbs |
|
real(kind=wr), parameter, private | p231 = 2147483648.0_wr |
|
real(kind=wr), parameter, private | p232 = 4294967296.0_wr |
|
real(kind=wr), parameter, private | p232_1 = p232 - 1.0_wr |
|
real(kind=wr), parameter, private | pi232 = 1.0_wr / p232 |
|
real(kind=wr), parameter, private | pi232_1 = 1.0_wr / p232_1 |
|
real(kind=wr), parameter, private | pi227 = 1.0_wr / 134217728.0_wr |
|
real(kind=wr), parameter, private | pi253 = 1.0_wr / 9007199254740992.0_wr |
|
real(kind=wr), parameter, private | p231d232_1 = p231 / p232_1 |
|
real(kind=wr), parameter, private | p231_5d232 = ( p231 + 0.5_wr ) / p232 |
|
character(len= *), parameter, private | alph = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" |
|
character(len= *), parameter, private | sepr = "&" |
|
integer(kind=wi), parameter, private | alps = 62_wi |
|
integer(kind=wi), parameter, private | clen = ( n + 1_wi ) * 7_wi |
|
type(genrand_state), save, private | state |
|