|
| real(kind=wp) function | wp_binom (N, M, p) |
| |
| real(kind=ep1) function | ep_binom (N, M, p) |
| | Quad precision version of wp_binom. More...
|
| |
◆ ep_binom()
| real(kind=ep1) function special_functions_gbl::cfp_binom::ep_binom |
( |
integer |
N, |
|
|
integer |
M, |
|
|
real(kind=ep1) |
p |
|
) |
| |
Quad precision version of wp_binom.
◆ wp_binom()
| real(kind=wp) function special_functions_gbl::cfp_binom::wp_binom |
( |
integer |
N, |
|
|
integer |
M, |
|
|
real(kind=wp) |
p |
|
) |
| |
***PURPOSE Compute the binomial coefficients.
***LIBRARY SLATEC (FNLIB)
***CATEGORY C1
***TYPE REAL(kind=wp) (BINOM-S, wp_binom-D)
***KEYWORDS BINOMIAL COEFFICIENTS, FNLIB, SPECIAL FUNCTIONS
***AUTHOR Fullerton, W., (LANL)
***DESCRIPTION
wp_binom(N,M) calculates the REAL(kind=wp) binomial coefficient
for integer arguments N and M. The result is (N!)/((M!)(N-M)!).
The argument 'p' is a dummy variable of the same type as the result, i.e.
if the double precision result is required then p must be a dummy variable
of type kind=wp. For quad precision p must be kind=ep1.
***REFERENCES (NONE)
***ROUTINES CALLED F1MACH, wp_9lgmc, cfp_lnrel, XERMSG
***REVISION HISTORY (YYMMDD)
770601 DATE WRITTEN
890531 Changed all specific intrinsics to generic. (WRB)
890531 REVISION DATE from Version 3.2
891214 Prologue converted to Version 4.0 format. (BAB)
900315 CALLs to XERROR changed to CALLs to XERMSG. (THJ)
The documentation for this interface was generated from the following file:
