initialize_random_U Subroutine

  1. korc_random.f90
  2. korc_random
  3. initialize_random_U

public subroutine initialize_random_U(seed)

Uses

  • proc~~initialize_random_u~~UsesGraph proc~initialize_random_u initialize_random_U omp_lib omp_lib proc~initialize_random_u->omp_lib

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: seed

Calls

proc~~initialize_random_u~~CallsGraph proc~initialize_random_u initialize_random_U interface~random_construct_u random_construct_U proc~initialize_random_u->interface~random_construct_u

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