/* Test for interp: rand */#define NX 100#define NH 21#define I 5#define FNAME "t4"#define MAXERROR 100DATA x[NX] ={-14777,8366,12937,-7008,-8153,14179,-12092,14444,6614,11392,-9527,-1472,-13728,11505,2033,-5922,-4100,12051,-4189,-13970,-9836,-14763,2185,-12389,724,-12549,8844,-4095,10596,-14856,3208,14717,-6921,12741,-13056,-14244,-8707,14191,-14316,-7727,16368,-9438,-53,-6866,5660,15007,8734,5443,-12094,-13258,-15897,-6941,10378,15908,-15816,10465,3969,1973,-8388,10551,-7760,8311,5231,-9370,3346,3438,5226,-10376,4474,-10804,1297,4043,6091,5811,12347,-15962,-6213,9144,-6315,13981,5856,-13949,-14069,-15994,-8941,532,-1370,6658,2702,301,-13950,-10053,-3946,-7326,8876,-6098,4528,15943,94,14670,};DATA rtest[] ={0,705,1233,1394,1023,0,-3702,-7599,-11107,-13663,-14777,-11831,-7490,-2279,3210,8367,11657,13863,14835,14515,12937,9698,5652,1220,-3148,-7007,-9599,-11104,-11382,-10384,-8153,-2987,2600,7820,11905,14180,9729,3818,-2504,-8149,-12092,-8776,-3587,2632,8953,14445,14562,13365,11298,8873,6614,7857,9371,10737,11537,11393,7570,3005,-1745,-6102,-9527,-8898,-7269,-5132,-3025,-1472,-4260,-7499,-10563,-12826,-13727,-9578,-4243,1554,7049,11506,11875,10773,8497,5436,2033,-124,-2089,-3758,-5053,-5921,-6875,-7246,-6934,-5885,-4099,-326,3674,7390,10327,12052,10685,8012,4364,148,-4189,-7196,-9765,-11788,-13199,-13969,-13573,-12720,-11649,-10609,-9836,-11145,-12626,-13942,-14754,-14762,-11310,-7325,-3378,-37,2186,154,-2927,-6466,-9827,-12389,-10361,-7471,-4278,-1363,725,-1727,-4923,-8224,-10970,-12548,-8989,-4358,642,5276,8845,7280,4563,1319,-1784,-4094,-1161,2495,6151,9075,10597,6193,580,-5386,-10812,-14856,-13873,-11103,-6970,-2004,3208,7489,11093,13668,14936,14718,10655,5679,571,-3874,-6921,-3677,819,5668,9937,12741,9522,4641,-1244,-7395,-13055,-15210,-16243,-16284,-15534,-14244,-14330,-13964,-12981,-11253,-8706,-2868,3087,8383,12291,14192,10338,4690,-1913,-8553,-14315,-16166,-16309,-14809,-11851,-7726,-1741,4387,9906,14103,16369,12922,7755,1704,-4326,-9438,-9174,-7586,-5162,-2461,-52,-1197,-2824,-4565,-6032,-6865,-5526,-3398,-665,2441,5661,8425,10880,12871,14276,15007,14589,13570,12121,10441,8734,8488,8234,7769,6894,5444,2144,-1564,-5380,-8990,-12093,-13290,-13822,-13859,-13600,-13258,-14123,-14961,-15627,-15981,-15897,-15204,-13957,-12143,-9785,-6940,-3483,173,3831,7295,10379,13980,16651,18026,17832,15908,9333,1870,-5467,-11667,-15815,-12955,-7988,-1780,4699,10466,11155,10489,8793,6471,3969,3631,3406,3150,2716,1973,-905,-3794,-6262,-7906,-8388,-4835,-468,4018,7911,10552,7793,3842,-574,-4687,-7759,-5993,-2969,806,4759,8311,9512,9760,9065,7508,5231,1803,-1786,-5109,-7755,-9370,-8075,-5760,-2800,381,3346,4131,4390,4252,3877,3439,4476,5392,5955,5955,5227,1857,-1894,-5513,-8493,-10376,-8034,-4747,-1138,2142,4474,2204,-1050,-4711,-8161,-10803,-9778,-7697,-4894,-1759,1298,2510,3305,3756,3964,4043,4575,5061,5485,5833,6091,5823,5555,5400,5459,5811,8245,10581,12333,13047,12348,7260,1138,-5278,-11220,-15962,-16813,-15975,-13685,-10291,-6213,-2051,1965,5412,7907,9145,6449,2856,-939,-4219,-6315,-3379,769,5498,10127,13981,14791,14257,12461,9577,5856,1770,-2570,-6844,-10734,-13949,-15138,-15527,-15317,-14746,-14068,-14639,-15230,-15730,-16021,-15993,-15210,-14060,-12588,-10857,-8941,-6624,-4371,-2340,-669,533,467,20,-590,-1128,-1370,110,1877,3710,5377,6659,6580,6016,5083,3926,2703,2665,2564,2233,1520,302,-2558,-5720,-8877,-11717,-13950,-14431,-14134,-13186,-11759,-10052,-8467,-6934,-5594,-4567,-3945,-4858,-5968,-6956,-7504,-7326,-3939,-89,3681,6832,8876,6788,3664,72,-3379,-6097,-5762,-4311,-1930,1119,4528,7991,11175,13747,15414,15944,13125,9525,5750,2415,};#pragma DATA_SECTION (h,".coeffs")DATA h[NH] ={0,-1563,-2734,-3091,-2269,0,7323,15301,22878,29011,32765,29011,22878,15301,7323,0,-2269,-3091,-2734,-1563,0,};#pragma DATA_SECTION (dbuffer,".dbuffer")DATA dbuffer[NH];DATA *dp = dbuffer;DATA r[NX];