rng_type Derived Type

type, public :: rng_type

Contents

Variables

itype istate nmaxstreams iseed

Type-Bound Procedures

initialize uniform_distribution_2d_masked uniform_distribution_2d uniform_distribution_1d uniform_distribution

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

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

procedure, public :: uniform_distribution_2d_masked

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(:)

procedure, public :: uniform_distribution_2d

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(:,:)

procedure, public :: uniform_distribution_1d

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(:)

generic, public :: uniform_distribution => uniform_distribution_1d, uniform_distribution_2d, uniform_distribution_2d_masked

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(:)