The R Project SVN R

Rev

Rev 25952 | Rev 36500 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 25952 Rev 27455
Line 37... Line 37...
37 
#ifdef HAVE_CONFIG_H
 37 
#ifdef HAVE_CONFIG_H
38 
# include <config.h>
 38 
# include <config.h>
39 
#endif
 39 
#endif
40 
#include "nmath.h"
 40 
#include "nmath.h"
41 
 
 41 
 
42 
#ifndef MATHLIB_STANDALONE
 - 
 
43 
/* want to compile log1p as Rlog1p if HAVE_LOG1P && !HAVE_WORKING_LOG1P */
 42 
/* want to compile log1p as Rlog1p if HAVE_LOG1P && !HAVE_WORKING_LOG1P */
44 
#if defined(HAVE_LOG1P) && !defined(HAVE_WORKING_LOG1P)
 43 
#if defined(HAVE_LOG1P) && !defined(HAVE_WORKING_LOG1P)
45 
#undef HAVE_LOG1P
 44 
#undef HAVE_LOG1P
46 
#endif
 45 
#endif
47 
#endif
 - 
 
48 
 
 46 
 
49 
#ifndef HAVE_LOG1P
 47 
#ifndef HAVE_LOG1P
50 
double log1p(double x)
 48 
double log1p(double x)
51 
{
 49 
{
52 
    /* series for log1p on the interval -.375 to .375
 50 
    /* series for log1p on the interval -.375 to .375