global total_tests, total_exceptions;
mstart := trunc(time()*1000.0);
rstart := 1267162941*1000;
rcpuustart := 10.342*1000;
rcpusstart := 0.093*1000;
total_tests := 0;
total_exceptions := 0;
hours_elapsed := proc(msec)
local hrs;
hrs := trunc(evalf(msec/3600000));
hrs ;
end;
min_elapsed := proc(hrs,msec)
local min2;
min2 := trunc(evalf((msec-hrs*3600000)/60000));
min2;
end;
sec_elapsed := proc(hrs,min2,msec)
local sec2;
sec2 := trunc(evalf((msec - hrs*360000 - min2 * 60000)/1000)) ;
sec2 ;
end;
msec_elapsed := proc(hrs,min2,sec2,msec)
local msec2;
msec2 := msec - hrs*3600000 - min2 * 60000 - sec2 * 1000;
msec2 ;
end;
dump_except := proc(maplefunc,apfunc,x,fxm,fxr,fxrerr,percent_error,abs_error,except_fd)
global total_tests, total_exceptions;
total_exceptions := total_exceptions + 1;
fprintf(except_fd,"EXCEPTION: Maple func = %s APFP func = %s\n",maplefunc,apfunc);
fprintf(except_fd,"x              = %18.12e\n",x);
fprintf(except_fd,"Ruby APFP      = %18.12e\n",fxr);
fprintf(except_fd,"Maple          = %18.12e\n",fxm);
fprintf(except_fd,"Ruby est fxrerr= %18.12e\n",fxrerr);
fprintf(except_fd,"Abs Error      = %18.12e\n",abs_error);
fprintf(except_fd,"Percent Error  = %18.12e\n",percent_error);
end;
out_fd := fopen(`c:\\cygwin\\home\\dennis\\src\\mine\\aptst\\aptst.txt`,WRITE,TEXT);
except_fd := fopen(`c:\\cygwin\\home\\dennis\\src\\mine\\aptst\\apexcept.txt`,WRITE,TEXT);
Digits := 16;
fprintf(out_fd,"maplefunc = sin apfunc = sin\n");
fprintf(except_fd,"maplefunc = sin apfunc = sin\n");
fprintf(out_fd,"x = -6.0\n");
total_tests := total_tests + 1;
fxm := sin(-6.0);
fxr2 := 0.2794154981991154e0;
fxrerr := 0.857e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.9\n");
total_tests := total_tests + 1;
fxm := sin(-5.9);
fxr2 := 0.3738766648304481e0;
fxrerr := 0.759e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.8\n");
total_tests := total_tests + 1;
fxm := sin(-5.8);
fxr2 := 0.4646021794139235e0;
fxrerr := 0.671e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-5.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-5.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.7\n");
total_tests := total_tests + 1;
fxm := sin(-5.7);
fxr2 := 0.5506855425977844e0;
fxrerr := 0.596e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-5.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-5.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.6\n");
total_tests := total_tests + 1;
fxm := sin(-5.6);
fxr2 := 0.631266637872508e0;
fxrerr := 0.527e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.5\n");
total_tests := total_tests + 1;
fxm := sin(-5.5);
fxr2 := 0.7055403255705478e0;
fxrerr := 0.467e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-5.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-5.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.4\n");
total_tests := total_tests + 1;
fxm := sin(-5.4);
fxr2 := 0.7727644875561554e0;
fxrerr := 0.413e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-5.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-5.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.3\n");
total_tests := total_tests + 1;
fxm := sin(-5.3);
fxr2 := 0.8322674422240335e0;
fxrerr := 0.363e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-5.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-5.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.2\n");
total_tests := total_tests + 1;
fxm := sin(-5.2);
fxr2 := 0.883454655720231e0;
fxrerr := 0.321e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-5.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-5.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.1\n");
total_tests := total_tests + 1;
fxm := sin(-5.1);
fxr2 := 0.9258146823278678e0;
fxrerr := 0.283e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-5.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-5.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.0\n");
total_tests := total_tests + 1;
fxm := sin(-5.0);
fxr2 := 0.9589242746633353e0;
fxrerr := 0.25e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-5.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-5.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.9\n");
total_tests := total_tests + 1;
fxm := sin(-4.9);
fxr2 := 0.982452612624441e0;
fxrerr := 0.221e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-4.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-4.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.8\n");
total_tests := total_tests + 1;
fxm := sin(-4.8);
fxr2 := 0.9961646088359283e0;
fxrerr := 0.194e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-4.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-4.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.7\n");
total_tests := total_tests + 1;
fxm := sin(-4.7);
fxr2 := 0.9999232575641814e0;
fxrerr := 0.171e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-4.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-4.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.6\n");
total_tests := total_tests + 1;
fxm := sin(-4.6);
fxr2 := 0.9936910036335414e0;
fxrerr := 0.151e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-4.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-4.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.50000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-4.50000000000001);
fxr2 := 0.9775301176650978e0;
fxrerr := 0.133e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-4.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-4.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.40000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-4.40000000000001);
fxr2 := 0.9516020738895193e0;
fxrerr := 0.117e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-4.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-4.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.30000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-4.30000000000001);
fxr2 := 0.916165936749509e0;
fxrerr := 0.103e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-4.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-4.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.20000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-4.20000000000001);
fxr2 := 0.8715757724135867e0;
fxrerr := 0.914e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-4.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-4.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.10000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-4.10000000000001);
fxr2 := 0.8182771110643996e0;
fxrerr := 0.801e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-4.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-4.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.00000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-4.00000000000001);
fxr2 := 0.75680249530791e0;
fxrerr := 0.702e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-4.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-4.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.90000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-3.90000000000001);
fxr2 := 0.6877661591839715e0;
fxrerr := 0.613e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-3.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-3.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.80000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-3.80000000000001);
fxr2 := 0.6118578909427106e0;
fxrerr := 0.601e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-3.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-3.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.70000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-3.70000000000001);
fxr2 := 0.529836140908489e0;
fxrerr := 0.642e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-3.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-3.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.60000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-3.60000000000001);
fxr2 := 0.4425204432948489e0;
fxrerr := 0.672e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-3.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-3.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.50000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-3.50000000000001);
fxr2 := 0.3507832276896061e0;
fxrerr := 0.695e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-3.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-3.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.40000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-3.40000000000001);
fxr2 := 0.2555411020268178e0;
fxrerr := 0.711e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-3.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-3.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.30000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-3.30000000000001);
fxr2 := 0.1577456941432474e0;
fxrerr := 0.719e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-3.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-3.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.20000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-3.20000000000001);
fxr2 := 0.5837414342756978e-1;
fxrerr := 0.72e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-3.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-3.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.10000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-3.10000000000001);
fxr2 := -0.415806624333015e-1;
fxrerr := 0.714e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-3.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-3.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.00000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-3.00000000000001);
fxr2 := -0.14112000805986e0;
fxrerr := 0.701e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-3.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-3.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.90000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-2.90000000000001);
fxr2 := -0.23924932921398e0;
fxrerr := 0.68e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-2.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-2.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.80000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-2.80000000000001);
fxr2 := -0.334988150155905e0;
fxrerr := 0.654e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-2.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-2.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.70000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-2.70000000000001);
fxr2 := -0.427379880233823e0;
fxrerr := 0.621e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-2.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-2.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.60000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-2.60000000000001);
fxr2 := -0.515501371821468e0;
fxrerr := 0.583e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-2.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-2.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.50000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-2.50000000000001);
fxr2 := -0.598472144103962e0;
fxrerr := 0.539e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-2.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-2.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.40000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-2.40000000000001);
fxr2 := -0.675463180551141e0;
fxrerr := 0.491e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-2.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-2.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.30000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-2.30000000000001);
fxr2 := -0.745705212176714e0;
fxrerr := 0.439e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-2.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-2.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.20000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-2.20000000000001);
fxr2 := -0.808496403819584e0;
fxrerr := 0.383e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-2.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-2.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.10000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-2.10000000000001);
fxr2 := -0.863209366648867e0;
fxrerr := 0.326e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-2.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-2.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.00000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-2.00000000000001);
fxr2 := -0.909297426825676e0;
fxrerr := 0.265e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-2.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-2.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.90000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-1.90000000000001);
fxr2 := -0.946300087687406e0;
fxrerr := 0.204e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-1.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-1.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.80000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-1.80000000000001);
fxr2 := -0.973847630878187e0;
fxrerr := 0.142e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-1.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-1.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.70000000000001\n");
total_tests := total_tests + 1;
fxm := sin(-1.70000000000001);
fxr2 := -0.991664810452461e0;
fxrerr := 0.796e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-1.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-1.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.6\n");
total_tests := total_tests + 1;
fxm := sin(-1.6);
fxr2 := -0.99957360304149e0;
fxrerr := 0.215e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-1.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-1.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.5\n");
total_tests := total_tests + 1;
fxm := sin(-1.5);
fxr2 := -0.997494986604038e0;
fxrerr := 0.426e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.4\n");
total_tests := total_tests + 1;
fxm := sin(-1.4);
fxr2 := -0.985449729988452e0;
fxrerr := 0.101e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.3\n");
total_tests := total_tests + 1;
fxm := sin(-1.3);
fxr2 := -0.963558185417184e0;
fxrerr := 0.157e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.2\n");
total_tests := total_tests + 1;
fxm := sin(-1.2);
fxr2 := -0.932039085967215e0;
fxrerr := 0.211e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.1\n");
total_tests := total_tests + 1;
fxm := sin(-1.1);
fxr2 := -0.891207360061425e0;
fxrerr := 0.261e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.0\n");
total_tests := total_tests + 1;
fxm := sin(-1.0);
fxr2 := -0.841470984807887e0;
fxrerr := 0.307e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.900000000000004\n");
total_tests := total_tests + 1;
fxm := sin(-0.900000000000004);
fxr2 := -0.783326909627474e0;
fxrerr := 0.349e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-0.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-0.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.800000000000004\n");
total_tests := total_tests + 1;
fxm := sin(-0.800000000000004);
fxr2 := -0.717356090899518e0;
fxrerr := 0.386e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-0.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-0.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.700000000000005\n");
total_tests := total_tests + 1;
fxm := sin(-0.700000000000005);
fxr2 := -0.644217687237683e0;
fxrerr := 0.419e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-0.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-0.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.600000000000005\n");
total_tests := total_tests + 1;
fxm := sin(-0.600000000000005);
fxr2 := -0.564642473395033e0;
fxrerr := 0.446e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-0.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-0.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.500000000000005\n");
total_tests := total_tests + 1;
fxm := sin(-0.500000000000005);
fxr2 := -0.4794255386042e0;
fxrerr := 0.468e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-0.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-0.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.400000000000005\n");
total_tests := total_tests + 1;
fxm := sin(-0.400000000000005);
fxr2 := -0.38941834230865e0;
fxrerr := 0.485e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-0.400000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-0.400000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.300000000000005\n");
total_tests := total_tests + 1;
fxm := sin(-0.300000000000005);
fxr2 := -0.295520206661339e0;
fxrerr := 0.496e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-0.300000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-0.300000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.200000000000005\n");
total_tests := total_tests + 1;
fxm := sin(-0.200000000000005);
fxr2 := -0.19866933079506e0;
fxrerr := 0.502e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-0.200000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-0.200000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.100000000000005\n");
total_tests := total_tests + 1;
fxm := sin(-0.100000000000005);
fxr2 := -0.998334166468318e-1;
fxrerr := 0.503e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-0.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-0.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.57966997657877e-15\n");
total_tests := total_tests + 1;
fxm := sin(-4.57966997657877e-15);
fxr2 := -0.457966997657875e-14;
fxrerr := 0.5e-29;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,-4.57966997657877e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,-4.57966997657877e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.0999999999999954\n");
total_tests := total_tests + 1;
fxm := sin(0.0999999999999954);
fxr2 := 0.9983341664682351e-1;
fxrerr := 0.566e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,0.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,0.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.199999999999995\n");
total_tests := total_tests + 1;
fxm := sin(0.199999999999995);
fxr2 := 0.1986693307950557e0;
fxrerr := 0.625e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,0.199999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,0.199999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.299999999999995\n");
total_tests := total_tests + 1;
fxm := sin(0.299999999999995);
fxr2 := 0.2955202066613342e0;
fxrerr := 0.677e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,0.299999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,0.299999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.399999999999995\n");
total_tests := total_tests + 1;
fxm := sin(0.399999999999995);
fxr2 := 0.3894183423086453e0;
fxrerr := 0.712e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,0.399999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,0.399999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.499999999999995\n");
total_tests := total_tests + 1;
fxm := sin(0.499999999999995);
fxr2 := 0.4794255386041982e0;
fxrerr := 0.742e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,0.499999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,0.499999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.599999999999995\n");
total_tests := total_tests + 1;
fxm := sin(0.599999999999995);
fxr2 := 0.5646424733950307e0;
fxrerr := 0.752e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,0.599999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,0.599999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.699999999999995\n");
total_tests := total_tests + 1;
fxm := sin(0.699999999999995);
fxr2 := 0.6442176872376865e0;
fxrerr := 0.753e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,0.699999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,0.699999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.799999999999995\n");
total_tests := total_tests + 1;
fxm := sin(0.799999999999995);
fxr2 := 0.7173560908995188e0;
fxrerr := 0.731e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,0.799999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,0.799999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.899999999999995\n");
total_tests := total_tests + 1;
fxm := sin(0.899999999999995);
fxr2 := 0.78332690962748e0;
fxrerr := 0.696e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,0.899999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,0.899999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.999999999999995\n");
total_tests := total_tests + 1;
fxm := sin(0.999999999999995);
fxr2 := 0.8414709848078938e0;
fxrerr := 0.642e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,0.999999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,0.999999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.1\n");
total_tests := total_tests + 1;
fxm := sin(1.1);
fxr2 := 0.8912073600614349e0;
fxrerr := 0.571e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.2\n");
total_tests := total_tests + 1;
fxm := sin(1.2);
fxr2 := 0.9320390859672263e0;
fxrerr := 0.481e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.3\n");
total_tests := total_tests + 1;
fxm := sin(1.3);
fxr2 := 0.9635581854171929e0;
fxrerr := 0.374e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.4\n");
total_tests := total_tests + 1;
fxm := sin(1.4);
fxr2 := 0.9854497299884596e0;
fxrerr := 0.249e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.5\n");
total_tests := total_tests + 1;
fxm := sin(1.5);
fxr2 := 0.9974949866040537e0;
fxrerr := 0.185e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.6\n");
total_tests := total_tests + 1;
fxm := sin(1.6);
fxr2 := 0.9995736030415037e0;
fxrerr := 0.215e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,1.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,1.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.7\n");
total_tests := total_tests + 1;
fxm := sin(1.7);
fxr2 := 0.9916648104524682e0;
fxrerr := 0.251e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,1.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,1.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.8\n");
total_tests := total_tests + 1;
fxm := sin(1.8);
fxr2 := 0.973847630878195e0;
fxrerr := 0.397e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,1.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,1.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.9\n");
total_tests := total_tests + 1;
fxm := sin(1.9);
fxr2 := 0.9463000876874173e0;
fxrerr := 0.585e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,1.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,1.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.0\n");
total_tests := total_tests + 1;
fxm := sin(2.0);
fxr2 := 0.9092974268256816e0;
fxrerr := 0.786e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,2.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,2.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.1\n");
total_tests := total_tests + 1;
fxm := sin(2.1);
fxr2 := 0.863209366648879e0;
fxrerr := 0.989e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,2.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,2.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.2\n");
total_tests := total_tests + 1;
fxm := sin(2.2);
fxr2 := 0.8084964038195921e0;
fxrerr := 0.118e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,2.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,2.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.3\n");
total_tests := total_tests + 1;
fxm := sin(2.3);
fxr2 := 0.7457052121767272e0;
fxrerr := 0.139e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,2.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,2.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.4\n");
total_tests := total_tests + 1;
fxm := sin(2.4);
fxr2 := 0.6754631805511547e0;
fxrerr := 0.159e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,2.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,2.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.5\n");
total_tests := total_tests + 1;
fxm := sin(2.5);
fxr2 := 0.5984721441039727e0;
fxrerr := 0.179e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,2.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,2.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.6\n");
total_tests := total_tests + 1;
fxm := sin(2.6);
fxr2 := 0.5155013718214777e0;
fxrerr := 0.197e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,2.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,2.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.7\n");
total_tests := total_tests + 1;
fxm := sin(2.7);
fxr2 := 0.427379880233847e0;
fxrerr := 0.214e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,2.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,2.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.8\n");
total_tests := total_tests + 1;
fxm := sin(2.8);
fxr2 := 0.3349881501559192e0;
fxrerr := 0.229e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,2.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,2.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.9\n");
total_tests := total_tests + 1;
fxm := sin(2.9);
fxr2 := 0.2392493292139935e0;
fxrerr := 0.243e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,2.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,2.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.0\n");
total_tests := total_tests + 1;
fxm := sin(3.0);
fxr2 := 0.1411200080598885e0;
fxrerr := 0.255e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,3.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,3.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.1\n");
total_tests := total_tests + 1;
fxm := sin(3.1);
fxr2 := 0.4158066243330433e-1;
fxrerr := 0.264e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,3.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,3.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.2\n");
total_tests := total_tests + 1;
fxm := sin(3.2);
fxr2 := -0.583741434275678e-1;
fxrerr := 0.272e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,3.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,3.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.3\n");
total_tests := total_tests + 1;
fxm := sin(3.3);
fxr2 := -0.157745694143223e0;
fxrerr := 0.269e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,3.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,3.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.4\n");
total_tests := total_tests + 1;
fxm := sin(3.4);
fxr2 := -0.255541102026807e0;
fxrerr := 0.309e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,3.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,3.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.5\n");
total_tests := total_tests + 1;
fxm := sin(3.5);
fxr2 := -0.350783227689595e0;
fxrerr := 0.357e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,3.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,3.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.6\n");
total_tests := total_tests + 1;
fxm := sin(3.6);
fxr2 := -0.442520443294826e0;
fxrerr := 0.406e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,3.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,3.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.7\n");
total_tests := total_tests + 1;
fxm := sin(3.7);
fxr2 := -0.529836140908469e0;
fxrerr := 0.467e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,3.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,3.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.8\n");
total_tests := total_tests + 1;
fxm := sin(3.8);
fxr2 := -0.611857890942689e0;
fxrerr := 0.536e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,3.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,3.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.9\n");
total_tests := total_tests + 1;
fxm := sin(3.9);
fxr2 := -0.687766159183927e0;
fxrerr := 0.613e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sin,sin,3.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sin,sin,3.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = cos apfunc = cos\n");
fprintf(except_fd,"maplefunc = cos apfunc = cos\n");
fprintf(out_fd,"x = -6.0\n");
total_tests := total_tests + 1;
fxm := cos(-6.0);
fxr2 := 0.9601702866507061e0;
fxrerr := 0.196e-9;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.9\n");
total_tests := total_tests + 1;
fxm := cos(-5.9);
fxr2 := 0.927478430744378e0;
fxrerr := 0.178e-9;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.8\n");
total_tests := total_tests + 1;
fxm := cos(-5.8);
fxr2 := 0.8855195169416847e0;
fxrerr := 0.159e-9;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-5.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-5.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.7\n");
total_tests := total_tests + 1;
fxm := cos(-5.7);
fxr2 := 0.8347127848393935e0;
fxrerr := 0.143e-9;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-5.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-5.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.6\n");
total_tests := total_tests + 1;
fxm := cos(-5.6);
fxr2 := 0.7755658785104537e0;
fxrerr := 0.129e-9;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.5\n");
total_tests := total_tests + 1;
fxm := cos(-5.5);
fxr2 := 0.7086697742915519e0;
fxrerr := 0.115e-9;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-5.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-5.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.4\n");
total_tests := total_tests + 1;
fxm := cos(-5.4);
fxr2 := 0.6346928759427554e0;
fxrerr := 0.103e-9;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-5.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-5.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.3\n");
total_tests := total_tests + 1;
fxm := cos(-5.3);
fxr2 := 0.5543743361792177e0;
fxrerr := 0.935e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-5.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-5.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.2\n");
total_tests := total_tests + 1;
fxm := cos(-5.2);
fxr2 := 0.4685166713004037e0;
fxrerr := 0.84e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-5.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-5.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.1\n");
total_tests := total_tests + 1;
fxm := cos(-5.1);
fxr2 := 0.3779777427130222e0;
fxrerr := 0.751e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-5.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-5.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.0\n");
total_tests := total_tests + 1;
fxm := cos(-5.0);
fxr2 := 0.2836621854632482e0;
fxrerr := 0.674e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-5.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-5.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.9\n");
total_tests := total_tests + 1;
fxm := cos(-4.9);
fxr2 := 0.1865123694225508e0;
fxrerr := 0.603e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-4.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-4.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.8\n");
total_tests := total_tests + 1;
fxm := cos(-4.8);
fxr2 := 0.8749898343949167e-1;
fxrerr := 0.542e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-4.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-4.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.7\n");
total_tests := total_tests + 1;
fxm := cos(-4.7);
fxr2 := -0.123886634628768e-1;
fxrerr := 0.484e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-4.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-4.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.6\n");
total_tests := total_tests + 1;
fxm := cos(-4.6);
fxr2 := -0.112152526935012e0;
fxrerr := 0.438e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-4.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-4.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.50000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-4.50000000000001);
fxr2 := -0.210795799430777e0;
fxrerr := 0.391e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-4.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-4.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.40000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-4.40000000000001);
fxr2 := -0.307332869978388e0;
fxrerr := 0.349e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-4.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-4.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.30000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-4.30000000000001);
fxr2 := -0.400799172079984e0;
fxrerr := 0.312e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-4.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-4.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.20000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-4.20000000000001);
fxr2 := -0.49026082134069e0;
fxrerr := 0.281e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-4.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-4.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.10000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-4.10000000000001);
fxr2 := -0.574823946533276e0;
fxrerr := 0.253e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-4.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-4.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.00000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-4.00000000000001);
fxr2 := -0.653643620863619e0;
fxrerr := 0.224e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-4.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-4.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.90000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-3.90000000000001);
fxr2 := -0.725932304200134e0;
fxrerr := 0.201e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-3.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-3.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.80000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-3.80000000000001);
fxr2 := -0.790967711914412e0;
fxrerr := 0.18e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-3.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-3.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.70000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-3.70000000000001);
fxr2 := -0.848100031710402e0;
fxrerr := 0.163e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-3.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-3.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.60000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-3.60000000000001);
fxr2 := -0.896758416334137e0;
fxrerr := 0.146e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-3.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-3.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.50000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-3.50000000000001);
fxr2 := -0.936456687290787e0;
fxrerr := 0.129e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-3.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-3.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.40000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-3.40000000000001);
fxr2 := -0.966798192579442e0;
fxrerr := 0.117e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-3.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-3.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.30000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-3.30000000000001);
fxr2 := -0.987479769908857e0;
fxrerr := 0.104e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-3.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-3.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.20000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-3.20000000000001);
fxr2 := -0.998294775794732e0;
fxrerr := 0.941e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-3.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-3.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.10000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-3.10000000000001);
fxr2 := -0.999135150273253e0;
fxrerr := 0.841e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-3.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-3.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.00000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-3.00000000000001);
fxr2 := -0.989992496600438e0;
fxrerr := 0.753e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-3.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-3.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.90000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-2.90000000000001);
fxr2 := -0.970958165149581e0;
fxrerr := 0.673e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-2.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-2.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.80000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-2.80000000000001);
fxr2 := -0.942222340668648e0;
fxrerr := 0.602e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-2.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-2.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.70000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-2.70000000000001);
fxr2 := -0.904072142017052e0;
fxrerr := 0.535e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-2.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-2.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.60000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-2.60000000000001);
fxr2 := -0.856888753368937e0;
fxrerr := 0.48e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-2.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-2.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.50000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-2.50000000000001);
fxr2 := -0.801143615546925e0;
fxrerr := 0.426e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-2.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-2.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.40000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-2.40000000000001);
fxr2 := -0.737393715541238e0;
fxrerr := 0.381e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-2.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-2.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.30000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-2.30000000000001);
fxr2 := -0.666276021279818e0;
fxrerr := 0.34e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-2.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-2.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.20000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-2.20000000000001);
fxr2 := -0.588501117255337e0;
fxrerr := 0.304e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-2.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-2.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.10000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-2.10000000000001);
fxr2 := -0.50484610459985e0;
fxrerr := 0.271e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-2.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-2.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.00000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-2.00000000000001);
fxr2 := -0.416146836547133e0;
fxrerr := 0.24e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-2.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-2.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.90000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-1.90000000000001);
fxr2 := -0.323289566863495e0;
fxrerr := 0.213e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-1.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-1.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.80000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-1.80000000000001);
fxr2 := -0.227202094693079e0;
fxrerr := 0.189e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-1.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-1.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.70000000000001\n");
total_tests := total_tests + 1;
fxm := cos(-1.70000000000001);
fxr2 := -0.128844494295518e0;
fxrerr := 0.167e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-1.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-1.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.6\n");
total_tests := total_tests + 1;
fxm := cos(-1.6);
fxr2 := -0.291995223012757e-1;
fxrerr := 0.148e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-1.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-1.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.5\n");
total_tests := total_tests + 1;
fxm := cos(-1.5);
fxr2 := 0.707372016677164e-1;
fxrerr := 0.127e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.4\n");
total_tests := total_tests + 1;
fxm := cos(-1.4);
fxr2 := 0.16996714290025e0;
fxrerr := 0.117e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.3\n");
total_tests := total_tests + 1;
fxm := cos(-1.3);
fxr2 := 0.2674988286245961e0;
fxrerr := 0.102e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.2\n");
total_tests := total_tests + 1;
fxm := cos(-1.2);
fxr2 := 0.3623577544766822e0;
fxrerr := 0.905e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.1\n");
total_tests := total_tests + 1;
fxm := cos(-1.1);
fxr2 := 0.4535961214255854e0;
fxrerr := 0.791e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.0\n");
total_tests := total_tests + 1;
fxm := cos(-1.0);
fxr2 := 0.5403023058681431e0;
fxrerr := 0.685e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.900000000000004\n");
total_tests := total_tests + 1;
fxm := cos(-0.900000000000004);
fxr2 := 0.6216099682706654e0;
fxrerr := 0.582e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-0.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-0.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.800000000000004\n");
total_tests := total_tests + 1;
fxm := cos(-0.800000000000004);
fxr2 := 0.696706709347164e0;
fxrerr := 0.507e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-0.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-0.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.700000000000005\n");
total_tests := total_tests + 1;
fxm := cos(-0.700000000000005);
fxr2 := 0.7648421872844887e0;
fxrerr := 0.426e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-0.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-0.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.600000000000005\n");
total_tests := total_tests + 1;
fxm := cos(-0.600000000000005);
fxr2 := 0.8253356149096758e0;
fxrerr := 0.353e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-0.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-0.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.500000000000005\n");
total_tests := total_tests + 1;
fxm := cos(-0.500000000000005);
fxr2 := 0.8775825618903702e0;
fxrerr := 0.286e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-0.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-0.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.400000000000005\n");
total_tests := total_tests + 1;
fxm := cos(-0.400000000000005);
fxr2 := 0.9210609940028831e0;
fxrerr := 0.222e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-0.400000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-0.400000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.300000000000005\n");
total_tests := total_tests + 1;
fxm := cos(-0.300000000000005);
fxr2 := 0.9553364891256043e0;
fxrerr := 0.164e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-0.300000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-0.300000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.200000000000005\n");
total_tests := total_tests + 1;
fxm := cos(-0.200000000000005);
fxr2 := 0.9800665778412404e0;
fxrerr := 0.108e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-0.200000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-0.200000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.100000000000005\n");
total_tests := total_tests + 1;
fxm := cos(-0.100000000000005);
fxr2 := 0.995004165278025e0;
fxrerr := 0.556e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-0.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-0.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.57966997657877e-15\n");
total_tests := total_tests + 1;
fxm := cos(-4.57966997657877e-15);
fxr2 := 0.1e1;
fxrerr := 0.5e-14;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,-4.57966997657877e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,-4.57966997657877e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.0999999999999954\n");
total_tests := total_tests + 1;
fxm := cos(0.0999999999999954);
fxr2 := 0.9950041652780258e0;
fxrerr := 0.106e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,0.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,0.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.199999999999995\n");
total_tests := total_tests + 1;
fxm := cos(0.199999999999995);
fxr2 := 0.9800665778412423e0;
fxrerr := 0.182e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,0.199999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,0.199999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.299999999999995\n");
total_tests := total_tests + 1;
fxm := cos(0.299999999999995);
fxr2 := 0.9553364891256071e0;
fxrerr := 0.278e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,0.299999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,0.299999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.399999999999995\n");
total_tests := total_tests + 1;
fxm := cos(0.399999999999995);
fxr2 := 0.9210609940028867e0;
fxrerr := 0.39e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,0.399999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,0.399999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.499999999999995\n");
total_tests := total_tests + 1;
fxm := cos(0.499999999999995);
fxr2 := 0.877582561890375e0;
fxrerr := 0.528e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,0.499999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,0.499999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.599999999999995\n");
total_tests := total_tests + 1;
fxm := cos(0.599999999999995);
fxr2 := 0.8253356149096815e0;
fxrerr := 0.684e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,0.599999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,0.599999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.699999999999995\n");
total_tests := total_tests + 1;
fxm := cos(0.699999999999995);
fxr2 := 0.7648421872844915e0;
fxrerr := 0.872e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,0.699999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,0.699999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.799999999999995\n");
total_tests := total_tests + 1;
fxm := cos(0.799999999999995);
fxr2 := 0.6967067093471693e0;
fxrerr := 0.108e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,0.799999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,0.799999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.899999999999995\n");
total_tests := total_tests + 1;
fxm := cos(0.899999999999995);
fxr2 := 0.621609968270669e0;
fxrerr := 0.132e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,0.899999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,0.899999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.999999999999995\n");
total_tests := total_tests + 1;
fxm := cos(0.999999999999995);
fxr2 := 0.540302305868144e0;
fxrerr := 0.161e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,0.999999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,0.999999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.1\n");
total_tests := total_tests + 1;
fxm := cos(1.1);
fxr2 := 0.4535961214255784e0;
fxrerr := 0.194e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.2\n");
total_tests := total_tests + 1;
fxm := cos(1.2);
fxr2 := 0.3623577544766739e0;
fxrerr := 0.232e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.3\n");
total_tests := total_tests + 1;
fxm := cos(1.3);
fxr2 := 0.2674988286245881e0;
fxrerr := 0.274e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.4\n");
total_tests := total_tests + 1;
fxm := cos(1.4);
fxr2 := 0.1699671429002417e0;
fxrerr := 0.324e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.5\n");
total_tests := total_tests + 1;
fxm := cos(1.5);
fxr2 := 0.7073720166771013e-1;
fxrerr := 0.38e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.6\n");
total_tests := total_tests + 1;
fxm := cos(1.6);
fxr2 := -0.291995223012804e-1;
fxrerr := 0.445e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,1.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,1.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.7\n");
total_tests := total_tests + 1;
fxm := cos(1.7);
fxr2 := -0.12884449429551e0;
fxrerr := 0.515e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,1.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,1.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.8\n");
total_tests := total_tests + 1;
fxm := cos(1.8);
fxr2 := -0.227202094693071e0;
fxrerr := 0.602e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,1.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,1.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.9\n");
total_tests := total_tests + 1;
fxm := cos(1.9);
fxr2 := -0.323289566863488e0;
fxrerr := 0.693e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,1.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,1.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.0\n");
total_tests := total_tests + 1;
fxm := cos(2.0);
fxr2 := -0.416146836547126e0;
fxrerr := 0.801e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,2.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,2.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.1\n");
total_tests := total_tests + 1;
fxm := cos(2.1);
fxr2 := -0.504846104599843e0;
fxrerr := 0.926e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,2.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,2.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.2\n");
total_tests := total_tests + 1;
fxm := cos(2.2);
fxr2 := -0.588501117255332e0;
fxrerr := 0.105e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,2.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,2.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.3\n");
total_tests := total_tests + 1;
fxm := cos(2.3);
fxr2 := -0.666276021279813e0;
fxrerr := 0.121e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,2.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,2.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.4\n");
total_tests := total_tests + 1;
fxm := cos(2.4);
fxr2 := -0.737393715541232e0;
fxrerr := 0.137e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,2.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,2.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.5\n");
total_tests := total_tests + 1;
fxm := cos(2.5);
fxr2 := -0.801143615546922e0;
fxrerr := 0.158e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,2.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,2.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.6\n");
total_tests := total_tests + 1;
fxm := cos(2.6);
fxr2 := -0.856888753368935e0;
fxrerr := 0.18e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,2.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,2.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.7\n");
total_tests := total_tests + 1;
fxm := cos(2.7);
fxr2 := -0.904072142017048e0;
fxrerr := 0.204e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,2.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,2.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.8\n");
total_tests := total_tests + 1;
fxm := cos(2.8);
fxr2 := -0.942222340668649e0;
fxrerr := 0.233e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,2.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,2.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.9\n");
total_tests := total_tests + 1;
fxm := cos(2.9);
fxr2 := -0.970958165149581e0;
fxrerr := 0.266e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,2.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,2.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.0\n");
total_tests := total_tests + 1;
fxm := cos(3.0);
fxr2 := -0.98999249660043e0;
fxrerr := 0.302e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,3.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,3.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.1\n");
total_tests := total_tests + 1;
fxm := cos(3.1);
fxr2 := -0.999135150273253e0;
fxrerr := 0.345e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,3.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,3.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.2\n");
total_tests := total_tests + 1;
fxm := cos(3.2);
fxr2 := -0.998294775794732e0;
fxrerr := 0.392e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,3.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,3.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.3\n");
total_tests := total_tests + 1;
fxm := cos(3.3);
fxr2 := -0.98747976990884e0;
fxrerr := 0.443e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,3.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,3.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.4\n");
total_tests := total_tests + 1;
fxm := cos(3.4);
fxr2 := -0.966798192579452e0;
fxrerr := 0.502e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,3.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,3.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.5\n");
total_tests := total_tests + 1;
fxm := cos(3.5);
fxr2 := -0.93645668729079e0;
fxrerr := 0.57e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,3.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,3.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.6\n");
total_tests := total_tests + 1;
fxm := cos(3.6);
fxr2 := -0.896758416334165e0;
fxrerr := 0.645e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,3.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,3.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.7\n");
total_tests := total_tests + 1;
fxm := cos(3.7);
fxr2 := -0.848100031710402e0;
fxrerr := 0.731e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,3.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,3.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.8\n");
total_tests := total_tests + 1;
fxm := cos(3.8);
fxr2 := -0.790967711914415e0;
fxrerr := 0.827e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,3.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,3.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.9\n");
total_tests := total_tests + 1;
fxm := cos(3.9);
fxr2 := -0.725932304200157e0;
fxrerr := 0.797e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cos,cos,3.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cos,cos,3.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = tan apfunc = tan\n");
fprintf(except_fd,"maplefunc = tan apfunc = tan\n");
fprintf(out_fd,"x = -1.5\n");
total_tests := total_tests + 1;
fxm := tan(-1.5);
fxr2 := -0.141014199471687e2;
fxrerr := 0.253e-9;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.4\n");
total_tests := total_tests + 1;
fxm := tan(-1.4);
fxr2 := -0.579788371548253e1;
fxrerr := 0.405e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.3\n");
total_tests := total_tests + 1;
fxm := tan(-1.3);
fxr2 := -0.360210244796782e1;
fxrerr := 0.143e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.2\n");
total_tests := total_tests + 1;
fxm := tan(-1.2);
fxr2 := -0.257215162212622e1;
fxrerr := 0.7e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.1\n");
total_tests := total_tests + 1;
fxm := tan(-1.1);
fxr2 := -0.196475965724859e1;
fxrerr := 0.4e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.0\n");
total_tests := total_tests + 1;
fxm := tan(-1.0);
fxr2 := -0.155740772465487e1;
fxrerr := 0.254e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.9\n");
total_tests := total_tests + 1;
fxm := tan(-0.9);
fxr2 := -0.126015821755032e1;
fxrerr := 0.174e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.8\n");
total_tests := total_tests + 1;
fxm := tan(-0.8);
fxr2 := -0.102963855705034e1;
fxrerr := 0.13e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.7\n");
total_tests := total_tests + 1;
fxm := tan(-0.7);
fxr2 := -0.842288380463068e0;
fxrerr := 0.101e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.6\n");
total_tests := total_tests + 1;
fxm := tan(-0.6);
fxr2 := -0.684136808341683e0;
fxrerr := 0.832e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.5\n");
total_tests := total_tests + 1;
fxm := tan(-0.5);
fxr2 := -0.546302489843781e0;
fxrerr := 0.71e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.4\n");
total_tests := total_tests + 1;
fxm := tan(-0.4);
fxr2 := -0.422793218738154e0;
fxrerr := 0.628e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.3\n");
total_tests := total_tests + 1;
fxm := tan(-0.3);
fxr2 := -0.309336249609617e0;
fxrerr := 0.571e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.2\n");
total_tests := total_tests + 1;
fxm := tan(-0.2);
fxr2 := -0.202710035508666e0;
fxrerr := 0.534e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.0999999999999998\n");
total_tests := total_tests + 1;
fxm := tan(-0.0999999999999998);
fxr2 := -0.100334672085449e0;
fxrerr := 0.511e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.94289029309402e-16\n");
total_tests := total_tests + 1;
fxm := tan(1.94289029309402e-16);
fxr2 := 0.1942890293094018e-15;
fxrerr := 0.5e-30;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.1\n");
total_tests := total_tests + 1;
fxm := tan(0.1);
fxr2 := 0.1003346720854505e0;
fxrerr := 0.579e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.2\n");
total_tests := total_tests + 1;
fxm := tan(0.2);
fxr2 := 0.2027100355086719e0;
fxrerr := 0.675e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.3\n");
total_tests := total_tests + 1;
fxm := tan(0.3);
fxr2 := 0.3093362496096227e0;
fxrerr := 0.798e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.4\n");
total_tests := total_tests + 1;
fxm := tan(0.4);
fxr2 := 0.4227932187381612e0;
fxrerr := 0.952e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.5\n");
total_tests := total_tests + 1;
fxm := tan(0.5);
fxr2 := 0.5463024898437898e0;
fxrerr := 0.117e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.6\n");
total_tests := total_tests + 1;
fxm := tan(0.6);
fxr2 := 0.6841368083416911e0;
fxrerr := 0.147e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.7\n");
total_tests := total_tests + 1;
fxm := tan(0.7);
fxr2 := 0.842288380463078e0;
fxrerr := 0.194e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.8\n");
total_tests := total_tests + 1;
fxm := tan(0.8);
fxr2 := 0.1029638557050363e1;
fxrerr := 0.264e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.9\n");
total_tests := total_tests + 1;
fxm := tan(0.9);
fxr2 := 0.1260158217550338e1;
fxrerr := 0.379e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.0\n");
total_tests := total_tests + 1;
fxm := tan(1.0);
fxr2 := 0.1557407724654902e1;
fxrerr := 0.582e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.1\n");
total_tests := total_tests + 1;
fxm := tan(1.1);
fxr2 := 0.1964759657248646e1;
fxrerr := 0.966e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.2\n");
total_tests := total_tests + 1;
fxm := tan(1.2);
fxr2 := 0.2572151622126316e1;
fxrerr := 0.177e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.3\n");
total_tests := total_tests + 1;
fxm := tan(1.3);
fxr2 := 0.3602102447967968e1;
fxrerr := 0.382e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.4\n");
total_tests := total_tests + 1;
fxm := tan(1.4);
fxr2 := 0.579788371548286e1;
fxrerr := 0.111e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tan,tan,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tan,tan,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = exp apfunc = exp\n");
fprintf(except_fd,"maplefunc = exp apfunc = exp\n");
fprintf(out_fd,"x = -1.5\n");
total_tests := total_tests + 1;
fxm := exp(-1.5);
fxr2 := 0.2231301601484315e0;
fxrerr := 0.246e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.4\n");
total_tests := total_tests + 1;
fxm := exp(-1.4);
fxr2 := 0.2465969639416081e0;
fxrerr := 0.274e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.3\n");
total_tests := total_tests + 1;
fxm := exp(-1.3);
fxr2 := 0.2725317930340136e0;
fxrerr := 0.299e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.2\n");
total_tests := total_tests + 1;
fxm := exp(-1.2);
fxr2 := 0.3011942119122042e0;
fxrerr := 0.333e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.1\n");
total_tests := total_tests + 1;
fxm := exp(-1.1);
fxr2 := 0.3328710836980817e0;
fxrerr := 0.364e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.0\n");
total_tests := total_tests + 1;
fxm := exp(-1.0);
fxr2 := 0.3678794411714435e0;
fxrerr := 0.404e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.9\n");
total_tests := total_tests + 1;
fxm := exp(-0.9);
fxr2 := 0.4065696597406e0;
fxrerr := 0.218e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.8\n");
total_tests := total_tests + 1;
fxm := exp(-0.8);
fxr2 := 0.4493289641172231e0;
fxrerr := 0.24e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.7\n");
total_tests := total_tests + 1;
fxm := exp(-0.7);
fxr2 := 0.4965853037914116e0;
fxrerr := 0.261e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.6\n");
total_tests := total_tests + 1;
fxm := exp(-0.6);
fxr2 := 0.5488116360940279e0;
fxrerr := 0.293e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.5\n");
total_tests := total_tests + 1;
fxm := exp(-0.5);
fxr2 := 0.606530659712636e0;
fxrerr := 0.321e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.4\n");
total_tests := total_tests + 1;
fxm := exp(-0.4);
fxr2 := 0.6703200460356416e0;
fxrerr := 0.352e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.3\n");
total_tests := total_tests + 1;
fxm := exp(-0.3);
fxr2 := 0.7408182206817184e0;
fxrerr := 0.386e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.2\n");
total_tests := total_tests + 1;
fxm := exp(-0.2);
fxr2 := 0.818730753077985e0;
fxrerr := 0.424e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.0999999999999998\n");
total_tests := total_tests + 1;
fxm := exp(-0.0999999999999998);
fxr2 := 0.9048374180359641e0;
fxrerr := 0.459e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.94289029309402e-16\n");
total_tests := total_tests + 1;
fxm := exp(1.94289029309402e-16);
fxr2 := 0.1e1;
fxrerr := 0.1e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.1\n");
total_tests := total_tests + 1;
fxm := exp(0.1);
fxr2 := 0.1105170918075644e1;
fxrerr := 0.715e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.2\n");
total_tests := total_tests + 1;
fxm := exp(0.2);
fxr2 := 0.1221402758160165e1;
fxrerr := 0.848e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.3\n");
total_tests := total_tests + 1;
fxm := exp(0.3);
fxr2 := 0.1349858807576002e1;
fxrerr := 0.995e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.4\n");
total_tests := total_tests + 1;
fxm := exp(0.4);
fxr2 := 0.1491824697641265e1;
fxrerr := 0.115e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.5\n");
total_tests := total_tests + 1;
fxm := exp(0.5);
fxr2 := 0.1648721270700121e1;
fxrerr := 0.134e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.6\n");
total_tests := total_tests + 1;
fxm := exp(0.6);
fxr2 := 0.1822118800390504e1;
fxrerr := 0.155e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.7\n");
total_tests := total_tests + 1;
fxm := exp(0.7);
fxr2 := 0.2013752707470468e1;
fxrerr := 0.178e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.8\n");
total_tests := total_tests + 1;
fxm := exp(0.8);
fxr2 := 0.222554092849246e1;
fxrerr := 0.206e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.9\n");
total_tests := total_tests + 1;
fxm := exp(0.9);
fxr2 := 0.2459603111156944e1;
fxrerr := 0.234e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.0\n");
total_tests := total_tests + 1;
fxm := exp(1.0);
fxr2 := 0.2718281828459036e1;
fxrerr := 0.54e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.1\n");
total_tests := total_tests + 1;
fxm := exp(1.1);
fxr2 := 0.3004166023946413e1;
fxrerr := 0.623e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.2\n");
total_tests := total_tests + 1;
fxm := exp(1.2);
fxr2 := 0.3320116922736523e1;
fxrerr := 0.706e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.3\n");
total_tests := total_tests + 1;
fxm := exp(1.3);
fxr2 := 0.3669296667619228e1;
fxrerr := 0.792e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.4\n");
total_tests := total_tests + 1;
fxm := exp(1.4);
fxr2 := 0.4055199966844646e1;
fxrerr := 0.898e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = exp apfunc = exp\n");
fprintf(except_fd,"maplefunc = exp apfunc = exp\n");
fprintf(out_fd,"x = -100.5\n");
total_tests := total_tests + 1;
fxm := exp(-100.5);
fxr2 := 0.2256340135917772e-43;
fxrerr := 0.526e-55;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-100.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-100.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -90.4\n");
total_tests := total_tests + 1;
fxm := exp(-90.4);
fxr2 := 0.5492610919331543e-39;
fxrerr := 0.13e-50;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-90.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-90.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -80.3\n");
total_tests := total_tests + 1;
fxm := exp(-80.3);
fxr2 := 0.1337066793738915e-34;
fxrerr := 0.323e-46;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-80.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-80.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -70.2\n");
total_tests := total_tests + 1;
fxm := exp(-70.2);
fxr2 := 0.3254822956104898e-30;
fxrerr := 0.803e-42;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-70.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-70.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -60.1\n");
total_tests := total_tests + 1;
fxm := exp(-60.1);
fxr2 := 0.7923218589523972e-26;
fxrerr := 0.199e-37;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-60.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-60.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -50.0\n");
total_tests := total_tests + 1;
fxm := exp(-50.0);
fxr2 := 0.1928749847963995e-21;
fxrerr := 0.201e-32;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-50.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-50.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -39.9\n");
total_tests := total_tests + 1;
fxm := exp(-39.9);
fxr2 := 0.4695157572631791e-17;
fxrerr := 0.125e-28;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-39.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-39.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -29.8\n");
total_tests := total_tests + 1;
fxm := exp(-29.8);
fxr2 := 0.1142942650396545e-12;
fxrerr := 0.141e-23;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-29.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-29.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -19.7\n");
total_tests := total_tests + 1;
fxm := exp(-19.7);
fxr2 := 0.2782266371016052e-8;
fxrerr := 0.321e-19;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-19.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-19.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.60000000000001\n");
total_tests := total_tests + 1;
fxm := exp(-9.60000000000001);
fxr2 := 0.6772873649085537e-4;
fxrerr := 0.118e-15;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,-9.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,-9.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.499999999999989\n");
total_tests := total_tests + 1;
fxm := exp(0.499999999999989);
fxr2 := 0.1648721270700102e1;
fxrerr := 0.985e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,0.499999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,0.499999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 10.6\n");
total_tests := total_tests + 1;
fxm := exp(10.6);
fxr2 := 0.4013483743087425e5;
fxrerr := 0.782e-7;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,10.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,10.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 20.7\n");
total_tests := total_tests + 1;
fxm := exp(20.7);
fxr2 := 0.9770027258268334e9;
fxrerr := 0.279e-2;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,20.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,20.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 30.8\n");
total_tests := total_tests + 1;
fxm := exp(30.8);
fxr2 := 0.2378318656247446e14;
fxrerr := 0.892e2;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,30.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,30.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 40.9\n");
total_tests := total_tests + 1;
fxm := exp(40.9);
fxr2 := 0.5789543346327584e18;
fxrerr := 0.269e7;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,40.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,40.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 51.0\n");
total_tests := total_tests + 1;
fxm := exp(51.0);
fxr2 := 0.1409349082426681e23;
fxrerr := 0.783e11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,51.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,51.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 61.1\n");
total_tests := total_tests + 1;
fxm := exp(61.1);
fxr2 := 0.3430779799579264e27;
fxrerr := 0.219e16;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,61.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,61.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 71.2\n");
total_tests := total_tests + 1;
fxm := exp(71.2);
fxr2 := 0.8351550499422485e31;
fxrerr := 0.605e20;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,71.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,71.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 81.3\n");
total_tests := total_tests + 1;
fxm := exp(81.3);
fxr2 := 0.2033018725158574e36;
fxrerr := 0.163e25;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,81.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,81.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 91.4\n");
total_tests := total_tests + 1;
fxm := exp(91.4);
fxr2 := 0.4948979398653194e40;
fxrerr := 0.437e29;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(exp,exp,91.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(exp,exp,91.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = arcsin apfunc = asin\n");
fprintf(except_fd,"maplefunc = arcsin apfunc = asin\n");
fprintf(out_fd,"x = -1.0\n");
total_tests := total_tests + 1;
fxm := arcsin(-1.0);
fxr2 := -0.157079632679489e1;
fxrerr := 0.549e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.9\n");
total_tests := total_tests + 1;
fxm := arcsin(-0.9);
fxr2 := -0.111976951499808e1;
fxrerr := 0.114e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.8\n");
total_tests := total_tests + 1;
fxm := arcsin(-0.8);
fxr2 := -0.927295218001581e0;
fxrerr := 0.833e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.7\n");
total_tests := total_tests + 1;
fxm := arcsin(-0.7);
fxr2 := -0.775397496610733e0;
fxrerr := 0.7e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.6\n");
total_tests := total_tests + 1;
fxm := arcsin(-0.6);
fxr2 := -0.643501108793271e0;
fxrerr := 0.624e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.5\n");
total_tests := total_tests + 1;
fxm := arcsin(-0.5);
fxr2 := -0.523598775598287e0;
fxrerr := 0.577e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.4\n");
total_tests := total_tests + 1;
fxm := arcsin(-0.4);
fxr2 := -0.411516846067479e0;
fxrerr := 0.545e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.3\n");
total_tests := total_tests + 1;
fxm := arcsin(-0.3);
fxr2 := -0.304692654015393e0;
fxrerr := 0.524e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.2\n");
total_tests := total_tests + 1;
fxm := arcsin(-0.2);
fxr2 := -0.201357920790326e0;
fxrerr := 0.51e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.1\n");
total_tests := total_tests + 1;
fxm := arcsin(-0.1);
fxr2 := -0.100167421161555e0;
fxrerr := 0.502e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,-0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,-0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.38777878078145e-16\n");
total_tests := total_tests + 1;
fxm := arcsin(-1.38777878078145e-16);
fxr2 := 0.0e0;
fxrerr := 0.50e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,-1.38777878078145e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,-1.38777878078145e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.0999999999999999\n");
total_tests := total_tests + 1;
fxm := arcsin(0.0999999999999999);
fxr2 := 0.1001674211615594e0;
fxrerr := 0.502e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,0.0999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,0.0999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.2\n");
total_tests := total_tests + 1;
fxm := arcsin(0.2);
fxr2 := 0.2013579207903303e0;
fxrerr := 0.51e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.3\n");
total_tests := total_tests + 1;
fxm := arcsin(0.3);
fxr2 := 0.3046926540153969e0;
fxrerr := 0.524e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.4\n");
total_tests := total_tests + 1;
fxm := arcsin(0.4);
fxr2 := 0.411516846067487e0;
fxrerr := 0.545e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.5\n");
total_tests := total_tests + 1;
fxm := arcsin(0.5);
fxr2 := 0.5235987755982976e0;
fxrerr := 0.577e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.6\n");
total_tests := total_tests + 1;
fxm := arcsin(0.6);
fxr2 := 0.6435011087932828e0;
fxrerr := 0.624e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.7\n");
total_tests := total_tests + 1;
fxm := arcsin(0.7);
fxr2 := 0.7753974966107509e0;
fxrerr := 0.7e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.8\n");
total_tests := total_tests + 1;
fxm := arcsin(0.8);
fxr2 := 0.927295218001609e0;
fxrerr := 0.833e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.9\n");
total_tests := total_tests + 1;
fxm := arcsin(0.9);
fxr2 := 0.111976951499857e1;
fxrerr := 0.114e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.0\n");
total_tests := total_tests + 1;
fxm := arcsin(1.0);
fxr2 := 0.1570796326794892e1;
fxrerr := 0.549e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arcsin,asin,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arcsin,asin,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = arccos apfunc = acos\n");
fprintf(except_fd,"maplefunc = arccos apfunc = acos\n");
fprintf(out_fd,"x = -1.0\n");
total_tests := total_tests + 1;
fxm := arccos(-1.0);
fxr2 := 0.3141592653589782e1;
fxrerr := 0.109e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.9\n");
total_tests := total_tests + 1;
fxm := arccos(-0.9);
fxr2 := 0.2690565841792972e1;
fxrerr := 0.119e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.8\n");
total_tests := total_tests + 1;
fxm := arccos(-0.8);
fxr2 := 0.2498091544796473e1;
fxrerr := 0.887e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.7\n");
total_tests := total_tests + 1;
fxm := arccos(-0.7);
fxr2 := 0.2346193823405625e1;
fxrerr := 0.754e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.6\n");
total_tests := total_tests + 1;
fxm := arccos(-0.6);
fxr2 := 0.2214297435588163e1;
fxrerr := 0.678e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.5\n");
total_tests := total_tests + 1;
fxm := arccos(-0.5);
fxr2 := 0.2094395102393179e1;
fxrerr := 0.631e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.4\n");
total_tests := total_tests + 1;
fxm := arccos(-0.4);
fxr2 := 0.1982313172862371e1;
fxrerr := 0.599e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.3\n");
total_tests := total_tests + 1;
fxm := arccos(-0.3);
fxr2 := 0.1875488980810285e1;
fxrerr := 0.578e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.2\n");
total_tests := total_tests + 1;
fxm := arccos(-0.2);
fxr2 := 0.1772154247585218e1;
fxrerr := 0.564e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.1\n");
total_tests := total_tests + 1;
fxm := arccos(-0.1);
fxr2 := 0.1670963747956447e1;
fxrerr := 0.556e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,-0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,-0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.38777878078145e-16\n");
total_tests := total_tests + 1;
fxm := arccos(-1.38777878078145e-16);
fxr2 := 0.1570796326794892e1;
fxrerr := 0.549e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,-1.38777878078145e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,-1.38777878078145e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.0999999999999999\n");
total_tests := total_tests + 1;
fxm := arccos(0.0999999999999999);
fxr2 := 0.1470628905633332e1;
fxrerr := 0.105e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,0.0999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,0.0999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.2\n");
total_tests := total_tests + 1;
fxm := arccos(0.2);
fxr2 := 0.1369438406004561e1;
fxrerr := 0.105e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.3\n");
total_tests := total_tests + 1;
fxm := arccos(0.3);
fxr2 := 0.1266103672779495e1;
fxrerr := 0.107e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.4\n");
total_tests := total_tests + 1;
fxm := arccos(0.4);
fxr2 := 0.1159279480727405e1;
fxrerr := 0.109e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.5\n");
total_tests := total_tests + 1;
fxm := arccos(0.5);
fxr2 := 0.1047197551196594e1;
fxrerr := 0.112e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.6\n");
total_tests := total_tests + 1;
fxm := arccos(0.6);
fxr2 := 0.9272952180016092e0;
fxrerr := 0.117e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.7\n");
total_tests := total_tests + 1;
fxm := arccos(0.7);
fxr2 := 0.7953988301841411e0;
fxrerr := 0.124e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.8\n");
total_tests := total_tests + 1;
fxm := arccos(0.8);
fxr2 := 0.643501108793283e0;
fxrerr := 0.138e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.9\n");
total_tests := total_tests + 1;
fxm := arccos(0.9);
fxr2 := 0.451026811796322e0;
fxrerr := 0.168e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.0\n");
total_tests := total_tests + 1;
fxm := arccos(1.0);
fxr2 := 0.0e0;
fxrerr := 0.1098e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arccos,acos,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arccos,acos,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = arctan apfunc = atan\n");
fprintf(except_fd,"maplefunc = arctan apfunc = atan\n");
fprintf(out_fd,"x = -10.5\n");
total_tests := total_tests + 1;
fxm := arctan(-10.5);
fxr2 := -0.147584462045213e1;
fxrerr := 0.1e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-10.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-10.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.4\n");
total_tests := total_tests + 1;
fxm := arctan(-10.4);
fxr2 := -0.147493717968487e1;
fxrerr := 0.101e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-10.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-10.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.3\n");
total_tests := total_tests + 1;
fxm := arctan(-10.3);
fxr2 := -0.147401228168741e1;
fxrerr := 0.102e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-10.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-10.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.2\n");
total_tests := total_tests + 1;
fxm := arctan(-10.2);
fxr2 := -0.147306941943617e1;
fxrerr := 0.102e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-10.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-10.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.1\n");
total_tests := total_tests + 1;
fxm := arctan(-10.1);
fxr2 := -0.147210806614648e1;
fxrerr := 0.103e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-10.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-10.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.0\n");
total_tests := total_tests + 1;
fxm := arctan(-10.0);
fxr2 := -0.147112767430372e1;
fxrerr := 0.104e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-10.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-10.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.9\n");
total_tests := total_tests + 1;
fxm := arctan(-9.9);
fxr2 := -0.147012767463706e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-9.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-9.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.8\n");
total_tests := total_tests + 1;
fxm := arctan(-9.8);
fxr2 := -0.146910747503182e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-9.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-9.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.7\n");
total_tests := total_tests + 1;
fxm := arctan(-9.7);
fxr2 := -0.146806645937622e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-9.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-9.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.6\n");
total_tests := total_tests + 1;
fxm := arctan(-9.6);
fxr2 := -0.146700398633785e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-9.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-9.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.5\n");
total_tests := total_tests + 1;
fxm := arctan(-9.5);
fxr2 := -0.146591938806466e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-9.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-9.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.4\n");
total_tests := total_tests + 1;
fxm := arctan(-9.4);
fxr2 := -0.146481196880529e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-9.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-9.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.3\n");
total_tests := total_tests + 1;
fxm := arctan(-9.3);
fxr2 := -0.146368100344266e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-9.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-9.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.2\n");
total_tests := total_tests + 1;
fxm := arctan(-9.2);
fxr2 := -0.146252573593444e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-9.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-9.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.1\n");
total_tests := total_tests + 1;
fxm := arctan(-9.1);
fxr2 := -0.146134537765353e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-9.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-9.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.00000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-9.00000000000001);
fxr2 := -0.1460139105621e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-9.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-9.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.90000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-8.90000000000001);
fxr2 := -0.145890606062322e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-8.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-8.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.80000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-8.80000000000001);
fxr2 := -0.145764534520441e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-8.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-8.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.70000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-8.70000000000001);
fxr2 := -0.145635602152483e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-8.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-8.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.60000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-8.60000000000001);
fxr2 := -0.145503710907408e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-8.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-8.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.50000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-8.50000000000001);
fxr2 := -0.145368758222803e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-8.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-8.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.40000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-8.40000000000001);
fxr2 := -0.145230636763676e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-8.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-8.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.30000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-8.30000000000001);
fxr2 := -0.145089234142987e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-8.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-8.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.20000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-8.20000000000001);
fxr2 := -0.144944432622413e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-8.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-8.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.10000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-8.10000000000001);
fxr2 := -0.1447961087917e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-8.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-8.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.00000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-8.00000000000001);
fxr2 := -0.144644133224813e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-8.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-8.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -7.90000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-7.90000000000001);
fxr2 := -0.14448837011091e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-7.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-7.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -7.80000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-7.80000000000001);
fxr2 := -0.144328676857965e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-7.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-7.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -7.70000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-7.70000000000001);
fxr2 := -0.144164903666687e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-7.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-7.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -7.60000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-7.60000000000001);
fxr2 := -0.143996893072084e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-7.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-7.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -7.50000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-7.50000000000001);
fxr2 := -0.143824479449822e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-7.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-7.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -7.40000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-7.40000000000001);
fxr2 := -0.143647488484193e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-7.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-7.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -7.30000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-7.30000000000001);
fxr2 := -0.143465736594176e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-7.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-7.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -7.20000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-7.20000000000001);
fxr2 := -0.143279030313738e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-7.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-7.20000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -7.10000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-7.10000000000001);
fxr2 := -0.143087165622078e1;
fxrerr := 0.554e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-7.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-7.10000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -7.00000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-7.00000000000001);
fxr2 := -0.142889927219073e1;
fxrerr := 0.655e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-7.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-7.00000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -6.90000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-6.90000000000001);
fxr2 := -0.142687087740668e1;
fxrerr := 0.658e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-6.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-6.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -6.80000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-6.80000000000001);
fxr2 := -0.142478406908362e1;
fxrerr := 0.661e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-6.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-6.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -6.70000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-6.70000000000001);
fxr2 := -0.142263630606306e1;
fxrerr := 0.664e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-6.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-6.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -6.60000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-6.60000000000001);
fxr2 := -0.142042489878776e1;
fxrerr := 0.668e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-6.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-6.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -6.50000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-6.50000000000001);
fxr2 := -0.141814699839963e1;
fxrerr := 0.672e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-6.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-6.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -6.40000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-6.40000000000001);
fxr2 := -0.141579958487095e1;
fxrerr := 0.674e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-6.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-6.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -6.30000000000001\n");
total_tests := total_tests + 1;
fxm := arctan(-6.30000000000001);
fxr2 := -0.141337945406831e1;
fxrerr := 0.678e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-6.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-6.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -6.20000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-6.20000000000002);
fxr2 := -0.141088320363668e1;
fxrerr := 0.683e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-6.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-6.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -6.10000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-6.10000000000002);
fxr2 := -0.140830721757769e1;
fxrerr := 0.687e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-6.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-6.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -6.00000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-6.00000000000002);
fxr2 := -0.140564764938027e1;
fxrerr := 0.692e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-6.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-6.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.90000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-5.90000000000002);
fxr2 := -0.140290040354452e1;
fxrerr := 0.696e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-5.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-5.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.80000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-5.80000000000002);
fxr2 := -0.140006111531961e1;
fxrerr := 0.701e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-5.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-5.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.70000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-5.70000000000002);
fxr2 := -0.139712512845332e1;
fxrerr := 0.706e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-5.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-5.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.60000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-5.60000000000002);
fxr2 := -0.139408747072486e1;
fxrerr := 0.711e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-5.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-5.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.50000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-5.50000000000002);
fxr2 := -0.139094282700242e1;
fxrerr := 0.717e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-5.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-5.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.40000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-5.40000000000002);
fxr2 := -0.138768550953241e1;
fxrerr := 0.723e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-5.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-5.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.30000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-5.30000000000002);
fxr2 := -0.138430942512768e1;
fxrerr := 0.729e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-5.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-5.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.20000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-5.20000000000002);
fxr2 := -0.138080803887618e1;
fxrerr := 0.736e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-5.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-5.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.10000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-5.10000000000002);
fxr2 := -0.137717433393895e1;
fxrerr := 0.743e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-5.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-5.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -5.00000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-5.00000000000002);
fxr2 := -0.137340076694502e1;
fxrerr := 0.750e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-5.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-5.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.90000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-4.90000000000002);
fxr2 := -0.136947921842026e1;
fxrerr := 0.758e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-4.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-4.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.80000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-4.80000000000002);
fxr2 := -0.136540093760513e1;
fxrerr := 0.766e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-4.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-4.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.70000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-4.70000000000002);
fxr2 := -0.136115648092069e1;
fxrerr := 0.774e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-4.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-4.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.60000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-4.60000000000002);
fxr2 := -0.135673564323108e1;
fxrerr := 0.784e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-4.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-4.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.50000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-4.50000000000002);
fxr2 := -0.135212738092096e1;
fxrerr := 0.794e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-4.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-4.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.40000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-4.40000000000002);
fxr2 := -0.134731972565427e1;
fxrerr := 0.804e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-4.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-4.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.30000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-4.30000000000002);
fxr2 := -0.134229968750304e1;
fxrerr := 0.816e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-4.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-4.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.20000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-4.20000000000002);
fxr2 := -0.1337053145926e1;
fxrerr := 0.828e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-4.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-4.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.10000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-4.10000000000002);
fxr2 := -0.133156472683124e1;
fxrerr := 0.840e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-4.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-4.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -4.00000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-4.00000000000002);
fxr2 := -0.132581766366804e1;
fxrerr := 0.854e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-4.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-4.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.90000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-3.90000000000002);
fxr2 := -0.131979364015187e1;
fxrerr := 0.868e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-3.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-3.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.80000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-3.80000000000002);
fxr2 := -0.131347261182381e1;
fxrerr := 0.884e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-3.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-3.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.70000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-3.70000000000002);
fxr2 := -0.13068326031692e1;
fxrerr := 0.901e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-3.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-3.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.60000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-3.60000000000002);
fxr2 := -0.129984947645648e1;
fxrerr := 0.919e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-3.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-3.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.50000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-3.50000000000002);
fxr2 := -0.129249666778979e1;
fxrerr := 0.939e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-3.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-3.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.40000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-3.40000000000002);
fxr2 := -0.128474488507758e1;
fxrerr := 0.960e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-3.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-3.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.30000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-3.30000000000002);
fxr2 := -0.127656176168371e1;
fxrerr := 0.983e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-3.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-3.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.20000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-3.20000000000002);
fxr2 := -0.126791145841993e1;
fxrerr := 0.1e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-3.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-3.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.10000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-3.10000000000002);
fxr2 := -0.125875420523237e1;
fxrerr := 0.103e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-3.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-3.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -3.00000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-3.00000000000002);
fxr2 := -0.124904577239826e1;
fxrerr := 0.106e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-3.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-3.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.90000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-2.90000000000002);
fxr2 := -0.123873685925202e1;
fxrerr := 0.109e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-2.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-2.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.80000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-2.80000000000002);
fxr2 := -0.12277723863742e1;
fxrerr := 0.112e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-2.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-2.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.70000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-2.70000000000002);
fxr2 := -0.121609067478396e1;
fxrerr := 0.116e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-2.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-2.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.60000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-2.60000000000002);
fxr2 := -0.120362249297669e1;
fxrerr := 0.12e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-2.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-2.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.50000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-2.50000000000002);
fxr2 := -0.119028994968254e1;
fxrerr := 0.125e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-2.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-2.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.40000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-2.40000000000002);
fxr2 := -0.117600520709515e1;
fxrerr := 0.13e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-2.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-2.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.30000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-2.30000000000002);
fxr2 := -0.116066898625342e1;
fxrerr := 0.136e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-2.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-2.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.20000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-2.20000000000002);
fxr2 := -0.114416883366804e1;
fxrerr := 0.141e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-2.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-2.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.10000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-2.10000000000002);
fxr2 := -0.112637711689381e1;
fxrerr := 0.148e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-2.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-2.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -2.00000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-2.00000000000002);
fxr2 := -0.110714871779411e1;
fxrerr := 0.155e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-2.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-2.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.90000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-1.90000000000002);
fxr2 := -0.108631839775789e1;
fxrerr := 0.164e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-1.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-1.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.80000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-1.80000000000002);
fxr2 := -0.106369782240258e1;
fxrerr := 0.173e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-1.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-1.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.70000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-1.70000000000002);
fxr2 := -0.103907225953611e1;
fxrerr := 0.184e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-1.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-1.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.60000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-1.60000000000002);
fxr2 := -0.101219701145135e1;
fxrerr := 0.196e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-1.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-1.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.50000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-1.50000000000002);
fxr2 := -0.982793723247352e0;
fxrerr := 0.209e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-1.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-1.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.40000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-1.40000000000002);
fxr2 := -0.950546840812101e0;
fxrerr := 0.224e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-1.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-1.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.30000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-1.30000000000002);
fxr2 := -0.915100700553391e0;
fxrerr := 0.241e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-1.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-1.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.20000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-1.20000000000002);
fxr2 := -0.876058050598234e0;
fxrerr := 0.261e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-1.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-1.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.10000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-1.10000000000002);
fxr2 := -0.832981266674513e0;
fxrerr := 0.282e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-1.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-1.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.00000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-1.00000000000002);
fxr2 := -0.157079632679489e1;
fxrerr := 0.133e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-1.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-1.00000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.90000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-0.90000000000002);
fxr2 := -0.732815101786443e0;
fxrerr := 0.276e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-0.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-0.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.80000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-0.80000000000002);
fxr2 := -0.67474094222353e0;
fxrerr := 0.304e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-0.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-0.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.70000000000002\n");
total_tests := total_tests + 1;
fxm := arctan(-0.70000000000002);
fxr2 := -0.610725964389198e0;
fxrerr := 0.335e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-0.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-0.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.600000000000021\n");
total_tests := total_tests + 1;
fxm := arctan(-0.600000000000021);
fxr2 := -0.540419500270572e0;
fxrerr := 0.367e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(arctan,atan,-0.600000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(arctan,atan,-0.600000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = ln apfunc = log\n");
fprintf(except_fd,"maplefunc = ln apfunc = log\n");
fprintf(out_fd,"x = 0.01\n");
total_tests := total_tests + 1;
fxm := ln(0.01);
fxr2 := -0.460517018598672e1;
fxrerr := 0.551e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.11\n");
total_tests := total_tests + 1;
fxm := ln(0.11);
fxr2 := -0.220727491318849e1;
fxrerr := 0.454e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.21\n");
total_tests := total_tests + 1;
fxm := ln(0.21);
fxr2 := -0.156064774826403e1;
fxrerr := 0.238e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,0.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,0.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.31\n");
total_tests := total_tests + 1;
fxm := ln(0.31);
fxr2 := -0.11711829815026e1;
fxrerr := 0.161e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,0.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,0.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.41\n");
total_tests := total_tests + 1;
fxm := ln(0.41);
fxr2 := -0.891598119283752e0;
fxrerr := 0.121e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,0.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,0.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.51\n");
total_tests := total_tests + 1;
fxm := ln(0.51);
fxr2 := -0.67334455326375e0;
fxrerr := 0.98e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.61\n");
total_tests := total_tests + 1;
fxm := ln(0.61);
fxr2 := -0.494296321814763e0;
fxrerr := 0.819e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.71\n");
total_tests := total_tests + 1;
fxm := ln(0.71);
fxr2 := -0.342490308946765e0;
fxrerr := 0.704e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.81\n");
total_tests := total_tests + 1;
fxm := ln(0.81);
fxr2 := -0.210721031315645e0;
fxrerr := 0.617e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,0.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,0.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.91\n");
total_tests := total_tests + 1;
fxm := ln(0.91);
fxr2 := -0.943106794712409e-1;
fxrerr := 0.549e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,0.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,0.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.01\n");
total_tests := total_tests + 1;
fxm := ln(1.01);
fxr2 := 0.9950330854447e-2;
fxrerr := 0.546e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.11\n");
total_tests := total_tests + 1;
fxm := ln(1.11);
fxr2 := 0.104360015325457e0;
fxrerr := 0.501e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.21\n");
total_tests := total_tests + 1;
fxm := ln(1.21);
fxr2 := 0.190620359609707e0;
fxrerr := 0.464e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,1.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,1.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.31\n");
total_tests := total_tests + 1;
fxm := ln(1.31);
fxr2 := 0.270027137214057e0;
fxrerr := 0.432e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,1.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,1.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.41\n");
total_tests := total_tests + 1;
fxm := ln(1.41);
fxr2 := 0.343589704391027e0;
fxrerr := 0.405e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,1.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,1.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.51\n");
total_tests := total_tests + 1;
fxm := ln(1.51);
fxr2 := 0.412109650827597e0;
fxrerr := 0.382e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,1.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,1.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.61\n");
total_tests := total_tests + 1;
fxm := ln(1.61);
fxr2 := 0.476234178997177e0;
fxrerr := 0.361e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,1.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,1.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.71\n");
total_tests := total_tests + 1;
fxm := ln(1.71);
fxr2 := 0.536493370515277e0;
fxrerr := 0.343e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,1.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,1.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.81\n");
total_tests := total_tests + 1;
fxm := ln(1.81);
fxr2 := 0.593326845278397e0;
fxrerr := 0.327e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,1.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,1.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.91\n");
total_tests := total_tests + 1;
fxm := ln(1.91);
fxr2 := 0.647103242059147e0;
fxrerr := 0.312e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,1.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,1.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.01\n");
total_tests := total_tests + 1;
fxm := ln(2.01);
fxr2 := 0.698134722071587e0;
fxrerr := 0.299e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,2.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,2.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.11\n");
total_tests := total_tests + 1;
fxm := ln(2.11);
fxr2 := 0.746687947488527e0;
fxrerr := 0.287e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,2.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,2.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.21\n");
total_tests := total_tests + 1;
fxm := ln(2.21);
fxr2 := 0.792992515530217e0;
fxrerr := 0.277e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,2.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,2.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.31\n");
total_tests := total_tests + 1;
fxm := ln(2.31);
fxr2 := 0.837247524534197e0;
fxrerr := 0.267e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,2.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,2.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.41\n");
total_tests := total_tests + 1;
fxm := ln(2.41);
fxr2 := 0.879626747503057e0;
fxrerr := 0.258e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,2.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,2.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.51\n");
total_tests := total_tests + 1;
fxm := ln(2.51);
fxr2 := 0.920282753144147e0;
fxrerr := 0.25e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,2.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,2.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.61\n");
total_tests := total_tests + 1;
fxm := ln(2.61);
fxr2 := 0.959350221334997e0;
fxrerr := 0.242e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,2.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,2.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.71\n");
total_tests := total_tests + 1;
fxm := ln(2.71);
fxr2 := 0.996948634892017e0;
fxrerr := 0.235e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,2.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,2.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.81\n");
total_tests := total_tests + 1;
fxm := ln(2.81);
fxr2 := 0.1033184483346067e1;
fxrerr := 0.228e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,2.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,2.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.91\n");
total_tests := total_tests + 1;
fxm := ln(2.91);
fxr2 := 0.1068153081183817e1;
fxrerr := 0.222e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,2.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,2.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.01\n");
total_tests := total_tests + 1;
fxm := ln(3.01);
fxr2 := 0.1101940078761157e1;
fxrerr := 0.217e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,3.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,3.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.11\n");
total_tests := total_tests + 1;
fxm := ln(3.11);
fxr2 := 0.1134622726191527e1;
fxrerr := 0.211e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,3.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,3.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.21\n");
total_tests := total_tests + 1;
fxm := ln(3.21);
fxr2 := 0.1166270937142287e1;
fxrerr := 0.206e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,3.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,3.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.31\n");
total_tests := total_tests + 1;
fxm := ln(3.31);
fxr2 := 0.1196948189389307e1;
fxrerr := 0.202e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,3.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,3.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.41\n");
total_tests := total_tests + 1;
fxm := ln(3.41);
fxr2 := 0.1226712291295717e1;
fxrerr := 0.197e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,3.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,3.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.51\n");
total_tests := total_tests + 1;
fxm := ln(3.51);
fxr2 := 0.1255616037478027e1;
fxrerr := 0.193e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,3.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,3.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.61\n");
total_tests := total_tests + 1;
fxm := ln(3.61);
fxr2 := 0.1283707772345067e1;
fxrerr := 0.189e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,3.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,3.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.71\n");
total_tests := total_tests + 1;
fxm := ln(3.71);
fxr2 := 0.131103187661934e1;
fxrerr := 0.185e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,3.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,3.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.81\n");
total_tests := total_tests + 1;
fxm := ln(3.81);
fxr2 := 0.1337629189138602e1;
fxrerr := 0.182e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,3.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,3.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.91\n");
total_tests := total_tests + 1;
fxm := ln(3.91);
fxr2 := 0.1363537373997268e1;
fxrerr := 0.178e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,3.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,3.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.01\n");
total_tests := total_tests + 1;
fxm := ln(4.01);
fxr2 := 0.1388791241318469e1;
fxrerr := 0.175e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,4.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,4.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.11\n");
total_tests := total_tests + 1;
fxm := ln(4.11);
fxr2 := 0.1413423028508131e1;
fxrerr := 0.172e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,4.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,4.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.21\n");
total_tests := total_tests + 1;
fxm := ln(4.21);
fxr2 := 0.1437462647694281e1;
fxrerr := 0.169e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,4.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,4.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.31\n");
total_tests := total_tests + 1;
fxm := ln(4.31);
fxr2 := 0.1460937904115645e1;
fxrerr := 0.167e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,4.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,4.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.41\n");
total_tests := total_tests + 1;
fxm := ln(4.41);
fxr2 := 0.148387468945874e1;
fxrerr := 0.164e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,4.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,4.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.51\n");
total_tests := total_tests + 1;
fxm := ln(4.51);
fxr2 := 0.1506297153514571e1;
fxrerr := 0.161e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,4.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,4.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.61\n");
total_tests := total_tests + 1;
fxm := ln(4.61);
fxr2 := 0.1528227857008546e1;
fxrerr := 0.159e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.71\n");
total_tests := total_tests + 1;
fxm := ln(4.71);
fxr2 := 0.1549687908028314e1;
fxrerr := 0.157e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.81\n");
total_tests := total_tests + 1;
fxm := ln(4.81);
fxr2 := 0.1570697084117657e1;
fxrerr := 0.154e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.91\n");
total_tests := total_tests + 1;
fxm := ln(4.91);
fxr2 := 0.1591273941806415e1;
fxrerr := 0.152e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,4.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,4.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.01\n");
total_tests := total_tests + 1;
fxm := ln(5.01);
fxr2 := 0.1611435915096756e1;
fxrerr := 0.15e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,5.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,5.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.11\n");
total_tests := total_tests + 1;
fxm := ln(5.11);
fxr2 := 0.1631199404215591e1;
fxrerr := 0.148e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,5.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,5.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.21\n");
total_tests := total_tests + 1;
fxm := ln(5.21);
fxr2 := 0.1650579855765255e1;
fxrerr := 0.147e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,5.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,5.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.31\n");
total_tests := total_tests + 1;
fxm := ln(5.31);
fxr2 := 0.1669591835253832e1;
fxrerr := 0.145e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,5.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,5.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.41\n");
total_tests := total_tests + 1;
fxm := ln(5.41);
fxr2 := 0.1688249092858374e1;
fxrerr := 0.143e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,5.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,5.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.51\n");
total_tests := total_tests + 1;
fxm := ln(5.51);
fxr2 := 0.1706564623164806e1;
fxrerr := 0.141e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,5.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,5.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.61\n");
total_tests := total_tests + 1;
fxm := ln(5.61);
fxr2 := 0.1724550719534583e1;
fxrerr := 0.14e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,5.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,5.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.71\n");
total_tests := total_tests + 1;
fxm := ln(5.71);
fxr2 := 0.1742219023667897e1;
fxrerr := 0.138e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,5.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,5.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.81\n");
total_tests := total_tests + 1;
fxm := ln(5.81);
fxr2 := 0.1759580570863802e1;
fxrerr := 0.137e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,5.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,5.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.91\n");
total_tests := total_tests + 1;
fxm := ln(5.91);
fxr2 := 0.1776645831417987e1;
fxrerr := 0.135e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,5.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,5.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.01\n");
total_tests := total_tests + 1;
fxm := ln(6.01);
fxr2 := 0.1793424748547095e1;
fxrerr := 0.134e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,6.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,6.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.10999999999999\n");
total_tests := total_tests + 1;
fxm := ln(6.10999999999999);
fxr2 := 0.1809926773183481e1;
fxrerr := 0.132e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,6.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,6.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.20999999999999\n");
total_tests := total_tests + 1;
fxm := ln(6.20999999999999);
fxr2 := 0.1826160895945364e1;
fxrerr := 0.131e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,6.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,6.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.30999999999999\n");
total_tests := total_tests + 1;
fxm := ln(6.30999999999999);
fxr2 := 0.1842135676553098e1;
fxrerr := 0.13e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,6.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,6.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.40999999999999\n");
total_tests := total_tests + 1;
fxm := ln(6.40999999999999);
fxr2 := 0.1857859270932554e1;
fxrerr := 0.129e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,6.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,6.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.50999999999999\n");
total_tests := total_tests + 1;
fxm := ln(6.50999999999999);
fxr2 := 0.1873339456220453e1;
fxrerr := 0.127e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,6.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,6.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.60999999999999\n");
total_tests := total_tests + 1;
fxm := ln(6.60999999999999);
fxr2 := 0.1888583653863568e1;
fxrerr := 0.126e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,6.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,6.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.70999999999999\n");
total_tests := total_tests + 1;
fxm := ln(6.70999999999999);
fxr2 := 0.1903598950983563e1;
fxrerr := 0.125e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,6.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,6.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.80999999999999\n");
total_tests := total_tests + 1;
fxm := ln(6.80999999999999);
fxr2 := 0.1918392120161394e1;
fxrerr := 0.124e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,6.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,6.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.90999999999999\n");
total_tests := total_tests + 1;
fxm := ln(6.90999999999999);
fxr2 := 0.1932969637779551e1;
fxrerr := 0.123e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,6.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,6.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.00999999999999\n");
total_tests := total_tests + 1;
fxm := ln(7.00999999999999);
fxr2 := 0.1947337701046473e1;
fxrerr := 0.122e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,7.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,7.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.10999999999999\n");
total_tests := total_tests + 1;
fxm := ln(7.10999999999999);
fxr2 := 0.196150224381512e1;
fxrerr := 0.121e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,7.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,7.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.20999999999999\n");
total_tests := total_tests + 1;
fxm := ln(7.20999999999999);
fxr2 := 0.1975468951296829e1;
fxrerr := 0.12e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,7.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,7.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.30999999999999\n");
total_tests := total_tests + 1;
fxm := ln(7.30999999999999);
fxr2 := 0.198924327376166e1;
fxrerr := 0.119e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,7.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,7.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.40999999999999\n");
total_tests := total_tests + 1;
fxm := ln(7.40999999999999);
fxr2 := 0.2002830439307969e1;
fxrerr := 0.118e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.50999999999999\n");
total_tests := total_tests + 1;
fxm := ln(7.50999999999999);
fxr2 := 0.2016235465776013e1;
fxrerr := 0.117e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.60999999999999\n");
total_tests := total_tests + 1;
fxm := ln(7.60999999999999);
fxr2 := 0.2029463171873566e1;
fxrerr := 0.116e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.70999999999999\n");
total_tests := total_tests + 1;
fxm := ln(7.70999999999999);
fxr2 := 0.2042518187575206e1;
fxrerr := 0.115e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,7.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,7.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.80999999999999\n");
total_tests := total_tests + 1;
fxm := ln(7.80999999999999);
fxr2 := 0.2055404963851563e1;
fxrerr := 0.115e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,7.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,7.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.90999999999999\n");
total_tests := total_tests + 1;
fxm := ln(7.90999999999999);
fxr2 := 0.2068127781779531e1;
fxrerr := 0.114e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,7.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,7.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.00999999999999\n");
total_tests := total_tests + 1;
fxm := ln(8.00999999999999);
fxr2 := 0.2080690761080236e1;
fxrerr := 0.113e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.10999999999999\n");
total_tests := total_tests + 1;
fxm := ln(8.10999999999999);
fxr2 := 0.2093097868127291e1;
fxrerr := 0.112e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,8.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,8.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.20999999999999\n");
total_tests := total_tests + 1;
fxm := ln(8.20999999999999);
fxr2 := 0.2105352923464305e1;
fxrerr := 0.112e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,8.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,8.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.30999999999999\n");
total_tests := total_tests + 1;
fxm := ln(8.30999999999999);
fxr2 := 0.2117459608867324e1;
fxrerr := 0.111e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,8.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,8.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.40999999999999\n");
total_tests := total_tests + 1;
fxm := ln(8.40999999999999);
fxr2 := 0.2129421473984823e1;
fxrerr := 0.11e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,8.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,8.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.50999999999999\n");
total_tests := total_tests + 1;
fxm := ln(8.50999999999999);
fxr2 := 0.2141241942585249e1;
fxrerr := 0.109e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,8.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,8.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.60999999999999\n");
total_tests := total_tests + 1;
fxm := ln(8.60999999999999);
fxr2 := 0.2152924318439606e1;
fxrerr := 0.109e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,8.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,8.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.70999999999999\n");
total_tests := total_tests + 1;
fxm := ln(8.70999999999999);
fxr2 := 0.2164471790864377e1;
fxrerr := 0.108e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,8.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,8.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.80999999999999\n");
total_tests := total_tests + 1;
fxm := ln(8.80999999999999);
fxr2 := 0.2175887439948056e1;
fxrerr := 0.107e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,8.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,8.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.90999999999999\n");
total_tests := total_tests + 1;
fxm := ln(8.90999999999999);
fxr2 := 0.2187174241482684e1;
fxrerr := 0.107e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,8.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,8.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.00999999999999\n");
total_tests := total_tests + 1;
fxm := ln(9.00999999999999);
fxr2 := 0.2198335071620214e1;
fxrerr := 0.106e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,9.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,9.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.10999999999999\n");
total_tests := total_tests + 1;
fxm := ln(9.10999999999999);
fxr2 := 0.2209372711271827e1;
fxrerr := 0.105e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,9.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,9.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.20999999999998\n");
total_tests := total_tests + 1;
fxm := ln(9.20999999999998);
fxr2 := 0.2220289850267175e1;
fxrerr := 0.105e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,9.20999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,9.20999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.30999999999998\n");
total_tests := total_tests + 1;
fxm := ln(9.30999999999998);
fxr2 := 0.2231089091288935e1;
fxrerr := 0.104e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,9.30999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,9.30999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.40999999999998\n");
total_tests := total_tests + 1;
fxm := ln(9.40999999999998);
fxr2 := 0.2241772953597247e1;
fxrerr := 0.104e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,9.40999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,9.40999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.50999999999998\n");
total_tests := total_tests + 1;
fxm := ln(9.50999999999998);
fxr2 := 0.2252343876557258e1;
fxrerr := 0.103e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,9.50999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,9.50999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.60999999999998\n");
total_tests := total_tests + 1;
fxm := ln(9.60999999999998);
fxr2 := 0.226280422298216e1;
fxrerr := 0.103e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,9.60999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,9.60999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.70999999999998\n");
total_tests := total_tests + 1;
fxm := ln(9.70999999999998);
fxr2 := 0.2273156282303193e1;
fxrerr := 0.102e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,9.70999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,9.70999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.80999999999998\n");
total_tests := total_tests + 1;
fxm := ln(9.80999999999998);
fxr2 := 0.2283402273577231e1;
fxrerr := 0.102e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,9.80999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,9.80999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.90999999999998\n");
total_tests := total_tests + 1;
fxm := ln(9.90999999999998);
fxr2 := 0.2293544348341855e1;
fxrerr := 0.101e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,9.90999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,9.90999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = ln apfunc = log\n");
fprintf(except_fd,"maplefunc = ln apfunc = log\n");
fprintf(out_fd,"x = 0.1\n");
total_tests := total_tests + 1;
fxm := ln(0.1);
fxr2 := -0.230258509299272e1;
fxrerr := 0.5e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.2\n");
total_tests := total_tests + 1;
fxm := ln(1.2);
fxr2 := 0.182321556795017e0;
fxrerr := 0.467e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.3\n");
total_tests := total_tests + 1;
fxm := ln(2.3);
fxr2 := 0.832909122935637e0;
fxrerr := 0.268e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,2.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,2.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.4\n");
total_tests := total_tests + 1;
fxm := ln(3.4);
fxr2 := 0.1223775431622417e1;
fxrerr := 0.198e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,3.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,3.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.5\n");
total_tests := total_tests + 1;
fxm := ln(4.5);
fxr2 := 0.1504077396776261e1;
fxrerr := 0.162e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.6\n");
total_tests := total_tests + 1;
fxm := ln(5.6);
fxr2 := 0.1722766597741084e1;
fxrerr := 0.14e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.7\n");
total_tests := total_tests + 1;
fxm := ln(6.7);
fxr2 := 0.1902107526396893e1;
fxrerr := 0.125e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,6.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,6.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.8\n");
total_tests := total_tests + 1;
fxm := ln(7.8);
fxr2 := 0.2054123733695518e1;
fxrerr := 0.115e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,7.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,7.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.9\n");
total_tests := total_tests + 1;
fxm := ln(8.9);
fxr2 := 0.2186051276738063e1;
fxrerr := 0.107e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,8.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,8.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 10.0\n");
total_tests := total_tests + 1;
fxm := ln(10.0);
fxr2 := 0.2302585092995294e1;
fxrerr := 0.51e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,10.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,10.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 11.1\n");
total_tests := total_tests + 1;
fxm := ln(11.1);
fxr2 := 0.2406945108319464e1;
fxrerr := 0.46e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,11.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,11.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 12.2\n");
total_tests := total_tests + 1;
fxm := ln(12.2);
fxr2 := 0.2501435951740224e1;
fxrerr := 0.419e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,12.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,12.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 13.3\n");
total_tests := total_tests + 1;
fxm := ln(13.3);
fxr2 := 0.2587764035228604e1;
fxrerr := 0.385e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,13.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,13.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 14.4\n");
total_tests := total_tests + 1;
fxm := ln(14.4);
fxr2 := 0.2667228206582844e1;
fxrerr := 0.357e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,14.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,14.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 15.5\n");
total_tests := total_tests + 1;
fxm := ln(15.5);
fxr2 := 0.2740840023926024e1;
fxrerr := 0.332e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,15.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,15.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 16.6\n");
total_tests := total_tests + 1;
fxm := ln(16.6);
fxr2 := 0.2809402695363254e1;
fxrerr := 0.311e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,16.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,16.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 17.7\n");
total_tests := total_tests + 1;
fxm := ln(17.7);
fxr2 := 0.2873564639580454e1;
fxrerr := 0.292e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 18.8\n");
total_tests := total_tests + 1;
fxm := ln(18.8);
fxr2 := 0.2933856869836514e1;
fxrerr := 0.275e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 19.9\n");
total_tests := total_tests + 1;
fxm := ln(19.9);
fxr2 := 0.2990719731730994e1;
fxrerr := 0.261e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,19.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,19.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 21.0\n");
total_tests := total_tests + 1;
fxm := ln(21.0);
fxr2 := 0.3044522437723984e1;
fxrerr := 0.248e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,21.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,21.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 22.1\n");
total_tests := total_tests + 1;
fxm := ln(22.1);
fxr2 := 0.3095577608524224e1;
fxrerr := 0.236e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,22.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,22.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 23.2\n");
total_tests := total_tests + 1;
fxm := ln(23.2);
fxr2 := 0.3144152278672754e1;
fxrerr := 0.225e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,23.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,23.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 24.3\n");
total_tests := total_tests + 1;
fxm := ln(24.3);
fxr2 := 0.3190476350346904e1;
fxrerr := 0.215e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,24.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,24.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 25.4\n");
total_tests := total_tests + 1;
fxm := ln(25.4);
fxr2 := 0.3234749174024904e1;
fxrerr := 0.206e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,25.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,25.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 26.5\n");
total_tests := total_tests + 1;
fxm := ln(26.5);
fxr2 := 0.3277144732992574e1;
fxrerr := 0.198e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,26.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,26.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 27.6\n");
total_tests := total_tests + 1;
fxm := ln(27.6);
fxr2 := 0.3317815772723464e1;
fxrerr := 0.191e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,27.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,27.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 28.7\n");
total_tests := total_tests + 1;
fxm := ln(28.7);
fxr2 := 0.3356897122765904e1;
fxrerr := 0.184e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,28.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,28.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 29.8\n");
total_tests := total_tests + 1;
fxm := ln(29.8);
fxr2 := 0.3394508393511694e1;
fxrerr := 0.177e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,29.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,29.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 30.9\n");
total_tests := total_tests + 1;
fxm := ln(30.9);
fxr2 := 0.3430756183904034e1;
fxrerr := 0.171e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,30.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,30.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 32.0\n");
total_tests := total_tests + 1;
fxm := ln(32.0);
fxr2 := 0.3465735902800064e1;
fxrerr := 0.166e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,32.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,32.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 33.1\n");
total_tests := total_tests + 1;
fxm := ln(33.1);
fxr2 := 0.3499533282383314e1;
fxrerr := 0.161e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,33.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,33.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 34.2\n");
total_tests := total_tests + 1;
fxm := ln(34.2);
fxr2 := 0.3532225644068834e1;
fxrerr := 0.156e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,34.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,34.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 35.3\n");
total_tests := total_tests + 1;
fxm := ln(35.3);
fxr2 := 0.3563882963939484e1;
fxrerr := 0.151e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,35.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,35.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 36.4\n");
total_tests := total_tests + 1;
fxm := ln(36.4);
fxr2 := 0.3594568774642924e1;
fxrerr := 0.147e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,36.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,36.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 37.5\n");
total_tests := total_tests + 1;
fxm := ln(37.5);
fxr2 := 0.3624340932976321e1;
fxrerr := 0.143e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,37.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,37.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 38.6\n");
total_tests := total_tests + 1;
fxm := ln(38.6);
fxr2 := 0.365325227647074e1;
fxrerr := 0.139e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,38.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,38.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 39.7\n");
total_tests := total_tests + 1;
fxm := ln(39.7);
fxr2 := 0.3681351187693097e1;
fxrerr := 0.135e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,39.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,39.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 40.8\n");
total_tests := total_tests + 1;
fxm := ln(40.8);
fxr2 := 0.3708682081410066e1;
fxrerr := 0.132e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,40.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,40.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 41.9\n");
total_tests := total_tests + 1;
fxm := ln(41.9);
fxr2 := 0.3735285826928044e1;
fxrerr := 0.129e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,41.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,41.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 43.0\n");
total_tests := total_tests + 1;
fxm := ln(43.0);
fxr2 := 0.3761200115693511e1;
fxrerr := 0.126e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,43.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,43.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 44.1\n");
total_tests := total_tests + 1;
fxm := ln(44.1);
fxr2 := 0.3786459782452747e1;
fxrerr := 0.123e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,44.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,44.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 45.2\n");
total_tests := total_tests + 1;
fxm := ln(45.2);
fxr2 := 0.3811097086838136e1;
fxrerr := 0.12e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,45.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,45.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 46.3\n");
total_tests := total_tests + 1;
fxm := ln(46.3);
fxr2 := 0.3835141961092136e1;
fxrerr := 0.117e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,46.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,46.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 47.4\n");
total_tests := total_tests + 1;
fxm := ln(47.4);
fxr2 := 0.3858622228700977e1;
fxrerr := 0.115e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,47.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,47.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 48.5\n");
total_tests := total_tests + 1;
fxm := ln(48.5);
fxr2 := 0.3881563797943385e1;
fxrerr := 0.113e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,48.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,48.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 49.6\n");
total_tests := total_tests + 1;
fxm := ln(49.6);
fxr2 := 0.3903990833730826e1;
fxrerr := 0.11e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,49.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,49.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 50.7\n");
total_tests := total_tests + 1;
fxm := ln(50.7);
fxr2 := 0.3925925910597083e1;
fxrerr := 0.108e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,50.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,50.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 51.8\n");
total_tests := total_tests + 1;
fxm := ln(51.8);
fxr2 := 0.3947390149265381e1;
fxrerr := 0.106e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,51.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,51.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 52.9\n");
total_tests := total_tests + 1;
fxm := ln(52.9);
fxr2 := 0.3968403338864194e1;
fxrerr := 0.104e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,52.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,52.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 54.0\n");
total_tests := total_tests + 1;
fxm := ln(54.0);
fxr2 := 0.3988984046564221e1;
fxrerr := 0.102e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,54.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,54.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 55.1\n");
total_tests := total_tests + 1;
fxm := ln(55.1);
fxr2 := 0.4009149716158813e1;
fxrerr := 0.1e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,55.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,55.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 56.2\n");
total_tests := total_tests + 1;
fxm := ln(56.2);
fxr2 := 0.4028916756899586e1;
fxrerr := 0.990e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,56.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,56.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 57.3\n");
total_tests := total_tests + 1;
fxm := ln(57.3);
fxr2 := 0.4048300623720634e1;
fxrerr := 0.973e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,57.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,57.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 58.4\n");
total_tests := total_tests + 1;
fxm := ln(58.4);
fxr2 := 0.406731588983412e1;
fxrerr := 0.957e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,58.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,58.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 59.5\n");
total_tests := total_tests + 1;
fxm := ln(59.5);
fxr2 := 0.4085976312551523e1;
fxrerr := 0.941e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,59.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,59.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 60.6000000000001\n");
total_tests := total_tests + 1;
fxm := ln(60.6000000000001);
fxr2 := 0.4104294893075209e1;
fxrerr := 0.926e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,60.6000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,60.6000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 61.7000000000001\n");
total_tests := total_tests + 1;
fxm := ln(61.7000000000001);
fxr2 := 0.4122283930911282e1;
fxrerr := 0.911e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,61.7000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,61.7000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 62.8000000000001\n");
total_tests := total_tests + 1;
fxm := ln(62.8000000000001);
fxr2 := 0.4139955073474093e1;
fxrerr := 0.897e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,62.8000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,62.8000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 63.9000000000001\n");
total_tests := total_tests + 1;
fxm := ln(63.9000000000001);
fxr2 := 0.4157319361383428e1;
fxrerr := 0.883e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,63.9000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,63.9000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 65.0000000000001\n");
total_tests := total_tests + 1;
fxm := ln(65.0000000000001);
fxr2 := 0.4174387269895579e1;
fxrerr := 0.870e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,65.0000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,65.0000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 66.1000000000001\n");
total_tests := total_tests + 1;
fxm := ln(66.1000000000001);
fxr2 := 0.419116874685758e1;
fxrerr := 0.857e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,66.1000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,66.1000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 67.2\n");
total_tests := total_tests + 1;
fxm := ln(67.2);
fxr2 := 0.4207673247529041e1;
fxrerr := 0.845e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,67.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,67.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 68.3\n");
total_tests := total_tests + 1;
fxm := ln(68.3);
fxr2 := 0.4223909766576679e1;
fxrerr := 0.833e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,68.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,68.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 69.4\n");
total_tests := total_tests + 1;
fxm := ln(69.4);
fxr2 := 0.4239886867512693e1;
fxrerr := 0.821e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,69.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,69.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 70.5\n");
total_tests := total_tests + 1;
fxm := ln(70.5);
fxr2 := 0.4255612709818158e1;
fxrerr := 0.810e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,70.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,70.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 71.6\n");
total_tests := total_tests + 1;
fxm := ln(71.6);
fxr2 := 0.4271095073966534e1;
fxrerr := 0.799e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,71.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,71.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 72.7\n");
total_tests := total_tests + 1;
fxm := ln(72.7);
fxr2 := 0.4286341384539408e1;
fxrerr := 0.788e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,72.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,72.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 73.8\n");
total_tests := total_tests + 1;
fxm := ln(73.8);
fxr2 := 0.4301358731606361e1;
fxrerr := 0.778e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,73.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,73.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 74.9\n");
total_tests := total_tests + 1;
fxm := ln(74.9);
fxr2 := 0.4316153890523108e1;
fxrerr := 0.768e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 76.0\n");
total_tests := total_tests + 1;
fxm := ln(76.0);
fxr2 := 0.4330733340286261e1;
fxrerr := 0.758e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 77.1\n");
total_tests := total_tests + 1;
fxm := ln(77.1);
fxr2 := 0.4345103280569215e1;
fxrerr := 0.749e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 78.2\n");
total_tests := total_tests + 1;
fxm := ln(78.2);
fxr2 := 0.4359269647551199e1;
fxrerr := 0.740e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,78.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,78.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 79.3\n");
total_tests := total_tests + 1;
fxm := ln(79.3);
fxr2 := 0.437323812864073e1;
fxrerr := 0.731e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,79.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,79.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 80.4\n");
total_tests := total_tests + 1;
fxm := ln(80.4);
fxr2 := 0.4387014176184853e1;
fxrerr := 0.722e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,80.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,80.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 81.5\n");
total_tests := total_tests + 1;
fxm := ln(81.5);
fxr2 := 0.4400603020246749e1;
fxrerr := 0.714e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,81.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,81.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 82.6\n");
total_tests := total_tests + 1;
fxm := ln(82.6);
fxr2 := 0.4414009680526862e1;
fxrerr := 0.706e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,82.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,82.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 83.7\n");
total_tests := total_tests + 1;
fxm := ln(83.7);
fxr2 := 0.4427238977495361e1;
fxrerr := 0.698e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,83.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,83.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 84.8\n");
total_tests := total_tests + 1;
fxm := ln(84.8);
fxr2 := 0.4440295542797788e1;
fxrerr := 0.690e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,84.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,84.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 85.8999999999999\n");
total_tests := total_tests + 1;
fxm := ln(85.8999999999999);
fxr2 := 0.4453183828990138e1;
fxrerr := 0.683e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,85.8999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,85.8999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 86.9999999999999\n");
total_tests := total_tests + 1;
fxm := ln(86.9999999999999);
fxr2 := 0.4465908118654511e1;
fxrerr := 0.675e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,86.9999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,86.9999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 88.0999999999999\n");
total_tests := total_tests + 1;
fxm := ln(88.0999999999999);
fxr2 := 0.4478472532942063e1;
fxrerr := 0.668e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,88.0999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,88.0999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 89.1999999999999\n");
total_tests := total_tests + 1;
fxm := ln(89.1999999999999);
fxr2 := 0.4490881039585892e1;
fxrerr := 0.661e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,89.1999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,89.1999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 90.2999999999999\n");
total_tests := total_tests + 1;
fxm := ln(90.2999999999999);
fxr2 := 0.4503137460422865e1;
fxrerr := 0.654e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,90.2999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,90.2999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 91.3999999999999\n");
total_tests := total_tests + 1;
fxm := ln(91.3999999999999);
fxr2 := 0.4515245478460026e1;
fxrerr := 0.648e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,91.3999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,91.3999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 92.4999999999999\n");
total_tests := total_tests + 1;
fxm := ln(92.4999999999999);
fxr2 := 0.4527208644518301e1;
fxrerr := 0.641e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,92.4999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,92.4999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 93.5999999999999\n");
total_tests := total_tests + 1;
fxm := ln(93.5999999999999);
fxr2 := 0.4539030383483468e1;
fxrerr := 0.635e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,93.5999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,93.5999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 94.6999999999999\n");
total_tests := total_tests + 1;
fxm := ln(94.6999999999999);
fxr2 := 0.4550714000191954e1;
fxrerr := 0.628e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 95.7999999999999\n");
total_tests := total_tests + 1;
fxm := ln(95.7999999999999);
fxr2 := 0.4562262684976736e1;
fxrerr := 0.622e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 96.8999999999999\n");
total_tests := total_tests + 1;
fxm := ln(96.8999999999999);
fxr2 := 0.4573679518896642e1;
fxrerr := 0.616e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,96.8999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,96.8999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 97.9999999999999\n");
total_tests := total_tests + 1;
fxm := ln(97.9999999999999);
fxr2 := 0.4584967478670493e1;
fxrerr := 0.611e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,97.9999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,97.9999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 99.0999999999999\n");
total_tests := total_tests + 1;
fxm := ln(99.0999999999999);
fxr2 := 0.4596129441335863e1;
fxrerr := 0.605e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,99.0999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,99.0999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 100.2\n");
total_tests := total_tests + 1;
fxm := ln(100.2);
fxr2 := 0.4607168188652091e1;
fxrerr := 0.5e-9;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(ln,log,100.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(ln,log,100.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = log10 apfunc = log10\n");
fprintf(except_fd,"maplefunc = log10 apfunc = log10\n");
fprintf(out_fd,"x = 0.01\n");
total_tests := total_tests + 1;
fxm := log10(0.01);
fxr2 := -0.199999999999943e1;
fxrerr := 0.282e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.11\n");
total_tests := total_tests + 1;
fxm := log10(0.11);
fxr2 := -0.958607314841256e0;
fxrerr := 0.217e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.21\n");
total_tests := total_tests + 1;
fxm := log10(0.21);
fxr2 := -0.677780705265814e0;
fxrerr := 0.118e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,0.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,0.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.31\n");
total_tests := total_tests + 1;
fxm := log10(0.31);
fxr2 := -0.508638306165585e0;
fxrerr := 0.809e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,0.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,0.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.41\n");
total_tests := total_tests + 1;
fxm := log10(0.41);
fxr2 := -0.387216143280257e0;
fxrerr := 0.609e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,0.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,0.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.51\n");
total_tests := total_tests + 1;
fxm := log10(0.51);
fxr2 := -0.292429823902061e0;
fxrerr := 0.489e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.61\n");
total_tests := total_tests + 1;
fxm := log10(0.61);
fxr2 := -0.214670164989229e0;
fxrerr := 0.402e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.71\n");
total_tests := total_tests + 1;
fxm := log10(0.71);
fxr2 := -0.148741651280922e0;
fxrerr := 0.338e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.81\n");
total_tests := total_tests + 1;
fxm := log10(0.81);
fxr2 := -0.915149811213484e-1;
fxrerr := 0.287e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,0.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,0.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.91\n");
total_tests := total_tests + 1;
fxm := log10(0.91);
fxr2 := -0.409586076789069e-1;
fxrerr := 0.247e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,0.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,0.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.01\n");
total_tests := total_tests + 1;
fxm := log10(1.01);
fxr2 := 0.4321373783198073e-2;
fxrerr := 0.237e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.11\n");
total_tests := total_tests + 1;
fxm := log10(1.11);
fxr2 := 0.4532297878718552e-1;
fxrerr := 0.218e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.21\n");
total_tests := total_tests + 1;
fxm := log10(1.21);
fxr2 := 0.8278537031691064e-1;
fxrerr := 0.203e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,1.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,1.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.31\n");
total_tests := total_tests + 1;
fxm := log10(1.31);
fxr2 := 0.1172712956561991e0;
fxrerr := 0.19e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,1.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,1.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.41\n");
total_tests := total_tests + 1;
fxm := log10(1.41);
fxr2 := 0.149219112655795e0;
fxrerr := 0.179e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,1.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,1.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.51\n");
total_tests := total_tests + 1;
fxm := log10(1.51);
fxr2 := 0.1789769472935042e0;
fxrerr := 0.169e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,1.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,1.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.61\n");
total_tests := total_tests + 1;
fxm := log10(1.61);
fxr2 := 0.2068258760322029e0;
fxrerr := 0.161e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,1.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,1.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.71\n");
total_tests := total_tests + 1;
fxm := log10(1.71);
fxr2 := 0.2329961103924654e0;
fxrerr := 0.154e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,1.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,1.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.81\n");
total_tests := total_tests + 1;
fxm := log10(1.81);
fxr2 := 0.2576785748694766e0;
fxrerr := 0.147e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,1.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,1.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.91\n");
total_tests := total_tests + 1;
fxm := log10(1.91);
fxr2 := 0.2810333672479965e0;
fxrerr := 0.141e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,1.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,1.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.01\n");
total_tests := total_tests + 1;
fxm := log10(2.01);
fxr2 := 0.3031960574207556e0;
fxrerr := 0.136e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,2.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,2.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.11\n");
total_tests := total_tests + 1;
fxm := log10(2.11);
fxr2 := 0.3242824552979377e0;
fxrerr := 0.131e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,2.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,2.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.21\n");
total_tests := total_tests + 1;
fxm := log10(2.21);
fxr2 := 0.3443922736853577e0;
fxrerr := 0.127e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,2.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,2.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.31\n");
total_tests := total_tests + 1;
fxm := log10(2.31);
fxr2 := 0.3636119798923653e0;
fxrerr := 0.123e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,2.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,2.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.41\n");
total_tests := total_tests + 1;
fxm := log10(2.41);
fxr2 := 0.382017042575089e0;
fxrerr := 0.12e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,2.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,2.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.51\n");
total_tests := total_tests + 1;
fxm := log10(2.51);
fxr2 := 0.3996737214812422e0;
fxrerr := 0.117e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,2.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,2.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.61\n");
total_tests := total_tests + 1;
fxm := log10(2.61);
fxr2 := 0.4166405073384594e0;
fxrerr := 0.114e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,2.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,2.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.71\n");
total_tests := total_tests + 1;
fxm := log10(2.71);
fxr2 := 0.4329692908745899e0;
fxrerr := 0.111e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,2.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,2.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.81\n");
total_tests := total_tests + 1;
fxm := log10(2.81);
fxr2 := 0.4487063199052666e0;
fxrerr := 0.108e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,2.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,2.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.91\n");
total_tests := total_tests + 1;
fxm := log10(2.91);
fxr2 := 0.4638929889860956e0;
fxrerr := 0.106e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,2.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,2.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.01\n");
total_tests := total_tests + 1;
fxm := log10(3.01);
fxr2 := 0.4785664955940132e0;
fxrerr := 0.104e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,3.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,3.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.11\n");
total_tests := total_tests + 1;
fxm := log10(3.11);
fxr2 := 0.4927603890270126e0;
fxrerr := 0.102e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,3.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,3.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.21\n");
total_tests := total_tests + 1;
fxm := log10(3.21);
fxr2 := 0.506505032405038e0;
fxrerr := 0.1e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,3.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,3.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.31\n");
total_tests := total_tests + 1;
fxm := log10(3.31);
fxr2 := 0.5198279937758731e0;
fxrerr := 0.99e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,3.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,3.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.41\n");
total_tests := total_tests + 1;
fxm := log10(3.41);
fxr2 := 0.5327543789926333e0;
fxrerr := 0.971e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,3.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,3.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.51\n");
total_tests := total_tests + 1;
fxm := log10(3.51);
fxr2 := 0.5453071164659429e0;
fxrerr := 0.956e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,3.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,3.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.61\n");
total_tests := total_tests + 1;
fxm := log10(3.61);
fxr2 := 0.5575072019057877e0;
fxrerr := 0.941e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,3.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,3.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.71\n");
total_tests := total_tests + 1;
fxm := log10(3.71);
fxr2 := 0.5693739096150538e0;
fxrerr := 0.927e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,3.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,3.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.81\n");
total_tests := total_tests + 1;
fxm := log10(3.81);
fxr2 := 0.5809249756756257e0;
fxrerr := 0.916e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,3.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,3.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.91\n");
total_tests := total_tests + 1;
fxm := log10(3.91);
fxr2 := 0.5921767573958739e0;
fxrerr := 0.901e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,3.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,3.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.01\n");
total_tests := total_tests + 1;
fxm := log10(4.01);
fxr2 := 0.6031443726201886e0;
fxrerr := 0.89e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,4.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,4.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.11\n");
total_tests := total_tests + 1;
fxm := log10(4.11);
fxr2 := 0.6138418218760742e0;
fxrerr := 0.88e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,4.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,4.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.21\n");
total_tests := total_tests + 1;
fxm := log10(4.21);
fxr2 := 0.6242820958356748e0;
fxrerr := 0.869e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,4.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,4.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.31\n");
total_tests := total_tests + 1;
fxm := log10(4.31);
fxr2 := 0.6344772701607373e0;
fxrerr := 0.863e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,4.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,4.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.41\n");
total_tests := total_tests + 1;
fxm := log10(4.41);
fxr2 := 0.644438589467843e0;
fxrerr := 0.852e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,4.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,4.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.51\n");
total_tests := total_tests + 1;
fxm := log10(4.51);
fxr2 := 0.6541765418779645e0;
fxrerr := 0.841e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,4.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,4.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.61\n");
total_tests := total_tests + 1;
fxm := log10(4.61);
fxr2 := 0.6637009253896544e0;
fxrerr := 0.834e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.71\n");
total_tests := total_tests + 1;
fxm := log10(4.71);
fxr2 := 0.6730209071289021e0;
fxrerr := 0.827e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.81\n");
total_tests := total_tests + 1;
fxm := log10(4.81);
fxr2 := 0.6821450763738376e0;
fxrerr := 0.816e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.91\n");
total_tests := total_tests + 1;
fxm := log10(4.91);
fxr2 := 0.6910814921229739e0;
fxrerr := 0.81e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,4.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,4.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.01\n");
total_tests := total_tests + 1;
fxm := log10(5.01);
fxr2 := 0.6998377258672499e0;
fxrerr := 0.803e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,5.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,5.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.11\n");
total_tests := total_tests + 1;
fxm := log10(5.11);
fxr2 := 0.708420900134715e0;
fxrerr := 0.796e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,5.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,5.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.21\n");
total_tests := total_tests + 1;
fxm := log10(5.21);
fxr2 := 0.7168377232995275e0;
fxrerr := 0.794e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,5.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,5.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.31\n");
total_tests := total_tests + 1;
fxm := log10(5.31);
fxr2 := 0.7250945210814745e0;
fxrerr := 0.787e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,5.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,5.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.41\n");
total_tests := total_tests + 1;
fxm := log10(5.41);
fxr2 := 0.7331972651065747e0;
fxrerr := 0.78e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,5.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,5.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.51\n");
total_tests := total_tests + 1;
fxm := log10(5.51);
fxr2 := 0.74115159885179e0;
fxrerr := 0.773e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,5.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,5.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.61\n");
total_tests := total_tests + 1;
fxm := log10(5.61);
fxr2 := 0.7489628612561644e0;
fxrerr := 0.77e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,5.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,5.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.71\n");
total_tests := total_tests + 1;
fxm := log10(5.71);
fxr2 := 0.7566361082458512e0;
fxrerr := 0.763e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,5.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,5.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.81\n");
total_tests := total_tests + 1;
fxm := log10(5.81);
fxr2 := 0.7641761323903358e0;
fxrerr := 0.76e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,5.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,5.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.91\n");
total_tests := total_tests + 1;
fxm := log10(5.91);
fxr2 := 0.7715874808812597e0;
fxrerr := 0.753e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,5.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,5.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.01\n");
total_tests := total_tests + 1;
fxm := log10(6.01);
fxr2 := 0.7788744720027433e0;
fxrerr := 0.751e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,6.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,6.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.10999999999999\n");
total_tests := total_tests + 1;
fxm := log10(6.10999999999999);
fxr2 := 0.7860412102425574e0;
fxrerr := 0.743e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,6.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,6.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.20999999999999\n");
total_tests := total_tests + 1;
fxm := log10(6.20999999999999);
fxr2 := 0.7930916001765833e0;
fxrerr := 0.741e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,6.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,6.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.30999999999999\n");
total_tests := total_tests + 1;
fxm := log10(6.30999999999999);
fxr2 := 0.8000293592441374e0;
fxrerr := 0.738e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,6.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,6.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.40999999999999\n");
total_tests := total_tests + 1;
fxm := log10(6.40999999999999);
fxr2 := 0.8068580295188202e0;
fxrerr := 0.735e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,6.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,6.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.50999999999999\n");
total_tests := total_tests + 1;
fxm := log10(6.50999999999999);
fxr2 := 0.8135809885681948e0;
fxrerr := 0.728e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,6.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,6.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.60999999999999\n");
total_tests := total_tests + 1;
fxm := log10(6.60999999999999);
fxr2 := 0.8202014594856423e0;
fxrerr := 0.725e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,6.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,6.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.70999999999999\n");
total_tests := total_tests + 1;
fxm := log10(6.70999999999999);
fxr2 := 0.826722520168994e0;
fxrerr := 0.722e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,6.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,6.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.80999999999999\n");
total_tests := total_tests + 1;
fxm := log10(6.80999999999999);
fxr2 := 0.8331471119127874e0;
fxrerr := 0.719e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,6.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,6.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.90999999999999\n");
total_tests := total_tests + 1;
fxm := log10(6.90999999999999);
fxr2 := 0.8394780473742005e0;
fxrerr := 0.716e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,6.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,6.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.00999999999999\n");
total_tests := total_tests + 1;
fxm := log10(7.00999999999999);
fxr2 := 0.8457180179666616e0;
fxrerr := 0.713e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,7.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,7.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.10999999999999\n");
total_tests := total_tests + 1;
fxm := log10(7.10999999999999);
fxr2 := 0.8518696007297677e0;
fxrerr := 0.71e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,7.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,7.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.20999999999999\n");
total_tests := total_tests + 1;
fxm := log10(7.20999999999999);
fxr2 := 0.8579352647194309e0;
fxrerr := 0.707e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,7.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,7.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.30999999999999\n");
total_tests := total_tests + 1;
fxm := log10(7.30999999999999);
fxr2 := 0.8639173769578631e0;
fxrerr := 0.704e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,7.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,7.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.40999999999999\n");
total_tests := total_tests + 1;
fxm := log10(7.40999999999999);
fxr2 := 0.8698182079793312e0;
fxrerr := 0.701e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.50999999999999\n");
total_tests := total_tests + 1;
fxm := log10(7.50999999999999);
fxr2 := 0.8756399370041699e0;
fxrerr := 0.698e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.60999999999999\n");
total_tests := total_tests + 1;
fxm := log10(7.60999999999999);
fxr2 := 0.8813846567705752e0;
fxrerr := 0.695e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.70999999999999\n");
total_tests := total_tests + 1;
fxm := log10(7.70999999999999);
fxr2 := 0.8870543780509579e0;
fxrerr := 0.692e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,7.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,7.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.80999999999999\n");
total_tests := total_tests + 1;
fxm := log10(7.80999999999999);
fxr2 := 0.8926510338773016e0;
fxrerr := 0.693e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,7.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,7.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.90999999999999\n");
total_tests := total_tests + 1;
fxm := log10(7.90999999999999);
fxr2 := 0.8981764834976779e0;
fxrerr := 0.69e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,7.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,7.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.00999999999999\n");
total_tests := total_tests + 1;
fxm := log10(8.00999999999999);
fxr2 := 0.903632516084239e0;
fxrerr := 0.686e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.10999999999999\n");
total_tests := total_tests + 1;
fxm := log10(8.10999999999999);
fxr2 := 0.909020854211158e0;
fxrerr := 0.683e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,8.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,8.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.20999999999999\n");
total_tests := total_tests + 1;
fxm := log10(8.20999999999999);
fxr2 := 0.9143431571194422e0;
fxrerr := 0.684e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,8.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,8.20999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.30999999999999\n");
total_tests := total_tests + 1;
fxm := log10(8.30999999999999);
fxr2 := 0.9196010237841121e0;
fxrerr := 0.681e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,8.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,8.30999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.40999999999999\n");
total_tests := total_tests + 1;
fxm := log10(8.40999999999999);
fxr2 := 0.924795995797913e0;
fxrerr := 0.678e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,8.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,8.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.50999999999999\n");
total_tests := total_tests + 1;
fxm := log10(8.50999999999999);
fxr2 := 0.9299295600845888e0;
fxrerr := 0.675e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,8.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,8.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.60999999999999\n");
total_tests := total_tests + 1;
fxm := log10(8.60999999999999);
fxr2 := 0.9350031514536559e0;
fxrerr := 0.676e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,8.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,8.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.70999999999999\n");
total_tests := total_tests + 1;
fxm := log10(8.70999999999999);
fxr2 := 0.940018155007664e0;
fxrerr := 0.673e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,8.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,8.70999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.80999999999999\n");
total_tests := total_tests + 1;
fxm := log10(8.80999999999999);
fxr2 := 0.9449759084120498e0;
fxrerr := 0.669e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,8.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,8.80999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.90999999999999\n");
total_tests := total_tests + 1;
fxm := log10(8.90999999999999);
fxr2 := 0.949877704036876e0;
fxrerr := 0.67e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,8.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,8.90999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.00999999999999\n");
total_tests := total_tests + 1;
fxm := log10(9.00999999999999);
fxr2 := 0.9547247909790648e0;
fxrerr := 0.667e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,9.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,9.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.10999999999999\n");
total_tests := total_tests + 1;
fxm := log10(9.10999999999999);
fxr2 := 0.959518376972997e0;
fxrerr := 0.664e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,9.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,9.10999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.20999999999998\n");
total_tests := total_tests + 1;
fxm := log10(9.20999999999998);
fxr2 := 0.9642596301968475e0;
fxrerr := 0.665e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,9.20999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,9.20999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.30999999999998\n");
total_tests := total_tests + 1;
fxm := log10(9.30999999999998);
fxr2 := 0.9689496809813412e0;
fxrerr := 0.662e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,9.30999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,9.30999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.40999999999998\n");
total_tests := total_tests + 1;
fxm := log10(9.40999999999998);
fxr2 := 0.9735896234272553e0;
fxrerr := 0.663e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,9.40999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,9.40999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.50999999999998\n");
total_tests := total_tests + 1;
fxm := log10(9.50999999999998);
fxr2 := 0.9781805169374125e0;
fxrerr := 0.659e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,9.50999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,9.50999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.60999999999998\n");
total_tests := total_tests + 1;
fxm := log10(9.60999999999998);
fxr2 := 0.982723387668544e0;
fxrerr := 0.66e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,9.60999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,9.60999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.70999999999998\n");
total_tests := total_tests + 1;
fxm := log10(9.70999999999998);
fxr2 := 0.9872192299080038e0;
fxrerr := 0.657e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,9.70999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,9.70999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.80999999999998\n");
total_tests := total_tests + 1;
fxm := log10(9.80999999999998);
fxr2 := 0.9916690073799474e0;
fxrerr := 0.658e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,9.80999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,9.80999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 9.90999999999998\n");
total_tests := total_tests + 1;
fxm := log10(9.90999999999998);
fxr2 := 0.9960736544852739e0;
fxrerr := 0.654e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,9.90999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,9.90999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = log10 apfunc = log10\n");
fprintf(except_fd,"maplefunc = log10 apfunc = log10\n");
fprintf(out_fd,"x = 0.1\n");
total_tests := total_tests + 1;
fxm := log10(0.1);
fxr2 := -0.999999999999441e0;
fxrerr := 0.238e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.2\n");
total_tests := total_tests + 1;
fxm := log10(1.2);
fxr2 := 0.7918124604808754e-1;
fxrerr := 0.204e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 2.3\n");
total_tests := total_tests + 1;
fxm := log10(2.3);
fxr2 := 0.3617278360178304e0;
fxrerr := 0.124e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,2.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,2.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 3.4\n");
total_tests := total_tests + 1;
fxm := log10(3.4);
fxr2 := 0.5314789170423949e0;
fxrerr := 0.975e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,3.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,3.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 4.5\n");
total_tests := total_tests + 1;
fxm := log10(4.5);
fxr2 := 0.6532125137753489e0;
fxrerr := 0.845e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 5.6\n");
total_tests := total_tests + 1;
fxm := log10(5.6);
fxr2 := 0.7481880270062044e0;
fxrerr := 0.77e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 6.7\n");
total_tests := total_tests + 1;
fxm := log10(6.7);
fxr2 := 0.8260748027008284e0;
fxrerr := 0.722e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,6.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,6.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 7.8\n");
total_tests := total_tests + 1;
fxm := log10(7.8);
fxr2 := 0.8920946026904832e0;
fxrerr := 0.693e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,7.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,7.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 8.9\n");
total_tests := total_tests + 1;
fxm := log10(8.9);
fxr2 := 0.9493900066449152e0;
fxrerr := 0.67e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,8.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,8.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 10.0\n");
total_tests := total_tests + 1;
fxm := log10(10.0);
fxr2 := 0.1000000000000558e1;
fxrerr := 0.223e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,10.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,10.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 11.1\n");
total_tests := total_tests + 1;
fxm := log10(11.1);
fxr2 := 0.1045322978787185e1;
fxrerr := 0.202e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,11.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,11.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 12.2\n");
total_tests := total_tests + 1;
fxm := log10(12.2);
fxr2 := 0.1086359830675206e1;
fxrerr := 0.184e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,12.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,12.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 13.3\n");
total_tests := total_tests + 1;
fxm := log10(13.3);
fxr2 := 0.1123851640967493e1;
fxrerr := 0.169e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,13.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,13.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 14.4\n");
total_tests := total_tests + 1;
fxm := log10(14.4);
fxr2 := 0.1158362492095655e1;
fxrerr := 0.157e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,14.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,14.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 15.5\n");
total_tests := total_tests + 1;
fxm := log10(15.5);
fxr2 := 0.1190331698170668e1;
fxrerr := 0.146e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,15.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,15.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 16.6\n");
total_tests := total_tests + 1;
fxm := log10(16.6);
fxr2 := 0.1220108088040404e1;
fxrerr := 0.137e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,16.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,16.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 17.7\n");
total_tests := total_tests + 1;
fxm := log10(17.7);
fxr2 := 0.1247973266362118e1;
fxrerr := 0.129e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 18.8\n");
total_tests := total_tests + 1;
fxm := log10(18.8);
fxr2 := 0.1274157849263966e1;
fxrerr := 0.122e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 19.9\n");
total_tests := total_tests + 1;
fxm := log10(19.9);
fxr2 := 0.1298853076409966e1;
fxrerr := 0.116e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,19.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,19.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 21.0\n");
total_tests := total_tests + 1;
fxm := log10(21.0);
fxr2 := 0.1322219294734185e1;
fxrerr := 0.11e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,21.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,21.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 22.1\n");
total_tests := total_tests + 1;
fxm := log10(22.1);
fxr2 := 0.1344392273685357e1;
fxrerr := 0.105e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,22.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,22.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 23.2\n");
total_tests := total_tests + 1;
fxm := log10(23.2);
fxr2 := 0.1365487984891135e1;
fxrerr := 0.1e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,23.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,23.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 24.3\n");
total_tests := total_tests + 1;
fxm := log10(24.3);
fxr2 := 0.1385606273598509e1;
fxrerr := 0.963e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,24.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,24.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 25.4\n");
total_tests := total_tests + 1;
fxm := log10(25.4);
fxr2 := 0.1404833716620141e1;
fxrerr := 0.925e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,25.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,25.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 26.5\n");
total_tests := total_tests + 1;
fxm := log10(26.5);
fxr2 := 0.1423245873937004e1;
fxrerr := 0.89e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,26.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,26.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 27.6\n");
total_tests := total_tests + 1;
fxm := log10(27.6);
fxr2 := 0.1440909082065398e1;
fxrerr := 0.86e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,27.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,27.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 28.7\n");
total_tests := total_tests + 1;
fxm := log10(28.7);
fxr2 := 0.1457881896734159e1;
fxrerr := 0.83e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,28.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,28.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 29.8\n");
total_tests := total_tests + 1;
fxm := log10(29.8);
fxr2 := 0.1474216264076425e1;
fxrerr := 0.8e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,29.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,29.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 30.9\n");
total_tests := total_tests + 1;
fxm := log10(30.9);
fxr2 := 0.1489958479425004e1;
fxrerr := 0.774e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,30.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,30.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 32.0\n");
total_tests := total_tests + 1;
fxm := log10(32.0);
fxr2 := 0.1505149978320077e1;
fxrerr := 0.753e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,32.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,32.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 33.1\n");
total_tests := total_tests + 1;
fxm := log10(33.1);
fxr2 := 0.1519827993775873e1;
fxrerr := 0.732e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,33.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,33.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 34.2\n");
total_tests := total_tests + 1;
fxm := log10(34.2);
fxr2 := 0.153402610605628e1;
fxrerr := 0.71e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,34.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,34.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 35.3\n");
total_tests := total_tests + 1;
fxm := log10(35.3);
fxr2 := 0.1547774705387949e1;
fxrerr := 0.689e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,35.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,35.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 36.4\n");
total_tests := total_tests + 1;
fxm := log10(36.4);
fxr2 := 0.1561101383649181e1;
fxrerr := 0.672e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,36.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,36.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 37.5\n");
total_tests := total_tests + 1;
fxm := log10(37.5);
fxr2 := 0.1574031267727726e1;
fxrerr := 0.655e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,37.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,37.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 38.6\n");
total_tests := total_tests + 1;
fxm := log10(38.6);
fxr2 := 0.1586587304671761e1;
fxrerr := 0.638e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,38.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,38.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 39.7\n");
total_tests := total_tests + 1;
fxm := log10(39.7);
fxr2 := 0.1598790506763121e1;
fxrerr := 0.621e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,39.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,39.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 40.8\n");
total_tests := total_tests + 1;
fxm := log10(40.8);
fxr2 := 0.1610660163089885e1;
fxrerr := 0.608e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,40.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,40.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 41.9\n");
total_tests := total_tests + 1;
fxm := log10(41.9);
fxr2 := 0.1622214022966301e1;
fxrerr := 0.595e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,41.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,41.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 43.0\n");
total_tests := total_tests + 1;
fxm := log10(43.0);
fxr2 := 0.1633468455579591e1;
fxrerr := 0.582e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,43.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,43.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 44.1\n");
total_tests := total_tests + 1;
fxm := log10(44.1);
fxr2 := 0.1644438589467843e1;
fxrerr := 0.569e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,44.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,44.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 45.2\n");
total_tests := total_tests + 1;
fxm := log10(45.2);
fxr2 := 0.1655138434811388e1;
fxrerr := 0.557e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,45.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,45.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 46.3\n");
total_tests := total_tests + 1;
fxm := log10(46.3);
fxr2 := 0.1665580991017958e1;
fxrerr := 0.544e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,46.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,46.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 47.4\n");
total_tests := total_tests + 1;
fxm := log10(47.4);
fxr2 := 0.1675778341674089e1;
fxrerr := 0.535e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,47.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,47.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 48.5\n");
total_tests := total_tests + 1;
fxm := log10(48.5);
fxr2 := 0.1685741738602269e1;
fxrerr := 0.527e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,48.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,48.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 49.6\n");
total_tests := total_tests + 1;
fxm := log10(49.6);
fxr2 := 0.1695481676490201e1;
fxrerr := 0.514e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,49.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,49.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 50.7\n");
total_tests := total_tests + 1;
fxm := log10(50.7);
fxr2 := 0.170500795933334e1;
fxrerr := 0.506e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,50.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,50.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 51.8\n");
total_tests := total_tests + 1;
fxm := log10(51.8);
fxr2 := 0.1714329759745237e1;
fxrerr := 0.497e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,51.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,51.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 52.9\n");
total_tests := total_tests + 1;
fxm := log10(52.9);
fxr2 := 0.1723455672035188e1;
fxrerr := 0.489e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,52.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,52.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 54.0\n");
total_tests := total_tests + 1;
fxm := log10(54.0);
fxr2 := 0.1732393759822974e1;
fxrerr := 0.48e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,54.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,54.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 55.1\n");
total_tests := total_tests + 1;
fxm := log10(55.1);
fxr2 := 0.174115159885179e1;
fxrerr := 0.434e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,55.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,55.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 56.2\n");
total_tests := total_tests + 1;
fxm := log10(56.2);
fxr2 := 0.1749736315569064e1;
fxrerr := 0.467e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,56.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,56.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 57.3\n");
total_tests := total_tests + 1;
fxm := log10(57.3);
fxr2 := 0.1758154621967393e1;
fxrerr := 0.46e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,57.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,57.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 58.4\n");
total_tests := total_tests + 1;
fxm := log10(58.4);
fxr2 := 0.1766412847112402e1;
fxrerr := 0.453e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,58.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,58.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 59.5\n");
total_tests := total_tests + 1;
fxm := log10(59.5);
fxr2 := 0.1774516965728552e1;
fxrerr := 0.447e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,59.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,59.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 60.6000000000001\n");
total_tests := total_tests + 1;
fxm := log10(60.6000000000001);
fxr2 := 0.178247262416629e1;
fxrerr := 0.44e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,60.6000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,60.6000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 61.7000000000001\n");
total_tests := total_tests + 1;
fxm := log10(61.7000000000001);
fxr2 := 0.1790285164033245e1;
fxrerr := 0.434e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,61.7000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,61.7000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 62.8000000000001\n");
total_tests := total_tests + 1;
fxm := log10(62.8000000000001);
fxr2 := 0.17979596437372e1;
fxrerr := 0.428e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,62.8000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,62.8000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 63.9000000000001\n");
total_tests := total_tests + 1;
fxm := log10(63.9000000000001);
fxr2 := 0.1805500858158403e1;
fxrerr := 0.422e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,63.9000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,63.9000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 65.0000000000001\n");
total_tests := total_tests + 1;
fxm := log10(65.0000000000001);
fxr2 := 0.181291335664286e1;
fxrerr := 0.417e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,65.0000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,65.0000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 66.1000000000001\n");
total_tests := total_tests + 1;
fxm := log10(66.1000000000001);
fxr2 := 0.1820201459485644e1;
fxrerr := 0.411e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,66.1000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,66.1000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 67.2\n");
total_tests := total_tests + 1;
fxm := log10(67.2);
fxr2 := 0.1827369273053828e1;
fxrerr := 0.406e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,67.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,67.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 68.3\n");
total_tests := total_tests + 1;
fxm := log10(68.3);
fxr2 := 0.1834420703681534e1;
fxrerr := 0.401e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,68.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,68.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 69.4\n");
total_tests := total_tests + 1;
fxm := log10(69.4);
fxr2 := 0.1841359470454857e1;
fxrerr := 0.396e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,69.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,69.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 70.5\n");
total_tests := total_tests + 1;
fxm := log10(70.5);
fxr2 := 0.1848189116991401e1;
fxrerr := 0.391e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,70.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,70.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 71.6\n");
total_tests := total_tests + 1;
fxm := log10(71.6);
fxr2 := 0.1854913022307858e1;
fxrerr := 0.387e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,71.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,71.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 72.7\n");
total_tests := total_tests + 1;
fxm := log10(72.7);
fxr2 := 0.186153441085904e1;
fxrerr := 0.382e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,72.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,72.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 73.8\n");
total_tests := total_tests + 1;
fxm := log10(73.8);
fxr2 := 0.1868056361823044e1;
fxrerr := 0.378e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,73.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,73.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 74.9\n");
total_tests := total_tests + 1;
fxm := log10(74.9);
fxr2 := 0.1874481817699469e1;
fxrerr := 0.374e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 76.0\n");
total_tests := total_tests + 1;
fxm := log10(76.0);
fxr2 := 0.1880813592280792e1;
fxrerr := 0.37e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 77.1\n");
total_tests := total_tests + 1;
fxm := log10(77.1);
fxr2 := 0.1887054378050958e1;
fxrerr := 0.366e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 78.2\n");
total_tests := total_tests + 1;
fxm := log10(78.2);
fxr2 := 0.189320675305985e1;
fxrerr := 0.362e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,78.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,78.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 79.3\n");
total_tests := total_tests + 1;
fxm := log10(79.3);
fxr2 := 0.1899273187317604e1;
fxrerr := 0.358e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,79.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,79.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 80.4\n");
total_tests := total_tests + 1;
fxm := log10(80.4);
fxr2 := 0.1905256048748453e1;
fxrerr := 0.354e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,80.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,80.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 81.5\n");
total_tests := total_tests + 1;
fxm := log10(81.5);
fxr2 := 0.1911157608739979e1;
fxrerr := 0.351e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,81.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,81.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 82.6\n");
total_tests := total_tests + 1;
fxm := log10(82.6);
fxr2 := 0.1916980047320383e1;
fxrerr := 0.348e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,82.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,82.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 83.7\n");
total_tests := total_tests + 1;
fxm := log10(83.7);
fxr2 := 0.1922725457993262e1;
fxrerr := 0.344e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,83.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,83.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 84.8\n");
total_tests := total_tests + 1;
fxm := log10(84.8);
fxr2 := 0.1928395852256716e1;
fxrerr := 0.341e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,84.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,84.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 85.8999999999999\n");
total_tests := total_tests + 1;
fxm := log10(85.8999999999999);
fxr2 := 0.1933993163831243e1;
fxrerr := 0.338e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,85.8999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,85.8999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 86.9999999999999\n");
total_tests := total_tests + 1;
fxm := log10(86.9999999999999);
fxr2 := 0.1939519252618619e1;
fxrerr := 0.335e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,86.9999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,86.9999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 88.0999999999999\n");
total_tests := total_tests + 1;
fxm := log10(88.0999999999999);
fxr2 := 0.1944975908412049e1;
fxrerr := 0.332e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,88.0999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,88.0999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 89.1999999999999\n");
total_tests := total_tests + 1;
fxm := log10(89.1999999999999);
fxr2 := 0.1950364854376124e1;
fxrerr := 0.329e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,89.1999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,89.1999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 90.2999999999999\n");
total_tests := total_tests + 1;
fxm := log10(90.2999999999999);
fxr2 := 0.1955687750313506e1;
fxrerr := 0.326e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,90.2999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,90.2999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 91.3999999999999\n");
total_tests := total_tests + 1;
fxm := log10(91.3999999999999);
fxr2 := 0.196094619573383e1;
fxrerr := 0.324e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,91.3999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,91.3999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 92.4999999999999\n");
total_tests := total_tests + 1;
fxm := log10(92.4999999999999);
fxr2 := 0.1966141732739031e1;
fxrerr := 0.321e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,92.4999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,92.4999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 93.5999999999999\n");
total_tests := total_tests + 1;
fxm := log10(93.5999999999999);
fxr2 := 0.1971275848738104e1;
fxrerr := 0.318e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,93.5999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,93.5999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 94.6999999999999\n");
total_tests := total_tests + 1;
fxm := log10(94.6999999999999);
fxr2 := 0.1976349979003272e1;
fxrerr := 0.315e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 95.7999999999999\n");
total_tests := total_tests + 1;
fxm := log10(95.7999999999999);
fxr2 := 0.1981365509078543e1;
fxrerr := 0.313e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 96.8999999999999\n");
total_tests := total_tests + 1;
fxm := log10(96.8999999999999);
fxr2 := 0.1986323777050764e1;
fxrerr := 0.31e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,96.8999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,96.8999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 97.9999999999999\n");
total_tests := total_tests + 1;
fxm := log10(97.9999999999999);
fxr2 := 0.1991226075692494e1;
fxrerr := 0.308e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,97.9999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,97.9999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 99.0999999999999\n");
total_tests := total_tests + 1;
fxm := log10(99.0999999999999);
fxr2 := 0.1996073654485274e1;
fxrerr := 0.306e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,99.0999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,99.0999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 100.2\n");
total_tests := total_tests + 1;
fxm := log10(100.2);
fxr2 := 0.2000867721531836e1;
fxrerr := 0.217e-9;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(log10,log10,100.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(log10,log10,100.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = sinh apfunc = sinh\n");
fprintf(except_fd,"maplefunc = sinh apfunc = sinh\n");
fprintf(out_fd,"x = -1.5\n");
total_tests := total_tests + 1;
fxm := sinh(-1.5);
fxr2 := -0.212927945509479e1;
fxrerr := 0.264e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.4\n");
total_tests := total_tests + 1;
fxm := sinh(-1.4);
fxr2 := -0.190430150145151e1;
fxrerr := 0.243e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.3\n");
total_tests := total_tests + 1;
fxm := sinh(-1.3);
fxr2 := -0.16983824372926e1;
fxrerr := 0.22e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.2\n");
total_tests := total_tests + 1;
fxm := sinh(-1.2);
fxr2 := -0.150946135541215e1;
fxrerr := 0.2e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.1\n");
total_tests := total_tests + 1;
fxm := sinh(-1.1);
fxr2 := -0.133564747012416e1;
fxrerr := 0.185e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.0\n");
total_tests := total_tests + 1;
fxm := sinh(-1.0);
fxr2 := -0.117520119364379e1;
fxrerr := 0.171e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.9\n");
total_tests := total_tests + 1;
fxm := sinh(-0.9);
fxr2 := -0.102651672570814e1;
fxrerr := 0.716e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.8\n");
total_tests := total_tests + 1;
fxm := sinh(-0.8);
fxr2 := -0.888105982187619e0;
fxrerr := 0.668e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.7\n");
total_tests := total_tests + 1;
fxm := sinh(-0.7);
fxr2 := -0.758583701839529e0;
fxrerr := 0.627e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.6\n");
total_tests := total_tests + 1;
fxm := sinh(-0.6);
fxr2 := -0.636653582148239e0;
fxrerr := 0.592e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.5\n");
total_tests := total_tests + 1;
fxm := sinh(-0.5);
fxr2 := -0.521095305493744e0;
fxrerr := 0.563e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.4\n");
total_tests := total_tests + 1;
fxm := sinh(-0.4);
fxr2 := -0.410752325802813e0;
fxrerr := 0.54e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.3\n");
total_tests := total_tests + 1;
fxm := sinh(-0.3);
fxr2 := -0.304520293447142e0;
fxrerr := 0.522e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.2\n");
total_tests := total_tests + 1;
fxm := sinh(-0.2);
fxr2 := -0.201336002541091e0;
fxrerr := 0.51e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.0999999999999998\n");
total_tests := total_tests + 1;
fxm := sinh(-0.0999999999999998);
fxr2 := -0.100166750019842e0;
fxrerr := 0.502e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.94289029309402e-16\n");
total_tests := total_tests + 1;
fxm := sinh(1.94289029309402e-16);
fxr2 := 0.194289029309402e-15;
fxrerr := 0.5e-30;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.1\n");
total_tests := total_tests + 1;
fxm := sinh(0.1);
fxr2 := 0.1001667500198438e0;
fxrerr := 0.502e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.2\n");
total_tests := total_tests + 1;
fxm := sinh(0.2);
fxr2 := 0.2013360025410938e0;
fxrerr := 0.51e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.3\n");
total_tests := total_tests + 1;
fxm := sinh(0.3);
fxr2 := 0.3045202934471424e0;
fxrerr := 0.522e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.4\n");
total_tests := total_tests + 1;
fxm := sinh(0.4);
fxr2 := 0.4107523258028151e0;
fxrerr := 0.54e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.5\n");
total_tests := total_tests + 1;
fxm := sinh(0.5);
fxr2 := 0.5210953054937471e0;
fxrerr := 0.563e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.6\n");
total_tests := total_tests + 1;
fxm := sinh(0.6);
fxr2 := 0.636653582148241e0;
fxrerr := 0.592e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.7\n");
total_tests := total_tests + 1;
fxm := sinh(0.7);
fxr2 := 0.7585837018395331e0;
fxrerr := 0.627e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.8\n");
total_tests := total_tests + 1;
fxm := sinh(0.8);
fxr2 := 0.8881059821876226e0;
fxrerr := 0.668e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.9\n");
total_tests := total_tests + 1;
fxm := sinh(0.9);
fxr2 := 0.1026516725708172e1;
fxrerr := 0.716e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.0\n");
total_tests := total_tests + 1;
fxm := sinh(1.0);
fxr2 := 0.1175201193643796e1;
fxrerr := 0.335e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.1\n");
total_tests := total_tests + 1;
fxm := sinh(1.1);
fxr2 := 0.1335647470124165e1;
fxrerr := 0.379e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.2\n");
total_tests := total_tests + 1;
fxm := sinh(1.2);
fxr2 := 0.1509461355412159e1;
fxrerr := 0.422e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.3\n");
total_tests := total_tests + 1;
fxm := sinh(1.3);
fxr2 := 0.1698382437292607e1;
fxrerr := 0.467e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.4\n");
total_tests := total_tests + 1;
fxm := sinh(1.4);
fxr2 := 0.1904301501451518e1;
fxrerr := 0.523e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sinh,sinh,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sinh,sinh,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = cosh apfunc = cosh\n");
fprintf(except_fd,"maplefunc = cosh apfunc = cosh\n");
fprintf(out_fd,"x = -1.5\n");
total_tests := total_tests + 1;
fxm := cosh(-1.5);
fxr2 := 0.235240961524323e1;
fxrerr := 0.265e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.4\n");
total_tests := total_tests + 1;
fxm := cosh(-1.4);
fxr2 := 0.2150898465393127e1;
fxrerr := 0.243e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.3\n");
total_tests := total_tests + 1;
fxm := cosh(-1.3);
fxr2 := 0.197091423032662e1;
fxrerr := 0.22e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.2\n");
total_tests := total_tests + 1;
fxm := cosh(-1.2);
fxr2 := 0.1810655567324363e1;
fxrerr := 0.2e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.1\n");
total_tests := total_tests + 1;
fxm := cosh(-1.1);
fxr2 := 0.1668518553822247e1;
fxrerr := 0.186e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.0\n");
total_tests := total_tests + 1;
fxm := cosh(-1.0);
fxr2 := 0.1543080634815239e1;
fxrerr := 0.172e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.9\n");
total_tests := total_tests + 1;
fxm := cosh(-0.9);
fxr2 := 0.1433086385448772e1;
fxrerr := 0.8e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.8\n");
total_tests := total_tests + 1;
fxm := cosh(-0.8);
fxr2 := 0.1337434946304841e1;
fxrerr := 0.748e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.7\n");
total_tests := total_tests + 1;
fxm := cosh(-0.7);
fxr2 := 0.1255169005630939e1;
fxrerr := 0.691e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.6\n");
total_tests := total_tests + 1;
fxm := cosh(-0.6);
fxr2 := 0.1185465218242265e1;
fxrerr := 0.659e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.5\n");
total_tests := total_tests + 1;
fxm := cosh(-0.5);
fxr2 := 0.1127625965206378e1;
fxrerr := 0.623e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.4\n");
total_tests := total_tests + 1;
fxm := cosh(-0.4);
fxr2 := 0.1081072371838453e1;
fxrerr := 0.592e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.3\n");
total_tests := total_tests + 1;
fxm := cosh(-0.3);
fxr2 := 0.104533851412886e1;
fxrerr := 0.571e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.2\n");
total_tests := total_tests + 1;
fxm := cosh(-0.2);
fxr2 := 0.1020066755619075e1;
fxrerr := 0.55e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.0999999999999998\n");
total_tests := total_tests + 1;
fxm := cosh(-0.0999999999999998);
fxr2 := 0.1005004168055803e1;
fxrerr := 0.535e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.94289029309402e-16\n");
total_tests := total_tests + 1;
fxm := cosh(1.94289029309402e-16);
fxr2 := 0.1e1;
fxrerr := 0.35e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.1\n");
total_tests := total_tests + 1;
fxm := cosh(0.1);
fxr2 := 0.1005004168055803e1;
fxrerr := 0.901e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.2\n");
total_tests := total_tests + 1;
fxm := cosh(0.2);
fxr2 := 0.1020066755619075e1;
fxrerr := 0.96e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.3\n");
total_tests := total_tests + 1;
fxm := cosh(0.3);
fxr2 := 0.104533851412886e1;
fxrerr := 0.103e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.4\n");
total_tests := total_tests + 1;
fxm := cosh(0.4);
fxr2 := 0.1081072371838453e1;
fxrerr := 0.11e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.5\n");
total_tests := total_tests + 1;
fxm := cosh(0.5);
fxr2 := 0.1127625965206378e1;
fxrerr := 0.119e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.6\n");
total_tests := total_tests + 1;
fxm := cosh(0.6);
fxr2 := 0.1185465218242265e1;
fxrerr := 0.13e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.7\n");
total_tests := total_tests + 1;
fxm := cosh(0.7);
fxr2 := 0.1255169005630939e1;
fxrerr := 0.141e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.8\n");
total_tests := total_tests + 1;
fxm := cosh(0.8);
fxr2 := 0.1337434946304841e1;
fxrerr := 0.156e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.9\n");
total_tests := total_tests + 1;
fxm := cosh(0.9);
fxr2 := 0.1433086385448772e1;
fxrerr := 0.171e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.0\n");
total_tests := total_tests + 1;
fxm := cosh(1.0);
fxr2 := 0.1543080634815239e1;
fxrerr := 0.345e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.1\n");
total_tests := total_tests + 1;
fxm := cosh(1.1);
fxr2 := 0.1668518553822247e1;
fxrerr := 0.387e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.2\n");
total_tests := total_tests + 1;
fxm := cosh(1.2);
fxr2 := 0.1810655567324363e1;
fxrerr := 0.43e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.3\n");
total_tests := total_tests + 1;
fxm := cosh(1.3);
fxr2 := 0.197091423032662e1;
fxrerr := 0.474e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.4\n");
total_tests := total_tests + 1;
fxm := cosh(1.4);
fxr2 := 0.2150898465393127e1;
fxrerr := 0.529e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(cosh,cosh,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(cosh,cosh,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = tanh apfunc = tanh\n");
fprintf(except_fd,"maplefunc = tanh apfunc = tanh\n");
fprintf(out_fd,"x = -1.5\n");
total_tests := total_tests + 1;
fxm := tanh(-1.5);
fxr2 := -0.905148253644861e0;
fxrerr := 0.214e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.4\n");
total_tests := total_tests + 1;
fxm := tanh(-1.4);
fxr2 := -0.885351648202256e0;
fxrerr := 0.212e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.3\n");
total_tests := total_tests + 1;
fxm := tanh(-1.3);
fxr2 := -0.861723159313302e0;
fxrerr := 0.207e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.2\n");
total_tests := total_tests + 1;
fxm := tanh(-1.2);
fxr2 := -0.833654607012148e0;
fxrerr := 0.202e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.1\n");
total_tests := total_tests + 1;
fxm := tanh(-1.1);
fxr2 := -0.800499021760624e0;
fxrerr := 0.2e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.0\n");
total_tests := total_tests + 1;
fxm := tanh(-1.0);
fxr2 := -0.761594155955759e0;
fxrerr := 0.195e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.9\n");
total_tests := total_tests + 1;
fxm := tanh(-0.9);
fxr2 := -0.716297870199e0;
fxrerr := 0.899e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.8\n");
total_tests := total_tests + 1;
fxm := tanh(-0.8);
fxr2 := -0.664036770267847e0;
fxrerr := 0.87e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.7\n");
total_tests := total_tests + 1;
fxm := tanh(-0.7);
fxr2 := -0.604367777117161e0;
fxrerr := 0.832e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.6\n");
total_tests := total_tests + 1;
fxm := tanh(-0.6);
fxr2 := -0.537049566998034e0;
fxrerr := 0.797e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.5\n");
total_tests := total_tests + 1;
fxm := tanh(-0.5);
fxr2 := -0.462117157260007e0;
fxrerr := 0.754e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.4\n");
total_tests := total_tests + 1;
fxm := tanh(-0.4);
fxr2 := -0.379948962255223e0;
fxrerr := 0.707e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.3\n");
total_tests := total_tests + 1;
fxm := tanh(-0.3);
fxr2 := -0.29131261245159e0;
fxrerr := 0.658e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.2\n");
total_tests := total_tests + 1;
fxm := tanh(-0.2);
fxr2 := -0.197375320224901e0;
fxrerr := 0.606e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.0999999999999998\n");
total_tests := total_tests + 1;
fxm := tanh(-0.0999999999999998);
fxr2 := -0.996679946249538e-1;
fxrerr := 0.552e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.94289029309402e-16\n");
total_tests := total_tests + 1;
fxm := tanh(1.94289029309402e-16);
fxr2 := 0.194289029309402e-15;
fxrerr := 0.5e-30;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.1\n");
total_tests := total_tests + 1;
fxm := tanh(0.1);
fxr2 := 0.9966799462495565e-1;
fxrerr := 0.588e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.2\n");
total_tests := total_tests + 1;
fxm := tanh(0.2);
fxr2 := 0.1973753202249039e0;
fxrerr := 0.685e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.3\n");
total_tests := total_tests + 1;
fxm := tanh(0.3);
fxr2 := 0.2913126124515908e0;
fxrerr := 0.786e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.4\n");
total_tests := total_tests + 1;
fxm := tanh(0.4);
fxr2 := 0.3799489622552251e0;
fxrerr := 0.886e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.5\n");
total_tests := total_tests + 1;
fxm := tanh(0.5);
fxr2 := 0.4621171572600106e0;
fxrerr := 0.986e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.6\n");
total_tests := total_tests + 1;
fxm := tanh(0.6);
fxr2 := 0.5370495669980362e0;
fxrerr := 0.108e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.7\n");
total_tests := total_tests + 1;
fxm := tanh(0.7);
fxr2 := 0.6043677771171651e0;
fxrerr := 0.117e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.8\n");
total_tests := total_tests + 1;
fxm := tanh(0.8);
fxr2 := 0.6640367702678504e0;
fxrerr := 0.127e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.9\n");
total_tests := total_tests + 1;
fxm := tanh(0.9);
fxr2 := 0.7162978701990233e0;
fxrerr := 0.135e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.0\n");
total_tests := total_tests + 1;
fxm := tanh(1.0);
fxr2 := 0.7615941559557637e0;
fxrerr := 0.387e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.1\n");
total_tests := total_tests + 1;
fxm := tanh(1.1);
fxr2 := 0.8004990217606271e0;
fxrerr := 0.412e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.2\n");
total_tests := total_tests + 1;
fxm := tanh(1.2);
fxr2 := 0.8336546070121531e0;
fxrerr := 0.431e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.3\n");
total_tests := total_tests + 1;
fxm := tanh(1.3);
fxr2 := 0.8617231593133055e0;
fxrerr := 0.444e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.4\n");
total_tests := total_tests + 1;
fxm := tanh(1.4);
fxr2 := 0.8853516482022606e0;
fxrerr := 0.46e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(tanh,tanh,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(tanh,tanh,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = sqrt apfunc = sqrt\n");
fprintf(except_fd,"maplefunc = sqrt apfunc = sqrt\n");
fprintf(out_fd,"x = 0.0\n");
total_tests := total_tests + 1;
fxm := sqrt(0.0);
fxr2 := 0.0e0;
fxrerr := 0.50e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sqrt,sqrt,0.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sqrt,sqrt,0.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.1\n");
total_tests := total_tests + 1;
fxm := sqrt(0.1);
fxr2 := 0.3162277660170497e0;
fxrerr := 0.161e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sqrt,sqrt,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sqrt,sqrt,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.2\n");
total_tests := total_tests + 1;
fxm := sqrt(0.2);
fxr2 := 0.447213595500107e0;
fxrerr := 0.574e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sqrt,sqrt,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sqrt,sqrt,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.3\n");
total_tests := total_tests + 1;
fxm := sqrt(0.3);
fxr2 := 0.5477225575052788e0;
fxrerr := 0.473e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sqrt,sqrt,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sqrt,sqrt,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.4\n");
total_tests := total_tests + 1;
fxm := sqrt(0.4);
fxr2 := 0.6324555320336885e0;
fxrerr := 0.415e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sqrt,sqrt,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sqrt,sqrt,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.5\n");
total_tests := total_tests + 1;
fxm := sqrt(0.5);
fxr2 := 0.70710678118656e0;
fxrerr := 0.372e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sqrt,sqrt,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sqrt,sqrt,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.6\n");
total_tests := total_tests + 1;
fxm := sqrt(0.6);
fxr2 := 0.7745966692414939e0;
fxrerr := 0.339e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sqrt,sqrt,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sqrt,sqrt,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.7\n");
total_tests := total_tests + 1;
fxm := sqrt(0.7);
fxr2 := 0.8366600265340843e0;
fxrerr := 0.312e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sqrt,sqrt,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sqrt,sqrt,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.8\n");
total_tests := total_tests + 1;
fxm := sqrt(0.8);
fxr2 := 0.8944271909999237e0;
fxrerr := 0.291e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sqrt,sqrt,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sqrt,sqrt,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.9\n");
total_tests := total_tests + 1;
fxm := sqrt(0.9);
fxr2 := 0.9486832980505207e0;
fxrerr := 0.272e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sqrt,sqrt,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sqrt,sqrt,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.0\n");
total_tests := total_tests + 1;
fxm := sqrt(1.0);
fxr2 := 0.1e1;
fxrerr := 0.1e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sqrt,sqrt,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sqrt,sqrt,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.1\n");
total_tests := total_tests + 1;
fxm := sqrt(1.1);
fxr2 := 0.1048808848170772e1;
fxrerr := 0.264e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sqrt,sqrt,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sqrt,sqrt,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.2\n");
total_tests := total_tests + 1;
fxm := sqrt(1.2);
fxr2 := 0.109544511501091e1;
fxrerr := 0.255e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sqrt,sqrt,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sqrt,sqrt,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.3\n");
total_tests := total_tests + 1;
fxm := sqrt(1.3);
fxr2 := 0.114017542509966e1;
fxrerr := 0.247e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sqrt,sqrt,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sqrt,sqrt,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.4\n");
total_tests := total_tests + 1;
fxm := sqrt(1.4);
fxr2 := 0.1183215956620464e1;
fxrerr := 0.241e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(sqrt,sqrt,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(sqrt,sqrt,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = abs apfunc = abs\n");
fprintf(except_fd,"maplefunc = abs apfunc = abs\n");
fprintf(out_fd,"x = -1.5\n");
total_tests := total_tests + 1;
fxm := abs(-1.5);
fxr2 := 0.15e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.4\n");
total_tests := total_tests + 1;
fxm := abs(-1.4);
fxr2 := 0.14e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.3\n");
total_tests := total_tests + 1;
fxm := abs(-1.3);
fxr2 := 0.13e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.2\n");
total_tests := total_tests + 1;
fxm := abs(-1.2);
fxr2 := 0.12e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.1\n");
total_tests := total_tests + 1;
fxm := abs(-1.1);
fxr2 := 0.11e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.0\n");
total_tests := total_tests + 1;
fxm := abs(-1.0);
fxr2 := 0.1e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.9\n");
total_tests := total_tests + 1;
fxm := abs(-0.9);
fxr2 := 0.9e0;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.8\n");
total_tests := total_tests + 1;
fxm := abs(-0.8);
fxr2 := 0.8e0;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.7\n");
total_tests := total_tests + 1;
fxm := abs(-0.7);
fxr2 := 0.7e0;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.6\n");
total_tests := total_tests + 1;
fxm := abs(-0.6);
fxr2 := 0.6e0;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.5\n");
total_tests := total_tests + 1;
fxm := abs(-0.5);
fxr2 := 0.5e0;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.4\n");
total_tests := total_tests + 1;
fxm := abs(-0.4);
fxr2 := 0.4e0;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.3\n");
total_tests := total_tests + 1;
fxm := abs(-0.3);
fxr2 := 0.3e0;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.2\n");
total_tests := total_tests + 1;
fxm := abs(-0.2);
fxr2 := 0.2e0;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.0999999999999998\n");
total_tests := total_tests + 1;
fxm := abs(-0.0999999999999998);
fxr2 := 0.999999999999998e-1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.94289029309402e-16\n");
total_tests := total_tests + 1;
fxm := abs(1.94289029309402e-16);
fxr2 := 0.194289029309402e-15;
fxrerr := 0.50e-29;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.1\n");
total_tests := total_tests + 1;
fxm := abs(0.1);
fxr2 := 0.1e0;
fxrerr := 0.50e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.2\n");
total_tests := total_tests + 1;
fxm := abs(0.2);
fxr2 := 0.2e0;
fxrerr := 0.50e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.3\n");
total_tests := total_tests + 1;
fxm := abs(0.3);
fxr2 := 0.3e0;
fxrerr := 0.50e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.4\n");
total_tests := total_tests + 1;
fxm := abs(0.4);
fxr2 := 0.4e0;
fxrerr := 0.50e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.5\n");
total_tests := total_tests + 1;
fxm := abs(0.5);
fxr2 := 0.5e0;
fxrerr := 0.50e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.6\n");
total_tests := total_tests + 1;
fxm := abs(0.6);
fxr2 := 0.6e0;
fxrerr := 0.50e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.7\n");
total_tests := total_tests + 1;
fxm := abs(0.7);
fxr2 := 0.7e0;
fxrerr := 0.50e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.8\n");
total_tests := total_tests + 1;
fxm := abs(0.8);
fxr2 := 0.8e0;
fxrerr := 0.50e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.9\n");
total_tests := total_tests + 1;
fxm := abs(0.9);
fxr2 := 0.9e0;
fxrerr := 0.50e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.0\n");
total_tests := total_tests + 1;
fxm := abs(1.0);
fxr2 := 0.1e1;
fxrerr := 0.50e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.1\n");
total_tests := total_tests + 1;
fxm := abs(1.1);
fxr2 := 0.11e1;
fxrerr := 0.50e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.2\n");
total_tests := total_tests + 1;
fxm := abs(1.2);
fxr2 := 0.12e1;
fxrerr := 0.50e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.3\n");
total_tests := total_tests + 1;
fxm := abs(1.3);
fxr2 := 0.13e1;
fxrerr := 0.50e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.4\n");
total_tests := total_tests + 1;
fxm := abs(1.4);
fxr2 := 0.14e1;
fxrerr := 0.50e-13;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(abs,abs,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(abs,abs,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = trunc apfunc = trunc\n");
fprintf(except_fd,"maplefunc = trunc apfunc = trunc\n");
fprintf(out_fd,"x = -19.5\n");
total_tests := total_tests + 1;
fxm := trunc(-19.5);
fxr2 := -0.19e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -19.38\n");
total_tests := total_tests + 1;
fxm := trunc(-19.38);
fxr2 := -0.19e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-19.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-19.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -19.26\n");
total_tests := total_tests + 1;
fxm := trunc(-19.26);
fxr2 := -0.19e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-19.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-19.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -19.14\n");
total_tests := total_tests + 1;
fxm := trunc(-19.14);
fxr2 := -0.19e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-19.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-19.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -19.02\n");
total_tests := total_tests + 1;
fxm := trunc(-19.02);
fxr2 := -0.19e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-19.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-19.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -18.9\n");
total_tests := total_tests + 1;
fxm := trunc(-18.9);
fxr2 := -0.18e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-18.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-18.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -18.78\n");
total_tests := total_tests + 1;
fxm := trunc(-18.78);
fxr2 := -0.18e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-18.78,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-18.78,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -18.66\n");
total_tests := total_tests + 1;
fxm := trunc(-18.66);
fxr2 := -0.18e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-18.66,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-18.66,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -18.54\n");
total_tests := total_tests + 1;
fxm := trunc(-18.54);
fxr2 := -0.18e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-18.54,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-18.54,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -18.42\n");
total_tests := total_tests + 1;
fxm := trunc(-18.42);
fxr2 := -0.18e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-18.42,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-18.42,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -18.3\n");
total_tests := total_tests + 1;
fxm := trunc(-18.3);
fxr2 := -0.18e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-18.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-18.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -18.18\n");
total_tests := total_tests + 1;
fxm := trunc(-18.18);
fxr2 := -0.18e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-18.18,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-18.18,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -18.06\n");
total_tests := total_tests + 1;
fxm := trunc(-18.06);
fxr2 := -0.18e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-18.06,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-18.06,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -17.94\n");
total_tests := total_tests + 1;
fxm := trunc(-17.94);
fxr2 := -0.17e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-17.94,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-17.94,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -17.82\n");
total_tests := total_tests + 1;
fxm := trunc(-17.82);
fxr2 := -0.17e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-17.82,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-17.82,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -17.7\n");
total_tests := total_tests + 1;
fxm := trunc(-17.7);
fxr2 := -0.17e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -17.58\n");
total_tests := total_tests + 1;
fxm := trunc(-17.58);
fxr2 := -0.17e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-17.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-17.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -17.46\n");
total_tests := total_tests + 1;
fxm := trunc(-17.46);
fxr2 := -0.17e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-17.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-17.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -17.34\n");
total_tests := total_tests + 1;
fxm := trunc(-17.34);
fxr2 := -0.17e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-17.34,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-17.34,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -17.22\n");
total_tests := total_tests + 1;
fxm := trunc(-17.22);
fxr2 := -0.17e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-17.22,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-17.22,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -17.1\n");
total_tests := total_tests + 1;
fxm := trunc(-17.1);
fxr2 := -0.17e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-17.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-17.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.98\n");
total_tests := total_tests + 1;
fxm := trunc(-16.98);
fxr2 := -0.16e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-16.98,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-16.98,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.86\n");
total_tests := total_tests + 1;
fxm := trunc(-16.86);
fxr2 := -0.16e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-16.86,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-16.86,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.74\n");
total_tests := total_tests + 1;
fxm := trunc(-16.74);
fxr2 := -0.16e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-16.74,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-16.74,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.62\n");
total_tests := total_tests + 1;
fxm := trunc(-16.62);
fxr2 := -0.16e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-16.62,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-16.62,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.5\n");
total_tests := total_tests + 1;
fxm := trunc(-16.5);
fxr2 := -0.16e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-16.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-16.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.38\n");
total_tests := total_tests + 1;
fxm := trunc(-16.38);
fxr2 := -0.16e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-16.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-16.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.26\n");
total_tests := total_tests + 1;
fxm := trunc(-16.26);
fxr2 := -0.16e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-16.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-16.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.14\n");
total_tests := total_tests + 1;
fxm := trunc(-16.14);
fxr2 := -0.16e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-16.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-16.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.02\n");
total_tests := total_tests + 1;
fxm := trunc(-16.02);
fxr2 := -0.16e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-16.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-16.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -15.9\n");
total_tests := total_tests + 1;
fxm := trunc(-15.9);
fxr2 := -0.15e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-15.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-15.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -15.78\n");
total_tests := total_tests + 1;
fxm := trunc(-15.78);
fxr2 := -0.15e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-15.78,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-15.78,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -15.66\n");
total_tests := total_tests + 1;
fxm := trunc(-15.66);
fxr2 := -0.15e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-15.66,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-15.66,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -15.54\n");
total_tests := total_tests + 1;
fxm := trunc(-15.54);
fxr2 := -0.15e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-15.54,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-15.54,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -15.42\n");
total_tests := total_tests + 1;
fxm := trunc(-15.42);
fxr2 := -0.15e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-15.42,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-15.42,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -15.3\n");
total_tests := total_tests + 1;
fxm := trunc(-15.3);
fxr2 := -0.15e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-15.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-15.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -15.18\n");
total_tests := total_tests + 1;
fxm := trunc(-15.18);
fxr2 := -0.15e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-15.18,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-15.18,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -15.06\n");
total_tests := total_tests + 1;
fxm := trunc(-15.06);
fxr2 := -0.15e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-15.06,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-15.06,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.94\n");
total_tests := total_tests + 1;
fxm := trunc(-14.94);
fxr2 := -0.14e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-14.94,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-14.94,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.82\n");
total_tests := total_tests + 1;
fxm := trunc(-14.82);
fxr2 := -0.14e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-14.82,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-14.82,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.7\n");
total_tests := total_tests + 1;
fxm := trunc(-14.7);
fxr2 := -0.14e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-14.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-14.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.58\n");
total_tests := total_tests + 1;
fxm := trunc(-14.58);
fxr2 := -0.14e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-14.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-14.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.46\n");
total_tests := total_tests + 1;
fxm := trunc(-14.46);
fxr2 := -0.14e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-14.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-14.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.34\n");
total_tests := total_tests + 1;
fxm := trunc(-14.34);
fxr2 := -0.14e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-14.34,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-14.34,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.22\n");
total_tests := total_tests + 1;
fxm := trunc(-14.22);
fxr2 := -0.14e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-14.22,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-14.22,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.1\n");
total_tests := total_tests + 1;
fxm := trunc(-14.1);
fxr2 := -0.14e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-14.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-14.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.98\n");
total_tests := total_tests + 1;
fxm := trunc(-13.98);
fxr2 := -0.13e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-13.98,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-13.98,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.86\n");
total_tests := total_tests + 1;
fxm := trunc(-13.86);
fxr2 := -0.13e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-13.86,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-13.86,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.74\n");
total_tests := total_tests + 1;
fxm := trunc(-13.74);
fxr2 := -0.13e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-13.74,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-13.74,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.62\n");
total_tests := total_tests + 1;
fxm := trunc(-13.62);
fxr2 := -0.13e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-13.62,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-13.62,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.5\n");
total_tests := total_tests + 1;
fxm := trunc(-13.5);
fxr2 := -0.13e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-13.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-13.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.38\n");
total_tests := total_tests + 1;
fxm := trunc(-13.38);
fxr2 := -0.13e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-13.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-13.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.26\n");
total_tests := total_tests + 1;
fxm := trunc(-13.26);
fxr2 := -0.13e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-13.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-13.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.14\n");
total_tests := total_tests + 1;
fxm := trunc(-13.14);
fxr2 := -0.13e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-13.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-13.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.02\n");
total_tests := total_tests + 1;
fxm := trunc(-13.02);
fxr2 := -0.13e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-13.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-13.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -12.9\n");
total_tests := total_tests + 1;
fxm := trunc(-12.9);
fxr2 := -0.12e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-12.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-12.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -12.78\n");
total_tests := total_tests + 1;
fxm := trunc(-12.78);
fxr2 := -0.12e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-12.78,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-12.78,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -12.66\n");
total_tests := total_tests + 1;
fxm := trunc(-12.66);
fxr2 := -0.12e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-12.66,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-12.66,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -12.54\n");
total_tests := total_tests + 1;
fxm := trunc(-12.54);
fxr2 := -0.12e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-12.54,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-12.54,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -12.42\n");
total_tests := total_tests + 1;
fxm := trunc(-12.42);
fxr2 := -0.12e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-12.42,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-12.42,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -12.3\n");
total_tests := total_tests + 1;
fxm := trunc(-12.3);
fxr2 := -0.12e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-12.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-12.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -12.18\n");
total_tests := total_tests + 1;
fxm := trunc(-12.18);
fxr2 := -0.12e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-12.18,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-12.18,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -12.06\n");
total_tests := total_tests + 1;
fxm := trunc(-12.06);
fxr2 := -0.12e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-12.06,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-12.06,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -11.94\n");
total_tests := total_tests + 1;
fxm := trunc(-11.94);
fxr2 := -0.11e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-11.94,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-11.94,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -11.82\n");
total_tests := total_tests + 1;
fxm := trunc(-11.82);
fxr2 := -0.11e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-11.82,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-11.82,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -11.7\n");
total_tests := total_tests + 1;
fxm := trunc(-11.7);
fxr2 := -0.11e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-11.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-11.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -11.58\n");
total_tests := total_tests + 1;
fxm := trunc(-11.58);
fxr2 := -0.11e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-11.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-11.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -11.46\n");
total_tests := total_tests + 1;
fxm := trunc(-11.46);
fxr2 := -0.11e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-11.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-11.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -11.34\n");
total_tests := total_tests + 1;
fxm := trunc(-11.34);
fxr2 := -0.11e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-11.34,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-11.34,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -11.22\n");
total_tests := total_tests + 1;
fxm := trunc(-11.22);
fxr2 := -0.11e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-11.22,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-11.22,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -11.1\n");
total_tests := total_tests + 1;
fxm := trunc(-11.1);
fxr2 := -0.11e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-11.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-11.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.98\n");
total_tests := total_tests + 1;
fxm := trunc(-10.98);
fxr2 := -0.1e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-10.98,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-10.98,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.86\n");
total_tests := total_tests + 1;
fxm := trunc(-10.86);
fxr2 := -0.1e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-10.86,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-10.86,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.74\n");
total_tests := total_tests + 1;
fxm := trunc(-10.74);
fxr2 := -0.1e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-10.74,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-10.74,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.62\n");
total_tests := total_tests + 1;
fxm := trunc(-10.62);
fxr2 := -0.1e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-10.62,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-10.62,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.5\n");
total_tests := total_tests + 1;
fxm := trunc(-10.5);
fxr2 := -0.1e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-10.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-10.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.38\n");
total_tests := total_tests + 1;
fxm := trunc(-10.38);
fxr2 := -0.1e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-10.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-10.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.26\n");
total_tests := total_tests + 1;
fxm := trunc(-10.26);
fxr2 := -0.1e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-10.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-10.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.14\n");
total_tests := total_tests + 1;
fxm := trunc(-10.14);
fxr2 := -0.1e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-10.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-10.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.02\n");
total_tests := total_tests + 1;
fxm := trunc(-10.02);
fxr2 := -0.1e2;
fxrerr := 0.50e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-10.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-10.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.90000000000001\n");
total_tests := total_tests + 1;
fxm := trunc(-9.90000000000001);
fxr2 := -0.9e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-9.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-9.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.78000000000001\n");
total_tests := total_tests + 1;
fxm := trunc(-9.78000000000001);
fxr2 := -0.9e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-9.78000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-9.78000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.66000000000001\n");
total_tests := total_tests + 1;
fxm := trunc(-9.66000000000001);
fxr2 := -0.9e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-9.66000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-9.66000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.54000000000001\n");
total_tests := total_tests + 1;
fxm := trunc(-9.54000000000001);
fxr2 := -0.9e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-9.54000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-9.54000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.42000000000001\n");
total_tests := total_tests + 1;
fxm := trunc(-9.42000000000001);
fxr2 := -0.9e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-9.42000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-9.42000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.30000000000001\n");
total_tests := total_tests + 1;
fxm := trunc(-9.30000000000001);
fxr2 := -0.9e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-9.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-9.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.18000000000002\n");
total_tests := total_tests + 1;
fxm := trunc(-9.18000000000002);
fxr2 := -0.9e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-9.18000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-9.18000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.06000000000002\n");
total_tests := total_tests + 1;
fxm := trunc(-9.06000000000002);
fxr2 := -0.9e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-9.06000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-9.06000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.94000000000002\n");
total_tests := total_tests + 1;
fxm := trunc(-8.94000000000002);
fxr2 := -0.8e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-8.94000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-8.94000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.82000000000002\n");
total_tests := total_tests + 1;
fxm := trunc(-8.82000000000002);
fxr2 := -0.8e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-8.82000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-8.82000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.70000000000002\n");
total_tests := total_tests + 1;
fxm := trunc(-8.70000000000002);
fxr2 := -0.8e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-8.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-8.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.58000000000002\n");
total_tests := total_tests + 1;
fxm := trunc(-8.58000000000002);
fxr2 := -0.8e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-8.58000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-8.58000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.46000000000002\n");
total_tests := total_tests + 1;
fxm := trunc(-8.46000000000002);
fxr2 := -0.8e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-8.46000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-8.46000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.34000000000002\n");
total_tests := total_tests + 1;
fxm := trunc(-8.34000000000002);
fxr2 := -0.8e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-8.34000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-8.34000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.22000000000002\n");
total_tests := total_tests + 1;
fxm := trunc(-8.22000000000002);
fxr2 := -0.8e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-8.22000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-8.22000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.10000000000002\n");
total_tests := total_tests + 1;
fxm := trunc(-8.10000000000002);
fxr2 := -0.8e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-8.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-8.10000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -7.98000000000002\n");
total_tests := total_tests + 1;
fxm := trunc(-7.98000000000002);
fxr2 := -0.7e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-7.98000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-7.98000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -7.86000000000002\n");
total_tests := total_tests + 1;
fxm := trunc(-7.86000000000002);
fxr2 := -0.7e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-7.86000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-7.86000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -7.74000000000002\n");
total_tests := total_tests + 1;
fxm := trunc(-7.74000000000002);
fxr2 := -0.7e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-7.74000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-7.74000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -7.62000000000002\n");
total_tests := total_tests + 1;
fxm := trunc(-7.62000000000002);
fxr2 := -0.7e1;
fxrerr := 0.50e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(trunc,trunc,-7.62000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(trunc,trunc,-7.62000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = frac apfunc = frac\n");
fprintf(except_fd,"maplefunc = frac apfunc = frac\n");
fprintf(out_fd,"x = -19.5\n");
total_tests := total_tests + 1;
fxm := frac(-19.5);
fxr2 := -0.5e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -19.39\n");
total_tests := total_tests + 1;
fxm := frac(-19.39);
fxr2 := -0.39e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-19.39,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-19.39,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -19.28\n");
total_tests := total_tests + 1;
fxm := frac(-19.28);
fxr2 := -0.28e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-19.28,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-19.28,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -19.17\n");
total_tests := total_tests + 1;
fxm := frac(-19.17);
fxr2 := -0.17e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-19.17,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-19.17,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -19.06\n");
total_tests := total_tests + 1;
fxm := frac(-19.06);
fxr2 := -0.6e-1;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-19.06,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-19.06,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -18.95\n");
total_tests := total_tests + 1;
fxm := frac(-18.95);
fxr2 := -0.95e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-18.95,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-18.95,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -18.84\n");
total_tests := total_tests + 1;
fxm := frac(-18.84);
fxr2 := -0.84e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-18.84,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-18.84,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -18.73\n");
total_tests := total_tests + 1;
fxm := frac(-18.73);
fxr2 := -0.73e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-18.73,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-18.73,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -18.62\n");
total_tests := total_tests + 1;
fxm := frac(-18.62);
fxr2 := -0.62e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-18.62,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-18.62,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -18.51\n");
total_tests := total_tests + 1;
fxm := frac(-18.51);
fxr2 := -0.51e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-18.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-18.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -18.4\n");
total_tests := total_tests + 1;
fxm := frac(-18.4);
fxr2 := -0.4e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-18.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-18.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -18.29\n");
total_tests := total_tests + 1;
fxm := frac(-18.29);
fxr2 := -0.29e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-18.29,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-18.29,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -18.18\n");
total_tests := total_tests + 1;
fxm := frac(-18.18);
fxr2 := -0.18e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-18.18,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-18.18,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -18.07\n");
total_tests := total_tests + 1;
fxm := frac(-18.07);
fxr2 := -0.7e-1;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-18.07,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-18.07,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -17.96\n");
total_tests := total_tests + 1;
fxm := frac(-17.96);
fxr2 := -0.96e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-17.96,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-17.96,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -17.85\n");
total_tests := total_tests + 1;
fxm := frac(-17.85);
fxr2 := -0.85e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-17.85,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-17.85,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -17.74\n");
total_tests := total_tests + 1;
fxm := frac(-17.74);
fxr2 := -0.74e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-17.74,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-17.74,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -17.63\n");
total_tests := total_tests + 1;
fxm := frac(-17.63);
fxr2 := -0.63e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-17.63,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-17.63,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -17.52\n");
total_tests := total_tests + 1;
fxm := frac(-17.52);
fxr2 := -0.52e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-17.52,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-17.52,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -17.41\n");
total_tests := total_tests + 1;
fxm := frac(-17.41);
fxr2 := -0.41e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-17.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-17.41,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -17.3\n");
total_tests := total_tests + 1;
fxm := frac(-17.3);
fxr2 := -0.3e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-17.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-17.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -17.19\n");
total_tests := total_tests + 1;
fxm := frac(-17.19);
fxr2 := -0.19e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-17.19,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-17.19,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -17.08\n");
total_tests := total_tests + 1;
fxm := frac(-17.08);
fxr2 := -0.8e-1;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-17.08,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-17.08,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.97\n");
total_tests := total_tests + 1;
fxm := frac(-16.97);
fxr2 := -0.97e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-16.97,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-16.97,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.86\n");
total_tests := total_tests + 1;
fxm := frac(-16.86);
fxr2 := -0.86e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-16.86,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-16.86,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.75\n");
total_tests := total_tests + 1;
fxm := frac(-16.75);
fxr2 := -0.75e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-16.75,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-16.75,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.64\n");
total_tests := total_tests + 1;
fxm := frac(-16.64);
fxr2 := -0.64e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-16.64,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-16.64,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.53\n");
total_tests := total_tests + 1;
fxm := frac(-16.53);
fxr2 := -0.53e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-16.53,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-16.53,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.42\n");
total_tests := total_tests + 1;
fxm := frac(-16.42);
fxr2 := -0.42e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-16.42,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-16.42,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.31\n");
total_tests := total_tests + 1;
fxm := frac(-16.31);
fxr2 := -0.31e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-16.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-16.31,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.2\n");
total_tests := total_tests + 1;
fxm := frac(-16.2);
fxr2 := -0.2e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-16.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-16.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -16.09\n");
total_tests := total_tests + 1;
fxm := frac(-16.09);
fxr2 := -0.9e-1;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-16.09,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-16.09,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -15.98\n");
total_tests := total_tests + 1;
fxm := frac(-15.98);
fxr2 := -0.98e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-15.98,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-15.98,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -15.87\n");
total_tests := total_tests + 1;
fxm := frac(-15.87);
fxr2 := -0.87e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-15.87,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-15.87,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -15.76\n");
total_tests := total_tests + 1;
fxm := frac(-15.76);
fxr2 := -0.76e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-15.76,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-15.76,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -15.65\n");
total_tests := total_tests + 1;
fxm := frac(-15.65);
fxr2 := -0.65e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-15.65,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-15.65,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -15.54\n");
total_tests := total_tests + 1;
fxm := frac(-15.54);
fxr2 := -0.54e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-15.54,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-15.54,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -15.43\n");
total_tests := total_tests + 1;
fxm := frac(-15.43);
fxr2 := -0.43e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-15.43,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-15.43,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -15.32\n");
total_tests := total_tests + 1;
fxm := frac(-15.32);
fxr2 := -0.32e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-15.32,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-15.32,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -15.21\n");
total_tests := total_tests + 1;
fxm := frac(-15.21);
fxr2 := -0.21e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-15.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-15.21,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -15.1\n");
total_tests := total_tests + 1;
fxm := frac(-15.1);
fxr2 := -0.1e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-15.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-15.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.99\n");
total_tests := total_tests + 1;
fxm := frac(-14.99);
fxr2 := -0.99e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-14.99,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-14.99,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.88\n");
total_tests := total_tests + 1;
fxm := frac(-14.88);
fxr2 := -0.88e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-14.88,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-14.88,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.77\n");
total_tests := total_tests + 1;
fxm := frac(-14.77);
fxr2 := -0.77e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-14.77,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-14.77,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.66\n");
total_tests := total_tests + 1;
fxm := frac(-14.66);
fxr2 := -0.66e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-14.66,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-14.66,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.55\n");
total_tests := total_tests + 1;
fxm := frac(-14.55);
fxr2 := -0.55e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-14.55,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-14.55,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.44\n");
total_tests := total_tests + 1;
fxm := frac(-14.44);
fxr2 := -0.44e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-14.44,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-14.44,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.33\n");
total_tests := total_tests + 1;
fxm := frac(-14.33);
fxr2 := -0.33e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-14.33,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-14.33,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.22\n");
total_tests := total_tests + 1;
fxm := frac(-14.22);
fxr2 := -0.22e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-14.22,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-14.22,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.11\n");
total_tests := total_tests + 1;
fxm := frac(-14.11);
fxr2 := -0.11e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-14.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-14.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -14.0\n");
total_tests := total_tests + 1;
fxm := frac(-14.0);
fxr2 := 0.0e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-14.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-14.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.89\n");
total_tests := total_tests + 1;
fxm := frac(-13.89);
fxr2 := -0.89e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-13.89,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-13.89,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.78\n");
total_tests := total_tests + 1;
fxm := frac(-13.78);
fxr2 := -0.78e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-13.78,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-13.78,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.67\n");
total_tests := total_tests + 1;
fxm := frac(-13.67);
fxr2 := -0.67e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-13.67,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-13.67,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.56\n");
total_tests := total_tests + 1;
fxm := frac(-13.56);
fxr2 := -0.56e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-13.56,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-13.56,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.45\n");
total_tests := total_tests + 1;
fxm := frac(-13.45);
fxr2 := -0.45e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-13.45,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-13.45,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.34\n");
total_tests := total_tests + 1;
fxm := frac(-13.34);
fxr2 := -0.34e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-13.34,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-13.34,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.23\n");
total_tests := total_tests + 1;
fxm := frac(-13.23);
fxr2 := -0.23e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-13.23,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-13.23,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.12\n");
total_tests := total_tests + 1;
fxm := frac(-13.12);
fxr2 := -0.12e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-13.12,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-13.12,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -13.01\n");
total_tests := total_tests + 1;
fxm := frac(-13.01);
fxr2 := -0.1e-1;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-13.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-13.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -12.9\n");
total_tests := total_tests + 1;
fxm := frac(-12.9);
fxr2 := -0.9e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-12.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-12.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -12.79\n");
total_tests := total_tests + 1;
fxm := frac(-12.79);
fxr2 := -0.79e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-12.79,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-12.79,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -12.68\n");
total_tests := total_tests + 1;
fxm := frac(-12.68);
fxr2 := -0.68e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-12.68,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-12.68,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -12.57\n");
total_tests := total_tests + 1;
fxm := frac(-12.57);
fxr2 := -0.57e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-12.57,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-12.57,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -12.46\n");
total_tests := total_tests + 1;
fxm := frac(-12.46);
fxr2 := -0.46e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-12.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-12.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -12.35\n");
total_tests := total_tests + 1;
fxm := frac(-12.35);
fxr2 := -0.35e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-12.35,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-12.35,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -12.24\n");
total_tests := total_tests + 1;
fxm := frac(-12.24);
fxr2 := -0.24e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-12.24,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-12.24,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -12.13\n");
total_tests := total_tests + 1;
fxm := frac(-12.13);
fxr2 := -0.13e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-12.13,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-12.13,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -12.02\n");
total_tests := total_tests + 1;
fxm := frac(-12.02);
fxr2 := -0.2e-1;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-12.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-12.02,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -11.91\n");
total_tests := total_tests + 1;
fxm := frac(-11.91);
fxr2 := -0.91e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-11.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-11.91,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -11.8\n");
total_tests := total_tests + 1;
fxm := frac(-11.8);
fxr2 := -0.8e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-11.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-11.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -11.69\n");
total_tests := total_tests + 1;
fxm := frac(-11.69);
fxr2 := -0.69e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-11.69,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-11.69,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -11.58\n");
total_tests := total_tests + 1;
fxm := frac(-11.58);
fxr2 := -0.58e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-11.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-11.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -11.47\n");
total_tests := total_tests + 1;
fxm := frac(-11.47);
fxr2 := -0.47e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-11.47,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-11.47,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -11.36\n");
total_tests := total_tests + 1;
fxm := frac(-11.36);
fxr2 := -0.36e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-11.36,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-11.36,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -11.25\n");
total_tests := total_tests + 1;
fxm := frac(-11.25);
fxr2 := -0.25e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-11.25,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-11.25,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -11.14\n");
total_tests := total_tests + 1;
fxm := frac(-11.14);
fxr2 := -0.14e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-11.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-11.14,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -11.03\n");
total_tests := total_tests + 1;
fxm := frac(-11.03);
fxr2 := -0.3e-1;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-11.03,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-11.03,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.92\n");
total_tests := total_tests + 1;
fxm := frac(-10.92);
fxr2 := -0.92e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-10.92,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-10.92,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.81\n");
total_tests := total_tests + 1;
fxm := frac(-10.81);
fxr2 := -0.81e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-10.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-10.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.7\n");
total_tests := total_tests + 1;
fxm := frac(-10.7);
fxr2 := -0.7e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-10.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-10.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.59\n");
total_tests := total_tests + 1;
fxm := frac(-10.59);
fxr2 := -0.59e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-10.59,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-10.59,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.48\n");
total_tests := total_tests + 1;
fxm := frac(-10.48);
fxr2 := -0.48e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-10.48,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-10.48,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.37\n");
total_tests := total_tests + 1;
fxm := frac(-10.37);
fxr2 := -0.37e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-10.37,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-10.37,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.26\n");
total_tests := total_tests + 1;
fxm := frac(-10.26);
fxr2 := -0.26e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-10.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-10.26,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.15\n");
total_tests := total_tests + 1;
fxm := frac(-10.15);
fxr2 := -0.15e0;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-10.15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-10.15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -10.04\n");
total_tests := total_tests + 1;
fxm := frac(-10.04);
fxr2 := -0.4e-1;
fxrerr := 0.100e-10;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-10.04,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-10.04,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.93000000000005\n");
total_tests := total_tests + 1;
fxm := frac(-9.93000000000005);
fxr2 := -0.93000000000005e0;
fxrerr := 0.100e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-9.93000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-9.93000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.82000000000005\n");
total_tests := total_tests + 1;
fxm := frac(-9.82000000000005);
fxr2 := -0.82000000000005e0;
fxrerr := 0.100e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-9.82000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-9.82000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.71000000000005\n");
total_tests := total_tests + 1;
fxm := frac(-9.71000000000005);
fxr2 := -0.71000000000005e0;
fxrerr := 0.100e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-9.71000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-9.71000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.60000000000005\n");
total_tests := total_tests + 1;
fxm := frac(-9.60000000000005);
fxr2 := -0.60000000000005e0;
fxrerr := 0.100e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-9.60000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-9.60000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.49000000000005\n");
total_tests := total_tests + 1;
fxm := frac(-9.49000000000005);
fxr2 := -0.49000000000005e0;
fxrerr := 0.100e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-9.49000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-9.49000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.38000000000005\n");
total_tests := total_tests + 1;
fxm := frac(-9.38000000000005);
fxr2 := -0.38000000000005e0;
fxrerr := 0.100e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-9.38000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-9.38000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.27000000000005\n");
total_tests := total_tests + 1;
fxm := frac(-9.27000000000005);
fxr2 := -0.27000000000005e0;
fxrerr := 0.100e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-9.27000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-9.27000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.16000000000005\n");
total_tests := total_tests + 1;
fxm := frac(-9.16000000000005);
fxr2 := -0.16000000000005e0;
fxrerr := 0.100e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-9.16000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-9.16000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -9.05000000000005\n");
total_tests := total_tests + 1;
fxm := frac(-9.05000000000005);
fxr2 := -0.5000000000005e-1;
fxrerr := 0.100e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-9.05000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-9.05000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.94000000000005\n");
total_tests := total_tests + 1;
fxm := frac(-8.94000000000005);
fxr2 := -0.94000000000005e0;
fxrerr := 0.100e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-8.94000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-8.94000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.83000000000006\n");
total_tests := total_tests + 1;
fxm := frac(-8.83000000000006);
fxr2 := -0.83000000000006e0;
fxrerr := 0.100e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-8.83000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-8.83000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.72000000000006\n");
total_tests := total_tests + 1;
fxm := frac(-8.72000000000006);
fxr2 := -0.72000000000006e0;
fxrerr := 0.100e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-8.72000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-8.72000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -8.61000000000006\n");
total_tests := total_tests + 1;
fxm := frac(-8.61000000000006);
fxr2 := -0.61000000000006e0;
fxrerr := 0.100e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(frac,frac,-8.61000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(frac,frac,-8.61000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"maplefunc = erf apfunc = erf\n");
fprintf(except_fd,"maplefunc = erf apfunc = erf\n");
fprintf(out_fd,"x = -1.5\n");
total_tests := total_tests + 1;
fxm := erf(-1.5);
fxr2 := -0.966105146475113e0;
fxrerr := 0.412e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.4\n");
total_tests := total_tests + 1;
fxm := erf(-1.4);
fxr2 := -0.95228511976246e0;
fxrerr := 0.289e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.3\n");
total_tests := total_tests + 1;
fxm := erf(-1.3);
fxr2 := -0.934007944940467e0;
fxrerr := 0.205e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,-1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.2\n");
total_tests := total_tests + 1;
fxm := erf(-1.2);
fxr2 := -0.910313978229457e0;
fxrerr := 0.236e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,-1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.1\n");
total_tests := total_tests + 1;
fxm := erf(-1.1);
fxr2 := -0.880205069573911e0;
fxrerr := 0.298e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,-1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -1.0\n");
total_tests := total_tests + 1;
fxm := erf(-1.0);
fxr2 := -0.84270079294955e0;
fxrerr := 0.367e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.9\n");
total_tests := total_tests + 1;
fxm := erf(-0.9);
fxr2 := -0.796908212422678e0;
fxrerr := 0.444e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.8\n");
total_tests := total_tests + 1;
fxm := erf(-0.8);
fxr2 := -0.74210096470752e0;
fxrerr := 0.527e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.7\n");
total_tests := total_tests + 1;
fxm := erf(-0.7);
fxr2 := -0.677801193837287e0;
fxrerr := 0.612e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,-0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.6\n");
total_tests := total_tests + 1;
fxm := erf(-0.6);
fxr2 := -0.60385609084781e0;
fxrerr := 0.697e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,-0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.5\n");
total_tests := total_tests + 1;
fxm := erf(-0.5);
fxr2 := -0.520499877812944e0;
fxrerr := 0.778e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,-0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.4\n");
total_tests := total_tests + 1;
fxm := erf(-0.4);
fxr2 := -0.428392355046584e0;
fxrerr := 0.852e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,-0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.3\n");
total_tests := total_tests + 1;
fxm := erf(-0.3);
fxr2 := -0.328626759459062e0;
fxrerr := 0.913e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,-0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.2\n");
total_tests := total_tests + 1;
fxm := erf(-0.2);
fxr2 := -0.222702589210433e0;
fxrerr := 0.96e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,-0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = -0.0999999999999998\n");
total_tests := total_tests + 1;
fxm := erf(-0.0999999999999998);
fxr2 := -0.11246291601826e0;
fxrerr := 0.99e-11;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,-0.0999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.94289029309402e-16\n");
total_tests := total_tests + 1;
fxm := erf(1.94289029309402e-16);
fxr2 := 0.2192316930679001e-15;
fxrerr := 0.5e-30;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,1.94289029309402e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.1\n");
total_tests := total_tests + 1;
fxm := erf(0.1);
fxr2 := 0.1124629160182646e0;
fxrerr := 0.99e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.2\n");
total_tests := total_tests + 1;
fxm := erf(0.2);
fxr2 := 0.2227025892104389e0;
fxrerr := 0.96e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.3\n");
total_tests := total_tests + 1;
fxm := erf(0.3);
fxr2 := 0.3286267594590693e0;
fxrerr := 0.913e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,0.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.4\n");
total_tests := total_tests + 1;
fxm := erf(0.4);
fxr2 := 0.4283923550465927e0;
fxrerr := 0.852e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.5\n");
total_tests := total_tests + 1;
fxm := erf(0.5);
fxr2 := 0.5204998778129544e0;
fxrerr := 0.778e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.6\n");
total_tests := total_tests + 1;
fxm := erf(0.6);
fxr2 := 0.6038560908478192e0;
fxrerr := 0.697e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.7\n");
total_tests := total_tests + 1;
fxm := erf(0.7);
fxr2 := 0.6778011938372993e0;
fxrerr := 0.612e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.8\n");
total_tests := total_tests + 1;
fxm := erf(0.8);
fxr2 := 0.7421009647075302e0;
fxrerr := 0.527e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 0.9\n");
total_tests := total_tests + 1;
fxm := erf(0.9);
fxr2 := 0.7969082124226913e0;
fxrerr := 0.444e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.0\n");
total_tests := total_tests + 1;
fxm := erf(1.0);
fxr2 := 0.8427007929495665e0;
fxrerr := 0.367e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.1\n");
total_tests := total_tests + 1;
fxm := erf(1.1);
fxr2 := 0.8802050695739265e0;
fxrerr := 0.298e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,1.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.2\n");
total_tests := total_tests + 1;
fxm := erf(1.2);
fxr2 := 0.910313978229475e0;
fxrerr := 0.246e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.3\n");
total_tests := total_tests + 1;
fxm := erf(1.3);
fxr2 := 0.9340079449404885e0;
fxrerr := 0.352e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"x = 1.4\n");
total_tests := total_tests + 1;
fxm := erf(1.4);
fxr2 := 0.952285119762481e0;
fxrerr := 0.504e-12;
fxr := fxr2;
abs_err := abs(fxm - fxr);
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm; else percent_error := 0.0;
end;
if (percent_error > 1.0e-10) then
fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n");
dump_except(erf,erf,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
if (abs_err > fxrerr) then
fprintf(except_fd,"ABS ERROR > ESTIMATE\n");
dump_except(erf,erf,1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd);
end;
fprintf(out_fd,"fxr    = %18.12e\n",fxr);
fprintf(out_fd,"fxm    = %18.12e\n",fxm);
fprintf(out_fd,"fxrerr = %18.12e\n",fxrerr);
fprintf(out_fd,"total_tests    = %d\n",total_tests);
fprintf(out_fd,"total_exceptions    = %d\n",total_exceptions);
fprintf(except_fd,"total_tests    = %d\n",total_tests);
fprintf(except_fd,"total_exceptions    = %d\n",total_exceptions);
mend := trunc(time()*1000.0);
rend := 1267166312*1000;
rcpuuend := 3364.816*1000;
rcpusend := 0.452*1000;
melapsed := trunc(evalf(mend - mstart));
relapsed := trunc(evalf(rend - rstart));
rcpuuelapsed := trunc(evalf(rcpuuend - rcpuustart));
rcpuselapsed := trunc(evalf(rcpusend - rcpusstart));
mhours := hours_elapsed(melapsed);
rhours := hours_elapsed(relapsed);
rcpuuhours := hours_elapsed(rcpuuelapsed);
rcpushours := hours_elapsed(rcpuselapsed);
mmin := min_elapsed(mhours,melapsed);
rmin := min_elapsed(rhours,relapsed);
rcpuumin := min_elapsed(rcpuuhours,rcpuuelapsed);
rcpusmin := min_elapsed(rhours,rcpuselapsed);
msec := sec_elapsed(mhours,mmin,melapsed);
rsec := sec_elapsed(rhours,rmin,relapsed);
rcpuusec := sec_elapsed(rcpuuhours,rcpuumin,rcpuuelapsed);
rcpussec := sec_elapsed(rcpushours,rcpusmin,rcpuselapsed);
mmsec := msec_elapsed(mhours,mmin,msec,melapsed);
rmsec := msec_elapsed(rhours,rmin,rsec,relapsed);
rcpuumsec := msec_elapsed(rcpuuhours,rcpuumin,rcpuusec,rcpuuelapsed);
rcpusmsec := msec_elapsed(rcpushours,rcpusmin,rcpussec,rcpuselapsed);
fprintf(out_fd,"Maple %d hours %d minutes %d seconds %d msec CPU\n",mhours,mmin,msec,mmsec);
fprintf(out_fd,"Ruby  %d hours %d minutes %d seconds %d msec Clock\n",rhours,rmin,rsec,rmsec);
fprintf(out_fd,"Ruby  %d hours %d minutes %d seconds %d msec User CPU\n",rcpuuhours,rcpuumin,rcpuusec,rcpuumsec);
fprintf(out_fd,"Ruby  %d hours %d minutes %d seconds %d msec System CPU\n",rcpushours,rcpusmin,rcpussec,rcpusmsec);
fprintf(except_fd,"Maple %d hours %d minutes %d seconds %d msec CPU\n",mhours,mmin,msec,mmsec);
fprintf(except_fd,"Ruby  %d hours %d minutes %d seconds %d msec Clock\n",rhours,rmin,rsec,rmsec);
fprintf(except_fd,"Ruby  %d hours %d minutes %d seconds %d msec User CPU\n",rcpuuhours,rcpuumin,rcpuusec,rcpuumsec);
fprintf(except_fd,"Ruby  %d hours %d minutes %d seconds %d msec System CPU\n",rcpushours,rcpusmin,rcpussec,rcpusmsec);
printf("Maple %d hours %d minutes %d seconds %d msec CPU\n",mhours,mmin,msec,mmsec);
printf("Ruby  %d hours %d minutes %d seconds %d msec Clock\n",rhours,rmin,rsec,rmsec);
printf("Ruby  %d hours %d minutes %d seconds %d msec User CPU\n",rcpuuhours,rcpuumin,rcpuusec,rcpuumsec);
printf("Ruby  %d hours %d minutes %d seconds %d msec System CPU\n",rcpushours,rcpusmin,rcpussec,rcpusmsec);
fclose(out_fd);
fclose(except_fd);