initialize_random_U Subroutine

public subroutine initialize_random_U(seed)

Arguments

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

Contents

Source Code

initialize_random_U

Source Code

  SUBROUTINE initialize_random_U(seed)
    USE omp_lib
    IMPLICIT NONE

    INTEGER, INTENT(IN) :: seed

    state = random_construct_U(seed)

  END SUBROUTINE initialize_random_U