mt19937 Module


Variables

Type Visibility Attributes Name Initial
integer, private, parameter :: default_seed = 4357
integer, private, parameter :: N = 624
integer, private, parameter :: M = 397
integer, private, parameter :: MATA = -1727483681
integer, private, parameter :: LMASK = 2147483647
integer, private, parameter :: UMASK = -LMASK-1
integer, private, parameter :: TMASKB = -1658038656
integer, private, parameter :: TMASKC = -272236544
integer, private, save :: mt(0:N-1)
integer, private, save :: mti = N+1
integer, private, save :: mag01(0:1) = (/0, MATA/)

Functions

public function grnd()

Arguments

None

Return Value real


Subroutines

public subroutine sgrnd(seed)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: seed