radiation_random_numbers Module

Uses

- PARKIND1
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Contents

Variables

NMaxStreams IMinstdA IMinstdM IMinstdA0 IMinstdScale

Enumerations

unnamed

Derived Types

rng_type

Subroutines

initialize uniform_distribution_1d uniform_distribution_2d uniform_distribution_2d_masked

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=jpim),	public,	parameter	::	NMaxStreams	=	512
real(kind=jprd),	public,	parameter	::	IMinstdA	=	48271
real(kind=jprd),	public,	parameter	::	IMinstdM	=	2147483647
real(kind=jprd),	public,	parameter	::	IMinstdA0	=	16807
real(kind=jprb),	public,	parameter	::	IMinstdScale	=	1.0_jprb/real(IMinstdM, jprb)

Enumerations

enum, bind(c)

Enumerators

enumerator	::	IRngNative	=	0
enumerator	::	IRngMinstdVector	=	1

Derived Types

type, public :: rng_type

Components

Type	Visibility	Attributes		Name		Initial
integer(kind=jpim),	public		::	itype	=	IRngNative
real(kind=jprd),	public		::	istate(NMaxStreams)
integer(kind=jpim),	public		::	nmaxstreams	=	NMaxStreams
integer(kind=jpim),	public		::	iseed

Type-Bound Procedures

procedure , public :: initialize Subroutine
procedure , public :: uniform_distribution_2d_masked Subroutine
procedure , public :: uniform_distribution_2d Subroutine
procedure , public :: uniform_distribution_1d Subroutine
generic, public :: uniform_distribution => uniform_distribution_1d, uniform_distribution_2d, uniform_distribution_2d_masked

Subroutines

public subroutine initialize(this, itype, iseed, nmaxstreams)

Arguments

Type	Intent	Optional	Attributes		Name
class(rng_type),	intent(inout)			::	this
integer(kind=jpim),	intent(in),	optional		::	itype
integer(kind=jpim),	intent(in),	optional		::	iseed
integer(kind=jpim),	intent(in),	optional		::	nmaxstreams

public subroutine uniform_distribution_1d(this, randnum)

Arguments

Type	Intent	Optional	Attributes		Name
class(rng_type),	intent(inout)			::	this
real(kind=jprb),	intent(out)			::	randnum(:)

public subroutine uniform_distribution_2d(this, randnum)

Arguments

Type	Intent	Optional	Attributes		Name
class(rng_type),	intent(inout)			::	this
real(kind=jprb),	intent(out)			::	randnum(:,:)

public subroutine uniform_distribution_2d_masked(this, randnum, mask)

Arguments

Type	Intent	Optional	Attributes		Name
class(rng_type),	intent(inout)			::	this
real(kind=jprb),	intent(inout)			::	randnum(:,:)
logical,	intent(in)			::	mask(:)