/*
   ITU-T G.729 Annex C - Reference C code for floating point
                         implementation of G.729
                         Version 1.01 of 15.September.98
*/

/*
----------------------------------------------------------------------
                    COPYRIGHT NOTICE
----------------------------------------------------------------------
   ITU-T G.729 Annex C ANSI C source code
   Copyright (C) 1998, AT&T, France Telecom, NTT, University of
   Sherbrooke.  All rights reserved.

----------------------------------------------------------------------
*/

/*
 File : TAB_LD8K.C
 Used for the floating point version of G.729 main body
 (not for G.729A)
*/

#include "typedef.h"
#include "ld8k.h"


FLOAT hamwindow[L_WINDOW] = {
(F)0.08000000,
(F)0.08005703,
(F)0.08022812,
(F)0.08051321,
(F)0.08091225,
(F)0.08142514,
(F)0.08205172,
(F)0.08279188,
(F)0.08364540,
(F)0.08461212,
(F)0.08569173,
(F)0.08688401,
(F)0.08818865,
(F)0.08960532,
(F)0.09113365,
(F)0.09277334,
(F)0.09452391,
(F)0.09638494,
(F)0.09835598,
(F)0.10043652,
(F)0.10262608,
(F)0.10492408,
(F)0.10732999,
(F)0.10984316,
(F)0.11246302,
(F)0.11518890,
(F)0.11802010,
(F)0.12095598,
(F)0.12399574,
(F)0.12713866,
(F)0.13038395,
(F)0.13373083,
(F)0.13717847,
(F)0.14072597,
(F)0.14437246,
(F)0.14811710,
(F)0.15195890,
(F)0.15589692,
(F)0.15993017,
(F)0.16405767,
(F)0.16827843,
(F)0.17259133,
(F)0.17699537,
(F)0.18148938,
(F)0.18607232,
(F)0.19074300,
(F)0.19550033,
(F)0.20034306,
(F)0.20527001,
(F)0.21027996,
(F)0.21537170,
(F)0.22054392,
(F)0.22579536,
(F)0.23112471,
(F)0.23653066,
(F)0.24201185,
(F)0.24756692,
(F)0.25319457,
(F)0.25889328,
(F)0.26466170,
(F)0.27049842,
(F)0.27640197,
(F)0.28237087,
(F)0.28840363,
(F)0.29449883,
(F)0.30065489,
(F)0.30687031,
(F)0.31314352,
(F)0.31947297,
(F)0.32585713,
(F)0.33229437,
(F)0.33878314,
(F)0.34532180,
(F)0.35190874,
(F)0.35854232,
(F)0.36522087,
(F)0.37194279,
(F)0.37870640,
(F)0.38550997,
(F)0.39235184,
(F)0.39923036,
(F)0.40614375,
(F)0.41309035,
(F)0.42006844,
(F)0.42707625,
(F)0.43411207,
(F)0.44117412,
(F)0.44826069,
(F)0.45537004,
(F)0.46250033,
(F)0.46964988,
(F)0.47681686,
(F)0.48399949,
(F)0.49119604,
(F)0.49840465,
(F)0.50562358,
(F)0.51285106,
(F)0.52008528,
(F)0.52732444,
(F)0.53456670,
(F)0.54181033,
(F)0.54905349,
(F)0.55629444,
(F)0.56353134,
(F)0.57076240,
(F)0.57798582,
(F)0.58519983,
(F)0.59240264,
(F)0.59959245,
(F)0.60676748,
(F)0.61392599,
(F)0.62106609,
(F)0.62818617,
(F)0.63528436,
(F)0.64235890,
(F)0.64940804,
(F)0.65643007,
(F)0.66342324,
(F)0.67038584,
(F)0.67731601,
(F)0.68421221,
(F)0.69107264,
(F)0.69789559,
(F)0.70467937,
(F)0.71142232,
(F)0.71812278,
(F)0.72477907,
(F)0.73138952,
(F)0.73795253,
(F)0.74446648,
(F)0.75092971,
(F)0.75734061,
(F)0.76369762,
(F)0.76999915,
(F)0.77624369,
(F)0.78242958,
(F)0.78855544,
(F)0.79461962,
(F)0.80062068,
(F)0.80655706,
(F)0.81242740,
(F)0.81823015,
(F)0.82396388,
(F)0.82962728,
(F)0.83521879,
(F)0.84073710,
(F)0.84618086,
(F)0.85154873,
(F)0.85683930,
(F)0.86205131,
(F)0.86718345,
(F)0.87223446,
(F)0.87720311,
(F)0.88208807,
(F)0.88688827,
(F)0.89160240,
(F)0.89622939,
(F)0.90076804,
(F)0.90521723,
(F)0.90957582,
(F)0.91384280,
(F)0.91801709,
(F)0.92209762,
(F)0.92608339,
(F)0.92997342,
(F)0.93376678,
(F)0.93746245,
(F)0.94105959,
(F)0.94455731,
(F)0.94795465,
(F)0.95125085,
(F)0.95444512,
(F)0.95753652,
(F)0.96052444,
(F)0.96340811,
(F)0.96618676,
(F)0.96885973,
(F)0.97142631,
(F)0.97388595,
(F)0.97623801,
(F)0.97848189,
(F)0.98061699,
(F)0.98264289,
(F)0.98455900,
(F)0.98636484,
(F)0.98806006,
(F)0.98964417,
(F)0.99111670,
(F)0.99247742,
(F)0.99372596,
(F)0.99486196,
(F)0.99588519,
(F)0.99679530,
(F)0.99759221,
(F)0.99827564,
(F)0.99884540,
(F)0.99930143,
(F)0.99964350,
(F)0.99987161,
(F)0.99998569,
(F)1.00000000,
(F)0.99921930,
(F)0.99687845,
(F)0.99298108,
(F)0.98753333,
(F)0.98054361,
(F)0.97202289,
(F)0.96198452,
(F)0.95044410,
(F)0.93741965,
(F)0.92293155,
(F)0.90700239,
(F)0.88965708,
(F)0.87092263,
(F)0.85082841,
(F)0.82940567,
(F)0.80668795,
(F)0.78271067,
(F)0.75751126,
(F)0.73112911,
(F)0.70360541,
(F)0.67498308,
(F)0.64530689,
(F)0.61462307,
(F)0.58297962,
(F)0.55042595,
(F)0.51701277,
(F)0.48279238,
(F)0.44781810,
(F)0.41214463,
(F)0.37582767,
(F)0.33892387,
(F)0.30149087,
(F)0.26358715,
(F)0.22527184,
(F)0.18660481,
(F)0.14764643,
(F)0.10845750,
(F)0.06909923,
(F)0.02963307
};

FLOAT grid[GRID_POINTS+1] = {
(F) 0.9997559,
(F) 0.9986295,
(F) 0.9945219,
(F) 0.9876884,
(F) 0.9781476,
(F) 0.9659258,
(F) 0.9510565,
(F) 0.9335804,
(F) 0.9135454,
(F) 0.8910065,
(F) 0.8660254,
(F) 0.8386706,
(F) 0.8090170,
(F) 0.7771460,
(F) 0.7431448,
(F) 0.7071068,
(F) 0.6691306,
(F) 0.6293204,
(F) 0.5877852,
(F) 0.5446391,
(F) 0.5000000,
(F) 0.4539905,
(F) 0.4067366,
(F) 0.3583679,
(F) 0.3090170,
(F) 0.2588190,
(F) 0.2079117,
(F) 0.1564345,
(F) 0.1045285,
(F) 0.0523360,
(F) 0.0000000,
(F)-0.0523360,
(F)-0.1045285,
(F)-0.1564345,
(F)-0.2079117,
(F)-0.2588190,
(F)-0.3090170,
(F)-0.3583679,
(F)-0.4067366,
(F)-0.4539905,
(F)-0.5000000,
(F)-0.5446391,
(F)-0.5877852,
(F)-0.6293204,
(F)-0.6691306,
(F)-0.7071068,
(F)-0.7431448,
(F)-0.7771460,
(F)-0.8090170,
(F)-0.8386706,
(F)-0.8660254,
(F)-0.8910065,
(F)-0.9135454,
(F)-0.9335804,
(F)-0.9510565,
(F)-0.9659258,
(F)-0.9781476,
(F)-0.9876884,
(F)-0.9945219,
(F)-0.9986295,
(F)-0.9997559
};

FLOAT lspcb1[NC0][M] = {
{(F)0.1814,
(F)0.2647,
(F)0.4580,
(F)1.1077,
(F)1.4813,
(F)1.7022,
(F)2.1953,
(F)2.3405,
(F)2.5867,
(F)2.6636},

{(F)0.2113,
(F)0.3223,
(F)0.4212,
(F)0.5946,
(F)0.7479,
(F)0.9615,
(F)1.9097,
(F)2.1750,
(F)2.4773,
(F)2.6737},

{(F)0.1915,
(F)0.2755,
(F)0.3770,
(F)0.5950,
(F)1.3505,
(F)1.6349,
(F)2.2348,
(F)2.3552,
(F)2.5768,
(F)2.6540},

{(F)0.2116,
(F)0.3067,
(F)0.4099,
(F)0.5748,
(F)0.8518,
(F)1.2569,
(F)2.0782,
(F)2.1920,
(F)2.3371,
(F)2.4842},

{(F)0.2129,
(F)0.2974,
(F)0.4039,
(F)1.0659,
(F)1.2735,
(F)1.4658,
(F)1.9061,
(F)2.0312,
(F)2.6074,
(F)2.6750},

{(F)0.2181,
(F)0.2893,
(F)0.4117,
(F)0.5519,
(F)0.8295,
(F)1.5825,
(F)2.1575,
(F)2.3179,
(F)2.5458,
(F)2.6417},

{(F)0.1991,
(F)0.2971,
(F)0.4104,
(F)0.7725,
(F)1.3073,
(F)1.4665,
(F)1.6208,
(F)1.6973,
(F)2.3732,
(F)2.5743},

{(F)0.1818,
(F)0.2886,
(F)0.4018,
(F)0.7630,
(F)1.1264,
(F)1.2699,
(F)1.6899,
(F)1.8650,
(F)2.1633,
(F)2.6186},

{(F)0.2282,
(F)0.3093,
(F)0.4243,
(F)0.5329,
(F)1.1173,
(F)1.7717,
(F)1.9420,
(F)2.0780,
(F)2.5160,
(F)2.6137},

{(F)0.2528,
(F)0.3693,
(F)0.5290,
(F)0.7146,
(F)0.9528,
(F)1.1269,
(F)1.2936,
(F)1.9589,
(F)2.4548,
(F)2.6653},

{(F)0.2332,
(F)0.3263,
(F)0.4174,
(F)0.5202,
(F)1.3633,
(F)1.8447,
(F)2.0236,
(F)2.1474,
(F)2.3572,
(F)2.4738},

{(F)0.1393,
(F)0.2216,
(F)0.3204,
(F)0.5644,
(F)0.7929,
(F)1.1705,
(F)1.7051,
(F)2.0054,
(F)2.3623,
(F)2.5985},

{(F)0.2677,
(F)0.3871,
(F)0.5746,
(F)0.7091,
(F)1.3311,
(F)1.5260,
(F)1.7288,
(F)1.9122,
(F)2.5787,
(F)2.6598},

{(F)0.1570,
(F)0.2328,
(F)0.3111,
(F)0.4216,
(F)1.1688,
(F)1.4605,
(F)1.9505,
(F)2.1173,
(F)2.4038,
(F)2.7460},

{(F)0.2346,
(F)0.3321,
(F)0.5621,
(F)0.8160,
(F)1.4042,
(F)1.5860,
(F)1.7518,
(F)1.8631,
(F)2.0749,
(F)2.5380},

{(F)0.2505,
(F)0.3368,
(F)0.4758,
(F)0.6405,
(F)0.8104,
(F)1.2533,
(F)1.9329,
(F)2.0526,
(F)2.2155,
(F)2.6459},

{(F)0.2196,
(F)0.3049,
(F)0.6857,
(F)1.3976,
(F)1.6100,
(F)1.7958,
(F)2.0813,
(F)2.2211,
(F)2.4789,
(F)2.5857},

{(F)0.1232,
(F)0.2011,
(F)0.3527,
(F)0.6969,
(F)1.1647,
(F)1.5081,
(F)1.8593,
(F)2.2576,
(F)2.5594,
(F)2.6896},

{(F)0.3682,
(F)0.4632,
(F)0.6600,
(F)0.9118,
(F)1.5245,
(F)1.7071,
(F)1.8712,
(F)1.9939,
(F)2.4356,
(F)2.5380},

{(F)0.2690,
(F)0.3711,
(F)0.4635,
(F)0.6644,
(F)1.4633,
(F)1.6495,
(F)1.8227,
(F)1.9983,
(F)2.1797,
(F)2.2954},

{(F)0.3555,
(F)0.5240,
(F)0.9751,
(F)1.1685,
(F)1.4114,
(F)1.6168,
(F)1.7769,
(F)2.0178,
(F)2.4420,
(F)2.5724},

{(F)0.3493,
(F)0.4404,
(F)0.7231,
(F)0.8587,
(F)1.1272,
(F)1.4715,
(F)1.6760,
(F)2.2042,
(F)2.4735,
(F)2.5604},

{(F)0.3747,
(F)0.5263,
(F)0.7284,
(F)0.8994,
(F)1.4017,
(F)1.5502,
(F)1.7468,
(F)1.9816,
(F)2.2380,
(F)2.3404},

{(F)0.2972,
(F)0.4470,
(F)0.5941,
(F)0.7078,
(F)1.2675,
(F)1.4310,
(F)1.5930,
(F)1.9126,
(F)2.3026,
(F)2.4208},

{(F)0.2467,
(F)0.3180,
(F)0.4712,
(F)1.1281,
(F)1.6206,
(F)1.7876,
(F)1.9544,
(F)2.0873,
(F)2.3521,
(F)2.4721},

{(F)0.2292,
(F)0.3430,
(F)0.4383,
(F)0.5747,
(F)1.3497,
(F)1.5187,
(F)1.9070,
(F)2.0958,
(F)2.2902,
(F)2.4301},

{(F)0.2573,
(F)0.3508,
(F)0.4484,
(F)0.7079,
(F)1.6577,
(F)1.7929,
(F)1.9456,
(F)2.0847,
(F)2.3060,
(F)2.4208},

{(F)0.1968,
(F)0.2789,
(F)0.3594,
(F)0.4361,
(F)1.0034,
(F)1.7040,
(F)1.9439,
(F)2.1044,
(F)2.2696,
(F)2.4558},

{(F)0.2955,
(F)0.3853,
(F)0.7986,
(F)1.2470,
(F)1.4723,
(F)1.6522,
(F)1.8684,
(F)2.0084,
(F)2.2849,
(F)2.4268},

{(F)0.2036,
(F)0.3189,
(F)0.4314,
(F)0.6393,
(F)1.2834,
(F)1.4278,
(F)1.5796,
(F)2.0506,
(F)2.2044,
(F)2.3656},

{(F)0.2916,
(F)0.3684,
(F)0.5907,
(F)1.1394,
(F)1.3933,
(F)1.5540,
(F)1.8341,
(F)1.9835,
(F)2.1301,
(F)2.2800},

{(F)0.2289,
(F)0.3402,
(F)0.5166,
(F)0.7716,
(F)1.0614,
(F)1.2389,
(F)1.4386,
(F)2.0769,
(F)2.2715,
(F)2.4366},

{(F)0.0829,
(F)0.1723,
(F)0.5682,
(F)0.9773,
(F)1.3973,
(F)1.6174,
(F)1.9242,
(F)2.2128,
(F)2.4855,
(F)2.6327},

{(F)0.2244,
(F)0.3169,
(F)0.4368,
(F)0.5625,
(F)0.6897,
(F)1.3763,
(F)1.7524,
(F)1.9393,
(F)2.5121,
(F)2.6556},

{(F)0.1591,
(F)0.2387,
(F)0.2924,
(F)0.4056,
(F)1.4677,
(F)1.6802,
(F)1.9389,
(F)2.2067,
(F)2.4635,
(F)2.5919},

{(F)0.1756,
(F)0.2566,
(F)0.3251,
(F)0.4227,
(F)1.0167,
(F)1.2649,
(F)1.6801,
(F)2.1055,
(F)2.4088,
(F)2.7276},

{(F)0.1050,
(F)0.2325,
(F)0.7445,
(F)0.9491,
(F)1.1982,
(F)1.4658,
(F)1.8093,
(F)2.0397,
(F)2.4155,
(F)2.5797},

{(F)0.2043,
(F)0.3324,
(F)0.4522,
(F)0.7477,
(F)0.9361,
(F)1.1533,
(F)1.6703,
(F)1.7631,
(F)2.5071,
(F)2.6528},

{(F)0.1522,
(F)0.2258,
(F)0.3543,
(F)0.5504,
(F)0.8815,
(F)1.5516,
(F)1.8110,
(F)1.9915,
(F)2.3603,
(F)2.7735},

{(F)0.1862,
(F)0.2759,
(F)0.4715,
(F)0.6908,
(F)0.8963,
(F)1.4341,
(F)1.6322,
(F)1.7630,
(F)2.2027,
(F)2.6043},

{(F)0.1460,
(F)0.2254,
(F)0.3790,
(F)0.8622,
(F)1.3394,
(F)1.5754,
(F)1.8084,
(F)2.0798,
(F)2.4319,
(F)2.7632},

{(F)0.2621,
(F)0.3792,
(F)0.5463,
(F)0.7948,
(F)1.0043,
(F)1.1921,
(F)1.3409,
(F)1.4845,
(F)2.3159,
(F)2.6002},

{(F)0.1935,
(F)0.2937,
(F)0.3656,
(F)0.4927,
(F)1.4015,
(F)1.6086,
(F)1.7724,
(F)1.8837,
(F)2.4374,
(F)2.5971},

{(F)0.2171,
(F)0.3282,
(F)0.4412,
(F)0.5713,
(F)1.1554,
(F)1.3506,
(F)1.5227,
(F)1.9923,
(F)2.4100,
(F)2.5391},

{(F)0.2274,
(F)0.3157,
(F)0.4263,
(F)0.8202,
(F)1.4293,
(F)1.5884,
(F)1.7535,
(F)1.9688,
(F)2.3939,
(F)2.4934},

{(F)0.1704,
(F)0.2633,
(F)0.3259,
(F)0.4134,
(F)1.2948,
(F)1.4802,
(F)1.6619,
(F)2.0393,
(F)2.3165,
(F)2.6083},

{(F)0.1763,
(F)0.2585,
(F)0.4012,
(F)0.7609,
(F)1.1503,
(F)1.5847,
(F)1.8309,
(F)1.9352,
(F)2.0982,
(F)2.6681},

{(F)0.2447,
(F)0.3535,
(F)0.4618,
(F)0.5979,
(F)0.7530,