/* This is a test for sub: tst1 */
#define NX 4
#define FNAME "t6"
#define MAXERROR 2

#define SUB_SCALE 0

DATA x[NX] ={
3276,
6553,
9830,
13107,
};

DATA y[NX] ={
328,
655,
983,
1311,
};

DATA rtest[NX] ={
2949,
5898,
8847,
11796,
};

DATA r[NX];