sgrnd Subroutine

public subroutine sgrnd(seed)

Set initial seed of module-level mt19937_type instance

Arguments

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

Contents

Source Code

sgrnd

Source Code

  subroutine sgrnd(seed)
    implicit none
    integer, intent(in) :: seed
    call module_mt19937%set_seed(seed)
  end subroutine sgrnd