init_genrand64_i4 Subroutine

  1. mt19937-64.f90
  2. mt19937_64
  3. init_genrand64_i4

private subroutine init_genrand64_i4(me, seed)

Initializes me%mt(nn) with a seed

Arguments

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

Contents

Source Code

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