/*
 *  l3table.cpp
 *
 *  Contains tables for MPEG Audio Layer III decoding
 *
 *  Last modified : 08/02/97
 */

#include "all.h"
#include "l3table.h"

#ifdef __WIN32__
#pragma warning (disable: 4305)
#endif

extern int32 slen[2][16] =
{
 {0, 0, 0, 0, 3, 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4},
 {0, 1, 2, 3, 0, 1, 2, 3, 1, 2, 3, 1, 2, 3, 2, 3}
};

extern int32 pretab[22] =
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 2, 2, 3, 3, 3, 2, 0};


extern struct SBI sfBandIndex[6] =
{
 {{0,6,12,18,24,30,36,44,54,66,80,96,116,140,168,200,238,284,336,396,464,522,576},
  {0,4,8,12,18,24,32,42,56,74,100,132,174,192}},
 {{0,6,12,18,24,30,36,44,54,66,80,96,114,136,162,194,232,278,330,394,464,540,576},
  {0,4,8,12,18,26,36,48,62,80,104,136,180,192}},
 {{0,6,12,18,24,30,36,44,54,66,80,96,116,140,168,200,238,284,336,396,464,522,576},
  {0,4,8,12,18,26,36,48,62,80,104,134,174,192}},

 {{0,4,8,12,16,20,24,30,36,44,52,62,74,90,110,134,162,196,238,288,342,418,576},
  {0,4,8,12,16,22,30,40,52,66,84,106,136,192}},
 {{0,4,8,12,16,20,24,30,36,42,50,60,72,88,106,128,156,190,230,276,330,384,576},
  {0,4,8,12,16,22,28,38,50,64,80,100,126,192}},
 {{0,4,8,12,16,20,24,30,36,44,54,66,82,102,126,156,194,240,296,364,448,550,576},
  {0,4,8,12,16,22,30,42,58,78,104,138,180,192}}
};

extern real two_to_negative_half_pow[64] =
{ 1.0000000000E+00f, 7.0710678119E-01f, 5.0000000000E-01f, 3.5355339059E-01f,
  2.5000000000E-01f, 1.7677669530E-01f, 1.2500000000E-01f, 8.8388347648E-02f,
  6.2500000000E-02f, 4.4194173824E-02f, 3.1250000000E-02f, 2.2097086912E-02f,
  1.5625000000E-02f, 1.1048543456E-02f, 7.8125000000E-03f, 5.5242717280E-03f,
  3.9062500000E-03f, 2.7621358640E-03f, 1.9531250000E-03f, 1.3810679320E-03f,
  9.7656250000E-04f, 6.9053396600E-04f, 4.8828125000E-04f, 3.4526698300E-04f,
  2.4414062500E-04f, 1.7263349150E-04f, 1.2207031250E-04f, 8.6316745750E-05f,
  6.1035156250E-05f, 4.3158372875E-05f, 3.0517578125E-05f, 2.1579186438E-05f,
  1.5258789062E-05f, 1.0789593219E-05f, 7.6293945312E-06f, 5.3947966094E-06f,
  3.8146972656E-06f, 2.6973983047E-06f, 1.9073486328E-06f, 1.3486991523E-06f,
  9.5367431641E-07f, 6.7434957617E-07f, 4.7683715820E-07f, 3.3717478809E-07f,
  2.3841857910E-07f, 1.6858739404E-07f, 1.1920928955E-07f, 8.4293697022E-08f,
  5.9604644775E-08f, 4.2146848511E-08f, 2.9802322388E-08f, 2.1073424255E-08f,
  1.4901161194E-08f, 1.0536712128E-08f, 7.4505805969E-09f, 5.2683560639E-09f,
  3.7252902985E-09f, 2.6341780319E-09f, 1.8626451492E-09f, 1.3170890160E-09f,
  9.3132257462E-10f, 6.5854450798E-10f, 4.6566128731E-10f, 3.2927225399E-10f
};

extern real  t_43[8192] =
{
    0.000000f,    1.000000f,    2.519842f,    4.326749f,    6.349604f,    8.549880f,   10.902724f,   13.390518f,
   16.000000f,   18.720754f,   21.544347f,   24.463781f,   27.473142f,   30.567351f,   33.741992f,   36.993181f,
   40.317474f,   43.711787f,   47.173345f,   50.699631f,   54.288352f,   57.937408f,   61.644865f,   65.408941f,
   69.227979f,   73.100443f,   77.024898f,   81.000000f,   85.024491f,   89.097188f,   93.216975f,   97.382800f,
  101.593667f,  105.848633f,  110.146801f,  114.487321f,  118.869381f,  123.292209f,  127.755065f,  132.257246f,
  136.798076f,  141.376907f,  145.993119f,  150.646117f,  155.335327f,  160.060199f,  164.820202f,  169.614826f,
  174.443577f,  179.305980f,  184.201575f,  189.129918f,  194.090580f,  199.083145f,  204.107210f,  209.162385f,
  214.248292f,  219.364564f,  224.510845f,  229.686789f,  234.892058f,  240.126328f,  245.389280f,  250.680604f,
  256.000000f,  261.347174f,  266.721841f,  272.123723f,  277.552547f,  283.008049f,  288.489971f,  293.998060f,
  299.532071f,  305.091761f,  310.676898f,  316.287249f,  321.922592f,  327.582707f,  333.267377f,  338.976394f,
  344.709550f,  350.466646f,  356.247482f,  362.051866f,  367.879608f,  373.730522f,  379.604427f,  385.501143f,
  391.420496f,  397.362314f,  403.326427f,  409.312672f,  415.320884f,  421.350905f,  427.402579f,  433.475750f,
  439.570269f,  445.685987f,  451.822757f,  457.980436f,  464.158883f,  470.357960f,  476.577530f,  482.817459f,
  489.077615f,  495.357868f,  501.658090f,  507.978156f,  514.317941f,  520.677324f,  527.056184f,  533.454404f,
  539.871867f,  546.308458f,  552.764065f,  559.238575f,  565.731879f,  572.243870f,  578.774440f,  585.323483f,
  591.890898f,  598.476581f,  605.080431f,  611.702349f,  618.342238f,  625.000000f,  631.675540f,  638.368763f,
  645.079578f,  651.807891f,  658.553612f,  665.316653f,  672.096925f,  678.894340f,  685.708813f,  692.540258f,
  699.388593f,  706.253733f,  713.135597f,  720.034104f,  726.949174f,  733.880729f,  740.828689f,  747.792979f,
  754.773522f,  761.770242f,  768.783065f,  775.811917f,  782.856726f,  789.917420f,  796.993927f,  804.086177f,
  811.194101f,  818.317630f,  825.456695f,  832.611230f,  839.781167f,  846.966442f,  854.166988f,  861.382741f,
  868.613637f,  875.859614f,  883.120608f,  890.396558f,  897.687403f,  904.993081f,  912.313534f,  919.648701f,
  926.998523f,  934.362944f,  941.741904f,  949.135347f,  956.543216f,  963.965455f,  971.402010f,  978.852824f,
  986.317844f,  993.797016f, 1001.290286f, 1008.797602f, 1016.318911f, 1023.854161f, 1031.403302f, 1038.966281f,
 1046.543049f, 1054.133555f, 1061.737750f, 1069.355585f, 1076.987011f, 1084.631981f, 1092.290445f, 1099.962357f,
 1107.647670f, 1115.346337f, 1123.058312f, 1130.783550f, 1138.522004f, 1146.273630f, 1154.038383f, 1161.816220f,
 1169.607095f, 1177.410967f, 1185.227790f, 1193.057524f, 1200.900125f, 1208.755551f, 1216.623760f, 1224.504712f,
 1232.398364f, 1240.304677f, 1248.223610f, 1256.155123f, 1264.099175f, 1272.055728f, 1280.024742f, 1288.006179f,
 1296.000000f, 1304.006166f, 1312.024641f, 1320.055385f, 1328.098362f, 1336.153535f, 1344.220866f, 1352.300320f,
 1360.391859f, 1368.495449f, 1376.611053f, 1384.738635f, 1392.878162f, 1401.029597f, 1409.192905f, 1417.368054f,
 1425.555007f, 1433.753732f, 1441.964195f, 1450.186361f, 1458.420199f, 1466.665675f, 1474.922755f, 1483.191409f,
 1491.471603f, 1499.763305f, 1508.066484f, 1516.381107f, 1524.707144f, 1533.044563f, 1541.393333f, 1549.753423f,
 1558.124804f, 1566.507443f, 1574.901312f, 1583.306381f, 1591.722619f, 1600.149996f, 1608.588485f, 1617.038055f,
 1625.498677f, 1633.970323f, 1642.452964f, 1650.946572f, 1659.451118f, 1667.966574f, 1676.492913f, 1685.030106f,
 1693.578126f, 1702.136946f, 1710.706539f, 1719.286878f, 1727.877935f, 1736.479684f, 1745.092099f, 1753.715153f,
 1762.348820f, 1770.993074f, 1779.647889f, 1788.313239f, 1796.989100f, 1805.675444f, 1814.372248f, 1823.079487f,
 1831.797134f, 1840.525165f, 1849.263556f, 1858.012283f, 1866.771320f, 1875.540644f, 1884.320231f, 1893.110056f,
 1901.910095f, 1910.720326f, 1919.540725f, 1928.371268f, 1937.211932f, 1946.062693f, 1954.923530f, 1963.794418f,
 1972.675336f, 1981.566261f, 1990.467169f, 1999.378040f, 2008.298850f, 2017.229578f, 2026.170201f, 2035.120698f,
 2044.081047f, 2053.051227f, 2062.031215f, 2071.020990f, 2080.020532f, 2089.029819f, 2098.048830f, 2107.077544f,
 2116.115940f, 2125.163998f, 2134.221697f, 2143.289017f, 2152.365936f, 2161.452435f, 2170.548495f, 2179.654093f,
 2188.769212f, 2197.893830f, 2207.027929f, 2216.171488f, 2225.324488f, 2234.486909f, 2243.658733f, 2252.839939f,
 2262.030510f, 2271.230425f, 2280.439666f, 2289.658214f, 2298.886050f, 2308.123156f, 2317.369513f, 2326.625102f,
 2335.889905f, 2345.163905f, 2354.447082f, 2363.739418f, 2373.040896f, 2382.351497f, 2391.671205f, 2401.000000f,
 2410.337866f, 2419.684784f, 2429.040737f, 2438.405709f, 2447.779680f, 2457.162635f, 2466.554556f, 2475.955426f,
 2485.365228f, 2494.783945f, 2504.211560f, 2513.648057f, 2523.093418f, 2532.547627f, 2542.010668f, 2551.482524f,
 2560.963179f, 2570.452617f, 2579.950820f, 2589.457774f, 2598.973461f, 2608.497867f, 2618.030975f, 2627.572769f,
 2637.123233f, 2646.682352f, 2656.250110f, 2665.826492f, 2675.411482f, 2685.005064f, 2694.607223f, 2704.217944f,
 2713.837212f, 2723.465012f, 2733.101328f, 2742.746145f, 2752.399449f, 2762.061224f, 2771.731456f, 2781.410129f,
 2791.097231f, 2800.792744f, 2810.496656f, 2820.208951f, 2829.929616f, 2839.658635f, 2849.395994f, 2859.141679f,
 2868.895677f, 2878.657972f, 2888.428550f, 2898.207399f, 2907.994503f, 2917.789849f, 2927.593423f, 2937.405211f,
 2947.225199f, 2957.053374f, 2966.889722f, 2976.734230f, 2986.586884f, 2996.447670f, 3006.316576f, 3016.193588f,
 3026.078692f, 3035.971875f, 3045.873125f, 3055.782428f, 3065.699771f, 3075.625140f, 3085.558524f, 3095.499909f,
 3105.449282f, 3115.406631f, 3125.371943f, 3135.345204f, 3145.326403f, 3155.315526f, 3165.312562f, 3175.317497f,
 3185.330320f, 3195.351017f, 3205.379577f, 3215.415987f, 3225.460235f, 3235.512308f, 3245.572195f, 3255.639884f,
 3265.715361f, 3275.798616f, 3285.889637f, 3295.988410f, 3306.094926f, 3316.209171f, 3326.331133f, 3336.460802f,
 3346.598165f, 3356.743211f, 3366.895929f, 3377.056305f, 3387.224330f, 3397.399991f, 3407.583277f, 3417.774177f,
 3427.972680f, 3438.178773f, 3448.392446f, 3458.613687f, 3468.842486f, 3479.078831f, 3489.322711f, 3499.574115f,
 3509.833032f, 3520.099451f, 3530.373360f, 3540.654750f, 3550.943609f, 3561.239927f, 3571.543692f, 3581.854894f,
 3592.173522f, 3602.499566f, 3612.833015f, 3623.173857f, 3633.522084f, 3643.877683f, 3654.240646f, 3664.610960f,
 3674.988617f, 3685.373604f, 3695.765913f, 3706.165533f, 3716.572453f, 3726.986664f, 3737.408154f, 3747.836915f,