float  h[] ;
int p;
      for (p=0;p<200;p++) 
      h[p]=1.0;           





/* format: y(0)Re,y(N/2)Re,y(1)Re,y(1)Im,y(2)Re,y(2)Im,..y(N/2-1)Re,y(N/2-1)Im */

float x[] ={
  
    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0    ,     0     ,    0    ,     0  ,       0     ,    0     ,    0,



         0    ,     0     ,    0       ,  0      ,   0      ,   0    ,     0        , 0    ,     0    ,     0      ,   0,

  

         0    ,     0      ,   0      ,   0    ,     0       ,  0     ,    0    ,     0  ,       0    ,     0       ,  0,

  

         0   ,      0      ,   0      ,   0    ,     0   , 0.0000  , -0.5852 ,  -0.9471   ,-0.9594 ,  -0.6277  , -0.0785,

  

    0.4927  ,  0.8924  ,  0.9936 ,   0.7725  ,  0.3090  , -0.2456 ,  -0.7203  , -0.9766 ,  -0.9471 ,  -0.6494  , -0.1750,

 

    0.3417   , 0.7624 ,   0.9817  ,  0.9511   , 0.6868   , 0.2608  , -0.2212  , -0.6471 ,  -0.9239 ,  -0.9972   ,-0.8591,

  

   -0.5464  , -0.1284 ,   0.3090   , 0.6823 ,   0.9251 ,   0.9994 ,   0.8994  ,  0.6494 ,   0.2970   ,-0.0972 ,  -0.4707,
  

   -0.7685 ,  -0.9511  , -0.9982  , -0.9101 ,  -0.7049 ,  -0.4144 ,  -0.0785 ,   0.2608 ,   0.5647  ,  0.8016  ,  0.9501,

  

    1.0000  ,  0.9520  ,  0.8163  ,  0.6104  ,  0.3564  ,  0.0785  , -0.1997  , -0.4568  , -0.6753  , -0.8426  , -0.9511,



   -0.9978   ,-0.9846 ,  -0.9165  , -0.8016  , -0.6494 ,  -0.4707 ,  -0.2760 ,  -0.0753  ,  0.1222  ,  0.3090   , 0.4790,

  

    0.6277  ,  0.7522 ,   0.8510  ,  0.9239  ,  0.9716  ,  0.9959 ,   0.9987  ,  0.9829  ,  0.9511  ,  0.9062   , 0.8510,

  

    0.7882 ,   0.7203 ,   0.6494  ,  0.5776  ,  0.5063  ,  0.4371  ,  0.3710  ,  0.3090  ,  0.2517  ,  0.1997  ,  0.1533,

 

    0.1129  ,  0.0785   , 0.0502  ,  0.0283 ,   0.0126  ,  0.0031   ,      0  ,  0.0031  ,  0.0126   , 0.0283   , 0.0502,

  

    0.0785 ,   0.1129 ,   0.1533   , 0.1997   , 0.2517   , 0.3090  ,  0.3710  ,  0.4371  ,  0.5063  ,  0.5776  ,  0.6494,

  

    0.7203   , 0.7882   , 0.8510  ,  0.9062  ,  0.9511   , 0.9829   , 0.9987   , 0.9959,    0.9716  ,  0.9239  ,  0.8510,

  

    0.7522   , 0.6277  ,  0.4790   , 0.3090 ,   0.1222 ,  -0.0753 ,  -0.2760  , -0.4707  , -0.6494 ,  -0.8016  , -0.9165,

  

   -0.9846  , -0.9978  , -0.9511  , -0.8426 , -0.6753 ,  -0.4568 ,  -0.1997   , 0.0785,   0.3564 ,   0.6104  ,  0.8163,

  

    0.9520   , 1.0000 ,   0.9501 ,   0.8016 ,   0.5647 ,   0.2608 ,  -0.0785  , -0.4144  , -0.7049 ,  -0.9101  , -0.9982,

  

   -0.9511 ,  -0.7685  , -0.4707   ,-0.0972  ,  0.2970   , 0.6494  ,  0.8994  ,  0.9994  ,  0.9251  ,  0.6823   , 0.3090,

  

   -0.1284  , -0.5464 ,  -0.8591 ,  -0.9972  , -0.9239  , -0.6471 ,  -0.2212 ,   0.2608 ,   0.6868  ,  0.9511 ,   0.9817,

  

    0.7624 ,   0.3417,   -0.1750 ,  -0.6494 ,  -0.9471 ,  -0.9766 ,  -0.7203  , -0.2456   , 0.3090   , 0.7725,    0.9936,

  

    0.8924 ,   0.4927 ,  -0.0785,   -0.6277  , -0.9594 ,  -0.9471  , -0.5852 ,   0.0000  ,       0    ,    0     ,    0,



         0    ,     0      ,   0    ,     0     ,    0   ,      0      ,   0    ,     0  ,       0    ,     0     ,    0
,
  

         0   ,      0        , 0     ,    0   ,      0     ,    0     ,    0     ,    0   ,      0     ,    0      ,   0
,
  

         0       ,  0     ,    0   ,      0    ,     0      ,   0       ,  0    ,     0    ,     0      ,   0    ,     0
,
 

         0     ,    0       ,  0     ,    0    ,     0     ,    0    ,     0   ,      0  ,       0   ,      0     ,    0,

  

         0   ,      0   ,      0,
};
float xn[]={


  
    0.0067,    0.0434 ,   0.0390 ,  -0.3619,    0.2516 ,  -0.3930 ,  -0.3867  ,  0.4485 ,  -0.3350,
   -0.2603,    0.0513 ,   0.4513 ,   0.1034  , -0.3966 ,  -0.3087 ,   0.2405  , -0.0737  ,  0.0687,
   -0.0657 ,   0.0812 ,  -0.3992 ,   0.1488  , -0.2749  ,  0.1702,    0.0278 ,   0.1638,   -0.2487,
    0.1555 ,  -0.4896 ,  -0.1865 ,  -0.0858 ,   0.1683 ,   0.0171 ,  -0.4209   -0.2807 ,  -0.0231,
   -0.2141,   -0.0494,    0.0031 ,  -0.2195 ,  -0.2265 ,  -0.6196 ,   0.2196 ,   0.0874 ,  -0.3780,
   -0.0546 ,  -0.2011 ,   0.1861,    0.1751 ,   0.5686 ,   1.5764 ,   1.2775  ,  0.9847  ,  1.0277,
    1.1689 ,   0.7015 ,   1.3994 ,   0.7688 ,   1.2268  ,  0.9155 ,   0.9876 ,   1.0153  ,  1.0426,
    1.3117 ,   0.8680 ,   0.9301 ,   0.7637  ,  1.3466  ,  1.0469,    1.2330 ,   0.6965 ,   0.7770,
    1.2462,    0.5955 ,  0.4452 ,   0.7401 ,   0.8171 ,   0.8259 ,   1.2328 ,   0.9192 ,   1.0590,
    0.9288 ,   1.1338 ,   1.0422 ,   1.1672  ,  0.7323 ,   0.9784  ,  1.3225 ,   0.7262 ,   0.7817,
    0.7724  ,  1.0634 ,   1.2390 ,   0.8422  ,  0.8975 ,   0.6931 ,   1.3038 ,   1.0294 ,   0.9085,
    0.8992,    1.4467 ,   1.2599 ,   0.8736  ,  0.9917 ,   0.7786 ,   1.1145 ,   0.7826  ,  0.7983,
    1.2846,    1.2426 ,   0.7972 ,   1.1173  ,  0.9970 ,   0.8460 ,   1.4407,    0.6837 ,   1.1238,
    0.9720 ,   1.4895 ,   0.7547 ,   0.9505 ,   0.6585  ,  1.1510  ,  1.6669 ,   1.1880 ,   0.7778,
    0.8310 ,   1.0232,    0.9856 ,   0.7828 ,   1.1599  ,  1.1336  ,  0.9464 ,   1.0402 ,   0.8771,
    1.5331 ,   0.6234  ,  1.1634 ,   0.8892,    1.1298  ,  1.0940 ,   0.9579 ,   1.2188  ,  0.8135,
    1.4955,   1.2751 ,   0.8072,    1.1494 ,   0.5910,    1.2847 ,   1.0851,    1.0360  ,  1.1447,
   0.9244 ,   1.5331,   0.8882 ,   0.9084 ,   1.3880  ,  0.4762 ,   0.7105  ,  0.6777 ,   1.3553,
    0.4393  ,  1.3167 ,   0.9611 ,   0.6048  ,  0.8872  ,  0.5375 ,   0.8899 ,   0.5684,    1.0443,
    0.6833 ,   1.1797 ,   1.2595 ,   1.3778 ,   0.5121  ,  0.7058  ,  0.7454 ,   1.5282  ,  1.3851,
    1.4405 ,   1.0781,    0.9583 ,   1.0593 ,   0.8827  ,  1.2742  ,  0.6923 ,   0.8502  ,  1.0385,

  
    0.6322 ,  0.7835 ,   1.3448 ,   0.9762  ,  0.9415 ,   1.0066 ,   0.7974 ,   1.2513 ,   0.9774,

 
    0.8486 ,  1.2437,    1.0811 ,   1.0330  ,  1.0439  ,  0.8504   , 0.9394  ,  0.9389 ,   0.8167,


    0.5368  ,  0.7071,    1.2235  ,  0.9196  ,  0.7086 ,  1.3132 ,   1.1666 ,  0.9173  ,  1.0558,


    1.3628  ,  1.0501 ,   0.6447  ,  0.4874  ,  0.8353  ,  0.9580  ,  1.2663 ,   1.0498 ,   0.6654,


    1.1151 ,   1.6082 ,   1.2233  ,  0.7649   , 0.9017 ,   0.9910  ,  1.0717,   0.9969,    0.6726,


    1.3222  ,  0.7674 ,   1.3704  ,  0.9225  ,  1.3202 ,   1.0266 ,   0.8284  ,  1.0603   , 1.1186,


    0.7929 ,   1.0695  ,  0.9573  , 1.2158   , 0.8332   , 0.8341  , 0.5625,    0.1817,    0.1148,


    0.4894,   -0.0937 ,  -0.0581 ,   0.0742   , 0.3335  , -0.5672 ,  -0.3477  , -0.3711 ,   0.1552,

  

   -0.6532 ,   0.3364  ,  0.1133  ,  0.2463 ,  -0.2546  ,  0.4222  ,  0.1992 ,   0.3990  ,  0.2003,


   -0.3185  , -0.0517 ,  -0.4640 ,   0.0863 ,   0.1272 ,  -0.1463  ,  0.2054  ,  0.2162 ,   0.0111,


    0.0163 ,  -0.2914 ,  -0.2444 ,  -0.0694  , -0.2596  ,  0.2234  , -0.0190  ,  0.1549,   -0.1087,

 

    0.3444 ,  -0.3333,   -0.2594 ,   0.0306  , -0.3312  ,  0.2591 ,  -0.0131 ,  -0.0114 ,  -0.1033,

 
   -0.2892  , -0.0368 ,  -0.4060,


};