korc_random Module

  1. korc_random.f90
  2. korc_random

$OMP PARALLEL PRIVATE(thread_num)

$OMP END PARALLEL


Uses

  • module~~korc_random~~UsesGraph module~korc_random korc_random iso_c_binding iso_c_binding module~korc_random->iso_c_binding module~korc_types korc_types module~korc_random->module~korc_types module~korc_types->iso_c_binding

Used by

  • module~~korc_random~~UsedByGraph module~korc_random korc_random module~korc_spatial_distribution korc_spatial_distribution module~korc_spatial_distribution->module~korc_random module~korc_experimental_pdf korc_experimental_pdf module~korc_spatial_distribution->module~korc_experimental_pdf proc~init_random_seed init_random_seed proc~init_random_seed->module~korc_random module~korc_collisions korc_collisions module~korc_collisions->module~korc_random module~korc_experimental_pdf->module~korc_random module~korc_initialize korc_initialize module~korc_initialize->module~korc_spatial_distribution module~korc_velocity_distribution korc_velocity_distribution module~korc_initialize->module~korc_velocity_distribution program~main main program~main->module~korc_collisions program~main->module~korc_initialize module~korc_ppusher korc_ppusher program~main->module~korc_ppusher module~korc_ppusher->module~korc_collisions module~korc_velocity_distribution->module~korc_experimental_pdf

Contents

Variables

Interfaces

Functions

Subroutines


Variables

TypeVisibility AttributesNameInitial
type(C_PTR), private, DIMENSION(:), ALLOCATABLE:: states
type(C_PTR), private :: state

Interfaces

interface

  • public function random_construct_U(seed) bind(C, NAME='random_construct_U')

    Arguments

    Type IntentOptional AttributesName
    integer(kind=C_INT), VALUE:: seed

    Return Value type(C_PTR)

interface

  • public function random_construct_N(seed) bind(C, NAME='random_construct_N')

    Arguments

    Type IntentOptional AttributesName
    integer(kind=C_INT), VALUE:: seed

    Return Value type(C_PTR)

interface

  • public function random_get_number_U(r) bind(C, NAME='random_get_number_U')

    Arguments

    Type IntentOptional AttributesName
    type(C_PTR), VALUE:: r

    Return Value real(kind=C_DOUBLE)

interface

  • public function random_get_number_N(r) bind(C, NAME='random_get_number_N')

    Arguments

    Type IntentOptional AttributesName
    type(C_PTR), VALUE:: r

    Return Value real(kind=C_DOUBLE)

interface

  • public function random_get_number(r) bind(C, NAME='random_get_number')

    Arguments

    Type IntentOptional AttributesName
    type(C_PTR), VALUE:: r

    Return Value real(kind=C_DOUBLE)

interface

  • public subroutine random_destroy_U(r) bind(C, NAME="0")

    Arguments

    Type IntentOptional AttributesName
    type(C_PTR), VALUE:: r

interface

  • public subroutine random_destroy_N(r) bind(C, NAME="0")

    Arguments

    Type IntentOptional AttributesName
    type(C_PTR), VALUE:: r

interface

  • public subroutine random_set_dist(r, low, high) bind(C, NAME="0")

    Arguments

    Type IntentOptional AttributesName
    type(C_PTR), VALUE:: r
    real(kind=C_DOUBLE), VALUE:: low
    real(kind=C_DOUBLE), VALUE:: high

Functions

public function get_random()

Arguments

None

Return Value real(kind=rp)

public function get_random_U()

Arguments

None

Return Value real(kind=rp)

public function get_random_N()

Arguments

None

Return Value real(kind=rp)


Subroutines

public subroutine initialize_random(seed)

Arguments

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

public subroutine initialize_random_U(seed)

Arguments

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

public subroutine initialize_random_N(seed)

Arguments

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

public subroutine get_randoms(nums)

Arguments

Type IntentOptional AttributesName
real(kind=rp), intent(out), DIMENSION(:):: nums

public subroutine set_random_dist(low, high)

Arguments

Type IntentOptional AttributesName
real(kind=rp), intent(in) :: low
real(kind=rp), intent(in) :: high