korc_random Module

$OMP PARALLEL PRIVATE(thread_num)

$OMP END PARALLEL

Uses

- iso_c_binding
- korc_types

Contents

Variables

states state

Interfaces

random_construct_U random_construct_N random_get_number_U random_get_number_N random_destroy_U random_destroy_N

Functions

get_random get_random_U get_random_N

Subroutines

initialize_random initialize_random_U initialize_random_N

Variables

Type	Visibility	Attributes		Name		Initial
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 Intent Optional Attributes Name

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 Intent Optional Attributes Name

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 Intent Optional Attributes Name

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 Intent Optional Attributes Name

type(C_PTR), VALUE :: r

Return Value real(kind=C_DOUBLE)

interface

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

Arguments

Type Intent Optional Attributes Name

type(C_PTR), VALUE :: r

interface

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

Arguments

Type Intent Optional Attributes Name

type(C_PTR), VALUE :: r

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	Intent	Optional	Attributes		Name
integer,	intent(in)			::	seed

public subroutine initialize_random_U(seed)

Arguments

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

public subroutine initialize_random_N(seed)

Arguments

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