/* Test for rand: rand */
#define NX 4
#define FNAME "t2"
#define MAXERROR 5.000000e-004

DATA x[NX] = {
-17620,
7002,
-919,
25644,
};

float xf[NX] = {
-5.377230e-001,
2.136852e-001,
-2.803506e-002,
7.825979e-001,
};

float rtest[NX] = {
-1.859694e+000,
4.679782e+000,
-3.566962e+001,
1.277795e+000,
};