/* Copyright (C) 1988-1994 Sun Microsystems, Inc. 2550 Garcia Avenue */ /* Mountain View, California 94043 All rights reserved. */ /* */ /* Any person is hereby authorized to download, copy, use, create bug fixes, */ /* and distribute, subject to the following conditions: */ /* */ /* 1. the software may not be redistributed for a fee except as */ /* reasonable to cover media costs; */ /* 2. any copy of the software must include this notice, as well as */ /* any other embedded copyright notices; and */ /* 3. any distribution of this software or derivative works thereof */ /* must comply with all applicable U.S. export control laws. */ /* */ /* THE SOFTWARE IS MADE AVAILABLE "AS IS" AND WITHOUT EXPRESS OR IMPLIED */ /* WARRANTY OF ANY KIND, INCLUDING BUT NOT LIMITED TO THE IMPLIED */ /* WARRANTIES OF DESIGN, MERCHANTIBILITY, FITNESS FOR A PARTICULAR */ /* PURPOSE, NON-INFRINGEMENT, PERFORMANCE OR CONFORMANCE TO */ /* SPECIFICATIONS. */ /* */ /* BY DOWNLOADING AND/OR USING THIS SOFTWARE, THE USER WAIVES ALL CLAIMS */ /* AGAINST SUN MICROSYSTEMS, INC. AND ITS AFFILIATED COMPANIES IN ANY */ /* JURISDICTION, INCLUDING BUT NOT LIMITED TO CLAIMS FOR DAMAGES OR */ /* EQUITABLE RELIEF BASED ON LOSS OF DATA, AND SPECIFICALLY WAIVES EVEN */ /* UNKNOWN OR UNANTICIPATED CLAIMS OR LOSSES, PRESENT AND FUTURE. */ /* */ /* IN NO EVENT WILL SUN MICROSYSTEMS, INC. OR ANY OF ITS AFFILIATED */ /* COMPANIES BE LIABLE FOR ANY LOST REVENUE OR PROFITS OR OTHER SPECIAL, */ /* INDIRECT AND CONSEQUENTIAL DAMAGES, EVEN IF IT HAS BEEN ADVISED OF THE */ /* POSSIBILITY OF SUCH DAMAGES. */ /* */ /* This file is provided with no support and without any obligation on the */ /* part of Sun Microsystems, Inc. ("Sun") or any of its affiliated */ /* companies to assist in its use, correction, modification or */ /* enhancement. Nevertheless, and without creating any obligation on its */ /* part, Sun welcomes your comments concerning the software and requests */ /* that they be sent to fdlibm-comments@sunpro.sun.com. */ /* acoss(+-1) is 0,pi */ acoss n eq - 3f800000 0 acoss n eq x bf800000 40490fdb /* acoss(+-(1 - tiny)) :=: sqrt(2*tiny) or pi-sqrt(2*tiny) */ acoss n nb x 3f7ffffe 3a000000 acoss z nb x 3f7ffffe 3a000000 acoss p nb x 3f7ffffe 3a000000 acoss m nb x 3f7ffffe 3a000000 acoss n nb x bf7ffffe 404907db acoss z nb x bf7ffffe 404907db acoss p nb x bf7ffffe 404907db acoss m nb x bf7ffffe 404907db /* acoss(tiny) = pi/2-tiny */ acoss n eq x 38000000 3fc90edb acoss n eq x b8000000 3fc910db acoss n eq x 31000000 3fc90fdb acoss n eq x b1000000 3fc90fdb acoss n eq x 00800000 3fc90fdb acoss n eq x 80800000 3fc90fdb acoss n eq x 0 3fc90fdb /* some random number between -1 and 1 */ acoss n nb x be899426 3febe273 acoss n nb x 3f365470 3f4733ab acoss n nb x 3f616530 3efceba6 acoss n nb x bf2af890 401355ee acoss n nb x be8ab3cf 3fec2d22 acoss n nb x bd20f099 3fce17b4 acoss n nb x 3f140d87 3f7440d8 acoss n nb x 3f5ae71a 3f0b89fb acoss n nb x be2c1a41 3fdead66 acoss n nb x bf754112 403673ec /* exception cases */ acoss n uo v 3f800001 0 acoss z uo v 3f800001 0 acoss p uo v 3f800001 0 acoss m uo v 3f800001 0 acoss n uo v bf800001 0 acoss n uo v 40000000 0 acoss n uo v 40f00001 0 acoss n uo v c0ffffff 0 acoss n uo v 7f800001 0 acoss n uo v ff800001 0 acoss z uo v ff800001 0 acoss p uo v ff800001 0 acoss m uo v ff800001 0 acoss n uo - 7fc00001 0 acoss z uo - 7fc00001 0 acoss p uo - 7fc00001 0 acoss m uo - 7fc00001 0 acoss n uo - ffc00001 0 acoss m eq - 3f800000 00000000 acoss m uo - 7fc00001 00000000 acoss m uo - 7fff0000 7fff0000 acoss m uo - ffff0000 ffff0000 acoss m uo v 3f800001 7fff0000 acoss m uo v 3f800002 7fff0000 acoss m uo v 40000000 7fff0000 acoss m uo v 40800000 7fff0000 acoss m uo v 7e800000 7fff0000 acoss m uo v 7f000000 7fff0000 acoss m uo v 7f7ffffe 7fff0000 acoss m uo v 7f7fffff 7fff0000 acoss m uo v 7f800000 7fff0000 acoss m uo v 7f810000 7fff0000 acoss m uo v bf800001 ffff0000 acoss m uo v bf800002 ffff0000 acoss m uo v c0000000 ffff0000 acoss m uo v c0800000 ffff0000 acoss m uo v fe800000 ffff0000 acoss m uo v ff000000 ffff0000 acoss m uo v ff7ffffe ffff0000 acoss m uo v ff7fffff ffff0000 acoss m uo v ff800000 ffff0000 acoss m uo v ff800001 00000000 acoss m uo v ff810000 ffff0000 acoss n eq x 3f7ffffe 3a000000 acoss n uo - 7fc00001 00000000 acoss n uo - 7fff0000 7fff0000 acoss n uo - ffc00001 00000000 acoss n uo - ffff0000 ffff0000 acoss n uo v 3f800001 7fff0000 acoss n uo v 3f800002 7fff0000 acoss n uo v 40000000 7fff0000 acoss n uo v 40800000 7fff0000 acoss n uo v 40f00001 00000000 acoss n uo v 7e800000 7fff0000 acoss n uo v 7f000000 7fff0000 acoss n uo v 7f7ffffe 7fff0000 acoss n uo v 7f7fffff 7fff0000 acoss n uo v 7f800000 7fff0000 acoss n uo v 7f800001 00000000 acoss n uo v 7f810000 7fff0000 acoss n uo v bf800001 ffff0000 acoss n uo v bf800002 ffff0000 acoss n uo v c0000000 ffff0000 acoss n uo v c0800000 ffff0000 acoss n uo v c0ffffff 00000000 acoss n uo v fe800000 ffff0000 acoss n uo v ff000000 ffff0000 acoss n uo v ff7ffffe ffff0000 acoss n uo v ff7fffff ffff0000 acoss n uo v ff800000 ffff0000 acoss n uo v ff800001 00000000 acoss n uo v ff810000 ffff0000 acoss p eq - 3f800000 00000000 acoss p uo - 7fc00001 00000000 acoss p uo - 7fff0000 7fff0000 acoss p uo - ffff0000 ffff0000 acoss p uo v 3f800001 7fff0000 acoss p uo v 3f800002 7fff0000 acoss p uo v 40000000 7fff0000 acoss p uo v 40800000 7fff0000 acoss p uo v 7e800000 7fff0000 acoss p uo v 7f000000 7fff0000 acoss p uo v 7f7ffffe 7fff0000 acoss p uo v 7f7fffff 7fff0000 acoss p uo v 7f800000 7fff0000 acoss p uo v 7f810000 7fff0000 acoss p uo v bf800001 ffff0000 acoss p uo v bf800002 ffff0000 acoss p uo v c0000000 ffff0000 acoss p uo v c0800000 ffff0000 acoss p uo v fe800000 ffff0000 acoss p uo v ff000000 ffff0000 acoss p uo v ff7ffffe ffff0000 acoss p uo v ff7fffff ffff0000 acoss p uo v ff800000 ffff0000 acoss p uo v ff800001 00000000 acoss p uo v ff810000 ffff0000 acoss p vn x 3f7ffff8 3a800000 acoss z eq - 3f800000 00000000 acoss z uo - 7fc00001 00000000 acoss z uo - 7fff0000 7fff0000 acoss z uo - ffff0000 ffff0000 acoss z uo v 3f800001 7fff0000 acoss z uo v 3f800002 7fff0000 acoss z uo v 40000000 7fff0000 acoss z uo v 40800000 7fff0000 acoss z uo v 7e800000 7fff0000 acoss z uo v 7f000000 7fff0000 acoss z uo v 7f7ffffe 7fff0000 acoss z uo v 7f7fffff 7fff0000 acoss z uo v 7f800000 7fff0000 acoss z uo v 7f810000 7fff0000 acoss z uo v bf800001 ffff0000 acoss z uo v bf800002 ffff0000 acoss z uo v c0000000 ffff0000 acoss z uo v c0800000 ffff0000 acoss z uo v fe800000 ffff0000 acoss z uo v ff000000 ffff0000 acoss z uo v ff7ffffe ffff0000 acoss z uo v ff7fffff ffff0000 acoss z uo v ff800000 ffff0000 acoss z uo v ff800001 00000000 acoss z uo v ff810000 ffff0000 acoss z vn x 3f7ffff8 3a800000