summaryrefslogtreecommitdiff
path: root/lib/libm/src
diff options
context:
space:
mode:
authorjtc <jtc@NetBSD.org>1994-02-18 02:24:43 +0000
committerjtc <jtc@NetBSD.org>1994-02-18 02:24:43 +0000
commitbc3f7bf6dbc30de0e8bbeb242dc85c386f7164ff (patch)
tree02a4de72936b5ef0c02c7dc7d901c65b72ae8878 /lib/libm/src
parent16cd66939d8a359c7bd8fb788eae7bc0df802839 (diff)
Add RCS ID's.
Diffstat (limited to 'lib/libm/src')
-rw-r--r--lib/libm/src/e_acos.c5
-rw-r--r--lib/libm/src/e_acosh.c6
-rw-r--r--lib/libm/src/e_asin.c5
-rw-r--r--lib/libm/src/e_atan2.c6
-rw-r--r--lib/libm/src/e_atanh.c6
-rw-r--r--lib/libm/src/e_cosh.c5
-rw-r--r--lib/libm/src/e_exp.c5
-rw-r--r--lib/libm/src/e_fmod.c5
-rw-r--r--lib/libm/src/e_gamma.c6
-rw-r--r--lib/libm/src/e_gamma_r.c6
-rw-r--r--lib/libm/src/e_hypot.c5
-rw-r--r--lib/libm/src/e_j0.c5
-rw-r--r--lib/libm/src/e_j1.c5
-rw-r--r--lib/libm/src/e_jn.c5
-rw-r--r--lib/libm/src/e_lgamma.c6
-rw-r--r--lib/libm/src/e_lgamma_r.c6
-rw-r--r--lib/libm/src/e_log.c5
-rw-r--r--lib/libm/src/e_log10.c5
-rw-r--r--lib/libm/src/e_pow.c5
-rw-r--r--lib/libm/src/e_rem_pio2.c6
-rw-r--r--lib/libm/src/e_remainder.c5
-rw-r--r--lib/libm/src/e_scalb.c5
-rw-r--r--lib/libm/src/e_sinh.c5
-rw-r--r--lib/libm/src/e_sqrt.c5
-rw-r--r--lib/libm/src/k_cos.c5
-rw-r--r--lib/libm/src/k_rem_pio2.c5
-rw-r--r--lib/libm/src/k_sin.c5
-rw-r--r--lib/libm/src/k_standard.c6
-rw-r--r--lib/libm/src/k_tan.c5
-rw-r--r--lib/libm/src/s_asinh.c5
-rw-r--r--lib/libm/src/s_atan.c6
-rw-r--r--lib/libm/src/s_cbrt.c6
-rw-r--r--lib/libm/src/s_ceil.c5
-rw-r--r--lib/libm/src/s_copysign.c5
-rw-r--r--lib/libm/src/s_cos.c5
-rw-r--r--lib/libm/src/s_erf.c5
-rw-r--r--lib/libm/src/s_expm1.c5
-rw-r--r--lib/libm/src/s_fabs.c5
-rw-r--r--lib/libm/src/s_finite.c5
-rw-r--r--lib/libm/src/s_floor.c5
-rw-r--r--lib/libm/src/s_frexp.c5
-rw-r--r--lib/libm/src/s_ilogb.c5
-rw-r--r--lib/libm/src/s_isnan.c5
-rw-r--r--lib/libm/src/s_ldexp.c5
-rw-r--r--lib/libm/src/s_lib_version.c5
-rw-r--r--lib/libm/src/s_log1p.c5
-rw-r--r--lib/libm/src/s_logb.c5
-rw-r--r--lib/libm/src/s_matherr.c5
-rw-r--r--lib/libm/src/s_modf.c5
-rw-r--r--lib/libm/src/s_nextafter.c5
-rw-r--r--lib/libm/src/s_rint.c5
-rw-r--r--lib/libm/src/s_scalbn.c5
-rw-r--r--lib/libm/src/s_significand.c5
-rw-r--r--lib/libm/src/s_sin.c5
-rw-r--r--lib/libm/src/s_tan.c5
-rw-r--r--lib/libm/src/s_tanh.c5
-rw-r--r--lib/libm/src/w_acos.c5
-rw-r--r--lib/libm/src/w_acosh.c6
-rw-r--r--lib/libm/src/w_asin.c6
-rw-r--r--lib/libm/src/w_atan2.c6
-rw-r--r--lib/libm/src/w_atanh.c6
-rw-r--r--lib/libm/src/w_cosh.c5
-rw-r--r--lib/libm/src/w_exp.c5
-rw-r--r--lib/libm/src/w_fmod.c5
-rw-r--r--lib/libm/src/w_gamma.c6
-rw-r--r--lib/libm/src/w_gamma_r.c5
-rw-r--r--lib/libm/src/w_hypot.c5
-rw-r--r--lib/libm/src/w_j0.c5
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)
*/