float x[32]={
0.5,
0.25,
0.125,
0.0625,
0.03125,
0.015625,
0.0078125,
0.00390625,
0.01,
-0.5,
-0.25,
-0.125,
-0.0625,
-0.03125,
-0.015625,
-0.0078125,
-0.00390625,
-0.01,
};

DATA r[32]={
0
};

DATA *dptr;
short oflag;