// Example file for nag_intext2 which demonstrates the linking of nag_elliptic_integral_f_eqn (s21dac) into Scilab

z = 1.2 + 3.7*%i;
akp = 0.5;
a = 1;
b = 1;
y_exp = 1.9713e+00 + 5.0538e-01*%i
tol = 1.0e-4

y = nag_elliptic_integral_f_eqn(z,akp,a,b)


ok = abs(y - y_exp)/abs(y_exp) < tol

if ~ok; write(%io(2),'Error in expected output'); end;