for(j=0;j<N;j++) {
x2[j]=(double)(j)/(N-1);
y[i][j]=x1[i]+x2[j];
}
}
Bilin_interp z = new Bilin_interp(x1,x2,y);
Ran myran = new Ran(17);
for (i=0;i<N;i++) {
xx1=myran.doub();
xx2=myran.doub();
yy[i]=z.interp(xx1,xx2); // interpolated values
zz[i]=xx1+xx2; // Actual values
}
sbeps=1.e-15;
System.out.printf(" Bilin_interp: Max. actual error: %f\n", maxel(vecsub(zz,yy)));
localflag = maxel(vecsub(zz,yy)) > sbeps;