BSD 4_3_Net_2 release

[unix-history] / usr / src / lib / libm / common_source / atanh.c

diff --git a/usr/src/lib/libm/common_source/atanh.c b/usr/src/lib/libm/common_source/atanh.c
index 3242d1a..df2154a 100644 (file)
--- a/usr/src/lib/libm/common_source/atanh.c
+++ b/usr/src/lib/libm/common_source/atanh.c
@@ -2,21 +2,37 @@
  * Copyright (c) 1985 Regents of the University of California.
  * All rights reserved.
  *
  * Copyright (c) 1985 Regents of the University of California.
  * All rights reserved.
  *

- * Redistribution and use in source and binary forms are permitted
- * provided that this notice is preserved and that due credit is given
- * to the University of California at Berkeley. The name of the University
- * may not be used to endorse or promote products derived from this
- * software without specific prior written permission. This software
- * is provided ``as is'' without express or implied warranty.
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *     This product includes software developed by the University of
+ *     California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.

  *
  *

- * All recipients should regard themselves as participants in an ongoing
- * research project and hence should feel obligated to report their
- * experiences (good or bad) with these elementary function codes, using
- * the sendbug(8) program, to the authors.
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.

  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)atanh.c    5.2 (Berkeley) %G%";
+static char sccsid[] = "@(#)atanh.c    5.6 (Berkeley) 10/9/90";

 #endif /* not lint */
 
 /* ATANH(X)
 #endif /* not lint */
 
 /* ATANH(X)


@@ -45,6 +61,8 @@ static char sccsid[] = "@(#)atanh.c   5.2 (Berkeley) %G%";
  *     observed error was 1.87 ulps (units in the last place) at
  *     x= -3.8962076028810414000e-03.
  */
  *     observed error was 1.87 ulps (units in the last place) at
  *     x= -3.8962076028810414000e-03.
  */

+#include "mathimpl.h"
+

 #if defined(vax)||defined(tahoe)
 #include <errno.h>
 #endif /* defined(vax)||defined(tahoe) */
 #if defined(vax)||defined(tahoe)
 #include <errno.h>
 #endif /* defined(vax)||defined(tahoe) */


@@ -52,12 +70,11 @@ static char sccsid[] = "@(#)atanh.c 5.2 (Berkeley) %G%";
 double atanh(x)
 double x;
 {
 double atanh(x)
 double x;
 {

-       double copysign(),log1p(),z;
+       double z;

        z = copysign(0.5,x);
        x = copysign(x,1.0);
 #if defined(vax)||defined(tahoe)
        if (x == 1.0) {
        z = copysign(0.5,x);
        x = copysign(x,1.0);
 #if defined(vax)||defined(tahoe)
        if (x == 1.0) {

-           extern double infnan();

            return(copysign(1.0,z)*infnan(ERANGE));     /* sign(x)*INF */
        }
 #endif /* defined(vax)||defined(tahoe) */
            return(copysign(1.0,z)*infnan(ERANGE));     /* sign(x)*INF */
        }
 #endif /* defined(vax)||defined(tahoe) */