/* Test for interp: sine */#define NX 200#define NH 17#define I 4#define FNAME "t1"#define MAXERROR 100DATA x[NX] ={0,2326,4605,6791,8839,10709,12361,13762,14885,15706,16209,16383,16226,15739,14934,13825,12437,10797,8938,6897,4717,2441,116,-2211,-4494,-6686,-8742,-10621,-12285,-13700,-14837,-15674,-16193,-16384,-16242,-15772,-14982,-13889,-12514,-10885,-9036,-7004,-4830,-2558,-234,2095,4381,6578,8642,10531,12206,13634,14786,15638,16173,16381,16256,15802,15028,13949,12588,10971,9132,7108,4940,2672,350,-1980,-4269,-6472,-8544,-10442,-12129,-13570,-14737,-15604,-16155,-16379,-16271,-15834,-15075,-14011,-12663,-11059,-9230,-7214,-5052,-2788,-467,1863,4155,6364,8443,10351,12049,13504,14684,15567,16135,16375,16284,15862,15120,14070,12736,11143,9325,7318,5162,2902,583,-1748,-4043,-6257,-8344,-10261,-11971,-13438,-14633,-15531,-16115,-16372,-16297,-15892,-15165,-14131,-12810,-11230,-9422,-7423,-5274,-3018,-701,1631,3929,6148,8242,10169,11890,13370,14579,15493,16092,16366,16308,15919,15208,14188,12881,11313,9516,7526,5383,3131,816,-1516,-3817,-6041,-8142,-10078,-11810,-13303,-14527,-15455,-16071,-16361,-16320,-15947,-15252,-14247,-12954,-11399,-9612,-7630,-5494,-3247,-934,1398,3702,5931,8039,9985,11728,13234,14471,15415,16047,16353,16329,15973,15293,14304,13024,11481,9705,7733,5603,3360,1049,-1283,};DATA rtest[] ={0,0,0,0,0,-136,-216,-185,0,392,937,1599,2326,2876,3434,4010,4606,5116,5645,6204,6792,7253,7743,8273,8840,9244,9683,10174,10709,11046,11427,11869,12361,12625,12940,13323,13763,13948,14190,14507,14886,14989,15153,15398,15707,15726,15809,15976,16210,16144,16144,16230,16384,16234,16152,16156,16226,15996,15833,15754,15740,15434,15193,15033,14934,14559,14245,14007,13826,13389,13009,12698,12438,11947,11508,11131,10797,10264,9775,9339,8938,8372,7844,7357,6898,6311,5753,5226,4718,4122,3546,2989,2442,1849,1267,692,117,-461,-1037,-1619,-2211,-2762,-3321,-3898,-4494,-5006,-5537,-6097,-6685,-7150,-7641,-8173,-8742,-9148,-9590,-10083,-10621,-10961,-11345,-11789,-12284,-12552,-12870,-13256,-13699,-13889,-14134,-14455,-14837,-14944,-15112,-15360,-15673,-15696,-15783,-15955,-16192,-16130,-16135,-16225,-16383,-16238,-16160,-16167,-16242,-16016,-15857,-15782,-15772,-15470,-15232,-15077,-14982,-14610,-14300,-14066,-13888,-13454,-13077,-12770,-12513,-12025,-11589,-11215,-10885,-10353,-9867,-9433,-9036,-8471,-7944,-7460,-7003,-6418,-5861,-5335,-4829,-4234,-3659,-3103,-2557,-1964,-1382,-808,-233,345,922,1504,2095,2647,3208,3785,4381,4896,5429,5990,6579,7046,7539,8073,8643,9052,9497,9992,10531,10876,11263,11709,12207,12479,12800,13189,13635,13828,14078,14402,14787,14898,15070,15322,15639,15666,15757,15932,16174,16116,16125,16220,16381,16240,16166,16178,16257,16035,15880,15809,15803,15505,15271,15119,15029,14660,14353,14123,13950,13518,13145,12841,12588,12103,11670,11298,10972,10442,9958,9527,9133,8570,8045,7562,7109,6524,5968,5445,4941,4345,3771,3217,2672,2079,1497,923,350,-229,-807,-1389,-1979,-2533,-3095,-3673,-4269,-4786,-5320,-5882,-6472,-6941,-7437,-7972,-8543,-8956,-9403,-9901,-10442,-10789,-11179,-11629,-12129,-12404,-12729,-13121,-13570,-13767,-14020,-14348,-14736,-14852,-15028,-15284,-15604,-15635,-15730,-15910,-16155,-16102,-16114,-16213,-16379,-16242,-16172,-16188,-16271,-16053,-15902,-15835,-15833,-15539,-15309,-15161,-15075,-14710,-14406,-14180,-14011,-13582,-13212,-12911,-12663,-12180,-11749,-11381,-11058,-10530,-10049,-9620,-9229,-8668,-8144,-7665,-7214,-6629,-6075,-5553,-5052,-4457,-3883,-3330,-2788,-2194,-1612,-1039,-467,114,692,1273,1863,2419,2981,3560,4156,4675,5211,5774,6364,6836,7334,7871,8443,8859,9309,9809,10352,10703,11096,11548,12050,12329,12657,13053,13504,13706,13962,14293,14685,14805,14984,15244,15568,15603,15703,15886,16135,16086,16103,16206,16376,16243,16177,16197,16284,16070,15923,15860,15863,15572,15346,15202,15120,14758,14459,14236,14071,13645,13278,12981,12736,12256,11828,11463,11144,10618,10139,9713,9326,8765,8244,7766,7318,6735,6182,5662,5163,4568,3995,3443,2903,2308,1727,1154,583,2,-577,-1158,-1747,-2304,-2868,-3447,-4043,-4564,-5101,-5666,-6256,-6731,-7231,-7770,-8343,-8762,-9215,-9717,-10261,-10615,-11011,-11466,-11971,-12253,-12585,-12984,-13438,-13643,-13903,-14238,-14633,-14757,-14940,-15204,-15531,-15571,-15674,-15861,-16114,-16070,-16091,-16197,-16371,-16243,-16181,-16205,-16297,-16087,-15943,-15885,-15892,-15604,-15383,-15243,-15165,-14806,-14510,-14291,-14130,-13708,-13344,-13050,-12810,-12332,-11907,-11545,-11229,-10706,-10228,-9806,-9421,-8863,-8343,-7868,-7423,-6840,-6288,-5770,-5273,-4679,-4106,-3556,-3017,-2423,-1841,-1270,-700,-118,461,1043,1631,2190,2754,3334,3930,4453,4992,5557,6148,6626,7128,7668,8242,8664,9120,9624,10170,10528,10927,11384,11891,12177,12512,12914,13371,13580,13844,14182,14580,14708,14895,15163,15493,15537,15645,15836,16093,16052,16077,16188,16366,16242,16184,16213,16308,16102,15963,15909,15920,15636,15418,15282,15208,14853,14561,14346,14189,13770,13409,13119,12882,12407,11984,11626,11314,10792,10318,9898,9517,8959,8442,7969,7526,6945,6395,5878,5384,4790,4218,3669,3132,2537,1956,1385,817,233,-346,-927,-1515,-2075,-2641,-3220,-3816,-4342,-4882,-5448,-6040,-6520,-7024,-7566,-8141,-8566,-9024,-9530,-10078,-10439,-10841,-11301,-11810,-12100,-12439,-12843,-13303,-13516,-13784,-14125,-14526,-14658,-14850,-15121,-15455,-15503,-15615,-15810,-16071,-16034,-16064,-16179,-16361,-16240,-16187,-16219,-16319,-16117,-15982,-15932,-15947,-15667,-15453,-15321,-15251,-14900,-14611,-14400,-14247,-13831,-13473,-13187,-12954,-12481,-12062,-11707,-11398,-10879,-10406,-9989,-9611,-9056,-8540,-8070,-7630,-7049,-6500,-5986,-5494,-4900,-4329,-3781,-3246,-2651,-2070,-1500,-933,-349,231,812,1399,1960,2527,3107,3703,4230,4772,5339,5931,6414,6920,7463,8040,8468,8928,9436,9986,10350,10755,11218,11729,12023,12364,12772,13234,13452,13723,14068,14472,14608,14804,15078,15416,15468,15584,15783,16047,16015,16049,16168,16354,16238,16188,16225,16329,16131,16000,15954,15973,15697,15487,15359,15294,14945,14660,14453,14304,13891,13536,13254,13025,12555,12138,11787,11482,10964,10494,10080,9706,9151,8638,8170,7733,7153,6606,6094,5604,5010,4440,3894,3361,2765,2185,1615,};#pragma DATA_SECTION (h,".coeffs")DATA h[NH] ={0,-1909,-3039,-2602,0,9297,19206,27667,32765,27667,19206,9297,0,-2602,-3039,-1909,0,};#pragma DATA_SECTION (dbuffer,".dbuffer")DATA dbuffer[NH];DATA *dp = dbuffer;DATA r[NX];