/* This is a test for sub: rand */
#define NX 16
#define FNAME "t1"
#define MAXERROR 2

#define SUB_SCALE 1

DATA x[NX] ={
14749,
-8811,
3501,
-460,
12822,
8588,
-1427,
-15778,
10531,
-1812,
3782,
9566,
13821,
7805,
-10609,
-3090,
};

DATA y[NX] ={
14269,
13661,
-2940,
12899,
-14487,
-4821,
10262,
-16061,
-11833,
-9740,
-9872,
3401,
-7465,
-9869,
-15884,
8087,
};

DATA rtest[NX] ={
240,
-11236,
3221,
-6679,
13655,
6705,
-5844,
142,
11182,
3964,
6827,
3083,
10643,
8837,
2638,
-5588,
};

DATA r[NX];