The R Project SVN R

Rev

Rev 64677 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 64677 Rev 87903
Line 7... Line 7...
7 
 
 7 
 
8 
// used in bessel_i.c and bessel_j.c, hidden if possible.
 8 
// used in bessel_i.c and bessel_j.c, hidden if possible.
9 
 
 9 
 
10 
#include "nmath.h"
 10 
#include "nmath.h"
11 
 
 11 
 
12 
double attribute_hidden Rf_gamma_cody(double x)
 12 
attribute_hidden double Rf_gamma_cody(double x)
13 
{
 13 
{
14 
/* ----------------------------------------------------------------------
 14 
/* ----------------------------------------------------------------------
15 
 
 15 
 
16 
   This routine calculates the GAMMA function for a float argument X.
 16 
   This routine calculates the GAMMA function for a float argument X.
17 
   Computation is based on an algorithm outlined in reference [1].
 17 
   Computation is based on an algorithm outlined in reference [1].