init_genrand64_i4 Subroutine

private subroutine init_genrand64_i4(me, seed)

Initializes me%mt(nn) with a seed

Type Bound

mt19937

Arguments

Type IntentOptional Attributes Name
class(mt19937), intent(inout) :: me
integer(kind=i4), intent(in) :: seed

Calls

proc~~init_genrand64_i4~~CallsGraph proc~init_genrand64_i4 mt19937%init_genrand64_i4 none~initialize mt19937%initialize proc~init_genrand64_i4->none~initialize none~initialize->proc~init_genrand64_i4 proc~init_by_array64 mt19937%init_by_array64 none~initialize->proc~init_by_array64 proc~init_genrand64 mt19937%init_genrand64 none~initialize->proc~init_genrand64 proc~init_by_array64->proc~init_genrand64

Called by

proc~~init_genrand64_i4~~CalledByGraph proc~init_genrand64_i4 mt19937%init_genrand64_i4 none~initialize mt19937%initialize proc~init_genrand64_i4->none~initialize none~initialize->proc~init_genrand64_i4

Source Code

  subroutine init_genrand64_i4(me,seed)
    !! Initializes `me%mt(nn)` with a seed
    implicit none

    class(mt19937),intent(inout) :: me
    integer(i4), intent(in) :: seed

    call me%initialize(int(seed, i8))

  end subroutine init_genrand64_i4