mt95.f90 File Reference

Data Types
type	mt95::genrand_state
type	mt95::genrand_srepr
interface	mt95::assignment(=)
interface	mt95::genrand_init
interface	mt95::genrand_int32
interface	mt95::genrand_int31
interface	mt95::genrand_real1
interface	mt95::genrand_real2
interface	mt95::genrand_real3
interface	mt95::genrand_res53

Modules
module	mt95

Functions/Subroutines
elemental integer(kind=wi) function, private	mt95::uiadd (a, b)
elemental integer(kind=wi) function, private	mt95::uisub (a, b)
elemental integer(kind=wi) function, private	mt95::uimlt (a, b)
elemental integer(kind=wi) function, private	mt95::uidiv (a, b)
elemental integer(kind=wi) function, private	mt95::uimod (a, b)
subroutine, private	mt95::init_by_type (put, get)
subroutine, private	mt95::init_by_scalar (put)
subroutine, private	mt95::init_by_array (put)
subroutine, private	mt95::next_state ()
elemental subroutine, private	mt95::genrand_encode (chr, val)
elemental subroutine, private	mt95::genrand_decode (val, chr)
elemental subroutine, private	mt95::genrand_load_state (stt, rpr)
elemental subroutine, private	mt95::genrand_dump_state (rpr, stt)
subroutine, private	mt95::genrand_int32_0d (y)
subroutine, private	mt95::genrand_int32_1d (y)
subroutine, private	mt95::genrand_int32_2d (y)
subroutine, private	mt95::genrand_int32_3d (y)
subroutine, private	mt95::genrand_int32_4d (y)
subroutine, private	mt95::genrand_int32_5d (y)
subroutine, private	mt95::genrand_int32_6d (y)
subroutine, private	mt95::genrand_int32_7d (y)
subroutine, private	mt95::genrand_int31_0d (y)
subroutine, private	mt95::genrand_int31_1d (y)
subroutine, private	mt95::genrand_int31_2d (y)
subroutine, private	mt95::genrand_int31_3d (y)
subroutine, private	mt95::genrand_int31_4d (y)
subroutine, private	mt95::genrand_int31_5d (y)
subroutine, private	mt95::genrand_int31_6d (y)
subroutine, private	mt95::genrand_int31_7d (y)
subroutine, private	mt95::genrand_real1_0d (r)
subroutine, private	mt95::genrand_real1_1d (r)
subroutine, private	mt95::genrand_real1_2d (r)
subroutine, private	mt95::genrand_real1_3d (r)
subroutine, private	mt95::genrand_real1_4d (r)
subroutine, private	mt95::genrand_real1_5d (r)
subroutine, private	mt95::genrand_real1_6d (r)
subroutine, private	mt95::genrand_real1_7d (r)
subroutine, private	mt95::genrand_real2_0d (r)
subroutine, private	mt95::genrand_real2_1d (r)
subroutine, private	mt95::genrand_real2_2d (r)
subroutine, private	mt95::genrand_real2_3d (r)
subroutine, private	mt95::genrand_real2_4d (r)
subroutine, private	mt95::genrand_real2_5d (r)
subroutine, private	mt95::genrand_real2_6d (r)
subroutine, private	mt95::genrand_real2_7d (r)
subroutine, private	mt95::genrand_real3_0d (r)
subroutine, private	mt95::genrand_real3_1d (r)
subroutine, private	mt95::genrand_real3_2d (r)
subroutine, private	mt95::genrand_real3_3d (r)
subroutine, private	mt95::genrand_real3_4d (r)
subroutine, private	mt95::genrand_real3_5d (r)
subroutine, private	mt95::genrand_real3_6d (r)
subroutine, private	mt95::genrand_real3_7d (r)
subroutine, private	mt95::genrand_res53_0d (r)
subroutine, private	mt95::genrand_res53_1d (r)
subroutine, private	mt95::genrand_res53_2d (r)
subroutine, private	mt95::genrand_res53_3d (r)
subroutine, private	mt95::genrand_res53_4d (r)
subroutine, private	mt95::genrand_res53_5d (r)
subroutine, private	mt95::genrand_res53_6d (r)
subroutine, private	mt95::genrand_res53_7d (r)

Variables
integer, parameter, public	mt95::genrand_intg = selected_int_kind( 9 )
integer, parameter, public	mt95::genrand_real = selected_real_kind( 15 )
integer, parameter, private	mt95::wi = genrand_intg
integer, parameter, private	mt95::wr = genrand_real
integer(kind=wi), parameter, private	mt95::n = 624_wi
integer(kind=wi), parameter, private	mt95::m = 397_wi
integer(kind=wi), parameter, private	mt95::default_seed = 5489_wi
integer(kind=wi), parameter, private	mt95::fbs = 32_wi
integer(kind=wi), parameter, private	mt95::hbs = fbs / 2_wi
integer(kind=wi), parameter, private	mt95::qbs = hbs / 2_wi
integer(kind=wi), parameter, private	mt95::tbs = 3_wi * qbs
real(kind=wr), parameter, private	mt95::p231 = 2147483648.0_wr
real(kind=wr), parameter, private	mt95::p232 = 4294967296.0_wr
real(kind=wr), parameter, private	mt95::p232_1 = p232 - 1.0_wr
real(kind=wr), parameter, private	mt95::pi232 = 1.0_wr / p232
real(kind=wr), parameter, private	mt95::pi232_1 = 1.0_wr / p232_1
real(kind=wr), parameter, private	mt95::pi227 = 1.0_wr / 134217728.0_wr
real(kind=wr), parameter, private	mt95::pi253 = 1.0_wr / 9007199254740992.0_wr
real(kind=wr), parameter, private	mt95::p231d232_1 = p231 / p232_1
real(kind=wr), parameter, private	mt95::p231_5d232 = ( p231 + 0.5_wr ) / p232
character(len= *), parameter, private	mt95::alph = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
character(len= *), parameter, private	mt95::sepr = "&"
integer(kind=wi), parameter, private	mt95::alps = 62_wi
integer(kind=wi), parameter, private	mt95::clen = ( n + 1_wi ) * 7_wi
type(genrand_state), save, private	mt95::state