version 1.5, 1999/07/02 15:37:40 |
version 1.6, 2002/05/26 22:01:51 |
Line 21 __RCSID("$NetBSD$"); |
|
Line 21 __RCSID("$NetBSD$"); |
|
#include "math.h" |
#include "math.h" |
#include "math_private.h" |
#include "math_private.h" |
|
|
#ifdef __STDC__ |
|
static const float |
static const float |
#else |
|
static float |
|
#endif |
|
two23= 8.3886080000e+06, /* 0x4b000000 */ |
two23= 8.3886080000e+06, /* 0x4b000000 */ |
half= 5.0000000000e-01, /* 0x3f000000 */ |
half= 5.0000000000e-01, /* 0x3f000000 */ |
one = 1.0000000000e+00, /* 0x3f800000 */ |
one = 1.0000000000e+00, /* 0x3f800000 */ |
Line 93 w4 = -5.9518753551e-04, /* 0xba1c065c * |
|
Line 89 w4 = -5.9518753551e-04, /* 0xba1c065c * |
|
w5 = 8.3633989561e-04, /* 0x3a5b3dd2 */ |
w5 = 8.3633989561e-04, /* 0x3a5b3dd2 */ |
w6 = -1.6309292987e-03; /* 0xbad5c4e8 */ |
w6 = -1.6309292987e-03; /* 0xbad5c4e8 */ |
|
|
#ifdef __STDC__ |
|
static const float zero= 0.0000000000e+00; |
static const float zero= 0.0000000000e+00; |
#else |
|
static float zero= 0.0000000000e+00; |
static float |
#endif |
sin_pif(float x) |
|
|
#ifdef __STDC__ |
|
static float sin_pif(float x) |
|
#else |
|
static float sin_pif(x) |
|
float x; |
|
#endif |
|
{ |
{ |
float y,z; |
float y,z; |
int n,ix; |
int n,ix; |
Line 149 static float zero= 0.0000000000e+00; |
|
Line 137 static float zero= 0.0000000000e+00; |
|
} |
} |
|
|
|
|
#ifdef __STDC__ |
float |
float __ieee754_lgammaf_r(float x, int *signgamp) |
__ieee754_lgammaf_r(float x, int *signgamp) |
#else |
|
float __ieee754_lgammaf_r(x,signgamp) |
|
float x; int *signgamp; |
|
#endif |
|
{ |
{ |
float t,y,z,nadj,p,p1,p2,p3,q,r,w; |
float t,y,z,nadj,p,p1,p2,p3,q,r,w; |
int i,hx,ix; |
int i,hx,ix; |