-/*
+/*
* 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 are permitted
+ * provided that the above copyright notice and this paragraph are
+ * duplicated in all such forms and that any documentation,
+ * advertising materials, and other materials related to such
+ * distribution and use acknowledge that the software was developed
+ * by the University of California, 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'' AND WITHOUT ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+ * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+ *
+ * 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.
*/
#ifndef lint
-static char sccsid[] = "@(#)tanh.c 4.3 (Berkeley) 8/21/85";
-#endif not lint
+static char sccsid[] = "@(#)tanh.c 5.3 (Berkeley) 6/30/88";
+#endif /* not lint */
/* TANH(X)
* RETURN THE HYPERBOLIC TANGENT OF X
double expm1(), t, copysign(), sign;
int finite();
-#ifndef VAX
+#if !defined(vax)&&!defined(tahoe)
if(x!=x) return(x); /* x is NaN */
-#endif
+#endif /* !defined(vax)&&!defined(tahoe) */
sign=copysign(one,x);
x=copysign(x,one);