! CUBSPL defines an interpolatory cubic spline.
Discussion:
A tridiagonal linear system for the unknown slopes S(I) of
F at TAU(I), I=1,..., N, is generated and then solved by Gauss
elimination, with S(I) ending up in C(2,I), for all I.
This work was supported by grant CA-16672 from the National Cancer Institute.
GENerate BINomial random deviate
Function
Generates a single random deviate from a binomial
distribution whose number of trials is N and whose
probability of an event in each trial is P.
Arguments
N --> The number of trials in the binomial distribution
from which a random deviate is to be generated.
INTEGER N
P --> The probability of an event in each trial of the
binomial distribution from which a random deviate
is to be generated.
REAL P
FIRST --> Set FIRST = .TRUE. for the first call to perform initialization
the set FIRST = .FALSE. for further calls using the same pair
of parameter values (N, P).
LOGICAL FIRST
random_binomial2 <-- A random deviate yielding the number of events
from N independent trials, each of which has
a probability of event P.
INTEGER random_binomial
Method
This is algorithm BTPE from:
Kachitvichyanukul, V. and Schmeiser, B. W.
Binomial Random Variate Generation.
Communications of the ACM, 31, 2 (February, 1988) 216.
This work was supported by grant CA-16672 from the National Cancer Institute.
GENerate BINomial random deviate
Function
Generates a single random deviate from a binomial
distribution whose number of trials is N and whose
probability of an event in each trial is P.
Arguments
N --> The number of trials in the binomial distribution
from which a random deviate is to be generated.
INTEGER N
P --> The probability of an event in each trial of the
binomial distribution from which a random deviate
is to be generated.
REAL P
FIRST --> Set FIRST = .TRUE. for the first call to perform initialization
the set FIRST = .FALSE. for further calls using the same pair
of parameter values (N, P).
LOGICAL FIRST
random_binomial2 <-- A random deviate yielding the number of events
from N independent trials, each of which has
a probability of event P.
INTEGER random_binomial
Method
This is algorithm BTPE from:
Kachitvichyanukul, V. and Schmeiser, B. W.
Binomial Random Variate Generation.
Communications of the ACM, 31, 2 (February, 1988) 216.
This work was supported by grant CA-16672 from the National Cancer Institute.
GENerate POIsson random deviate
Function
Generates a single random deviate from a Poisson distribution with mean mu.
Arguments
mu --> The mean of the Poisson distribution from which
a random deviate is to be generated.
REAL mu
Method
For details see:
Ahrens, J.H. and Dieter, U.
Computer Generation of Poisson Deviates
From Modified Normal Distributions.
ACM Trans. Math. Software, 8, 2
(June 1982),163-179
TABLES: COEFFICIENTS A0-A7 FOR STEP F. FACTORIALS FACT
COEFFICIENTS A(K) - FOR PX = FKVVSUM(A(K)V**K)-DEL
SEPARATION OF CASES A AND B
.. Scalar Arguments ..
This work was supported by grant CA-16672 from the National Cancer Institute.
GENerate POIsson random deviate
Function
Generates a single random deviate from a Poisson distribution with mean mu.
Arguments
mu --> The mean of the Poisson distribution from which
a random deviate is to be generated.
REAL mu
Method
For details see:
Ahrens, J.H. and Dieter, U.
Computer Generation of Poisson Deviates
From Modified Normal Distributions.
ACM Trans. Math. Software, 8, 2
(June 1982),163-179
TABLES: COEFFICIENTS A0-A7 FOR STEP F. FACTORIALS FACT
COEFFICIENTS A(K) - FOR PX = FKVVSUM(A(K)V**K)-DEL
SEPARATION OF CASES A AND B
.. Scalar Arguments ..
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.