initialize_random_N Subroutine

public subroutine initialize_random_N(seed)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	seed

Contents

Source Code

initialize_random_N

Source Code

  SUBROUTINE initialize_random_N(seed)
    USE omp_lib
    IMPLICIT NONE

    INTEGER, INTENT(IN) :: seed

    state = random_construct_N(seed)

  END SUBROUTINE initialize_random_N