/* run this as   oxl -lgausscall2ox.ox -g gausscall2ox.src */

#ifdef OX_GAUSS
print "oxgauss";
#else
print "gauss";
#endif

proc(1)=gaussfunc1(a,b);
	retp(a+eye(b));	
endp;

proc(1)=myfunc(x);
	retp(exp(-x^2));	
endp;

gaussfunc1(2, 3);
gausscall2ox_func(3, 2);

{f,err} = QNG(&myfunc, 0.0, 1.0);
"Back in OxGauss:";
"f=";; f;; " absolute error=";; err;
