sysdeps/ieee754/dbl-64/mpatan.h

   1 /*
   2  * IBM Accurate Mathematical Library
   3  * Written by International Business Machines Corp.
   4  * Copyright (C) 2001-2013 Free Software Foundation, Inc.
   5  *
   6  * This program is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU Lesser General Public License as published by
   8  * the Free Software Foundation; either version 2.1 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public License
  17  * along with this program; if not, see <http://www.gnu.org/licenses/>.
  18  */
  19
  20 /******************************************************************/
  21 /*                                                                */
  22 /* MODULE_NAME:mpatan.h                                           */
  23 /*                                                                */
  24 /* common data and variables prototype and definition             */
  25 /******************************************************************/
  26
  27 #ifndef MPATAN_H
  28 #define MPATAN_H
  29
  30 extern const number __atan_xm[8] attribute_hidden;
  31 extern const number __atan_twonm1[33] attribute_hidden;
  32 extern const number __atan_twom[8] attribute_hidden;
  33 extern const int __atan_np[33] attribute_hidden;
  34
  35
  36 #ifndef AVOID_MPATAN_H
  37 #ifdef BIG_ENDI
  38   const number
  39             __atan_xm[8] = {                         /* x[m]   */
  40 /**/                  {{0x00000000, 0x00000000} }, /* 0.0    */
  41 /**/                  {{0x3f8930be, 0x00000000} }, /* 0.0123 */
  42 /**/                  {{0x3f991687, 0x00000000} }, /* 0.0245 */
  43 /**/                  {{0x3fa923a2, 0x00000000} }, /* 0.0491 */
  44 /**/                  {{0x3fb930be, 0x00000000} }, /* 0.0984 */
  45 /**/                  {{0x3fc95810, 0x00000000} }, /* 0.198  */
  46 /**/                  {{0x3fda7ef9, 0x00000000} }, /* 0.414  */
  47 /**/                  {{0x3ff00000, 0x00000000} }, /* 1.0    */
  48                     };
  49   const number
  50  __atan_twonm1[33] = {                             /* 2n-1   */
  51 /**/                  {{0x00000000, 0x00000000} }, /* 0      */
  52 /**/                  {{0x00000000, 0x00000000} }, /* 0      */
  53 /**/                  {{0x00000000, 0x00000000} }, /* 0      */
  54 /**/                  {{0x00000000, 0x00000000} }, /* 0      */
  55 /**/                  {{0x40260000, 0x00000000} }, /* 11     */
  56 /**/                  {{0x402e0000, 0x00000000} }, /* 15     */
  57 /**/                  {{0x40330000, 0x00000000} }, /* 19     */
  58 /**/                  {{0x40350000, 0x00000000} }, /* 21     */
  59 /**/                  {{0x40390000, 0x00000000} }, /* 25     */
  60 /**/                  {{0x403d0000, 0x00000000} }, /* 29     */
  61 /**/                  {{0x40408000, 0x00000000} }, /* 33     */
  62 /**/                  {{0x40428000, 0x00000000} }, /* 37     */
  63 /**/                  {{0x40448000, 0x00000000} }, /* 41     */
  64 /**/                  {{0x40468000, 0x00000000} }, /* 45     */
  65 /**/                  {{0x40488000, 0x00000000} }, /* 49     */
  66 /**/                  {{0x404a8000, 0x00000000} }, /* 53     */
  67 /**/                  {{0x404b8000, 0x00000000} }, /* 55     */
  68 /**/                  {{0x404d8000, 0x00000000} }, /* 59     */
  69 /**/                  {{0x404f8000, 0x00000000} }, /* 63     */
  70 /**/                  {{0x4050c000, 0x00000000} }, /* 67     */
  71 /**/                  {{0x4051c000, 0x00000000} }, /* 71     */
  72 /**/                  {{0x4052c000, 0x00000000} }, /* 75     */
  73 /**/                  {{0x4053c000, 0x00000000} }, /* 79     */
  74 /**/                  {{0x4054c000, 0x00000000} }, /* 83     */
  75 /**/                  {{0x40554000, 0x00000000} }, /* 85     */
  76 /**/                  {{0x40564000, 0x00000000} }, /* 89     */
  77 /**/                  {{0x40574000, 0x00000000} }, /* 93     */
  78 /**/                  {{0x40584000, 0x00000000} }, /* 97     */
  79 /**/                  {{0x40594000, 0x00000000} }, /* 101    */
  80 /**/                  {{0x405a4000, 0x00000000} }, /* 105    */
  81 /**/                  {{0x405b4000, 0x00000000} }, /* 109    */
  82 /**/                  {{0x405c4000, 0x00000000} }, /* 113    */
  83 /**/                  {{0x405d4000, 0x00000000} }, /* 117    */
  84                     };
  85
  86 #else
  87 #ifdef LITTLE_ENDI
  88
  89   const number
  90       __atan_xm[8] = {                             /* x[m]   */
  91 /**/                  {{0x00000000, 0x00000000} }, /* 0.0    */
  92 /**/                  {{0x00000000, 0x3f8930be} }, /* 0.0123 */
  93 /**/                  {{0x00000000, 0x3f991687} }, /* 0.0245 */
  94 /**/                  {{0x00000000, 0x3fa923a2} }, /* 0.0491 */
  95 /**/                  {{0x00000000, 0x3fb930be} }, /* 0.0984 */
  96 /**/                  {{0x00000000, 0x3fc95810} }, /* 0.198  */
  97 /**/                  {{0x00000000, 0x3fda7ef9} }, /* 0.414  */
  98 /**/                  {{0x00000000, 0x3ff00000} }, /* 1.0    */
  99                     };
 100   const number
 101 __atan_twonm1[33] = {                             /* 2n-1   */
 102 /**/                  {{0x00000000, 0x00000000} }, /* 0      */
 103 /**/                  {{0x00000000, 0x00000000} }, /* 0      */
 104 /**/                  {{0x00000000, 0x00000000} }, /* 0      */
 105 /**/                  {{0x00000000, 0x00000000} }, /* 0      */
 106 /**/                  {{0x00000000, 0x40260000} }, /* 11     */
 107 /**/                  {{0x00000000, 0x402e0000} }, /* 15     */
 108 /**/                  {{0x00000000, 0x40330000} }, /* 19     */
 109 /**/                  {{0x00000000, 0x40350000} }, /* 21     */
 110 /**/                  {{0x00000000, 0x40390000} }, /* 25     */
 111 /**/                  {{0x00000000, 0x403d0000} }, /* 29     */
 112 /**/                  {{0x00000000, 0x40408000} }, /* 33     */
 113 /**/                  {{0x00000000, 0x40428000} }, /* 37     */
 114 /**/                  {{0x00000000, 0x40448000} }, /* 41     */
 115 /**/                  {{0x00000000, 0x40468000} }, /* 45     */
 116 /**/                  {{0x00000000, 0x40488000} }, /* 49     */
 117 /**/                  {{0x00000000, 0x404a8000} }, /* 53     */
 118 /**/                  {{0x00000000, 0x404b8000} }, /* 55     */
 119 /**/                  {{0x00000000, 0x404d8000} }, /* 59     */
 120 /**/                  {{0x00000000, 0x404f8000} }, /* 63     */
 121 /**/                  {{0x00000000, 0x4050c000} }, /* 67     */
 122 /**/                  {{0x00000000, 0x4051c000} }, /* 71     */
 123 /**/                  {{0x00000000, 0x4052c000} }, /* 75     */
 124 /**/                  {{0x00000000, 0x4053c000} }, /* 79     */
 125 /**/                  {{0x00000000, 0x4054c000} }, /* 83     */
 126 /**/                  {{0x00000000, 0x40554000} }, /* 85     */
 127 /**/                  {{0x00000000, 0x40564000} }, /* 89     */
 128 /**/                  {{0x00000000, 0x40574000} }, /* 93     */
 129 /**/                  {{0x00000000, 0x40584000} }, /* 97     */
 130 /**/                  {{0x00000000, 0x40594000} }, /* 101    */
 131 /**/                  {{0x00000000, 0x405a4000} }, /* 105    */
 132 /**/                  {{0x00000000, 0x405b4000} }, /* 109    */
 133 /**/                  {{0x00000000, 0x405c4000} }, /* 113    */
 134 /**/                  {{0x00000000, 0x405d4000} }, /* 117    */
 135                     };
 136
 137 #endif
 138 #endif
 139
 140   const int
 141     __atan_np[33] = { 0, 0, 0, 0, 6, 8,10,11,13,15,17,19,21,23,25,27,28,
 142                       30,32,34,36,38,40,42,43,45,47,49,51,53,55,57,59};
 143
 144 #endif
 145 #endif
 146
 147 #define  ONE       1.0
 148 #define  TWO       2.0