diff options
| author | jtc <jtc@NetBSD.org> | 1994-02-18 02:24:43 +0000 |
|---|---|---|
| committer | jtc <jtc@NetBSD.org> | 1994-02-18 02:24:43 +0000 |
| commit | bc3f7bf6dbc30de0e8bbeb242dc85c386f7164ff (patch) | |
| tree | 02a4de72936b5ef0c02c7dc7d901c65b72ae8878 /lib/libm/src | |
| parent | 16cd66939d8a359c7bd8fb788eae7bc0df802839 (diff) | |
Add RCS ID's.
Diffstat (limited to 'lib/libm/src')
68 files changed, 273 insertions, 83 deletions
diff --git a/lib/libm/src/e_acos.c b/lib/libm/src/e_acos.c index def7c64d27c..b454a87defb 100644 --- a/lib/libm/src/e_acos.c +++ b/lib/libm/src/e_acos.c @@ -1,4 +1,3 @@ - /* @(#)e_acos.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: e_acos.c,v 1.3 1994/02/18 02:24:43 jtc Exp $"; +#endif + /* __ieee754_acos(x) * Method : * acos(x) = pi/2 - asin(x) diff --git a/lib/libm/src/e_acosh.c b/lib/libm/src/e_acosh.c index b77bba3e8e7..72889becee5 100644 --- a/lib/libm/src/e_acosh.c +++ b/lib/libm/src/e_acosh.c @@ -1,4 +1,3 @@ - /* @(#)e_acosh.c 5.1 93/09/24 */ /* * ==================================================== @@ -9,9 +8,12 @@ * software is freely granted, provided that this notice * is preserved. * ==================================================== - * */ +#ifndef lint +static char rcsid[] = "$Id: e_acosh.c,v 1.3 1994/02/18 02:24:48 jtc Exp $"; +#endif + /* __ieee754_acosh(x) * Method : * Based on diff --git a/lib/libm/src/e_asin.c b/lib/libm/src/e_asin.c index edbc38c781e..d940e00ca62 100644 --- a/lib/libm/src/e_asin.c +++ b/lib/libm/src/e_asin.c @@ -1,4 +1,3 @@ - /* @(#)e_asin.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: e_asin.c,v 1.3 1994/02/18 02:24:50 jtc Exp $"; +#endif + /* __ieee754_asin(x) * Method : * Since asin(x) = x + x^3/6 + x^5*3/40 + x^7*15/336 + ... diff --git a/lib/libm/src/e_atan2.c b/lib/libm/src/e_atan2.c index eb7b961bcbf..14b7aa492e2 100644 --- a/lib/libm/src/e_atan2.c +++ b/lib/libm/src/e_atan2.c @@ -1,4 +1,3 @@ - /* @(#)e_atan2.c 5.1 93/09/24 */ /* * ==================================================== @@ -9,9 +8,12 @@ * software is freely granted, provided that this notice * is preserved. * ==================================================== - * */ +#ifndef lint +static char rcsid[] = "$Id: e_atan2.c,v 1.3 1994/02/18 02:24:53 jtc Exp $"; +#endif + /* __ieee754_atan2(y,x) * Method : * 1. Reduce y to positive by atan2(y,x)=-atan2(-y,x). diff --git a/lib/libm/src/e_atanh.c b/lib/libm/src/e_atanh.c index f6ac6ed3fa0..4f0d5b53eff 100644 --- a/lib/libm/src/e_atanh.c +++ b/lib/libm/src/e_atanh.c @@ -1,4 +1,3 @@ - /* @(#)e_atanh.c 5.1 93/09/24 */ /* * ==================================================== @@ -9,9 +8,12 @@ * software is freely granted, provided that this notice * is preserved. * ==================================================== - * */ +#ifndef lint +static char rcsid[] = "$Id: e_atanh.c,v 1.3 1994/02/18 02:24:56 jtc Exp $"; +#endif + /* __ieee754_atanh(x) * Method : * 1.Reduced x to positive by atanh(-x) = -atanh(x) diff --git a/lib/libm/src/e_cosh.c b/lib/libm/src/e_cosh.c index be5ec8ac875..27d8ab7f319 100644 --- a/lib/libm/src/e_cosh.c +++ b/lib/libm/src/e_cosh.c @@ -1,4 +1,3 @@ - /* @(#)e_cosh.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: e_cosh.c,v 1.3 1994/02/18 02:24:59 jtc Exp $"; +#endif + /* __ieee754_cosh(x) * Method : * mathematically cosh(x) if defined to be (exp(x)+exp(-x))/2 diff --git a/lib/libm/src/e_exp.c b/lib/libm/src/e_exp.c index 33621c1dd9d..d8deff6503a 100644 --- a/lib/libm/src/e_exp.c +++ b/lib/libm/src/e_exp.c @@ -1,4 +1,3 @@ - /* @(#)e_exp.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: e_exp.c,v 1.3 1994/02/18 02:25:02 jtc Exp $"; +#endif + /* __ieee754_exp(x) * Returns the exponential of x. * diff --git a/lib/libm/src/e_fmod.c b/lib/libm/src/e_fmod.c index 8f7fa062f01..4162611bda2 100644 --- a/lib/libm/src/e_fmod.c +++ b/lib/libm/src/e_fmod.c @@ -1,4 +1,3 @@ - /* @(#)e_fmod.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: e_fmod.c,v 1.3 1994/02/18 02:25:06 jtc Exp $"; +#endif + /* * __ieee754_fmod(x,y) * Return x mod y in exact arithmetic diff --git a/lib/libm/src/e_gamma.c b/lib/libm/src/e_gamma.c index a4c46c2e0f9..93913f9aa31 100644 --- a/lib/libm/src/e_gamma.c +++ b/lib/libm/src/e_gamma.c @@ -1,4 +1,3 @@ - /* @(#)e_gamma.c 5.1 93/09/24 */ /* * ==================================================== @@ -9,9 +8,12 @@ * software is freely granted, provided that this notice * is preserved. * ==================================================== - * */ +#ifndef lint +static char rcsid[] = "$Id: e_gamma.c,v 1.3 1994/02/18 02:25:10 jtc Exp $"; +#endif + /* __ieee754_gamma(x) * Return the logarithm of the Gamma function of x. * diff --git a/lib/libm/src/e_gamma_r.c b/lib/libm/src/e_gamma_r.c index e57e9aa8b9c..6dfe1759a4a 100644 --- a/lib/libm/src/e_gamma_r.c +++ b/lib/libm/src/e_gamma_r.c @@ -1,4 +1,3 @@ - /* @(#)e_gamma_r.c 5.1 93/09/24 */ /* * ==================================================== @@ -9,9 +8,12 @@ * software is freely granted, provided that this notice * is preserved. * ==================================================== - * */ +#ifndef lint +static char rcsid[] = "$Id: e_gamma_r.c,v 1.3 1994/02/18 02:25:13 jtc Exp $"; +#endif + /* __ieee754_gamma_r(x, signgamp) * Reentrant version of the logarithm of the Gamma function * with user provide pointer for the sign of Gamma(x). diff --git a/lib/libm/src/e_hypot.c b/lib/libm/src/e_hypot.c index 99263dc45a7..3e0c9cb55c7 100644 --- a/lib/libm/src/e_hypot.c +++ b/lib/libm/src/e_hypot.c @@ -1,4 +1,3 @@ - /* @(#)e_hypot.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: e_hypot.c,v 1.3 1994/02/18 02:25:16 jtc Exp $"; +#endif + /* __ieee754_hypot(x,y) * * Method : diff --git a/lib/libm/src/e_j0.c b/lib/libm/src/e_j0.c index 2d03b368a4d..f4164499fd5 100644 --- a/lib/libm/src/e_j0.c +++ b/lib/libm/src/e_j0.c @@ -1,4 +1,3 @@ - /* @(#)e_j0.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: e_j0.c,v 1.3 1994/02/18 02:25:19 jtc Exp $"; +#endif + /* __ieee754_j0(x), __ieee754_y0(x) * Bessel function of the first and second kinds of order zero. * Method -- j0(x): diff --git a/lib/libm/src/e_j1.c b/lib/libm/src/e_j1.c index bdfaf3994fa..8327bab5ac8 100644 --- a/lib/libm/src/e_j1.c +++ b/lib/libm/src/e_j1.c @@ -1,4 +1,3 @@ - /* @(#)e_j1.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: e_j1.c,v 1.3 1994/02/18 02:25:22 jtc Exp $"; +#endif + /* __ieee754_j1(x), __ieee754_y1(x) * Bessel function of the first and second kinds of order zero. * Method -- j1(x): diff --git a/lib/libm/src/e_jn.c b/lib/libm/src/e_jn.c index 631cd859db5..195a63de87f 100644 --- a/lib/libm/src/e_jn.c +++ b/lib/libm/src/e_jn.c @@ -1,4 +1,3 @@ - /* @(#)e_jn.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: e_jn.c,v 1.3 1994/02/18 02:25:25 jtc Exp $"; +#endif + /* * __ieee754_jn(n, x), __ieee754_yn(n, x) * floating point Bessel's function of the 1st and 2nd kind diff --git a/lib/libm/src/e_lgamma.c b/lib/libm/src/e_lgamma.c index 8eb6bf7bafd..fee5c226d6c 100644 --- a/lib/libm/src/e_lgamma.c +++ b/lib/libm/src/e_lgamma.c @@ -1,4 +1,3 @@ - /* @(#)e_lgamma.c 5.1 93/09/24 */ /* * ==================================================== @@ -9,9 +8,12 @@ * software is freely granted, provided that this notice * is preserved. * ==================================================== - * */ +#ifndef lint +static char rcsid[] = "$Id: e_lgamma.c,v 1.3 1994/02/18 02:25:27 jtc Exp $"; +#endif + /* __ieee754_lgamma(x) * Return the logarithm of the Gamma function of x. * diff --git a/lib/libm/src/e_lgamma_r.c b/lib/libm/src/e_lgamma_r.c index 13b339803d0..78eb3d88f57 100644 --- a/lib/libm/src/e_lgamma_r.c +++ b/lib/libm/src/e_lgamma_r.c @@ -1,4 +1,3 @@ - /* @(#)e_lgamma_r.c 5.1 93/09/24 */ /* * ==================================================== @@ -9,9 +8,12 @@ * software is freely granted, provided that this notice * is preserved. * ==================================================== - * */ +#ifndef lint +static char rcsid[] = "$Id: e_lgamma_r.c,v 1.3 1994/02/18 02:25:30 jtc Exp $"; +#endif + /* __ieee754_lgamma_r(x, signgamp) * Reentrant version of the logarithm of the Gamma function * with user provide pointer for the sign of Gamma(x). diff --git a/lib/libm/src/e_log.c b/lib/libm/src/e_log.c index 2e7081d4237..2c43835cdc8 100644 --- a/lib/libm/src/e_log.c +++ b/lib/libm/src/e_log.c @@ -1,4 +1,3 @@ - /* @(#)e_log.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: e_log.c,v 1.3 1994/02/18 02:25:33 jtc Exp $"; +#endif + /* __ieee754_log(x) * Return the logrithm of x * diff --git a/lib/libm/src/e_log10.c b/lib/libm/src/e_log10.c index 6e2385621bb..1b8f3793945 100644 --- a/lib/libm/src/e_log10.c +++ b/lib/libm/src/e_log10.c @@ -1,4 +1,3 @@ - /* @(#)e_log10.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: e_log10.c,v 1.3 1994/02/18 02:25:36 jtc Exp $"; +#endif + /* __ieee754_log10(x) * Return the base 10 logarithm of x * diff --git a/lib/libm/src/e_pow.c b/lib/libm/src/e_pow.c index 3f47862b712..0ca7590b403 100644 --- a/lib/libm/src/e_pow.c +++ b/lib/libm/src/e_pow.c @@ -1,4 +1,3 @@ - /* @(#)e_pow.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: e_pow.c,v 1.3 1994/02/18 02:25:39 jtc Exp $"; +#endif + /* __ieee754_pow(x,y) return x**y * * n diff --git a/lib/libm/src/e_rem_pio2.c b/lib/libm/src/e_rem_pio2.c index 6a25ccab902..11874fc2029 100644 --- a/lib/libm/src/e_rem_pio2.c +++ b/lib/libm/src/e_rem_pio2.c @@ -1,4 +1,3 @@ - /* @(#)e_rem_pio2.c 5.1 93/09/24 */ /* * ==================================================== @@ -9,9 +8,12 @@ * software is freely granted, provided that this notice * is preserved. * ==================================================== - * */ +#ifndef lint +static char rcsid[] = "$Id: e_rem_pio2.c,v 1.3 1994/02/18 02:25:42 jtc Exp $"; +#endif + /* __ieee754_rem_pio2(x,y) * * return the remainder of x rem pi/2 in y[0]+y[1] diff --git a/lib/libm/src/e_remainder.c b/lib/libm/src/e_remainder.c index cb464bbd643..0620936ae99 100644 --- a/lib/libm/src/e_remainder.c +++ b/lib/libm/src/e_remainder.c @@ -1,4 +1,3 @@ - /* @(#)e_remainder.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: e_remainder.c,v 1.3 1994/02/18 02:25:44 jtc Exp $"; +#endif + /* __ieee754_remainder(x,p) * Return : * returns x REM p = x - [x/p]*p as if in infinite diff --git a/lib/libm/src/e_scalb.c b/lib/libm/src/e_scalb.c index facf3b7862e..01c0f146b75 100644 --- a/lib/libm/src/e_scalb.c +++ b/lib/libm/src/e_scalb.c @@ -1,4 +1,3 @@ - /* @(#)e_scalb.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: e_scalb.c,v 1.3 1994/02/18 02:25:47 jtc Exp $"; +#endif + /* * __ieee754_scalb(x, fn) is provide for * passing various standard test suite. One diff --git a/lib/libm/src/e_sinh.c b/lib/libm/src/e_sinh.c index 9c7c0fff987..9c97e6e1905 100644 --- a/lib/libm/src/e_sinh.c +++ b/lib/libm/src/e_sinh.c @@ -1,4 +1,3 @@ - /* @(#)e_sinh.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: e_sinh.c,v 1.3 1994/02/18 02:25:49 jtc Exp $"; +#endif + /* __ieee754_sinh(x) * Method : * mathematically sinh(x) if defined to be (exp(x)-exp(-x))/2 diff --git a/lib/libm/src/e_sqrt.c b/lib/libm/src/e_sqrt.c index 81900032be7..2e671c096a4 100644 --- a/lib/libm/src/e_sqrt.c +++ b/lib/libm/src/e_sqrt.c @@ -1,4 +1,3 @@ - /* @(#)e_sqrt.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: e_sqrt.c,v 1.3 1994/02/18 02:25:51 jtc Exp $"; +#endif + /* __ieee754_sqrt(x) * Return correctly rounded sqrt. * ------------------------------------------ diff --git a/lib/libm/src/k_cos.c b/lib/libm/src/k_cos.c index 824cc5fefd1..53a787d1ab3 100644 --- a/lib/libm/src/k_cos.c +++ b/lib/libm/src/k_cos.c @@ -1,4 +1,3 @@ - /* @(#)k_cos.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: k_cos.c,v 1.3 1994/02/18 02:25:54 jtc Exp $"; +#endif + /* * __kernel_cos( x, y ) * kernel cos function on [-pi/4, pi/4], pi/4 ~ 0.785398164 diff --git a/lib/libm/src/k_rem_pio2.c b/lib/libm/src/k_rem_pio2.c index 304a5da5907..f2f9dec8a46 100644 --- a/lib/libm/src/k_rem_pio2.c +++ b/lib/libm/src/k_rem_pio2.c @@ -1,4 +1,3 @@ - /* @(#)k_rem_pio2.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: k_rem_pio2.c,v 1.3 1994/02/18 02:25:58 jtc Exp $"; +#endif + /* * __kernel_rem_pio2(x,y,e0,nx,prec,ipio2) * double x[],y[]; int e0,nx,prec; int ipio2[]; diff --git a/lib/libm/src/k_sin.c b/lib/libm/src/k_sin.c index a1d6cca8339..4f7f6733565 100644 --- a/lib/libm/src/k_sin.c +++ b/lib/libm/src/k_sin.c @@ -1,4 +1,3 @@ - /* @(#)k_sin.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: k_sin.c,v 1.3 1994/02/18 02:26:01 jtc Exp $"; +#endif + /* __kernel_sin( x, y, iy) * kernel sin function on [-pi/4, pi/4], pi/4 ~ 0.7854 * Input x is assumed to be bounded by ~pi/4 in magnitude. diff --git a/lib/libm/src/k_standard.c b/lib/libm/src/k_standard.c index 5bc9aa4f3d7..c3a37d1e235 100644 --- a/lib/libm/src/k_standard.c +++ b/lib/libm/src/k_standard.c @@ -1,4 +1,3 @@ - /* @(#)k_standard.c 5.1 93/09/24 */ /* * ==================================================== @@ -9,9 +8,12 @@ * software is freely granted, provided that this notice * is preserved. * ==================================================== - * */ +#ifndef lint +static char rcsid[] = "$Id: k_standard.c,v 1.3 1994/02/18 02:26:04 jtc Exp $"; +#endif + #include <math.h> #include <errno.h> diff --git a/lib/libm/src/k_tan.c b/lib/libm/src/k_tan.c index 4fb825b1cd0..78fcf99e8c4 100644 --- a/lib/libm/src/k_tan.c +++ b/lib/libm/src/k_tan.c @@ -1,4 +1,3 @@ - /* @(#)k_tan.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: k_tan.c,v 1.3 1994/02/18 02:26:09 jtc Exp $"; +#endif + /* __kernel_tan( x, y, k ) * kernel tan function on [-pi/4, pi/4], pi/4 ~ 0.7854 * Input x is assumed to be bounded by ~pi/4 in magnitude. diff --git a/lib/libm/src/s_asinh.c b/lib/libm/src/s_asinh.c index 79793cef06e..c5bc1400d4e 100644 --- a/lib/libm/src/s_asinh.c +++ b/lib/libm/src/s_asinh.c @@ -1,4 +1,3 @@ - /* @(#)s_asinh.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_asinh.c,v 1.3 1994/02/18 02:26:11 jtc Exp $"; +#endif + /* asinh(x) * Method : * Based on diff --git a/lib/libm/src/s_atan.c b/lib/libm/src/s_atan.c index 96250ab4731..39b64307a38 100644 --- a/lib/libm/src/s_atan.c +++ b/lib/libm/src/s_atan.c @@ -1,4 +1,3 @@ - /* @(#)s_atan.c 5.1 93/09/24 */ /* * ==================================================== @@ -9,9 +8,12 @@ * software is freely granted, provided that this notice * is preserved. * ==================================================== - * */ +#ifndef lint +static char rcsid[] = "$Id: s_atan.c,v 1.3 1994/02/18 02:26:13 jtc Exp $"; +#endif + /* atan(x) * Method * 1. Reduce x to positive by atan(x) = -atan(-x). diff --git a/lib/libm/src/s_cbrt.c b/lib/libm/src/s_cbrt.c index 5e09258fb7f..f48374f65b1 100644 --- a/lib/libm/src/s_cbrt.c +++ b/lib/libm/src/s_cbrt.c @@ -1,4 +1,3 @@ - /* @(#)s_cbrt.c 5.1 93/09/24 */ /* * ==================================================== @@ -9,9 +8,12 @@ * software is freely granted, provided that this notice * is preserved. * ==================================================== - * */ +#ifndef lint +static char rcsid[] = "$Id: s_cbrt.c,v 1.3 1994/02/18 02:26:15 jtc Exp $"; +#endif + #include <math.h> /* cbrt(x) diff --git a/lib/libm/src/s_ceil.c b/lib/libm/src/s_ceil.c index 46a0e65cecf..06417d079ee 100644 --- a/lib/libm/src/s_ceil.c +++ b/lib/libm/src/s_ceil.c @@ -1,4 +1,3 @@ - /* @(#)s_ceil.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_ceil.c,v 1.3 1994/02/18 02:26:16 jtc Exp $"; +#endif + /* * ceil(x) * Return x rounded toward -inf to integral value diff --git a/lib/libm/src/s_copysign.c b/lib/libm/src/s_copysign.c index 12d8d36da2a..3ae8004e9fb 100644 --- a/lib/libm/src/s_copysign.c +++ b/lib/libm/src/s_copysign.c @@ -1,4 +1,3 @@ - /* @(#)s_copysign.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_copysign.c,v 1.3 1994/02/18 02:26:19 jtc Exp $"; +#endif + /* * copysign(double x, double y) * copysign(x,y) returns a value with the magnitude of x and diff --git a/lib/libm/src/s_cos.c b/lib/libm/src/s_cos.c index 57c96136251..70edaf79c55 100644 --- a/lib/libm/src/s_cos.c +++ b/lib/libm/src/s_cos.c @@ -1,4 +1,3 @@ - /* @(#)s_cos.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_cos.c,v 1.3 1994/02/18 02:26:21 jtc Exp $"; +#endif + /* cos(x) * Return cosine function of x. * diff --git a/lib/libm/src/s_erf.c b/lib/libm/src/s_erf.c index 8d4341b660a..aaa6abdfa3d 100644 --- a/lib/libm/src/s_erf.c +++ b/lib/libm/src/s_erf.c @@ -1,4 +1,3 @@ - /* @(#)s_erf.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_erf.c,v 1.3 1994/02/18 02:26:23 jtc Exp $"; +#endif + /* double erf(double x) * double erfc(double x) * x diff --git a/lib/libm/src/s_expm1.c b/lib/libm/src/s_expm1.c index bb1b0ccc1e9..e604f592132 100644 --- a/lib/libm/src/s_expm1.c +++ b/lib/libm/src/s_expm1.c @@ -1,4 +1,3 @@ - /* @(#)s_expm1.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_expm1.c,v 1.3 1994/02/18 02:26:25 jtc Exp $"; +#endif + /* expm1(x) * Returns exp(x)-1, the exponential of x minus 1. * diff --git a/lib/libm/src/s_fabs.c b/lib/libm/src/s_fabs.c index 7bc6849d0cc..84e88cc3b82 100644 --- a/lib/libm/src/s_fabs.c +++ b/lib/libm/src/s_fabs.c @@ -1,4 +1,3 @@ - /* @(#)s_fabs.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_fabs.c,v 1.3 1994/02/18 02:26:27 jtc Exp $"; +#endif + /* * fabs(x) returns the absolute value of x. */ diff --git a/lib/libm/src/s_finite.c b/lib/libm/src/s_finite.c index 557e1ad684c..85d5a930d00 100644 --- a/lib/libm/src/s_finite.c +++ b/lib/libm/src/s_finite.c @@ -1,4 +1,3 @@ - /* @(#)s_finite.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_finite.c,v 1.3 1994/02/18 02:26:28 jtc Exp $"; +#endif + /* * finite(x) returns 1 is x is finite, else 0; * no branching! diff --git a/lib/libm/src/s_floor.c b/lib/libm/src/s_floor.c index 8f7886322ce..4e70e99cd28 100644 --- a/lib/libm/src/s_floor.c +++ b/lib/libm/src/s_floor.c @@ -1,4 +1,3 @@ - /* @(#)s_floor.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_floor.c,v 1.3 1994/02/18 02:26:31 jtc Exp $"; +#endif + /* * floor(x) * Return x rounded toward -inf to integral value diff --git a/lib/libm/src/s_frexp.c b/lib/libm/src/s_frexp.c index 70d979345c1..ef0eb7feb97 100644 --- a/lib/libm/src/s_frexp.c +++ b/lib/libm/src/s_frexp.c @@ -1,4 +1,3 @@ - /* @(#)s_frexp.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_frexp.c,v 1.3 1994/02/18 02:26:33 jtc Exp $"; +#endif + /* * for non-zero x * x = frexp(arg,&exp); diff --git a/lib/libm/src/s_ilogb.c b/lib/libm/src/s_ilogb.c index dc68a890649..2136a03a197 100644 --- a/lib/libm/src/s_ilogb.c +++ b/lib/libm/src/s_ilogb.c @@ -1,4 +1,3 @@ - /* @(#)s_ilogb.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_ilogb.c,v 1.3 1994/02/18 02:26:35 jtc Exp $"; +#endif + /* ilogb(double x) * return the binary exponent of non-zero x * ilogb(0) = 0x80000001 diff --git a/lib/libm/src/s_isnan.c b/lib/libm/src/s_isnan.c index e45a15019b2..362d22e4fb2 100644 --- a/lib/libm/src/s_isnan.c +++ b/lib/libm/src/s_isnan.c @@ -1,4 +1,3 @@ - /* @(#)s_isnan.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_isnan.c,v 1.3 1994/02/18 02:26:38 jtc Exp $"; +#endif + /* * isnan(x) returns 1 is x is nan, else 0; * no branching! diff --git a/lib/libm/src/s_ldexp.c b/lib/libm/src/s_ldexp.c index 240918ceba4..13cbce6184c 100644 --- a/lib/libm/src/s_ldexp.c +++ b/lib/libm/src/s_ldexp.c @@ -1,4 +1,3 @@ - /* @(#)s_ldexp.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_ldexp.c,v 1.3 1994/02/18 02:26:40 jtc Exp $"; +#endif + #include <math.h> #include <errno.h> diff --git a/lib/libm/src/s_lib_version.c b/lib/libm/src/s_lib_version.c index b21bba100be..86ca0bc700d 100644 --- a/lib/libm/src/s_lib_version.c +++ b/lib/libm/src/s_lib_version.c @@ -1,4 +1,3 @@ - /* @(#)s_lib_version.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_lib_version.c,v 1.3 1994/02/18 02:26:42 jtc Exp $"; +#endif + /* * MACRO for standards */ diff --git a/lib/libm/src/s_log1p.c b/lib/libm/src/s_log1p.c index 49e81f565bc..27b1a09fbad 100644 --- a/lib/libm/src/s_log1p.c +++ b/lib/libm/src/s_log1p.c @@ -1,4 +1,3 @@ - /* @(#)s_log1p.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_log1p.c,v 1.3 1994/02/18 02:26:44 jtc Exp $"; +#endif + /* double log1p(double x) * * Method : diff --git a/lib/libm/src/s_logb.c b/lib/libm/src/s_logb.c index 85806e0fa97..df0d9c20fe4 100644 --- a/lib/libm/src/s_logb.c +++ b/lib/libm/src/s_logb.c @@ -1,4 +1,3 @@ - /* @(#)s_logb.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_logb.c,v 1.3 1994/02/18 02:26:45 jtc Exp $"; +#endif + /* * double logb(x) * IEEE 754 logb. Included to pass IEEE test suite. Not recommend. diff --git a/lib/libm/src/s_matherr.c b/lib/libm/src/s_matherr.c index 8b55b5fc090..a23d1767e61 100644 --- a/lib/libm/src/s_matherr.c +++ b/lib/libm/src/s_matherr.c @@ -1,4 +1,3 @@ - /* @(#)s_matherr.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_matherr.c,v 1.3 1994/02/18 02:26:47 jtc Exp $"; +#endif + #include <math.h> #ifdef __STDC__ diff --git a/lib/libm/src/s_modf.c b/lib/libm/src/s_modf.c index 759e954f3c5..148422094dc 100644 --- a/lib/libm/src/s_modf.c +++ b/lib/libm/src/s_modf.c @@ -1,4 +1,3 @@ - /* @(#)s_modf.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_modf.c,v 1.3 1994/02/18 02:26:49 jtc Exp $"; +#endif + /* * modf(double x, double *iptr) * return fraction part of x, and return x's integral part in *iptr. diff --git a/lib/libm/src/s_nextafter.c b/lib/libm/src/s_nextafter.c index 36e82e801b9..5eac785e481 100644 --- a/lib/libm/src/s_nextafter.c +++ b/lib/libm/src/s_nextafter.c @@ -1,4 +1,3 @@ - /* @(#)s_nextafter.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_nextafter.c,v 1.3 1994/02/18 02:26:51 jtc Exp $"; +#endif + /* IEEE functions * nextafter(x,y) * return the next machine floating-point number of x in the diff --git a/lib/libm/src/s_rint.c b/lib/libm/src/s_rint.c index f84582f22b3..e9ce8a3be6d 100644 --- a/lib/libm/src/s_rint.c +++ b/lib/libm/src/s_rint.c @@ -1,4 +1,3 @@ - /* @(#)s_rint.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_rint.c,v 1.3 1994/02/18 02:26:53 jtc Exp $"; +#endif + /* * rint(x) * Return x rounded to integral value according to the prevailing diff --git a/lib/libm/src/s_scalbn.c b/lib/libm/src/s_scalbn.c index 8275be9ab83..7c39b011918 100644 --- a/lib/libm/src/s_scalbn.c +++ b/lib/libm/src/s_scalbn.c @@ -1,4 +1,3 @@ - /* @(#)s_scalbn.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_scalbn.c,v 1.3 1994/02/18 02:26:54 jtc Exp $"; +#endif + /* * scalbn (double x, int n) * scalbn(x,n) returns x* 2**n computed by exponent diff --git a/lib/libm/src/s_significand.c b/lib/libm/src/s_significand.c index 1dc3cbcdcb2..f3f894c084b 100644 --- a/lib/libm/src/s_significand.c +++ b/lib/libm/src/s_significand.c @@ -1,4 +1,3 @@ - /* @(#)s_significand.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_significand.c,v 1.3 1994/02/18 02:26:57 jtc Exp $"; +#endif + /* * significand(x) computes just * scalb(x, (double) -ilogb(x)), diff --git a/lib/libm/src/s_sin.c b/lib/libm/src/s_sin.c index de8b6ee4e50..8af44f889c2 100644 --- a/lib/libm/src/s_sin.c +++ b/lib/libm/src/s_sin.c @@ -1,4 +1,3 @@ - /* @(#)s_sin.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_sin.c,v 1.3 1994/02/18 02:26:59 jtc Exp $"; +#endif + /* sin(x) * Return sine function of x. * diff --git a/lib/libm/src/s_tan.c b/lib/libm/src/s_tan.c index 117232c37fb..b840172cc98 100644 --- a/lib/libm/src/s_tan.c +++ b/lib/libm/src/s_tan.c @@ -1,4 +1,3 @@ - /* @(#)s_tan.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_tan.c,v 1.3 1994/02/18 02:27:01 jtc Exp $"; +#endif + /* tan(x) * Return tangent function of x. * diff --git a/lib/libm/src/s_tanh.c b/lib/libm/src/s_tanh.c index cc232210bc9..cd097cf9891 100644 --- a/lib/libm/src/s_tanh.c +++ b/lib/libm/src/s_tanh.c @@ -1,4 +1,3 @@ - /* @(#)s_tanh.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: s_tanh.c,v 1.3 1994/02/18 02:27:03 jtc Exp $"; +#endif + /* Tanh(x) * Return the Hyperbolic Tangent of x * diff --git a/lib/libm/src/w_acos.c b/lib/libm/src/w_acos.c index 02912bf2c87..ea30eb7673f 100644 --- a/lib/libm/src/w_acos.c +++ b/lib/libm/src/w_acos.c @@ -1,4 +1,3 @@ - /* @(#)w_acos.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: w_acos.c,v 1.3 1994/02/18 02:27:07 jtc Exp $"; +#endif + /* * wrap_acos(x) */ diff --git a/lib/libm/src/w_acosh.c b/lib/libm/src/w_acosh.c index 15d522c1c0d..cd6946b68a6 100644 --- a/lib/libm/src/w_acosh.c +++ b/lib/libm/src/w_acosh.c @@ -1,4 +1,3 @@ - /* @(#)w_acosh.c 5.1 93/09/24 */ /* * ==================================================== @@ -9,9 +8,12 @@ * software is freely granted, provided that this notice * is preserved. * ==================================================== - * */ +#ifndef lint +static char rcsid[] = "$Id: w_acosh.c,v 1.3 1994/02/18 02:27:09 jtc Exp $"; +#endif + /* * wrapper acosh(x) */ diff --git a/lib/libm/src/w_asin.c b/lib/libm/src/w_asin.c index a28e0bce926..e7bc727feef 100644 --- a/lib/libm/src/w_asin.c +++ b/lib/libm/src/w_asin.c @@ -1,4 +1,3 @@ - /* @(#)w_asin.c 5.1 93/09/24 */ /* * ==================================================== @@ -9,9 +8,12 @@ * software is freely granted, provided that this notice * is preserved. * ==================================================== - * */ +#ifndef lint +static char rcsid[] = "$Id: w_asin.c,v 1.3 1994/02/18 02:27:11 jtc Exp $"; +#endif + /* * wrapper asin(x) */ diff --git a/lib/libm/src/w_atan2.c b/lib/libm/src/w_atan2.c index 1b3b21305c9..7bb4e3e632f 100644 --- a/lib/libm/src/w_atan2.c +++ b/lib/libm/src/w_atan2.c @@ -1,4 +1,3 @@ - /* @(#)w_atan2.c 5.1 93/09/24 */ /* * ==================================================== @@ -9,9 +8,12 @@ * software is freely granted, provided that this notice * is preserved. * ==================================================== - * */ +#ifndef lint +static char rcsid[] = "$Id: w_atan2.c,v 1.3 1994/02/18 02:27:14 jtc Exp $"; +#endif + /* * wrapper atan2(y,x) */ diff --git a/lib/libm/src/w_atanh.c b/lib/libm/src/w_atanh.c index fea72803075..642f53053c0 100644 --- a/lib/libm/src/w_atanh.c +++ b/lib/libm/src/w_atanh.c @@ -1,4 +1,3 @@ - /* @(#)w_atanh.c 5.1 93/09/24 */ /* * ==================================================== @@ -10,6 +9,11 @@ * is preserved. * ==================================================== */ + +#ifndef lint +static char rcsid[] = "$Id: w_atanh.c,v 1.3 1994/02/18 02:27:16 jtc Exp $"; +#endif + /* * wrapper atanh(x) */ diff --git a/lib/libm/src/w_cosh.c b/lib/libm/src/w_cosh.c index 5a0bedd5328..1e233f7c580 100644 --- a/lib/libm/src/w_cosh.c +++ b/lib/libm/src/w_cosh.c @@ -1,4 +1,3 @@ - /* @(#)w_cosh.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: w_cosh.c,v 1.3 1994/02/18 02:27:18 jtc Exp $"; +#endif + /* * wrapper cosh(x) */ diff --git a/lib/libm/src/w_exp.c b/lib/libm/src/w_exp.c index ef2033bf713..d46837ce001 100644 --- a/lib/libm/src/w_exp.c +++ b/lib/libm/src/w_exp.c @@ -1,4 +1,3 @@ - /* @(#)w_exp.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: w_exp.c,v 1.3 1994/02/18 02:27:21 jtc Exp $"; +#endif + /* * wrapper exp(x) */ diff --git a/lib/libm/src/w_fmod.c b/lib/libm/src/w_fmod.c index fffe3ddd475..696a3bac951 100644 --- a/lib/libm/src/w_fmod.c +++ b/lib/libm/src/w_fmod.c @@ -1,4 +1,3 @@ - /* @(#)w_fmod.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: w_fmod.c,v 1.3 1994/02/18 02:27:24 jtc Exp $"; +#endif + /* * wrapper fmod(x,y) */ diff --git a/lib/libm/src/w_gamma.c b/lib/libm/src/w_gamma.c index f5324b7c3c6..9da3d60a89d 100644 --- a/lib/libm/src/w_gamma.c +++ b/lib/libm/src/w_gamma.c @@ -1,4 +1,3 @@ - /* @(#)w_gamma.c 5.1 93/09/24 */ /* * ==================================================== @@ -9,9 +8,12 @@ * software is freely granted, provided that this notice * is preserved. * ==================================================== - * */ +#ifndef lint +static char rcsid[] = "$Id: w_gamma.c,v 1.3 1994/02/18 02:27:27 jtc Exp $"; +#endif + /* double gamma(double x) * Return the logarithm of the Gamma function of x. * diff --git a/lib/libm/src/w_gamma_r.c b/lib/libm/src/w_gamma_r.c index 08b3dfc4016..c167a461c16 100644 --- a/lib/libm/src/w_gamma_r.c +++ b/lib/libm/src/w_gamma_r.c @@ -1,4 +1,3 @@ - /* @(#)w_gamma_r.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: w_gamma_r.c,v 1.3 1994/02/18 02:27:30 jtc Exp $"; +#endif + /* * wrapper double gamma_r(double x, int *signgamp) */ diff --git a/lib/libm/src/w_hypot.c b/lib/libm/src/w_hypot.c index 6bc10818f45..f7bf1b1ced3 100644 --- a/lib/libm/src/w_hypot.c +++ b/lib/libm/src/w_hypot.c @@ -1,4 +1,3 @@ - /* @(#)w_hypot.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: w_hypot.c,v 1.3 1994/02/18 02:27:33 jtc Exp $"; +#endif + /* * wrapper hypot(x,y) */ diff --git a/lib/libm/src/w_j0.c b/lib/libm/src/w_j0.c index 49624e557da..79fbd504440 100644 --- a/lib/libm/src/w_j0.c +++ b/lib/libm/src/w_j0.c @@ -1,4 +1,3 @@ - /* @(#)w_j0.c 5.1 93/09/24 */ /* * ==================================================== @@ -11,6 +10,10 @@ * ==================================================== */ +#ifndef lint +static char rcsid[] = "$Id: w_j0.c,v 1.3 1994/02/18 02:27:38 jtc Exp $"; +#endif + /* * wrapper j0(double x), y0(double x) */ |
