ac0b7aef4b85241ddb9b85f81eaa31b4620d503c
[kopensolaris-gnu/glibc.git] / sysdeps / ieee754 / dbl-64 / mpatan.h
1
2 /*
3  * IBM Accurate Mathematical Library
4  * Copyright (c) International Business Machines Corp., 2001
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 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 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, write to the Free Software
18  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
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 #ifdef BIG_ENDI
31   static const number
32             xm[8] = {                             /* x[m]   */
33 /**/                  {{0x00000000, 0x00000000} }, /* 0.0    */
34 /**/                  {{0x3f8930be, 0x00000000} }, /* 0.0123 */
35 /**/                  {{0x3f991687, 0x00000000} }, /* 0.0245 */
36 /**/                  {{0x3fa923a2, 0x00000000} }, /* 0.0491 */
37 /**/                  {{0x3fb930be, 0x00000000} }, /* 0.0984 */
38 /**/                  {{0x3fc95810, 0x00000000} }, /* 0.198  */
39 /**/                  {{0x3fda7ef9, 0x00000000} }, /* 0.414  */
40 /**/                  {{0x3ff00000, 0x00000000} }, /* 1.0    */
41                     };
42   static const number
43        twonm1[33] = {                             /* 2n-1   */
44 /**/                  {{0x00000000, 0x00000000} }, /* 0      */
45 /**/                  {{0x00000000, 0x00000000} }, /* 0      */
46 /**/                  {{0x00000000, 0x00000000} }, /* 0      */
47 /**/                  {{0x00000000, 0x00000000} }, /* 0      */
48 /**/                  {{0x40260000, 0x00000000} }, /* 11     */
49 /**/                  {{0x402e0000, 0x00000000} }, /* 15     */
50 /**/                  {{0x40330000, 0x00000000} }, /* 19     */
51 /**/                  {{0x40350000, 0x00000000} }, /* 21     */
52 /**/                  {{0x40390000, 0x00000000} }, /* 25     */
53 /**/                  {{0x403d0000, 0x00000000} }, /* 29     */
54 /**/                  {{0x40408000, 0x00000000} }, /* 33     */
55 /**/                  {{0x40428000, 0x00000000} }, /* 37     */
56 /**/                  {{0x40448000, 0x00000000} }, /* 41     */
57 /**/                  {{0x40468000, 0x00000000} }, /* 45     */
58 /**/                  {{0x40488000, 0x00000000} }, /* 49     */
59 /**/                  {{0x404a8000, 0x00000000} }, /* 53     */
60 /**/                  {{0x404b8000, 0x00000000} }, /* 55     */
61 /**/                  {{0x404d8000, 0x00000000} }, /* 59     */
62 /**/                  {{0x404f8000, 0x00000000} }, /* 63     */
63 /**/                  {{0x4050c000, 0x00000000} }, /* 67     */
64 /**/                  {{0x4051c000, 0x00000000} }, /* 71     */
65 /**/                  {{0x4052c000, 0x00000000} }, /* 75     */
66 /**/                  {{0x4053c000, 0x00000000} }, /* 79     */
67 /**/                  {{0x4054c000, 0x00000000} }, /* 83     */
68 /**/                  {{0x40554000, 0x00000000} }, /* 85     */
69 /**/                  {{0x40564000, 0x00000000} }, /* 89     */
70 /**/                  {{0x40574000, 0x00000000} }, /* 93     */
71 /**/                  {{0x40584000, 0x00000000} }, /* 97     */
72 /**/                  {{0x40594000, 0x00000000} }, /* 101    */
73 /**/                  {{0x405a4000, 0x00000000} }, /* 105    */
74 /**/                  {{0x405b4000, 0x00000000} }, /* 109    */
75 /**/                  {{0x405c4000, 0x00000000} }, /* 113    */
76 /**/                  {{0x405d4000, 0x00000000} }, /* 117    */
77                     };
78
79   static const number
80           twom[8] = {                             /* 2**m   */
81 /**/                  {{0x3ff00000, 0x00000000} }, /*   1.0  */
82 /**/                  {{0x40000000, 0x00000000} }, /*   2.0  */
83 /**/                  {{0x40100000, 0x00000000} }, /*   4.0  */
84 /**/                  {{0x40200000, 0x00000000} }, /*   8.0  */
85 /**/                  {{0x40300000, 0x00000000} }, /*  16.0  */
86 /**/                  {{0x40400000, 0x00000000} }, /*  32.0  */
87 /**/                  {{0x40500000, 0x00000000} }, /*  64.0  */
88 /**/                  {{0x40600000, 0x00000000} }, /* 128.0  */
89                     };
90
91   static const number
92 /**/ one            = {{0x3ff00000, 0x00000000} }, /* 1      */
93 /**/ two            = {{0x40000000, 0x00000000} }; /* 2      */
94
95 #else
96 #ifdef LITTLE_ENDI
97
98   static const number
99             xm[8] = {                             /* x[m]   */
100 /**/                  {{0x00000000, 0x00000000} }, /* 0.0    */
101 /**/                  {{0x00000000, 0x3f8930be} }, /* 0.0123 */
102 /**/                  {{0x00000000, 0x3f991687} }, /* 0.0245 */
103 /**/                  {{0x00000000, 0x3fa923a2} }, /* 0.0491 */
104 /**/                  {{0x00000000, 0x3fb930be} }, /* 0.0984 */
105 /**/                  {{0x00000000, 0x3fc95810} }, /* 0.198  */
106 /**/                  {{0x00000000, 0x3fda7ef9} }, /* 0.414  */
107 /**/                  {{0x00000000, 0x3ff00000} }, /* 1.0    */
108                     };
109   static const number
110        twonm1[33] = {                             /* 2n-1   */
111 /**/                  {{0x00000000, 0x00000000} }, /* 0      */
112 /**/                  {{0x00000000, 0x00000000} }, /* 0      */
113 /**/                  {{0x00000000, 0x00000000} }, /* 0      */
114 /**/                  {{0x00000000, 0x00000000} }, /* 0      */
115 /**/                  {{0x00000000, 0x40260000} }, /* 11     */
116 /**/                  {{0x00000000, 0x402e0000} }, /* 15     */
117 /**/                  {{0x00000000, 0x40330000} }, /* 19     */
118 /**/                  {{0x00000000, 0x40350000} }, /* 21     */
119 /**/                  {{0x00000000, 0x40390000} }, /* 25     */
120 /**/                  {{0x00000000, 0x403d0000} }, /* 29     */
121 /**/                  {{0x00000000, 0x40408000} }, /* 33     */
122 /**/                  {{0x00000000, 0x40428000} }, /* 37     */
123 /**/                  {{0x00000000, 0x40448000} }, /* 41     */
124 /**/                  {{0x00000000, 0x40468000} }, /* 45     */
125 /**/                  {{0x00000000, 0x40488000} }, /* 49     */
126 /**/                  {{0x00000000, 0x404a8000} }, /* 53     */
127 /**/                  {{0x00000000, 0x404b8000} }, /* 55     */
128 /**/                  {{0x00000000, 0x404d8000} }, /* 59     */
129 /**/                  {{0x00000000, 0x404f8000} }, /* 63     */
130 /**/                  {{0x00000000, 0x4050c000} }, /* 67     */
131 /**/                  {{0x00000000, 0x4051c000} }, /* 71     */
132 /**/                  {{0x00000000, 0x4052c000} }, /* 75     */
133 /**/                  {{0x00000000, 0x4053c000} }, /* 79     */
134 /**/                  {{0x00000000, 0x4054c000} }, /* 83     */
135 /**/                  {{0x00000000, 0x40554000} }, /* 85     */
136 /**/                  {{0x00000000, 0x40564000} }, /* 89     */
137 /**/                  {{0x00000000, 0x40574000} }, /* 93     */
138 /**/                  {{0x00000000, 0x40584000} }, /* 97     */
139 /**/                  {{0x00000000, 0x40594000} }, /* 101    */
140 /**/                  {{0x00000000, 0x405a4000} }, /* 105    */
141 /**/                  {{0x00000000, 0x405b4000} }, /* 109    */
142 /**/                  {{0x00000000, 0x405c4000} }, /* 113    */
143 /**/                  {{0x00000000, 0x405d4000} }, /* 117    */
144                     };
145
146   static const number
147           twom[8] = {                             /* 2**m   */
148 /**/                  {{0x00000000, 0x3ff00000} }, /*   1.0  */
149 /**/                  {{0x00000000, 0x40000000} }, /*   2.0  */
150 /**/                  {{0x00000000, 0x40100000} }, /*   4.0  */
151 /**/                  {{0x00000000, 0x40200000} }, /*   8.0  */
152 /**/                  {{0x00000000, 0x40300000} }, /*  16.0  */
153 /**/                  {{0x00000000, 0x40400000} }, /*  32.0  */
154 /**/                  {{0x00000000, 0x40500000} }, /*  64.0  */
155 /**/                  {{0x00000000, 0x40600000} }, /* 128.0  */
156                     };
157
158   static const number
159 /**/ one            = {{0x00000000, 0x3ff00000} }, /* 1      */
160 /**/ two            = {{0x00000000, 0x40000000} }; /* 2      */
161
162 #endif
163 #endif
164
165 #define  ONE       one.d
166 #define  TWO       two.d
167
168   static const int
169     np[33] = { 0, 0, 0, 0, 6, 8,10,11,13,15,17,19,21,23,25,27,28,
170                30,32,34,36,38,40,42,43,45,47,49,51,53,55,57,59};
171
172 #endif