random – Fortran free function collection

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Uses

- fffc_kinds

Variables

Functions

random_normal random_gamma random_gamma1 random_gamma2 random_chisq random_exponential random_Weibull random_beta random_t random_inv_gauss random_Poisson random_binomial1 bin_prob lngamma random_binomial2 random_neg_binomial random_von_Mises random_Cauchy

Subroutines

random_mvnorm random_order seed_random_number

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	dp	=	SELECTED_REAL_KIND(12, 60)

Functions

public function random_normal() result(fn_val)

Arguments

None

Return Value real

public function random_gamma(s, first) result(fn_val)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	s
logical,	intent(in)			::	first

Return Value real

public function random_gamma1(s, first) result(fn_val)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	s
logical,	intent(in)			::	first

Return Value real

public function random_gamma2(s, first) result(fn_val)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	s
logical,	intent(in)			::	first

Return Value real

public function random_chisq(ndf, first) result(fn_val)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ndf
logical,	intent(in)			::	first

Return Value real

public function random_exponential() result(fn_val)

Arguments

None

Return Value real

public function random_Weibull(a) result(fn_val)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	a

Return Value real

public function random_beta(aa, bb, first) result(fn_val)

Arguments

Type	Intent		Name
real,	intent(in)	::	aa
real,	intent(in)	::	bb
logical,	intent(in)	::	first

Return Value real

public function random_t(m) result(fn_val)

Arguments

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

Return Value real

public function random_inv_gauss(h, b, first) result(fn_val)

Arguments

Type	Intent		Name
real,	intent(in)	::	h
real,	intent(in)	::	b
logical,	intent(in)	::	first

Return Value real

public function random_Poisson(mu, first) result(ival)

This work was supported by grant CA-16672 from the National Cancer Institute.

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	mu
logical,	intent(in)			::	first

Return Value integer

public function random_binomial1(n, p, first) result(ival)

Arguments

Type	Intent		Name
integer,	intent(in)	::	n
real,	intent(in)	::	p
logical,	intent(in)	::	first

Return Value integer

public function bin_prob(n, p, r) result(fn_val)

Arguments

Type	Intent		Name
integer,	intent(in)	::	n
real,	intent(in)	::	p
integer,	intent(in)	::	r

Return Value real

public function lngamma(x) result(fn_val)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	x

Return Value real(kind=dp)

public function random_binomial2(n, pp, first) result(ival)

This work was supported by grant CA-16672 from the National Cancer Institute.

Arguments

Type	Intent		Name
integer,	intent(in)	::	n
real,	intent(in)	::	pp
logical,	intent(in)	::	first

Return Value integer

public function random_neg_binomial(sk, p) result(ival)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	sk
real,	intent(in)			::	p

Return Value integer

public function random_von_Mises(k, first) result(fn_val)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	k
logical,	intent(in)			::	first

Return Value real

public function random_Cauchy() result(fn_val)

Arguments

None

Return Value real

Subroutines

public subroutine random_mvnorm(n, h, d, f, first, x, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	n
real,	intent(in)	::	h(:)
real,	intent(in)	::	d(:)
real,	intent(inout)	::	f(:)
logical,	intent(in)	::	first
real,	intent(out)	::	x(:)
integer,	intent(out)	::	ier

public subroutine random_order(order, n)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out)			::	order(n)
integer,	intent(in)			::	n

public subroutine seed_random_number(iounit)

Arguments

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

random Module

Contents

Variables

Functions

Subroutines

Uses

Contents

Variables

Functions

Subroutines

Variables

Functions

public function random_normal() result(fn_val)

Arguments

Return Value real

public function random_gamma(s, first) result(fn_val)

Arguments

Return Value real

public function random_gamma1(s, first) result(fn_val)

Arguments

Return Value real

public function random_gamma2(s, first) result(fn_val)

Arguments

Return Value real

public function random_chisq(ndf, first) result(fn_val)

Arguments

Return Value real

public function random_exponential() result(fn_val)

Arguments

Return Value real

public function random_Weibull(a) result(fn_val)

Arguments

Return Value real

public function random_beta(aa, bb, first) result(fn_val)

Arguments

Return Value real

public function random_t(m) result(fn_val)

Arguments

Return Value real

public function random_inv_gauss(h, b, first) result(fn_val)

Arguments

Return Value real

public function random_Poisson(mu, first) result(ival)

Arguments

Return Value integer

public function random_binomial1(n, p, first) result(ival)

Arguments

Return Value integer

public function bin_prob(n, p, r) result(fn_val)

Arguments

Return Value real

public function lngamma(x) result(fn_val)

Arguments

Return Value real(kind=dp)

public function random_binomial2(n, pp, first) result(ival)

Arguments

Return Value integer

public function random_neg_binomial(sk, p) result(ival)

Arguments

Return Value integer

public function random_von_Mises(k, first) result(fn_val)

Arguments

Return Value real

public function random_Cauchy() result(fn_val)

Arguments

Return Value real

Subroutines

public subroutine random_mvnorm(n, h, d, f, first, x, ier)

Arguments

public subroutine random_order(order, n)

Arguments

public subroutine seed_random_number(iounit)

Arguments