Return to w_acosh.c CVS log

Up to [cvs.NetBSD.org] / src / lib / libm / src

Annotation of src/lib/libm/src/w_acosh.c, Revision 1.2

1.1       jtc         1:
                      2: /* @(#)w_acosh.c 5.1 93/09/24 */
                      3: /*
                      4:  * ====================================================
                      5:  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
                      6:  *
                      7:  * Developed at SunPro, a Sun Microsystems, Inc. business.
                      8:  * Permission to use, copy, modify, and distribute this
                      9:  * software is freely granted, provided that this notice
                     10:  * is preserved.
                     11:  * ====================================================
                     12:  *
                     13:  */
                     14:
                     15: /*
                     16:  * wrapper acosh(x)
                     17:  */
                     18:
1.2     ! jtc        19: #include <math.h>
1.1       jtc        20:
                     21: #ifdef __STDC__
                     22:        double acosh(double x)          /* wrapper acosh */
                     23: #else
                     24:        double acosh(x)                 /* wrapper acosh */
                     25:        double x;
                     26: #endif
                     27: {
                     28: #ifdef _IEEE_LIBM
                     29:        return __ieee754_acosh(x);
                     30: #else
                     31:        double z;
                     32:        z = __ieee754_acosh(x);
                     33:        if(_LIB_VERSION == _IEEE_ || isnan(x)) return z;
                     34:        if(x<1.0) {
                     35:                return __kernel_standard(x,x,29); /* acosh(x<1) */
                     36:        } else
                     37:            return z;
                     38: #endif
                     39: }