4.3BSD version dated 09/11/85.

SCCS-vsn: lib/libm/common_source/lgamma.c 1.2
SCCS-vsn: lib/libm/common_source/math.h 1.2
SCCS-vsn: lib/libm/README 1.3
SCCS-vsn: lib/libm/Makefile 1.2
SCCS-vsn: lib/libm/common_source/acosh.c 1.2
SCCS-vsn: lib/libm/common_source/asincos.c 1.2
SCCS-vsn: lib/libm/common_source/asinh.c 1.2
SCCS-vsn: lib/libm/common_source/atan.c 1.2
SCCS-vsn: lib/libm/common_source/atanh.c 1.2
SCCS-vsn: lib/libm/common_source/cosh.c 1.2
SCCS-vsn: lib/libm/common_source/erf.c 1.2
SCCS-vsn: lib/libm/common_source/exp.c 1.2
SCCS-vsn: lib/libm/common_source/exp__E.c 1.2
SCCS-vsn: lib/libm/common_source/expm1.c 1.2
SCCS-vsn: lib/libm/common_source/floor.c 1.2
SCCS-vsn: lib/libm/common_source/j0.c 1.2
SCCS-vsn: lib/libm/common_source/j1.c 1.2
SCCS-vsn: lib/libm/common_source/jn.c 1.2
SCCS-vsn: lib/libm/common_source/log.c 1.2
SCCS-vsn: lib/libm/common_source/log10.c 1.2
SCCS-vsn: lib/libm/common_source/log1p.c 1.2
SCCS-vsn: lib/libm/common_source/log__L.c 1.2
SCCS-vsn: lib/libm/common_source/pow.c 1.2
SCCS-vsn: lib/libm/common_source/sinh.c 1.2
SCCS-vsn: lib/libm/common_source/tanh.c 1.2
SCCS-vsn: lib/libm/README.txt 1.2
SCCS-vsn: lib/libm/common_source/math.h 1.2

diff --git a/usr/src/lib/libm/Makefile b/usr/src/lib/libm/Makefile
index 1a0c5ff..0a93b95 100644 (file)
--- a/usr/src/lib/libm/Makefile
+++ b/usr/src/lib/libm/Makefile
@@ -1,7 +1,7 @@
 #
 #

-#      @(#)Makefile    1.1 (ELEFUNT) %G%
+#      @(#)Makefile    4.9     9/11/85; 1.2 (ucb.elefunt) %G%

 #
 #

-SCCSID = "@(#)Makefile 1.1 (ELEFUNT) %G%"
+SCCSID = "@(#)Makefile 4.9 9/11/85; 1.2 (ucb.elefunt) %G%"

 #
 # This high quality math library is intended to run on either a VAX in
 # D_floating format or a machine that conforms to the IEEE standard 754
 #
 # This high quality math library is intended to run on either a VAX in
 # D_floating format or a machine that conforms to the IEEE standard 754


@@ -35,11 +35,11 @@ DESTDIR=
 # actually there are more under ${MACH}/ subdirectory.
 #
 SRCS = acosh.c asincos.c asinh.c atan.c atanh.c cosh.c erf.c \
 # actually there are more under ${MACH}/ subdirectory.
 #
 SRCS = acosh.c asincos.c asinh.c atan.c atanh.c cosh.c erf.c \

-       exp.c exp__E.c expm1.c floor.c lgama.c j0.c j1.c jn.c \
+       exp.c exp__E.c expm1.c floor.c lgamma.c j0.c j1.c jn.c \

        log.c log10.c log1p.c log__L.c pow.c sinh.c tanh.c
 
 FILES =        acosh.o asincos.o asinh.o atan.o atanh.o cosh.o erf.o \
        log.c log10.c log1p.c log__L.c pow.c sinh.c tanh.c
 
 FILES =        acosh.o asincos.o asinh.o atan.o atanh.o cosh.o erf.o \

-       exp.o exp__E.o expm1.o floor.o lgama.o j0.o j1.o jn.o \
+       exp.o exp__E.o expm1.o floor.o lgamma.o j0.o j1.o jn.o \

        log.o log10.o log1p.o log__L.o pow.o sinh.o tanh.o 
 
 TAGSFILE=tags
        log.o log10.o log1p.o log__L.o pow.o sinh.o tanh.o 
 
 TAGSFILE=tags

diff --git a/usr/src/lib/libm/README b/usr/src/lib/libm/README
index 97feec0..d06727d 100644 (file)
--- a/usr/src/lib/libm/README
+++ b/usr/src/lib/libm/README
@@ -1,4 +1,4 @@
-# @(#)README   1.2 (ELEFUNT) %G%
+# @(#)README   1.3 (ELEFUNT) %G%

 -1.  The machine-independent Version 7 math library found in 4.2BSD
      is now "/usr/lib/libom.a".  To compile with those routines use -lom.
 
 -1.  The machine-independent Version 7 math library found in 4.2BSD
      is now "/usr/lib/libom.a".  To compile with those routines use -lom.
 

diff --git a/usr/src/lib/libm/README.txt b/usr/src/lib/libm/README.txt
index 01ca07f..38a6dc6 100644 (file)
--- a/usr/src/lib/libm/README.txt
+++ b/usr/src/lib/libm/README.txt
@@ -1,4 +1,4 @@
-.\" @(#)README.txt     1.1 (ELEFUNT) %G%
+.\" @(#)README.txt     1.2 (ucb.elefunt) %G%

 .\" troff -ms README.txt
 .de Pi
 .if n \
 .\" troff -ms README.txt
 .de Pi
 .if n \


@@ -16,7 +16,7 @@ is now \*Q/usr/lib/libom.a\*U.  To compile with those routines use \-lom.
 .LP
 .nf
 K.C. Ng, March 7, 1985, with Z-S. Alex Liu, S. McDonald, P. Tang, W. Kahan.
 .LP
 .nf
 K.C. Ng, March 7, 1985, with Z-S. Alex Liu, S. McDonald, P. Tang, W. Kahan.

-Revised on 5/10/85, 5/13/85, 6/14/85, 8/20/85, 8/27/85.
+Revised on 5/10/85, 5/13/85, 6/14/85, 8/20/85, 8/27/85, 9/11/85.

 .fi
 .if n \{\
 .LP
 .fi
 .if n \{\
 .LP


@@ -49,7 +49,7 @@ Total number of files: 40
 .sp 0.5
 .nf
 .ta +\w'IEEE/support.c'u+2n +\w'VAX/Makefile'u+2n +\w'VAX/support.s'u+2n +\w'exp__E.c'u+2n \w'log__L.c'u+2n
 .sp 0.5
 .nf
 .ta +\w'IEEE/support.c'u+2n +\w'VAX/Makefile'u+2n +\w'VAX/support.s'u+2n +\w'exp__E.c'u+2n \w'log__L.c'u+2n

-IEEE/Makefile  VAX/Makefile    VAX/support.s   erf.c   lgama.c
+IEEE/Makefile  VAX/Makefile    VAX/support.s   erf.c   lgamma.c

 IEEE/atan2.c   VAX/argred.s    VAX/tan.s       exp.c   log.c
 IEEE/cabs.c    VAX/atan2.s     acosh.c exp__E.c        log10.c
 IEEE/cbrt.c    VAX/cabs.s      asincos.c       expm1.c log1p.c
 IEEE/atan2.c   VAX/argred.s    VAX/tan.s       exp.c   log.c
 IEEE/cabs.c    VAX/atan2.s     acosh.c exp__E.c        log10.c
 IEEE/cbrt.c    VAX/cabs.s      asincos.c       expm1.c log1p.c

diff --git a/usr/src/lib/libm/common_source/acosh.c b/usr/src/lib/libm/common_source/acosh.c
index e4b008e..a858f28 100644 (file)
--- a/usr/src/lib/libm/common_source/acosh.c
+++ b/usr/src/lib/libm/common_source/acosh.c
@@ -12,7 +12,8 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)acosh.c    1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)acosh.c   1.2 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

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

diff --git a/usr/src/lib/libm/common_source/asincos.c b/usr/src/lib/libm/common_source/asincos.c
index d92356e..8edb00f 100644 (file)
--- a/usr/src/lib/libm/common_source/asincos.c
+++ b/usr/src/lib/libm/common_source/asincos.c
@@ -12,7 +12,8 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)asincos.c  1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)asincos.c 1.1 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

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

diff --git a/usr/src/lib/libm/common_source/asinh.c b/usr/src/lib/libm/common_source/asinh.c
index 75c593e..64f419c 100644 (file)
--- a/usr/src/lib/libm/common_source/asinh.c
+++ b/usr/src/lib/libm/common_source/asinh.c
@@ -12,7 +12,8 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)asinh.c    1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)asinh.c   1.2 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

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

diff --git a/usr/src/lib/libm/common_source/atan.c b/usr/src/lib/libm/common_source/atan.c
index 00fd977..5f01163 100644 (file)
--- a/usr/src/lib/libm/common_source/atan.c
+++ b/usr/src/lib/libm/common_source/atan.c
@@ -12,7 +12,8 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)atan.c     1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)atan.c    1.1 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

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

diff --git a/usr/src/lib/libm/common_source/atanh.c b/usr/src/lib/libm/common_source/atanh.c
index 42b1414..26eff04 100644 (file)
--- a/usr/src/lib/libm/common_source/atanh.c
+++ b/usr/src/lib/libm/common_source/atanh.c
@@ -12,7 +12,8 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)atanh.c    1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)atanh.c   1.2 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

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

diff --git a/usr/src/lib/libm/common_source/cosh.c b/usr/src/lib/libm/common_source/cosh.c
index aaf509e..cbd8665 100644 (file)
--- a/usr/src/lib/libm/common_source/cosh.c
+++ b/usr/src/lib/libm/common_source/cosh.c
@@ -12,7 +12,8 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)cosh.c     1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)cosh.c    1.2 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

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

diff --git a/usr/src/lib/libm/common_source/erf.c b/usr/src/lib/libm/common_source/erf.c
index 7146a15..cc89b47 100644 (file)
--- a/usr/src/lib/libm/common_source/erf.c
+++ b/usr/src/lib/libm/common_source/erf.c
@@ -1,4 +1,4 @@
-/* @(#)erf.c   1.1 (ELEFUNT) %G% */
+/*     @(#)erf.c       4.2 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G% */

 
 /*
        C program for floating point error function
 
 /*
        C program for floating point error function

diff --git a/usr/src/lib/libm/common_source/exp.c b/usr/src/lib/libm/common_source/exp.c
index ea8ae16..b2c1efb 100644 (file)
--- a/usr/src/lib/libm/common_source/exp.c
+++ b/usr/src/lib/libm/common_source/exp.c
@@ -12,7 +12,8 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)exp.c      1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)exp.c     4.3 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

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

diff --git a/usr/src/lib/libm/common_source/exp__E.c b/usr/src/lib/libm/common_source/exp__E.c
index beb58ae..d2f63fa 100644 (file)
--- a/usr/src/lib/libm/common_source/exp__E.c
+++ b/usr/src/lib/libm/common_source/exp__E.c
@@ -12,7 +12,8 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)exp__E.c   1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)exp__E.c  1.2 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

 #endif not lint
 
 /* exp__E(x,c)
 #endif not lint
 
 /* exp__E(x,c)

diff --git a/usr/src/lib/libm/common_source/expm1.c b/usr/src/lib/libm/common_source/expm1.c
index df8586b..83b6191 100644 (file)
--- a/usr/src/lib/libm/common_source/expm1.c
+++ b/usr/src/lib/libm/common_source/expm1.c
@@ -12,7 +12,8 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)expm1.c    1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)expm1.c   1.2 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

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

diff --git a/usr/src/lib/libm/common_source/floor.c b/usr/src/lib/libm/common_source/floor.c
index ffd850a..cadae95 100644 (file)
--- a/usr/src/lib/libm/common_source/floor.c
+++ b/usr/src/lib/libm/common_source/floor.c
@@ -1,4 +1,4 @@
-/* @(#)floor.c 1.1 (ELEFUNT) %G% */
+/*     @(#)floor.c     4.2     9/11/85; 1.2 (ucb.elefunt) %G% */

 
 /*
  * floor and ceil-- greatest integer <= arg
 
 /*
  * floor and ceil-- greatest integer <= arg

diff --git a/usr/src/lib/libm/common_source/j0.c b/usr/src/lib/libm/common_source/j0.c
index a263928..39efc81 100644 (file)
--- a/usr/src/lib/libm/common_source/j0.c
+++ b/usr/src/lib/libm/common_source/j0.c
@@ -1,5 +1,6 @@
 #ifndef lint
 #ifndef lint

-static char sccsid[] = "@(#)j0.c       1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)j0.c      4.2 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

 #endif not lint
 
 /*
 #endif not lint
 
 /*

diff --git a/usr/src/lib/libm/common_source/j1.c b/usr/src/lib/libm/common_source/j1.c
index e6200ce..377d5b4 100644 (file)
--- a/usr/src/lib/libm/common_source/j1.c
+++ b/usr/src/lib/libm/common_source/j1.c
@@ -1,5 +1,6 @@
 #ifndef lint
 #ifndef lint

-static char sccsid[] = "@(#)j1.c       1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)j1.c      4.2 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

 #endif not lint
 
 /*
 #endif not lint
 
 /*

diff --git a/usr/src/lib/libm/common_source/jn.c b/usr/src/lib/libm/common_source/jn.c
index ea862fe..b3f684e 100644 (file)
--- a/usr/src/lib/libm/common_source/jn.c
+++ b/usr/src/lib/libm/common_source/jn.c
@@ -1,5 +1,6 @@
 #ifndef lint
 #ifndef lint

-static char sccsid[] = "@(#)jn.c       1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)jn.c      4.2 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

 #endif not lint
 
 /*
 #endif not lint
 
 /*

diff --git a/usr/src/lib/libm/common_source/lgamma.c b/usr/src/lib/libm/common_source/lgamma.c
index 11bda9b..ee9cf08 100644 (file)
--- a/usr/src/lib/libm/common_source/lgamma.c
+++ b/usr/src/lib/libm/common_source/lgamma.c
@@ -1,11 +1,12 @@
 #ifndef lint
 #ifndef lint

-static char sccsid[] = "@(#)lgamma.c   1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)lgamma.c  4.4 (Berkeley) 9/11/85; 1.2 (ucb.elefunt) %G%";

 #endif not lint
 
 /*
        C program for floating point log Gamma function
 
 #endif not lint
 
 /*
        C program for floating point log Gamma function
 

-       lgama(x) computes the log of the absolute
+       lgamma(x) computes the log of the absolute

        value of the Gamma function.
        The sign of the Gamma function is returned in the
        external quantity signgam.
        value of the Gamma function.
        The sign of the Gamma function is returned in the
        external quantity signgam.


@@ -57,7 +58,7 @@ static double q2[] = {
 };
 
 double
 };
 
 double

-lgama(arg)
+lgamma(arg)

 double arg;
 {
        double log(), pos(), neg(), asym();
 double arg;
 {
        double log(), pos(), neg(), asym();

diff --git a/usr/src/lib/libm/common_source/log.c b/usr/src/lib/libm/common_source/log.c
index d4f687b..a2d9d14 100644 (file)
--- a/usr/src/lib/libm/common_source/log.c
+++ b/usr/src/lib/libm/common_source/log.c
@@ -12,7 +12,8 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)log.c      1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)log.c     4.5 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

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

diff --git a/usr/src/lib/libm/common_source/log10.c b/usr/src/lib/libm/common_source/log10.c
index 0780ce0..9ec2811 100644 (file)
--- a/usr/src/lib/libm/common_source/log10.c
+++ b/usr/src/lib/libm/common_source/log10.c
@@ -12,7 +12,8 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)log10.c    1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)log10.c   1.2 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

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

diff --git a/usr/src/lib/libm/common_source/log1p.c b/usr/src/lib/libm/common_source/log1p.c
index 52edd6d..81b837d 100644 (file)
--- a/usr/src/lib/libm/common_source/log1p.c
+++ b/usr/src/lib/libm/common_source/log1p.c
@@ -12,7 +12,8 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)log1p.c    1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)log1p.c   1.3 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

 #endif not lint
 
 /* LOG1P(x) 
 #endif not lint
 
 /* LOG1P(x) 

diff --git a/usr/src/lib/libm/common_source/log__L.c b/usr/src/lib/libm/common_source/log__L.c
index ca3c0ca..b3da43a 100644 (file)
--- a/usr/src/lib/libm/common_source/log__L.c
+++ b/usr/src/lib/libm/common_source/log__L.c
@@ -12,7 +12,8 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)log__L.c   1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)log__L.c  1.2 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

 #endif not lint
 
 /* log__L(Z)
 #endif not lint
 
 /* log__L(Z)

diff --git a/usr/src/lib/libm/common_source/math.h b/usr/src/lib/libm/common_source/math.h
index e0be4b8..140c89d 100644 (file)
--- a/usr/src/lib/libm/common_source/math.h
+++ b/usr/src/lib/libm/common_source/math.h
@@ -1,10 +1,10 @@
-/* math.h 1.1 (ELEFUNT) %G% */
+/*     math.h  4.6     9/11/85; 1.2 (ucb.elefunt) %G% */

 
 extern double asinh(), acosh(), atanh();
 extern double erf(), erfc();
 extern double exp(), expm1(), log(), log10(), log1p(), pow();
 extern double fabs(), floor(), ceil(), rint();
 
 extern double asinh(), acosh(), atanh();
 extern double erf(), erfc();
 extern double exp(), expm1(), log(), log10(), log1p(), pow();
 extern double fabs(), floor(), ceil(), rint();

-extern double lgama();
+extern double lgamma();

 extern double hypot(), cabs();
 extern double copysign(), drem(), logb(), scalb();
 extern int finite();
 extern double hypot(), cabs();
 extern double copysign(), drem(), logb(), scalb();
 extern int finite();

diff --git a/usr/src/lib/libm/common_source/pow.c b/usr/src/lib/libm/common_source/pow.c
index e325f0e..5691f5a 100644 (file)
--- a/usr/src/lib/libm/common_source/pow.c
+++ b/usr/src/lib/libm/common_source/pow.c
@@ -12,7 +12,8 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)pow.c      1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)pow.c     4.5 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

 #endif not lint
 
 /* POW(X,Y)  
 #endif not lint
 
 /* POW(X,Y)  

diff --git a/usr/src/lib/libm/common_source/sinh.c b/usr/src/lib/libm/common_source/sinh.c
index d2e68b6..3501364 100644 (file)
--- a/usr/src/lib/libm/common_source/sinh.c
+++ b/usr/src/lib/libm/common_source/sinh.c
@@ -12,7 +12,8 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)sinh.c     1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)sinh.c    4.3 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

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

diff --git a/usr/src/lib/libm/common_source/tanh.c b/usr/src/lib/libm/common_source/tanh.c
index cd429d8..fd2c9ee 100644 (file)
--- a/usr/src/lib/libm/common_source/tanh.c
+++ b/usr/src/lib/libm/common_source/tanh.c
@@ -12,7 +12,8 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)tanh.c     1.1 (ELEFUNT) %G%";
+static char sccsid[] =
+"@(#)tanh.c    4.3 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";

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