Go to the source code of this file.
Functions/Subroutines |
real(kind=8) | alngam (xvalue, ifault) |
subroutine | bbl (mu, theta, rl, mrl, lm, rnl) |
subroutine | bbme (n, ix, in, inf, mu, theta) |
subroutine | bbml (n, ix, in, rl, mrl, iter, ccrit, mu, theta, mu_se, theta_se, rnl, ifault) |
real(kind=8) | beta (a, b) |
subroutine | beta_binomial_cdf_inv (cdf, a, b, c, x) |
subroutine | beta_binomial_check (a, b, c) |
subroutine | beta_binomial_sample (a, b, c, seed, x) |
subroutine | gder (mu, theta, rl, mrl, lm, ider, rd, pd) |
real(kind=8) | r8_uniform_01 (seed) |
subroutine | set (n, ix, in, rl, mrl, lm, ifault) |
subroutine | timestamp () |
Function Documentation
real ( kind = 8 ) alngam |
( |
real ( kind = 8 ) |
xvalue, |
|
|
integer ( kind = 4 ) |
ifault |
|
) |
| |
subroutine bbl |
( |
real ( kind = 8 ) |
mu, |
|
|
real ( kind = 8 ) |
theta, |
|
|
integer ( kind = 4 ),dimension(mrl,3) |
rl, |
|
|
integer ( kind = 4 ) |
mrl, |
|
|
integer ( kind = 4 ),dimension(3) |
lm, |
|
|
real ( kind = 8 ) |
rnl |
|
) |
| |
subroutine bbme |
( |
integer ( kind = 4 ) |
n, |
|
|
integer ( kind = 4 ),dimension(n) |
ix, |
|
|
integer ( kind = 4 ),dimension(n) |
in, |
|
|
real ( kind = 8 ) |
inf, |
|
|
real ( kind = 8 ) |
mu, |
|
|
real ( kind = 8 ) |
theta |
|
) |
| |
subroutine bbml |
( |
integer ( kind = 4 ) |
n, |
|
|
integer ( kind = 4 ),dimension(n) |
ix, |
|
|
integer ( kind = 4 ),dimension(n) |
in, |
|
|
integer ( kind = 4 ),dimension(mrl,3) |
rl, |
|
|
integer ( kind = 4 ) |
mrl, |
|
|
integer ( kind = 4 ) |
iter, |
|
|
real ( kind = 8 ) |
ccrit, |
|
|
real ( kind = 8 ) |
mu, |
|
|
real ( kind = 8 ) |
theta, |
|
|
real ( kind = 8 ) |
mu_se, |
|
|
real ( kind = 8 ) |
theta_se, |
|
|
real ( kind = 8 ) |
rnl, |
|
|
integer ( kind = 4 ) |
ifault |
|
) |
| |
real ( kind = 8 ) beta |
( |
real ( kind = 8 ) |
a, |
|
|
real ( kind = 8 ) |
b |
|
) |
| |
subroutine beta_binomial_cdf_inv |
( |
real ( kind = 8 ) |
cdf, |
|
|
real ( kind = 8 ) |
a, |
|
|
real ( kind = 8 ) |
b, |
|
|
integer ( kind = 4 ) |
c, |
|
|
integer ( kind = 4 ) |
x |
|
) |
| |
subroutine beta_binomial_check |
( |
real ( kind = 8 ) |
a, |
|
|
real ( kind = 8 ) |
b, |
|
|
integer ( kind = 4 ) |
c |
|
) |
| |
subroutine beta_binomial_sample |
( |
real ( kind = 8 ) |
a, |
|
|
real ( kind = 8 ) |
b, |
|
|
integer ( kind = 4 ) |
c, |
|
|
integer ( kind = 4 ) |
seed, |
|
|
integer ( kind = 4 ) |
x |
|
) |
| |
subroutine gder |
( |
real ( kind = 8 ) |
mu, |
|
|
real ( kind = 8 ) |
theta, |
|
|
integer ( kind = 4 ),dimension(mrl,3) |
rl, |
|
|
integer ( kind = 4 ) |
mrl, |
|
|
integer ( kind = 4 ),dimension(3) |
lm, |
|
|
integer ( kind = 4 ) |
ider, |
|
|
integer ( kind = 4 ),dimension(2,ider) |
rd, |
|
|
real ( kind = 8 ),dimension(ider) |
pd |
|
) |
| |
real ( kind = 8 ) r8_uniform_01 |
( |
integer ( kind = 4 ) |
seed | ) |
|
subroutine set |
( |
integer ( kind = 4 ) |
n, |
|
|
integer ( kind = 4 ),dimension(n) |
ix, |
|
|
integer ( kind = 4 ),dimension(n) |
in, |
|
|
integer ( kind = 4 ),dimension(mrl,3) |
rl, |
|
|
integer ( kind = 4 ) |
mrl, |
|
|
integer ( kind = 4 ),dimension(3) |
lm, |
|
|
integer ( kind = 4 ) |
ifault |
|
) |
| |