global total_tests, total_exceptions:
mstart := trunc(time()*1000.0):
rstart := 1425318296*1000:
rcpuustart := 0.812*1000:
rcpusstart := 0.031*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              = %30.24e\n",x):
fprintf(except_fd,"Ruby APFP      = %30.24e\n",fxr):
fprintf(except_fd,"Maple          = %30.24e\n",fxm):
fprintf(except_fd,"Ruby est fxrerr= %30.24e\n",fxrerr):
fprintf(except_fd,"Abs Error      = %30.24e\n",abs_error):
fprintf(except_fd,"Percent Error  = %30.24e\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 := 26:
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.2794154981989258728132e0:
fxrerr := 0.857e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.9\n"):
total_tests := total_tests + 1:
fxm := sin(-5.9):
fxr2 := 0.373876664830236359817135e0:
fxrerr := 0.759e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.800000000000001\n"):
total_tests := total_tests + 1:
fxm := sin(-5.800000000000001):
fxr2 := 0.464602179413756325900656e0:
fxrerr := 0.671e-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(sin,sin,-5.800000000000001,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.800000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.700000000000001\n"):
total_tests := total_tests + 1:
fxm := sin(-5.700000000000001):
fxr2 := 0.550685542597636926516258e0:
fxrerr := 0.596e-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(sin,sin,-5.700000000000001,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.700000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.600000000000001\n"):
total_tests := total_tests + 1:
fxm := sin(-5.600000000000001):
fxr2 := 0.631266637872320535899672e0:
fxrerr := 0.528e-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(sin,sin,-5.600000000000001,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.600000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.500000000000002\n"):
total_tests := total_tests + 1:
fxm := sin(-5.500000000000002):
fxr2 := 0.70554032557039048889352e0:
fxrerr := 0.467e-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(sin,sin,-5.500000000000002,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.500000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.400000000000002\n"):
total_tests := total_tests + 1:
fxm := sin(-5.400000000000002):
fxr2 := 0.772764487555986092974001e0:
fxrerr := 0.413e-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(sin,sin,-5.400000000000002,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.400000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.3000000000000025\n"):
total_tests := total_tests + 1:
fxm := sin(-5.3000000000000025):
fxr2 := 0.832267442223899777629689e0:
fxrerr := 0.363e-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(sin,sin,-5.3000000000000025,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.3000000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.200000000000003\n"):
total_tests := total_tests + 1:
fxm := sin(-5.200000000000003):
fxr2 := 0.883454655720151859123879e0:
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(sin,sin,-5.200000000000003,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.200000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.100000000000003\n"):
total_tests := total_tests + 1:
fxm := sin(-5.100000000000003):
fxr2 := 0.925814682327731163013934e0:
fxrerr := 0.283e-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(sin,sin,-5.100000000000003,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.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.0000000000000036\n"):
total_tests := total_tests + 1:
fxm := sin(-5.0000000000000036):
fxr2 := 0.958924274663137447711394e0:
fxrerr := 0.25e-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(sin,sin,-5.0000000000000036,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.0000000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.900000000000004\n"):
total_tests := total_tests + 1:
fxm := sin(-4.900000000000004):
fxr2 := 0.982452612624331766227511e0:
fxrerr := 0.222e-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(sin,sin,-4.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,-4.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.800000000000004\n"):
total_tests := total_tests + 1:
fxm := sin(-4.800000000000004):
fxr2 := 0.996164608835840321786522e0:
fxrerr := 0.195e-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(sin,sin,-4.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,-4.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.700000000000005\n"):
total_tests := total_tests + 1:
fxm := sin(-4.700000000000005):
fxr2 := 0.99992325756410094612345e0:
fxrerr := 0.171e-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(sin,sin,-4.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,-4.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.600000000000005\n"):
total_tests := total_tests + 1:
fxm := sin(-4.600000000000005):
fxr2 := 0.993691003633465016901444e0:
fxrerr := 0.151e-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(sin,sin,-4.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,-4.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.500000000000005\n"):
total_tests := total_tests + 1:
fxm := sin(-4.500000000000005):
fxr2 := 0.977530117665098109369e0:
fxrerr := 0.133e-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(sin,sin,-4.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,-4.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.400000000000006\n"):
total_tests := total_tests + 1:
fxm := sin(-4.400000000000006):
fxr2 := 0.951602073889517798033102e0:
fxrerr := 0.117e-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(sin,sin,-4.400000000000006,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.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.300000000000006\n"):
total_tests := total_tests + 1:
fxm := sin(-4.300000000000006):
fxr2 := 0.916165936749457388827202e0:
fxrerr := 0.103e-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(sin,sin,-4.300000000000006,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.300000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.200000000000006\n"):
total_tests := total_tests + 1:
fxm := sin(-4.200000000000006):
fxr2 := 0.87157577241359100158358e0:
fxrerr := 0.914e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.200000000000006,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.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.100000000000007\n"):
total_tests := total_tests + 1:
fxm := sin(-4.100000000000007):
fxr2 := 0.818277111064414528032448e0:
fxrerr := 0.801e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.100000000000007,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.100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.000000000000007\n"):
total_tests := total_tests + 1:
fxm := sin(-4.000000000000007):
fxr2 := 0.75680249530793282687778e0:
fxrerr := 0.702e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.000000000000007,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.000000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.900000000000007\n"):
total_tests := total_tests + 1:
fxm := sin(-3.900000000000007):
fxr2 := 0.687766159183978899616835e0:
fxrerr := 0.613e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.900000000000007,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.900000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.800000000000007\n"):
total_tests := total_tests + 1:
fxm := sin(-3.800000000000007):
fxr2 := 0.61185789094272461250748e0:
fxrerr := 0.601e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.800000000000007,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.800000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.700000000000007\n"):
total_tests := total_tests + 1:
fxm := sin(-3.700000000000007):
fxr2 := 0.529836140908499149910815e0:
fxrerr := 0.642e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.700000000000007,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.700000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.6000000000000068\n"):
total_tests := total_tests + 1:
fxm := sin(-3.6000000000000068):
fxr2 := 0.442520443294858482223753e0:
fxrerr := 0.672e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6000000000000068,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.6000000000000068,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.5000000000000067\n"):
total_tests := total_tests + 1:
fxm := sin(-3.5000000000000067):
fxr2 := 0.350783227689626122380107e0:
fxrerr := 0.695e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000067,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.5000000000000067,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.4000000000000066\n"):
total_tests := total_tests + 1:
fxm := sin(-3.4000000000000066):
fxr2 := 0.255541102026837700117817e0:
fxrerr := 0.711e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4000000000000066,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.4000000000000066,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.3000000000000065\n"):
total_tests := total_tests + 1:
fxm := sin(-3.3000000000000065):
fxr2 := 0.15774569414325480062994e0:
fxrerr := 0.719e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000065,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.3000000000000065,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.2000000000000064\n"):
total_tests := total_tests + 1:
fxm := sin(-3.2000000000000064):
fxr2 := 0.583741434275862982236442e-1:
fxrerr := 0.72e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000064,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.2000000000000064,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.1000000000000063\n"):
total_tests := total_tests + 1:
fxm := sin(-3.1000000000000063):
fxr2 := -0.41580662433284284643396e-1:
fxrerr := 0.714e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000063,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.1000000000000063,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.000000000000006\n"):
total_tests := total_tests + 1:
fxm := sin(-3.000000000000006):
fxr2 := -0.14112000805986128214571e0:
fxrerr := 0.701e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.000000000000006,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.000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.900000000000006\n"):
total_tests := total_tests + 1:
fxm := sin(-2.900000000000006):
fxr2 := -0.2392493292139765024353e0:
fxrerr := 0.68e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.900000000000006,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.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.800000000000006\n"):
total_tests := total_tests + 1:
fxm := sin(-2.800000000000006):
fxr2 := -0.33498815015589926620985e0:
fxrerr := 0.654e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.800000000000006,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.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.700000000000006\n"):
total_tests := total_tests + 1:
fxm := sin(-2.700000000000006):
fxr2 := -0.42737988023382451012315e0:
fxrerr := 0.621e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.700000000000006,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.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.600000000000006\n"):
total_tests := total_tests + 1:
fxm := sin(-2.600000000000006):
fxr2 := -0.51550137182145909392533e0:
fxrerr := 0.583e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.600000000000006,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.600000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.5000000000000058\n"):
total_tests := total_tests + 1:
fxm := sin(-2.5000000000000058):
fxr2 := -0.59847214410395184741888e0:
fxrerr := 0.539e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000058,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.5000000000000058,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.4000000000000057\n"):
total_tests := total_tests + 1:
fxm := sin(-2.4000000000000057):
fxr2 := -0.67546318055114672342154e0:
fxrerr := 0.491e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4000000000000057,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.4000000000000057,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.3000000000000056\n"):
total_tests := total_tests + 1:
fxm := sin(-2.3000000000000056):
fxr2 := -0.74570521217671644623963e0:
fxrerr := 0.439e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000056,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.3000000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.2000000000000055\n"):
total_tests := total_tests + 1:
fxm := sin(-2.2000000000000055):
fxr2 := -0.80849640381958694754785e0:
fxrerr := 0.383e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000055,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.2000000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.1000000000000054\n"):
total_tests := total_tests + 1:
fxm := sin(-2.1000000000000054):
fxr2 := -0.86320936664887104451174e0:
fxrerr := 0.326e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000054,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.1000000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.0000000000000053\n"):
total_tests := total_tests + 1:
fxm := sin(-2.0000000000000053):
fxr2 := -0.90929742682567948981772e0:
fxrerr := 0.265e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.0000000000000053,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.0000000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.9000000000000052\n"):
total_tests := total_tests + 1:
fxm := sin(-1.9000000000000052):
fxr2 := -0.94630008768741280738389e0:
fxrerr := 0.204e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9000000000000052,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.9000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.8000000000000052\n"):
total_tests := total_tests + 1:
fxm := sin(-1.8000000000000052):
fxr2 := -0.97384763087819400508137e0:
fxrerr := 0.142e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8000000000000052,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.8000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.700000000000005\n"):
total_tests := total_tests + 1:
fxm := sin(-1.700000000000005):
fxr2 := -0.99166481045246797112359e0:
fxrerr := 0.796e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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,-1.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.600000000000005\n"):
total_tests := total_tests + 1:
fxm := sin(-1.600000000000005):
fxr2 := -0.99957360304150501834432e0:
fxrerr := 0.215e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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,-1.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.5000000000000049\n"):
total_tests := total_tests + 1:
fxm := sin(-1.5000000000000049):
fxr2 := -0.99749498660405477755387e0:
fxrerr := 0.426e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000049,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.5000000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.4000000000000048\n"):
total_tests := total_tests + 1:
fxm := sin(-1.4000000000000048):
fxr2 := -0.98544972998846099650164e0:
fxrerr := 0.101e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4000000000000048,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.4000000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.3000000000000047\n"):
total_tests := total_tests + 1:
fxm := sin(-1.3000000000000047):
fxr2 := -0.9635581854171942219457e0:
fxrerr := 0.157e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000047,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.3000000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.2000000000000046\n"):
total_tests := total_tests + 1:
fxm := sin(-1.2000000000000046):
fxr2 := -0.93203908596722801651567e0:
fxrerr := 0.211e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000046,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.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.1000000000000045\n"):
total_tests := total_tests + 1:
fxm := sin(-1.1000000000000045):
fxr2 := -0.89120736006143738113421e0:
fxrerr := 0.261e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000045,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.1000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.0000000000000044\n"):
total_tests := total_tests + 1:
fxm := sin(-1.0000000000000044):
fxr2 := -0.84147098480789888398251e0:
fxrerr := 0.307e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.0000000000000044,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.0000000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.9000000000000045\n"):
total_tests := total_tests + 1:
fxm := sin(-0.9000000000000045):
fxr2 := -0.78332690962748618570614e0:
fxrerr := 0.349e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9000000000000045,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.9000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.8000000000000045\n"):
total_tests := total_tests + 1:
fxm := sin(-0.8000000000000045):
fxr2 := -0.71735609089952589680725e0:
fxrerr := 0.386e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8000000000000045,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.8000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.7000000000000045\n"):
total_tests := total_tests + 1:
fxm := sin(-0.7000000000000045):
fxr2 := -0.64421768723769449546234e0:
fxrerr := 0.419e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7000000000000045,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.7000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.6000000000000045\n"):
total_tests := total_tests + 1:
fxm := sin(-0.6000000000000045):
fxr2 := -0.56464247339503907121112e0:
fxrerr := 0.446e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6000000000000045,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.6000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.5000000000000046\n"):
total_tests := total_tests + 1:
fxm := sin(-0.5000000000000046):
fxr2 := -0.47942553860420703715297e0:
fxrerr := 0.468e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000046,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.5000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.4000000000000046\n"):
total_tests := total_tests + 1:
fxm := sin(-0.4000000000000046):
fxr2 := -0.3894183423086547285468e0:
fxrerr := 0.485e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4000000000000046,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.4000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.3000000000000046\n"):
total_tests := total_tests + 1:
fxm := sin(-0.3000000000000046):
fxr2 := -0.29552020666134396965308e0:
fxrerr := 0.496e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000046,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.3000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.2000000000000046\n"):
total_tests := total_tests + 1:
fxm := sin(-0.2000000000000046):
fxr2 := -0.1986693307950657237656e0:
fxrerr := 0.502e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000046,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.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.10000000000000459\n"):
total_tests := total_tests + 1:
fxm := sin(-0.10000000000000459):
fxr2 := -0.99833416646832719375917e-1:
fxrerr := 0.503e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.10000000000000459,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.10000000000000459,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.579669976578771e-15\n"):
total_tests := total_tests + 1:
fxm := sin(-4.579669976578771e-15):
fxr2 := -0.45796699765787709999998e-14:
fxrerr := 0.5e-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(sin,sin,-4.579669976578771e-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.579669976578771e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.09999999999999543\n"):
total_tests := total_tests + 1:
fxm := sin(0.09999999999999543):
fxr2 := 0.998334166468236051377778e-1:
fxrerr := 0.566e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.09999999999999543,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.09999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.19999999999999543\n"):
total_tests := total_tests + 1:
fxm := sin(0.19999999999999543):
fxr2 := 0.198669330795056736555143e0:
fxrerr := 0.625e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.19999999999999543,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.19999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.29999999999999544\n"):
total_tests := total_tests + 1:
fxm := sin(0.29999999999999544):
fxr2 := 0.295520206661335218770923e0:
fxrerr := 0.677e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.29999999999999544,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.29999999999999544,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.39999999999999547\n"):
total_tests := total_tests + 1:
fxm := sin(0.39999999999999547):
fxr2 := 0.389418342308646319260003e0:
fxrerr := 0.712e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.39999999999999547,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.39999999999999547,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.49999999999999545\n"):
total_tests := total_tests + 1:
fxm := sin(0.49999999999999545):
fxr2 := 0.479425538604199007272625e0:
fxrerr := 0.742e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.49999999999999545,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.49999999999999545,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.5999999999999954\n"):
total_tests := total_tests + 1:
fxm := sin(0.5999999999999954):
fxr2 := 0.564642473395031560657108e0:
fxrerr := 0.752e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5999999999999954,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.5999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.6999999999999954\n"):
total_tests := total_tests + 1:
fxm := sin(0.6999999999999954):
fxr2 := 0.644217687237687535398541e0:
fxrerr := 0.753e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6999999999999954,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.6999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.7999999999999954\n"):
total_tests := total_tests + 1:
fxm := sin(0.7999999999999954):
fxr2 := 0.717356090899519556776309e0:
fxrerr := 0.731e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7999999999999954,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.7999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.8999999999999954\n"):
total_tests := total_tests + 1:
fxm := sin(0.8999999999999954):
fxr2 := 0.783326909627480529055523e0:
fxrerr := 0.696e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8999999999999954,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.8999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.9999999999999953\n"):
total_tests := total_tests + 1:
fxm := sin(0.9999999999999953):
fxr2 := 0.841470984807893967231668e0:
fxrerr := 0.642e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9999999999999953,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.9999999999999953,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.0999999999999954\n"):
total_tests := total_tests + 1:
fxm := sin(1.0999999999999954):
fxr2 := 0.891207360061433253409635e0:
fxrerr := 0.571e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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,1.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.1999999999999955\n"):
total_tests := total_tests + 1:
fxm := sin(1.1999999999999955):
fxr2 := 0.932039085967224719060237e0:
fxrerr := 0.481e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1999999999999955,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.1999999999999955,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.2999999999999956\n"):
total_tests := total_tests + 1:
fxm := sin(1.2999999999999956):
fxr2 := 0.963558185417191787706497e0:
fxrerr := 0.374e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2999999999999956,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.2999999999999956,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.3999999999999957\n"):
total_tests := total_tests + 1:
fxm := sin(1.3999999999999957):
fxr2 := 0.985449729988459449800761e0:
fxrerr := 0.249e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3999999999999957,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.3999999999999957,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.4999999999999958\n"):
total_tests := total_tests + 1:
fxm := sin(1.4999999999999958):
fxr2 := 0.997494986604054133845466e0:
fxrerr := 0.185e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4999999999999958,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.4999999999999958,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.5999999999999959\n"):
total_tests := total_tests + 1:
fxm := sin(1.5999999999999959):
fxr2 := 0.999573603041505284060142e0:
fxrerr := 0.215e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5999999999999959,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.5999999999999959,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.699999999999996\n"):
total_tests := total_tests + 1:
fxm := sin(1.699999999999996):
fxr2 := 0.991664810452469130724102e0:
fxrerr := 0.251e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.699999999999996,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.699999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.799999999999996\n"):
total_tests := total_tests + 1:
fxm := sin(1.799999999999996):
fxr2 := 0.973847630878196095340749e0:
fxrerr := 0.397e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.799999999999996,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.799999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.8999999999999961\n"):
total_tests := total_tests + 1:
fxm := sin(1.8999999999999961):
fxr2 := 0.946300087687415749319045e0:
fxrerr := 0.585e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8999999999999961,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.8999999999999961,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.9999999999999962\n"):
total_tests := total_tests + 1:
fxm := sin(1.9999999999999962):
fxr2 := 0.909297426825683276753993e0:
fxrerr := 0.786e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9999999999999962,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.9999999999999962,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.099999999999996\n"):
total_tests := total_tests + 1:
fxm := sin(2.099999999999996):
fxr2 := 0.863209366648875790065225e0:
fxrerr := 0.989e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.099999999999996,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.099999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.199999999999996\n"):
total_tests := total_tests + 1:
fxm := sin(2.199999999999996):
fxr2 := 0.808496403819592538308523e0:
fxrerr := 0.118e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.199999999999996,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.199999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.2999999999999963\n"):
total_tests := total_tests + 1:
fxm := sin(2.2999999999999963):
fxr2 := 0.745705212176722642606675e0:
fxrerr := 0.139e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2999999999999963,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.2999999999999963,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.3999999999999964\n"):
total_tests := total_tests + 1:
fxm := sin(2.3999999999999964):
fxr2 := 0.675463180551153581183183e0:
fxrerr := 0.159e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3999999999999964,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.3999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.4999999999999964\n"):
total_tests := total_tests + 1:
fxm := sin(2.4999999999999964):
fxr2 := 0.598472144103959378169034e0:
fxrerr := 0.179e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4999999999999964,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.4999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.5999999999999965\n"):
total_tests := total_tests + 1:
fxm := sin(2.5999999999999965):
fxr2 := 0.515501371821467234368421e0:
fxrerr := 0.197e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5999999999999965,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.5999999999999965,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.6999999999999966\n"):
total_tests := total_tests + 1:
fxm := sin(2.6999999999999966):
fxr2 := 0.427379880233833008401492e0:
fxrerr := 0.214e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6999999999999966,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.6999999999999966,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.7999999999999967\n"):
total_tests := total_tests + 1:
fxm := sin(2.7999999999999967):
fxr2 := 0.334988150155908028877717e0:
fxrerr := 0.229e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7999999999999967,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.7999999999999967,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.899999999999997\n"):
total_tests := total_tests + 1:
fxm := sin(2.899999999999997):
fxr2 := 0.239249329213985241058861e0:
fxrerr := 0.243e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.899999999999997,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.899999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.999999999999997\n"):
total_tests := total_tests + 1:
fxm := sin(2.999999999999997):
fxr2 := 0.141120008059870192078451e0:
fxrerr := 0.255e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.999999999999997,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.999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.099999999999997\n"):
total_tests := total_tests + 1:
fxm := sin(3.099999999999997):
fxr2 := 0.415806624332935766002804e-1:
fxrerr := 0.264e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.099999999999997,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.099999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.199999999999997\n"):
total_tests := total_tests + 1:
fxm := sin(3.199999999999997):
fxr2 := -0.58374143427576914252774e-1:
fxrerr := 0.272e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.199999999999997,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.199999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.299999999999997\n"):
total_tests := total_tests + 1:
fxm := sin(3.299999999999997):
fxr2 := -0.15774569414324541957201e0:
fxrerr := 0.269e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.299999999999997,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.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.3999999999999972\n"):
total_tests := total_tests + 1:
fxm := sin(3.3999999999999972):
fxr2 := -0.25554110202682861221471e0:
fxrerr := 0.309e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3999999999999972,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.3999999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.4999999999999973\n"):
total_tests := total_tests + 1:
fxm := sin(3.4999999999999973):
fxr2 := -0.35078322768961731968702e0:
fxrerr := 0.357e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4999999999999973,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.4999999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.5999999999999974\n"):
total_tests := total_tests + 1:
fxm := sin(3.5999999999999974):
fxr2 := -0.44252044329485005269455e0:
fxrerr := 0.406e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5999999999999974,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.5999999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.6999999999999975\n"):
total_tests := total_tests + 1:
fxm := sin(3.6999999999999975):
fxr2 := -0.52983614090849109296043e0:
fxrerr := 0.467e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6999999999999975,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.6999999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.7999999999999976\n"):
total_tests := total_tests + 1:
fxm := sin(3.7999999999999976):
fxr2 := -0.61185789094271717741067e0:
fxrerr := 0.536e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7999999999999976,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.7999999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.8999999999999977\n"):
total_tests := total_tests + 1:
fxm := sin(3.8999999999999977):
fxr2 := -0.68776615918397214844615e0:
fxrerr := 0.613e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8999999999999977,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.8999999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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.96017028665036602054866e0:
fxrerr := 0.196e-17:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.9\n"):
total_tests := total_tests + 1:
fxm := cos(-5.9):
fxr2 := 0.927478430744035740909072e0:
fxrerr := 0.178e-17:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.800000000000001\n"):
total_tests := total_tests + 1:
fxm := cos(-5.800000000000001):
fxr2 := 0.885519516941319468769457e0:
fxrerr := 0.159e-17:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.800000000000001,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.800000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.700000000000001\n"):
total_tests := total_tests + 1:
fxm := cos(-5.700000000000001):
fxr2 := 0.83471278483916023343681e0:
fxrerr := 0.143e-17:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.700000000000001,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.700000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.600000000000001\n"):
total_tests := total_tests + 1:
fxm := cos(-5.600000000000001):
fxr2 := 0.7755658785102504289229e0:
fxrerr := 0.129e-17:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.600000000000001,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.600000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.500000000000002\n"):
total_tests := total_tests + 1:
fxm := cos(-5.500000000000002):
fxr2 := 0.708669774291261411108518e0:
fxrerr := 0.115e-17:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.500000000000002,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.500000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.400000000000002\n"):
total_tests := total_tests + 1:
fxm := cos(-5.400000000000002):
fxr2 := 0.634692875942635907937171e0:
fxrerr := 0.103e-17:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.400000000000002,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.400000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.3000000000000025\n"):
total_tests := total_tests + 1:
fxm := cos(-5.3000000000000025):
fxr2 := 0.554374336179163010113865e0:
fxrerr := 0.935e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000025,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.3000000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.200000000000003\n"):
total_tests := total_tests + 1:
fxm := cos(-5.200000000000003):
fxr2 := 0.468516671300379609003496e0:
fxrerr := 0.84e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.200000000000003,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.200000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.100000000000003\n"):
total_tests := total_tests + 1:
fxm := cos(-5.100000000000003):
fxr2 := 0.377977742712983340764861e0:
fxrerr := 0.751e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.100000000000003,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.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.0000000000000036\n"):
total_tests := total_tests + 1:
fxm := cos(-5.0000000000000036):
fxr2 := 0.283662185463229716594267e0:
fxrerr := 0.675e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.0000000000000036,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.0000000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.900000000000004\n"):
total_tests := total_tests + 1:
fxm := cos(-4.900000000000004):
fxr2 := 0.186512369422579334305142e0:
fxrerr := 0.603e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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,-4.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.800000000000004\n"):
total_tests := total_tests + 1:
fxm := cos(-4.800000000000004):
fxr2 := 0.8749898343945055397906e-1:
fxrerr := 0.542e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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,-4.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.700000000000005\n"):
total_tests := total_tests + 1:
fxm := cos(-4.700000000000005):
fxr2 := -0.12388663462885737533997e-1:
fxrerr := 0.484e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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,-4.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.600000000000005\n"):
total_tests := total_tests + 1:
fxm := cos(-4.600000000000005):
fxr2 := -0.11215252693504954897497e0:
fxrerr := 0.438e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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,-4.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.500000000000005\n"):
total_tests := total_tests + 1:
fxm := cos(-4.500000000000005):
fxr2 := -0.21079579943077481832972e0:
fxrerr := 0.391e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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,-4.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.400000000000006\n"):
total_tests := total_tests + 1:
fxm := cos(-4.400000000000006):
fxr2 := -0.30733286997841397350625e0:
fxrerr := 0.349e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.400000000000006,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.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.300000000000006\n"):
total_tests := total_tests + 1:
fxm := cos(-4.300000000000006):
fxr2 := -0.40079917207996979991139e0:
fxrerr := 0.312e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.300000000000006,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.300000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.200000000000006\n"):
total_tests := total_tests + 1:
fxm := cos(-4.200000000000006):
fxr2 := -0.49026082134069434820106e0:
fxrerr := 0.281e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.200000000000006,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.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.100000000000007\n"):
total_tests := total_tests + 1:
fxm := cos(-4.100000000000007):
fxr2 := -0.57482394653326318359561e0:
fxrerr := 0.253e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.100000000000007,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.100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.000000000000007\n"):
total_tests := total_tests + 1:
fxm := cos(-4.000000000000007):
fxr2 := -0.65364362086360661702169e0:
fxrerr := 0.224e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.000000000000007,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.000000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.900000000000007\n"):
total_tests := total_tests + 1:
fxm := cos(-3.900000000000007):
fxr2 := -0.72593230420013531500921e0:
fxrerr := 0.188e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.900000000000007,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.900000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.800000000000007\n"):
total_tests := total_tests + 1:
fxm := cos(-3.800000000000007):
fxr2 := -0.79096771191441241699115e0:
fxrerr := 0.18e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.800000000000007,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.800000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.700000000000007\n"):
total_tests := total_tests + 1:
fxm := cos(-3.700000000000007):
fxr2 := -0.8481000317104044499827e0:
fxrerr := 0.163e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.700000000000007,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.700000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.6000000000000068\n"):
total_tests := total_tests + 1:
fxm := cos(-3.6000000000000068):
fxr2 := -0.89675841633414399673125e0:
fxrerr := 0.146e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6000000000000068,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.6000000000000068,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.5000000000000067\n"):
total_tests := total_tests + 1:
fxm := cos(-3.5000000000000067):
fxr2 := -0.93645668729079398745091e0:
fxrerr := 0.122e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000067,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.5000000000000067,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.4000000000000066\n"):
total_tests := total_tests + 1:
fxm := cos(-3.4000000000000066):
fxr2 := -0.96679819257945932771069e0:
fxrerr := 0.109e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4000000000000066,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.4000000000000066,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.3000000000000065\n"):
total_tests := total_tests + 1:
fxm := cos(-3.3000000000000065):
fxr2 := -0.98747976990886385858926e0:
fxrerr := 0.104e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000065,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.3000000000000065,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.2000000000000064\n"):
total_tests := total_tests + 1:
fxm := cos(-3.2000000000000064):
fxr2 := -0.99829477579475271106691e0:
fxrerr := 0.941e-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(cos,cos,-3.2000000000000064,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.2000000000000064,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.1000000000000063\n"):
total_tests := total_tests + 1:
fxm := cos(-3.1000000000000063):
fxr2 := -0.9991351502732797264503e0:
fxrerr := 0.841e-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(cos,cos,-3.1000000000000063,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.1000000000000063,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.000000000000006\n"):
total_tests := total_tests + 1:
fxm := cos(-3.000000000000006):
fxr2 := -0.98999249660044630399135e0:
fxrerr := 0.753e-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(cos,cos,-3.000000000000006,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.000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.900000000000006\n"):
total_tests := total_tests + 1:
fxm := cos(-2.900000000000006):
fxr2 := -0.97095816514959195727688e0:
fxrerr := 0.673e-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(cos,cos,-2.900000000000006,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.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.800000000000006\n"):
total_tests := total_tests + 1:
fxm := cos(-2.800000000000006):
fxr2 := -0.94222234066866016251548e0:
fxrerr := 0.602e-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(cos,cos,-2.800000000000006,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.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.700000000000006\n"):
total_tests := total_tests + 1:
fxm := cos(-2.700000000000006):
fxr2 := -0.90407214201706371226163e0:
fxrerr := 0.507e-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(cos,cos,-2.700000000000006,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.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.600000000000006\n"):
total_tests := total_tests + 1:
fxm := cos(-2.600000000000006):
fxr2 := -0.85688875336895032680573e0:
fxrerr := 0.48e-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(cos,cos,-2.600000000000006,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.600000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.5000000000000058\n"):
total_tests := total_tests + 1:
fxm := cos(-2.5000000000000058):
fxr2 := -0.80114361554693718597174e0:
fxrerr := 0.426e-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(cos,cos,-2.5000000000000058,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.5000000000000058,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.4000000000000057\n"):
total_tests := total_tests + 1:
fxm := cos(-2.4000000000000057):
fxr2 := -0.73739371554124934974875e0:
fxrerr := 0.381e-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(cos,cos,-2.4000000000000057,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.4000000000000057,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.3000000000000056\n"):
total_tests := total_tests + 1:
fxm := cos(-2.3000000000000056):
fxr2 := -0.66627602127982836926685e0:
fxrerr := 0.34e-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(cos,cos,-2.3000000000000056,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.3000000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.2000000000000055\n"):
total_tests := total_tests + 1:
fxm := cos(-2.2000000000000055):
fxr2 := -0.58850111725535015525412e0:
fxrerr := 0.304e-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(cos,cos,-2.2000000000000055,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.2000000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.1000000000000054\n"):
total_tests := total_tests + 1:
fxm := cos(-2.1000000000000054):
fxr2 := -0.50484610459986211295124e0:
fxrerr := 0.271e-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(cos,cos,-2.1000000000000054,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.1000000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.0000000000000053\n"):
total_tests := total_tests + 1:
fxm := cos(-2.0000000000000053):
fxr2 := -0.41614683654714720627374e0:
fxrerr := 0.24e-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(cos,cos,-2.0000000000000053,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.0000000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.9000000000000052\n"):
total_tests := total_tests + 1:
fxm := cos(-1.9000000000000052):
fxr2 := -0.32328956686350834303908e0:
fxrerr := 0.206e-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(cos,cos,-1.9000000000000052,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.9000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.8000000000000052\n"):
total_tests := total_tests + 1:
fxm := cos(-1.8000000000000052):
fxr2 := -0.22720209469309211932413e0:
fxrerr := 0.189e-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(cos,cos,-1.8000000000000052,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.8000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.700000000000005\n"):
total_tests := total_tests + 1:
fxm := cos(-1.700000000000005):
fxr2 := -0.12884449429552964241147e0:
fxrerr := 0.162e-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(cos,cos,-1.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,-1.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.600000000000005\n"):
total_tests := total_tests + 1:
fxm := cos(-1.600000000000005):
fxr2 := -0.29199522301293724073643e-1:
fxrerr := 0.148e-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(cos,cos,-1.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,-1.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.5000000000000049\n"):
total_tests := total_tests + 1:
fxm := cos(-1.5000000000000049):
fxr2 := 0.7073720166769802236289e-1:
fxrerr := 0.127e-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(cos,cos,-1.5000000000000049,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.5000000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.4000000000000048\n"):
total_tests := total_tests + 1:
fxm := cos(-1.4000000000000048):
fxr2 := 0.169967142900236208458133e0:
fxrerr := 0.117e-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(cos,cos,-1.4000000000000048,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.4000000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.3000000000000047\n"):
total_tests := total_tests + 1:
fxm := cos(-1.3000000000000047):
fxr2 := 0.267498828624582878274595e0:
fxrerr := 0.102e-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(cos,cos,-1.3000000000000047,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.3000000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.2000000000000046\n"):
total_tests := total_tests + 1:
fxm := cos(-1.2000000000000046):
fxr2 := 0.362357754476669290258664e0:
fxrerr := 0.905e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000046,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.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.1000000000000045\n"):
total_tests := total_tests + 1:
fxm := cos(-1.1000000000000045):
fxr2 := 0.453596121425573377338325e0:
fxrerr := 0.791e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000045,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.1000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.0000000000000044\n"):
total_tests := total_tests + 1:
fxm := cos(-1.0000000000000044):
fxr2 := 0.540302305868136014928679e0:
fxrerr := 0.685e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.0000000000000044,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.0000000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.9000000000000045\n"):
total_tests := total_tests + 1:
fxm := cos(-0.9000000000000045):
fxr2 := 0.621609968270660931513649e0:
fxrerr := 0.582e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9000000000000045,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.9000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.8000000000000045\n"):
total_tests := total_tests + 1:
fxm := cos(-0.8000000000000045):
fxr2 := 0.696706709347162192818367e0:
fxrerr := 0.507e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8000000000000045,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.8000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.7000000000000045\n"):
total_tests := total_tests + 1:
fxm := cos(-0.7000000000000045):
fxr2 := 0.764842187284485527276296e0:
fxrerr := 0.426e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7000000000000045,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.7000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.6000000000000045\n"):
total_tests := total_tests + 1:
fxm := cos(-0.6000000000000045):
fxr2 := 0.825335614909675756349823e0:
fxrerr := 0.353e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6000000000000045,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.6000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.5000000000000046\n"):
total_tests := total_tests + 1:
fxm := cos(-0.5000000000000046):
fxr2 := 0.877582561890370510758807e0:
fxrerr := 0.286e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000046,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.5000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.4000000000000046\n"):
total_tests := total_tests + 1:
fxm := cos(-0.4000000000000046):
fxr2 := 0.921060994002883291474149e0:
fxrerr := 0.222e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4000000000000046,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.4000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.3000000000000046\n"):
total_tests := total_tests + 1:
fxm := cos(-0.3000000000000046):
fxr2 := 0.955336489125604660249355e0:
fxrerr := 0.164e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000046,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.3000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.2000000000000046\n"):
total_tests := total_tests + 1:
fxm := cos(-0.2000000000000046):
fxr2 := 0.98006657784124071724527e0:
fxrerr := 0.108e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000046,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.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.10000000000000459\n"):
total_tests := total_tests + 1:
fxm := cos(-0.10000000000000459):
fxr2 := 0.995004165278025307860174e0:
fxrerr := 0.556e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.10000000000000459,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.10000000000000459,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.579669976578771e-15\n"):
total_tests := total_tests + 1:
fxm := cos(-4.579669976578771e-15):
fxr2 := 0.1e1:
fxrerr := 0.5e-22:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.579669976578771e-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.579669976578771e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.09999999999999543\n"):
total_tests := total_tests + 1:
fxm := cos(0.09999999999999543):
fxr2 := 0.995004165278026222334269e0:
fxrerr := 0.106e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.09999999999999543,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.09999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.19999999999999543\n"):
total_tests := total_tests + 1:
fxm := cos(0.19999999999999543):
fxr2 := 0.980066577841242539043032e0:
fxrerr := 0.182e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.19999999999999543,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.19999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.29999999999999544\n"):
total_tests := total_tests + 1:
fxm := cos(0.29999999999999544):
fxr2 := 0.955336489125607367214446e0:
fxrerr := 0.278e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.29999999999999544,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.29999999999999544,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.39999999999999547\n"):
total_tests := total_tests + 1:
fxm := cos(0.39999999999999547):
fxr2 := 0.921060994002886846863612e0:
fxrerr := 0.39e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.39999999999999547,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.39999999999999547,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.49999999999999545\n"):
total_tests := total_tests + 1:
fxm := cos(0.49999999999999545):
fxr2 := 0.877582561890374897502484e0:
fxrerr := 0.528e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.49999999999999545,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.49999999999999545,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.5999999999999954\n"):
total_tests := total_tests + 1:
fxm := cos(0.5999999999999954):
fxr2 := 0.825335614909680894596332e0:
fxrerr := 0.683e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5999999999999954,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.5999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.6999999999999954\n"):
total_tests := total_tests + 1:
fxm := cos(0.6999999999999954):
fxr2 := 0.764842187284491389657223e0:
fxrerr := 0.872e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6999999999999954,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.6999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.7999999999999954\n"):
total_tests := total_tests + 1:
fxm := cos(0.7999999999999954):
fxr2 := 0.696706709347168720758767e0:
fxrerr := 0.108e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7999999999999954,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.7999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.8999999999999954\n"):
total_tests := total_tests + 1:
fxm := cos(0.8999999999999954):
fxr2 := 0.6216099682706680597885e0:
fxrerr := 0.132e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8999999999999954,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.8999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.9999999999999953\n"):
total_tests := total_tests + 1:
fxm := cos(0.9999999999999953):
fxr2 := 0.540302305868143672314565e0:
fxrerr := 0.16e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9999999999999953,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.9999999999999953,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.0999999999999954\n"):
total_tests := total_tests + 1:
fxm := cos(1.0999999999999954):
fxr2 := 0.453596121425581487325228e0:
fxrerr := 0.194e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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,1.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.1999999999999955\n"):
total_tests := total_tests + 1:
fxm := cos(1.1999999999999955):
fxr2 := 0.362357754476677771814262e0:
fxrerr := 0.232e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1999999999999955,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.1999999999999955,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.2999999999999956\n"):
total_tests := total_tests + 1:
fxm := cos(1.2999999999999956):
fxr2 := 0.267498828624591646653999e0:
fxrerr := 0.274e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2999999999999956,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.2999999999999956,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.3999999999999957\n"):
total_tests := total_tests + 1:
fxm := cos(1.3999999999999957):
fxr2 := 0.169967142900245176050585e0:
fxrerr := 0.323e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3999999999999957,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.3999999999999957,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.4999999999999958\n"):
total_tests := total_tests + 1:
fxm := cos(1.4999999999999958):
fxr2 := 0.707372016677070995672054e-1:
fxrerr := 0.38e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4999999999999958,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.4999999999999958,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.5999999999999959\n"):
total_tests := total_tests + 1:
fxm := cos(1.5999999999999959):
fxr2 := -0.29199522301284627953919e-1:
fxrerr := 0.445e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5999999999999959,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.5999999999999959,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.699999999999996\n"):
total_tests := total_tests + 1:
fxm := cos(1.699999999999996):
fxr2 := -0.12884449429552071742823e0:
fxrerr := 0.515e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.699999999999996,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.699999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.799999999999996\n"):
total_tests := total_tests + 1:
fxm := cos(1.799999999999996):
fxr2 := -0.22720209469308315992599e0:
fxrerr := 0.6e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.799999999999996,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.799999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.8999999999999961\n"):
total_tests := total_tests + 1:
fxm := cos(1.8999999999999961):
fxr2 := -0.32328956686349973170831e0:
fxrerr := 0.693e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8999999999999961,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.8999999999999961,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.9999999999999962\n"):
total_tests := total_tests + 1:
fxm := cos(1.9999999999999962):
fxr2 := -0.41614683654713893166717e0:
fxrerr := 0.801e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9999999999999962,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.9999999999999962,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.099999999999996\n"):
total_tests := total_tests + 1:
fxm := cos(2.099999999999996):
fxr2 := -0.50484610459985399878328e0:
fxrerr := 0.926e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.099999999999996,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.099999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.199999999999996\n"):
total_tests := total_tests + 1:
fxm := cos(2.199999999999996):
fxr2 := -0.58850111725534247453835e0:
fxrerr := 0.105e-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(cos,cos,2.199999999999996,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.199999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.2999999999999963\n"):
total_tests := total_tests + 1:
fxm := cos(2.2999999999999963):
fxr2 := -0.66627602127982143420844e0:
fxrerr := 0.121e-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(cos,cos,2.2999999999999963,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.2999999999999963,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.3999999999999964\n"):
total_tests := total_tests + 1:
fxm := cos(2.3999999999999964):
fxr2 := -0.73739371554124306794123e0:
fxrerr := 0.137e-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(cos,cos,2.3999999999999964,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.3999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.4999999999999964\n"):
total_tests := total_tests + 1:
fxm := cos(2.4999999999999964):
fxr2 := -0.80114361554693156033362e0:
fxrerr := 0.158e-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(cos,cos,2.4999999999999964,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.4999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.5999999999999965\n"):
total_tests := total_tests + 1:
fxm := cos(2.5999999999999965):
fxr2 := -0.85688875336894542954275e0:
fxrerr := 0.18e-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(cos,cos,2.5999999999999965,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.5999999999999965,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.6999999999999966\n"):
total_tests := total_tests + 1:
fxm := cos(2.6999999999999966):
fxr2 := -0.90407214201705969489076e0:
fxrerr := 0.204e-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(cos,cos,2.6999999999999966,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.6999999999999966,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.7999999999999967\n"):
total_tests := total_tests + 1:
fxm := cos(2.7999999999999967):
fxr2 := -0.94222234066865704712575e0:
fxrerr := 0.233e-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(cos,cos,2.7999999999999967,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.7999999999999967,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.899999999999997\n"):
total_tests := total_tests + 1:
fxm := cos(2.899999999999997):
fxr2 := -0.97095816514958980403296e0:
fxrerr := 0.266e-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(cos,cos,2.899999999999997,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.899999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.999999999999997\n"):
total_tests := total_tests + 1:
fxm := cos(2.999999999999997):
fxr2 := -0.98999249660044503391134e0:
fxrerr := 0.302e-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(cos,cos,2.999999999999997,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.999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.099999999999997\n"):
total_tests := total_tests + 1:
fxm := cos(3.099999999999997):
fxr2 := -0.99913515027327933975004e0:
fxrerr := 0.345e-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(cos,cos,3.099999999999997,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.099999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.199999999999997\n"):
total_tests := total_tests + 1:
fxm := cos(3.199999999999997):
fxr2 := -0.99829477579475325978384e0:
fxrerr := 0.392e-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(cos,cos,3.199999999999997,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.199999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.299999999999997\n"):
total_tests := total_tests + 1:
fxm := cos(3.299999999999997):
fxr2 := -0.98747976990886535717341e0:
fxrerr := 0.443e-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(cos,cos,3.299999999999997,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.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.3999999999999972\n"):
total_tests := total_tests + 1:
fxm := cos(3.3999999999999972):
fxr2 := -0.96679819257946172979714e0:
fxrerr := 0.502e-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(cos,cos,3.3999999999999972,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.3999999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.4999999999999973\n"):
total_tests := total_tests + 1:
fxm := cos(3.4999999999999973):
fxr2 := -0.93645668729079728481327e0:
fxrerr := 0.57e-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(cos,cos,3.4999999999999973,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.4999999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.5999999999999974\n"):
total_tests := total_tests + 1:
fxm := cos(3.5999999999999974):
fxr2 := -0.89675841633414815642361e0:
fxrerr := 0.645e-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(cos,cos,3.5999999999999974,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.5999999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.6999999999999975\n"):
total_tests := total_tests + 1:
fxm := cos(3.6999999999999975):
fxr2 := -0.84810003171040948342602e0:
fxrerr := 0.731e-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(cos,cos,3.6999999999999975,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.6999999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.7999999999999976\n"):
total_tests := total_tests + 1:
fxm := cos(3.7999999999999976):
fxr2 := -0.79096771191441816845547e0:
fxrerr := 0.827e-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(cos,cos,3.7999999999999976,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.7999999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.8999999999999977\n"):
total_tests := total_tests + 1:
fxm := cos(3.8999999999999977):
fxr2 := -0.72593230420014171123458e0:
fxrerr := 0.797e-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(cos,cos,3.8999999999999977,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.8999999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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.14101419947171719387616e2:
fxrerr := 0.253e-17:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.4\n"):
total_tests := total_tests + 1:
fxm := tan(-1.4):
fxr2 := -0.5797883715482889643704e1:
fxrerr := 0.405e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.2999999999999998\n"):
total_tests := total_tests + 1:
fxm := tan(-1.2999999999999998):
fxr2 := -0.36021024479679753562011e1:
fxrerr := 0.143e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2999999999999998,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.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.1999999999999997\n"):
total_tests := total_tests + 1:
fxm := tan(-1.1999999999999997):
fxr2 := -0.25721516221263166506197e1:
fxrerr := 0.699e-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(tan,tan,-1.1999999999999997,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.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.0999999999999996\n"):
total_tests := total_tests + 1:
fxm := tan(-1.0999999999999996):
fxr2 := -0.1964759657248650006818e1:
fxrerr := 0.4e-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(tan,tan,-1.0999999999999996,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.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.9999999999999997\n"):
total_tests := total_tests + 1:
fxm := tan(-0.9999999999999997):
fxr2 := -0.1557407724654901202851e1:
fxrerr := 0.254e-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(tan,tan,-0.9999999999999997,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.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.8999999999999997\n"):
total_tests := total_tests + 1:
fxm := tan(-0.8999999999999997):
fxr2 := -0.12601582175503383607346e1:
fxrerr := 0.174e-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(tan,tan,-0.8999999999999997,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.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.7999999999999997\n"):
total_tests := total_tests + 1:
fxm := tan(-0.7999999999999997):
fxr2 := -0.10296385570503633946994e1:
fxrerr := 0.13e-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(tan,tan,-0.7999999999999997,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.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.6999999999999997\n"):
total_tests := total_tests + 1:
fxm := tan(-0.6999999999999997):
fxr2 := -0.8422883804630789352931e0:
fxrerr := 0.101e-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(tan,tan,-0.6999999999999997,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.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.5999999999999998\n"):
total_tests := total_tests + 1:
fxm := tan(-0.5999999999999998):
fxr2 := -0.68413680834169202346216e0:
fxrerr := 0.832e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5999999999999998,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.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.4999999999999998\n"):
total_tests := total_tests + 1:
fxm := tan(-0.4999999999999998):
fxr2 := -0.54630248984379025356579e0:
fxrerr := 0.71e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4999999999999998,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.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.3999999999999998\n"):
total_tests := total_tests + 1:
fxm := tan(-0.3999999999999998):
fxr2 := -0.42279321873816152623071e0:
fxrerr := 0.628e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3999999999999998,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.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.2999999999999998\n"):
total_tests := total_tests + 1:
fxm := tan(-0.2999999999999998):
fxr2 := -0.30933624960962301389743e0:
fxrerr := 0.571e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2999999999999998,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.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.19999999999999982\n"):
total_tests := total_tests + 1:
fxm := tan(-0.19999999999999982):
fxr2 := -0.20271003550867229592483e0:
fxrerr := 0.534e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.19999999999999982,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.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.09999999999999981\n"):
total_tests := total_tests + 1:
fxm := tan(-0.09999999999999981):
fxr2 := -0.10033467208545035314533e0:
fxrerr := 0.511e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.09999999999999981,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.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.942890293094024e-16\n"):
total_tests := total_tests + 1:
fxm := tan(1.942890293094024e-16):
fxr2 := 0.194289029309402399999998e-15:
fxrerr := 0.147e-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(tan,tan,1.942890293094024e-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.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.1000000000000002\n"):
total_tests := total_tests + 1:
fxm := tan(0.1000000000000002):
fxr2 := 0.100334672085450747071488e0:
fxrerr := 0.579e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000002,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.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.2000000000000002\n"):
total_tests := total_tests + 1:
fxm := tan(0.2000000000000002):
fxr2 := 0.202710035508672691539622e0:
fxrerr := 0.675e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000002,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.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.3000000000000002\n"):
total_tests := total_tests + 1:
fxm := tan(0.3000000000000002):
fxr2 := 0.30933624960962345217308e0:
fxrerr := 0.798e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000002,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.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.40000000000000024\n"):
total_tests := total_tests + 1:
fxm := tan(0.40000000000000024):
fxr2 := 0.422793218738162044882616e0:
fxrerr := 0.952e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.40000000000000024,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.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.5000000000000002\n"):
total_tests := total_tests + 1:
fxm := tan(0.5000000000000002):
fxr2 := 0.546302489843790772944451e0:
fxrerr := 0.117e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000002,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.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.6000000000000002\n"):
total_tests := total_tests + 1:
fxm := tan(0.6000000000000002):
fxr2 := 0.684136808341692610679546e0:
fxrerr := 0.147e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6000000000000002,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.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.7000000000000002\n"):
total_tests := total_tests + 1:
fxm := tan(0.7000000000000002):
fxr2 := 0.842288380463079790018062e0:
fxrerr := 0.194e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7000000000000002,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.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.8000000000000002\n"):
total_tests := total_tests + 1:
fxm := tan(0.8000000000000002):
fxr2 := 0.102963855705036442477746e1:
fxrerr := 0.264e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8000000000000002,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.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.9000000000000001\n"):
total_tests := total_tests + 1:
fxm := tan(0.9000000000000001):
fxr2 := 0.126015821755033939593444e1:
fxrerr := 0.379e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9000000000000001,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.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.0000000000000002\n"):
total_tests := total_tests + 1:
fxm := tan(1.0000000000000002):
fxr2 := 0.155740772465490291561072e1:
fxrerr := 0.582e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.0000000000000002,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.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.1000000000000003\n"):
total_tests := total_tests + 1:
fxm := tan(1.1000000000000003):
fxr2 := 0.196475965724865340901503e1:
fxrerr := 0.966e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000003,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.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.2000000000000004\n"):
total_tests := total_tests + 1:
fxm := tan(1.2000000000000004):
fxr2 := 0.257215162212632198179555e1:
fxrerr := 0.177e-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(tan,tan,1.2000000000000004,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.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.3000000000000005\n"):
total_tests := total_tests + 1:
fxm := tan(1.3000000000000005):
fxr2 := 0.360210244796798513880215e1:
fxrerr := 0.384e-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(tan,tan,1.3000000000000005,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.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.4000000000000006\n"):
total_tests := total_tests + 1:
fxm := tan(1.4000000000000006):
fxr2 := 0.579788371548291041298086e1:
fxrerr := 0.111e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4000000000000006,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.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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.223130160148429828933306e0:
fxrerr := 0.246e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.4\n"):
total_tests := total_tests + 1:
fxm := exp(-1.4):
fxr2 := 0.246596963941606476939888e0:
fxrerr := 0.274e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.2999999999999998\n"):
total_tests := total_tests + 1:
fxm := exp(-1.2999999999999998):
fxr2 := 0.272531793034012657628719e0:
fxrerr := 0.299e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2999999999999998,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.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.1999999999999997\n"):
total_tests := total_tests + 1:
fxm := exp(-1.1999999999999997):
fxr2 := 0.301194211912202187003276e0:
fxrerr := 0.33e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1999999999999997,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.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.0999999999999996\n"):
total_tests := total_tests + 1:
fxm := exp(-1.0999999999999996):
fxr2 := 0.332871083698079686437318e0:
fxrerr := 0.364e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.0999999999999996,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.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.9999999999999997\n"):
total_tests := total_tests + 1:
fxm := exp(-0.9999999999999997):
fxr2 := 0.367879441171442431959372e0:
fxrerr := 0.198e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9999999999999997,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.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.8999999999999997\n"):
total_tests := total_tests + 1:
fxm := exp(-0.8999999999999997):
fxr2 := 0.406569659740599233854367e0:
fxrerr := 0.218e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8999999999999997,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.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.7999999999999997\n"):
total_tests := total_tests + 1:
fxm := exp(-0.7999999999999997):
fxr2 := 0.449328964117221726228811e0:
fxrerr := 0.238e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7999999999999997,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.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.6999999999999997\n"):
total_tests := total_tests + 1:
fxm := exp(-0.6999999999999997):
fxr2 := 0.496585303791409663680415e0:
fxrerr := 0.261e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6999999999999997,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.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.5999999999999998\n"):
total_tests := total_tests + 1:
fxm := exp(-0.5999999999999998):
fxr2 := 0.548811636094026542390815e0:
fxrerr := 0.292e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5999999999999998,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.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.4999999999999998\n"):
total_tests := total_tests + 1:
fxm := exp(-0.4999999999999998):
fxr2 := 0.60653065971263354490997e0:
fxrerr := 0.321e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4999999999999998,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.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.3999999999999998\n"):
total_tests := total_tests + 1:
fxm := exp(-0.3999999999999998):
fxr2 := 0.670320046035639434808479e0:
fxrerr := 0.351e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3999999999999998,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.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.2999999999999998\n"):
total_tests := total_tests + 1:
fxm := exp(-0.2999999999999998):
fxr2 := 0.740818220681718014230557e0:
fxrerr := 0.386e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2999999999999998,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.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.19999999999999982\n"):
total_tests := total_tests + 1:
fxm := exp(-0.19999999999999982):
fxr2 := 0.818730753077982006041528e0:
fxrerr := 0.423e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.19999999999999982,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.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.09999999999999981\n"):
total_tests := total_tests + 1:
fxm := exp(-0.09999999999999981):
fxr2 := 0.90483741803595974508341e0:
fxrerr := 0.463e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.09999999999999981,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.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.942890293094024e-16\n"):
total_tests := total_tests + 1:
fxm := exp(1.942890293094024e-16):
fxr2 := 0.100000000000000019428902e1:
fxrerr := 0.1e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.942890293094024e-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.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.1000000000000002\n"):
total_tests := total_tests + 1:
fxm := exp(0.1000000000000002):
fxr2 := 0.110517091807564784584583e1:
fxrerr := 0.715e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000002,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.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.2000000000000002\n"):
total_tests := total_tests + 1:
fxm := exp(0.2000000000000002):
fxr2 := 0.122140275816017007820154e1:
fxrerr := 0.848e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000002,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.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.3000000000000002\n"):
total_tests := total_tests + 1:
fxm := exp(0.3000000000000002):
fxr2 := 0.134985880757600337395543e1:
fxrerr := 0.995e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000002,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.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.40000000000000024\n"):
total_tests := total_tests + 1:
fxm := exp(0.40000000000000024):
fxr2 := 0.149182469764127067586269e1:
fxrerr := 0.115e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.40000000000000024,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.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.5000000000000002\n"):
total_tests := total_tests + 1:
fxm := exp(0.5000000000000002):
fxr2 := 0.16487212707001284765928e1:
fxrerr := 0.134e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000002,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.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.6000000000000002\n"):
total_tests := total_tests + 1:
fxm := exp(0.6000000000000002):
fxr2 := 0.182211880039050933929903e1:
fxrerr := 0.155e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6000000000000002,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.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.7000000000000002\n"):
total_tests := total_tests + 1:
fxm := exp(0.7000000000000002):
fxr2 := 0.201375270747047692437498e1:
fxrerr := 0.178e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7000000000000002,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.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.8000000000000002\n"):
total_tests := total_tests + 1:
fxm := exp(0.8000000000000002):
fxr2 := 0.222554092849246804968761e1:
fxrerr := 0.206e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8000000000000002,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.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.9000000000000001\n"):
total_tests := total_tests + 1:
fxm := exp(0.9000000000000001):
fxr2 := 0.245960311115694990976031e1:
fxrerr := 0.234e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9000000000000001,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.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.0000000000000002\n"):
total_tests := total_tests + 1:
fxm := exp(1.0000000000000002):
fxr2 := 0.271828182845904577901651e1:
fxrerr := 0.554e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.0000000000000002,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.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.1000000000000003\n"):
total_tests := total_tests + 1:
fxm := exp(1.1000000000000003):
fxr2 := 0.300416602394643401330791e1:
fxrerr := 0.623e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000003,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.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.2000000000000004\n"):
total_tests := total_tests + 1:
fxm := exp(1.2000000000000004):
fxr2 := 0.332011692273654881757713e1:
fxrerr := 0.706e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000004,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.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.3000000000000005\n"):
total_tests := total_tests + 1:
fxm := exp(1.3000000000000005):
fxr2 := 0.366929666761924605510542e1:
fxrerr := 0.792e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000005,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.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.4000000000000006\n"):
total_tests := total_tests + 1:
fxm := exp(1.4000000000000006):
fxr2 := 0.405519996684467702034363e1:
fxrerr := 0.898e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4000000000000006,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.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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.225634013591703631321393e-43:
fxrerr := 0.958e-63:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -90.4\n"):
total_tests := total_tests + 1:
fxm := exp(-90.4):
fxr2 := 0.549261091932993188707786e-39:
fxrerr := 0.237e-58:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -80.30000000000001\n"):
total_tests := total_tests + 1:
fxm := exp(-80.30000000000001):
fxr2 := 0.133706679373855616914042e-34:
fxrerr := 0.588e-54:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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(exp,exp,-80.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -70.20000000000002\n"):
total_tests := total_tests + 1:
fxm := exp(-70.20000000000002):
fxr2 := 0.325482295610408540315947e-30:
fxrerr := 0.145e-49:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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(exp,exp,-70.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -60.100000000000016\n"):
total_tests := total_tests + 1:
fxm := exp(-60.100000000000016):
fxr2 := 0.79232185895222837986235e-26:
fxrerr := 0.361e-45:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.100000000000016,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.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -50.000000000000014\n"):
total_tests := total_tests + 1:
fxm := exp(-50.000000000000014):
fxr2 := 0.192874984796389078052417e-21:
fxrerr := 0.866e-41:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.000000000000014,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.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -39.90000000000001\n"):
total_tests := total_tests + 1:
fxm := exp(-39.90000000000001):
fxr2 := 0.469515757263114272485169e-17:
fxrerr := 0.633e-36:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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(exp,exp,-39.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -29.80000000000001\n"):
total_tests := total_tests + 1:
fxm := exp(-29.80000000000001):
fxr2 := 0.114294265039642319462127e-12:
fxrerr := 0.144e-31:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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(exp,exp,-29.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -19.70000000000001\n"):
total_tests := total_tests + 1:
fxm := exp(-19.70000000000001):
fxr2 := 0.278226637101584316210958e-8:
fxrerr := 0.326e-27:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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(exp,exp,-19.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.60000000000001\n"):
total_tests := total_tests + 1:
fxm := exp(-9.60000000000001):
fxr2 := 0.677287364908531957098576e-4:
fxrerr := 0.125e-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,-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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.49999999999998934\n"):
total_tests := total_tests + 1:
fxm := exp(0.49999999999998934):
fxr2 := 0.164872127070011057147981e1:
fxrerr := 0.134e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.49999999999998934,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.49999999999998934,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 10.599999999999989\n"):
total_tests := total_tests + 1:
fxm := exp(10.599999999999989):
fxr2 := 0.401348374308753516262418e5:
fxrerr := 0.78e-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,10.599999999999989,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.599999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 20.69999999999999\n"):
total_tests := total_tests + 1:
fxm := exp(20.69999999999999):
fxr2 := 0.977002725826898210083924e9:
fxrerr := 0.279e-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(exp,exp,20.69999999999999,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.69999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 30.79999999999999\n"):
total_tests := total_tests + 1:
fxm := exp(30.79999999999999):
fxr2 := 0.237831865624768678479732e14:
fxrerr := 0.89e-6:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.79999999999999,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.79999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 40.89999999999999\n"):
total_tests := total_tests + 1:
fxm := exp(40.89999999999999):
fxr2 := 0.578954334632837335027423e18:
fxrerr := 0.269e-1:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.89999999999999,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.89999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 50.99999999999999\n"):
total_tests := total_tests + 1:
fxm := exp(50.99999999999999):
fxr2 := 0.140934908242692470295461e23:
fxrerr := 0.775e3:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.99999999999999,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.99999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 61.099999999999994\n"):
total_tests := total_tests + 1:
fxm := exp(61.099999999999994):
fxr2 := 0.343077979958000798072228e27:
fxrerr := 0.219e8:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.099999999999994,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.099999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 71.19999999999999\n"):
total_tests := total_tests + 1:
fxm := exp(71.19999999999999):
fxr2 := 0.83515504994245721942444e31:
fxrerr := 0.604e12:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.19999999999999,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.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 81.29999999999998\n"):
total_tests := total_tests + 1:
fxm := exp(81.29999999999998):
fxr2 := 0.203301872515912910377703e36:
fxrerr := 0.163e17:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.29999999999998,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.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 91.39999999999998\n"):
total_tests := total_tests + 1:
fxm := exp(91.39999999999998):
fxr2 := 0.494897939865474068273768e40:
fxrerr := 0.437e21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.39999999999998,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.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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.15707963267948966192312e1:
fxrerr := 0.549e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.9\n"):
total_tests := total_tests + 1:
fxm := arcsin(-0.9):
fxr2 := -0.11197695149986341866753e1:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.8\n"):
total_tests := total_tests + 1:
fxm := arcsin(-0.8):
fxr2 := -0.92729521800161223242801e0:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.7000000000000001\n"):
total_tests := total_tests + 1:
fxm := arcsin(-0.7000000000000001):
fxr2 := -0.77539749661075320376801e0:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7000000000000001,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.7000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.6000000000000001\n"):
total_tests := total_tests + 1:
fxm := arcsin(-0.6000000000000001):
fxr2 := -0.64350110879328451180259e0:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6000000000000001,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.6000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.5000000000000001\n"):
total_tests := total_tests + 1:
fxm := arcsin(-0.5000000000000001):
fxr2 := -0.52359877559829898854696e0:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000001,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.5000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.40000000000000013\n"):
total_tests := total_tests + 1:
fxm := arcsin(-0.40000000000000013):
fxr2 := -0.41151684606748816122626e0:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.40000000000000013,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.40000000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.30000000000000016\n"):
total_tests := total_tests + 1:
fxm := arcsin(-0.30000000000000016):
fxr2 := -0.3046926540153976756975e0:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.30000000000000016,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.30000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.20000000000000015\n"):
total_tests := total_tests + 1:
fxm := arcsin(-0.20000000000000015):
fxr2 := -0.20135792079033094454817e0:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.20000000000000015,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.20000000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.10000000000000014\n"):
total_tests := total_tests + 1:
fxm := arcsin(-0.10000000000000014):
fxr2 := -0.10016742116155993705075e0:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.10000000000000014,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.10000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.3877787807814457e-16\n"):
total_tests := total_tests + 1:
fxm := arcsin(-1.3877787807814457e-16):
fxr2 := -0.13877787807814457e-15:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3877787807814457e-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.3877787807814457e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.09999999999999987\n"):
total_tests := total_tests + 1:
fxm := arcsin(0.09999999999999987):
fxr2 := 0.100167421161559665690603e0:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.09999999999999987,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.09999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.19999999999999987\n"):
total_tests := total_tests + 1:
fxm := arcsin(0.19999999999999987):
fxr2 := 0.201357920790330658774423e0:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.19999999999999987,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.19999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.2999999999999999\n"):
total_tests := total_tests + 1:
fxm := arcsin(0.2999999999999999):
fxr2 := 0.304692654015397403143508e0:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2999999999999999,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.2999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.3999999999999999\n"):
total_tests := total_tests + 1:
fxm := arcsin(0.3999999999999999):
fxr2 := 0.411516846067487910275781e0:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3999999999999999,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.3999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.4999999999999999\n"):
total_tests := total_tests + 1:
fxm := arcsin(0.4999999999999999):
fxr2 := 0.523598775598298757607035e0:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4999999999999999,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.4999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.5999999999999999\n"):
total_tests := total_tests + 1:
fxm := arcsin(0.5999999999999999):
fxr2 := 0.643501108793284261802784e0:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5999999999999999,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.5999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.6999999999999998\n"):
total_tests := total_tests + 1:
fxm := arcsin(0.6999999999999998):
fxr2 := 0.775397496610752783684302e0:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6999999999999998,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.6999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.7999999999999998\n"):
total_tests := total_tests + 1:
fxm := arcsin(0.7999999999999998):
fxr2 := 0.927295218001611899095121e0:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7999999999999998,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.7999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.8999999999999998\n"):
total_tests := total_tests + 1:
fxm := arcsin(0.8999999999999998):
fxr2 := 0.111976951499863372785244e1:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8999999999999998,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.8999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.9999999999999998\n"):
total_tests := total_tests + 1:
fxm := arcsin(0.9999999999999998):
fxr2 := 0.157079630679489661923125e1:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9999999999999998,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.9999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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.314159265358979323846252e1:
fxrerr := 0.313e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.9\n"):
total_tests := total_tests + 1:
fxm := arccos(-0.9):
fxr2 := 0.269056584179353080591521e1:
fxrerr := 0.131e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.8\n"):
total_tests := total_tests + 1:
fxm := arccos(-0.8):
fxr2 := 0.249809154479650885165773e1:
fxrerr := 0.131e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.7000000000000001\n"):
total_tests := total_tests + 1:
fxm := arccos(-0.7000000000000001):
fxr2 := 0.234619382340564982299927e1:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7000000000000001,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.7000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.6000000000000001\n"):
total_tests := total_tests + 1:
fxm := arccos(-0.6000000000000001):
fxr2 := 0.221429743558818113103385e1:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6000000000000001,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.6000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.5000000000000001\n"):
total_tests := total_tests + 1:
fxm := arccos(-0.5000000000000001):
fxr2 := 0.209439510239319560777822e1:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000001,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.5000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.40000000000000013\n"):
total_tests := total_tests + 1:
fxm := arccos(-0.40000000000000013):
fxr2 := 0.198231317286238478045752e1:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.40000000000000013,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.40000000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.30000000000000016\n"):
total_tests := total_tests + 1:
fxm := arccos(-0.30000000000000016):
fxr2 := 0.187548898081029429492876e1:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.30000000000000016,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.30000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.20000000000000015\n"):
total_tests := total_tests + 1:
fxm := arccos(-0.20000000000000015):
fxr2 := 0.177215424758522756377943e1:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.20000000000000015,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.20000000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.10000000000000014\n"):
total_tests := total_tests + 1:
fxm := arccos(-0.10000000000000014):
fxr2 := 0.167096374795645655628201e1:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.10000000000000014,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.10000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.3877787807814457e-16\n"):
total_tests := total_tests + 1:
fxm := arccos(-1.3877787807814457e-16):
fxr2 := 0.157079632679489675800913e1:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3877787807814457e-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.3877787807814457e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.09999999999999987\n"):
total_tests := total_tests + 1:
fxm := arccos(0.09999999999999987):
fxr2 := 0.147062890563333695354065e1:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.09999999999999987,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.09999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.19999999999999987\n"):
total_tests := total_tests + 1:
fxm := arccos(0.19999999999999987):
fxr2 := 0.136943840600456596045683e1:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.19999999999999987,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.19999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.2999999999999999\n"):
total_tests := total_tests + 1:
fxm := arccos(0.2999999999999999):
fxr2 := 0.126610367277949921608775e1:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2999999999999999,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.2999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.3999999999999999\n"):
total_tests := total_tests + 1:
fxm := arccos(0.3999999999999999):
fxr2 := 0.115927948072740870895547e1:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3999999999999999,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.3999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.4999999999999999\n"):
total_tests := total_tests + 1:
fxm := arccos(0.4999999999999999):
fxr2 := 0.104719755119659786162422e1:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4999999999999999,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.4999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.5999999999999999\n"):
total_tests := total_tests + 1:
fxm := arccos(0.5999999999999999):
fxr2 := 0.927295218001612357428476e0:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5999999999999999,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.5999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.6999999999999998\n"):
total_tests := total_tests + 1:
fxm := arccos(0.6999999999999998):
fxr2 := 0.795398830184143835546958e0:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6999999999999998,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.6999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.7999999999999998\n"):
total_tests := total_tests + 1:
fxm := arccos(0.7999999999999998):
fxr2 := 0.643501108793284720136139e0:
fxrerr := 0.154e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7999999999999998,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.7999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.8999999999999998\n"):
total_tests := total_tests + 1:
fxm := arccos(0.8999999999999998):
fxr2 := 0.45102681179626289137882e0:
fxrerr := 0.208e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8999999999999998,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.8999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.9999999999999998\n"):
total_tests := total_tests + 1:
fxm := arccos(0.9999999999999998):
fxr2 := 0.2000000000000001e-7:
fxrerr := 0.208e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9999999999999998,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.9999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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.14758446204521402994739e1:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.4\n"):
total_tests := total_tests + 1:
fxm := arctan(-10.4):
fxr2 := -0.14749371796848834305339e1:
fxrerr := 0.101e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.3\n"):
total_tests := total_tests + 1:
fxm := arctan(-10.3):
fxr2 := -0.14740122816874226938498e1:
fxrerr := 0.102e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.200000000000001\n"):
total_tests := total_tests + 1:
fxm := arctan(-10.200000000000001):
fxr2 := -0.14730694194361778977597e1:
fxrerr := 0.102e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.200000000000001,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.200000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.100000000000001\n"):
total_tests := total_tests + 1:
fxm := arctan(-10.100000000000001):
fxr2 := -0.14721080661464900829556e1:
fxrerr := 0.103e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.100000000000001,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.100000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.000000000000002\n"):
total_tests := total_tests + 1:
fxm := arctan(-10.000000000000002):
fxr2 := -0.14711276743037346116547e1:
fxrerr := 0.104e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.000000000000002,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.000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.900000000000002\n"):
total_tests := total_tests + 1:
fxm := arctan(-9.900000000000002):
fxr2 := -0.14701276746370677453863e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.900000000000002,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.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.800000000000002\n"):
total_tests := total_tests + 1:
fxm := arctan(-9.800000000000002):
fxr2 := -0.14691074750318196014609e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.800000000000002,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.800000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.700000000000003\n"):
total_tests := total_tests + 1:
fxm := arctan(-9.700000000000003):
fxr2 := -0.14680664593762271609752e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.700000000000003,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.700000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.600000000000003\n"):
total_tests := total_tests + 1:
fxm := arctan(-9.600000000000003):
fxr2 := -0.14670039863378538234164e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.600000000000003,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.600000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.500000000000004\n"):
total_tests := total_tests + 1:
fxm := arctan(-9.500000000000004):
fxr2 := -0.14659193880646627672486e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.500000000000004,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.500000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.400000000000004\n"):
total_tests := total_tests + 1:
fxm := arctan(-9.400000000000004):
fxr2 := -0.1464811968805296771971e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.400000000000004,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.400000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.300000000000004\n"):
total_tests := total_tests + 1:
fxm := arctan(-9.300000000000004):
fxr2 := -0.14636810034426649251343e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.300000000000004,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.300000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.200000000000005\n"):
total_tests := total_tests + 1:
fxm := arctan(-9.200000000000005):
fxr2 := -0.14625257359344406364703e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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(arctan,atan,-9.200000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.100000000000005\n"):
total_tests := total_tests + 1:
fxm := arctan(-9.100000000000005):
fxr2 := -0.14613453776535332568494e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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(arctan,atan,-9.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.000000000000005\n"):
total_tests := total_tests + 1:
fxm := arctan(-9.000000000000005):
fxr2 := -0.14601391056210010336477e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.000000000000005,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.000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.900000000000006\n"):
total_tests := total_tests + 1:
fxm := arctan(-8.900000000000006):
fxr2 := -0.14589060606232205791894e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.900000000000006,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.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.800000000000006\n"):
total_tests := total_tests + 1:
fxm := arctan(-8.800000000000006):
fxr2 := -0.14576453452044121826738e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.800000000000006,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.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.700000000000006\n"):
total_tests := total_tests + 1:
fxm := arctan(-8.700000000000006):
fxr2 := -0.14563560215248332498101e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.700000000000006,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.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.600000000000007\n"):
total_tests := total_tests + 1:
fxm := arctan(-8.600000000000007):
fxr2 := -0.14550371090740859926741e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.600000000000007,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.600000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.500000000000007\n"):
total_tests := total_tests + 1:
fxm := arctan(-8.500000000000007):
fxr2 := -0.14536875822280324318054e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.500000000000007,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.500000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.400000000000007\n"):
total_tests := total_tests + 1:
fxm := arctan(-8.400000000000007):
fxr2 := -0.14523063676367589486948e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.400000000000007,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.400000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.300000000000008\n"):
total_tests := total_tests + 1:
fxm := arctan(-8.300000000000008):
fxr2 := -0.14508923414298728323682e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.300000000000008,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.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.200000000000008\n"):
total_tests := total_tests + 1:
fxm := arctan(-8.200000000000008):
fxr2 := -0.14494443262241330577171e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.200000000000008,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.200000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.100000000000009\n"):
total_tests := total_tests + 1:
fxm := arctan(-8.100000000000009):
fxr2 := -0.14479610879170017586835e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.100000000000009,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.100000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.000000000000009\n"):
total_tests := total_tests + 1:
fxm := arctan(-8.000000000000009):
fxr2 := -0.14464413322481353226615e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.000000000000009,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.000000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -7.900000000000009\n"):
total_tests := total_tests + 1:
fxm := arctan(-7.900000000000009):
fxr2 := -0.14448837011090985440626e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.900000000000009,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.900000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -7.80000000000001\n"):
total_tests := total_tests + 1:
fxm := arctan(-7.80000000000001):
fxr2 := -0.14432867685796585218638e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -7.70000000000001\n"):
total_tests := total_tests + 1:
fxm := arctan(-7.70000000000001):
fxr2 := -0.14416490366668767254671e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -7.60000000000001\n"):
total_tests := total_tests + 1:
fxm := arctan(-7.60000000000001):
fxr2 := -0.14399689307208398352437e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -7.500000000000011\n"):
total_tests := total_tests + 1:
fxm := arctan(-7.500000000000011):
fxr2 := -0.14382447944982227901011e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.500000000000011,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.500000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -7.400000000000011\n"):
total_tests := total_tests + 1:
fxm := arctan(-7.400000000000011):
fxr2 := -0.14364748848419283088924e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.400000000000011,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.400000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -7.300000000000011\n"):
total_tests := total_tests + 1:
fxm := arctan(-7.300000000000011):
fxr2 := -0.14346573659417560617011e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.300000000000011,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.300000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -7.200000000000012\n"):
total_tests := total_tests + 1:
fxm := arctan(-7.200000000000012):
fxr2 := -0.14327903031373773991097e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.200000000000012,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.200000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -7.100000000000012\n"):
total_tests := total_tests + 1:
fxm := arctan(-7.100000000000012):
fxr2 := -0.1430871656220779102786e1:
fxrerr := 0.554e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.100000000000012,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.100000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -7.000000000000012\n"):
total_tests := total_tests + 1:
fxm := arctan(-7.000000000000012):
fxr2 := -0.14288992721907329364185e1:
fxrerr := 0.655e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.000000000000012,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.000000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -6.900000000000013\n"):
total_tests := total_tests + 1:
fxm := arctan(-6.900000000000013):
fxr2 := -0.14268708774066805828632e1:
fxrerr := 0.658e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.900000000000013,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.900000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -6.800000000000013\n"):
total_tests := total_tests + 1:
fxm := arctan(-6.800000000000013):
fxr2 := -0.14247840690836214931348e1:
fxrerr := 0.661e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.800000000000013,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.800000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -6.7000000000000135\n"):
total_tests := total_tests + 1:
fxm := arctan(-6.7000000000000135):
fxr2 := -0.14226363060630655349278e1:
fxrerr := 0.664e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7000000000000135,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.7000000000000135,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -6.600000000000014\n"):
total_tests := total_tests + 1:
fxm := arctan(-6.600000000000014):
fxr2 := -0.14204248987877623938018e1:
fxrerr := 0.668e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.600000000000014,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.600000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -6.500000000000014\n"):
total_tests := total_tests + 1:
fxm := arctan(-6.500000000000014):
fxr2 := -0.14181469983996317831033e1:
fxrerr := 0.672e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.500000000000014,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.500000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -6.400000000000015\n"):
total_tests := total_tests + 1:
fxm := arctan(-6.400000000000015):
fxr2 := -0.14157995848709559944109e1:
fxrerr := 0.674e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.400000000000015,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.400000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -6.300000000000015\n"):
total_tests := total_tests + 1:
fxm := arctan(-6.300000000000015):
fxr2 := -0.14133794540683062709157e1:
fxrerr := 0.678e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.300000000000015,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.300000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -6.200000000000015\n"):
total_tests := total_tests + 1:
fxm := arctan(-6.200000000000015):
fxr2 := -0.14108832036366777304158e1:
fxrerr := 0.683e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.200000000000015,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.200000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -6.100000000000016\n"):
total_tests := total_tests + 1:
fxm := arctan(-6.100000000000016):
fxr2 := -0.14083072175776936640617e1:
fxrerr := 0.687e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.100000000000016,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.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -6.000000000000016\n"):
total_tests := total_tests + 1:
fxm := arctan(-6.000000000000016):
fxr2 := -0.14056476493802702133846e1:
fxrerr := 0.692e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.000000000000016,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.000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.900000000000016\n"):
total_tests := total_tests + 1:
fxm := arctan(-5.900000000000016):
fxr2 := -0.14029004035445224984005e1:
fxrerr := 0.696e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.900000000000016,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.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.800000000000017\n"):
total_tests := total_tests + 1:
fxm := arctan(-5.800000000000017):
fxr2 := -0.14000611153196143052662e1:
fxrerr := 0.701e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.800000000000017,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.800000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.700000000000017\n"):
total_tests := total_tests + 1:
fxm := arctan(-5.700000000000017):
fxr2 := -0.13971251284533232991058e1:
fxrerr := 0.706e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.700000000000017,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.700000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.600000000000017\n"):
total_tests := total_tests + 1:
fxm := arctan(-5.600000000000017):
fxr2 := -0.13940874707248605298513e1:
fxrerr := 0.711e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.600000000000017,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.600000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.500000000000018\n"):
total_tests := total_tests + 1:
fxm := arctan(-5.500000000000018):
fxr2 := -0.13909428270024189246427e1:
fxrerr := 0.717e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.500000000000018,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.500000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.400000000000018\n"):
total_tests := total_tests + 1:
fxm := arctan(-5.400000000000018):
fxr2 := -0.13876855095324130881148e1:
fxrerr := 0.723e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.400000000000018,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.400000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.3000000000000185\n"):
total_tests := total_tests + 1:
fxm := arctan(-5.3000000000000185):
fxr2 := -0.13843094251276804790067e1:
fxrerr := 0.729e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000185,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.3000000000000185,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.200000000000019\n"):
total_tests := total_tests + 1:
fxm := arctan(-5.200000000000019):
fxr2 := -0.13808080388761815736677e1:
fxrerr := 0.736e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.200000000000019,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.200000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.100000000000019\n"):
total_tests := total_tests + 1:
fxm := arctan(-5.100000000000019):
fxr2 := -0.13771743339389519405577e1:
fxrerr := 0.743e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.100000000000019,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.100000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -5.0000000000000195\n"):
total_tests := total_tests + 1:
fxm := arctan(-5.0000000000000195):
fxr2 := -0.13734007669450166108613e1:
fxrerr := 0.749e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.0000000000000195,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.0000000000000195,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.90000000000002\n"):
total_tests := total_tests + 1:
fxm := arctan(-4.90000000000002):
fxr2 := -0.13694792184202566588539e1:
fxrerr := 0.758e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.80000000000002\n"):
total_tests := total_tests + 1:
fxm := arctan(-4.80000000000002):
fxr2 := -0.13654009376051300590529e1:
fxrerr := 0.766e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.700000000000021\n"):
total_tests := total_tests + 1:
fxm := arctan(-4.700000000000021):
fxr2 := -0.13611564809206850080877e1:
fxrerr := 0.774e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.700000000000021,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.700000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.600000000000021\n"):
total_tests := total_tests + 1:
fxm := arctan(-4.600000000000021):
fxr2 := -0.13567356432310760600171e1:
fxrerr := 0.784e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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,-4.600000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.500000000000021\n"):
total_tests := total_tests + 1:
fxm := arctan(-4.500000000000021):
fxr2 := -0.13521273809209556454244e1:
fxrerr := 0.794e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.500000000000021,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.500000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.400000000000022\n"):
total_tests := total_tests + 1:
fxm := arctan(-4.400000000000022):
fxr2 := -0.13473197256542646787078e1:
fxrerr := 0.804e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.400000000000022,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.400000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.300000000000022\n"):
total_tests := total_tests + 1:
fxm := arctan(-4.300000000000022):
fxr2 := -0.13422996875030354406803e1:
fxrerr := 0.816e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.300000000000022,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.300000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.200000000000022\n"):
total_tests := total_tests + 1:
fxm := arctan(-4.200000000000022):
fxr2 := -0.13370531459259963744662e1:
fxrerr := 0.828e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.200000000000022,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.200000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.100000000000023\n"):
total_tests := total_tests + 1:
fxm := arctan(-4.100000000000023):
fxr2 := -0.13315647268312373415846e1:
fxrerr := 0.840e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.100000000000023,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.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -4.000000000000023\n"):
total_tests := total_tests + 1:
fxm := arctan(-4.000000000000023):
fxr2 := -0.13258176636680338180004e1:
fxrerr := 0.853e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.000000000000023,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.000000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.900000000000023\n"):
total_tests := total_tests + 1:
fxm := arctan(-3.900000000000023):
fxr2 := -0.13197936401518634336662e1:
fxrerr := 0.868e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.900000000000023,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.900000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.800000000000023\n"):
total_tests := total_tests + 1:
fxm := arctan(-3.800000000000023):
fxr2 := -0.13134726118238094660668e1:
fxrerr := 0.884e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.800000000000023,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.800000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.700000000000023\n"):
total_tests := total_tests + 1:
fxm := arctan(-3.700000000000023):
fxr2 := -0.13068326031691936223536e1:
fxrerr := 0.901e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.700000000000023,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.700000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.6000000000000227\n"):
total_tests := total_tests + 1:
fxm := arctan(-3.6000000000000227):
fxr2 := -0.12998494764564777038693e1:
fxrerr := 0.919e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6000000000000227,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.6000000000000227,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.5000000000000226\n"):
total_tests := total_tests + 1:
fxm := arctan(-3.5000000000000226):
fxr2 := -0.12924966677897869735635e1:
fxrerr := 0.939e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000226,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.5000000000000226,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.4000000000000226\n"):
total_tests := total_tests + 1:
fxm := arctan(-3.4000000000000226):
fxr2 := -0.12847448850775801945797e1:
fxrerr := 0.960e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4000000000000226,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.4000000000000226,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.3000000000000225\n"):
total_tests := total_tests + 1:
fxm := arctan(-3.3000000000000225):
fxr2 := -0.1276561761683710734825e1:
fxrerr := 0.983e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000225,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.3000000000000225,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.2000000000000224\n"):
total_tests := total_tests + 1:
fxm := arctan(-3.2000000000000224):
fxr2 := -0.12679114584199272065534e1:
fxrerr := 0.1e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000224,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.2000000000000224,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.1000000000000223\n"):
total_tests := total_tests + 1:
fxm := arctan(-3.1000000000000223):
fxr2 := -0.12587542052323654273507e1:
fxrerr := 0.103e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000223,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.1000000000000223,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -3.000000000000022\n"):
total_tests := total_tests + 1:
fxm := arctan(-3.000000000000022):
fxr2 := -0.124904577239825662583e1:
fxrerr := 0.106e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.000000000000022,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.000000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.900000000000022\n"):
total_tests := total_tests + 1:
fxm := arctan(-2.900000000000022):
fxr2 := -0.12387368592520134793164e1:
fxrerr := 0.109e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.900000000000022,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.900000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.800000000000022\n"):
total_tests := total_tests + 1:
fxm := arctan(-2.800000000000022):
fxr2 := -0.12277723863741957108457e1:
fxrerr := 0.112e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.800000000000022,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.800000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.700000000000022\n"):
total_tests := total_tests + 1:
fxm := arctan(-2.700000000000022):
fxr2 := -0.12160906747839589566588e1:
fxrerr := 0.116e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.700000000000022,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.700000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.600000000000022\n"):
total_tests := total_tests + 1:
fxm := arctan(-2.600000000000022):
fxr2 := -0.12036224929766802458585e1:
fxrerr := 0.12e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.600000000000022,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.600000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.5000000000000218\n"):
total_tests := total_tests + 1:
fxm := arctan(-2.5000000000000218):
fxr2 := -0.11902899496825347398244e1:
fxrerr := 0.125e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000218,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.5000000000000218,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.4000000000000217\n"):
total_tests := total_tests + 1:
fxm := arctan(-2.4000000000000217):
fxr2 := -0.11760052070951383125505e1:
fxrerr := 0.13e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4000000000000217,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.4000000000000217,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.3000000000000216\n"):
total_tests := total_tests + 1:
fxm := arctan(-2.3000000000000216):
fxr2 := -0.11606689862534090608024e1:
fxrerr := 0.136e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000216,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.3000000000000216,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.2000000000000215\n"):
total_tests := total_tests + 1:
fxm := arctan(-2.2000000000000215):
fxr2 := -0.11441688336680242115185e1:
fxrerr := 0.141e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000215,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.2000000000000215,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.1000000000000214\n"):
total_tests := total_tests + 1:
fxm := arctan(-2.1000000000000214):
fxr2 := -0.11263771168938016655342e1:
fxrerr := 0.148e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000214,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.1000000000000214,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -2.0000000000000213\n"):
total_tests := total_tests + 1:
fxm := arctan(-2.0000000000000213):
fxr2 := -0.11071487177940947630172e1:
fxrerr := 0.155e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.0000000000000213,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.0000000000000213,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.9000000000000212\n"):
total_tests := total_tests + 1:
fxm := arctan(-1.9000000000000212):
fxr2 := -0.10863183977578780167625e1:
fxrerr := 0.164e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9000000000000212,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.9000000000000212,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.8000000000000211\n"):
total_tests := total_tests + 1:
fxm := arctan(-1.8000000000000211):
fxr2 := -0.10636978224025646373591e1:
fxrerr := 0.173e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8000000000000211,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.8000000000000211,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.700000000000021\n"):
total_tests := total_tests + 1:
fxm := arctan(-1.700000000000021):
fxr2 := -0.10390722595360964260789e1:
fxrerr := 0.184e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.700000000000021,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.700000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.600000000000021\n"):
total_tests := total_tests + 1:
fxm := arctan(-1.600000000000021):
fxr2 := -0.10121970114513400821363e1:
fxrerr := 0.196e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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,-1.600000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.5000000000000209\n"):
total_tests := total_tests + 1:
fxm := arctan(-1.5000000000000209):
fxr2 := -0.98279372324733549875509e0:
fxrerr := 0.209e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000209,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.5000000000000209,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.4000000000000208\n"):
total_tests := total_tests + 1:
fxm := arctan(-1.4000000000000208):
fxr2 := -0.95054684081208217492211e0:
fxrerr := 0.224e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4000000000000208,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.4000000000000208,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.3000000000000207\n"):
total_tests := total_tests + 1:
fxm := arctan(-1.3000000000000207):
fxr2 := -0.91510070055336811173444e0:
fxrerr := 0.241e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000207,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.3000000000000207,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.2000000000000206\n"):
total_tests := total_tests + 1:
fxm := arctan(-1.2000000000000206):
fxr2 := -0.87605805059820186573755e0:
fxrerr := 0.261e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000206,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.2000000000000206,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.1000000000000205\n"):
total_tests := total_tests + 1:
fxm := arctan(-1.1000000000000205):
fxr2 := -0.83298126667444098143689e0:
fxrerr := 0.282e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000205,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.1000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.0000000000000204\n"):
total_tests := total_tests + 1:
fxm := arctan(-1.0000000000000204):
fxr2 := -0.78544816339694830966523e0:
fxrerr := 0.1e-3:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.0000000000000204,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.0000000000000204,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.9000000000000205\n"):
total_tests := total_tests + 1:
fxm := arctan(-0.9000000000000205):
fxr2 := -0.73281510178651791760651e0:
fxrerr := 0.276e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9000000000000205,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.9000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.8000000000000205\n"):
total_tests := total_tests + 1:
fxm := arctan(-0.8000000000000205):
fxr2 := -0.67474094222356516305598e0:
fxrerr := 0.304e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8000000000000205,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.8000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.7000000000000205\n"):
total_tests := total_tests + 1:
fxm := arctan(-0.7000000000000205):
fxr2 := -0.61072596438922237493269e0:
fxrerr := 0.335e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7000000000000205,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.7000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.6000000000000205\n"):
total_tests := total_tests + 1:
fxm := arctan(-0.6000000000000205):
fxr2 := -0.54041950027059922897274e0:
fxrerr := 0.367e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6000000000000205,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.6000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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.4605170185988091368013e1:
fxrerr := 0.551e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.11\n"):
total_tests := total_tests + 1:
fxm := ln(0.11):
fxr2 := -0.22072749131897208239551e1:
fxrerr := 0.454e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.21000000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(0.21000000000000002):
fxr2 := -0.15606477482646682762869e1:
fxrerr := 0.238e-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(ln,log,0.21000000000000002,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.21000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.31000000000000005\n"):
total_tests := total_tests + 1:
fxm := ln(0.31000000000000005):
fxr2 := -0.11711829815029449608101e1:
fxrerr := 0.161e-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(ln,log,0.31000000000000005,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.31000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.41000000000000003\n"):
total_tests := total_tests + 1:
fxm := ln(0.41000000000000003):
fxr2 := -0.89159811928378349099801e0:
fxrerr := 0.121e-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(ln,log,0.41000000000000003,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.41000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.51\n"):
total_tests := total_tests + 1:
fxm := ln(0.51):
fxr2 := -0.67334455326376559639082e0:
fxrerr := 0.98e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.61\n"):
total_tests := total_tests + 1:
fxm := ln(0.61):
fxr2 := -0.49429632181478011928437e0:
fxrerr := 0.819e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.71\n"):
total_tests := total_tests + 1:
fxm := ln(0.71):
fxr2 := -0.34249030894677594670631e0:
fxrerr := 0.704e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.8099999999999999\n"):
total_tests := total_tests + 1:
fxm := ln(0.8099999999999999):
fxr2 := -0.21072103131565272591166e0:
fxrerr := 0.617e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8099999999999999,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.8099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.9099999999999999\n"):
total_tests := total_tests + 1:
fxm := ln(0.9099999999999999):
fxr2 := -0.94310679471241436767241e-1:
fxrerr := 0.549e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9099999999999999,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.9099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.01\n"):
total_tests := total_tests + 1:
fxm := ln(1.01):
fxr2 := 0.995033085316808287035e-2:
fxrerr := 0.546e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.11\n"):
total_tests := total_tests + 1:
fxm := ln(1.11):
fxr2 := 0.10436001532424276774695e0:
fxrerr := 0.501e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.2100000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(1.2100000000000002):
fxr2 := 0.19062035960864988539465e0:
fxrerr := 0.464e-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(ln,log,1.2100000000000002,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.2100000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.3100000000000003\n"):
total_tests := total_tests + 1:
fxm := ln(1.3100000000000003):
fxr2 := 0.27002713721306040513725e0:
fxrerr := 0.432e-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(ln,log,1.3100000000000003,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.3100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.4100000000000004\n"):
total_tests := total_tests + 1:
fxm := ln(1.4100000000000004):
fxr2 := 0.34358970439007719388315e0:
fxrerr := 0.405e-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(ln,log,1.4100000000000004,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.4100000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.5100000000000005\n"):
total_tests := total_tests + 1:
fxm := ln(1.5100000000000005):
fxr2 := 0.41210965082683329189995e0:
fxrerr := 0.382e-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(ln,log,1.5100000000000005,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.5100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.6100000000000005\n"):
total_tests := total_tests + 1:
fxm := ln(1.6100000000000005):
fxr2 := 0.47623417899637193844785e0:
fxrerr := 0.361e-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(ln,log,1.6100000000000005,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.6100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.7100000000000006\n"):
total_tests := total_tests + 1:
fxm := ln(1.7100000000000006):
fxr2 := 0.53649337051456882565325e0:
fxrerr := 0.343e-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(ln,log,1.7100000000000006,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.7100000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.8100000000000007\n"):
total_tests := total_tests + 1:
fxm := ln(1.8100000000000007):
fxr2 := 0.59332684527773476555455e0:
fxrerr := 0.327e-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(ln,log,1.8100000000000007,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.8100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.9100000000000008\n"):
total_tests := total_tests + 1:
fxm := ln(1.9100000000000008):
fxr2 := 0.64710324205853892367245e0:
fxrerr := 0.312e-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(ln,log,1.9100000000000008,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.9100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.0100000000000007\n"):
total_tests := total_tests + 1:
fxm := ln(2.0100000000000007):
fxr2 := 0.69813472207098473129745e0:
fxrerr := 0.299e-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(ln,log,2.0100000000000007,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.0100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.1100000000000008\n"):
total_tests := total_tests + 1:
fxm := ln(2.1100000000000008):
fxr2 := 0.74668794748797550686175e0:
fxrerr := 0.287e-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(ln,log,2.1100000000000008,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.1100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.210000000000001\n"):
total_tests := total_tests + 1:
fxm := ln(2.210000000000001):
fxr2 := 0.79299251552966190076455e0:
fxrerr := 0.277e-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(ln,log,2.210000000000001,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.210000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.310000000000001\n"):
total_tests := total_tests + 1:
fxm := ln(2.310000000000001):
fxr2 := 0.83724752453370260543515e0:
fxrerr := 0.267e-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(ln,log,2.310000000000001,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.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.410000000000001\n"):
total_tests := total_tests + 1:
fxm := ln(2.410000000000001):
fxr2 := 0.87962674750256404237625e0:
fxrerr := 0.258e-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(ln,log,2.410000000000001,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.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.510000000000001\n"):
total_tests := total_tests + 1:
fxm := ln(2.510000000000001):
fxr2 := 0.92028275314369291659685e0:
fxrerr := 0.25e-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(ln,log,2.510000000000001,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.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.610000000000001\n"):
total_tests := total_tests + 1:
fxm := ln(2.610000000000001):
fxr2 := 0.95935022133460242508655e0:
fxrerr := 0.242e-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(ln,log,2.610000000000001,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.610000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.7100000000000013\n"):
total_tests := total_tests + 1:
fxm := ln(2.7100000000000013):
fxr2 := 0.99694863489161001177265e0:
fxrerr := 0.235e-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(ln,log,2.7100000000000013,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.7100000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.8100000000000014\n"):
total_tests := total_tests + 1:
fxm := ln(2.8100000000000014):
fxr2 := 0.103318448334565489529725e1:
fxrerr := 0.228e-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(ln,log,2.8100000000000014,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.8100000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.9100000000000015\n"):
total_tests := total_tests + 1:
fxm := ln(2.9100000000000015):
fxr2 := 0.106815308118340166094595e1:
fxrerr := 0.222e-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(ln,log,2.9100000000000015,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.9100000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.0100000000000016\n"):
total_tests := total_tests + 1:
fxm := ln(3.0100000000000016):
fxr2 := 0.110194007876078489210935e1:
fxrerr := 0.217e-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(ln,log,3.0100000000000016,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.0100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.1100000000000017\n"):
total_tests := total_tests + 1:
fxm := ln(3.1100000000000017):
fxr2 := 0.113462272619114331278915e1:
fxrerr := 0.211e-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(ln,log,3.1100000000000017,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.1100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.2100000000000017\n"):
total_tests := total_tests + 1:
fxm := ln(3.2100000000000017):
fxr2 := 0.116627093714192502626355e1:
fxrerr := 0.206e-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(ln,log,3.2100000000000017,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.2100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.310000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(3.310000000000002):
fxr2 := 0.119694818938897213698275e1:
fxrerr := 0.202e-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(ln,log,3.310000000000002,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.310000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.410000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(3.410000000000002):
fxr2 := 0.122671229129542600847035e1:
fxrerr := 0.197e-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(ln,log,3.410000000000002,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.410000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.510000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(3.510000000000002):
fxr2 := 0.125561603747777501200865e1:
fxrerr := 0.193e-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(ln,log,3.510000000000002,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.510000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.610000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(3.610000000000002):
fxr2 := 0.128370777234479010600275e1:
fxrerr := 0.189e-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(ln,log,3.610000000000002,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.610000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.710000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(3.710000000000002):
fxr2 := 0.131103187661934431029732e1:
fxrerr := 0.185e-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(ln,log,3.710000000000002,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.710000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.8100000000000023\n"):
total_tests := total_tests + 1:
fxm := ln(3.8100000000000023):
fxr2 := 0.133762918913861020008107e1:
fxrerr := 0.182e-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(ln,log,3.8100000000000023,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.8100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.9100000000000024\n"):
total_tests := total_tests + 1:
fxm := ln(3.9100000000000024):
fxr2 := 0.136353737399727501683092e1:
fxrerr := 0.178e-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(ln,log,3.9100000000000024,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.9100000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.0100000000000025\n"):
total_tests := total_tests + 1:
fxm := ln(4.0100000000000025):
fxr2 := 0.138879124131847844125593e1:
fxrerr := 0.175e-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(ln,log,4.0100000000000025,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.0100000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.110000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(4.110000000000002):
fxr2 := 0.141342302850814372529232e1:
fxrerr := 0.172e-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(ln,log,4.110000000000002,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.110000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.210000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(4.210000000000002):
fxr2 := 0.143746264769429052461191e1:
fxrerr := 0.169e-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(ln,log,4.210000000000002,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.210000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.310000000000001\n"):
total_tests := total_tests + 1:
fxm := ln(4.310000000000001):
fxr2 := 0.146093790411565665173e1:
fxrerr := 0.167e-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(ln,log,4.310000000000001,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.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.410000000000001\n"):
total_tests := total_tests + 1:
fxm := ln(4.410000000000001):
fxr2 := 0.148387468945875485172232e1:
fxrerr := 0.164e-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(ln,log,4.410000000000001,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.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.510000000000001\n"):
total_tests := total_tests + 1:
fxm := ln(4.510000000000001):
fxr2 := 0.1506297153514587201622e1:
fxrerr := 0.161e-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(ln,log,4.510000000000001,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.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.61\n"):
total_tests := total_tests + 1:
fxm := ln(4.61):
fxr2 := 0.152822785700855715033651e1:
fxrerr := 0.159e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.71\n"):
total_tests := total_tests + 1:
fxm := ln(4.71):
fxr2 := 0.154968790802832638078346e1:
fxrerr := 0.157e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.81\n"):
total_tests := total_tests + 1:
fxm := ln(4.81):
fxr2 := 0.157069708411766981238528e1:
fxrerr := 0.154e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.909999999999999\n"):
total_tests := total_tests + 1:
fxm := ln(4.909999999999999):
fxr2 := 0.159127394180642900703195e1:
fxrerr := 0.152e-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(ln,log,4.909999999999999,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.909999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.009999999999999\n"):
total_tests := total_tests + 1:
fxm := ln(5.009999999999999):
fxr2 := 0.161143591509677323101792e1:
fxrerr := 0.15e-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(ln,log,5.009999999999999,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.009999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.1099999999999985\n"):
total_tests := total_tests + 1:
fxm := ln(5.1099999999999985):
fxr2 := 0.163119940421561277261911e1:
fxrerr := 0.148e-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(ln,log,5.1099999999999985,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.1099999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.209999999999998\n"):
total_tests := total_tests + 1:
fxm := ln(5.209999999999998):
fxr2 := 0.165057985576527516617545e1:
fxrerr := 0.147e-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(ln,log,5.209999999999998,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.209999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.309999999999998\n"):
total_tests := total_tests + 1:
fxm := ln(5.309999999999998):
fxr2 := 0.166959183525384708872241e1:
fxrerr := 0.145e-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(ln,log,5.309999999999998,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.309999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.4099999999999975\n"):
total_tests := total_tests + 1:
fxm := ln(5.4099999999999975):
fxr2 := 0.168824909285838969142666e1:
fxrerr := 0.143e-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(ln,log,5.4099999999999975,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.4099999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.509999999999997\n"):
total_tests := total_tests + 1:
fxm := ln(5.509999999999997):
fxr2 := 0.170656462316482257469139e1:
fxrerr := 0.141e-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(ln,log,5.509999999999997,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.509999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.609999999999997\n"):
total_tests := total_tests + 1:
fxm := ln(5.609999999999997):
fxr2 := 0.172455071953460441291103e1:
fxrerr := 0.14e-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(ln,log,5.609999999999997,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.609999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.709999999999996\n"):
total_tests := total_tests + 1:
fxm := ln(5.709999999999996):
fxr2 := 0.174221902366791814816826e1:
fxrerr := 0.138e-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(ln,log,5.709999999999996,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.709999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.809999999999996\n"):
total_tests := total_tests + 1:
fxm := ln(5.809999999999996):
fxr2 := 0.175958057086381917207631e1:
fxrerr := 0.137e-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(ln,log,5.809999999999996,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.809999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.909999999999996\n"):
total_tests := total_tests + 1:
fxm := ln(5.909999999999996):
fxr2 := 0.177664583141800615331975e1:
fxrerr := 0.135e-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(ln,log,5.909999999999996,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.909999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.009999999999995\n"):
total_tests := total_tests + 1:
fxm := ln(6.009999999999995):
fxr2 := 0.179342474854711537928995e1:
fxrerr := 0.134e-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(ln,log,6.009999999999995,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.009999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.109999999999995\n"):
total_tests := total_tests + 1:
fxm := ln(6.109999999999995):
fxr2 := 0.180992677318350313650745e1:
fxrerr := 0.132e-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(ln,log,6.109999999999995,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.109999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.209999999999995\n"):
total_tests := total_tests + 1:
fxm := ln(6.209999999999995):
fxr2 := 0.182616089594538659180313e1:
fxrerr := 0.131e-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(ln,log,6.209999999999995,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.209999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.309999999999994\n"):
total_tests := total_tests + 1:
fxm := ln(6.309999999999994):
fxr2 := 0.184213567655312083837071e1:
fxrerr := 0.13e-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(ln,log,6.309999999999994,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.309999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.409999999999994\n"):
total_tests := total_tests + 1:
fxm := ln(6.409999999999994):
fxr2 := 0.185785927093257773575959e1:
fxrerr := 0.129e-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(ln,log,6.409999999999994,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.409999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.509999999999994\n"):
total_tests := total_tests + 1:
fxm := ln(6.509999999999994):
fxr2 := 0.187333945622047695273437e1:
fxrerr := 0.127e-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(ln,log,6.509999999999994,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.509999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.609999999999993\n"):
total_tests := total_tests + 1:
fxm := ln(6.609999999999993):
fxr2 := 0.188858365386359385880277e1:
fxrerr := 0.126e-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(ln,log,6.609999999999993,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.609999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.709999999999993\n"):
total_tests := total_tests + 1:
fxm := ln(6.709999999999993):
fxr2 := 0.190359895098358938155787e1:
fxrerr := 0.125e-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(ln,log,6.709999999999993,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.709999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.8099999999999925\n"):
total_tests := total_tests + 1:
fxm := ln(6.8099999999999925):
fxr2 := 0.191839212016141989705063e1:
fxrerr := 0.124e-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(ln,log,6.8099999999999925,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.8099999999999925,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.909999999999992\n"):
total_tests := total_tests + 1:
fxm := ln(6.909999999999992):
fxr2 := 0.193296963777957737082895e1:
fxrerr := 0.123e-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(ln,log,6.909999999999992,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.909999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.009999999999992\n"):
total_tests := total_tests + 1:
fxm := ln(7.009999999999992):
fxr2 := 0.194733770104649758123714e1:
fxrerr := 0.122e-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(ln,log,7.009999999999992,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.009999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.109999999999991\n"):
total_tests := total_tests + 1:
fxm := ln(7.109999999999991):
fxr2 := 0.196150224381514824310423e1:
fxrerr := 0.121e-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(ln,log,7.109999999999991,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.109999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.209999999999991\n"):
total_tests := total_tests + 1:
fxm := ln(7.209999999999991):
fxr2 := 0.19754689512968564595712e1:
fxrerr := 0.12e-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(ln,log,7.209999999999991,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.209999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.309999999999991\n"):
total_tests := total_tests + 1:
fxm := ln(7.309999999999991):
fxr2 := 0.198924327376168590449579e1:
fxrerr := 0.119e-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(ln,log,7.309999999999991,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.309999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.40999999999999\n"):
total_tests := total_tests + 1:
fxm := ln(7.40999999999999):
fxr2 := 0.200283043930799416989365e1:
fxrerr := 0.118e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.50999999999999\n"):
total_tests := total_tests + 1:
fxm := ln(7.50999999999999):
fxr2 := 0.201623546577604204466115e1:
fxrerr := 0.117e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.60999999999999\n"):
total_tests := total_tests + 1:
fxm := ln(7.60999999999999):
fxr2 := 0.202946317187359315425848e1:
fxrerr := 0.116e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.709999999999989\n"):
total_tests := total_tests + 1:
fxm := ln(7.709999999999989):
fxr2 := 0.204251818757523669499203e1:
fxrerr := 0.115e-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(ln,log,7.709999999999989,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.709999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.809999999999989\n"):
total_tests := total_tests + 1:
fxm := ln(7.809999999999989):
fxr2 := 0.205540496385159318890422e1:
fxrerr := 0.115e-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(ln,log,7.809999999999989,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.809999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.909999999999989\n"):
total_tests := total_tests + 1:
fxm := ln(7.909999999999989):
fxr2 := 0.206812778177956111500624e1:
fxrerr := 0.114e-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(ln,log,7.909999999999989,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.909999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.00999999999999\n"):
total_tests := total_tests + 1:
fxm := ln(8.00999999999999):
fxr2 := 0.208069076108026660463239e1:
fxrerr := 0.113e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.109999999999989\n"):
total_tests := total_tests + 1:
fxm := ln(8.109999999999989):
fxr2 := 0.209309786812732019681374e1:
fxrerr := 0.112e-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(ln,log,8.109999999999989,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.109999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.209999999999988\n"):
total_tests := total_tests + 1:
fxm := ln(8.209999999999988):
fxr2 := 0.210535292346433539194631e1:
fxrerr := 0.112e-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(ln,log,8.209999999999988,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.209999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.309999999999988\n"):
total_tests := total_tests + 1:
fxm := ln(8.309999999999988):
fxr2 := 0.211745960886735537918483e1:
fxrerr := 0.111e-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(ln,log,8.309999999999988,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.309999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.409999999999988\n"):
total_tests := total_tests + 1:
fxm := ln(8.409999999999988):
fxr2 := 0.212942147398485525945725e1:
fxrerr := 0.11e-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(ln,log,8.409999999999988,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.409999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.509999999999987\n"):
total_tests := total_tests + 1:
fxm := ln(8.509999999999987):
fxr2 := 0.214124194258528123952378e1:
fxrerr := 0.109e-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(ln,log,8.509999999999987,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.509999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.609999999999987\n"):
total_tests := total_tests + 1:
fxm := ln(8.609999999999987):
fxr2 := 0.215292431843963792245862e1:
fxrerr := 0.109e-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(ln,log,8.609999999999987,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.609999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.709999999999987\n"):
total_tests := total_tests + 1:
fxm := ln(8.709999999999987):
fxr2 := 0.216447179086440993514974e1:
fxrerr := 0.108e-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(ln,log,8.709999999999987,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.709999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.809999999999986\n"):
total_tests := total_tests + 1:
fxm := ln(8.809999999999986):
fxr2 := 0.217588743994808655122446e1:
fxrerr := 0.107e-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(ln,log,8.809999999999986,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.809999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.909999999999986\n"):
total_tests := total_tests + 1:
fxm := ln(8.909999999999986):
fxr2 := 0.218717424148271637033814e1:
fxrerr := 0.107e-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(ln,log,8.909999999999986,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.909999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.009999999999986\n"):
total_tests := total_tests + 1:
fxm := ln(9.009999999999986):
fxr2 := 0.219833507162024499252841e1:
fxrerr := 0.106e-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(ln,log,9.009999999999986,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.009999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.109999999999985\n"):
total_tests := total_tests + 1:
fxm := ln(9.109999999999985):
fxr2 := 0.220937271127186530636447e1:
fxrerr := 0.105e-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(ln,log,9.109999999999985,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.109999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.209999999999985\n"):
total_tests := total_tests + 1:
fxm := ln(9.209999999999985):
fxr2 := 0.222028985026721384829259e1:
fxrerr := 0.105e-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(ln,log,9.209999999999985,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.209999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.309999999999985\n"):
total_tests := total_tests + 1:
fxm := ln(9.309999999999985):
fxr2 := 0.223108909128897409101233e1:
fxrerr := 0.104e-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(ln,log,9.309999999999985,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.309999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.409999999999984\n"):
total_tests := total_tests + 1:
fxm := ln(9.409999999999984):
fxr2 := 0.22417729535972865664561e1:
fxrerr := 0.104e-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(ln,log,9.409999999999984,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.409999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.509999999999984\n"):
total_tests := total_tests + 1:
fxm := ln(9.509999999999984):
fxr2 := 0.225234387655729725511885e1:
fxrerr := 0.103e-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(ln,log,9.509999999999984,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.509999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.609999999999983\n"):
total_tests := total_tests + 1:
fxm := ln(9.609999999999983):
fxr2 := 0.226280422298219935483107e1:
fxrerr := 0.103e-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(ln,log,9.609999999999983,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.609999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.709999999999983\n"):
total_tests := total_tests + 1:
fxm := ln(9.709999999999983):
fxr2 := 0.227315628230323179245059e1:
fxrerr := 0.102e-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(ln,log,9.709999999999983,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.709999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.809999999999983\n"):
total_tests := total_tests + 1:
fxm := ln(9.809999999999983):
fxr2 := 0.22834022735772699822056e1:
fxrerr := 0.102e-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(ln,log,9.809999999999983,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.809999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.909999999999982\n"):
total_tests := total_tests + 1:
fxm := ln(9.909999999999982):
fxr2 := 0.22935443483418948054647e1:
fxrerr := 0.101e-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(ln,log,9.909999999999982,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.909999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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.23025850929940456839957e1:
fxrerr := 0.5e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.2000000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(1.2000000000000002):
fxr2 := 0.18232155679395479289615e0:
fxrerr := 0.467e-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(ln,log,1.2000000000000002,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.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.3000000000000003\n"):
total_tests := total_tests + 1:
fxm := ln(2.3000000000000003):
fxr2 := 0.83290912293510413723165e0:
fxrerr := 0.268e-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(ln,log,2.3000000000000003,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.3000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.4000000000000004\n"):
total_tests := total_tests + 1:
fxm := ln(3.4000000000000004):
fxr2 := 0.122377543162211582330105e1:
fxrerr := 0.198e-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(ln,log,3.4000000000000004,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.4000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.5\n"):
total_tests := total_tests + 1:
fxm := ln(4.5):
fxr2 := 0.150407739677627407337303e1:
fxrerr := 0.162e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.6\n"):
total_tests := total_tests + 1:
fxm := ln(5.6):
fxr2 := 0.172276659774110354933873e1:
fxrerr := 0.14e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.699999999999999\n"):
total_tests := total_tests + 1:
fxm := ln(6.699999999999999):
fxr2 := 0.190210752639692022639793e1:
fxrerr := 0.125e-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(ln,log,6.699999999999999,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.699999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.799999999999999\n"):
total_tests := total_tests + 1:
fxm := ln(7.799999999999999):
fxr2 := 0.205412373369554592464238e1:
fxrerr := 0.115e-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(ln,log,7.799999999999999,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.799999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.899999999999999\n"):
total_tests := total_tests + 1:
fxm := ln(8.899999999999999):
fxr2 := 0.218605127673809404193972e1:
fxrerr := 0.107e-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(ln,log,8.899999999999999,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.899999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.999999999999998\n"):
total_tests := total_tests + 1:
fxm := ln(9.999999999999998):
fxr2 := 0.230258509299404548401734e1:
fxrerr := 0.101e-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(ln,log,9.999999999999998,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.999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 11.099999999999998\n"):
total_tests := total_tests + 1:
fxm := ln(11.099999999999998):
fxr2 := 0.24069451083182882715838e1:
fxrerr := 0.46e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.099999999999998,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.099999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 12.199999999999998\n"):
total_tests := total_tests + 1:
fxm := ln(12.199999999999998):
fxr2 := 0.25014359517392107102322e1:
fxrerr := 0.419e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.199999999999998,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.199999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 13.299999999999997\n"):
total_tests := total_tests + 1:
fxm := ln(13.299999999999997):
fxr2 := 0.25877640352277078555473e1:
fxrerr := 0.385e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.299999999999997,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.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 14.399999999999997\n"):
total_tests := total_tests + 1:
fxm := ln(14.399999999999997):
fxr2 := 0.26672282065819547281219e1:
fxrerr := 0.357e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.399999999999997,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.399999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 15.499999999999996\n"):
total_tests := total_tests + 1:
fxm := ln(15.499999999999996):
fxr2 := 0.27408400239252006784595e1:
fxrerr := 0.332e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.499999999999996,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.499999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 16.599999999999998\n"):
total_tests := total_tests + 1:
fxm := ln(16.599999999999998):
fxr2 := 0.28094026953624974284046e1:
fxrerr := 0.311e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.599999999999998,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.599999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 17.7\n"):
total_tests := total_tests + 1:
fxm := ln(17.7):
fxr2 := 0.28735646395797834580039e1:
fxrerr := 0.292e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 18.8\n"):
total_tests := total_tests + 1:
fxm := ln(18.8):
fxr2 := 0.29338568698359035216473e1:
fxrerr := 0.275e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 19.900000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(19.900000000000002):
fxr2 := 0.29907197317304468119042e1:
fxrerr := 0.261e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.900000000000002,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.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 21.000000000000004\n"):
total_tests := total_tests + 1:
fxm := ln(21.000000000000004):
fxr2 := 0.30445224377234231869856e1:
fxrerr := 0.248e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.000000000000004,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.000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 22.100000000000005\n"):
total_tests := total_tests + 1:
fxm := ln(22.100000000000005):
fxr2 := 0.30955776085237073585377e1:
fxrerr := 0.236e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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(ln,log,22.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 23.200000000000006\n"):
total_tests := total_tests + 1:
fxm := ln(23.200000000000006):
fxr2 := 0.31441522786722645300454e1:
fxrerr := 0.225e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.200000000000006,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.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 24.300000000000008\n"):
total_tests := total_tests + 1:
fxm := ln(24.300000000000008):
fxr2 := 0.31904763503465031021835e1:
fxrerr := 0.215e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.300000000000008,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.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 25.40000000000001\n"):
total_tests := total_tests + 1:
fxm := ln(25.40000000000001):
fxr2 := 0.32347491740244912921542e1:
fxrerr := 0.206e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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(ln,log,25.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 26.50000000000001\n"):
total_tests := total_tests + 1:
fxm := ln(26.50000000000001):
fxr2 := 0.3277144732992176902092e1:
fxrerr := 0.198e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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(ln,log,26.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 27.600000000000012\n"):
total_tests := total_tests + 1:
fxm := ln(27.600000000000012):
fxr2 := 0.33178157727231047518075e1:
fxrerr := 0.191e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.600000000000012,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.600000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 28.700000000000014\n"):
total_tests := total_tests + 1:
fxm := ln(28.700000000000014):
fxr2 := 0.33568971227655759127645e1:
fxrerr := 0.184e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.700000000000014,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.700000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 29.800000000000015\n"):
total_tests := total_tests + 1:
fxm := ln(29.800000000000015):
fxr2 := 0.33945083935113592697532e1:
fxrerr := 0.177e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.800000000000015,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.800000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 30.900000000000016\n"):
total_tests := total_tests + 1:
fxm := ln(30.900000000000016):
fxr2 := 0.34307561839037002959504e1:
fxrerr := 0.171e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.900000000000016,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.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 32.000000000000014\n"):
total_tests := total_tests + 1:
fxm := ln(32.000000000000014):
fxr2 := 0.34657359027997269845911e1:
fxrerr := 0.166e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.000000000000014,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.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 33.100000000000016\n"):
total_tests := total_tests + 1:
fxm := ln(33.100000000000016):
fxr2 := 0.34995332823830177001542e1:
fxrerr := 0.161e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.100000000000016,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.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 34.20000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(34.20000000000002):
fxr2 := 0.35322256440685600529979e1:
fxrerr := 0.156e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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(ln,log,34.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 35.30000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(35.30000000000002):
fxr2 := 0.3563882963939251649954e1:
fxrerr := 0.151e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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(ln,log,35.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 36.40000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(36.40000000000002):
fxr2 := 0.35945687746426955254299e1:
fxrerr := 0.147e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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(ln,log,36.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 37.50000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(37.50000000000002):
fxr2 := 0.362434093297636566451213e1:
fxrerr := 0.143e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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(ln,log,37.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 38.60000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(38.60000000000002):
fxr2 := 0.365325227647078569538815e1:
fxrerr := 0.139e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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(ln,log,38.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 39.700000000000024\n"):
total_tests := total_tests + 1:
fxm := ln(39.700000000000024):
fxr2 := 0.368135118769314533359864e1:
fxrerr := 0.135e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.700000000000024,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.700000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 40.800000000000026\n"):
total_tests := total_tests + 1:
fxm := ln(40.800000000000026):
fxr2 := 0.370868208141011665313257e1:
fxrerr := 0.132e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.800000000000026,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.800000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 41.90000000000003\n"):
total_tests := total_tests + 1:
fxm := ln(41.90000000000003):
fxr2 := 0.373528582692809276300449e1:
fxrerr := 0.129e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.90000000000003,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.90000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 43.00000000000003\n"):
total_tests := total_tests + 1:
fxm := ln(43.00000000000003):
fxr2 := 0.376120011569356312114643e1:
fxrerr := 0.126e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.00000000000003,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.00000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 44.10000000000003\n"):
total_tests := total_tests + 1:
fxm := ln(44.10000000000003):
fxr2 := 0.378645978245280098925444e1:
fxrerr := 0.123e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.10000000000003,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.10000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 45.20000000000003\n"):
total_tests := total_tests + 1:
fxm := ln(45.20000000000003):
fxr2 := 0.381109708683818616711456e1:
fxrerr := 0.12e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.20000000000003,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.20000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 46.30000000000003\n"):
total_tests := total_tests + 1:
fxm := ln(46.30000000000003):
fxr2 := 0.383514196109218903800911e1:
fxrerr := 0.117e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.30000000000003,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.30000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 47.400000000000034\n"):
total_tests := total_tests + 1:
fxm := ln(47.400000000000034):
fxr2 := 0.385862222870103152826608e1:
fxrerr := 0.115e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.400000000000034,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.400000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 48.500000000000036\n"):
total_tests := total_tests + 1:
fxm := ln(48.500000000000036):
fxr2 := 0.388156379794343825496659e1:
fxrerr := 0.113e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.500000000000036,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.500000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 49.60000000000004\n"):
total_tests := total_tests + 1:
fxm := ln(49.60000000000004):
fxr2 := 0.390399083373088260603081e1:
fxrerr := 0.11e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.60000000000004,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.60000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 50.70000000000004\n"):
total_tests := total_tests + 1:
fxm := ln(50.70000000000004):
fxr2 := 0.392592591059713826843797e1:
fxrerr := 0.108e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.70000000000004,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.70000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 51.80000000000004\n"):
total_tests := total_tests + 1:
fxm := ln(51.80000000000004):
fxr2 := 0.394739014926543814707251e1:
fxrerr := 0.106e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.80000000000004,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.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 52.90000000000004\n"):
total_tests := total_tests + 1:
fxm := ln(52.90000000000004):
fxr2 := 0.396840333886425445373826e1:
fxrerr := 0.104e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.90000000000004,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.90000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 54.00000000000004\n"):
total_tests := total_tests + 1:
fxm := ln(54.00000000000004):
fxr2 := 0.398898404656427512434276e1:
fxrerr := 0.102e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.00000000000004,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.00000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 55.100000000000044\n"):
total_tests := total_tests + 1:
fxm := ln(55.100000000000044):
fxr2 := 0.400914971615886960172146e1:
fxrerr := 0.1e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.100000000000044,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.100000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 56.200000000000045\n"):
total_tests := total_tests + 1:
fxm := ln(56.200000000000045):
fxr2 := 0.402891675689964619121663e1:
fxrerr := 0.990e-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(ln,log,56.200000000000045,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.200000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 57.30000000000005\n"):
total_tests := total_tests + 1:
fxm := ln(57.30000000000005):
fxr2 := 0.404830062372069475282657e1:
fxrerr := 0.973e-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(ln,log,57.30000000000005,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.30000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 58.40000000000005\n"):
total_tests := total_tests + 1:
fxm := ln(58.40000000000005):
fxr2 := 0.406731588983418222948919e1:
fxrerr := 0.957e-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(ln,log,58.40000000000005,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.40000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 59.50000000000005\n"):
total_tests := total_tests + 1:
fxm := ln(59.50000000000005):
fxr2 := 0.408597631255158491627279e1:
fxrerr := 0.941e-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(ln,log,59.50000000000005,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.50000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 60.60000000000005\n"):
total_tests := total_tests + 1:
fxm := ln(60.60000000000005):
fxr2 := 0.410429489307526959276018e1:
fxrerr := 0.926e-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(ln,log,60.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(ln,log,60.60000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 61.70000000000005\n"):
total_tests := total_tests + 1:
fxm := ln(61.70000000000005):
fxr2 := 0.412228393091134294035135e1:
fxrerr := 0.911e-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(ln,log,61.70000000000005,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.70000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 62.800000000000054\n"):
total_tests := total_tests + 1:
fxm := ln(62.800000000000054):
fxr2 := 0.413995507347415385211248e1:
fxrerr := 0.897e-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(ln,log,62.800000000000054,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.800000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 63.900000000000055\n"):
total_tests := total_tests + 1:
fxm := ln(63.900000000000055):
fxr2 := 0.415731936138348998082078e1:
fxrerr := 0.883e-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(ln,log,63.900000000000055,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.900000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 65.00000000000006\n"):
total_tests := total_tests + 1:
fxm := ln(65.00000000000006):
fxr2 := 0.417438726989563803373015e1:
fxrerr := 0.870e-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(ln,log,65.00000000000006,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.00000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 66.10000000000005\n"):
total_tests := total_tests + 1:
fxm := ln(66.10000000000005):
fxr2 := 0.419116874685764135825127e1:
fxrerr := 0.857e-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(ln,log,66.10000000000005,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.10000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 67.20000000000005\n"):
total_tests := total_tests + 1:
fxm := ln(67.20000000000005):
fxr2 := 0.42076732475291046036153e1:
fxrerr := 0.845e-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(ln,log,67.20000000000005,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.20000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 68.30000000000004\n"):
total_tests := total_tests + 1:
fxm := ln(68.30000000000004):
fxr2 := 0.422390976657674496501534e1:
fxrerr := 0.833e-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(ln,log,68.30000000000004,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.30000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 69.40000000000003\n"):
total_tests := total_tests + 1:
fxm := ln(69.40000000000003):
fxr2 := 0.423988686751275925002847e1:
fxrerr := 0.821e-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(ln,log,69.40000000000003,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.40000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 70.50000000000003\n"):
total_tests := total_tests + 1:
fxm := ln(70.50000000000003):
fxr2 := 0.425561270981822339432977e1:
fxrerr := 0.810e-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(ln,log,70.50000000000003,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.50000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 71.60000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(71.60000000000002):
fxr2 := 0.427109507396660021032281e1:
fxrerr := 0.799e-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(ln,log,71.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(ln,log,71.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 72.70000000000002\n"):
total_tests := total_tests + 1:
fxm := ln(72.70000000000002):
fxr2 := 0.428634138453947395699653e1:
fxrerr := 0.788e-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(ln,log,72.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(ln,log,72.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 73.80000000000001\n"):
total_tests := total_tests + 1:
fxm := ln(73.80000000000001):
fxr2 := 0.430135873160642694755672e1:
fxrerr := 0.778e-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(ln,log,73.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(ln,log,73.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 74.9\n"):
total_tests := total_tests + 1:
fxm := ln(74.9):
fxr2 := 0.431615389052317379439069e1:
fxrerr := 0.768e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 76.0\n"):
total_tests := total_tests + 1:
fxm := ln(76.0):
fxr2 := 0.433073334028633107884237e1:
fxrerr := 0.758e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 77.1\n"):
total_tests := total_tests + 1:
fxm := ln(77.1):
fxr2 := 0.434510328056928380572793e1:
fxrerr := 0.749e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 78.19999999999999\n"):
total_tests := total_tests + 1:
fxm := ln(78.19999999999999):
fxr2 := 0.435926964755126526857714e1:
fxrerr := 0.740e-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(ln,log,78.19999999999999,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.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 79.29999999999998\n"):
total_tests := total_tests + 1:
fxm := ln(79.29999999999998):
fxr2 := 0.437323812864080204857894e1:
fxrerr := 0.731e-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(ln,log,79.29999999999998,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.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 80.39999999999998\n"):
total_tests := total_tests + 1:
fxm := ln(80.39999999999998):
fxr2 := 0.438701417618492043712445e1:
fxrerr := 0.722e-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(ln,log,80.39999999999998,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.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 81.49999999999997\n"):
total_tests := total_tests + 1:
fxm := ln(81.49999999999997):
fxr2 := 0.440060302024681665654839e1:
fxrerr := 0.714e-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(ln,log,81.49999999999997,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.49999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 82.59999999999997\n"):
total_tests := total_tests + 1:
fxm := ln(82.59999999999997):
fxr2 := 0.441400968052693201792335e1:
fxrerr := 0.706e-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(ln,log,82.59999999999997,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.59999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 83.69999999999996\n"):
total_tests := total_tests + 1:
fxm := ln(83.69999999999996):
fxr2 := 0.442723897749542915819852e1:
fxrerr := 0.698e-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(ln,log,83.69999999999996,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.69999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 84.79999999999995\n"):
total_tests := total_tests + 1:
fxm := ln(84.79999999999995):
fxr2 := 0.444029554279785679817159e1:
fxrerr := 0.690e-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(ln,log,84.79999999999995,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.79999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 85.89999999999995\n"):
total_tests := total_tests + 1:
fxm := ln(85.89999999999995):
fxr2 := 0.445318382899020910522566e1:
fxrerr := 0.683e-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(ln,log,85.89999999999995,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.89999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 86.99999999999994\n"):
total_tests := total_tests + 1:
fxm := ln(86.99999999999994):
fxr2 := 0.446590811865458302892217e1:
fxrerr := 0.675e-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(ln,log,86.99999999999994,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.99999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 88.09999999999994\n"):
total_tests := total_tests + 1:
fxm := ln(88.09999999999994):
fxr2 := 0.447847253294213314330082e1:
fxrerr := 0.668e-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(ln,log,88.09999999999994,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.09999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 89.19999999999993\n"):
total_tests := total_tests + 1:
fxm := ln(89.19999999999993):
fxr2 := 0.449088103958596290869804e1:
fxrerr := 0.661e-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(ln,log,89.19999999999993,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.19999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 90.29999999999993\n"):
total_tests := total_tests + 1:
fxm := ln(90.29999999999993):
fxr2 := 0.450313746042293896076046e1:
fxrerr := 0.654e-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(ln,log,90.29999999999993,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.29999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 91.39999999999992\n"):
total_tests := total_tests + 1:
fxm := ln(91.39999999999992):
fxr2 := 0.451524547846010344931757e1:
fxrerr := 0.648e-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(ln,log,91.39999999999992,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.39999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 92.49999999999991\n"):
total_tests := total_tests + 1:
fxm := ln(92.49999999999991):
fxr2 := 0.452720864451837853657737e1:
fxrerr := 0.641e-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(ln,log,92.49999999999991,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.49999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 93.59999999999991\n"):
total_tests := total_tests + 1:
fxm := ln(93.59999999999991):
fxr2 := 0.453903038348354540153794e1:
fxrerr := 0.635e-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(ln,log,93.59999999999991,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.59999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 94.6999999999999\n"):
total_tests := total_tests + 1:
fxm := ln(94.6999999999999):
fxr2 := 0.455071400019203150398365e1:
fxrerr := 0.628e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 95.7999999999999\n"):
total_tests := total_tests + 1:
fxm := ln(95.7999999999999):
fxr2 := 0.45622626849768138166733e1:
fxrerr := 0.622e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 96.89999999999989\n"):
total_tests := total_tests + 1:
fxm := ln(96.89999999999989):
fxr2 := 0.457367951889671941244362e1:
fxrerr := 0.616e-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(ln,log,96.89999999999989,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.89999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 97.99999999999989\n"):
total_tests := total_tests + 1:
fxm := ln(97.99999999999989):
fxr2 := 0.458496747867057079717768e1:
fxrerr := 0.611e-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(ln,log,97.99999999999989,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.99999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 99.09999999999988\n"):
total_tests := total_tests + 1:
fxm := ln(99.09999999999988):
fxr2 := 0.459612944133594109493109e1:
fxrerr := 0.605e-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(ln,log,99.09999999999988,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.09999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 100.19999999999987\n"):
total_tests := total_tests + 1:
fxm := ln(100.19999999999987):
fxr2 := 0.460716818865076312666905e1:
fxrerr := 0.5e-17:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.19999999999987,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.19999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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.19999999999999999999905e1:
fxrerr := 0.282e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.11\n"):
total_tests := total_tests + 1:
fxm := log10(0.11):
fxr2 := -0.95860731484177495924184e0:
fxrerr := 0.217e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.21000000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(0.21000000000000002):
fxr2 := -0.67778070526608069062705e0:
fxrerr := 0.118e-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(log10,log10,0.21000000000000002,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.21000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.31000000000000005\n"):
total_tests := total_tests + 1:
fxm := log10(0.31000000000000005):
fxr2 := -0.50863830616572725028316e0:
fxrerr := 0.809e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.31000000000000005,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.31000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.41000000000000003\n"):
total_tests := total_tests + 1:
fxm := log10(0.41000000000000003):
fxr2 := -0.38721614328026447371284e0:
fxrerr := 0.609e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.41000000000000003,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.41000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.51\n"):
total_tests := total_tests + 1:
fxm := log10(0.51):
fxr2 := -0.29242982390206363416471e0:
fxrerr := 0.489e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.61\n"):
total_tests := total_tests + 1:
fxm := log10(0.61):
fxr2 := -0.21467016498923296611421e0:
fxrerr := 0.402e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.71\n"):
total_tests := total_tests + 1:
fxm := log10(0.71):
fxr2 := -0.14874165128092471390711e0:
fxrerr := 0.338e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.8099999999999999\n"):
total_tests := total_tests + 1:
fxm := log10(0.8099999999999999):
fxr2 := -0.91514981121350304436459e-1:
fxrerr := 0.287e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8099999999999999,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.8099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.9099999999999999\n"):
total_tests := total_tests + 1:
fxm := log10(0.9099999999999999):
fxr2 := -0.40958607678906447805953e-1:
fxrerr := 0.247e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9099999999999999,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.9099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.01\n"):
total_tests := total_tests + 1:
fxm := log10(1.01):
fxr2 := 0.432137378264257428480233e-2:
fxrerr := 0.237e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.11\n"):
total_tests := total_tests + 1:
fxm := log10(1.11):
fxr2 := 0.453229787866574341119999e-1:
fxrerr := 0.218e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.2100000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(1.2100000000000002):
fxr2 := 0.827853703164501532922305e-1:
fxrerr := 0.203e-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(log10,log10,1.2100000000000002,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.2100000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.3100000000000003\n"):
total_tests := total_tests + 1:
fxm := log10(1.3100000000000003):
fxr2 := 0.117271295655764360273863e0:
fxrerr := 0.19e-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(log10,log10,1.3100000000000003,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.3100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.4100000000000004\n"):
total_tests := total_tests + 1:
fxm := log10(1.4100000000000004):
fxr2 := 0.149219112655380024919908e0:
fxrerr := 0.179e-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(log10,log10,1.4100000000000004,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.4100000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.5100000000000005\n"):
total_tests := total_tests + 1:
fxm := log10(1.5100000000000005):
fxr2 := 0.178976947293169580681265e0:
fxrerr := 0.169e-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(log10,log10,1.5100000000000005,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.5100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.6100000000000005\n"):
total_tests := total_tests + 1:
fxm := log10(1.6100000000000005):
fxr2 := 0.206825876031849844459638e0:
fxrerr := 0.161e-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(log10,log10,1.6100000000000005,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.6100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.7100000000000006\n"):
total_tests := total_tests + 1:
fxm := log10(1.7100000000000006):
fxr2 := 0.232996110392153988515921e0:
fxrerr := 0.154e-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(log10,log10,1.7100000000000006,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.7100000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.8100000000000007\n"):
total_tests := total_tests + 1:
fxm := log10(1.8100000000000007):
fxr2 := 0.257678574869184678253834e0:
fxrerr := 0.147e-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(log10,log10,1.8100000000000007,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.8100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.9100000000000008\n"):
total_tests := total_tests + 1:
fxm := log10(1.9100000000000008):
fxr2 := 0.281033367247727719543049e0:
fxrerr := 0.141e-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(log10,log10,1.9100000000000008,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.9100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.0100000000000007\n"):
total_tests := total_tests + 1:
fxm := log10(2.0100000000000007):
fxr2 := 0.303196057420489022695164e0:
fxrerr := 0.136e-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(log10,log10,2.0100000000000007,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.0100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.1100000000000008\n"):
total_tests := total_tests + 1:
fxm := log10(2.1100000000000008):
fxr2 := 0.32428245529769282974691e0:
fxrerr := 0.131e-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(log10,log10,2.1100000000000008,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.1100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.210000000000001\n"):
total_tests := total_tests + 1:
fxm := log10(2.210000000000001):
fxr2 := 0.344392273685110894263943e0:
fxrerr := 0.127e-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(log10,log10,2.210000000000001,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.210000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.310000000000001\n"):
total_tests := total_tests + 1:
fxm := log10(2.310000000000001):
fxr2 := 0.363611979892144496767357e0:
fxrerr := 0.123e-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(log10,log10,2.310000000000001,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.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.410000000000001\n"):
total_tests := total_tests + 1:
fxm := log10(2.410000000000001):
fxr2 := 0.38201704257486856428567e0:
fxrerr := 0.12e-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(log10,log10,2.410000000000001,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.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.510000000000001\n"):
total_tests := total_tests + 1:
fxm := log10(2.510000000000001):
fxr2 := 0.399673721481038312369769e0:
fxrerr := 0.117e-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(log10,log10,2.510000000000001,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.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.610000000000001\n"):
total_tests := total_tests + 1:
fxm := log10(2.610000000000001):
fxr2 := 0.416640507338281128322415e0:
fxrerr := 0.114e-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(log10,log10,2.610000000000001,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.610000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.7100000000000013\n"):
total_tests := total_tests + 1:
fxm := log10(2.7100000000000013):
fxr2 := 0.432969290874405937857472e0:
fxrerr := 0.111e-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(log10,log10,2.7100000000000013,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.7100000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.8100000000000014\n"):
total_tests := total_tests + 1:
fxm := log10(2.8100000000000014):
fxr2 := 0.448706319905080109241103e0:
fxrerr := 0.108e-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(log10,log10,2.8100000000000014,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.8100000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.9100000000000015\n"):
total_tests := total_tests + 1:
fxm := log10(2.9100000000000015):
fxr2 := 0.46389298898590751294528e0:
fxrerr := 0.106e-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(log10,log10,2.9100000000000015,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.9100000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.0100000000000016\n"):
total_tests := total_tests + 1:
fxm := log10(3.0100000000000016):
fxr2 := 0.478566495593843587974112e0:
fxrerr := 0.104e-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(log10,log10,3.0100000000000016,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.0100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.1100000000000017\n"):
total_tests := total_tests + 1:
fxm := log10(3.1100000000000017):
fxr2 := 0.492760389026837742951178e0:
fxrerr := 0.102e-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(log10,log10,3.1100000000000017,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.1100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.2100000000000017\n"):
total_tests := total_tests + 1:
fxm := log10(3.2100000000000017):
fxr2 := 0.506505032404872308132019e0:
fxrerr := 0.1e-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(log10,log10,3.2100000000000017,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.2100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.310000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(3.310000000000002):
fxr2 := 0.519827993775719001023827e0:
fxrerr := 0.99e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.310000000000002,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.310000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.410000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(3.410000000000002):
fxr2 := 0.532754378992497975137378e0:
fxrerr := 0.971e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.410000000000002,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.410000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.510000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(3.510000000000002):
fxr2 := 0.545307116465824328555085e0:
fxrerr := 0.956e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.510000000000002,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.510000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.610000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(3.610000000000002):
fxr2 := 0.557507201905658163680945e0:
fxrerr := 0.941e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.610000000000002,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.610000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.710000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(3.710000000000002):
fxr2 := 0.569373909615046110466348e0:
fxrerr := 0.927e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.710000000000002,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.710000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.8100000000000023\n"):
total_tests := total_tests + 1:
fxm := log10(3.8100000000000023):
fxr2 := 0.580924975675619563714623e0:
fxrerr := 0.916e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8100000000000023,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.8100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.9100000000000024\n"):
total_tests := total_tests + 1:
fxm := log10(3.9100000000000024):
fxr2 := 0.592176757395867073982675e0:
fxrerr := 0.901e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9100000000000024,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.9100000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.0100000000000025\n"):
total_tests := total_tests + 1:
fxm := log10(4.0100000000000025):
fxr2 := 0.603144372620182577301896e0:
fxrerr := 0.89e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.0100000000000025,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.0100000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.110000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(4.110000000000002):
fxr2 := 0.61384182187606941719358e0:
fxrerr := 0.88e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.110000000000002,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.110000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.210000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(4.210000000000002):
fxr2 := 0.624282095835668513759819e0:
fxrerr := 0.869e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.210000000000002,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.210000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.310000000000001\n"):
total_tests := total_tests + 1:
fxm := log10(4.310000000000001):
fxr2 := 0.634477270160731701514731e0:
fxrerr := 0.863e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.310000000000001,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.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.410000000000001\n"):
total_tests := total_tests + 1:
fxm := log10(4.410000000000001):
fxr2 := 0.644438589467838634494028e0:
fxrerr := 0.852e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.410000000000001,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.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.510000000000001\n"):
total_tests := total_tests + 1:
fxm := log10(4.510000000000001):
fxr2 := 0.654176541877960631555595e0:
fxrerr := 0.841e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.510000000000001,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.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.61\n"):
total_tests := total_tests + 1:
fxm := log10(4.61):
fxr2 := 0.663700925389648145074765e0:
fxrerr := 0.834e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.71\n"):
total_tests := total_tests + 1:
fxm := log10(4.71):
fxr2 := 0.673020907128896174056589e0:
fxrerr := 0.827e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.81\n"):
total_tests := total_tests + 1:
fxm := log10(4.81):
fxr2 := 0.682145076373831766015006e0:
fxrerr := 0.816e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.909999999999999\n"):
total_tests := total_tests + 1:
fxm := log10(4.909999999999999):
fxr2 := 0.691081492122968384302751e0:
fxrerr := 0.81e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.909999999999999,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.909999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.009999999999999\n"):
total_tests := total_tests + 1:
fxm := log10(5.009999999999999):
fxr2 := 0.699837725867245630593645e0:
fxrerr := 0.803e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.009999999999999,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.009999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.1099999999999985\n"):
total_tests := total_tests + 1:
fxm := log10(5.1099999999999985):
fxr2 := 0.708420900134712604302969e0:
fxrerr := 0.796e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1099999999999985,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.1099999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.209999999999998\n"):
total_tests := total_tests + 1:
fxm := log10(5.209999999999998):
fxr2 := 0.716837723299524307520677e0:
fxrerr := 0.794e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.209999999999998,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.209999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.309999999999998\n"):
total_tests := total_tests + 1:
fxm := log10(5.309999999999998):
fxr2 := 0.725094521081468901274701e0:
fxrerr := 0.787e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.309999999999998,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.309999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.4099999999999975\n"):
total_tests := total_tests + 1:
fxm := log10(5.4099999999999975):
fxr2 := 0.733197265106569236188796e0:
fxrerr := 0.78e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4099999999999975,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.4099999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.509999999999997\n"):
total_tests := total_tests + 1:
fxm := log10(5.509999999999997):
fxr2 := 0.741151598851784812411273e0:
fxrerr := 0.773e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.509999999999997,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.509999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.609999999999997\n"):
total_tests := total_tests + 1:
fxm := log10(5.609999999999997):
fxr2 := 0.748962861256161174342414e0:
fxrerr := 0.77e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.609999999999997,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.609999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.709999999999996\n"):
total_tests := total_tests + 1:
fxm := log10(5.709999999999996):
fxr2 := 0.756636108245847745806038e0:
fxrerr := 0.763e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.709999999999996,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.709999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.809999999999996\n"):
total_tests := total_tests + 1:
fxm := log10(5.809999999999996):
fxr2 := 0.764176132390330435547105e0:
fxrerr := 0.76e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.809999999999996,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.809999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.909999999999996\n"):
total_tests := total_tests + 1:
fxm := log10(5.909999999999996):
fxr2 := 0.771587480881255070728095e0:
fxrerr := 0.753e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.909999999999996,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.909999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.009999999999995\n"):
total_tests := total_tests + 1:
fxm := log10(6.009999999999995):
fxr2 := 0.778874472002739159576012e0:
fxrerr := 0.751e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.009999999999995,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.009999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.109999999999995\n"):
total_tests := total_tests + 1:
fxm := log10(6.109999999999995):
fxr2 := 0.786041210242553878224303e0:
fxrerr := 0.743e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.109999999999995,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.109999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.209999999999995\n"):
total_tests := total_tests + 1:
fxm := log10(6.209999999999995):
fxr2 := 0.793091600176579841079413e0:
fxrerr := 0.741e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.209999999999995,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.209999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.309999999999994\n"):
total_tests := total_tests + 1:
fxm := log10(6.309999999999994):
fxr2 := 0.80002935924413390005867e0:
fxrerr := 0.738e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.309999999999994,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.309999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.409999999999994\n"):
total_tests := total_tests + 1:
fxm := log10(6.409999999999994):
fxr2 := 0.806858029518817015732535e0:
fxrerr := 0.735e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.409999999999994,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.409999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.509999999999994\n"):
total_tests := total_tests + 1:
fxm := log10(6.509999999999994):
fxr2 := 0.813580988568191547402579e0:
fxrerr := 0.728e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.509999999999994,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.509999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.609999999999993\n"):
total_tests := total_tests + 1:
fxm := log10(6.609999999999993):
fxr2 := 0.820201459485639776728102e0:
fxrerr := 0.725e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.609999999999993,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.609999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.709999999999993\n"):
total_tests := total_tests + 1:
fxm := log10(6.709999999999993):
fxr2 := 0.826722520168991621571715e0:
fxrerr := 0.722e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.709999999999993,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.709999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.8099999999999925\n"):
total_tests := total_tests + 1:
fxm := log10(6.8099999999999925):
fxr2 := 0.833147111912784679100235e0:
fxrerr := 0.719e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8099999999999925,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.8099999999999925,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.909999999999992\n"):
total_tests := total_tests + 1:
fxm := log10(6.909999999999992):
fxr2 := 0.839478047374197904782281e0:
fxrerr := 0.716e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.909999999999992,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.909999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.009999999999992\n"):
total_tests := total_tests + 1:
fxm := log10(7.009999999999992):
fxr2 := 0.845718017966658161435571e0:
fxrerr := 0.713e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.009999999999992,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.009999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.109999999999991\n"):
total_tests := total_tests + 1:
fxm := log10(7.109999999999991):
fxr2 := 0.851869600729765752845073e0:
fxrerr := 0.71e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.109999999999991,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.109999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.209999999999991\n"):
total_tests := total_tests + 1:
fxm := log10(7.209999999999991):
fxr2 := 0.857935264719428493768155e0:
fxrerr := 0.707e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.209999999999991,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.209999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.309999999999991\n"):
total_tests := total_tests + 1:
fxm := log10(7.309999999999991):
fxr2 := 0.863917376957859920246213e0:
fxrerr := 0.704e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.309999999999991,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.309999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.40999999999999\n"):
total_tests := total_tests + 1:
fxm := log10(7.40999999999999):
fxr2 := 0.86981820797932758194549e0:
fxrerr := 0.701e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.50999999999999\n"):
total_tests := total_tests + 1:
fxm := log10(7.50999999999999):
fxr2 := 0.875639937004167811457772e0:
fxrerr := 0.698e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.60999999999999\n"):
total_tests := total_tests + 1:
fxm := log10(7.60999999999999):
fxr2 := 0.881384656770572255679565e0:
fxrerr := 0.695e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.709999999999989\n"):
total_tests := total_tests + 1:
fxm := log10(7.709999999999989):
fxr2 := 0.887054378050956354841969e0:
fxrerr := 0.692e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.709999999999989,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.709999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.809999999999989\n"):
total_tests := total_tests + 1:
fxm := log10(7.809999999999989):
fxr2 := 0.892651033877299715160695e0:
fxrerr := 0.693e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.809999999999989,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.809999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.909999999999989\n"):
total_tests := total_tests + 1:
fxm := log10(7.909999999999989):
fxr2 := 0.89817648349767594955813e0:
fxrerr := 0.69e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.909999999999989,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.909999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.00999999999999\n"):
total_tests := total_tests + 1:
fxm := log10(8.00999999999999):
fxr2 := 0.903632516084237117123276e0:
fxrerr := 0.686e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.109999999999989\n"):
total_tests := total_tests + 1:
fxm := log10(8.109999999999989):
fxr2 := 0.909020854211155441634977e0:
fxrerr := 0.683e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.109999999999989,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.109999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.209999999999988\n"):
total_tests := total_tests + 1:
fxm := log10(8.209999999999988):
fxr2 := 0.914343157119440137025317e0:
fxrerr := 0.684e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.209999999999988,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.209999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.309999999999988\n"):
total_tests := total_tests + 1:
fxm := log10(8.309999999999988):
fxr2 := 0.919601023784110363932773e0:
fxrerr := 0.681e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.309999999999988,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.309999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.409999999999988\n"):
total_tests := total_tests + 1:
fxm := log10(8.409999999999988):
fxr2 := 0.924795995797911554982745e0:
fxrerr := 0.678e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.409999999999988,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.409999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.509999999999987\n"):
total_tests := total_tests + 1:
fxm := log10(8.509999999999987):
fxr2 := 0.929929560084587212241684e0:
fxrerr := 0.675e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.509999999999987,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.509999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.609999999999987\n"):
total_tests := total_tests + 1:
fxm := log10(8.609999999999987):
fxr2 := 0.935003151453654106787509e0:
fxrerr := 0.676e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.609999999999987,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.609999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.709999999999987\n"):
total_tests := total_tests + 1:
fxm := log10(8.709999999999987):
fxr2 := 0.940018155007662555154952e0:
fxrerr := 0.673e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.709999999999987,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.709999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.809999999999986\n"):
total_tests := total_tests + 1:
fxm := log10(8.809999999999986):
fxr2 := 0.944975908412047222603615e0:
fxrerr := 0.669e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.809999999999986,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.809999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.909999999999986\n"):
total_tests := total_tests + 1:
fxm := log10(8.909999999999986):
fxr2 := 0.949877704036874107537206e0:
fxrerr := 0.67e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.909999999999986,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.909999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.009999999999986\n"):
total_tests := total_tests + 1:
fxm := log10(9.009999999999986):
fxr2 := 0.954724790979062299353802e0:
fxrerr := 0.667e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.009999999999986,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.009999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.109999999999985\n"):
total_tests := total_tests + 1:
fxm := log10(9.109999999999985):
fxr2 := 0.959518376972997532548573e0:
fxrerr := 0.664e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.109999999999985,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.109999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.209999999999985\n"):
total_tests := total_tests + 1:
fxm := log10(9.209999999999985):
fxr2 := 0.964259630196848214729624e0:
fxrerr := 0.665e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.209999999999985,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.209999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.309999999999985\n"):
total_tests := total_tests + 1:
fxm := log10(9.309999999999985):
fxr2 := 0.968949680981341923238178e0:
fxrerr := 0.662e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.309999999999985,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.309999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.409999999999984\n"):
total_tests := total_tests + 1:
fxm := log10(9.409999999999984):
fxr2 := 0.973589623427256169903213e0:
fxrerr := 0.663e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.409999999999984,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.409999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.509999999999984\n"):
total_tests := total_tests + 1:
fxm := log10(9.509999999999984):
fxr2 := 0.978180516937413201174045e0:
fxrerr := 0.659e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.509999999999984,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.509999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.609999999999983\n"):
total_tests := total_tests + 1:
fxm := log10(9.609999999999983):
fxr2 := 0.982723387668544591070532e0:
fxrerr := 0.66e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.609999999999983,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.609999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.709999999999983\n"):
total_tests := total_tests + 1:
fxm := log10(9.709999999999983):
fxr2 := 0.987219229908004102452343e0:
fxrerr := 0.657e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.709999999999983,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.709999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.809999999999983\n"):
total_tests := total_tests + 1:
fxm := log10(9.809999999999983):
fxr2 := 0.991669007379947757190548e0:
fxrerr := 0.658e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.809999999999983,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.809999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.909999999999982\n"):
total_tests := total_tests + 1:
fxm := log10(9.909999999999982):
fxr2 := 0.996073654485274539534899e0:
fxrerr := 0.654e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.909999999999982,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.909999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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.99999999999999999999059e0:
fxrerr := 0.238e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.2000000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(1.2000000000000002):
fxr2 := 0.791812460476249001126567e-1:
fxrerr := 0.204e-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(log10,log10,1.2000000000000002,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.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 2.3000000000000003\n"):
total_tests := total_tests + 1:
fxm := log10(2.3000000000000003):
fxr2 := 0.361727836017592935518504e0:
fxrerr := 0.124e-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(log10,log10,2.3000000000000003,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.3000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 3.4000000000000004\n"):
total_tests := total_tests + 1:
fxm := log10(3.4000000000000004):
fxr2 := 0.53147891704225517484979e0:
fxrerr := 0.975e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4000000000000004,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.4000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 4.5\n"):
total_tests := total_tests + 1:
fxm := log10(4.5):
fxr2 := 0.653212513775343679376399e0:
fxrerr := 0.845e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 5.6\n"):
total_tests := total_tests + 1:
fxm := log10(5.6):
fxr2 := 0.748188027006200416353499e0:
fxrerr := 0.77e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 6.699999999999999\n"):
total_tests := total_tests + 1:
fxm := log10(6.699999999999999):
fxr2 := 0.826074802700826369329107e0:
fxrerr := 0.722e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.699999999999999,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.699999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 7.799999999999999\n"):
total_tests := total_tests + 1:
fxm := log10(7.799999999999999):
fxr2 := 0.892094602690480346036538e0:
fxrerr := 0.693e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.799999999999999,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.799999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 8.899999999999999\n"):
total_tests := total_tests + 1:
fxm := log10(8.899999999999999):
fxr2 := 0.949390006644912735926434e0:
fxrerr := 0.67e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.899999999999999,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.899999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 9.999999999999998\n"):
total_tests := total_tests + 1:
fxm := log10(9.999999999999998):
fxr2 := 0.999999999999999913141099e0:
fxrerr := 0.655e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.999999999999998,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.999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 11.099999999999998\n"):
total_tests := total_tests + 1:
fxm := log10(11.099999999999998):
fxr2 := 0.10453229787866573558606e1:
fxrerr := 0.202e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.099999999999998,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.099999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 12.199999999999998\n"):
total_tests := total_tests + 1:
fxm := log10(12.199999999999998):
fxr2 := 0.108635983067474815791092e1:
fxrerr := 0.184e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.199999999999998,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.199999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 13.299999999999997\n"):
total_tests := total_tests + 1:
fxm := log10(13.299999999999997):
fxr2 := 0.112385164096708569429413e1:
fxrerr := 0.169e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.299999999999997,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.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 14.399999999999997\n"):
total_tests := total_tests + 1:
fxm := log10(14.399999999999997):
fxr2 := 0.115836249209524956497331e1:
fxrerr := 0.157e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.399999999999997,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.399999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 15.499999999999996\n"):
total_tests := total_tests + 1:
fxm := log10(15.499999999999996):
fxr2 := 0.119033169817029137238254e1:
fxrerr := 0.146e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.499999999999996,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.499999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 16.599999999999998\n"):
total_tests := total_tests + 1:
fxm := log10(16.599999999999998):
fxr2 := 0.122010808804005504672733e1:
fxrerr := 0.137e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.599999999999998,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.599999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 17.7\n"):
total_tests := total_tests + 1:
fxm := log10(17.7):
fxr2 := 0.124797326636180662756063e1:
fxrerr := 0.129e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 18.8\n"):
total_tests := total_tests + 1:
fxm := log10(18.8):
fxr2 := 0.127415784926367985484634e1:
fxrerr := 0.122e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 19.900000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(19.900000000000002):
fxr2 := 0.129885307640970669375222e1:
fxrerr := 0.116e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.900000000000002,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.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 21.000000000000004\n"):
total_tests := total_tests + 1:
fxm := log10(21.000000000000004):
fxr2 := 0.132221929473391935073419e1:
fxrerr := 0.11e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.000000000000004,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.000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 22.100000000000005\n"):
total_tests := total_tests + 1:
fxm := log10(22.100000000000005):
fxr2 := 0.134439227368511079600733e1:
fxrerr := 0.105e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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(log10,log10,22.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 23.200000000000006\n"):
total_tests := total_tests + 1:
fxm := log10(23.200000000000006):
fxr2 := 0.136548798489089978529534e1:
fxrerr := 0.1e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.200000000000006,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.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 24.300000000000008\n"):
total_tests := total_tests + 1:
fxm := log10(24.300000000000008):
fxr2 := 0.138560627359831232945624e1:
fxrerr := 0.963e-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(log10,log10,24.300000000000008,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.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 25.40000000000001\n"):
total_tests := total_tests + 1:
fxm := log10(25.40000000000001):
fxr2 := 0.140483371661993823044612e1:
fxrerr := 0.925e-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(log10,log10,25.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(log10,log10,25.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 26.50000000000001\n"):
total_tests := total_tests + 1:
fxm := log10(26.50000000000001):
fxr2 := 0.142324587393680801430708e1:
fxrerr := 0.89e-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(log10,log10,26.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(log10,log10,26.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 27.600000000000012\n"):
total_tests := total_tests + 1:
fxm := log10(27.600000000000012):
fxr2 := 0.144090908206521789541716e1:
fxrerr := 0.86e-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(log10,log10,27.600000000000012,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.600000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 28.700000000000014\n"):
total_tests := total_tests + 1:
fxm := log10(28.700000000000014):
fxr2 := 0.145788189673399253707538e1:
fxrerr := 0.83e-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(log10,log10,28.700000000000014,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.700000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 29.800000000000015\n"):
total_tests := total_tests + 1:
fxm := log10(29.800000000000015):
fxr2 := 0.147421626407625545207864e1:
fxrerr := 0.8e-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(log10,log10,29.800000000000015,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.800000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 30.900000000000016\n"):
total_tests := total_tests + 1:
fxm := log10(30.900000000000016):
fxr2 := 0.148995847942483486734617e1:
fxrerr := 0.774e-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(log10,log10,30.900000000000016,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.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 32.000000000000014\n"):
total_tests := total_tests + 1:
fxm := log10(32.000000000000014):
fxr2 := 0.150514997831990616607509e1:
fxrerr := 0.753e-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(log10,log10,32.000000000000014,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.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 33.100000000000016\n"):
total_tests := total_tests + 1:
fxm := log10(33.100000000000016):
fxr2 := 0.151982799377571894854112e1:
fxrerr := 0.732e-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(log10,log10,33.100000000000016,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.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 34.20000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(34.20000000000002):
fxr2 := 0.153402610605613528531559e1:
fxrerr := 0.71e-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(log10,log10,34.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(log10,log10,34.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 35.30000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(35.30000000000002):
fxr2 := 0.154777470538782281155844e1:
fxrerr := 0.689e-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(log10,log10,35.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(log10,log10,35.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 36.40000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(36.40000000000002):
fxr2 := 0.156110138364905622897172e1:
fxrerr := 0.672e-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(log10,log10,36.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(log10,log10,36.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 37.50000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(37.50000000000002):
fxr2 := 0.157403126772771908327765e1:
fxrerr := 0.655e-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(log10,log10,37.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(log10,log10,37.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 38.60000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(38.60000000000002):
fxr2 := 0.158658730467175518083414e1:
fxrerr := 0.638e-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(log10,log10,38.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(log10,log10,38.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 39.700000000000024\n"):
total_tests := total_tests + 1:
fxm := log10(39.700000000000024):
fxr2 := 0.159879050676311532842272e1:
fxrerr := 0.621e-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(log10,log10,39.700000000000024,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.700000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 40.800000000000026\n"):
total_tests := total_tests + 1:
fxm := log10(40.800000000000026):
fxr2 := 0.161066016308988022823279e1:
fxrerr := 0.608e-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(log10,log10,40.800000000000026,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.800000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 41.90000000000003\n"):
total_tests := total_tests + 1:
fxm := log10(41.90000000000003):
fxr2 := 0.16222140229662956208015e1:
fxrerr := 0.595e-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(log10,log10,41.90000000000003,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.90000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 43.00000000000003\n"):
total_tests := total_tests + 1:
fxm := log10(43.00000000000003):
fxr2 := 0.163346845557958682940133e1:
fxrerr := 0.582e-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(log10,log10,43.00000000000003,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.00000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 44.10000000000003\n"):
total_tests := total_tests + 1:
fxm := log10(44.10000000000003):
fxr2 := 0.164443858946783883145299e1:
fxrerr := 0.569e-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(log10,log10,44.10000000000003,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.10000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 45.20000000000003\n"):
total_tests := total_tests + 1:
fxm := log10(45.20000000000003):
fxr2 := 0.165513843481138240147134e1:
fxrerr := 0.557e-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(log10,log10,45.20000000000003,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.20000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 46.30000000000003\n"):
total_tests := total_tests + 1:
fxm := log10(46.30000000000003):
fxr2 := 0.166558099101795341707457e1:
fxrerr := 0.544e-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(log10,log10,46.30000000000003,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.30000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 47.400000000000034\n"):
total_tests := total_tests + 1:
fxm := log10(47.400000000000034):
fxr2 := 0.167577834167408537202289e1:
fxrerr := 0.535e-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(log10,log10,47.400000000000034,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.400000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 48.500000000000036\n"):
total_tests := total_tests + 1:
fxm := log10(48.500000000000036):
fxr2 := 0.168574173860226397893359e1:
fxrerr := 0.527e-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(log10,log10,48.500000000000036,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.500000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 49.60000000000004\n"):
total_tests := total_tests + 1:
fxm := log10(49.60000000000004):
fxr2 := 0.169548167649019781075922e1:
fxrerr := 0.514e-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(log10,log10,49.60000000000004,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.60000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 50.70000000000004\n"):
total_tests := total_tests + 1:
fxm := log10(50.70000000000004):
fxr2 := 0.170500795933333631834676e1:
fxrerr := 0.506e-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(log10,log10,50.70000000000004,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.70000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 51.80000000000004\n"):
total_tests := total_tests + 1:
fxm := log10(51.80000000000004):
fxr2 := 0.1714329759745233358097e1:
fxrerr := 0.497e-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(log10,log10,51.80000000000004,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.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 52.90000000000004\n"):
total_tests := total_tests + 1:
fxm := log10(52.90000000000004):
fxr2 := 0.172345567203518608612465e1:
fxrerr := 0.489e-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(log10,log10,52.90000000000004,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.90000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 54.00000000000004\n"):
total_tests := total_tests + 1:
fxm := log10(54.00000000000004):
fxr2 := 0.17323937598229688287985e1:
fxrerr := 0.48e-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(log10,log10,54.00000000000004,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.00000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 55.100000000000044\n"):
total_tests := total_tests + 1:
fxm := log10(55.100000000000044):
fxr2 := 0.174115159885178539567428e1:
fxrerr := 0.434e-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(log10,log10,55.100000000000044,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.100000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 56.200000000000045\n"):
total_tests := total_tests + 1:
fxm := log10(56.200000000000045):
fxr2 := 0.17497363155690614358224e1:
fxrerr := 0.467e-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(log10,log10,56.200000000000045,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.200000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 57.30000000000005\n"):
total_tests := total_tests + 1:
fxm := log10(57.30000000000005):
fxr2 := 0.175815462196739035389565e1:
fxrerr := 0.46e-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(log10,log10,57.30000000000005,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.30000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 58.40000000000005\n"):
total_tests := total_tests + 1:
fxm := log10(58.40000000000005):
fxr2 := 0.176641284711239985854312e1:
fxrerr := 0.453e-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(log10,log10,58.40000000000005,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.40000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 59.50000000000005\n"):
total_tests := total_tests + 1:
fxm := log10(59.50000000000005):
fxr2 := 0.177451696572854992899205e1:
fxrerr := 0.447e-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(log10,log10,59.50000000000005,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.50000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 60.60000000000005\n"):
total_tests := total_tests + 1:
fxm := log10(60.60000000000005):
fxr2 := 0.178247262416628656511279e1:
fxrerr := 0.44e-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(log10,log10,60.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(log10,log10,60.60000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 61.70000000000005\n"):
total_tests := total_tests + 1:
fxm := log10(61.70000000000005):
fxr2 := 0.179028516403324203398595e1:
fxrerr := 0.434e-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(log10,log10,61.70000000000005,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.70000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 62.800000000000054\n"):
total_tests := total_tests + 1:
fxm := log10(62.800000000000054):
fxr2 := 0.179795964373719650062693e1:
fxrerr := 0.428e-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(log10,log10,62.800000000000054,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.800000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 63.900000000000055\n"):
total_tests := total_tests + 1:
fxm := log10(63.900000000000055):
fxr2 := 0.180550085815840053448882e1:
fxrerr := 0.422e-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(log10,log10,63.900000000000055,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.900000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 65.00000000000006\n"):
total_tests := total_tests + 1:
fxm := log10(65.00000000000006):
fxr2 := 0.181291335664285597488004e1:
fxrerr := 0.417e-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(log10,log10,65.00000000000006,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.00000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 66.10000000000005\n"):
total_tests := total_tests + 1:
fxm := log10(66.10000000000005):
fxr2 := 0.182020145948564056515983e1:
fxrerr := 0.411e-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(log10,log10,66.10000000000005,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.10000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 67.20000000000005\n"):
total_tests := total_tests + 1:
fxm := log10(67.20000000000005):
fxr2 := 0.182736927305382556721175e1:
fxrerr := 0.406e-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(log10,log10,67.20000000000005,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.20000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 68.30000000000004\n"):
total_tests := total_tests + 1:
fxm := log10(68.30000000000004):
fxr2 := 0.18344207036815328177451e1:
fxrerr := 0.401e-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(log10,log10,68.30000000000004,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.30000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 69.40000000000003\n"):
total_tests := total_tests + 1:
fxm := log10(69.40000000000003):
fxr2 := 0.184135947045485510148449e1:
fxrerr := 0.396e-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(log10,log10,69.40000000000003,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.40000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 70.50000000000003\n"):
total_tests := total_tests + 1:
fxm := log10(70.50000000000003):
fxr2 := 0.18481891169913988913017e1:
fxrerr := 0.391e-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(log10,log10,70.50000000000003,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.50000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 71.60000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(71.60000000000002):
fxr2 := 0.185491302230785568130921e1:
fxrerr := 0.387e-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(log10,log10,71.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(log10,log10,71.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 72.70000000000002\n"):
total_tests := total_tests + 1:
fxm := log10(72.70000000000002):
fxr2 := 0.186153441085903795568929e1:
fxrerr := 0.382e-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(log10,log10,72.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(log10,log10,72.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 73.80000000000001\n"):
total_tests := total_tests + 1:
fxm := log10(73.80000000000001):
fxr2 := 0.186805636182304162316072e1:
fxrerr := 0.378e-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(log10,log10,73.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(log10,log10,73.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 74.9\n"):
total_tests := total_tests + 1:
fxm := log10(74.9):
fxr2 := 0.187448181769946647154681e1:
fxrerr := 0.374e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 76.0\n"):
total_tests := total_tests + 1:
fxm := log10(76.0):
fxr2 := 0.188081359228079135196384e1:
fxrerr := 0.37e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 77.1\n"):
total_tests := total_tests + 1:
fxm := log10(77.1):
fxr2 := 0.188705437805095697445796e1:
fxrerr := 0.366e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 78.19999999999999\n"):
total_tests := total_tests + 1:
fxm := log10(78.19999999999999):
fxr2 := 0.189320675305984794708533e1:
fxrerr := 0.362e-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(log10,log10,78.19999999999999,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.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 79.29999999999998\n"):
total_tests := total_tests + 1:
fxm := log10(79.29999999999998):
fxr2 := 0.189927318731760369356026e1:
fxrerr := 0.358e-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(log10,log10,79.29999999999998,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.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 80.39999999999998\n"):
total_tests := total_tests + 1:
fxm := log10(80.39999999999998):
fxr2 := 0.190525604874845115383822e1:
fxrerr := 0.354e-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(log10,log10,80.39999999999998,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.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 81.49999999999997\n"):
total_tests := total_tests + 1:
fxm := log10(81.49999999999997):
fxr2 := 0.191115760873997645256338e1:
fxrerr := 0.351e-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(log10,log10,81.49999999999997,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.49999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 82.59999999999997\n"):
total_tests := total_tests + 1:
fxm := log10(82.59999999999997):
fxr2 := 0.191698004732038205845256e1:
fxrerr := 0.348e-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(log10,log10,82.59999999999997,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.59999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 83.69999999999996\n"):
total_tests := total_tests + 1:
fxm := log10(83.69999999999996):
fxr2 := 0.192272545799325978400369e1:
fxrerr := 0.344e-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(log10,log10,83.69999999999996,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.69999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 84.79999999999995\n"):
total_tests := total_tests + 1:
fxm := log10(84.79999999999995):
fxr2 := 0.192839585225671357041811e1:
fxrerr := 0.341e-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(log10,log10,84.79999999999995,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.79999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 85.89999999999995\n"):
total_tests := total_tests + 1:
fxm := log10(85.89999999999995):
fxr2 := 0.193399316383124204983784e1:
fxrerr := 0.338e-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(log10,log10,85.89999999999995,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.89999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 86.99999999999994\n"):
total_tests := total_tests + 1:
fxm := log10(86.99999999999994):
fxr2 := 0.193951925261861822511446e1:
fxrerr := 0.335e-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(log10,log10,86.99999999999994,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.99999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 88.09999999999994\n"):
total_tests := total_tests + 1:
fxm := log10(88.09999999999994):
fxr2 := 0.194497590841204761696863e1:
fxrerr := 0.332e-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(log10,log10,88.09999999999994,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.09999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 89.19999999999993\n"):
total_tests := total_tests + 1:
fxm := log10(89.19999999999993):
fxr2 := 0.195036485437612272308863e1:
fxrerr := 0.329e-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(log10,log10,89.19999999999993,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.19999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 90.29999999999993\n"):
total_tests := total_tests + 1:
fxm := log10(90.29999999999993):
fxr2 := 0.195568775031350545774997e1:
fxrerr := 0.326e-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(log10,log10,90.29999999999993,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.29999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 91.39999999999992\n"):
total_tests := total_tests + 1:
fxm := log10(91.39999999999992):
fxr2 := 0.196094619573383103744081e1:
fxrerr := 0.324e-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(log10,log10,91.39999999999992,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.39999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 92.49999999999991\n"):
total_tests := total_tests + 1:
fxm := log10(92.49999999999991):
fxr2 := 0.196614173273903218382417e1:
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(log10,log10,92.49999999999991,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.49999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 93.59999999999991\n"):
total_tests := total_tests + 1:
fxm := log10(93.59999999999991):
fxr2 := 0.197127584873810481184692e1:
fxrerr := 0.318e-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(log10,log10,93.59999999999991,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.59999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 94.6999999999999\n"):
total_tests := total_tests + 1:
fxm := log10(94.6999999999999):
fxr2 := 0.197634997900327296014981e1:
fxrerr := 0.315e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 95.7999999999999\n"):
total_tests := total_tests + 1:
fxm := log10(95.7999999999999):
fxr2 := 0.198136550907854396197616e1:
fxrerr := 0.313e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 96.89999999999989\n"):
total_tests := total_tests + 1:
fxm := log10(96.89999999999989):
fxr2 := 0.198632377705076483436437e1:
fxrerr := 0.31e-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(log10,log10,96.89999999999989,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.89999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 97.99999999999989\n"):
total_tests := total_tests + 1:
fxm := log10(97.99999999999989):
fxr2 := 0.199122607569249436916477e1:
fxrerr := 0.308e-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(log10,log10,97.99999999999989,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.99999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 99.09999999999988\n"):
total_tests := total_tests + 1:
fxm := log10(99.09999999999988):
fxr2 := 0.199607365448527480247807e1:
fxrerr := 0.306e-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(log10,log10,99.09999999999988,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.09999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 100.19999999999987\n"):
total_tests := total_tests + 1:
fxm := log10(100.19999999999987):
fxr2 := 0.200086772153122634904617e1:
fxrerr := 0.217e-17:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.19999999999987,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.19999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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.21292794550948174968341e1:
fxrerr := 0.264e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.4\n"):
total_tests := total_tests + 1:
fxm := sinh(-1.4):
fxr2 := -0.19043015014515340551418e1:
fxrerr := 0.243e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.2999999999999998\n"):
total_tests := total_tests + 1:
fxm := sinh(-1.2999999999999998):
fxr2 := -0.16983824372926154144845e1:
fxrerr := 0.22e-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(sinh,sinh,-1.2999999999999998,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.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.1999999999999997\n"):
total_tests := total_tests + 1:
fxm := sinh(-1.1999999999999997):
fxr2 := -0.1509461355412172153246e1:
fxrerr := 0.202e-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(sinh,sinh,-1.1999999999999997,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.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.0999999999999996\n"):
total_tests := total_tests + 1:
fxm := sinh(-1.0999999999999996):
fxr2 := -0.13356474701241761119771e1:
fxrerr := 0.185e-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(sinh,sinh,-1.0999999999999996,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.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.9999999999999997\n"):
total_tests := total_tests + 1:
fxm := sinh(-0.9999999999999997):
fxr2 := -0.11752011936438009939577e1:
fxrerr := 0.771e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9999999999999997,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.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.8999999999999997\n"):
total_tests := total_tests + 1:
fxm := sinh(-0.8999999999999997):
fxr2 := -0.1026516725708174846032e1:
fxrerr := 0.716e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8999999999999997,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.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.7999999999999997\n"):
total_tests := total_tests + 1:
fxm := sinh(-0.7999999999999997):
fxr2 := -0.88810598218762260534419e0:
fxrerr := 0.668e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7999999999999997,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.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.6999999999999997\n"):
total_tests := total_tests + 1:
fxm := sinh(-0.6999999999999997):
fxr2 := -0.75858370183953312690913e0:
fxrerr := 0.627e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6999999999999997,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.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.5999999999999998\n"):
total_tests := total_tests + 1:
fxm := sinh(-0.5999999999999998):
fxr2 := -0.63665358214824103403038e0:
fxrerr := 0.592e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5999999999999998,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.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.4999999999999998\n"):
total_tests := total_tests + 1:
fxm := sinh(-0.4999999999999998):
fxr2 := -0.52109530549374713609718e0:
fxrerr := 0.563e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4999999999999998,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.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.3999999999999998\n"):
total_tests := total_tests + 1:
fxm := sinh(-0.3999999999999998):
fxr2 := -0.41075232580281529232569e0:
fxrerr := 0.54e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3999999999999998,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.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.2999999999999998\n"):
total_tests := total_tests + 1:
fxm := sinh(-0.2999999999999998):
fxr2 := -0.30452029344714240989072e0:
fxrerr := 0.522e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2999999999999998,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.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.19999999999999982\n"):
total_tests := total_tests + 1:
fxm := sinh(-0.19999999999999982):
fxr2 := -0.20133600254109380401351e0:
fxrerr := 0.51e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.19999999999999982,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.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.09999999999999981\n"):
total_tests := total_tests + 1:
fxm := sinh(-0.09999999999999981):
fxr2 := -0.10016675001984383487291e0:
fxrerr := 0.502e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.09999999999999981,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.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.942890293094024e-16\n"):
total_tests := total_tests + 1:
fxm := sinh(1.942890293094024e-16):
fxr2 := 0.1942890293094024e-15:
fxrerr := 0.5e-38:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.942890293094024e-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.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.1000000000000002\n"):
total_tests := total_tests + 1:
fxm := sinh(0.1000000000000002):
fxr2 := 0.100166750019844226824561e0:
fxrerr := 0.502e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000002,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.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.2000000000000002\n"):
total_tests := total_tests + 1:
fxm := sinh(0.2000000000000002):
fxr2 := 0.201336002541094191638916e0:
fxrerr := 0.51e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000002,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.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.3000000000000002\n"):
total_tests := total_tests + 1:
fxm := sinh(0.3000000000000002):
fxr2 := 0.304520293447142828026134e0:
fxrerr := 0.522e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000002,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.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.40000000000000024\n"):
total_tests := total_tests + 1:
fxm := sinh(0.40000000000000024):
fxr2 := 0.410752325802815767997574e0:
fxrerr := 0.54e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.40000000000000024,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.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.5000000000000002\n"):
total_tests := total_tests + 1:
fxm := sinh(0.5000000000000002):
fxr2 := 0.521095305493747587147614e0:
fxrerr := 0.563e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000002,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.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.6000000000000002\n"):
total_tests := total_tests + 1:
fxm := sinh(0.6000000000000002):
fxr2 := 0.636653582148241508216494e0:
fxrerr := 0.592e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6000000000000002,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.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.7000000000000002\n"):
total_tests := total_tests + 1:
fxm := sinh(0.7000000000000002):
fxr2 := 0.758583701839533754493671e0:
fxrerr := 0.627e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7000000000000002,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.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.8000000000000002\n"):
total_tests := total_tests + 1:
fxm := sinh(0.8000000000000002):
fxr2 := 0.8881059821876232740617e0:
fxrerr := 0.668e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8000000000000002,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.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.9000000000000001\n"):
total_tests := total_tests + 1:
fxm := sinh(0.9000000000000001):
fxr2 := 0.102651672570817541926693e1:
fxrerr := 0.716e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9000000000000001,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.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.0000000000000002\n"):
total_tests := total_tests + 1:
fxm := sinh(1.0000000000000002):
fxr2 := 0.117520119364380176549842e1:
fxrerr := 0.343e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.0000000000000002,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.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.1000000000000003\n"):
total_tests := total_tests + 1:
fxm := sinh(1.1000000000000003):
fxr2 := 0.133564747012417727994017e1:
fxrerr := 0.379e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000003,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.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.2000000000000004\n"):
total_tests := total_tests + 1:
fxm := sinh(1.2000000000000004):
fxr2 := 0.15094613554121734207049e1:
fxrerr := 0.422e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000004,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.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.3000000000000005\n"):
total_tests := total_tests + 1:
fxm := sinh(1.3000000000000005):
fxr2 := 0.169838243729261679412447e1:
fxrerr := 0.467e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000005,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.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.4000000000000006\n"):
total_tests := total_tests + 1:
fxm := sinh(1.4000000000000006):
fxr2 := 0.190430150145153534568096e1:
fxrerr := 0.523e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4000000000000006,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.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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.235240961524324732576741e1:
fxrerr := 0.265e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.4\n"):
total_tests := total_tests + 1:
fxm := cosh(-1.4):
fxr2 := 0.215089846539314053208176e1:
fxrerr := 0.243e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.2999999999999998\n"):
total_tests := total_tests + 1:
fxm := cosh(-1.2999999999999998):
fxr2 := 0.197091423032662807211324e1:
fxrerr := 0.22e-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(cosh,cosh,-1.2999999999999998,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.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.1999999999999997\n"):
total_tests := total_tests + 1:
fxm := cosh(-1.1999999999999997):
fxr2 := 0.181065556732437434024928e1:
fxrerr := 0.203e-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(cosh,cosh,-1.1999999999999997,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.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.0999999999999996\n"):
total_tests := total_tests + 1:
fxm := cosh(-1.0999999999999996):
fxr2 := 0.166851855382225579841448e1:
fxrerr := 0.186e-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(cosh,cosh,-1.0999999999999996,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.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.9999999999999997\n"):
total_tests := total_tests + 1:
fxm := cosh(-0.9999999999999997):
fxr2 := 0.154308063481524342591749e1:
fxrerr := 0.863e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9999999999999997,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.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.8999999999999997\n"):
total_tests := total_tests + 1:
fxm := cosh(-0.8999999999999997):
fxr2 := 0.143308638544877407988673e1:
fxrerr := 0.8e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8999999999999997,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.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.7999999999999997\n"):
total_tests := total_tests + 1:
fxm := cosh(-0.7999999999999997):
fxr2 := 0.133743494630484433157298e1:
fxrerr := 0.738e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7999999999999997,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.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.6999999999999997\n"):
total_tests := total_tests + 1:
fxm := cosh(-0.6999999999999997):
fxr2 := 0.125516900563094279058952e1:
fxrerr := 0.691e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6999999999999997,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.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.5999999999999998\n"):
total_tests := total_tests + 1:
fxm := cosh(-0.5999999999999998):
fxr2 := 0.118546521824226757642116e1:
fxrerr := 0.659e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5999999999999998,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.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.4999999999999998\n"):
total_tests := total_tests + 1:
fxm := cosh(-0.4999999999999998):
fxr2 := 0.112762596520638068100713e1:
fxrerr := 0.623e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4999999999999998,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.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.3999999999999998\n"):
total_tests := total_tests + 1:
fxm := cosh(-0.3999999999999998):
fxr2 := 0.108107237183845472713415e1:
fxrerr := 0.592e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3999999999999998,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.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.2999999999999998\n"):
total_tests := total_tests + 1:
fxm := cosh(-0.2999999999999998):
fxr2 := 0.104533851412886042412123e1:
fxrerr := 0.566e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2999999999999998,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.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.19999999999999982\n"):
total_tests := total_tests + 1:
fxm := cosh(-0.19999999999999982):
fxr2 := 0.1020066755619075810055e1:
fxrerr := 0.55e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.19999999999999982,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.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.09999999999999981\n"):
total_tests := total_tests + 1:
fxm := cosh(-0.09999999999999981):
fxr2 := 0.100500416805580357995629e1:
fxrerr := 0.535e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.09999999999999981,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.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.942890293094024e-16\n"):
total_tests := total_tests + 1:
fxm := cosh(1.942890293094024e-16):
fxr2 := 0.1e1:
fxrerr := 0.349e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.942890293094024e-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.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.1000000000000002\n"):
total_tests := total_tests + 1:
fxm := cosh(0.1000000000000002):
fxr2 := 0.100500416805580361902132e1:
fxrerr := 0.901e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000002,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.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.2000000000000002\n"):
total_tests := total_tests + 1:
fxm := cosh(0.2000000000000002):
fxr2 := 0.102006675561907588656269e1:
fxrerr := 0.96e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000002,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.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.3000000000000002\n"):
total_tests := total_tests + 1:
fxm := cosh(0.3000000000000002):
fxr2 := 0.104533851412886054592935e1:
fxrerr := 0.103e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000002,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.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.40000000000000024\n"):
total_tests := total_tests + 1:
fxm := cosh(0.40000000000000024):
fxr2 := 0.108107237183845490786517e1:
fxrerr := 0.11e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.40000000000000024,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.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.5000000000000002\n"):
total_tests := total_tests + 1:
fxm := cosh(0.5000000000000002):
fxr2 := 0.112762596520638088944525e1:
fxrerr := 0.119e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000002,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.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.6000000000000002\n"):
total_tests := total_tests + 1:
fxm := cosh(0.6000000000000002):
fxr2 := 0.118546521824226783108259e1:
fxrerr := 0.13e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6000000000000002,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.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.7000000000000002\n"):
total_tests := total_tests + 1:
fxm := cosh(0.7000000000000002):
fxr2 := 0.125516900563094316988137e1:
fxrerr := 0.141e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7000000000000002,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.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.8000000000000002\n"):
total_tests := total_tests + 1:
fxm := cosh(0.8000000000000002):
fxr2 := 0.133743494630484477562597e1:
fxrerr := 0.156e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8000000000000002,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.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.9000000000000001\n"):
total_tests := total_tests + 1:
fxm := cosh(0.9000000000000001):
fxr2 := 0.14330863854487744904934e1:
fxrerr := 0.171e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9000000000000001,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.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.0000000000000002\n"):
total_tests := total_tests + 1:
fxm := cosh(1.0000000000000002):
fxr2 := 0.154308063481524401351808e1:
fxrerr := 0.353e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.0000000000000002,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.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.1000000000000003\n"):
total_tests := total_tests + 1:
fxm := cosh(1.1000000000000003):
fxr2 := 0.166851855382225673336773e1:
fxrerr := 0.387e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000003,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.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.2000000000000004\n"):
total_tests := total_tests + 1:
fxm := cosh(1.2000000000000004):
fxr2 := 0.181065556732437539687222e1:
fxrerr := 0.43e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000004,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.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.3000000000000005\n"):
total_tests := total_tests + 1:
fxm := cosh(1.3000000000000005):
fxr2 := 0.197091423032662926098094e1:
fxrerr := 0.474e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000005,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.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.4000000000000006\n"):
total_tests := total_tests + 1:
fxm := cosh(1.4000000000000006):
fxr2 := 0.215089846539314167466267e1:
fxrerr := 0.529e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4000000000000006,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.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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.90514825364486643824228e0:
fxrerr := 0.214e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.4\n"):
total_tests := total_tests + 1:
fxm := tanh(-1.4):
fxr2 := -0.88535164820226250758335e0:
fxrerr := 0.212e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.2999999999999998\n"):
total_tests := total_tests + 1:
fxm := tanh(-1.2999999999999998):
fxr2 := -0.86172315931330631280827e0:
fxrerr := 0.207e-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(tanh,tanh,-1.2999999999999998,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.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.1999999999999997\n"):
total_tests := total_tests + 1:
fxm := tanh(-1.1999999999999997):
fxr2 := -0.83365460701215516716805e0:
fxrerr := 0.205e-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(tanh,tanh,-1.1999999999999997,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.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.0999999999999996\n"):
total_tests := total_tests + 1:
fxm := tanh(-1.0999999999999996):
fxr2 := -0.80049902176062956233085e0:
fxrerr := 0.2e-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(tanh,tanh,-1.0999999999999996,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.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.9999999999999997\n"):
total_tests := total_tests + 1:
fxm := tanh(-0.9999999999999997):
fxr2 := -0.76159415595576476212686e0:
fxrerr := 0.925e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9999999999999997,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.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.8999999999999997\n"):
total_tests := total_tests + 1:
fxm := tanh(-0.8999999999999997):
fxr2 := -0.71629787019902427473596e0:
fxrerr := 0.899e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8999999999999997,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.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.7999999999999997\n"):
total_tests := total_tests + 1:
fxm := tanh(-0.7999999999999997):
fxr2 := -0.66403677026784879596828e0:
fxrerr := 0.865e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7999999999999997,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.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.6999999999999997\n"):
total_tests := total_tests + 1:
fxm := tanh(-0.6999999999999997):
fxr2 := -0.60436777711716330588679e0:
fxrerr := 0.832e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6999999999999997,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.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.5999999999999998\n"):
total_tests := total_tests + 1:
fxm := tanh(-0.5999999999999998):
fxr2 := -0.53704956699803514354626e0:
fxrerr := 0.797e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5999999999999998,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.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.4999999999999998\n"):
total_tests := total_tests + 1:
fxm := tanh(-0.4999999999999998):
fxr2 := -0.46211715726000960121273e0:
fxrerr := 0.754e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4999999999999998,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.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.3999999999999998\n"):
total_tests := total_tests + 1:
fxm := tanh(-0.3999999999999998):
fxr2 := -0.37994896225522471413995e0:
fxrerr := 0.707e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3999999999999998,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.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.2999999999999998\n"):
total_tests := total_tests + 1:
fxm := tanh(-0.2999999999999998):
fxr2 := -0.29131261245159072279082e0:
fxrerr := 0.657e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2999999999999998,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.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.19999999999999982\n"):
total_tests := total_tests + 1:
fxm := tanh(-0.19999999999999982):
fxr2 := -0.19737532022490382775038e0:
fxrerr := 0.606e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.19999999999999982,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.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.09999999999999981\n"):
total_tests := total_tests + 1:
fxm := tanh(-0.09999999999999981):
fxr2 := -0.99667994624955629005683e-1:
fxrerr := 0.552e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.09999999999999981,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.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.942890293094024e-16\n"):
total_tests := total_tests + 1:
fxm := tanh(1.942890293094024e-16):
fxr2 := 0.1942890293094024e-15:
fxrerr := 0.728e-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(tanh,tanh,1.942890293094024e-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.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.1000000000000002\n"):
total_tests := total_tests + 1:
fxm := tanh(0.1000000000000002):
fxr2 := 0.996679946249560151315621e-1:
fxrerr := 0.588e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000002,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.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.2000000000000002\n"):
total_tests := total_tests + 1:
fxm := tanh(0.2000000000000002):
fxr2 := 0.197375320224904192946753e0:
fxrerr := 0.685e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000002,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.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.3000000000000002\n"):
total_tests := total_tests + 1:
fxm := tanh(0.3000000000000002):
fxr2 := 0.291312612451591088845614e0:
fxrerr := 0.786e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000002,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.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.40000000000000024\n"):
total_tests := total_tests + 1:
fxm := tanh(0.40000000000000024):
fxr2 := 0.379948962255225090621062e0:
fxrerr := 0.886e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.40000000000000024,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.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.5000000000000002\n"):
total_tests := total_tests + 1:
fxm := tanh(0.5000000000000002):
fxr2 := 0.462117157260009915791875e0:
fxrerr := 0.986e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000002,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.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.6000000000000002\n"):
total_tests := total_tests + 1:
fxm := tanh(0.6000000000000002):
fxr2 := 0.537049566998035428177392e0:
fxrerr := 0.108e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6000000000000002,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.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.7000000000000002\n"):
total_tests := total_tests + 1:
fxm := tanh(0.7000000000000002):
fxr2 := 0.604367777117163623256623e0:
fxrerr := 0.117e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7000000000000002,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.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.8000000000000002\n"):
total_tests := total_tests + 1:
fxm := tanh(0.8000000000000002):
fxr2 := 0.664036770267849075495896e0:
fxrerr := 0.127e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8000000000000002,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.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.9000000000000001\n"):
total_tests := total_tests + 1:
fxm := tanh(0.9000000000000001):
fxr2 := 0.71629787019902446950318e0:
fxrerr := 0.135e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9000000000000001,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.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.0000000000000002\n"):
total_tests := total_tests + 1:
fxm := tanh(1.0000000000000002):
fxr2 := 0.7615941559557649721143e0:
fxrerr := 0.396e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.0000000000000002,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.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.1000000000000003\n"):
total_tests := total_tests + 1:
fxm := tanh(1.1000000000000003):
fxr2 := 0.800499021760629813771816e0:
fxrerr := 0.412e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000003,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.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.2000000000000004\n"):
total_tests := total_tests + 1:
fxm := tanh(1.2000000000000004):
fxr2 := 0.83365460701215538068206e0:
fxrerr := 0.431e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000004,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.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.3000000000000005\n"):
total_tests := total_tests + 1:
fxm := tanh(1.3000000000000005):
fxr2 := 0.861723159313306493011521e0:
fxrerr := 0.444e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000005,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.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.4000000000000006\n"):
total_tests := total_tests + 1:
fxm := tanh(1.4000000000000006):
fxr2 := 0.885351648202262637274868e0:
fxrerr := 0.46e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4000000000000006,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.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.1\n"):
total_tests := total_tests + 1:
fxm := sqrt(0.1):
fxr2 := 0.316227766016837933203464e0:
fxrerr := 0.161e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.2\n"):
total_tests := total_tests + 1:
fxm := sqrt(0.2):
fxr2 := 0.447213595499957939284327e0:
fxrerr := 0.56e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.30000000000000004\n"):
total_tests := total_tests + 1:
fxm := sqrt(0.30000000000000004):
fxr2 := 0.547722557505166149973564e0:
fxrerr := 0.473e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.30000000000000004,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.30000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.4\n"):
total_tests := total_tests + 1:
fxm := sqrt(0.4):
fxr2 := 0.632455532033675866399973e0:
fxrerr := 0.415e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.5\n"):
total_tests := total_tests + 1:
fxm := sqrt(0.5):
fxr2 := 0.707106781186547524401018e0:
fxrerr := 0.372e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.6\n"):
total_tests := total_tests + 1:
fxm := sqrt(0.6):
fxr2 := 0.774596669241483377036014e0:
fxrerr := 0.339e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.7\n"):
total_tests := total_tests + 1:
fxm := sqrt(0.7):
fxr2 := 0.836660026534075547978324e0:
fxrerr := 0.312e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.7999999999999999\n"):
total_tests := total_tests + 1:
fxm := sqrt(0.7999999999999999):
fxr2 := 0.894427190999915822662066e0:
fxrerr := 0.291e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7999999999999999,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.7999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.8999999999999999\n"):
total_tests := total_tests + 1:
fxm := sqrt(0.8999999999999999):
fxr2 := 0.948683298050513746895141e0:
fxrerr := 0.273e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8999999999999999,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.8999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.9999999999999999\n"):
total_tests := total_tests + 1:
fxm := sqrt(0.9999999999999999):
fxr2 := 0.99999999999999995e0:
fxrerr := 0.259e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9999999999999999,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.9999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.0999999999999999\n"):
total_tests := total_tests + 1:
fxm := sqrt(1.0999999999999999):
fxr2 := 0.104880884817015149932781e1:
fxrerr := 0.264e-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(sqrt,sqrt,1.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(sqrt,sqrt,1.0999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.2\n"):
total_tests := total_tests + 1:
fxm := sqrt(1.2):
fxr2 := 0.109544511501033222692373e1:
fxrerr := 0.255e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.3\n"):
total_tests := total_tests + 1:
fxm := sqrt(1.3):
fxr2 := 0.114017542509913797914507e1:
fxrerr := 0.247e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.4000000000000001\n"):
total_tests := total_tests + 1:
fxm := sqrt(1.4000000000000001):
fxr2 := 0.118321595661992325077955e1:
fxrerr := 0.241e-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(sqrt,sqrt,1.4000000000000001,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.4000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.4\n"):
total_tests := total_tests + 1:
fxm := abs(-1.4):
fxr2 := 0.14e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.2999999999999998\n"):
total_tests := total_tests + 1:
fxm := abs(-1.2999999999999998):
fxr2 := 0.12999999999999998e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2999999999999998,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.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.1999999999999997\n"):
total_tests := total_tests + 1:
fxm := abs(-1.1999999999999997):
fxr2 := 0.11999999999999997e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1999999999999997,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.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.0999999999999996\n"):
total_tests := total_tests + 1:
fxm := abs(-1.0999999999999996):
fxr2 := 0.10999999999999996e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.0999999999999996,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.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.9999999999999997\n"):
total_tests := total_tests + 1:
fxm := abs(-0.9999999999999997):
fxr2 := 0.9999999999999997e0:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9999999999999997,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.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.8999999999999997\n"):
total_tests := total_tests + 1:
fxm := abs(-0.8999999999999997):
fxr2 := 0.8999999999999997e0:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8999999999999997,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.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.7999999999999997\n"):
total_tests := total_tests + 1:
fxm := abs(-0.7999999999999997):
fxr2 := 0.7999999999999997e0:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7999999999999997,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.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.6999999999999997\n"):
total_tests := total_tests + 1:
fxm := abs(-0.6999999999999997):
fxr2 := 0.6999999999999997e0:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6999999999999997,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.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.5999999999999998\n"):
total_tests := total_tests + 1:
fxm := abs(-0.5999999999999998):
fxr2 := 0.5999999999999998e0:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5999999999999998,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.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.4999999999999998\n"):
total_tests := total_tests + 1:
fxm := abs(-0.4999999999999998):
fxr2 := 0.4999999999999998e0:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4999999999999998,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.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.3999999999999998\n"):
total_tests := total_tests + 1:
fxm := abs(-0.3999999999999998):
fxr2 := 0.3999999999999998e0:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3999999999999998,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.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.2999999999999998\n"):
total_tests := total_tests + 1:
fxm := abs(-0.2999999999999998):
fxr2 := 0.2999999999999998e0:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2999999999999998,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.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.19999999999999982\n"):
total_tests := total_tests + 1:
fxm := abs(-0.19999999999999982):
fxr2 := 0.19999999999999982e0:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.19999999999999982,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.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.09999999999999981\n"):
total_tests := total_tests + 1:
fxm := abs(-0.09999999999999981):
fxr2 := 0.9999999999999981e-1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.09999999999999981,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.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.942890293094024e-16\n"):
total_tests := total_tests + 1:
fxm := abs(1.942890293094024e-16):
fxr2 := 0.1942890293094024e-15:
fxrerr := 0.50e-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(abs,abs,1.942890293094024e-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.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.1000000000000002\n"):
total_tests := total_tests + 1:
fxm := abs(0.1000000000000002):
fxr2 := 0.1000000000000002e0:
fxrerr := 0.50e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000002,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.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.2000000000000002\n"):
total_tests := total_tests + 1:
fxm := abs(0.2000000000000002):
fxr2 := 0.2000000000000002e0:
fxrerr := 0.50e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000002,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.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.3000000000000002\n"):
total_tests := total_tests + 1:
fxm := abs(0.3000000000000002):
fxr2 := 0.3000000000000002e0:
fxrerr := 0.50e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000002,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.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.40000000000000024\n"):
total_tests := total_tests + 1:
fxm := abs(0.40000000000000024):
fxr2 := 0.40000000000000024e0:
fxrerr := 0.50e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.40000000000000024,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.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.5000000000000002\n"):
total_tests := total_tests + 1:
fxm := abs(0.5000000000000002):
fxr2 := 0.5000000000000002e0:
fxrerr := 0.50e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000002,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.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.6000000000000002\n"):
total_tests := total_tests + 1:
fxm := abs(0.6000000000000002):
fxr2 := 0.6000000000000002e0:
fxrerr := 0.50e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6000000000000002,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.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.7000000000000002\n"):
total_tests := total_tests + 1:
fxm := abs(0.7000000000000002):
fxr2 := 0.7000000000000002e0:
fxrerr := 0.50e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7000000000000002,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.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.8000000000000002\n"):
total_tests := total_tests + 1:
fxm := abs(0.8000000000000002):
fxr2 := 0.8000000000000002e0:
fxrerr := 0.50e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8000000000000002,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.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.9000000000000001\n"):
total_tests := total_tests + 1:
fxm := abs(0.9000000000000001):
fxr2 := 0.9000000000000001e0:
fxrerr := 0.50e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9000000000000001,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.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.0000000000000002\n"):
total_tests := total_tests + 1:
fxm := abs(1.0000000000000002):
fxr2 := 0.10000000000000002e1:
fxrerr := 0.50e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.0000000000000002,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.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.1000000000000003\n"):
total_tests := total_tests + 1:
fxm := abs(1.1000000000000003):
fxr2 := 0.11000000000000003e1:
fxrerr := 0.50e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000003,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.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.2000000000000004\n"):
total_tests := total_tests + 1:
fxm := abs(1.2000000000000004):
fxr2 := 0.12000000000000004e1:
fxrerr := 0.50e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000004,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.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.3000000000000005\n"):
total_tests := total_tests + 1:
fxm := abs(1.3000000000000005):
fxr2 := 0.13000000000000005e1:
fxrerr := 0.50e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000005,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.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.4000000000000006\n"):
total_tests := total_tests + 1:
fxm := abs(1.4000000000000006):
fxr2 := 0.14000000000000006e1:
fxrerr := 0.50e-21:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4000000000000006,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.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -19.38\n"):
total_tests := total_tests + 1:
fxm := trunc(-19.38):
fxr2 := -0.19e2:
fxrerr := 0.50e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -19.259999999999998\n"):
total_tests := total_tests + 1:
fxm := trunc(-19.259999999999998):
fxr2 := -0.19e2:
fxrerr := 0.50e-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(trunc,trunc,-19.259999999999998,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.259999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -19.139999999999997\n"):
total_tests := total_tests + 1:
fxm := trunc(-19.139999999999997):
fxr2 := -0.19e2:
fxrerr := 0.50e-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(trunc,trunc,-19.139999999999997,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.139999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -19.019999999999996\n"):
total_tests := total_tests + 1:
fxm := trunc(-19.019999999999996):
fxr2 := -0.19e2:
fxrerr := 0.50e-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(trunc,trunc,-19.019999999999996,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.019999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -18.899999999999995\n"):
total_tests := total_tests + 1:
fxm := trunc(-18.899999999999995):
fxr2 := -0.18e2:
fxrerr := 0.50e-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(trunc,trunc,-18.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(trunc,trunc,-18.899999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -18.779999999999994\n"):
total_tests := total_tests + 1:
fxm := trunc(-18.779999999999994):
fxr2 := -0.18e2:
fxrerr := 0.50e-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(trunc,trunc,-18.779999999999994,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.779999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -18.659999999999993\n"):
total_tests := total_tests + 1:
fxm := trunc(-18.659999999999993):
fxr2 := -0.18e2:
fxrerr := 0.50e-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(trunc,trunc,-18.659999999999993,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.659999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -18.539999999999992\n"):
total_tests := total_tests + 1:
fxm := trunc(-18.539999999999992):
fxr2 := -0.18e2:
fxrerr := 0.50e-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(trunc,trunc,-18.539999999999992,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.539999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -18.41999999999999\n"):
total_tests := total_tests + 1:
fxm := trunc(-18.41999999999999):
fxr2 := -0.18e2:
fxrerr := 0.50e-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(trunc,trunc,-18.41999999999999,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.41999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -18.29999999999999\n"):
total_tests := total_tests + 1:
fxm := trunc(-18.29999999999999):
fxr2 := -0.18e2:
fxrerr := 0.50e-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(trunc,trunc,-18.29999999999999,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.29999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -18.17999999999999\n"):
total_tests := total_tests + 1:
fxm := trunc(-18.17999999999999):
fxr2 := -0.18e2:
fxrerr := 0.50e-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(trunc,trunc,-18.17999999999999,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.17999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -18.059999999999988\n"):
total_tests := total_tests + 1:
fxm := trunc(-18.059999999999988):
fxr2 := -0.18e2:
fxrerr := 0.50e-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(trunc,trunc,-18.059999999999988,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.059999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -17.939999999999987\n"):
total_tests := total_tests + 1:
fxm := trunc(-17.939999999999987):
fxr2 := -0.17e2:
fxrerr := 0.50e-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(trunc,trunc,-17.939999999999987,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.939999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -17.819999999999986\n"):
total_tests := total_tests + 1:
fxm := trunc(-17.819999999999986):
fxr2 := -0.17e2:
fxrerr := 0.50e-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(trunc,trunc,-17.819999999999986,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.819999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -17.699999999999985\n"):
total_tests := total_tests + 1:
fxm := trunc(-17.699999999999985):
fxr2 := -0.17e2:
fxrerr := 0.50e-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(trunc,trunc,-17.699999999999985,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.699999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -17.579999999999984\n"):
total_tests := total_tests + 1:
fxm := trunc(-17.579999999999984):
fxr2 := -0.17e2:
fxrerr := 0.50e-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(trunc,trunc,-17.579999999999984,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.579999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -17.459999999999983\n"):
total_tests := total_tests + 1:
fxm := trunc(-17.459999999999983):
fxr2 := -0.17e2:
fxrerr := 0.50e-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(trunc,trunc,-17.459999999999983,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.459999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -17.339999999999982\n"):
total_tests := total_tests + 1:
fxm := trunc(-17.339999999999982):
fxr2 := -0.17e2:
fxrerr := 0.50e-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(trunc,trunc,-17.339999999999982,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.339999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -17.21999999999998\n"):
total_tests := total_tests + 1:
fxm := trunc(-17.21999999999998):
fxr2 := -0.17e2:
fxrerr := 0.50e-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(trunc,trunc,-17.21999999999998,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.21999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -17.09999999999998\n"):
total_tests := total_tests + 1:
fxm := trunc(-17.09999999999998):
fxr2 := -0.17e2:
fxrerr := 0.50e-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(trunc,trunc,-17.09999999999998,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.09999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.97999999999998\n"):
total_tests := total_tests + 1:
fxm := trunc(-16.97999999999998):
fxr2 := -0.16e2:
fxrerr := 0.50e-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(trunc,trunc,-16.97999999999998,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.97999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.859999999999978\n"):
total_tests := total_tests + 1:
fxm := trunc(-16.859999999999978):
fxr2 := -0.16e2:
fxrerr := 0.50e-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(trunc,trunc,-16.859999999999978,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.859999999999978,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.739999999999977\n"):
total_tests := total_tests + 1:
fxm := trunc(-16.739999999999977):
fxr2 := -0.16e2:
fxrerr := 0.50e-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(trunc,trunc,-16.739999999999977,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.739999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.619999999999976\n"):
total_tests := total_tests + 1:
fxm := trunc(-16.619999999999976):
fxr2 := -0.16e2:
fxrerr := 0.50e-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(trunc,trunc,-16.619999999999976,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.619999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.499999999999975\n"):
total_tests := total_tests + 1:
fxm := trunc(-16.499999999999975):
fxr2 := -0.16e2:
fxrerr := 0.50e-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(trunc,trunc,-16.499999999999975,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.499999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.379999999999974\n"):
total_tests := total_tests + 1:
fxm := trunc(-16.379999999999974):
fxr2 := -0.16e2:
fxrerr := 0.50e-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(trunc,trunc,-16.379999999999974,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.379999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.259999999999973\n"):
total_tests := total_tests + 1:
fxm := trunc(-16.259999999999973):
fxr2 := -0.16e2:
fxrerr := 0.50e-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(trunc,trunc,-16.259999999999973,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.259999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.139999999999972\n"):
total_tests := total_tests + 1:
fxm := trunc(-16.139999999999972):
fxr2 := -0.16e2:
fxrerr := 0.50e-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(trunc,trunc,-16.139999999999972,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.139999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.01999999999997\n"):
total_tests := total_tests + 1:
fxm := trunc(-16.01999999999997):
fxr2 := -0.16e2:
fxrerr := 0.50e-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(trunc,trunc,-16.01999999999997,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.01999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -15.899999999999972\n"):
total_tests := total_tests + 1:
fxm := trunc(-15.899999999999972):
fxr2 := -0.15e2:
fxrerr := 0.50e-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(trunc,trunc,-15.899999999999972,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.899999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -15.779999999999973\n"):
total_tests := total_tests + 1:
fxm := trunc(-15.779999999999973):
fxr2 := -0.15e2:
fxrerr := 0.50e-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(trunc,trunc,-15.779999999999973,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.779999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -15.659999999999973\n"):
total_tests := total_tests + 1:
fxm := trunc(-15.659999999999973):
fxr2 := -0.15e2:
fxrerr := 0.50e-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(trunc,trunc,-15.659999999999973,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.659999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -15.539999999999974\n"):
total_tests := total_tests + 1:
fxm := trunc(-15.539999999999974):
fxr2 := -0.15e2:
fxrerr := 0.50e-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(trunc,trunc,-15.539999999999974,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.539999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -15.419999999999975\n"):
total_tests := total_tests + 1:
fxm := trunc(-15.419999999999975):
fxr2 := -0.15e2:
fxrerr := 0.50e-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(trunc,trunc,-15.419999999999975,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.419999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -15.299999999999976\n"):
total_tests := total_tests + 1:
fxm := trunc(-15.299999999999976):
fxr2 := -0.15e2:
fxrerr := 0.50e-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(trunc,trunc,-15.299999999999976,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.299999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -15.179999999999977\n"):
total_tests := total_tests + 1:
fxm := trunc(-15.179999999999977):
fxr2 := -0.15e2:
fxrerr := 0.50e-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(trunc,trunc,-15.179999999999977,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.179999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -15.059999999999977\n"):
total_tests := total_tests + 1:
fxm := trunc(-15.059999999999977):
fxr2 := -0.15e2:
fxrerr := 0.50e-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(trunc,trunc,-15.059999999999977,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.059999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.939999999999978\n"):
total_tests := total_tests + 1:
fxm := trunc(-14.939999999999978):
fxr2 := -0.14e2:
fxrerr := 0.50e-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(trunc,trunc,-14.939999999999978,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.939999999999978,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.819999999999979\n"):
total_tests := total_tests + 1:
fxm := trunc(-14.819999999999979):
fxr2 := -0.14e2:
fxrerr := 0.50e-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(trunc,trunc,-14.819999999999979,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.819999999999979,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.69999999999998\n"):
total_tests := total_tests + 1:
fxm := trunc(-14.69999999999998):
fxr2 := -0.14e2:
fxrerr := 0.50e-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(trunc,trunc,-14.69999999999998,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.69999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.57999999999998\n"):
total_tests := total_tests + 1:
fxm := trunc(-14.57999999999998):
fxr2 := -0.14e2:
fxrerr := 0.50e-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(trunc,trunc,-14.57999999999998,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.57999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.459999999999981\n"):
total_tests := total_tests + 1:
fxm := trunc(-14.459999999999981):
fxr2 := -0.14e2:
fxrerr := 0.50e-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(trunc,trunc,-14.459999999999981,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.459999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.339999999999982\n"):
total_tests := total_tests + 1:
fxm := trunc(-14.339999999999982):
fxr2 := -0.14e2:
fxrerr := 0.50e-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(trunc,trunc,-14.339999999999982,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.339999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.219999999999983\n"):
total_tests := total_tests + 1:
fxm := trunc(-14.219999999999983):
fxr2 := -0.14e2:
fxrerr := 0.50e-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(trunc,trunc,-14.219999999999983,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.219999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.099999999999984\n"):
total_tests := total_tests + 1:
fxm := trunc(-14.099999999999984):
fxr2 := -0.14e2:
fxrerr := 0.50e-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(trunc,trunc,-14.099999999999984,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.099999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.979999999999984\n"):
total_tests := total_tests + 1:
fxm := trunc(-13.979999999999984):
fxr2 := -0.13e2:
fxrerr := 0.50e-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(trunc,trunc,-13.979999999999984,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.979999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.859999999999985\n"):
total_tests := total_tests + 1:
fxm := trunc(-13.859999999999985):
fxr2 := -0.13e2:
fxrerr := 0.50e-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(trunc,trunc,-13.859999999999985,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.859999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.739999999999986\n"):
total_tests := total_tests + 1:
fxm := trunc(-13.739999999999986):
fxr2 := -0.13e2:
fxrerr := 0.50e-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(trunc,trunc,-13.739999999999986,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.739999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.619999999999987\n"):
total_tests := total_tests + 1:
fxm := trunc(-13.619999999999987):
fxr2 := -0.13e2:
fxrerr := 0.50e-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(trunc,trunc,-13.619999999999987,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.619999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.499999999999988\n"):
total_tests := total_tests + 1:
fxm := trunc(-13.499999999999988):
fxr2 := -0.13e2:
fxrerr := 0.50e-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(trunc,trunc,-13.499999999999988,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.499999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.379999999999988\n"):
total_tests := total_tests + 1:
fxm := trunc(-13.379999999999988):
fxr2 := -0.13e2:
fxrerr := 0.50e-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(trunc,trunc,-13.379999999999988,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.379999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.25999999999999\n"):
total_tests := total_tests + 1:
fxm := trunc(-13.25999999999999):
fxr2 := -0.13e2:
fxrerr := 0.50e-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(trunc,trunc,-13.25999999999999,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.25999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.13999999999999\n"):
total_tests := total_tests + 1:
fxm := trunc(-13.13999999999999):
fxr2 := -0.13e2:
fxrerr := 0.50e-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(trunc,trunc,-13.13999999999999,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.13999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.01999999999999\n"):
total_tests := total_tests + 1:
fxm := trunc(-13.01999999999999):
fxr2 := -0.13e2:
fxrerr := 0.50e-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(trunc,trunc,-13.01999999999999,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.01999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -12.899999999999991\n"):
total_tests := total_tests + 1:
fxm := trunc(-12.899999999999991):
fxr2 := -0.12e2:
fxrerr := 0.50e-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(trunc,trunc,-12.899999999999991,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.899999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -12.779999999999992\n"):
total_tests := total_tests + 1:
fxm := trunc(-12.779999999999992):
fxr2 := -0.12e2:
fxrerr := 0.50e-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(trunc,trunc,-12.779999999999992,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.779999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -12.659999999999993\n"):
total_tests := total_tests + 1:
fxm := trunc(-12.659999999999993):
fxr2 := -0.12e2:
fxrerr := 0.50e-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(trunc,trunc,-12.659999999999993,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.659999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -12.539999999999994\n"):
total_tests := total_tests + 1:
fxm := trunc(-12.539999999999994):
fxr2 := -0.12e2:
fxrerr := 0.50e-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(trunc,trunc,-12.539999999999994,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.539999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -12.419999999999995\n"):
total_tests := total_tests + 1:
fxm := trunc(-12.419999999999995):
fxr2 := -0.12e2:
fxrerr := 0.50e-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(trunc,trunc,-12.419999999999995,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.419999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -12.299999999999995\n"):
total_tests := total_tests + 1:
fxm := trunc(-12.299999999999995):
fxr2 := -0.12e2:
fxrerr := 0.50e-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(trunc,trunc,-12.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(trunc,trunc,-12.299999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -12.179999999999996\n"):
total_tests := total_tests + 1:
fxm := trunc(-12.179999999999996):
fxr2 := -0.12e2:
fxrerr := 0.50e-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(trunc,trunc,-12.179999999999996,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.179999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -12.059999999999997\n"):
total_tests := total_tests + 1:
fxm := trunc(-12.059999999999997):
fxr2 := -0.12e2:
fxrerr := 0.50e-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(trunc,trunc,-12.059999999999997,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.059999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -11.939999999999998\n"):
total_tests := total_tests + 1:
fxm := trunc(-11.939999999999998):
fxr2 := -0.11e2:
fxrerr := 0.50e-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(trunc,trunc,-11.939999999999998,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.939999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -11.819999999999999\n"):
total_tests := total_tests + 1:
fxm := trunc(-11.819999999999999):
fxr2 := -0.11e2:
fxrerr := 0.50e-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(trunc,trunc,-11.819999999999999,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.819999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -11.7\n"):
total_tests := total_tests + 1:
fxm := trunc(-11.7):
fxr2 := -0.11e2:
fxrerr := 0.50e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -11.58\n"):
total_tests := total_tests + 1:
fxm := trunc(-11.58):
fxr2 := -0.11e2:
fxrerr := 0.50e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -11.46\n"):
total_tests := total_tests + 1:
fxm := trunc(-11.46):
fxr2 := -0.11e2:
fxrerr := 0.50e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -11.340000000000002\n"):
total_tests := total_tests + 1:
fxm := trunc(-11.340000000000002):
fxr2 := -0.11e2:
fxrerr := 0.50e-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(trunc,trunc,-11.340000000000002,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.340000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -11.220000000000002\n"):
total_tests := total_tests + 1:
fxm := trunc(-11.220000000000002):
fxr2 := -0.11e2:
fxrerr := 0.50e-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(trunc,trunc,-11.220000000000002,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.220000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -11.100000000000003\n"):
total_tests := total_tests + 1:
fxm := trunc(-11.100000000000003):
fxr2 := -0.11e2:
fxrerr := 0.50e-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(trunc,trunc,-11.100000000000003,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.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.980000000000004\n"):
total_tests := total_tests + 1:
fxm := trunc(-10.980000000000004):
fxr2 := -0.1e2:
fxrerr := 0.50e-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(trunc,trunc,-10.980000000000004,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.980000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.860000000000005\n"):
total_tests := total_tests + 1:
fxm := trunc(-10.860000000000005):
fxr2 := -0.1e2:
fxrerr := 0.50e-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(trunc,trunc,-10.860000000000005,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.860000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.740000000000006\n"):
total_tests := total_tests + 1:
fxm := trunc(-10.740000000000006):
fxr2 := -0.1e2:
fxrerr := 0.50e-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(trunc,trunc,-10.740000000000006,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.740000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.620000000000006\n"):
total_tests := total_tests + 1:
fxm := trunc(-10.620000000000006):
fxr2 := -0.1e2:
fxrerr := 0.50e-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(trunc,trunc,-10.620000000000006,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.620000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.500000000000007\n"):
total_tests := total_tests + 1:
fxm := trunc(-10.500000000000007):
fxr2 := -0.1e2:
fxrerr := 0.50e-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(trunc,trunc,-10.500000000000007,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.500000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.380000000000008\n"):
total_tests := total_tests + 1:
fxm := trunc(-10.380000000000008):
fxr2 := -0.1e2:
fxrerr := 0.50e-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(trunc,trunc,-10.380000000000008,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.380000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.260000000000009\n"):
total_tests := total_tests + 1:
fxm := trunc(-10.260000000000009):
fxr2 := -0.1e2:
fxrerr := 0.50e-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(trunc,trunc,-10.260000000000009,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.260000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.14000000000001\n"):
total_tests := total_tests + 1:
fxm := trunc(-10.14000000000001):
fxr2 := -0.1e2:
fxrerr := 0.50e-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(trunc,trunc,-10.14000000000001,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.14000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.02000000000001\n"):
total_tests := total_tests + 1:
fxm := trunc(-10.02000000000001):
fxr2 := -0.1e2:
fxrerr := 0.50e-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(trunc,trunc,-10.02000000000001,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.02000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.900000000000011\n"):
total_tests := total_tests + 1:
fxm := trunc(-9.900000000000011):
fxr2 := -0.9e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.900000000000011,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.900000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.780000000000012\n"):
total_tests := total_tests + 1:
fxm := trunc(-9.780000000000012):
fxr2 := -0.9e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.780000000000012,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.780000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.660000000000013\n"):
total_tests := total_tests + 1:
fxm := trunc(-9.660000000000013):
fxr2 := -0.9e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.660000000000013,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.660000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.540000000000013\n"):
total_tests := total_tests + 1:
fxm := trunc(-9.540000000000013):
fxr2 := -0.9e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.540000000000013,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.540000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.420000000000014\n"):
total_tests := total_tests + 1:
fxm := trunc(-9.420000000000014):
fxr2 := -0.9e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.420000000000014,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.420000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.300000000000015\n"):
total_tests := total_tests + 1:
fxm := trunc(-9.300000000000015):
fxr2 := -0.9e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.300000000000015,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.300000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.180000000000016\n"):
total_tests := total_tests + 1:
fxm := trunc(-9.180000000000016):
fxr2 := -0.9e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.180000000000016,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.180000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.060000000000016\n"):
total_tests := total_tests + 1:
fxm := trunc(-9.060000000000016):
fxr2 := -0.9e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.060000000000016,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.060000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.940000000000017\n"):
total_tests := total_tests + 1:
fxm := trunc(-8.940000000000017):
fxr2 := -0.8e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.940000000000017,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.940000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.820000000000018\n"):
total_tests := total_tests + 1:
fxm := trunc(-8.820000000000018):
fxr2 := -0.8e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.820000000000018,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.820000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.700000000000019\n"):
total_tests := total_tests + 1:
fxm := trunc(-8.700000000000019):
fxr2 := -0.8e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.700000000000019,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.700000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.58000000000002\n"):
total_tests := total_tests + 1:
fxm := trunc(-8.58000000000002):
fxr2 := -0.8e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.46000000000002\n"):
total_tests := total_tests + 1:
fxm := trunc(-8.46000000000002):
fxr2 := -0.8e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.340000000000021\n"):
total_tests := total_tests + 1:
fxm := trunc(-8.340000000000021):
fxr2 := -0.8e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.340000000000021,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.340000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.220000000000022\n"):
total_tests := total_tests + 1:
fxm := trunc(-8.220000000000022):
fxr2 := -0.8e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.220000000000022,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.220000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.100000000000023\n"):
total_tests := total_tests + 1:
fxm := trunc(-8.100000000000023):
fxr2 := -0.8e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.100000000000023,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.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -7.980000000000023\n"):
total_tests := total_tests + 1:
fxm := trunc(-7.980000000000023):
fxr2 := -0.7e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.980000000000023,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.980000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -7.8600000000000225\n"):
total_tests := total_tests + 1:
fxm := trunc(-7.8600000000000225):
fxr2 := -0.7e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8600000000000225,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.8600000000000225,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -7.740000000000022\n"):
total_tests := total_tests + 1:
fxm := trunc(-7.740000000000022):
fxr2 := -0.7e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.740000000000022,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.740000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -7.620000000000022\n"):
total_tests := total_tests + 1:
fxm := trunc(-7.620000000000022):
fxr2 := -0.7e1:
fxrerr := 0.50e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.620000000000022,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.620000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -19.39\n"):
total_tests := total_tests + 1:
fxm := frac(-19.39):
fxr2 := -0.39e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -19.28\n"):
total_tests := total_tests + 1:
fxm := frac(-19.28):
fxr2 := -0.28e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -19.17\n"):
total_tests := total_tests + 1:
fxm := frac(-19.17):
fxr2 := -0.17e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -19.060000000000002\n"):
total_tests := total_tests + 1:
fxm := frac(-19.060000000000002):
fxr2 := -0.60000000000002e-1:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.060000000000002,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.060000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -18.950000000000003\n"):
total_tests := total_tests + 1:
fxm := frac(-18.950000000000003):
fxr2 := -0.950000000000003e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.950000000000003,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.950000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -18.840000000000003\n"):
total_tests := total_tests + 1:
fxm := frac(-18.840000000000003):
fxr2 := -0.840000000000003e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.840000000000003,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.840000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -18.730000000000004\n"):
total_tests := total_tests + 1:
fxm := frac(-18.730000000000004):
fxr2 := -0.730000000000004e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.730000000000004,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.730000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -18.620000000000005\n"):
total_tests := total_tests + 1:
fxm := frac(-18.620000000000005):
fxr2 := -0.620000000000005e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.620000000000005,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.620000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -18.510000000000005\n"):
total_tests := total_tests + 1:
fxm := frac(-18.510000000000005):
fxr2 := -0.510000000000005e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.510000000000005,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.510000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -18.400000000000006\n"):
total_tests := total_tests + 1:
fxm := frac(-18.400000000000006):
fxr2 := -0.400000000000006e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.400000000000006,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.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -18.290000000000006\n"):
total_tests := total_tests + 1:
fxm := frac(-18.290000000000006):
fxr2 := -0.290000000000006e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.290000000000006,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.290000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -18.180000000000007\n"):
total_tests := total_tests + 1:
fxm := frac(-18.180000000000007):
fxr2 := -0.180000000000007e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.180000000000007,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.180000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -18.070000000000007\n"):
total_tests := total_tests + 1:
fxm := frac(-18.070000000000007):
fxr2 := -0.70000000000007e-1:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.070000000000007,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.070000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -17.960000000000008\n"):
total_tests := total_tests + 1:
fxm := frac(-17.960000000000008):
fxr2 := -0.960000000000008e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.960000000000008,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.960000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -17.85000000000001\n"):
total_tests := total_tests + 1:
fxm := frac(-17.85000000000001):
fxr2 := -0.85000000000001e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.85000000000001,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.85000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -17.74000000000001\n"):
total_tests := total_tests + 1:
fxm := frac(-17.74000000000001):
fxr2 := -0.74000000000001e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.74000000000001,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.74000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -17.63000000000001\n"):
total_tests := total_tests + 1:
fxm := frac(-17.63000000000001):
fxr2 := -0.63000000000001e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.63000000000001,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.63000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -17.52000000000001\n"):
total_tests := total_tests + 1:
fxm := frac(-17.52000000000001):
fxr2 := -0.52000000000001e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.52000000000001,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.52000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -17.41000000000001\n"):
total_tests := total_tests + 1:
fxm := frac(-17.41000000000001):
fxr2 := -0.41000000000001e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.41000000000001,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.41000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -17.30000000000001\n"):
total_tests := total_tests + 1:
fxm := frac(-17.30000000000001):
fxr2 := -0.30000000000001e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.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(frac,frac,-17.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -17.190000000000012\n"):
total_tests := total_tests + 1:
fxm := frac(-17.190000000000012):
fxr2 := -0.190000000000012e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.190000000000012,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.190000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -17.080000000000013\n"):
total_tests := total_tests + 1:
fxm := frac(-17.080000000000013):
fxr2 := -0.80000000000013e-1:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.080000000000013,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.080000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.970000000000013\n"):
total_tests := total_tests + 1:
fxm := frac(-16.970000000000013):
fxr2 := -0.970000000000013e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.970000000000013,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.970000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.860000000000014\n"):
total_tests := total_tests + 1:
fxm := frac(-16.860000000000014):
fxr2 := -0.860000000000014e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.860000000000014,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.860000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.750000000000014\n"):
total_tests := total_tests + 1:
fxm := frac(-16.750000000000014):
fxr2 := -0.750000000000014e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.750000000000014,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.750000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.640000000000015\n"):
total_tests := total_tests + 1:
fxm := frac(-16.640000000000015):
fxr2 := -0.640000000000015e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.640000000000015,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.640000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.530000000000015\n"):
total_tests := total_tests + 1:
fxm := frac(-16.530000000000015):
fxr2 := -0.530000000000015e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.530000000000015,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.530000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.420000000000016\n"):
total_tests := total_tests + 1:
fxm := frac(-16.420000000000016):
fxr2 := -0.420000000000016e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.420000000000016,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.420000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.310000000000016\n"):
total_tests := total_tests + 1:
fxm := frac(-16.310000000000016):
fxr2 := -0.310000000000016e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.310000000000016,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.310000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.200000000000017\n"):
total_tests := total_tests + 1:
fxm := frac(-16.200000000000017):
fxr2 := -0.200000000000017e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.200000000000017,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.200000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -16.090000000000018\n"):
total_tests := total_tests + 1:
fxm := frac(-16.090000000000018):
fxr2 := -0.90000000000018e-1:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.090000000000018,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.090000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -15.980000000000018\n"):
total_tests := total_tests + 1:
fxm := frac(-15.980000000000018):
fxr2 := -0.980000000000018e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.980000000000018,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.980000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -15.870000000000019\n"):
total_tests := total_tests + 1:
fxm := frac(-15.870000000000019):
fxr2 := -0.870000000000019e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.870000000000019,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.870000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -15.76000000000002\n"):
total_tests := total_tests + 1:
fxm := frac(-15.76000000000002):
fxr2 := -0.76000000000002e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.76000000000002,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.76000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -15.65000000000002\n"):
total_tests := total_tests + 1:
fxm := frac(-15.65000000000002):
fxr2 := -0.65000000000002e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.65000000000002,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.65000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -15.54000000000002\n"):
total_tests := total_tests + 1:
fxm := frac(-15.54000000000002):
fxr2 := -0.54000000000002e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.54000000000002,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.54000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -15.430000000000021\n"):
total_tests := total_tests + 1:
fxm := frac(-15.430000000000021):
fxr2 := -0.430000000000021e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.430000000000021,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.430000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -15.320000000000022\n"):
total_tests := total_tests + 1:
fxm := frac(-15.320000000000022):
fxr2 := -0.320000000000022e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.320000000000022,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.320000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -15.210000000000022\n"):
total_tests := total_tests + 1:
fxm := frac(-15.210000000000022):
fxr2 := -0.210000000000022e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.210000000000022,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.210000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -15.100000000000023\n"):
total_tests := total_tests + 1:
fxm := frac(-15.100000000000023):
fxr2 := -0.100000000000023e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.100000000000023,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.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.990000000000023\n"):
total_tests := total_tests + 1:
fxm := frac(-14.990000000000023):
fxr2 := -0.990000000000023e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.990000000000023,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.990000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.880000000000024\n"):
total_tests := total_tests + 1:
fxm := frac(-14.880000000000024):
fxr2 := -0.880000000000024e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.880000000000024,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.880000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.770000000000024\n"):
total_tests := total_tests + 1:
fxm := frac(-14.770000000000024):
fxr2 := -0.770000000000024e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.770000000000024,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.770000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.660000000000025\n"):
total_tests := total_tests + 1:
fxm := frac(-14.660000000000025):
fxr2 := -0.660000000000025e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.660000000000025,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.660000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.550000000000026\n"):
total_tests := total_tests + 1:
fxm := frac(-14.550000000000026):
fxr2 := -0.550000000000026e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.550000000000026,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.550000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.440000000000026\n"):
total_tests := total_tests + 1:
fxm := frac(-14.440000000000026):
fxr2 := -0.440000000000026e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.440000000000026,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.440000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.330000000000027\n"):
total_tests := total_tests + 1:
fxm := frac(-14.330000000000027):
fxr2 := -0.330000000000027e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.330000000000027,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.330000000000027,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.220000000000027\n"):
total_tests := total_tests + 1:
fxm := frac(-14.220000000000027):
fxr2 := -0.220000000000027e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.220000000000027,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.220000000000027,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.110000000000028\n"):
total_tests := total_tests + 1:
fxm := frac(-14.110000000000028):
fxr2 := -0.110000000000028e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.110000000000028,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.110000000000028,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -14.000000000000028\n"):
total_tests := total_tests + 1:
fxm := frac(-14.000000000000028):
fxr2 := -0.28e-13:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.000000000000028,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.000000000000028,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.890000000000029\n"):
total_tests := total_tests + 1:
fxm := frac(-13.890000000000029):
fxr2 := -0.890000000000029e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.890000000000029,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.890000000000029,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.78000000000003\n"):
total_tests := total_tests + 1:
fxm := frac(-13.78000000000003):
fxr2 := -0.78000000000003e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.78000000000003,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.78000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.67000000000003\n"):
total_tests := total_tests + 1:
fxm := frac(-13.67000000000003):
fxr2 := -0.67000000000003e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.67000000000003,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.67000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.56000000000003\n"):
total_tests := total_tests + 1:
fxm := frac(-13.56000000000003):
fxr2 := -0.56000000000003e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.56000000000003,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.56000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.450000000000031\n"):
total_tests := total_tests + 1:
fxm := frac(-13.450000000000031):
fxr2 := -0.450000000000031e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.450000000000031,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.450000000000031,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.340000000000032\n"):
total_tests := total_tests + 1:
fxm := frac(-13.340000000000032):
fxr2 := -0.340000000000032e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.340000000000032,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.340000000000032,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.230000000000032\n"):
total_tests := total_tests + 1:
fxm := frac(-13.230000000000032):
fxr2 := -0.230000000000032e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.230000000000032,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.230000000000032,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.120000000000033\n"):
total_tests := total_tests + 1:
fxm := frac(-13.120000000000033):
fxr2 := -0.120000000000033e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.120000000000033,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.120000000000033,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -13.010000000000034\n"):
total_tests := total_tests + 1:
fxm := frac(-13.010000000000034):
fxr2 := -0.10000000000034e-1:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.010000000000034,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.010000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -12.900000000000034\n"):
total_tests := total_tests + 1:
fxm := frac(-12.900000000000034):
fxr2 := -0.900000000000034e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.900000000000034,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.900000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -12.790000000000035\n"):
total_tests := total_tests + 1:
fxm := frac(-12.790000000000035):
fxr2 := -0.790000000000035e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.790000000000035,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.790000000000035,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -12.680000000000035\n"):
total_tests := total_tests + 1:
fxm := frac(-12.680000000000035):
fxr2 := -0.680000000000035e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.680000000000035,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.680000000000035,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -12.570000000000036\n"):
total_tests := total_tests + 1:
fxm := frac(-12.570000000000036):
fxr2 := -0.570000000000036e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.570000000000036,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.570000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -12.460000000000036\n"):
total_tests := total_tests + 1:
fxm := frac(-12.460000000000036):
fxr2 := -0.460000000000036e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.460000000000036,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.460000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -12.350000000000037\n"):
total_tests := total_tests + 1:
fxm := frac(-12.350000000000037):
fxr2 := -0.350000000000037e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.350000000000037,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.350000000000037,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -12.240000000000038\n"):
total_tests := total_tests + 1:
fxm := frac(-12.240000000000038):
fxr2 := -0.240000000000038e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.240000000000038,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.240000000000038,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -12.130000000000038\n"):
total_tests := total_tests + 1:
fxm := frac(-12.130000000000038):
fxr2 := -0.130000000000038e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.130000000000038,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.130000000000038,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -12.020000000000039\n"):
total_tests := total_tests + 1:
fxm := frac(-12.020000000000039):
fxr2 := -0.20000000000039e-1:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.020000000000039,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.020000000000039,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -11.91000000000004\n"):
total_tests := total_tests + 1:
fxm := frac(-11.91000000000004):
fxr2 := -0.91000000000004e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.91000000000004,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.91000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -11.80000000000004\n"):
total_tests := total_tests + 1:
fxm := frac(-11.80000000000004):
fxr2 := -0.80000000000004e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.80000000000004,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.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -11.69000000000004\n"):
total_tests := total_tests + 1:
fxm := frac(-11.69000000000004):
fxr2 := -0.69000000000004e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.69000000000004,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.69000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -11.580000000000041\n"):
total_tests := total_tests + 1:
fxm := frac(-11.580000000000041):
fxr2 := -0.580000000000041e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.580000000000041,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.580000000000041,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -11.470000000000041\n"):
total_tests := total_tests + 1:
fxm := frac(-11.470000000000041):
fxr2 := -0.470000000000041e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.470000000000041,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.470000000000041,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -11.360000000000042\n"):
total_tests := total_tests + 1:
fxm := frac(-11.360000000000042):
fxr2 := -0.360000000000042e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.360000000000042,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.360000000000042,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -11.250000000000043\n"):
total_tests := total_tests + 1:
fxm := frac(-11.250000000000043):
fxr2 := -0.250000000000043e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.250000000000043,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.250000000000043,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -11.140000000000043\n"):
total_tests := total_tests + 1:
fxm := frac(-11.140000000000043):
fxr2 := -0.140000000000043e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.140000000000043,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.140000000000043,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -11.030000000000044\n"):
total_tests := total_tests + 1:
fxm := frac(-11.030000000000044):
fxr2 := -0.30000000000044e-1:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.030000000000044,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.030000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.920000000000044\n"):
total_tests := total_tests + 1:
fxm := frac(-10.920000000000044):
fxr2 := -0.920000000000044e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.920000000000044,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.920000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.810000000000045\n"):
total_tests := total_tests + 1:
fxm := frac(-10.810000000000045):
fxr2 := -0.810000000000045e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.810000000000045,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.810000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.700000000000045\n"):
total_tests := total_tests + 1:
fxm := frac(-10.700000000000045):
fxr2 := -0.700000000000045e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.700000000000045,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.700000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.590000000000046\n"):
total_tests := total_tests + 1:
fxm := frac(-10.590000000000046):
fxr2 := -0.590000000000046e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.590000000000046,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.590000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.480000000000047\n"):
total_tests := total_tests + 1:
fxm := frac(-10.480000000000047):
fxr2 := -0.480000000000047e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.480000000000047,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.480000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.370000000000047\n"):
total_tests := total_tests + 1:
fxm := frac(-10.370000000000047):
fxr2 := -0.370000000000047e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.370000000000047,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.370000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.260000000000048\n"):
total_tests := total_tests + 1:
fxm := frac(-10.260000000000048):
fxr2 := -0.260000000000048e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.260000000000048,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.260000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.150000000000048\n"):
total_tests := total_tests + 1:
fxm := frac(-10.150000000000048):
fxr2 := -0.150000000000048e0:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.150000000000048,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.150000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -10.040000000000049\n"):
total_tests := total_tests + 1:
fxm := frac(-10.040000000000049):
fxr2 := -0.40000000000049e-1:
fxrerr := 0.100e-18:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.040000000000049,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.040000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.93000000000005\n"):
total_tests := total_tests + 1:
fxm := frac(-9.93000000000005):
fxr2 := -0.93000000000005e0:
fxrerr := 0.100e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.82000000000005\n"):
total_tests := total_tests + 1:
fxm := frac(-9.82000000000005):
fxr2 := -0.82000000000005e0:
fxrerr := 0.100e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.71000000000005\n"):
total_tests := total_tests + 1:
fxm := frac(-9.71000000000005):
fxr2 := -0.71000000000005e0:
fxrerr := 0.100e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.600000000000051\n"):
total_tests := total_tests + 1:
fxm := frac(-9.600000000000051):
fxr2 := -0.600000000000051e0:
fxrerr := 0.100e-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(frac,frac,-9.600000000000051,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.600000000000051,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.490000000000052\n"):
total_tests := total_tests + 1:
fxm := frac(-9.490000000000052):
fxr2 := -0.490000000000052e0:
fxrerr := 0.100e-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(frac,frac,-9.490000000000052,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.490000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.380000000000052\n"):
total_tests := total_tests + 1:
fxm := frac(-9.380000000000052):
fxr2 := -0.380000000000052e0:
fxrerr := 0.100e-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(frac,frac,-9.380000000000052,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.380000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.270000000000053\n"):
total_tests := total_tests + 1:
fxm := frac(-9.270000000000053):
fxr2 := -0.270000000000053e0:
fxrerr := 0.100e-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(frac,frac,-9.270000000000053,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.270000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.160000000000053\n"):
total_tests := total_tests + 1:
fxm := frac(-9.160000000000053):
fxr2 := -0.160000000000053e0:
fxrerr := 0.100e-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(frac,frac,-9.160000000000053,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.160000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -9.050000000000054\n"):
total_tests := total_tests + 1:
fxm := frac(-9.050000000000054):
fxr2 := -0.50000000000054e-1:
fxrerr := 0.100e-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(frac,frac,-9.050000000000054,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.050000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.940000000000055\n"):
total_tests := total_tests + 1:
fxm := frac(-8.940000000000055):
fxr2 := -0.940000000000055e0:
fxrerr := 0.100e-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(frac,frac,-8.940000000000055,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.940000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.830000000000055\n"):
total_tests := total_tests + 1:
fxm := frac(-8.830000000000055):
fxr2 := -0.830000000000055e0:
fxrerr := 0.100e-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(frac,frac,-8.830000000000055,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.830000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.720000000000056\n"):
total_tests := total_tests + 1:
fxm := frac(-8.720000000000056):
fxr2 := -0.720000000000056e0:
fxrerr := 0.100e-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(frac,frac,-8.720000000000056,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.720000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -8.610000000000056\n"):
total_tests := total_tests + 1:
fxm := frac(-8.610000000000056):
fxr2 := -0.610000000000056e0:
fxrerr := 0.100e-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(frac,frac,-8.610000000000056,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.610000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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.96610514647531072706384e0:
fxrerr := 0.412e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.4\n"):
total_tests := total_tests + 1:
fxm := erf(-1.4):
fxr2 := -0.95228511976264881051346e0:
fxrerr := 0.289e-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(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    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.2999999999999998\n"):
total_tests := total_tests + 1:
fxm := erf(-1.2999999999999998):
fxr2 := -0.9340079449406523949593e0:
fxrerr := 0.203e-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(erf,erf,-1.2999999999999998,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.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.1999999999999997\n"):
total_tests := total_tests + 1:
fxm := erf(-1.1999999999999997):
fxr2 := -0.91031397822963530003226e0:
fxrerr := 0.236e-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(erf,erf,-1.1999999999999997,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.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -1.0999999999999996\n"):
total_tests := total_tests + 1:
fxm := erf(-1.0999999999999996):
fxr2 := -0.88020506957408156517726e0:
fxrerr := 0.298e-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(erf,erf,-1.0999999999999996,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.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.9999999999999997\n"):
total_tests := total_tests + 1:
fxm := erf(-0.9999999999999997):
fxr2 := -0.8427007929497147448063e0:
fxrerr := 0.367e-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(erf,erf,-0.9999999999999997,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.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.8999999999999997\n"):
total_tests := total_tests + 1:
fxm := erf(-0.8999999999999997):
fxr2 := -0.79690821242283197792564e0:
fxrerr := 0.444e-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(erf,erf,-0.8999999999999997,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.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.7999999999999997\n"):
total_tests := total_tests + 1:
fxm := erf(-0.7999999999999997):
fxr2 := -0.74210096470766030766906e0:
fxrerr := 0.527e-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(erf,erf,-0.7999999999999997,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.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.6999999999999997\n"):
total_tests := total_tests + 1:
fxm := erf(-0.6999999999999997):
fxr2 := -0.67780119383741826559104e0:
fxrerr := 0.612e-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(erf,erf,-0.6999999999999997,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.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.5999999999999998\n"):
total_tests := total_tests + 1:
fxm := erf(-0.5999999999999998):
fxr2 := -0.60385609084792576511206e0:
fxrerr := 0.697e-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(erf,erf,-0.5999999999999998,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.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.4999999999999998\n"):
total_tests := total_tests + 1:
fxm := erf(-0.4999999999999998):
fxr2 := -0.52049987781304636192459e0:
fxrerr := 0.778e-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(erf,erf,-0.4999999999999998,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.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.3999999999999998\n"):
total_tests := total_tests + 1:
fxm := erf(-0.3999999999999998):
fxr2 := -0.42839235504666826279396e0:
fxrerr := 0.852e-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(erf,erf,-0.3999999999999998,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.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.2999999999999998\n"):
total_tests := total_tests + 1:
fxm := erf(-0.2999999999999998):
fxr2 := -0.32862675945912722138565e0:
fxrerr := 0.913e-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(erf,erf,-0.2999999999999998,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.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.19999999999999982\n"):
total_tests := total_tests + 1:
fxm := erf(-0.19999999999999982):
fxr2 := -0.22270258921047825899512e0:
fxrerr := 0.96e-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(erf,erf,-0.19999999999999982,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.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = -0.09999999999999981\n"):
total_tests := total_tests + 1:
fxm := erf(-0.09999999999999981):
fxr2 := -0.11246291601828467994406e0:
fxrerr := 0.99e-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(erf,erf,-0.09999999999999981,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.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.942890293094024e-16\n"):
total_tests := total_tests + 1:
fxm := erf(1.942890293094024e-16):
fxr2 := 0.219231693067939110648291e-15:
fxrerr := 0.5e-38:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.942890293094024e-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.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.1000000000000002\n"):
total_tests := total_tests + 1:
fxm := erf(0.1000000000000002):
fxr2 := 0.112462916018285115633262e0:
fxrerr := 0.99e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000002,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.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.2000000000000002\n"):
total_tests := total_tests + 1:
fxm := erf(0.2000000000000002):
fxr2 := 0.222702589210478670966443e0:
fxrerr := 0.96e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000002,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.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.3000000000000002\n"):
total_tests := total_tests + 1:
fxm := erf(0.3000000000000002):
fxr2 := 0.328626759459127633890132e0:
fxrerr := 0.913e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000002,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.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.40000000000000024\n"):
total_tests := total_tests + 1:
fxm := erf(0.40000000000000024):
fxr2 := 0.428392355046668685872264e0:
fxrerr := 0.852e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.40000000000000024,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.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.5000000000000002\n"):
total_tests := total_tests + 1:
fxm := erf(0.5000000000000002):
fxr2 := 0.520499877813046713437743e0:
fxrerr := 0.778e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.5000000000000002,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.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.6000000000000002\n"):
total_tests := total_tests + 1:
fxm := erf(0.6000000000000002):
fxr2 := 0.603856090847926080009545e0:
fxrerr := 0.697e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.6000000000000002,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.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.7000000000000002\n"):
total_tests := total_tests + 1:
fxm := erf(0.7000000000000002):
fxr2 := 0.677801193837418611228628e0:
fxrerr := 0.612e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.7000000000000002,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.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.8000000000000002\n"):
total_tests := total_tests + 1:
fxm := erf(0.8000000000000002):
fxr2 := 0.742100964707660605162106e0:
fxrerr := 0.527e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.8000000000000002,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.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 0.9000000000000001\n"):
total_tests := total_tests + 1:
fxm := erf(0.9000000000000001):
fxr2 := 0.796908212422832178713251e0:
fxrerr := 0.444e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.9000000000000001,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.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.0000000000000002\n"):
total_tests := total_tests + 1:
fxm := erf(1.0000000000000002):
fxr2 := 0.84270079294971495236027e0:
fxrerr := 0.367e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.0000000000000002,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.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.1000000000000003\n"):
total_tests := total_tests + 1:
fxm := erf(1.1000000000000003):
fxr2 := 0.880205069574081800713174e0:
fxrerr := 0.298e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.1000000000000003,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.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.2000000000000004\n"):
total_tests := total_tests + 1:
fxm := erf(1.2000000000000004):
fxr2 := 0.910313978229635487173485e0:
fxrerr := 0.246e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.2000000000000004,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.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.3000000000000005\n"):
total_tests := total_tests + 1:
fxm := erf(1.3000000000000005):
fxr2 := 0.934007944940652540705165e0:
fxrerr := 0.352e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.3000000000000005,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.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\n",fxrerr):
fprintf(out_fd,"x      = 1.4000000000000006\n"):
total_tests := total_tests + 1:
fxm := erf(1.4000000000000006):
fxr2 := 0.952285119762648905878763e0:
fxrerr := 0.504e-20:
fxr := fxr2:
abs_err := abs(fxm - fxr):
if fxm <> 0.0 then 
percent_error := abs_err * 100.0 / fxm: 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.4000000000000006,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.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):
end:
fprintf(out_fd,"fxr    = %30.24e\n",fxr):
fprintf(out_fd,"fxm    = %30.24e\n",fxm):
fprintf(out_fd,"fxrerr = %30.24e\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 := 1425318516*1000:
rcpuuend := 220.828*1000:
rcpusend := 0.031*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):