// number of filter coefficients
//
#define N 501

// filter coefficients
//
double c[] =
{
   2.0367700e-04,
   5.8165782e-18,
  -2.0528651e-04,
   9.9175999e-18,
   2.0684806e-04,
  -5.8629131e-18,
  -2.0833783e-04,
   6.9676136e-18,
   2.0971635e-04,
  -6.0505515e-18,
  -2.1092830e-04,
   1.6460893e-17,
   2.1190253e-04,
   5.2280139e-19,
  -2.1255228e-04,
   7.2809648e-18,
   2.1277551e-04,
  -5.8537889e-18,
  -2.1245553e-04,
   3.4999773e-18,
   2.1146174e-04,
   8.2768394e-18,
  -2.0965059e-04,
   1.4542087e-17,
   2.0686667e-04,
   1.6224010e-18,
  -2.0294410e-04,
   4.1682603e-18,
   1.9770796e-04,
  -5.8059629e-18,
  -1.9097594e-04,
  -1.5633761e-18,
   1.8256018e-04,
   1.0653915e-17,
  -1.7226917e-04,
   1.1726881e-17,
   1.5990987e-04,
   2.5696083e-18,
  -1.4528990e-04,
   2.6174145e-19,
   1.2821981e-04,
  -6.5426007e-18,
  -1.0851550e-04,
   1.6691042e-17,
   8.6000686e-05,
   1.2029807e-17,
  -6.0509358e-05,
   7.6692607e-18,
   3.1888377e-05,
   1.7473172e-18,
  -2.6154131e-18,
  -3.8989355e-18,
  -3.5275559e-05,
   2.2845929e-17,
   7.4037614e-05,
   1.6976889e-17,
  -1.1636252e-04,
   1.3350575e-17,
   1.6230130e-04,
   3.0899611e-18,
  -2.1187727e-04,
  -4.2069740e-18,
   2.6508390e-04,
  -1.5086150e-17,
  -3.2188268e-04,
   2.4840567e-17,
   3.8220126e-04,
   1.9753944e-17,
  -4.4593162e-04,
   1.2347262e-17,
   5.1292857e-04,
  -4.9025433e-19,
  -5.8300834e-04,
  -1.9077870e-17,
   6.5594749e-04,
   2.9460007e-17,
  -7.3148196e-04,
   1.9419990e-17,
   8.0930647e-04,
   2.6909468e-18,
  -8.8907409e-04,
   2.9436827e-17,
   9.7039616e-04,
  -1.5040253e-18,
  -1.0528425e-03,
   6.9820343e-17,
   1.1359417e-03,
   1.9554790e-17,
  -1.2191823e-03,
   2.1602566e-17,
   1.3020133e-03,
   2.2723773e-19,
  -1.3838460e-03,
   4.3351113e-17,
   1.4640554e-03,
   2.1596308e-17,
  -1.5419823e-03,
   1.5402893e-18,
   1.6169355e-03,
   2.3498803e-17,
  -1.6881946e-03,
   4.9790251e-17,
   1.7550123e-03,
  -2.5427430e-17,
  -1.8166183e-03,
   2.6550446e-17,
   1.8722219e-03,
   1.6573265e-19,
  -1.9210162e-03,
   5.5960549e-17,
   1.9621816e-03,
   1.2950037e-18,
  -1.9948901e-03,
   2.6440955e-17,
   2.0183093e-03,
   3.3149024e-17,
  -2.0316072e-03,
   2.8157141e-17,
   2.0339563e-03,
  -3.0676243e-17,
  -2.0245387e-03,
   3.1712809e-17,
   2.0025506e-03,
  -2.6578836e-17,
  -1.9672074e-03,
   6.6612876e-17,
   1.9177482e-03,
   8.9682160e-18,
  -1.8534413e-03,
   1.8800438e-17,
   1.7735886e-03,
   4.6095395e-17,
  -1.6775307e-03,
   2.6178231e-17,
   1.5646515e-03,
  -3.1355724e-17,
  -1.4343831e-03,
   3.9087254e-17,
   1.2862100e-03,
   3.2285879e-18,
  -1.1196739e-03,
   7.5068564e-17,
   9.3437761e-04,
   3.6811048e-17,
  -7.2998892e-04,
  -1.1349682e-17,
   5.0624455e-04,
   5.6561909e-17,
  -2.6295346e-04,
   1.9363470e-17,
   1.9157973e-17,
  -2.6535638e-17,
   2.8265328e-04,
   4.6643541e-17,
  -5.8496315e-04,
   1.3840362e-17,
   9.0680361e-04,
   8.5230793e-17,
  -1.2479642e-03,
   4.8785429e-17,
   1.6081485e-03,
  -3.7594919e-17,
  -1.9869737e-03,
   7.7867304e-17,
   2.3839695e-03,
   1.0237045e-17,
  -2.7985785e-03,
  -2.3086654e-17,
   3.2301565e-03,
   2.7449902e-17,
  -3.6779733e-03,
  -4.8036801e-18,
   4.1412141e-03,
   6.5983865e-18,
  -4.6189812e-03,
   4.0408186e-17,
   5.1102963e-03,
   5.5085995e-17,
  -5.6141028e-03,
   2.9106128e-17,
   6.1292695e-03,
   3.2687752e-18,
  -6.6545935e-03,
   8.8074731e-17,
   7.1888047e-03,
   8.1548489e-18,
  -7.7305695e-03,
  -2.4328565e-17,
   8.2784959e-03,
   1.1334233e-18,
  -8.8311386e-03,
   9.9884662e-17,
   9.3870042e-03,
   7.0954578e-17,
  -9.9445567e-03,
  -4.0139487e-17,
   1.0502224e-02,
   9.7741884e-20,
  -1.1058404e-02,
   3.0585405e-17,
   1.1611471e-02,
   9.9240313e-20,
  -1.2159781e-02,
   2.7386628e-17,
   1.2701681e-02,
   2.0127184e-19,
  -1.3235516e-02,
   1.2053992e-16,
   1.3759631e-02,
   1.0437138e-16,
  -1.4272386e-02,
   7.2590453e-17,
   1.4772156e-02,
   0.0000000e+00,
  -1.5257343e-02,
   1.2770000e-16,
   1.5726379e-02,
  -5.5002752e-17,
  -1.6177736e-02,
   1.3396779e-16,
   1.6609933e-02,
   8.4098924e-19,
  -1.7021539e-02,
   7.6844440e-17,
   1.7411185e-02,
  -6.6117633e-17,
  -1.7777563e-02,
   1.4290750e-16,
   1.8119440e-02,
  -6.9976859e-17,
  -1.8435656e-02,
   1.1982173e-16,
   1.8725136e-02,
  -4.4622131e-17,
  -1.8986890e-02,
   1.3073825e-16,
   1.9220020e-02,
  -5.8607482e-17,
  -1.9423724e-02,
   1.4850150e-16,
   1.9597299e-02,
   2.7668394e-17,
  -1.9740144e-02,
   4.8476034e-17,
   1.9851763e-02,
   1.3862378e-17,
  -1.9931770e-02,
   2.7740875e-17,
   1.9979886e-02,
   5.5497874e-17,
   9.7980119e-01,
   5.5497874e-17,
   1.9979886e-02,
   2.7740875e-17,
  -1.9931770e-02,
   1.3862378e-17,
   1.9851763e-02,
   4.8476034e-17,
  -1.9740144e-02,
   2.7668394e-17,
   1.9597299e-02,
   1.4850150e-16,
  -1.9423724e-02,
  -5.8607482e-17,
   1.9220020e-02,
   1.3073825e-16,
  -1.8986890e-02,
  -4.4622131e-17,
   1.8725136e-02,
   1.1982173e-16,
  -1.8435656e-02,
  -6.9976859e-17,
   1.8119440e-02,
   1.4290750e-16,
  -1.7777563e-02,
  -6.6117633e-17,
   1.7411185e-02,
   7.6844440e-17,
  -1.7021539e-02,
   8.4098924e-19,
   1.6609933e-02,
   1.3396779e-16,
  -1.6177736e-02,
  -5.5002752e-17,
   1.5726379e-02,
   1.2770000e-16,
  -1.5257343e-02,
   0.0000000e+00,
   1.4772156e-02,
   7.2590453e-17,
  -1.4272386e-02,
   1.0437138e-16,
   1.3759631e-02,
   1.2053992e-16,
  -1.3235516e-02,
   2.0127184e-19,
   1.2701681e-02,
   2.7386628e-17,
  -1.2159781e-02,
   9.9240313e-20,
   1.1611471e-02,
   3.0585405e-17,
  -1.1058404e-02,
   9.7741884e-20,
   1.0502224e-02,
  -4.0139487e-17,
  -9.9445567e-03,
   7.0954578e-17,
   9.3870042e-03,
   9.9884662e-17,
  -8.8311386e-03,
   1.1334233e-18,
   8.2784959e-03,
  -2.4328565e-17,
  -7.7305695e-03,
   8.1548489e-18,
   7.1888047e-03,
   8.8074731e-17,
  -6.6545935e-03,
   3.2687752e-18,
   6.1292695e-03,
   2.9106128e-17,
  -5.6141028e-03,
   5.5085995e-17,
   5.1102963e-03,
   4.0408186e-17,
  -4.6189812e-03,
   6.5983865e-18,
   4.1412141e-03,
  -4.8036801e-18,
  -3.6779733e-03,
   2.7449902e-17,
   3.2301565e-03,
  -2.3086654e-17,
  -2.7985785e-03,
   1.0237045e-17,
   2.3839695e-03,
   7.7867304e-17,
  -1.9869737e-03,
  -3.7594919e-17,
   1.6081485e-03,
   4.8785429e-17,
  -1.2479642e-03,
   8.5230793e-17,
   9.0680361e-04,
   1.3840362e-17,
  -5.8496315e-04,
   4.6643541e-17,
   2.8265328e-04,
  -2.6535638e-17,
   1.9157973e-17,
   1.9363470e-17,
  -2.6295346e-04,
   5.6561909e-17,
   5.0624455e-04,
  -1.1349682e-17,
  -7.2998892e-04,
   3.6811048e-17,
   9.3437761e-04,
   7.5068564e-17,
  -1.1196739e-03,
   3.2285879e-18,
   1.2862100e-03,
   3.9087254e-17,
  -1.4343831e-03,
  -3.1355724e-17,
   1.5646515e-03,
   2.6178231e-17,
  -1.6775307e-03,
   4.6095395e-17,
   1.7735886e-03,
   1.8800438e-17,
  -1.8534413e-03,
   8.9682160e-18,
   1.9177482e-03,
   6.6612876e-17,
  -1.9672074e-03,
  -2.6578836e-17,
   2.0025506e-03,
   3.1712809e-17,
  -2.0245387e-03,
  -3.0676243e-17,
   2.0339563e-03,
   2.8157141e-17,
  -2.0316072e-03,
   3.3149024e-17,
   2.0183093e-03,
   2.6440955e-17,
  -1.9948901e-03,
   1.2950037e-18,
   1.9621816e-03,
   5.5960549e-17,
  -1.9210162e-03,
   1.6573265e-19,
   1.8722219e-03,
   2.6550446e-17,
  -1.8166183e-03,
  -2.5427430e-17,
   1.7550123e-03,
   4.9790251e-17,
  -1.6881946e-03,
   2.3498803e-17,
   1.6169355e-03,
   1.5402893e-18,
  -1.5419823e-03,
   2.1596308e-17,
   1.4640554e-03,
   4.3351113e-17,
  -1.3838460e-03,
   2.2723773e-19,
   1.3020133e-03,
   2.1602566e-17,
  -1.2191823e-03,
   1.9554790e-17,
   1.1359417e-03,
   6.9820343e-17,
  -1.0528425e-03,
  -1.5040253e-18,
   9.7039616e-04,
   2.9436827e-17,
  -8.8907409e-04,
   2.6909468e-18,
   8.0930647e-04,
   1.9419990e-17,
  -7.3148196e-04,
   2.9460007e-17,
   6.5594749e-04,
  -1.9077870e-17,
  -5.8300834e-04,
  -4.9025433e-19,
   5.1292857e-04,
   1.2347262e-17,
  -4.4593162e-04,
   1.9753944e-17,
   3.8220126e-04,
   2.4840567e-17,
  -3.2188268e-04,
  -1.5086150e-17,
   2.6508390e-04,
  -4.2069740e-18,
  -2.1187727e-04,
   3.0899611e-18,
   1.6230130e-04,
   1.3350575e-17,
  -1.1636252e-04,
   1.6976889e-17,
   7.4037614e-05,
   2.2845929e-17,
  -3.5275559e-05,
  -3.8989355e-18,
  -2.6154131e-18,
   1.7473172e-18,
   3.1888377e-05,
   7.6692607e-18,
  -6.0509358e-05,
   1.2029807e-17,
   8.6000686e-05,
   1.6691042e-17,
  -1.0851550e-04,
  -6.5426007e-18,
   1.2821981e-04,
   2.6174145e-19,
  -1.4528990e-04,
   2.5696083e-18,
   1.5990987e-04,
   1.1726881e-17,
  -1.7226917e-04,
   1.0653915e-17,
   1.8256018e-04,
  -1.5633761e-18,
  -1.9097594e-04,
  -5.8059629e-18,
   1.9770796e-04,
   4.1682603e-18,
  -2.0294410e-04,
   1.6224010e-18,
   2.0686667e-04,
   1.4542087e-17,
  -2.0965059e-04,
   8.2768394e-18,
   2.1146174e-04,
   3.4999773e-18,
  -2.1245553e-04,
  -5.8537889e-18,
   2.1277551e-04,
   7.2809648e-18,
  -2.1255228e-04,
   5.2280139e-19,
   2.1190253e-04,
   1.6460893e-17,
  -2.1092830e-04,
  -6.0505515e-18,
   2.0971635e-04,
   6.9676136e-18,
  -2.0833783e-04,
  -5.8629131e-18,
   2.0684806e-04,
   9.9175999e-18,
  -2.0528651e-04,
   5.8165782e-18,
   2.0367700e-04,
};