/*
* IBM Accurate Mathematical Library
* written by International Business Machines Corp.
- * Copyright (C) 2001, 2011 Free Software Foundation
+ * Copyright (C) 2001-2012 Free Software Foundation
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License as published by
__sub(&mps,&mpt1,&mpt,p);
/* Compute Atan(x) */
- mptwoim1.d[1] = __atan_twom[m].d;
+ mptwoim1.d[1] = 1 << m;
__mul(&mptwoim1,&mpt,y,p);
return;
/*
* IBM Accurate Mathematical Library
* Written by International Business Machines Corp.
- * Copyright (C) 2001, 2011 Free Software Foundation, Inc.
+ * Copyright (C) 2001-2012 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License as published by
/**/ {{0x405d4000, 0x00000000} }, /* 117 */
};
- const number
- __atan_twom[8] = { /* 2**m */
-/**/ {{0x3ff00000, 0x00000000} }, /* 1.0 */
-/**/ {{0x40000000, 0x00000000} }, /* 2.0 */
-/**/ {{0x40100000, 0x00000000} }, /* 4.0 */
-/**/ {{0x40200000, 0x00000000} }, /* 8.0 */
-/**/ {{0x40300000, 0x00000000} }, /* 16.0 */
-/**/ {{0x40400000, 0x00000000} }, /* 32.0 */
-/**/ {{0x40500000, 0x00000000} }, /* 64.0 */
-/**/ {{0x40600000, 0x00000000} }, /* 128.0 */
- };
-
#else
#ifdef LITTLE_ENDI
/**/ {{0x00000000, 0x405d4000} }, /* 117 */
};
- const number
- __atan_twom[8] = { /* 2**m */
-/**/ {{0x00000000, 0x3ff00000} }, /* 1.0 */
-/**/ {{0x00000000, 0x40000000} }, /* 2.0 */
-/**/ {{0x00000000, 0x40100000} }, /* 4.0 */
-/**/ {{0x00000000, 0x40200000} }, /* 8.0 */
-/**/ {{0x00000000, 0x40300000} }, /* 16.0 */
-/**/ {{0x00000000, 0x40400000} }, /* 32.0 */
-/**/ {{0x00000000, 0x40500000} }, /* 64.0 */
-/**/ {{0x00000000, 0x40600000} }, /* 128.0 */
- };
-
#endif
#endif