Blame sysdeps/ieee754/dbl-64/sincos32.h

Packit 6c4009
/*
Packit 6c4009
 * IBM Accurate Mathematical Library
Packit 6c4009
 * Written by International Business Machines Corp.
Packit 6c4009
 * Copyright (C) 2001-2018 Free Software Foundation, Inc.
Packit 6c4009
 *
Packit 6c4009
 * This program is free software; you can redistribute it and/or modify
Packit 6c4009
 * it under the terms of the GNU Lesser General Public License as published by
Packit 6c4009
 * the Free Software Foundation; either version 2.1 of the License, or
Packit 6c4009
 * (at your option) any later version.
Packit 6c4009
 *
Packit 6c4009
 * This program is distributed in the hope that it will be useful,
Packit 6c4009
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
Packit 6c4009
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Packit 6c4009
 * GNU Lesser General Public License for more details.
Packit 6c4009
 *
Packit 6c4009
 * You should have received a copy of the GNU Lesser General Public License
Packit 6c4009
 * along with this program; if not, see <http://www.gnu.org/licenses/>.
Packit 6c4009
 */
Packit 6c4009
Packit 6c4009
/******************************************************************/
Packit 6c4009
/*                                                                */
Packit 6c4009
/* MODULE_NAME:sincos32.h                                         */
Packit 6c4009
/*                                                                */
Packit 6c4009
/* common data and variables prototype and definition             */
Packit 6c4009
/******************************************************************/
Packit 6c4009
Packit 6c4009
#ifndef SINCOS32_H
Packit 6c4009
#define SINCOS32_H
Packit 6c4009
Packit 6c4009
#ifdef BIG_ENDI
Packit 6c4009
static const number
Packit 6c4009
/**/          hpinv = {{0x3FE45F30, 0x6DC9C883}}, /*  0.63661977236758138    */
Packit 6c4009
/**/          toint = {{0x43380000, 0x00000000}}; /*  6755399441055744       */
Packit 6c4009
Packit 6c4009
#else
Packit 6c4009
#ifdef LITTLE_ENDI
Packit 6c4009
static const number
Packit 6c4009
/**/          hpinv = {{0x6DC9C883, 0x3FE45F30}}, /*  0.63661977236758138    */
Packit 6c4009
/**/          toint = {{0x00000000, 0x43380000}}; /*  6755399441055744       */
Packit 6c4009
Packit 6c4009
#endif
Packit 6c4009
#endif
Packit 6c4009
Packit 6c4009
static const mp_no
Packit 6c4009
  oofac27 = {-3,{1.0,7.0,4631664.0,12006312.0,13118056.0,6538613.0,646354.0,
Packit 6c4009
   8508025.0,9131256.0,7548776.0,2529842.0,8864927.0,660489.0,15595125.0,12777885.0,
Packit 6c4009
   11618489.0,13348664.0,5486686.0,514518.0,11275535.0,4727621.0,3575562.0,
Packit 6c4009
   13579710.0,5829745.0,7531862.0,9507898.0,6915060.0,4079264.0,1907586.0,
Packit 6c4009
   6078398.0,13789314.0,5504104.0,14136.0}},
Packit 6c4009
  pi = {1,{1.0,3.0,
Packit 6c4009
    2375530.0,8947107.0,578323.0,1673774.0,225395.0,4498441.0,3678761.0,
Packit 6c4009
    10432976.0,536314.0,10021966.0,7113029.0,2630118.0,3723283.0,7847508.0,
Packit 6c4009
    6737716.0,15273068.0,12626985.0,12044668.0,5299519.0,8705461.0,11880201.0,
Packit 6c4009
    1544726.0,14014857.0,7994139.0,13709579.0,10918111.0,11906095.0,16610011.0,
Packit 6c4009
    13638367.0,12040417.0,11529578.0,2522774.0}},
Packit 6c4009
   hp = {1,{1.0, 1.0,
Packit 6c4009
    9576373.0,4473553.0,8677769.0,9225495.0,112697.0,10637828.0,
Packit 6c4009
    10227988.0,13605096.0,268157.0,5010983.0,3556514.0,9703667.0,
Packit 6c4009
    1861641.0,12312362.0,3368858.0,7636534.0,6313492.0,14410942.0,
Packit 6c4009
    2649759.0,12741338.0,14328708.0,9160971.0,7007428.0,12385677.0,
Packit 6c4009
    15243397.0,13847663.0,14341655.0,16693613.0,15207791.0,14408816.0,
Packit 6c4009
    14153397.0,1261387.0,6110792.0,2291862.0,4181138.0,5295267.0}};
Packit 6c4009
Packit 6c4009
static const double toverp[75] = {
Packit 6c4009
  10680707.0,  7228996.0,  1387004.0,  2578385.0, 16069853.0,
Packit 6c4009
  12639074.0,  9804092.0,  4427841.0, 16666979.0, 11263675.0,
Packit 6c4009
  12935607.0,  2387514.0,  4345298.0, 14681673.0,  3074569.0,
Packit 6c4009
  13734428.0, 16653803.0,  1880361.0, 10960616.0,  8533493.0,
Packit 6c4009
   3062596.0,  8710556.0,  7349940.0,  6258241.0,  3772886.0,
Packit 6c4009
   3769171.0,  3798172.0,  8675211.0, 12450088.0,  3874808.0,
Packit 6c4009
   9961438.0,   366607.0, 15675153.0,  9132554.0,  7151469.0,
Packit 6c4009
   3571407.0,  2607881.0, 12013382.0,  4155038.0,  6285869.0,
Packit 6c4009
   7677882.0, 13102053.0, 15825725.0,   473591.0,  9065106.0,
Packit 6c4009
  15363067.0,  6271263.0,  9264392.0,  5636912.0,  4652155.0,
Packit 6c4009
   7056368.0, 13614112.0, 10155062.0,  1944035.0,  9527646.0,
Packit 6c4009
  15080200.0,  6658437.0,  6231200.0,  6832269.0, 16767104.0,
Packit 6c4009
   5075751.0,  3212806.0,  1398474.0,  7579849.0,  6349435.0,
Packit 6c4009
  12618859.0,  4703257.0, 12806093.0, 14477321.0,  2786137.0,
Packit 6c4009
  12875403.0,  9837734.0, 14528324.0, 13719321.0,   343717.0 };
Packit 6c4009
Packit 6c4009
#endif