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 7ee374e..df2154a 100644 (file)
--- a/usr/src/lib/libm/common_source/atanh.c
+++ b/usr/src/lib/libm/common_source/atanh.c
@@ -1,20 +1,39 @@
-/* 
+/*

  * Copyright (c) 1985 Regents of the University of California.
  * Copyright (c) 1985 Regents of the University of California.

- * 
- * Use and reproduction of this software are granted  in  accordance  with
- * the terms and conditions specified in  the  Berkeley  Software  License
- * Agreement (in particular, this entails acknowledgement of the programs'
- * source, and inclusion of this notice) with the additional understanding
- * that  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 "sendbug 4bsd-bugs@BERKELEY", to the authors.
+ * All rights reserved.
+ *
+ * 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.
+ *
+ * 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   1.2 (Berkeley) 8/21/85; 5.1 (ucb.elefunt) %G%";
-#endif /* not lint */
+static char sccsid[] = "@(#)atanh.c    5.6 (Berkeley) 10/9/90";
+#endif /* not lint */

 
 /* ATANH(X)
  * RETURN THE HYPERBOLIC ARC TANGENT OF X
 
 /* ATANH(X)
  * RETURN THE HYPERBOLIC ARC TANGENT OF X


@@ -42,6 +61,8 @@ static char sccsid[] =
  *     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) */


@@ -49,12 +70,11 @@ static char sccsid[] =
 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) */