|
| real(kind=wp) function | wp_9lgmc (X) |
| |
| real(kind=ep1) function | ep_9lgmc (X) |
| | Quad precision version of wp_9lgmc. More...
|
| |
◆ ep_9lgmc()
| real(kind=ep1) function special_functions_gbl::cfp_9lgmc::ep_9lgmc |
( |
real(kind=ep1) |
X | ) |
|
Quad precision version of wp_9lgmc.
◆ wp_9lgmc()
| real(kind=wp) function special_functions_gbl::cfp_9lgmc::wp_9lgmc |
( |
real(kind=wp) |
X | ) |
|
***SUBSIDIARY
***PURPOSE Compute the log Gamma correction factor so that
LOG(cfp_gamma(X)) = LOG(SQRT(2*PI)) + (X-5.)*LOG(X) - X
+ wp_9lgmc(X).
***LIBRARY SLATEC (FNLIB)
***CATEGORY C7E
***TYPE REAL(kind=wp) (R9LGMC-S, wp_9lgmc-D, C9LGMC-C)
***KEYWORDS COMPLETE GAMMA FUNCTION, CORRECTION TERM, FNLIB,
LOG GAMMA, LOGARITHM, SPECIAL FUNCTIONS
***AUTHOR Fullerton, W., (LANL)
***DESCRIPTION
Compute the log gamma correction factor for X .GE. 10. so that
LOG (wp_gamma(X)) = LOG(SQRT(2*PI)) + (X-.5)*LOG(X) - X + wp_9lgmc(X)
Series for ALGM on the interval 0. to 1.00000E-02
with weighted error 1.28E-31
log weighted error 30.89
significant figures required 29.81
decimal places required 31.48
***REFERENCES (NONE)
***ROUTINES CALLED F1MACH, cfp_csevl, cfp_initds, 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)
900720 Routine changed from user-callable to subsidiary. (WRB)
The documentation for this interface was generated from the following file:
